cobol.pars

linux 下的源代码分析阅读器 red hat公司新版

		= procedure_name TO            procedure_name .
		= procedure_name TO PROCEED TO procedure_name .
> .
call		= <

		= CALL call_name call_using_o giving_o End_call .
		= CALL call_name call_using_o giving_o on_overflow End_call .
		= CALL call_name call_using_o giving_o exception End_call .
> .
call_i		= <
		= CALL call_name call_using_o giving_o End_call .
		= CALL call_name call_using_o giving_o on_overflow 'END-CALL' .
		= CALL call_name call_using_o giving_o exception 'END-CALL' .
> .
call_name	= <
	     /* =      procedure_pointer_data_item .
		= name procedure_pointer_data_item . */
	     /* =      identifier_or_non_numeric_literal .
		= name identifier_or_non_numeric_literal . */
		=      qualification_n
		{ => {  UseLabelExtern (qualification_n:Scan); }; } .
		=      string
		{ => {	char word [128];
			StGetString (string:Value, word);
			string:Scan.name.Ident = MakeIdent (word, strlen (word));
			UseLabelExtern (string:Scan); }; } .
		= name qualification_n
		{ => {  UseLabelExtern (qualification_n:Scan);
			UseLabelExtern (name:Scan); }; } .
		= name string
		{ => {	char word [128];
			StGetString (string:Value, word);
			string:Scan.name.Ident = MakeIdent (word, strlen (word));
			UseLabelExtern (string:Scan);
			UseLabelExtern (name:Scan); }; } .
> .
call_using_o	= <
		= USING call_using_l .
		= .
> .
call_using_l	= <
		= call_using_1_e .
		= call_using_l call_using_2_e .
> .
call_using_1_e	= <
	     /* = identifier_l . */
		= call_chain_l .
		= call_using_2_e .
> .
call_using_2_e	= <
		= chain_2_e .
		= By VALUE call_chain_l .
> .
call_chain_l	= <
		= call_chain_e .
		= call_chain_l call_chain_e .
> .
call_chain_e	= <
		= identifier_or_literal .
		= literal SIZE Is literal .
> .
giving_o	= <
		= giving_or_returning Into identifier .
		= giving_or_returning ADDRESS OF identifier .
		= .
> .
overflow	= <
   on_overflow	= On	 OVERFLOW imperative_statement .
		= NOT On OVERFLOW imperative_statement .
		= On	 OVERFLOW imperative_statement
		  NOT On OVERFLOW imperative_statement .
> .
exception	= <
		= On	 EXCEPTION imperative_statement .
		= NOT On EXCEPTION imperative_statement .
		= On	 EXCEPTION imperative_statement
		  NOT On EXCEPTION imperative_statement .
> .
cancel		= CANCEL identifier_or_non_numeric_literal_l .

chain		= <
		= CHAIN identifier_or_non_numeric_literal End_chain .
		= CHAIN identifier_or_non_numeric_literal USING chain_l End_chain .
> .
chain_l		= <
		= chain_1_e .
		= chain_l chain_2_e .
> .
chain_1_e	= <
		= call_chain_l .
		= chain_2_e .
> .
chain_2_e	= <
		= By REFERENCE call_chain_l .
		=              ADDRESS OF call_chain_l .
		= By REFERENCE ADDRESS OF call_chain_l .
		= By CONTENT   call_chain_l .
> .
close		= 'CLOSE' close_l .

close_l		= <
		= close_e .
		= close_l close_e .
> .
close_e		= <
		= file_name ? { GetLookahead (2) == YYCODE (DATA) } .
		= file_name REEL ? { GetLookahead (2) == YYCODE (DATA) } .
		= file_name REEL With LOCK .
		= file_name REEL For REMOVAL .
		= file_name REEL With NO REWIND .
		= file_name With NO REWIND .
		= file_name With LOCK .
		= file_name With DISP .
> .
commit		= COMMIT .

compute		= <
		= COMPUTE identifier_rounded_l_w equal_2 expression End_compute .
		= COMPUTE identifier_rounded_l_w equal_2 expression size_error End_compute .
> .
compute_i	= <
		= COMPUTE identifier_rounded_l_w equal_2 expression End_compute .
		= COMPUTE identifier_rounded_l_w equal_2 expression size_error 'END-COMPUTE' .
> .
equal_2		= <
		= '=' .
		= EQUAL .
> .
continue	= CONTINUE .

delete		= <
		= DELETE file_name Record End_delete .
		= DELETE file_name Record invalid End_delete .
		= DELETE FILE file_name_l .
> .
delete_i	= <
		= DELETE file_name Record End_delete .
		= DELETE file_name Record invalid 'END-DELETE' .
		= DELETE FILE file_name_l .
> .
invalid		= <
		=     INVALID Key imperative_statement .
		= NOT INVALID Key imperative_statement .
		=     INVALID Key imperative_statement
		  NOT INVALID Key imperative_statement .
> .
disable		= <
		= DISABLE device name_ ? { GetLookahead (2) == YYCODE (DATA) } .
		= DISABLE device name_ With KEY identifier_or_literal .
> .
device		= <
		= 'INPUT' .
		= 'INPUT' TERMINAL .
		= 'I-O' TERMINAL .
		= 'OUTPUT' .
> .
display		= <
		= DISPLAY display_l upon_o display_advancing_o End_display .
		= DISPLAY display_l upon_o display_advancing_o exception End_display .
		= DISPLAY display_2_l End_display .
> .
display_i	= <
		= DISPLAY display_l upon_o display_advancing_o End_display .
		= DISPLAY display_l upon_o display_advancing_o exception 'END-DISPLAY' .
		= DISPLAY display_2_l End_display .
> .
display_l	= <
		= identifier_or_literal ? non_screen_display .
		= display_l identifier_or_literal .
> .
display_2_l	= <
		= display_2_e .
		= display_2_l display_2_e .
> .
display_2_e	= identifier_or_literal display_3_l ? { GetLookahead (2) == YYCODE (DATA) } .

upon_o		= <
		= UPON name_ .
		= UPON builtin_name .
		= .
> .
display_advancing_o	= <
		= With NO ADVANCING .
		= ? { GetLookahead (2) == YYCODE (DATA) } .
> .
display_3_l	= <
		= display_3_e .
		= display_3_l display_3_e .
> .
display_3_e	= <
		= At LINE   Number identifier_or_integer .
		= At COLUMN Number identifier_or_integer .
		= At COL    Number identifier_or_integer .
		= AT identifier_or_integer .
		= UPON CRT .
		= UPON 'CRT-UNDER' .
		= mode_block .
   		= WITH with_display_l .
> .
with_display_l	= <
		= .
		= with_display_l BELL .
		= with_display_l BEEP .
		= with_display_l BLINK .
		= with_display_l GRID .
		= with_display_l ERASE EOL .
		= with_display_l ERASE EOS .
		= with_display_l HIGHLIGHT .
		= with_display_l LOWLIGHT .
		= with_display_l LEFTLINE .
		= with_display_l OVERLINE .
		= with_display_l 'REVERSE-VIDEO' .
		= with_display_l SIZE Is identifier_or_integer .
		= with_display_l UNDERLINE .
		= with_display_l 'FOREGROUND-COLOR' Is integer .
		= with_display_l 'BACKGROUND-COLOR' Is integer .
		= with_display_l CONTROL Is identifier_or_literal .
		= with_display_l BLANK SCREEN .
		= with_display_l BLANK LINE .
> .
divide		= <
		= DIVIDE identifier_or_numeric_literal INTO identifier_rounded_l_w End_divide .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_l_w End_divide .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_l_w End_divide .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w End_divide .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w End_divide .
		= DIVIDE identifier_or_numeric_literal INTO identifier_rounded_l_w size_error End_divide .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_l_w size_error End_divide .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_l_w size_error End_divide .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w size_error End_divide .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w size_error End_divide .
> .
divide_i	= <
		= DIVIDE identifier_or_numeric_literal INTO identifier_rounded_l_w End_divide .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_l_w End_divide .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_l_w End_divide .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w End_divide .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w End_divide .
		= DIVIDE identifier_or_numeric_literal INTO identifier_rounded_l_w size_error 'END-DIVIDE' .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_l_w size_error 'END-DIVIDE' .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_l_w size_error 'END-DIVIDE' .
		= DIVIDE identifier_or_numeric_literal INTO giving identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w size_error 'END-DIVIDE' .
		= DIVIDE identifier_or_numeric_literal BY   identifier_or_numeric_literal GIVING identifier_rounded_w REMAINDER identifier_w size_error 'END-DIVIDE' .
> .
enable		= <
		= ENABLE device name_ ? { GetLookahead (2) == YYCODE (DATA) } .
		= ENABLE device name_ With KEY identifier_or_literal .
> .
enter		= <
		= ENTER name
		{ => { UseLabelExtern (name:Scan); }; } .
		= ENTER name procedure_name
		{ => { UseLabelExtern (name:Scan); }; } .
	     /* = ENTER COBOL .
		= ENTER COBOL procedure_name . COBOL is covered by name */
> .
entry		= <
		= ENTRY name
		{ => { (void) DeclareLabel (name:Scan, lENTRY, PrevEPos); }; } .
		= ENTRY name USING entry_l
		{ => { (void) DeclareLabel (name:Scan, lENTRY, PrevEPos); }; } .
		= ENTRY string
		{ => {	char word [128];
			StGetString (string:Value, word);
			string:Scan.name.Ident = MakeIdent (word, strlen (word));
			(void) DeclareLabel (string:Scan, lENTRY, PrevEPos); }; } .
		= ENTRY string USING entry_l
		{ => {	char word [128];
			StGetString (string:Value, word);
			string:Scan.name.Ident = MakeIdent (word, strlen (word));
			(void) DeclareLabel (string:Scan, lENTRY, PrevEPos); }; } .
> .
entry_l		= <
		= entry_1_e .
		= entry_l entry_2_e .
> .
entry_1_e	= <
		= identifier_l .
		= entry_2_e .
> .
entry_2_e	= <
		= By REFERENCE name_l .
		= By VALUE     name_l .
> .
evaluate	= EVALUATE evaluate_expression_l case_l when_other_o End_evaluate .

evaluate_i	= EVALUATE evaluate_expression_l case_l when_other_o 'END-EVALUATE' .

evaluate_expression_l	= <
		= evaluate_expression .
		= evaluate_expression_l ALSO evaluate_expression .
> .
evaluate_expression	= <
	     /* = expression_or_literal . is covered by condition */
		= condition .
		= TRUE .
		= FALSE .
> .
case_l		= <
		=        when_l imperative_statement .
		= case_l when_l imperative_statement .
> .
when_other_o	= <
		= WHEN OTHER imperative_statement .
		= .
> .
when_l		= <
		=        WHEN when_label_l .
		= when_l WHEN when_label_l .
> .
when_label_l	= <
		= when_label .
		= when_label_l ALSO when_label .
> .
when_label	= <
		= ANY .
		= condition .
		= TRUE .
		= FALSE .
/*		= expression_or_literal .
		= expression_or_literal THROUGH expression_or_literal .
		= NOT expression_or_literal .
		= NOT expression_or_literal THROUGH expression_or_literal . */
		= condition THROUGH condition .
> .
expression_or_literal	= <
	     /* = identifier . is covered by expression */
		= non_numeric_literal .
		= expression .
> .
examine		= <
		= EXAMINE identifier TALLYING examine_tally_o literal .
		= EXAMINE examine_repl identifier_w TALLYING examine_tally_o literal REPLACING BY literal .
		= EXAMINE examine_repl identifier_w REPLACING examine_repl_o literal BY literal .
> .
examine_repl	= ? examine_replacing .

examine_repl_o	= <
   examine_tally_o	= <
		= ALL .
		= LEADING .
		= UNTIL FIRST .
   > .
		= FIRST .
> .
execute		= EXECUTE .

exhibit		= EXHIBIT exhibit_o identifier_or_numeric_literal_l upon_o .

exhibit_o	= <
		=         NAMED .
		= CHANGED NAMED .
		= CHANGED .
> .
exit		= <
		= EXIT .
		= EXIT PROGRAM .
		= EXIT PROGRAM giving_2_o .
		= EXIT PERFORM .
		= EXIT PERFORM CYCLE .
		= EXIT PARAGRAPH .
		= EXIT SECTION .
> .
giving_2_o	= <
		= giving_or_returning name_ .
		= giving_or_returning ADDRESS OF name_ .
		= giving_or_returning literal .
		= giving_or_returning literal SIZE Is literal .
> .
giving_or_returning	= <
		= GIVING .
		= RETURNING .
> .
generate	= GENERATE qualification .

goback		= <
		= GOBACK .
		= GOBACK giving_2_o .
> .
goto		= <
		= GO To .
		= GO To procedure_name .
		= GO To procedure_name_l DEPENDING On identifier .
> .
procedure_name_l	= <
		= procedure_name .
		= procedure_name_l procedure_name .
> .
if		= IF condition then else .

if_i		= IF condition then else_i .

then		= Then statement_l .

else		= <
		= ELSE statement_l End_if .
		= End_if .
> .
else_i		= <
		= ELSE statement_l 'END-IF' .
		= 'END-IF' .
> .
initialize	= INITIALIZE identifier_l_w replacing_o .

replacing_o	= <
		= REPLACING initialize_replacing_l .
		= .
> .
initialize_replacing_l	= <
		= initialize_replacing_e .
		= initialize_replacing_l initialize_replacing_e .
> .
initialize_replacing_e	= replacing_mode Data BY identifier_or_literal .

replacing_mode	= <
		= ALPHABETIC .
		= ALPHANUMERIC .
		= NUMERIC .
		= 'ALPHANUMERIC-EDITED' .
		= 'NUMERIC-EDITED' .
		= NATIONAL .
		= 'NATIONAL-EDITED' .
		= DBCS .
> .
initiate	= INITIATE name_l .

inspect		= <
		= INSPECT identifier TALLYING tallying_l .
		= INSPECT inspect_repl identifier_w REPLACING replacing_l .
		= INSPECT inspect_repl identifier_w TALLYING tallying_l REPLACING replacing_l .
		= INSPECT inspect_repl identifier_w CONVERTING identifier_or_non_all_literal TO identifier_or_non_all_literal before_after_o .
> .
inspect_repl	= ? identifier_replacing .

tallying_l	= <
		= tallying_e .
		= tallying_l tallying_e .
> .
tallying_e	= identifier_w 'FOR' for_l .

for_l		= <
		= for_e .
		= for_l for_e .
> .
for_e		= <
		= CHAR