nyacc: exceptions worked on.. still need to fix #
[mes.git] / module / nyacc / lang / c99 / mach.d / c99act.scm
index d54164ab3a2e4c6e83f119489973ae5a022c611c..60d461821abdc86586e860b47769734434acfa33 100644 (file)
    (lambda ($1 . $rest) $1)
    ;; external-declaration => cpp-statement
    (lambda ($1 . $rest) $1)
+   ;; external-declaration => pragma
+   (lambda ($1 . $rest) $1)
    ;; external-declaration => "extern" '$string "{" external-declaration-li...
    (lambda ($5 $4 $3 $2 $1 . $rest)
      `(extern-block
         (extern-begin ,$2)
         ,@(sx-tail (tl->list $4) 1)
         (extern-end)))
+   ;; external-declaration => ";"
+   (lambda ($1 . $rest)
+     `(decl (@ (not-C99 . "GNU C"))))
    ;; function-definition => declaration-specifiers declarator declaration-...
    (lambda ($4 $3 $2 $1 . $rest)
      `(knr-fctn-defn
    ;; lone-comment => '$lone-comm
    (lambda ($1 . $rest) `(comment ,$1))
    ;; cpp-statement => 'cpp-stmt
-   (lambda ($1 . $rest) `(cpp-stmt ,$1))
+   (lambda ($1 . $rest) $1)
+   ;; pragma => 'cpp-pragma
+   (lambda ($1 . $rest) $1)
    ))
 
 ;;; end tables