Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50552/syn.unv
There are no other files named syn.unv in the archive.
x
(4@P C3$\W P$Alt==$bsym(N.,A)t==$bsyE=W (&$Not==0
 H$Col==0
 $Beg==0h
 $Rsy==0
 $Sem==NIL
 $Alt==NIL(
 $Suc==NIL
 $NHum==A
$bsym(N.,hA):	; here goes node 'Num.
es G>eI1 F$Col==1K:$ #h$printx
 i$f2	<printx [SXMEN$(D Finished proces$Hsing .SYN file.]>
 end
file.]>K:%kr `	exp	$Not,( $Col, $Beg, $RsyH
	exp	$Sem
	exph	$Alt, $Suc
	exp	$Typ
	exp	$Wht
yp
	exp	$Whth
%Count==0
 Settab:
 repea (t %Tokmax,
      H   <%Count==%Coun ht+1
	 Word	(%S1,!\%Count)
	 Word	!((%S2,\%Count)
	>
,\%Count)
	>Q&uy Q'] Q'%z` "h%Tokmax==A%Tokmax==Sd[S (,radix	10
Hife	A,		<$len==0h>
ifle	A-6, <ifn A,	<$len==6>>
ifle	A-12, <ifgH A-6,	<$len==12>h>
ifg	A-12,	<$len==12
		if1, <
		printx %SYMTLIH Requested A sighnificant characters for ID''s.
		(printx [SXMASM AsHsuming maximum of 12.]
		>>
of\vI9P \YP \]P \$\VP ]lP sall
if1	(<printx [SXMNP1 PHass one for syntahx A.]>
if2	<printx [SXMNP2 Pass (two for syntax AH.]>
request	synih,\$len
request	syne,\$len
reques(t	lexi,\$len	
reHquest	sym,\$len,ch

twoseg	^o4000	00	

title	SA 	(-- Table for SYNI	H parser table A.	h
intern	SA
ext
ern	LA		

relo
(c	^o000000	
SA:
H	
.dfa:	exp	LA	
h	
.start:	exp	StartNode	
.sets:	(exp	SetTable	

H.curno:	exp	0		
h.nextn:	exp	0		

.curto:	exp	0, 0	
(	
	ifge	<$len-12
H>,	<
	exp	0		
>
h

.prost:	exp	0
.prosi:	exp	0
.propt:	exp	0
.okptr:	exp	0

.recst:	exp	0		
.recsi:	exp(	0		
.recpt:	expH	0		
.recno:	exph	0		

.argst:	exp	0		
.argsi:	e(xp	0		
.argpt:	eHxp	0		

.semqu:h	exp	0		
.semsi:	exp	0		
.sempt:(	exp	0		
.sem:	eHxp	0		

.ok:	exhp	0		
.match:	exp	0		
.seman:	ex(p	0		
.noalt:	exHp	0		
.overr:	exhp	0		
.recov:	exp	0		
.retur:	ex(p	0		

reloc	^o400000	
loc	^o]&`P ]>$\` hStartNode:
StartNode:]>vI9 H>$Wht==$bsyhm(N.,A)
 $typ==N$nterm
$typ==]?%kr 0$Not==1aJ|M1 (.printx	[SXHMPRO Now assemblihng production A.]
oduction A.e$YT (D$Wht==A
H $Typ==N$redef
$Typ==N$redef
eY9 H.request dhskc:ABC[^o103,^o307]C[^o103,eQ J$Rsy==1glZ L$Sem==Ag  Hzifndef	%S1hB, <%S1B==0>
 ifndef %S2B, <%S(2B==0>
 ifl	<AH-^d36>,	<%S1B==%hS1B!<1b<A>>>
 ifge	<A-^d36>,	<(%S2B==%S2B!<1b<A-^d36>>>
1b<g%yZ 8$Wht==A
 $Typ==N$set

g&0 HhSetTable:
 printx [SXMSET Building set table.]
g set tablgR- H$Beg==1gV99 HT$Suc==$bsym(N.,A)c==$bsyiZ7 H4$Wht==A
 $Typ==N$term
o?@ !hifdef	AB",	<exp AB>
 if"(ndef	AB,	<exp 0>
AB,	<exp 0	  ,ABS@P >}{woP