branch: externals/parser-generator commit c9906f7082283cb28ca8a8d628c7f5d5d9631a82 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Move order of export of LR lex-analyzer --- parser-generator-lr-export.el | 64 +++++++++++++++++++++---------------------- 1 file changed, 32 insertions(+), 32 deletions(-) diff --git a/parser-generator-lr-export.el b/parser-generator-lr-export.el index 46d0d4f..b5d9501 100644 --- a/parser-generator-lr-export.el +++ b/parser-generator-lr-export.el @@ -118,36 +118,6 @@ namespace parser-generator--table-translations)) - ;; Lex-Analyzer Get Function - (insert - (format - "(defvar\n %s-lex-analyzer--get-function\n (lambda %S %S)\n \"The lex-analyzer get function.\")\n\n" - namespace - (nth 2 parser-generator-lex-analyzer--get-function) - (nth 3 parser-generator-lex-analyzer--get-function))) - - ;; Lex-Analyzer Function - (insert - (format - "(defvar\n %s-lex-analyzer--function\n (lambda %S %S)\n \"The lex-analyzer function.\")\n\n" - namespace - (nth 2 parser-generator-lex-analyzer--function) - (nth 3 parser-generator-lex-analyzer--function))) - - ;; Lex-Analyzer Reset Function - (insert - (format - "(defvar\n %s-lex-analyzer--reset-function\n " - namespace)) - (if parser-generator-lex-analyzer--reset-function - (insert - (format - "(lambda %S %S)\n" - (nth 2 parser-generator-lex-analyzer--reset-function) - (nth 3 parser-generator-lex-analyzer--reset-function))) - (insert "nil\n")) - (insert " \"The lex-analyzer reset function.\")\n\n") - ;; E-identifier (insert (format @@ -171,18 +141,48 @@ (insert "\n;;; Variables:\n\n") - ;; Lex-analyzer index + ;; Index (insert (format "(defvar-local\n %s-lex-analyzer--index\n 0\n \"The current index of the lex-analyzer.\")\n\n" namespace)) - ;; Lex-analyzer move to index flag + ;; Move to index flag (insert (format "(defvar-local\n %s-lex-analyzer--move-to-index-flag\n nil\n \"Non-nil means move index to value.\")\n\n" namespace)) + ;; Lex-Analyzer Get Function + (insert + (format + "(defvar\n %s-lex-analyzer--get-function\n (lambda %S %S)\n \"The lex-analyzer get function.\")\n\n" + namespace + (nth 2 parser-generator-lex-analyzer--get-function) + (nth 3 parser-generator-lex-analyzer--get-function))) + + ;; Lex-Analyzer Function + (insert + (format + "(defvar\n %s-lex-analyzer--function\n (lambda %S %S)\n \"The lex-analyzer function.\")\n\n" + namespace + (nth 2 parser-generator-lex-analyzer--function) + (nth 3 parser-generator-lex-analyzer--function))) + + ;; Lex-Analyzer Reset Function + (insert + (format + "(defvar\n %s-lex-analyzer--reset-function\n " + namespace)) + (if parser-generator-lex-analyzer--reset-function + (insert + (format + "(lambda %S %S)\n" + (nth 2 parser-generator-lex-analyzer--reset-function) + (nth 3 parser-generator-lex-analyzer--reset-function))) + (insert "nil\n")) + (insert " \"The lex-analyzer reset function.\")\n\n") + (insert "\n;;; Functions:\n\n") (insert "\n;;; Lex-Analyzer:\n\n")