<mdl.comp>/syntax.macro.1

   1 1<[..D:^I..D? A    A    A    A    A    A    A    A    A              A              A    A    A    A    A    A    A    A    A    A    A    A    A    A    A    A    A    A              |    A   AA   A     A         (    )    A    A    A    A   AA    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A         (    A    )    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (    /    )    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (    A    )    A    A   ?
   2 FVYACC ===> SYNTAX CONVERTER RUNNING.
   3 \e[0[1J:K
   4 :Sint (*act[])() {
   5         \e"EFVLOSSAGE act\e0;'\ 6   [\7f \e
   6 :S-1};
   7 \e"EFVLOSSAGE act END\e0;'\ 6]\e
   8 :Sint r1[] {
   9         \e"EFVLOSSAGE r1\e0;'\ 6    ![\e
  10 :S-1};\e"EFVLOSSAGE r1 END\e0;'\ 6]\e
  11 :Sint r2[] {
  12         \e"EFVLOSSAGE r2\e0;'\ 6    ![\e
  13 :S-1};\e"EFVLOSSAGE r2 END\e0;'\ 6]\e
  14 :Schar *sterm[] {
  15         \e"EFVLOSSAGE sterm\e0;'\ 6 [\e
  16 :S0};\e"EFVLOSSAGE sterm END\e0;'\ 6]\e
  17 :Schar *snterm[] {
  18         \e"EFVLOSSAGE snterm\e0;'\ 6        [\e
  19 :S0};\e"EFVLOSSAGE snterm END\e0;'\ 6]\e
  20 :Sint g[] {
  21         \e"EFVLOSSAGE g\e0;'\ 6     ![\e
  22 :S-1};\e"EFVLOSSAGE g END\e0;'\ 6]\e
  23 :Sint pg[] {
  24         \e"EFVLOSSAGE pg\e0;'\ 6    ![\e
  25 :S-1};\e"EFVLOSSAGE pg END\e0;'\ 6]\e
  26 :Sint sq[] {
  27         \e"EFVLOSSAGE sq\e0;'\ 6    ![\e
  28 :S-1};\e"EFVLOSSAGE sq END\e0;'\ 6]\e
  29 :Sint nbpw {\e"EFVLOSSAGE npbw\e0;'\ 6      \e
  30 :S};\e"EFVLOSSAGE npbw END\e0;'\ 6\e
  31 :Sint nwpbt {\e"EFVLOSSAGE nwpbt\e0;'\ 6    \e
  32 :S};\e"EFVLOSSAGE nwpbt END\e0;'\ 6\e
  33 :Sint a[] {
  34         \e"EFVLOSSAGE a\e0;'\ 6     ![\e
  35 :S-1};\e"EFVLOSSAGE a END\e0;'\ 6]\e
  36 :Sint pa[] {
  37         \e"EFVLOSSAGE pa\e0;'\ 6    ![\e
  38 :S-1};\e"EFVLOSSAGE pa END\e0;'\ 6]]>
  39 \e.,ZK
  40 J<:S,\ f"\ f{\eU0 !'! Q0; R
  41 Q0+1"ED'
  42 Q0+2"EC.U0 :S",\ 2\e"EFVLOSSAGE string\e0;'3R !'!
  43    Q0,.FSBOUND\e-Z+(BJ<:S"\ f\\e; !'! RI\\eC>WZJZ)FSBOUND\eWCD'
  44 Q0+3"EFLR'>
  45 JS\7f\e<:S]\ f\ 20\ 2\e+1;2RDI<>\e>
  46 <J:S
  47 ar\e;:S{\e"EFVLOSSAGE ar start\e0;'.U0RFLRQ0,.-1X1 0,.K
  48 :S\7f\e"EFVLOSSAGE act AGAIN\e0;':Sar\e"EFVLOSSAGE ar END\e0;'
  49 -2DFWK FQ1+(FSHPOS\e)-(FSWIDTH\e)"GI
  50         \e' G1>
  51 JI<SETG TABLES!-SYNTAX!-PACKAGE!-
  52      #TABLES!-SYNTAX!-PACKAGE!- [\e
  53 S\7f\e-DDJ]1]0]..D FVDONE
  54 \e>\ 3\ 3