DataMuseum.dk

top - download

    Length: 2688 (0xa80)
    Types: TextFile
    Names: »RTP3502.SYN«

└─⟦37e69c590⟧ Bits:30010530 RTP-ref.man RC3502 PN 99 001174 RCtekst + GEM DVBS1.SW2114.src.2.6-8
    └─⟦this⟧ »RTP3502.SYN« 
└─⟦43259bdbc⟧ Bits:30010515 CVBS1.SW2114.src.2.14-5 RTP Manualer RTP - ref. man RTP Compiler Ref.man HEJ 92.09.21
    └─⟦this⟧ »RTP3502.SYN« 

TextFile

$routined\r
<'routine declaration'>=\r
(function\r
<'function heading'>\r
!\r
procedure\r
<'procedure heading'>\r
';')<'routine block'>;\r
\r
$funct\r
<'function heading'>=\r
<'function_name'>(!'=' <'external_name'>) <'function formals'>\r
;\r
$funct1\r
<'function formals'>=\r
(!<'formal parameters'>)':'<'common type specification'>\r
;\r
\r
$procheading\r
<'procedure heading'>=\r
<'procedure_name'>\r
(!\r
<'formal parameters'>\r
)\r
;\r
\r
$proc\r
<'procedure heading'>=\r
<'procedure_name'>\r
(! '=' <'external_name'>)\r
(!\r
<'formal parameters'>\r
)\r
;\r
\r
\r
$type2\r
<'formal type specification'>=\r
<'type definition'>!\r
<'defined type'>\r
;\r
\r
$type5\r
<'frozen-type definition'>=\r
'!' <'common type specification'>;\r
\r
\r
$paramtype\r
<'parameterized type'>=\r
<'parameterized-type_name'><'formal type parameters'>\r
;\r
$type1\r
<'common type specification'>=\r
<'type definition'>!\r
<'parameterized type binding'>!\r
<'defined type'>\r
;\r
\r
\r
$type3\r
<'type definition'>=\r
<'ordinal-type definition'>!\r
<'frozen-type definition'>!\r
<'pointer-type definition'>!\r
<'set-type definition'>!\r
<'structured-type definition'>\r
;\r
\r
$type4\r
<'defined type'>=\r
<'predefined ordinal type'>!\r
<'shielded type'>!\r
<'bound-type_name'>\r
;\r
$shielded\r
<'shielded type'>=\r
<mailbox>!\r
<reference>!\r
<'pool type'>!\r
<process>!\r
<port>!\r
<chain>!\r
<'external program type'>\r
;\r
$pooltype\r
<'pool type'>=\r
<pool> (!<expression> (! of <'common type specification'>))\r
;\r
\r
$extprog\r
<'external program type'>=\r
external program\r
<'formal parameters'>\r
;\r
\r
$settype\r
<'set-type definition'>=\r
set of <'common type specification'>\r
;\r
\r
$statement\r
<statement>=\r
(\r
!\r
<'compound statement'>!\r
<'assignment statement'>!\r
<'exchange statement'>!\r
<'if statement'>!\r
<'case statement'>!\r
<'for statement'>!\r
<'loop statement'>!\r
<'while statement'>!\r
<'repeat statement'>\r
<'procedure call'>!\r
<'exitloop statement'>!\r
<'continueloop statement'>!\r
<'exit statement'>!\r
<'goto statement'>!\r
<'labelled statement'>!\r
<'with statement'>!\r
<'lock statement'>!\r
<'channel statement'>!\r
<'region statement'>\r
)\r
;\r
$channel\r
<'channel statement'>=\r
channel <'object denotation'> do <statement>\r
;\r
\r
\r
$actpar\r
<'actual parameters'>=\r
'(' +\r
<'expression'>\r
/','- ')'\r
;\r
\r
\r
$lockdef\r
<'lock definition'>=\r
<'ref_object denotation'>\r
to\r
<'message_name'>\r
(! ':' <'common type specification'>)\r
;\r
\r
$labeldec\r
<'label declaration'>=\r
label +<label>/','- ';'\r
;\r
\r
$label\r
<label>=\r
(<name> ! <number>)\r
;\r
$goto\r
<'goto statement'>=\r
goto\r
<'label'>\r
;\r
\r
$labstat\r
<'labelled statement'>=\r
<'label'>\r
':' <statement>\r
;\r
.\r
«eof»