WebSVN – tendra.SVN – Diff – /branches/tendra5/src/utilities/make_tdf/syntax.c



/*
 * Automatically generated from the files:
 *	syntax.sid
 * and
 *	syntax.act
 * by:
 *	sid
 */
 
/* BEGINNING OF HEADER */

 
 
 
/* BEGINNING OF FUNCTION DECLARATIONS */
 
static void ZRlink_Hpack(SID_LINK_LIST *);
static void ZRparam_Hlist(SID_PARAM_LIST *);
static void ZRclist_Hitem(void);
static void ZRslist_Hpack(void);
static void ZRedge_Hlist(void);
static void ZRkind_Hitem(LINKAGE *);
static void ZRoption_Hlist(void);
static void ZR139(CONSTRUCT *);
static void ZRold_Hsort_Hname(SORT *);
static void ZR140(CONSTRUCT *);
static void ZR141(CONSTRUCT *);
static void ZRclist_Hlist(void);
static void ZRlink_Hitem(LINKAGE *);
static void ZRslist_Hitem(void);
static void ZRkind_Hlist(SID_LINK_LIST *);
static void ZRnew_Hsort_Hname(SORT *);
static void ZRsort_Hpack(void);
static void ZRany_Hname(string *);
static void ZRlink_Hlist(SID_LINK_LIST *);
static void ZRslist_Hlist(void);
static void ZRsort_Hitem(void);
static void ZRsort_Hlist(void);
static void ZRconstruct_Hpack(SORT, SID_CONS_LIST *);
static void ZRconstruct_Hextra(CONSTRUCT);
static void ZRboundary_Hitem(CONSTRUCT);
static void ZRconstruct_Hitem(SORT, CONSTRUCT *);
static void ZRconstruct_Hlist(SORT, SID_CONS_LIST *);
static void ZRparam_Hpack(SID_PARAM_LIST *);
static void ZRedge_Hpack(void);
extern void read_spec(SPECIFICATION *);
static void ZRoption_Hpack(void);
static void ZRclist_Hpack(void);
static void ZRparam_Hitem(PARAMETER *);
static void ZRedge_Hitem(void);
static void ZRkind_Hpack(SID_LINK_LIST *);
static void ZRnumber_Hlist(CONSTRUCT);
static void ZRoption_Hitem(void);
 
/* BEGINNING OF STATIC VARIABLES */
 
 
/* BEGINNING OF FUNCTION DEFINITIONS */
 
static void
 
ZRlink_Hpack(SID_LINK_LIST *ZOp)
{
    SID_LINK_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
 
ZRparam_Hlist(SID_PARAM_LIST *ZOp)
{
    SID_PARAM_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
ZRclist_Hitem(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRslist_Hpack(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRedge_Hlist(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
  ZL2_edge_Hlist:;

    SAVE_LEXER (32);
    return;
}
 
static void
ZRkind_Hitem(LINKAGE *ZOa)
 
{
    LINKAGE ZIa;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOa = ZIa;
}
 
static void
ZRoption_Hlist(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
  ZL2_option_Hlist:;

    SAVE_LEXER (32);
    return;
}
 
static void
 
ZR139(CONSTRUCT *ZIc)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRold_Hsort_Hname(SORT *ZOs)
 
{
    SORT ZIs;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOs = ZIs;
}
 
static void
 
ZR140(CONSTRUCT *ZIc)
{
    switch (CURRENT_TERMINAL) {
      case 3:
	{
	    ADVANCE_LEXER;

    SAVE_LEXER (32);
    return;
}
 
static void
 
ZR141(CONSTRUCT *ZIc)
{
    switch (CURRENT_TERMINAL) {
      case 29:
	{
	    ADVANCE_LEXER;

    SAVE_LEXER (32);
    return;
}
 
static void
ZRclist_Hlist(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
  ZL2_clist_Hlist:;

    SAVE_LEXER (32);
    return;
}
 
static void
ZRlink_Hitem(LINKAGE *ZOa)
 
{
    LINKAGE ZIa;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOa = ZIa;
}
 
static void
ZRslist_Hitem(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
 
ZRkind_Hlist(SID_LINK_LIST *ZOp)
{
    SID_LINK_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
ZRnew_Hsort_Hname(SORT *ZOs)
 
{
    SORT ZIs;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOs = ZIs;
}
 
static void
ZRsort_Hpack(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRany_Hname(string *ZOn)
 
{
    string ZIn;
 
    switch (CURRENT_TERMINAL) {
      case 0:

  ZL0:;
    *ZOn = ZIn;
}
 
static void
 
ZRlink_Hlist(SID_LINK_LIST *ZOp)
{
    SID_LINK_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
ZRslist_Hlist(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
  ZL2_slist_Hlist:;

    SAVE_LEXER (32);
    return;
}
 
static void
ZRsort_Hitem(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRsort_Hlist(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
  ZL2_sort_Hlist:;

    SAVE_LEXER (32);
    return;
}
 
static void
 
ZRconstruct_Hpack(SORT ZIs, SID_CONS_LIST *ZOp)
{
    SID_CONS_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
ZRconstruct_Hextra(CONSTRUCT ZIc)
 
{
    switch (CURRENT_TERMINAL) {
      case 29:
	{
	    ADVANCE_LEXER;

    SAVE_LEXER (32);
    return;
}
 
static void
ZRboundary_Hitem(CONSTRUCT ZIc)
 
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
 
ZRconstruct_Hitem(SORT ZIs, CONSTRUCT *ZOc)
{
    CONSTRUCT ZIc;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOc = ZIc;
}
 
static void
 
ZRconstruct_Hlist(SORT ZIs, SID_CONS_LIST *ZOp)
{
    SID_CONS_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
 
ZRparam_Hpack(SID_PARAM_LIST *ZOp)
{
    SID_PARAM_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
ZRedge_Hpack(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
void
 
read_spec(SPECIFICATION *ZOspec)
{
    SPECIFICATION ZIspec;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOspec = ZIspec;
}
 
static void
ZRoption_Hpack(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRclist_Hpack(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
ZRparam_Hitem(PARAMETER *ZOa)
 
{
    PARAMETER ZIa;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOa = ZIa;
}
 
static void
ZRedge_Hitem(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

    SAVE_LEXER (32);
    return;
}
 
static void
 
ZRkind_Hpack(SID_LINK_LIST *ZOp)
{
    SID_LINK_LIST ZIp;
 
    if ((CURRENT_TERMINAL) == 32) {
	return;

  ZL0:;
    *ZOp = ZIp;
}
 
static void
ZRnumber_Hlist(CONSTRUCT ZIc)
 
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
  ZL2_number_Hlist:;

    SAVE_LEXER (32);
    return;
}
 
static void
ZRoption_Hitem(void)
{
    if ((CURRENT_TERMINAL) == 32) {
	return;
    }
    {

Rev 5	Rev 6
Line 1...	Line 1...
1	`/*`	1	`/*`
2	`* Automatically generated from the files:`	2	`* Automatically generated from the files:`
3	`* /u/g/release/Source/src/utilities/make_tdf/syntax.sid`	3	`* syntax.sid`
4	`* and`	4	`* and`
5	`* /u/g/release/Source/src/utilities/make_tdf/syntax.act`	5	`* syntax.act`
6	`* by:`	6	`* by:`
7	`* sid`	7	`* sid`
8	`*/`	8	`*/`
9		9
10	`/* BEGINNING OF HEADER */`	10	`/* BEGINNING OF HEADER */`
Line 85...	Line 85...
85		85
86		86
87		87
88	`/* BEGINNING OF FUNCTION DECLARATIONS */`	88	`/* BEGINNING OF FUNCTION DECLARATIONS */`
89		89
90	`static void ZRlink_Hpack PROTO_S ((SID_LINK_LIST *));`	90	`static void ZRlink_Hpack(SID_LINK_LIST *);`
91	`static void ZRparam_Hlist PROTO_S ((SID_PARAM_LIST *));`	91	`static void ZRparam_Hlist(SID_PARAM_LIST *);`
92	`static void ZRclist_Hitem PROTO_S ((void));`	92	`static void ZRclist_Hitem(void);`
93	`static void ZRslist_Hpack PROTO_S ((void));`	93	`static void ZRslist_Hpack(void);`
94	`static void ZRedge_Hlist PROTO_S ((void));`	94	`static void ZRedge_Hlist(void);`
95	`static void ZRkind_Hitem PROTO_S ((LINKAGE *));`	95	`static void ZRkind_Hitem(LINKAGE *);`
96	`static void ZRoption_Hlist PROTO_S ((void));`	96	`static void ZRoption_Hlist(void);`
97	`static void ZR139 PROTO_S ((CONSTRUCT *));`	97	`static void ZR139(CONSTRUCT *);`
98	`static void ZRold_Hsort_Hname PROTO_S ((SORT *));`	98	`static void ZRold_Hsort_Hname(SORT *);`
99	`static void ZR140 PROTO_S ((CONSTRUCT *));`	99	`static void ZR140(CONSTRUCT *);`
100	`static void ZR141 PROTO_S ((CONSTRUCT *));`	100	`static void ZR141(CONSTRUCT *);`
101	`static void ZRclist_Hlist PROTO_S ((void));`	101	`static void ZRclist_Hlist(void);`
102	`static void ZRlink_Hitem PROTO_S ((LINKAGE *));`	102	`static void ZRlink_Hitem(LINKAGE *);`
103	`static void ZRslist_Hitem PROTO_S ((void));`	103	`static void ZRslist_Hitem(void);`
104	`static void ZRkind_Hlist PROTO_S ((SID_LINK_LIST *));`	104	`static void ZRkind_Hlist(SID_LINK_LIST *);`
105	`static void ZRnew_Hsort_Hname PROTO_S ((SORT *));`	105	`static void ZRnew_Hsort_Hname(SORT *);`
106	`static void ZRsort_Hpack PROTO_S ((void));`	106	`static void ZRsort_Hpack(void);`
107	`static void ZRany_Hname PROTO_S ((string *));`	107	`static void ZRany_Hname(string *);`
108	`static void ZRlink_Hlist PROTO_S ((SID_LINK_LIST *));`	108	`static void ZRlink_Hlist(SID_LINK_LIST *);`
109	`static void ZRslist_Hlist PROTO_S ((void));`	109	`static void ZRslist_Hlist(void);`
110	`static void ZRsort_Hitem PROTO_S ((void));`	110	`static void ZRsort_Hitem(void);`
111	`static void ZRsort_Hlist PROTO_S ((void));`	111	`static void ZRsort_Hlist(void);`
112	`static void ZRconstruct_Hpack PROTO_S ((SORT, SID_CONS_LIST *));`	112	`static void ZRconstruct_Hpack(SORT, SID_CONS_LIST *);`
113	`static void ZRconstruct_Hextra PROTO_S ((CONSTRUCT));`	113	`static void ZRconstruct_Hextra(CONSTRUCT);`
114	`static void ZRboundary_Hitem PROTO_S ((CONSTRUCT));`	114	`static void ZRboundary_Hitem(CONSTRUCT);`
115	`static void ZRconstruct_Hitem PROTO_S ((SORT, CONSTRUCT *));`	115	`static void ZRconstruct_Hitem(SORT, CONSTRUCT *);`
116	`static void ZRconstruct_Hlist PROTO_S ((SORT, SID_CONS_LIST *));`	116	`static void ZRconstruct_Hlist(SORT, SID_CONS_LIST *);`
117	`static void ZRparam_Hpack PROTO_S ((SID_PARAM_LIST *));`	117	`static void ZRparam_Hpack(SID_PARAM_LIST *);`
118	`static void ZRedge_Hpack PROTO_S ((void));`	118	`static void ZRedge_Hpack(void);`
119	`extern void read_spec PROTO_S ((SPECIFICATION *));`	119	`extern void read_spec(SPECIFICATION *);`
120	`static void ZRoption_Hpack PROTO_S ((void));`	120	`static void ZRoption_Hpack(void);`
121	`static void ZRclist_Hpack PROTO_S ((void));`	121	`static void ZRclist_Hpack(void);`
122	`static void ZRparam_Hitem PROTO_S ((PARAMETER *));`	122	`static void ZRparam_Hitem(PARAMETER *);`
123	`static void ZRedge_Hitem PROTO_S ((void));`	123	`static void ZRedge_Hitem(void);`
124	`static void ZRkind_Hpack PROTO_S ((SID_LINK_LIST *));`	124	`static void ZRkind_Hpack(SID_LINK_LIST *);`
125	`static void ZRnumber_Hlist PROTO_S ((CONSTRUCT));`	125	`static void ZRnumber_Hlist(CONSTRUCT);`
126	`static void ZRoption_Hitem PROTO_S ((void));`	126	`static void ZRoption_Hitem(void);`
127		127
128	`/* BEGINNING OF STATIC VARIABLES */`	128	`/* BEGINNING OF STATIC VARIABLES */`
129		129
130		130
131	`/* BEGINNING OF FUNCTION DEFINITIONS */`	131	`/* BEGINNING OF FUNCTION DEFINITIONS */`
132		132
133	`static void`	133	`static void`
134	`ZRlink_Hpack PROTO_N ((ZOp))`	-
135	`PROTO_T (SID_LINK_LIST *ZOp)`	134	`ZRlink_Hpack(SID_LINK_LIST *ZOp)`
136	`{`	135	`{`
137	`SID_LINK_LIST ZIp;`	136	`SID_LINK_LIST ZIp;`
138		137
139	`if ((CURRENT_TERMINAL) == 32) {`	138	`if ((CURRENT_TERMINAL) == 32) {`
140	`return;`	139	`return;`
Line 186...	Line 185...
186	`ZL0:;`	185	`ZL0:;`
187	`*ZOp = ZIp;`	186	`*ZOp = ZIp;`
188	`}`	187	`}`
189		188
190	`static void`	189	`static void`
191	`ZRparam_Hlist PROTO_N ((ZOp))`	-
192	`PROTO_T (SID_PARAM_LIST *ZOp)`	190	`ZRparam_Hlist(SID_PARAM_LIST *ZOp)`
193	`{`	191	`{`
194	`SID_PARAM_LIST ZIp;`	192	`SID_PARAM_LIST ZIp;`
195		193
196	`if ((CURRENT_TERMINAL) == 32) {`	194	`if ((CURRENT_TERMINAL) == 32) {`
197	`return;`	195	`return;`
Line 238...	Line 236...
238	`ZL0:;`	236	`ZL0:;`
239	`*ZOp = ZIp;`	237	`*ZOp = ZIp;`
240	`}`	238	`}`
241		239
242	`static void`	240	`static void`
243	`ZRclist_Hitem PROTO_Z ()`	241	`ZRclist_Hitem(void)`
244	`{`	242	`{`
245	`if ((CURRENT_TERMINAL) == 32) {`	243	`if ((CURRENT_TERMINAL) == 32) {`
246	`return;`	244	`return;`
247	`}`	245	`}`
248	`{`	246	`{`
Line 263...	Line 261...
263	`SAVE_LEXER (32);`	261	`SAVE_LEXER (32);`
264	`return;`	262	`return;`
265	`}`	263	`}`
266		264
267	`static void`	265	`static void`
268	`ZRslist_Hpack PROTO_Z ()`	266	`ZRslist_Hpack(void)`
269	`{`	267	`{`
270	`if ((CURRENT_TERMINAL) == 32) {`	268	`if ((CURRENT_TERMINAL) == 32) {`
271	`return;`	269	`return;`
272	`}`	270	`}`
273	`{`	271	`{`
Line 306...	Line 304...
306	`SAVE_LEXER (32);`	304	`SAVE_LEXER (32);`
307	`return;`	305	`return;`
308	`}`	306	`}`
309		307
310	`static void`	308	`static void`
311	`ZRedge_Hlist PROTO_Z ()`	309	`ZRedge_Hlist(void)`
312	`{`	310	`{`
313	`if ((CURRENT_TERMINAL) == 32) {`	311	`if ((CURRENT_TERMINAL) == 32) {`
314	`return;`	312	`return;`
315	`}`	313	`}`
316	`ZL2_edge_Hlist:;`	314	`ZL2_edge_Hlist:;`
Line 351...	Line 349...
351	`SAVE_LEXER (32);`	349	`SAVE_LEXER (32);`
352	`return;`	350	`return;`
353	`}`	351	`}`
354		352
355	`static void`	353	`static void`
356	`ZRkind_Hitem PROTO_N ((ZOa))`	354	`ZRkind_Hitem(LINKAGE *ZOa)`
357	`PROTO_T (LINKAGE *ZOa)`	-
358	`{`	355	`{`
359	`LINKAGE ZIa;`	356	`LINKAGE ZIa;`
360		357
361	`if ((CURRENT_TERMINAL) == 32) {`	358	`if ((CURRENT_TERMINAL) == 32) {`
362	`return;`	359	`return;`
Line 449...	Line 446...
449	`ZL0:;`	446	`ZL0:;`
450	`*ZOa = ZIa;`	447	`*ZOa = ZIa;`
451	`}`	448	`}`
452		449
453	`static void`	450	`static void`
454	`ZRoption_Hlist PROTO_Z ()`	451	`ZRoption_Hlist(void)`
455	`{`	452	`{`
456	`if ((CURRENT_TERMINAL) == 32) {`	453	`if ((CURRENT_TERMINAL) == 32) {`
457	`return;`	454	`return;`
458	`}`	455	`}`
459	`ZL2_option_Hlist:;`	456	`ZL2_option_Hlist:;`
Line 480...	Line 477...
480	`SAVE_LEXER (32);`	477	`SAVE_LEXER (32);`
481	`return;`	478	`return;`
482	`}`	479	`}`
483		480
484	`static void`	481	`static void`
485	`ZR139 PROTO_N ((ZIc))`	-
486	`PROTO_T (CONSTRUCT *ZIc)`	482	`ZR139(CONSTRUCT *ZIc)`
487	`{`	483	`{`
488	`if ((CURRENT_TERMINAL) == 32) {`	484	`if ((CURRENT_TERMINAL) == 32) {`
489	`return;`	485	`return;`
490	`}`	486	`}`
491	`{`	487	`{`
Line 507...	Line 503...
507	`SAVE_LEXER (32);`	503	`SAVE_LEXER (32);`
508	`return;`	504	`return;`
509	`}`	505	`}`
510		506
511	`static void`	507	`static void`
512	`ZRold_Hsort_Hname PROTO_N ((ZOs))`	508	`ZRold_Hsort_Hname(SORT *ZOs)`
513	`PROTO_T (SORT *ZOs)`	-
514	`{`	509	`{`
515	`SORT ZIs;`	510	`SORT ZIs;`
516		511
517	`if ((CURRENT_TERMINAL) == 32) {`	512	`if ((CURRENT_TERMINAL) == 32) {`
518	`return;`	513	`return;`
Line 543...	Line 538...
543	`ZL0:;`	538	`ZL0:;`
544	`*ZOs = ZIs;`	539	`*ZOs = ZIs;`
545	`}`	540	`}`
546		541
547	`static void`	542	`static void`
548	`ZR140 PROTO_N ((ZIc))`	-
549	`PROTO_T (CONSTRUCT *ZIc)`	543	`ZR140(CONSTRUCT *ZIc)`
550	`{`	544	`{`
551	`switch (CURRENT_TERMINAL) {`	545	`switch (CURRENT_TERMINAL) {`
552	`case 3:`	546	`case 3:`
553	`{`	547	`{`
554	`ADVANCE_LEXER;`	548	`ADVANCE_LEXER;`
Line 638...	Line 632...
638	`SAVE_LEXER (32);`	632	`SAVE_LEXER (32);`
639	`return;`	633	`return;`
640	`}`	634	`}`
641		635
642	`static void`	636	`static void`
643	`ZR141 PROTO_N ((ZIc))`	-
644	`PROTO_T (CONSTRUCT *ZIc)`	637	`ZR141(CONSTRUCT *ZIc)`
645	`{`	638	`{`
646	`switch (CURRENT_TERMINAL) {`	639	`switch (CURRENT_TERMINAL) {`
647	`case 29:`	640	`case 29:`
648	`{`	641	`{`
649	`ADVANCE_LEXER;`	642	`ADVANCE_LEXER;`
Line 664...	Line 657...
664	`SAVE_LEXER (32);`	657	`SAVE_LEXER (32);`
665	`return;`	658	`return;`
666	`}`	659	`}`
667		660
668	`static void`	661	`static void`
669	`ZRclist_Hlist PROTO_Z ()`	662	`ZRclist_Hlist(void)`
670	`{`	663	`{`
671	`if ((CURRENT_TERMINAL) == 32) {`	664	`if ((CURRENT_TERMINAL) == 32) {`
672	`return;`	665	`return;`
673	`}`	666	`}`
674	`ZL2_clist_Hlist:;`	667	`ZL2_clist_Hlist:;`
Line 695...	Line 688...
695	`SAVE_LEXER (32);`	688	`SAVE_LEXER (32);`
696	`return;`	689	`return;`
697	`}`	690	`}`
698		691
699	`static void`	692	`static void`
700	`ZRlink_Hitem PROTO_N ((ZOa))`	693	`ZRlink_Hitem(LINKAGE *ZOa)`
701	`PROTO_T (LINKAGE *ZOa)`	-
702	`{`	694	`{`
703	`LINKAGE ZIa;`	695	`LINKAGE ZIa;`
704		696
705	`if ((CURRENT_TERMINAL) == 32) {`	697	`if ((CURRENT_TERMINAL) == 32) {`
706	`return;`	698	`return;`
Line 793...	Line 785...
793	`ZL0:;`	785	`ZL0:;`
794	`*ZOa = ZIa;`	786	`*ZOa = ZIa;`
795	`}`	787	`}`
796		788
797	`static void`	789	`static void`
798	`ZRslist_Hitem PROTO_Z ()`	790	`ZRslist_Hitem(void)`
799	`{`	791	`{`
800	`if ((CURRENT_TERMINAL) == 32) {`	792	`if ((CURRENT_TERMINAL) == 32) {`
801	`return;`	793	`return;`
802	`}`	794	`}`
803	`{`	795	`{`
Line 818...	Line 810...
818	`SAVE_LEXER (32);`	810	`SAVE_LEXER (32);`
819	`return;`	811	`return;`
820	`}`	812	`}`
821		813
822	`static void`	814	`static void`
823	`ZRkind_Hlist PROTO_N ((ZOp))`	-
824	`PROTO_T (SID_LINK_LIST *ZOp)`	815	`ZRkind_Hlist(SID_LINK_LIST *ZOp)`
825	`{`	816	`{`
826	`SID_LINK_LIST ZIp;`	817	`SID_LINK_LIST ZIp;`
827		818
828	`if ((CURRENT_TERMINAL) == 32) {`	819	`if ((CURRENT_TERMINAL) == 32) {`
829	`return;`	820	`return;`
Line 884...	Line 875...
884	`ZL0:;`	875	`ZL0:;`
885	`*ZOp = ZIp;`	876	`*ZOp = ZIp;`
886	`}`	877	`}`
887		878
888	`static void`	879	`static void`
889	`ZRnew_Hsort_Hname PROTO_N ((ZOs))`	880	`ZRnew_Hsort_Hname(SORT *ZOs)`
890	`PROTO_T (SORT *ZOs)`	-
891	`{`	881	`{`
892	`SORT ZIs;`	882	`SORT ZIs;`
893		883
894	`if ((CURRENT_TERMINAL) == 32) {`	884	`if ((CURRENT_TERMINAL) == 32) {`
895	`return;`	885	`return;`
Line 920...	Line 910...
920	`ZL0:;`	910	`ZL0:;`
921	`*ZOs = ZIs;`	911	`*ZOs = ZIs;`
922	`}`	912	`}`
923		913
924	`static void`	914	`static void`
925	`ZRsort_Hpack PROTO_Z ()`	915	`ZRsort_Hpack(void)`
926	`{`	916	`{`
927	`if ((CURRENT_TERMINAL) == 32) {`	917	`if ((CURRENT_TERMINAL) == 32) {`
928	`return;`	918	`return;`
929	`}`	919	`}`
930	`{`	920	`{`
Line 963...	Line 953...
963	`SAVE_LEXER (32);`	953	`SAVE_LEXER (32);`
964	`return;`	954	`return;`
965	`}`	955	`}`
966		956
967	`static void`	957	`static void`
968	`ZRany_Hname PROTO_N ((ZOn))`	958	`ZRany_Hname(string *ZOn)`
969	`PROTO_T (string *ZOn)`	-
970	`{`	959	`{`
971	`string ZIn;`	960	`string ZIn;`
972		961
973	`switch (CURRENT_TERMINAL) {`	962	`switch (CURRENT_TERMINAL) {`
974	`case 0:`	963	`case 0:`
Line 1135...	Line 1124...
1135	`ZL0:;`	1124	`ZL0:;`
1136	`*ZOn = ZIn;`	1125	`*ZOn = ZIn;`
1137	`}`	1126	`}`
1138		1127
1139	`static void`	1128	`static void`
1140	`ZRlink_Hlist PROTO_N ((ZOp))`	-
1141	`PROTO_T (SID_LINK_LIST *ZOp)`	1129	`ZRlink_Hlist(SID_LINK_LIST *ZOp)`
1142	`{`	1130	`{`
1143	`SID_LINK_LIST ZIp;`	1131	`SID_LINK_LIST ZIp;`
1144		1132
1145	`if ((CURRENT_TERMINAL) == 32) {`	1133	`if ((CURRENT_TERMINAL) == 32) {`
1146	`return;`	1134	`return;`
Line 1201...	Line 1189...
1201	`ZL0:;`	1189	`ZL0:;`
1202	`*ZOp = ZIp;`	1190	`*ZOp = ZIp;`
1203	`}`	1191	`}`
1204		1192
1205	`static void`	1193	`static void`
1206	`ZRslist_Hlist PROTO_Z ()`	1194	`ZRslist_Hlist(void)`
1207	`{`	1195	`{`
1208	`if ((CURRENT_TERMINAL) == 32) {`	1196	`if ((CURRENT_TERMINAL) == 32) {`
1209	`return;`	1197	`return;`
1210	`}`	1198	`}`
1211	`ZL2_slist_Hlist:;`	1199	`ZL2_slist_Hlist:;`
Line 1232...	Line 1220...
1232	`SAVE_LEXER (32);`	1220	`SAVE_LEXER (32);`
1233	`return;`	1221	`return;`
1234	`}`	1222	`}`
1235		1223
1236	`static void`	1224	`static void`
1237	`ZRsort_Hitem PROTO_Z ()`	1225	`ZRsort_Hitem(void)`
1238	`{`	1226	`{`
1239	`if ((CURRENT_TERMINAL) == 32) {`	1227	`if ((CURRENT_TERMINAL) == 32) {`
1240	`return;`	1228	`return;`
1241	`}`	1229	`}`
1242	`{`	1230	`{`
Line 1418...	Line 1406...
1418	`SAVE_LEXER (32);`	1406	`SAVE_LEXER (32);`
1419	`return;`	1407	`return;`
1420	`}`	1408	`}`
1421		1409
1422	`static void`	1410	`static void`
1423	`ZRsort_Hlist PROTO_Z ()`	1411	`ZRsort_Hlist(void)`
1424	`{`	1412	`{`
1425	`if ((CURRENT_TERMINAL) == 32) {`	1413	`if ((CURRENT_TERMINAL) == 32) {`
1426	`return;`	1414	`return;`
1427	`}`	1415	`}`
1428	`ZL2_sort_Hlist:;`	1416	`ZL2_sort_Hlist:;`
Line 1463...	Line 1451...
1463	`SAVE_LEXER (32);`	1451	`SAVE_LEXER (32);`
1464	`return;`	1452	`return;`
1465	`}`	1453	`}`
1466		1454
1467	`static void`	1455	`static void`
1468	`ZRconstruct_Hpack PROTO_N ((ZIs, ZOp))`	-
1469	`PROTO_T (SORT ZIs X SID_CONS_LIST *ZOp)`	1456	`ZRconstruct_Hpack(SORT ZIs, SID_CONS_LIST *ZOp)`
1470	`{`	1457	`{`
1471	`SID_CONS_LIST ZIp;`	1458	`SID_CONS_LIST ZIp;`
1472		1459
1473	`if ((CURRENT_TERMINAL) == 32) {`	1460	`if ((CURRENT_TERMINAL) == 32) {`
1474	`return;`	1461	`return;`
Line 1520...	Line 1507...
1520	`ZL0:;`	1507	`ZL0:;`
1521	`*ZOp = ZIp;`	1508	`*ZOp = ZIp;`
1522	`}`	1509	`}`
1523		1510
1524	`static void`	1511	`static void`
1525	`ZRconstruct_Hextra PROTO_N ((ZIc))`	1512	`ZRconstruct_Hextra(CONSTRUCT ZIc)`
1526	`PROTO_T (CONSTRUCT ZIc)`	-
1527	`{`	1513	`{`
1528	`switch (CURRENT_TERMINAL) {`	1514	`switch (CURRENT_TERMINAL) {`
1529	`case 29:`	1515	`case 29:`
1530	`{`	1516	`{`
1531	`ADVANCE_LEXER;`	1517	`ADVANCE_LEXER;`
Line 1546...	Line 1532...
1546	`SAVE_LEXER (32);`	1532	`SAVE_LEXER (32);`
1547	`return;`	1533	`return;`
1548	`}`	1534	`}`
1549		1535
1550	`static void`	1536	`static void`
1551	`ZRboundary_Hitem PROTO_N ((ZIc))`	1537	`ZRboundary_Hitem(CONSTRUCT ZIc)`
1552	`PROTO_T (CONSTRUCT ZIc)`	-
1553	`{`	1538	`{`
1554	`if ((CURRENT_TERMINAL) == 32) {`	1539	`if ((CURRENT_TERMINAL) == 32) {`
1555	`return;`	1540	`return;`
1556	`}`	1541	`}`
1557	`{`	1542	`{`
Line 1607...	Line 1592...
1607	`SAVE_LEXER (32);`	1592	`SAVE_LEXER (32);`
1608	`return;`	1593	`return;`
1609	`}`	1594	`}`
1610		1595
1611	`static void`	1596	`static void`
1612	`ZRconstruct_Hitem PROTO_N ((ZIs, ZOc))`	-
1613	`PROTO_T (SORT ZIs X CONSTRUCT *ZOc)`	1597	`ZRconstruct_Hitem(SORT ZIs, CONSTRUCT *ZOc)`
1614	`{`	1598	`{`
1615	`CONSTRUCT ZIc;`	1599	`CONSTRUCT ZIc;`
1616		1600
1617	`if ((CURRENT_TERMINAL) == 32) {`	1601	`if ((CURRENT_TERMINAL) == 32) {`
1618	`return;`	1602	`return;`
Line 1806...	Line 1790...
1806	`ZL0:;`	1790	`ZL0:;`
1807	`*ZOc = ZIc;`	1791	`*ZOc = ZIc;`
1808	`}`	1792	`}`
1809		1793
1810	`static void`	1794	`static void`
1811	`ZRconstruct_Hlist PROTO_N ((ZIs, ZOp))`	-
1812	`PROTO_T (SORT ZIs X SID_CONS_LIST *ZOp)`	1795	`ZRconstruct_Hlist(SORT ZIs, SID_CONS_LIST *ZOp)`
1813	`{`	1796	`{`
1814	`SID_CONS_LIST ZIp;`	1797	`SID_CONS_LIST ZIp;`
1815		1798
1816	`if ((CURRENT_TERMINAL) == 32) {`	1799	`if ((CURRENT_TERMINAL) == 32) {`
1817	`return;`	1800	`return;`
Line 1872...	Line 1855...
1872	`ZL0:;`	1855	`ZL0:;`
1873	`*ZOp = ZIp;`	1856	`*ZOp = ZIp;`
1874	`}`	1857	`}`
1875		1858
1876	`static void`	1859	`static void`
1877	`ZRparam_Hpack PROTO_N ((ZOp))`	-
1878	`PROTO_T (SID_PARAM_LIST *ZOp)`	1860	`ZRparam_Hpack(SID_PARAM_LIST *ZOp)`
1879	`{`	1861	`{`
1880	`SID_PARAM_LIST ZIp;`	1862	`SID_PARAM_LIST ZIp;`
1881		1863
1882	`if ((CURRENT_TERMINAL) == 32) {`	1864	`if ((CURRENT_TERMINAL) == 32) {`
1883	`return;`	1865	`return;`
Line 1929...	Line 1911...
1929	`ZL0:;`	1911	`ZL0:;`
1930	`*ZOp = ZIp;`	1912	`*ZOp = ZIp;`
1931	`}`	1913	`}`
1932		1914
1933	`static void`	1915	`static void`
1934	`ZRedge_Hpack PROTO_Z ()`	1916	`ZRedge_Hpack(void)`
1935	`{`	1917	`{`
1936	`if ((CURRENT_TERMINAL) == 32) {`	1918	`if ((CURRENT_TERMINAL) == 32) {`
1937	`return;`	1919	`return;`
1938	`}`	1920	`}`
1939	`{`	1921	`{`
Line 1972...	Line 1954...
1972	`SAVE_LEXER (32);`	1954	`SAVE_LEXER (32);`
1973	`return;`	1955	`return;`
1974	`}`	1956	`}`
1975		1957
1976	`void`	1958	`void`
1977	`read_spec PROTO_N ((ZOspec))`	-
1978	`PROTO_T (SPECIFICATION *ZOspec)`	1959	`read_spec(SPECIFICATION *ZOspec)`
1979	`{`	1960	`{`
1980	`SPECIFICATION ZIspec;`	1961	`SPECIFICATION ZIspec;`
1981		1962
1982	`if ((CURRENT_TERMINAL) == 32) {`	1963	`if ((CURRENT_TERMINAL) == 32) {`
1983	`return;`	1964	`return;`
Line 2389...	Line 2370...
2389	`ZL0:;`	2370	`ZL0:;`
2390	`*ZOspec = ZIspec;`	2371	`*ZOspec = ZIspec;`
2391	`}`	2372	`}`
2392		2373
2393	`static void`	2374	`static void`
2394	`ZRoption_Hpack PROTO_Z ()`	2375	`ZRoption_Hpack(void)`
2395	`{`	2376	`{`
2396	`if ((CURRENT_TERMINAL) == 32) {`	2377	`if ((CURRENT_TERMINAL) == 32) {`
2397	`return;`	2378	`return;`
2398	`}`	2379	`}`
2399	`{`	2380	`{`
Line 2432...	Line 2413...
2432	`SAVE_LEXER (32);`	2413	`SAVE_LEXER (32);`
2433	`return;`	2414	`return;`
2434	`}`	2415	`}`
2435		2416
2436	`static void`	2417	`static void`
2437	`ZRclist_Hpack PROTO_Z ()`	2418	`ZRclist_Hpack(void)`
2438	`{`	2419	`{`
2439	`if ((CURRENT_TERMINAL) == 32) {`	2420	`if ((CURRENT_TERMINAL) == 32) {`
2440	`return;`	2421	`return;`
2441	`}`	2422	`}`
2442	`{`	2423	`{`
Line 2475...	Line 2456...
2475	`SAVE_LEXER (32);`	2456	`SAVE_LEXER (32);`
2476	`return;`	2457	`return;`
2477	`}`	2458	`}`
2478		2459
2479	`static void`	2460	`static void`
2480	`ZRparam_Hitem PROTO_N ((ZOa))`	2461	`ZRparam_Hitem(PARAMETER *ZOa)`
2481	`PROTO_T (PARAMETER *ZOa)`	-
2482	`{`	2462	`{`
2483	`PARAMETER ZIa;`	2463	`PARAMETER ZIa;`
2484		2464
2485	`if ((CURRENT_TERMINAL) == 32) {`	2465	`if ((CURRENT_TERMINAL) == 32) {`
2486	`return;`	2466	`return;`
Line 2532...	Line 2512...
2532	`ZL0:;`	2512	`ZL0:;`
2533	`*ZOa = ZIa;`	2513	`*ZOa = ZIa;`
2534	`}`	2514	`}`
2535		2515
2536	`static void`	2516	`static void`
2537	`ZRedge_Hitem PROTO_Z ()`	2517	`ZRedge_Hitem(void)`
2538	`{`	2518	`{`
2539	`if ((CURRENT_TERMINAL) == 32) {`	2519	`if ((CURRENT_TERMINAL) == 32) {`
2540	`return;`	2520	`return;`
2541	`}`	2521	`}`
2542	`{`	2522	`{`
Line 2632...	Line 2612...
2632	`SAVE_LEXER (32);`	2612	`SAVE_LEXER (32);`
2633	`return;`	2613	`return;`
2634	`}`	2614	`}`
2635		2615
2636	`static void`	2616	`static void`
2637	`ZRkind_Hpack PROTO_N ((ZOp))`	-
2638	`PROTO_T (SID_LINK_LIST *ZOp)`	2617	`ZRkind_Hpack(SID_LINK_LIST *ZOp)`
2639	`{`	2618	`{`
2640	`SID_LINK_LIST ZIp;`	2619	`SID_LINK_LIST ZIp;`
2641		2620
2642	`if ((CURRENT_TERMINAL) == 32) {`	2621	`if ((CURRENT_TERMINAL) == 32) {`
2643	`return;`	2622	`return;`
Line 2689...	Line 2668...
2689	`ZL0:;`	2668	`ZL0:;`
2690	`*ZOp = ZIp;`	2669	`*ZOp = ZIp;`
2691	`}`	2670	`}`

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/utilities/make_tdf/syntax.c – Rev 5 → 6