Home » Archimedes archive » Zipped Apps » BCPL » BCPL/b/syn
BCPL/b/syn
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Zipped Apps » BCPL |
| Filename: | BCPL/b/syn |
| Read OK: | ✔ |
| File size: | 83F0 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
SECTION "Lex"
GET "b.Header"
STATIC
$( // Version of 28 Feb 86 13:04:59
dummy = VersionMark;
version = 1*256+2
$)
/* 1.2 28 Feb 86 13:05:10
ccstack initialised to zero (so unmatching tags don't cause
compiler collapse
*/
LET initialise.lex() BE
$( ccstack := 0;
DeclSysWords()
RCh()
$)
AND NextSymb() BE
$( LET BasicSymb() BE
$( nlPending := FALSE
$( SWITCHON ch INTO
$( CASE '*N': nlPending := TRUE
CASE '*T':
CASE '*S':
RCh() REPEATWHILE ch='*S'
LOOP
CASE '0': CASE '1': CASE '2': CASE '3':
CASE '4': CASE '5': CASE '6': CASE '7':
CASE '8': CASE '9':
symb := s.number
ReadNumber(10);
IF ch='.' | ch='E' | ch='e' THEN ReadFloat();
RETURN
CASE 'a': CASE 'b': CASE 'c': CASE 'd':
CASE 'e': CASE 'f': CASE 'g': CASE 'h':
CASE 'i': CASE 'j': CASE 'k': CASE 'l':
CASE 'm': CASE 'n': CASE 'o': CASE 'p':
CASE 'q': CASE 'r': CASE 's': CASE 't':
CASE 'u': CASE 'v': CASE 'w': CASE 'x':
CASE 'y': CASE 'z':
CASE 'A': CASE 'B': CASE 'C': CASE 'D':
CASE 'E': CASE 'F': CASE 'G': CASE 'H':
CASE 'I': CASE 'J': CASE 'K': CASE 'L':
CASE 'M': CASE 'N': CASE 'O': CASE 'P':
CASE 'Q': CASE 'R': CASE 'S': CASE 'T':
CASE 'U': CASE 'V': CASE 'W': CASE 'X':
CASE 'Y': CASE 'Z':
$( LET c=ch
RCh()
RdTag(c)
symb := LookUpWord()
IF symb=s.get THEN
$( PerformGet()
LOOP
$)
RETURN
$)
CASE '{': CASE '}':
symb := ch='{' -> s.lsect, s.rsect;
RCh();
RdTag('$');
LookUpWord();
RETURN
CASE '$':
multichar("()<>$", s.lsect,s.rsect, 1,2,
s.tagname, 0)
IF symb=s.lsect | symb=s.rsect THEN
$( RdTag('$')
LookUpWord()
RETURN $)
IF extension.level>=3 & symb~=0 THEN
$( LET cch = CapitalCh(ch)
LET c = ch
IF ~['A'<=cch<='Z' | '0'<=cch<='9']
THEN SynReport(2)
RCh()
RdTag(c)
tagptr := LookUpTag(wordv)
IF symb~=s.tagname THEN
//
// $<tag or $>tag
//
$( LET inverse = FALSE
IF ch='*'' THEN
$( RCh()
inverse := TRUE $);
conditional.compilation(symb=1, tagptr, inverse)
LOOP $)
RETURN
$)
SynReport(91)
ENDCASE
CASE '[':
CASE '(': symb := s.lparen; BREAK
CASE ']':
CASE ')': symb := s.rparen; BREAK
CASE '#':
$( LET radix = 8
RCh()
IF ~['0'<=ch<='7'] THEN
$( SWITCHON CapitalCh(ch) INTO
$( DEFAULT:
BasicSymb();
SWITCHON symb INTO
$( CASE s.plus:CASE s.minus:CASE s.mult:CASE s.div:
CASE s.abs:
CASE s.ls:CASE s.gr:CASE s.le:CASE s.ge:
CASE s.eq:CASE s.ne:
symb := symb+s.fadd;
RETURN
DEFAULT:
SynReport(33)
$)
CASE 'B':radix := 2;ENDCASE
CASE 'O':radix := 8;ENDCASE
CASE 'X':radix := 16
$)
RCh() $)
ReadNumber(radix)
symb := s.number
RETURN
$)
CASE '?': symb := s.query; BREAK
CASE '+': symb := s.plus; BREAK
CASE ',': symb := s.comma; BREAK
CASE ';': symb := s.semicolon; BREAK
CASE '@': symb := s.lv; BREAK
CASE '&': symb := s.logand; BREAK
CASE '=': symb := s.eq; BREAK
CASE '!': symb := s.vecap; BREAK
CASE '**':symb := s.mult; BREAK
CASE '%':
IF extension.level<2 THEN
$( ch := 0
LOOP $)
symb := s.byteap
BREAK
CASE '|':
IF extension.level<1 THEN
$( symb := s.logor
BREAK $)
multichar("|", 0, s.logor)
IF symb~=0 THEN RETURN
cmnt: UNTIL ch='*N' | ch='*P' | ch=EndStreamCh DO
RCh()
LOOP
CASE '/':
multichar("\/**", s.logand, 0, -1, s.div)
IF symb>0 THEN RETURN
IF symb=0 THEN GOTO cmnt
$( IF ch='**' THEN
$( RCh()
IF ch='/' THEN BREAK
LOOP $)
IF ch=EndStreamCh THEN SynReport(63);
RCh()
$) REPEAT
RCh()
LOOP
CASE '~':
multichar("=", s.ne, s.not)
RETURN
CASE '\':
multichar("/=", s.logor, s.ne, s.not)
RETURN
CASE '<':
multichar("=<", s.le, s.lshift, s.ls)
RETURN
CASE '>':
multichar("=>", s.ge, s.rshift, s.gr)
RETURN
CASE '-':
multichar(">", s.cond, s.minus)
RETURN
CASE ':':
multichar("=", s.ass, s.colon)
RETURN
CASE '"':
$( LET i = 0
LET sch = ?
WHILE RdStrCh('"', @sch) DO
$( IF i=255 THEN SynReport(34)
i := i+1
wordv%i := sch $)
wordv%0 := i
symb := s.string
BREAK
$)
CASE '*'':
$( LET ok = RdStrCh('*'', @decval)
symb := s.number;
IF ok THEN
$( RCh()
ok := ch='*'' $)
IF ~ok THEN SynReport(34)
BREAK
$)
DEFAULT:
IF ch~=EndStreamCh THEN
$( ch := '*S'
SynReport(94) $)
CASE '.':
IF getp=0 THEN
$( symb := s.end
BREAK $)
close(sourceStream)
getp := getp-3
sourceStream := getv!getp
lineCount := getv!(getp+1)
ch := getv!(getp+2)
SelectInput(sourceStream)
LOOP
$)
$) REPEAT
RCh()
$)
BasicSymb()
// Check for tag setting directive. This is of the
// form:
// $$tag or $$tag := expn
//
// A $$tag symbol is of type 's.tagname'.
//
// A loop is used to get cases like $$tag $$tag2 := .. right.
WHILE symb=s.tagname DO
$( LET tag = tagptr
LET value = FALSE
LET op = s.logor
BasicSymb()
// If the $$tag was not followed by :=, simply
// invert the value of the tag and go round again.
IF symb~=s.ass THEN
$( tag.value!tag := ~tag.value!tag
LOOP $)
$( LET inverse = FALSE
LET sval = ?
BasicSymb()
IF symb=s.not THEN
$( inverse := TRUE
BasicSymb() $)
SWITCHON symb INTO
$( CASE s.tagname:
sval := tag.value!tagptr
ENDCASE
CASE s.true:
sval := TRUE
ENDCASE
CASE s.false:
sval := FALSE
ENDCASE
DEFAULT:
SynReport(1)
ENDCASE
$)
// Combine the value with the expression so far
// and check for an operator.
IF inverse THEN sval := ~sval
TEST op=s.logor
THEN value := value | sval
ELSE value := value & sval
BasicSymb()
op := symb
$) REPEATWHILE op=s.logor | op=s.logand
tag.value!tag := value
$)
// Symbol is not $$tag: check for a compound assignment
// (note that op:= is an extension).
IF extension.level>=3 THEN SWITCHON symb INTO
$( CASE s.mult: CASE s.div: CASE s.rem:
CASE s.plus: CASE s.minus:
CASE s.fmult: CASE s.fdiv:
CASE s.fplus: CASE s.fminus:
CASE s.logand: CASE s.logor:
CASE s.eqv: CASE s.neqv:
CASE s.lshift: CASE s.rshift:
//
// Check for := following operator.
//
IF ch=':' THEN
$( LET ch = RdCh(); UnRdCh()
IF ch='=' THEN
$( RCh(); RCh()
operator := symb
symb := s.opab $) $)
$)
$)
AND multichar(chars, a, b, c, d, e, f, g, h) BE
$( LET t = @chars
LET i, lim = 1, chars%0
RCh()
WHILE i<=lim DO
$( IF ch=chars%i THEN
$( RCh()
BREAK $)
i := i+1 $)
symb := t!i
$)
AND LookUpWord() = VALOF
$( LET hashval = VALOF
$( LET res = wordv%0
FOR i = 1 TO res DO
res := (res*13 + CapitalCh(wordv%i)) & #X7FFF
RESULTIS res REM nametablesize
$)
LET CString(s1, s2) = VALOF
$( LET len = s1%0
IF len~=s2%0 THEN RESULTIS FALSE
FOR j = 1 TO len DO
TEST equateCases
THEN IF CapitalCh(s1%j)~=CapitalCh(s2%j)
THEN RESULTIS FALSE
ELSE IF s1%j~=s2%j
THEN RESULTIS FALSE
RESULTIS TRUE
$)
LET i = 0
wordNode := nametable!hashval
WHILE wordNode~=0 & ~CString(wordNode+2, wordv) DO
wordNode := h2!wordNode
IF wordNode=0 THEN
$( LET size = wordv%0 / BytesPerWord
wordNode := getblk(size+3)
wordNode!0 := s.name
wordNode!1 := nametable!hashval
FOR i = 0 TO size DO wordNode!(i+2) := wordv!i
nametable!hashval := wordNode $)
RESULTIS h1!wordNode
$)
AND conditional.compilation(startcond, tagptr, inverse) BE
//
// Called after $<tag or $>tag has been recognised.
//
// startcond true for $<, false for $>
// tagptr pointer to tag object
// inverse true if tag was followed by '.
//
TEST startcond THEN
TEST tag.value!tagptr~=inverse THEN $(
// Do not skip: add new item to cc stack.
LET s = get.ccstack.item()
cc.link!s := ccstack
ccstack := s
cc.inverse!s := inverse
cc.tagptr!s := tagptr $)
ELSE $( // Skip until a matching $>tag is found. The quotes must match
LET inv2 = FALSE
$( IF ch=EndStreamCh THEN SynReport(3)
IF ch='$' THEN $(
RCh()
IF ch='>' THEN $(
LET c, d = ?, ?
RCh()
d := ch
c := CapitalCh(ch)
IF 'A'<=c<='Z' | '0'<=c<='9' THEN $(
RCh()
RdTag(d)
IF CompString(wordv, tag.name+tagptr)=0 THEN BREAK $)
LOOP $)
LOOP $)
RCh()
$) REPEAT
// Skip complete: check that quotes match
IF ch='*'' THEN $(
inv2 := TRUE
RCh() $)
IF inv2~=inverse THEN SynReport(4) $)
ELSE $( // $>tag: check that it matches the last $<tag.
IF ccstack~=0 THEN
TEST tagptr=cc.tagptr!ccstack THEN $(
// Proper match: unstack item and check quotes match.
LET inv1 = cc.inverse!ccstack
LET next = cc.link!ccstack
cc.link!ccstack := free.ccstack.chain
free.ccstack.chain := ccstack
ccstack := next
IF inv1~=inverse THEN SynReport(4)
RETURN $)
ELSE $( // Tags do not match: if the current tag occurs
// below on the stack, remove those items above
// it.
LET m = ccstack
WHILE m~=0 & cc.tagptr!m~=tagptr DO
m := cc.link!m
IF m~=0 THEN $(
LET next = cc.link!m
cc.link!m := free.ccstack.chain
free.ccstack.chain := ccstack
ccstack := next $) $)
SynReport(5) $)
AND get.ccstack.item() = VALOF
$( LET c = free.ccstack.chain
IF c=0 THEN RESULTIS GetBlk(cc.size)
free.ccstack.chain := cc.link!c
RESULTIS c
$)
AND DeclSysWords() BE
$( LET bad = TABLE s.bad, s.bad
symb :=
TABLE
s.and,s.abs,
s.be,s.break,s.by,
s.case,
s.do,s.default,
s.eq,s.eqv,s.or,s.endcase,
s.false,s.for,s.finish,
s.goto,s.ge,s.gr,s.global,s.get,
s.if,s.into,
s.let,s.lv,s.le,s.ls,s.logor,
s.logand,s.loop,s.lshift,
s.manifest,
s.ne,s.not,s.neqv,s.needs,
s.or,
s.resultis,s.return,s.rem,s.rshift,s.rv,
s.repeat,s.repeatwhile,s.repeatuntil,
s.switchon,s.static,s.section,
s.to,s.test,s.true,s.do,s.table,
s.until,s.unless,
s.vec,s.valof,
s.while,
0
D( "AND ABS *
*BE BREAK BY *
*CASE *
*DO DEFAULT *
*EQ EQV ELSE ENDCASE *
*FALSE FOR FINISH *
*GOTO GE GR GLOBAL GET *
*IF INTO *
*LET LV LE LS LOGOR LOGAND LOOP LSHIFT")
D("MANIFEST *
*NE NOT NEQV NEEDS *
*OR *
*RESULTIS RETURN REM RSHIFT RV *
*REPEAT REPEATWHILE REPEATUNTIL *
*SWITCHON STATIC SECTION *
*TO TEST TRUE THEN TABLE *
*UNTIL UNLESS *
*VEC VALOF *
*WHILE *
*$")
nulltag := wordNode
IF lispExtensions THEN {
symb := (TABLE s.nil, s.car, s.cdr, s.vcar, s.vcdr,
s.lle,s.lge,s.lgr,s.lls);
D("NIL CAR CDR VCAR VCDR LLE LGE LGR LLS") }
// If the extension level is suitable, declare the
// symbols SLCT and OF appropriately. Otherwise,
// declare them as 'bad', so that they are still
// reserved words.
symb := extension.level>=3 -> (TABLE s.slct,s.of,s.fix,s.float),bad
D("SLCT OF FIX FLOAT")
// EXTERNAL is declared similarly
symb := extension.level>=4 -> (TABLE s.external), bad
D("EXTERNAL")
$)
AND D(words) BE
$( LET i = 1
LET length = 0
$( LET ch = i>words%0 -> ' ', words%i
TEST ch=' ' THEN $(
IF length=0 THEN RETURN
wordv%0 := length
LookUpWord()
h1!wordNode :=!symb
symb := symb+1
length := 0 $)
ELSE $(
length := length+1
wordv%length := ch $)
i := i+1
$) REPEAT
$)
AND RCh() BE
$( ch := RdCh()
IF ch='*N' | ch='*P' | ch='*C' THEN
$( ch := '*N'
lineCount := lineCount+1 $)
chcount := chcount+1
chbuf!(chcount & 63) := ch
$)
AND RdTag(char) BE
$( LET i = 1
wordv%i := char
$( LET cc = CapitalCh(ch)
UNLESS 'A' <= cc <= 'Z' |
'0' <= ch <= '9' | ch='.' |
(ch='_' & extension.level>0) THEN
BREAK
i := i+1
wordv%i := ch
RCh()
$) REPEAT
wordv%0 := i
$)
AND PerformGet() BE
$( LET s = 0
LET t = transchars
transchars := FALSE
NextSymb()
transchars := t
IF symb~=s.string | getp+2>getmax THEN SynReport(97)
// Check for GET "" first - the meaning of this has
// been changed so that it always refers to the source
// file, even if a HDR parameter was given.
//
// Note that GET "" is an extension to standard BCPL.
TEST wordv%0=0 THEN
IF extension.level>=2 THEN
s := Open(fromfile, TRUE, FALSE)
ELSE TEST headers=0 THEN $(
s := Open(wordv, TRUE, FALSE)
IF s=0 THEN $(
LET lenw = wordv%0
LET prefix = "$.alib."
LET plen = prefix%0
LET v = VEC 30/BytesPerWord
IF lenw>10 THEN lenw := 10
FOR i = 1 TO lenw DO v%(i+plen) := wordv%i
FOR i = 1 TO plen DO v%i := prefix%i
v%0 := lenw+plen
s := Open(v, TRUE, FALSE) $) $)
ELSE $(
LET file = find.header(wordv)
IF file~=0 THEN $(
s := Open(file, TRUE, FALSE)
FreeVector(file) $) $)
IF s=0 THEN SynReport(96, wordv)
getv!getp := sourceStream
getv!(getp+1) := lineCount
getv!(getp+2) := ch
getp := getp+3
lineCount := 1
sourceStream := s
SelectInput(s)
RCh()
$)
AND find.header(string) = VALOF
//
// Finds the file associated with the given header name
// in the HDR parameter.
//
// This has the format:
//
// H1=F1,H2=F2,....Hn=Fn
//
// Each Hi is a header name (eg. LIBHDR), and each Fi is a
// file name.
//
// The result is a newly-allocated vector holding the file
// name, or zero if the header name was not found.
//
// The conditional compilation tag RDARGSL is set if HDR
// was read with the /L 'rdargs' options, in which case
// the length is in the first WORD, not byte.
//
$( LET hupb = headers%0
LET hlwb = 1
LET slen = string%0
LET hpos = hlwb
LET fpos = 0
LET v = 0
// Search through the HDR string to find the header
// name.
FOR j = hlwb TO hupb DO
$( LET c = headers%j
// A comma indicates the start of a header name,
// an equals sign the end of one.
TEST c=','
THEN hpos := j+1
ELSE IF c='=' THEN
//
// Does the current header name match the one
// that is being sought?
//
IF j-hpos=slen THEN
$( LET same = TRUE
FOR j = 1 TO slen DO
IF CompCh(headers%(j+hpos-1), string%j)~=0 THEN
$( same := FALSE
BREAK $)
// If found, remember the position at
// which the file name starts.
IF same THEN
$( fpos := j+1
BREAK $) $) $)
IF fpos~=0 THEN
$( LET flen = 0
FOR j = fpos TO hupb DO
$( IF headers%j=',' THEN BREAK
flen := flen+1 $)
v := GetVector(flen / BytesPerWord+1)
v%0 := flen
FOR j = 1 TO flen DO
v%j := headers%(fpos+j-1) $)
RESULTIS v
$)
AND ReadNumber(radix) BE
$( LET d = Value(ch);
digits := 1;
decval := d
IF d>=radix THEN SynReport(33)
$( RCh()
d := Value(ch)
IF d>=radix THEN RETURN;
digits := digits+1;
decval := radix * decval+d
$) REPEAT
$)
AND ReadFloat() BE
$( LET negativeExponent = FALSE;
symb := s.fconst;
mantissa, exponent := decval, 0;
IF ch='.' THEN
$( Rch();
UNLESS '0'<=ch<='9' THEN SynReport(33);
ReadNumber(10);
IF decval~=0 THEN
$( exponent := exponent-digits;
WHILE digits~=0 DO
$( mantissa := mantissa*10;
digits := digits-1 $);
mantissa := mantissa+decval $) $);
IF ch='E' | ch='e' THEN
$( Rch();
IF ch='-' THEN $( negativeExponent := TRUE; Rch() $);
UNLESS '0'<=ch<='9' THEN SynReport(33);
ReadNumber(10);
exponent := negativeExponent -> exponent-decval,
exponent+decval $)
$)
AND Value(ch) = VALOF
$( LET c = CapitalCh(ch)
RESULTIS '0'<=c<='9' -> c-'0',
'A'<=c<='F' -> c-'A'+10, 100
$)
AND RdStrCh(term, lv.ch) = VALOF
$( LET trans = transchars
RCh()
IF ch=term THEN RESULTIS FALSE
IF ch='*N' THEN SynReport(34)
IF ch='**' THEN
$( RCh()
IF ch='*N' | ch='*S' | ch='*T'
THEN TEST term='*''
THEN SynReport(34)
ELSE $( WHILE ch='*N' | ch='*S' | ch='*T' DO RCh()
IF ch~='**' THEN SynReport(34)
LOOP
$)
ch := CapitalCh(ch)
IF (ch='E' | ch='B' | ch='C') & extension.level=0 THEN
ch := -1
SWITCHON ch INTO
$( DEFAULT: SynReport(35); ENDCASE
CASE 'T': ch := '*T'; ENDCASE
CASE 'S': ch := '*S'; ENDCASE
CASE 'N': ch := '*N'; ENDCASE
CASE 'P': ch := '*P'; ENDCASE
CASE 'B': ch := '*B'; ENDCASE
CASE 'C': ch := '*C'; ENDCASE
CASE 'E': ch := #X1B
CASE '"': ENDCASE
CASE '*'': ENDCASE
CASE '**': ENDCASE
CASE 'X': CASE 'O':
CASE '0': CASE '1': CASE '2': CASE '3':
CASE '4': CASE '5': CASE '6': CASE '7':
$( LET r, n = 8, 3
IF ch='X' THEN r, n := 16, 2
IF ch='X' | ch='O' THEN RCh()
ch := ReadOctalOrHex(r, n)
IF ch>255 THEN SynReport(34)
trans := FALSE
ENDCASE
$)
$)
$)
!lv.ch := trans -> charcode!ch, ch
RESULTIS TRUE
$) REPEAT
AND ReadOctalOrHex(radix, digits) = VALOF
$( LET answer = 0
FOR j = 1 TO digits DO
$( LET valch = value(ch)
IF valch>=radix THEN SynReport(34)
answer := answer*radix+valch
IF j~=digits THEN RCh()
$)
RESULTIS answer
$)
.
SECTION "Syn"
GET "b.Header"
STATIC
$( dummy = VersionMark;
version = 1*256+2
$)
LET bcpl.syn() = VALOF
$( LET a = 0;
LET v = GetVector(nametablesize+64+wordmax+getmax+1);
err.p := Level();
err.l := exit;
getp := 0;
chcount := 0;
externals.list := 0;
free.list.element.chain := 0;
free.ccstack.chain := 0;
zeroNode := List2(s.number, 0);
FOR i = 0 TO NameTableSize+63 DO v!i := 0
nameTable := v
chbuf := v+NameTableSize
wordv := chbuf+64
getv := wordv+wordmax
initialise.lex()
IF ch=EndStreamCh THEN GOTO exit
rec.p, rec.l := err.p, l
l: NextSymb()
$( LET RProg() = VALOF
$( LET op, a = symb, 0
LET tag = ?
NextSymb()
IF symb~=s.string THEN SynReport(95)
tag := LookUpTag(wordv)
tag.value!tag := TRUE
a := RbExp()
IF op=s.section THEN WriteF("Section %S*N", a+1)
RESULTIS List3(op, a, symb=s.needs -> RProg(),
RdBlockBody())
$)
a := extension.level>=1 &
[symb=s.section | symb=s.needs] -> RProg(),
RdBlockBody()
IF symb~=s.end THEN SynReport(99)
$)
UnRdCh()
exit:
FreeVector(v)
RESULTIS a
$)
AND List1(x) = VALOF
$( LET p = GetBlk(1)
p!0 := x
RESULTIS p
$)
AND List2(x, y) = VALOF
$( LET p = GetBlk(2)
p!0, p!1 := x, y
RESULTIS p
$)
AND List3(x, y, z) = VALOF
$( LET p = GetBlk(3)
p!0, p!1, p!2 := x, y, z
RESULTIS p
$)
AND List4(x, y, z, t) = VALOF
$( LET p = GetBlk(4)
p!0, p!1, p!2, p!3 := x, y, z, t
RESULTIS p
$)
AND List5(x, y, z, t, u) = VALOF
$( LET p = GetBlk(5)
p!0, p!1, p!2, p!3, p!4 := x, y, z, t, u
RESULTIS p
$)
AND List6(x, y, z, t, u, v) = VALOF
$( LET p = GetBlk(6)
p!0, p!1, p!2, p!3, p!4, p!5 := x, y, z, t, u, v
RESULTIS p
$)
AND GetListElement() = VALOF
// Gets a new element for a 'makelist' chain, and
// initialises the count and link fields to zero.
//
$( LET q = free.list.element.chain
TEST q=0
THEN q := GetBlk(list.element.size)
ELSE free.list.element.chain := list.link!q
list.link !q := 0
list.count!q := 0
RESULTIS q
$)
AND InsertInListElement(lv.element, data) BE
// Inserts the data in the list element addressed by
// the pointer parameter.
//
$( LET element = !lv.element
LET c = list.count!element
IF c=list.element.data.size THEN
$( LET n = GetListElement()
list.link!element := n
!lv.element := n
element := n
c := 0 $)
(list.data+element)!c := data
list.count!element := c+1
$)
AND MakeList(list,listend,type1,type2,count,unitsize)=VALOF
// Converts a list formed out of list elements into a
// straight table.
//
// list first element in list
// listend last element in list
// type1 tree type for table
// type2 type used for pair of units
// count number of data words
// unitsize size of a single 'object' in the list
//
// If the unitsize is one, and there is one value in the
// list, a table is not constructed.
//
// If there are two objects and 'type2' is not zero, a
// pair object is returned.
//
$( LET result = ?
TEST count=1 & unitsize=1
THEN result := list.data!list
ELSE $( LET l = list
LET p = 1
TEST count=2*unitsize & type2~=0
THEN $( result := GetBlk(count+1)
h1!result := type2
$)
ELSE $( result := GetBlk(count+2)
h1!result := type1
h2!result := count
p := 2
$)
WHILE l~=0 DO
$( FOR j = 0 TO list.count!l-1 DO
$( result!p := (list.data+l)!j
p := p+1
$)
l := list.link!l
$)
$)
// Add list to chain of free elements
list.link!listend := free.list.element.chain
free.list.element.chain := list
RESULTIS result
$)
AND SynReport(n, a) BE
$( LET s = VALOF SWITCHON n INTO
$( DEFAULT: a := n
RESULTIS "Error %N"
CASE 1: RESULTIS "Bad tag setting expression"
CASE 2: RESULTIS "Bad tag name"
CASE 3: RESULTIS "End of file while skipping text"
CASE 4: RESULTIS "Tag conditions do not match"
CASE 5: RESULTIS "Bad conditional compilation nesting"
CASE 6: RESULTIS "'$(' expected"
CASE 7: RESULTIS "'$)' expected"
CASE 8:
CASE 40:
CASE 43: RESULTIS "Name expected"
CASE 9: RESULTIS "Untagged '$)' mismatch"
CASE 15:
CASE 19:
CASE 41: RESULTIS "')' missing"
CASE 30: RESULTIS "Bad conditional expression"
CASE 32: RESULTIS "Invalid expression"
CASE 33: RESULTIS "Bad number"
CASE 34: RESULTIS "Bad string or character constant"
CASE 35: RESULTIS "Bad escape in string or character"
CASE 42: RESULTIS "Bad procedure heading"
CASE 44:
CASE 45: RESULTIS "Bad declaration"
CASE 50: RESULTIS "Unexpected ':'"
CASE 51: RESULTIS "Invalid command"
CASE 54: RESULTIS "'ELSE' expected"
CASE 57:
CASE 58: RESULTIS "Bad FOR loop"
CASE 60: RESULTIS "'INTO' expected"
CASE 61:
CASE 62: RESULTIS "':' expected"
CASE 63: RESULTIS "'**/' missing"
CASE 91: RESULTIS "'$' out of context"
CASE 94: RESULTIS "Illegal character"
CASE 95: RESULTIS "Illegal section name"
CASE 96: rc := 20
RESULTIS "Can't GET *"%S*" - "
CASE 97: RESULTIS "Bad GET directive"
CASE 99: RESULTIS "Incorrect termination"
CASE 100:RESULTIS "Bad external name string"
CASE 101:RESULTIS "Invalid use of symbol"
$)
IF rc<10 THEN rc := 10
WriteF("*NError near line %N: ", lineCount)
WriteF(s, a)
brk:
IF rc>=20 THEN
$( WriteS("compilation abandoned*N")
WHILE getp~=0 DO
$( Close(sourceStream)
getp := getp-3
sourceStream := getv!getp
SelectInput(sourceStream)
$)
LongJump(err.p,err.l)
$)
WrChBuf()
nlPending := FALSE
UNTIL symb=s.lsect | symb=s.rsect |
symb=s.let | symb=s.and |
symb=s.end | nlPending DO NextSymb()
LongJump(rec.p, rec.l)
$)
AND WrChBuf() BE
$( WriteS("*N...")
FOR p = chcount-63 TO chcount DO
$( LET k = chbuf!(p&63)
IF k>0 THEN WrCh(k)
$)
NewLine()
$)
AND RdBlockBody() = VALOF
$( LET p, l = rec.p, rec.l
LET a = 0
LET ptr = @a
$( LET op = 0
rec.p, rec.l := Level(), recover
Ignore(s.semicolon)
SWITCHON symb INTO
$( CASE s.manifest:
CASE s.static:
CASE s.global:
CASE s.external:
op := symb
NextSymb()
!ptr := RdSect(RdCDefs, op)
ENDCASE
CASE s.let:
NextSymb()
!ptr := RDef()
recover:
$( LET qtr = ptr
WHILE symb=s.and DO
$( NextSymb()
!qtr := List3(s.and, !qtr, RDef())
qtr := @h3!(!qtr)
$)
op := s.let
ENDCASE
$)
DEFAULT:
!ptr := RdSeq()
IF symb~=s.rsect & symb~=s.end THEN SynReport(51)
CASE s.rsect: CASE s.end:
BREAK
$)
!ptr := List3(op,!ptr, 0)
ptr := @h3!(!ptr)
$) REPEAT
rec.p, rec.l := p, l
RESULTIS a
$)
AND RdSeq() = VALOF
$( LET n = 0
LET list = GetListElement()
LET liste = list
$( LET lc = ?
Ignore(s.semicolon)
lc := lineCount
InsertInListElement(@liste, rcom())
InsertInListElement(@liste, lc)
n := n+2
$) REPEATUNTIL symb=s.rsect | symb=s.end
RESULTIS MakeList(list, liste, s.semicolonlist,
s.semicolon, n, 2)
$)
AND RdCDefs(op) = VALOF
$( LET n = 0
LET list = GetListElement()
LET liste = list
LET p, l = rec.p, rec.l
$( LET lc = ?
LET e = 0
rec.p, rec.l := Level(), rec
InsertInListElement(@liste, RName())
lc := lineCount
IF symb~=s.eq & symb~=s.colon THEN SynReport(45)
NextSymb()
TEST op=s.external
THEN $( IF symb~=s.string THEN SynReport(100)
e := List4(externals.list, RbExp()+1, 0, 0)
externals.list := e
$)
ELSE e := RExp(0)
rec: n := n+3
InsertInListElement(@liste, e)
Ignore(s.semicolon)
InsertInListElement(@liste, lc)
$) REPEATWHILE symb=s.name
rec.p, rec.l := p, l
RESULTIS MakeList(list, liste, s.semicolonlist, 0, n,3)
$)
AND RdSect(r, arg) = VALOF
$( LET tag, a = wordNode, 0
CheckFor(s.lsect, 6)
a := r(arg)
IF symb~=s.rsect THEN SynReport(7)
TEST tag=wordNode
THEN NextSymb()
ELSE IF wordNode=nulltag THEN
$( symb := 0
SynReport(9)
$)
RESULTIS a
$)
AND RNamelist() = VALOF
$( LET n = 0
LET list = GetListElement()
LET liste = list
$( InsertInListElement(@liste, RName())
n := n+1
IF symb~=s.comma THEN BREAK
NextSymb()
$) REPEAT
RESULTIS MakeList(list,liste,s.commalist,s.comma,n,1)
$)
AND RName() = VALOF
$( LET a = wordNode
CheckFor(s.name, 8)
RESULTIS a
$)
AND Ignore(item) BE
IF symb=item THEN
NextSymb()
AND CheckFor(item, n) BE
$( IF symb~=item THEN SynReport(n)
NextSymb()
$)
AND RbExp() = VALOF
$( LET a, op = 0, symb
SWITCHON symb INTO
$( DEFAULT:
SynReport(32)
CASE s.bad:
SynReport(101)
CASE s.query:
NextSymb()
RESULTIS List1(s.query)
CASE s.true: CASE s.false:
CASE s.name:
CASE s.nil:
a := wordNode
NextSymb()
RESULTIS a
CASE s.string:
$( LET wordSize = wordv%0 / BytesPerWord
a := GetBlk(wordSize+2)
a!0 := s.string
FOR i = 0 TO wordSize DO a!(i+1) := wordv!i
NextSymb()
RESULTIS a
$)
CASE s.number:
$( LET k = decval
NextSymb()
RESULTIS k=0 -> zeroNode,
SmallNumber(k) -> k,
List2(s.number, k)
$)
CASE s.fconst:
$( LET i, j = mantissa, exponent;
NextSymb();
RESULTIS List3(s.fconst, i, j)
$)
CASE s.lparen:
NextSymb()
a := RExp(0)
CheckFor(s.rparen, 15)
RESULTIS a
CASE s.valof:
NextSymb()
RESULTIS List2(s.valof, RCom())
CASE s.vecap:
op := s.rv
CASE s.lv:
CASE s.rv:
CASE s.car: CASE s.vcar:
CASE s.cdr: CASE s.vcdr:
NextSymb()
RESULTIS List2(op, RExp(37))
CASE s.plus:
NextSymb()
RESULTIS RExp(34)
CASE s.minus:
NextSymb()
a := RExp(34)
RESULTIS SmallNumber(a) -> List2(s.number, -a),
List2(s.neg, a)
CASE s.fminus:
NextSymb();
RESULTIS List2(s.fneg, RExp(34))
CASE s.not:
NextSymb()
RESULTIS List2(s.not, RExp(24))
CASE s.abs:
CASE s.fabs:
CASE s.float: CASE s.fix:
NextSymb()
RESULTIS List2(op, RExp(35))
CASE s.table:
$( LET ln = lineCount
NextSymb()
RESULTIS List4(s.table, -1, ln, RExpList())
$)
CASE s.slct:
$( LET k1 = zeroNode
LET k2 = zeroNode
LET k3 = ?
NextSymb()
k3 := RExp(0)
IF symb=s.colon THEN
$( NextSymb()
k2 := k3
k3 := RExp(0)
$)
IF symb=s.colon THEN
$( NextSymb()
k1 := k2
k2 := k3
k3 := RExp(0)
$)
RESULTIS List4(s.slct, k1, k2, k3)
$)
$)
$)
AND RExp(n) = VALOF
$( LET a = RbExp()
LET b, c, p, q = 0, 0, 0, 0
$( LET op = symb
IF nlPending THEN RESULTIS a
SWITCHON op INTO
$( DEFAULT:
RESULTIS a
CASE s.lparen:
NextSymb()
b := 0
IF symb~=s.rparen THEN b := RExpList()
CheckFor(s.rparen, 19)
a := List3(s.fnap, a, b)
LOOP
CASE s.vecap:
CASE s.of: p := 40; GOTO lassoc
CASE s.byteap: p := 36; GOTO lassoc
CASE s.mult: CASE s.div: CASE s.rem:
CASE s.fmult:CASE s.fdiv:
p := 35; GOTO lassoc
CASE s.plus: CASE s.minus:
CASE s.fplus:CASE s.fminus:
p := 34; GOTO lassoc
CASE s.lshift:
CASE s.rshift: p, q := 25, 30; GOTO dyadic
CASE s.logand: p := 23; GOTO lassoc
CASE s.logor: p := 22; GOTO lassoc
CASE s.eqv:
CASE s.neqv: p := 21; GOTO lassoc
CASE s.eq: CASE s.ne:
CASE s.le: CASE s.ge: CASE s.ls: CASE s.gr:
CASE s.feq: CASE s.fne:
CASE s.fle: CASE s.fge: CASE s.fls: CASE s.fgr:
CASE s.lle: CASE s.lge: CASE s.lls: CASE s.lgr:
IF n>=30 THEN RESULTIS a
$( NextSymb()
b := RExp(30)
a := List3(op, a, b)
c := c=0 -> a, List3(s.logand, c, a)
a, op := b, symb
$) REPEATWHILE (s.eq<=op<=s.ge) |
(s.lls<=op<=s.lge) |
(s.feq<=op<=s.fge)
a := c
LOOP
CASE s.cond:
IF n>=13 THEN RESULTIS a
NextSymb()
b := RExp(0)
CheckFor(s.comma, 30)
a := List4(s.cond, a, b, RExp(0))
LOOP
$)
lassoc:
q := p
dyadic:
IF n>=p THEN RESULTIS a
NextSymb()
a := List3(op, a, RExp(q))
$) REPEAT
$)
AND RExpList() = VALOF
$( LET a = 0
LET n = 0
LET list = GetListElement()
LET liste = list
$( InsertInListElement(@liste, RExp(0))
n := n+1
IF symb~=s.comma THEN BREAK
NextSymb()
$) REPEAT
RESULTIS MakeList(list,liste,s.commalist,s.comma,n,1)
$)
AND RDef() = VALOF
$( LET n = RNamelist()
SWITCHON symb INTO
$( CASE s.lparen:
$( LET a = 0
LET ln = lineCount
NextSymb()
IF h1!n~=s.name THEN SynReport(40)
IF symb=s.name THEN a := RNamelist()
CheckFor(s.rparen, 41)
IF symb=s.be THEN
$( NextSymb()
RESULTIS List6(s.rtdef, n, a, RCom(), 0, ln) $)
IF symb=s.eq THEN
$( NextSymb()
RESULTIS List6(s.fndef, n, a, RExp(0), 0, ln) $)
SynReport(42)
$)
DEFAULT:
SynReport(44)
CASE s.eq:
$( LET ln = lineCount
NextSymb()
IF symb=s.vec THEN
$( NextSymb()
IF h1!n~=s.name THEN SynReport(43)
RESULTIS List4(s.vecdef, n, RExp(0), ln) $)
RESULTIS List4(s.valdef, n, RExpList(), ln)
$)
$)
$)
AND RbCom() = VALOF
$( LET a, b, op = 0, 0, symb
SWITCHON symb INTO
$( DEFAULT:
RESULTIS 0
CASE s.bad:
SynReport(101)
CASE s.name: CASE s.number: CASE s.string:
CASE s.true: CASE s.false: CASE s.lv:
CASE s.rv: CASE s.vecap: CASE s.lparen:
CASE s.car: CASE s.cdr:
CASE s.vcar: CASE s.vcdr:
CASE s.nil:
a := RExpList()
IF symb=s.ass THEN
$( op := symb
NextSymb()
RESULTIS List3(op, a, RExpList()) $)
IF symb=s.opab THEN
//
// The node is of type 'OPAB', with the
// actual operator in the second field.
//
$( LET dyadic = operator
op := symb
NextSymb()
RESULTIS List4(op, dyadic, a, RExpList()) $)
IF SmallNumber(a) THEN SynReport(51)
IF symb=s.colon THEN
$( IF h1!a~=s.name THEN SynReport(50)
NextSymb()
RESULTIS List4(s.colon, a, RbCom(), 0) $)
IF h1!a=s.fnap THEN
$( h1!a := s.rtap
RESULTIS a $)
SynReport(51)
RESULTIS a
CASE s.goto: CASE s.resultis:
NextSymb()
RESULTIS List2(op, RExp(0))
CASE s.if: CASE s.unless:
CASE s.while: CASE s.until:
NextSymb()
a := RExp(0)
Ignore(s.do)
RESULTIS List3(op, a, RCom())
CASE s.test:
NextSymb()
a := RExp(0)
Ignore(s.do)
b := RCom()
CheckFor(s.or, 54)
RESULTIS List4(s.test, a, b, RCom())
CASE s.for:
$( LET i, j, k = 0, 0, 0
NextSymb()
a := RName()
CheckFor(s.eq,57)
i := RExp(0)
CheckFor(s.to, 58)
j := RExp(0)
IF symb=s.by THEN
$( NextSymb()
k := RExp(0) $)
Ignore(s.do)
RESULTIS List6(s.for, a, i, j, k, RCom())
$)
CASE s.loop: CASE s.break: CASE s.endcase:
CASE s.return: CASE s.finish:
a := wordNode
NextSymb()
RESULTIS a
CASE s.switchon:
$( LET cc = caseCount
LET res = ?
LET sect = ?
NextSymb()
a := RExp(0)
CheckFor(s.into, 60)
caseCount := 0
sect := RdSect(RdSeq)
res := List4(s.switchon, a, sect, caseCount)
caseCount := cc
RESULTIS res
$)
CASE s.case:
NextSymb()
a := RExp(0)
CheckFor(s.colon, 61)
caseCount := caseCount+1
RESULTIS List3(s.case, a, RbCom())
CASE s.default:
NextSymb()
CheckFor(s.colon, 62)
RESULTIS List2(s.default, RbCom())
CASE s.lsect:
RESULTIS RdSect(RdBlockBody)
$)
$)
AND RCom() = VALOF
$( LET a = RbCom()
IF a=0 THEN SynReport(51)
WHILE symb=s.repeat | symb=s.repeatwhile | symb=s.repeatuntil DO
$( LET op = symb
NextSymb()
a := op=s.repeat -> List2(op, a),
List3(op, a, RExp(0)) $)
RESULTIS a
$)
00000000 53 45 43 54 49 4f 4e 20 22 4c 65 78 22 0a 0a 47 |SECTION "Lex"..G|
00000010 45 54 20 22 62 2e 48 65 61 64 65 72 22 0a 0a 53 |ET "b.Header"..S|
00000020 54 41 54 49 43 0a 24 28 20 2f 2f 20 56 65 72 73 |TATIC.$( // Vers|
00000030 69 6f 6e 20 6f 66 20 20 32 38 20 46 65 62 20 38 |ion of 28 Feb 8|
00000040 36 20 31 33 3a 30 34 3a 35 39 0a 20 20 20 64 75 |6 13:04:59. du|
00000050 6d 6d 79 20 3d 20 56 65 72 73 69 6f 6e 4d 61 72 |mmy = VersionMar|
00000060 6b 3b 0a 20 20 20 76 65 72 73 69 6f 6e 20 3d 20 |k;. version = |
00000070 31 2a 32 35 36 2b 32 0a 24 29 0a 0a 2f 2a 20 31 |1*256+2.$)../* 1|
00000080 2e 32 09 32 38 20 46 65 62 20 38 36 20 31 33 3a |.2.28 Feb 86 13:|
00000090 30 35 3a 31 30 0a 20 20 20 20 20 63 63 73 74 61 |05:10. ccsta|
000000a0 63 6b 20 69 6e 69 74 69 61 6c 69 73 65 64 20 74 |ck initialised t|
000000b0 6f 20 7a 65 72 6f 20 28 73 6f 20 75 6e 6d 61 74 |o zero (so unmat|
000000c0 63 68 69 6e 67 20 74 61 67 73 20 64 6f 6e 27 74 |ching tags don't|
000000d0 20 63 61 75 73 65 0a 20 20 20 20 20 63 6f 6d 70 | cause. comp|
000000e0 69 6c 65 72 20 63 6f 6c 6c 61 70 73 65 0a 2a 2f |iler collapse.*/|
000000f0 0a 0a 4c 45 54 20 69 6e 69 74 69 61 6c 69 73 65 |..LET initialise|
00000100 2e 6c 65 78 28 29 20 42 45 0a 24 28 20 63 63 73 |.lex() BE.$( ccs|
00000110 74 61 63 6b 20 3a 3d 20 30 3b 0a 20 20 20 44 65 |tack := 0;. De|
00000120 63 6c 53 79 73 57 6f 72 64 73 28 29 0a 20 20 20 |clSysWords(). |
00000130 52 43 68 28 29 0a 24 29 0a 0a 41 4e 44 20 4e 65 |RCh().$)..AND Ne|
00000140 78 74 53 79 6d 62 28 29 20 42 45 0a 24 28 20 4c |xtSymb() BE.$( L|
00000150 45 54 20 42 61 73 69 63 53 79 6d 62 28 29 20 42 |ET BasicSymb() B|
00000160 45 0a 20 20 20 24 28 20 6e 6c 50 65 6e 64 69 6e |E. $( nlPendin|
00000170 67 20 3a 3d 20 46 41 4c 53 45 0a 0a 20 20 20 20 |g := FALSE.. |
00000180 20 20 24 28 20 53 57 49 54 43 48 4f 4e 20 63 68 | $( SWITCHON ch|
00000190 20 49 4e 54 4f 0a 09 20 24 28 20 43 41 53 45 20 | INTO.. $( CASE |
000001a0 27 2a 4e 27 3a 20 6e 6c 50 65 6e 64 69 6e 67 20 |'*N': nlPending |
000001b0 3a 3d 20 54 52 55 45 0a 09 20 20 20 20 43 41 53 |:= TRUE.. CAS|
000001c0 45 20 27 2a 54 27 3a 0a 09 20 20 20 20 43 41 53 |E '*T':.. CAS|
000001d0 45 20 27 2a 53 27 3a 0a 09 20 20 20 20 20 20 52 |E '*S':.. R|
000001e0 43 68 28 29 20 52 45 50 45 41 54 57 48 49 4c 45 |Ch() REPEATWHILE|
000001f0 20 63 68 3d 27 2a 53 27 0a 09 20 20 20 20 20 20 | ch='*S'.. |
00000200 4c 4f 4f 50 0a 0a 09 20 20 20 20 43 41 53 45 20 |LOOP... CASE |
00000210 27 30 27 3a 20 43 41 53 45 20 27 31 27 3a 20 43 |'0': CASE '1': C|
00000220 41 53 45 20 27 32 27 3a 20 43 41 53 45 20 27 33 |ASE '2': CASE '3|
00000230 27 3a 0a 09 20 20 20 20 43 41 53 45 20 27 34 27 |':.. CASE '4'|
00000240 3a 20 43 41 53 45 20 27 35 27 3a 20 43 41 53 45 |: CASE '5': CASE|
00000250 20 27 36 27 3a 20 43 41 53 45 20 27 37 27 3a 0a | '6': CASE '7':.|
00000260 09 20 20 20 20 43 41 53 45 20 27 38 27 3a 20 43 |. CASE '8': C|
00000270 41 53 45 20 27 39 27 3a 0a 09 20 20 20 20 20 20 |ASE '9':.. |
00000280 73 79 6d 62 20 3a 3d 20 73 2e 6e 75 6d 62 65 72 |symb := s.number|
00000290 0a 09 20 20 20 20 20 20 52 65 61 64 4e 75 6d 62 |.. ReadNumb|
000002a0 65 72 28 31 30 29 3b 0a 09 20 20 20 20 20 20 49 |er(10);.. I|
000002b0 46 20 63 68 3d 27 2e 27 20 7c 20 63 68 3d 27 45 |F ch='.' | ch='E|
000002c0 27 20 7c 20 63 68 3d 27 65 27 20 54 48 45 4e 20 |' | ch='e' THEN |
000002d0 52 65 61 64 46 6c 6f 61 74 28 29 3b 0a 09 20 20 |ReadFloat();.. |
000002e0 20 20 20 20 52 45 54 55 52 4e 0a 0a 09 20 20 20 | RETURN... |
000002f0 20 43 41 53 45 20 27 61 27 3a 20 43 41 53 45 20 | CASE 'a': CASE |
00000300 27 62 27 3a 20 43 41 53 45 20 27 63 27 3a 20 43 |'b': CASE 'c': C|
00000310 41 53 45 20 27 64 27 3a 0a 09 20 20 20 20 43 41 |ASE 'd':.. CA|
00000320 53 45 20 27 65 27 3a 20 43 41 53 45 20 27 66 27 |SE 'e': CASE 'f'|
00000330 3a 20 43 41 53 45 20 27 67 27 3a 20 43 41 53 45 |: CASE 'g': CASE|
00000340 20 27 68 27 3a 0a 09 20 20 20 20 43 41 53 45 20 | 'h':.. CASE |
00000350 27 69 27 3a 20 43 41 53 45 20 27 6a 27 3a 20 43 |'i': CASE 'j': C|
00000360 41 53 45 20 27 6b 27 3a 20 43 41 53 45 20 27 6c |ASE 'k': CASE 'l|
00000370 27 3a 0a 09 20 20 20 20 43 41 53 45 20 27 6d 27 |':.. CASE 'm'|
00000380 3a 20 43 41 53 45 20 27 6e 27 3a 20 43 41 53 45 |: CASE 'n': CASE|
00000390 20 27 6f 27 3a 20 43 41 53 45 20 27 70 27 3a 0a | 'o': CASE 'p':.|
000003a0 09 20 20 20 20 43 41 53 45 20 27 71 27 3a 20 43 |. CASE 'q': C|
000003b0 41 53 45 20 27 72 27 3a 20 43 41 53 45 20 27 73 |ASE 'r': CASE 's|
000003c0 27 3a 20 43 41 53 45 20 27 74 27 3a 0a 09 20 20 |': CASE 't':.. |
000003d0 20 20 43 41 53 45 20 27 75 27 3a 20 43 41 53 45 | CASE 'u': CASE|
000003e0 20 27 76 27 3a 20 43 41 53 45 20 27 77 27 3a 20 | 'v': CASE 'w': |
000003f0 43 41 53 45 20 27 78 27 3a 0a 09 20 20 20 20 43 |CASE 'x':.. C|
00000400 41 53 45 20 27 79 27 3a 20 43 41 53 45 20 27 7a |ASE 'y': CASE 'z|
00000410 27 3a 0a 09 20 20 20 20 43 41 53 45 20 27 41 27 |':.. CASE 'A'|
00000420 3a 20 43 41 53 45 20 27 42 27 3a 20 43 41 53 45 |: CASE 'B': CASE|
00000430 20 27 43 27 3a 20 43 41 53 45 20 27 44 27 3a 0a | 'C': CASE 'D':.|
00000440 09 20 20 20 20 43 41 53 45 20 27 45 27 3a 20 43 |. CASE 'E': C|
00000450 41 53 45 20 27 46 27 3a 20 43 41 53 45 20 27 47 |ASE 'F': CASE 'G|
00000460 27 3a 20 43 41 53 45 20 27 48 27 3a 0a 09 20 20 |': CASE 'H':.. |
00000470 20 20 43 41 53 45 20 27 49 27 3a 20 43 41 53 45 | CASE 'I': CASE|
00000480 20 27 4a 27 3a 20 43 41 53 45 20 27 4b 27 3a 20 | 'J': CASE 'K': |
00000490 43 41 53 45 20 27 4c 27 3a 0a 09 20 20 20 20 43 |CASE 'L':.. C|
000004a0 41 53 45 20 27 4d 27 3a 20 43 41 53 45 20 27 4e |ASE 'M': CASE 'N|
000004b0 27 3a 20 43 41 53 45 20 27 4f 27 3a 20 43 41 53 |': CASE 'O': CAS|
000004c0 45 20 27 50 27 3a 0a 09 20 20 20 20 43 41 53 45 |E 'P':.. CASE|
000004d0 20 27 51 27 3a 20 43 41 53 45 20 27 52 27 3a 20 | 'Q': CASE 'R': |
000004e0 43 41 53 45 20 27 53 27 3a 20 43 41 53 45 20 27 |CASE 'S': CASE '|
000004f0 54 27 3a 0a 09 20 20 20 20 43 41 53 45 20 27 55 |T':.. CASE 'U|
00000500 27 3a 20 43 41 53 45 20 27 56 27 3a 20 43 41 53 |': CASE 'V': CAS|
00000510 45 20 27 57 27 3a 20 43 41 53 45 20 27 58 27 3a |E 'W': CASE 'X':|
00000520 0a 09 20 20 20 20 43 41 53 45 20 27 59 27 3a 20 |.. CASE 'Y': |
00000530 43 41 53 45 20 27 5a 27 3a 0a 09 20 20 20 20 20 |CASE 'Z':.. |
00000540 20 24 28 20 4c 45 54 20 63 3d 63 68 0a 0a 09 09 | $( LET c=ch....|
00000550 20 52 43 68 28 29 0a 09 09 20 52 64 54 61 67 28 | RCh()... RdTag(|
00000560 63 29 0a 09 09 20 73 79 6d 62 20 3a 3d 20 4c 6f |c)... symb := Lo|
00000570 6f 6b 55 70 57 6f 72 64 28 29 0a 0a 09 09 20 49 |okUpWord().... I|
00000580 46 20 73 79 6d 62 3d 73 2e 67 65 74 20 54 48 45 |F symb=s.get THE|
00000590 4e 0a 09 09 20 24 28 20 50 65 72 66 6f 72 6d 47 |N... $( PerformG|
000005a0 65 74 28 29 0a 09 09 20 20 20 20 4c 4f 4f 50 0a |et()... LOOP.|
000005b0 09 09 20 24 29 0a 09 09 20 52 45 54 55 52 4e 0a |.. $)... RETURN.|
000005c0 09 20 20 20 20 20 20 24 29 0a 0a 09 20 20 20 20 |. $)... |
000005d0 43 41 53 45 20 27 7b 27 3a 20 43 41 53 45 20 27 |CASE '{': CASE '|
000005e0 7d 27 3a 0a 09 20 20 20 20 20 20 73 79 6d 62 20 |}':.. symb |
000005f0 3a 3d 20 63 68 3d 27 7b 27 20 2d 3e 20 73 2e 6c |:= ch='{' -> s.l|
00000600 73 65 63 74 2c 20 73 2e 72 73 65 63 74 3b 0a 09 |sect, s.rsect;..|
00000610 20 20 20 20 20 20 52 43 68 28 29 3b 0a 09 20 20 | RCh();.. |
00000620 20 20 20 20 52 64 54 61 67 28 27 24 27 29 3b 0a | RdTag('$');.|
00000630 09 20 20 20 20 20 20 4c 6f 6f 6b 55 70 57 6f 72 |. LookUpWor|
00000640 64 28 29 3b 0a 09 20 20 20 20 20 20 52 45 54 55 |d();.. RETU|
00000650 52 4e 0a 0a 09 20 20 20 20 43 41 53 45 20 27 24 |RN... CASE '$|
00000660 27 3a 0a 09 20 20 20 20 20 20 6d 75 6c 74 69 63 |':.. multic|
00000670 68 61 72 28 22 28 29 3c 3e 24 22 2c 20 73 2e 6c |har("()<>$", s.l|
00000680 73 65 63 74 2c 73 2e 72 73 65 63 74 2c 20 31 2c |sect,s.rsect, 1,|
00000690 32 2c 0a 09 09 09 73 2e 74 61 67 6e 61 6d 65 2c |2,....s.tagname,|
000006a0 20 30 29 0a 0a 09 20 20 20 20 20 20 49 46 20 73 | 0)... IF s|
000006b0 79 6d 62 3d 73 2e 6c 73 65 63 74 20 7c 20 73 79 |ymb=s.lsect | sy|
000006c0 6d 62 3d 73 2e 72 73 65 63 74 20 54 48 45 4e 0a |mb=s.rsect THEN.|
000006d0 09 20 20 20 20 20 20 24 28 20 52 64 54 61 67 28 |. $( RdTag(|
000006e0 27 24 27 29 0a 09 09 20 4c 6f 6f 6b 55 70 57 6f |'$')... LookUpWo|
000006f0 72 64 28 29 0a 09 09 20 52 45 54 55 52 4e 20 24 |rd()... RETURN $|
00000700 29 0a 0a 09 20 20 20 20 20 20 49 46 20 65 78 74 |)... IF ext|
00000710 65 6e 73 69 6f 6e 2e 6c 65 76 65 6c 3e 3d 33 20 |ension.level>=3 |
00000720 26 20 73 79 6d 62 7e 3d 30 20 54 48 45 4e 0a 09 |& symb~=0 THEN..|
00000730 20 20 20 20 20 20 24 28 20 4c 45 54 20 63 63 68 | $( LET cch|
00000740 20 3d 20 43 61 70 69 74 61 6c 43 68 28 63 68 29 | = CapitalCh(ch)|
00000750 0a 09 09 20 4c 45 54 20 63 20 3d 20 63 68 0a 09 |... LET c = ch..|
00000760 09 20 49 46 20 7e 5b 27 41 27 3c 3d 63 63 68 3c |. IF ~['A'<=cch<|
00000770 3d 27 5a 27 20 7c 20 27 30 27 3c 3d 63 63 68 3c |='Z' | '0'<=cch<|
00000780 3d 27 39 27 5d 0a 09 09 20 20 20 20 54 48 45 4e |='9']... THEN|
00000790 20 53 79 6e 52 65 70 6f 72 74 28 32 29 0a 0a 09 | SynReport(2)...|
000007a0 09 20 52 43 68 28 29 0a 09 09 20 52 64 54 61 67 |. RCh()... RdTag|
000007b0 28 63 29 0a 09 09 20 74 61 67 70 74 72 20 3a 3d |(c)... tagptr :=|
000007c0 20 4c 6f 6f 6b 55 70 54 61 67 28 77 6f 72 64 76 | LookUpTag(wordv|
000007d0 29 0a 0a 09 09 20 49 46 20 73 79 6d 62 7e 3d 73 |).... IF symb~=s|
000007e0 2e 74 61 67 6e 61 6d 65 20 54 48 45 4e 0a 09 09 |.tagname THEN...|
000007f0 20 20 20 2f 2f 0a 09 09 20 20 20 2f 2f 20 24 3c | //... // $<|
00000800 74 61 67 20 6f 72 20 24 3e 74 61 67 0a 09 09 20 |tag or $>tag... |
00000810 20 20 2f 2f 0a 09 09 20 24 28 20 4c 45 54 20 69 | //... $( LET i|
00000820 6e 76 65 72 73 65 20 3d 20 46 41 4c 53 45 0a 09 |nverse = FALSE..|
00000830 09 20 20 20 20 49 46 20 63 68 3d 27 2a 27 27 20 |. IF ch='*'' |
00000840 54 48 45 4e 0a 09 09 20 20 20 20 24 28 20 52 43 |THEN... $( RC|
00000850 68 28 29 0a 09 09 20 20 20 20 20 20 20 69 6e 76 |h()... inv|
00000860 65 72 73 65 20 3a 3d 20 54 52 55 45 20 24 29 3b |erse := TRUE $);|
00000870 0a 09 09 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e |... condition|
00000880 61 6c 2e 63 6f 6d 70 69 6c 61 74 69 6f 6e 28 73 |al.compilation(s|
00000890 79 6d 62 3d 31 2c 20 74 61 67 70 74 72 2c 20 69 |ymb=1, tagptr, i|
000008a0 6e 76 65 72 73 65 29 0a 09 09 20 20 20 20 4c 4f |nverse)... LO|
000008b0 4f 50 20 24 29 0a 09 09 20 52 45 54 55 52 4e 0a |OP $)... RETURN.|
000008c0 09 20 20 20 20 20 20 24 29 0a 09 20 20 20 20 20 |. $).. |
000008d0 20 53 79 6e 52 65 70 6f 72 74 28 39 31 29 0a 09 | SynReport(91)..|
000008e0 20 20 20 20 20 20 45 4e 44 43 41 53 45 0a 0a 09 | ENDCASE...|
000008f0 20 20 20 20 43 41 53 45 20 27 5b 27 3a 0a 09 20 | CASE '[':.. |
00000900 20 20 20 43 41 53 45 20 27 28 27 3a 20 73 79 6d | CASE '(': sym|
00000910 62 20 3a 3d 20 73 2e 6c 70 61 72 65 6e 3b 20 42 |b := s.lparen; B|
00000920 52 45 41 4b 0a 09 20 20 20 20 43 41 53 45 20 27 |REAK.. CASE '|
00000930 5d 27 3a 0a 09 20 20 20 20 43 41 53 45 20 27 29 |]':.. CASE ')|
00000940 27 3a 20 73 79 6d 62 20 3a 3d 20 73 2e 72 70 61 |': symb := s.rpa|
00000950 72 65 6e 3b 20 42 52 45 41 4b 0a 0a 09 20 20 20 |ren; BREAK... |
00000960 20 43 41 53 45 20 27 23 27 3a 0a 09 20 20 20 20 | CASE '#':.. |
00000970 20 20 24 28 20 4c 45 54 20 72 61 64 69 78 20 3d | $( LET radix =|
00000980 20 38 0a 09 09 20 52 43 68 28 29 0a 09 09 20 49 | 8... RCh()... I|
00000990 46 20 7e 5b 27 30 27 3c 3d 63 68 3c 3d 27 37 27 |F ~['0'<=ch<='7'|
000009a0 5d 20 54 48 45 4e 0a 09 09 20 24 28 20 53 57 49 |] THEN... $( SWI|
000009b0 54 43 48 4f 4e 20 43 61 70 69 74 61 6c 43 68 28 |TCHON CapitalCh(|
000009c0 63 68 29 20 49 4e 54 4f 0a 0a 09 09 20 20 20 20 |ch) INTO.... |
000009d0 24 28 20 44 45 46 41 55 4c 54 3a 0a 09 09 09 20 |$( DEFAULT:.... |
000009e0 20 42 61 73 69 63 53 79 6d 62 28 29 3b 0a 09 09 | BasicSymb();...|
000009f0 09 20 20 53 57 49 54 43 48 4f 4e 20 73 79 6d 62 |. SWITCHON symb|
00000a00 20 49 4e 54 4f 0a 09 09 09 20 20 24 28 20 43 41 | INTO.... $( CA|
00000a10 53 45 20 73 2e 70 6c 75 73 3a 43 41 53 45 20 73 |SE s.plus:CASE s|
00000a20 2e 6d 69 6e 75 73 3a 43 41 53 45 20 73 2e 6d 75 |.minus:CASE s.mu|
00000a30 6c 74 3a 43 41 53 45 20 73 2e 64 69 76 3a 0a 09 |lt:CASE s.div:..|
00000a40 09 09 20 20 20 20 20 43 41 53 45 20 73 2e 61 62 |.. CASE s.ab|
00000a50 73 3a 0a 09 09 09 20 20 20 20 20 43 41 53 45 20 |s:.... CASE |
00000a60 73 2e 6c 73 3a 43 41 53 45 20 73 2e 67 72 3a 43 |s.ls:CASE s.gr:C|
00000a70 41 53 45 20 73 2e 6c 65 3a 43 41 53 45 20 73 2e |ASE s.le:CASE s.|
00000a80 67 65 3a 0a 09 09 09 20 20 20 20 20 43 41 53 45 |ge:.... CASE|
00000a90 20 73 2e 65 71 3a 43 41 53 45 20 73 2e 6e 65 3a | s.eq:CASE s.ne:|
00000aa0 0a 09 09 09 09 73 79 6d 62 20 3a 3d 20 73 79 6d |.....symb := sym|
00000ab0 62 2b 73 2e 66 61 64 64 3b 0a 09 09 09 09 52 45 |b+s.fadd;.....RE|
00000ac0 54 55 52 4e 0a 0a 09 09 09 20 20 20 20 20 44 45 |TURN..... DE|
00000ad0 46 41 55 4c 54 3a 0a 09 09 09 09 53 79 6e 52 65 |FAULT:.....SynRe|
00000ae0 70 6f 72 74 28 33 33 29 0a 09 09 09 20 20 24 29 |port(33).... $)|
00000af0 0a 0a 09 09 20 20 20 20 20 20 20 43 41 53 45 20 |.... CASE |
00000b00 27 42 27 3a 72 61 64 69 78 20 3a 3d 20 32 3b 45 |'B':radix := 2;E|
00000b10 4e 44 43 41 53 45 0a 09 09 20 20 20 20 20 20 20 |NDCASE... |
00000b20 43 41 53 45 20 27 4f 27 3a 72 61 64 69 78 20 3a |CASE 'O':radix :|
00000b30 3d 20 38 3b 45 4e 44 43 41 53 45 0a 09 09 20 20 |= 8;ENDCASE... |
00000b40 20 20 20 20 20 43 41 53 45 20 27 58 27 3a 72 61 | CASE 'X':ra|
00000b50 64 69 78 20 3a 3d 20 31 36 0a 09 09 20 20 20 20 |dix := 16... |
00000b60 24 29 0a 09 09 20 20 20 20 52 43 68 28 29 20 24 |$)... RCh() $|
00000b70 29 0a 09 09 20 52 65 61 64 4e 75 6d 62 65 72 28 |)... ReadNumber(|
00000b80 72 61 64 69 78 29 0a 09 09 20 73 79 6d 62 20 3a |radix)... symb :|
00000b90 3d 20 73 2e 6e 75 6d 62 65 72 0a 09 09 20 52 45 |= s.number... RE|
00000ba0 54 55 52 4e 0a 09 20 20 20 20 20 20 24 29 0a 0a |TURN.. $)..|
00000bb0 09 20 20 20 20 43 41 53 45 20 27 3f 27 3a 20 73 |. CASE '?': s|
00000bc0 79 6d 62 20 3a 3d 20 73 2e 71 75 65 72 79 3b 09 |ymb := s.query;.|
00000bd0 20 20 20 42 52 45 41 4b 0a 09 20 20 20 20 43 41 | BREAK.. CA|
00000be0 53 45 20 27 2b 27 3a 20 73 79 6d 62 20 3a 3d 20 |SE '+': symb := |
00000bf0 73 2e 70 6c 75 73 3b 09 20 20 20 42 52 45 41 4b |s.plus;. BREAK|
00000c00 0a 09 20 20 20 20 43 41 53 45 20 27 2c 27 3a 20 |.. CASE ',': |
00000c10 73 79 6d 62 20 3a 3d 20 73 2e 63 6f 6d 6d 61 3b |symb := s.comma;|
00000c20 09 20 20 20 42 52 45 41 4b 0a 09 20 20 20 20 43 |. BREAK.. C|
00000c30 41 53 45 20 27 3b 27 3a 20 73 79 6d 62 20 3a 3d |ASE ';': symb :=|
00000c40 20 73 2e 73 65 6d 69 63 6f 6c 6f 6e 3b 20 42 52 | s.semicolon; BR|
00000c50 45 41 4b 0a 09 20 20 20 20 43 41 53 45 20 27 40 |EAK.. CASE '@|
00000c60 27 3a 20 73 79 6d 62 20 3a 3d 20 73 2e 6c 76 3b |': symb := s.lv;|
00000c70 09 20 20 20 42 52 45 41 4b 0a 09 20 20 20 20 43 |. BREAK.. C|
00000c80 41 53 45 20 27 26 27 3a 20 73 79 6d 62 20 3a 3d |ASE '&': symb :=|
00000c90 20 73 2e 6c 6f 67 61 6e 64 3b 20 20 20 20 42 52 | s.logand; BR|
00000ca0 45 41 4b 0a 09 20 20 20 20 43 41 53 45 20 27 3d |EAK.. CASE '=|
00000cb0 27 3a 20 73 79 6d 62 20 3a 3d 20 73 2e 65 71 3b |': symb := s.eq;|
00000cc0 09 20 20 20 42 52 45 41 4b 0a 09 20 20 20 20 43 |. BREAK.. C|
00000cd0 41 53 45 20 27 21 27 3a 20 73 79 6d 62 20 3a 3d |ASE '!': symb :=|
00000ce0 20 73 2e 76 65 63 61 70 3b 09 20 20 20 42 52 45 | s.vecap;. BRE|
00000cf0 41 4b 0a 09 20 20 20 20 43 41 53 45 20 27 2a 2a |AK.. CASE '**|
00000d00 27 3a 73 79 6d 62 20 3a 3d 20 73 2e 6d 75 6c 74 |':symb := s.mult|
00000d10 3b 09 20 20 20 42 52 45 41 4b 0a 0a 09 20 20 20 |;. BREAK... |
00000d20 20 43 41 53 45 20 27 25 27 3a 0a 09 20 20 20 20 | CASE '%':.. |
00000d30 20 20 20 49 46 20 65 78 74 65 6e 73 69 6f 6e 2e | IF extension.|
00000d40 6c 65 76 65 6c 3c 32 20 54 48 45 4e 0a 09 20 20 |level<2 THEN.. |
00000d50 20 20 20 20 20 24 28 20 63 68 20 3a 3d 20 30 0a | $( ch := 0.|
00000d60 09 09 20 20 4c 4f 4f 50 20 24 29 0a 09 20 20 20 |.. LOOP $).. |
00000d70 20 20 20 20 73 79 6d 62 20 3a 3d 20 73 2e 62 79 | symb := s.by|
00000d80 74 65 61 70 0a 09 20 20 20 20 20 20 20 42 52 45 |teap.. BRE|
00000d90 41 4b 0a 0a 09 20 20 20 20 43 41 53 45 20 27 7c |AK... CASE '||
00000da0 27 3a 0a 09 20 20 20 20 20 20 49 46 20 65 78 74 |':.. IF ext|
00000db0 65 6e 73 69 6f 6e 2e 6c 65 76 65 6c 3c 31 20 54 |ension.level<1 T|
00000dc0 48 45 4e 0a 09 20 20 20 20 20 20 24 28 20 73 79 |HEN.. $( sy|
00000dd0 6d 62 20 3a 3d 20 73 2e 6c 6f 67 6f 72 0a 09 09 |mb := s.logor...|
00000de0 20 42 52 45 41 4b 20 24 29 0a 0a 09 20 20 20 20 | BREAK $)... |
00000df0 20 20 6d 75 6c 74 69 63 68 61 72 28 22 7c 22 2c | multichar("|",|
00000e00 20 30 2c 20 73 2e 6c 6f 67 6f 72 29 0a 09 20 20 | 0, s.logor).. |
00000e10 20 20 20 20 49 46 20 73 79 6d 62 7e 3d 30 20 54 | IF symb~=0 T|
00000e20 48 45 4e 20 52 45 54 55 52 4e 0a 0a 09 63 6d 6e |HEN RETURN...cmn|
00000e30 74 3a 20 55 4e 54 49 4c 20 63 68 3d 27 2a 4e 27 |t: UNTIL ch='*N'|
00000e40 20 7c 20 63 68 3d 27 2a 50 27 20 7c 20 63 68 3d | | ch='*P' | ch=|
00000e50 45 6e 64 53 74 72 65 61 6d 43 68 09 44 4f 0a 09 |EndStreamCh.DO..|
00000e60 09 52 43 68 28 29 0a 09 20 20 20 20 20 20 4c 4f |.RCh().. LO|
00000e70 4f 50 0a 0a 09 20 20 20 20 43 41 53 45 20 27 2f |OP... CASE '/|
00000e80 27 3a 0a 09 20 20 20 20 20 20 6d 75 6c 74 69 63 |':.. multic|
00000e90 68 61 72 28 22 5c 2f 2a 2a 22 2c 20 73 2e 6c 6f |har("\/**", s.lo|
00000ea0 67 61 6e 64 2c 20 30 2c 20 2d 31 2c 20 73 2e 64 |gand, 0, -1, s.d|
00000eb0 69 76 29 0a 09 20 20 20 20 20 20 49 46 20 73 79 |iv).. IF sy|
00000ec0 6d 62 3e 30 20 54 48 45 4e 20 52 45 54 55 52 4e |mb>0 THEN RETURN|
00000ed0 0a 09 20 20 20 20 20 20 49 46 20 73 79 6d 62 3d |.. IF symb=|
00000ee0 30 20 54 48 45 4e 20 47 4f 54 4f 20 63 6d 6e 74 |0 THEN GOTO cmnt|
00000ef0 0a 0a 09 20 20 20 20 20 20 24 28 20 49 46 20 63 |... $( IF c|
00000f00 68 3d 27 2a 2a 27 20 54 48 45 4e 0a 09 09 20 24 |h='**' THEN... $|
00000f10 28 20 52 43 68 28 29 0a 09 09 20 20 20 20 49 46 |( RCh()... IF|
00000f20 20 63 68 3d 27 2f 27 20 54 48 45 4e 20 42 52 45 | ch='/' THEN BRE|
00000f30 41 4b 0a 09 09 20 20 20 20 4c 4f 4f 50 20 24 29 |AK... LOOP $)|
00000f40 0a 09 09 20 49 46 20 63 68 3d 45 6e 64 53 74 72 |... IF ch=EndStr|
00000f50 65 61 6d 43 68 20 54 48 45 4e 20 53 79 6e 52 65 |eamCh THEN SynRe|
00000f60 70 6f 72 74 28 36 33 29 3b 0a 09 09 20 52 43 68 |port(63);... RCh|
00000f70 28 29 0a 09 20 20 20 20 20 20 24 29 20 52 45 50 |().. $) REP|
00000f80 45 41 54 0a 09 20 20 20 20 20 20 52 43 68 28 29 |EAT.. RCh()|
00000f90 0a 09 20 20 20 20 20 20 4c 4f 4f 50 0a 0a 09 20 |.. LOOP... |
00000fa0 20 20 20 43 41 53 45 20 27 7e 27 3a 0a 09 20 20 | CASE '~':.. |
00000fb0 20 20 20 20 6d 75 6c 74 69 63 68 61 72 28 22 3d | multichar("=|
00000fc0 22 2c 20 73 2e 6e 65 2c 20 73 2e 6e 6f 74 29 0a |", s.ne, s.not).|
00000fd0 09 20 20 20 20 20 20 52 45 54 55 52 4e 0a 0a 09 |. RETURN...|
00000fe0 20 20 20 20 43 41 53 45 20 27 5c 27 3a 0a 09 20 | CASE '\':.. |
00000ff0 20 20 20 20 20 6d 75 6c 74 69 63 68 61 72 28 22 | multichar("|
00001000 2f 3d 22 2c 20 73 2e 6c 6f 67 6f 72 2c 20 73 2e |/=", s.logor, s.|
00001010 6e 65 2c 20 73 2e 6e 6f 74 29 0a 09 20 20 20 20 |ne, s.not).. |
00001020 20 20 52 45 54 55 52 4e 0a 0a 09 20 20 20 20 43 | RETURN... C|
00001030 41 53 45 20 27 3c 27 3a 0a 09 20 20 20 20 20 20 |ASE '<':.. |
00001040 6d 75 6c 74 69 63 68 61 72 28 22 3d 3c 22 2c 20 |multichar("=<", |
00001050 73 2e 6c 65 2c 20 73 2e 6c 73 68 69 66 74 2c 20 |s.le, s.lshift, |
00001060 73 2e 6c 73 29 0a 09 20 20 20 20 20 20 52 45 54 |s.ls).. RET|
00001070 55 52 4e 0a 0a 09 20 20 20 20 43 41 53 45 20 27 |URN... CASE '|
00001080 3e 27 3a 0a 09 20 20 20 20 20 20 6d 75 6c 74 69 |>':.. multi|
00001090 63 68 61 72 28 22 3d 3e 22 2c 20 73 2e 67 65 2c |char("=>", s.ge,|
000010a0 20 73 2e 72 73 68 69 66 74 2c 20 73 2e 67 72 29 | s.rshift, s.gr)|
000010b0 0a 09 20 20 20 20 20 20 52 45 54 55 52 4e 0a 0a |.. RETURN..|
000010c0 09 20 20 20 20 43 41 53 45 20 27 2d 27 3a 0a 09 |. CASE '-':..|
000010d0 20 20 20 20 20 20 6d 75 6c 74 69 63 68 61 72 28 | multichar(|
000010e0 22 3e 22 2c 20 73 2e 63 6f 6e 64 2c 20 73 2e 6d |">", s.cond, s.m|
000010f0 69 6e 75 73 29 0a 09 20 20 20 20 20 20 52 45 54 |inus).. RET|
00001100 55 52 4e 0a 0a 09 20 20 20 20 43 41 53 45 20 27 |URN... CASE '|
00001110 3a 27 3a 0a 09 20 20 20 20 20 20 6d 75 6c 74 69 |:':.. multi|
00001120 63 68 61 72 28 22 3d 22 2c 20 73 2e 61 73 73 2c |char("=", s.ass,|
00001130 20 73 2e 63 6f 6c 6f 6e 29 0a 09 20 20 20 20 20 | s.colon).. |
00001140 20 52 45 54 55 52 4e 0a 0a 09 20 20 20 20 43 41 | RETURN... CA|
00001150 53 45 20 27 22 27 3a 0a 09 20 20 20 20 20 20 24 |SE '"':.. $|
00001160 28 20 4c 45 54 20 69 20 3d 20 30 0a 09 09 20 4c |( LET i = 0... L|
00001170 45 54 20 73 63 68 20 3d 20 3f 0a 0a 09 09 20 57 |ET sch = ?.... W|
00001180 48 49 4c 45 20 52 64 53 74 72 43 68 28 27 22 27 |HILE RdStrCh('"'|
00001190 2c 20 40 73 63 68 29 20 44 4f 0a 09 09 20 24 28 |, @sch) DO... $(|
000011a0 20 49 46 20 69 3d 32 35 35 20 54 48 45 4e 20 53 | IF i=255 THEN S|
000011b0 79 6e 52 65 70 6f 72 74 28 33 34 29 0a 09 09 20 |ynReport(34)... |
000011c0 20 20 20 69 20 3a 3d 20 69 2b 31 0a 09 09 20 20 | i := i+1... |
000011d0 20 20 77 6f 72 64 76 25 69 20 3a 3d 20 73 63 68 | wordv%i := sch|
000011e0 20 24 29 0a 09 09 20 77 6f 72 64 76 25 30 20 3a | $)... wordv%0 :|
000011f0 3d 20 69 0a 09 09 20 73 79 6d 62 20 3a 3d 20 73 |= i... symb := s|
00001200 2e 73 74 72 69 6e 67 0a 09 09 20 42 52 45 41 4b |.string... BREAK|
00001210 0a 09 20 20 20 20 20 20 24 29 0a 0a 09 20 20 20 |.. $)... |
00001220 20 43 41 53 45 20 27 2a 27 27 3a 0a 09 20 20 20 | CASE '*'':.. |
00001230 20 20 20 24 28 20 4c 45 54 20 6f 6b 20 3d 20 52 | $( LET ok = R|
00001240 64 53 74 72 43 68 28 27 2a 27 27 2c 20 40 64 65 |dStrCh('*'', @de|
00001250 63 76 61 6c 29 0a 09 09 20 73 79 6d 62 20 3a 3d |cval)... symb :=|
00001260 20 73 2e 6e 75 6d 62 65 72 3b 0a 09 09 20 49 46 | s.number;... IF|
00001270 20 6f 6b 20 54 48 45 4e 0a 09 09 20 24 28 20 52 | ok THEN... $( R|
00001280 43 68 28 29 0a 09 09 20 20 20 20 6f 6b 20 3a 3d |Ch()... ok :=|
00001290 20 63 68 3d 27 2a 27 27 20 24 29 0a 09 09 20 49 | ch='*'' $)... I|
000012a0 46 20 7e 6f 6b 20 54 48 45 4e 20 53 79 6e 52 65 |F ~ok THEN SynRe|
000012b0 70 6f 72 74 28 33 34 29 0a 09 09 20 42 52 45 41 |port(34)... BREA|
000012c0 4b 0a 09 20 20 20 20 20 20 24 29 0a 0a 09 20 20 |K.. $)... |
000012d0 20 20 44 45 46 41 55 4c 54 3a 0a 09 20 20 20 20 | DEFAULT:.. |
000012e0 20 20 49 46 20 63 68 7e 3d 45 6e 64 53 74 72 65 | IF ch~=EndStre|
000012f0 61 6d 43 68 20 54 48 45 4e 0a 09 20 20 20 20 20 |amCh THEN.. |
00001300 20 24 28 20 63 68 20 3a 3d 20 27 2a 53 27 0a 09 | $( ch := '*S'..|
00001310 09 20 53 79 6e 52 65 70 6f 72 74 28 39 34 29 20 |. SynReport(94) |
00001320 24 29 0a 0a 09 20 20 20 20 43 41 53 45 20 27 2e |$)... CASE '.|
00001330 27 3a 0a 09 20 20 20 20 20 20 49 46 20 67 65 74 |':.. IF get|
00001340 70 3d 30 20 54 48 45 4e 0a 09 20 20 20 20 20 20 |p=0 THEN.. |
00001350 24 28 20 73 79 6d 62 20 3a 3d 20 73 2e 65 6e 64 |$( symb := s.end|
00001360 0a 09 09 20 42 52 45 41 4b 20 24 29 0a 09 20 20 |... BREAK $).. |
00001370 20 20 20 20 63 6c 6f 73 65 28 73 6f 75 72 63 65 | close(source|
00001380 53 74 72 65 61 6d 29 0a 0a 09 20 20 20 20 20 20 |Stream)... |
00001390 67 65 74 70 20 3a 3d 20 67 65 74 70 2d 33 0a 09 |getp := getp-3..|
000013a0 20 20 20 20 20 20 73 6f 75 72 63 65 53 74 72 65 | sourceStre|
000013b0 61 6d 20 3a 3d 20 67 65 74 76 21 67 65 74 70 0a |am := getv!getp.|
000013c0 09 20 20 20 20 20 20 6c 69 6e 65 43 6f 75 6e 74 |. lineCount|
000013d0 20 3a 3d 20 67 65 74 76 21 28 67 65 74 70 2b 31 | := getv!(getp+1|
000013e0 29 0a 09 20 20 20 20 20 20 63 68 20 3a 3d 20 67 |).. ch := g|
000013f0 65 74 76 21 28 67 65 74 70 2b 32 29 0a 0a 09 20 |etv!(getp+2)... |
00001400 20 20 20 20 20 53 65 6c 65 63 74 49 6e 70 75 74 | SelectInput|
00001410 28 73 6f 75 72 63 65 53 74 72 65 61 6d 29 0a 09 |(sourceStream)..|
00001420 20 20 20 20 20 20 4c 4f 4f 50 0a 09 20 24 29 0a | LOOP.. $).|
00001430 20 20 20 20 20 20 24 29 20 52 45 50 45 41 54 0a | $) REPEAT.|
00001440 20 20 20 20 20 20 52 43 68 28 29 0a 20 20 20 24 | RCh(). $|
00001450 29 0a 0a 20 20 20 42 61 73 69 63 53 79 6d 62 28 |).. BasicSymb(|
00001460 29 0a 0a 20 20 20 2f 2f 20 43 68 65 63 6b 20 66 |).. // Check f|
00001470 6f 72 20 74 61 67 20 73 65 74 74 69 6e 67 20 64 |or tag setting d|
00001480 69 72 65 63 74 69 76 65 2e 09 54 68 69 73 20 69 |irective..This i|
00001490 73 20 6f 66 20 74 68 65 0a 20 20 20 2f 2f 20 66 |s of the. // f|
000014a0 6f 72 6d 3a 0a 20 20 20 2f 2f 09 20 20 20 20 24 |orm:. //. $|
000014b0 24 74 61 67 20 20 20 20 6f 72 20 20 20 24 24 74 |$tag or $$t|
000014c0 61 67 20 3a 3d 20 65 78 70 6e 0a 20 20 20 2f 2f |ag := expn. //|
000014d0 0a 20 20 20 2f 2f 20 41 20 24 24 74 61 67 20 73 |. // A $$tag s|
000014e0 79 6d 62 6f 6c 20 69 73 20 6f 66 20 74 79 70 65 |ymbol is of type|
000014f0 20 27 73 2e 74 61 67 6e 61 6d 65 27 2e 0a 20 20 | 's.tagname'.. |
00001500 20 2f 2f 0a 20 20 20 2f 2f 20 41 20 6c 6f 6f 70 | //. // A loop|
00001510 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 74 20 | is used to get |
00001520 63 61 73 65 73 20 6c 69 6b 65 20 24 24 74 61 67 |cases like $$tag|
00001530 20 24 24 74 61 67 32 20 3a 3d 20 2e 2e 20 20 72 | $$tag2 := .. r|
00001540 69 67 68 74 2e 0a 0a 20 20 20 57 48 49 4c 45 20 |ight... WHILE |
00001550 73 79 6d 62 3d 73 2e 74 61 67 6e 61 6d 65 20 44 |symb=s.tagname D|
00001560 4f 0a 20 20 20 24 28 20 4c 45 54 20 74 61 67 20 |O. $( LET tag |
00001570 3d 20 74 61 67 70 74 72 0a 20 20 20 20 20 20 4c |= tagptr. L|
00001580 45 54 20 76 61 6c 75 65 20 3d 20 46 41 4c 53 45 |ET value = FALSE|
00001590 0a 20 20 20 20 20 20 4c 45 54 20 6f 70 20 3d 20 |. LET op = |
000015a0 73 2e 6c 6f 67 6f 72 0a 0a 20 20 20 20 20 20 42 |s.logor.. B|
000015b0 61 73 69 63 53 79 6d 62 28 29 0a 0a 20 20 20 20 |asicSymb().. |
000015c0 20 20 2f 2f 20 49 66 20 74 68 65 20 24 24 74 61 | // If the $$ta|
000015d0 67 20 77 61 73 20 6e 6f 74 20 66 6f 6c 6c 6f 77 |g was not follow|
000015e0 65 64 20 62 79 20 3a 3d 2c 20 73 69 6d 70 6c 79 |ed by :=, simply|
000015f0 0a 20 20 20 20 20 20 2f 2f 20 69 6e 76 65 72 74 |. // invert|
00001600 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 | the value of th|
00001610 65 20 74 61 67 20 61 6e 64 20 67 6f 20 72 6f 75 |e tag and go rou|
00001620 6e 64 20 61 67 61 69 6e 2e 0a 0a 20 20 20 20 20 |nd again... |
00001630 20 49 46 20 73 79 6d 62 7e 3d 73 2e 61 73 73 20 | IF symb~=s.ass |
00001640 54 48 45 4e 0a 20 20 20 20 20 20 24 28 20 74 61 |THEN. $( ta|
00001650 67 2e 76 61 6c 75 65 21 74 61 67 20 3a 3d 20 7e |g.value!tag := ~|
00001660 74 61 67 2e 76 61 6c 75 65 21 74 61 67 0a 09 20 |tag.value!tag.. |
00001670 4c 4f 4f 50 20 24 29 0a 0a 20 20 20 20 20 20 24 |LOOP $).. $|
00001680 28 20 4c 45 54 20 69 6e 76 65 72 73 65 20 3d 20 |( LET inverse = |
00001690 46 41 4c 53 45 0a 09 20 4c 45 54 20 73 76 61 6c |FALSE.. LET sval|
000016a0 20 3d 20 20 3f 0a 0a 09 20 42 61 73 69 63 53 79 | = ?... BasicSy|
000016b0 6d 62 28 29 0a 0a 09 20 49 46 20 73 79 6d 62 3d |mb()... IF symb=|
000016c0 73 2e 6e 6f 74 20 54 48 45 4e 0a 09 20 24 28 20 |s.not THEN.. $( |
000016d0 69 6e 76 65 72 73 65 20 3a 3d 20 54 52 55 45 0a |inverse := TRUE.|
000016e0 09 20 20 20 20 42 61 73 69 63 53 79 6d 62 28 29 |. BasicSymb()|
000016f0 20 24 29 0a 0a 09 20 53 57 49 54 43 48 4f 4e 20 | $)... SWITCHON |
00001700 73 79 6d 62 20 49 4e 54 4f 0a 09 20 24 28 20 43 |symb INTO.. $( C|
00001710 41 53 45 20 73 2e 74 61 67 6e 61 6d 65 3a 0a 09 |ASE s.tagname:..|
00001720 20 20 20 20 20 20 73 76 61 6c 20 3a 3d 20 74 61 | sval := ta|
00001730 67 2e 76 61 6c 75 65 21 74 61 67 70 74 72 0a 09 |g.value!tagptr..|
00001740 20 20 20 20 20 20 45 4e 44 43 41 53 45 0a 0a 09 | ENDCASE...|
00001750 20 20 20 20 43 41 53 45 20 73 2e 74 72 75 65 3a | CASE s.true:|
00001760 0a 09 20 20 20 20 20 20 73 76 61 6c 20 3a 3d 20 |.. sval := |
00001770 54 52 55 45 0a 09 20 20 20 20 20 20 45 4e 44 43 |TRUE.. ENDC|
00001780 41 53 45 0a 0a 09 20 20 20 20 43 41 53 45 20 73 |ASE... CASE s|
00001790 2e 66 61 6c 73 65 3a 0a 09 20 20 20 20 20 20 73 |.false:.. s|
000017a0 76 61 6c 20 3a 3d 20 46 41 4c 53 45 0a 09 20 20 |val := FALSE.. |
000017b0 20 20 20 20 45 4e 44 43 41 53 45 0a 0a 09 20 20 | ENDCASE... |
000017c0 20 20 44 45 46 41 55 4c 54 3a 0a 09 20 20 20 20 | DEFAULT:.. |
000017d0 20 20 53 79 6e 52 65 70 6f 72 74 28 31 29 0a 09 | SynReport(1)..|
000017e0 20 20 20 20 20 20 45 4e 44 43 41 53 45 0a 09 20 | ENDCASE.. |
000017f0 24 29 0a 0a 09 20 2f 2f 20 43 6f 6d 62 69 6e 65 |$)... // Combine|
00001800 20 74 68 65 20 76 61 6c 75 65 20 77 69 74 68 20 | the value with |
00001810 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 73 |the expression s|
00001820 6f 20 66 61 72 0a 09 20 2f 2f 20 61 6e 64 20 63 |o far.. // and c|
00001830 68 65 63 6b 20 66 6f 72 20 61 6e 20 6f 70 65 72 |heck for an oper|
00001840 61 74 6f 72 2e 0a 0a 09 20 49 46 20 69 6e 76 65 |ator.... IF inve|
00001850 72 73 65 20 54 48 45 4e 20 73 76 61 6c 20 3a 3d |rse THEN sval :=|
00001860 20 7e 73 76 61 6c 0a 0a 09 20 54 45 53 54 20 6f | ~sval... TEST o|
00001870 70 3d 73 2e 6c 6f 67 6f 72 0a 09 20 20 20 20 54 |p=s.logor.. T|
00001880 48 45 4e 20 76 61 6c 75 65 20 3a 3d 20 76 61 6c |HEN value := val|
00001890 75 65 20 7c 20 73 76 61 6c 0a 09 20 20 20 20 45 |ue | sval.. E|
000018a0 4c 53 45 20 76 61 6c 75 65 20 3a 3d 20 76 61 6c |LSE value := val|
000018b0 75 65 20 26 20 73 76 61 6c 0a 0a 09 20 42 61 73 |ue & sval... Bas|
000018c0 69 63 53 79 6d 62 28 29 0a 09 20 6f 70 20 3a 3d |icSymb().. op :=|
000018d0 20 73 79 6d 62 0a 20 20 20 20 20 20 24 29 20 52 | symb. $) R|
000018e0 45 50 45 41 54 57 48 49 4c 45 20 6f 70 3d 73 2e |EPEATWHILE op=s.|
000018f0 6c 6f 67 6f 72 20 7c 20 6f 70 3d 73 2e 6c 6f 67 |logor | op=s.log|
00001900 61 6e 64 0a 0a 20 20 20 20 20 20 74 61 67 2e 76 |and.. tag.v|
00001910 61 6c 75 65 21 74 61 67 20 3a 3d 20 76 61 6c 75 |alue!tag := valu|
00001920 65 0a 20 20 20 24 29 0a 0a 20 20 20 2f 2f 20 53 |e. $).. // S|
00001930 79 6d 62 6f 6c 20 69 73 20 6e 6f 74 20 24 24 74 |ymbol is not $$t|
00001940 61 67 3a 20 63 68 65 63 6b 20 66 6f 72 20 61 20 |ag: check for a |
00001950 63 6f 6d 70 6f 75 6e 64 20 61 73 73 69 67 6e 6d |compound assignm|
00001960 65 6e 74 0a 20 20 20 2f 2f 20 28 6e 6f 74 65 20 |ent. // (note |
00001970 74 68 61 74 20 6f 70 3a 3d 20 69 73 20 61 6e 20 |that op:= is an |
00001980 65 78 74 65 6e 73 69 6f 6e 29 2e 0a 0a 20 20 20 |extension)... |
00001990 49 46 20 65 78 74 65 6e 73 69 6f 6e 2e 6c 65 76 |IF extension.lev|
000019a0 65 6c 3e 3d 33 20 54 48 45 4e 20 53 57 49 54 43 |el>=3 THEN SWITC|
000019b0 48 4f 4e 20 73 79 6d 62 20 49 4e 54 4f 0a 20 20 |HON symb INTO. |
000019c0 20 24 28 20 43 41 53 45 20 73 2e 6d 75 6c 74 3a | $( CASE s.mult:|
000019d0 20 20 20 43 41 53 45 20 73 2e 64 69 76 3a 20 20 | CASE s.div: |
000019e0 43 41 53 45 20 73 2e 72 65 6d 3a 0a 20 20 20 20 |CASE s.rem:. |
000019f0 20 20 43 41 53 45 20 73 2e 70 6c 75 73 3a 20 20 | CASE s.plus: |
00001a00 20 43 41 53 45 20 73 2e 6d 69 6e 75 73 3a 0a 20 | CASE s.minus:. |
00001a10 20 20 20 20 20 43 41 53 45 20 73 2e 66 6d 75 6c | CASE s.fmul|
00001a20 74 3a 20 20 43 41 53 45 20 73 2e 66 64 69 76 3a |t: CASE s.fdiv:|
00001a30 0a 20 20 20 20 20 20 43 41 53 45 20 73 2e 66 70 |. CASE s.fp|
00001a40 6c 75 73 3a 20 20 43 41 53 45 20 73 2e 66 6d 69 |lus: CASE s.fmi|
00001a50 6e 75 73 3a 0a 20 20 20 20 20 20 43 41 53 45 20 |nus:. CASE |
00001a60 73 2e 6c 6f 67 61 6e 64 3a 20 43 41 53 45 20 73 |s.logand: CASE s|
00001a70 2e 6c 6f 67 6f 72 3a 0a 20 20 20 20 20 20 43 41 |.logor:. CA|
00001a80 53 45 20 73 2e 65 71 76 3a 20 20 20 20 43 41 53 |SE s.eqv: CAS|
00001a90 45 20 73 2e 6e 65 71 76 3a 0a 20 20 20 20 20 20 |E s.neqv:. |
00001aa0 43 41 53 45 20 73 2e 6c 73 68 69 66 74 3a 20 43 |CASE s.lshift: C|
00001ab0 41 53 45 20 73 2e 72 73 68 69 66 74 3a 0a 09 2f |ASE s.rshift:../|
00001ac0 2f 0a 09 2f 2f 20 43 68 65 63 6b 20 66 6f 72 20 |/..// Check for |
00001ad0 3a 3d 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 70 65 |:= following ope|
00001ae0 72 61 74 6f 72 2e 0a 09 2f 2f 0a 09 49 46 20 63 |rator...//..IF c|
00001af0 68 3d 27 3a 27 20 54 48 45 4e 0a 09 24 28 20 4c |h=':' THEN..$( L|
00001b00 45 54 20 63 68 20 3d 20 52 64 43 68 28 29 3b 20 |ET ch = RdCh(); |
00001b10 55 6e 52 64 43 68 28 29 0a 0a 09 20 20 20 49 46 |UnRdCh()... IF|
00001b20 20 63 68 3d 27 3d 27 20 54 48 45 4e 0a 09 20 20 | ch='=' THEN.. |
00001b30 20 24 28 20 52 43 68 28 29 3b 20 52 43 68 28 29 | $( RCh(); RCh()|
00001b40 0a 09 20 20 20 20 20 20 6f 70 65 72 61 74 6f 72 |.. operator|
00001b50 20 3a 3d 20 73 79 6d 62 0a 09 20 20 20 20 20 20 | := symb.. |
00001b60 73 79 6d 62 20 3a 3d 20 73 2e 6f 70 61 62 20 24 |symb := s.opab $|
00001b70 29 20 24 29 0a 20 20 20 24 29 0a 24 29 0a 0a 41 |) $). $).$)..A|
00001b80 4e 44 20 6d 75 6c 74 69 63 68 61 72 28 63 68 61 |ND multichar(cha|
00001b90 72 73 2c 20 61 2c 20 62 2c 20 63 2c 20 64 2c 20 |rs, a, b, c, d, |
00001ba0 65 2c 20 66 2c 20 67 2c 20 68 29 20 42 45 0a 24 |e, f, g, h) BE.$|
00001bb0 28 20 4c 45 54 20 74 20 3d 20 40 63 68 61 72 73 |( LET t = @chars|
00001bc0 0a 20 20 20 4c 45 54 20 69 2c 20 6c 69 6d 20 3d |. LET i, lim =|
00001bd0 20 31 2c 20 63 68 61 72 73 25 30 0a 20 20 20 52 | 1, chars%0. R|
00001be0 43 68 28 29 0a 0a 20 20 20 57 48 49 4c 45 20 69 |Ch().. WHILE i|
00001bf0 3c 3d 6c 69 6d 20 44 4f 0a 20 20 20 24 28 20 49 |<=lim DO. $( I|
00001c00 46 20 63 68 3d 63 68 61 72 73 25 69 20 54 48 45 |F ch=chars%i THE|
00001c10 4e 0a 20 20 20 20 20 20 24 28 20 52 43 68 28 29 |N. $( RCh()|
00001c20 0a 09 20 42 52 45 41 4b 20 24 29 0a 20 20 20 20 |.. BREAK $). |
00001c30 20 20 69 20 3a 3d 20 69 2b 31 20 24 29 0a 20 20 | i := i+1 $). |
00001c40 20 73 79 6d 62 20 3a 3d 20 74 21 69 0a 24 29 0a | symb := t!i.$).|
00001c50 0a 41 4e 44 20 4c 6f 6f 6b 55 70 57 6f 72 64 28 |.AND LookUpWord(|
00001c60 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c 45 54 |) = VALOF.$( LET|
00001c70 20 68 61 73 68 76 61 6c 20 3d 20 56 41 4c 4f 46 | hashval = VALOF|
00001c80 0a 20 20 20 24 28 20 4c 45 54 20 72 65 73 20 3d |. $( LET res =|
00001c90 20 77 6f 72 64 76 25 30 0a 20 20 20 20 20 20 46 | wordv%0. F|
00001ca0 4f 52 20 69 20 3d 20 31 20 54 4f 20 72 65 73 20 |OR i = 1 TO res |
00001cb0 44 4f 0a 09 72 65 73 20 3a 3d 20 28 72 65 73 2a |DO..res := (res*|
00001cc0 31 33 20 2b 20 43 61 70 69 74 61 6c 43 68 28 77 |13 + CapitalCh(w|
00001cd0 6f 72 64 76 25 69 29 29 20 26 20 23 58 37 46 46 |ordv%i)) & #X7FF|
00001ce0 46 0a 0a 20 20 20 20 20 20 52 45 53 55 4c 54 49 |F.. RESULTI|
00001cf0 53 20 72 65 73 20 52 45 4d 20 6e 61 6d 65 74 61 |S res REM nameta|
00001d00 62 6c 65 73 69 7a 65 0a 20 20 20 24 29 0a 0a 20 |blesize. $).. |
00001d10 20 20 4c 45 54 20 43 53 74 72 69 6e 67 28 73 31 | LET CString(s1|
00001d20 2c 20 73 32 29 20 3d 20 56 41 4c 4f 46 0a 20 20 |, s2) = VALOF. |
00001d30 20 24 28 20 4c 45 54 20 6c 65 6e 20 3d 20 73 31 | $( LET len = s1|
00001d40 25 30 0a 20 20 20 20 20 20 49 46 20 6c 65 6e 7e |%0. IF len~|
00001d50 3d 73 32 25 30 20 54 48 45 4e 20 52 45 53 55 4c |=s2%0 THEN RESUL|
00001d60 54 49 53 20 46 41 4c 53 45 0a 0a 20 20 20 20 20 |TIS FALSE.. |
00001d70 20 46 4f 52 20 6a 20 3d 20 31 20 54 4f 20 6c 65 | FOR j = 1 TO le|
00001d80 6e 20 44 4f 0a 09 54 45 53 54 20 65 71 75 61 74 |n DO..TEST equat|
00001d90 65 43 61 73 65 73 0a 09 20 20 54 48 45 4e 20 49 |eCases.. THEN I|
00001da0 46 20 43 61 70 69 74 61 6c 43 68 28 73 31 25 6a |F CapitalCh(s1%j|
00001db0 29 7e 3d 43 61 70 69 74 61 6c 43 68 28 73 32 25 |)~=CapitalCh(s2%|
00001dc0 6a 29 0a 09 20 20 20 20 54 48 45 4e 20 52 45 53 |j).. THEN RES|
00001dd0 55 4c 54 49 53 20 46 41 4c 53 45 0a 09 20 20 45 |ULTIS FALSE.. E|
00001de0 4c 53 45 20 49 46 20 73 31 25 6a 7e 3d 73 32 25 |LSE IF s1%j~=s2%|
00001df0 6a 0a 09 20 20 20 20 54 48 45 4e 20 52 45 53 55 |j.. THEN RESU|
00001e00 4c 54 49 53 20 46 41 4c 53 45 0a 0a 20 20 20 20 |LTIS FALSE.. |
00001e10 20 20 52 45 53 55 4c 54 49 53 20 54 52 55 45 0a | RESULTIS TRUE.|
00001e20 20 20 20 24 29 0a 20 20 20 4c 45 54 20 69 20 3d | $). LET i =|
00001e30 20 30 0a 20 20 20 77 6f 72 64 4e 6f 64 65 20 3a | 0. wordNode :|
00001e40 3d 20 6e 61 6d 65 74 61 62 6c 65 21 68 61 73 68 |= nametable!hash|
00001e50 76 61 6c 0a 0a 20 20 20 57 48 49 4c 45 20 77 6f |val.. WHILE wo|
00001e60 72 64 4e 6f 64 65 7e 3d 30 20 26 20 7e 43 53 74 |rdNode~=0 & ~CSt|
00001e70 72 69 6e 67 28 77 6f 72 64 4e 6f 64 65 2b 32 2c |ring(wordNode+2,|
00001e80 20 77 6f 72 64 76 29 20 44 4f 0a 20 20 20 20 20 | wordv) DO. |
00001e90 77 6f 72 64 4e 6f 64 65 20 3a 3d 20 68 32 21 77 |wordNode := h2!w|
00001ea0 6f 72 64 4e 6f 64 65 0a 0a 20 20 20 49 46 20 77 |ordNode.. IF w|
00001eb0 6f 72 64 4e 6f 64 65 3d 30 20 54 48 45 4e 0a 20 |ordNode=0 THEN. |
00001ec0 20 20 24 28 20 4c 45 54 20 73 69 7a 65 20 3d 20 | $( LET size = |
00001ed0 77 6f 72 64 76 25 30 20 2f 20 42 79 74 65 73 50 |wordv%0 / BytesP|
00001ee0 65 72 57 6f 72 64 0a 0a 20 20 20 20 20 20 77 6f |erWord.. wo|
00001ef0 72 64 4e 6f 64 65 20 3a 3d 20 67 65 74 62 6c 6b |rdNode := getblk|
00001f00 28 73 69 7a 65 2b 33 29 0a 20 20 20 20 20 20 77 |(size+3). w|
00001f10 6f 72 64 4e 6f 64 65 21 30 20 3a 3d 20 73 2e 6e |ordNode!0 := s.n|
00001f20 61 6d 65 0a 20 20 20 20 20 20 77 6f 72 64 4e 6f |ame. wordNo|
00001f30 64 65 21 31 20 3a 3d 20 6e 61 6d 65 74 61 62 6c |de!1 := nametabl|
00001f40 65 21 68 61 73 68 76 61 6c 0a 0a 20 20 20 20 20 |e!hashval.. |
00001f50 20 46 4f 52 20 69 20 3d 20 30 20 54 4f 20 73 69 | FOR i = 0 TO si|
00001f60 7a 65 20 44 4f 20 77 6f 72 64 4e 6f 64 65 21 28 |ze DO wordNode!(|
00001f70 69 2b 32 29 20 3a 3d 20 77 6f 72 64 76 21 69 0a |i+2) := wordv!i.|
00001f80 20 20 20 20 20 20 6e 61 6d 65 74 61 62 6c 65 21 | nametable!|
00001f90 68 61 73 68 76 61 6c 20 3a 3d 20 77 6f 72 64 4e |hashval := wordN|
00001fa0 6f 64 65 20 24 29 0a 20 20 20 52 45 53 55 4c 54 |ode $). RESULT|
00001fb0 49 53 20 68 31 21 77 6f 72 64 4e 6f 64 65 0a 24 |IS h1!wordNode.$|
00001fc0 29 0a 0a 41 4e 44 20 63 6f 6e 64 69 74 69 6f 6e |)..AND condition|
00001fd0 61 6c 2e 63 6f 6d 70 69 6c 61 74 69 6f 6e 28 73 |al.compilation(s|
00001fe0 74 61 72 74 63 6f 6e 64 2c 20 74 61 67 70 74 72 |tartcond, tagptr|
00001ff0 2c 20 69 6e 76 65 72 73 65 29 20 42 45 0a 20 20 |, inverse) BE. |
00002000 2f 2f 0a 20 20 2f 2f 20 43 61 6c 6c 65 64 20 61 |//. // Called a|
00002010 66 74 65 72 20 24 3c 74 61 67 20 6f 72 20 24 3e |fter $<tag or $>|
00002020 74 61 67 20 68 61 73 20 62 65 65 6e 20 72 65 63 |tag has been rec|
00002030 6f 67 6e 69 73 65 64 2e 0a 20 20 2f 2f 0a 20 20 |ognised.. //. |
00002040 2f 2f 20 20 73 74 61 72 74 63 6f 6e 64 20 09 74 |// startcond .t|
00002050 72 75 65 20 66 6f 72 20 24 3c 2c 20 66 61 6c 73 |rue for $<, fals|
00002060 65 20 66 6f 72 20 24 3e 0a 20 20 2f 2f 20 20 74 |e for $>. // t|
00002070 61 67 70 74 72 09 09 70 6f 69 6e 74 65 72 20 74 |agptr..pointer t|
00002080 6f 20 74 61 67 20 6f 62 6a 65 63 74 0a 20 20 2f |o tag object. /|
00002090 2f 20 20 69 6e 76 65 72 73 65 09 09 74 72 75 65 |/ inverse..true|
000020a0 20 69 66 20 74 61 67 20 77 61 73 20 66 6f 6c 6c | if tag was foll|
000020b0 6f 77 65 64 20 62 79 20 27 2e 0a 20 20 2f 2f 0a |owed by '.. //.|
000020c0 20 20 20 54 45 53 54 20 73 74 61 72 74 63 6f 6e | TEST startcon|
000020d0 64 20 54 48 45 4e 0a 20 20 20 20 20 20 54 45 53 |d THEN. TES|
000020e0 54 20 74 61 67 2e 76 61 6c 75 65 21 74 61 67 70 |T tag.value!tagp|
000020f0 74 72 7e 3d 69 6e 76 65 72 73 65 20 54 48 45 4e |tr~=inverse THEN|
00002100 20 24 28 0a 09 20 2f 2f 20 44 6f 20 6e 6f 74 20 | $(.. // Do not |
00002110 73 6b 69 70 3a 20 61 64 64 20 6e 65 77 20 69 74 |skip: add new it|
00002120 65 6d 20 74 6f 20 63 63 20 73 74 61 63 6b 2e 0a |em to cc stack..|
00002130 09 20 4c 45 54 20 73 20 3d 20 67 65 74 2e 63 63 |. LET s = get.cc|
00002140 73 74 61 63 6b 2e 69 74 65 6d 28 29 0a 09 20 63 |stack.item().. c|
00002150 63 2e 6c 69 6e 6b 21 73 20 3a 3d 20 63 63 73 74 |c.link!s := ccst|
00002160 61 63 6b 0a 09 20 63 63 73 74 61 63 6b 20 3a 3d |ack.. ccstack :=|
00002170 20 73 0a 09 20 63 63 2e 69 6e 76 65 72 73 65 21 | s.. cc.inverse!|
00002180 73 20 3a 3d 20 69 6e 76 65 72 73 65 0a 09 20 63 |s := inverse.. c|
00002190 63 2e 74 61 67 70 74 72 21 73 20 3a 3d 20 74 61 |c.tagptr!s := ta|
000021a0 67 70 74 72 20 24 29 0a 0a 20 20 20 20 20 20 45 |gptr $).. E|
000021b0 4c 53 45 20 24 28 20 2f 2f 20 53 6b 69 70 20 75 |LSE $( // Skip u|
000021c0 6e 74 69 6c 20 61 20 6d 61 74 63 68 69 6e 67 20 |ntil a matching |
000021d0 24 3e 74 61 67 20 69 73 20 66 6f 75 6e 64 2e 09 |$>tag is found..|
000021e0 54 68 65 20 71 75 6f 74 65 73 20 6d 75 73 74 20 |The quotes must |
000021f0 6d 61 74 63 68 0a 09 20 4c 45 54 20 69 6e 76 32 |match.. LET inv2|
00002200 20 3d 20 46 41 4c 53 45 0a 09 20 24 28 20 49 46 | = FALSE.. $( IF|
00002210 20 63 68 3d 45 6e 64 53 74 72 65 61 6d 43 68 20 | ch=EndStreamCh |
00002220 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 33 |THEN SynReport(3|
00002230 29 0a 0a 09 20 20 20 20 49 46 20 63 68 3d 27 24 |)... IF ch='$|
00002240 27 20 54 48 45 4e 20 24 28 0a 09 20 20 20 20 20 |' THEN $(.. |
00002250 20 20 52 43 68 28 29 0a 09 20 20 20 20 20 20 20 | RCh().. |
00002260 49 46 20 63 68 3d 27 3e 27 20 54 48 45 4e 20 24 |IF ch='>' THEN $|
00002270 28 0a 09 09 20 20 4c 45 54 20 63 2c 20 64 20 3d |(... LET c, d =|
00002280 20 3f 2c 20 3f 0a 09 09 20 20 52 43 68 28 29 0a | ?, ?... RCh().|
00002290 09 09 20 20 64 20 3a 3d 20 63 68 0a 09 09 20 20 |.. d := ch... |
000022a0 63 20 3a 3d 20 43 61 70 69 74 61 6c 43 68 28 63 |c := CapitalCh(c|
000022b0 68 29 0a 0a 09 09 20 20 49 46 20 27 41 27 3c 3d |h).... IF 'A'<=|
000022c0 63 3c 3d 27 5a 27 20 7c 20 27 30 27 3c 3d 63 3c |c<='Z' | '0'<=c<|
000022d0 3d 27 39 27 20 54 48 45 4e 20 24 28 0a 09 09 20 |='9' THEN $(... |
000022e0 20 20 20 20 52 43 68 28 29 0a 09 09 20 20 20 20 | RCh()... |
000022f0 20 52 64 54 61 67 28 64 29 0a 09 09 20 20 20 20 | RdTag(d)... |
00002300 20 49 46 20 43 6f 6d 70 53 74 72 69 6e 67 28 77 | IF CompString(w|
00002310 6f 72 64 76 2c 20 74 61 67 2e 6e 61 6d 65 2b 74 |ordv, tag.name+t|
00002320 61 67 70 74 72 29 3d 30 20 54 48 45 4e 20 42 52 |agptr)=0 THEN BR|
00002330 45 41 4b 20 24 29 0a 09 09 20 20 4c 4f 4f 50 20 |EAK $)... LOOP |
00002340 24 29 0a 09 20 20 20 20 20 20 20 4c 4f 4f 50 20 |$).. LOOP |
00002350 24 29 0a 09 20 20 20 20 52 43 68 28 29 0a 09 20 |$).. RCh().. |
00002360 24 29 20 52 45 50 45 41 54 0a 0a 09 20 20 20 20 |$) REPEAT... |
00002370 20 20 2f 2f 20 53 6b 69 70 20 63 6f 6d 70 6c 65 | // Skip comple|
00002380 74 65 3a 20 63 68 65 63 6b 20 74 68 61 74 20 71 |te: check that q|
00002390 75 6f 74 65 73 20 6d 61 74 63 68 0a 09 20 49 46 |uotes match.. IF|
000023a0 20 63 68 3d 27 2a 27 27 20 54 48 45 4e 20 24 28 | ch='*'' THEN $(|
000023b0 0a 09 20 20 20 20 69 6e 76 32 20 3a 3d 20 54 52 |.. inv2 := TR|
000023c0 55 45 0a 09 20 20 20 20 52 43 68 28 29 20 24 29 |UE.. RCh() $)|
000023d0 0a 0a 09 20 49 46 20 69 6e 76 32 7e 3d 69 6e 76 |... IF inv2~=inv|
000023e0 65 72 73 65 20 54 48 45 4e 20 53 79 6e 52 65 70 |erse THEN SynRep|
000023f0 6f 72 74 28 34 29 20 24 29 0a 0a 20 20 20 45 4c |ort(4) $).. EL|
00002400 53 45 20 24 28 20 2f 2f 20 24 3e 74 61 67 3a 20 |SE $( // $>tag: |
00002410 20 63 68 65 63 6b 20 74 68 61 74 20 69 74 20 6d | check that it m|
00002420 61 74 63 68 65 73 20 74 68 65 20 6c 61 73 74 20 |atches the last |
00002430 24 3c 74 61 67 2e 0a 20 20 20 20 20 20 49 46 20 |$<tag.. IF |
00002440 63 63 73 74 61 63 6b 7e 3d 30 20 54 48 45 4e 0a |ccstack~=0 THEN.|
00002450 09 20 54 45 53 54 20 74 61 67 70 74 72 3d 63 63 |. TEST tagptr=cc|
00002460 2e 74 61 67 70 74 72 21 63 63 73 74 61 63 6b 20 |.tagptr!ccstack |
00002470 54 48 45 4e 20 24 28 0a 09 20 20 20 2f 2f 20 50 |THEN $(.. // P|
00002480 72 6f 70 65 72 20 6d 61 74 63 68 3a 20 75 6e 73 |roper match: uns|
00002490 74 61 63 6b 20 69 74 65 6d 20 61 6e 64 20 63 68 |tack item and ch|
000024a0 65 63 6b 20 71 75 6f 74 65 73 20 6d 61 74 63 68 |eck quotes match|
000024b0 2e 0a 09 20 20 20 20 4c 45 54 20 69 6e 76 31 20 |... LET inv1 |
000024c0 3d 20 63 63 2e 69 6e 76 65 72 73 65 21 63 63 73 |= cc.inverse!ccs|
000024d0 74 61 63 6b 0a 09 20 20 20 20 4c 45 54 20 6e 65 |tack.. LET ne|
000024e0 78 74 20 3d 20 63 63 2e 6c 69 6e 6b 21 63 63 73 |xt = cc.link!ccs|
000024f0 74 61 63 6b 0a 09 20 20 20 20 63 63 2e 6c 69 6e |tack.. cc.lin|
00002500 6b 21 63 63 73 74 61 63 6b 20 3a 3d 20 66 72 65 |k!ccstack := fre|
00002510 65 2e 63 63 73 74 61 63 6b 2e 63 68 61 69 6e 0a |e.ccstack.chain.|
00002520 09 20 20 20 20 66 72 65 65 2e 63 63 73 74 61 63 |. free.ccstac|
00002530 6b 2e 63 68 61 69 6e 20 3a 3d 20 63 63 73 74 61 |k.chain := ccsta|
00002540 63 6b 0a 09 20 20 20 20 63 63 73 74 61 63 6b 20 |ck.. ccstack |
00002550 3a 3d 20 6e 65 78 74 0a 0a 09 20 20 20 20 49 46 |:= next... IF|
00002560 20 69 6e 76 31 7e 3d 69 6e 76 65 72 73 65 20 54 | inv1~=inverse T|
00002570 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 34 29 |HEN SynReport(4)|
00002580 0a 09 20 20 20 20 52 45 54 55 52 4e 20 24 29 0a |.. RETURN $).|
00002590 09 20 45 4c 53 45 20 24 28 20 2f 2f 20 54 61 67 |. ELSE $( // Tag|
000025a0 73 20 64 6f 20 6e 6f 74 20 6d 61 74 63 68 3a 20 |s do not match: |
000025b0 69 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 |if the current t|
000025c0 61 67 20 6f 63 63 75 72 73 0a 09 09 20 2f 2f 20 |ag occurs... // |
000025d0 62 65 6c 6f 77 20 6f 6e 20 74 68 65 20 73 74 61 |below on the sta|
000025e0 63 6b 2c 20 72 65 6d 6f 76 65 20 74 68 6f 73 65 |ck, remove those|
000025f0 20 69 74 65 6d 73 20 61 62 6f 76 65 0a 09 09 20 | items above... |
00002600 2f 2f 20 69 74 2e 0a 09 20 20 20 20 4c 45 54 20 |// it... LET |
00002610 6d 20 3d 20 63 63 73 74 61 63 6b 0a 0a 09 20 20 |m = ccstack... |
00002620 20 20 57 48 49 4c 45 20 6d 7e 3d 30 20 26 20 63 | WHILE m~=0 & c|
00002630 63 2e 74 61 67 70 74 72 21 6d 7e 3d 74 61 67 70 |c.tagptr!m~=tagp|
00002640 74 72 20 44 4f 0a 09 09 20 20 6d 20 3a 3d 20 63 |tr DO... m := c|
00002650 63 2e 6c 69 6e 6b 21 6d 0a 0a 09 20 20 20 20 49 |c.link!m... I|
00002660 46 20 6d 7e 3d 30 20 54 48 45 4e 20 24 28 0a 09 |F m~=0 THEN $(..|
00002670 20 20 20 20 20 20 20 4c 45 54 20 6e 65 78 74 20 | LET next |
00002680 3d 20 63 63 2e 6c 69 6e 6b 21 6d 0a 09 20 20 20 |= cc.link!m.. |
00002690 20 20 20 20 63 63 2e 6c 69 6e 6b 21 6d 20 3a 3d | cc.link!m :=|
000026a0 20 66 72 65 65 2e 63 63 73 74 61 63 6b 2e 63 68 | free.ccstack.ch|
000026b0 61 69 6e 0a 09 20 20 20 20 20 20 20 66 72 65 65 |ain.. free|
000026c0 2e 63 63 73 74 61 63 6b 2e 63 68 61 69 6e 20 3a |.ccstack.chain :|
000026d0 3d 20 63 63 73 74 61 63 6b 0a 09 20 20 20 20 20 |= ccstack.. |
000026e0 20 20 63 63 73 74 61 63 6b 20 3a 3d 20 6e 65 78 | ccstack := nex|
000026f0 74 20 24 29 20 24 29 0a 0a 20 20 20 20 20 20 53 |t $) $).. S|
00002700 79 6e 52 65 70 6f 72 74 28 35 29 20 24 29 0a 0a |ynReport(5) $)..|
00002710 41 4e 44 20 67 65 74 2e 63 63 73 74 61 63 6b 2e |AND get.ccstack.|
00002720 69 74 65 6d 28 29 20 3d 20 56 41 4c 4f 46 0a 24 |item() = VALOF.$|
00002730 28 20 4c 45 54 20 63 20 3d 20 66 72 65 65 2e 63 |( LET c = free.c|
00002740 63 73 74 61 63 6b 2e 63 68 61 69 6e 0a 20 20 20 |cstack.chain. |
00002750 49 46 20 63 3d 30 20 54 48 45 4e 20 52 45 53 55 |IF c=0 THEN RESU|
00002760 4c 54 49 53 20 47 65 74 42 6c 6b 28 63 63 2e 73 |LTIS GetBlk(cc.s|
00002770 69 7a 65 29 0a 0a 20 20 20 66 72 65 65 2e 63 63 |ize).. free.cc|
00002780 73 74 61 63 6b 2e 63 68 61 69 6e 20 3a 3d 20 63 |stack.chain := c|
00002790 63 2e 6c 69 6e 6b 21 63 0a 20 20 20 52 45 53 55 |c.link!c. RESU|
000027a0 4c 54 49 53 20 63 0a 24 29 0a 0a 41 4e 44 20 44 |LTIS c.$)..AND D|
000027b0 65 63 6c 53 79 73 57 6f 72 64 73 28 29 20 42 45 |eclSysWords() BE|
000027c0 0a 24 28 20 4c 45 54 20 62 61 64 20 3d 20 54 41 |.$( LET bad = TA|
000027d0 42 4c 45 20 73 2e 62 61 64 2c 20 73 2e 62 61 64 |BLE s.bad, s.bad|
000027e0 0a 0a 20 20 20 73 79 6d 62 20 3a 3d 0a 20 20 20 |.. symb :=. |
000027f0 20 20 54 41 42 4c 45 0a 20 20 20 20 20 20 20 73 | TABLE. s|
00002800 2e 61 6e 64 2c 73 2e 61 62 73 2c 0a 20 20 20 20 |.and,s.abs,. |
00002810 20 20 20 73 2e 62 65 2c 73 2e 62 72 65 61 6b 2c | s.be,s.break,|
00002820 73 2e 62 79 2c 0a 20 20 20 20 20 20 20 73 2e 63 |s.by,. s.c|
00002830 61 73 65 2c 0a 20 20 20 20 20 20 20 73 2e 64 6f |ase,. s.do|
00002840 2c 73 2e 64 65 66 61 75 6c 74 2c 0a 20 20 20 20 |,s.default,. |
00002850 20 20 20 73 2e 65 71 2c 73 2e 65 71 76 2c 73 2e | s.eq,s.eqv,s.|
00002860 6f 72 2c 73 2e 65 6e 64 63 61 73 65 2c 0a 20 20 |or,s.endcase,. |
00002870 20 20 20 20 20 73 2e 66 61 6c 73 65 2c 73 2e 66 | s.false,s.f|
00002880 6f 72 2c 73 2e 66 69 6e 69 73 68 2c 0a 20 20 20 |or,s.finish,. |
00002890 20 20 20 20 73 2e 67 6f 74 6f 2c 73 2e 67 65 2c | s.goto,s.ge,|
000028a0 73 2e 67 72 2c 73 2e 67 6c 6f 62 61 6c 2c 73 2e |s.gr,s.global,s.|
000028b0 67 65 74 2c 0a 20 20 20 20 20 20 20 73 2e 69 66 |get,. s.if|
000028c0 2c 73 2e 69 6e 74 6f 2c 0a 20 20 20 20 20 20 20 |,s.into,. |
000028d0 73 2e 6c 65 74 2c 73 2e 6c 76 2c 73 2e 6c 65 2c |s.let,s.lv,s.le,|
000028e0 73 2e 6c 73 2c 73 2e 6c 6f 67 6f 72 2c 0a 20 20 |s.ls,s.logor,. |
000028f0 20 20 20 20 20 73 2e 6c 6f 67 61 6e 64 2c 73 2e | s.logand,s.|
00002900 6c 6f 6f 70 2c 73 2e 6c 73 68 69 66 74 2c 0a 20 |loop,s.lshift,. |
00002910 20 20 20 20 20 20 73 2e 6d 61 6e 69 66 65 73 74 | s.manifest|
00002920 2c 0a 20 20 20 20 20 20 20 73 2e 6e 65 2c 73 2e |,. s.ne,s.|
00002930 6e 6f 74 2c 73 2e 6e 65 71 76 2c 73 2e 6e 65 65 |not,s.neqv,s.nee|
00002940 64 73 2c 0a 20 20 20 20 20 20 20 73 2e 6f 72 2c |ds,. s.or,|
00002950 0a 20 20 20 20 20 20 20 73 2e 72 65 73 75 6c 74 |. s.result|
00002960 69 73 2c 73 2e 72 65 74 75 72 6e 2c 73 2e 72 65 |is,s.return,s.re|
00002970 6d 2c 73 2e 72 73 68 69 66 74 2c 73 2e 72 76 2c |m,s.rshift,s.rv,|
00002980 0a 20 20 20 20 20 20 20 73 2e 72 65 70 65 61 74 |. s.repeat|
00002990 2c 73 2e 72 65 70 65 61 74 77 68 69 6c 65 2c 73 |,s.repeatwhile,s|
000029a0 2e 72 65 70 65 61 74 75 6e 74 69 6c 2c 0a 20 20 |.repeatuntil,. |
000029b0 20 20 20 20 20 73 2e 73 77 69 74 63 68 6f 6e 2c | s.switchon,|
000029c0 73 2e 73 74 61 74 69 63 2c 73 2e 73 65 63 74 69 |s.static,s.secti|
000029d0 6f 6e 2c 0a 20 20 20 20 20 20 20 73 2e 74 6f 2c |on,. s.to,|
000029e0 73 2e 74 65 73 74 2c 73 2e 74 72 75 65 2c 73 2e |s.test,s.true,s.|
000029f0 64 6f 2c 73 2e 74 61 62 6c 65 2c 0a 20 20 20 20 |do,s.table,. |
00002a00 20 20 20 73 2e 75 6e 74 69 6c 2c 73 2e 75 6e 6c | s.until,s.unl|
00002a10 65 73 73 2c 0a 20 20 20 20 20 20 20 73 2e 76 65 |ess,. s.ve|
00002a20 63 2c 73 2e 76 61 6c 6f 66 2c 0a 20 20 20 20 20 |c,s.valof,. |
00002a30 20 20 73 2e 77 68 69 6c 65 2c 0a 20 20 20 20 20 | s.while,. |
00002a40 20 20 30 0a 0a 20 20 20 44 28 20 22 41 4e 44 20 | 0.. D( "AND |
00002a50 41 42 53 20 2a 0a 20 20 20 20 20 2a 42 45 20 42 |ABS *. *BE B|
00002a60 52 45 41 4b 20 42 59 20 2a 0a 20 20 20 20 20 2a |REAK BY *. *|
00002a70 43 41 53 45 20 2a 0a 20 20 20 20 20 2a 44 4f 20 |CASE *. *DO |
00002a80 44 45 46 41 55 4c 54 20 2a 0a 20 20 20 20 20 2a |DEFAULT *. *|
00002a90 45 51 20 45 51 56 20 45 4c 53 45 20 45 4e 44 43 |EQ EQV ELSE ENDC|
00002aa0 41 53 45 20 2a 0a 20 20 20 20 20 2a 46 41 4c 53 |ASE *. *FALS|
00002ab0 45 20 46 4f 52 20 46 49 4e 49 53 48 20 2a 0a 20 |E FOR FINISH *. |
00002ac0 20 20 20 20 2a 47 4f 54 4f 20 47 45 20 47 52 20 | *GOTO GE GR |
00002ad0 47 4c 4f 42 41 4c 20 47 45 54 20 2a 0a 20 20 20 |GLOBAL GET *. |
00002ae0 20 20 2a 49 46 20 49 4e 54 4f 20 2a 0a 20 20 20 | *IF INTO *. |
00002af0 20 20 2a 4c 45 54 20 4c 56 20 4c 45 20 4c 53 20 | *LET LV LE LS |
00002b00 4c 4f 47 4f 52 20 4c 4f 47 41 4e 44 20 4c 4f 4f |LOGOR LOGAND LOO|
00002b10 50 20 4c 53 48 49 46 54 22 29 0a 0a 20 20 20 44 |P LSHIFT").. D|
00002b20 28 22 4d 41 4e 49 46 45 53 54 20 2a 0a 20 20 20 |("MANIFEST *. |
00002b30 20 20 2a 4e 45 20 4e 4f 54 20 4e 45 51 56 20 4e | *NE NOT NEQV N|
00002b40 45 45 44 53 20 2a 0a 20 20 20 20 20 2a 4f 52 20 |EEDS *. *OR |
00002b50 2a 0a 20 20 20 20 20 2a 52 45 53 55 4c 54 49 53 |*. *RESULTIS|
00002b60 20 52 45 54 55 52 4e 20 52 45 4d 20 52 53 48 49 | RETURN REM RSHI|
00002b70 46 54 20 52 56 20 2a 0a 20 20 20 20 20 2a 52 45 |FT RV *. *RE|
00002b80 50 45 41 54 20 52 45 50 45 41 54 57 48 49 4c 45 |PEAT REPEATWHILE|
00002b90 20 52 45 50 45 41 54 55 4e 54 49 4c 20 2a 0a 20 | REPEATUNTIL *. |
00002ba0 20 20 20 20 2a 53 57 49 54 43 48 4f 4e 20 53 54 | *SWITCHON ST|
00002bb0 41 54 49 43 20 53 45 43 54 49 4f 4e 20 2a 0a 20 |ATIC SECTION *. |
00002bc0 20 20 20 20 2a 54 4f 20 54 45 53 54 20 54 52 55 | *TO TEST TRU|
00002bd0 45 20 54 48 45 4e 20 54 41 42 4c 45 20 2a 0a 20 |E THEN TABLE *. |
00002be0 20 20 20 20 2a 55 4e 54 49 4c 20 55 4e 4c 45 53 | *UNTIL UNLES|
00002bf0 53 20 2a 0a 20 20 20 20 20 2a 56 45 43 20 56 41 |S *. *VEC VA|
00002c00 4c 4f 46 20 2a 0a 20 20 20 20 20 2a 57 48 49 4c |LOF *. *WHIL|
00002c10 45 20 2a 0a 20 20 20 20 20 2a 24 22 29 0a 0a 20 |E *. *$").. |
00002c20 20 20 6e 75 6c 6c 74 61 67 20 3a 3d 20 77 6f 72 | nulltag := wor|
00002c30 64 4e 6f 64 65 0a 0a 20 20 20 49 46 20 6c 69 73 |dNode.. IF lis|
00002c40 70 45 78 74 65 6e 73 69 6f 6e 73 20 54 48 45 4e |pExtensions THEN|
00002c50 20 7b 0a 20 20 20 20 20 20 73 79 6d 62 20 3a 3d | {. symb :=|
00002c60 20 28 54 41 42 4c 45 20 73 2e 6e 69 6c 2c 20 73 | (TABLE s.nil, s|
00002c70 2e 63 61 72 2c 20 73 2e 63 64 72 2c 20 73 2e 76 |.car, s.cdr, s.v|
00002c80 63 61 72 2c 20 73 2e 76 63 64 72 2c 0a 09 09 20 |car, s.vcdr,... |
00002c90 20 20 20 20 73 2e 6c 6c 65 2c 73 2e 6c 67 65 2c | s.lle,s.lge,|
00002ca0 73 2e 6c 67 72 2c 73 2e 6c 6c 73 29 3b 0a 20 20 |s.lgr,s.lls);. |
00002cb0 20 20 20 20 44 28 22 4e 49 4c 20 43 41 52 20 43 | D("NIL CAR C|
00002cc0 44 52 20 56 43 41 52 20 56 43 44 52 20 4c 4c 45 |DR VCAR VCDR LLE|
00002cd0 20 4c 47 45 20 4c 47 52 20 4c 4c 53 22 29 20 7d | LGE LGR LLS") }|
00002ce0 0a 0a 20 20 20 2f 2f 20 49 66 20 74 68 65 20 65 |.. // If the e|
00002cf0 78 74 65 6e 73 69 6f 6e 20 6c 65 76 65 6c 20 69 |xtension level i|
00002d00 73 20 73 75 69 74 61 62 6c 65 2c 20 64 65 63 6c |s suitable, decl|
00002d10 61 72 65 20 74 68 65 0a 20 20 20 2f 2f 20 73 79 |are the. // sy|
00002d20 6d 62 6f 6c 73 20 53 4c 43 54 20 61 6e 64 20 4f |mbols SLCT and O|
00002d30 46 20 61 70 70 72 6f 70 72 69 61 74 65 6c 79 2e |F appropriately.|
00002d40 20 20 4f 74 68 65 72 77 69 73 65 2c 0a 20 20 20 | Otherwise,. |
00002d50 2f 2f 20 64 65 63 6c 61 72 65 20 74 68 65 6d 20 |// declare them |
00002d60 61 73 20 27 62 61 64 27 2c 20 73 6f 20 74 68 61 |as 'bad', so tha|
00002d70 74 20 74 68 65 79 20 61 72 65 20 73 74 69 6c 6c |t they are still|
00002d80 0a 20 20 20 2f 2f 20 72 65 73 65 72 76 65 64 20 |. // reserved |
00002d90 77 6f 72 64 73 2e 0a 0a 20 20 20 73 79 6d 62 20 |words... symb |
00002da0 3a 3d 20 65 78 74 65 6e 73 69 6f 6e 2e 6c 65 76 |:= extension.lev|
00002db0 65 6c 3e 3d 33 20 2d 3e 20 28 54 41 42 4c 45 20 |el>=3 -> (TABLE |
00002dc0 73 2e 73 6c 63 74 2c 73 2e 6f 66 2c 73 2e 66 69 |s.slct,s.of,s.fi|
00002dd0 78 2c 73 2e 66 6c 6f 61 74 29 2c 62 61 64 0a 20 |x,s.float),bad. |
00002de0 20 20 44 28 22 53 4c 43 54 20 4f 46 20 46 49 58 | D("SLCT OF FIX|
00002df0 20 46 4c 4f 41 54 22 29 0a 0a 20 20 20 2f 2f 20 | FLOAT").. // |
00002e00 45 58 54 45 52 4e 41 4c 20 69 73 20 64 65 63 6c |EXTERNAL is decl|
00002e10 61 72 65 64 20 73 69 6d 69 6c 61 72 6c 79 0a 0a |ared similarly..|
00002e20 20 20 20 73 79 6d 62 20 3a 3d 20 65 78 74 65 6e | symb := exten|
00002e30 73 69 6f 6e 2e 6c 65 76 65 6c 3e 3d 34 20 2d 3e |sion.level>=4 ->|
00002e40 20 28 54 41 42 4c 45 20 73 2e 65 78 74 65 72 6e | (TABLE s.extern|
00002e50 61 6c 29 2c 20 62 61 64 0a 20 20 20 44 28 22 45 |al), bad. D("E|
00002e60 58 54 45 52 4e 41 4c 22 29 0a 24 29 0a 0a 41 4e |XTERNAL").$)..AN|
00002e70 44 20 44 28 77 6f 72 64 73 29 20 42 45 0a 24 28 |D D(words) BE.$(|
00002e80 20 4c 45 54 20 69 20 3d 20 31 0a 20 20 20 4c 45 | LET i = 1. LE|
00002e90 54 20 6c 65 6e 67 74 68 20 3d 20 30 0a 0a 20 20 |T length = 0.. |
00002ea0 20 24 28 20 4c 45 54 20 63 68 20 3d 20 69 3e 77 | $( LET ch = i>w|
00002eb0 6f 72 64 73 25 30 20 2d 3e 20 27 20 27 2c 20 77 |ords%0 -> ' ', w|
00002ec0 6f 72 64 73 25 69 0a 0a 20 20 20 20 20 20 54 45 |ords%i.. TE|
00002ed0 53 54 20 63 68 3d 27 20 27 20 54 48 45 4e 20 24 |ST ch=' ' THEN $|
00002ee0 28 0a 09 20 49 46 20 6c 65 6e 67 74 68 3d 30 20 |(.. IF length=0 |
00002ef0 54 48 45 4e 20 52 45 54 55 52 4e 0a 09 20 77 6f |THEN RETURN.. wo|
00002f00 72 64 76 25 30 20 3a 3d 20 6c 65 6e 67 74 68 0a |rdv%0 := length.|
00002f10 09 20 4c 6f 6f 6b 55 70 57 6f 72 64 28 29 0a 09 |. LookUpWord()..|
00002f20 20 68 31 21 77 6f 72 64 4e 6f 64 65 20 3a 3d 21 | h1!wordNode :=!|
00002f30 73 79 6d 62 0a 09 20 73 79 6d 62 20 3a 3d 20 73 |symb.. symb := s|
00002f40 79 6d 62 2b 31 0a 09 20 6c 65 6e 67 74 68 20 3a |ymb+1.. length :|
00002f50 3d 20 30 20 24 29 0a 20 20 20 20 20 20 45 4c 53 |= 0 $). ELS|
00002f60 45 20 24 28 0a 09 20 6c 65 6e 67 74 68 20 3a 3d |E $(.. length :=|
00002f70 20 6c 65 6e 67 74 68 2b 31 0a 09 20 77 6f 72 64 | length+1.. word|
00002f80 76 25 6c 65 6e 67 74 68 20 3a 3d 20 63 68 20 24 |v%length := ch $|
00002f90 29 0a 20 20 20 20 20 20 69 20 3a 3d 20 69 2b 31 |). i := i+1|
00002fa0 0a 20 20 20 24 29 20 52 45 50 45 41 54 0a 24 29 |. $) REPEAT.$)|
00002fb0 0a 0a 0a 41 4e 44 20 52 43 68 28 29 20 42 45 0a |...AND RCh() BE.|
00002fc0 24 28 20 63 68 20 3a 3d 20 52 64 43 68 28 29 0a |$( ch := RdCh().|
00002fd0 0a 20 20 20 49 46 20 63 68 3d 27 2a 4e 27 20 7c |. IF ch='*N' ||
00002fe0 20 63 68 3d 27 2a 50 27 20 7c 20 63 68 3d 27 2a | ch='*P' | ch='*|
00002ff0 43 27 20 54 48 45 4e 0a 20 20 20 24 28 20 63 68 |C' THEN. $( ch|
00003000 20 3a 3d 20 27 2a 4e 27 0a 20 20 20 20 20 20 6c | := '*N'. l|
00003010 69 6e 65 43 6f 75 6e 74 20 3a 3d 20 6c 69 6e 65 |ineCount := line|
00003020 43 6f 75 6e 74 2b 31 20 24 29 0a 20 20 20 63 68 |Count+1 $). ch|
00003030 63 6f 75 6e 74 20 3a 3d 20 63 68 63 6f 75 6e 74 |count := chcount|
00003040 2b 31 0a 20 20 20 63 68 62 75 66 21 28 63 68 63 |+1. chbuf!(chc|
00003050 6f 75 6e 74 20 26 20 36 33 29 20 3a 3d 20 63 68 |ount & 63) := ch|
00003060 0a 24 29 0a 0a 41 4e 44 20 52 64 54 61 67 28 63 |.$)..AND RdTag(c|
00003070 68 61 72 29 20 42 45 0a 24 28 20 4c 45 54 20 69 |har) BE.$( LET i|
00003080 20 3d 20 31 0a 20 20 20 77 6f 72 64 76 25 69 20 | = 1. wordv%i |
00003090 3a 3d 20 63 68 61 72 0a 0a 20 20 20 24 28 20 4c |:= char.. $( L|
000030a0 45 54 20 63 63 20 3d 20 43 61 70 69 74 61 6c 43 |ET cc = CapitalC|
000030b0 68 28 63 68 29 0a 0a 20 20 20 20 20 20 55 4e 4c |h(ch).. UNL|
000030c0 45 53 53 20 27 41 27 20 3c 3d 20 63 63 20 3c 3d |ESS 'A' <= cc <=|
000030d0 20 27 5a 27 20 7c 0a 09 20 20 20 20 20 27 30 27 | 'Z' |.. '0'|
000030e0 20 3c 3d 20 63 68 20 3c 3d 20 27 39 27 20 7c 20 | <= ch <= '9' | |
000030f0 63 68 3d 27 2e 27 20 7c 0a 09 20 20 20 20 20 28 |ch='.' |.. (|
00003100 63 68 3d 27 5f 27 20 26 20 65 78 74 65 6e 73 69 |ch='_' & extensi|
00003110 6f 6e 2e 6c 65 76 65 6c 3e 30 29 20 54 48 45 4e |on.level>0) THEN|
00003120 0a 09 42 52 45 41 4b 0a 0a 20 20 20 20 20 20 69 |..BREAK.. i|
00003130 20 3a 3d 20 69 2b 31 0a 20 20 20 20 20 20 77 6f | := i+1. wo|
00003140 72 64 76 25 69 20 3a 3d 20 63 68 0a 20 20 20 20 |rdv%i := ch. |
00003150 20 20 52 43 68 28 29 0a 20 20 20 24 29 20 52 45 | RCh(). $) RE|
00003160 50 45 41 54 0a 20 20 20 77 6f 72 64 76 25 30 20 |PEAT. wordv%0 |
00003170 3a 3d 20 69 0a 24 29 0a 0a 41 4e 44 20 50 65 72 |:= i.$)..AND Per|
00003180 66 6f 72 6d 47 65 74 28 29 20 42 45 0a 24 28 20 |formGet() BE.$( |
00003190 4c 45 54 20 73 20 3d 20 30 0a 20 20 20 4c 45 54 |LET s = 0. LET|
000031a0 20 74 20 3d 20 74 72 61 6e 73 63 68 61 72 73 0a | t = transchars.|
000031b0 0a 20 20 20 74 72 61 6e 73 63 68 61 72 73 20 3a |. transchars :|
000031c0 3d 20 46 41 4c 53 45 0a 20 20 20 4e 65 78 74 53 |= FALSE. NextS|
000031d0 79 6d 62 28 29 0a 20 20 20 74 72 61 6e 73 63 68 |ymb(). transch|
000031e0 61 72 73 20 3a 3d 20 74 0a 0a 20 20 20 49 46 20 |ars := t.. IF |
000031f0 73 79 6d 62 7e 3d 73 2e 73 74 72 69 6e 67 20 7c |symb~=s.string ||
00003200 20 67 65 74 70 2b 32 3e 67 65 74 6d 61 78 20 54 | getp+2>getmax T|
00003210 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 39 37 |HEN SynReport(97|
00003220 29 0a 0a 20 20 20 2f 2f 20 43 68 65 63 6b 20 66 |).. // Check f|
00003230 6f 72 20 47 45 54 20 22 22 20 66 69 72 73 74 20 |or GET "" first |
00003240 2d 20 74 68 65 20 6d 65 61 6e 69 6e 67 20 6f 66 |- the meaning of|
00003250 20 74 68 69 73 20 68 61 73 0a 20 20 20 2f 2f 20 | this has. // |
00003260 62 65 65 6e 20 63 68 61 6e 67 65 64 20 73 6f 20 |been changed so |
00003270 74 68 61 74 20 69 74 20 61 6c 77 61 79 73 20 72 |that it always r|
00003280 65 66 65 72 73 20 74 6f 20 74 68 65 20 73 6f 75 |efers to the sou|
00003290 72 63 65 0a 20 20 20 2f 2f 20 66 69 6c 65 2c 20 |rce. // file, |
000032a0 65 76 65 6e 20 69 66 20 61 20 48 44 52 20 70 61 |even if a HDR pa|
000032b0 72 61 6d 65 74 65 72 20 77 61 73 20 67 69 76 65 |rameter was give|
000032c0 6e 2e 0a 20 20 20 2f 2f 0a 20 20 20 2f 2f 20 4e |n.. //. // N|
000032d0 6f 74 65 20 74 68 61 74 20 47 45 54 20 22 22 20 |ote that GET "" |
000032e0 69 73 20 61 6e 20 65 78 74 65 6e 73 69 6f 6e 20 |is an extension |
000032f0 74 6f 20 73 74 61 6e 64 61 72 64 20 42 43 50 4c |to standard BCPL|
00003300 2e 0a 0a 20 20 20 54 45 53 54 20 77 6f 72 64 76 |... TEST wordv|
00003310 25 30 3d 30 20 54 48 45 4e 0a 20 20 20 20 20 20 |%0=0 THEN. |
00003320 49 46 20 65 78 74 65 6e 73 69 6f 6e 2e 6c 65 76 |IF extension.lev|
00003330 65 6c 3e 3d 32 20 54 48 45 4e 0a 09 20 73 20 3a |el>=2 THEN.. s :|
00003340 3d 20 4f 70 65 6e 28 66 72 6f 6d 66 69 6c 65 2c |= Open(fromfile,|
00003350 20 54 52 55 45 2c 20 46 41 4c 53 45 29 0a 20 20 | TRUE, FALSE). |
00003360 20 45 4c 53 45 20 54 45 53 54 20 68 65 61 64 65 | ELSE TEST heade|
00003370 72 73 3d 30 20 54 48 45 4e 20 24 28 0a 20 20 20 |rs=0 THEN $(. |
00003380 20 20 20 73 20 3a 3d 20 4f 70 65 6e 28 77 6f 72 | s := Open(wor|
00003390 64 76 2c 20 54 52 55 45 2c 20 46 41 4c 53 45 29 |dv, TRUE, FALSE)|
000033a0 0a 0a 20 20 20 20 20 20 49 46 20 73 3d 30 20 54 |.. IF s=0 T|
000033b0 48 45 4e 20 24 28 0a 09 20 4c 45 54 20 6c 65 6e |HEN $(.. LET len|
000033c0 77 20 3d 20 77 6f 72 64 76 25 30 0a 09 20 4c 45 |w = wordv%0.. LE|
000033d0 54 20 70 72 65 66 69 78 20 3d 20 22 24 2e 61 6c |T prefix = "$.al|
000033e0 69 62 2e 22 0a 09 20 4c 45 54 20 70 6c 65 6e 20 |ib.".. LET plen |
000033f0 3d 20 70 72 65 66 69 78 25 30 0a 09 20 4c 45 54 |= prefix%0.. LET|
00003400 20 76 20 3d 20 56 45 43 20 33 30 2f 42 79 74 65 | v = VEC 30/Byte|
00003410 73 50 65 72 57 6f 72 64 0a 0a 09 20 49 46 20 6c |sPerWord... IF l|
00003420 65 6e 77 3e 31 30 20 54 48 45 4e 20 6c 65 6e 77 |enw>10 THEN lenw|
00003430 20 3a 3d 20 31 30 0a 0a 09 20 46 4f 52 20 69 20 | := 10... FOR i |
00003440 3d 20 31 20 54 4f 20 6c 65 6e 77 20 44 4f 20 76 |= 1 TO lenw DO v|
00003450 25 28 69 2b 70 6c 65 6e 29 20 3a 3d 20 77 6f 72 |%(i+plen) := wor|
00003460 64 76 25 69 0a 09 20 46 4f 52 20 69 20 3d 20 31 |dv%i.. FOR i = 1|
00003470 20 54 4f 20 70 6c 65 6e 20 44 4f 20 76 25 69 20 | TO plen DO v%i |
00003480 3a 3d 20 70 72 65 66 69 78 25 69 0a 09 20 76 25 |:= prefix%i.. v%|
00003490 30 20 3a 3d 20 6c 65 6e 77 2b 70 6c 65 6e 0a 09 |0 := lenw+plen..|
000034a0 20 73 20 3a 3d 20 4f 70 65 6e 28 76 2c 20 54 52 | s := Open(v, TR|
000034b0 55 45 2c 20 46 41 4c 53 45 29 20 24 29 20 24 29 |UE, FALSE) $) $)|
000034c0 0a 0a 20 20 20 45 4c 53 45 20 24 28 0a 20 20 20 |.. ELSE $(. |
000034d0 20 20 20 4c 45 54 20 66 69 6c 65 20 3d 20 66 69 | LET file = fi|
000034e0 6e 64 2e 68 65 61 64 65 72 28 77 6f 72 64 76 29 |nd.header(wordv)|
000034f0 0a 0a 20 20 20 20 20 20 49 46 20 66 69 6c 65 7e |.. IF file~|
00003500 3d 30 20 54 48 45 4e 20 24 28 0a 09 20 73 20 3a |=0 THEN $(.. s :|
00003510 3d 20 4f 70 65 6e 28 66 69 6c 65 2c 20 54 52 55 |= Open(file, TRU|
00003520 45 2c 20 46 41 4c 53 45 29 0a 09 20 46 72 65 65 |E, FALSE).. Free|
00003530 56 65 63 74 6f 72 28 66 69 6c 65 29 20 24 29 20 |Vector(file) $) |
00003540 24 29 0a 0a 20 20 20 49 46 20 73 3d 30 20 54 48 |$).. IF s=0 TH|
00003550 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 39 36 2c |EN SynReport(96,|
00003560 20 77 6f 72 64 76 29 0a 0a 20 20 20 67 65 74 76 | wordv).. getv|
00003570 21 67 65 74 70 20 3a 3d 20 73 6f 75 72 63 65 53 |!getp := sourceS|
00003580 74 72 65 61 6d 0a 20 20 20 67 65 74 76 21 28 67 |tream. getv!(g|
00003590 65 74 70 2b 31 29 20 3a 3d 20 6c 69 6e 65 43 6f |etp+1) := lineCo|
000035a0 75 6e 74 0a 20 20 20 67 65 74 76 21 28 67 65 74 |unt. getv!(get|
000035b0 70 2b 32 29 20 3a 3d 20 63 68 0a 20 20 20 67 65 |p+2) := ch. ge|
000035c0 74 70 20 3a 3d 20 67 65 74 70 2b 33 0a 0a 20 20 |tp := getp+3.. |
000035d0 20 6c 69 6e 65 43 6f 75 6e 74 20 3a 3d 20 31 0a | lineCount := 1.|
000035e0 0a 20 20 20 73 6f 75 72 63 65 53 74 72 65 61 6d |. sourceStream|
000035f0 20 3a 3d 20 73 0a 20 20 20 53 65 6c 65 63 74 49 | := s. SelectI|
00003600 6e 70 75 74 28 73 29 0a 20 20 20 52 43 68 28 29 |nput(s). RCh()|
00003610 0a 24 29 0a 0a 41 4e 44 20 66 69 6e 64 2e 68 65 |.$)..AND find.he|
00003620 61 64 65 72 28 73 74 72 69 6e 67 29 20 3d 20 56 |ader(string) = V|
00003630 41 4c 4f 46 0a 2f 2f 0a 2f 2f 20 46 69 6e 64 73 |ALOF.//.// Finds|
00003640 20 74 68 65 20 66 69 6c 65 20 61 73 73 6f 63 69 | the file associ|
00003650 61 74 65 64 20 77 69 74 68 20 74 68 65 20 67 69 |ated with the gi|
00003660 76 65 6e 20 68 65 61 64 65 72 20 6e 61 6d 65 0a |ven header name.|
00003670 2f 2f 20 69 6e 20 74 68 65 20 48 44 52 20 70 61 |// in the HDR pa|
00003680 72 61 6d 65 74 65 72 2e 0a 2f 2f 0a 2f 2f 20 54 |rameter..//.// T|
00003690 68 69 73 20 68 61 73 20 74 68 65 20 66 6f 72 6d |his has the form|
000036a0 61 74 3a 0a 2f 2f 0a 2f 2f 20 20 20 48 31 3d 46 |at:.//.// H1=F|
000036b0 31 2c 48 32 3d 46 32 2c 2e 2e 2e 2e 48 6e 3d 46 |1,H2=F2,....Hn=F|
000036c0 6e 0a 2f 2f 0a 2f 2f 20 45 61 63 68 20 48 69 20 |n.//.// Each Hi |
000036d0 69 73 20 61 20 68 65 61 64 65 72 20 6e 61 6d 65 |is a header name|
000036e0 20 28 65 67 2e 20 4c 49 42 48 44 52 29 2c 20 61 | (eg. LIBHDR), a|
000036f0 6e 64 20 65 61 63 68 20 46 69 20 69 73 20 61 0a |nd each Fi is a.|
00003700 2f 2f 20 66 69 6c 65 20 6e 61 6d 65 2e 0a 2f 2f |// file name..//|
00003710 0a 2f 2f 20 54 68 65 20 72 65 73 75 6c 74 20 69 |.// The result i|
00003720 73 20 61 20 6e 65 77 6c 79 2d 61 6c 6c 6f 63 61 |s a newly-alloca|
00003730 74 65 64 20 76 65 63 74 6f 72 20 68 6f 6c 64 69 |ted vector holdi|
00003740 6e 67 20 74 68 65 20 66 69 6c 65 0a 2f 2f 20 6e |ng the file.// n|
00003750 61 6d 65 2c 20 6f 72 20 7a 65 72 6f 20 69 66 20 |ame, or zero if |
00003760 74 68 65 20 68 65 61 64 65 72 20 6e 61 6d 65 20 |the header name |
00003770 77 61 73 20 6e 6f 74 20 66 6f 75 6e 64 2e 0a 2f |was not found../|
00003780 2f 0a 2f 2f 20 54 68 65 20 63 6f 6e 64 69 74 69 |/.// The conditi|
00003790 6f 6e 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e |onal compilation|
000037a0 20 74 61 67 20 52 44 41 52 47 53 4c 20 69 73 20 | tag RDARGSL is |
000037b0 73 65 74 20 69 66 20 48 44 52 0a 2f 2f 20 77 61 |set if HDR.// wa|
000037c0 73 20 72 65 61 64 20 77 69 74 68 20 74 68 65 20 |s read with the |
000037d0 2f 4c 20 27 72 64 61 72 67 73 27 20 6f 70 74 69 |/L 'rdargs' opti|
000037e0 6f 6e 73 2c 20 69 6e 20 77 68 69 63 68 20 63 61 |ons, in which ca|
000037f0 73 65 0a 2f 2f 20 74 68 65 20 6c 65 6e 67 74 68 |se.// the length|
00003800 20 69 73 20 69 6e 20 74 68 65 20 66 69 72 73 74 | is in the first|
00003810 20 57 4f 52 44 2c 20 6e 6f 74 20 62 79 74 65 2e | WORD, not byte.|
00003820 0a 2f 2f 0a 24 28 20 4c 45 54 20 68 75 70 62 20 |.//.$( LET hupb |
00003830 3d 20 68 65 61 64 65 72 73 25 30 0a 20 20 20 4c |= headers%0. L|
00003840 45 54 20 68 6c 77 62 20 3d 20 31 0a 20 20 20 4c |ET hlwb = 1. L|
00003850 45 54 20 73 6c 65 6e 20 3d 20 73 74 72 69 6e 67 |ET slen = string|
00003860 25 30 0a 20 20 20 4c 45 54 20 68 70 6f 73 20 3d |%0. LET hpos =|
00003870 20 68 6c 77 62 0a 20 20 20 4c 45 54 20 66 70 6f | hlwb. LET fpo|
00003880 73 20 3d 20 30 0a 20 20 20 4c 45 54 20 76 20 3d |s = 0. LET v =|
00003890 20 30 0a 0a 20 20 20 2f 2f 20 53 65 61 72 63 68 | 0.. // Search|
000038a0 20 74 68 72 6f 75 67 68 20 74 68 65 20 48 44 52 | through the HDR|
000038b0 20 73 74 72 69 6e 67 20 74 6f 20 66 69 6e 64 20 | string to find |
000038c0 74 68 65 20 68 65 61 64 65 72 0a 20 20 20 2f 2f |the header. //|
000038d0 20 6e 61 6d 65 2e 0a 0a 20 20 20 46 4f 52 20 6a | name... FOR j|
000038e0 20 3d 20 68 6c 77 62 20 54 4f 20 68 75 70 62 20 | = hlwb TO hupb |
000038f0 44 4f 0a 20 20 20 24 28 20 4c 45 54 20 63 20 3d |DO. $( LET c =|
00003900 20 68 65 61 64 65 72 73 25 6a 0a 0a 20 20 20 20 | headers%j.. |
00003910 20 20 2f 2f 20 41 20 63 6f 6d 6d 61 20 69 6e 64 | // A comma ind|
00003920 69 63 61 74 65 73 20 74 68 65 20 73 74 61 72 74 |icates the start|
00003930 20 6f 66 20 61 20 68 65 61 64 65 72 20 6e 61 6d | of a header nam|
00003940 65 2c 0a 20 20 20 20 20 20 2f 2f 20 61 6e 20 65 |e,. // an e|
00003950 71 75 61 6c 73 20 73 69 67 6e 20 74 68 65 20 65 |quals sign the e|
00003960 6e 64 20 6f 66 20 6f 6e 65 2e 0a 0a 20 20 20 20 |nd of one... |
00003970 20 20 54 45 53 54 20 63 3d 27 2c 27 0a 09 20 54 | TEST c=','.. T|
00003980 48 45 4e 20 68 70 6f 73 20 3a 3d 20 6a 2b 31 0a |HEN hpos := j+1.|
00003990 09 20 45 4c 53 45 20 49 46 20 63 3d 27 3d 27 20 |. ELSE IF c='=' |
000039a0 54 48 45 4e 0a 09 20 20 2f 2f 0a 09 20 20 2f 2f |THEN.. //.. //|
000039b0 20 44 6f 65 73 20 74 68 65 20 63 75 72 72 65 6e | Does the curren|
000039c0 74 20 68 65 61 64 65 72 20 6e 61 6d 65 20 6d 61 |t header name ma|
000039d0 74 63 68 20 74 68 65 20 6f 6e 65 0a 09 20 20 2f |tch the one.. /|
000039e0 2f 20 74 68 61 74 20 69 73 20 62 65 69 6e 67 20 |/ that is being |
000039f0 73 6f 75 67 68 74 3f 0a 09 20 20 2f 2f 0a 09 20 |sought?.. //.. |
00003a00 20 49 46 20 6a 2d 68 70 6f 73 3d 73 6c 65 6e 20 | IF j-hpos=slen |
00003a10 54 48 45 4e 0a 09 20 20 24 28 20 4c 45 54 20 73 |THEN.. $( LET s|
00003a20 61 6d 65 20 3d 20 54 52 55 45 0a 0a 09 20 20 20 |ame = TRUE... |
00003a30 20 20 46 4f 52 20 6a 20 3d 20 31 20 54 4f 20 73 | FOR j = 1 TO s|
00003a40 6c 65 6e 20 44 4f 0a 09 20 20 20 20 20 20 20 49 |len DO.. I|
00003a50 46 20 43 6f 6d 70 43 68 28 68 65 61 64 65 72 73 |F CompCh(headers|
00003a60 25 28 6a 2b 68 70 6f 73 2d 31 29 2c 20 73 74 72 |%(j+hpos-1), str|
00003a70 69 6e 67 25 6a 29 7e 3d 30 20 54 48 45 4e 0a 09 |ing%j)~=0 THEN..|
00003a80 20 20 20 20 20 20 20 24 28 20 73 61 6d 65 20 3a | $( same :|
00003a90 3d 20 46 41 4c 53 45 0a 09 09 20 20 42 52 45 41 |= FALSE... BREA|
00003aa0 4b 20 24 29 0a 0a 09 20 20 20 20 20 20 20 2f 2f |K $)... //|
00003ab0 20 49 66 20 66 6f 75 6e 64 2c 20 72 65 6d 65 6d | If found, remem|
00003ac0 62 65 72 20 74 68 65 20 70 6f 73 69 74 69 6f 6e |ber the position|
00003ad0 20 61 74 0a 09 20 20 20 20 20 20 20 2f 2f 20 77 | at.. // w|
00003ae0 68 69 63 68 20 74 68 65 20 66 69 6c 65 20 6e 61 |hich the file na|
00003af0 6d 65 20 73 74 61 72 74 73 2e 0a 0a 09 20 20 20 |me starts.... |
00003b00 20 20 20 20 49 46 20 73 61 6d 65 20 54 48 45 4e | IF same THEN|
00003b10 0a 09 20 20 20 20 20 20 20 24 28 20 66 70 6f 73 |.. $( fpos|
00003b20 20 3a 3d 20 6a 2b 31 0a 09 09 20 20 42 52 45 41 | := j+1... BREA|
00003b30 4b 20 24 29 20 24 29 20 24 29 0a 0a 20 20 20 49 |K $) $) $).. I|
00003b40 46 20 66 70 6f 73 7e 3d 30 20 54 48 45 4e 0a 20 |F fpos~=0 THEN. |
00003b50 20 20 24 28 20 4c 45 54 20 66 6c 65 6e 20 3d 20 | $( LET flen = |
00003b60 30 0a 0a 20 20 20 20 20 20 46 4f 52 20 6a 20 3d |0.. FOR j =|
00003b70 20 66 70 6f 73 20 54 4f 20 68 75 70 62 20 44 4f | fpos TO hupb DO|
00003b80 0a 20 20 20 20 20 20 24 28 20 49 46 20 68 65 61 |. $( IF hea|
00003b90 64 65 72 73 25 6a 3d 27 2c 27 20 54 48 45 4e 20 |ders%j=',' THEN |
00003ba0 42 52 45 41 4b 0a 09 20 66 6c 65 6e 20 3a 3d 20 |BREAK.. flen := |
00003bb0 66 6c 65 6e 2b 31 20 24 29 0a 20 20 20 20 20 20 |flen+1 $). |
00003bc0 76 20 3a 3d 20 47 65 74 56 65 63 74 6f 72 28 66 |v := GetVector(f|
00003bd0 6c 65 6e 20 2f 20 42 79 74 65 73 50 65 72 57 6f |len / BytesPerWo|
00003be0 72 64 2b 31 29 0a 20 20 20 20 20 20 76 25 30 20 |rd+1). v%0 |
00003bf0 3a 3d 20 66 6c 65 6e 0a 0a 20 20 20 20 20 20 46 |:= flen.. F|
00003c00 4f 52 20 6a 20 3d 20 31 20 54 4f 20 66 6c 65 6e |OR j = 1 TO flen|
00003c10 20 44 4f 0a 09 20 76 25 6a 20 3a 3d 20 68 65 61 | DO.. v%j := hea|
00003c20 64 65 72 73 25 28 66 70 6f 73 2b 6a 2d 31 29 20 |ders%(fpos+j-1) |
00003c30 24 29 0a 20 20 20 52 45 53 55 4c 54 49 53 20 76 |$). RESULTIS v|
00003c40 0a 24 29 0a 0a 41 4e 44 20 52 65 61 64 4e 75 6d |.$)..AND ReadNum|
00003c50 62 65 72 28 72 61 64 69 78 29 20 42 45 0a 24 28 |ber(radix) BE.$(|
00003c60 20 4c 45 54 20 64 20 3d 20 56 61 6c 75 65 28 63 | LET d = Value(c|
00003c70 68 29 3b 0a 20 20 20 64 69 67 69 74 73 20 3a 3d |h);. digits :=|
00003c80 20 31 3b 0a 20 20 20 64 65 63 76 61 6c 20 3a 3d | 1;. decval :=|
00003c90 20 64 0a 20 20 20 49 46 20 64 3e 3d 72 61 64 69 | d. IF d>=radi|
00003ca0 78 20 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 |x THEN SynReport|
00003cb0 28 33 33 29 0a 0a 20 20 20 24 28 20 52 43 68 28 |(33).. $( RCh(|
00003cc0 29 0a 20 20 20 20 20 20 64 20 3a 3d 20 56 61 6c |). d := Val|
00003cd0 75 65 28 63 68 29 0a 20 20 20 20 20 20 49 46 20 |ue(ch). IF |
00003ce0 64 3e 3d 72 61 64 69 78 20 54 48 45 4e 20 52 45 |d>=radix THEN RE|
00003cf0 54 55 52 4e 3b 0a 20 20 20 20 20 20 64 69 67 69 |TURN;. digi|
00003d00 74 73 20 3a 3d 20 64 69 67 69 74 73 2b 31 3b 0a |ts := digits+1;.|
00003d10 20 20 20 20 20 20 64 65 63 76 61 6c 20 3a 3d 20 | decval := |
00003d20 72 61 64 69 78 20 2a 20 64 65 63 76 61 6c 2b 64 |radix * decval+d|
00003d30 0a 20 20 20 24 29 20 52 45 50 45 41 54 0a 24 29 |. $) REPEAT.$)|
00003d40 0a 0a 41 4e 44 20 52 65 61 64 46 6c 6f 61 74 28 |..AND ReadFloat(|
00003d50 29 20 42 45 0a 24 28 20 4c 45 54 20 6e 65 67 61 |) BE.$( LET nega|
00003d60 74 69 76 65 45 78 70 6f 6e 65 6e 74 20 3d 20 46 |tiveExponent = F|
00003d70 41 4c 53 45 3b 0a 20 20 20 73 79 6d 62 20 3a 3d |ALSE;. symb :=|
00003d80 20 73 2e 66 63 6f 6e 73 74 3b 0a 20 20 20 6d 61 | s.fconst;. ma|
00003d90 6e 74 69 73 73 61 2c 20 65 78 70 6f 6e 65 6e 74 |ntissa, exponent|
00003da0 20 3a 3d 20 64 65 63 76 61 6c 2c 20 30 3b 0a 20 | := decval, 0;. |
00003db0 20 20 49 46 20 63 68 3d 27 2e 27 20 54 48 45 4e | IF ch='.' THEN|
00003dc0 0a 20 20 20 24 28 20 52 63 68 28 29 3b 0a 20 20 |. $( Rch();. |
00003dd0 20 20 20 20 55 4e 4c 45 53 53 20 27 30 27 3c 3d | UNLESS '0'<=|
00003de0 63 68 3c 3d 27 39 27 20 54 48 45 4e 20 53 79 6e |ch<='9' THEN Syn|
00003df0 52 65 70 6f 72 74 28 33 33 29 3b 0a 20 20 20 20 |Report(33);. |
00003e00 20 20 52 65 61 64 4e 75 6d 62 65 72 28 31 30 29 | ReadNumber(10)|
00003e10 3b 0a 20 20 20 20 20 20 49 46 20 64 65 63 76 61 |;. IF decva|
00003e20 6c 7e 3d 30 20 54 48 45 4e 0a 20 20 20 20 20 20 |l~=0 THEN. |
00003e30 24 28 20 65 78 70 6f 6e 65 6e 74 20 3a 3d 20 65 |$( exponent := e|
00003e40 78 70 6f 6e 65 6e 74 2d 64 69 67 69 74 73 3b 0a |xponent-digits;.|
00003e50 09 20 57 48 49 4c 45 20 64 69 67 69 74 73 7e 3d |. WHILE digits~=|
00003e60 30 20 44 4f 0a 09 20 24 28 20 6d 61 6e 74 69 73 |0 DO.. $( mantis|
00003e70 73 61 20 3a 3d 20 6d 61 6e 74 69 73 73 61 2a 31 |sa := mantissa*1|
00003e80 30 3b 0a 09 20 20 20 20 64 69 67 69 74 73 20 3a |0;.. digits :|
00003e90 3d 20 64 69 67 69 74 73 2d 31 20 24 29 3b 0a 09 |= digits-1 $);..|
00003ea0 20 6d 61 6e 74 69 73 73 61 20 3a 3d 20 6d 61 6e | mantissa := man|
00003eb0 74 69 73 73 61 2b 64 65 63 76 61 6c 20 24 29 20 |tissa+decval $) |
00003ec0 24 29 3b 0a 20 20 20 49 46 20 63 68 3d 27 45 27 |$);. IF ch='E'|
00003ed0 20 7c 20 63 68 3d 27 65 27 20 54 48 45 4e 0a 20 | | ch='e' THEN. |
00003ee0 20 20 24 28 20 52 63 68 28 29 3b 0a 20 20 20 20 | $( Rch();. |
00003ef0 20 20 49 46 20 63 68 3d 27 2d 27 20 54 48 45 4e | IF ch='-' THEN|
00003f00 20 24 28 20 6e 65 67 61 74 69 76 65 45 78 70 6f | $( negativeExpo|
00003f10 6e 65 6e 74 20 3a 3d 20 54 52 55 45 3b 20 52 63 |nent := TRUE; Rc|
00003f20 68 28 29 20 24 29 3b 0a 20 20 20 20 20 20 55 4e |h() $);. UN|
00003f30 4c 45 53 53 20 27 30 27 3c 3d 63 68 3c 3d 27 39 |LESS '0'<=ch<='9|
00003f40 27 20 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 |' THEN SynReport|
00003f50 28 33 33 29 3b 0a 20 20 20 20 20 20 52 65 61 64 |(33);. Read|
00003f60 4e 75 6d 62 65 72 28 31 30 29 3b 0a 20 20 20 20 |Number(10);. |
00003f70 20 20 65 78 70 6f 6e 65 6e 74 20 3a 3d 20 6e 65 | exponent := ne|
00003f80 67 61 74 69 76 65 45 78 70 6f 6e 65 6e 74 20 2d |gativeExponent -|
00003f90 3e 20 65 78 70 6f 6e 65 6e 74 2d 64 65 63 76 61 |> exponent-decva|
00003fa0 6c 2c 0a 09 09 09 09 20 20 20 20 20 20 65 78 70 |l,..... exp|
00003fb0 6f 6e 65 6e 74 2b 64 65 63 76 61 6c 20 24 29 0a |onent+decval $).|
00003fc0 24 29 0a 0a 41 4e 44 20 56 61 6c 75 65 28 63 68 |$)..AND Value(ch|
00003fd0 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c 45 54 |) = VALOF.$( LET|
00003fe0 20 63 20 3d 20 43 61 70 69 74 61 6c 43 68 28 63 | c = CapitalCh(c|
00003ff0 68 29 0a 20 20 20 52 45 53 55 4c 54 49 53 20 27 |h). RESULTIS '|
00004000 30 27 3c 3d 63 3c 3d 27 39 27 20 2d 3e 20 63 2d |0'<=c<='9' -> c-|
00004010 27 30 27 2c 0a 09 20 20 20 20 27 41 27 3c 3d 63 |'0',.. 'A'<=c|
00004020 3c 3d 27 46 27 20 2d 3e 20 63 2d 27 41 27 2b 31 |<='F' -> c-'A'+1|
00004030 30 2c 20 31 30 30 0a 24 29 0a 0a 41 4e 44 20 52 |0, 100.$)..AND R|
00004040 64 53 74 72 43 68 28 74 65 72 6d 2c 20 6c 76 2e |dStrCh(term, lv.|
00004050 63 68 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c |ch) = VALOF.$( L|
00004060 45 54 20 74 72 61 6e 73 20 3d 20 74 72 61 6e 73 |ET trans = trans|
00004070 63 68 61 72 73 0a 20 20 20 52 43 68 28 29 0a 20 |chars. RCh(). |
00004080 20 20 49 46 20 63 68 3d 74 65 72 6d 20 54 48 45 | IF ch=term THE|
00004090 4e 20 52 45 53 55 4c 54 49 53 20 46 41 4c 53 45 |N RESULTIS FALSE|
000040a0 0a 20 20 20 49 46 20 63 68 3d 27 2a 4e 27 20 54 |. IF ch='*N' T|
000040b0 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 33 34 |HEN SynReport(34|
000040c0 29 0a 0a 20 20 20 49 46 20 63 68 3d 27 2a 2a 27 |).. IF ch='**'|
000040d0 20 54 48 45 4e 0a 20 20 20 24 28 20 52 43 68 28 | THEN. $( RCh(|
000040e0 29 0a 20 20 20 20 20 20 49 46 20 63 68 3d 27 2a |). IF ch='*|
000040f0 4e 27 20 7c 20 63 68 3d 27 2a 53 27 20 7c 20 63 |N' | ch='*S' | c|
00004100 68 3d 27 2a 54 27 0a 09 20 54 48 45 4e 20 54 45 |h='*T'.. THEN TE|
00004110 53 54 20 74 65 72 6d 3d 27 2a 27 27 0a 09 20 20 |ST term='*''.. |
00004120 20 20 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 | THEN SynReport|
00004130 28 33 34 29 0a 09 20 20 20 20 45 4c 53 45 20 24 |(34).. ELSE $|
00004140 28 20 57 48 49 4c 45 20 63 68 3d 27 2a 4e 27 20 |( WHILE ch='*N' |
00004150 7c 20 63 68 3d 27 2a 53 27 20 7c 20 63 68 3d 27 || ch='*S' | ch='|
00004160 2a 54 27 20 44 4f 20 52 43 68 28 29 0a 09 09 20 |*T' DO RCh()... |
00004170 20 20 20 49 46 20 63 68 7e 3d 27 2a 2a 27 20 54 | IF ch~='**' T|
00004180 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 33 34 |HEN SynReport(34|
00004190 29 0a 09 09 20 20 20 20 4c 4f 4f 50 0a 09 09 20 |)... LOOP... |
000041a0 24 29 0a 0a 20 20 20 20 20 20 63 68 20 3a 3d 20 |$).. ch := |
000041b0 43 61 70 69 74 61 6c 43 68 28 63 68 29 0a 20 20 |CapitalCh(ch). |
000041c0 20 20 20 20 49 46 20 28 63 68 3d 27 45 27 20 7c | IF (ch='E' ||
000041d0 20 63 68 3d 27 42 27 20 7c 20 63 68 3d 27 43 27 | ch='B' | ch='C'|
000041e0 29 20 26 20 65 78 74 65 6e 73 69 6f 6e 2e 6c 65 |) & extension.le|
000041f0 76 65 6c 3d 30 20 54 48 45 4e 0a 09 20 63 68 20 |vel=0 THEN.. ch |
00004200 3a 3d 20 2d 31 0a 0a 20 20 20 20 20 20 53 57 49 |:= -1.. SWI|
00004210 54 43 48 4f 4e 20 63 68 20 49 4e 54 4f 0a 20 20 |TCHON ch INTO. |
00004220 20 20 20 20 24 28 20 44 45 46 41 55 4c 54 3a 20 | $( DEFAULT: |
00004230 20 53 79 6e 52 65 70 6f 72 74 28 33 35 29 3b 20 | SynReport(35); |
00004240 45 4e 44 43 41 53 45 0a 0a 09 20 43 41 53 45 20 |ENDCASE... CASE |
00004250 27 54 27 3a 20 63 68 20 3a 3d 20 27 2a 54 27 3b |'T': ch := '*T';|
00004260 09 20 20 45 4e 44 43 41 53 45 0a 09 20 43 41 53 |. ENDCASE.. CAS|
00004270 45 20 27 53 27 3a 20 63 68 20 3a 3d 20 27 2a 53 |E 'S': ch := '*S|
00004280 27 3b 09 20 20 45 4e 44 43 41 53 45 0a 09 20 43 |';. ENDCASE.. C|
00004290 41 53 45 20 27 4e 27 3a 20 63 68 20 3a 3d 20 27 |ASE 'N': ch := '|
000042a0 2a 4e 27 3b 09 20 20 45 4e 44 43 41 53 45 0a 09 |*N';. ENDCASE..|
000042b0 20 43 41 53 45 20 27 50 27 3a 20 63 68 20 3a 3d | CASE 'P': ch :=|
000042c0 20 27 2a 50 27 3b 09 20 20 45 4e 44 43 41 53 45 | '*P';. ENDCASE|
000042d0 0a 09 20 43 41 53 45 20 27 42 27 3a 20 63 68 20 |.. CASE 'B': ch |
000042e0 3a 3d 20 27 2a 42 27 3b 09 20 20 45 4e 44 43 41 |:= '*B';. ENDCA|
000042f0 53 45 0a 09 20 43 41 53 45 20 27 43 27 3a 20 63 |SE.. CASE 'C': c|
00004300 68 20 3a 3d 20 27 2a 43 27 3b 09 20 20 45 4e 44 |h := '*C';. END|
00004310 43 41 53 45 0a 09 20 43 41 53 45 20 27 45 27 3a |CASE.. CASE 'E':|
00004320 20 63 68 20 3a 3d 20 23 58 31 42 0a 09 20 43 41 | ch := #X1B.. CA|
00004330 53 45 20 27 22 27 3a 20 20 20 20 20 20 20 20 20 |SE '"': |
00004340 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0a 09 | ENDCASE..|
00004350 20 43 41 53 45 20 27 2a 27 27 3a 09 09 20 20 45 | CASE '*'':.. E|
00004360 4e 44 43 41 53 45 0a 09 20 43 41 53 45 20 27 2a |NDCASE.. CASE '*|
00004370 2a 27 3a 09 09 20 20 45 4e 44 43 41 53 45 0a 0a |*':.. ENDCASE..|
00004380 09 20 43 41 53 45 20 27 58 27 3a 20 43 41 53 45 |. CASE 'X': CASE|
00004390 20 27 4f 27 3a 0a 09 20 43 41 53 45 20 27 30 27 | 'O':.. CASE '0'|
000043a0 3a 20 43 41 53 45 20 27 31 27 3a 20 43 41 53 45 |: CASE '1': CASE|
000043b0 20 27 32 27 3a 20 43 41 53 45 20 27 33 27 3a 0a | '2': CASE '3':.|
000043c0 09 20 43 41 53 45 20 27 34 27 3a 20 43 41 53 45 |. CASE '4': CASE|
000043d0 20 27 35 27 3a 20 43 41 53 45 20 27 36 27 3a 20 | '5': CASE '6': |
000043e0 43 41 53 45 20 27 37 27 3a 0a 09 20 20 20 24 28 |CASE '7':.. $(|
000043f0 20 4c 45 54 20 72 2c 20 6e 20 3d 20 38 2c 20 33 | LET r, n = 8, 3|
00004400 0a 09 20 20 20 20 20 20 49 46 20 63 68 3d 27 58 |.. IF ch='X|
00004410 27 20 54 48 45 4e 20 72 2c 20 6e 20 3a 3d 20 31 |' THEN r, n := 1|
00004420 36 2c 20 32 0a 0a 09 20 20 20 20 20 20 49 46 20 |6, 2... IF |
00004430 63 68 3d 27 58 27 20 7c 20 63 68 3d 27 4f 27 20 |ch='X' | ch='O' |
00004440 54 48 45 4e 20 52 43 68 28 29 0a 09 20 20 20 20 |THEN RCh().. |
00004450 20 20 63 68 20 3a 3d 20 52 65 61 64 4f 63 74 61 | ch := ReadOcta|
00004460 6c 4f 72 48 65 78 28 72 2c 20 6e 29 0a 0a 09 20 |lOrHex(r, n)... |
00004470 20 20 20 20 20 49 46 20 63 68 3e 32 35 35 20 54 | IF ch>255 T|
00004480 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 33 34 |HEN SynReport(34|
00004490 29 0a 09 20 20 20 20 20 20 74 72 61 6e 73 20 3a |).. trans :|
000044a0 3d 20 46 41 4c 53 45 0a 09 20 20 20 20 20 20 45 |= FALSE.. E|
000044b0 4e 44 43 41 53 45 0a 09 20 20 20 24 29 0a 20 20 |NDCASE.. $). |
000044c0 20 20 20 20 24 29 0a 20 20 20 24 29 0a 20 20 20 | $). $). |
000044d0 21 6c 76 2e 63 68 20 3a 3d 20 74 72 61 6e 73 20 |!lv.ch := trans |
000044e0 2d 3e 20 63 68 61 72 63 6f 64 65 21 63 68 2c 20 |-> charcode!ch, |
000044f0 63 68 0a 20 20 20 52 45 53 55 4c 54 49 53 20 54 |ch. RESULTIS T|
00004500 52 55 45 0a 0a 24 29 20 52 45 50 45 41 54 0a 0a |RUE..$) REPEAT..|
00004510 0a 41 4e 44 20 52 65 61 64 4f 63 74 61 6c 4f 72 |.AND ReadOctalOr|
00004520 48 65 78 28 72 61 64 69 78 2c 20 64 69 67 69 74 |Hex(radix, digit|
00004530 73 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c 45 |s) = VALOF.$( LE|
00004540 54 20 61 6e 73 77 65 72 20 3d 20 30 0a 0a 20 20 |T answer = 0.. |
00004550 20 46 4f 52 20 6a 20 3d 20 31 20 54 4f 20 64 69 | FOR j = 1 TO di|
00004560 67 69 74 73 20 44 4f 0a 20 20 20 24 28 20 4c 45 |gits DO. $( LE|
00004570 54 20 76 61 6c 63 68 20 3d 20 76 61 6c 75 65 28 |T valch = value(|
00004580 63 68 29 0a 20 20 20 20 20 20 49 46 20 76 61 6c |ch). IF val|
00004590 63 68 3e 3d 72 61 64 69 78 20 54 48 45 4e 20 53 |ch>=radix THEN S|
000045a0 79 6e 52 65 70 6f 72 74 28 33 34 29 0a 0a 20 20 |ynReport(34).. |
000045b0 20 20 20 20 61 6e 73 77 65 72 20 3a 3d 20 61 6e | answer := an|
000045c0 73 77 65 72 2a 72 61 64 69 78 2b 76 61 6c 63 68 |swer*radix+valch|
000045d0 0a 20 20 20 20 20 20 49 46 20 6a 7e 3d 64 69 67 |. IF j~=dig|
000045e0 69 74 73 20 54 48 45 4e 20 52 43 68 28 29 0a 20 |its THEN RCh(). |
000045f0 20 20 24 29 0a 20 20 20 52 45 53 55 4c 54 49 53 | $). RESULTIS|
00004600 20 61 6e 73 77 65 72 0a 24 29 0a 0a 2e 0a 0a 53 | answer.$).....S|
00004610 45 43 54 49 4f 4e 20 22 53 79 6e 22 0a 0a 47 45 |ECTION "Syn"..GE|
00004620 54 20 22 62 2e 48 65 61 64 65 72 22 0a 0a 53 54 |T "b.Header"..ST|
00004630 41 54 49 43 0a 24 28 20 64 75 6d 6d 79 20 3d 20 |ATIC.$( dummy = |
00004640 56 65 72 73 69 6f 6e 4d 61 72 6b 3b 0a 20 20 20 |VersionMark;. |
00004650 76 65 72 73 69 6f 6e 20 3d 20 31 2a 32 35 36 2b |version = 1*256+|
00004660 32 0a 24 29 0a 0a 4c 45 54 20 62 63 70 6c 2e 73 |2.$)..LET bcpl.s|
00004670 79 6e 28 29 20 3d 20 20 56 41 4c 4f 46 0a 24 28 |yn() = VALOF.$(|
00004680 20 4c 45 54 20 61 20 3d 20 30 3b 0a 20 20 20 4c | LET a = 0;. L|
00004690 45 54 20 76 20 3d 20 47 65 74 56 65 63 74 6f 72 |ET v = GetVector|
000046a0 28 6e 61 6d 65 74 61 62 6c 65 73 69 7a 65 2b 36 |(nametablesize+6|
000046b0 34 2b 77 6f 72 64 6d 61 78 2b 67 65 74 6d 61 78 |4+wordmax+getmax|
000046c0 2b 31 29 3b 0a 0a 20 20 20 65 72 72 2e 70 20 3a |+1);.. err.p :|
000046d0 3d 20 4c 65 76 65 6c 28 29 3b 0a 20 20 20 65 72 |= Level();. er|
000046e0 72 2e 6c 20 3a 3d 20 65 78 69 74 3b 0a 20 20 20 |r.l := exit;. |
000046f0 67 65 74 70 20 3a 3d 20 30 3b 0a 20 20 20 63 68 |getp := 0;. ch|
00004700 63 6f 75 6e 74 20 3a 3d 20 30 3b 0a 20 20 20 65 |count := 0;. e|
00004710 78 74 65 72 6e 61 6c 73 2e 6c 69 73 74 20 3a 3d |xternals.list :=|
00004720 20 30 3b 0a 20 20 20 66 72 65 65 2e 6c 69 73 74 | 0;. free.list|
00004730 2e 65 6c 65 6d 65 6e 74 2e 63 68 61 69 6e 20 3a |.element.chain :|
00004740 3d 20 30 3b 0a 20 20 20 66 72 65 65 2e 63 63 73 |= 0;. free.ccs|
00004750 74 61 63 6b 2e 63 68 61 69 6e 20 3a 3d 20 30 3b |tack.chain := 0;|
00004760 0a 20 20 20 7a 65 72 6f 4e 6f 64 65 20 3a 3d 20 |. zeroNode := |
00004770 4c 69 73 74 32 28 73 2e 6e 75 6d 62 65 72 2c 20 |List2(s.number, |
00004780 30 29 3b 0a 0a 20 20 20 46 4f 52 20 69 20 3d 20 |0);.. FOR i = |
00004790 30 20 54 4f 20 4e 61 6d 65 54 61 62 6c 65 53 69 |0 TO NameTableSi|
000047a0 7a 65 2b 36 33 20 44 4f 20 76 21 69 20 3a 3d 20 |ze+63 DO v!i := |
000047b0 30 0a 0a 20 20 20 6e 61 6d 65 54 61 62 6c 65 20 |0.. nameTable |
000047c0 3a 3d 20 76 0a 20 20 20 63 68 62 75 66 20 3a 3d |:= v. chbuf :=|
000047d0 20 76 2b 4e 61 6d 65 54 61 62 6c 65 53 69 7a 65 | v+NameTableSize|
000047e0 0a 20 20 20 77 6f 72 64 76 20 3a 3d 20 63 68 62 |. wordv := chb|
000047f0 75 66 2b 36 34 0a 20 20 20 67 65 74 76 20 3a 3d |uf+64. getv :=|
00004800 20 77 6f 72 64 76 2b 77 6f 72 64 6d 61 78 0a 0a | wordv+wordmax..|
00004810 20 20 20 69 6e 69 74 69 61 6c 69 73 65 2e 6c 65 | initialise.le|
00004820 78 28 29 0a 0a 20 20 20 49 46 20 63 68 3d 45 6e |x().. IF ch=En|
00004830 64 53 74 72 65 61 6d 43 68 20 54 48 45 4e 20 47 |dStreamCh THEN G|
00004840 4f 54 4f 20 65 78 69 74 0a 0a 20 20 20 72 65 63 |OTO exit.. rec|
00004850 2e 70 2c 20 72 65 63 2e 6c 20 3a 3d 20 65 72 72 |.p, rec.l := err|
00004860 2e 70 2c 20 6c 0a 0a 6c 3a 20 4e 65 78 74 53 79 |.p, l..l: NextSy|
00004870 6d 62 28 29 0a 0a 20 20 20 24 28 20 4c 45 54 20 |mb().. $( LET |
00004880 52 50 72 6f 67 28 29 20 3d 20 56 41 4c 4f 46 0a |RProg() = VALOF.|
00004890 20 20 20 20 20 20 24 28 20 4c 45 54 20 6f 70 2c | $( LET op,|
000048a0 20 61 20 3d 20 73 79 6d 62 2c 20 30 0a 09 20 4c | a = symb, 0.. L|
000048b0 45 54 20 74 61 67 20 3d 20 3f 0a 0a 09 20 4e 65 |ET tag = ?... Ne|
000048c0 78 74 53 79 6d 62 28 29 0a 09 20 49 46 20 73 79 |xtSymb().. IF sy|
000048d0 6d 62 7e 3d 73 2e 73 74 72 69 6e 67 20 54 48 45 |mb~=s.string THE|
000048e0 4e 20 53 79 6e 52 65 70 6f 72 74 28 39 35 29 0a |N SynReport(95).|
000048f0 0a 09 20 74 61 67 20 3a 3d 20 4c 6f 6f 6b 55 70 |.. tag := LookUp|
00004900 54 61 67 28 77 6f 72 64 76 29 0a 09 20 74 61 67 |Tag(wordv).. tag|
00004910 2e 76 61 6c 75 65 21 74 61 67 20 3a 3d 20 54 52 |.value!tag := TR|
00004920 55 45 0a 0a 09 20 61 20 3a 3d 20 52 62 45 78 70 |UE... a := RbExp|
00004930 28 29 0a 0a 09 20 49 46 20 6f 70 3d 73 2e 73 65 |()... IF op=s.se|
00004940 63 74 69 6f 6e 20 54 48 45 4e 20 57 72 69 74 65 |ction THEN Write|
00004950 46 28 22 53 65 63 74 69 6f 6e 20 25 53 2a 4e 22 |F("Section %S*N"|
00004960 2c 20 61 2b 31 29 0a 0a 09 20 52 45 53 55 4c 54 |, a+1)... RESULT|
00004970 49 53 20 4c 69 73 74 33 28 6f 70 2c 20 61 2c 20 |IS List3(op, a, |
00004980 73 79 6d 62 3d 73 2e 6e 65 65 64 73 20 2d 3e 20 |symb=s.needs -> |
00004990 52 50 72 6f 67 28 29 2c 0a 09 09 09 09 09 20 20 |RProg(),...... |
000049a0 20 20 20 20 20 52 64 42 6c 6f 63 6b 42 6f 64 79 | RdBlockBody|
000049b0 28 29 29 0a 20 20 20 20 20 20 24 29 0a 0a 20 20 |()). $).. |
000049c0 20 20 20 20 61 20 3a 3d 20 65 78 74 65 6e 73 69 | a := extensi|
000049d0 6f 6e 2e 6c 65 76 65 6c 3e 3d 31 20 26 0a 09 20 |on.level>=1 &.. |
000049e0 20 20 5b 73 79 6d 62 3d 73 2e 73 65 63 74 69 6f | [symb=s.sectio|
000049f0 6e 20 7c 20 73 79 6d 62 3d 73 2e 6e 65 65 64 73 |n | symb=s.needs|
00004a00 5d 20 2d 3e 20 52 50 72 6f 67 28 29 2c 0a 09 09 |] -> RProg(),...|
00004a10 09 09 09 20 20 20 20 20 20 52 64 42 6c 6f 63 6b |... RdBlock|
00004a20 42 6f 64 79 28 29 0a 0a 20 20 20 20 20 20 49 46 |Body().. IF|
00004a30 20 73 79 6d 62 7e 3d 73 2e 65 6e 64 20 54 48 45 | symb~=s.end THE|
00004a40 4e 20 53 79 6e 52 65 70 6f 72 74 28 39 39 29 0a |N SynReport(99).|
00004a50 20 20 20 24 29 0a 20 20 20 55 6e 52 64 43 68 28 | $). UnRdCh(|
00004a60 29 0a 0a 65 78 69 74 3a 0a 20 20 20 46 72 65 65 |)..exit:. Free|
00004a70 56 65 63 74 6f 72 28 76 29 0a 20 20 20 52 45 53 |Vector(v). RES|
00004a80 55 4c 54 49 53 20 61 0a 24 29 0a 0a 41 4e 44 20 |ULTIS a.$)..AND |
00004a90 4c 69 73 74 31 28 78 29 20 3d 20 56 41 4c 4f 46 |List1(x) = VALOF|
00004aa0 0a 24 28 20 4c 45 54 20 70 20 3d 20 47 65 74 42 |.$( LET p = GetB|
00004ab0 6c 6b 28 31 29 0a 20 20 20 70 21 30 20 3a 3d 20 |lk(1). p!0 := |
00004ac0 78 0a 20 20 20 52 45 53 55 4c 54 49 53 20 70 0a |x. RESULTIS p.|
00004ad0 24 29 0a 0a 41 4e 44 20 4c 69 73 74 32 28 78 2c |$)..AND List2(x,|
00004ae0 20 79 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c | y) = VALOF.$( L|
00004af0 45 54 20 70 20 3d 20 47 65 74 42 6c 6b 28 32 29 |ET p = GetBlk(2)|
00004b00 0a 20 20 20 70 21 30 2c 20 70 21 31 20 3a 3d 20 |. p!0, p!1 := |
00004b10 78 2c 20 79 0a 20 20 20 52 45 53 55 4c 54 49 53 |x, y. RESULTIS|
00004b20 20 70 0a 24 29 0a 0a 41 4e 44 20 4c 69 73 74 33 | p.$)..AND List3|
00004b30 28 78 2c 20 79 2c 20 7a 29 20 3d 20 56 41 4c 4f |(x, y, z) = VALO|
00004b40 46 0a 24 28 20 4c 45 54 20 70 20 3d 20 47 65 74 |F.$( LET p = Get|
00004b50 42 6c 6b 28 33 29 0a 20 20 20 70 21 30 2c 20 70 |Blk(3). p!0, p|
00004b60 21 31 2c 20 70 21 32 20 3a 3d 20 78 2c 20 79 2c |!1, p!2 := x, y,|
00004b70 20 7a 0a 20 20 20 52 45 53 55 4c 54 49 53 20 70 | z. RESULTIS p|
00004b80 0a 24 29 0a 0a 41 4e 44 20 4c 69 73 74 34 28 78 |.$)..AND List4(x|
00004b90 2c 20 79 2c 20 7a 2c 20 74 29 20 3d 20 56 41 4c |, y, z, t) = VAL|
00004ba0 4f 46 0a 24 28 20 4c 45 54 20 70 20 3d 20 47 65 |OF.$( LET p = Ge|
00004bb0 74 42 6c 6b 28 34 29 0a 20 20 20 70 21 30 2c 20 |tBlk(4). p!0, |
00004bc0 70 21 31 2c 20 70 21 32 2c 20 70 21 33 20 3a 3d |p!1, p!2, p!3 :=|
00004bd0 20 78 2c 20 79 2c 20 7a 2c 20 74 0a 20 20 20 52 | x, y, z, t. R|
00004be0 45 53 55 4c 54 49 53 20 70 0a 24 29 0a 0a 41 4e |ESULTIS p.$)..AN|
00004bf0 44 20 4c 69 73 74 35 28 78 2c 20 79 2c 20 7a 2c |D List5(x, y, z,|
00004c00 20 74 2c 20 75 29 20 3d 20 56 41 4c 4f 46 0a 24 | t, u) = VALOF.$|
00004c10 28 20 4c 45 54 20 70 20 3d 20 47 65 74 42 6c 6b |( LET p = GetBlk|
00004c20 28 35 29 0a 20 20 20 70 21 30 2c 20 70 21 31 2c |(5). p!0, p!1,|
00004c30 20 70 21 32 2c 20 70 21 33 2c 20 70 21 34 20 3a | p!2, p!3, p!4 :|
00004c40 3d 20 78 2c 20 79 2c 20 7a 2c 20 74 2c 20 75 0a |= x, y, z, t, u.|
00004c50 20 20 20 52 45 53 55 4c 54 49 53 20 70 0a 24 29 | RESULTIS p.$)|
00004c60 0a 0a 41 4e 44 20 4c 69 73 74 36 28 78 2c 20 79 |..AND List6(x, y|
00004c70 2c 20 7a 2c 20 74 2c 20 75 2c 20 76 29 20 3d 20 |, z, t, u, v) = |
00004c80 56 41 4c 4f 46 0a 24 28 20 4c 45 54 20 70 20 3d |VALOF.$( LET p =|
00004c90 20 47 65 74 42 6c 6b 28 36 29 0a 20 20 20 70 21 | GetBlk(6). p!|
00004ca0 30 2c 20 70 21 31 2c 20 70 21 32 2c 20 70 21 33 |0, p!1, p!2, p!3|
00004cb0 2c 20 70 21 34 2c 20 70 21 35 20 3a 3d 20 78 2c |, p!4, p!5 := x,|
00004cc0 20 79 2c 20 7a 2c 20 74 2c 20 75 2c 20 76 0a 20 | y, z, t, u, v. |
00004cd0 20 20 52 45 53 55 4c 54 49 53 20 70 0a 24 29 0a | RESULTIS p.$).|
00004ce0 0a 41 4e 44 20 47 65 74 4c 69 73 74 45 6c 65 6d |.AND GetListElem|
00004cf0 65 6e 74 28 29 20 3d 20 56 41 4c 4f 46 0a 2f 2f |ent() = VALOF.//|
00004d00 20 47 65 74 73 20 61 20 6e 65 77 20 65 6c 65 6d | Gets a new elem|
00004d10 65 6e 74 20 66 6f 72 20 61 20 27 6d 61 6b 65 6c |ent for a 'makel|
00004d20 69 73 74 27 20 63 68 61 69 6e 2c 20 61 6e 64 0a |ist' chain, and.|
00004d30 2f 2f 20 69 6e 69 74 69 61 6c 69 73 65 73 20 74 |// initialises t|
00004d40 68 65 20 63 6f 75 6e 74 20 61 6e 64 20 6c 69 6e |he count and lin|
00004d50 6b 20 66 69 65 6c 64 73 20 74 6f 20 7a 65 72 6f |k fields to zero|
00004d60 2e 0a 2f 2f 0a 24 28 20 4c 45 54 20 71 20 3d 20 |..//.$( LET q = |
00004d70 66 72 65 65 2e 6c 69 73 74 2e 65 6c 65 6d 65 6e |free.list.elemen|
00004d80 74 2e 63 68 61 69 6e 0a 20 20 20 54 45 53 54 20 |t.chain. TEST |
00004d90 71 3d 30 0a 20 20 20 20 20 20 54 48 45 4e 20 71 |q=0. THEN q|
00004da0 20 3a 3d 20 47 65 74 42 6c 6b 28 6c 69 73 74 2e | := GetBlk(list.|
00004db0 65 6c 65 6d 65 6e 74 2e 73 69 7a 65 29 0a 20 20 |element.size). |
00004dc0 20 20 20 20 45 4c 53 45 20 66 72 65 65 2e 6c 69 | ELSE free.li|
00004dd0 73 74 2e 65 6c 65 6d 65 6e 74 2e 63 68 61 69 6e |st.element.chain|
00004de0 20 3a 3d 20 6c 69 73 74 2e 6c 69 6e 6b 21 71 0a | := list.link!q.|
00004df0 0a 20 20 20 6c 69 73 74 2e 6c 69 6e 6b 20 21 71 |. list.link !q|
00004e00 20 3a 3d 20 30 0a 20 20 20 6c 69 73 74 2e 63 6f | := 0. list.co|
00004e10 75 6e 74 21 71 20 3a 3d 20 30 0a 0a 20 20 20 52 |unt!q := 0.. R|
00004e20 45 53 55 4c 54 49 53 20 71 0a 24 29 0a 0a 41 4e |ESULTIS q.$)..AN|
00004e30 44 20 49 6e 73 65 72 74 49 6e 4c 69 73 74 45 6c |D InsertInListEl|
00004e40 65 6d 65 6e 74 28 6c 76 2e 65 6c 65 6d 65 6e 74 |ement(lv.element|
00004e50 2c 20 64 61 74 61 29 20 42 45 0a 2f 2f 20 49 6e |, data) BE.// In|
00004e60 73 65 72 74 73 20 74 68 65 20 64 61 74 61 20 69 |serts the data i|
00004e70 6e 20 74 68 65 20 6c 69 73 74 20 65 6c 65 6d 65 |n the list eleme|
00004e80 6e 74 20 61 64 64 72 65 73 73 65 64 20 62 79 0a |nt addressed by.|
00004e90 2f 2f 20 74 68 65 20 70 6f 69 6e 74 65 72 20 70 |// the pointer p|
00004ea0 61 72 61 6d 65 74 65 72 2e 0a 2f 2f 0a 24 28 20 |arameter..//.$( |
00004eb0 4c 45 54 20 65 6c 65 6d 65 6e 74 20 3d 20 21 6c |LET element = !l|
00004ec0 76 2e 65 6c 65 6d 65 6e 74 0a 20 20 20 4c 45 54 |v.element. LET|
00004ed0 20 63 20 3d 20 6c 69 73 74 2e 63 6f 75 6e 74 21 | c = list.count!|
00004ee0 65 6c 65 6d 65 6e 74 0a 0a 20 20 20 49 46 20 63 |element.. IF c|
00004ef0 3d 6c 69 73 74 2e 65 6c 65 6d 65 6e 74 2e 64 61 |=list.element.da|
00004f00 74 61 2e 73 69 7a 65 20 54 48 45 4e 0a 20 20 20 |ta.size THEN. |
00004f10 24 28 20 4c 45 54 20 6e 20 3d 20 47 65 74 4c 69 |$( LET n = GetLi|
00004f20 73 74 45 6c 65 6d 65 6e 74 28 29 0a 0a 20 20 20 |stElement().. |
00004f30 20 20 20 6c 69 73 74 2e 6c 69 6e 6b 21 65 6c 65 | list.link!ele|
00004f40 6d 65 6e 74 20 3a 3d 20 6e 0a 20 20 20 20 20 20 |ment := n. |
00004f50 21 6c 76 2e 65 6c 65 6d 65 6e 74 20 3a 3d 20 6e |!lv.element := n|
00004f60 0a 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 20 3a |. element :|
00004f70 3d 20 6e 0a 0a 20 20 20 20 20 20 63 20 3a 3d 20 |= n.. c := |
00004f80 30 20 24 29 0a 20 20 20 28 6c 69 73 74 2e 64 61 |0 $). (list.da|
00004f90 74 61 2b 65 6c 65 6d 65 6e 74 29 21 63 20 3a 3d |ta+element)!c :=|
00004fa0 20 64 61 74 61 0a 20 20 20 6c 69 73 74 2e 63 6f | data. list.co|
00004fb0 75 6e 74 21 65 6c 65 6d 65 6e 74 20 3a 3d 20 63 |unt!element := c|
00004fc0 2b 31 0a 24 29 0a 0a 0a 41 4e 44 20 4d 61 6b 65 |+1.$)...AND Make|
00004fd0 4c 69 73 74 28 6c 69 73 74 2c 6c 69 73 74 65 6e |List(list,listen|
00004fe0 64 2c 74 79 70 65 31 2c 74 79 70 65 32 2c 63 6f |d,type1,type2,co|
00004ff0 75 6e 74 2c 75 6e 69 74 73 69 7a 65 29 3d 56 41 |unt,unitsize)=VA|
00005000 4c 4f 46 0a 2f 2f 20 43 6f 6e 76 65 72 74 73 20 |LOF.// Converts |
00005010 61 20 6c 69 73 74 20 66 6f 72 6d 65 64 20 6f 75 |a list formed ou|
00005020 74 20 6f 66 20 6c 69 73 74 20 65 6c 65 6d 65 6e |t of list elemen|
00005030 74 73 20 69 6e 74 6f 20 61 0a 2f 2f 20 73 74 72 |ts into a.// str|
00005040 61 69 67 68 74 20 74 61 62 6c 65 2e 0a 2f 2f 0a |aight table..//.|
00005050 2f 2f 20 20 20 6c 69 73 74 09 66 69 72 73 74 20 |// list.first |
00005060 65 6c 65 6d 65 6e 74 20 69 6e 20 6c 69 73 74 0a |element in list.|
00005070 2f 2f 20 20 20 6c 69 73 74 65 6e 64 09 6c 61 73 |// listend.las|
00005080 74 20 20 65 6c 65 6d 65 6e 74 20 69 6e 20 6c 69 |t element in li|
00005090 73 74 0a 2f 2f 20 20 20 74 79 70 65 31 09 74 72 |st.// type1.tr|
000050a0 65 65 20 74 79 70 65 20 66 6f 72 20 74 61 62 6c |ee type for tabl|
000050b0 65 0a 2f 2f 20 20 20 74 79 70 65 32 09 74 79 70 |e.// type2.typ|
000050c0 65 20 75 73 65 64 20 66 6f 72 20 70 61 69 72 20 |e used for pair |
000050d0 6f 66 20 75 6e 69 74 73 0a 2f 2f 20 20 20 63 6f |of units.// co|
000050e0 75 6e 74 09 6e 75 6d 62 65 72 20 6f 66 20 64 61 |unt.number of da|
000050f0 74 61 20 77 6f 72 64 73 0a 2f 2f 20 20 20 75 6e |ta words.// un|
00005100 69 74 73 69 7a 65 09 73 69 7a 65 20 6f 66 20 61 |itsize.size of a|
00005110 20 73 69 6e 67 6c 65 20 27 6f 62 6a 65 63 74 27 | single 'object'|
00005120 20 69 6e 20 74 68 65 20 6c 69 73 74 0a 2f 2f 0a | in the list.//.|
00005130 2f 2f 20 49 66 20 74 68 65 20 75 6e 69 74 73 69 |// If the unitsi|
00005140 7a 65 20 69 73 20 6f 6e 65 2c 20 61 6e 64 20 74 |ze is one, and t|
00005150 68 65 72 65 20 69 73 20 6f 6e 65 20 76 61 6c 75 |here is one valu|
00005160 65 20 69 6e 20 74 68 65 0a 2f 2f 20 6c 69 73 74 |e in the.// list|
00005170 2c 20 61 20 74 61 62 6c 65 20 69 73 20 6e 6f 74 |, a table is not|
00005180 20 63 6f 6e 73 74 72 75 63 74 65 64 2e 0a 2f 2f | constructed..//|
00005190 0a 2f 2f 20 49 66 20 74 68 65 72 65 20 61 72 65 |.// If there are|
000051a0 20 74 77 6f 20 6f 62 6a 65 63 74 73 20 61 6e 64 | two objects and|
000051b0 20 27 74 79 70 65 32 27 20 69 73 20 6e 6f 74 20 | 'type2' is not |
000051c0 7a 65 72 6f 2c 20 61 0a 2f 2f 20 70 61 69 72 20 |zero, a.// pair |
000051d0 6f 62 6a 65 63 74 20 69 73 20 72 65 74 75 72 6e |object is return|
000051e0 65 64 2e 0a 2f 2f 0a 24 28 20 4c 45 54 20 72 65 |ed..//.$( LET re|
000051f0 73 75 6c 74 20 3d 20 3f 0a 0a 20 20 20 54 45 53 |sult = ?.. TES|
00005200 54 20 63 6f 75 6e 74 3d 31 20 26 20 75 6e 69 74 |T count=1 & unit|
00005210 73 69 7a 65 3d 31 0a 20 20 20 20 20 20 54 48 45 |size=1. THE|
00005220 4e 20 72 65 73 75 6c 74 20 3a 3d 20 6c 69 73 74 |N result := list|
00005230 2e 64 61 74 61 21 6c 69 73 74 0a 20 20 20 20 20 |.data!list. |
00005240 20 45 4c 53 45 20 24 28 20 4c 45 54 20 6c 20 3d | ELSE $( LET l =|
00005250 20 6c 69 73 74 0a 09 20 20 20 20 20 20 4c 45 54 | list.. LET|
00005260 20 70 20 3d 20 31 0a 0a 09 20 20 20 20 20 20 54 | p = 1... T|
00005270 45 53 54 20 63 6f 75 6e 74 3d 32 2a 75 6e 69 74 |EST count=2*unit|
00005280 73 69 7a 65 20 26 20 74 79 70 65 32 7e 3d 30 0a |size & type2~=0.|
00005290 09 09 20 54 48 45 4e 20 24 28 20 72 65 73 75 6c |.. THEN $( resul|
000052a0 74 20 3a 3d 20 47 65 74 42 6c 6b 28 63 6f 75 6e |t := GetBlk(coun|
000052b0 74 2b 31 29 0a 09 09 09 20 68 31 21 72 65 73 75 |t+1).... h1!resu|
000052c0 6c 74 20 3a 3d 20 74 79 70 65 32 0a 09 09 20 20 |lt := type2... |
000052d0 20 20 20 20 24 29 0a 09 09 20 45 4c 53 45 20 24 | $)... ELSE $|
000052e0 28 20 72 65 73 75 6c 74 20 3a 3d 20 47 65 74 42 |( result := GetB|
000052f0 6c 6b 28 63 6f 75 6e 74 2b 32 29 0a 09 09 09 20 |lk(count+2).... |
00005300 68 31 21 72 65 73 75 6c 74 20 3a 3d 20 74 79 70 |h1!result := typ|
00005310 65 31 0a 09 09 09 20 68 32 21 72 65 73 75 6c 74 |e1.... h2!result|
00005320 20 3a 3d 20 63 6f 75 6e 74 0a 09 09 09 20 70 20 | := count.... p |
00005330 3a 3d 20 32 0a 09 09 20 20 20 20 20 20 24 29 0a |:= 2... $).|
00005340 0a 09 20 20 20 20 20 20 57 48 49 4c 45 20 6c 7e |.. WHILE l~|
00005350 3d 30 20 44 4f 0a 09 20 20 20 20 20 20 24 28 20 |=0 DO.. $( |
00005360 46 4f 52 20 6a 20 3d 20 30 20 54 4f 20 6c 69 73 |FOR j = 0 TO lis|
00005370 74 2e 63 6f 75 6e 74 21 6c 2d 31 20 44 4f 0a 09 |t.count!l-1 DO..|
00005380 09 20 24 28 20 72 65 73 75 6c 74 21 70 20 3a 3d |. $( result!p :=|
00005390 20 28 6c 69 73 74 2e 64 61 74 61 2b 6c 29 21 6a | (list.data+l)!j|
000053a0 0a 09 09 20 20 20 20 70 20 3a 3d 20 70 2b 31 0a |... p := p+1.|
000053b0 09 09 20 24 29 0a 09 09 20 6c 20 3a 3d 20 6c 69 |.. $)... l := li|
000053c0 73 74 2e 6c 69 6e 6b 21 6c 0a 09 20 20 20 20 20 |st.link!l.. |
000053d0 20 24 29 0a 09 20 20 20 24 29 0a 0a 20 20 20 2f | $).. $).. /|
000053e0 2f 20 41 64 64 20 6c 69 73 74 20 74 6f 20 63 68 |/ Add list to ch|
000053f0 61 69 6e 20 6f 66 20 66 72 65 65 20 65 6c 65 6d |ain of free elem|
00005400 65 6e 74 73 0a 0a 20 20 20 6c 69 73 74 2e 6c 69 |ents.. list.li|
00005410 6e 6b 21 6c 69 73 74 65 6e 64 20 3a 3d 20 66 72 |nk!listend := fr|
00005420 65 65 2e 6c 69 73 74 2e 65 6c 65 6d 65 6e 74 2e |ee.list.element.|
00005430 63 68 61 69 6e 0a 20 20 20 66 72 65 65 2e 6c 69 |chain. free.li|
00005440 73 74 2e 65 6c 65 6d 65 6e 74 2e 63 68 61 69 6e |st.element.chain|
00005450 20 3a 3d 20 6c 69 73 74 0a 0a 20 20 20 52 45 53 | := list.. RES|
00005460 55 4c 54 49 53 20 72 65 73 75 6c 74 0a 24 29 0a |ULTIS result.$).|
00005470 0a 41 4e 44 20 53 79 6e 52 65 70 6f 72 74 28 6e |.AND SynReport(n|
00005480 2c 20 61 29 20 42 45 0a 24 28 20 4c 45 54 20 73 |, a) BE.$( LET s|
00005490 20 3d 20 56 41 4c 4f 46 20 53 57 49 54 43 48 4f | = VALOF SWITCHO|
000054a0 4e 20 6e 20 49 4e 54 4f 0a 20 20 20 24 28 20 44 |N n INTO. $( D|
000054b0 45 46 41 55 4c 54 3a 20 61 20 3a 3d 20 6e 0a 09 |EFAULT: a := n..|
000054c0 20 20 20 20 20 20 20 52 45 53 55 4c 54 49 53 20 | RESULTIS |
000054d0 22 45 72 72 6f 72 20 25 4e 22 0a 0a 20 20 20 20 |"Error %N".. |
000054e0 20 20 43 41 53 45 20 31 3a 20 20 52 45 53 55 4c | CASE 1: RESUL|
000054f0 54 49 53 20 22 42 61 64 20 74 61 67 20 73 65 74 |TIS "Bad tag set|
00005500 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 22 |ting expression"|
00005510 0a 20 20 20 20 20 20 43 41 53 45 20 32 3a 20 20 |. CASE 2: |
00005520 52 45 53 55 4c 54 49 53 20 22 42 61 64 20 74 61 |RESULTIS "Bad ta|
00005530 67 20 6e 61 6d 65 22 0a 20 20 20 20 20 20 43 41 |g name". CA|
00005540 53 45 20 33 3a 20 20 52 45 53 55 4c 54 49 53 20 |SE 3: RESULTIS |
00005550 22 45 6e 64 20 6f 66 20 66 69 6c 65 20 77 68 69 |"End of file whi|
00005560 6c 65 20 73 6b 69 70 70 69 6e 67 20 74 65 78 74 |le skipping text|
00005570 22 0a 20 20 20 20 20 20 43 41 53 45 20 34 3a 20 |". CASE 4: |
00005580 20 52 45 53 55 4c 54 49 53 20 22 54 61 67 20 63 | RESULTIS "Tag c|
00005590 6f 6e 64 69 74 69 6f 6e 73 20 64 6f 20 6e 6f 74 |onditions do not|
000055a0 20 6d 61 74 63 68 22 0a 20 20 20 20 20 20 43 41 | match". CA|
000055b0 53 45 20 35 3a 20 20 52 45 53 55 4c 54 49 53 20 |SE 5: RESULTIS |
000055c0 22 42 61 64 20 63 6f 6e 64 69 74 69 6f 6e 61 6c |"Bad conditional|
000055d0 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6e 65 73 | compilation nes|
000055e0 74 69 6e 67 22 0a 0a 20 20 20 20 20 20 43 41 53 |ting".. CAS|
000055f0 45 20 20 36 3a 20 52 45 53 55 4c 54 49 53 20 22 |E 6: RESULTIS "|
00005600 27 24 28 27 20 65 78 70 65 63 74 65 64 22 0a 20 |'$(' expected". |
00005610 20 20 20 20 20 43 41 53 45 20 20 37 3a 20 52 45 | CASE 7: RE|
00005620 53 55 4c 54 49 53 20 22 27 24 29 27 20 65 78 70 |SULTIS "'$)' exp|
00005630 65 63 74 65 64 22 0a 20 20 20 20 20 20 43 41 53 |ected". CAS|
00005640 45 20 20 38 3a 0a 20 20 20 20 20 20 43 41 53 45 |E 8:. CASE|
00005650 20 34 30 3a 0a 20 20 20 20 20 20 43 41 53 45 20 | 40:. CASE |
00005660 34 33 3a 20 52 45 53 55 4c 54 49 53 20 22 4e 61 |43: RESULTIS "Na|
00005670 6d 65 20 65 78 70 65 63 74 65 64 22 0a 20 20 20 |me expected". |
00005680 20 20 20 43 41 53 45 20 20 39 3a 20 52 45 53 55 | CASE 9: RESU|
00005690 4c 54 49 53 20 22 55 6e 74 61 67 67 65 64 20 27 |LTIS "Untagged '|
000056a0 24 29 27 20 6d 69 73 6d 61 74 63 68 22 0a 20 20 |$)' mismatch". |
000056b0 20 20 20 20 43 41 53 45 20 31 35 3a 0a 20 20 20 | CASE 15:. |
000056c0 20 20 20 43 41 53 45 20 31 39 3a 0a 20 20 20 20 | CASE 19:. |
000056d0 20 20 43 41 53 45 20 34 31 3a 20 52 45 53 55 4c | CASE 41: RESUL|
000056e0 54 49 53 20 22 27 29 27 20 6d 69 73 73 69 6e 67 |TIS "')' missing|
000056f0 22 0a 20 20 20 20 20 20 43 41 53 45 20 33 30 3a |". CASE 30:|
00005700 20 52 45 53 55 4c 54 49 53 20 22 42 61 64 20 63 | RESULTIS "Bad c|
00005710 6f 6e 64 69 74 69 6f 6e 61 6c 20 65 78 70 72 65 |onditional expre|
00005720 73 73 69 6f 6e 22 0a 20 20 20 20 20 20 43 41 53 |ssion". CAS|
00005730 45 20 33 32 3a 20 52 45 53 55 4c 54 49 53 20 22 |E 32: RESULTIS "|
00005740 49 6e 76 61 6c 69 64 20 65 78 70 72 65 73 73 69 |Invalid expressi|
00005750 6f 6e 22 0a 20 20 20 20 20 20 43 41 53 45 20 33 |on". CASE 3|
00005760 33 3a 20 52 45 53 55 4c 54 49 53 20 22 42 61 64 |3: RESULTIS "Bad|
00005770 20 6e 75 6d 62 65 72 22 0a 20 20 20 20 20 20 43 | number". C|
00005780 41 53 45 20 33 34 3a 20 52 45 53 55 4c 54 49 53 |ASE 34: RESULTIS|
00005790 20 22 42 61 64 20 73 74 72 69 6e 67 20 6f 72 20 | "Bad string or |
000057a0 63 68 61 72 61 63 74 65 72 20 63 6f 6e 73 74 61 |character consta|
000057b0 6e 74 22 0a 20 20 20 20 20 20 43 41 53 45 20 33 |nt". CASE 3|
000057c0 35 3a 20 52 45 53 55 4c 54 49 53 20 22 42 61 64 |5: RESULTIS "Bad|
000057d0 20 65 73 63 61 70 65 20 69 6e 20 73 74 72 69 6e | escape in strin|
000057e0 67 20 6f 72 20 63 68 61 72 61 63 74 65 72 22 0a |g or character".|
000057f0 20 20 20 20 20 20 43 41 53 45 20 34 32 3a 20 52 | CASE 42: R|
00005800 45 53 55 4c 54 49 53 20 22 42 61 64 20 70 72 6f |ESULTIS "Bad pro|
00005810 63 65 64 75 72 65 20 68 65 61 64 69 6e 67 22 0a |cedure heading".|
00005820 20 20 20 20 20 20 43 41 53 45 20 34 34 3a 0a 20 | CASE 44:. |
00005830 20 20 20 20 20 43 41 53 45 20 34 35 3a 20 52 45 | CASE 45: RE|
00005840 53 55 4c 54 49 53 20 22 42 61 64 20 64 65 63 6c |SULTIS "Bad decl|
00005850 61 72 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 43 |aration". C|
00005860 41 53 45 20 35 30 3a 20 52 45 53 55 4c 54 49 53 |ASE 50: RESULTIS|
00005870 20 22 55 6e 65 78 70 65 63 74 65 64 20 27 3a 27 | "Unexpected ':'|
00005880 22 0a 20 20 20 20 20 20 43 41 53 45 20 35 31 3a |". CASE 51:|
00005890 20 52 45 53 55 4c 54 49 53 20 22 49 6e 76 61 6c | RESULTIS "Inval|
000058a0 69 64 20 63 6f 6d 6d 61 6e 64 22 0a 20 20 20 20 |id command". |
000058b0 20 20 43 41 53 45 20 35 34 3a 20 52 45 53 55 4c | CASE 54: RESUL|
000058c0 54 49 53 20 22 27 45 4c 53 45 27 20 65 78 70 65 |TIS "'ELSE' expe|
000058d0 63 74 65 64 22 0a 20 20 20 20 20 20 43 41 53 45 |cted". CASE|
000058e0 20 35 37 3a 0a 20 20 20 20 20 20 43 41 53 45 20 | 57:. CASE |
000058f0 35 38 3a 20 52 45 53 55 4c 54 49 53 20 22 42 61 |58: RESULTIS "Ba|
00005900 64 20 46 4f 52 20 6c 6f 6f 70 22 0a 20 20 20 20 |d FOR loop". |
00005910 20 20 43 41 53 45 20 36 30 3a 20 52 45 53 55 4c | CASE 60: RESUL|
00005920 54 49 53 20 22 27 49 4e 54 4f 27 20 65 78 70 65 |TIS "'INTO' expe|
00005930 63 74 65 64 22 0a 20 20 20 20 20 20 43 41 53 45 |cted". CASE|
00005940 20 36 31 3a 0a 20 20 20 20 20 20 43 41 53 45 20 | 61:. CASE |
00005950 36 32 3a 20 52 45 53 55 4c 54 49 53 20 22 27 3a |62: RESULTIS "':|
00005960 27 20 65 78 70 65 63 74 65 64 22 0a 20 20 20 20 |' expected". |
00005970 20 20 43 41 53 45 20 36 33 3a 20 52 45 53 55 4c | CASE 63: RESUL|
00005980 54 49 53 20 22 27 2a 2a 2f 27 20 6d 69 73 73 69 |TIS "'**/' missi|
00005990 6e 67 22 0a 20 20 20 20 20 20 43 41 53 45 20 39 |ng". CASE 9|
000059a0 31 3a 20 52 45 53 55 4c 54 49 53 20 22 27 24 27 |1: RESULTIS "'$'|
000059b0 20 6f 75 74 20 6f 66 20 63 6f 6e 74 65 78 74 22 | out of context"|
000059c0 0a 20 20 20 20 20 20 43 41 53 45 20 39 34 3a 20 |. CASE 94: |
000059d0 52 45 53 55 4c 54 49 53 20 22 49 6c 6c 65 67 61 |RESULTIS "Illega|
000059e0 6c 20 63 68 61 72 61 63 74 65 72 22 0a 20 20 20 |l character". |
000059f0 20 20 20 43 41 53 45 20 39 35 3a 20 52 45 53 55 | CASE 95: RESU|
00005a00 4c 54 49 53 20 22 49 6c 6c 65 67 61 6c 20 73 65 |LTIS "Illegal se|
00005a10 63 74 69 6f 6e 20 6e 61 6d 65 22 0a 20 20 20 20 |ction name". |
00005a20 20 20 43 41 53 45 20 39 36 3a 20 72 63 20 3a 3d | CASE 96: rc :=|
00005a30 20 32 30 0a 09 20 20 20 20 20 20 20 52 45 53 55 | 20.. RESU|
00005a40 4c 54 49 53 20 22 43 61 6e 27 74 20 47 45 54 20 |LTIS "Can't GET |
00005a50 2a 22 25 53 2a 22 20 2d 20 22 0a 20 20 20 20 20 |*"%S*" - ". |
00005a60 20 43 41 53 45 20 39 37 3a 20 52 45 53 55 4c 54 | CASE 97: RESULT|
00005a70 49 53 20 22 42 61 64 20 47 45 54 20 64 69 72 65 |IS "Bad GET dire|
00005a80 63 74 69 76 65 22 0a 20 20 20 20 20 20 43 41 53 |ctive". CAS|
00005a90 45 20 39 39 3a 20 52 45 53 55 4c 54 49 53 20 22 |E 99: RESULTIS "|
00005aa0 49 6e 63 6f 72 72 65 63 74 20 74 65 72 6d 69 6e |Incorrect termin|
00005ab0 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 43 41 53 |ation". CAS|
00005ac0 45 20 31 30 30 3a 52 45 53 55 4c 54 49 53 20 22 |E 100:RESULTIS "|
00005ad0 42 61 64 20 65 78 74 65 72 6e 61 6c 20 6e 61 6d |Bad external nam|
00005ae0 65 20 73 74 72 69 6e 67 22 0a 20 20 20 20 20 20 |e string". |
00005af0 43 41 53 45 20 31 30 31 3a 52 45 53 55 4c 54 49 |CASE 101:RESULTI|
00005b00 53 20 22 49 6e 76 61 6c 69 64 20 75 73 65 20 6f |S "Invalid use o|
00005b10 66 20 73 79 6d 62 6f 6c 22 0a 20 20 20 24 29 0a |f symbol". $).|
00005b20 0a 20 20 20 49 46 20 72 63 3c 31 30 20 54 48 45 |. IF rc<10 THE|
00005b30 4e 20 72 63 20 3a 3d 20 31 30 0a 0a 20 20 20 57 |N rc := 10.. W|
00005b40 72 69 74 65 46 28 22 2a 4e 45 72 72 6f 72 20 6e |riteF("*NError n|
00005b50 65 61 72 20 6c 69 6e 65 20 25 4e 3a 20 20 22 2c |ear line %N: ",|
00005b60 20 6c 69 6e 65 43 6f 75 6e 74 29 0a 20 20 20 57 | lineCount). W|
00005b70 72 69 74 65 46 28 73 2c 20 61 29 0a 0a 62 72 6b |riteF(s, a)..brk|
00005b80 3a 0a 20 20 20 49 46 20 72 63 3e 3d 32 30 20 54 |:. IF rc>=20 T|
00005b90 48 45 4e 0a 20 20 20 24 28 20 57 72 69 74 65 53 |HEN. $( WriteS|
00005ba0 28 22 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 62 |("compilation ab|
00005bb0 61 6e 64 6f 6e 65 64 2a 4e 22 29 0a 0a 20 20 20 |andoned*N").. |
00005bc0 20 20 20 57 48 49 4c 45 20 67 65 74 70 7e 3d 30 | WHILE getp~=0|
00005bd0 20 44 4f 0a 20 20 20 20 20 20 24 28 20 43 6c 6f | DO. $( Clo|
00005be0 73 65 28 73 6f 75 72 63 65 53 74 72 65 61 6d 29 |se(sourceStream)|
00005bf0 0a 09 20 67 65 74 70 20 3a 3d 20 67 65 74 70 2d |.. getp := getp-|
00005c00 33 0a 09 20 73 6f 75 72 63 65 53 74 72 65 61 6d |3.. sourceStream|
00005c10 20 3a 3d 20 67 65 74 76 21 67 65 74 70 0a 09 20 | := getv!getp.. |
00005c20 53 65 6c 65 63 74 49 6e 70 75 74 28 73 6f 75 72 |SelectInput(sour|
00005c30 63 65 53 74 72 65 61 6d 29 0a 20 20 20 20 20 20 |ceStream). |
00005c40 24 29 0a 20 20 20 20 20 20 4c 6f 6e 67 4a 75 6d |$). LongJum|
00005c50 70 28 65 72 72 2e 70 2c 65 72 72 2e 6c 29 0a 20 |p(err.p,err.l). |
00005c60 20 20 24 29 0a 20 20 20 57 72 43 68 42 75 66 28 | $). WrChBuf(|
00005c70 29 0a 20 20 20 6e 6c 50 65 6e 64 69 6e 67 20 3a |). nlPending :|
00005c80 3d 20 46 41 4c 53 45 0a 0a 20 20 20 55 4e 54 49 |= FALSE.. UNTI|
00005c90 4c 20 73 79 6d 62 3d 73 2e 6c 73 65 63 74 20 7c |L symb=s.lsect ||
00005ca0 20 73 79 6d 62 3d 73 2e 72 73 65 63 74 20 7c 0a | symb=s.rsect |.|
00005cb0 09 20 73 79 6d 62 3d 73 2e 6c 65 74 20 20 20 7c |. symb=s.let ||
00005cc0 20 73 79 6d 62 3d 73 2e 61 6e 64 20 20 20 7c 0a | symb=s.and |.|
00005cd0 09 20 73 79 6d 62 3d 73 2e 65 6e 64 20 20 20 7c |. symb=s.end ||
00005ce0 20 6e 6c 50 65 6e 64 69 6e 67 20 44 4f 20 4e 65 | nlPending DO Ne|
00005cf0 78 74 53 79 6d 62 28 29 0a 0a 20 20 20 4c 6f 6e |xtSymb().. Lon|
00005d00 67 4a 75 6d 70 28 72 65 63 2e 70 2c 20 72 65 63 |gJump(rec.p, rec|
00005d10 2e 6c 29 0a 24 29 0a 0a 41 4e 44 20 57 72 43 68 |.l).$)..AND WrCh|
00005d20 42 75 66 28 29 20 42 45 0a 24 28 20 57 72 69 74 |Buf() BE.$( Writ|
00005d30 65 53 28 22 2a 4e 2e 2e 2e 22 29 0a 0a 20 20 20 |eS("*N...").. |
00005d40 46 4f 52 20 70 20 3d 20 63 68 63 6f 75 6e 74 2d |FOR p = chcount-|
00005d50 36 33 20 54 4f 20 63 68 63 6f 75 6e 74 20 44 4f |63 TO chcount DO|
00005d60 0a 20 20 20 24 28 20 4c 45 54 20 6b 20 3d 20 63 |. $( LET k = c|
00005d70 68 62 75 66 21 28 70 26 36 33 29 0a 20 20 20 20 |hbuf!(p&63). |
00005d80 20 20 49 46 20 6b 3e 30 20 54 48 45 4e 20 57 72 | IF k>0 THEN Wr|
00005d90 43 68 28 6b 29 0a 20 20 20 24 29 0a 20 20 20 4e |Ch(k). $). N|
00005da0 65 77 4c 69 6e 65 28 29 0a 24 29 0a 0a 41 4e 44 |ewLine().$)..AND|
00005db0 20 52 64 42 6c 6f 63 6b 42 6f 64 79 28 29 20 3d | RdBlockBody() =|
00005dc0 20 56 41 4c 4f 46 0a 24 28 20 4c 45 54 20 70 2c | VALOF.$( LET p,|
00005dd0 20 6c 20 3d 20 72 65 63 2e 70 2c 20 72 65 63 2e | l = rec.p, rec.|
00005de0 6c 0a 20 20 20 4c 45 54 20 61 20 3d 20 30 0a 20 |l. LET a = 0. |
00005df0 20 20 4c 45 54 20 70 74 72 20 3d 20 40 61 0a 0a | LET ptr = @a..|
00005e00 20 20 20 24 28 20 4c 45 54 20 6f 70 20 3d 20 30 | $( LET op = 0|
00005e10 0a 20 20 20 20 20 20 72 65 63 2e 70 2c 20 72 65 |. rec.p, re|
00005e20 63 2e 6c 20 3a 3d 20 4c 65 76 65 6c 28 29 2c 20 |c.l := Level(), |
00005e30 72 65 63 6f 76 65 72 0a 20 20 20 20 20 20 49 67 |recover. Ig|
00005e40 6e 6f 72 65 28 73 2e 73 65 6d 69 63 6f 6c 6f 6e |nore(s.semicolon|
00005e50 29 0a 0a 20 20 20 20 20 20 53 57 49 54 43 48 4f |).. SWITCHO|
00005e60 4e 20 73 79 6d 62 20 49 4e 54 4f 0a 20 20 20 20 |N symb INTO. |
00005e70 20 20 24 28 20 43 41 53 45 20 73 2e 6d 61 6e 69 | $( CASE s.mani|
00005e80 66 65 73 74 3a 0a 09 20 43 41 53 45 20 73 2e 73 |fest:.. CASE s.s|
00005e90 74 61 74 69 63 3a 0a 09 20 43 41 53 45 20 73 2e |tatic:.. CASE s.|
00005ea0 67 6c 6f 62 61 6c 3a 0a 09 20 43 41 53 45 20 73 |global:.. CASE s|
00005eb0 2e 65 78 74 65 72 6e 61 6c 3a 0a 09 20 20 20 6f |.external:.. o|
00005ec0 70 20 3a 3d 20 73 79 6d 62 0a 09 20 20 20 4e 65 |p := symb.. Ne|
00005ed0 78 74 53 79 6d 62 28 29 0a 09 20 20 20 21 70 74 |xtSymb().. !pt|
00005ee0 72 20 3a 3d 20 52 64 53 65 63 74 28 52 64 43 44 |r := RdSect(RdCD|
00005ef0 65 66 73 2c 20 6f 70 29 0a 09 20 20 20 45 4e 44 |efs, op).. END|
00005f00 43 41 53 45 0a 0a 09 20 43 41 53 45 20 73 2e 6c |CASE... CASE s.l|
00005f10 65 74 3a 0a 09 20 20 20 4e 65 78 74 53 79 6d 62 |et:.. NextSymb|
00005f20 28 29 0a 09 20 20 20 21 70 74 72 20 3a 3d 20 52 |().. !ptr := R|
00005f30 44 65 66 28 29 0a 20 20 72 65 63 6f 76 65 72 3a |Def(). recover:|
00005f40 0a 09 20 20 20 24 28 20 4c 45 54 20 71 74 72 20 |.. $( LET qtr |
00005f50 3d 20 70 74 72 0a 0a 09 20 20 20 20 20 20 57 48 |= ptr... WH|
00005f60 49 4c 45 20 73 79 6d 62 3d 73 2e 61 6e 64 20 44 |ILE symb=s.and D|
00005f70 4f 0a 09 20 20 20 20 20 20 24 28 20 4e 65 78 74 |O.. $( Next|
00005f80 53 79 6d 62 28 29 0a 09 09 20 21 71 74 72 20 3a |Symb()... !qtr :|
00005f90 3d 20 4c 69 73 74 33 28 73 2e 61 6e 64 2c 20 21 |= List3(s.and, !|
00005fa0 71 74 72 2c 20 52 44 65 66 28 29 29 0a 09 09 20 |qtr, RDef())... |
00005fb0 71 74 72 20 3a 3d 20 40 68 33 21 28 21 71 74 72 |qtr := @h3!(!qtr|
00005fc0 29 0a 09 20 20 20 20 20 20 24 29 0a 09 20 20 20 |).. $).. |
00005fd0 20 20 20 6f 70 20 3a 3d 20 73 2e 6c 65 74 0a 09 | op := s.let..|
00005fe0 20 20 20 20 20 20 45 4e 44 43 41 53 45 0a 09 20 | ENDCASE.. |
00005ff0 20 20 24 29 0a 0a 09 20 44 45 46 41 55 4c 54 3a | $)... DEFAULT:|
00006000 0a 09 20 20 20 21 70 74 72 20 3a 3d 20 52 64 53 |.. !ptr := RdS|
00006010 65 71 28 29 0a 09 20 20 20 49 46 20 73 79 6d 62 |eq().. IF symb|
00006020 7e 3d 73 2e 72 73 65 63 74 20 26 20 73 79 6d 62 |~=s.rsect & symb|
00006030 7e 3d 73 2e 65 6e 64 20 54 48 45 4e 20 53 79 6e |~=s.end THEN Syn|
00006040 52 65 70 6f 72 74 28 35 31 29 0a 0a 09 20 43 41 |Report(51)... CA|
00006050 53 45 20 73 2e 72 73 65 63 74 3a 20 43 41 53 45 |SE s.rsect: CASE|
00006060 20 73 2e 65 6e 64 3a 0a 09 20 20 20 42 52 45 41 | s.end:.. BREA|
00006070 4b 0a 20 20 20 20 20 20 24 29 0a 20 20 20 20 20 |K. $). |
00006080 20 21 70 74 72 20 3a 3d 20 4c 69 73 74 33 28 6f | !ptr := List3(o|
00006090 70 2c 21 70 74 72 2c 20 30 29 0a 20 20 20 20 20 |p,!ptr, 0). |
000060a0 20 70 74 72 20 3a 3d 20 40 68 33 21 28 21 70 74 | ptr := @h3!(!pt|
000060b0 72 29 0a 0a 20 20 20 24 29 20 52 45 50 45 41 54 |r).. $) REPEAT|
000060c0 0a 20 20 20 72 65 63 2e 70 2c 20 72 65 63 2e 6c |. rec.p, rec.l|
000060d0 20 3a 3d 20 70 2c 20 6c 0a 20 20 20 52 45 53 55 | := p, l. RESU|
000060e0 4c 54 49 53 20 61 0a 24 29 0a 0a 41 4e 44 20 52 |LTIS a.$)..AND R|
000060f0 64 53 65 71 28 29 20 3d 20 56 41 4c 4f 46 0a 24 |dSeq() = VALOF.$|
00006100 28 20 4c 45 54 20 6e 20 3d 20 30 0a 20 20 20 4c |( LET n = 0. L|
00006110 45 54 20 6c 69 73 74 20 3d 20 47 65 74 4c 69 73 |ET list = GetLis|
00006120 74 45 6c 65 6d 65 6e 74 28 29 0a 20 20 20 4c 45 |tElement(). LE|
00006130 54 20 6c 69 73 74 65 20 3d 20 6c 69 73 74 0a 0a |T liste = list..|
00006140 20 20 20 24 28 20 4c 45 54 20 6c 63 20 3d 20 3f | $( LET lc = ?|
00006150 0a 20 20 20 20 20 20 49 67 6e 6f 72 65 28 73 2e |. Ignore(s.|
00006160 73 65 6d 69 63 6f 6c 6f 6e 29 0a 0a 20 20 20 20 |semicolon).. |
00006170 20 20 6c 63 20 3a 3d 20 6c 69 6e 65 43 6f 75 6e | lc := lineCoun|
00006180 74 0a 20 20 20 20 20 20 49 6e 73 65 72 74 49 6e |t. InsertIn|
00006190 4c 69 73 74 45 6c 65 6d 65 6e 74 28 40 6c 69 73 |ListElement(@lis|
000061a0 74 65 2c 20 72 63 6f 6d 28 29 29 0a 20 20 20 20 |te, rcom()). |
000061b0 20 20 49 6e 73 65 72 74 49 6e 4c 69 73 74 45 6c | InsertInListEl|
000061c0 65 6d 65 6e 74 28 40 6c 69 73 74 65 2c 20 6c 63 |ement(@liste, lc|
000061d0 29 0a 20 20 20 20 20 20 6e 20 3a 3d 20 20 6e 2b |). n := n+|
000061e0 32 0a 0a 20 20 20 24 29 20 52 45 50 45 41 54 55 |2.. $) REPEATU|
000061f0 4e 54 49 4c 20 73 79 6d 62 3d 73 2e 72 73 65 63 |NTIL symb=s.rsec|
00006200 74 20 7c 20 73 79 6d 62 3d 73 2e 65 6e 64 0a 0a |t | symb=s.end..|
00006210 20 20 20 52 45 53 55 4c 54 49 53 20 4d 61 6b 65 | RESULTIS Make|
00006220 4c 69 73 74 28 6c 69 73 74 2c 20 6c 69 73 74 65 |List(list, liste|
00006230 2c 20 73 2e 73 65 6d 69 63 6f 6c 6f 6e 6c 69 73 |, s.semicolonlis|
00006240 74 2c 0a 09 09 09 09 20 20 73 2e 73 65 6d 69 63 |t,..... s.semic|
00006250 6f 6c 6f 6e 2c 20 6e 2c 20 32 29 0a 24 29 0a 0a |olon, n, 2).$)..|
00006260 41 4e 44 20 52 64 43 44 65 66 73 28 6f 70 29 20 |AND RdCDefs(op) |
00006270 3d 20 56 41 4c 4f 46 0a 24 28 20 4c 45 54 20 6e |= VALOF.$( LET n|
00006280 20 3d 20 20 30 0a 20 20 20 4c 45 54 20 6c 69 73 | = 0. LET lis|
00006290 74 20 3d 20 47 65 74 4c 69 73 74 45 6c 65 6d 65 |t = GetListEleme|
000062a0 6e 74 28 29 0a 20 20 20 4c 45 54 20 6c 69 73 74 |nt(). LET list|
000062b0 65 20 3d 20 6c 69 73 74 0a 20 20 20 4c 45 54 20 |e = list. LET |
000062c0 70 2c 20 6c 20 3d 20 72 65 63 2e 70 2c 20 72 65 |p, l = rec.p, re|
000062d0 63 2e 6c 0a 0a 20 20 20 24 28 20 4c 45 54 20 6c |c.l.. $( LET l|
000062e0 63 20 3d 20 3f 0a 20 20 20 20 20 20 4c 45 54 20 |c = ?. LET |
000062f0 65 20 3d 20 30 0a 0a 20 20 20 20 20 20 72 65 63 |e = 0.. rec|
00006300 2e 70 2c 20 72 65 63 2e 6c 20 3a 3d 20 4c 65 76 |.p, rec.l := Lev|
00006310 65 6c 28 29 2c 20 72 65 63 0a 0a 20 20 20 20 20 |el(), rec.. |
00006320 20 49 6e 73 65 72 74 49 6e 4c 69 73 74 45 6c 65 | InsertInListEle|
00006330 6d 65 6e 74 28 40 6c 69 73 74 65 2c 20 52 4e 61 |ment(@liste, RNa|
00006340 6d 65 28 29 29 0a 20 20 20 20 20 20 6c 63 20 3a |me()). lc :|
00006350 3d 20 6c 69 6e 65 43 6f 75 6e 74 0a 0a 20 20 20 |= lineCount.. |
00006360 20 20 20 49 46 20 73 79 6d 62 7e 3d 73 2e 65 71 | IF symb~=s.eq|
00006370 20 26 20 73 79 6d 62 7e 3d 73 2e 63 6f 6c 6f 6e | & symb~=s.colon|
00006380 20 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 | THEN SynReport(|
00006390 34 35 29 0a 0a 20 20 20 20 20 20 4e 65 78 74 53 |45).. NextS|
000063a0 79 6d 62 28 29 0a 0a 20 20 20 20 20 20 54 45 53 |ymb().. TES|
000063b0 54 20 6f 70 3d 73 2e 65 78 74 65 72 6e 61 6c 0a |T op=s.external.|
000063c0 09 20 54 48 45 4e 20 24 28 20 49 46 20 73 79 6d |. THEN $( IF sym|
000063d0 62 7e 3d 73 2e 73 74 72 69 6e 67 20 54 48 45 4e |b~=s.string THEN|
000063e0 20 53 79 6e 52 65 70 6f 72 74 28 31 30 30 29 0a | SynReport(100).|
000063f0 09 09 20 65 20 3a 3d 20 4c 69 73 74 34 28 65 78 |.. e := List4(ex|
00006400 74 65 72 6e 61 6c 73 2e 6c 69 73 74 2c 20 52 62 |ternals.list, Rb|
00006410 45 78 70 28 29 2b 31 2c 20 30 2c 20 30 29 0a 09 |Exp()+1, 0, 0)..|
00006420 09 20 65 78 74 65 72 6e 61 6c 73 2e 6c 69 73 74 |. externals.list|
00006430 20 3a 3d 20 65 0a 09 20 20 20 20 20 20 24 29 0a | := e.. $).|
00006440 09 20 45 4c 53 45 20 65 20 3a 3d 20 52 45 78 70 |. ELSE e := RExp|
00006450 28 30 29 0a 0a 72 65 63 3a 20 20 6e 20 3a 3d 20 |(0)..rec: n := |
00006460 6e 2b 33 0a 20 20 20 20 20 20 49 6e 73 65 72 74 |n+3. Insert|
00006470 49 6e 4c 69 73 74 45 6c 65 6d 65 6e 74 28 40 6c |InListElement(@l|
00006480 69 73 74 65 2c 20 65 29 0a 20 20 20 20 20 20 49 |iste, e). I|
00006490 67 6e 6f 72 65 28 73 2e 73 65 6d 69 63 6f 6c 6f |gnore(s.semicolo|
000064a0 6e 29 0a 20 20 20 20 20 20 49 6e 73 65 72 74 49 |n). InsertI|
000064b0 6e 4c 69 73 74 45 6c 65 6d 65 6e 74 28 40 6c 69 |nListElement(@li|
000064c0 73 74 65 2c 20 6c 63 29 0a 0a 20 20 20 24 29 20 |ste, lc).. $) |
000064d0 52 45 50 45 41 54 57 48 49 4c 45 20 73 79 6d 62 |REPEATWHILE symb|
000064e0 3d 73 2e 6e 61 6d 65 0a 0a 20 20 20 72 65 63 2e |=s.name.. rec.|
000064f0 70 2c 20 72 65 63 2e 6c 20 3a 3d 20 70 2c 20 6c |p, rec.l := p, l|
00006500 0a 0a 20 20 20 52 45 53 55 4c 54 49 53 20 4d 61 |.. RESULTIS Ma|
00006510 6b 65 4c 69 73 74 28 6c 69 73 74 2c 20 6c 69 73 |keList(list, lis|
00006520 74 65 2c 20 73 2e 73 65 6d 69 63 6f 6c 6f 6e 6c |te, s.semicolonl|
00006530 69 73 74 2c 20 30 2c 20 6e 2c 33 29 0a 24 29 0a |ist, 0, n,3).$).|
00006540 0a 41 4e 44 20 52 64 53 65 63 74 28 72 2c 20 61 |.AND RdSect(r, a|
00006550 72 67 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c |rg) = VALOF.$( L|
00006560 45 54 20 74 61 67 2c 20 61 20 3d 20 77 6f 72 64 |ET tag, a = word|
00006570 4e 6f 64 65 2c 20 30 0a 0a 20 20 20 43 68 65 63 |Node, 0.. Chec|
00006580 6b 46 6f 72 28 73 2e 6c 73 65 63 74 2c 20 36 29 |kFor(s.lsect, 6)|
00006590 0a 20 20 20 61 20 3a 3d 20 72 28 61 72 67 29 0a |. a := r(arg).|
000065a0 0a 20 20 20 49 46 20 73 79 6d 62 7e 3d 73 2e 72 |. IF symb~=s.r|
000065b0 73 65 63 74 20 54 48 45 4e 20 53 79 6e 52 65 70 |sect THEN SynRep|
000065c0 6f 72 74 28 37 29 0a 0a 20 20 20 54 45 53 54 20 |ort(7).. TEST |
000065d0 74 61 67 3d 77 6f 72 64 4e 6f 64 65 0a 20 20 20 |tag=wordNode. |
000065e0 20 20 20 54 48 45 4e 20 4e 65 78 74 53 79 6d 62 | THEN NextSymb|
000065f0 28 29 0a 20 20 20 20 20 20 45 4c 53 45 20 49 46 |(). ELSE IF|
00006600 20 77 6f 72 64 4e 6f 64 65 3d 6e 75 6c 6c 74 61 | wordNode=nullta|
00006610 67 20 54 48 45 4e 0a 20 20 20 20 20 20 20 24 28 |g THEN. $(|
00006620 20 73 79 6d 62 20 3a 3d 20 30 0a 09 20 20 53 79 | symb := 0.. Sy|
00006630 6e 52 65 70 6f 72 74 28 39 29 0a 20 20 20 20 20 |nReport(9). |
00006640 20 20 24 29 0a 20 20 20 52 45 53 55 4c 54 49 53 | $). RESULTIS|
00006650 20 61 0a 24 29 0a 0a 41 4e 44 20 52 4e 61 6d 65 | a.$)..AND RName|
00006660 6c 69 73 74 28 29 20 3d 20 56 41 4c 4f 46 0a 24 |list() = VALOF.$|
00006670 28 20 4c 45 54 20 6e 20 3d 20 20 30 0a 20 20 20 |( LET n = 0. |
00006680 4c 45 54 20 6c 69 73 74 20 3d 20 47 65 74 4c 69 |LET list = GetLi|
00006690 73 74 45 6c 65 6d 65 6e 74 28 29 0a 20 20 20 4c |stElement(). L|
000066a0 45 54 20 6c 69 73 74 65 20 3d 20 6c 69 73 74 0a |ET liste = list.|
000066b0 0a 20 20 20 24 28 20 49 6e 73 65 72 74 49 6e 4c |. $( InsertInL|
000066c0 69 73 74 45 6c 65 6d 65 6e 74 28 40 6c 69 73 74 |istElement(@list|
000066d0 65 2c 20 52 4e 61 6d 65 28 29 29 0a 20 20 20 20 |e, RName()). |
000066e0 20 20 6e 20 3a 3d 20 6e 2b 31 0a 20 20 20 20 20 | n := n+1. |
000066f0 20 49 46 20 73 79 6d 62 7e 3d 73 2e 63 6f 6d 6d | IF symb~=s.comm|
00006700 61 20 54 48 45 4e 20 42 52 45 41 4b 0a 20 20 20 |a THEN BREAK. |
00006710 20 20 20 4e 65 78 74 53 79 6d 62 28 29 0a 20 20 | NextSymb(). |
00006720 20 24 29 20 52 45 50 45 41 54 0a 0a 20 20 20 52 | $) REPEAT.. R|
00006730 45 53 55 4c 54 49 53 20 4d 61 6b 65 4c 69 73 74 |ESULTIS MakeList|
00006740 28 6c 69 73 74 2c 6c 69 73 74 65 2c 73 2e 63 6f |(list,liste,s.co|
00006750 6d 6d 61 6c 69 73 74 2c 73 2e 63 6f 6d 6d 61 2c |mmalist,s.comma,|
00006760 6e 2c 31 29 0a 24 29 0a 0a 41 4e 44 20 52 4e 61 |n,1).$)..AND RNa|
00006770 6d 65 28 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 |me() = VALOF.$( |
00006780 4c 45 54 20 61 20 3d 20 77 6f 72 64 4e 6f 64 65 |LET a = wordNode|
00006790 0a 20 20 20 43 68 65 63 6b 46 6f 72 28 73 2e 6e |. CheckFor(s.n|
000067a0 61 6d 65 2c 20 38 29 0a 20 20 20 52 45 53 55 4c |ame, 8). RESUL|
000067b0 54 49 53 20 61 0a 24 29 0a 0a 41 4e 44 20 49 67 |TIS a.$)..AND Ig|
000067c0 6e 6f 72 65 28 69 74 65 6d 29 20 42 45 0a 20 20 |nore(item) BE. |
000067d0 49 46 20 73 79 6d 62 3d 69 74 65 6d 20 54 48 45 |IF symb=item THE|
000067e0 4e 0a 20 20 20 20 4e 65 78 74 53 79 6d 62 28 29 |N. NextSymb()|
000067f0 0a 0a 41 4e 44 20 43 68 65 63 6b 46 6f 72 28 69 |..AND CheckFor(i|
00006800 74 65 6d 2c 20 6e 29 20 42 45 0a 24 28 20 49 46 |tem, n) BE.$( IF|
00006810 20 73 79 6d 62 7e 3d 69 74 65 6d 20 54 48 45 4e | symb~=item THEN|
00006820 20 53 79 6e 52 65 70 6f 72 74 28 6e 29 0a 20 20 | SynReport(n). |
00006830 20 4e 65 78 74 53 79 6d 62 28 29 0a 24 29 0a 0a | NextSymb().$)..|
00006840 41 4e 44 20 52 62 45 78 70 28 29 20 3d 20 56 41 |AND RbExp() = VA|
00006850 4c 4f 46 0a 24 28 20 4c 45 54 20 61 2c 20 6f 70 |LOF.$( LET a, op|
00006860 20 3d 20 30 2c 20 73 79 6d 62 0a 0a 20 20 20 53 | = 0, symb.. S|
00006870 57 49 54 43 48 4f 4e 20 73 79 6d 62 20 49 4e 54 |WITCHON symb INT|
00006880 4f 0a 20 20 20 24 28 20 44 45 46 41 55 4c 54 3a |O. $( DEFAULT:|
00006890 0a 09 53 79 6e 52 65 70 6f 72 74 28 33 32 29 0a |..SynReport(32).|
000068a0 0a 20 20 20 20 20 20 43 41 53 45 20 73 2e 62 61 |. CASE s.ba|
000068b0 64 3a 0a 09 53 79 6e 52 65 70 6f 72 74 28 31 30 |d:..SynReport(10|
000068c0 31 29 0a 0a 20 20 20 20 20 20 43 41 53 45 20 73 |1).. CASE s|
000068d0 2e 71 75 65 72 79 3a 0a 09 4e 65 78 74 53 79 6d |.query:..NextSym|
000068e0 62 28 29 0a 09 52 45 53 55 4c 54 49 53 20 4c 69 |b()..RESULTIS Li|
000068f0 73 74 31 28 73 2e 71 75 65 72 79 29 0a 0a 20 20 |st1(s.query).. |
00006900 20 20 20 20 43 41 53 45 20 73 2e 74 72 75 65 3a | CASE s.true:|
00006910 20 43 41 53 45 20 73 2e 66 61 6c 73 65 3a 0a 20 | CASE s.false:. |
00006920 20 20 20 20 20 43 41 53 45 20 73 2e 6e 61 6d 65 | CASE s.name|
00006930 3a 0a 20 20 20 20 20 20 43 41 53 45 20 73 2e 6e |:. CASE s.n|
00006940 69 6c 3a 0a 09 61 20 3a 3d 20 77 6f 72 64 4e 6f |il:..a := wordNo|
00006950 64 65 0a 09 4e 65 78 74 53 79 6d 62 28 29 0a 09 |de..NextSymb()..|
00006960 52 45 53 55 4c 54 49 53 20 61 0a 0a 20 20 20 20 |RESULTIS a.. |
00006970 20 20 43 41 53 45 20 73 2e 73 74 72 69 6e 67 3a | CASE s.string:|
00006980 0a 09 24 28 20 4c 45 54 20 77 6f 72 64 53 69 7a |..$( LET wordSiz|
00006990 65 20 3d 20 77 6f 72 64 76 25 30 20 2f 20 42 79 |e = wordv%0 / By|
000069a0 74 65 73 50 65 72 57 6f 72 64 0a 09 20 20 20 61 |tesPerWord.. a|
000069b0 20 3a 3d 20 47 65 74 42 6c 6b 28 77 6f 72 64 53 | := GetBlk(wordS|
000069c0 69 7a 65 2b 32 29 0a 09 20 20 20 61 21 30 20 3a |ize+2).. a!0 :|
000069d0 3d 20 73 2e 73 74 72 69 6e 67 0a 0a 09 20 20 20 |= s.string... |
000069e0 46 4f 52 20 69 20 3d 20 30 20 54 4f 20 77 6f 72 |FOR i = 0 TO wor|
000069f0 64 53 69 7a 65 20 44 4f 20 61 21 28 69 2b 31 29 |dSize DO a!(i+1)|
00006a00 20 3a 3d 20 77 6f 72 64 76 21 69 0a 09 20 20 20 | := wordv!i.. |
00006a10 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 20 20 52 |NextSymb().. R|
00006a20 45 53 55 4c 54 49 53 20 61 0a 09 24 29 0a 0a 20 |ESULTIS a..$).. |
00006a30 20 20 20 20 20 43 41 53 45 20 73 2e 6e 75 6d 62 | CASE s.numb|
00006a40 65 72 3a 0a 09 24 28 20 4c 45 54 20 6b 20 3d 20 |er:..$( LET k = |
00006a50 64 65 63 76 61 6c 0a 09 20 20 20 4e 65 78 74 53 |decval.. NextS|
00006a60 79 6d 62 28 29 0a 0a 09 20 20 20 52 45 53 55 4c |ymb()... RESUL|
00006a70 54 49 53 20 6b 3d 30 20 20 20 20 20 2d 3e 20 7a |TIS k=0 -> z|
00006a80 65 72 6f 4e 6f 64 65 2c 0a 09 20 20 20 20 20 53 |eroNode,.. S|
00006a90 6d 61 6c 6c 4e 75 6d 62 65 72 28 6b 29 20 2d 3e |mallNumber(k) ->|
00006aa0 20 6b 2c 0a 09 09 09 20 20 20 20 20 20 20 4c 69 | k,.... Li|
00006ab0 73 74 32 28 73 2e 6e 75 6d 62 65 72 2c 20 6b 29 |st2(s.number, k)|
00006ac0 0a 09 24 29 0a 0a 20 20 20 20 20 20 43 41 53 45 |..$).. CASE|
00006ad0 20 73 2e 66 63 6f 6e 73 74 3a 0a 09 24 28 20 4c | s.fconst:..$( L|
00006ae0 45 54 20 69 2c 20 6a 20 3d 20 6d 61 6e 74 69 73 |ET i, j = mantis|
00006af0 73 61 2c 20 65 78 70 6f 6e 65 6e 74 3b 0a 09 20 |sa, exponent;.. |
00006b00 20 20 4e 65 78 74 53 79 6d 62 28 29 3b 0a 09 20 | NextSymb();.. |
00006b10 20 20 52 45 53 55 4c 54 49 53 20 4c 69 73 74 33 | RESULTIS List3|
00006b20 28 73 2e 66 63 6f 6e 73 74 2c 20 69 2c 20 6a 29 |(s.fconst, i, j)|
00006b30 0a 09 24 29 0a 0a 20 20 20 20 20 20 43 41 53 45 |..$).. CASE|
00006b40 20 73 2e 6c 70 61 72 65 6e 3a 0a 09 4e 65 78 74 | s.lparen:..Next|
00006b50 53 79 6d 62 28 29 0a 09 61 20 3a 3d 20 52 45 78 |Symb()..a := REx|
00006b60 70 28 30 29 0a 09 43 68 65 63 6b 46 6f 72 28 73 |p(0)..CheckFor(s|
00006b70 2e 72 70 61 72 65 6e 2c 20 31 35 29 0a 09 52 45 |.rparen, 15)..RE|
00006b80 53 55 4c 54 49 53 20 61 0a 0a 20 20 20 20 20 20 |SULTIS a.. |
00006b90 43 41 53 45 20 73 2e 76 61 6c 6f 66 3a 0a 09 4e |CASE s.valof:..N|
00006ba0 65 78 74 53 79 6d 62 28 29 0a 09 52 45 53 55 4c |extSymb()..RESUL|
00006bb0 54 49 53 20 4c 69 73 74 32 28 73 2e 76 61 6c 6f |TIS List2(s.valo|
00006bc0 66 2c 20 52 43 6f 6d 28 29 29 0a 0a 20 20 20 20 |f, RCom()).. |
00006bd0 20 20 43 41 53 45 20 73 2e 76 65 63 61 70 3a 0a | CASE s.vecap:.|
00006be0 09 6f 70 20 3a 3d 20 73 2e 72 76 0a 0a 20 20 20 |.op := s.rv.. |
00006bf0 20 20 20 43 41 53 45 20 73 2e 6c 76 3a 0a 20 20 | CASE s.lv:. |
00006c00 20 20 20 20 43 41 53 45 20 73 2e 72 76 3a 0a 20 | CASE s.rv:. |
00006c10 20 20 20 20 20 43 41 53 45 20 73 2e 63 61 72 3a | CASE s.car:|
00006c20 20 43 41 53 45 20 73 2e 76 63 61 72 3a 0a 20 20 | CASE s.vcar:. |
00006c30 20 20 20 20 43 41 53 45 20 73 2e 63 64 72 3a 20 | CASE s.cdr: |
00006c40 43 41 53 45 20 73 2e 76 63 64 72 3a 0a 09 4e 65 |CASE s.vcdr:..Ne|
00006c50 78 74 53 79 6d 62 28 29 0a 09 52 45 53 55 4c 54 |xtSymb()..RESULT|
00006c60 49 53 20 4c 69 73 74 32 28 6f 70 2c 20 52 45 78 |IS List2(op, REx|
00006c70 70 28 33 37 29 29 0a 0a 20 20 20 20 20 20 43 41 |p(37)).. CA|
00006c80 53 45 20 73 2e 70 6c 75 73 3a 0a 09 4e 65 78 74 |SE s.plus:..Next|
00006c90 53 79 6d 62 28 29 0a 09 52 45 53 55 4c 54 49 53 |Symb()..RESULTIS|
00006ca0 20 52 45 78 70 28 33 34 29 0a 0a 20 20 20 20 20 | RExp(34).. |
00006cb0 20 43 41 53 45 20 73 2e 6d 69 6e 75 73 3a 0a 09 | CASE s.minus:..|
00006cc0 4e 65 78 74 53 79 6d 62 28 29 0a 09 61 20 3a 3d |NextSymb()..a :=|
00006cd0 20 52 45 78 70 28 33 34 29 0a 0a 09 52 45 53 55 | RExp(34)...RESU|
00006ce0 4c 54 49 53 20 53 6d 61 6c 6c 4e 75 6d 62 65 72 |LTIS SmallNumber|
00006cf0 28 61 29 20 2d 3e 20 4c 69 73 74 32 28 73 2e 6e |(a) -> List2(s.n|
00006d00 75 6d 62 65 72 2c 20 2d 61 29 2c 0a 09 09 09 09 |umber, -a),.....|
00006d10 20 20 20 4c 69 73 74 32 28 73 2e 6e 65 67 2c 20 | List2(s.neg, |
00006d20 61 29 0a 0a 20 20 20 20 20 20 43 41 53 45 20 73 |a).. CASE s|
00006d30 2e 66 6d 69 6e 75 73 3a 0a 09 4e 65 78 74 53 79 |.fminus:..NextSy|
00006d40 6d 62 28 29 3b 0a 09 52 45 53 55 4c 54 49 53 20 |mb();..RESULTIS |
00006d50 4c 69 73 74 32 28 73 2e 66 6e 65 67 2c 20 52 45 |List2(s.fneg, RE|
00006d60 78 70 28 33 34 29 29 0a 0a 20 20 20 20 20 20 43 |xp(34)).. C|
00006d70 41 53 45 20 73 2e 6e 6f 74 3a 0a 09 4e 65 78 74 |ASE s.not:..Next|
00006d80 53 79 6d 62 28 29 0a 09 52 45 53 55 4c 54 49 53 |Symb()..RESULTIS|
00006d90 20 4c 69 73 74 32 28 73 2e 6e 6f 74 2c 20 52 45 | List2(s.not, RE|
00006da0 78 70 28 32 34 29 29 0a 0a 20 20 20 20 20 20 43 |xp(24)).. C|
00006db0 41 53 45 20 73 2e 61 62 73 3a 0a 20 20 20 20 20 |ASE s.abs:. |
00006dc0 20 43 41 53 45 20 73 2e 66 61 62 73 3a 0a 20 20 | CASE s.fabs:. |
00006dd0 20 20 20 20 43 41 53 45 20 73 2e 66 6c 6f 61 74 | CASE s.float|
00006de0 3a 20 43 41 53 45 20 73 2e 66 69 78 3a 0a 09 4e |: CASE s.fix:..N|
00006df0 65 78 74 53 79 6d 62 28 29 0a 09 52 45 53 55 4c |extSymb()..RESUL|
00006e00 54 49 53 20 4c 69 73 74 32 28 6f 70 2c 20 52 45 |TIS List2(op, RE|
00006e10 78 70 28 33 35 29 29 0a 0a 20 20 20 20 20 20 43 |xp(35)).. C|
00006e20 41 53 45 20 73 2e 74 61 62 6c 65 3a 0a 09 24 28 |ASE s.table:..$(|
00006e30 20 4c 45 54 20 6c 6e 20 3d 20 6c 69 6e 65 43 6f | LET ln = lineCo|
00006e40 75 6e 74 0a 09 20 20 20 4e 65 78 74 53 79 6d 62 |unt.. NextSymb|
00006e50 28 29 0a 09 20 20 20 52 45 53 55 4c 54 49 53 20 |().. RESULTIS |
00006e60 4c 69 73 74 34 28 73 2e 74 61 62 6c 65 2c 20 2d |List4(s.table, -|
00006e70 31 2c 20 6c 6e 2c 20 52 45 78 70 4c 69 73 74 28 |1, ln, RExpList(|
00006e80 29 29 0a 09 24 29 0a 0a 20 20 20 20 20 20 43 41 |))..$).. CA|
00006e90 53 45 20 73 2e 73 6c 63 74 3a 0a 09 24 28 20 4c |SE s.slct:..$( L|
00006ea0 45 54 20 6b 31 20 3d 20 7a 65 72 6f 4e 6f 64 65 |ET k1 = zeroNode|
00006eb0 0a 09 20 20 20 4c 45 54 20 6b 32 20 3d 20 7a 65 |.. LET k2 = ze|
00006ec0 72 6f 4e 6f 64 65 0a 09 20 20 20 4c 45 54 20 6b |roNode.. LET k|
00006ed0 33 20 3d 20 3f 0a 0a 09 20 20 20 4e 65 78 74 53 |3 = ?... NextS|
00006ee0 79 6d 62 28 29 0a 09 20 20 20 6b 33 20 3a 3d 20 |ymb().. k3 := |
00006ef0 52 45 78 70 28 30 29 0a 0a 09 20 20 20 49 46 20 |RExp(0)... IF |
00006f00 73 79 6d 62 3d 73 2e 63 6f 6c 6f 6e 20 54 48 45 |symb=s.colon THE|
00006f10 4e 0a 09 20 20 20 24 28 20 4e 65 78 74 53 79 6d |N.. $( NextSym|
00006f20 62 28 29 0a 09 20 20 20 20 20 20 6b 32 20 3a 3d |b().. k2 :=|
00006f30 20 6b 33 0a 09 20 20 20 20 20 20 6b 33 20 3a 3d | k3.. k3 :=|
00006f40 20 52 45 78 70 28 30 29 0a 09 20 20 20 24 29 0a | RExp(0).. $).|
00006f50 0a 09 20 20 20 49 46 20 73 79 6d 62 3d 73 2e 63 |.. IF symb=s.c|
00006f60 6f 6c 6f 6e 20 54 48 45 4e 0a 09 20 20 20 24 28 |olon THEN.. $(|
00006f70 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 20 20 | NextSymb().. |
00006f80 20 20 20 6b 31 20 3a 3d 20 6b 32 0a 09 20 20 20 | k1 := k2.. |
00006f90 20 20 20 6b 32 20 3a 3d 20 6b 33 0a 09 20 20 20 | k2 := k3.. |
00006fa0 20 20 20 6b 33 20 3a 3d 20 52 45 78 70 28 30 29 | k3 := RExp(0)|
00006fb0 0a 09 20 20 20 24 29 0a 0a 09 20 20 20 52 45 53 |.. $)... RES|
00006fc0 55 4c 54 49 53 20 4c 69 73 74 34 28 73 2e 73 6c |ULTIS List4(s.sl|
00006fd0 63 74 2c 20 6b 31 2c 20 6b 32 2c 20 6b 33 29 0a |ct, k1, k2, k3).|
00006fe0 09 24 29 0a 20 20 20 24 29 0a 24 29 0a 0a 41 4e |.$). $).$)..AN|
00006ff0 44 20 52 45 78 70 28 6e 29 20 3d 20 56 41 4c 4f |D RExp(n) = VALO|
00007000 46 0a 24 28 20 4c 45 54 20 61 20 3d 20 52 62 45 |F.$( LET a = RbE|
00007010 78 70 28 29 0a 20 20 20 4c 45 54 20 62 2c 20 63 |xp(). LET b, c|
00007020 2c 20 70 2c 20 71 20 3d 20 30 2c 20 30 2c 20 30 |, p, q = 0, 0, 0|
00007030 2c 20 30 0a 0a 20 20 20 24 28 20 4c 45 54 20 6f |, 0.. $( LET o|
00007040 70 20 3d 20 73 79 6d 62 0a 20 20 20 20 20 20 49 |p = symb. I|
00007050 46 20 6e 6c 50 65 6e 64 69 6e 67 20 54 48 45 4e |F nlPending THEN|
00007060 20 52 45 53 55 4c 54 49 53 20 61 0a 0a 20 20 20 | RESULTIS a.. |
00007070 20 20 20 53 57 49 54 43 48 4f 4e 20 6f 70 20 49 | SWITCHON op I|
00007080 4e 54 4f 0a 20 20 20 20 20 20 24 28 20 44 45 46 |NTO. $( DEF|
00007090 41 55 4c 54 3a 0a 09 20 20 20 52 45 53 55 4c 54 |AULT:.. RESULT|
000070a0 49 53 20 61 0a 0a 09 20 43 41 53 45 20 73 2e 6c |IS a... CASE s.l|
000070b0 70 61 72 65 6e 3a 0a 09 20 20 20 4e 65 78 74 53 |paren:.. NextS|
000070c0 79 6d 62 28 29 0a 09 20 20 20 62 20 3a 3d 20 30 |ymb().. b := 0|
000070d0 0a 09 20 20 20 49 46 20 73 79 6d 62 7e 3d 73 2e |.. IF symb~=s.|
000070e0 72 70 61 72 65 6e 20 54 48 45 4e 20 62 20 3a 3d |rparen THEN b :=|
000070f0 20 52 45 78 70 4c 69 73 74 28 29 0a 0a 09 20 20 | RExpList()... |
00007100 20 43 68 65 63 6b 46 6f 72 28 73 2e 72 70 61 72 | CheckFor(s.rpar|
00007110 65 6e 2c 20 31 39 29 0a 09 20 20 20 61 20 3a 3d |en, 19).. a :=|
00007120 20 4c 69 73 74 33 28 73 2e 66 6e 61 70 2c 20 61 | List3(s.fnap, a|
00007130 2c 20 62 29 0a 09 20 20 20 4c 4f 4f 50 0a 0a 09 |, b).. LOOP...|
00007140 20 43 41 53 45 20 73 2e 76 65 63 61 70 3a 0a 09 | CASE s.vecap:..|
00007150 20 43 41 53 45 20 73 2e 6f 66 3a 09 70 20 3a 3d | CASE s.of:.p :=|
00007160 20 34 30 3b 20 47 4f 54 4f 20 6c 61 73 73 6f 63 | 40; GOTO lassoc|
00007170 0a 0a 09 20 43 41 53 45 20 73 2e 62 79 74 65 61 |... CASE s.bytea|
00007180 70 3a 20 70 20 3a 3d 20 33 36 3b 20 47 4f 54 4f |p: p := 36; GOTO|
00007190 20 6c 61 73 73 6f 63 0a 0a 09 20 43 41 53 45 20 | lassoc... CASE |
000071a0 73 2e 6d 75 6c 74 3a 20 43 41 53 45 20 73 2e 64 |s.mult: CASE s.d|
000071b0 69 76 3a 20 43 41 53 45 20 73 2e 72 65 6d 3a 0a |iv: CASE s.rem:.|
000071c0 09 20 43 41 53 45 20 73 2e 66 6d 75 6c 74 3a 43 |. CASE s.fmult:C|
000071d0 41 53 45 20 73 2e 66 64 69 76 3a 0a 09 09 09 70 |ASE s.fdiv:....p|
000071e0 20 3a 3d 20 33 35 3b 20 47 4f 54 4f 20 6c 61 73 | := 35; GOTO las|
000071f0 73 6f 63 0a 0a 09 20 43 41 53 45 20 73 2e 70 6c |soc... CASE s.pl|
00007200 75 73 3a 20 43 41 53 45 20 73 2e 6d 69 6e 75 73 |us: CASE s.minus|
00007210 3a 0a 09 20 43 41 53 45 20 73 2e 66 70 6c 75 73 |:.. CASE s.fplus|
00007220 3a 43 41 53 45 20 73 2e 66 6d 69 6e 75 73 3a 0a |:CASE s.fminus:.|
00007230 09 09 09 70 20 3a 3d 20 33 34 3b 20 47 4f 54 4f |...p := 34; GOTO|
00007240 20 6c 61 73 73 6f 63 0a 0a 09 20 43 41 53 45 20 | lassoc... CASE |
00007250 73 2e 6c 73 68 69 66 74 3a 0a 09 20 43 41 53 45 |s.lshift:.. CASE|
00007260 20 73 2e 72 73 68 69 66 74 3a 20 70 2c 20 71 20 | s.rshift: p, q |
00007270 3a 3d 20 32 35 2c 20 33 30 3b 20 47 4f 54 4f 20 |:= 25, 30; GOTO |
00007280 64 79 61 64 69 63 0a 0a 09 20 43 41 53 45 20 73 |dyadic... CASE s|
00007290 2e 6c 6f 67 61 6e 64 3a 20 70 20 3a 3d 20 32 33 |.logand: p := 23|
000072a0 3b 20 47 4f 54 4f 20 6c 61 73 73 6f 63 0a 0a 09 |; GOTO lassoc...|
000072b0 20 43 41 53 45 20 73 2e 6c 6f 67 6f 72 3a 09 70 | CASE s.logor:.p|
000072c0 20 3a 3d 20 32 32 3b 20 47 4f 54 4f 20 6c 61 73 | := 22; GOTO las|
000072d0 73 6f 63 0a 0a 09 20 43 41 53 45 20 73 2e 65 71 |soc... CASE s.eq|
000072e0 76 3a 0a 09 20 43 41 53 45 20 73 2e 6e 65 71 76 |v:.. CASE s.neqv|
000072f0 3a 09 70 20 3a 3d 20 32 31 3b 20 47 4f 54 4f 20 |:.p := 21; GOTO |
00007300 6c 61 73 73 6f 63 0a 0a 09 20 43 41 53 45 20 73 |lassoc... CASE s|
00007310 2e 65 71 3a 20 20 43 41 53 45 20 73 2e 6e 65 3a |.eq: CASE s.ne:|
00007320 0a 09 20 43 41 53 45 20 73 2e 6c 65 3a 20 20 43 |.. CASE s.le: C|
00007330 41 53 45 20 73 2e 67 65 3a 20 20 43 41 53 45 20 |ASE s.ge: CASE |
00007340 73 2e 6c 73 3a 20 20 43 41 53 45 20 73 2e 67 72 |s.ls: CASE s.gr|
00007350 3a 0a 09 20 43 41 53 45 20 73 2e 66 65 71 3a 20 |:.. CASE s.feq: |
00007360 43 41 53 45 20 73 2e 66 6e 65 3a 0a 09 20 43 41 |CASE s.fne:.. CA|
00007370 53 45 20 73 2e 66 6c 65 3a 20 43 41 53 45 20 73 |SE s.fle: CASE s|
00007380 2e 66 67 65 3a 20 43 41 53 45 20 73 2e 66 6c 73 |.fge: CASE s.fls|
00007390 3a 20 43 41 53 45 20 73 2e 66 67 72 3a 0a 09 20 |: CASE s.fgr:.. |
000073a0 43 41 53 45 20 73 2e 6c 6c 65 3a 20 43 41 53 45 |CASE s.lle: CASE|
000073b0 20 73 2e 6c 67 65 3a 20 43 41 53 45 20 73 2e 6c | s.lge: CASE s.l|
000073c0 6c 73 3a 20 43 41 53 45 20 73 2e 6c 67 72 3a 0a |ls: CASE s.lgr:.|
000073d0 09 20 20 20 49 46 20 6e 3e 3d 33 30 20 54 48 45 |. IF n>=30 THE|
000073e0 4e 20 52 45 53 55 4c 54 49 53 20 61 0a 0a 09 20 |N RESULTIS a... |
000073f0 20 20 24 28 20 4e 65 78 74 53 79 6d 62 28 29 0a | $( NextSymb().|
00007400 09 20 20 20 20 20 20 62 20 3a 3d 20 52 45 78 70 |. b := RExp|
00007410 28 33 30 29 0a 09 20 20 20 20 20 20 61 20 3a 3d |(30).. a :=|
00007420 20 4c 69 73 74 33 28 6f 70 2c 20 61 2c 20 62 29 | List3(op, a, b)|
00007430 0a 09 20 20 20 20 20 20 63 20 3a 3d 20 63 3d 30 |.. c := c=0|
00007440 20 2d 3e 20 61 2c 20 4c 69 73 74 33 28 73 2e 6c | -> a, List3(s.l|
00007450 6f 67 61 6e 64 2c 20 63 2c 20 61 29 0a 09 20 20 |ogand, c, a).. |
00007460 20 20 20 20 61 2c 20 6f 70 20 3a 3d 20 62 2c 20 | a, op := b, |
00007470 73 79 6d 62 0a 0a 09 20 20 20 24 29 20 52 45 50 |symb... $) REP|
00007480 45 41 54 57 48 49 4c 45 20 28 73 2e 65 71 3c 3d |EATWHILE (s.eq<=|
00007490 6f 70 3c 3d 73 2e 67 65 29 20 7c 0a 09 09 09 20 |op<=s.ge) |.... |
000074a0 20 28 73 2e 6c 6c 73 3c 3d 6f 70 3c 3d 73 2e 6c | (s.lls<=op<=s.l|
000074b0 67 65 29 20 7c 0a 09 09 09 20 20 28 73 2e 66 65 |ge) |.... (s.fe|
000074c0 71 3c 3d 6f 70 3c 3d 73 2e 66 67 65 29 0a 09 20 |q<=op<=s.fge).. |
000074d0 20 20 61 20 3a 3d 20 63 0a 09 20 20 20 4c 4f 4f | a := c.. LOO|
000074e0 50 0a 0a 09 20 43 41 53 45 20 73 2e 63 6f 6e 64 |P... CASE s.cond|
000074f0 3a 0a 09 20 20 20 49 46 20 6e 3e 3d 31 33 20 54 |:.. IF n>=13 T|
00007500 48 45 4e 20 52 45 53 55 4c 54 49 53 20 61 0a 0a |HEN RESULTIS a..|
00007510 09 20 20 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 |. NextSymb()..|
00007520 20 20 20 62 20 3a 3d 20 52 45 78 70 28 30 29 0a | b := RExp(0).|
00007530 09 20 20 20 43 68 65 63 6b 46 6f 72 28 73 2e 63 |. CheckFor(s.c|
00007540 6f 6d 6d 61 2c 20 33 30 29 0a 09 20 20 20 61 20 |omma, 30).. a |
00007550 3a 3d 20 4c 69 73 74 34 28 73 2e 63 6f 6e 64 2c |:= List4(s.cond,|
00007560 20 61 2c 20 62 2c 20 52 45 78 70 28 30 29 29 0a | a, b, RExp(0)).|
00007570 09 20 20 20 4c 4f 4f 50 0a 20 20 20 20 20 20 24 |. LOOP. $|
00007580 29 0a 6c 61 73 73 6f 63 3a 0a 20 20 20 20 20 20 |).lassoc:. |
00007590 71 20 3a 3d 20 70 0a 64 79 61 64 69 63 3a 0a 20 |q := p.dyadic:. |
000075a0 20 20 20 20 20 49 46 20 6e 3e 3d 70 20 54 48 45 | IF n>=p THE|
000075b0 4e 20 52 45 53 55 4c 54 49 53 20 61 0a 20 20 20 |N RESULTIS a. |
000075c0 20 20 20 4e 65 78 74 53 79 6d 62 28 29 0a 20 20 | NextSymb(). |
000075d0 20 20 20 20 61 20 3a 3d 20 4c 69 73 74 33 28 6f | a := List3(o|
000075e0 70 2c 20 61 2c 20 52 45 78 70 28 71 29 29 0a 20 |p, a, RExp(q)). |
000075f0 20 20 24 29 20 52 45 50 45 41 54 0a 24 29 0a 0a | $) REPEAT.$)..|
00007600 41 4e 44 20 52 45 78 70 4c 69 73 74 28 29 20 3d |AND RExpList() =|
00007610 20 56 41 4c 4f 46 0a 24 28 20 4c 45 54 20 61 20 | VALOF.$( LET a |
00007620 3d 20 30 0a 20 20 20 4c 45 54 20 6e 20 3d 20 30 |= 0. LET n = 0|
00007630 0a 20 20 20 4c 45 54 20 6c 69 73 74 20 3d 20 47 |. LET list = G|
00007640 65 74 4c 69 73 74 45 6c 65 6d 65 6e 74 28 29 0a |etListElement().|
00007650 20 20 20 4c 45 54 20 6c 69 73 74 65 20 3d 20 6c | LET liste = l|
00007660 69 73 74 0a 0a 20 20 20 24 28 20 49 6e 73 65 72 |ist.. $( Inser|
00007670 74 49 6e 4c 69 73 74 45 6c 65 6d 65 6e 74 28 40 |tInListElement(@|
00007680 6c 69 73 74 65 2c 20 52 45 78 70 28 30 29 29 0a |liste, RExp(0)).|
00007690 20 20 20 20 20 20 6e 20 3a 3d 20 6e 2b 31 0a 20 | n := n+1. |
000076a0 20 20 20 20 20 49 46 20 73 79 6d 62 7e 3d 73 2e | IF symb~=s.|
000076b0 63 6f 6d 6d 61 20 54 48 45 4e 20 42 52 45 41 4b |comma THEN BREAK|
000076c0 0a 20 20 20 20 20 20 4e 65 78 74 53 79 6d 62 28 |. NextSymb(|
000076d0 29 0a 20 20 20 24 29 20 52 45 50 45 41 54 0a 0a |). $) REPEAT..|
000076e0 20 20 20 52 45 53 55 4c 54 49 53 20 4d 61 6b 65 | RESULTIS Make|
000076f0 4c 69 73 74 28 6c 69 73 74 2c 6c 69 73 74 65 2c |List(list,liste,|
00007700 73 2e 63 6f 6d 6d 61 6c 69 73 74 2c 73 2e 63 6f |s.commalist,s.co|
00007710 6d 6d 61 2c 6e 2c 31 29 0a 24 29 0a 0a 0a 41 4e |mma,n,1).$)...AN|
00007720 44 20 52 44 65 66 28 29 20 3d 20 56 41 4c 4f 46 |D RDef() = VALOF|
00007730 0a 24 28 20 4c 45 54 20 6e 20 3d 20 52 4e 61 6d |.$( LET n = RNam|
00007740 65 6c 69 73 74 28 29 0a 0a 20 20 20 53 57 49 54 |elist().. SWIT|
00007750 43 48 4f 4e 20 73 79 6d 62 20 49 4e 54 4f 0a 20 |CHON symb INTO. |
00007760 20 20 24 28 20 43 41 53 45 20 73 2e 6c 70 61 72 | $( CASE s.lpar|
00007770 65 6e 3a 0a 09 24 28 20 4c 45 54 20 61 20 3d 20 |en:..$( LET a = |
00007780 30 0a 09 20 20 20 4c 45 54 20 6c 6e 20 3d 20 6c |0.. LET ln = l|
00007790 69 6e 65 43 6f 75 6e 74 0a 09 20 20 20 4e 65 78 |ineCount.. Nex|
000077a0 74 53 79 6d 62 28 29 0a 0a 09 20 20 20 49 46 20 |tSymb()... IF |
000077b0 68 31 21 6e 7e 3d 73 2e 6e 61 6d 65 20 54 48 45 |h1!n~=s.name THE|
000077c0 4e 20 53 79 6e 52 65 70 6f 72 74 28 34 30 29 0a |N SynReport(40).|
000077d0 09 20 20 20 49 46 20 73 79 6d 62 3d 73 2e 6e 61 |. IF symb=s.na|
000077e0 6d 65 20 54 48 45 4e 20 61 20 3a 3d 20 52 4e 61 |me THEN a := RNa|
000077f0 6d 65 6c 69 73 74 28 29 0a 0a 09 20 20 20 43 68 |melist()... Ch|
00007800 65 63 6b 46 6f 72 28 73 2e 72 70 61 72 65 6e 2c |eckFor(s.rparen,|
00007810 20 34 31 29 0a 0a 09 20 20 20 49 46 20 73 79 6d | 41)... IF sym|
00007820 62 3d 73 2e 62 65 20 54 48 45 4e 0a 09 20 20 20 |b=s.be THEN.. |
00007830 24 28 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 |$( NextSymb().. |
00007840 20 20 20 20 20 52 45 53 55 4c 54 49 53 20 4c 69 | RESULTIS Li|
00007850 73 74 36 28 73 2e 72 74 64 65 66 2c 20 6e 2c 20 |st6(s.rtdef, n, |
00007860 61 2c 20 52 43 6f 6d 28 29 2c 20 30 2c 20 6c 6e |a, RCom(), 0, ln|
00007870 29 20 24 29 0a 0a 09 20 20 20 49 46 20 73 79 6d |) $)... IF sym|
00007880 62 3d 73 2e 65 71 20 54 48 45 4e 0a 09 20 20 20 |b=s.eq THEN.. |
00007890 24 28 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 |$( NextSymb().. |
000078a0 20 20 20 20 20 52 45 53 55 4c 54 49 53 20 4c 69 | RESULTIS Li|
000078b0 73 74 36 28 73 2e 66 6e 64 65 66 2c 20 6e 2c 20 |st6(s.fndef, n, |
000078c0 61 2c 20 52 45 78 70 28 30 29 2c 20 30 2c 20 6c |a, RExp(0), 0, l|
000078d0 6e 29 20 24 29 0a 09 20 20 20 53 79 6e 52 65 70 |n) $).. SynRep|
000078e0 6f 72 74 28 34 32 29 0a 09 24 29 0a 0a 20 20 20 |ort(42)..$).. |
000078f0 20 20 20 44 45 46 41 55 4c 54 3a 0a 09 53 79 6e | DEFAULT:..Syn|
00007900 52 65 70 6f 72 74 28 34 34 29 0a 0a 20 20 20 20 |Report(44).. |
00007910 20 20 43 41 53 45 20 73 2e 65 71 3a 0a 09 24 28 | CASE s.eq:..$(|
00007920 20 4c 45 54 20 6c 6e 20 3d 20 6c 69 6e 65 43 6f | LET ln = lineCo|
00007930 75 6e 74 0a 09 20 20 20 4e 65 78 74 53 79 6d 62 |unt.. NextSymb|
00007940 28 29 0a 0a 09 20 20 20 49 46 20 73 79 6d 62 3d |()... IF symb=|
00007950 73 2e 76 65 63 20 54 48 45 4e 0a 09 20 20 20 24 |s.vec THEN.. $|
00007960 28 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 20 |( NextSymb().. |
00007970 20 20 20 20 49 46 20 68 31 21 6e 7e 3d 73 2e 6e | IF h1!n~=s.n|
00007980 61 6d 65 20 54 48 45 4e 20 53 79 6e 52 65 70 6f |ame THEN SynRepo|
00007990 72 74 28 34 33 29 0a 09 20 20 20 20 20 20 52 45 |rt(43).. RE|
000079a0 53 55 4c 54 49 53 20 4c 69 73 74 34 28 73 2e 76 |SULTIS List4(s.v|
000079b0 65 63 64 65 66 2c 20 6e 2c 20 52 45 78 70 28 30 |ecdef, n, RExp(0|
000079c0 29 2c 20 6c 6e 29 20 24 29 0a 0a 09 20 20 20 52 |), ln) $)... R|
000079d0 45 53 55 4c 54 49 53 20 4c 69 73 74 34 28 73 2e |ESULTIS List4(s.|
000079e0 76 61 6c 64 65 66 2c 20 6e 2c 20 52 45 78 70 4c |valdef, n, RExpL|
000079f0 69 73 74 28 29 2c 20 6c 6e 29 0a 09 24 29 0a 20 |ist(), ln)..$). |
00007a00 20 20 24 29 0a 24 29 0a 0a 0a 41 4e 44 20 52 62 | $).$)...AND Rb|
00007a10 43 6f 6d 28 29 20 3d 20 56 41 4c 4f 46 0a 24 28 |Com() = VALOF.$(|
00007a20 20 4c 45 54 20 61 2c 20 62 2c 20 6f 70 20 3d 20 | LET a, b, op = |
00007a30 30 2c 20 30 2c 20 73 79 6d 62 0a 0a 20 20 20 53 |0, 0, symb.. S|
00007a40 57 49 54 43 48 4f 4e 20 73 79 6d 62 20 49 4e 54 |WITCHON symb INT|
00007a50 4f 0a 20 20 20 24 28 20 44 45 46 41 55 4c 54 3a |O. $( DEFAULT:|
00007a60 0a 09 52 45 53 55 4c 54 49 53 20 30 0a 0a 20 20 |..RESULTIS 0.. |
00007a70 20 20 20 20 43 41 53 45 20 73 2e 62 61 64 3a 0a | CASE s.bad:.|
00007a80 09 53 79 6e 52 65 70 6f 72 74 28 31 30 31 29 0a |.SynReport(101).|
00007a90 0a 20 20 20 20 20 20 43 41 53 45 20 73 2e 6e 61 |. CASE s.na|
00007aa0 6d 65 3a 20 43 41 53 45 20 73 2e 6e 75 6d 62 65 |me: CASE s.numbe|
00007ab0 72 3a 20 43 41 53 45 20 73 2e 73 74 72 69 6e 67 |r: CASE s.string|
00007ac0 3a 0a 20 20 20 20 20 20 43 41 53 45 20 73 2e 74 |:. CASE s.t|
00007ad0 72 75 65 3a 20 43 41 53 45 20 73 2e 66 61 6c 73 |rue: CASE s.fals|
00007ae0 65 3a 20 20 43 41 53 45 20 73 2e 6c 76 3a 0a 20 |e: CASE s.lv:. |
00007af0 20 20 20 20 20 43 41 53 45 20 73 2e 72 76 3a 20 | CASE s.rv: |
00007b00 20 20 43 41 53 45 20 73 2e 76 65 63 61 70 3a 20 | CASE s.vecap: |
00007b10 20 43 41 53 45 20 73 2e 6c 70 61 72 65 6e 3a 0a | CASE s.lparen:.|
00007b20 20 20 20 20 20 20 43 41 53 45 20 73 2e 63 61 72 | CASE s.car|
00007b30 3a 20 20 43 41 53 45 20 73 2e 63 64 72 3a 0a 20 |: CASE s.cdr:. |
00007b40 20 20 20 20 20 43 41 53 45 20 73 2e 76 63 61 72 | CASE s.vcar|
00007b50 3a 20 43 41 53 45 20 73 2e 76 63 64 72 3a 0a 20 |: CASE s.vcdr:. |
00007b60 20 20 20 20 20 43 41 53 45 20 73 2e 6e 69 6c 3a | CASE s.nil:|
00007b70 0a 09 61 20 3a 3d 20 52 45 78 70 4c 69 73 74 28 |..a := RExpList(|
00007b80 29 0a 0a 09 49 46 20 73 79 6d 62 3d 73 2e 61 73 |)...IF symb=s.as|
00007b90 73 20 54 48 45 4e 0a 09 24 28 20 6f 70 20 3a 3d |s THEN..$( op :=|
00007ba0 20 73 79 6d 62 0a 09 20 20 20 4e 65 78 74 53 79 | symb.. NextSy|
00007bb0 6d 62 28 29 0a 09 20 20 20 52 45 53 55 4c 54 49 |mb().. RESULTI|
00007bc0 53 20 4c 69 73 74 33 28 6f 70 2c 20 61 2c 20 52 |S List3(op, a, R|
00007bd0 45 78 70 4c 69 73 74 28 29 29 20 24 29 0a 0a 09 |ExpList()) $)...|
00007be0 49 46 20 73 79 6d 62 3d 73 2e 6f 70 61 62 20 54 |IF symb=s.opab T|
00007bf0 48 45 4e 0a 09 20 20 2f 2f 0a 09 20 20 2f 2f 20 |HEN.. //.. // |
00007c00 54 68 65 20 6e 6f 64 65 20 69 73 20 6f 66 20 74 |The node is of t|
00007c10 79 70 65 20 27 4f 50 41 42 27 2c 20 77 69 74 68 |ype 'OPAB', with|
00007c20 20 74 68 65 0a 09 20 20 2f 2f 20 61 63 74 75 61 | the.. // actua|
00007c30 6c 20 6f 70 65 72 61 74 6f 72 20 69 6e 20 74 68 |l operator in th|
00007c40 65 20 73 65 63 6f 6e 64 20 66 69 65 6c 64 2e 0a |e second field..|
00007c50 09 20 20 2f 2f 0a 09 24 28 20 4c 45 54 20 64 79 |. //..$( LET dy|
00007c60 61 64 69 63 20 3d 20 6f 70 65 72 61 74 6f 72 0a |adic = operator.|
00007c70 09 20 20 20 6f 70 20 3a 3d 20 73 79 6d 62 0a 09 |. op := symb..|
00007c80 20 20 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 | NextSymb().. |
00007c90 20 20 52 45 53 55 4c 54 49 53 20 4c 69 73 74 34 | RESULTIS List4|
00007ca0 28 6f 70 2c 20 64 79 61 64 69 63 2c 20 61 2c 20 |(op, dyadic, a, |
00007cb0 52 45 78 70 4c 69 73 74 28 29 29 20 24 29 0a 0a |RExpList()) $)..|
00007cc0 09 49 46 20 53 6d 61 6c 6c 4e 75 6d 62 65 72 28 |.IF SmallNumber(|
00007cd0 61 29 20 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 |a) THEN SynRepor|
00007ce0 74 28 35 31 29 0a 0a 09 49 46 20 73 79 6d 62 3d |t(51)...IF symb=|
00007cf0 73 2e 63 6f 6c 6f 6e 20 54 48 45 4e 0a 09 24 28 |s.colon THEN..$(|
00007d00 20 49 46 20 68 31 21 61 7e 3d 73 2e 6e 61 6d 65 | IF h1!a~=s.name|
00007d10 20 54 48 45 4e 20 53 79 6e 52 65 70 6f 72 74 28 | THEN SynReport(|
00007d20 35 30 29 0a 09 20 20 20 4e 65 78 74 53 79 6d 62 |50).. NextSymb|
00007d30 28 29 0a 09 20 20 20 52 45 53 55 4c 54 49 53 20 |().. RESULTIS |
00007d40 4c 69 73 74 34 28 73 2e 63 6f 6c 6f 6e 2c 20 61 |List4(s.colon, a|
00007d50 2c 20 52 62 43 6f 6d 28 29 2c 20 30 29 20 24 29 |, RbCom(), 0) $)|
00007d60 0a 0a 09 49 46 20 68 31 21 61 3d 73 2e 66 6e 61 |...IF h1!a=s.fna|
00007d70 70 20 54 48 45 4e 0a 09 24 28 20 68 31 21 61 20 |p THEN..$( h1!a |
00007d80 3a 3d 20 73 2e 72 74 61 70 0a 09 20 20 20 52 45 |:= s.rtap.. RE|
00007d90 53 55 4c 54 49 53 20 61 20 24 29 0a 0a 09 53 79 |SULTIS a $)...Sy|
00007da0 6e 52 65 70 6f 72 74 28 35 31 29 0a 09 52 45 53 |nReport(51)..RES|
00007db0 55 4c 54 49 53 20 61 0a 0a 20 20 20 20 20 20 43 |ULTIS a.. C|
00007dc0 41 53 45 20 73 2e 67 6f 74 6f 3a 20 43 41 53 45 |ASE s.goto: CASE|
00007dd0 20 73 2e 72 65 73 75 6c 74 69 73 3a 0a 09 4e 65 | s.resultis:..Ne|
00007de0 78 74 53 79 6d 62 28 29 0a 09 52 45 53 55 4c 54 |xtSymb()..RESULT|
00007df0 49 53 20 4c 69 73 74 32 28 6f 70 2c 20 52 45 78 |IS List2(op, REx|
00007e00 70 28 30 29 29 0a 0a 20 20 20 20 20 20 43 41 53 |p(0)).. CAS|
00007e10 45 20 73 2e 69 66 3a 20 20 20 20 43 41 53 45 20 |E s.if: CASE |
00007e20 73 2e 75 6e 6c 65 73 73 3a 0a 20 20 20 20 20 20 |s.unless:. |
00007e30 43 41 53 45 20 73 2e 77 68 69 6c 65 3a 20 43 41 |CASE s.while: CA|
00007e40 53 45 20 73 2e 75 6e 74 69 6c 3a 0a 09 4e 65 78 |SE s.until:..Nex|
00007e50 74 53 79 6d 62 28 29 0a 09 61 20 3a 3d 20 52 45 |tSymb()..a := RE|
00007e60 78 70 28 30 29 0a 09 49 67 6e 6f 72 65 28 73 2e |xp(0)..Ignore(s.|
00007e70 64 6f 29 0a 09 52 45 53 55 4c 54 49 53 20 4c 69 |do)..RESULTIS Li|
00007e80 73 74 33 28 6f 70 2c 20 61 2c 20 52 43 6f 6d 28 |st3(op, a, RCom(|
00007e90 29 29 0a 0a 20 20 20 20 20 20 43 41 53 45 20 73 |)).. CASE s|
00007ea0 2e 74 65 73 74 3a 0a 09 4e 65 78 74 53 79 6d 62 |.test:..NextSymb|
00007eb0 28 29 0a 09 61 20 3a 3d 20 52 45 78 70 28 30 29 |()..a := RExp(0)|
00007ec0 0a 09 49 67 6e 6f 72 65 28 73 2e 64 6f 29 0a 09 |..Ignore(s.do)..|
00007ed0 62 20 3a 3d 20 52 43 6f 6d 28 29 0a 09 43 68 65 |b := RCom()..Che|
00007ee0 63 6b 46 6f 72 28 73 2e 6f 72 2c 20 35 34 29 0a |ckFor(s.or, 54).|
00007ef0 09 52 45 53 55 4c 54 49 53 20 4c 69 73 74 34 28 |.RESULTIS List4(|
00007f00 73 2e 74 65 73 74 2c 20 61 2c 20 62 2c 20 52 43 |s.test, a, b, RC|
00007f10 6f 6d 28 29 29 0a 0a 20 20 20 20 20 20 43 41 53 |om()).. CAS|
00007f20 45 20 73 2e 66 6f 72 3a 0a 09 24 28 20 4c 45 54 |E s.for:..$( LET|
00007f30 20 69 2c 20 6a 2c 20 6b 20 3d 20 30 2c 20 30 2c | i, j, k = 0, 0,|
00007f40 20 30 0a 0a 09 20 20 20 4e 65 78 74 53 79 6d 62 | 0... NextSymb|
00007f50 28 29 0a 09 20 20 20 61 20 3a 3d 20 52 4e 61 6d |().. a := RNam|
00007f60 65 28 29 0a 09 20 20 20 43 68 65 63 6b 46 6f 72 |e().. CheckFor|
00007f70 28 73 2e 65 71 2c 35 37 29 0a 0a 09 20 20 20 69 |(s.eq,57)... i|
00007f80 20 3a 3d 20 52 45 78 70 28 30 29 0a 09 20 20 20 | := RExp(0).. |
00007f90 43 68 65 63 6b 46 6f 72 28 73 2e 74 6f 2c 20 35 |CheckFor(s.to, 5|
00007fa0 38 29 0a 0a 09 20 20 20 6a 20 3a 3d 20 52 45 78 |8)... j := REx|
00007fb0 70 28 30 29 0a 0a 09 20 20 20 49 46 20 73 79 6d |p(0)... IF sym|
00007fc0 62 3d 73 2e 62 79 20 54 48 45 4e 0a 09 20 20 20 |b=s.by THEN.. |
00007fd0 24 28 20 4e 65 78 74 53 79 6d 62 28 29 0a 09 20 |$( NextSymb().. |
00007fe0 20 20 20 20 20 6b 20 3a 3d 20 52 45 78 70 28 30 | k := RExp(0|
00007ff0 29 20 24 29 0a 0a 09 20 20 20 49 67 6e 6f 72 65 |) $)... Ignore|
00008000 28 73 2e 64 6f 29 0a 09 20 20 20 52 45 53 55 4c |(s.do).. RESUL|
00008010 54 49 53 20 4c 69 73 74 36 28 73 2e 66 6f 72 2c |TIS List6(s.for,|
00008020 20 61 2c 20 69 2c 20 6a 2c 20 6b 2c 20 52 43 6f | a, i, j, k, RCo|
00008030 6d 28 29 29 0a 09 24 29 0a 0a 20 20 20 20 20 20 |m())..$).. |
00008040 43 41 53 45 20 73 2e 6c 6f 6f 70 3a 20 20 20 43 |CASE s.loop: C|
00008050 41 53 45 20 73 2e 62 72 65 61 6b 3a 20 43 41 53 |ASE s.break: CAS|
00008060 45 20 73 2e 65 6e 64 63 61 73 65 3a 0a 20 20 20 |E s.endcase:. |
00008070 20 20 20 43 41 53 45 20 73 2e 72 65 74 75 72 6e | CASE s.return|
00008080 3a 20 43 41 53 45 20 73 2e 66 69 6e 69 73 68 3a |: CASE s.finish:|
00008090 0a 09 61 20 3a 3d 20 77 6f 72 64 4e 6f 64 65 0a |..a := wordNode.|
000080a0 09 4e 65 78 74 53 79 6d 62 28 29 0a 09 52 45 53 |.NextSymb()..RES|
000080b0 55 4c 54 49 53 20 61 0a 0a 20 20 20 20 20 20 43 |ULTIS a.. C|
000080c0 41 53 45 20 73 2e 73 77 69 74 63 68 6f 6e 3a 0a |ASE s.switchon:.|
000080d0 09 24 28 20 4c 45 54 20 63 63 20 3d 20 63 61 73 |.$( LET cc = cas|
000080e0 65 43 6f 75 6e 74 0a 09 20 20 20 4c 45 54 20 72 |eCount.. LET r|
000080f0 65 73 20 3d 20 3f 0a 09 20 20 20 4c 45 54 20 73 |es = ?.. LET s|
00008100 65 63 74 20 3d 20 3f 0a 0a 09 20 20 20 4e 65 78 |ect = ?... Nex|
00008110 74 53 79 6d 62 28 29 0a 09 20 20 20 61 20 3a 3d |tSymb().. a :=|
00008120 20 52 45 78 70 28 30 29 0a 09 20 20 20 43 68 65 | RExp(0).. Che|
00008130 63 6b 46 6f 72 28 73 2e 69 6e 74 6f 2c 20 36 30 |ckFor(s.into, 60|
00008140 29 0a 0a 09 20 20 20 63 61 73 65 43 6f 75 6e 74 |)... caseCount|
00008150 20 3a 3d 20 30 0a 09 20 20 20 73 65 63 74 20 3a | := 0.. sect :|
00008160 3d 20 52 64 53 65 63 74 28 52 64 53 65 71 29 0a |= RdSect(RdSeq).|
00008170 09 20 20 20 72 65 73 20 3a 3d 20 4c 69 73 74 34 |. res := List4|
00008180 28 73 2e 73 77 69 74 63 68 6f 6e 2c 20 61 2c 20 |(s.switchon, a, |
00008190 73 65 63 74 2c 20 63 61 73 65 43 6f 75 6e 74 29 |sect, caseCount)|
000081a0 0a 09 20 20 20 63 61 73 65 43 6f 75 6e 74 20 3a |.. caseCount :|
000081b0 3d 20 63 63 0a 0a 09 20 20 20 52 45 53 55 4c 54 |= cc... RESULT|
000081c0 49 53 20 72 65 73 0a 09 24 29 0a 0a 20 20 20 20 |IS res..$).. |
000081d0 20 20 43 41 53 45 20 73 2e 63 61 73 65 3a 0a 09 | CASE s.case:..|
000081e0 4e 65 78 74 53 79 6d 62 28 29 0a 09 61 20 3a 3d |NextSymb()..a :=|
000081f0 20 52 45 78 70 28 30 29 0a 09 43 68 65 63 6b 46 | RExp(0)..CheckF|
00008200 6f 72 28 73 2e 63 6f 6c 6f 6e 2c 20 36 31 29 0a |or(s.colon, 61).|
00008210 09 63 61 73 65 43 6f 75 6e 74 20 3a 3d 20 63 61 |.caseCount := ca|
00008220 73 65 43 6f 75 6e 74 2b 31 0a 09 52 45 53 55 4c |seCount+1..RESUL|
00008230 54 49 53 20 4c 69 73 74 33 28 73 2e 63 61 73 65 |TIS List3(s.case|
00008240 2c 20 61 2c 20 52 62 43 6f 6d 28 29 29 0a 0a 20 |, a, RbCom()).. |
00008250 20 20 20 20 20 43 41 53 45 20 73 2e 64 65 66 61 | CASE s.defa|
00008260 75 6c 74 3a 0a 09 4e 65 78 74 53 79 6d 62 28 29 |ult:..NextSymb()|
00008270 0a 09 43 68 65 63 6b 46 6f 72 28 73 2e 63 6f 6c |..CheckFor(s.col|
00008280 6f 6e 2c 20 36 32 29 0a 09 52 45 53 55 4c 54 49 |on, 62)..RESULTI|
00008290 53 20 4c 69 73 74 32 28 73 2e 64 65 66 61 75 6c |S List2(s.defaul|
000082a0 74 2c 20 52 62 43 6f 6d 28 29 29 0a 0a 20 20 20 |t, RbCom()).. |
000082b0 20 20 20 43 41 53 45 20 73 2e 6c 73 65 63 74 3a | CASE s.lsect:|
000082c0 0a 09 52 45 53 55 4c 54 49 53 20 52 64 53 65 63 |..RESULTIS RdSec|
000082d0 74 28 52 64 42 6c 6f 63 6b 42 6f 64 79 29 0a 20 |t(RdBlockBody). |
000082e0 20 20 24 29 0a 24 29 0a 0a 41 4e 44 20 52 43 6f | $).$)..AND RCo|
000082f0 6d 28 29 20 3d 20 56 41 4c 4f 46 0a 24 28 20 4c |m() = VALOF.$( L|
00008300 45 54 20 61 20 3d 20 52 62 43 6f 6d 28 29 0a 0a |ET a = RbCom()..|
00008310 20 20 20 49 46 20 61 3d 30 20 54 48 45 4e 20 53 | IF a=0 THEN S|
00008320 79 6e 52 65 70 6f 72 74 28 35 31 29 0a 0a 20 20 |ynReport(51).. |
00008330 20 57 48 49 4c 45 20 73 79 6d 62 3d 73 2e 72 65 | WHILE symb=s.re|
00008340 70 65 61 74 20 7c 20 73 79 6d 62 3d 73 2e 72 65 |peat | symb=s.re|
00008350 70 65 61 74 77 68 69 6c 65 20 7c 20 73 79 6d 62 |peatwhile | symb|
00008360 3d 73 2e 72 65 70 65 61 74 75 6e 74 69 6c 20 44 |=s.repeatuntil D|
00008370 4f 0a 20 20 20 24 28 20 4c 45 54 20 6f 70 20 3d |O. $( LET op =|
00008380 20 73 79 6d 62 0a 20 20 20 20 20 20 4e 65 78 74 | symb. Next|
00008390 53 79 6d 62 28 29 0a 20 20 20 20 20 20 61 20 3a |Symb(). a :|
000083a0 3d 20 6f 70 3d 73 2e 72 65 70 65 61 74 20 2d 3e |= op=s.repeat ->|
000083b0 20 4c 69 73 74 32 28 6f 70 2c 20 61 29 2c 0a 09 | List2(op, a),..|
000083c0 09 09 20 20 4c 69 73 74 33 28 6f 70 2c 20 61 2c |.. List3(op, a,|
000083d0 20 52 45 78 70 28 30 29 29 20 24 29 0a 0a 20 20 | RExp(0)) $).. |
000083e0 20 52 45 53 55 4c 54 49 53 20 61 0a 24 29 0a 0a | RESULTIS a.$)..|
000083f0 
.