From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Matt Wette Newsgroups: gmane.lisp.guile.user Subject: Re: nyacc version 0.71.0 released Date: Tue, 21 Jun 2016 06:21:46 -0700 Message-ID: References: <41775BE0-4A4E-469E-9550-7FD4E47481BE@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (Mac OS X Mail 8.2 \(2104\)) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1466516263 7035 80.91.229.3 (21 Jun 2016 13:37:43 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 21 Jun 2016 13:37:43 +0000 (UTC) Cc: guile-user@gnu.org To: Chaos Eternal Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Tue Jun 21 15:37:39 2016 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1bFLs2-0006hy-3z for guile-user@m.gmane.org; Tue, 21 Jun 2016 15:37:38 +0200 Original-Received: from localhost ([::1]:51827 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bFLs1-0002ey-6q for guile-user@m.gmane.org; Tue, 21 Jun 2016 09:37:37 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:44246) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bFLcq-0002p3-1W for guile-user@gnu.org; Tue, 21 Jun 2016 09:22:00 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bFLck-0003BS-T2 for guile-user@gnu.org; Tue, 21 Jun 2016 09:21:54 -0400 Original-Received: from mail-pa0-x235.google.com ([2607:f8b0:400e:c03::235]:33189) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bFLck-0003BF-HG for guile-user@gnu.org; Tue, 21 Jun 2016 09:21:50 -0400 Original-Received: by mail-pa0-x235.google.com with SMTP id b13so6474023pat.0 for ; Tue, 21 Jun 2016 06:21:50 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:subject:from:in-reply-to:date:cc:message-id:references :to; bh=2xBd3YvpxjwKDnAB7/RUdfIr9xUkbQtDEXtHGA6/mXI=; b=hljdm1Wm/9Hy9pJwfEp1HUM4CPTztM2wPKuN150/3BcDayfjoRlNB1wXeGdpkk+LvI 2bjPyboXzWM6t683Ee4myeLywmnubWK9NesiMC5skzHd5p0kBj/cGNXSiOI1Wuo8uE8h 7nRPpH0AbDHIeymXEuZHMkA4kaAcDKXvs/DGDuATlRazeqT3xXm0GNhUyClEO7kXIb2O 2k8QlCM0SYMYbi+TSn+IXFwH9Gl6NpBbiYGItinly9aCd4KGsLnC/0VA1IyR6QQhXs1u Bh98e8PdtvAWaTFJu75BjVLeorGdDqNH2Pgvjw2kLL4/9T5rAWS/nAkXVvdbkLDDIduv ti9Q== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:mime-version:subject:from:in-reply-to:date:cc :message-id:references:to; bh=2xBd3YvpxjwKDnAB7/RUdfIr9xUkbQtDEXtHGA6/mXI=; b=V4eiimZj+QluSM8sOger/uEw6x97t0gyjqj2l6MAvN+BR1mFWzIYvvtw3ZPe9AQ7nU t1/bj3qh4xhu8fcZtSLPnQT7AHPU76uHMm7O6QPG/qv6QSy3eiEhiHtgknKG3/9HTKVT TwJX8f7cBMrOz84qaPNVpRnhxfJhFuEU7G+NOCZCW7qEkLaJZqc9l02RZIBD5bkG4vYo 9Mh+HWjRCVPZi39GzmDgXn3KyAYqQhJAba3bK3Dd+zQymEd/4PykR8fEQnQx0AutyPNF ACC5Q4iMzc3Hu6iNIH3W9KsCU8U0WIjL2rxLPjhwvGOkgldeCzifOI4UE57epf3YtdZ3 Lxhg== X-Gm-Message-State: ALyK8tLmWo5BNcQsg/XSPf9bsMd9jd6AkC0iNQrqR2rRTj6QRWFHOCBAhr7wO1zkJbZn0w== X-Received: by 10.66.161.201 with SMTP id xu9mr27540685pab.140.1466515309286; Tue, 21 Jun 2016 06:21:49 -0700 (PDT) Original-Received: from nautilus.championbroadband.com (216-165-228-109.championbroadband.com. [216.165.228.109]) by smtp.gmail.com with ESMTPSA id y66sm48341710pfg.94.2016.06.21.06.21.47 (version=TLSv1/SSLv3 cipher=OTHER); Tue, 21 Jun 2016 06:21:48 -0700 (PDT) In-Reply-To: X-Mailer: Apple Mail (2.2104) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:400e:c03::235 X-Content-Filtered-By: Mailman/MimeDel 2.1.21 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.org gmane.lisp.guile.user:12675 Archived-At: > On Jun 21, 2016, at 5:21 AM, Chaos Eternal = wrote: > 349: 3 [read-token] > 294: 2 [exec-cpp "if (ODBCVER >=3D 0x0300)"] > In ice-9/boot-9.scm: > 157: 1 [catch error ...] > In > = /home/chaos/src/nyacc/examples/nyacc/../../module/nyacc/lang/c99/cppbody.s= cm: > 69: 0 [eval-expr (ge (ident "ODBCVER") (fixed "0x0300"))] >=20 > = /home/chaos/src/nyacc/examples/nyacc/../../module/nyacc/lang/c99/cppbody.s= cm:69:22: > In procedure eval-expr: > = /home/chaos/src/nyacc/examples/nyacc/../../module/nyacc/lang/c99/cppbody.s= cm:69:22: > In procedure >=3D: Wrong type argument in position 1: #f > chaos@florrum:~/src/nyacc/examples/nyacc >=20 I think that is fixed my in-progress version. mwette$ cat zz.h #define ODBCVER 123 #if (ODBCVER >=3D 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 >=3D 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)))))))