branch: externals/parser-generator commit b8de1c47c8c6aa9bd0c8c52a5975a08b22791ae1 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
LR-exporter now supports optional header --- parser-generator-lr-export.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/parser-generator-lr-export.el b/parser-generator-lr-export.el index 73d3e43..f156c56 100644 --- a/parser-generator-lr-export.el +++ b/parser-generator-lr-export.el @@ -9,8 +9,8 @@ (require 'parser-generator-lr) -(defun parser-generator-lr-export-to-elisp (namespace) - "Export parser with NAMESPACE." +(defun parser-generator-lr-export-to-elisp (namespace &optional header) + "Export parser with NAMESPACE and a optional HEADER." (message "\nStarting generation of elips..\n") ;; Make sure all requisites are defined @@ -54,6 +54,9 @@ namespace)) (insert ";;; Commentary:\n\n\n;;; Code:\n\n") + (when header + (insert header)) + (insert "\n;;; Constants:\n\n\n") ;; Action-tables