home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol166 / exprn.rec < prev    next >
Encoding:
Text File  |  1984-04-29  |  8.9 KB  |  157 lines
  1.  
  2. [EXPRN.REC]
  3. [CNVRT compiler for "C"  Expressions]
  4. [Harold V. McIntosh, 10 June 1983]
  5.  
  6. {
  7.                    {
  8.     [find/make FCB]        (Jj'TTY:'EQZD;(':'UQD':'ED\64-%;0%;)
  9.                  ('.'U<(8a;@b;)Q|D>;Z'.DAT'IJj:)
  10.                   '.'FJDZ(3a;@b;)Q|JZDI
  11.                  32(dpGm$r0=npGpGd0&$Sm@znpGQ&$rrS0;
  12.                  r12wQmwnEn;n:)D;) f
  13.     [blank fill by count]    (Zz(d' 'I:;)JZ;) b
  14.     [zero fill]            (cmpw0%(f:;)w;) 0
  15.     [zero FCB & buffer]        ($m33@0130@0nn&0||pLnS;) z
  16.     [set default input file]    (0,30$S'5C'H12wA' 'Ew4@0n0|0|pL31$S
  17.                  'TTY:'31$rrS; B9aQD(3a'   'E
  18.                  'DAT';Q;)|mw31@zn31$rrS31@r;) i
  19.     [open for read]        (@hr15K(255='NO FILE'I;L;)L;) r
  20.     [open for write]        (@hpGpG4+1&SrpG19k22k^^r128&S;) w
  21.     [set DMA address]        ($rpG^^r^^26k;) h
  22.     [open]            (m@f0=n@@;nLL;) O
  23.     [read]            (''(AL@f(0=pG@r;'TTY:'(='T');))
  24.                  ('T'='';L31pG$rr12w'TTY:'Ew;w)
  25.                  L@&'> 'TL(@#I;:);
  26.                  $r(pG^^rpGmr(0=(npGpGm128&S^^26kpGr
  27.                  20K0=L;LL1npGpGm129+26%&SS;)npGmr;;)
  28.                  pG130&-n+&dm(u13%=;10%(=)pGI(26%=;
  29.                  L);ndm:)L^^rn&S;LpG^^r0&S:);) R
  30.     [write]            (Jj'='U<(A@f'TTY:'(=)(0=pG@w;;))>'='ED
  31.                  ZqtD; >'='EDZ<@g;) W
  32.     [write to disk]        ($r(pG^^rpGpGmrpGm- 130+n&maQD>Z<nSn^^
  33.                  26kpGr21kpG^^r128&S:JZQD>nSnSL;);) g
  34.     [close all files]        (31pGm($r0=;pG4+r(0=L;LJj26%I<npGm@gpG
  35.                  ^^rpGr127(N^^26kpGr21k;L;)r16k;)ndpGm:)
  36.                  nL;;) c
  37.     [PVR]            (pG@&#'= '|TL$r(0='undef';yG;)TL;) _
  38.     [cr, lf]            (2573TL;)&
  39.     [insert cr, lf]        (2573I;)|
  40.     [read console]        (R13%='';T08%(=)(@#|;2080[sp,bs]TLL@#;);)#
  41.     [type comment]        (@TD;)C
  42.     [display at logon]        ('cnvrt/icuap/1983'TL@&;)D
  43.     [write workspace]        (@&JZqt;)T
  44.                 (@@;) }%
  45.     [integer arithmetic]    {(+;)+ (-;)- (*;)* (/&L;)/
  46.                 (pGm/L1=nL1;0=n;n&:)|
  47.                  ((pGmJj(U);QD(O)I;npGmEDZQD(O)IjnpGmI;
  48.                  n@@#I)nLJZ;;) } #
  49.     [save & init variables]    (pGpGm$rm0&$S;) (
  50.     [reinitialize variable]    (pG$r0=L;LnL0&$S;) :
  51.     [undefine variable]        ($r0=;LnL;) )
  52.     [compare/define variable]    (pG$r0=ZQzml&$S;&LyGEz;) ]
  53.     [body of variable search]    (pG$r(0=)yG(E;&L)z&L@=L;pG$r(0=;LL)
  54.                   Z<((&pGm&n(F;''mZz<)jJQmpGl&$S
  55.                   zZ<@=>;J>);nLA:0&$SL>)>LL;) >
  56.     [body of variable search]    (pG$r(0=)yGEz@=L;pG$r(0=;LL)
  57.                   Z<((jJQmpGl&$S
  58.                   zZ<@=>;J>);nLA:0&$S>)>L;) <
  59.     [insert variable]        ($ryGI;) [
  60.                 
  61. [compile expression]
  62. {
  63.     ( [or] Z<('<<'Ez; J'>>'Ez; J'->'Ez; J [and] Z<(1(a;L)z jJ><[not] (Z<  [or] Z<('<'Ez; J'>'Ez;>)> [or] J>)J>[not] Zz(A);>)> [and] ;>)> [or] ;) 0
  64.     ( [or] Z<('<='Ez; J'>='Ez; J'<'Ez; J'>'Ez;>)> [or] @W;) 1
  65.   
  66.     (z<0@['@@'I1@[@zZ>;) Z
  67.     (0@( 1@( 2@(  {(0@: 1@: 2@: ;); (
  68.  
  69.   [print WS]    @;(J2573TL'x 'TLZqtj(A)JZD;);
  70.   [assignment]    @;(J [and] Z<(@L jJ><0@](A);>)> [and]  [and] Z<(@p jJ><1@](A);>)> [and]  [and] Z<(@D jJ><2@](A);>)> [and] JZDz<2@[@xZ>z<0@[@xZ>'/assignment 'I1@[;);
  71.   [binary ||]    @;(J {[vbl] ( [and] Z<('||'Ez@H(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  72.   [binary &&]    @;(J {[vbl] ( [and] Z<('&&'Ez@J(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  73.   [binary |]    @;(J {[vbl] ( [and] Z<('|'Ez@Q(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  74.   [binary ^]    @;(J {[vbl] ( [and] Z<('^'Ez@S(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  75.   [binary &]    @;(J {[vbl] ( [and] Z<('&'Ez@U(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  76.   [binary ==]    @;(J {[vbl] ( [and] Z<( [or] Z<('=='Ez; J'!='Ez;>)> [or] @V(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  77.   [binary .lt.] @;(J [and] Z<(((Z<@0 [and] Z<(@1(A) jJ><1@](A);>)> [and] >;J>);A:) jJ>< {[vbl] ( {[vbl] ((A);) = (1@<;)}[vbl] ;) = (0@<;)}[vbl] (A);>)> [and] JZDz<@ZZ>;);
  78.   [binary rot]    @;(J {[vbl] ( [and] Z<( [or] Z<('<<'Ez; J'>>'Ez;>)> [or] @X(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  79.   [binary + -]    @;(J {[vbl] ( [and] Z<( [or] Z<('+'Ez; J'-'Ez;>)> [or] @Y(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  80.   [binary * / %]@;(J {[vbl] ( [and] Z<( [or] Z<('*'Ez; J'/'Ez; J'%'Ez;>)> [or] @A(A) jJ><1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<@ZZ>;);
  81.   [other]    @;(J0@]JZDz<0@[@yZ>;);
  82.   ;)} 0@) 1@) 2@)   nn$S nn$S nn$S;)} x
  83.  
  84. [compile unary expressions]
  85. {(0@( 1@( {(0@: 1@: ;); (
  86.         @;(J2573TL'y 'TLZqtj(A)JZD;);
  87.   [autoinc]    @;(J'++'Ez [and] Z<(@L jJ><0@](A);>)> [and] JZDz<0@[@xZ>'/preinc'I;);
  88.   [autoinc]    @;(J [and] Z<(@L jJ><0@](A);>)> [and] '++'EzJZDz<0@[@xZ>'/postinc'I;);
  89.   [autodec]    @;(J'--'Ez [and] Z<(@L jJ><0@](A);>)> [and] JZDz<0@[@xZ>'/predec'I;);
  90.   [autodec]    @;(J [and] Z<(@L jJ><0@](A);>)> [and] '--'EzJZDz<0@[@xZ>'/postdec'I;);
  91.   [unary]    @;(J [and] Z<(@r jJ><0@](A);>)> [and] 1@]JZDz<1@[@yZ>'/unary 'I0@[;);
  92.   [index]    @;(J {[vbl] ( [and] Z<('['Ez@E']'Ez(A) jJ><'['Ez {[vbl] (']'Ez(A);) = (']'1@>;)}[vbl] (A);>)> [and] ;) = (0@<;)}[vbl] JZDz<0@[@xZ>z<1@[@xZ>'/index'I;);
  93.   [subexpr]    @;(J [and] Z<('('Ez@E')'Ez jJ><'('Ez {[vbl] (')'Ez(A);) = (0@<;)}[vbl] (A);>)> [and] JZDz<0@[@xZ>;);
  94.   [function]    @;(J {[vbl] ( [and] Z<('('Ez@E')'Ez(A) jJ><'('Ez {[vbl] (')'Ez(A);) = (1@<;)}[vbl] (A);>)> [and] ;) = (0@<;)}[vbl] JZDz<1@[@xZ>z<0@[@xZ>'/function'I;);
  95.   [structure]    @;(J {[vbl] ( [and] Z<('->'Ez@I(A) jJ><'->'Ez1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<0@[@xZ>'/struct 'I1@[;);
  96.   [dot]        @;(J {[vbl] ( [and] Z<('.'Ez@I(A) jJ><'.'Ez1@](A);>)> [and] ;) = (0@<;)}[vbl] JZDz<0@[@xZ>'/dot 'I1@[;);
  97.   [primary]    @;(J [and] Z<(@P(A) jJ><0@](A);>)> [and] JZD'/fetch 'I0@[;);
  98.   [unknown]    @;(J0@]JZD'/uy 'I0@[;);
  99.   ;)} 0@) 1@)   nn$S nn$S;)} y
  100.  
  101. [compile binary or coincident unary]
  102. {(0@( 1@( 2@( {(0@: 1@: 2@: ;); (
  103.         @;(J2573TL'z 'TLZqtj(A)JZD;);
  104.   [pure unary]    @;(J'@@'Ez1@]JZDz<1@[@yZ>;);
  105.         @;(J [and] Z<(@L jJ><0@](A);>)> [and] '@@++'Ez1@]JZDz<'('I0@['++)'I1@[@xZ>;);
  106.         @;(J [and] Z<(@L jJ><0@](A);>)> [and] '@@--'Ez1@]JZDz<'('I0@['--)'I1@[@xZ>;);
  107.         @;(J {[vbl] ('+@@+'Ez1@];) = ('+@@+'0@>;)}[vbl] JZD0@['@@++'I1@[;):
  108.   [l rot]    @;(J {[vbl] ('<@@<'Ez1@];) = (0@<;)}[vbl] JZD0@['@@<<'I1@[;):
  109.   [r rot]    @;(J {[vbl] ('>@@>'Ez1@];) = (0@<;)}[vbl] JZD0@['@@>>'I1@[;):
  110.   [offside]    @;(J {[vbl] ( [and] Z<(@r jJ><1@](A);>)> [and] '@@'Ez2@];) = (0@<;)}[vbl] JZD0@['@@'I1@[2@[;):
  111.   [coincident]    @;(J {[vbl] ('@@'Ez [and] Z<(@q jJ><1@](A);>)> [and] 2@];) = ('@@'0@>;)}[vbl] JZDz<0@[@xZ>z<2@[@xZ>'/binary 'I1@[;);
  112.   [unknown]    @;(J0@]JZD'/uz 'I0@[;);
  113.   ;)} 0@) 1@) 2@)   nn$S nn$S nn$S;)} z
  114.  
  115. [main program including syntactic elements]
  116. { 
  117.   [alfanum]   ( [and] Z<(1(a;L)z jJ><' ''~'Mz(A);>)> [and] ;) a
  118.   [letter]    ( [and] Z<(1(a;L)z jJ>< [or] Z<('A''Z'Mz; J'a''z'Mz; J'_'Ez;>)> [or] (A);>)> [and] ;) b
  119.   [odigit]    ( [and] Z<(1(a;L)z jJ><'0''7'Mz(A);>)> [and] ;) c
  120.   [ddigit]    ( [and] Z<(1(a;L)z jJ><'0''9'Mz(A);>)> [and] ;) d
  121.   [hdigit]    ( [and] Z<(1(a;L)z jJ>< [or] Z<('0''9'Mz; J'A''F'Mz; J'a''f'Mz;>)> [or] (A);>)> [and] ;) e
  122.   [dstring]   (([ITR] Z<@d>:J>;)[ITR] ;) h
  123.   [cconst]    ( [or] Z<('\'Ez@a; J39%Ez@a39%Ez;>)> [or] ;) j
  124.   [iconst]    ( [or] Z<('0'Ez [or] Z<('X'Ez; J'x'Ez;>)> [or] ([ITR] Z<@e>:J>;)[ITR] ; J'0'Ez([ITR] Z<@c>:J>;)[ITR] ; J@d@h;>)> [or] ;) k
  125.   [fconst]    (@h'.'Ez@h [or] Z<( {[OR] ( {[OR] (@h;) \ (Z<('+'Ez@\; J'-'Ez@\; J@\;)>;>)} [OR] ;) \ (Z<('E'Ez@\; J'e'Ez@\;)>;>)} [OR] ; J;>)> [or] ;) l
  126.   [sconst]    (34%Ez([ITR] Z<@a>:J>;)[ITR] 34%Ez;) m
  127.   [constant]  ( [or] Z<(@l; J@k; J@j; J@m;>)> [or] ;) o
  128.   [identifier](@b([ITR] Z< [or] Z<(@b; J@d;>)> [or] >:J>;)[ITR] ;) I
  129.   [aoperator] ( [or] Z<('='Ez; J'+='Ez; J'-='Ez; J'*='Ez; J'/='Ez; J'%='Ez; J'>>='Ez; J'<<='Ez; J'&='Ez; J'^='Ez; J'|='Ez;>)> [or] ;) p
  130.   [boperator] ( [or] Z<('*'Ez; J'/'Ez; J'%'Ez; J'+'Ez; J'-'Ez; J'>>'Ez; J'<<'Ez; J'<='Ez; J'>='Ez; J'<'Ez; J'>'Ez; J'=='Ez; J'!='Ez; J'&&'Ez; J'^'Ez; J'||'Ez; J'&'Ez; J'|'Ez;>)> [or] ;) q
  131.   [uoperator] ( [or] Z<('*'Ez; J'&'Ez; J'-'Ez; J'!'Ez; J'~'Ez; J'sizeof'Ez; J'(typename)'Ez;>)> [or] ;) r
  132.   [lvalue]    ( [or] Z<( [and] Z<(@P jJ><(('['(Fz;Zz<)Z<@E']'Ez(A)>;J>);A:)(A);>)> [and] ; J [and] Z<(@P jJ><(('-'(Fz;Zz<)Z<'>'Ez@I(A)>;J>);A:)(A);>)> [and] ; J [and] Z<(@P jJ><(('.'(Fz;Zz<)Z<@I(A)>;J>);A:)(A);>)> [and] ; J@I; J'*'Ez@A; J'('Ez@L')'Ez;>)> [or] ;) L
  133.   [pexten]    ( [or] Z<('['Ez@E']'Ez; J'('Ez([ITR] Z<@E>:J>;)[ITR] ')'Ez; J'->'Ez@I; J'.'Ez@I;>)> [or] ;) N
  134.   [primary]   ( [or] Z<(@I; J@o; J'('Ez@E')'Ez;>)> [or] ([ITR] Z<@N>:J>;)[ITR] ;) P
  135.   [eroot]     ( [or] Z<('++'Ez@L; J'--'Ez@L; J@L'++'Ez; J@L'--'Ez; J@r@A; J@P;>)> [or] ;) A
  136.   [bnryexpr]  (@A([ITR] Z<@q@A>:J>;)[ITR] ;) B
  137.   [cndlexpr]  (@B [or] Z<('?'Ez@K':'Ez@K; J;>)> [or] ;) K
  138.   [asgnexpr]  ( [or] Z<(@L@p@D; J@K;>)> [or] ;) D
  139.   [expression](@D([ITR] Z<','Ez@D>:J>;)[ITR] ;) E
  140.   [||expr]    (@H([ITR] Z<'||'Ez@H>:J>;)[ITR] ;) G
  141.   [&&expr]    (@J([ITR] Z<'&&'Ez@J>:J>;)[ITR] ;) H
  142.   [|expr]     (@Q([ITR] Z<'|'Ez@Q>:J>;)[ITR] ;) J
  143.   [^expr]     (@S([ITR] Z<'^'Ez@S>:J>;)[ITR] ;) Q
  144.   [&expr]     (@U([ITR] Z<'&'Ez@U>:J>;)[ITR] ;) S
  145.   [== !=]     (@V([ITR] Z< [or] Z<('=='Ez; J'!='Ez;>)> [or] @V>:J>;)[ITR] ;) U
  146.   [comparison](@W([ITR] Z< [or] Z<('<='Ez; J'>='Ez; J'<'Ez; J'>'Ez;>)> [or] @W>:J>;)[ITR] ;) V
  147.   [rotate]    (@X([ITR] Z< [or] Z<('<<'Ez; J'>>'Ez;>)> [or] @X>:J>;)[ITR] ;) W
  148.   [+ -]       (@Y([ITR] Z< [or] Z<('+'Ez; J'-'Ez;>)> [or] @Y>:J>;)[ITR] ;) X
  149.   [* / %]     (@A([ITR] Z< [or] Z<('*'Ez; J'/'Ez; J'%'Ez;>)> [or] @A>:J>;)[ITR] ;) Y
  150.     (0@( {(0@: ;); (  
  151.     @;(J';'EzJZD'done'I;);
  152.     @;(J0@]JZDz<z<0@[@xZ>'C'@%Z>z<'R'@%Z>;):
  153.   ;)} 0@)   nn$S;)} ~
  154. ('i'@%'D'@%'R'@%@~JZqt'c'@%;)  }
  155.  
  156. [end]
  157.