[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [open-cobol-list] IBM MVS Cobol Compatibility
From: |
Keisuke Nishida |
Subject: |
Re: [open-cobol-list] IBM MVS Cobol Compatibility |
Date: |
Sun Feb 1 19:41:26 2004 |
User-agent: |
Wanderlust/2.10.0 (Venus) SEMI/1.14.3 (Ushinoya) FLIM/1.14.3 (UnebigoryĆmae) APEL/10.3 Emacs/21.2 (i386-redhat-linux-gnu) MULE/5.0 (SAKAKI) |
At Sat, 31 Jan 2004 10:23:36 -0500 (EST),
David Korn wrote:
>
> The IBM Compiler allows the first line of a cobol program to
> contain compile options by specifying
> PROCESS,opt1[,optn]...
(snip)
> Minimally, the PROCESS statement should be skipped with warnings issued
> for options that will be violated if any.
Could you try the patch below? Let me know if you need more than this.
Keisuke
--- pplex.l.~1.30.~ 2004-01-30 14:29:38.000000000 +0900
+++ pplex.l 2004-02-02 12:35:09.000000000 +0900
@@ -56,10 +56,12 @@
%}
-%x DIRECTIVE_STATE COPY_STATE
+%x PROCESS_STATE DIRECTIVE_STATE COPY_STATE
%%
+"PROCESS" { BEGIN PROCESS_STATE; }
+
">>" { BEGIN DIRECTIVE_STATE; return DIRECTIVE; }
"COPY" { BEGIN COPY_STATE; return COPY; }
@@ -100,6 +102,11 @@
}
}
+<PROCESS_STATE>{
+ \n { BEGIN INITIAL; unput ('\n'); }
+ .* { cb_warning (_("PROCESS statement is ignored")); }
+}
+
<DIRECTIVE_STATE>{
\n { BEGIN INITIAL; unput ('\n'); }
"SOURCE" { return SOURCE; }
- Re: [open-cobol-list] IBM MVS Cobol Compatibility,
Keisuke Nishida <=