home *** CD-ROM | disk | FTP | other *** search
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: part12
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news textAlgol 68 source text
| default
| |
| 99%
| file
| Pascal source, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| dexmagic
| PrintFox/Pagefox WEAK
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/news
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 72 73 0a 46 |Path: uu|net!rs.F|
|00000010| 72 6f 6d 3a 20 72 73 40 | 75 75 6e 65 74 2e 55 55 |rom: rs@|uunet.UU|
|00000020| 2e 4e 45 54 20 28 52 69 | 63 68 20 53 61 6c 7a 29 |.NET (Ri|ch Salz)|
|00000030| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 63 6f 6d |.Newsgro|ups: com|
|00000040| 70 2e 73 6f 75 72 63 65 | 73 2e 75 6e 69 78 0a 53 |p.source|s.unix.S|
|00000050| 75 62 6a 65 63 74 3a 20 | 76 31 30 69 30 37 36 3a |ubject: |v10i076:|
|00000060| 20 20 50 61 73 63 61 6c | 20 74 6f 20 43 20 74 72 | Pascal| to C tr|
|00000070| 61 6e 73 6c 61 74 6f 72 | 2c 20 50 61 72 74 31 32 |anslator|, Part12|
|00000080| 2f 31 32 0a 4d 65 73 73 | 61 67 65 2d 49 44 3a 20 |/12.Mess|age-ID: |
|00000090| 3c 37 32 39 40 75 75 6e | 65 74 2e 55 55 2e 4e 45 |<729@uun|et.UU.NE|
|000000a0| 54 3e 0a 44 61 74 65 3a | 20 33 30 20 4a 75 6c 20 |T>.Date:| 30 Jul |
|000000b0| 38 37 20 30 30 3a 33 31 | 3a 31 30 20 47 4d 54 0a |87 00:31|:10 GMT.|
|000000c0| 4f 72 67 61 6e 69 7a 61 | 74 69 6f 6e 3a 20 55 55 |Organiza|tion: UU|
|000000d0| 4e 45 54 20 43 6f 6d 6d | 75 6e 69 63 61 74 69 6f |NET Comm|unicatio|
|000000e0| 6e 73 20 53 65 72 76 69 | 63 65 73 2c 20 41 72 6c |ns Servi|ces, Arl|
|000000f0| 69 6e 67 74 6f 6e 2c 20 | 56 41 0a 4c 69 6e 65 73 |ington, |VA.Lines|
|00000100| 3a 20 32 35 34 37 0a 41 | 70 70 72 6f 76 65 64 3a |: 2547.A|pproved:|
|00000110| 20 72 73 40 75 75 6e 65 | 74 2e 55 55 2e 4e 45 54 | rs@uune|t.UU.NET|
|00000120| 0a 0a 53 75 62 6d 69 74 | 74 65 64 2d 62 79 3a 20 |..Submit|ted-by: |
|00000130| 50 65 72 20 42 65 72 67 | 73 74 65 6e 20 3c 6d 63 |Per Berg|sten <mc|
|00000140| 76 61 78 21 65 6e 65 61 | 21 63 68 61 6c 6d 65 72 |vax!enea|!chalmer|
|00000150| 73 21 68 6f 6c 74 65 63 | 21 70 65 72 62 3e 0a 50 |s!holtec|!perb>.P|
|00000160| 6f 73 74 69 6e 67 2d 6e | 75 6d 62 65 72 3a 20 56 |osting-n|umber: V|
|00000170| 6f 6c 75 6d 65 20 31 30 | 2c 20 49 73 73 75 65 20 |olume 10|, Issue |
|00000180| 37 36 0a 41 72 63 68 69 | 76 65 2d 6e 61 6d 65 3a |76.Archi|ve-name:|
|00000190| 20 70 74 6f 63 2f 50 61 | 72 74 31 32 0a 0a 0a 23 | ptoc/Pa|rt12...#|
|000001a0| 21 20 2f 62 69 6e 2f 73 | 68 0a 23 20 54 68 69 73 |! /bin/s|h.# This|
|000001b0| 20 69 73 20 61 20 73 68 | 65 6c 6c 20 61 72 63 68 | is a sh|ell arch|
|000001c0| 69 76 65 2e 20 20 52 65 | 6d 6f 76 65 20 61 6e 79 |ive. Re|move any|
|000001d0| 74 68 69 6e 67 20 62 65 | 66 6f 72 65 20 74 68 69 |thing be|fore thi|
|000001e0| 73 20 6c 69 6e 65 2c 20 | 74 68 65 6e 20 75 6e 70 |s line, |then unp|
|000001f0| 61 63 6b 0a 23 20 69 74 | 20 62 79 20 73 61 76 69 |ack.# it| by savi|
|00000200| 6e 67 20 69 74 20 69 6e | 74 6f 20 61 20 66 69 6c |ng it in|to a fil|
|00000210| 65 20 61 6e 64 20 74 79 | 70 69 6e 67 20 22 73 68 |e and ty|ping "sh|
|00000220| 20 66 69 6c 65 22 2e 20 | 20 54 6f 20 6f 76 65 72 | file". | To over|
|00000230| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 0a 23 |write ex|isting.#|
|00000240| 20 66 69 6c 65 73 2c 20 | 74 79 70 65 20 22 73 68 | files, |type "sh|
|00000250| 20 66 69 6c 65 20 2d 63 | 22 2e 20 20 59 6f 75 20 | file -c|". You |
|00000260| 63 61 6e 20 61 6c 73 6f | 20 66 65 65 64 20 74 68 |can also| feed th|
|00000270| 69 73 20 61 73 20 73 74 | 61 6e 64 61 72 64 20 69 |is as st|andard i|
|00000280| 6e 70 75 74 20 76 69 61 | 0a 23 20 75 6e 73 68 61 |nput via|.# unsha|
|00000290| 72 2c 20 6f 72 20 62 79 | 20 74 79 70 69 6e 67 20 |r, or by| typing |
|000002a0| 22 73 68 20 3c 66 69 6c | 65 22 2c 20 65 2e 67 2e |"sh <fil|e", e.g.|
|000002b0| 2e 20 20 49 66 20 74 68 | 69 73 20 61 72 63 68 69 |. If th|is archi|
|000002c0| 76 65 20 69 73 20 63 6f | 6d 70 6c 65 74 65 2c 20 |ve is co|mplete, |
|000002d0| 79 6f 75 0a 23 20 77 69 | 6c 6c 20 73 65 65 20 74 |you.# wi|ll see t|
|000002e0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6d 65 73 |he follo|wing mes|
|000002f0| 73 61 67 65 20 61 74 20 | 74 68 65 20 65 6e 64 3a |sage at |the end:|
|00000300| 0a 23 09 09 22 45 6e 64 | 20 6f 66 20 61 72 63 68 |.#.."End| of arch|
|00000310| 69 76 65 20 31 32 20 28 | 6f 66 20 31 32 29 2e 22 |ive 12 (|of 12)."|
|00000320| 0a 23 20 43 6f 6e 74 65 | 6e 74 73 3a 20 20 70 74 |.# Conte|nts: pt|
|00000330| 63 2e 70 2e 31 0a 69 66 | 20 74 65 73 74 20 2d 66 |c.p.1.if| test -f|
|00000340| 20 27 70 74 63 2e 70 2e | 31 27 20 2d 61 20 22 24 | 'ptc.p.|1' -a "$|
|00000350| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00000360| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|00000370| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 63 6c 6f 62 62 |: Will n|ot clobb|
|00000380| 65 72 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |er exist|ing file|
|00000390| 20 5c 22 27 70 74 63 2e | 70 2e 31 27 5c 22 0a 65 | \"'ptc.|p.1'\".e|
|000003a0| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|000003b0| 78 74 72 61 63 74 69 6e | 67 20 5c 22 27 70 74 63 |xtractin|g \"'ptc|
|000003c0| 2e 70 2e 31 27 5c 22 20 | 5c 28 35 39 33 34 37 20 |.p.1'\" |\(59347 |
|000003d0| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|000003e0| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 27 70 74 63 2e | "s/^X//|" >'ptc.|
|000003f0| 70 2e 31 27 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 46 |p.1' <<'|END_OF_F|
|00000400| 49 4c 45 27 0a 58 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ILE'.X(*|********|
|00000410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000450| 2a 2a 29 0a 58 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |**).X(**|********|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004a0| 2a 29 0a 58 28 2a 2a 09 | 09 09 09 09 09 09 09 09 |*).X(**.|........|
|000004b0| 20 20 2a 2a 29 0a 58 28 | 2a 2a 09 43 6f 70 79 72 | **).X(|**.Copyr|
|000004c0| 69 67 68 74 20 28 43 29 | 20 31 39 38 37 20 62 79 |ight (C)| 1987 by|
|000004d0| 20 50 65 72 20 42 65 72 | 67 73 74 65 6e 2c 20 47 | Per Ber|gsten, G|
|000004e0| 6f 74 68 65 6e 62 75 72 | 67 2c 20 53 77 65 64 65 |othenbur|g, Swede|
|000004f0| 6e 09 09 20 20 2a 2a 29 | 0a 58 28 2a 2a 09 09 09 |n.. **)|.X(**...|
|00000500| 09 09 09 09 09 09 20 20 | 2a 2a 29 0a 58 28 2a 2a |...... |**).X(**|
|00000510| 09 4e 6f 20 70 61 72 74 | 20 6f 66 20 74 68 69 73 |.No part| of this|
|00000520| 20 70 72 6f 67 72 61 6d | 2c 20 6f 72 20 70 61 72 | program|, or par|
|00000530| 74 73 20 64 65 72 69 76 | 65 64 20 66 72 6f 6d 20 |ts deriv|ed from |
|00000540| 74 68 69 73 20 70 72 6f | 67 72 61 6d 2c 09 20 20 |this pro|gram,. |
|00000550| 2a 2a 29 0a 58 28 2a 2a | 09 6d 61 79 20 62 65 20 |**).X(**|.may be |
|00000560| 73 6f 6c 64 2c 20 68 69 | 72 65 64 20 6f 72 20 6f |sold, hi|red or o|
|00000570| 74 68 65 72 77 69 73 65 | 20 65 78 70 6c 6f 69 74 |therwise| exploit|
|00000580| 65 64 20 77 69 74 68 6f | 75 74 20 74 68 65 20 61 |ed witho|ut the a|
|00000590| 75 74 68 6f 72 27 73 09 | 20 20 2a 2a 29 0a 58 28 |uthor's.| **).X(|
|000005a0| 2a 2a 09 77 72 69 74 74 | 65 6e 20 63 6f 6e 73 65 |**.writt|en conse|
|000005b0| 6e 74 2e 09 09 09 09 09 | 09 20 20 2a 2a 29 0a 58 |nt......|. **).X|
|000005c0| 28 2a 2a 09 09 09 09 09 | 09 09 09 09 20 20 2a 2a |(**.....|.... **|
|000005d0| 29 0a 58 28 2a 2a 09 54 | 68 65 20 70 72 6f 67 72 |).X(**.T|he progr|
|000005e0| 61 6d 20 6d 61 79 20 62 | 65 20 66 72 65 65 6c 79 |am may b|e freely|
|000005f0| 20 72 65 64 69 73 74 72 | 69 62 75 74 65 64 20 70 | redistr|ibuted p|
|00000600| 72 6f 76 69 64 65 64 20 | 74 68 61 74 3a 09 09 20 |rovided |that:.. |
|00000610| 20 2a 2a 29 0a 58 28 2a | 2a 09 09 09 09 09 09 09 | **).X(*|*.......|
|00000620| 09 09 20 20 2a 2a 29 0a | 58 28 2a 2a 09 09 31 29 |.. **).|X(**..1)|
|00000630| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 70 72 | the ori|ginal pr|
|00000640| 6f 67 72 61 6d 20 74 65 | 78 74 2c 20 69 6e 63 6c |ogram te|xt, incl|
|00000650| 75 64 69 6e 67 20 74 68 | 69 73 20 6e 6f 74 69 63 |uding th|is notic|
|00000660| 65 2c 09 20 20 2a 2a 29 | 0a 58 28 2a 2a 09 09 20 |e,. **)|.X(**.. |
|00000670| 20 20 69 73 20 72 65 70 | 72 6f 64 75 63 65 64 20 | is rep|roduced |
|00000680| 75 6e 61 6c 74 65 72 65 | 64 2c 09 09 09 09 20 20 |unaltere|d,.... |
|00000690| 2a 2a 29 0a 58 28 2a 2a | 09 09 32 29 20 6e 6f 20 |**).X(**|..2) no |
|000006a0| 63 68 61 72 67 65 20 28 | 6f 74 68 65 72 20 74 68 |charge (|other th|
|000006b0| 61 6e 20 61 20 6e 6f 6d | 69 6e 61 6c 20 6d 65 64 |an a nom|inal med|
|000006c0| 69 61 20 63 6f 73 74 29 | 20 69 73 09 20 20 2a 2a |ia cost)| is. **|
|000006d0| 29 0a 58 28 2a 2a 09 09 | 20 20 20 64 65 6d 61 6e |).X(**..| deman|
|000006e0| 64 65 64 20 66 6f 72 20 | 74 68 65 20 63 6f 70 79 |ded for |the copy|
|000006f0| 2e 09 09 09 09 20 20 2a | 2a 29 0a 58 28 2a 2a 09 |..... *|*).X(**.|
|00000700| 09 09 09 09 09 09 09 09 | 20 20 2a 2a 29 0a 58 28 |........| **).X(|
|00000710| 2a 2a 09 54 68 65 20 70 | 72 6f 67 72 61 6d 20 6d |**.The p|rogram m|
|00000720| 61 79 20 62 65 20 69 6e | 63 6c 75 64 65 64 20 69 |ay be in|cluded i|
|00000730| 6e 20 61 20 70 61 63 6b | 61 67 65 20 6f 6e 6c 79 |n a pack|age only|
|00000740| 20 6f 6e 20 74 68 65 20 | 63 6f 6e 64 69 74 69 6f | on the |conditio|
|00000750| 6e 09 20 20 2a 2a 29 0a | 58 28 2a 2a 09 74 68 61 |n. **).|X(**.tha|
|00000760| 74 20 74 68 65 20 70 61 | 63 6b 61 67 65 20 61 73 |t the pa|ckage as|
|00000770| 20 61 20 77 68 6f 6c 65 | 20 69 73 20 64 69 73 74 | a whole| is dist|
|00000780| 72 69 62 75 74 65 64 20 | 61 74 20 6d 65 64 69 61 |ributed |at media|
|00000790| 20 63 6f 73 74 2e 09 20 | 20 2a 2a 29 0a 58 28 2a | cost.. | **).X(*|
|000007a0| 2a 09 09 09 09 09 09 09 | 09 09 20 20 2a 2a 29 0a |*.......|.. **).|
|000007b0| 58 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X(******|********|
|000007c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0a 58 |********|*****).X|
|00000800| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0a 58 28 |********|****).X(|
|00000850| 2a 2a 09 09 09 09 09 09 | 09 09 09 20 20 2a 2a 29 |**......|... **)|
|00000860| 0a 58 28 2a 2a 09 54 68 | 65 20 70 72 6f 67 72 61 |.X(**.Th|e progra|
|00000870| 6d 20 70 74 63 20 69 73 | 20 61 20 50 61 73 63 61 |m ptc is| a Pasca|
|00000880| 6c 2d 74 6f 2d 43 20 74 | 72 61 6e 73 6c 61 74 6f |l-to-C t|ranslato|
|00000890| 72 2e 09 09 09 20 20 2a | 2a 29 0a 58 28 2a 2a 09 |r.... *|*).X(**.|
|000008a0| 49 74 20 61 63 63 65 70 | 74 73 20 61 20 63 6f 72 |It accep|ts a cor|
|000008b0| 72 65 63 74 20 50 61 73 | 63 61 6c 20 70 72 6f 67 |rect Pas|cal prog|
|000008c0| 72 61 6d 20 61 6e 64 20 | 63 72 65 61 74 65 73 20 |ram and |creates |
|000008d0| 61 20 43 20 70 72 6f 67 | 72 61 6d 09 20 20 2a 2a |a C prog|ram. **|
|000008e0| 29 0a 58 28 2a 2a 09 77 | 69 74 68 20 74 68 65 20 |).X(**.w|ith the |
|000008f0| 73 61 6d 65 20 62 65 68 | 61 76 69 6f 75 72 2e 20 |same beh|aviour. |
|00000900| 49 74 20 69 73 20 6e 6f | 74 20 61 20 63 6f 6d 70 |It is no|t a comp|
|00000910| 6c 65 74 65 20 63 6f 6d | 70 69 6c 65 72 20 69 6e |lete com|piler in|
|00000920| 20 74 68 65 09 20 20 2a | 2a 29 0a 58 28 2a 2a 09 | the. *|*).X(**.|
|00000930| 73 65 6e 73 65 20 74 68 | 61 74 20 69 74 20 64 6f |sense th|at it do|
|00000940| 65 73 20 4e 4f 54 20 64 | 6f 20 63 6f 6d 70 6c 65 |es NOT d|o comple|
|00000950| 74 65 20 74 79 70 65 63 | 68 65 63 6b 69 6e 67 20 |te typec|hecking |
|00000960| 6f 72 20 65 72 72 6f 72 | 2d 09 20 20 2a 2a 29 0a |or error|-. **).|
|00000970| 58 28 2a 2a 09 72 65 70 | 6f 72 74 69 6e 67 2e 20 |X(**.rep|orting. |
|00000980| 4f 6e 6c 79 20 61 20 6d | 69 6e 69 6d 61 6c 20 74 |Only a m|inimal t|
|00000990| 79 70 65 63 68 65 63 6b | 20 69 73 20 64 6f 6e 65 |ypecheck| is done|
|000009a0| 20 73 6f 20 74 68 61 74 | 20 74 68 65 20 6d 65 61 | so that| the mea|
|000009b0| 6e 69 6e 67 09 20 20 2a | 2a 29 0a 58 28 2a 2a 09 |ning. *|*).X(**.|
|000009c0| 6f 66 20 65 61 63 68 20 | 63 6f 6e 73 74 72 75 63 |of each |construc|
|000009d0| 74 20 63 61 6e 20 62 65 | 20 64 65 74 65 72 6d 69 |t can be| determi|
|000009e0| 6e 65 64 2e 20 54 68 65 | 72 65 66 6f 72 65 2c 20 |ned. The|refore, |
|000009f0| 61 6e 20 69 6e 63 6f 72 | 72 65 63 74 09 20 20 2a |an incor|rect. *|
|00000a00| 2a 29 0a 58 28 2a 2a 09 | 50 61 73 63 61 6c 20 70 |*).X(**.|Pascal p|
|00000a10| 72 6f 67 72 61 6d 20 63 | 61 6e 20 65 61 73 69 6c |rogram c|an easil|
|00000a20| 79 20 63 61 75 73 65 20 | 74 68 65 20 74 72 61 6e |y cause |the tran|
|00000a30| 73 6c 61 74 6f 72 20 74 | 6f 20 6d 61 6c 66 75 6e |slator t|o malfun|
|00000a40| 63 74 69 6f 6e 2e 09 20 | 20 2a 2a 29 0a 58 28 2a |ction.. | **).X(*|
|00000a50| 2a 09 09 09 09 09 09 09 | 09 09 20 20 2a 2a 29 0a |*.......|.. **).|
|00000a60| 58 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X(******|********|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0a 58 |********|*****).X|
|00000ab0| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00000ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0a 58 28 |********|****).X(|
|00000b00| 2a 2a 09 09 09 09 09 09 | 09 09 09 20 20 2a 2a 29 |**......|... **)|
|00000b10| 0a 58 28 2a 2a 09 54 68 | 69 6e 67 73 20 77 68 69 |.X(**.Th|ings whi|
|00000b20| 63 68 20 61 72 65 20 6b | 6e 6f 77 6e 20 74 6f 20 |ch are k|nown to |
|00000b30| 62 65 20 64 65 70 65 6e | 64 65 6e 74 20 6f 6e 20 |be depen|dent on |
|00000b40| 74 68 65 20 75 6e 64 65 | 72 6c 79 69 6e 67 20 63 |the unde|rlying c|
|00000b50| 68 61 2d 09 20 20 2a 2a | 29 0a 58 28 2a 2a 09 72 |ha-. **|).X(**.r|
|00000b60| 61 63 74 65 72 73 65 74 | 20 61 72 65 20 6d 61 72 |acterset| are mar|
|00000b70| 6b 65 64 20 77 69 74 68 | 20 61 20 63 6f 6d 6d 65 |ked with| a comme|
|00000b80| 6e 74 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |nt conta|ining th|
|00000b90| 65 20 77 6f 72 64 09 43 | 48 41 52 2e 09 20 20 2a |e word.C|HAR.. *|
|00000ba0| 2a 29 0a 58 28 2a 2a 09 | 54 68 69 6e 67 73 20 74 |*).X(**.|Things t|
|00000bb0| 68 61 74 20 61 72 65 20 | 6b 6e 6f 77 6e 20 74 6f |hat are |known to|
|00000bc0| 20 62 65 20 64 65 70 65 | 6e 64 65 6e 74 20 6f 6e | be depe|ndent on|
|00000bd0| 20 74 68 65 20 68 6f 73 | 74 20 6f 70 65 72 61 74 | the hos|t operat|
|00000be0| 69 6e 67 09 20 20 2a 2a | 29 0a 58 28 2a 2a 09 73 |ing. **|).X(**.s|
|00000bf0| 79 73 74 65 6d 20 61 72 | 65 20 6d 61 72 6b 65 64 |ystem ar|e marked|
|00000c00| 20 77 69 74 68 20 61 20 | 63 6f 6d 6d 65 6e 74 20 | with a |comment |
|00000c10| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 74 68 65 20 77 |containi|ng the w|
|00000c20| 6f 72 64 20 4f 53 2e 09 | 20 20 2a 2a 29 0a 58 28 |ord OS..| **).X(|
|00000c30| 2a 2a 09 54 68 69 6e 67 | 73 20 6b 6e 6f 77 6e 20 |**.Thing|s known |
|00000c40| 74 6f 20 62 65 20 64 65 | 70 65 6e 64 65 6e 74 20 |to be de|pendent |
|00000c50| 6f 6e 20 74 68 65 20 63 | 70 75 20 61 6e 64 2f 6f |on the c|pu and/o|
|00000c60| 72 20 74 68 65 20 74 61 | 72 67 65 74 20 43 2d 09 |r the ta|rget C-.|
|00000c70| 20 20 2a 2a 29 0a 58 28 | 2a 2a 09 69 6d 70 6c 65 | **).X(|**.imple|
|00000c80| 6d 65 6e 74 61 74 69 6f | 6e 20 61 72 65 20 6d 61 |mentatio|n are ma|
|00000c90| 72 6b 65 64 20 77 69 74 | 68 20 74 68 65 20 77 6f |rked wit|h the wo|
|00000ca0| 72 64 20 43 50 55 2e 09 | 09 09 20 20 2a 2a 29 0a |rd CPU..|.. **).|
|00000cb0| 58 28 2a 2a 09 54 68 69 | 6e 67 73 20 64 65 70 65 |X(**.Thi|ngs depe|
|00000cc0| 6e 64 65 6e 74 20 6f 6e | 20 74 68 65 20 74 61 72 |ndent on| the tar|
|00000cd0| 67 65 74 20 43 2d 6c 69 | 62 72 61 72 79 20 61 72 |get C-li|brary ar|
|00000ce0| 65 20 6d 61 72 6b 65 64 | 20 77 69 74 68 20 4c 49 |e marked| with LI|
|00000cf0| 42 2e 09 20 20 2a 2a 29 | 0a 58 28 2a 2a 09 09 09 |B.. **)|.X(**...|
|00000d00| 09 09 09 09 09 09 20 20 | 2a 2a 29 0a 58 28 2a 2a |...... |**).X(**|
|00000d10| 09 54 68 65 20 63 6f 64 | 65 20 67 65 6e 65 72 61 |.The cod|e genera|
|00000d20| 74 65 64 20 62 79 20 74 | 68 65 20 74 72 61 6e 73 |ted by t|he trans|
|00000d30| 6c 61 74 6f 72 20 61 73 | 73 75 6d 65 73 20 74 68 |lator as|sumes th|
|00000d40| 61 74 20 74 68 65 72 65 | 09 69 73 20 61 09 20 20 |at there|.is a. |
|00000d50| 2a 2a 29 0a 58 28 2a 2a | 09 43 2d 69 6d 70 6c 65 |**).X(**|.C-imple|
|00000d60| 6d 65 6e 74 61 74 69 6f | 6e 20 77 69 74 68 20 61 |mentatio|n with a|
|00000d70| 74 20 6c 65 61 73 74 20 | 61 20 72 65 61 73 6f 6e |t least |a reason|
|00000d80| 61 62 6c 65 20 3c 73 74 | 64 69 6f 3e 20 6c 69 62 |able <st|dio> lib|
|00000d90| 72 61 72 79 09 20 20 2a | 2a 29 0a 58 28 2a 2a 09 |rary. *|*).X(**.|
|00000da0| 73 69 6e 63 65 20 61 6c | 6c 20 69 6e 70 75 74 2f |since al|l input/|
|00000db0| 6f 75 74 70 75 74 20 69 | 73 20 69 6d 70 6c 65 6d |output i|s implem|
|00000dc0| 65 6e 74 65 64 20 69 6e | 20 74 65 72 6d 73 20 6f |ented in| terms o|
|00000dd0| 66 20 43 20 66 75 6e 63 | 74 69 6f 6e 73 09 20 20 |f C func|tions. |
|00000de0| 2a 2a 29 0a 58 28 2a 2a | 09 6c 69 6b 65 20 66 70 |**).X(**|.like fp|
|00000df0| 72 69 6e 74 66 28 29 2c | 20 67 65 74 63 28 29 2c |rintf(),| getc(),|
|00000e00| 20 66 6f 70 65 6e 28 29 | 2c 20 72 65 77 69 6e 64 | fopen()|, rewind|
|00000e10| 28 29 20 65 74 63 2e 09 | 09 09 20 20 2a 2a 29 0a |() etc..|.. **).|
|00000e20| 58 28 2a 2a 09 49 66 20 | 74 68 65 20 73 6f 75 72 |X(**.If |the sour|
|00000e30| 63 65 2d 70 72 6f 67 72 | 61 6d 20 75 73 65 73 20 |ce-progr|am uses |
|00000e40| 50 61 73 63 61 6c 20 66 | 75 6e 63 74 69 6f 6e 73 |Pascal f|unctions|
|00000e50| 20 6c 69 6b 65 20 73 69 | 6e 28 29 2c 20 73 71 72 | like si|n(), sqr|
|00000e60| 74 28 29 09 20 20 2a 2a | 29 0a 58 28 2a 2a 09 65 |t(). **|).X(**.e|
|00000e70| 74 63 2c 20 74 68 65 72 | 65 20 6d 75 73 74 20 61 |tc, ther|e must a|
|00000e80| 6c 73 6f 20 65 78 69 73 | 74 20 73 75 63 68 20 66 |lso exis|t such f|
|00000e90| 75 6e 63 74 69 6f 6e 73 | 20 69 6e 20 74 68 65 20 |unctions| in the |
|00000ea0| 43 2d 6c 69 62 72 61 72 | 79 2e 09 20 20 2a 2a 29 |C-librar|y.. **)|
|00000eb0| 0a 58 28 2a 2a 09 09 09 | 09 09 09 09 09 09 20 20 |.X(**...|...... |
|00000ec0| 2a 2a 29 0a 58 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |**).X(**|********|
|00000ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f10| 2a 29 0a 58 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*).X(***|********|
|00000f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f60| 29 0a 58 0a 58 70 72 6f | 67 72 61 6d 09 70 74 63 |).X.Xpro|gram.ptc|
|00000f70| 28 69 6e 70 75 74 2c 20 | 6f 75 74 70 75 74 29 3b |(input, |output);|
|00000f80| 0a 58 0a 58 6c 61 62 65 | 6c 09 39 39 39 39 3b 09 |.X.Xlabe|l.9999;.|
|00000f90| 09 09 09 28 2a 20 65 6e | 64 20 6f 66 20 70 72 6f |...(* en|d of pro|
|00000fa0| 67 72 61 6d 09 09 2a 29 | 0a 58 0a 58 63 6f 6e 73 |gram..*)|.X.Xcons|
|00000fb0| 74 09 76 65 72 73 69 6f | 6e 09 09 3d 20 27 40 28 |t.versio|n..= '@(|
|00000fc0| 23 29 70 74 63 2e 70 09 | 31 2e 35 20 20 44 61 74 |#)ptc.p.|1.5 Dat|
|00000fd0| 65 20 38 37 2f 30 35 2f | 30 31 27 3b 0a 58 0a 58 |e 87/05/|01';.X.X|
|00000fe0| 09 6b 65 79 74 61 62 6c | 65 6e 09 3d 20 33 38 3b |.keytabl|en.= 38;|
|00000ff0| 09 09 28 2a 20 6e 72 20 | 6f 66 20 6b 65 79 77 6f |..(* nr |of keywo|
|00001000| 72 64 73 09 09 2a 29 0a | 58 09 6b 65 79 77 6f 72 |rds..*).|X.keywor|
|00001010| 64 6c 65 6e 09 3d 20 31 | 30 3b 09 09 28 2a 20 6c |dlen.= 1|0;..(* l|
|00001020| 65 6e 67 74 68 20 6f 66 | 20 61 20 6b 65 79 77 6f |ength of| a keywo|
|00001030| 72 64 09 09 2a 29 0a 58 | 09 6f 74 68 65 72 73 79 |rd..*).X|.othersy|
|00001040| 6d 09 3d 20 27 6f 74 68 | 65 72 77 69 73 65 20 27 |m.= 'oth|erwise '|
|00001050| 3b 20 28 2a 20 6b 65 79 | 77 6f 72 64 20 66 6f 72 |; (* key|word for|
|00001060| 20 6f 74 68 65 72 73 09 | 09 2a 29 0a 58 09 65 78 | others.|.*).X.ex|
|00001070| 74 65 72 6e 73 79 6d 09 | 3d 20 27 65 78 74 65 72 |ternsym.|= 'exter|
|00001080| 6e 61 6c 20 20 27 3b 20 | 28 2a 20 6b 65 79 77 6f |nal '; |(* keywo|
|00001090| 72 64 20 66 6f 72 20 65 | 78 74 65 72 6e 61 6c 09 |rd for e|xternal.|
|000010a0| 09 2a 29 0a 58 09 64 75 | 6d 6d 79 73 79 6d 09 3d |.*).X.du|mmysym.=|
|000010b0| 20 27 20 20 20 20 20 20 | 20 20 20 20 27 3b 20 28 | ' | '; (|
|000010c0| 2a 20 64 75 6d 6d 79 20 | 6b 65 79 77 6f 72 64 09 |* dummy |keyword.|
|000010d0| 09 2a 29 0a 58 0a 58 09 | 28 2a 20 61 20 50 61 73 |.*).X.X.|(* a Pas|
|000010e0| 63 61 6c 20 73 65 74 20 | 69 73 20 69 6d 70 6c 65 |cal set |is imple|
|000010f0| 6d 65 6e 74 65 64 20 61 | 73 20 61 6e 20 61 72 72 |mented a|s an arr|
|00001100| 61 79 20 6f 66 20 22 77 | 6f 72 64 74 79 70 65 22 |ay of "w|ordtype"|
|00001110| 20 77 68 65 72 65 09 2a | 29 0a 58 09 28 2a 20 65 | where.*|).X.(* e|
|00001120| 61 63 68 20 65 6c 65 6d | 65 6e 74 20 63 6f 6e 74 |ach elem|ent cont|
|00001130| 61 69 6e 73 20 62 69 74 | 73 20 6e 75 6d 62 65 72 |ains bit|s number|
|00001140| 65 64 20 66 72 6f 6d 20 | 30 20 74 6f 20 22 73 65 |ed from |0 to "se|
|00001150| 74 62 69 74 73 22 09 2a | 29 0a 58 09 77 6f 72 64 |tbits".*|).X.word|
|00001160| 74 79 70 65 09 3d 20 27 | 75 6e 73 69 67 6e 65 64 |type.= '|unsigned|
|00001170| 20 73 68 6f 72 74 27 3b | 09 28 2a 20 43 50 55 20 | short';|.(* CPU |
|00001180| 2a 29 0a 58 09 73 65 74 | 62 69 74 73 09 09 3d 20 |*).X.set|bits..= |
|00001190| 31 35 3b 09 09 09 28 2a | 20 43 50 55 20 2a 29 0a |15;...(*| CPU *).|
|000011a0| 58 0a 58 09 28 2a 20 61 | 20 50 61 73 63 61 6c 20 |X.X.(* a| Pascal |
|000011b0| 66 69 6c 65 20 69 73 20 | 69 6d 70 6c 65 6d 65 6e |file is |implemen|
|000011c0| 74 65 64 20 61 73 20 61 | 20 73 74 72 75 63 74 20 |ted as a| struct |
|000011d0| 77 68 69 63 68 20 28 61 | 6d 6f 6e 67 20 6f 74 68 |which (a|mong oth|
|000011e0| 65 72 09 2a 29 0a 58 09 | 28 2a 20 74 68 69 6e 67 |er.*).X.|(* thing|
|000011f0| 73 29 20 63 6f 6e 74 61 | 69 6e 20 61 20 66 6c 61 |s) conta|in a fla|
|00001200| 67 2d 66 69 65 6c 64 2c | 20 63 75 72 72 65 6e 74 |g-field,| current|
|00001210| 6c 79 20 33 20 62 69 74 | 73 20 61 72 65 20 75 73 |ly 3 bit|s are us|
|00001220| 65 64 09 2a 29 0a 58 09 | 66 69 6c 65 62 69 74 73 |ed.*).X.|filebits|
|00001230| 09 3d 20 27 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |.= 'unsi|gned sho|
|00001240| 72 74 27 3b 09 28 2a 20 | 66 6c 61 67 73 20 66 6f |rt';.(* |flags fo|
|00001250| 72 20 66 69 6c 65 73 09 | 2a 29 0a 58 09 66 69 6c |r files.|*).X.fil|
|00001260| 65 66 69 6c 6c 09 3d 20 | 31 32 3b 09 09 09 28 2a |efill.= |12;...(*|
|00001270| 20 31 36 20 6c 65 73 73 | 20 75 73 65 64 20 33 20 | 16 less| used 3 |
|00001280| 62 69 74 73 09 2a 29 0a | 58 0a 58 09 6d 61 78 73 |bits.*).|X.X.maxs|
|00001290| 65 74 72 61 6e 67 65 09 | 3d 20 31 35 3b 09 09 09 |etrange.|= 15;...|
|000012a0| 28 2a 20 6e 72 20 6f 66 | 20 77 6f 72 64 73 20 69 |(* nr of| words i|
|000012b0| 6e 20 61 20 73 65 74 09 | 2a 29 0a 58 09 73 63 61 |n a set.|*).X.sca|
|000012c0| 6c 62 61 73 65 09 3d 20 | 30 3b 09 28 2a 20 6f 72 |lbase.= |0;.(* or|
|000012d0| 64 69 6e 61 6c 20 76 61 | 6c 75 65 20 6f 66 20 66 |dinal va|lue of f|
|000012e0| 69 72 73 74 20 73 63 61 | 6c 61 72 20 6d 65 6d 62 |irst sca|lar memb|
|000012f0| 65 72 09 2a 29 0a 58 0a | 58 09 6d 61 78 70 72 69 |er.*).X.|X.maxpri|
|00001300| 6f 09 09 3d 20 37 3b 0a | 58 0a 58 09 6d 61 78 6d |o..= 7;.|X.X.maxm|
|00001310| 61 63 68 64 65 66 73 09 | 3d 20 38 3b 09 28 2a 20 |achdefs.|= 8;.(* |
|00001320| 6d 61 78 20 6e 72 20 6f | 66 20 6d 61 63 68 69 6e |max nr o|f machin|
|00001330| 65 20 69 6e 74 65 67 65 | 72 20 74 79 70 65 73 09 |e intege|r types.|
|00001340| 2a 29 0a 58 09 6d 61 63 | 68 64 65 66 6c 65 6e 09 |*).X.mac|hdeflen.|
|00001350| 3d 20 31 36 3b 09 28 2a | 20 6d 61 78 20 6c 65 6e |= 16;.(*| max len|
|00001360| 67 74 68 20 6f 66 20 6d | 61 63 68 69 6e 65 20 69 |gth of m|achine i|
|00001370| 6e 74 20 74 79 70 65 20 | 6e 61 6d 65 09 2a 29 0a |nt type |name.*).|
|00001380| 58 0a 58 09 28 2a 20 6c | 69 6d 69 74 20 6f 66 20 |X.X.(* l|imit of |
|00001390| 69 64 65 6e 74 69 66 69 | 65 72 20 74 61 62 6c 65 |identifi|er table|
|000013a0| 2c 20 69 64 65 6e 74 69 | 66 69 65 72 73 20 61 6e |, identi|fiers an|
|000013b0| 64 20 73 74 72 69 6e 67 | 73 20 61 72 65 20 73 61 |d string|s are sa|
|000013c0| 76 65 64 09 2a 29 0a 58 | 09 28 2a 20 69 6e 20 61 |ved.*).X|.(* in a|
|000013d0| 6e 20 61 72 72 61 79 20 | 30 20 2e 2e 20 6d 61 78 |n array |0 .. max|
|000013e0| 62 6c 6b 63 6e 74 20 6f | 66 20 5e 20 61 72 72 61 |blkcnt o|f ^ arra|
|000013f0| 79 20 30 20 2e 2e 20 6d | 61 78 73 74 72 62 6c 6b |y 0 .. m|axstrblk|
|00001400| 20 6f 66 20 63 68 61 72 | 09 2a 29 0a 58 09 6d 61 | of char|.*).X.ma|
|00001410| 78 73 74 72 62 6c 6b 09 | 3d 20 31 30 32 33 3b 0a |xstrblk.|= 1023;.|
|00001420| 58 09 6d 61 78 62 6c 6b | 63 6e 74 09 3d 20 36 33 |X.maxblk|cnt.= 63|
|00001430| 3b 0a 58 09 6d 61 78 73 | 74 72 73 74 6f 72 09 3d |;.X.maxs|trstor.=|
|00001440| 20 36 35 35 33 35 3b 20 | 28 2a 20 6d 61 78 73 74 | 65535; |(* maxst|
|00001450| 72 73 74 6f 72 20 73 68 | 6f 75 6c 64 20 62 65 20 |rstor sh|ould be |
|00001460| 3d 3d 0a 58 09 09 09 09 | 09 28 6d 61 78 62 6c 6b |==.X....|.(maxblk|
|00001470| 63 6e 74 2b 31 29 20 2a | 20 28 6d 61 78 73 74 72 |cnt+1) *| (maxstr|
|00001480| 62 6c 6b 2b 31 29 20 2d | 20 31 20 2a 29 0a 58 0a |blk+1) -| 1 *).X.|
|00001490| 58 09 6d 61 78 74 6f 6b | 6e 6c 65 6e 09 3d 20 31 |X.maxtok|nlen.= 1|
|000014a0| 32 37 3b 09 28 2a 20 6d | 61 78 20 73 69 7a 65 20 |27;.(* m|ax size |
|000014b0| 6f 66 20 74 6f 6b 65 6e | 20 28 69 2e 65 2e 20 69 |of token| (i.e. i|
|000014c0| 64 65 6e 74 69 66 69 65 | 72 2c 0a 58 09 09 09 09 |dentifie|r,.X....|
|000014d0| 20 20 20 73 74 72 69 6e | 67 20 6f 72 20 6e 75 6d | strin|g or num|
|000014e0| 62 65 72 29 3b 20 6d 75 | 73 74 20 62 65 20 3e 20 |ber); mu|st be > |
|000014f0| 6b 65 79 77 6f 72 64 6c | 65 6e 0a 58 09 09 09 09 |keywordl|en.X....|
|00001500| 20 20 20 61 6e 64 20 73 | 68 6f 75 6c 64 20 62 65 | and s|hould be|
|00001510| 20 3c 3d 20 32 35 36 2c | 20 73 65 65 20 68 61 73 | <= 256,| see has|
|00001520| 68 74 6f 6b 6e 28 29 09 | 2a 29 0a 58 0a 58 09 68 |htokn().|*).X.X.h|
|00001530| 61 73 68 6d 61 78 09 09 | 3d 20 36 34 3b 09 28 2a |ashmax..|= 64;.(*|
|00001540| 20 73 69 7a 65 20 6f 66 | 20 68 61 73 68 74 61 62 | size of| hashtab|
|00001550| 6c 65 20 2d 20 31 09 09 | 2a 29 0a 58 0a 58 09 6e |le - 1..|*).X.X.n|
|00001560| 75 6c 6c 09 09 3d 20 30 | 3b 09 28 2a 20 22 69 6d |ull..= 0|;.(* "im|
|00001570| 70 6f 73 73 69 62 6c 65 | 22 20 63 68 61 72 61 63 |possible|" charac|
|00001580| 74 65 72 20 76 61 6c 75 | 65 2c 20 43 48 41 52 3b |ter valu|e, CHAR;|
|00001590| 0a 58 09 09 09 09 20 20 | 20 61 20 63 68 61 72 20 |.X.... | a char |
|000015a0| 77 69 74 68 20 74 68 69 | 73 20 76 61 6c 75 65 20 |with thi|s value |
|000015b0| 69 73 20 75 73 65 64 20 | 61 73 20 64 65 6c 69 6d |is used |as delim|
|000015c0| 69 74 65 72 0a 58 09 09 | 09 09 20 20 20 6f 66 20 |iter.X..|.. of |
|000015d0| 73 74 72 69 6e 67 73 20 | 69 6e 20 22 73 74 72 73 |strings |in "strs|
|000015e0| 74 6f 72 22 20 61 6e 64 | 20 69 6e 20 74 6f 6b 6e |tor" and| in tokn|
|000015f0| 62 75 66 66 65 72 73 3b | 0a 58 09 09 09 09 20 20 |buffers;|.X.... |
|00001600| 20 69 74 20 69 73 20 61 | 6c 73 6f 20 75 73 65 64 | it is a|lso used|
|00001610| 20 61 73 20 65 6e 64 2d | 6f 66 2d 69 6e 70 75 74 | as end-|of-input|
|00001620| 20 6d 61 72 6b 65 72 20 | 62 79 0a 58 09 09 09 09 | marker |by.X....|
|00001630| 20 20 20 74 68 65 20 69 | 6e 70 75 74 20 70 72 6f | the i|nput pro|
|00001640| 63 65 64 75 72 65 73 20 | 69 6e 20 6c 65 78 69 63 |cedures |in lexic|
|00001650| 61 6c 20 61 6e 61 6c 79 | 73 69 73 20 2a 29 0a 58 |al analy|sis *).X|
|00001660| 0a 58 09 6d 69 6e 63 68 | 61 72 09 09 3d 20 6e 75 |.X.minch|ar..= nu|
|00001670| 6c 6c 3b 0a 58 09 6d 61 | 78 63 68 61 72 09 09 3d |ll;.X.ma|xchar..=|
|00001680| 20 31 32 37 3b 09 28 2a | 20 67 72 65 61 74 65 73 | 127;.(*| greates|
|00001690| 74 20 70 6f 73 73 69 62 | 6c 65 20 63 68 61 72 61 |t possib|le chara|
|000016a0| 63 74 65 72 2c 20 43 48 | 41 52 3b 20 6c 69 6d 69 |cter, CH|AR; limi|
|000016b0| 74 73 0a 58 09 09 09 09 | 20 20 20 74 68 65 20 6e |ts.X....| the n|
|000016c0| 75 6d 62 65 72 20 6f 66 | 20 65 6c 65 6d 65 6e 74 |umber of| element|
|000016d0| 73 20 69 6e 20 74 79 70 | 65 20 22 63 68 61 72 22 |s in typ|e "char"|
|000016e0| 20 2a 29 0a 58 0a 58 09 | 28 2a 20 74 6d 70 66 69 | *).X.X.|(* tmpfi|
|000016f0| 6c 65 6e 61 6d 65 20 69 | 73 20 75 73 65 64 20 69 |lename i|s used i|
|00001700| 6e 20 74 68 65 20 67 65 | 6e 65 72 61 74 65 64 20 |n the ge|nerated |
|00001710| 63 6f 64 65 20 74 6f 20 | 6f 62 74 61 69 6e 20 6e |code to |obtain n|
|00001720| 61 6d 65 73 20 6f 66 0a | 58 09 20 20 20 74 65 6d |ames of.|X. tem|
|00001730| 70 6f 72 61 72 79 20 66 | 69 6c 65 73 20 66 6f 72 |porary f|iles for|
|00001740| 20 72 65 73 65 74 2f 72 | 65 77 72 69 74 65 2c 20 | reset/r|ewrite, |
|00001750| 74 68 65 20 6c 61 73 74 | 20 63 68 61 72 61 63 74 |the last| charact|
|00001760| 65 72 20 69 73 20 73 75 | 70 70 6c 69 65 64 0a 58 |er is su|pplied.X|
|00001770| 09 20 20 20 62 79 20 74 | 68 65 20 72 65 73 65 74 |. by t|he reset|
|00001780| 2f 72 65 77 72 69 74 65 | 20 72 6f 75 74 69 6e 65 |/rewrite| routine|
|00001790| 20 2a 29 0a 58 09 74 6d | 70 66 69 6c 65 6e 61 6d | *).X.tm|pfilenam|
|000017a0| 65 09 3d 20 27 22 2f 74 | 6d 70 2f 70 74 63 25 64 |e.= '"/t|mp/ptc%d|
|000017b0| 25 63 22 2c 20 67 65 74 | 70 69 64 28 29 2c 20 27 |%c", get|pid(), '|
|000017c0| 3b 20 28 2a 20 4f 53 20 | 2a 29 0a 58 0a 58 09 28 |; (* OS |*).X.X.(|
|000017d0| 2a 20 73 6f 6d 65 20 66 | 72 65 71 75 65 6e 74 6c |* some f|requentl|
|000017e0| 79 20 75 73 65 64 20 63 | 68 61 72 61 63 74 65 72 |y used c|haracter|
|000017f0| 73 20 2a 29 0a 58 09 73 | 70 61 63 65 09 09 3d 20 |s *).X.s|pace..= |
|00001800| 27 20 27 3b 0a 58 09 74 | 61 62 31 09 09 3d 20 27 |' ';.X.t|ab1..= '|
|00001810| 09 27 3b 0a 58 09 74 61 | 62 32 09 09 3d 20 27 09 |.';.X.ta|b2..= '.|
|00001820| 09 27 3b 0a 58 09 74 61 | 62 33 09 09 3d 20 27 09 |.';.X.ta|b3..= '.|
|00001830| 09 09 27 3b 0a 58 09 74 | 61 62 34 09 09 3d 20 27 |..';.X.t|ab4..= '|
|00001840| 09 09 09 09 27 3b 0a 58 | 09 62 73 6c 61 73 68 09 |....';.X|.bslash.|
|00001850| 09 3d 20 27 5c 27 3b 0a | 58 09 6e 6c 63 68 72 09 |.= '\';.|X.nlchr.|
|00001860| 09 3d 20 27 27 27 5c 6e | 27 27 27 3b 0a 58 09 66 |.= '''\n|''';.X.f|
|00001870| 66 63 68 72 09 09 3d 20 | 27 27 27 5c 66 27 27 27 |fchr..= |'''\f'''|
|00001880| 3b 0a 58 09 6e 75 6c 63 | 68 72 09 09 3d 20 27 27 |;.X.nulc|hr..= ''|
|00001890| 27 5c 30 27 27 27 3b 0a | 58 09 73 70 63 68 72 09 |'\0''';.|X.spchr.|
|000018a0| 09 3d 20 27 27 27 20 27 | 27 27 3b 0a 58 09 71 75 |.= ''' '|'';.X.qu|
|000018b0| 6f 74 65 09 09 3d 20 27 | 27 27 27 3b 0a 58 09 63 |ote..= '|''';.X.c|
|000018c0| 69 74 65 09 09 3d 20 27 | 22 27 3b 0a 58 09 78 70 |ite..= '|"';.X.xp|
|000018d0| 6e 65 6e 74 09 09 3d 20 | 27 65 27 3b 09 09 28 2a |nent..= |'e';..(*|
|000018e0| 20 65 78 70 6f 6e 65 6e | 74 20 63 68 61 72 20 69 | exponen|t char i|
|000018f0| 6e 20 6f 75 74 70 75 74 | 2e 20 43 50 55 09 2a 29 |n output|. CPU.*)|
|00001900| 0a 58 09 70 65 72 63 65 | 6e 74 09 09 3d 20 27 25 |.X.perce|nt..= '%|
|00001910| 27 3b 0a 58 09 75 73 63 | 6f 72 65 09 09 3d 20 27 |';.X.usc|ore..= '|
|00001920| 5f 27 3b 0a 58 09 62 61 | 64 63 68 72 09 09 3d 20 |_';.X.ba|dchr..= |
|00001930| 27 3f 27 3b 09 09 28 2a | 20 43 48 41 52 20 2a 29 |'?';..(*| CHAR *)|
|00001940| 0a 58 09 6f 6b 63 68 72 | 09 09 3d 20 71 75 6f 74 |.X.okchr|..= quot|
|00001950| 65 3b 09 28 2a 20 43 48 | 41 52 20 2a 29 0a 58 0a |e;.(* CH|AR *).X.|
|00001960| 58 09 74 61 62 77 69 64 | 74 68 09 3d 20 38 3b 09 |X.tabwid|th.= 8;.|
|00001970| 09 28 2a 20 77 69 64 74 | 68 20 6f 66 20 61 20 74 |.(* widt|h of a t|
|00001980| 61 62 2d 73 74 6f 70 2e | 20 4f 53 09 2a 29 0a 58 |ab-stop.| OS.*).X|
|00001990| 0a 58 09 65 63 68 6f 09 | 09 3d 20 66 61 6c 73 65 |.X.echo.|.= false|
|000019a0| 3b 20 09 28 2a 20 65 63 | 68 6f 20 69 6e 70 75 74 |; .(* ec|ho input|
|000019b0| 20 61 73 20 72 65 61 64 | 09 09 2a 29 0a 58 09 64 | as read|..*).X.d|
|000019c0| 69 66 66 63 6f 6d 6d 09 | 3d 20 66 61 6c 73 65 3b |iffcomm.|= false;|
|000019d0| 20 09 28 2a 20 63 6f 6d | 6d 65 6e 74 20 64 65 6c | .(* com|ment del|
|000019e0| 69 6d 69 74 65 72 73 20 | 64 69 66 66 65 72 65 6e |imiters |differen|
|000019f0| 74 09 2a 29 0a 58 09 6c | 61 7a 79 66 6f 72 09 09 |t.*).X.l|azyfor..|
|00001a00| 3d 20 66 61 6c 73 65 3b | 20 09 28 2a 20 63 6f 6d |= false;| .(* com|
|00001a10| 70 69 6c 65 20 66 6f 72 | 2d 73 74 6d 74 73 20 61 |pile for|-stmts a|
|00001a20| 20 6c 61 20 43 09 2a 29 | 0a 58 09 75 6e 69 6f 6e | la C.*)|.X.union|
|00001a30| 6e 65 77 09 3d 20 74 72 | 75 65 3b 20 09 28 2a 20 |new.= tr|ue; .(* |
|00001a40| 6d 61 6c 6c 6f 63 20 75 | 6e 69 6f 6e 73 20 66 6f |malloc u|nions fo|
|00001a50| 72 20 76 61 72 69 61 6e | 74 73 09 2a 29 0a 58 0a |r varian|ts.*).X.|
|00001a60| 58 09 69 6e 74 74 79 70 | 09 09 3d 20 27 69 6e 74 |X.inttyp|..= 'int|
|00001a70| 27 3b 09 28 2a 20 66 6f | 72 20 70 72 65 64 65 66 |';.(* fo|r predef|
|00001a80| 69 6e 65 64 20 66 75 6e | 63 74 69 6f 6e 73 09 2a |ined fun|ctions.*|
|00001a90| 29 0a 58 09 63 68 61 72 | 74 79 70 09 09 3d 20 27 |).X.char|typ..= '|
|00001aa0| 63 68 61 72 27 3b 0a 58 | 09 73 65 74 77 74 79 70 |char';.X|.setwtyp|
|00001ab0| 09 09 3d 20 27 73 65 74 | 77 6f 72 64 27 3b 0a 58 |..= 'set|word';.X|
|00001ac0| 09 73 65 74 70 74 79 70 | 09 09 3d 20 27 73 65 74 |.setptyp|..= 'set|
|00001ad0| 70 74 72 27 3b 0a 58 09 | 66 6c 6f 61 74 74 79 70 |ptr';.X.|floattyp|
|00001ae0| 09 3d 20 27 66 6c 6f 61 | 74 27 3b 0a 58 09 64 6f |.= 'floa|t';.X.do|
|00001af0| 75 62 6c 65 74 79 70 09 | 3d 20 27 64 6f 75 62 6c |ubletyp.|= 'doubl|
|00001b00| 65 27 3b 0a 58 09 64 62 | 6c 63 61 73 74 09 09 3d |e';.X.db|lcast..=|
|00001b10| 20 27 28 64 6f 75 62 6c | 65 29 27 3b 09 28 2a 20 | '(doubl|e)';.(* |
|00001b20| 66 6f 72 20 70 72 65 64 | 65 66 69 6e 65 64 20 66 |for pred|efined f|
|00001b30| 75 6e 63 74 69 6f 6e 73 | 09 2a 29 0a 58 0a 58 09 |unctions|.*).X.X.|
|00001b40| 72 65 61 6c 74 79 70 09 | 09 3d 20 64 6f 75 62 6c |realtyp.|.= doubl|
|00001b50| 65 74 79 70 3b 09 28 2a | 20 75 73 65 72 20 72 65 |etyp;.(*| user re|
|00001b60| 61 6c 2d 76 61 72 73 20 | 61 6e 64 20 66 75 6e 63 |al-vars |and func|
|00001b70| 74 69 6f 6e 73 09 2a 29 | 0a 58 0a 58 09 76 6f 69 |tions.*)|.X.X.voi|
|00001b80| 64 74 79 70 09 09 3d 20 | 27 76 6f 69 64 27 3b 09 |dtyp..= |'void';.|
|00001b90| 28 2a 20 66 6f 72 20 70 | 72 6f 63 65 64 75 72 65 |(* for p|rocedure|
|00001ba0| 73 20 09 09 2a 29 0a 58 | 09 76 6f 69 64 63 61 73 |s ..*).X|.voidcas|
|00001bb0| 74 09 3d 20 27 28 76 6f | 69 64 29 27 3b 0a 58 0a |t.= '(vo|id)';.X.|
|00001bc0| 58 09 69 6e 74 6c 65 6e | 09 09 3d 20 31 30 3b 09 |X.intlen|..= 10;.|
|00001bd0| 09 28 2a 20 6c 65 6e 67 | 74 68 20 6f 66 20 77 72 |.(* leng|th of wr|
|00001be0| 69 74 74 65 6e 20 69 6e | 74 65 67 65 72 09 2a 29 |itten in|teger.*)|
|00001bf0| 0a 58 09 66 69 78 6c 65 | 6e 09 09 3d 20 32 30 3b |.X.fixle|n..= 20;|
|00001c00| 09 09 28 2a 20 6c 65 6e | 67 74 68 20 6f 66 20 77 |..(* len|gth of w|
|00001c10| 72 69 74 74 65 6e 20 72 | 65 61 6c 09 2a 29 0a 58 |ritten r|eal.*).X|
|00001c20| 0a 58 74 79 70 65 0a 58 | 09 68 61 73 68 74 79 70 |.Xtype.X|.hashtyp|
|00001c30| 09 3d 20 30 20 2e 2e 20 | 68 61 73 68 6d 61 78 3b |.= 0 .. |hashmax;|
|00001c40| 09 09 28 2a 20 69 6e 64 | 65 78 20 74 6f 20 68 61 |..(* ind|ex to ha|
|00001c50| 73 68 2d 74 61 62 6c 65 | 73 09 2a 29 0a 58 0a 58 |sh-table|s.*).X.X|
|00001c60| 09 73 74 72 69 6e 64 78 | 09 3d 20 30 20 2e 2e 20 |.strindx|.= 0 .. |
|00001c70| 6d 61 78 73 74 72 73 74 | 6f 72 3b 09 28 2a 20 69 |maxstrst|or;.(* i|
|00001c80| 6e 64 65 78 20 74 6f 20 | 22 73 74 72 73 74 6f 72 |ndex to |"strstor|
|00001c90| 22 09 09 2a 29 0a 58 0a | 58 09 28 2a 20 73 74 72 |"..*).X.|X.(* str|
|00001ca0| 69 6e 67 2d 74 61 62 6c | 65 20 22 73 74 72 73 74 |ing-tabl|e "strst|
|00001cb0| 6f 72 22 20 69 73 20 69 | 6d 70 6c 65 6d 65 6e 74 |or" is i|mplement|
|00001cc0| 65 64 20 61 73 20 61 6e | 20 61 72 72 61 79 20 74 |ed as an| array t|
|00001cd0| 68 61 74 20 69 73 20 67 | 72 6f 77 6e 0a 58 09 20 |hat is g|rown.X. |
|00001ce0| 20 20 64 79 6e 61 6d 69 | 63 61 6c 6c 79 20 62 79 | dynami|cally by|
|00001cf0| 20 61 64 64 69 6e 67 20 | 62 6c 6f 63 6b 73 20 77 | adding |blocks w|
|00001d00| 68 65 6e 20 6e 65 65 64 | 65 64 20 2a 29 0a 58 09 |hen need|ed *).X.|
|00001d10| 73 74 72 62 69 64 78 09 | 3d 20 30 20 2e 2e 20 6d |strbidx.|= 0 .. m|
|00001d20| 61 78 73 74 72 62 6c 6b | 3b 0a 58 09 73 74 72 62 |axstrblk|;.X.strb|
|00001d30| 6c 6b 09 3d 20 61 72 72 | 61 79 20 5b 20 73 74 72 |lk.= arr|ay [ str|
|00001d40| 62 69 64 78 20 5d 20 6f | 66 20 63 68 61 72 3b 0a |bidx ] o|f char;.|
|00001d50| 58 09 73 74 72 70 74 72 | 09 3d 20 5e 20 73 74 72 |X.strptr|.= ^ str|
|00001d60| 62 6c 6b 3b 0a 58 09 73 | 74 72 62 63 6e 74 09 3d |blk;.X.s|trbcnt.=|
|00001d70| 20 30 20 2e 2e 20 6d 61 | 78 62 6c 6b 63 6e 74 3b | 0 .. ma|xblkcnt;|
|00001d80| 0a 58 0a 58 09 28 2a 20 | 74 61 62 6c 65 20 66 6f |.X.X.(* |table fo|
|00001d90| 72 20 73 74 6f 72 65 64 | 20 69 64 65 6e 74 69 66 |r stored| identif|
|00001da0| 69 65 72 73 20 2a 29 0a | 58 09 28 2a 20 61 6e 20 |iers *).|X.(* an |
|00001db0| 69 64 65 6e 74 69 66 69 | 65 72 20 69 6e 20 61 6e |identifi|er in an|
|00001dc0| 79 20 73 63 6f 70 65 20 | 69 73 20 72 65 70 72 65 |y scope |is repre|
|00001dd0| 73 65 6e 74 65 64 20 62 | 79 20 61 6e 20 69 64 6e |sented b|y an idn|
|00001de0| 6f 64 65 20 77 68 69 63 | 68 20 69 73 0a 58 09 20 |ode whic|h is.X. |
|00001df0| 20 20 68 6f 6f 6b 65 64 | 20 74 6f 20 61 20 73 6c | hooked| to a sl|
|00001e00| 6f 74 20 69 6e 20 22 69 | 64 74 61 62 22 20 61 73 |ot in "i|dtab" as|
|00001e10| 20 64 65 74 65 72 6d 69 | 6e 65 64 20 62 79 20 61 | determi|ned by a|
|00001e20| 20 68 61 73 68 2d 66 75 | 6e 63 74 69 6f 6e 2e 0a | hash-fu|nction..|
|00001e30| 58 09 20 20 20 77 68 65 | 6e 65 76 65 72 20 74 68 |X. whe|never th|
|00001e40| 65 20 69 6e 70 75 74 20 | 70 72 6f 63 65 64 75 72 |e input |procedur|
|00001e50| 65 73 20 66 69 6e 64 20 | 61 6e 20 69 64 65 6e 74 |es find |an ident|
|00001e60| 69 66 69 65 72 20 69 74 | 73 20 69 64 6e 6f 64 65 |ifier it|s idnode|
|00001e70| 20 69 73 0a 58 09 20 20 | 20 69 6d 6d 65 64 69 61 | is.X. | immedia|
|00001e80| 74 65 6c 79 20 6c 6f 63 | 61 74 65 64 2c 20 6f 72 |tely loc|ated, or|
|00001e90| 20 63 72 65 61 74 65 64 | 2c 20 69 66 20 6e 6f 6e | created|, if non|
|00001ea0| 65 20 77 61 73 20 66 6f | 75 6e 64 3b 20 74 68 65 |e was fo|und; the|
|00001eb0| 20 69 64 65 6e 74 69 66 | 69 65 72 0a 58 09 20 20 | identif|ier.X. |
|00001ec0| 20 69 73 20 74 68 65 6e | 20 61 6c 77 61 79 73 20 | is then| always |
|00001ed0| 68 61 6e 64 6c 65 64 20 | 74 68 6f 75 67 68 20 61 |handled |though a|
|00001ee0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 74 68 65 20 | pointer| to the |
|00001ef0| 69 64 6e 6f 64 65 2e 20 | 74 68 65 20 61 63 74 75 |idnode. |the actu|
|00001f00| 61 6c 0a 58 09 20 20 20 | 74 65 78 74 20 6f 66 20 |al.X. |text of |
|00001f10| 74 68 65 20 69 64 65 6e | 74 69 66 69 65 72 20 69 |the iden|tifier i|
|00001f20| 73 20 73 74 6f 72 65 64 | 20 69 6e 20 22 73 74 72 |s stored| in "str|
|00001f30| 73 74 6f 72 22 2e 20 2a | 29 0a 58 09 69 64 70 74 |stor". *|).X.idpt|
|00001f40| 72 09 3d 20 5e 20 69 64 | 6e 6f 64 65 3b 0a 58 09 |r.= ^ id|node;.X.|
|00001f50| 69 64 6e 6f 64 65 09 3d | 20 72 65 63 6f 72 64 0a |idnode.=| record.|
|00001f60| 58 09 09 09 69 6e 65 78 | 74 09 3a 20 69 64 70 74 |X...inex|t.: idpt|
|00001f70| 72 3b 09 28 2a 20 63 68 | 61 69 6e 20 6f 66 20 69 |r;.(* ch|ain of i|
|00001f80| 64 6e 6f 64 65 27 73 09 | 2a 29 0a 58 09 09 09 69 |dnode's.|*).X...i|
|00001f90| 6e 72 65 66 09 3a 20 30 | 20 2e 2e 20 31 32 37 3b |nref.: 0| .. 127;|
|00001fa0| 09 28 2a 20 23 20 6f 66 | 20 72 65 66 73 20 74 6f |.(* # of| refs to|
|00001fb0| 20 74 68 69 73 20 69 64 | 09 2a 29 0a 58 09 09 09 | this id|.*).X...|
|00001fc0| 69 68 61 73 68 09 3a 20 | 68 61 73 68 74 79 70 3b |ihash.: |hashtyp;|
|00001fd0| 09 28 2a 20 69 74 73 20 | 68 61 73 68 20 76 61 6c |.(* its |hash val|
|00001fe0| 75 65 09 2a 29 0a 58 09 | 09 09 69 73 74 72 09 3a |ue.*).X.|..istr.:|
|00001ff0| 20 73 74 72 69 6e 64 78 | 3b 09 28 2a 20 69 6e 64 | strindx|;.(* ind|
|00002000| 65 78 20 74 6f 20 22 73 | 74 72 73 74 6f 72 22 09 |ex to "s|trstor".|
|00002010| 2a 29 0a 58 09 09 20 20 | 65 6e 64 3b 0a 58 0a 58 |*).X.. |end;.X.X|
|00002020| 09 28 2a 20 74 6f 6b 6e | 62 75 66 20 69 73 20 75 |.(* tokn|buf is u|
|00002030| 73 65 64 20 74 6f 20 68 | 61 6e 64 6c 65 20 69 64 |sed to h|andle id|
|00002040| 65 6e 74 69 66 69 65 72 | 73 20 61 6e 64 20 73 74 |entifier|s and st|
|00002050| 72 69 6e 67 73 20 69 6e | 20 74 68 6f 73 65 20 73 |rings in| those s|
|00002060| 69 74 75 61 74 69 6f 6e | 73 0a 58 09 20 20 20 77 |ituation|s.X. w|
|00002070| 68 65 72 65 20 74 68 65 | 20 61 63 74 75 61 6c 20 |here the| actual |
|00002080| 74 65 78 74 20 69 73 20 | 6f 66 20 69 6e 74 72 65 |text is |of intre|
|00002090| 73 74 20 2a 29 0a 58 09 | 74 6f 6b 6e 69 64 78 09 |st *).X.|toknidx.|
|000020a0| 3d 20 31 20 2e 2e 20 6d | 61 78 74 6f 6b 6e 6c 65 |= 1 .. m|axtoknle|
|000020b0| 6e 3b 0a 58 09 74 6f 6b | 6e 62 75 66 09 3d 20 61 |n;.X.tok|nbuf.= a|
|000020c0| 72 72 61 79 20 5b 20 74 | 6f 6b 6e 69 64 78 20 5d |rray [ t|oknidx ]|
|000020d0| 20 6f 66 20 63 68 61 72 | 3b 0a 58 0a 58 09 28 2a | of char|;.X.X.(*|
|000020e0| 20 61 20 74 79 70 65 20 | 74 6f 20 68 6f 6c 64 20 | a type |to hold |
|000020f0| 50 61 73 63 61 6c 20 6b | 65 79 77 6f 72 64 73 20 |Pascal k|eywords |
|00002100| 2a 29 0a 58 09 6b 65 79 | 77 6f 72 64 09 3d 20 70 |*).X.key|word.= p|
|00002110| 61 63 6b 65 64 20 61 72 | 72 61 79 20 5b 20 31 20 |acked ar|ray [ 1 |
|00002120| 2e 2e 20 6b 65 79 77 6f | 72 64 6c 65 6e 20 5d 20 |.. keywo|rdlen ] |
|00002130| 6f 66 20 63 68 61 72 3b | 0a 58 0a 58 09 28 2a 20 |of char;|.X.X.(* |
|00002140| 70 72 65 64 65 66 69 6e | 65 64 20 69 64 65 6e 74 |predefin|ed ident|
|00002150| 69 66 69 65 72 20 65 6e | 75 6d 65 72 61 74 69 6f |ifier en|umeratio|
|00002160| 6e 20 2a 29 0a 58 09 70 | 72 65 64 65 66 73 20 3d |n *).X.p|redefs =|
|00002170| 20 28 0a 58 09 09 64 61 | 62 73 2c 09 09 64 61 72 | (.X..da|bs,..dar|
|00002180| 63 74 61 6e 2c 09 64 61 | 72 67 63 2c 09 09 64 61 |ctan,.da|rgc,..da|
|00002190| 72 67 76 2c 0a 58 09 09 | 64 62 6f 6f 6c 65 61 6e |rgv,.X..|dboolean|
|000021a0| 2c 09 64 63 68 61 72 2c | 09 09 64 63 68 72 2c 09 |,.dchar,|..dchr,.|
|000021b0| 09 64 63 6c 6f 73 65 2c | 0a 58 09 09 64 63 6f 73 |.dclose,|.X..dcos|
|000021c0| 2c 09 09 64 64 69 73 70 | 6f 73 65 2c 09 64 65 6f |,..ddisp|ose,.deo|
|000021d0| 66 2c 09 09 64 65 6f 6c | 6e 2c 0a 58 09 09 64 65 |f,..deol|n,.X..de|
|000021e0| 78 69 74 2c 09 09 64 65 | 78 70 2c 09 09 64 66 61 |xit,..de|xp,..dfa|
|000021f0| 6c 73 65 2c 09 09 64 66 | 6c 75 73 68 2c 0a 58 09 |lse,..df|lush,.X.|
|00002200| 09 64 67 65 74 2c 09 09 | 64 68 61 6c 74 2c 09 09 |.dget,..|dhalt,..|
|00002210| 64 69 6e 70 75 74 2c 09 | 09 64 69 6e 74 65 67 65 |dinput,.|.dintege|
|00002220| 72 2c 0a 58 09 09 64 6c | 6e 2c 09 09 64 6d 61 78 |r,.X..dl|n,..dmax|
|00002230| 69 6e 74 2c 09 64 6d 65 | 73 73 61 67 65 2c 09 64 |int,.dme|ssage,.d|
|00002240| 6e 65 77 2c 0a 58 09 09 | 64 6f 64 64 2c 09 09 64 |new,.X..|dodd,..d|
|00002250| 6f 72 64 2c 09 09 64 6f | 75 74 70 75 74 2c 09 64 |ord,..do|utput,.d|
|00002260| 70 61 67 65 2c 0a 58 09 | 09 64 70 61 63 6b 2c 09 |page,.X.|.dpack,.|
|00002270| 09 64 70 72 65 64 2c 09 | 09 64 70 75 74 2c 09 09 |.dpred,.|.dput,..|
|00002280| 64 72 65 61 64 2c 0a 58 | 09 09 64 72 65 61 64 6c |dread,.X|..dreadl|
|00002290| 6e 2c 09 64 72 65 61 6c | 2c 09 09 64 72 65 73 65 |n,.dreal|,..drese|
|000022a0| 74 2c 09 09 64 72 65 77 | 72 69 74 65 2c 0a 58 09 |t,..drew|rite,.X.|
|000022b0| 09 64 72 6f 75 6e 64 2c | 09 09 64 73 69 6e 2c 09 |.dround,|..dsin,.|
|000022c0| 09 64 73 71 72 2c 09 09 | 64 73 71 72 74 2c 0a 58 |.dsqr,..|dsqrt,.X|
|000022d0| 09 09 64 73 75 63 63 2c | 09 09 64 74 65 78 74 2c |..dsucc,|..dtext,|
|000022e0| 09 09 64 74 72 75 65 2c | 09 09 64 74 72 75 6e 63 |..dtrue,|..dtrunc|
|000022f0| 2c 0a 58 09 09 64 74 61 | 6e 2c 09 09 64 77 72 69 |,.X..dta|n,..dwri|
|00002300| 74 65 2c 09 09 64 77 72 | 69 74 65 6c 6e 2c 09 64 |te,..dwr|iteln,.d|
|00002310| 75 6e 70 61 63 6b 2c 0a | 58 09 09 64 7a 69 6e 69 |unpack,.|X..dzini|
|00002320| 74 2c 09 09 64 7a 74 72 | 69 6e 67 0a 58 09 29 3b |t,..dztr|ing.X.);|
|00002330| 0a 58 0a 58 09 28 2a 20 | 6c 65 78 69 63 61 6c 20 |.X.X.(* |lexical |
|00002340| 73 79 6d 62 6f 6c 20 65 | 6e 75 6d 65 72 61 74 69 |symbol e|numerati|
|00002350| 6f 6e 20 2a 29 0a 58 09 | 73 79 6d 74 79 70 09 3d |on *).X.|symtyp.=|
|00002360| 20 28 0a 58 09 20 20 20 | 20 28 2a 20 6b 65 79 77 | (.X. | (* keyw|
|00002370| 6f 72 64 73 20 61 6e 64 | 20 65 6f 66 20 61 72 65 |ords and| eof are|
|00002380| 20 73 6f 72 74 65 64 20 | 61 6c 70 68 61 62 65 74 | sorted |alphabet|
|00002390| 69 63 61 6c 6c 79 20 2e | 2e 2e 2e 2e 2e 20 2a 29 |ically .|..... *)|
|000023a0| 0a 58 09 09 73 61 6e 64 | 2c 09 09 73 61 72 72 61 |.X..sand|,..sarra|
|000023b0| 79 2c 09 09 73 62 65 67 | 69 6e 2c 09 09 73 63 61 |y,..sbeg|in,..sca|
|000023c0| 73 65 2c 0a 58 09 09 73 | 63 6f 6e 73 74 2c 09 09 |se,.X..s|const,..|
|000023d0| 73 64 69 76 2c 09 09 73 | 64 6f 2c 09 09 73 64 6f |sdiv,..s|do,..sdo|
|000023e0| 77 6e 74 6f 2c 0a 58 09 | 09 73 65 6c 73 65 2c 09 |wnto,.X.|.selse,.|
|000023f0| 09 73 65 6e 64 2c 09 09 | 73 65 78 74 65 72 6e 2c |.send,..|sextern,|
|00002400| 09 73 66 69 6c 65 2c 0a | 58 09 09 73 66 6f 72 2c |.sfile,.|X..sfor,|
|00002410| 09 09 73 66 6f 72 77 61 | 72 64 2c 09 73 66 75 6e |..sforwa|rd,.sfun|
|00002420| 63 2c 09 09 73 67 6f 74 | 6f 2c 0a 58 09 09 73 69 |c,..sgot|o,.X..si|
|00002430| 66 2c 09 09 73 69 6e 6e | 2c 09 09 73 6c 61 62 65 |f,..sinn|,..slabe|
|00002440| 6c 2c 09 09 73 6d 6f 64 | 2c 0a 58 09 09 73 6e 69 |l,..smod|,.X..sni|
|00002450| 6c 2c 09 09 73 6e 6f 74 | 2c 09 09 73 6f 66 2c 09 |l,..snot|,..sof,.|
|00002460| 09 73 6f 72 2c 0a 58 09 | 09 73 6f 74 68 65 72 2c |.sor,.X.|.sother,|
|00002470| 09 09 73 70 61 63 6b 65 | 64 2c 09 73 70 72 6f 63 |..spacke|d,.sproc|
|00002480| 2c 09 09 73 70 67 6d 2c | 0a 58 09 09 73 72 65 63 |,..spgm,|.X..srec|
|00002490| 6f 72 64 2c 09 73 72 65 | 70 65 61 74 2c 09 73 73 |ord,.sre|peat,.ss|
|000024a0| 65 74 2c 09 09 73 74 68 | 65 6e 2c 0a 58 09 09 73 |et,..sth|en,.X..s|
|000024b0| 74 6f 2c 09 09 73 74 79 | 70 65 2c 09 09 73 75 6e |to,..sty|pe,..sun|
|000024c0| 74 69 6c 2c 09 09 73 76 | 61 72 2c 0a 58 09 09 73 |til,..sv|ar,.X..s|
|000024d0| 77 68 69 6c 65 2c 09 09 | 73 77 69 74 68 2c 09 09 |while,..|swith,..|
|000024e0| 73 65 6f 66 2c 0a 58 09 | 20 20 20 20 28 2a 20 2e |seof,.X.| (* .|
|000024f0| 2e 2e 2e 2e 2e 20 73 6f | 72 74 65 64 20 2a 29 0a |..... so|rted *).|
|00002500| 58 09 09 09 09 09 09 09 | 09 73 69 6e 74 65 67 65 |X.......|.sintege|
|00002510| 72 2c 0a 58 09 09 73 72 | 65 61 6c 2c 09 09 73 73 |r,.X..sr|eal,..ss|
|00002520| 74 72 69 6e 67 2c 09 73 | 63 68 61 72 2c 09 09 73 |tring,.s|char,..s|
|00002530| 69 64 2c 0a 58 09 09 73 | 70 6c 75 73 2c 09 09 73 |id,.X..s|plus,..s|
|00002540| 6d 69 6e 75 73 2c 09 09 | 73 6d 75 6c 2c 09 09 73 |minus,..|smul,..s|
|00002550| 71 75 6f 74 2c 0a 58 09 | 09 73 61 72 72 6f 77 2c |quot,.X.|.sarrow,|
|00002560| 09 09 73 6c 70 61 72 2c | 09 09 73 72 70 61 72 2c |..slpar,|..srpar,|
|00002570| 09 09 73 6c 62 72 61 63 | 6b 2c 0a 58 09 09 73 72 |..slbrac|k,.X..sr|
|00002580| 62 72 61 63 6b 2c 09 73 | 65 71 2c 09 09 73 6e 65 |brack,.s|eq,..sne|
|00002590| 2c 09 09 73 6c 74 2c 0a | 58 09 09 73 6c 65 2c 09 |,..slt,.|X..sle,.|
|000025a0| 09 73 67 74 2c 09 09 73 | 67 65 2c 09 09 73 63 6f |.sgt,..s|ge,..sco|
|000025b0| 6d 6d 61 2c 0a 58 09 09 | 73 63 6f 6c 6f 6e 2c 09 |mma,.X..|scolon,.|
|000025c0| 09 73 73 65 6d 69 63 2c | 09 09 73 61 73 73 69 67 |.ssemic,|..sassig|
|000025d0| 6e 2c 09 73 64 6f 74 64 | 6f 74 2c 0a 58 09 09 73 |n,.sdotd|ot,.X..s|
|000025e0| 64 6f 74 0a 58 09 29 3b | 0a 58 09 73 79 6d 73 65 |dot.X.);|.X.symse|
|000025f0| 74 09 3d 20 73 65 74 20 | 6f 66 20 73 79 6d 74 79 |t.= set |of symty|
|00002600| 70 3b 0a 58 0a 58 09 28 | 2a 20 6c 65 78 69 63 61 |p;.X.X.(|* lexica|
|00002610| 6c 20 73 79 6d 62 6f 6c | 20 64 65 66 69 6e 69 74 |l symbol| definit|
|00002620| 69 6f 6e 20 2a 29 0a 58 | 09 28 2a 20 74 68 65 20 |ion *).X|.(* the |
|00002630| 6c 65 78 69 63 61 6c 20 | 73 79 6d 62 6f 6c 20 68 |lexical |symbol h|
|00002640| 6f 6c 64 73 20 61 20 64 | 65 73 63 72 69 70 74 6f |olds a d|escripto|
|00002650| 72 20 61 6e 64 20 74 68 | 65 20 76 61 6c 75 65 20 |r and th|e value |
|00002660| 6f 66 20 61 20 73 79 6d | 62 6f 6c 0a 58 09 20 20 |of a sym|bol.X. |
|00002670| 20 72 65 61 64 20 62 79 | 20 74 68 65 20 69 6e 70 | read by| the inp|
|00002680| 75 74 20 70 72 6f 63 65 | 64 75 72 65 73 3b 20 6e |ut proce|dures; n|
|00002690| 6f 74 65 20 74 68 61 74 | 20 72 65 61 6c 20 76 61 |ote that| real va|
|000026a0| 6c 75 65 73 20 61 72 65 | 20 72 65 70 72 65 73 65 |lues are| represe|
|000026b0| 6e 74 65 64 0a 58 09 20 | 20 20 61 73 20 73 74 72 |nted.X. | as str|
|000026c0| 69 6e 67 73 20 73 61 76 | 65 64 20 69 6e 20 22 73 |ings sav|ed in "s|
|000026d0| 74 72 73 74 6f 72 22 20 | 6c 69 6b 65 20 6f 72 64 |trstor" |like ord|
|000026e0| 69 6e 61 72 79 20 73 74 | 72 69 6e 67 73 20 74 6f |inary st|rings to|
|000026f0| 20 61 76 6f 69 64 20 75 | 73 69 6e 67 0a 58 09 20 | avoid u|sing.X. |
|00002700| 20 20 66 6c 6f 61 74 2d | 76 61 72 69 61 62 6c 65 | float-|variable|
|00002710| 73 20 61 6e 64 20 66 6c | 6f 61 74 2d 61 72 69 74 |s and fl|oat-arit|
|00002720| 68 6d 65 74 69 63 20 69 | 6e 20 74 68 65 20 74 72 |hmetic i|n the tr|
|00002730| 61 6e 73 6c 61 74 6f 72 | 20 2a 29 0a 58 09 6c 65 |anslator| *).X.le|
|00002740| 78 73 79 6d 09 3d 0a 58 | 09 20 20 20 20 72 65 63 |xsym.=.X|. rec|
|00002750| 6f 72 64 0a 58 09 09 63 | 61 73 65 20 73 74 20 3a |ord.X..c|ase st :|
|00002760| 20 73 79 6d 74 79 70 20 | 6f 66 0a 58 09 09 20 20 | symtyp |of.X.. |
|00002770| 73 69 64 3a 09 09 28 76 | 69 64 09 3a 20 69 64 70 |sid:..(v|id.: idp|
|00002780| 74 72 29 3b 0a 58 09 09 | 20 20 73 63 68 61 72 3a |tr);.X..| schar:|
|00002790| 09 28 76 63 68 72 09 3a | 20 63 68 61 72 29 3b 0a |.(vchr.:| char);.|
|000027a0| 58 09 09 20 20 73 69 6e | 74 65 67 65 72 3a 09 28 |X.. sin|teger:.(|
|000027b0| 76 69 6e 74 09 3a 20 69 | 6e 74 65 67 65 72 29 3b |vint.: i|nteger);|
|000027c0| 0a 58 09 09 20 20 73 72 | 65 61 6c 3a 09 28 76 66 |.X.. sr|eal:.(vf|
|000027d0| 6c 74 09 3a 20 73 74 72 | 69 6e 64 78 29 3b 0a 58 |lt.: str|indx);.X|
|000027e0| 09 09 20 20 73 73 74 72 | 69 6e 67 3a 09 28 76 73 |.. sstr|ing:.(vs|
|000027f0| 74 72 09 3a 20 73 74 72 | 69 6e 64 78 29 3b 0a 58 |tr.: str|indx);.X|
|00002800| 09 20 20 20 20 65 6e 64 | 3b 0a 58 0a 58 09 28 2a |. end|;.X.X.(*|
|00002810| 20 65 6e 75 6d 65 72 61 | 74 69 6f 6e 20 6f 66 20 | enumera|tion of |
|00002820| 73 79 6d 6e 6f 64 65 20 | 76 61 72 69 61 6e 74 73 |symnode |variants|
|00002830| 20 2a 29 0a 58 09 6c 74 | 79 70 65 73 20 3d 20 28 | *).X.lt|ypes = (|
|00002840| 0a 58 09 09 6c 70 72 65 | 64 65 66 2c 09 6c 69 64 |.X..lpre|def,.lid|
|00002850| 65 6e 74 69 66 69 65 72 | 2c 09 6c 66 69 65 6c 64 |entifier|,.lfield|
|00002860| 2c 09 09 6c 66 6f 72 77 | 61 72 64 2c 0a 58 09 09 |,..lforw|ard,.X..|
|00002870| 6c 70 6f 69 6e 74 65 72 | 2c 09 6c 73 74 72 69 6e |lpointer|,.lstrin|
|00002880| 67 2c 09 6c 6c 61 62 65 | 6c 2c 09 09 6c 66 6f 72 |g,.llabe|l,..lfor|
|00002890| 77 6c 61 62 2c 0a 58 09 | 09 6c 69 6e 74 65 67 65 |wlab,.X.|.lintege|
|000028a0| 72 2c 09 6c 72 65 61 6c | 2c 09 09 6c 63 68 61 72 |r,.lreal|,..lchar|
|000028b0| 61 63 74 65 72 0a 58 09 | 29 3b 0a 58 0a 58 09 64 |acter.X.|);.X.X.d|
|000028c0| 65 63 6c 70 74 72 09 3d | 20 5e 20 64 65 63 6c 6e |eclptr.=| ^ decln|
|000028d0| 6f 64 65 3b 0a 58 09 74 | 72 65 65 70 74 72 09 3d |ode;.X.t|reeptr.=|
|000028e0| 20 5e 20 74 72 65 65 6e | 6f 64 65 3b 0a 58 09 73 | ^ treen|ode;.X.s|
|000028f0| 79 6d 70 74 72 09 3d 20 | 5e 20 73 79 6d 6e 6f 64 |ymptr.= |^ symnod|
|00002900| 65 3b 0a 58 09 28 2a 20 | 69 64 65 6e 74 69 66 69 |e;.X.(* |identifi|
|00002910| 65 72 2f 6c 69 74 65 72 | 61 6c 20 73 79 6d 62 6f |er/liter|al symbo|
|00002920| 6c 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 2a 29 0a |l defini|tion *).|
|00002930| 58 09 28 2a 20 69 6e 20 | 61 20 67 69 76 65 6e 20 |X.(* in |a given |
|00002940| 73 63 6f 70 65 20 61 6e | 20 69 64 65 6e 74 69 66 |scope an| identif|
|00002950| 69 65 72 20 6f 72 20 61 | 20 6c 61 62 65 6c 20 69 |ier or a| label i|
|00002960| 73 20 75 6e 69 71 75 65 | 6c 79 20 72 65 70 72 65 |s unique|ly repre|
|00002970| 73 65 6e 74 65 64 0a 58 | 09 20 20 20 62 79 20 61 |sented.X|. by a|
|00002980| 20 22 73 79 6d 6e 6f 64 | 65 22 3b 20 69 6e 20 6f | "symnod|e"; in o|
|00002990| 72 64 65 72 20 74 6f 20 | 68 61 76 65 20 61 20 75 |rder to |have a u|
|000029a0| 6e 69 66 6f 72 6d 20 74 | 72 65 61 74 6d 65 6e 74 |niform t|reatment|
|000029b0| 20 6f 66 20 61 6c 6c 20 | 6f 62 6a 65 63 74 73 0a | of all |objects.|
|000029c0| 58 09 20 20 20 6f 63 63 | 75 72 72 69 6e 67 20 69 |X. occ|urring i|
|000029d0| 6e 20 74 68 65 20 73 61 | 6d 65 20 73 79 6e 74 61 |n the sa|me synta|
|000029e0| 63 74 69 63 61 6c 20 70 | 6f 73 69 74 69 6f 6e 73 |ctical p|ositions|
|000029f0| 20 28 61 6e 64 20 68 65 | 6e 63 65 20 69 6e 20 74 | (and he|nce in t|
|00002a00| 68 65 20 70 61 72 73 65 | 2d 0a 58 09 20 20 20 74 |he parse|-.X. t|
|00002a10| 72 65 65 29 20 74 68 65 | 20 6c 69 74 65 72 61 6c |ree) the| literal|
|00002a20| 20 63 6f 6e 73 74 61 6e | 74 73 20 61 72 65 20 72 | constan|ts are r|
|00002a30| 65 70 72 65 73 65 6e 74 | 65 64 20 69 6e 20 61 20 |epresent|ed in a |
|00002a40| 73 69 6d 69 6c 61 72 20 | 6d 61 6e 6e 65 72 20 2a |similar |manner *|
|00002a50| 29 0a 58 09 73 79 6d 6e | 6f 64 65 09 3d 0a 58 09 |).X.symn|ode.=.X.|
|00002a60| 20 20 20 20 72 65 63 6f | 72 64 0a 58 09 09 6c 73 | reco|rd.X..ls|
|00002a70| 79 6d 64 65 63 6c 09 3a | 20 74 72 65 65 70 74 72 |ymdecl.:| treeptr|
|00002a80| 3b 09 28 2a 20 73 79 6d | 62 6f 6c 20 64 65 63 6c |;.(* sym|bol decl|
|00002a90| 2e 20 70 6f 69 6e 74 09 | 2a 29 0a 58 09 09 6c 6e |. point.|*).X..ln|
|00002aa0| 65 78 74 09 09 3a 20 73 | 79 6d 70 74 72 3b 09 28 |ext..: s|ymptr;.(|
|00002ab0| 2a 20 73 79 6d 74 61 62 | 20 63 68 61 69 6e 20 70 |* symtab| chain p|
|00002ac0| 6f 69 6e 74 65 72 09 2a | 29 0a 58 09 09 6c 64 65 |ointer.*|).X..lde|
|00002ad0| 63 6c 09 09 3a 20 64 65 | 63 6c 70 74 72 3b 09 28 |cl..: de|clptr;.(|
|00002ae0| 2a 20 62 61 63 6b 70 74 | 72 20 74 6f 20 73 79 6d |* backpt|r to sym|
|00002af0| 74 61 62 09 2a 29 0a 58 | 09 09 63 61 73 65 20 6c |tab.*).X|..case l|
|00002b00| 74 20 3a 20 6c 74 79 70 | 65 73 20 6f 66 0a 58 09 |t : ltyp|es of.X.|
|00002b10| 09 20 20 6c 70 72 65 64 | 65 66 2c 09 09 09 28 2a |. lpred|ef,...(*|
|00002b20| 20 61 20 70 72 65 64 65 | 66 69 6e 65 64 20 69 64 | a prede|fined id|
|00002b30| 09 2a 29 0a 58 09 09 20 | 20 6c 66 69 65 6c 64 2c |.*).X.. | lfield,|
|00002b40| 09 09 09 28 2a 20 61 20 | 72 65 63 6f 72 64 20 66 |...(* a |record f|
|00002b50| 69 65 6c 64 09 2a 29 0a | 58 09 09 20 20 6c 70 6f |ield.*).|X.. lpo|
|00002b60| 69 6e 74 65 72 2c 09 09 | 09 28 2a 20 61 20 70 6f |inter,..|.(* a po|
|00002b70| 69 6e 74 65 72 20 69 64 | 09 09 2a 29 0a 58 09 09 |inter id|..*).X..|
|00002b80| 20 20 6c 69 64 65 6e 74 | 69 66 69 65 72 2c 09 09 | lident|ifier,..|
|00002b90| 09 28 2a 20 61 6e 20 69 | 64 65 6e 74 69 66 69 65 |.(* an i|dentifie|
|00002ba0| 72 09 2a 29 0a 58 09 09 | 20 20 6c 66 6f 72 77 61 |r.*).X..| lforwa|
|00002bb0| 72 64 3a 0a 58 09 09 20 | 20 20 20 28 0a 58 09 09 |rd:.X.. | (.X..|
|00002bc0| 09 6c 69 64 09 3a 20 69 | 64 70 74 72 3b 09 28 2a |.lid.: i|dptr;.(*|
|00002bd0| 20 70 74 72 20 74 6f 20 | 69 74 73 20 69 64 6e 6f | ptr to |its idno|
|00002be0| 64 65 09 2a 29 0a 58 09 | 09 09 6c 75 73 65 64 09 |de.*).X.|..lused.|
|00002bf0| 3a 20 62 6f 6f 6c 65 61 | 6e 09 28 2a 20 74 72 75 |: boolea|n.(* tru|
|00002c00| 65 20 69 66 20 73 79 6d | 62 6f 6c 20 75 73 65 64 |e if sym|bol used|
|00002c10| 09 2a 29 0a 58 09 09 20 | 20 20 20 29 3b 0a 58 09 |.*).X.. | );.X.|
|00002c20| 09 20 20 6c 73 74 72 69 | 6e 67 3a 09 09 09 28 2a |. lstri|ng:...(*|
|00002c30| 20 61 20 73 74 72 69 6e | 67 20 6c 69 74 65 72 61 | a strin|g litera|
|00002c40| 6c 20 09 2a 29 0a 58 09 | 09 20 20 20 20 28 0a 58 |l .*).X.|. (.X|
|00002c50| 09 09 09 6c 73 74 72 09 | 3a 20 73 74 72 69 6e 64 |...lstr.|: strind|
|00002c60| 78 09 28 2a 20 69 6e 64 | 65 78 20 74 6f 20 22 73 |x.(* ind|ex to "s|
|00002c70| 74 72 73 74 6f 72 22 09 | 2a 29 0a 58 09 09 20 20 |trstor".|*).X.. |
|00002c80| 20 20 29 3b 0a 58 09 09 | 20 20 6c 72 65 61 6c 3a | );.X..| lreal:|
|00002c90| 09 09 09 28 2a 20 61 20 | 72 65 61 6c 20 6c 69 74 |...(* a |real lit|
|00002ca0| 65 72 61 6c 09 2a 29 0a | 58 09 09 20 20 20 20 28 |eral.*).|X.. (|
|00002cb0| 0a 58 09 09 09 6c 66 6c | 6f 61 74 09 3a 20 73 74 |.X...lfl|oat.: st|
|00002cc0| 72 69 6e 64 78 09 28 2a | 20 69 6e 64 65 78 20 74 |rindx.(*| index t|
|00002cd0| 6f 20 22 73 74 72 73 74 | 6f 72 22 09 2a 29 0a 58 |o "strst|or".*).X|
|00002ce0| 09 09 20 20 20 20 29 3b | 0a 58 09 09 20 20 6c 66 |.. );|.X.. lf|
|00002cf0| 6f 72 77 6c 61 62 2c 09 | 09 09 28 2a 20 61 20 64 |orwlab,.|..(* a d|
|00002d00| 65 63 6c 61 72 65 64 20 | 6c 61 62 65 6c 09 2a 29 |eclared |label.*)|
|00002d10| 0a 58 09 09 20 20 6c 6c | 61 62 65 6c 3a 09 09 09 |.X.. ll|abel:...|
|00002d20| 28 2a 20 6c 61 62 65 6c | 20 64 65 63 6c 20 26 20 |(* label| decl & |
|00002d30| 64 65 66 69 6e 65 64 09 | 2a 29 0a 58 09 09 20 20 |defined.|*).X.. |
|00002d40| 20 20 28 0a 58 09 09 09 | 6c 6e 6f 09 3a 20 69 6e | (.X...|lno.: in|
|00002d50| 74 65 67 65 72 3b 09 28 | 2a 20 6c 61 62 65 6c 20 |teger;.(|* label |
|00002d60| 6e 75 6d 62 65 72 09 09 | 2a 29 0a 58 09 09 09 6c |number..|*).X...l|
|00002d70| 67 6f 09 3a 20 62 6f 6f | 6c 65 61 6e 09 28 2a 20 |go.: boo|lean.(* |
|00002d80| 6e 6f 6e 2d 6c 6f 63 61 | 6c 20 75 73 61 67 65 09 |non-loca|l usage.|
|00002d90| 2a 29 0a 58 09 09 20 20 | 20 20 29 3b 0a 58 09 09 |*).X.. | );.X..|
|00002da0| 20 20 6c 69 6e 74 65 67 | 65 72 3a 09 09 09 28 2a | linteg|er:...(*|
|00002db0| 20 61 6e 20 69 6e 74 65 | 67 65 72 20 6c 69 74 65 | an inte|ger lite|
|00002dc0| 72 61 6c 09 2a 29 0a 58 | 09 09 20 20 20 20 28 0a |ral.*).X|.. (.|
|00002dd0| 58 09 09 09 6c 69 6e 75 | 6d 09 3a 20 69 6e 74 65 |X...linu|m.: inte|
|00002de0| 67 65 72 09 28 2a 20 69 | 74 73 20 76 61 6c 75 65 |ger.(* i|ts value|
|00002df0| 09 09 2a 29 0a 58 09 09 | 20 20 20 20 29 3b 0a 58 |..*).X..| );.X|
|00002e00| 09 09 20 20 6c 63 68 61 | 72 61 63 74 65 72 3a 09 |.. lcha|racter:.|
|00002e10| 09 09 28 2a 20 61 20 63 | 68 61 72 61 63 74 65 72 |..(* a c|haracter|
|00002e20| 20 6c 69 74 65 72 61 6c | 09 2a 29 0a 58 09 09 20 | literal|.*).X.. |
|00002e30| 20 20 20 28 0a 58 09 09 | 09 6c 63 68 61 72 09 3a | (.X..|.lchar.:|
|00002e40| 20 63 68 61 72 09 09 28 | 2a 20 69 74 73 20 76 61 | char..(|* its va|
|00002e50| 6c 75 65 09 09 2a 29 0a | 58 09 09 20 20 20 20 29 |lue..*).|X.. )|
|00002e60| 0a 58 09 20 20 20 20 65 | 6e 64 3b 0a 58 0a 58 09 |.X. e|nd;.X.X.|
|00002e70| 28 2a 20 73 79 6d 62 6f | 6c 20 74 61 62 6c 65 20 |(* symbo|l table |
|00002e80| 64 65 66 69 6e 69 74 69 | 6f 6e 20 2a 29 0a 58 09 |definiti|on *).X.|
|00002e90| 28 2a 20 74 68 65 20 73 | 79 6d 62 6f 6c 20 74 61 |(* the s|ymbol ta|
|00002ea0| 62 6c 65 20 63 6f 6e 73 | 69 73 74 73 20 6f 66 20 |ble cons|ists of |
|00002eb0| 73 79 6d 6e 6f 64 65 73 | 20 63 68 61 69 6e 65 64 |symnodes| chained|
|00002ec0| 20 61 6c 6f 6e 67 20 74 | 68 65 20 6c 6e 65 78 74 | along t|he lnext|
|00002ed0| 0a 58 09 20 20 20 66 69 | 65 6c 64 3b 20 74 68 65 |.X. fi|eld; the|
|00002ee0| 20 6e 6f 64 65 73 20 61 | 72 65 20 63 6f 6e 6e 65 | nodes a|re conne|
|00002ef0| 63 74 65 64 20 69 6e 20 | 72 65 76 65 72 73 65 20 |cted in |reverse |
|00002f00| 6f 72 64 65 72 20 6f 66 | 20 6f 63 63 75 72 65 6e |order of| occuren|
|00002f10| 63 65 20 28 6c 61 73 74 | 0a 58 09 20 20 20 64 65 |ce (last|.X. de|
|00002f20| 63 6c 61 72 65 64 2c 20 | 66 69 72 73 74 20 69 6e |clared, |first in|
|00002f30| 20 63 68 61 69 6e 29 20 | 69 6e 20 74 68 65 20 73 | chain) |in the s|
|00002f40| 6c 6f 74 20 69 6e 20 74 | 68 65 20 64 65 63 6c 6e |lot in t|he decln|
|00002f50| 6f 64 65 20 64 65 74 65 | 72 6d 69 6e 65 64 0a 58 |ode dete|rmined.X|
|00002f60| 09 20 20 20 62 79 20 74 | 68 65 20 68 61 73 68 66 |. by t|he hashf|
|00002f70| 75 6e 63 74 69 6f 6e 3b | 20 77 68 65 6e 20 61 20 |unction;| when a |
|00002f80| 6e 65 77 20 73 63 6f 70 | 65 20 69 73 20 65 6e 74 |new scop|e is ent|
|00002f90| 65 72 65 64 20 61 20 6e | 65 77 20 64 65 63 6c 6e |ered a n|ew decln|
|00002fa0| 6f 64 65 20 69 73 0a 58 | 09 20 20 20 6d 61 6e 75 |ode is.X|. manu|
|00002fb0| 66 61 63 74 75 72 65 64 | 20 61 6e 64 20 74 68 65 |factured| and the|
|00002fc0| 20 70 72 65 76 69 6f 75 | 73 20 6f 6e 65 20 69 73 | previou|s one is|
|00002fd0| 20 68 6f 6f 6b 65 64 20 | 74 6f 20 74 68 65 20 64 | hooked |to the d|
|00002fe0| 70 72 65 76 20 66 69 65 | 6c 64 2c 20 74 68 75 73 |prev fie|ld, thus|
|00002ff0| 0a 58 09 20 20 20 6e 65 | 73 74 65 64 20 73 63 6f |.X. ne|sted sco|
|00003000| 70 65 73 20 61 72 65 20 | 72 65 70 72 65 73 65 6e |pes are |represen|
|00003010| 74 65 64 20 62 79 20 61 | 20 6c 69 73 74 20 6f 66 |ted by a| list of|
|00003020| 20 64 65 63 6c 6e 6f 64 | 65 73 20 2a 29 0a 58 09 | declnod|es *).X.|
|00003030| 64 65 63 6c 6e 6f 64 65 | 20 3d 20 72 65 63 6f 72 |declnode| = recor|
|00003040| 64 0a 58 09 09 09 64 70 | 72 65 76 09 3a 20 64 65 |d.X...dp|rev.: de|
|00003050| 63 6c 70 74 72 3b 0a 58 | 09 09 09 64 64 65 63 6c |clptr;.X|...ddecl|
|00003060| 09 3a 20 61 72 72 61 79 | 20 5b 20 68 61 73 68 74 |.: array| [ hasht|
|00003070| 79 70 20 5d 20 6f 66 20 | 73 79 6d 70 74 72 0a 58 |yp ] of |symptr.X|
|00003080| 09 09 20 20 20 65 6e 64 | 3b 0a 58 0a 58 09 28 2a |.. end|;.X.X.(*|
|00003090| 20 65 6e 75 6d 65 72 61 | 74 69 6f 6e 20 6f 66 20 | enumera|tion of |
|000030a0| 6e 6f 64 65 73 20 69 6e | 20 70 61 72 73 65 20 74 |nodes in| parse t|
|000030b0| 72 65 65 20 2a 29 0a 58 | 09 28 2a 20 4e 4f 54 45 |ree *).X|.(* NOTE|
|000030c0| 3a 20 74 68 65 20 73 75 | 62 72 61 6e 67 65 20 5b |: the su|brange [|
|000030d0| 20 61 73 73 69 67 6e 6d | 65 6e 74 20 2e 2e 20 6e | assignm|ent .. n|
|000030e0| 69 6c 20 5d 20 20 68 61 | 76 65 20 70 72 69 6f 72 |il ] ha|ve prior|
|000030f0| 69 74 69 65 73 20 2a 29 | 0a 58 09 74 72 65 65 74 |ities *)|.X.treet|
|00003100| 79 70 09 3d 20 28 0a 58 | 09 09 6e 70 72 65 64 65 |yp.= (.X|..nprede|
|00003110| 66 2c 09 6e 70 67 6d 2c | 09 09 6e 66 75 6e 63 2c |f,.npgm,|..nfunc,|
|00003120| 09 09 6e 70 72 6f 63 2c | 0a 58 09 09 6e 6c 61 62 |..nproc,|.X..nlab|
|00003130| 65 6c 2c 09 09 6e 63 6f | 6e 73 74 2c 09 09 6e 74 |el,..nco|nst,..nt|
|00003140| 79 70 65 2c 09 09 6e 76 | 61 72 2c 0a 58 09 09 6e |ype,..nv|ar,.X..n|
|00003150| 76 61 6c 70 61 72 2c 09 | 6e 76 61 72 70 61 72 2c |valpar,.|nvarpar,|
|00003160| 09 6e 70 61 72 70 72 6f | 63 2c 09 6e 70 61 72 66 |.nparpro|c,.nparf|
|00003170| 75 6e 63 2c 0a 58 09 09 | 6e 73 75 62 72 61 6e 67 |unc,.X..|nsubrang|
|00003180| 65 2c 09 6e 76 61 72 69 | 61 6e 74 2c 09 6e 66 69 |e,.nvari|ant,.nfi|
|00003190| 65 6c 64 2c 09 09 6e 72 | 65 63 6f 72 64 2c 0a 58 |eld,..nr|ecord,.X|
|000031a0| 09 09 6e 61 72 72 61 79 | 2c 09 09 6e 63 6f 6e 66 |..narray|,..nconf|
|000031b0| 61 72 72 2c 09 6e 66 69 | 6c 65 6f 66 2c 09 6e 73 |arr,.nfi|leof,.ns|
|000031c0| 65 74 6f 66 2c 0a 58 09 | 09 6e 62 65 67 69 6e 2c |etof,.X.|.nbegin,|
|000031d0| 09 09 6e 70 74 72 2c 09 | 09 6e 73 63 61 6c 61 72 |..nptr,.|.nscalar|
|000031e0| 2c 09 6e 69 66 2c 0a 58 | 09 09 6e 77 68 69 6c 65 |,.nif,.X|..nwhile|
|000031f0| 2c 09 09 6e 72 65 70 65 | 61 74 2c 09 6e 66 6f 72 |,..nrepe|at,.nfor|
|00003200| 2c 09 09 6e 63 61 73 65 | 2c 0a 58 09 09 6e 63 68 |,..ncase|,.X..nch|
|00003210| 6f 69 73 65 2c 09 6e 67 | 6f 74 6f 2c 09 09 6e 77 |oise,.ng|oto,..nw|
|00003220| 69 74 68 2c 09 09 6e 77 | 69 74 68 76 61 72 2c 0a |ith,..nw|ithvar,.|
|00003230| 58 09 09 6e 65 6d 70 74 | 79 2c 09 09 6e 6c 61 62 |X..nempt|y,..nlab|
|00003240| 73 74 6d 74 2c 09 6e 61 | 73 73 69 67 6e 2c 09 6e |stmt,.na|ssign,.n|
|00003250| 66 6f 72 6d 61 74 2c 0a | 58 09 09 6e 69 6e 2c 09 |format,.|X..nin,.|
|00003260| 09 6e 65 71 2c 09 09 6e | 6e 65 2c 09 09 6e 6c 74 |.neq,..n|ne,..nlt|
|00003270| 2c 0a 58 09 09 6e 6c 65 | 2c 09 09 6e 67 74 2c 09 |,.X..nle|,..ngt,.|
|00003280| 09 6e 67 65 2c 09 09 6e | 6f 72 2c 0a 58 09 09 6e |.nge,..n|or,.X..n|
|00003290| 70 6c 75 73 2c 09 09 6e | 6d 69 6e 75 73 2c 09 09 |plus,..n|minus,..|
|000032a0| 6e 61 6e 64 2c 09 09 6e | 6d 75 6c 2c 0a 58 09 09 |nand,..n|mul,.X..|
|000032b0| 6e 64 69 76 2c 09 09 6e | 6d 6f 64 2c 09 09 6e 71 |ndiv,..n|mod,..nq|
|000032c0| 75 6f 74 2c 09 09 6e 6e | 6f 74 2c 0a 58 09 09 6e |uot,..nn|ot,.X..n|
|000032d0| 75 6d 69 6e 75 73 2c 09 | 6e 75 70 6c 75 73 2c 09 |uminus,.|nuplus,.|
|000032e0| 09 6e 73 65 74 2c 09 09 | 6e 72 61 6e 67 65 2c 0a |.nset,..|nrange,.|
|000032f0| 58 09 09 6e 69 6e 64 65 | 78 2c 09 09 6e 73 65 6c |X..ninde|x,..nsel|
|00003300| 65 63 74 2c 09 6e 64 65 | 72 65 66 2c 09 09 6e 63 |ect,.nde|ref,..nc|
|00003310| 61 6c 6c 2c 0a 58 09 09 | 6e 69 64 2c 09 09 6e 63 |all,.X..|nid,..nc|
|00003320| 68 61 72 2c 09 09 6e 69 | 6e 74 65 67 65 72 2c 09 |har,..ni|nteger,.|
|00003330| 6e 72 65 61 6c 2c 0a 58 | 09 09 6e 73 74 72 69 6e |nreal,.X|..nstrin|
|00003340| 67 2c 09 6e 6e 69 6c 2c | 09 09 6e 70 75 73 68 2c |g,.nnil,|..npush,|
|00003350| 09 09 6e 70 6f 70 2c 0a | 58 09 09 6e 62 72 65 61 |..npop,.|X..nbrea|
|00003360| 6b 0a 58 09 29 3b 0a 58 | 0a 58 09 28 2a 20 65 6e |k.X.);.X|.X.(* en|
|00003370| 75 6d 65 72 61 74 69 6f | 6e 20 6f 66 20 70 72 65 |umeratio|n of pre|
|00003380| 64 65 66 69 6e 65 64 20 | 74 79 70 65 73 20 2a 29 |defined |types *)|
|00003390| 0a 58 09 70 72 65 74 79 | 70 73 20 3d 20 28 0a 58 |.X.prety|ps = (.X|
|000033a0| 09 09 74 6e 6f 6e 65 2c | 09 09 74 62 6f 6f 6c 65 |..tnone,|..tboole|
|000033b0| 61 6e 2c 09 74 63 68 61 | 72 2c 09 09 74 69 6e 74 |an,.tcha|r,..tint|
|000033c0| 65 67 65 72 2c 0a 58 09 | 09 74 72 65 61 6c 2c 09 |eger,.X.|.treal,.|
|000033d0| 09 74 73 74 72 69 6e 67 | 2c 09 74 6e 69 6c 2c 09 |.tstring|,.tnil,.|
|000033e0| 09 74 73 65 74 2c 0a 58 | 09 09 74 74 65 78 74 2c |.tset,.X|..ttext,|
|000033f0| 09 09 74 70 6f 6c 79 2c | 09 09 74 65 72 72 6f 72 |..tpoly,|..terror|
|00003400| 0a 58 09 29 3b 0a 58 0a | 58 09 28 2a 20 65 6e 75 |.X.);.X.|X.(* enu|
|00003410| 6d 65 72 61 74 69 6f 6e | 20 6f 66 20 73 6f 6d 65 |meration| of some|
|00003420| 20 73 70 65 63 69 61 6c | 20 61 74 74 72 69 62 75 | special| attribu|
|00003430| 74 65 73 20 2a 29 0a 58 | 09 61 74 74 72 69 62 75 |tes *).X|.attribu|
|00003440| 74 65 73 20 3d 20 28 0a | 58 09 09 61 6e 6f 6e 65 |tes = (.|X..anone|
|00003450| 2c 20 61 72 65 67 69 73 | 74 65 72 2c 20 61 65 78 |, aregis|ter, aex|
|00003460| 74 65 72 6e 2c 20 61 72 | 65 66 65 72 65 6e 63 65 |tern, ar|eference|
|00003470| 0a 58 09 29 3b 0a 58 0a | 58 09 28 2a 20 70 61 72 |.X.);.X.|X.(* par|
|00003480| 73 65 20 74 72 65 65 20 | 64 65 66 69 6e 69 74 69 |se tree |definiti|
|00003490| 6f 6e 20 2a 29 0a 58 09 | 28 2a 20 74 68 65 20 73 |on *).X.|(* the s|
|000034a0| 6f 75 72 63 65 70 72 6f | 67 72 61 6d 20 69 73 20 |ourcepro|gram is |
|000034b0| 72 65 70 72 65 73 65 6e | 74 65 64 20 62 79 20 61 |represen|ted by a|
|000034c0| 20 74 72 65 65 73 74 72 | 75 63 74 75 72 65 20 62 | treestr|ucture b|
|000034d0| 75 69 6c 74 20 66 72 6f | 6d 0a 58 09 20 20 20 74 |uilt fro|m.X. t|
|000034e0| 72 65 65 6e 6f 64 65 73 | 20 77 68 65 72 65 20 65 |reenodes| where e|
|000034f0| 61 63 68 20 6e 6f 64 65 | 20 63 6f 72 72 65 73 70 |ach node| corresp|
|00003500| 6f 6e 64 73 20 74 6f 20 | 6f 6e 65 20 73 79 6e 74 |onds to |one synt|
|00003510| 61 63 74 69 63 20 66 6f | 72 6d 20 66 72 6f 6d 0a |actic fo|rm from.|
|00003520| 58 09 20 20 20 74 68 65 | 20 70 61 73 63 61 6c 20 |X. the| pascal |
|00003530| 70 72 6f 67 72 61 6d 20 | 2a 29 0a 58 09 74 72 65 |program |*).X.tre|
|00003540| 65 6e 6f 64 65 20 3d 0a | 58 09 20 20 20 20 72 65 |enode =.|X. re|
|00003550| 63 6f 72 64 0a 58 09 09 | 74 6e 65 78 74 2c 09 09 |cord.X..|tnext,..|
|00003560| 09 28 2a 20 70 74 72 20 | 74 6f 20 6e 65 78 74 20 |.(* ptr |to next |
|00003570| 6e 6f 64 65 20 69 6e 20 | 61 20 6c 69 73 74 09 2a |node in |a list.*|
|00003580| 29 0a 58 09 09 74 74 79 | 70 65 2c 09 09 09 28 2a |).X..tty|pe,...(*|
|00003590| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 6e 6f 64 65 | pointer| to node|
|000035a0| 73 20 74 79 70 65 09 2a | 29 0a 58 09 09 74 75 70 |s type.*|).X..tup|
|000035b0| 09 3a 20 74 72 65 65 70 | 74 72 3b 09 28 2a 20 70 |.: treep|tr;.(* p|
|000035c0| 74 72 20 74 6f 20 70 61 | 72 65 6e 74 20 6e 6f 64 |tr to pa|rent nod|
|000035d0| 65 09 09 2a 29 20 0a 58 | 09 09 63 61 73 65 20 74 |e..*) .X|..case t|
|000035e0| 74 20 3a 20 74 72 65 65 | 74 79 70 20 6f 66 0a 58 |t : tree|typ of.X|
|000035f0| 09 09 20 20 6e 70 72 65 | 64 65 66 3a 09 09 28 2a |.. npre|def:..(*|
|00003600| 20 70 72 65 64 65 66 69 | 6e 65 64 20 6f 62 6a 65 | predefi|ned obje|
|00003610| 63 74 20 64 65 63 6c 09 | 2a 29 0a 58 09 09 20 20 |ct decl.|*).X.. |
|00003620| 20 20 28 0a 58 09 09 09 | 74 64 65 66 3a 09 09 28 | (.X...|tdef:..(|
|00003630| 2a 20 70 72 65 64 65 66 | 69 6e 65 64 20 6f 62 6a |* predef|ined obj|
|00003640| 65 63 74 20 64 65 73 63 | 72 2e 09 2a 29 0a 58 09 |ect desc|r..*).X.|
|00003650| 09 09 09 70 72 65 64 65 | 66 73 3b 0a 58 09 09 09 |...prede|fs;.X...|
|00003660| 74 6f 62 74 79 70 3a 09 | 09 28 2a 20 6f 62 6a 65 |tobtyp:.|.(* obje|
|00003670| 63 74 20 74 79 70 65 09 | 09 09 2a 29 0a 58 09 09 |ct type.|..*).X..|
|00003680| 09 09 70 72 65 74 79 70 | 73 0a 58 09 09 20 20 20 |..pretyp|s.X.. |
|00003690| 20 29 3b 0a 58 09 09 20 | 20 6e 70 67 6d 2c 09 09 | );.X.. | npgm,..|
|000036a0| 09 28 2a 20 70 72 6f 67 | 72 61 6d 20 64 65 63 6c |.(* prog|ram decl|
|000036b0| 61 72 61 74 69 6f 6e 09 | 09 2a 29 0a 58 09 09 20 |aration.|.*).X.. |
|000036c0| 20 6e 70 72 6f 63 2c 09 | 09 28 2a 20 70 72 6f 63 | nproc,.|.(* proc|
|000036d0| 65 64 75 72 65 20 64 65 | 63 6c 61 72 61 74 69 6f |edure de|claratio|
|000036e0| 6e 09 2a 29 0a 58 09 09 | 20 20 6e 66 75 6e 63 3a |n.*).X..| nfunc:|
|000036f0| 09 09 28 2a 20 66 75 6e | 63 74 69 6f 6e 20 64 65 |..(* fun|ction de|
|00003700| 63 6c 61 72 61 74 69 6f | 6e 09 09 2a 29 0a 58 09 |claratio|n..*).X.|
|00003710| 09 20 20 20 20 28 0a 58 | 09 09 09 74 73 75 62 69 |. (.X|...tsubi|
|00003720| 64 2c 09 09 28 2a 20 73 | 75 62 72 2e 20 69 64 65 |d,..(* s|ubr. ide|
|00003730| 6e 74 69 66 69 65 72 20 | 28 6e 69 64 29 09 2a 29 |ntifier |(nid).*)|
|00003740| 0a 58 09 09 09 74 73 75 | 62 70 61 72 2c 09 28 2a |.X...tsu|bpar,.(*|
|00003750| 20 70 61 72 61 6d 65 74 | 65 72 20 6c 69 73 74 09 | paramet|er list.|
|00003760| 09 2a 29 0a 58 09 09 09 | 74 66 75 6e 74 79 70 2c |.*).X...|tfuntyp,|
|00003770| 09 28 2a 20 66 75 6e 63 | 74 69 6f 6e 20 74 79 70 |.(* func|tion typ|
|00003780| 65 20 28 6e 69 64 29 09 | 09 2a 29 0a 58 09 09 09 |e (nid).|.*).X...|
|00003790| 74 73 75 62 6c 61 62 2c | 09 28 2a 20 6c 61 62 65 |tsublab,|.(* labe|
|000037a0| 6c 20 64 65 63 6c 20 6c | 69 73 74 20 28 6e 6c 61 |l decl l|ist (nla|
|000037b0| 62 65 6c 29 09 2a 29 0a | 58 09 09 09 74 73 75 62 |bel).*).|X...tsub|
|000037c0| 63 6f 6e 73 74 2c 09 28 | 2a 20 63 6f 6e 73 74 20 |const,.(|* const |
|000037d0| 64 65 63 6c 20 6c 69 73 | 74 20 28 6e 63 6f 6e 73 |decl lis|t (ncons|
|000037e0| 74 29 09 2a 29 0a 58 09 | 09 09 74 73 75 62 74 79 |t).*).X.|..tsubty|
|000037f0| 70 65 2c 09 28 2a 20 74 | 79 70 65 20 64 65 63 6c |pe,.(* t|ype decl|
|00003800| 20 6c 69 73 74 20 28 6e | 74 79 70 65 29 09 2a 29 | list (n|type).*)|
|00003810| 0a 58 09 09 09 74 73 75 | 62 76 61 72 2c 09 28 2a |.X...tsu|bvar,.(*|
|00003820| 20 76 61 72 20 64 65 63 | 6c 20 6c 69 73 74 20 28 | var dec|l list (|
|00003830| 6e 76 61 72 29 09 09 2a | 29 0a 58 09 09 09 74 73 |nvar)..*|).X...ts|
|00003840| 75 62 73 75 62 2c 09 28 | 2a 20 73 75 62 72 2e 20 |ubsub,.(|* subr. |
|00003850| 64 65 63 6c 20 28 6e 70 | 72 6f 63 2f 6e 66 75 6e |decl (np|roc/nfun|
|00003860| 63 29 09 2a 29 0a 58 09 | 09 09 74 73 75 62 73 74 |c).*).X.|..tsubst|
|00003870| 6d 74 3a 09 28 2a 20 73 | 74 6d 74 2e 20 6c 69 73 |mt:.(* s|tmt. lis|
|00003880| 74 20 28 4e 4f 54 20 6e | 62 65 67 69 6e 29 09 2a |t (NOT n|begin).*|
|00003890| 29 0a 58 09 09 09 09 74 | 72 65 65 70 74 72 3b 0a |).X....t|reeptr;.|
|000038a0| 58 09 09 09 74 73 74 61 | 74 3a 09 09 28 2a 20 73 |X...tsta|t:..(* s|
|000038b0| 74 61 74 69 63 20 64 65 | 63 6c 61 72 61 74 69 6f |tatic de|claratio|
|000038c0| 6e 20 6c 65 76 65 6c 09 | 2a 29 0a 58 09 09 09 09 |n level.|*).X....|
|000038d0| 69 6e 74 65 67 65 72 3b | 0a 58 09 09 09 74 73 63 |integer;|.X...tsc|
|000038e0| 6f 70 65 3a 09 09 28 2a | 20 73 79 6d 62 6f 6c 20 |ope:..(*| symbol |
|000038f0| 74 61 62 6c 65 20 66 6f | 72 20 6c 6f 63 61 6c 20 |table fo|r local |
|00003900| 69 64 27 73 09 2a 29 0a | 58 09 09 09 09 20 64 65 |id's.*).|X.... de|
|00003910| 63 6c 70 74 72 0a 58 09 | 09 20 20 20 20 29 3b 0a |clptr.X.|. );.|
|00003920| 58 09 09 20 20 6e 76 61 | 6c 70 61 72 2c 09 09 28 |X.. nva|lpar,..(|
|00003930| 2a 20 76 61 6c 75 65 20 | 70 61 72 61 6d 65 74 65 |* value |paramete|
|00003940| 72 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 09 2a 29 |r declar|ation.*)|
|00003950| 0a 58 09 09 20 20 6e 76 | 61 72 70 61 72 2c 09 09 |.X.. nv|arpar,..|
|00003960| 28 2a 20 76 61 72 20 70 | 61 72 61 6d 65 74 65 72 |(* var p|arameter|
|00003970| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 09 2a 29 0a | declara|tion.*).|
|00003980| 58 09 09 20 20 6e 63 6f | 6e 73 74 2c 09 09 28 2a |X.. nco|nst,..(*|
|00003990| 20 63 6f 6e 73 74 61 6e | 74 20 64 65 63 6c 61 72 | constan|t declar|
|000039a0| 61 74 69 6f 6e 09 09 2a | 29 0a 58 09 09 20 20 6e |ation..*|).X.. n|
|000039b0| 74 79 70 65 2c 09 09 28 | 2a 20 74 79 70 65 20 64 |type,..(|* type d|
|000039c0| 65 63 6c 61 72 61 74 69 | 6f 6e 09 09 2a 29 0a 58 |eclarati|on..*).X|
|000039d0| 09 09 20 20 6e 66 69 65 | 6c 64 2c 09 09 28 2a 20 |.. nfie|ld,..(* |
|000039e0| 72 65 63 6f 72 64 20 66 | 69 65 6c 64 20 64 65 63 |record f|ield dec|
|000039f0| 6c 61 72 61 74 69 6f 6e | 09 2a 29 0a 58 09 09 20 |laration|.*).X.. |
|00003a00| 20 6e 76 61 72 3a 09 09 | 09 28 2a 20 76 61 72 20 | nvar:..|.(* var |
|00003a10| 64 65 63 6c 61 72 61 74 | 69 6f 6e 20 64 65 63 6c |declarat|ion decl|
|00003a20| 61 72 61 74 69 6f 6e 09 | 2a 29 0a 58 09 09 20 20 |aration.|*).X.. |
|00003a30| 20 20 28 0a 58 09 09 09 | 74 69 64 6c 2c 09 09 28 | (.X...|tidl,..(|
|00003a40| 2a 20 6c 69 73 74 20 6f | 66 20 64 65 63 6c 61 72 |* list o|f declar|
|00003a50| 65 64 20 69 64 27 73 20 | 28 6e 69 64 29 09 2a 29 |ed id's |(nid).*)|
|00003a60| 0a 58 09 09 09 74 62 69 | 6e 64 3a 09 09 28 2a 20 |.X...tbi|nd:..(* |
|00003a70| 76 61 72 2f 74 79 70 65 | 2d 74 79 70 65 2c 20 63 |var/type|-type, c|
|00003a80| 6f 6e 73 74 2d 76 61 6c | 75 65 09 2a 29 0a 58 09 |onst-val|ue.*).X.|
|00003a90| 09 09 09 74 72 65 65 70 | 74 72 3b 0a 58 09 09 09 |...treep|tr;.X...|
|00003aa0| 74 61 74 74 72 3a 09 09 | 28 2a 20 73 70 65 63 69 |tattr:..|(* speci|
|00003ab0| 61 6c 20 61 74 74 72 69 | 62 75 74 65 73 20 66 6f |al attri|butes fo|
|00003ac0| 72 20 76 61 72 73 09 2a | 29 0a 58 09 09 09 09 61 |r vars.*|).X....a|
|00003ad0| 74 74 72 69 62 75 74 65 | 73 0a 58 09 09 20 20 20 |ttribute|s.X.. |
|00003ae0| 20 29 3b 0a 58 09 09 20 | 20 6e 70 61 72 70 72 6f | );.X.. | nparpro|
|00003af0| 63 2c 09 09 28 2a 20 70 | 61 72 61 6d 65 74 65 72 |c,..(* p|arameter|
|00003b00| 20 70 72 6f 63 65 64 75 | 72 65 09 09 2a 29 0a 58 | procedu|re..*).X|
|00003b10| 09 09 20 20 6e 70 61 72 | 66 75 6e 63 3a 09 09 28 |.. npar|func:..(|
|00003b20| 2a 20 70 61 72 61 6d 65 | 74 65 72 20 66 75 6e 63 |* parame|ter func|
|00003b30| 74 69 6f 6e 09 09 2a 29 | 0a 58 09 09 20 20 20 20 |tion..*)|.X.. |
|00003b40| 28 0a 58 09 09 09 74 70 | 61 72 69 64 2c 09 09 28 |(.X...tp|arid,..(|
|00003b50| 2a 20 70 61 72 6d 20 70 | 72 6f 63 2f 66 75 6e 63 |* parm p|roc/func|
|00003b60| 20 69 64 20 28 6e 69 64 | 29 09 2a 29 0a 58 09 09 | id (nid|).*).X..|
|00003b70| 09 74 70 61 72 70 61 72 | 6d 2c 09 28 2a 20 70 61 |.tparpar|m,.(* pa|
|00003b80| 72 6d 20 70 72 6f 63 2f | 66 75 6e 63 20 70 61 72 |rm proc/|func par|
|00003b90| 6d 20 64 65 63 6c 09 2a | 29 0a 58 09 09 09 74 70 |m decl.*|).X...tp|
|00003ba0| 61 72 74 79 70 3a 09 28 | 2a 20 70 61 72 6d 20 66 |artyp:.(|* parm f|
|00003bb0| 75 6e 63 20 74 79 70 65 | 20 28 6e 69 64 29 09 09 |unc type| (nid)..|
|00003bc0| 2a 29 0a 58 09 09 09 09 | 74 72 65 65 70 74 72 0a |*).X....|treeptr.|
|00003bd0| 58 09 09 20 20 20 20 29 | 3b 0a 58 09 09 20 20 6e |X.. )|;.X.. n|
|00003be0| 70 74 72 3a 09 09 09 28 | 2a 20 70 6f 69 6e 74 65 |ptr:...(|* pointe|
|00003bf0| 72 20 63 6f 6e 73 74 72 | 75 63 74 6f 72 09 09 2a |r constr|uctor..*|
|00003c00| 29 0a 58 09 09 20 20 20 | 20 28 0a 58 09 09 09 74 |).X.. | (.X...t|
|00003c10| 70 74 72 69 64 3a 09 09 | 28 2a 20 72 65 66 65 72 |ptrid:..|(* refer|
|00003c20| 65 6e 63 65 64 20 74 79 | 70 65 20 28 6e 69 64 29 |enced ty|pe (nid)|
|00003c30| 09 2a 29 0a 58 09 09 09 | 09 74 72 65 65 70 74 72 |.*).X...|.treeptr|
|00003c40| 3b 0a 58 09 09 09 74 70 | 74 72 66 6c 61 67 3a 09 |;.X...tp|trflag:.|
|00003c50| 28 2a 20 68 61 76 65 20 | 73 65 65 6e 20 6e 6f 64 |(* have |seen nod|
|00003c60| 65 20 62 65 66 6f 72 65 | 09 2a 29 0a 58 09 09 09 |e before|.*).X...|
|00003c70| 09 62 6f 6f 6c 65 61 6e | 0a 58 09 09 20 20 20 20 |.boolean|.X.. |
|00003c80| 29 3b 0a 58 09 09 20 20 | 6e 73 63 61 6c 61 72 3a |);.X.. |nscalar:|
|00003c90| 09 09 28 2a 20 73 63 61 | 6c 61 72 20 74 79 70 65 |..(* sca|lar type|
|00003ca0| 20 63 6f 6e 73 74 72 75 | 63 74 6f 72 09 2a 29 0a | constru|ctor.*).|
|00003cb0| 58 09 09 20 20 20 20 28 | 0a 58 09 09 09 74 73 63 |X.. (|.X...tsc|
|00003cc0| 61 6c 69 64 3a 09 28 2a | 20 6c 69 73 74 20 6f 66 |alid:.(*| list of|
|00003cd0| 20 73 63 61 6c 61 72 20 | 69 64 73 20 28 6e 69 64 | scalar |ids (nid|
|00003ce0| 29 09 2a 29 0a 58 09 09 | 09 09 74 72 65 65 70 74 |).*).X..|..treept|
|00003cf0| 72 0a 58 09 09 20 20 20 | 20 29 3b 0a 58 09 09 20 |r.X.. | );.X.. |
|00003d00| 20 6e 66 69 6c 65 6f 66 | 2c 09 09 28 2a 20 66 69 | nfileof|,..(* fi|
|00003d10| 6c 65 20 74 79 70 65 20 | 63 6f 6e 73 74 72 75 63 |le type |construc|
|00003d20| 74 6f 72 09 2a 29 0a 58 | 09 09 20 20 6e 73 65 74 |tor.*).X|.. nset|
|00003d30| 6f 66 3a 09 09 28 2a 20 | 73 65 74 20 74 79 70 65 |of:..(* |set type|
|00003d40| 20 63 6f 6e 73 74 72 75 | 63 74 6f 72 09 09 2a 29 | constru|ctor..*)|
|00003d50| 0a 58 09 09 20 20 20 20 | 28 0a 58 09 09 09 74 6f |.X.. |(.X...to|
|00003d60| 66 3a 09 09 28 2a 20 73 | 65 74 2f 66 69 6c 65 20 |f:..(* s|et/file |
|00003d70| 63 6f 6d 70 6f 6e 65 6e | 74 20 74 79 70 65 09 2a |componen|t type.*|
|00003d80| 29 0a 58 09 09 09 09 74 | 72 65 65 70 74 72 0a 58 |).X....t|reeptr.X|
|00003d90| 09 09 20 20 20 20 29 3b | 0a 58 09 09 20 20 6e 73 |.. );|.X.. ns|
|00003da0| 75 62 72 61 6e 67 65 3a | 09 09 28 2a 20 73 75 62 |ubrange:|..(* sub|
|00003db0| 72 61 6e 67 65 20 74 79 | 70 65 20 63 6f 6e 73 74 |range ty|pe const|
|00003dc0| 72 75 63 74 6f 72 09 2a | 29 0a 58 09 09 20 20 20 |ructor.*|).X.. |
|00003dd0| 20 28 0a 58 09 09 09 74 | 6c 6f 2c 20 74 68 69 3a | (.X...t|lo, thi:|
|00003de0| 09 28 2a 20 73 75 62 72 | 61 6e 67 65 20 6c 69 6d |.(* subr|ange lim|
|00003df0| 69 74 73 09 09 2a 29 0a | 58 09 09 09 09 74 72 65 |its..*).|X....tre|
|00003e00| 65 70 74 72 0a 58 09 09 | 20 20 20 20 29 3b 0a 58 |eptr.X..| );.X|
|00003e10| 09 09 20 20 6e 76 61 72 | 69 61 6e 74 3a 09 09 28 |.. nvar|iant:..(|
|00003e20| 2a 20 72 65 63 6f 72 64 | 20 76 61 72 69 61 6e 74 |* record| variant|
|00003e30| 20 63 6f 6e 73 74 72 75 | 63 74 6f 72 09 2a 29 0a | constru|ctor.*).|
|00003e40| 58 09 09 20 20 20 20 28 | 0a 58 09 09 09 74 73 65 |X.. (|.X...tse|
|00003e50| 6c 63 74 2c 09 09 28 2a | 20 73 65 6c 65 63 74 6f |lct,..(*| selecto|
|00003e60| 72 20 6c 69 73 74 20 28 | 63 6f 6e 73 74 61 6e 74 |r list (|constant|
|00003e70| 73 29 09 2a 29 0a 58 09 | 09 09 74 76 72 6e 74 3a |s).*).X.|..tvrnt:|
|00003e80| 09 09 28 2a 20 76 61 72 | 69 61 6e 74 20 66 69 65 |..(* var|iant fie|
|00003e90| 6c 64 20 64 65 63 6c 20 | 28 6e 72 65 63 6f 72 64 |ld decl |(nrecord|
|00003ea0| 29 09 2a 29 0a 58 09 09 | 09 09 74 72 65 65 70 74 |).*).X..|..treept|
|00003eb0| 72 0a 58 09 09 20 20 20 | 20 29 3b 0a 58 0a 58 09 |r.X.. | );.X.X.|
|00003ec0| 09 28 2a 20 74 68 65 20 | 74 75 69 64 20 66 69 65 |.(* the |tuid fie|
|00003ed0| 6c 64 20 69 73 20 75 73 | 65 64 20 74 6f 20 61 74 |ld is us|ed to at|
|00003ee0| 74 61 63 68 20 61 20 6e | 61 6d 65 20 74 6f 20 76 |tach a n|ame to v|
|00003ef0| 61 72 69 61 6e 74 73 20 | 73 69 6e 63 65 0a 58 09 |ariants |since.X.|
|00003f00| 09 20 20 20 43 20 72 65 | 71 75 69 72 65 73 20 61 |. C re|quires a|
|00003f10| 6c 6c 20 75 6e 69 6f 6e | 20 6d 65 6d 62 65 72 73 |ll union| members|
|00003f20| 20 74 6f 20 68 61 76 65 | 20 6e 61 6d 65 73 20 2a | to have| names *|
|00003f30| 29 0a 58 09 09 20 20 6e | 72 65 63 6f 72 64 3a 09 |).X.. n|record:.|
|00003f40| 09 28 2a 20 72 65 63 6f | 72 64 2f 76 61 72 69 61 |.(* reco|rd/varia|
|00003f50| 6e 74 20 63 6f 6e 73 74 | 72 75 63 74 6f 72 09 2a |nt const|ructor.*|
|00003f60| 29 0a 58 09 09 20 20 20 | 20 28 0a 58 09 09 09 74 |).X.. | (.X...t|
|00003f70| 66 6c 69 73 74 2c 09 09 | 28 2a 20 66 69 78 65 64 |flist,..|(* fixed|
|00003f80| 20 66 69 65 6c 64 20 6c | 69 73 74 20 28 6e 66 69 | field l|ist (nfi|
|00003f90| 65 6c 64 29 09 2a 29 0a | 58 09 09 09 74 76 6c 69 |eld).*).|X...tvli|
|00003fa0| 73 74 3a 09 09 28 2a 20 | 76 61 72 69 61 6e 74 20 |st:..(* |variant |
|00003fb0| 6c 69 73 74 20 28 6e 76 | 61 72 69 61 6e 74 29 09 |list (nv|ariant).|
|00003fc0| 2a 29 0a 58 09 09 09 09 | 74 72 65 65 70 74 72 3b |*).X....|treeptr;|
|00003fd0| 0a 58 09 09 09 74 75 69 | 64 3a 09 09 28 2a 20 76 |.X...tui|d:..(* v|
|00003fe0| 61 72 69 61 6e 74 20 6e | 61 6d 65 09 09 09 2a 29 |ariant n|ame...*)|
|00003ff0| 0a 58 09 09 09 09 69 64 | 70 74 72 3b 0a 58 09 09 |.X....id|ptr;.X..|
|00004000| 09 74 72 73 63 6f 70 65 | 3a 09 28 2a 20 73 79 6d |.trscope|:.(* sym|
|00004010| 62 6f 6c 20 74 61 62 6c | 65 20 66 6f 72 20 6c 6f |bol tabl|e for lo|
|00004020| 63 61 6c 20 69 64 27 73 | 09 2a 29 0a 58 09 09 09 |cal id's|.*).X...|
|00004030| 09 20 64 65 63 6c 70 74 | 72 0a 58 09 09 20 20 20 |. declpt|r.X.. |
|00004040| 20 29 3b 0a 58 09 09 20 | 20 6e 63 6f 6e 66 61 72 | );.X.. | nconfar|
|00004050| 72 3a 09 09 28 2a 20 63 | 6f 6e 66 6f 72 6d 61 6e |r:..(* c|onforman|
|00004060| 74 20 61 72 72 61 79 20 | 63 6f 6e 73 74 72 75 63 |t array |construc|
|00004070| 74 6f 72 09 2a 29 0a 58 | 09 09 20 20 20 20 28 0a |tor.*).X|.. (.|
|00004080| 58 09 09 09 74 63 69 6e | 64 78 2c 09 09 28 2a 20 |X...tcin|dx,..(* |
|00004090| 69 6e 64 65 78 20 64 65 | 63 6c 61 72 61 74 69 6f |index de|claratio|
|000040a0| 6e 09 09 2a 29 0a 58 09 | 09 09 74 69 6e 64 74 79 |n..*).X.|..tindty|
|000040b0| 70 2c 09 28 2a 20 63 6f | 6e 66 2e 20 61 72 72 2e |p,.(* co|nf. arr.|
|000040c0| 20 69 6e 64 65 78 20 74 | 79 70 65 20 28 6e 69 64 | index t|ype (nid|
|000040d0| 29 09 2a 29 0a 58 09 09 | 09 74 63 65 6c 65 6d 3a |).*).X..|.tcelem:|
|000040e0| 09 09 28 2a 20 61 72 72 | 61 79 20 65 6c 65 6d 65 |..(* arr|ay eleme|
|000040f0| 6e 74 20 74 79 70 65 20 | 64 65 63 6c 09 2a 29 0a |nt type |decl.*).|
|00004100| 58 09 09 09 09 74 72 65 | 65 70 74 72 3b 0a 58 09 |X....tre|eptr;.X.|
|00004110| 09 09 74 63 75 69 64 3a | 09 09 28 2a 20 76 61 72 |..tcuid:|..(* var|
|00004120| 69 61 6e 74 20 6e 61 6d | 65 09 09 09 2a 29 0a 58 |iant nam|e...*).X|
|00004130| 09 09 09 09 69 64 70 74 | 72 0a 58 09 09 20 20 20 |....idpt|r.X.. |
|00004140| 20 29 3b 0a 58 09 09 20 | 20 6e 61 72 72 61 79 3a | );.X.. | narray:|
|00004150| 09 09 28 2a 20 61 72 72 | 61 79 20 74 79 70 65 20 |..(* arr|ay type |
|00004160| 63 6f 6e 73 74 72 75 63 | 74 6f 72 09 2a 29 0a 58 |construc|tor.*).X|
|00004170| 09 09 20 20 20 20 28 0a | 58 09 09 09 74 61 69 6e |.. (.|X...tain|
|00004180| 64 78 2c 09 09 28 2a 20 | 69 6e 64 65 78 20 64 65 |dx,..(* |index de|
|00004190| 63 6c 61 72 61 74 69 6f | 6e 09 09 2a 29 0a 58 09 |claratio|n..*).X.|
|000041a0| 09 09 74 61 65 6c 65 6d | 3a 09 09 28 2a 20 61 72 |..taelem|:..(* ar|
|000041b0| 72 61 79 20 65 6c 65 6d | 65 6e 74 20 74 79 70 65 |ray elem|ent type|
|000041c0| 20 64 65 63 6c 09 2a 29 | 0a 58 09 09 09 09 74 72 | decl.*)|.X....tr|
|000041d0| 65 65 70 74 72 0a 58 09 | 09 20 20 20 20 29 3b 0a |eeptr.X.|. );.|
|000041e0| 58 09 09 20 20 6e 62 65 | 67 69 6e 3a 09 09 28 2a |X.. nbe|gin:..(*|
|000041f0| 20 62 65 67 69 6e 20 73 | 74 61 74 65 6d 65 6e 74 | begin s|tatement|
|00004200| 09 09 2a 29 0a 58 09 09 | 20 20 20 20 28 0a 58 09 |..*).X..| (.X.|
|00004210| 09 09 74 62 65 67 69 6e | 3a 09 09 28 2a 20 73 74 |..tbegin|:..(* st|
|00004220| 61 74 65 6d 65 6e 74 20 | 6c 69 73 74 09 09 2a 29 |atement |list..*)|
|00004230| 0a 58 09 09 09 09 74 72 | 65 65 70 74 72 0a 58 09 |.X....tr|eeptr.X.|
|00004240| 09 20 20 20 20 29 3b 0a | 58 09 09 20 20 6e 6c 61 |. );.|X.. nla|
|00004250| 62 73 74 6d 74 3a 09 09 | 28 2a 20 6c 61 62 65 6c |bstmt:..|(* label|
|00004260| 65 64 20 73 74 61 74 65 | 6d 65 6e 74 09 09 2a 29 |ed state|ment..*)|
|00004270| 0a 58 09 09 20 20 20 20 | 28 0a 58 09 09 09 74 6c |.X.. |(.X...tl|
|00004280| 61 62 6e 6f 2c 09 09 28 | 2a 20 6c 61 62 65 6c 20 |abno,..(|* label |
|00004290| 6e 75 6d 62 65 72 20 28 | 6e 6c 61 62 65 6c 29 09 |number (|nlabel).|
|000042a0| 2a 29 0a 58 09 09 09 74 | 73 74 6d 74 3a 09 09 28 |*).X...t|stmt:..(|
|000042b0| 2a 20 73 74 61 74 65 6d | 65 6e 74 09 09 09 2a 29 |* statem|ent...*)|
|000042c0| 0a 58 09 09 09 09 74 72 | 65 65 70 74 72 0a 58 09 |.X....tr|eeptr.X.|
|000042d0| 09 20 20 20 20 29 3b 0a | 58 09 09 20 20 6e 67 6f |. );.|X.. ngo|
|000042e0| 74 6f 3a 09 09 28 2a 20 | 67 6f 74 6f 20 73 74 61 |to:..(* |goto sta|
|000042f0| 74 65 6d 65 6e 74 09 09 | 2a 29 0a 58 09 09 20 20 |tement..|*).X.. |
|00004300| 20 20 28 0a 58 09 09 09 | 74 6c 61 62 65 6c 3a 09 | (.X...|tlabel:.|
|00004310| 09 28 2a 20 6c 61 62 65 | 6c 20 74 6f 20 67 6f 20 |.(* labe|l to go |
|00004320| 74 6f 20 28 6e 6c 61 62 | 65 6c 29 09 2a 29 0a 58 |to (nlab|el).*).X|
|00004330| 09 09 09 09 74 72 65 65 | 70 74 72 0a 58 09 09 20 |....tree|ptr.X.. |
|00004340| 20 20 20 29 3b 0a 58 0a | 58 09 09 20 20 6e 61 73 | );.X.|X.. nas|
|00004350| 73 69 67 6e 3a 09 09 28 | 2a 20 61 73 73 69 67 6e |sign:..(|* assign|
|00004360| 6d 65 6e 74 20 73 74 61 | 74 65 6d 65 6e 74 09 09 |ment sta|tement..|
|00004370| 2a 29 0a 58 09 09 20 20 | 20 20 28 0a 58 09 09 09 |*).X.. | (.X...|
|00004380| 74 6c 68 73 2c 09 09 28 | 2a 20 76 61 72 69 61 62 |tlhs,..(|* variab|
|00004390| 6c 65 09 09 09 2a 29 0a | 58 09 09 09 74 72 68 73 |le...*).|X...trhs|
|000043a0| 3a 09 09 28 2a 20 76 61 | 6c 75 65 09 09 09 2a 29 |:..(* va|lue...*)|
|000043b0| 0a 58 09 09 09 09 74 72 | 65 65 70 74 72 0a 58 09 |.X....tr|eeptr.X.|
|000043c0| 09 20 20 20 20 29 3b 0a | 58 0a 58 09 09 28 2a 20 |. );.|X.X..(* |
|000043d0| 6e 70 75 73 68 2f 6e 70 | 6f 70 20 69 73 20 75 73 |npush/np|op is us|
|000043e0| 65 64 20 69 6e 20 70 72 | 6f 63 2f 66 75 6e 63 20 |ed in pr|oc/func |
|000043f0| 77 68 69 63 68 20 68 61 | 76 65 20 6c 6f 63 61 6c |which ha|ve local|
|00004400| 20 76 61 72 69 61 62 6c | 65 73 0a 58 09 09 20 20 | variabl|es.X.. |
|00004410| 20 75 73 65 64 20 69 6e | 20 6c 6f 63 61 6c 20 70 | used in| local p|
|00004420| 72 6f 63 2f 66 75 6e 63 | 73 3b 20 74 68 6f 73 65 |roc/func|s; those|
|00004430| 20 76 61 72 69 61 62 6c | 65 73 20 61 72 65 20 63 | variabl|es are c|
|00004440| 6f 6e 76 65 72 74 65 64 | 20 74 6f 0a 58 09 09 20 |onverted| to.X.. |
|00004450| 20 20 67 6c 6f 62 61 6c | 20 70 74 72 73 20 69 6e | global| ptrs in|
|00004460| 69 74 69 61 6c 69 7a 65 | 64 20 74 6f 20 72 65 66 |itialize|d to ref|
|00004470| 65 72 65 6e 63 65 20 74 | 68 65 20 6c 6f 63 61 6c |erence t|he local|
|00004480| 20 76 61 72 69 61 62 6c | 65 20 2a 29 0a 58 09 09 | variabl|e *).X..|
|00004490| 20 20 6e 70 75 73 68 2c | 09 09 28 2a 20 69 6e 69 | npush,|..(* ini|
|000044a0| 74 20 63 6f 64 65 20 66 | 6f 72 20 70 72 6f 63 2f |t code f|or proc/|
|000044b0| 66 75 6e 63 09 2a 29 0a | 58 09 09 20 20 6e 70 6f |func.*).|X.. npo|
|000044c0| 70 3a 09 09 09 28 2a 20 | 65 78 69 74 20 63 6f 64 |p:...(* |exit cod|
|000044d0| 65 20 66 6f 72 20 70 72 | 6f 63 2f 66 75 6e 63 09 |e for pr|oc/func.|
|000044e0| 2a 29 0a 58 09 09 20 20 | 20 20 28 0a 58 09 09 09 |*).X.. | (.X...|
|000044f0| 74 67 6c 6f 62 2c 09 09 | 28 2a 20 67 6c 6f 62 61 |tglob,..|(* globa|
|00004500| 6c 20 69 64 65 6e 74 69 | 66 69 65 72 20 28 6e 69 |l identi|fier (ni|
|00004510| 64 29 09 2a 29 0a 58 09 | 09 09 74 6c 6f 63 2c 09 |d).*).X.|..tloc,.|
|00004520| 09 28 2a 20 6c 6f 63 61 | 6c 20 69 64 65 6e 74 69 |.(* loca|l identi|
|00004530| 66 69 65 72 20 28 6e 69 | 64 29 09 2a 29 0a 58 09 |fier (ni|d).*).X.|
|00004540| 09 09 74 74 6d 70 3a 09 | 09 28 2a 20 74 65 6d 70 |..ttmp:.|.(* temp|
|00004550| 20 73 74 6f 72 65 20 66 | 6f 72 20 67 6c 6f 62 61 | store f|or globa|
|00004560| 6c 20 28 6e 69 64 29 09 | 2a 29 0a 58 09 09 09 09 |l (nid).|*).X....|
|00004570| 74 72 65 65 70 74 72 0a | 58 09 09 20 20 20 20 29 |treeptr.|X.. )|
|00004580| 3b 0a 58 0a 58 09 09 20 | 20 6e 62 72 65 61 6b 3a |;.X.X.. | nbreak:|
|00004590| 0a 58 09 09 20 20 20 20 | 28 0a 58 09 09 09 74 62 |.X.. |(.X...tb|
|000045a0| 72 6b 69 64 2c 09 09 28 | 2a 20 66 6f 72 2d 76 61 |rkid,..(|* for-va|
|000045b0| 72 69 61 62 6c 65 09 09 | 09 2a 29 0a 58 09 09 09 |riable..|.*).X...|
|000045c0| 74 62 72 6b 78 70 3a 09 | 09 28 2a 20 76 61 6c 75 |tbrkxp:.|.(* valu|
|000045d0| 65 20 66 6f 72 20 62 72 | 65 61 6b 09 09 2a 29 0a |e for br|eak..*).|
|000045e0| 58 09 09 09 09 74 72 65 | 65 70 74 72 0a 58 09 09 |X....tre|eptr.X..|
|000045f0| 20 20 20 20 29 3b 0a 58 | 0a 58 09 09 20 20 6e 63 | );.X|.X.. nc|
|00004600| 61 6c 6c 3a 09 09 28 2a | 20 70 72 6f 63 65 64 75 |all:..(*| procedu|
|00004610| 72 65 2f 66 75 6e 63 74 | 69 6f 6e 20 63 61 6c 6c |re/funct|ion call|
|00004620| 09 2a 29 0a 58 09 09 20 | 20 20 20 28 0a 58 09 09 |.*).X.. | (.X..|
|00004630| 09 74 63 61 6c 6c 2c 09 | 09 28 2a 20 63 61 6c 6c |.tcall,.|.(* call|
|00004640| 65 64 20 69 64 65 6e 74 | 69 66 69 65 72 09 09 2a |ed ident|ifier..*|
|00004650| 29 0a 58 09 09 09 74 61 | 70 61 72 6d 3a 09 09 28 |).X...ta|parm:..(|
|00004660| 2a 20 61 63 74 75 61 6c | 20 70 61 72 61 6d 74 65 |* actual| paramte|
|00004670| 72 73 09 09 2a 29 0a 58 | 09 09 09 09 74 72 65 65 |rs..*).X|....tree|
|00004680| 70 74 72 0a 58 09 09 20 | 20 20 20 29 3b 0a 58 09 |ptr.X.. | );.X.|
|00004690| 09 20 20 6e 69 66 3a 09 | 09 09 28 2a 20 69 66 20 |. nif:.|..(* if |
|000046a0| 73 74 61 74 65 6d 65 6e | 74 09 09 09 2a 29 0a 58 |statemen|t...*).X|
|000046b0| 09 09 20 20 20 20 28 0a | 58 09 09 09 74 69 66 78 |.. (.|X...tifx|
|000046c0| 70 2c 09 09 28 2a 20 63 | 6f 6e 64 69 74 69 6f 6e |p,..(* c|ondition|
|000046d0| 61 6c 20 65 78 70 72 65 | 73 73 69 6f 6e 09 2a 29 |al expre|ssion.*)|
|000046e0| 0a 58 09 09 09 74 74 68 | 65 6e 2c 09 09 28 2a 20 |.X...tth|en,..(* |
|000046f0| 73 74 6d 74 20 65 78 65 | 63 64 20 69 66 20 74 72 |stmt exe|cd if tr|
|00004700| 75 65 20 63 6f 6e 64 69 | 74 69 6f 6e 09 2a 29 0a |ue condi|tion.*).|
|00004710| 58 09 09 09 74 65 6c 73 | 65 3a 09 09 28 2a 20 73 |X...tels|e:..(* s|
|00004720| 74 6d 74 20 65 78 65 63 | 64 20 69 66 20 74 72 75 |tmt exec|d if tru|
|00004730| 65 20 63 6f 6e 64 69 74 | 69 6f 6e 09 2a 29 0a 58 |e condit|ion.*).X|
|00004740| 09 09 09 09 74 72 65 65 | 70 74 72 0a 58 09 09 20 |....tree|ptr.X.. |
|00004750| 20 20 20 29 3b 0a 58 09 | 09 20 20 6e 77 68 69 6c | );.X.|. nwhil|
|00004760| 65 3a 09 09 28 2a 20 77 | 68 69 6c 65 20 73 74 61 |e:..(* w|hile sta|
|00004770| 74 65 6d 6e 65 74 09 09 | 2a 29 0a 58 09 09 20 20 |temnet..|*).X.. |
|00004780| 20 20 28 0a 58 09 09 09 | 74 77 68 69 78 70 2c 09 | (.X...|twhixp,.|
|00004790| 09 28 2a 20 63 6f 6e 64 | 69 74 69 6f 6e 61 6c 20 |.(* cond|itional |
|000047a0| 65 78 70 72 65 73 73 69 | 6f 6e 09 2a 29 0a 58 09 |expressi|on.*).X.|
|000047b0| 09 09 74 77 68 69 73 74 | 6d 74 3a 09 28 2a 20 73 |..twhist|mt:.(* s|
|000047c0| 74 6d 74 20 65 78 65 63 | 64 20 69 66 20 74 72 75 |tmt exec|d if tru|
|000047d0| 65 20 63 6f 6e 64 69 74 | 69 6f 6e 09 2a 29 0a 58 |e condit|ion.*).X|
|000047e0| 09 09 09 09 74 72 65 65 | 70 74 72 0a 58 09 09 20 |....tree|ptr.X.. |
|000047f0| 20 20 20 29 3b 0a 58 09 | 09 20 20 6e 72 65 70 65 | );.X.|. nrepe|
|00004800| 61 74 3a 09 09 28 2a 20 | 72 65 70 65 61 74 20 73 |at:..(* |repeat s|
|00004810| 74 61 74 65 6d 65 6e 74 | 09 09 2a 29 0a 58 09 09 |tatement|..*).X..|
|00004820| 20 20 20 20 28 0a 58 09 | 09 09 74 72 65 70 74 73 | (.X.|..trepts|
|00004830| 74 6d 74 2c 09 28 2a 20 | 73 74 61 74 65 6d 65 6e |tmt,.(* |statemen|
|00004840| 74 20 6c 69 73 74 09 09 | 2a 29 0a 58 09 09 09 74 |t list..|*).X...t|
|00004850| 72 65 70 74 78 70 3a 09 | 28 2a 20 63 6f 6e 64 69 |reptxp:.|(* condi|
|00004860| 74 69 6f 6e 61 6c 20 65 | 78 70 72 65 73 73 69 6f |tional e|xpressio|
|00004870| 6e 09 2a 29 0a 58 09 09 | 09 09 74 72 65 65 70 74 |n.*).X..|..treept|
|00004880| 72 0a 58 09 09 20 20 20 | 20 29 3b 0a 58 09 09 20 |r.X.. | );.X.. |
|00004890| 20 6e 66 6f 72 3a 09 09 | 09 28 2a 20 66 6f 72 20 | nfor:..|.(* for |
|000048a0| 73 74 61 74 65 6d 65 6e | 74 09 09 2a 29 0a 58 09 |statemen|t..*).X.|
|000048b0| 09 20 20 20 20 28 0a 58 | 09 09 09 74 66 6f 72 69 |. (.X|...tfori|
|000048c0| 64 2c 09 09 28 2a 20 6c | 6f 6f 70 20 63 6f 6e 74 |d,..(* l|oop cont|
|000048d0| 72 6f 6c 20 76 61 72 69 | 61 62 6c 65 20 28 6e 69 |rol vari|able (ni|
|000048e0| 64 29 09 2a 29 0a 58 09 | 09 09 74 66 72 6f 6d 2c |d).*).X.|..tfrom,|
|000048f0| 09 09 28 2a 20 69 6e 69 | 74 69 61 6c 20 76 61 6c |..(* ini|tial val|
|00004900| 75 65 09 09 2a 29 0a 58 | 09 09 09 74 74 6f 2c 09 |ue..*).X|...tto,.|
|00004910| 09 28 2a 20 66 69 6e 61 | 6c 20 76 61 6c 75 65 09 |.(* fina|l value.|
|00004920| 09 09 2a 29 0a 58 09 09 | 09 74 66 6f 72 73 74 6d |..*).X..|.tforstm|
|00004930| 74 3a 09 28 2a 20 73 74 | 6d 74 20 65 78 65 63 64 |t:.(* st|mt execd|
|00004940| 20 69 6e 20 6c 6f 6f 70 | 09 09 2a 29 0a 58 09 09 | in loop|..*).X..|
|00004950| 09 09 74 72 65 65 70 74 | 72 3b 0a 58 09 09 09 74 |..treept|r;.X...t|
|00004960| 69 6e 63 72 3a 09 09 28 | 2a 20 74 6f 2f 64 6f 77 |incr:..(|* to/dow|
|00004970| 6e 74 6f 20 66 6c 61 67 | 20 74 72 75 65 20 3c 3d |nto flag| true <=|
|00004980| 3d 3e 20 74 6f 09 2a 29 | 0a 58 09 09 09 09 62 6f |=> to.*)|.X....bo|
|00004990| 6f 6c 65 61 6e 0a 58 09 | 09 20 20 20 20 29 3b 0a |olean.X.|. );.|
|000049a0| 58 09 09 20 20 6e 63 61 | 73 65 3a 09 09 28 2a 20 |X.. nca|se:..(* |
|000049b0| 63 61 73 65 20 73 74 61 | 74 65 6d 65 6e 74 09 09 |case sta|tement..|
|000049c0| 2a 29 0a 58 09 09 20 20 | 20 20 28 0a 58 09 09 09 |*).X.. | (.X...|
|000049d0| 74 63 61 73 78 70 2c 09 | 09 28 2a 20 73 65 6c 65 |tcasxp,.|.(* sele|
|000049e0| 63 74 69 6e 67 20 65 78 | 70 72 65 73 73 69 6f 6e |cting ex|pression|
|000049f0| 09 09 2a 29 0a 58 09 09 | 09 74 63 61 73 6c 73 74 |..*).X..|.tcaslst|
|00004a00| 2c 09 28 2a 20 6c 69 73 | 74 20 6f 66 20 63 68 6f |,.(* lis|t of cho|
|00004a10| 69 73 65 73 09 09 2a 29 | 0a 58 09 09 09 74 63 61 |ises..*)|.X...tca|
|00004a20| 73 6f 74 68 65 72 3a 09 | 28 2a 20 64 65 66 61 75 |sother:.|(* defau|
|00004a30| 6c 74 20 61 63 74 69 6f | 6e 09 09 2a 29 0a 58 09 |lt actio|n..*).X.|
|00004a40| 09 09 09 74 72 65 65 70 | 74 72 0a 58 09 09 20 20 |...treep|tr.X.. |
|00004a50| 20 20 29 3b 0a 58 09 09 | 20 20 6e 63 68 6f 69 73 | );.X..| nchois|
|00004a60| 65 3a 09 09 28 2a 20 61 | 20 63 68 6f 69 73 65 20 |e:..(* a| choise |
|00004a70| 69 6e 20 61 20 63 61 73 | 65 2d 73 74 6d 74 09 2a |in a cas|e-stmt.*|
|00004a80| 29 0a 58 09 09 20 20 20 | 20 28 0a 58 09 09 09 74 |).X.. | (.X...t|
|00004a90| 63 68 6f 63 6f 6e 2c 09 | 28 2a 20 6c 69 73 74 20 |chocon,.|(* list |
|00004aa0| 6f 66 20 63 6f 6e 73 74 | 61 6e 74 73 09 09 2a 29 |of const|ants..*)|
|00004ab0| 0a 58 09 09 09 74 63 68 | 6f 73 74 6d 74 3a 09 28 |.X...tch|ostmt:.(|
|00004ac0| 2a 20 65 78 65 63 64 20 | 73 74 61 74 65 6d 65 6e |* execd |statemen|
|00004ad0| 74 09 09 2a 29 0a 58 09 | 09 09 09 74 72 65 65 70 |t..*).X.|...treep|
|00004ae0| 74 72 0a 58 09 09 20 20 | 20 20 29 3b 0a 58 09 09 |tr.X.. | );.X..|
|00004af0| 20 20 6e 77 69 74 68 3a | 09 09 28 2a 20 77 69 74 | nwith:|..(* wit|
|00004b00| 68 20 73 74 61 74 6d 65 | 6e 74 09 09 2a 29 0a 58 |h statme|nt..*).X|
|00004b10| 09 09 20 20 20 20 28 0a | 58 09 09 09 74 77 69 74 |.. (.|X...twit|
|00004b20| 68 76 61 72 2c 09 28 2a | 20 6c 69 73 74 20 6f 66 |hvar,.(*| list of|
|00004b30| 20 76 61 72 69 61 62 6c | 65 73 20 28 6e 77 69 74 | variabl|es (nwit|
|00004b40| 68 76 61 72 29 09 2a 29 | 0a 58 09 09 09 74 77 69 |hvar).*)|.X...twi|
|00004b50| 74 68 73 74 6d 74 3a 09 | 28 2a 20 73 74 61 74 65 |thstmt:.|(* state|
|00004b60| 6d 65 6e 74 20 65 78 65 | 63 64 20 69 6e 20 6e 65 |ment exe|cd in ne|
|00004b70| 77 20 73 63 6f 70 65 09 | 2a 29 0a 58 09 09 09 09 |w scope.|*).X....|
|00004b80| 74 72 65 65 70 74 72 0a | 58 09 09 20 20 20 20 29 |treeptr.|X.. )|
|00004b90| 3b 0a 58 0a 58 09 09 28 | 2a 20 74 68 65 20 6c 6f |;.X.X..(|* the lo|
|00004ba0| 63 61 6c 20 73 79 6d 62 | 6f 6c 20 74 61 62 6c 65 |cal symb|ol table|
|00004bb0| 20 68 6f 6c 64 73 20 69 | 64 65 6e 74 69 66 69 65 | holds i|dentifie|
|00004bc0| 72 73 2c 20 70 69 63 6b | 65 64 20 66 72 6f 6d 0a |rs, pick|ed from.|
|00004bd0| 58 09 09 20 20 20 74 68 | 65 20 72 65 63 6f 72 64 |X.. th|e record|
|00004be0| 20 66 69 65 6c 64 73 2c | 20 74 65 6d 70 6f 72 61 | fields,| tempora|
|00004bf0| 72 69 6c 79 20 64 65 63 | 6c 61 72 65 64 20 64 75 |rily dec|lared du|
|00004c00| 72 69 6e 67 20 70 61 72 | 73 69 6e 67 0a 58 09 09 |ring par|sing.X..|
|00004c10| 20 20 20 6f 66 20 72 65 | 6d 61 69 6e 64 65 72 20 | of re|mainder |
|00004c20| 6f 66 20 77 69 74 68 2d | 73 74 61 74 65 6d 65 6e |of with-|statemen|
|00004c30| 74 3b 20 74 68 65 73 65 | 20 69 64 65 6e 74 69 66 |t; these| identif|
|00004c40| 69 65 72 73 20 61 72 65 | 0a 58 09 09 20 20 20 6c |iers are|.X.. l|
|00004c50| 61 74 65 72 20 63 6f 6e | 76 65 72 74 65 64 20 69 |ater con|verted i|
|00004c60| 6e 74 6f 20 66 69 65 6c | 64 73 20 72 65 66 65 72 |nto fiel|ds refer|
|00004c70| 65 6e 63 65 64 20 74 68 | 72 6f 75 67 68 20 61 20 |enced th|rough a |
|00004c80| 70 74 72 20 2a 29 0a 58 | 09 09 20 20 6e 77 69 74 |ptr *).X|.. nwit|
|00004c90| 68 76 61 72 3a 09 09 28 | 2a 20 76 61 72 69 61 62 |hvar:..(|* variab|
|00004ca0| 6c 65 20 69 6e 20 77 69 | 74 68 20 73 74 61 74 65 |le in wi|th state|
|00004cb0| 6d 65 6e 74 09 2a 29 0a | 58 09 09 20 20 20 20 28 |ment.*).|X.. (|
|00004cc0| 0a 58 09 09 09 74 65 78 | 70 77 3a 09 09 28 2a 20 |.X...tex|pw:..(* |
|00004cd0| 72 65 63 6f 72 64 20 76 | 61 72 69 61 62 6c 65 09 |record v|ariable.|
|00004ce0| 09 2a 29 0a 58 09 09 09 | 09 74 72 65 65 70 74 72 |.*).X...|.treeptr|
|00004cf0| 3b 0a 58 09 09 09 74 65 | 6e 76 3a 09 09 28 2a 20 |;.X...te|nv:..(* |
|00004d00| 73 79 6d 62 6f 6c 20 74 | 61 62 6c 65 20 66 6f 72 |symbol t|able for|
|00004d10| 20 6c 6f 63 61 6c 20 73 | 63 6f 70 65 09 2a 29 0a | local s|cope.*).|
|00004d20| 58 09 09 09 09 64 65 63 | 6c 70 74 72 0a 58 09 09 |X....dec|lptr.X..|
|00004d30| 20 20 20 20 29 3b 0a 58 | 0a 58 09 09 20 20 6e 69 | );.X|.X.. ni|
|00004d40| 6e 64 65 78 3a 09 09 28 | 2a 20 61 72 72 61 79 20 |ndex:..(|* array |
|00004d50| 69 6e 64 65 78 69 6e 67 | 20 65 78 70 72 65 73 73 |indexing| express|
|00004d60| 69 6f 6e 09 2a 29 0a 58 | 09 09 20 20 20 20 28 0a |ion.*).X|.. (.|
|00004d70| 58 09 09 09 74 76 61 72 | 69 61 62 6c 65 2c 09 28 |X...tvar|iable,.(|
|00004d80| 2a 20 69 6e 64 65 78 65 | 64 20 76 61 72 69 61 62 |* indexe|d variab|
|00004d90| 6c 65 09 09 2a 29 0a 58 | 09 09 09 74 6f 66 66 73 |le..*).X|...toffs|
|00004da0| 65 74 3a 09 28 2a 20 69 | 6e 64 65 78 20 65 78 70 |et:.(* i|ndex exp|
|00004db0| 72 65 73 73 69 6f 6e 09 | 09 2a 29 0a 58 09 09 09 |ression.|.*).X...|
|00004dc0| 09 74 72 65 65 70 74 72 | 0a 58 09 09 20 20 20 20 |.treeptr|.X.. |
|00004dd0| 29 3b 0a 58 09 09 20 20 | 6e 73 65 6c 65 63 74 3a |);.X.. |nselect:|
|00004de0| 09 09 28 2a 20 72 65 63 | 6f 72 64 20 66 69 65 6c |..(* rec|ord fiel|
|00004df0| 64 20 73 65 6c 65 63 74 | 69 6f 6e 20 65 78 70 72 |d select|ion expr|
|00004e00| 09 2a 29 0a 58 09 09 20 | 20 20 20 28 0a 58 09 09 |.*).X.. | (.X..|
|00004e10| 09 74 72 65 63 6f 72 64 | 2c 09 28 2a 20 72 65 63 |.trecord|,.(* rec|
|00004e20| 6f 72 64 20 76 61 72 69 | 61 62 6c 65 09 09 2a 29 |ord vari|able..*)|
|00004e30| 0a 58 09 09 09 74 66 69 | 65 6c 64 3a 09 09 28 2a |.X...tfi|eld:..(*|
|00004e40| 20 73 65 6c 65 63 74 65 | 64 20 66 69 65 6c 64 20 | selecte|d field |
|00004e50| 28 6e 69 64 29 09 09 2a | 29 0a 58 09 09 09 09 74 |(nid)..*|).X....t|
|00004e60| 72 65 65 70 74 72 0a 58 | 09 09 20 20 20 20 29 3b |reeptr.X|.. );|
|00004e70| 0a 58 0a 58 09 09 28 2a | 20 62 69 6e 61 72 79 20 |.X.X..(*| binary |
|00004e80| 6f 70 65 72 61 74 6f 72 | 73 20 6f 72 20 63 6f 6e |operator|s or con|
|00004e90| 73 74 72 75 63 74 6f 72 | 73 20 2a 29 0a 58 09 09 |structor|s *).X..|
|00004ea0| 20 20 6e 72 61 6e 67 65 | 2c 09 09 28 2a 20 2e 2e | nrange|,..(* ..|
|00004eb0| 20 28 73 65 74 20 72 61 | 6e 67 65 29 09 2a 29 0a | (set ra|nge).*).|
|00004ec0| 58 09 09 20 20 6e 66 6f | 72 6d 61 74 2c 09 09 28 |X.. nfo|rmat,..(|
|00004ed0| 2a 20 3a 20 20 28 77 72 | 69 74 65 20 66 6f 72 6d |* : (wr|ite form|
|00004ee0| 61 74 29 09 2a 29 0a 58 | 09 09 20 20 6e 69 6e 2c |at).*).X|.. nin,|
|00004ef0| 09 09 09 28 2a 20 69 6e | 09 09 09 2a 29 0a 58 09 |...(* in|...*).X.|
|00004f00| 09 20 20 6e 65 71 2c 09 | 09 09 28 2a 20 3d 09 09 |. neq,.|..(* =..|
|00004f10| 09 2a 29 0a 58 09 09 20 | 20 6e 6e 65 2c 09 09 09 |.*).X.. | nne,...|
|00004f20| 28 2a 20 3c 3e 09 09 09 | 2a 29 0a 58 09 09 20 20 |(* <>...|*).X.. |
|00004f30| 6e 6c 74 2c 09 09 09 28 | 2a 20 3c 09 09 09 2a 29 |nlt,...(|* <...*)|
|00004f40| 0a 58 09 09 20 20 6e 6c | 65 2c 09 09 09 28 2a 20 |.X.. nl|e,...(* |
|00004f50| 3c 3d 09 09 09 2a 29 0a | 58 09 09 20 20 6e 67 74 |<=...*).|X.. ngt|
|00004f60| 2c 09 09 09 28 2a 20 3e | 09 09 09 2a 29 0a 58 09 |,...(* >|...*).X.|
|00004f70| 09 20 20 6e 67 65 2c 09 | 09 09 28 2a 20 3e 3d 09 |. nge,.|..(* >=.|
|00004f80| 09 09 2a 29 0a 58 09 09 | 20 20 6e 6f 72 2c 09 09 |..*).X..| nor,..|
|00004f90| 09 28 2a 20 6f 72 09 09 | 09 2a 29 0a 58 09 09 20 |.(* or..|.*).X.. |
|00004fa0| 20 6e 70 6c 75 73 2c 09 | 09 28 2a 20 2b 09 09 09 | nplus,.|.(* +...|
|00004fb0| 2a 29 0a 58 09 09 20 20 | 6e 6d 69 6e 75 73 2c 09 |*).X.. |nminus,.|
|00004fc0| 09 28 2a 20 2d 09 09 09 | 2a 29 0a 58 09 09 20 20 |.(* -...|*).X.. |
|00004fd0| 6e 61 6e 64 2c 09 09 09 | 28 2a 20 61 6e 64 09 09 |nand,...|(* and..|
|00004fe0| 09 2a 29 0a 58 09 09 20 | 20 6e 6d 75 6c 2c 09 09 |.*).X.. | nmul,..|
|00004ff0| 09 28 2a 20 2a 09 09 09 | 2a 29 0a 58 09 09 20 20 |.(* *...|*).X.. |
|00005000| 6e 64 69 76 2c 09 09 09 | 28 2a 20 64 69 76 09 09 |ndiv,...|(* div..|
|00005010| 09 2a 29 0a 58 09 09 20 | 20 6e 6d 6f 64 2c 09 09 |.*).X.. | nmod,..|
|00005020| 09 28 2a 20 6d 6f 64 09 | 09 09 2a 29 0a 58 09 09 |.(* mod.|..*).X..|
|00005030| 20 20 6e 71 75 6f 74 3a | 09 09 28 2a 20 2f 09 09 | nquot:|..(* /..|
|00005040| 09 2a 29 0a 58 09 09 20 | 20 20 20 28 0a 58 09 09 |.*).X.. | (.X..|
|00005050| 09 74 65 78 70 6c 2c 09 | 09 28 2a 20 6c 65 66 74 |.texpl,.|.(* left|
|00005060| 20 6f 70 65 72 61 6e 64 | 20 65 78 70 72 09 2a 29 | operand| expr.*)|
|00005070| 0a 58 09 09 09 74 65 78 | 70 72 3a 09 09 28 2a 20 |.X...tex|pr:..(* |
|00005080| 72 69 67 68 74 20 6f 70 | 65 72 61 6e 64 20 65 78 |right op|erand ex|
|00005090| 70 72 09 2a 29 0a 58 09 | 09 09 09 74 72 65 65 70 |pr.*).X.|...treep|
|000050a0| 74 72 0a 58 09 09 20 20 | 20 20 29 3b 0a 58 0a 58 |tr.X.. | );.X.X|
|000050b0| 09 09 28 2a 20 75 6e 61 | 72 79 20 6f 70 65 72 61 |..(* una|ry opera|
|000050c0| 74 6f 72 73 20 6f 72 20 | 63 6f 6e 73 74 72 75 63 |tors or |construc|
|000050d0| 74 6f 72 73 3b 20 6e 6f | 74 65 20 74 68 61 74 20 |tors; no|te that |
|000050e0| 75 70 6c 75 73 20 69 73 | 0a 58 09 09 20 20 20 75 |uplus is|.X.. u|
|000050f0| 73 65 64 20 74 6f 20 72 | 65 70 72 65 73 65 6e 74 |sed to r|epresent|
|00005100| 20 61 6e 79 20 70 61 72 | 65 6e 74 68 65 73 69 7a | any par|enthesiz|
|00005110| 65 64 20 65 78 70 72 65 | 73 73 69 6f 6e 20 2a 29 |ed expre|ssion *)|
|00005120| 0a 58 09 09 20 20 6e 64 | 65 72 65 66 2c 09 09 28 |.X.. nd|eref,..(|
|00005130| 2a 20 5e 20 28 70 74 72 | 20 64 65 72 65 66 65 72 |* ^ (ptr| derefer|
|00005140| 65 6e 63 65 29 09 2a 29 | 0a 58 09 09 20 20 6e 6e |ence).*)|.X.. nn|
|00005150| 6f 74 2c 09 09 09 28 2a | 20 6e 6f 74 09 09 09 2a |ot,...(*| not...*|
|00005160| 29 0a 58 09 09 20 20 6e | 73 65 74 2c 09 09 09 28 |).X.. n|set,...(|
|00005170| 2a 20 5b 20 5d 20 28 73 | 65 74 20 63 6f 6e 73 74 |* [ ] (s|et const|
|00005180| 72 29 09 2a 29 0a 58 09 | 09 20 20 6e 75 70 6c 75 |r).*).X.|. nuplu|
|00005190| 73 2c 09 09 28 2a 20 2b | 09 09 09 2a 29 0a 58 09 |s,..(* +|...*).X.|
|000051a0| 09 20 20 6e 75 6d 69 6e | 75 73 3a 09 09 28 2a 20 |. numin|us:..(* |
|000051b0| 2d 09 09 09 2a 29 0a 58 | 09 09 20 20 20 20 28 0a |-...*).X|.. (.|
|000051c0| 58 09 09 09 74 65 78 70 | 73 3a 09 09 28 2a 20 6f |X...texp|s:..(* o|
|000051d0| 70 65 72 61 6e 64 20 65 | 78 70 72 65 73 73 69 6f |perand e|xpressio|
|000051e0| 6e 09 2a 29 0a 58 09 09 | 09 09 74 72 65 65 70 74 |n.*).X..|..treept|
|000051f0| 72 0a 58 09 09 20 20 20 | 20 29 3b 0a 58 0a 58 09 |r.X.. | );.X.X.|
|00005200| 09 20 20 6e 69 64 2c 09 | 09 09 28 2a 20 69 64 65 |. nid,.|..(* ide|
|00005210| 6e 74 69 66 69 65 72 20 | 69 6e 20 64 65 63 6c 20 |ntifier |in decl |
|00005220| 6f 72 20 73 74 6d 74 09 | 2a 29 0a 58 09 09 20 20 |or stmt.|*).X.. |
|00005230| 6e 72 65 61 6c 2c 09 09 | 28 2a 20 6c 69 74 65 72 |nreal,..|(* liter|
|00005240| 61 6c 20 72 65 61 6c 20 | 28 64 65 63 6c 20 6f 72 |al real |(decl or|
|00005250| 20 73 74 6d 74 29 09 2a | 29 0a 58 09 09 20 20 6e | stmt).*|).X.. n|
|00005260| 69 6e 74 65 67 65 72 2c | 09 09 28 2a 20 6c 69 74 |integer,|..(* lit|
|00005270| 65 72 61 6c 20 69 6e 74 | 20 28 20 2d 20 22 20 2d |eral int| ( - " -|
|00005280| 20 29 09 2a 29 0a 58 09 | 09 20 20 6e 63 68 61 72 | ).*).X.|. nchar|
|00005290| 2c 09 09 28 2a 20 6c 69 | 74 65 72 61 6c 20 63 68 |,..(* li|teral ch|
|000052a0| 61 72 20 28 20 2d 20 22 | 20 2d 20 29 09 2a 29 0a |ar ( - "| - ).*).|
|000052b0| 58 09 09 20 20 6e 73 74 | 72 69 6e 67 2c 09 09 28 |X.. nst|ring,..(|
|000052c0| 2a 20 6c 69 74 65 72 61 | 6c 20 73 74 72 69 6e 67 |* litera|l string|
|000052d0| 20 28 20 2d 20 22 20 2d | 20 29 09 2a 29 0a 58 09 | ( - " -| ).*).X.|
|000052e0| 09 20 20 6e 6c 61 62 65 | 6c 3a 09 09 28 2a 20 6c |. nlabe|l:..(* l|
|000052f0| 61 62 65 6c 20 28 64 65 | 63 6c 2c 20 64 65 66 70 |abel (de|cl, defp|
|00005300| 74 20 6f 72 20 75 73 65 | 29 09 2a 29 0a 58 09 09 |t or use|).*).X..|
|00005310| 20 20 20 20 28 0a 58 09 | 09 09 74 73 79 6d 3a 0a | (.X.|..tsym:.|
|00005320| 58 09 09 09 09 73 79 6d | 70 74 72 0a 58 09 09 20 |X....sym|ptr.X.. |
|00005330| 20 20 20 29 3b 0a 58 0a | 58 09 09 20 20 6e 6e 69 | );.X.|X.. nni|
|00005340| 6c 2c 09 09 09 28 2a 20 | 6e 69 6c 20 28 70 6f 69 |l,...(* |nil (poi|
|00005350| 6e 74 65 72 20 63 6f 6e | 73 74 61 6e 74 29 09 2a |nter con|stant).*|
|00005360| 29 0a 58 09 09 20 20 6e | 65 6d 70 74 79 3a 09 09 |).X.. n|empty:..|
|00005370| 28 2a 20 65 6d 70 74 79 | 20 73 74 61 74 65 6d 65 |(* empty| stateme|
|00005380| 6e 74 09 09 2a 29 0a 58 | 09 09 20 20 20 20 28 20 |nt..*).X|.. ( |
|00005390| 29 3b 0a 58 09 20 20 20 | 20 65 6e 64 3b 0a 58 0a |);.X. | end;.X.|
|000053a0| 58 09 28 2a 20 22 72 65 | 73 65 72 76 65 64 22 20 |X.(* "re|served" |
|000053b0| 77 6f 72 64 73 20 61 6e | 64 20 73 74 61 6e 64 61 |words an|d standa|
|000053c0| 72 64 20 69 64 65 6e 74 | 69 66 69 65 72 73 20 66 |rd ident|ifiers f|
|000053d0| 72 6f 6d 20 43 2c 20 43 | 20 4c 49 42 20 61 6e 64 |rom C, C| LIB and|
|000053e0| 0a 58 09 20 20 20 20 4f | 53 20 65 6e 76 69 72 6f |.X. O|S enviro|
|000053f0| 6e 6d 65 6e 74 20 65 78 | 63 6c 75 64 69 6e 67 20 |nment ex|cluding |
|00005400| 74 68 6f 73 65 20 72 65 | 73 65 72 76 65 64 20 69 |those re|served i|
|00005410| 6e 20 50 61 73 63 61 6c | 20 2a 29 0a 58 09 63 6e |n Pascal| *).X.cn|
|00005420| 61 6d 65 73 20 3d 20 28 | 0a 58 09 09 63 61 62 6f |ames = (|.X..cabo|
|00005430| 72 74 2c 09 09 63 62 72 | 65 61 6b 2c 09 09 63 63 |rt,..cbr|eak,..cc|
|00005440| 6f 6e 74 69 6e 75 65 2c | 09 63 64 65 66 69 6e 65 |ontinue,|.cdefine|
|00005450| 2c 0a 58 09 09 63 64 65 | 66 61 75 6c 74 2c 09 63 |,.X..cde|fault,.c|
|00005460| 64 6f 75 62 6c 65 2c 09 | 63 65 64 61 74 61 2c 09 |double,.|cedata,.|
|00005470| 09 63 65 6e 75 6d 2c 0a | 58 09 09 63 65 74 65 78 |.cenum,.|X..cetex|
|00005480| 74 2c 09 09 63 65 78 74 | 65 72 6e 2c 09 63 66 67 |t,..cext|ern,.cfg|
|00005490| 65 74 63 2c 09 09 63 66 | 63 6c 6f 73 65 2c 0a 58 |etc,..cf|close,.X|
|000054a0| 09 09 63 66 66 6c 75 73 | 68 2c 09 63 66 6c 6f 61 |..cfflus|h,.cfloa|
|000054b0| 74 2c 09 09 63 66 6c 6f | 6f 72 2c 09 09 63 66 70 |t,..cflo|or,..cfp|
|000054c0| 72 69 6e 74 66 2c 0a 58 | 09 09 63 66 70 75 74 63 |rintf,.X|..cfputc|
|000054d0| 2c 09 09 63 66 72 65 61 | 64 2c 09 09 63 66 73 63 |,..cfrea|d,..cfsc|
|000054e0| 61 6e 66 2c 09 63 66 77 | 72 69 74 65 2c 0a 58 09 |anf,.cfw|rite,.X.|
|000054f0| 09 63 67 65 74 63 2c 09 | 09 63 67 65 74 70 69 64 |.cgetc,.|.cgetpid|
|00005500| 2c 09 63 69 6e 74 2c 09 | 09 63 69 6e 63 6c 75 64 |,.cint,.|.cinclud|
|00005510| 65 2c 0a 58 09 09 63 6c | 6f 6e 67 2c 09 09 63 6c |e,.X..cl|ong,..cl|
|00005520| 6f 67 2c 09 09 63 6d 61 | 69 6e 2c 09 09 63 6d 61 |og,..cma|in,..cma|
|00005530| 6c 6c 6f 63 2c 0a 58 09 | 09 63 70 72 69 6e 74 66 |lloc,.X.|.cprintf|
|00005540| 2c 09 63 70 6f 77 65 72 | 2c 09 09 63 70 75 74 63 |,.cpower|,..cputc|
|00005550| 2c 09 09 63 72 65 61 64 | 2c 0a 58 09 09 63 72 65 |,..cread|,.X..cre|
|00005560| 74 75 72 6e 2c 09 63 72 | 65 67 69 73 74 65 72 2c |turn,.cr|egister,|
|00005570| 09 63 72 65 77 69 6e 64 | 2c 09 63 73 63 61 6e 66 |.crewind|,.cscanf|
|00005580| 2c 0a 58 09 09 63 73 65 | 74 62 69 74 73 2c 09 63 |,.X..cse|tbits,.c|
|00005590| 73 65 74 77 6f 72 64 2c | 09 63 73 65 74 70 74 72 |setword,|.csetptr|
|000055a0| 2c 09 63 73 68 6f 72 74 | 2c 0a 58 09 09 63 73 69 |,.cshort|,.X..csi|
|000055b0| 67 6e 65 64 2c 09 63 73 | 69 7a 65 6f 66 2c 09 63 |gned,.cs|izeof,.c|
|000055c0| 73 70 72 69 6e 74 66 2c | 09 63 73 74 64 69 6e 2c |sprintf,|.cstdin,|
|000055d0| 0a 58 09 09 63 73 74 64 | 6f 75 74 2c 09 63 73 74 |.X..cstd|out,.cst|
|000055e0| 64 65 72 72 2c 09 63 73 | 74 72 6e 63 6d 70 2c 09 |derr,.cs|trncmp,.|
|000055f0| 63 73 74 72 6e 63 70 79 | 2c 0a 58 09 09 63 73 74 |cstrncpy|,.X..cst|
|00005600| 72 75 63 74 2c 09 63 73 | 74 61 74 69 63 2c 09 63 |ruct,.cs|tatic,.c|
|00005610| 73 77 69 74 63 68 2c 09 | 63 74 79 70 65 64 65 66 |switch,.|ctypedef|
|00005620| 2c 0a 58 09 09 63 75 6e | 64 65 66 2c 09 09 63 75 |,.X..cun|def,..cu|
|00005630| 6e 67 65 74 63 2c 09 63 | 75 6e 69 6f 6e 2c 09 09 |ngetc,.c|union,..|
|00005640| 63 75 6e 6c 69 6e 6b 2c | 0a 58 09 09 63 75 6e 73 |cunlink,|.X..cuns|
|00005650| 69 67 6e 65 64 2c 09 63 | 77 72 69 74 65 0a 58 09 |igned,.c|write.X.|
|00005660| 29 3b 0a 58 0a 58 09 28 | 2a 20 74 68 65 73 65 20 |);.X.X.(|* these |
|00005670| 61 72 65 20 74 68 65 20 | 64 65 74 65 63 74 65 64 |are the |detected|
|00005680| 20 65 72 72 6f 72 73 2e | 20 73 6f 6d 65 20 61 72 | errors.| some ar|
|00005690| 65 20 75 73 65 72 2d 65 | 72 72 6f 72 73 2c 0a 58 |e user-e|rrors,.X|
|000056a0| 09 20 20 20 73 6f 6d 65 | 20 61 72 65 20 69 6e 74 |. some| are int|
|000056b0| 65 72 6e 61 6c 20 70 72 | 6f 62 6c 65 6d 73 20 61 |ernal pr|oblems a|
|000056c0| 6e 64 20 73 6f 6d 65 20 | 61 72 65 20 68 6f 73 74 |nd some |are host|
|000056d0| 20 73 79 73 74 65 6d 20 | 65 72 72 6f 72 73 20 2a | system |errors *|
|000056e0| 29 0a 58 09 65 72 72 6f | 72 73 09 3d 20 28 0a 58 |).X.erro|rs.= (.X|
|000056f0| 09 09 65 62 61 64 73 79 | 6d 62 6f 6c 2c 09 65 6c |..ebadsy|mbol,.el|
|00005700| 6f 6e 67 73 74 72 69 6e | 67 2c 09 65 6c 6f 6e 67 |ongstrin|g,.elong|
|00005710| 74 6f 6b 6e 2c 09 65 72 | 61 6e 67 65 2c 0a 58 09 |tokn,.er|ange,.X.|
|00005720| 09 65 6d 61 6e 79 74 6f | 6b 6e 2c 09 65 6e 6f 74 |.emanyto|kn,.enot|
|00005730| 64 65 63 6c 69 64 2c 09 | 65 6d 75 6c 74 64 65 63 |declid,.|emultdec|
|00005740| 6c 69 64 2c 09 65 6e 6f | 74 64 65 63 6c 6c 61 62 |lid,.eno|tdecllab|
|00005750| 2c 0a 58 09 09 65 6d 75 | 6c 74 64 65 63 6c 6c 61 |,.X..emu|ltdeclla|
|00005760| 62 2c 09 65 6d 75 6c 64 | 65 66 6c 61 62 2c 09 65 |b,.emuld|eflab,.e|
|00005770| 62 61 64 73 74 72 69 6e | 67 2c 09 65 6e 75 6c 63 |badstrin|g,.enulc|
|00005780| 68 72 2c 0a 58 09 09 65 | 62 61 64 63 68 61 72 2c |hr,.X..e|badchar,|
|00005790| 09 65 65 6f 66 63 6d 6e | 74 2c 09 65 65 6f 66 73 |.eeofcmn|t,.eeofs|
|000057a0| 74 72 2c 09 65 76 61 72 | 70 61 72 2c 0a 58 09 09 |tr,.evar|par,.X..|
|000057b0| 65 6e 65 77 2c 09 09 65 | 73 65 74 62 61 73 65 2c |enew,..e|setbase,|
|000057c0| 09 65 73 65 74 73 69 7a | 65 2c 09 65 6f 76 65 72 |.esetsiz|e,.eover|
|000057d0| 66 6c 6f 77 2c 0a 58 09 | 09 65 74 72 65 65 2c 09 |flow,.X.|.etree,.|
|000057e0| 09 65 74 61 67 2c 09 09 | 65 75 70 72 63 6f 6e 66 |.etag,..|euprconf|
|000057f0| 2c 09 65 61 73 67 6e 63 | 6f 6e 66 2c 0a 58 09 09 |,.easgnc|onf,.X..|
|00005800| 65 63 6d 70 63 6f 6e 66 | 2c 09 65 63 6f 6e 66 63 |ecmpconf|,.econfc|
|00005810| 6f 6e 66 2c 09 65 76 72 | 6e 74 66 69 6c 65 2c 09 |onf,.evr|ntfile,.|
|00005820| 65 76 61 72 66 69 6c 65 | 2c 0a 58 09 09 65 6d 61 |evarfile|,.X..ema|
|00005830| 6e 79 6d 61 63 68 73 2c | 09 65 62 61 64 6d 61 63 |nymachs,|.ebadmac|
|00005840| 68 0a 58 09 29 3b 0a 58 | 0a 58 09 6d 61 63 68 64 |h.X.);.X|.X.machd|
|00005850| 65 66 73 74 72 20 3d 20 | 70 61 63 6b 65 64 20 61 |efstr = |packed a|
|00005860| 72 72 61 79 20 5b 20 31 | 20 2e 2e 20 6d 61 63 68 |rray [ 1| .. mach|
|00005870| 64 65 66 6c 65 6e 20 5d | 20 6f 66 20 63 68 61 72 |deflen ]| of char|
|00005880| 3b 0a 58 0a 58 76 61 72 | 0a 58 09 75 73 65 6d 61 |;.X.Xvar|.X.usema|
|00005890| 78 2c 09 09 09 28 2a 20 | 70 72 6f 67 72 61 6d 20 |x,...(* |program |
|000058a0| 6e 65 65 64 73 20 6d 61 | 78 2d 66 75 6e 63 74 69 |needs ma|x-functi|
|000058b0| 6f 6e 09 09 2a 29 0a 58 | 09 75 73 65 6a 6d 70 73 |on..*).X|.usejmps|
|000058c0| 2c 09 09 28 2a 20 73 6f | 75 72 63 65 20 70 72 6f |,..(* so|urce pro|
|000058d0| 67 72 61 6d 20 75 73 65 | 73 20 6e 6f 6e 2d 6c 6f |gram use|s non-lo|
|000058e0| 63 61 6c 20 67 6f 74 6f | 73 09 2a 29 0a 58 09 75 |cal goto|s.*).X.u|
|000058f0| 73 65 63 61 73 65 2c 09 | 09 28 2a 20 73 6f 75 72 |secase,.|.(* sour|
|00005900| 63 65 20 70 72 6f 67 72 | 61 6d 20 68 61 73 20 63 |ce progr|am has c|
|00005910| 61 73 65 2d 73 74 61 74 | 65 6d 65 6e 74 09 2a 29 |ase-stat|ement.*)|
|00005920| 0a 58 09 75 73 65 73 65 | 74 73 2c 09 09 28 2a 20 |.X.usese|ts,..(* |
|00005930| 73 6f 75 72 63 65 20 70 | 72 6f 67 72 61 6d 20 75 |source p|rogram u|
|00005940| 73 65 73 20 73 65 74 2d | 6f 70 65 72 61 74 69 6f |ses set-|operatio|
|00005950| 6e 73 09 2a 29 0a 58 09 | 75 73 65 75 6e 69 6f 6e |ns.*).X.|useunion|
|00005960| 2c 0a 58 09 75 73 65 64 | 69 66 66 2c 0a 58 09 75 |,.X.used|iff,.X.u|
|00005970| 73 65 6d 6b 73 75 62 2c | 0a 58 09 75 73 65 69 6e |semksub,|.X.usein|
|00005980| 74 72 2c 0a 58 09 75 73 | 65 73 67 65 2c 0a 58 09 |tr,.X.us|esge,.X.|
|00005990| 75 73 65 73 6c 65 2c 0a | 58 09 75 73 65 73 65 71 |usesle,.|X.useseq|
|000059a0| 2c 0a 58 09 75 73 65 73 | 6e 65 2c 0a 58 09 75 73 |,.X.uses|ne,.X.us|
|000059b0| 65 6d 65 6d 62 2c 0a 58 | 09 75 73 65 69 6e 73 2c |ememb,.X|.useins,|
|000059c0| 0a 58 09 75 73 65 73 63 | 70 79 2c 0a 58 09 75 73 |.X.usesc|py,.X.us|
|000059d0| 65 63 6f 6d 70 2c 09 09 | 28 2a 20 73 6f 75 72 63 |ecomp,..|(* sourc|
|000059e0| 65 20 70 72 6f 67 72 61 | 6d 20 75 73 65 73 20 73 |e progra|m uses s|
|000059f0| 74 72 69 6e 67 2d 63 6f | 6d 70 61 72 65 09 2a 29 |tring-co|mpare.*)|
|00005a00| 0a 58 09 75 73 65 66 6f | 70 6e 2c 09 09 28 2a 20 |.X.usefo|pn,..(* |
|00005a10| 73 6f 75 72 63 65 20 70 | 72 6f 67 72 61 6d 20 75 |source p|rogram u|
|00005a20| 73 65 73 20 72 65 73 65 | 74 2f 72 65 77 72 69 74 |ses rese|t/rewrit|
|00005a30| 65 09 2a 29 0a 58 09 75 | 73 65 73 63 61 6e 2c 0a |e.*).X.u|sescan,.|
|00005a40| 58 09 75 73 65 67 65 74 | 6c 2c 0a 58 09 75 73 65 |X.useget|l,.X.use|
|00005a50| 6e 69 6c 70 2c 09 09 28 | 2a 20 73 6f 75 72 63 65 |nilp,..(|* source|
|00005a60| 20 70 72 6f 67 72 61 6d | 20 75 73 65 73 20 6e 69 | program| uses ni|
|00005a70| 6c 2d 70 6f 69 6e 74 65 | 72 20 09 2a 29 0a 58 09 |l-pointe|r .*).X.|
|00005a80| 75 73 65 62 6f 6f 6c 09 | 3a 20 62 6f 6f 6c 65 61 |usebool.|: boolea|
|00005a90| 6e 3b 09 28 2a 20 73 6f | 75 72 63 65 20 70 72 6f |n;.(* so|urce pro|
|00005aa0| 67 72 61 6d 20 77 72 69 | 74 65 73 20 62 6f 6f 6c |gram wri|tes bool|
|00005ab0| 65 61 6e 2d 76 61 6c 75 | 65 73 09 2a 29 0a 58 0a |ean-valu|es.*).X.|
|00005ac0| 58 09 74 6f 70 09 3a 20 | 74 72 65 65 70 74 72 3b |X.top.: |treeptr;|
|00005ad0| 09 28 2a 20 74 6f 70 20 | 6f 66 20 70 61 72 73 65 |.(* top |of parse|
|00005ae0| 74 72 65 65 2c 20 72 65 | 73 75 6c 74 20 66 72 6f |tree, re|sult fro|
|00005af0| 6d 20 70 61 72 73 65 09 | 2a 29 0a 58 0a 58 09 73 |m parse.|*).X.X.s|
|00005b00| 65 74 6c 73 74 09 3a 20 | 74 72 65 65 70 74 72 3b |etlst.: |treeptr;|
|00005b10| 09 28 2a 20 6c 69 73 74 | 20 6f 66 20 73 65 74 2d |.(* list| of set-|
|00005b20| 69 6e 69 74 69 61 6c 69 | 7a 61 74 69 6f 6e 73 09 |initiali|zations.|
|00005b30| 09 2a 29 0a 58 09 73 65 | 74 63 6e 74 09 3a 20 69 |.*).X.se|tcnt.: i|
|00005b40| 6e 74 65 67 65 72 3b 09 | 28 2a 20 63 6f 75 6e 74 |nteger;.|(* count|
|00005b50| 65 72 20 66 6f 72 20 73 | 65 74 6c 73 74 20 6c 65 |er for s|etlst le|
|00005b60| 6e 67 74 68 09 09 2a 29 | 0a 58 0a 58 09 63 75 72 |ngth..*)|.X.X.cur|
|00005b70| 72 73 79 6d 09 3a 20 6c | 65 78 73 79 6d 3b 09 28 |rsym.: l|exsym;.(|
|00005b80| 2a 20 63 75 72 72 65 6e | 74 20 6c 65 78 69 63 61 |* curren|t lexica|
|00005b90| 6c 20 73 79 6d 62 6f 6c | 09 09 2a 29 0a 58 0a 58 |l symbol|..*).X.X|
|00005ba0| 09 6b 65 79 74 61 62 09 | 3a 20 61 72 72 61 79 20 |.keytab.|: array |
|00005bb0| 5b 20 30 20 2e 2e 20 6b | 65 79 74 61 62 6c 65 6e |[ 0 .. k|eytablen|
|00005bc0| 20 5d 20 6f 66 09 28 2a | 20 74 61 62 6c 65 20 6f | ] of.(*| table o|
|00005bd0| 66 20 6b 65 79 77 6f 72 | 64 73 09 2a 29 0a 58 09 |f keywor|ds.*).X.|
|00005be0| 09 20 20 20 20 72 65 63 | 6f 72 64 0a 58 09 09 09 |. rec|ord.X...|
|00005bf0| 77 72 64 09 3a 20 6b 65 | 79 77 6f 72 64 3b 09 28 |wrd.: ke|yword;.(|
|00005c00| 2a 20 6b 65 79 77 6f 72 | 64 20 74 65 78 74 09 09 |* keywor|d text..|
|00005c10| 2a 29 0a 58 09 09 09 73 | 79 6d 09 3a 20 73 79 6d |*).X...s|ym.: sym|
|00005c20| 74 79 70 09 28 2a 20 63 | 6f 72 72 65 73 70 6f 6e |typ.(* c|orrespon|
|00005c30| 64 69 6e 67 20 73 79 6d | 62 6f 6c 09 2a 29 0a 58 |ding sym|bol.*).X|
|00005c40| 09 09 20 20 20 20 65 6e | 64 3b 0a 58 0a 58 09 73 |.. en|d;.X.X.s|
|00005c50| 74 72 73 74 6f 72 09 3a | 20 61 72 72 61 79 20 5b |trstor.:| array [|
|00005c60| 20 73 74 72 62 63 6e 74 | 20 5d 20 6f 66 20 73 74 | strbcnt| ] of st|
|00005c70| 72 70 74 72 3b 09 28 2a | 20 73 74 6f 72 65 20 66 |rptr;.(*| store f|
|00005c80| 6f 72 20 73 74 72 69 6e | 67 73 09 2a 29 0a 58 09 |or strin|gs.*).X.|
|00005c90| 73 74 72 66 72 65 65 09 | 3a 20 73 74 72 69 6e 64 |strfree.|: strind|
|00005ca0| 78 3b 09 09 09 28 2a 20 | 66 69 72 73 74 20 66 72 |x;...(* |first fr|
|00005cb0| 65 65 20 70 6f 73 69 74 | 69 6f 6e 09 2a 29 0a 58 |ee posit|ion.*).X|
|00005cc0| 09 73 74 72 6c 65 66 74 | 09 3a 20 73 74 72 62 69 |.strleft|.: strbi|
|00005cd0| 64 78 3b 09 09 09 28 2a | 20 72 6f 6f 6d 20 69 6e |dx;...(*| room in|
|00005ce0| 20 6c 61 73 74 20 62 6c | 6b 09 2a 29 0a 58 0a 58 | last bl|k.*).X.X|
|00005cf0| 09 69 64 74 61 62 09 3a | 20 61 72 72 61 79 20 5b |.idtab.:| array [|
|00005d00| 20 68 61 73 68 74 79 70 | 20 5d 20 6f 66 20 69 64 | hashtyp| ] of id|
|00005d10| 70 74 72 3b 09 28 2a 20 | 68 61 73 68 65 64 20 74 |ptr;.(* |hashed t|
|00005d20| 61 62 6c 65 20 6f 66 20 | 69 64 27 73 09 2a 29 0a |able of |id's.*).|
|00005d30| 58 0a 58 09 73 79 6d 74 | 61 62 09 3a 20 64 65 63 |X.X.symt|ab.: dec|
|00005d40| 6c 70 74 72 3b 09 09 09 | 28 2a 20 74 61 62 6c 65 |lptr;...|(* table|
|00005d50| 20 6f 66 20 73 79 6d 62 | 6f 6c 73 09 2a 29 0a 58 | of symb|ols.*).X|
|00005d60| 0a 58 09 73 74 61 74 6c | 76 6c 2c 09 09 09 09 28 |.X.statl|vl,....(|
|00005d70| 2a 20 73 74 61 74 69 63 | 20 64 65 63 6c 2e 20 6c |* static| decl. l|
|00005d80| 65 76 65 6c 09 2a 29 0a | 58 09 6d 61 78 6c 65 76 |evel.*).|X.maxlev|
|00005d90| 65 6c 20 3a 20 69 6e 74 | 65 67 65 72 3b 09 09 09 |el : int|eger;...|
|00005da0| 28 2a 20 20 2d 20 22 20 | 2d 20 6d 61 78 69 6d 75 |(* - " |- maximu|
|00005db0| 6d 20 76 61 6c 75 65 09 | 2a 29 20 0a 58 0a 58 09 |m value.|*) .X.X.|
|00005dc0| 64 65 66 74 61 62 09 3a | 20 61 72 72 61 79 20 5b |deftab.:| array [|
|00005dd0| 20 70 72 65 64 65 66 73 | 20 5d 20 6f 66 20 74 72 | predefs| ] of tr|
|00005de0| 65 65 70 74 72 3b 09 28 | 2a 20 70 72 65 64 65 66 |eeptr;.(|* predef|
|00005df0| 69 6e 65 64 20 69 64 65 | 6e 74 73 2e 09 2a 29 0a |ined ide|nts..*).|
|00005e00| 58 09 64 65 66 6e 61 6d | 73 09 3a 20 61 72 72 61 |X.defnam|s.: arra|
|00005e10| 79 20 5b 20 70 72 65 64 | 65 66 73 20 5d 20 6f 66 |y [ pred|efs ] of|
|00005e20| 20 73 79 6d 70 74 72 3b | 09 28 2a 20 20 20 20 20 | symptr;|.(* |
|00005e30| 20 20 20 2d 20 22 20 2d | 09 09 2a 29 0a 58 09 74 | - " -|..*).X.t|
|00005e40| 79 70 6e 6f 64 73 09 3a | 20 61 72 72 61 79 20 5b |ypnods.:| array [|
|00005e50| 20 70 72 65 74 79 70 73 | 20 5d 20 6f 66 20 74 72 | pretyps| ] of tr|
|00005e60| 65 65 70 74 72 3b 09 28 | 2a 20 70 72 65 64 65 66 |eeptr;.(|* predef|
|00005e70| 2e 20 74 79 70 65 73 2e | 09 2a 29 0a 58 0a 58 09 |. types.|.*).X.X.|
|00005e80| 70 70 72 69 6f 2c 0a 58 | 09 63 70 72 69 6f 09 3a |pprio,.X|.cprio.:|
|00005e90| 20 61 72 72 61 79 20 5b | 20 6e 61 73 73 69 67 6e | array [| nassign|
|00005ea0| 20 2e 2e 20 6e 6e 69 6c | 20 5d 20 6f 66 20 30 20 | .. nnil| ] of 0 |
|00005eb0| 2e 2e 20 6d 61 78 70 72 | 69 6f 3b 0a 58 0a 58 09 |.. maxpr|io;.X.X.|
|00005ec0| 63 74 61 62 6c 65 09 3a | 20 61 72 72 61 79 20 5b |ctable.:| array [|
|00005ed0| 20 63 6e 61 6d 65 73 20 | 5d 20 6f 66 20 69 64 70 | cnames |] of idp|
|00005ee0| 74 72 3b 09 28 2a 20 74 | 61 62 6c 65 20 6f 66 20 |tr;.(* t|able of |
|00005ef0| 43 2d 6b 65 79 77 6f 72 | 64 73 09 2a 29 0a 58 0a |C-keywor|ds.*).X.|
|00005f00| 58 09 6e 6d 61 63 68 64 | 65 66 73 20 3a 20 30 20 |X.nmachd|efs : 0 |
|00005f10| 2e 2e 20 6d 61 78 6d 61 | 63 68 64 65 66 73 3b 0a |.. maxma|chdefs;.|
|00005f20| 58 09 6d 61 63 68 64 65 | 66 73 20 3a 20 61 72 72 |X.machde|fs : arr|
|00005f30| 61 79 20 5b 20 31 20 2e | 2e 20 6d 61 78 6d 61 63 |ay [ 1 .|. maxmac|
|00005f40| 68 64 65 66 73 20 5d 20 | 6f 66 20 28 2a 20 74 61 |hdefs ] |of (* ta|
|00005f50| 62 6c 65 20 6f 66 20 43 | 2d 74 79 70 65 73 09 2a |ble of C|-types.*|
|00005f60| 29 0a 58 09 09 09 72 65 | 63 6f 72 64 0a 58 09 09 |).X...re|cord.X..|
|00005f70| 09 09 6c 6f 6c 69 6d 2c | 20 68 69 6c 69 6d 09 3a |..lolim,| hilim.:|
|00005f80| 20 69 6e 74 65 67 65 72 | 3b 0a 58 09 09 09 09 74 | integer|;.X....t|
|00005f90| 79 70 73 74 72 09 09 3a | 20 73 74 72 69 6e 64 78 |ypstr..:| strindx|
|00005fa0| 0a 58 09 09 09 65 6e 64 | 3b 0a 58 0a 58 09 6c 69 |.X...end|;.X.X.li|
|00005fb0| 6e 65 6e 6f 2c 09 09 09 | 09 09 28 2a 20 69 6e 70 |neno,...|..(* inp|
|00005fc0| 75 74 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 09 2a |ut line |number.*|
|00005fd0| 29 0a 58 09 63 6f 6c 6e | 6f 2c 09 09 09 09 09 28 |).X.coln|o,.....(|
|00005fe0| 2a 20 69 6e 70 75 74 20 | 63 6f 6c 75 6d 6e 20 6e |* input |column n|
|00005ff0| 75 6d 62 65 72 09 2a 29 | 0a 58 09 6c 61 73 74 63 |umber.*)|.X.lastc|
|00006000| 6f 6c 2c 09 09 09 09 28 | 2a 20 6c 61 73 74 20 4f |ol,....(|* last O|
|00006010| 4b 20 69 6e 70 75 74 20 | 63 6f 6c 75 6d 6e 09 2a |K input |column.*|
|00006020| 29 0a 58 09 6c 61 73 74 | 6c 69 6e 65 20 3a 20 69 |).X.last|line : i|
|00006030| 6e 74 65 67 65 72 3b 09 | 09 09 28 2a 20 6c 61 73 |nteger;.|..(* las|
|00006040| 74 20 4f 4b 20 69 6e 70 | 75 74 20 6c 69 6e 65 09 |t OK inp|ut line.|
|00006050| 2a 29 0a 58 0a 58 09 6c | 61 73 74 74 6f 6b 09 3a |*).X.X.l|asttok.:|
|00006060| 20 74 6f 6b 6e 62 75 66 | 3b 09 09 09 28 2a 20 6c | toknbuf|;...(* l|
|00006070| 61 73 74 20 69 6e 70 75 | 74 20 74 6f 6b 65 6e 09 |ast inpu|t token.|
|00006080| 2a 29 0a 58 0a 58 09 76 | 61 72 6e 6f 09 3a 20 69 |*).X.X.v|arno.: i|
|00006090| 6e 74 65 67 65 72 3b 09 | 09 28 2a 20 63 6f 75 6e |nteger;.|.(* coun|
|000060a0| 74 65 72 20 66 6f 72 20 | 75 6e 69 71 75 65 20 69 |ter for |unique i|
|000060b0| 64 27 73 09 2a 29 0a 58 | 0a 58 09 68 65 78 64 69 |d's.*).X|.X.hexdi|
|000060c0| 67 09 3a 20 70 61 63 6b | 65 64 20 61 72 72 61 79 |g.: pack|ed array|
|000060d0| 20 5b 20 30 20 2e 2e 20 | 31 35 20 5d 20 6f 66 20 | [ 0 .. |15 ] of |
|000060e0| 63 68 61 72 3b 0a 58 0a | 58 28 2a 09 50 72 74 6d |char;.X.|X(*.Prtm|
|000060f0| 73 67 20 70 72 6f 64 75 | 63 65 73 20 61 6e 20 65 |sg produ|ces an e|
|00006100| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 2e 20 49 74 |rror mes|sage. It|
|00006110| 20 61 73 73 73 75 6d 65 | 73 20 74 68 61 74 20 70 | asssume|s that p|
|00006120| 72 6f 63 65 64 75 72 65 | 09 2a 29 0a 58 28 2a 09 |rocedure|.*).X(*.|
|00006130| 22 6d 65 73 73 61 67 65 | 22 20 28 70 72 65 64 65 |"message|" (prede|
|00006140| 66 69 6e 65 64 29 20 77 | 69 6c 6c 20 22 77 72 69 |fined) w|ill "wri|
|00006150| 74 65 6c 6e 22 20 74 6f | 20 75 73 65 72 20 74 74 |teln" to| user tt|
|00006160| 79 2e 20 4f 53 09 09 2a | 29 0a 58 70 72 6f 63 65 |y. OS..*|).Xproce|
|00006170| 64 75 72 65 20 70 72 74 | 6d 73 67 28 6d 20 3a 20 |dure prt|msg(m : |
|00006180| 65 72 72 6f 72 73 29 3b | 0a 58 0a 58 63 6f 6e 73 |errors);|.X.Xcons|
|00006190| 74 09 75 73 65 72 09 3d | 20 27 45 72 72 6f 72 3a |t.user.=| 'Error:|
|000061a0| 20 27 3b 0a 58 09 72 65 | 73 74 72 09 3d 20 27 49 | ';.X.re|str.= 'I|
|000061b0| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 20 72 65 |mplement|ation re|
|000061c0| 73 74 72 69 63 74 69 6f | 6e 3a 20 27 3b 0a 58 09 |strictio|n: ';.X.|
|000061d0| 69 6e 74 65 72 09 3d 20 | 27 2a 20 49 6e 74 65 72 |inter.= |'* Inter|
|000061e0| 6e 61 6c 20 65 72 72 6f | 72 20 2a 20 27 3b 0a 58 |nal erro|r * ';.X|
|000061f0| 09 78 74 6f 6b 6c 65 6e | 09 3d 20 36 34 3b 09 09 |.xtoklen|.= 64;..|
|00006200| 09 09 28 2a 20 73 68 6f | 75 6c 64 20 62 65 20 3c |..(* sho|uld be <|
|00006210| 3d 20 6d 61 78 74 6f 6b | 6c 65 6e 20 2a 29 0a 58 |= maxtok|len *).X|
|00006220| 0a 58 76 61 72 09 69 09 | 3a 20 74 6f 6b 6e 69 64 |.Xvar.i.|: toknid|
|00006230| 78 3b 0a 58 09 78 74 6f | 6b 09 3a 20 70 61 63 6b |x;.X.xto|k.: pack|
|00006240| 65 64 20 61 72 72 61 79 | 20 5b 20 31 20 2e 2e 20 |ed array| [ 1 .. |
|00006250| 78 74 6f 6b 6c 65 6e 20 | 5d 20 6f 66 20 63 68 61 |xtoklen |] of cha|
|00006260| 72 3b 0a 58 0a 58 62 65 | 67 69 6e 0a 58 09 63 61 |r;.X.Xbe|gin.X.ca|
|00006270| 73 65 20 6d 20 6f 66 0a | 58 09 20 20 65 62 61 64 |se m of.|X. ebad|
|00006280| 73 79 6d 62 6f 6c 3a 0a | 58 09 09 6d 65 73 73 61 |symbol:.|X..messa|
|00006290| 67 65 28 75 73 65 72 2c | 20 27 55 6e 65 78 70 65 |ge(user,| 'Unexpe|
|000062a0| 63 74 65 64 20 73 79 6d | 62 6f 6c 27 29 3b 0a 58 |cted sym|bol');.X|
|000062b0| 09 20 20 65 62 61 64 63 | 68 61 72 3a 0a 58 09 09 |. ebadc|har:.X..|
|000062c0| 6d 65 73 73 61 67 65 28 | 75 73 65 72 2c 20 27 42 |message(|user, 'B|
|000062d0| 61 64 20 63 68 61 72 61 | 63 74 65 72 27 29 3b 0a |ad chara|cter');.|
|000062e0| 58 09 20 20 65 6c 6f 6e | 67 73 74 72 69 6e 67 3a |X. elon|gstring:|
|000062f0| 0a 58 09 09 6d 65 73 73 | 61 67 65 28 72 65 73 74 |.X..mess|age(rest|
|00006300| 72 2c 20 27 54 6f 6f 20 | 6c 6f 6e 67 20 73 74 72 |r, 'Too |long str|
|00006310| 69 6e 67 27 29 3b 0a 58 | 09 20 20 65 62 61 64 73 |ing');.X|. ebads|
|00006320| 74 72 69 6e 67 3a 0a 58 | 09 09 6d 65 73 73 61 67 |tring:.X|..messag|
|00006330| 65 28 75 73 65 72 2c 20 | 27 4e 65 77 6c 69 6e 65 |e(user, |'Newline|
|00006340| 20 69 6e 20 73 74 72 69 | 6e 67 20 6f 72 20 63 68 | in stri|ng or ch|
|00006350| 61 72 61 63 74 65 72 27 | 29 3b 0a 58 09 20 20 65 |aracter'|);.X. e|
|00006360| 65 6f 66 73 74 72 3a 0a | 58 09 09 6d 65 73 73 61 |eofstr:.|X..messa|
|00006370| 67 65 28 75 73 65 72 2c | 20 27 45 6e 64 20 6f 66 |ge(user,| 'End of|
|00006380| 20 66 69 6c 65 20 69 6e | 20 73 74 72 69 6e 67 20 | file in| string |
|00006390| 6f 72 20 63 68 61 72 61 | 63 74 65 72 27 29 3b 0a |or chara|cter');.|
|000063a0| 58 09 20 20 65 65 6f 66 | 63 6d 6e 74 3a 0a 58 09 |X. eeof|cmnt:.X.|
|000063b0| 09 6d 65 73 73 61 67 65 | 28 75 73 65 72 2c 20 27 |.message|(user, '|
|000063c0| 45 6e 64 20 6f 66 20 66 | 69 6c 65 20 69 6e 20 63 |End of f|ile in c|
|000063d0| 6f 6d 6d 65 6e 74 27 29 | 3b 0a 58 09 20 20 65 6c |omment')|;.X. el|
|000063e0| 6f 6e 67 74 6f 6b 6e 3a | 0a 58 09 09 6d 65 73 73 |ongtokn:|.X..mess|
|000063f0| 61 67 65 28 72 65 73 74 | 72 2c 20 27 54 6f 6f 20 |age(rest|r, 'Too |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
