[elpa] externals/parser-generator 1613e89 146/434: Added lex-analyzer get function

[ELPA Syncer]

branch: externals/parser-generator
commit 1613e8954b51e61c538148bf4c3348bb2c2459df
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@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