branch: externals/parser-generator
commit b8de1c47c8c6aa9bd0c8c52a5975a08b22791ae1
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
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
