branch: externals/parser-generator
commit 1613e8954b51e61c538148bf4c3348bb2c2459df
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Added lex-analyzer get function
---
parser-generator-lex-analyzer.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/parser-generator-lex-analyzer.el b/parser-generator-lex-analyzer.el
index 307d497..97eee8c 100644
--- a/parser-generator-lex-analyzer.el
+++ b/parser-generator-lex-analyzer.el
@@ -13,6 +13,10 @@
;;; Variables:
+(defvar parser-generator-lex-analyzer--get-function
+ nil
+ "Get token information function.")
+
(defvar parser-generator-lex-analyzer--function
nil
"Function used as lex-analyzer.")
@@ -29,6 +33,13 @@
;; Functions
+(defun parser-generator-lex-analyzer--get-function (token)
+ "Get information about TOKEN."
+ (unless parser-generator-lex-analyzer--get-function
+ (error "Missing lex-analyzer get function!"))
+ (funcall parser-generator-lex-analyzer--get-function token))
+
+
(defun parser-generator-lex-analyzer--peek-next-look-ahead ()
"Peek next look-ahead number of tokens via lex-analyzer."
(unless parser-generator-lex-analyzer--index
