[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] enhancement to cobpp
From: |
Richard A. Painter |
Subject: |
[open-cobol-list] enhancement to cobpp |
Date: |
Tue Jun 4 23:49:01 2002 |
we have a LOT of code that uses the following format:
COPY XXXX OF "XXXX".
which produces a parse error.
would it be possible to allow this to function the same as:
COPY XXXX.
i have added the following code to my cobpp tree to make this happen:
cobpp/scanner.l:
existing: "OFF" { return OFF; }
added: "OF" { return OF; }
cobpp/parser.y:
change: %token COPY, REPLACE, REPLACING, OFF, BY
to: %token COPY, REPLACE, REPLACING, OFF, BY, OF
after: COPY NAME '.' { include_copybook ($2, NULL); }
add: | COPY NAME OF NAME '.' { include_copybook ($2, NULL); }
rich
--
+---------------------------------------------------------------+
| Richard A. Painter Phone 719 495 7054 |
| Painter Engineering, Inc. Mailto:address@hidden |
| 8470 Swan Rd. |
| Black Forest, CO 80908 |
| |
| Visit our Web site: http://painter.inc |
| http://home.earthlink.net/~painterengineering |
| |
| Systems & Software Engineering + LAN WAN Networking + X.25 |
| INTERNET TCP-IP + Real-time Transaction Processing |
| System & Software Integration, Testing, Verification & Audits |
| Web Hosting & Design + Apache + PHP + modSSL + cURL |
| Database Design & Applications + Oracle |
| Benchmarks + Course & Workshop Development & Delivery |
| Financial and Medical Software Integration + Security |
| Middleware + EDI + Cryptography + Firewalls |
| UNIX + Linux + Windows |
| |
| What is popular is not always right and what is right is not |
| always popular. - Howard Cosell |
| |
| Chance favors the prepared mind! Illegitima non carborundum |
+---------------------------------------------------------------+
- [open-cobol-list] enhancement to cobpp,
Richard A. Painter <=