home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / iconc.sit / gdefs.h < prev    next >
Encoding:
Text File  |  1992-09-19  |  8.4 KB  |  183 lines  |  [TEXT/MPS ]
  1. int idflag;
  2.  
  3. #define EmptyNode tree1(N_Empty) 
  4.  
  5. #define Alt(x1,x2,x3)        $$ = tree4(N_Alt,x2,x1,x3) 
  6. #define Apply(x1,x2,x3)        $$ = tree4(N_Apply,x2,x1,x3) 
  7. #define Arglist1()        /* empty */
  8. #define Arglist2(x)        /* empty */
  9. #define Arglist3(x1,x2,x3)    proc_lst->nargs = -proc_lst->nargs
  10. #define Bact(x1,x2,x3)        $$ = tree5(N_Activat,x2,x2,x1,x3) 
  11. #define Bamper(x1,x2,x3)    $$ = binary_nd(x2,x1,x3) 
  12. #define Bassgn(x1,x2,x3)    $$ = binary_nd(x2,x1,x3) 
  13. #define Baugact(x1,x2,x3)    $$ = tree5(N_Activat,x2,x2,x1,x3) 
  14. #define Baugamper(x1,x2,x3)    $$ = aug_nd(x2,x1,x3) 
  15. #define Baugcat(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  16. #define Baugeq(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  17. #define Baugeqv(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  18. #define Baugge(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  19. #define Bauggt(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  20. #define Bauglcat(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  21. #define Baugle(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  22. #define Bauglt(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  23. #define Baugne(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  24. #define Baugneqv(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  25. #define Baugques(x1,x2,x3)    $$ = tree5(N_Scan,x2,x2,x1,x3) 
  26. #define Baugseq(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  27. #define Baugsge(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  28. #define Baugsgt(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  29. #define Baugsle(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  30. #define Baugslt(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  31. #define Baugsne(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  32. #define Bcaret(x1,x2,x3)    $$ = binary_nd(x2,x1,x3) 
  33. #define Bcareta(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  34. #define Bcat(x1,x2,x3)        $$ = binary_nd(x2,x1,x3) 
  35. #define Bdiff(x1,x2,x3)        $$ = binary_nd(x2,x1,x3) 
  36. #define Bdiffa(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  37. #define Beq(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  38. #define Beqv(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  39. #define Bge(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  40. #define Bgt(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  41. #define Binter(x1,x2,x3)    $$ = binary_nd(x2,x1,x3)
  42. #define Bintera(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  43. #define Blcat(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  44. #define Ble(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  45. #define Blim(x1,x2,x3)        $$ = tree4(N_Limit,x2,x1,x3) 
  46. #define Blt(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  47. #define Bminus(x1,x2,x3)    $$ = binary_nd(x2,x1,x3)
  48. #define Bminusa(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  49. #define Bmod(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  50. #define Bmoda(x1,x2,x3)        $$ = aug_nd(x2,x1,x3)
  51. #define Bne(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  52. #define Bneqv(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  53. #define Bplus(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  54. #define Bplusa(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  55. #define Bques(x1,x2,x3)        $$ = tree5(N_Scan,x2,x2,x1,x3) 
  56. #define Brace(x1,x2,x3)        $$ = x2
  57. #define Brack(x1,x2,x3)        $$ = list_nd(x1,x2) 
  58. #define Brassgn(x1,x2,x3)    $$ = binary_nd(x2,x1,x3)
  59. #define Break(x1,x2)        $$ = tree3(N_Break,x1,x2) 
  60. #define Brswap(x1,x2,x3)    $$ = binary_nd(x2,x1,x3)
  61. #define Bseq(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  62. #define Bsge(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  63. #define Bsgt(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  64. #define Bslash(x1,x2,x3)    $$ = binary_nd(x2,x1,x3)
  65. #define Bslasha(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  66. #define Bsle(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  67. #define Bslt(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  68. #define Bsne(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  69. #define Bstar(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  70. #define Bstara(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  71. #define Bswap(x1,x2,x3)        $$ = binary_nd(x2,x1,x3)
  72. #define Bunion(x1,x2,x3)    $$ = binary_nd(x2,x1,x3)
  73. #define Buniona(x1,x2,x3)    $$ = aug_nd(x2,x1,x3)
  74. #define Case(x1,x2,x3,x4,x5,x6) $$ = case_nd(x1,x2,x5) 
  75. #define Caselist(x1,x2,x3)    $$ = tree4(N_Clist,x2,x1,x3) 
  76. #define Cclause0(x1,x2,x3)    $$ = tree4(N_Ccls,x2,x1,x3) 
  77. #define Cclause1(x1,x2,x3)    $$ = tree4(N_Ccls,x2,x1,x3) 
  78. #define Cliter(x)        CSym0(x) = putlit(Str0(x),F_CsetLit,(int)Val1(x))
  79. #define Colon(x)        $$ = x
  80. #define Compound(x1,x2,x3)    $$ = tree4(N_Slist,x2,x1,x3) 
  81. #define Create(x1,x2)        $$ = tree3(N_Create,x1,x2);\
  82.                  proc_lst->has_coexpr = 1;
  83. #define Dynamic(x)        idflag = F_Dynamic
  84. #define Elst0(x)                $$ = x;
  85. #define Elst1(x1,x2,x3)            $$ = tree4(N_Elist,x2,x1,x3);
  86. #define Every0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  87. #define Every1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  88. #define Fail(x)            $$ = tree4(N_Ret,x,x,EmptyNode) 
  89. #define Field(x1,x2,x3)        $$ = tree4(N_Field,x2,x1,x3) 
  90. #define Global0(x)        idflag = F_Global
  91. #define Global1(x1,x2,x3)    /* empty */
  92. #define Globdcl(x)        /* empty */
  93. #define Ident(x)        install(Str0(x),idflag)
  94. #define Idlist(x1,x2,x3)    install(Str0(x3),idflag)
  95. #define If0(x1,x2,x3,x4)    $$ = tree5(N_If,x1,x2,x4,EmptyNode) 
  96. #define If1(x1,x2,x3,x4,x5,x6)    $$ = tree5(N_If,x1,x2,x4,x6) 
  97. #define Iliter(x)        CSym0(x) = putlit(Str0(x),F_IntLit,0)
  98. #define Initial1()        $$ = EmptyNode
  99. #define Initial2(x1,x2,x3)    $$ = x2
  100. #define Invocdcl(x)             /* empty */
  101. #define Invocable(x1,x2)        /* empty */
  102. #define Invoclist(x1,x2, x3)    /* empty */
  103. #define Invocop1(x)             invoc_grp(Str0(x));
  104. #define Invocop2(x)             invocbl(x, -1);
  105. #define Invocop3(x1,x2,x3)      invocbl(x1, atoi(Str0(x3)));
  106. #define Invoke(x1,x2,x3,x4)    $$ = invk_nd(x2,x1,x3)
  107. #define Keyword(x1,x2)        $$ = key_leaf(x1,Str0(x2))
  108. #define Kfail(x1,x2)        $$ = key_leaf(x1,spec_str("fail")) 
  109. #define Link(x1,x2)        /* empty */
  110. #define Linkdcl(x)        /* empty */
  111. #define Lnkfile1(x)        lnkdcl(Str0(x));
  112. #define Lnkfile2(x)        lnkdcl(Str0(x));
  113. #define Lnklist(x1,x2,x3)    /* empty */
  114. #define Local(x)        idflag = F_Dynamic
  115. #define Locals1()        /* empty */
  116. #define Locals2(x1,x2,x3,x4)    /* empty */
  117. #define Mcolon(x)        $$ = x
  118. #define Nexpr()            $$ = EmptyNode
  119. #define Next(x)            $$ = tree2(N_Next,x) 
  120. #define Paren(x1,x2,x3)        if ((x2)->n_type == N_Elist)\
  121.                                    $$ = invk_nd(x1,EmptyNode,x2);\
  122.                  else\
  123.                     $$ = x2
  124. #define Pcolon(x)        $$ = x
  125. #define Pdco0(x1,x2,x3)        $$ = invk_nd(x2,x1,list_nd(x2,EmptyNode))
  126. #define Pdco1(x1,x2,x3,x4)    $$ = invk_nd(x2,x1,list_nd(x2,x3)) 
  127. #define Pdcolist0(x)        $$ = tree3(N_Create,x,x);\
  128.                  proc_lst->has_coexpr = 1;
  129. #define Pdcolist1(x1,x2,x3)    $$ =tree4(N_Elist,x2,x1,tree3(N_Create,x2,x3));\
  130.                  proc_lst->has_coexpr = 1;
  131. #define Proc1(x1,x2,x3,x4,x5,x6) $$ = tree6(N_Proc,x1,x1,x4,x5,x6)
  132. #define Procbody1()        $$ = EmptyNode
  133. #define Procbody2(x1,x2,x3)    $$ = tree4(N_Slist,x2,x1,x3) 
  134. #define Procdcl(x)        proc_lst->tree = x
  135. #define Prochead1(x1,x2)    init_proc(Str0(x2));\
  136.                 idflag = F_Argument
  137. #define Prochead2(x1,x2,x3,x4,x5,x6) /* empty */
  138. #define Progend(x1,x2)        /* empty */
  139. #define Recdcl(x)        /* empty */
  140. #define Record1(x1, x2)        init_rec(Str0(x2));\
  141.                                 idflag = F_Field
  142. #define Record2(x1,x2,x3,x4,x5,x6) /* empty */
  143. #define Repeat(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  144. #define Return(x1,x2)        $$ = tree4(N_Ret,x1,x1,x2) 
  145. #define Rliter(x)        CSym0(x) = putlit(Str0(x),F_RealLit,0)
  146. #define Section(x1,x2,x3,x4,x5,x6) $$ = sect_nd(x4,x1,x3,x5) 
  147. #define Sliter(x)        CSym0(x) = putlit(Str0(x),F_StrLit,(int)Val1(x))
  148. #define Static(x)        idflag = F_Static
  149. #define Subscript(x1,x2,x3,x4)    $$ = buildarray(x1,x2,x3)
  150. #define Suspend0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  151. #define Suspend1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  152. #define To0(x1,x2,x3)        $$ = to_nd(x2,x1,x3) 
  153. #define To1(x1,x2,x3,x4,x5)    $$ = toby_nd(x2,x1,x3,x5) 
  154. #define Uat(x1,x2)        $$ = tree5(N_Activat,x1,x1,EmptyNode,x2) 
  155. #define Ubackslash(x1,x2)    $$ = unary_nd(x1,x2)
  156. #define Ubang(x1,x2)        $$ = unary_nd(x1,x2)
  157. #define Ubar(x1,x2)        $$ = tree3(N_Bar,x2,x2) 
  158. #define Ucaret(x1,x2)        $$ = unary_nd(x1,x2)
  159. #define Uconcat(x1,x2)        $$ = tree3(N_Bar,x2,x2) 
  160. #define Udiff(x1,x2)        $$ = MultiUnary(x1,x2)
  161. #define Udot(x1,x2)        $$ = unary_nd(x1,x2)
  162. #define Uequiv(x1,x2)        $$ = MultiUnary(x1,x2)
  163. #define Uinter(x1,x2)        $$ = MultiUnary(x1,x2)
  164. #define Ulconcat(x1,x2)        $$ = tree3(N_Bar,x2,x2) 
  165. #define Ulexeq(x1,x2)        $$ = MultiUnary(x1,x2)
  166. #define Ulexne(x1,x2)        $$ = MultiUnary(x1,x2)
  167. #define Uminus(x1,x2)        $$ = unary_nd(x1,x2)
  168. #define Unot(x1,x2)        $$ = tree3(N_Not,x2,x2) 
  169. #define Unotequiv(x1,x2)    $$ = MultiUnary(x1,x2)
  170. #define Until0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  171. #define Until1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  172. #define Unumeq(x1,x2)        $$ = unary_nd(x1,x2)
  173. #define Unumne(x1,x2)        $$ = MultiUnary(x1,x2)
  174. #define Uplus(x1,x2)        $$ = unary_nd(x1,x2)
  175. #define Uqmark(x1,x2)        $$ = unary_nd(x1,x2)
  176. #define Uslash(x1,x2)        $$ = unary_nd(x1,x2)
  177. #define Ustar(x1,x2)        $$ = unary_nd(x1,x2)
  178. #define Utilde(x1,x2)        $$ = unary_nd(x1,x2)
  179. #define Uunion(x1,x2)        $$ = MultiUnary(x1,x2)
  180. #define Var(x)            LSym0(x) = putloc(Str0(x),0)
  181. #define While0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  182. #define While1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  183.