Re: [open-cobol-list] IBM MVS Cobol Compatibility

[Keisuke Nishida]

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; }