[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: nyacc version 0.71.0 released
From: |
Matt Wette |
Subject: |
Re: nyacc version 0.71.0 released |
Date: |
Tue, 21 Jun 2016 06:21:46 -0700 |
> On Jun 21, 2016, at 5:21 AM, Chaos Eternal <address@hidden> wrote:
> 349: 3 [read-token]
> 294: 2 [exec-cpp "if (ODBCVER >= 0x0300)"]
> In ice-9/boot-9.scm:
> 157: 1 [catch error ...]
> In
> /home/chaos/src/nyacc/examples/nyacc/../../module/nyacc/lang/c99/cppbody.scm:
> 69: 0 [eval-expr (ge (ident "ODBCVER") (fixed "0x0300"))]
>
> /home/chaos/src/nyacc/examples/nyacc/../../module/nyacc/lang/c99/cppbody.scm:69:22:
> In procedure eval-expr:
> /home/chaos/src/nyacc/examples/nyacc/../../module/nyacc/lang/c99/cppbody.scm:69:22:
> In procedure >=: Wrong type argument in position 1: #f
> address@hidden:~/src/nyacc/examples/nyacc
>
I think that is fixed my in-progress version.
mwette$ cat zz.h
#define ODBCVER 123
#if (ODBCVER >= 0x0300)
int bar() { return 1; }
#else
int bar() { return 2; }
#endif
int foo() { bar(); }
mwette$ ./cxp zz.h
zz.h:
(trans-unit
(cpp-stmt (define (name "ODBCVER") (repl "123")))
(cpp-stmt (if "(ODBCVER >= 0x0300)"))
(fctn-defn
(decl-spec-list (type-spec (fixed-type "int")))
(ftn-declr (ident "bar") (param-list))
(compd-stmt
(block-item-list (return (p-expr (fixed "1"))))))
(cpp-stmt (else ""))
(fctn-defn
(decl-spec-list (type-spec (fixed-type "int")))
(ftn-declr (ident "bar") (param-list))
(compd-stmt
(block-item-list (return (p-expr (fixed "2"))))))
(cpp-stmt (endif ""))
(fctn-defn
(decl-spec-list (type-spec (fixed-type "int")))
(ftn-declr (ident "foo") (param-list))
(compd-stmt
(block-item-list
(expr-stmt
(fctn-call (p-expr (ident "bar")) (expr-list)))))))