home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / src / icont / tgrammar.c < prev    next >
C/C++ Source or Header  |  2001-12-12  |  10KB  |  240 lines
  1. /*
  2.  * tgrammar.c - includes and macros for building the parse tree
  3.  */
  4.  
  5. #include "../h/define.h"
  6. #include "../common/yacctok.h"
  7.  
  8. %{
  9. /*
  10.  * These commented directives are passed through the first application
  11.  * of cpp, then turned into real includes in tgram.g by fixgram.icn.
  12.  */
  13. /*#include "../h/gsupport.h"*/
  14. /*#include "../h/lexdef.h"*/
  15. /*#include "tproto.h"*/
  16. /*#include "tglobals.h"*/
  17. /*#include "tsym.h"*/
  18. /*#include "tree.h"*/
  19. /*#include "keyword.h"*/
  20. /*#undef YYSTYPE*/
  21. /*#define YYSTYPE nodeptr*/
  22. /*#define YYMAXDEPTH 500*/
  23.  
  24. extern int fncargs[];
  25. int idflag;
  26. int id_cnt;
  27.  
  28. #define EmptyNode tree1(N_Empty)
  29.  
  30. #define Alt(x1,x2,x3)        $$ = tree4(N_Alt,x2,x1,x3)
  31. #define Apply(x1,x2,x3)        $$ = tree4(N_Apply,x2,x1,x3)
  32. #define Arglist1()        id_cnt = 0
  33. #define Arglist2(x)        /* empty */
  34. #define Arglist3(x,y,z)        id_cnt = -id_cnt
  35. #define Bact(x1,x2,x3)        $$ = tree5(N_Activat,x2,x2,x3,x1)
  36. #define Bamper(x1,x2,x3)    $$ = tree5(N_Conj,x2,x2,x1,x3)
  37. #define Bassgn(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  38. #define Baugact(x1,x2,x3)    $$ = tree5(N_Activat,x2,x2,x3,x1)
  39. #define Baugamper(x1,x2,x3)    $$ = tree5(N_Conj,x2,x2,x1,x3)
  40. #define Baugcat(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  41. #define Baugeq(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  42. #define Baugeqv(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  43. #define Baugge(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  44. #define Bauggt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  45. #define Bauglcat(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  46. #define Baugle(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  47. #define Bauglt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  48. #define Baugne(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  49. #define Baugneqv(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  50. #define Baugques(x1,x2,x3)    $$ = tree5(N_Scan,x2,x2,x1,x3)
  51. #define Baugseq(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  52. #define Baugsge(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  53. #define Baugsgt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  54. #define Baugsle(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  55. #define Baugslt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  56. #define Baugsne(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  57. #define Bcaret(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  58. #define Bcareta(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  59. #define Bcat(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  60. #define Bdiff(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  61. #define Bdiffa(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  62. #define Beq(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  63. #define Beqv(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  64. #define Bge(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  65. #define Bgt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  66. #define Binter(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  67. #define Bintera(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  68. #define Blcat(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  69. #define Ble(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  70. #define Blim(x1,x2,x3)        $$ = tree4(N_Limit,x1,x1,x3)
  71. #define Blt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  72. #define Bminus(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  73. #define Bminusa(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  74. #define Bmod(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  75. #define Bmoda(x1,x2,x3)        $$ = tree5(N_Augop,x2,x2,x1,x3)
  76. #define Bne(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  77. #define Bneqv(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  78. #define Bplus(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  79. #define Bplusa(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  80. #define Bques(x1,x2,x3)        $$ = tree5(N_Scan,x2,x2,x1,x3)
  81. #define Brace(x1,x2,x3)        $$ = x2
  82. #define Brack(x1,x2,x3)        $$ = tree3(N_List,x1,x2)
  83. #define Brassgn(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  84. #define Break(x1,x2)        $$ = tree3(N_Break,x1,x2)
  85. #define Brswap(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  86. #define Bseq(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  87. #define Bsge(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  88. #define Bsgt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  89. #define Bslash(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  90. #define Bslasha(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  91. #define Bsle(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  92. #define Bslt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  93. #define Bsne(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  94. #define Bstar(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  95. #define Bstara(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  96. #define Bswap(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  97. #define Bunion(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  98. #define Buniona(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  99. #define Call(x1,x2,x3,x4)    if (Val2(x1) = blocate(Str0(x1))) {\
  100.                                    Val4(x1) = fncargs[Val2(x1)-1]; \
  101.                    $$ = tree4(N_Call,x2,x1,x3);} \
  102.                 else { \
  103.                    Val0(x1) = putloc(Str0(x1),0); \
  104.                    $$ = tree4(N_Invok,x2,x1,x3); \
  105.                    }
  106. #define Case(x1,x2,x3,x4,x5,x6) $$ = tree4(N_Case,x1,x2,x5)
  107. #define Caselist(x1,x2,x3)    $$ = tree4(N_Clist,x2,x1,x3)
  108. #define Cclause0(x1,x2,x3)    $$ = tree4(N_Ccls,x2,x1,x3)
  109. #define Cclause1(x1,x2,x3)    $$ = tree4(N_Ccls,x2,x1,x3)
  110. #define Cliter(x)        Val0(x) = putlit(Str0(x),F_CsetLit,(int)Val1(x))
  111. #define Colon(x)        $$ = x
  112. #define Compound(x1,x2,x3)    $$ = tree4(N_Slist,x2,x1,x3)
  113. #define Create(x1,x2)        $$ = tree3(N_Create,x1,x2)
  114. #define Elst0(x1)        /* empty */
  115. #define Elst1(x1,x2,x3)        $$ = tree4(N_Elist,x2,x1,x3)
  116. #define Every0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  117. #define Every1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4)
  118. #define Fail(x)            $$ = tree4(N_Ret,x,x,EmptyNode)
  119. #define Field(x1,x2,x3)        $$ = tree4(N_Field,x2,x1,x3)
  120. #define Global0(x)        idflag = F_Global
  121. #define Global1(x1,x2,x3)    /* empty */
  122. #define Globdcl(x)        /* empty */
  123. #define Ident(x)        install(Str0(x),idflag,0);\
  124.                 id_cnt = 1
  125. #define Idlist(x1,x2,x3)    install(Str0(x3),idflag,0);\
  126.                 ++id_cnt
  127. #define If0(x1,x2,x3,x4)    $$ = tree5(N_If,x1,x2,x4,EmptyNode)
  128. #define If1(x1,x2,x3,x4,x5,x6)    $$ = tree5(N_If,x1,x2,x4,x6)
  129. #define Iliter(x)        Val0(x) = putlit(Str0(x),F_IntLit,0)
  130. #define Initial1()        $$ = EmptyNode
  131. #define Initial2(x1,x2,x3)    $$ = x2
  132. #define Invocable(x1,x2)    /* empty */
  133. #define Invocdcl(x1)        /* empty */
  134. #define Invoclist(x1,x2,x3)    /* empty */
  135. #define Invocop1(x1)        addinvk(Str0(x1),1)
  136. #define Invocop2(x1)        addinvk(Str0(x1),2)
  137. #define Invocop3(x1,x2,x3)    addinvk(Str0(x1),3)
  138. #define Invoke(x1,x2,x3,x4)    $$ = tree4(N_Invok,x2,x1,x3)
  139. #define Keyword(x1,x2)        if (klookup(Str0(x2)) == 0)\
  140.                    tfatal("invalid keyword",Str0(x2));\
  141.                 $$ = c_str_leaf(N_Key,x1,Str0(x2))
  142. #define Kfail(x1,x2)        $$ = c_str_leaf(N_Key,x1,"fail")
  143. #define Link(x1,x2)        /* empty */
  144. #define Linkdcl(x)        /* empty */
  145. #define Lnkfile1(x)        addlfile(Str0(x))
  146. #define Lnkfile2(x)        addlfile(Str0(x))
  147. #define Lnklist(x1,x2,x3)    /* empty */
  148. #define Local(x)        idflag = F_Dynamic
  149. #define Locals1()        /* empty */
  150. #define Locals2(x1,x2,x3,x4)    /* empty */
  151. #define Mcolon(x)        $$ = x
  152. #define Nexpr()            $$ = EmptyNode
  153. #define Next(x)            $$ = tree2(N_Next,x)
  154. #define Paren(x1,x2,x3)        if ((x2)->n_type == N_Elist)\
  155.                    $$ = tree4(N_Invok,x1,EmptyNode,x2);\
  156.                 else\
  157.                    $$ = x2
  158. #define Pcolon(x)        $$ = x
  159. #define Pdco0(x1,x2,x3)        $$ = tree4(N_Invok,x2,x1,\
  160.                       tree3(N_List,x2,EmptyNode))
  161. #define Pdco1(x1,x2,x3,x4)    $$ = tree4(N_Invok,x2,x1,tree3(N_List,x2,x3))
  162. #define Pdcolist0(x)        $$ = tree3(N_Create,x,x)
  163. #define Pdcolist1(x1,x2,x3)    $$ = tree4(N_Elist,x2,x1,tree3(N_Create,x2,x3))
  164. #define Proc1(x1,x2,x3,x4,x5,x6) $$ = tree6(N_Proc,x1,x1,x4,x5,x6)
  165. #define Procbody1()        $$ = EmptyNode
  166. #define Procbody2(x1,x2,x3)    $$ = tree4(N_Slist,x2,x1,x3)
  167. #define Procdcl(x)        if (!nocode)\
  168.                    codegen(x);\
  169.                 nocode = 0;\
  170.                 loc_init()
  171. #define Prochead1(x1,x2)    idflag = F_Argument
  172. #define Prochead2(x1,x2,x3,x4,x5,x6)\
  173.                 $$ = x2;\
  174.                 install(Str0(x2),F_Proc|F_Global,id_cnt)
  175. #define Progend(x1,x2)        gout(globfile)
  176. #define Recdcl(x)        if (!nocode)\
  177.                    rout(globfile, Str0(x));\
  178.                 nocode = 0;\
  179.                 loc_init()
  180. #define Record1(x1,x2)        idflag = F_Argument
  181. #define Record2(x1,x2,x3,x4,x5,x6) install(Str0(x2),F_Record|F_Global,id_cnt); \
  182.                     $$ = x2
  183. #define Repeat(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  184. #define Return(x1,x2)        $$ = tree4(N_Ret,x1,x1,x2)
  185. #define Rliter(x)        Val0(x) = putlit(Str0(x),F_RealLit,0)
  186. #define Section(x1,x2,x3,x4,x5,x6) $$ = tree6(N_Sect,x4,x4,x1,x3,x5)
  187. #define Sliter(x)        Val0(x) = putlit(Str0(x),F_StrLit,(int)Val1(x))
  188. #define Static(x)        idflag = F_Static
  189. #define Subscript(x1,x2,x3,x4)    $$ = buildarray(x1,x2,x3,x4)
  190. #define Suspend0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  191. #define Suspend1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4)
  192. #define To0(x1,x2,x3)        $$ = tree4(N_To,x2,x1,x3)
  193. #define To1(x1,x2,x3,x4,x5)    $$ = tree5(N_ToBy,x2,x1,x3,x5)
  194. #define Uat(x1,x2)        $$ = tree5(N_Activat,x1,x1,x2,EmptyNode)
  195. #define Ubackslash(x1,x2)    $$ = tree4(N_Unop,x1,x1,x2)
  196. #define Ubang(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  197. #define Ubar(x1,x2)        $$ = tree3(N_Bar,x2,x2)
  198. #define Ucaret(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  199. #define Uconcat(x1,x2)        $$ = tree3(N_Bar,x2,x2)
  200. #define Udiff(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  201. #define Udot(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  202. #define Uequiv(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  203. #define Uinter(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  204. #define Ulconcat(x1,x2)        $$ = tree3(N_Bar,x2,x2)
  205. #define Ulexeq(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  206. #define Ulexne(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  207. #define Uminus(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  208. #define Unot(x1,x2)        $$ = tree3(N_Not,x2,x2)
  209. #define Unotequiv(x1,x2)    $$ = tree4(N_Unop,x1,x1,x2)
  210. #define Until0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  211. #define Until1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4)
  212. #define Unumeq(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  213. #define Unumne(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  214. #define Uplus(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  215. #define Uqmark(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  216. #define Uslash(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  217. #define Ustar(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  218. #define Utilde(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  219. #define Uunion(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  220. #define Var(x)            Val0(x) = putloc(Str0(x),0)
  221. #define While0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  222. #define While1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4)
  223. %}
  224.  
  225. %%
  226. #include "../h/grammar.h"
  227. %%
  228.  
  229. /*
  230.  * xfree(p) -- used with free(p) macro to avoid compiler errors from
  231.  *  miscast free calls generated by Yacc.
  232.  */
  233. static void xfree(p)
  234. char *p;
  235. {
  236.    free(p);
  237. }
  238.  
  239. /*#define free(p) xfree((char*)p)*/
  240.