dev-scheme/gauche-gtk/files/gauche-gtk-h2s-cpp.diff


1
2
3
4
5
6
7
8
9
10
11

--- a/lib/h2s/parse.scm
+++ b/lib/h2s/parse.scm
@@ -329,6 +329,8 @@
       (#/^\}\s*([\w_]+)/ (#f name) (make-enum name (reverse enums))) ; ----->
       ;; empty line:
       (#/^\s*$/ () (loop (read-line) enums))
+      ;; preprocessor directive:
+      (#/^\s*#\s*\w+/ () (loop (read-line) enums))
       ;; 
       (test has-comment? (skip-comment line (cut loop <> enums) err-eof)) ;  what if?:      new_value,  /* boring comment*/
       (#/\s+([\w_]+),?/ (#f enum)