mescc: Have Nyacc trace functions while parsing.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Apr 2018 07:35:08 +0000 (09:35 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 7 Apr 2018 07:35:08 +0000 (09:35 +0200)
* guile/mescc.scm (main): Set NYACC_TRACE.
* scripts/mescc.mes (main): Set NYACC_TRACE.

guile/mescc.scm
scripts/mescc.mes

index ce372e8529257c36d74db5e35a4320bc06813d4b..3e9125b2d8a21ddd70056e7e69185e6e3eafc84c 100755 (executable)
@@ -133,6 +133,7 @@ Usage: mescc.scm [OPTION]... FILE...
          (multi-opt (lambda (option) (lambda (o) (and (eq? (car o) option) (cdr o)))))
          (defines (reverse (filter-map (multi-opt 'define) options)))
          (includes (reverse (filter-map (multi-opt 'include) options))))
+    (setenv "NYACC_TRACE" "yes")
     (when (getenv "MES_DEBUG") (format (current-error-port) "options=~s\n" options)
           (format (current-error-port) "output: ~a\n" out))
     (if (and (pair? sources) (pair? objects)) (error "cannot mix source and object files:" files))
index 0a65ae3cd740e71359f64b4d95435fc7ca67a0e2..44553a99a62dc7d33b276717e810addf187900c2 100755 (executable)
@@ -141,6 +141,7 @@ Usage: mescc.mes [OPTION]... FILE...
          (multi-opt (lambda (option) (lambda (o) (and (eq? (car o) option) (cdr o)))))
          (defines (reverse (filter-map (multi-opt 'define) options)))
          (includes (reverse (filter-map (multi-opt 'include) options))))
+    (setenv "NYACC_TRACE" "yes")
     (when (getenv "MES_DEBUG") (format (current-error-port) "options=~s\n" options)
           (format (current-error-port) "output: ~a\n" out))
     (if (and (pair? sources) (pair? objects)) (error "cannot mix source and object files:" files))