home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: modula.pp
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 66%
| dexvert
| PowerPacker Archive (archive/powerPack)
| ext
| Supported |
| 1%
| dexvert
| Pixel Perfect (image/pixelPerfect)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail, ASCII text
| default
| |
| 100%
| TrID
| E-Mail message (Var. 2)
| default
| |
| 100%
| checkBytes
| Printable ASCII
| 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/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 4b 65 | 6e 20 59 61 70 20 20 3c |From: Ke|n Yap <|
|00000010| 74 61 6c 63 6f 74 74 21 | 73 65 69 73 6d 6f 21 72 |talcott!|seismo!r|
|00000020| 6f 63 68 65 73 74 65 72 | 21 6b 65 6e 3e 0a 53 75 |ochester|!ken>.Su|
|00000030| 62 6a 65 63 74 3a 20 4d | 6f 64 75 6c 61 2d 32 20 |bject: M|odula-2 |
|00000040| 70 72 65 74 74 79 70 72 | 69 6e 74 65 72 0a 4e 65 |prettypr|inter.Ne|
|00000050| 77 73 67 72 6f 75 70 73 | 3a 20 6d 6f 64 2e 73 6f |wsgroups|: mod.so|
|00000060| 75 72 63 65 73 0a 41 70 | 70 72 6f 76 65 64 3a 20 |urces.Ap|proved: |
|00000070| 6a 70 6e 40 70 61 6e 64 | 61 2e 55 55 43 50 0a 0a |jpn@pand|a.UUCP..|
|00000080| 4d 6f 64 2e 73 6f 75 72 | 63 65 73 3a 20 20 56 6f |Mod.sour|ces: Vo|
|00000090| 6c 75 6d 65 20 33 2c 20 | 49 73 73 75 65 20 33 35 |lume 3, |Issue 35|
|000000a0| 0a 53 75 62 6d 69 74 74 | 65 64 20 62 79 3a 20 4b |.Submitt|ed by: K|
|000000b0| 65 6e 20 59 61 70 20 20 | 3c 74 61 6c 63 6f 74 74 |en Yap |<talcott|
|000000c0| 21 73 65 69 73 6d 6f 21 | 72 6f 63 68 65 73 74 65 |!seismo!|rocheste|
|000000d0| 72 21 6b 65 6e 3e 0a 0a | 0a 54 68 69 73 20 69 73 |r!ken>..|.This is|
|000000e0| 20 74 68 65 20 73 6f 75 | 72 63 65 20 66 6f 72 20 | the sou|rce for |
|000000f0| 61 20 4d 6f 64 75 6c 61 | 2d 32 20 70 72 65 74 74 |a Modula|-2 prett|
|00000100| 79 70 72 69 6e 74 65 72 | 2c 20 77 72 69 74 74 65 |yprinter|, writte|
|00000110| 6e 20 69 6e 20 4d 6f 64 | 75 6c 61 2d 32 2e 0a 49 |n in Mod|ula-2..I|
|00000120| 20 62 65 6c 69 65 76 65 | 20 65 76 65 72 79 74 68 | believe| everyth|
|00000130| 69 6e 67 20 6e 65 65 64 | 65 64 2c 20 69 6e 63 6c |ing need|ed, incl|
|00000140| 75 64 69 6e 67 20 61 20 | 4d 61 6b 65 66 69 6c 65 |uding a |Makefile|
|00000150| 2c 20 69 73 20 69 6e 20 | 74 68 65 20 73 68 61 72 |, is in |the shar|
|00000160| 20 61 72 63 68 69 76 65 | 0a 62 65 6c 6f 77 2e 0a | archive|.below..|
|00000170| 0a 09 43 68 65 65 72 73 | 2c 20 4b 65 6e 0a 2d 2d |..Cheers|, Ken.--|
|00000180| 0a 23 21 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |.#!/bin/|sh.# Thi|
|00000190| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|000001a0| 68 69 76 65 2c 20 6d 65 | 61 6e 69 6e 67 3a 0a 23 |hive, me|aning:.#|
|000001b0| 20 31 2e 20 52 65 6d 6f | 76 65 20 65 76 65 72 79 | 1. Remo|ve every|
|000001c0| 74 68 69 6e 67 20 61 62 | 6f 76 65 20 74 68 65 20 |thing ab|ove the |
|000001d0| 23 21 2f 62 69 6e 2f 73 | 68 20 6c 69 6e 65 2e 0a |#!/bin/s|h line..|
|000001e0| 23 20 32 2e 20 53 61 76 | 65 20 74 68 65 20 72 65 |# 2. Sav|e the re|
|000001f0| 73 75 6c 74 69 6e 67 20 | 74 65 78 74 20 69 6e 20 |sulting |text in |
|00000200| 61 20 66 69 6c 65 2e 0a | 23 20 33 2e 20 45 78 65 |a file..|# 3. Exe|
|00000210| 63 75 74 65 20 74 68 65 | 20 66 69 6c 65 20 77 69 |cute the| file wi|
|00000220| 74 68 20 2f 62 69 6e 2f | 73 68 20 28 6e 6f 74 20 |th /bin/|sh (not |
|00000230| 63 73 68 29 20 74 6f 20 | 63 72 65 61 74 65 20 74 |csh) to |create t|
|00000240| 68 65 20 66 69 6c 65 73 | 3a 0a 23 09 52 45 41 44 |he files|:.#.READ|
|00000250| 4d 45 0a 23 09 4d 61 6b | 65 66 69 6c 65 0a 23 09 |ME.#.Mak|efile.#.|
|00000260| 6d 32 70 2e 6d 6f 64 0a | 23 09 49 6e 4f 75 74 2e |m2p.mod.|#.InOut.|
|00000270| 64 65 66 0a 23 09 49 6e | 4f 75 74 2e 63 0a 23 20 |def.#.In|Out.c.# |
|00000280| 54 68 69 73 20 61 72 63 | 68 69 76 65 20 63 72 65 |This arc|hive cre|
|00000290| 61 74 65 64 3a 20 53 61 | 74 20 4e 6f 76 20 20 32 |ated: Sa|t Nov 2|
|000002a0| 20 30 32 3a 30 33 3a 35 | 36 20 31 39 38 35 0a 23 | 02:03:5|6 1985.#|
|000002b0| 20 42 79 3a 09 4b 65 6e | 20 59 61 70 20 28 55 20 | By:.Ken| Yap (U |
|000002c0| 6f 66 20 52 6f 63 68 65 | 73 74 65 72 2c 20 43 53 |of Roche|ster, CS|
|000002d0| 20 44 65 70 74 29 0a 65 | 78 70 6f 72 74 20 50 41 | Dept).e|xport PA|
|000002e0| 54 48 3b 20 50 41 54 48 | 3d 2f 62 69 6e 3a 24 50 |TH; PATH|=/bin:$P|
|000002f0| 41 54 48 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |ATH.if t|est -f '|
|00000300| 52 45 41 44 4d 45 27 0a | 74 68 65 6e 0a 09 65 63 |README'.|then..ec|
|00000310| 68 6f 20 73 68 61 72 3a | 20 6f 76 65 72 2d 77 72 |ho shar:| over-wr|
|00000320| 69 74 69 6e 67 20 65 78 | 69 73 74 69 6e 67 20 66 |iting ex|isting f|
|00000330| 69 6c 65 20 22 27 52 45 | 41 44 4d 45 27 22 0a 66 |ile "'RE|ADME'".f|
|00000340| 69 0a 63 61 74 20 3c 3c | 20 5c 53 48 41 52 5f 45 |i.cat <<| \SHAR_E|
|00000350| 4f 46 20 3e 20 27 52 45 | 41 44 4d 45 27 0a 54 68 |OF > 'RE|ADME'.Th|
|00000360| 69 73 20 69 73 20 61 20 | 4d 6f 64 75 6c 61 2d 32 |is is a |Modula-2|
|00000370| 20 70 72 65 74 74 79 70 | 72 69 6e 74 65 72 2e 20 | prettyp|rinter. |
|00000380| 49 74 20 74 61 6b 65 73 | 20 61 20 76 61 6c 69 64 |It takes| a valid|
|00000390| 20 70 72 6f 67 72 61 6d | 20 66 72 6f 6d 20 69 6e | program| from in|
|000003a0| 70 75 74 0a 61 6e 64 20 | 77 72 69 74 65 73 20 61 |put.and |writes a|
|000003b0| 20 66 6f 72 6d 61 74 74 | 65 64 20 76 65 72 73 69 | formatt|ed versi|
|000003c0| 6f 6e 20 74 6f 20 6f 75 | 74 70 75 74 2e 20 49 66 |on to ou|tput. If|
|000003d0| 20 69 74 20 72 75 6e 73 | 20 69 6e 74 6f 20 73 79 | it runs| into sy|
|000003e0| 6e 74 61 78 20 65 72 72 | 6f 72 73 0a 69 74 20 6d |ntax err|ors.it m|
|000003f0| 61 79 20 73 74 6f 70 20 | 66 6f 72 6d 61 74 74 69 |ay stop |formatti|
|00000400| 6e 67 20 61 6e 64 20 63 | 6f 70 79 20 74 68 65 20 |ng and c|opy the |
|00000410| 72 65 73 74 20 6f 66 20 | 74 68 65 20 66 69 6c 65 |rest of |the file|
|00000420| 20 76 65 72 62 61 74 69 | 6d 2e 20 20 49 74 0a 69 | verbati|m. It.i|
|00000430| 73 6e 27 74 20 65 78 61 | 63 74 6c 79 20 74 68 65 |sn't exa|ctly the|
|00000440| 20 62 65 73 74 20 65 78 | 61 6d 70 6c 65 20 6f 66 | best ex|ample of|
|00000450| 20 6d 6f 64 75 6c 61 72 | 69 74 79 2c 20 62 75 74 | modular|ity, but|
|00000460| 2e 2e 2e 0a 0a 49 74 20 | 75 73 65 73 20 74 68 65 |.....It |uses the|
|00000470| 20 73 74 61 6e 64 61 72 | 64 20 49 6e 4f 75 74 20 | standar|d InOut |
|00000480| 6d 6f 64 75 6c 65 2e 20 | 41 6e 20 69 6d 70 6c 65 |module. |An imple|
|00000490| 6d 65 6e 74 61 74 69 6f | 6e 20 6f 66 20 74 68 69 |mentatio|n of thi|
|000004a0| 73 20 6d 6f 64 75 6c 65 | 20 61 6e 64 0a 4d 61 6b |s module| and.Mak|
|000004b0| 65 66 69 6c 65 20 66 6f | 72 20 74 68 65 20 44 45 |efile fo|r the DE|
|000004c0| 43 57 52 4c 20 63 6f 6d | 70 69 6c 65 72 20 75 6e |CWRL com|piler un|
|000004d0| 64 65 72 20 34 2e 32 20 | 42 53 44 20 69 73 20 69 |der 4.2 |BSD is i|
|000004e0| 6e 63 6c 75 64 65 64 20 | 61 73 20 61 6e 0a 65 78 |ncluded |as an.ex|
|000004f0| 61 6d 70 6c 65 2e 20 20 | 59 6f 75 20 6d 61 79 20 |ample. |You may |
|00000500| 6e 65 65 64 20 74 6f 20 | 6d 61 6b 65 20 73 6f 6d |need to |make som|
|00000510| 65 20 6d 69 6e 6f 72 20 | 63 68 61 6e 67 65 73 20 |e minor |changes |
|00000520| 66 6f 72 20 6f 74 68 65 | 72 20 4d 6f 64 75 6c 61 |for othe|r Modula|
|00000530| 2d 32 0a 73 79 73 74 65 | 6d 73 2e 0a 0a 49 20 77 |-2.syste|ms...I w|
|00000540| 61 6e 74 65 64 20 74 6f | 20 70 75 74 20 6d 6f 72 |anted to| put mor|
|00000550| 65 20 73 74 75 66 66 20 | 69 6e 20 62 75 74 20 49 |e stuff |in but I|
|00000560| 20 67 6f 74 20 74 69 72 | 65 64 20 6f 66 20 68 61 | got tir|ed of ha|
|00000570| 76 69 6e 67 20 69 74 20 | 61 72 6f 75 6e 64 20 73 |ving it |around s|
|00000580| 6f 20 49 0a 61 6d 20 70 | 75 73 68 69 6e 67 20 69 |o I.am p|ushing i|
|00000590| 74 20 6f 75 74 20 74 68 | 65 20 64 6f 6f 72 2e 20 |t out th|e door. |
|000005a0| 49 20 77 6f 75 6c 64 20 | 62 65 20 67 72 61 74 65 |I would |be grate|
|000005b0| 66 75 6c 20 69 66 20 79 | 6f 75 20 77 6f 75 6c 64 |ful if y|ou would|
|000005c0| 20 72 65 70 6f 72 74 20 | 61 6e 79 0a 62 75 67 73 | report |any.bugs|
|000005d0| 20 6f 72 20 65 6e 68 61 | 6e 63 65 6d 65 6e 74 73 | or enha|ncements|
|000005e0| 20 73 6f 20 74 68 61 74 | 20 49 20 63 61 6e 20 63 | so that| I can c|
|000005f0| 6f 6c 6c 65 63 74 20 61 | 6e 64 20 72 65 64 69 73 |ollect a|nd redis|
|00000600| 74 72 69 62 75 74 65 20 | 74 68 65 0a 63 68 61 6e |tribute |the.chan|
|00000610| 67 65 73 2e 20 20 49 20 | 68 61 76 65 20 74 72 69 |ges. I |have tri|
|00000620| 65 64 20 74 6f 20 6d 61 | 6b 65 20 69 74 20 61 73 |ed to ma|ke it as|
|00000630| 20 4f 53 20 69 6e 64 65 | 70 65 6e 64 65 6e 74 20 | OS inde|pendent |
|00000640| 61 73 20 70 6f 73 73 69 | 62 6c 65 2e 0a 50 6c 65 |as possi|ble..Ple|
|00000650| 61 73 65 20 72 65 6d 65 | 6d 62 65 72 20 74 68 61 |ase reme|mber tha|
|00000660| 74 20 4d 6f 64 75 6c 61 | 2d 32 20 72 75 6e 73 20 |t Modula|-2 runs |
|00000670| 6f 6e 20 6d 61 6e 79 20 | 73 79 73 74 65 6d 73 2e |on many |systems.|
|00000680| 20 49 66 20 79 6f 75 20 | 6d 61 6b 65 20 63 68 61 | If you |make cha|
|00000690| 6e 67 65 73 0a 74 68 61 | 74 20 61 72 65 20 73 70 |nges.tha|t are sp|
|000006a0| 65 63 69 66 69 63 20 74 | 6f 20 61 20 6d 61 63 68 |ecific t|o a mach|
|000006b0| 69 6e 65 2f 4f 53 2c 20 | 70 6c 65 61 73 65 20 70 |ine/OS, |please p|
|000006c0| 75 74 20 74 68 65 20 63 | 68 61 6e 67 65 73 20 69 |ut the c|hanges i|
|000006d0| 6e 20 73 70 65 63 69 66 | 69 63 0a 6d 6f 64 75 6c |n specif|ic.modul|
|000006e0| 65 73 20 6f 72 20 70 72 | 6f 63 65 64 75 72 65 73 |es or pr|ocedures|
|000006f0| 2e 0a 0a 54 68 61 74 20 | 69 73 20 61 6c 6c 2c 20 |...That |is all, |
|00000700| 49 20 74 68 69 6e 6b 2e | 20 48 61 76 65 20 66 75 |I think.| Have fu|
|00000710| 6e 2e 0a 0a 09 4b 65 6e | 20 59 61 70 0a 09 44 65 |n....Ken| Yap..De|
|00000720| 70 74 2e 20 6f 66 20 43 | 6f 6d 70 2e 20 53 63 69 |pt. of C|omp. Sci|
|00000730| 2e 2c 20 55 20 6f 66 20 | 52 6f 63 68 65 73 74 65 |., U of |Rocheste|
|00000740| 72 0a 09 31 73 74 20 4e | 6f 76 65 6d 62 65 72 20 |r..1st N|ovember |
|00000750| 31 39 38 35 0a 0a 09 55 | 55 43 50 3a 20 2e 2e 21 |1985...U|UCP: ..!|
|00000760| 7b 73 65 69 73 6d 6f 2c | 64 65 63 76 61 78 2c 61 |{seismo,|decvax,a|
|00000770| 6c 6c 65 67 72 61 7d 21 | 72 6f 63 68 65 73 74 65 |llegra}!|rocheste|
|00000780| 72 21 6b 65 6e 0a 09 41 | 52 50 41 3a 20 6b 65 6e |r!ken..A|RPA: ken|
|00000790| 40 72 6f 63 68 65 73 74 | 65 72 2e 61 72 70 61 0a |@rochest|er.arpa.|
|000007a0| 53 48 41 52 5f 45 4f 46 | 0a 69 66 20 74 65 73 74 |SHAR_EOF|.if test|
|000007b0| 20 31 30 39 30 20 2d 6e | 65 20 22 60 77 63 20 2d | 1090 -n|e "`wc -|
|000007c0| 63 20 27 52 45 41 44 4d | 45 27 60 22 0a 74 68 65 |c 'READM|E'`".the|
|000007d0| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 65 72 |n..echo |shar: er|
|000007e0| 72 6f 72 20 74 72 61 6e | 73 6d 69 74 74 69 6e 67 |ror tran|smitting|
|000007f0| 20 22 27 52 45 41 44 4d | 45 27 22 20 27 28 73 68 | "'READM|E'" '(sh|
|00000800| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 31 |ould hav|e been 1|
|00000810| 30 39 30 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |090 char|acters)'|
|00000820| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |.fi.if t|est -f '|
|00000830| 4d 61 6b 65 66 69 6c 65 | 27 0a 74 68 65 6e 0a 09 |Makefile|'.then..|
|00000840| 65 63 68 6f 20 73 68 61 | 72 3a 20 6f 76 65 72 2d |echo sha|r: over-|
|00000850| 77 72 69 74 69 6e 67 20 | 65 78 69 73 74 69 6e 67 |writing |existing|
|00000860| 20 66 69 6c 65 20 22 27 | 4d 61 6b 65 66 69 6c 65 | file "'|Makefile|
|00000870| 27 22 0a 66 69 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |'".fi.ca|t << \SH|
|00000880| 41 52 5f 45 4f 46 20 3e | 20 27 4d 61 6b 65 66 69 |AR_EOF >| 'Makefi|
|00000890| 6c 65 27 0a 6d 32 70 3a | 09 6d 32 70 2e 6f 20 49 |le'.m2p:|.m2p.o I|
|000008a0| 6e 4f 75 74 2e 6f 0a 09 | 6d 6f 64 20 2d 67 20 2d |nOut.o..|mod -g -|
|000008b0| 6f 20 6d 32 70 20 6d 32 | 70 2e 6f 20 49 6e 4f 75 |o m2p m2|p.o InOu|
|000008c0| 74 2e 6f 0a 0a 6d 32 70 | 2e 6f 3a 09 6d 32 70 2e |t.o..m2p|.o:.m2p.|
|000008d0| 6d 6f 64 0a 09 6d 6f 64 | 20 2d 73 20 2d 67 20 2d |mod..mod| -s -g -|
|000008e0| 63 20 6d 32 70 2e 6d 6f | 64 0a 0a 49 6e 4f 75 74 |c m2p.mo|d..InOut|
|000008f0| 2e 6f 3a 09 49 6e 4f 75 | 74 2e 63 0a 09 63 63 20 |.o:.InOu|t.c..cc |
|00000900| 2d 4f 20 2d 63 20 49 6e | 4f 75 74 2e 63 0a 53 48 |-O -c In|Out.c.SH|
|00000910| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 31 |AR_EOF.i|f test 1|
|00000920| 32 32 20 2d 6e 65 20 22 | 60 77 63 20 2d 63 20 27 |22 -ne "|`wc -c '|
|00000930| 4d 61 6b 65 66 69 6c 65 | 27 60 22 0a 74 68 65 6e |Makefile|'`".then|
|00000940| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|00000950| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|00000960| 22 27 4d 61 6b 65 66 69 | 6c 65 27 22 20 27 28 73 |"'Makefi|le'" '(s|
|00000970| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|00000980| 31 32 32 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |122 char|acters)'|
|00000990| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |.fi.if t|est -f '|
|000009a0| 6d 32 70 2e 6d 6f 64 27 | 0a 74 68 65 6e 0a 09 65 |m2p.mod'|.then..e|
|000009b0| 63 68 6f 20 73 68 61 72 | 3a 20 6f 76 65 72 2d 77 |cho shar|: over-w|
|000009c0| 72 69 74 69 6e 67 20 65 | 78 69 73 74 69 6e 67 20 |riting e|xisting |
|000009d0| 66 69 6c 65 20 22 27 6d | 32 70 2e 6d 6f 64 27 22 |file "'m|2p.mod'"|
|000009e0| 0a 66 69 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |.fi.cat |<< \SHAR|
|000009f0| 5f 45 4f 46 20 3e 20 27 | 6d 32 70 2e 6d 6f 64 27 |_EOF > '|m2p.mod'|
|00000a00| 0a 4d 4f 44 55 4c 45 20 | 4d 6f 64 75 6c 61 32 50 |.MODULE |Modula2P|
|00000a10| 72 65 74 74 79 50 72 69 | 6e 74 65 72 3b 0a 0a 46 |rettyPri|nter;..F|
|00000a20| 52 4f 4d 20 49 6e 4f 75 | 74 20 49 4d 50 4f 52 54 |ROM InOu|t IMPORT|
|00000a30| 0a 09 44 6f 6e 65 2c 20 | 52 65 61 64 2c 20 57 72 |..Done, |Read, Wr|
|00000a40| 69 74 65 2c 20 57 72 69 | 74 65 4c 6e 2c 20 57 72 |ite, Wri|teLn, Wr|
|00000a50| 69 74 65 53 74 72 69 6e | 67 3b 0a 0a 28 2a 0a 2a |iteStrin|g;..(*.*|
|00000a60| 2a 20 20 20 20 20 20 4d | 6f 64 75 6c 61 2d 32 20 |* M|odula-2 |
|00000a70| 50 72 65 74 74 79 70 72 | 69 6e 74 65 72 2c 20 4e |Prettypr|inter, N|
|00000a80| 6f 76 65 6d 62 65 72 20 | 31 39 38 35 2e 0a 2a 2a |ovember |1985..**|
|00000a90| 0a 2a 2a 20 20 20 20 20 | 20 62 79 20 4b 65 6e 20 |.** | by Ken |
|00000aa0| 59 61 70 2c 20 55 20 6f | 66 20 52 6f 63 68 65 73 |Yap, U o|f Roches|
|00000ab0| 74 65 72 2c 20 43 53 20 | 44 65 70 74 2e 0a 2a 2a |ter, CS |Dept..**|
|00000ac0| 0a 2a 2a 20 20 20 20 20 | 20 50 65 72 6d 69 73 73 |.** | Permiss|
|00000ad0| 69 6f 6e 20 74 6f 20 63 | 6f 70 79 2c 20 6d 6f 64 |ion to c|opy, mod|
|00000ae0| 69 66 79 2c 20 61 6e 64 | 20 64 69 73 74 72 69 62 |ify, and| distrib|
|00000af0| 75 74 65 2c 20 62 75 74 | 20 6e 6f 74 20 66 6f 72 |ute, but| not for|
|00000b00| 20 70 72 6f 66 69 74 2c | 0a 2a 2a 20 20 20 20 20 | profit,|.** |
|00000b10| 20 69 73 20 68 65 72 65 | 62 79 20 67 72 61 6e 74 | is here|by grant|
|00000b20| 65 64 2c 20 70 72 6f 76 | 69 64 65 64 20 74 68 61 |ed, prov|ided tha|
|00000b30| 74 20 74 68 69 73 20 6e | 6f 74 65 20 69 73 20 69 |t this n|ote is i|
|00000b40| 6e 63 6c 75 64 65 64 2e | 0a 2a 2a 0a 2a 2a 20 20 |ncluded.|.**.** |
|00000b50| 20 20 20 20 61 64 61 70 | 74 65 64 20 66 72 6f 6d | adap|ted from|
|00000b60| 20 61 20 50 61 73 63 61 | 6c 20 50 72 6f 67 72 61 | a Pasca|l Progra|
|00000b70| 6d 20 46 6f 72 6d 61 74 | 74 65 72 0a 2a 2a 20 20 |m Format|ter.** |
|00000b80| 20 20 20 20 62 79 20 4a | 2e 20 45 2e 20 43 72 69 | by J|. E. Cri|
|00000b90| 64 65 72 2c 20 53 68 65 | 6c 6c 20 4f 69 6c 20 43 |der, She|ll Oil C|
|00000ba0| 6f 6d 70 61 6e 79 2c 0a | 2a 2a 20 20 20 20 20 20 |ompany,.|** |
|00000bb0| 48 6f 75 73 74 6f 6e 2c | 20 54 65 78 61 73 20 37 |Houston,| Texas 7|
|00000bc0| 37 30 32 35 0a 2a 2a 0a | 2a 2a 20 20 20 20 20 20 |7025.**.|** |
|00000bd0| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 66 6f 72 |This pro|gram for|
|00000be0| 6d 61 74 73 20 4d 6f 64 | 75 6c 61 2d 32 20 70 72 |mats Mod|ula-2 pr|
|00000bf0| 6f 67 72 61 6d 73 20 61 | 63 63 6f 72 64 69 6e 67 |ograms a|ccording|
|00000c00| 0a 2a 2a 20 20 20 20 20 | 20 74 6f 20 73 74 72 75 |.** | to stru|
|00000c10| 63 74 75 72 65 64 20 66 | 6f 72 6d 61 74 74 69 6e |ctured f|ormattin|
|00000c20| 67 20 70 72 69 6e 63 69 | 70 6c 65 73 0a 2a 2a 0a |g princi|ples.**.|
|00000c30| 2a 2a 20 20 20 20 20 20 | 41 20 76 61 6c 69 64 20 |** |A valid |
|00000c40| 4d 6f 64 75 6c 61 2d 32 | 20 70 72 6f 67 72 61 6d |Modula-2| program|
|00000c50| 20 69 73 20 72 65 61 64 | 20 66 72 6f 6d 20 74 68 | is read| from th|
|00000c60| 65 20 69 6e 70 75 74 20 | 61 6e 64 0a 2a 2a 20 20 |e input |and.** |
|00000c70| 20 20 20 20 61 20 66 6f | 72 6d 61 74 74 65 64 20 | a fo|rmatted |
|00000c80| 70 72 6f 67 72 61 6d 20 | 69 73 20 77 72 69 74 74 |program |is writt|
|00000c90| 65 6e 20 74 6f 20 74 68 | 65 20 6f 75 74 70 75 74 |en to th|e output|
|00000ca0| 2e 0a 2a 2a 20 20 20 20 | 20 20 49 74 20 69 73 20 |..** | It is |
|00000cb0| 62 61 73 69 63 61 6c 6c | 79 20 61 20 72 65 63 75 |basicall|y a recu|
|00000cc0| 72 73 69 76 65 20 64 65 | 73 63 65 6e 74 20 70 61 |rsive de|scent pa|
|00000cd0| 72 73 65 72 20 77 69 74 | 68 20 61 63 74 69 6f 6e |rser wit|h action|
|00000ce0| 73 0a 2a 2a 20 20 20 20 | 20 20 69 6e 74 65 72 6d |s.** | interm|
|00000cf0| 69 78 65 64 20 77 69 74 | 68 20 73 79 6e 74 61 78 |ixed wit|h syntax|
|00000d00| 20 73 63 61 6e 6e 69 6e | 67 2e 0a 2a 2a 0a 2a 2a | scannin|g..**.**|
|00000d10| 20 20 20 20 20 20 54 68 | 65 20 61 63 74 69 6f 6e | Th|e action|
|00000d20| 73 20 6f 66 20 74 68 65 | 20 70 72 6f 67 72 61 6d |s of the| program|
|00000d30| 20 61 72 65 20 61 73 20 | 66 6f 6c 6c 6f 77 73 3a | are as |follows:|
|00000d40| 0a 2a 2a 0a 2a 2a 20 20 | 20 20 20 20 46 4f 52 4d |.**.** | FORM|
|00000d50| 41 54 54 49 4e 47 3a 20 | 20 45 61 63 68 20 73 74 |ATTING: | Each st|
|00000d60| 72 75 63 74 75 72 65 64 | 20 73 74 61 74 65 6d 65 |ructured| stateme|
|00000d70| 6e 74 20 69 73 20 66 6f | 72 6d 61 74 74 65 64 0a |nt is fo|rmatted.|
|00000d80| 2a 2a 20 20 20 20 20 20 | 69 6e 20 74 68 65 20 66 |** |in the f|
|00000d90| 6f 6c 6c 6f 77 69 6e 67 | 20 70 61 74 74 65 72 6e |ollowing| pattern|
|00000da0| 20 28 77 69 74 68 20 69 | 6e 64 65 6e 74 61 74 69 | (with i|ndentati|
|00000db0| 6f 6e 20 22 69 6e 64 65 | 6e 74 22 29 3a 0a 2a 2a |on "inde|nt"):.**|
|00000dc0| 0a 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.** | |
|00000dd0| 20 20 20 58 58 58 58 58 | 58 20 68 65 61 64 65 72 | XXXXX|X header|
|00000de0| 20 58 58 58 58 58 58 58 | 58 0a 2a 2a 20 20 20 20 | XXXXXXX|X.** |
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e00| 20 20 20 20 58 58 58 58 | 58 58 58 58 58 58 58 58 | XXXX|XXXXXXXX|
|00000e10| 58 58 58 58 58 58 0a 2a | 2a 20 20 20 20 20 20 20 |XXXXXX.*|* |
|00000e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e30| 20 58 58 58 58 58 20 62 | 6f 64 79 20 58 58 58 58 | XXXXX b|ody XXXX|
|00000e40| 58 58 0a 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 |XX.** | |
|00000e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 58 58 58 | | XXX|
|00000e60| 58 58 58 58 58 58 58 58 | 58 58 58 58 58 58 58 0a |XXXXXXXX|XXXXXXX.|
|00000e70| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00000e80| 20 20 45 4e 44 0a 2a 2a | 0a 2a 2a 20 20 20 20 20 | END.**|.** |
|00000e90| 20 77 68 65 72 65 20 74 | 68 65 20 68 65 61 64 65 | where t|he heade|
|00000ea0| 72 20 69 73 20 6f 6e 65 | 20 6f 66 3a 0a 2a 2a 0a |r is one| of:.**.|
|00000eb0| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00000ec0| 20 20 49 46 20 3c 65 78 | 70 72 65 73 73 69 6f 6e | IF <ex|pression|
|00000ed0| 3e 20 54 48 45 4e 0a 2a | 2a 20 20 20 20 20 20 20 |> THEN.*|* |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 45 4c 53 49 46 20 3c | | ELSIF <|
|00000ef0| 65 78 70 72 65 73 73 69 | 6f 6e 3e 20 54 48 45 4e |expressi|on> THEN|
|00000f00| 0a 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.** | |
|00000f10| 20 20 20 45 4c 53 45 0a | 2a 2a 20 20 20 20 20 20 | ELSE.|** |
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 57 48 49 4c 45 20 | | WHILE |
|00000f30| 3c 65 78 70 72 65 73 73 | 69 6f 6e 3e 20 44 4f 0a |<express|ion> DO.|
|00000f40| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00000f50| 20 20 46 4f 52 20 3c 63 | 6f 6e 74 72 6f 6c 20 76 | FOR <c|ontrol v|
|00000f60| 61 72 69 61 62 6c 65 3e | 20 3a 3d 20 3c 46 4f 52 |ariable>| := <FOR|
|00000f70| 20 6c 69 73 74 3e 20 44 | 4f 0a 2a 2a 20 20 20 20 | list> D|O.** |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 57 49 54 48 | | WITH|
|00000f90| 20 3c 52 45 43 4f 52 44 | 20 76 61 72 69 61 62 6c | <RECORD| variabl|
|00000fa0| 65 3e 20 44 4f 0a 2a 2a | 20 20 20 20 20 20 20 20 |e> DO.**| |
|00000fb0| 20 20 20 20 20 20 20 20 | 52 45 50 45 41 54 0a 2a | |REPEAT.*|
|00000fc0| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|00000fd0| 20 4c 4f 4f 50 0a 2a 2a | 20 20 20 20 20 20 20 20 | LOOP.**| |
|00000fe0| 20 20 20 20 20 20 20 20 | 43 41 53 45 20 3c 65 78 | |CASE <ex|
|00000ff0| 70 72 65 73 73 69 6f 6e | 3e 20 4f 46 0a 2a 2a 20 |pression|> OF.** |
|00001000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3c | | <|
|00001010| 43 41 53 45 20 6c 61 62 | 65 6c 20 6c 69 73 74 3e |CASE lab|el list>|
|00001020| 3a 0a 2a 2a 0a 2a 2a 20 | 20 20 20 20 20 61 6e 64 |:.**.** | and|
|00001030| 20 74 68 65 20 6c 61 73 | 74 20 6c 69 6e 65 20 62 | the las|t line b|
|00001040| 65 67 69 6e 73 20 77 69 | 74 68 20 55 4e 54 49 4c |egins wi|th UNTIL|
|00001050| 20 6f 72 20 69 73 20 45 | 4e 44 2e 0a 2a 2a 20 20 | or is E|ND..** |
|00001060| 20 20 20 20 4f 74 68 65 | 72 20 70 72 6f 67 72 61 | Othe|r progra|
|00001070| 6d 20 70 61 72 74 73 20 | 61 72 65 20 66 6f 72 6d |m parts |are form|
|00001080| 61 74 74 65 64 20 73 69 | 6d 69 6c 61 72 6c 79 2e |atted si|milarly.|
|00001090| 20 20 54 68 65 20 68 65 | 61 64 65 72 73 20 61 72 | The he|aders ar|
|000010a0| 65 3a 0a 2a 2a 0a 2a 2a | 20 20 20 20 20 20 20 20 |e:.**.**| |
|000010b0| 20 20 20 20 20 20 20 20 | 3c 4d 4f 44 55 4c 45 2f | |<MODULE/|
|000010c0| 50 52 4f 43 45 44 55 52 | 45 20 68 65 61 64 69 6e |PROCEDUR|E headin|
|000010d0| 67 3e 3b 0a 2a 2a 20 20 | 20 20 20 20 20 20 20 20 |g>;.** | |
|000010e0| 20 20 20 20 20 20 43 4f | 4e 53 54 0a 2a 2a 20 20 | CO|NST.** |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 59 | | TY|
|00001100| 50 45 0a 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 |PE.** | |
|00001110| 20 20 20 20 20 56 41 52 | 0a 2a 2a 20 20 20 20 20 | VAR|.** |
|00001120| 20 20 20 20 20 20 20 20 | 20 20 20 42 45 47 49 4e | | BEGIN|
|00001130| 0a 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.** | |
|00001140| 20 20 20 28 76 61 72 69 | 6f 75 73 20 46 4f 52 20 | (vari|ous FOR |
|00001150| 72 65 63 6f 72 64 73 20 | 41 4e 44 20 52 45 43 4f |records |AND RECO|
|00001160| 52 44 20 76 61 72 69 61 | 6e 74 73 29 0a 2a 2a 0a |RD varia|nts).**.|
|00001170| 2a 2a 20 20 20 20 20 20 | 43 4f 4d 4d 45 4e 54 53 |** |COMMENTS|
|00001180| 3a 20 20 45 61 63 68 20 | 63 6f 6d 6d 65 6e 74 20 |: Each |comment |
|00001190| 74 68 61 74 20 73 74 61 | 72 74 73 20 62 65 66 6f |that sta|rts befo|
|000011a0| 72 65 20 6f 72 20 6f 6e | 20 61 20 73 70 65 63 69 |re or on| a speci|
|000011b0| 66 69 65 64 0a 2a 2a 20 | 20 20 20 20 20 63 6f 6c |fied.** | col|
|000011c0| 75 6d 6e 20 6f 6e 20 61 | 6e 20 69 6e 70 75 74 20 |umn on a|n input |
|000011d0| 6c 69 6e 65 20 28 70 72 | 6f 67 72 61 6d 20 63 6f |line (pr|ogram co|
|000011e0| 6e 73 74 61 6e 74 20 22 | 63 6f 6d 6d 74 68 72 65 |nstant "|commthre|
|000011f0| 73 68 22 29 20 69 73 0a | 2a 2a 20 20 20 20 20 20 |sh") is.|** |
|00001200| 63 6f 70 69 65 64 20 77 | 69 74 68 6f 75 74 20 73 |copied w|ithout s|
|00001210| 68 69 66 74 69 6e 67 20 | 6f 72 20 72 65 66 6f 72 |hifting |or refor|
|00001220| 6d 61 74 74 69 6e 67 2e | 20 20 45 61 63 68 20 63 |matting.| Each c|
|00001230| 6f 6d 6d 65 6e 74 20 74 | 68 61 74 0a 2a 2a 20 20 |omment t|hat.** |
|00001240| 20 20 20 20 73 74 61 72 | 74 73 20 61 66 74 65 72 | star|ts after|
|00001250| 20 22 63 6f 6d 6d 74 68 | 72 65 73 68 22 20 69 73 | "commth|resh" is|
|00001260| 20 72 65 66 6f 72 6d 61 | 74 74 65 64 20 61 6e 64 | reforma|tted and|
|00001270| 20 6c 65 66 74 2d 6a 75 | 73 74 69 66 69 65 64 0a | left-ju|stified.|
|00001280| 2a 2a 20 20 20 20 20 20 | 66 6f 6c 6c 6f 77 69 6e |** |followin|
|00001290| 67 20 74 68 65 20 61 6c | 69 67 6e 65 64 20 63 6f |g the al|igned co|
|000012a0| 6d 6d 65 6e 74 20 62 61 | 73 65 20 63 6f 6c 75 6d |mment ba|se colum|
|000012b0| 6e 20 28 22 61 6c 63 6f | 6d 6d 62 61 73 65 22 29 |n ("alco|mmbase")|
|000012c0| 2e 0a 2a 2a 0a 2a 2a 20 | 20 20 20 20 20 53 50 41 |..**.** | SPA|
|000012d0| 43 45 53 20 41 4e 44 20 | 42 4c 41 4e 4b 20 4c 49 |CES AND |BLANK LI|
|000012e0| 4e 45 53 3a 20 20 53 70 | 61 63 65 73 20 6e 6f 74 |NES: Sp|aces not|
|000012f0| 20 61 74 20 6c 69 6e 65 | 20 62 72 65 61 6b 73 20 | at line| breaks |
|00001300| 61 72 65 20 63 6f 70 69 | 65 64 20 66 72 6f 6d 0a |are copi|ed from.|
|00001310| 2a 2a 20 20 20 20 20 20 | 74 68 65 20 69 6e 70 75 |** |the inpu|
|00001320| 74 2e 20 20 42 6c 61 6e | 6b 20 6c 69 6e 65 73 20 |t. Blan|k lines |
|00001330| 61 72 65 20 63 6f 70 69 | 65 64 20 66 72 6f 6d 20 |are copi|ed from |
|00001340| 74 68 65 20 69 6e 70 75 | 74 20 69 66 20 74 68 65 |the inpu|t if the|
|00001350| 79 20 61 70 70 65 61 72 | 0a 2a 2a 20 20 20 20 20 |y appear|.** |
|00001360| 20 62 65 74 77 65 65 6e | 20 73 74 61 74 65 6d 65 | between| stateme|
|00001370| 6e 74 73 20 28 6f 72 20 | 61 70 70 72 6f 70 72 69 |nts (or |appropri|
|00001380| 61 74 65 20 64 65 63 6c | 61 72 61 74 69 6f 6e 20 |ate decl|aration |
|00001390| 75 6e 69 74 73 29 2e 20 | 20 41 20 62 6c 61 6e 6b |units). | A blank|
|000013a0| 0a 2a 2a 20 20 20 20 20 | 20 6c 69 6e 65 20 69 73 |.** | line is|
|000013b0| 20 69 6e 73 65 72 74 65 | 64 20 61 62 6f 76 65 20 | inserte|d above |
|000013c0| 65 61 63 68 20 73 69 67 | 6e 69 66 69 63 61 6e 74 |each sig|nificant|
|000013d0| 20 70 61 72 74 20 6f 66 | 20 65 61 63 68 20 70 72 | part of| each pr|
|000013e0| 6f 67 72 61 6d 2f 0a 2a | 2a 20 20 20 20 20 20 70 |ogram/.*|* p|
|000013f0| 72 6f 63 65 64 75 72 65 | 20 69 66 20 6f 6e 65 20 |rocedure| if one |
|00001400| 69 73 20 6e 6f 74 20 61 | 6c 72 65 61 64 79 20 74 |is not a|lready t|
|00001410| 68 65 72 65 2e 0a 2a 2a | 0a 2a 2a 20 20 20 20 20 |here..**|.** |
|00001420| 20 43 4f 4e 54 49 4e 55 | 41 54 49 4f 4e 3a 20 20 | CONTINU|ATION: |
|00001430| 4c 69 6e 65 73 20 74 68 | 61 74 20 61 72 65 20 74 |Lines th|at are t|
|00001440| 6f 6f 20 6c 6f 6e 67 20 | 66 6f 72 20 61 6e 20 6f |oo long |for an o|
|00001450| 75 74 70 75 74 20 6c 69 | 6e 65 20 61 72 65 0a 2a |utput li|ne are.*|
|00001460| 2a 20 20 20 20 20 20 63 | 6f 6e 74 69 6e 75 65 64 |* c|ontinued|
|00001470| 20 77 69 74 68 20 61 64 | 64 69 74 69 6f 6e 61 6c | with ad|ditional|
|00001480| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 28 22 63 | indenta|tion ("c|
|00001490| 6f 6e 74 69 6e 64 65 6e | 74 22 29 2e 0a 2a 29 0a |ontinden|t")..*).|
|000014a0| 0a 43 4f 4e 53 54 0a 09 | 54 41 42 20 3d 20 31 31 |.CONST..|TAB = 11|
|000014b0| 43 3b 0a 09 4e 45 57 4c | 49 4e 45 20 3d 20 31 32 |C;..NEWL|INE = 12|
|000014c0| 43 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C; | |
|000014d0| 20 20 20 20 28 2a 20 66 | 6f 72 20 55 6e 69 78 20 | (* f|or Unix |
|000014e0| 2a 29 0a 09 46 46 20 3d | 20 31 34 43 3b 0a 09 6d |*)..FF =| 14C;..m|
|000014f0| 61 78 72 77 6c 65 6e 20 | 3d 20 31 35 3b 20 20 20 |axrwlen |= 15; |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00001510| 2a 20 73 69 7a 65 20 6f | 66 20 72 65 73 65 72 76 |* size o|f reserv|
|00001520| 65 64 20 77 6f 72 64 20 | 73 74 72 69 6e 67 73 20 |ed word |strings |
|00001530| 2a 29 0a 09 6f 72 64 6d | 69 6e 63 68 61 72 20 3d |*)..ordm|inchar =|
|00001540| 20 30 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0; | |
|00001550| 20 20 20 20 28 2a 20 6f | 72 64 20 6f 66 20 6c 6f | (* o|rd of lo|
|00001560| 77 65 73 74 20 63 68 61 | 72 20 69 6e 20 63 68 61 |west cha|r in cha|
|00001570| 72 20 73 65 74 20 2a 29 | 0a 09 6f 72 64 6d 61 78 |r set *)|..ordmax|
|00001580| 63 68 61 72 20 3d 20 31 | 32 37 3b 20 20 20 20 20 |char = 1|27; |
|00001590| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 6f 72 64 | | (* ord|
|000015a0| 20 6f 66 20 68 69 67 68 | 65 73 74 20 63 68 61 72 | of high|est char|
|000015b0| 20 69 6e 20 63 68 61 72 | 20 73 65 74 20 2a 29 0a | in char| set *).|
|000015c0| 28 2a 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |(* The f|ollowing|
|000015d0| 20 70 61 72 61 6d 65 74 | 65 72 73 20 6d 61 79 20 | paramet|ers may |
|000015e0| 62 65 20 61 64 6a 75 73 | 74 65 64 20 66 6f 72 20 |be adjus|ted for |
|000015f0| 74 68 65 20 69 6e 73 74 | 61 6c 6c 61 74 69 6f 6e |the inst|allation|
|00001600| 3a 20 2a 29 0a 09 6d 61 | 78 69 6e 6c 65 6e 20 3d |: *)..ma|xinlen =|
|00001610| 20 32 35 35 3b 20 20 20 | 20 20 20 20 20 20 20 20 | 255; | |
|00001620| 20 20 20 20 20 20 28 2a | 20 6d 61 78 69 6d 75 6d | (*| maximum|
|00001630| 20 77 69 64 74 68 20 6f | 66 20 69 6e 70 75 74 20 | width o|f input |
|00001640| 6c 69 6e 65 20 2b 20 31 | 20 2a 29 0a 09 6d 61 78 |line + 1| *)..max|
|00001650| 6f 75 74 6c 65 6e 20 3d | 20 31 32 38 3b 20 20 20 |outlen =| 128; |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 2a 20 | | (* |
|00001670| 6d 61 78 69 6d 75 6d 20 | 77 69 64 74 68 20 6f 66 |maximum |width of|
|00001680| 20 6f 75 74 70 75 74 20 | 6c 69 6e 65 20 2a 29 0a | output |line *).|
|00001690| 09 74 61 62 69 6e 74 65 | 72 76 61 6c 20 3d 20 38 |.tabinte|rval = 8|
|000016a0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|000016b0| 20 28 2a 20 69 6e 74 65 | 72 76 61 6c 20 62 65 74 | (* inte|rval bet|
|000016c0| 77 65 65 6e 20 74 61 62 | 20 63 6f 6c 75 6d 6e 73 |ween tab| columns|
|000016d0| 20 2a 29 0a 09 69 6e 69 | 74 6d 61 72 67 69 6e 20 | *)..ini|tmargin |
|000016e0| 3d 20 30 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |= 0; | |
|000016f0| 20 20 20 20 20 28 2a 20 | 69 6e 69 74 69 61 6c 20 | (* |initial |
|00001700| 76 61 6c 75 65 20 6f 66 | 20 6f 75 74 70 75 74 20 |value of| output |
|00001710| 6d 61 72 67 69 6e 20 2a | 29 0a 09 63 6f 6d 6d 74 |margin *|)..commt|
|00001720| 68 72 65 73 68 20 3d 20 | 74 61 62 69 6e 74 65 72 |hresh = |tabinter|
|00001730| 76 61 6c 3b 20 20 20 20 | 20 20 20 28 2a 20 63 6f |val; | (* co|
|00001740| 6c 75 6d 6e 20 74 68 72 | 65 73 68 68 6f 6c 64 20 |lumn thr|eshhold |
|00001750| 69 6e 20 69 6e 70 75 74 | 20 66 6f 72 20 63 6f 6d |in input| for com|
|00001760| 6d 65 6e 74 73 20 74 6f | 20 62 65 20 61 6c 69 67 |ments to| be alig|
|00001770| 6e 65 64 20 2a 29 0a 09 | 61 6c 63 6f 6d 6d 62 61 |ned *)..|alcommba|
|00001780| 73 65 20 3d 20 34 30 3b | 20 20 20 20 20 20 20 20 |se = 40;| |
|00001790| 20 20 20 20 20 20 20 20 | 28 2a 20 61 6c 69 67 6e | |(* align|
|000017a0| 65 64 20 63 6f 6d 6d 65 | 6e 74 73 20 69 6e 20 6f |ed comme|nts in o|
|000017b0| 75 74 70 75 74 20 73 74 | 61 72 74 20 61 66 74 65 |utput st|art afte|
|000017c0| 72 20 74 68 69 73 20 63 | 6f 6c 75 6d 6e 20 2a 29 |r this c|olumn *)|
|000017d0| 0a 09 69 6e 64 65 6e 74 | 20 3d 20 74 61 62 69 6e |..indent| = tabin|
|000017e0| 74 65 72 76 61 6c 3b 20 | 20 20 20 20 20 20 20 20 |terval; | |
|000017f0| 20 20 28 2a 20 52 45 43 | 4f 4d 4d 45 4e 44 45 44 | (* REC|OMMENDED|
|00001800| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 69 6e 63 | indenta|tion inc|
|00001810| 72 65 6d 65 6e 74 20 2a | 29 0a 09 63 6f 6e 74 69 |rement *|)..conti|
|00001820| 6e 64 65 6e 74 20 3d 20 | 74 61 62 69 6e 74 65 72 |ndent = |tabinter|
|00001830| 76 61 6c 3b 20 20 20 20 | 20 20 20 28 2a 20 63 6f |val; | (* co|
|00001840| 6e 74 69 6e 75 61 74 69 | 6f 6e 20 69 6e 64 65 6e |ntinuati|on inden|
|00001850| 74 61 74 69 6f 6e 2c 20 | 3e 69 6e 64 65 6e 74 20 |tation, |>indent |
|00001860| 2a 29 0a 09 63 6f 6d 6d | 69 6e 64 65 6e 74 20 3d |*)..comm|indent =|
|00001870| 20 74 61 62 69 6e 74 65 | 72 76 61 6c 3b 20 20 20 | tabinte|rval; |
|00001880| 20 20 20 20 28 2a 20 63 | 6f 6d 6d 65 6e 74 20 63 | (* c|omment c|
|00001890| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 20 69 6e 64 65 |ontinuat|ion inde|
|000018a0| 6e 74 61 74 69 6f 6e 20 | 2a 29 0a 0a 54 59 50 45 |ntation |*)..TYPE|
|000018b0| 0a 09 6e 61 74 75 72 61 | 6c 20 3d 20 5b 2d 31 2e |..natura|l = [-1.|
|000018c0| 2e 31 30 30 30 30 30 30 | 5d 3b 20 20 20 20 20 20 |.1000000|]; |
|000018d0| 20 20 28 2a 20 6b 6c 75 | 64 67 65 20 62 65 63 61 | (* klu|dge beca|
|000018e0| 75 73 65 20 63 6f 6d 70 | 69 6c 65 72 20 64 6f 65 |use comp|iler doe|
|000018f0| 73 6e 27 74 20 2a 29 0a | 09 69 6e 72 61 6e 67 65 |sn't *).|.inrange|
|00001900| 20 3d 20 5b 2d 31 2e 2e | 6d 61 78 69 6e 6c 65 6e | = [-1..|maxinlen|
|00001910| 5d 3b 20 20 20 20 20 20 | 20 28 2a 20 72 65 63 6f |]; | (* reco|
|00001920| 67 6e 69 7a 65 20 71 75 | 61 6c 69 66 69 65 64 20 |gnize qu|alified |
|00001930| 73 75 62 72 61 6e 67 65 | 73 20 2a 29 0a 09 6f 75 |subrange|s *)..ou|
|00001940| 74 72 61 6e 67 65 20 3d | 20 5b 2d 31 2e 2e 6d 61 |trange =| [-1..ma|
|00001950| 78 6f 75 74 6c 65 6e 5d | 3b 0a 0a 09 65 72 72 6f |xoutlen]|;...erro|
|00001960| 72 74 79 70 65 20 3d 20 | 28 6c 6f 6e 67 6c 69 6e |rtype = |(longlin|
|00001970| 65 2c 20 6e 6f 65 6e 64 | 63 6f 6d 6d 2c 20 6e 6f |e, noend|comm, no|
|00001980| 74 71 75 6f 74 65 2c 20 | 6c 6f 6e 67 77 6f 72 64 |tquote, |longword|
|00001990| 2c 20 6e 6f 74 64 6f 2c | 20 6e 6f 74 6f 66 2c 20 |, notdo,| notof, |
|000019a0| 6e 6f 74 65 6e 64 2c 20 | 6e 6f 74 74 68 65 6e 2c |notend, |notthen,|
|000019b0| 20 6e 6f 74 62 65 67 69 | 6e 2c 20 6e 6f 74 75 6e | notbegi|n, notun|
|000019c0| 74 69 6c 2c 20 6e 6f 74 | 69 64 65 6e 74 2c 0a 09 |til, not|ident,..|
|000019d0| 6e 6f 74 73 65 6d 69 63 | 6f 6c 6f 6e 2c 20 6e 6f |notsemic|olon, no|
|000019e0| 74 63 6f 6c 6f 6e 2c 20 | 6e 6f 74 70 65 72 69 6f |tcolon, |notperio|
|000019f0| 64 2c 20 6e 6f 74 70 61 | 72 65 6e 2c 20 6e 6f 65 |d, notpa|ren, noe|
|00001a00| 6f 66 29 3b 0a 0a 09 63 | 68 61 72 74 79 70 65 20 |of);...c|hartype |
|00001a10| 3d 20 28 69 6c 6c 65 67 | 61 6c 2c 20 73 70 65 63 |= (illeg|al, spec|
|00001a20| 69 61 6c 2c 20 63 68 61 | 70 6f 73 74 72 6f 70 68 |ial, cha|postroph|
|00001a30| 65 2c 20 63 68 6c 65 66 | 74 70 61 72 65 6e 2c 20 |e, chlef|tparen, |
|00001a40| 63 68 72 69 67 68 74 70 | 61 72 65 6e 2c 20 63 68 |chrightp|aren, ch|
|00001a50| 70 65 72 69 6f 64 2c 20 | 64 69 67 69 74 2c 20 63 |period, |digit, c|
|00001a60| 68 63 6f 6c 6f 6e 2c 20 | 63 68 73 65 6d 69 63 6f |hcolon, |chsemico|
|00001a70| 6c 6f 6e 2c 0a 09 63 68 | 6c 65 73 73 74 68 61 6e |lon,..ch|lessthan|
|00001a80| 2c 20 63 68 67 72 65 61 | 74 65 72 74 68 61 6e 2c |, chgrea|terthan,|
|00001a90| 20 6c 65 74 74 65 72 2c | 20 63 68 6c 65 66 74 62 | letter,| chleftb|
|00001aa0| 72 61 63 65 2c 20 63 68 | 62 61 72 29 3b 0a 0a 09 |race, ch|bar);...|
|00001ab0| 63 68 61 72 74 79 70 65 | 73 65 74 20 3d 20 53 45 |chartype|set = SE|
|00001ac0| 54 20 4f 46 20 63 68 61 | 72 74 79 70 65 3b 20 20 |T OF cha|rtype; |
|00001ad0| 28 2a 20 66 6f 72 20 72 | 65 73 65 72 76 65 64 20 |(* for r|eserved |
|00001ae0| 77 6f 72 64 20 72 65 63 | 6f 67 6e 69 74 69 6f 6e |word rec|ognition|
|00001af0| 20 2a 29 0a 0a 09 72 65 | 73 77 6f 72 64 20 3d 20 | *)...re|sword = |
|00001b00| 28 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |( | |
|00001b10| 20 20 20 20 20 20 28 2a | 20 72 65 73 65 72 76 65 | (*| reserve|
|00001b20| 64 20 77 6f 72 64 73 20 | 6f 72 64 65 72 65 64 20 |d words |ordered |
|00001b30| 62 79 20 6c 65 6e 67 74 | 68 20 2a 29 0a 09 72 77 |by lengt|h *)..rw|
|00001b40| 69 66 2c 20 72 77 64 6f | 2c 20 72 77 6f 66 2c 20 |if, rwdo|, rwof, |
|00001b50| 72 77 74 6f 2c 20 72 77 | 69 6e 2c 20 72 77 6f 72 |rwto, rw|in, rwor|
|00001b60| 2c 0a 09 09 09 09 09 28 | 2a 20 6c 65 6e 67 74 68 |,......(|* length|
|00001b70| 3a 20 32 20 2a 29 0a 09 | 72 77 65 6e 64 2c 20 72 |: 2 *)..|rwend, r|
|00001b80| 77 66 6f 72 2c 20 72 77 | 76 61 72 2c 20 72 77 64 |wfor, rw|var, rwd|
|00001b90| 69 76 2c 20 72 77 6d 6f | 64 2c 20 72 77 73 65 74 |iv, rwmo|d, rwset|
|00001ba0| 2c 20 72 77 61 6e 64 2c | 20 72 77 6e 6f 74 2c 20 |, rwand,| rwnot, |
|00001bb0| 72 77 6e 69 6c 2c 0a 09 | 09 09 09 09 28 2a 20 6c |rwnil,..|....(* l|
|00001bc0| 65 6e 67 74 68 3a 20 33 | 20 2a 29 0a 09 72 77 74 |ength: 3| *)..rwt|
|00001bd0| 68 65 6e 2c 20 72 77 65 | 6c 73 65 2c 20 72 77 77 |hen, rwe|lse, rww|
|00001be0| 69 74 68 2c 20 72 77 63 | 61 73 65 2c 20 72 77 74 |ith, rwc|ase, rwt|
|00001bf0| 79 70 65 2c 20 72 77 6c | 6f 6f 70 2c 20 72 77 66 |ype, rwl|oop, rwf|
|00001c00| 72 6f 6d 2c 0a 09 09 09 | 09 09 28 2a 20 6c 65 6e |rom,....|..(* len|
|00001c10| 67 74 68 3a 20 34 20 2a | 29 0a 09 72 77 62 65 67 |gth: 4 *|)..rwbeg|
|00001c20| 69 6e 2c 20 72 77 65 6c | 73 69 66 2c 20 72 77 75 |in, rwel|sif, rwu|
|00001c30| 6e 74 69 6c 2c 20 72 77 | 77 68 69 6c 65 2c 20 72 |ntil, rw|while, r|
|00001c40| 77 61 72 72 61 79 2c 20 | 72 77 63 6f 6e 73 74 2c |warray, |rwconst,|
|00001c50| 0a 09 09 09 09 09 28 2a | 20 6c 65 6e 67 74 68 3a |......(*| length:|
|00001c60| 20 35 20 2a 29 0a 09 72 | 77 72 65 70 65 61 74 2c | 5 *)..r|wrepeat,|
|00001c70| 20 72 77 72 65 63 6f 72 | 64 2c 20 72 77 6d 6f 64 | rwrecor|d, rwmod|
|00001c80| 75 6c 65 2c 20 72 77 69 | 6d 70 6f 72 74 2c 20 72 |ule, rwi|mport, r|
|00001c90| 77 65 78 70 6f 72 74 2c | 0a 09 09 09 09 09 28 2a |wexport,|......(*|
|00001ca0| 20 6c 65 6e 67 74 68 3a | 20 36 20 2a 29 0a 09 72 | length:| 6 *)..r|
|00001cb0| 77 70 6f 69 6e 74 65 72 | 2c 20 20 20 20 20 20 20 |wpointer|, |
|00001cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00001cd0| 2a 20 6c 65 6e 67 74 68 | 3a 20 37 20 2a 29 0a 09 |* length|: 7 *)..|
|00001ce0| 72 77 70 72 6f 63 65 64 | 75 72 65 2c 20 72 77 71 |rwproced|ure, rwq|
|00001cf0| 75 61 6c 69 66 69 65 64 | 2c 20 20 20 20 20 20 20 |ualified|, |
|00001d00| 28 2a 20 6c 65 6e 67 74 | 68 3a 20 39 20 2a 29 0a |(* lengt|h: 9 *).|
|00001d10| 09 72 77 64 65 66 69 6e | 69 74 69 6f 6e 2c 20 20 |.rwdefin|ition, |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d30| 20 28 2a 20 6c 65 6e 67 | 74 68 3a 20 31 30 20 2a | (* leng|th: 10 *|
|00001d40| 29 0a 09 72 77 69 6d 70 | 6c 65 6d 65 6e 74 61 74 |)..rwimp|lementat|
|00001d50| 69 6f 6e 2c 20 20 20 20 | 20 20 20 20 20 20 20 20 |ion, | |
|00001d60| 20 20 20 28 2a 20 6c 65 | 6e 67 74 68 3a 20 31 34 | (* le|ngth: 14|
|00001d70| 20 2a 29 0a 09 72 77 78 | 29 3b 20 20 20 20 20 20 | *)..rwx|); |
|00001d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d90| 20 20 20 20 20 28 2a 20 | 6c 65 6e 67 74 68 3a 20 | (* |length: |
|00001da0| 31 35 20 66 6f 72 20 74 | 61 62 6c 65 20 73 65 6e |15 for t|able sen|
|00001db0| 74 69 6e 65 6c 20 2a 29 | 0a 09 72 77 73 74 72 69 |tinel *)|..rwstri|
|00001dc0| 6e 67 20 3d 20 20 41 52 | 52 41 59 20 5b 31 2e 2e |ng = AR|RAY [1..|
|00001dd0| 6d 61 78 72 77 6c 65 6e | 5d 20 4f 46 20 43 48 41 |maxrwlen|] OF CHA|
|00001de0| 52 3b 0a 0a 09 66 69 72 | 73 74 63 6c 61 73 73 20 |R;...fir|stclass |
|00001df0| 3d 20 28 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |= ( | |
|00001e00| 20 20 20 20 20 28 2a 20 | 63 6c 61 73 73 20 6f 66 | (* |class of|
|00001e10| 20 77 6f 72 64 20 69 66 | 20 6f 6e 20 6e 65 77 20 | word if| on new |
|00001e20| 6c 69 6e 65 20 2a 29 0a | 09 6e 65 77 63 6c 61 75 |line *).|.newclau|
|00001e30| 73 65 2c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |se, | |
|00001e40| 20 20 20 20 20 20 20 20 | 20 28 2a 20 73 74 61 72 | | (* star|
|00001e50| 74 20 6f 66 20 6e 65 77 | 20 63 6c 61 75 73 65 20 |t of new| clause |
|00001e60| 2a 29 0a 09 63 6f 6e 74 | 69 6e 75 65 2c 20 20 20 |*)..cont|inue, |
|00001e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e80| 20 20 20 20 28 2a 20 63 | 6f 6e 74 69 6e 75 61 74 | (* c|ontinuat|
|00001e90| 69 6f 6e 20 6f 66 20 63 | 6c 61 75 73 65 20 2a 29 |ion of c|lause *)|
|00001ea0| 0a 09 61 6c 63 6f 6d 6d | 2c 20 20 20 20 20 20 20 |..alcomm|, |
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ec0| 20 20 28 2a 20 73 74 61 | 72 74 20 6f 66 20 61 6c | (* sta|rt of al|
|00001ed0| 69 67 6e 65 64 20 63 6f | 6d 6d 65 6e 74 20 2a 29 |igned co|mment *)|
|00001ee0| 0a 09 63 6f 6e 74 61 6c | 63 6f 6d 6d 2c 20 20 20 |..contal|comm, |
|00001ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f00| 20 20 28 2a 20 63 6f 6e | 74 69 6e 75 61 74 69 6f | (* con|tinuatio|
|00001f10| 6e 20 6f 66 20 61 6c 69 | 67 6e 65 64 20 63 6f 6d |n of ali|gned com|
|00001f20| 6d 65 6e 74 20 2a 29 0a | 09 75 6e 63 6f 6d 6d 2c |ment *).|.uncomm,|
|00001f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f40| 20 20 20 20 20 20 20 20 | 20 28 2a 20 73 74 61 72 | | (* star|
|00001f50| 74 20 6f 66 20 75 6e 61 | 6c 69 67 6e 65 64 20 63 |t of una|ligned c|
|00001f60| 6f 6d 6d 65 6e 74 20 2a | 29 0a 09 63 6f 6e 74 75 |omment *|)..contu|
|00001f70| 6e 63 6f 6d 6d 29 3b 20 | 20 20 20 20 20 20 20 20 |ncomm); | |
|00001f80| 20 20 20 20 20 20 20 20 | 20 20 20 28 2a 20 63 6f | | (* co|
|00001f90| 6e 74 69 6e 75 61 74 69 | 6f 6e 20 6f 66 20 75 6e |ntinuati|on of un|
|00001fa0| 61 6c 69 67 6e 65 64 20 | 63 6f 6d 6d 65 6e 74 20 |aligned |comment |
|00001fb0| 2a 29 0a 0a 09 77 6f 72 | 64 74 79 70 65 20 3d 20 |*)...wor|dtype = |
|00001fc0| 52 45 43 4f 52 44 20 20 | 20 20 20 20 20 20 20 20 |RECORD | |
|00001fd0| 20 20 20 20 20 28 2a 20 | 64 61 74 61 20 72 65 63 | (* |data rec|
|00001fe0| 6f 72 64 20 66 6f 72 20 | 77 6f 72 64 20 2a 29 0a |ord for |word *).|
|00001ff0| 09 09 77 68 65 6e 66 69 | 72 73 74 20 3a 20 66 69 |..whenfi|rst : fi|
|00002000| 72 73 74 63 6c 61 73 73 | 3b 20 28 2a 20 63 6c 61 |rstclass|; (* cla|
|00002010| 73 73 20 6f 66 20 77 6f | 72 64 20 69 66 20 6f 6e |ss of wo|rd if on|
|00002020| 20 6e 65 77 20 6c 69 6e | 65 20 2a 29 0a 09 09 70 | new lin|e *)...p|
|00002030| 75 6e 63 66 6f 6c 6c 6f | 77 73 20 3a 20 42 4f 4f |uncfollo|ws : BOO|
|00002040| 4c 45 41 4e 3b 20 20 28 | 2a 20 74 6f 20 72 65 64 |LEAN; (|* to red|
|00002050| 75 63 65 20 64 61 6e 67 | 6c 69 6e 67 20 70 75 6e |uce dang|ling pun|
|00002060| 63 74 75 61 74 69 6f 6e | 20 2a 29 0a 09 09 62 6c |ctuation| *)...bl|
|00002070| 61 6e 6b 6c 6e 63 6f 75 | 6e 74 20 3a 20 6e 61 74 |anklncou|nt : nat|
|00002080| 75 72 61 6c 3b 20 28 2a | 20 6e 75 6d 62 65 72 20 |ural; (*| number |
|00002090| 6f 66 20 70 72 65 63 65 | 64 69 6e 67 20 62 6c 61 |of prece|ding bla|
|000020a0| 6e 6b 20 6c 69 6e 65 73 | 20 2a 29 0a 09 09 73 70 |nk lines| *)...sp|
|000020b0| 61 63 65 73 20 3a 20 49 | 4e 54 45 47 45 52 3b 20 |aces : I|NTEGER; |
|000020c0| 20 20 20 20 20 20 28 2a | 20 6e 75 6d 62 65 72 20 | (*| number |
|000020d0| 6f 66 20 73 70 61 63 65 | 73 20 70 72 65 63 65 64 |of space|s preced|
|000020e0| 69 6e 67 20 77 6f 72 64 | 20 2a 29 0a 09 09 62 61 |ing word| *)...ba|
|000020f0| 73 65 20 3a 20 5b 2d 31 | 2e 2e 6d 61 78 69 6e 6c |se : [-1|..maxinl|
|00002100| 65 6e 5d 3b 20 20 28 2a | 20 69 6e 6c 69 6e 65 2e |en]; (*| inline.|
|00002110| 62 75 66 5b 62 61 73 65 | 5d 20 70 72 65 63 65 64 |buf[base|] preced|
|00002120| 65 73 20 77 6f 72 64 20 | 2a 29 0a 09 09 73 69 7a |es word |*)...siz|
|00002130| 65 20 3a 20 69 6e 72 61 | 6e 67 65 3b 0a 09 45 4e |e : inra|nge;..EN|
|00002140| 44 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |D; | |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 2a | | (*|
|00002160| 20 6c 65 6e 67 74 68 20 | 6f 66 20 77 6f 72 64 20 | length |of word |
|00002170| 69 6e 20 69 6e 6c 69 6e | 65 2e 62 75 66 20 2a 29 |in inlin|e.buf *)|
|00002180| 0a 0a 09 73 79 6d 62 6f | 6c 74 79 70 65 20 3d 20 |...symbo|ltype = |
|00002190| 28 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |( | |
|000021a0| 20 20 20 28 2a 20 73 79 | 6d 62 6f 6c 73 20 66 6f | (* sy|mbols fo|
|000021b0| 72 20 73 79 6e 74 61 78 | 20 61 6e 61 6c 79 73 69 |r syntax| analysi|
|000021c0| 73 20 2a 29 0a 09 73 79 | 6d 6f 64 75 6c 65 2c 20 |s *)..sy|module, |
|000021d0| 73 79 64 65 66 69 6e 69 | 74 69 6f 6e 2c 20 73 79 |sydefini|tion, sy|
|000021e0| 69 6d 70 6c 65 6d 65 6e | 74 61 74 69 6f 6e 2c 20 |implemen|tation, |
|000021f0| 73 79 66 72 6f 6d 2c 20 | 73 79 69 6d 70 6f 72 74 |syfrom, |syimport|
|00002200| 2c 20 73 79 65 78 70 6f | 72 74 2c 20 73 79 71 75 |, syexpo|rt, syqu|
|00002210| 61 6c 2c 20 73 79 70 72 | 6f 63 2c 20 64 65 63 6c |al, sypr|oc, decl|
|00002220| 61 72 61 74 6f 72 2c 20 | 73 79 62 65 67 69 6e 2c |arator, |sybegin,|
|00002230| 20 73 79 65 6e 64 2c 20 | 73 79 69 66 2c 0a 09 73 | syend, |syif,..s|
|00002240| 79 74 68 65 6e 2c 20 73 | 79 65 6c 73 69 66 2c 20 |ythen, s|yelsif, |
|00002250| 73 79 65 6c 73 65 2c 20 | 73 79 6c 6f 6f 70 2c 20 |syelse, |syloop, |
|00002260| 73 79 63 61 73 65 2c 20 | 73 79 6f 66 2c 20 73 79 |sycase, |syof, sy|
|00002270| 75 6e 74 69 6c 2c 20 73 | 79 72 65 70 65 61 74 2c |until, s|yrepeat,|
|00002280| 20 66 6f 72 77 68 69 6c | 65 77 69 74 68 2c 20 73 | forwhil|ewith, s|
|00002290| 79 64 6f 2c 20 73 79 72 | 65 63 6f 72 64 2c 20 69 |ydo, syr|ecord, i|
|000022a0| 64 65 6e 74 2c 20 69 6e | 74 63 6f 6e 73 74 2c 0a |dent, in|tconst,.|
|000022b0| 09 73 65 6d 69 63 6f 6c | 6f 6e 2c 20 6c 65 66 74 |.semicol|on, left|
|000022c0| 70 61 72 65 6e 2c 20 72 | 69 67 68 74 70 61 72 65 |paren, r|ightpare|
|000022d0| 6e 2c 20 70 65 72 69 6f | 64 2c 20 63 6f 6c 6f 6e |n, perio|d, colon|
|000022e0| 2c 20 62 61 72 2c 20 6f | 74 68 65 72 73 79 6d 2c |, bar, o|thersym,|
|000022f0| 20 6f 74 68 65 72 77 6f | 72 64 2c 20 63 6f 6d 6d | otherwo|rd, comm|
|00002300| 65 6e 74 2c 20 73 79 65 | 6f 66 29 3b 0a 09 73 79 |ent, sye|of);..sy|
|00002310| 6d 62 6f 6c 73 65 74 20 | 3d 20 53 45 54 20 4f 46 |mbolset |= SET OF|
|00002320| 20 73 79 6d 62 6f 6c 74 | 79 70 65 3b 0a 0a 56 41 | symbolt|ype;..VA|
|00002330| 52 0a 09 69 6e 6c 69 6e | 65 20 3a 20 52 45 43 4f |R..inlin|e : RECO|
|00002340| 52 44 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |RD | |
|00002350| 20 20 20 28 2a 20 69 6e | 70 75 74 20 6c 69 6e 65 | (* in|put line|
|00002360| 20 64 61 74 61 20 2a 29 | 0a 09 09 65 6e 64 6f 66 | data *)|...endof|
|00002370| 66 69 6c 65 20 3a 20 42 | 4f 4f 4c 45 41 4e 3b 20 |file : B|OOLEAN; |
|00002380| 20 20 20 28 2a 20 65 6e | 64 20 6f 66 20 66 69 6c | (* en|d of fil|
|00002390| 65 20 6f 6e 20 69 6e 70 | 75 74 3f 20 2a 29 0a 09 |e on inp|ut? *)..|
|000023a0| 09 63 68 20 3a 20 43 48 | 41 52 3b 20 20 20 20 20 |.ch : CH|AR; |
|000023b0| 20 20 20 20 20 20 20 20 | 20 28 2a 20 63 75 72 72 | | (* curr|
|000023c0| 65 6e 74 20 63 68 61 72 | 2c 20 62 75 66 5b 69 6e |ent char|, buf[in|
|000023d0| 64 65 78 5d 20 2a 29 0a | 09 09 69 6e 64 65 78 20 |dex] *).|..index |
|000023e0| 3a 20 69 6e 72 61 6e 67 | 65 3b 20 20 20 20 20 20 |: inrang|e; |
|000023f0| 20 20 28 2a 20 73 75 62 | 73 63 72 69 70 74 20 6f | (* sub|script o|
|00002400| 66 20 63 75 72 72 65 6e | 74 20 63 68 61 72 20 2a |f curren|t char *|
|00002410| 29 0a 09 09 6c 65 6e 20 | 3a 20 6e 61 74 75 72 61 |)...len |: natura|
|00002420| 6c 3b 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 6c |l; | (* l|
|00002430| 65 6e 67 74 68 20 6f 66 | 20 69 6e 70 75 74 20 6c |ength of| input l|
|00002440| 69 6e 65 20 69 6e 20 62 | 75 66 20 2a 29 0a 09 09 |ine in b|uf *)...|
|00002450| 62 75 66 20 3a 20 41 52 | 52 41 59 20 5b 31 2e 2e |buf : AR|RAY [1..|
|00002460| 6d 61 78 69 6e 6c 65 6e | 5d 20 4f 46 20 43 48 41 |maxinlen|] OF CHA|
|00002470| 52 3b 0a 09 45 4e 44 3b | 0a 09 6f 75 74 6c 69 6e |R;..END;|..outlin|
|00002480| 65 20 3a 20 52 45 43 4f | 52 44 20 20 20 20 20 20 |e : RECO|RD |
|00002490| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 6f 75 74 | | (* out|
|000024a0| 70 75 74 20 6c 69 6e 65 | 20 64 61 74 61 20 2a 29 |put line| data *)|
|000024b0| 0a 09 09 62 6c 61 6e 6b | 6c 6e 73 20 3a 20 6e 61 |...blank|lns : na|
|000024c0| 74 75 72 61 6c 3b 20 20 | 20 20 20 28 2a 20 6e 75 |tural; | (* nu|
|000024d0| 6d 62 65 72 20 6f 66 20 | 70 72 65 63 65 64 69 6e |mber of |precedin|
|000024e0| 67 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 73 20 2a 29 |g blank |lines *)|
|000024f0| 0a 09 09 6c 65 6e 20 3a | 20 6f 75 74 72 61 6e 67 |...len :| outrang|
|00002500| 65 3b 20 20 20 20 20 20 | 20 20 20 28 2a 20 6e 75 |e; | (* nu|
|00002510| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 69 6e |mber of |chars in|
|00002520| 20 62 75 66 20 2a 29 0a | 09 09 62 75 66 20 3a 20 | buf *).|..buf : |
|00002530| 41 52 52 41 59 20 5b 31 | 2e 2e 6d 61 78 6f 75 74 |ARRAY [1|..maxout|
|00002540| 6c 65 6e 5d 20 4f 46 20 | 43 48 41 52 3b 0a 09 45 |len] OF |CHAR;..E|
|00002550| 4e 44 3b 0a 09 63 75 72 | 77 6f 72 64 20 3a 20 77 |ND;..cur|word : w|
|00002560| 6f 72 64 74 79 70 65 3b | 20 20 20 20 20 20 20 20 |ordtype;| |
|00002570| 20 20 20 20 20 28 2a 20 | 63 75 72 72 65 6e 74 20 | (* |current |
|00002580| 77 6f 72 64 20 2a 29 0a | 09 6d 61 72 67 69 6e 20 |word *).|.margin |
|00002590| 3a 20 6f 75 74 72 61 6e | 67 65 3b 20 20 20 20 20 |: outran|ge; |
|000025a0| 20 20 20 20 20 20 20 20 | 20 28 2a 20 6c 65 66 74 | | (* left|
|000025b0| 20 6d 61 72 67 69 6e 20 | 2a 29 0a 09 6c 6e 70 65 | margin |*)..lnpe|
|000025c0| 6e 64 69 6e 67 20 3a 20 | 42 4f 4f 4c 45 41 4e 3b |nding : |BOOLEAN;|
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 6e | | (* n|
|000025e0| 65 77 20 6c 69 6e 65 20 | 62 65 66 6f 72 65 20 6e |ew line |before n|
|000025f0| 65 78 74 20 73 79 6d 62 | 6f 6c 3f 20 2a 29 0a 09 |ext symb|ol? *)..|
|00002600| 69 6e 68 65 61 64 65 72 | 20 3a 20 42 4f 4f 4c 45 |inheader| : BOOLE|
|00002610| 41 4e 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |AN; | |
|00002620| 28 2a 20 61 72 65 20 77 | 65 20 73 63 61 6e 6e 69 |(* are w|e scanni|
|00002630| 6e 67 20 61 20 70 72 6f | 63 20 68 65 61 64 65 72 |ng a pro|c header|
|00002640| 3f 20 2a 29 0a 09 73 79 | 6d 62 6f 6c 20 3a 20 73 |? *)..sy|mbol : s|
|00002650| 79 6d 62 6f 6c 74 79 70 | 65 3b 20 20 20 20 20 20 |ymboltyp|e; |
|00002660| 20 20 20 20 20 20 28 2a | 20 63 75 72 72 65 6e 74 | (*| current|
|00002670| 20 73 79 6d 62 6f 6c 20 | 2a 29 0a 0a 20 20 28 2a | symbol |*).. (*|
|00002680| 20 53 74 72 75 63 74 75 | 72 65 64 20 43 6f 6e 73 | Structu|red Cons|
|00002690| 74 61 6e 74 73 20 2a 29 | 0a 09 68 65 61 64 65 72 |tants *)|..header|
|000026a0| 73 79 6d 73 20 3a 20 73 | 79 6d 62 6f 6c 73 65 74 |syms : s|ymbolset|
|000026b0| 3b 20 20 20 20 20 20 20 | 20 20 28 2a 20 68 65 61 |; | (* hea|
|000026c0| 64 65 72 73 20 66 6f 72 | 20 70 72 6f 67 72 61 6d |ders for| program|
|000026d0| 20 70 61 72 74 73 20 2a | 29 0a 09 73 74 72 75 63 | parts *|)..struc|
|000026e0| 73 79 6d 73 20 3a 20 73 | 79 6d 62 6f 6c 73 65 74 |syms : s|ymbolset|
|000026f0| 3b 20 20 20 20 20 20 20 | 20 20 20 28 2a 20 73 79 |; | (* sy|
|00002700| 6d 62 6f 6c 73 20 74 68 | 61 74 20 62 65 67 69 6e |mbols th|at begin|
|00002710| 20 73 74 72 75 63 74 75 | 72 65 64 20 73 74 61 74 | structu|red stat|
|00002720| 65 6d 65 6e 74 73 20 2a | 29 0a 09 73 74 6d 74 62 |ements *|)..stmtb|
|00002730| 65 67 69 6e 73 79 6d 73 | 20 3a 20 73 79 6d 62 6f |eginsyms| : symbo|
|00002740| 6c 73 65 74 3b 20 20 20 | 20 20 20 28 2a 20 73 79 |lset; | (* sy|
|00002750| 6d 62 6f 6c 73 20 74 68 | 61 74 20 62 65 67 69 6e |mbols th|at begin|
|00002760| 20 73 74 61 74 65 6d 65 | 6e 74 73 20 2a 29 0a 09 | stateme|nts *)..|
|00002770| 73 74 6d 74 65 6e 64 73 | 79 6d 73 20 3a 20 73 79 |stmtends|yms : sy|
|00002780| 6d 62 6f 6c 73 65 74 3b | 20 20 20 20 20 20 20 20 |mbolset;| |
|00002790| 28 2a 20 73 79 6d 62 6f | 6c 73 20 74 68 61 74 20 |(* symbo|ls that |
|000027a0| 66 6f 6c 6c 6f 77 20 73 | 74 61 74 65 6d 65 6e 74 |follow s|tatement|
|000027b0| 73 20 2a 29 0a 09 73 74 | 6f 70 73 79 6d 73 20 3a |s *)..st|opsyms :|
|000027c0| 20 73 79 6d 62 6f 6c 73 | 65 74 3b 20 20 20 20 20 | symbols|et; |
|000027d0| 20 20 20 20 20 20 28 2a | 20 73 79 6d 62 6f 6c 73 | (*| symbols|
|000027e0| 20 74 68 61 74 20 73 74 | 6f 70 20 65 78 70 72 65 | that st|op expre|
|000027f0| 73 73 69 6f 6e 20 73 63 | 61 6e 20 2a 29 0a 09 72 |ssion sc|an *)..r|
|00002800| 65 63 65 6e 64 73 79 6d | 73 20 3a 20 73 79 6d 62 |ecendsym|s : symb|
|00002810| 6f 6c 73 65 74 3b 20 20 | 20 20 20 20 20 20 20 28 |olset; | (|
|00002820| 2a 20 73 79 6d 62 6f 6c | 73 20 74 68 61 74 20 73 |* symbol|s that s|
|00002830| 74 6f 70 20 72 65 63 6f | 72 64 20 73 63 61 6e 20 |top reco|rd scan |
|00002840| 2a 29 0a 09 64 61 74 61 | 77 6f 72 64 73 20 3a 20 |*)..data|words : |
|00002850| 73 79 6d 62 6f 6c 73 65 | 74 3b 20 20 20 20 20 20 |symbolse|t; |
|00002860| 20 20 20 20 28 2a 20 74 | 6f 20 72 65 64 75 63 65 | (* t|o reduce|
|00002870| 20 64 61 6e 67 6c 69 6e | 67 20 70 75 6e 63 74 75 | danglin|g punctu|
|00002880| 61 74 69 6f 6e 20 2a 29 | 0a 09 66 69 72 73 74 72 |ation *)|..firstr|
|00002890| 77 20 3a 20 41 52 52 41 | 59 20 5b 31 2e 2e 6d 61 |w : ARRA|Y [1..ma|
|000028a0| 78 72 77 6c 65 6e 5d 20 | 4f 46 20 72 65 73 77 6f |xrwlen] |OF reswo|
|000028b0| 72 64 3b 0a 09 72 77 77 | 6f 72 64 20 3a 20 41 52 |rd;..rww|ord : AR|
|000028c0| 52 41 59 20 5b 72 77 69 | 66 2e 2e 72 77 69 6d 70 |RAY [rwi|f..rwimp|
|000028d0| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 5d 20 4f 46 20 |lementat|ion] OF |
|000028e0| 72 77 73 74 72 69 6e 67 | 3b 0a 09 72 77 73 79 20 |rwstring|;..rwsy |
|000028f0| 3a 20 41 52 52 41 59 20 | 5b 72 77 69 66 2e 2e 72 |: ARRAY |[rwif..r|
|00002900| 77 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 5d |wimpleme|ntation]|
|00002910| 20 4f 46 20 73 79 6d 62 | 6f 6c 74 79 70 65 3b 0a | OF symb|oltype;.|
|00002920| 09 63 68 61 72 63 6c 61 | 73 73 20 3a 20 41 52 52 |.charcla|ss : ARR|
|00002930| 41 59 20 43 48 41 52 20 | 4f 46 20 63 68 61 72 74 |AY CHAR |OF chart|
|00002940| 79 70 65 3b 0a 09 73 79 | 6d 62 6f 6c 63 6c 61 73 |ype;..sy|mbolclas|
|00002950| 73 20 3a 20 41 52 52 41 | 59 20 63 68 61 72 74 79 |s : ARRA|Y charty|
|00002960| 70 65 20 4f 46 20 73 79 | 6d 62 6f 6c 74 79 70 65 |pe OF sy|mboltype|
|00002970| 3b 0a 0a 50 52 4f 43 45 | 44 55 52 45 20 53 74 72 |;..PROCE|DURE Str|
|00002980| 75 63 74 43 6f 6e 73 74 | 73 3b 0a 28 2a 20 65 73 |uctConst|s;.(* es|
|00002990| 74 61 62 6c 69 73 68 20 | 76 61 6c 75 65 73 20 6f |tablish |values o|
|000029a0| 66 20 73 74 72 75 63 74 | 75 72 65 64 20 63 6f 6e |f struct|ured con|
|000029b0| 73 74 61 6e 74 73 20 2a | 29 0a 56 41 52 0a 09 69 |stants *|).VAR..i|
|000029c0| 20 3a 20 5b 6f 72 64 6d | 69 6e 63 68 61 72 2e 2e | : [ordm|inchar..|
|000029d0| 6f 72 64 6d 61 78 63 68 | 61 72 5d 3b 20 20 20 28 |ordmaxch|ar]; (|
|000029e0| 2a 20 6c 6f 6f 70 20 69 | 6e 64 65 78 20 2a 29 0a |* loop i|ndex *).|
|000029f0| 09 63 68 20 3a 20 43 48 | 41 52 3b 20 20 20 20 20 |.ch : CH|AR; |
|00002a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a10| 20 28 2a 20 6c 6f 6f 70 | 20 69 6e 64 65 78 20 2a | (* loop| index *|
|00002a20| 29 0a 0a 50 52 4f 43 45 | 44 55 52 45 20 42 75 69 |)..PROCE|DURE Bui|
|00002a30| 6c 64 52 65 73 57 6f 72 | 64 28 72 77 20 3a 20 72 |ldResWor|d(rw : r|
|00002a40| 65 73 77 6f 72 64 3b 20 | 73 79 6d 77 6f 72 64 20 |esword; |symword |
|00002a50| 3a 20 72 77 73 74 72 69 | 6e 67 3b 20 73 79 6d 62 |: rwstri|ng; symb|
|00002a60| 6f 6c 20 3a 20 73 79 6d | 62 6f 6c 74 79 70 65 29 |ol : sym|boltype)|
|00002a70| 3b 0a 42 45 47 49 4e 0a | 09 72 77 77 6f 72 64 5b |;.BEGIN.|.rwword[|
|00002a80| 72 77 5d 20 3a 3d 20 73 | 79 6d 77 6f 72 64 3b 20 |rw] := s|ymword; |
|00002a90| 20 20 20 20 20 20 20 20 | 20 28 2a 20 72 65 73 65 | | (* rese|
|00002aa0| 72 76 65 64 20 77 6f 72 | 64 20 73 74 72 69 6e 67 |rved wor|d string|
|00002ab0| 20 2a 29 0a 09 72 77 73 | 79 5b 72 77 5d 20 3a 3d | *)..rws|y[rw] :=|
|00002ac0| 20 73 79 6d 62 6f 6c 3b | 20 20 20 20 20 20 20 20 | symbol;| |
|00002ad0| 20 20 20 20 20 28 2a 20 | 6d 61 70 20 74 6f 20 73 | (* |map to s|
|00002ae0| 79 6d 62 6f 6c 20 2a 29 | 0a 45 4e 44 20 42 75 69 |ymbol *)|.END Bui|
|00002af0| 6c 64 52 65 73 57 6f 72 | 64 3b 0a 0a 42 45 47 49 |ldResWor|d;..BEGI|
|00002b00| 4e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N | |
|00002b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b20| 20 20 20 20 28 2a 20 53 | 74 72 75 63 74 43 6f 6e | (* S|tructCon|
|00002b30| 73 74 73 20 2a 29 0a 28 | 2a 20 73 79 6d 62 6f 6c |sts *).(|* symbol|
|00002b40| 20 73 65 74 73 20 66 6f | 72 20 73 79 6e 74 61 78 | sets fo|r syntax|
|00002b50| 20 61 6e 61 6c 79 73 69 | 73 20 2a 29 0a 09 68 65 | analysi|s *)..he|
|00002b60| 61 64 65 72 73 79 6d 73 | 20 3a 3d 20 73 79 6d 62 |adersyms| := symb|
|00002b70| 6f 6c 73 65 74 7b 73 79 | 6d 6f 64 75 6c 65 2c 20 |olset{sy|module, |
|00002b80| 73 79 70 72 6f 63 2c 20 | 64 65 63 6c 61 72 61 74 |syproc, |declarat|
|00002b90| 6f 72 2c 20 73 79 62 65 | 67 69 6e 2c 20 73 79 65 |or, sybe|gin, sye|
|00002ba0| 6e 64 2c 20 73 79 65 6f | 66 7d 3b 0a 09 73 74 72 |nd, syeo|f};..str|
|00002bb0| 75 63 73 79 6d 73 20 3a | 3d 20 73 79 6d 62 6f 6c |ucsyms :|= symbol|
|00002bc0| 73 65 74 7b 73 79 63 61 | 73 65 2c 20 73 79 72 65 |set{syca|se, syre|
|00002bd0| 70 65 61 74 2c 20 73 79 | 69 66 2c 20 66 6f 72 77 |peat, sy|if, forw|
|00002be0| 68 69 6c 65 77 69 74 68 | 2c 20 73 79 6c 6f 6f 70 |hilewith|, syloop|
|00002bf0| 7d 3b 0a 09 73 74 6d 74 | 62 65 67 69 6e 73 79 6d |};..stmt|beginsym|
|00002c00| 73 20 3a 3d 20 73 74 72 | 75 63 73 79 6d 73 20 2b |s := str|ucsyms +|
|00002c10| 20 73 79 6d 62 6f 6c 73 | 65 74 7b 69 64 65 6e 74 | symbols|et{ident|
|00002c20| 7d 3b 0a 09 73 74 6d 74 | 65 6e 64 73 79 6d 73 20 |};..stmt|endsyms |
|00002c30| 3a 3d 20 73 79 6d 62 6f | 6c 73 65 74 7b 73 65 6d |:= symbo|lset{sem|
|00002c40| 69 63 6f 6c 6f 6e 2c 20 | 62 61 72 2c 20 73 79 65 |icolon, |bar, sye|
|00002c50| 6e 64 2c 20 73 79 75 6e | 74 69 6c 2c 20 73 79 65 |nd, syun|til, sye|
|00002c60| 6c 73 69 66 2c 20 73 79 | 65 6c 73 65 2c 20 73 79 |lsif, sy|else, sy|
|00002c70| 65 6f 66 7d 3b 0a 09 73 | 74 6f 70 73 79 6d 73 20 |eof};..s|topsyms |
|00002c80| 3a 3d 20 68 65 61 64 65 | 72 73 79 6d 73 20 2b 20 |:= heade|rsyms + |
|00002c90| 73 74 72 75 63 73 79 6d | 73 20 2b 20 73 74 6d 74 |strucsym|s + stmt|
|00002ca0| 65 6e 64 73 79 6d 73 3b | 0a 09 72 65 63 65 6e 64 |endsyms;|..recend|
|00002cb0| 73 79 6d 73 20 3a 3d 20 | 73 79 6d 62 6f 6c 73 65 |syms := |symbolse|
|00002cc0| 74 7b 72 69 67 68 74 70 | 61 72 65 6e 2c 20 73 79 |t{rightp|aren, sy|
|00002cd0| 65 6e 64 2c 20 73 79 65 | 6f 66 7d 3b 0a 09 64 61 |end, sye|of};..da|
|00002ce0| 74 61 77 6f 72 64 73 20 | 3a 3d 20 73 79 6d 62 6f |tawords |:= symbo|
|00002cf0| 6c 73 65 74 7b 6f 74 68 | 65 72 77 6f 72 64 2c 20 |lset{oth|erword, |
|00002d00| 69 6e 74 63 6f 6e 73 74 | 2c 20 69 64 65 6e 74 2c |intconst|, ident,|
|00002d10| 20 73 79 65 6e 64 7d 3b | 0a 0a 28 2a 20 63 6f 6e | syend};|..(* con|
|00002d20| 73 74 61 6e 74 73 20 66 | 6f 72 20 72 65 63 6f 67 |stants f|or recog|
|00002d30| 6e 69 7a 69 6e 67 20 72 | 65 73 65 72 76 65 64 20 |nizing r|eserved |
|00002d40| 77 6f 72 64 73 20 2a 29 | 0a 09 66 69 72 73 74 72 |words *)|..firstr|
|00002d50| 77 5b 31 5d 20 3a 3d 20 | 72 77 69 66 3b 20 20 20 |w[1] := |rwif; |
|00002d60| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 6c 65 6e | | (* len|
|00002d70| 67 74 68 3a 20 31 20 2a | 29 0a 09 66 69 72 73 74 |gth: 1 *|)..first|
|00002d80| 72 77 5b 32 5d 20 3a 3d | 20 72 77 69 66 3b 20 20 |rw[2] :=| rwif; |
|00002d90| 20 20 20 20 20 20 20 20 | 20 20 20 28 2a 20 6c 65 | | (* le|
|00002da0| 6e 67 74 68 3a 20 32 20 | 2a 29 0a 09 42 75 69 6c |ngth: 2 |*)..Buil|
|00002db0| 64 52 65 73 57 6f 72 64 | 28 72 77 69 66 2c 20 27 |dResWord|(rwif, '|
|00002dc0| 49 46 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 |IF | '|
|00002dd0| 2c 20 73 79 69 66 29 3b | 0a 09 42 75 69 6c 64 52 |, syif);|..BuildR|
|00002de0| 65 73 57 6f 72 64 28 72 | 77 64 6f 2c 20 27 44 4f |esWord(r|wdo, 'DO|
|00002df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 2c 20 | | ', |
|00002e00| 73 79 64 6f 29 3b 0a 09 | 42 75 69 6c 64 52 65 73 |sydo);..|BuildRes|
|00002e10| 57 6f 72 64 28 72 77 6f | 66 2c 20 27 4f 46 20 20 |Word(rwo|f, 'OF |
|00002e20| 20 20 20 20 20 20 20 20 | 20 20 20 27 2c 20 73 79 | | ', sy|
|00002e30| 6f 66 29 3b 0a 09 42 75 | 69 6c 64 52 65 73 57 6f |of);..Bu|ildResWo|
|00002e40| 72 64 28 72 77 74 6f 2c | 20 27 54 4f 20 20 20 20 |rd(rwto,| 'TO |
|00002e50| 20 20 20 20 20 20 20 20 | 20 27 2c 20 6f 74 68 65 | | ', othe|
|00002e60| 72 73 79 6d 29 3b 0a 09 | 42 75 69 6c 64 52 65 73 |rsym);..|BuildRes|
|00002e70| 57 6f 72 64 28 72 77 69 | 6e 2c 20 27 49 4e 20 20 |Word(rwi|n, 'IN |
|00002e80| 20 20 20 20 20 20 20 20 | 20 20 20 27 2c 20 6f 74 | | ', ot|
|00002e90| 68 65 72 73 79 6d 29 3b | 0a 09 42 75 69 6c 64 52 |hersym);|..BuildR|
|00002ea0| 65 73 57 6f 72 64 28 72 | 77 6f 72 2c 20 27 4f 52 |esWord(r|wor, 'OR|
|00002eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 2c 20 | | ', |
|00002ec0| 6f 74 68 65 72 73 79 6d | 29 3b 0a 09 66 69 72 73 |othersym|);..firs|
|00002ed0| 74 72 77 5b 33 5d 20 3a | 3d 20 72 77 65 6e 64 3b |trw[3] :|= rwend;|
|00002ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 6c | | (* l|
|00002ef0| 65 6e 67 74 68 3a 20 33 | 20 2a 29 0a 09 42 75 69 |ength: 3| *)..Bui|
|00002f00| 6c 64 52 65 73 57 6f 72 | 64 28 72 77 65 6e 64 2c |ldResWor|d(rwend,|
|00002f10| 20 27 45 4e 44 20 20 20 | 20 20 20 20 20 20 20 20 | 'END | |
|00002f20| 20 27 2c 20 73 79 65 6e | 64 29 3b 0a 09 42 75 69 | ', syen|d);..Bui|
|00002f30| 6c 64 52 65 73 57 6f 72 | 64 28 72 77 66 6f 72 2c |ldResWor|d(rwfor,|
|00002f40| 20 27 46 4f 52 20 20 20 | 20 20 20 20 20 20 20 20 | 'FOR | |
|00002f50| 20 27 2c 20 66 6f 72 77 | 68 69 6c 65 77 69 74 68 | ', forw|hilewith|
|00002f60| 29 3b 0a 09 42 75 69 6c | 64 52 65 73 57 6f 72 64 |);..Buil|dResWord|
|00002f70| 28 72 77 76 61 72 2c 20 | 27 56 41 52 20 20 20 20 |(rwvar, |'VAR |
|00002f80| 20 20 20 20 20 20 20 20 | 27 2c 20 64 65 63 6c 61 | |', decla|
|00002f90| 72 61 74 6f 72 29 3b 0a | 09 42 75 69 6c 64 52 65 |rator);.|.BuildRe|
|00002fa0| 73 57 6f 72 64 28 72 77 | 64 69 76 2c 20 27 44 49 |sWord(rw|div, 'DI|
|00002fb0| 56 20 20 20 20 20 20 20 | 20 20 20 20 20 27 2c 20 |V | ', |
|00002fc0| 6f 74 68 65 72 73 79 6d | 29 3b 0a 09 42 75 69 6c |othersym|);..Buil|
|00002fd0| 64 52 65 73 57 6f 72 64 | 28 72 77 6d 6f 64 2c 20 |dResWord|(rwmod, |
|00002fe0| 27 4d 4f 44 20 20 20 20 | 20 20 20 20 20 20 20 20 |'MOD | |
|00002ff0| 27 2c 20 6f 74 68 65 72 | 73 79 6d 29 3b 0a 09 42 |', other|sym);..B|
|00003000| 75 69 6c 64 52 65 73 57 | 6f 72 64 28 72 77 73 65 |uildResW|ord(rwse|
|00003010| 74 2c 20 27 53 45 54 20 | 20 20 20 20 20 20 20 20 |t, 'SET | |
|00003020| 20 20 20 27 2c 20 6f 74 | 68 65 72 73 79 6d 29 3b | ', ot|hersym);|
|00003030| 0a 09 42 75 69 6c 64 52 | 65 73 57 6f 72 64 28 72 |..BuildR|esWord(r|
|00003040| 77 61 6e 64 2c 20 27 41 | 4e 44 20 20 20 20 20 20 |wand, 'A|ND |
|00003050| 20 20 20 20 20 20 27 2c | 20 6f 74 68 65 72 73 79 | ',| othersy|
|00003060| 6d 29 3b 0a 09 42 75 69 | 6c 64 52 65 73 57 6f 72 |m);..Bui|ldResWor|
|00003070| 64 28 72 77 6e 6f 74 2c | 20 27 4e 4f 54 20 20 20 |d(rwnot,| 'NOT |
|00003080| 20 20 20 20 20 20 20 20 | 20 27 2c 20 6f 74 68 65 | | ', othe|
|00003090| 72 73 79 6d 29 3b 0a 09 | 42 75 69 6c 64 52 65 73 |rsym);..|BuildRes|
|000030a0| 57 6f 72 64 28 72 77 6e | 69 6c 2c 20 27 4e 49 4c |Word(rwn|il, 'NIL|
|000030b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 2c 20 6f | | ', o|
|000030c0| 74 68 65 72 77 6f 72 64 | 29 3b 0a 09 66 69 72 73 |therword|);..firs|
|000030d0| 74 72 77 5b 34 5d 20 3a | 3d 20 72 77 74 68 65 6e |trw[4] :|= rwthen|
|000030e0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 6c |; | (* l|
|000030f0| 65 6e 67 74 68 3a 20 34 | 20 2a 29 0a 09 42 75 69 |ength: 4| *)..Bui|
|00003100| 6c 64 52 65 73 57 6f 72 | 64 28 72 77 74 68 65 6e |ldResWor|d(rwthen|
|00003110| 2c 20 27 54 48 45 4e 20 | 20 20 20 20 20 20 20 20 |, 'THEN | |
|00003120| 20 20 27 2c 20 73 79 74 | 68 65 6e 29 3b 0a 09 42 | ', syt|hen);..B|
|00003130| 75 69 6c 64 52 65 73 57 | 6f 72 64 28 72 77 65 6c |uildResW|ord(rwel|
|00003140| 73 65 2c 20 27 45 4c 53 | 45 20 20 20 20 20 20 20 |se, 'ELS|E |
|00003150| 20 20 20 20 27 2c 20 73 | 79 65 6c 73 65 29 3b 0a | ', s|yelse);.|
|00003160| 09 42 75 69 6c 64 52 65 | 73 57 6f 72 64 28 72 77 |.BuildRe|sWord(rw|
|00003170| 77 69 74 68 2c 20 27 57 | 49 54 48 20 20 20 20 20 |with, 'W|ITH |
|00003180| 20 20 20 20 20 20 27 2c | 20 66 6f 72 77 68 69 6c | ',| forwhil|
|00003190| 65 77 69 74 68 29 3b 0a | 09 42 75 69 6c 64 52 65 |ewith);.|.BuildRe|
|000031a0| 73 57 6f 72 64 28 72 77 | 6c 6f 6f 70 2c 20 27 4c |sWord(rw|loop, 'L|
|000031b0| 4f 4f 50 20 20 20 20 20 | 20 20 20 20 20 20 27 2c |OOP | ',|
|000031c0| 20 73 79 6c 6f 6f 70 29 | 3b 0a 09 42 75 69 6c 64 | syloop)|;..Build|
|000031d0| 52 65 73 57 6f 72 64 28 | 72 77 66 72 6f 6d 2c 20 |ResWord(|rwfrom, |
|000031e0| 27 46 52 4f 4d 20 20 20 | 20 20 20 20 20 20 20 20 |'FROM | |
|000031f0| 27 2c 20 73 79 66 72 6f | 6d 29 3b 0a 09 42 75 69 |', syfro|m);..Bui|
|00003200| 6c 64 52 65 73 57 6f 72 | 64 28 72 77 63 61 73 65 |ldResWor|d(rwcase|
|00003210| 2c 20 27 43 41 53 45 20 | 20 20 20 20 20 20 20 20 |, 'CASE | |
|00003220| 20 20 27 2c 20 73 79 63 | 61 73 65 29 3b 0a 09 42 | ', syc|ase);..B|
|00003230| 75 69 6c 64 52 65 73 57 | 6f 72 64 28 72 77 74 79 |uildResW|ord(rwty|
|00003240| 70 65 2c 20 27 54 59 50 | 45 20 20 20 20 20 20 20 |pe, 'TYP|E |
|00003250| 20 20 20 20 27 2c 20 64 | 65 63 6c 61 72 61 74 6f | ', d|eclarato|
|00003260| 72 29 3b 0a 09 66 69 72 | 73 74 72 77 5b 35 5d 20 |r);..fir|strw[5] |
|00003270| 3a 3d 20 72 77 62 65 67 | 69 6e 3b 20 20 20 20 20 |:= rwbeg|in; |
|00003280| 20 20 20 20 20 28 2a 20 | 6c 65 6e 67 74 68 3a 20 | (* |length: |
|00003290| 35 20 2a 29 0a 09 42 75 | 69 6c 64 52 65 73 57 6f |5 *)..Bu|ildResWo|
|000032a0| 72 64 28 72 77 62 65 67 | 69 6e 2c 20 27 42 45 47 |rd(rwbeg|in, 'BEG|
|000032b0| 49 4e 20 20 20 20 20 20 | 20 20 20 20 27 2c 20 73 |IN | ', s|
|000032c0| 79 62 65 67 69 6e 29 3b | 0a 09 42 75 69 6c 64 52 |ybegin);|..BuildR|
|000032d0| 65 73 57 6f 72 64 28 72 | 77 65 6c 73 69 66 2c 20 |esWord(r|welsif, |
|000032e0| 27 45 4c 53 49 46 20 20 | 20 20 20 20 20 20 20 20 |'ELSIF | |
|000032f0| 27 2c 20 73 79 65 6c 73 | 69 66 29 3b 0a 09 42 75 |', syels|if);..Bu|
|00003300| 69 6c 64 52 65 73 57 6f | 72 64 28 72 77 75 6e 74 |ildResWo|rd(rwunt|
|00003310| 69 6c 2c 20 27 55 4e 54 | 49 4c 20 20 20 20 20 20 |il, 'UNT|IL |
|00003320| 20 20 20 20 27 2c 20 73 | 79 75 6e 74 69 6c 29 3b | ', s|yuntil);|
|00003330| 0a 09 42 75 69 6c 64 52 | 65 73 57 6f 72 64 28 72 |..BuildR|esWord(r|
|00003340| 77 77 68 69 6c 65 2c 20 | 27 57 48 49 4c 45 20 20 |wwhile, |'WHILE |
|00003350| 20 20 20 20 20 20 20 20 | 27 2c 20 66 6f 72 77 68 | |', forwh|
|00003360| 69 6c 65 77 69 74 68 29 | 3b 0a 09 42 75 69 6c 64 |ilewith)|;..Build|
|00003370| 52 65 73 57 6f 72 64 28 | 72 77 61 72 72 61 79 2c |ResWord(|rwarray,|
|00003380| 20 27 41 52 52 41 59 20 | 20 20 20 20 20 20 20 20 | 'ARRAY | |
|00003390| 20 27 2c 20 6f 74 68 65 | 72 73 79 6d 29 3b 0a 09 | ', othe|rsym);..|
|000033a0| 42 75 69 6c 64 52 65 73 | 57 6f 72 64 28 72 77 63 |BuildRes|Word(rwc|
|000033b0| 6f 6e 73 74 2c 20 27 43 | 4f 4e 53 54 20 20 20 20 |onst, 'C|ONST |
|000033c0| 20 20 20 20 20 20 27 2c | 20 64 65 63 6c 61 72 61 | ',| declara|
|000033d0| 74 6f 72 29 3b 0a 09 66 | 69 72 73 74 72 77 5b 36 |tor);..f|irstrw[6|
|000033e0| 5d 20 3a 3d 20 72 77 72 | 65 70 65 61 74 3b 20 20 |] := rwr|epeat; |
|000033f0| 20 20 20 20 20 20 20 28 | 2a 20 6c 65 6e 67 74 68 | (|* length|
|00003400| 3a 20 36 20 2a 29 0a 09 | 42 75 69 6c 64 52 65 73 |: 6 *)..|BuildRes|
|00003410| 57 6f 72 64 28 72 77 72 | 65 70 65 61 74 2c 20 27 |Word(rwr|epeat, '|
|00003420| 52 45 50 45 41 54 20 20 | 20 20 20 20 20 20 20 27 |REPEAT | '|
|00003430| 2c 20 73 79 72 65 70 65 | 61 74 29 3b 0a 09 42 75 |, syrepe|at);..Bu|
|00003440| 69 6c 64 52 65 73 57 6f | 72 64 28 72 77 72 65 63 |ildResWo|rd(rwrec|
|00003450| 6f 72 64 2c 20 27 52 45 | 43 4f 52 44 20 20 20 20 |ord, 'RE|CORD |
|00003460| 20 20 20 20 20 27 2c 20 | 73 79 72 65 63 6f 72 64 | ', |syrecord|
|00003470| 29 3b 0a 09 42 75 69 6c | 64 52 65 73 57 6f 72 64 |);..Buil|dResWord|
|00003480| 28 72 77 6d 6f 64 75 6c | 65 2c 20 27 4d 4f 44 55 |(rwmodul|e, 'MODU|
|00003490| 4c 45 20 20 20 20 20 20 | 20 20 20 27 2c 20 73 79 |LE | ', sy|
|000034a0| 6d 6f 64 75 6c 65 29 3b | 0a 09 42 75 69 6c 64 52 |module);|..BuildR|
|000034b0| 65 73 57 6f 72 64 28 72 | 77 69 6d 70 6f 72 74 2c |esWord(r|wimport,|
|000034c0| 20 27 49 4d 50 4f 52 54 | 20 20 20 20 20 20 20 20 | 'IMPORT| |
|000034d0| 20 27 2c 20 73 79 69 6d | 70 6f 72 74 29 3b 0a 09 | ', syim|port);..|
|000034e0| 42 75 69 6c 64 52 65 73 | 57 6f 72 64 28 72 77 65 |BuildRes|Word(rwe|
|000034f0| 78 70 6f 72 74 2c 20 27 | 45 58 50 4f 52 54 20 20 |xport, '|EXPORT |
|00003500| 20 20 20 20 20 20 20 27 | 2c 20 73 79 65 78 70 6f | '|, syexpo|
|00003510| 72 74 29 3b 0a 09 66 69 | 72 73 74 72 77 5b 37 5d |rt);..fi|rstrw[7]|
|00003520| 20 3a 3d 20 72 77 70 6f | 69 6e 74 65 72 3b 20 20 | := rwpo|inter; |
|00003530| 20 20 20 20 20 20 28 2a | 20 6c 65 6e 67 74 68 3a | (*| length:|
|00003540| 20 37 20 2a 29 0a 09 42 | 75 69 6c 64 52 65 73 57 | 7 *)..B|uildResW|
|00003550| 6f 72 64 28 72 77 70 6f | 69 6e 74 65 72 2c 20 27 |ord(rwpo|inter, '|
|00003560| 50 4f 49 4e 54 45 52 20 | 20 20 20 20 20 20 20 27 |POINTER | '|
|00003570| 2c 20 6f 74 68 65 72 73 | 79 6d 29 3b 0a 09 66 69 |, others|ym);..fi|
|00003580| 72 73 74 72 77 5b 38 5d | 20 3a 3d 20 72 77 70 72 |rstrw[8]| := rwpr|
|00003590| 6f 63 65 64 75 72 65 3b | 20 20 20 20 20 20 28 2a |ocedure;| (*|
|000035a0| 20 6c 65 6e 67 74 68 3a | 20 38 20 2a 29 0a 09 66 | length:| 8 *)..f|
|000035b0| 69 72 73 74 72 77 5b 39 | 5d 20 3a 3d 20 72 77 70 |irstrw[9|] := rwp|
|000035c0| 72 6f 63 65 64 75 72 65 | 3b 20 20 20 20 20 20 28 |rocedure|; (|
|000035d0| 2a 20 6c 65 6e 67 74 68 | 3a 20 39 20 2a 29 0a 09 |* length|: 9 *)..|
|000035e0| 42 75 69 6c 64 52 65 73 | 57 6f 72 64 28 72 77 70 |BuildRes|Word(rwp|
|000035f0| 72 6f 63 65 64 75 72 65 | 2c 20 27 50 52 4f 43 45 |rocedure|, 'PROCE|
|00003600| 44 55 52 45 20 20 20 20 | 20 20 27 2c 20 73 79 70 |DURE | ', syp|
|00003610| 72 6f 63 29 3b 0a 09 42 | 75 69 6c 64 52 65 73 57 |roc);..B|uildResW|
|00003620| 6f 72 64 28 72 77 71 75 | 61 6c 69 66 69 65 64 2c |ord(rwqu|alified,|
|00003630| 20 27 51 55 41 4c 49 46 | 49 45 44 20 20 20 20 20 | 'QUALIF|IED |
|00003640| 20 27 2c 20 73 79 71 75 | 61 6c 29 3b 0a 09 66 69 | ', syqu|al);..fi|
|00003650| 72 73 74 72 77 5b 31 30 | 5d 20 3a 3d 20 72 77 64 |rstrw[10|] := rwd|
|00003660| 65 66 69 6e 69 74 69 6f | 6e 3b 20 20 20 20 28 2a |efinitio|n; (*|
|00003670| 20 6c 65 6e 67 74 68 3a | 20 31 30 20 2a 29 0a 09 | length:| 10 *)..|
|00003680| 42 75 69 6c 64 52 65 73 | 57 6f 72 64 28 72 77 64 |BuildRes|Word(rwd|
|00003690| 65 66 69 6e 69 74 69 6f | 6e 2c 20 27 44 45 46 49 |efinitio|n, 'DEFI|
|000036a0| 4e 49 54 49 4f 4e 20 20 | 20 20 20 27 2c 20 73 79 |NITION | ', sy|
|000036b0| 64 65 66 69 6e 69 74 69 | 6f 6e 29 3b 0a 09 66 69 |definiti|on);..fi|
|000036c0| 72 73 74 72 77 5b 31 31 | 5d 20 3a 3d 20 72 77 69 |rstrw[11|] := rwi|
|000036d0| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 3b 28 2a |mplement|ation;(*|
|000036e0| 20 6c 65 6e 67 74 68 3a | 20 31 31 20 2a 29 0a 09 | length:| 11 *)..|
|000036f0| 66 69 72 73 74 72 77 5b | 31 32 5d 20 3a 3d 20 72 |firstrw[|12] := r|
|00003700| 77 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 3b |wimpleme|ntation;|
|00003710| 28 2a 20 6c 65 6e 67 74 | 68 3a 20 31 32 20 2a 29 |(* lengt|h: 12 *)|
|00003720| 0a 09 66 69 72 73 74 72 | 77 5b 31 33 5d 20 3a 3d |..firstr|w[13] :=|
|00003730| 20 72 77 69 6d 70 6c 65 | 6d 65 6e 74 61 74 69 6f | rwimple|mentatio|
|00003740| 6e 3b 28 2a 20 6c 65 6e | 67 74 68 3a 20 31 33 20 |n;(* len|gth: 13 |
|00003750| 2a 29 0a 09 66 69 72 73 | 74 72 77 5b 31 34 5d 20 |*)..firs|trw[14] |
|00003760| 3a 3d 20 72 77 69 6d 70 | 6c 65 6d 65 6e 74 61 74 |:= rwimp|lementat|
|00003770| 69 6f 6e 3b 28 2a 20 6c | 65 6e 67 74 68 3a 20 31 |ion;(* l|ength: 1|
|00003780| 34 20 2a 29 0a 09 42 75 | 69 6c 64 52 65 73 57 6f |4 *)..Bu|ildResWo|
|00003790| 72 64 28 72 77 69 6d 70 | 6c 65 6d 65 6e 74 61 74 |rd(rwimp|lementat|
|000037a0| 69 6f 6e 2c 20 27 49 4d | 50 4c 45 4d 45 4e 54 41 |ion, 'IM|PLEMENTA|
|000037b0| 54 49 4f 4e 20 27 2c 20 | 73 79 69 6d 70 6c 65 6d |TION ', |syimplem|
|000037c0| 65 6e 74 61 74 69 6f 6e | 29 3b 0a 09 66 69 72 73 |entation|);..firs|
|000037d0| 74 72 77 5b 31 35 5d 20 | 3a 3d 20 72 77 78 3b 20 |trw[15] |:= rwx; |
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 6c | | (* l|
|000037f0| 65 6e 67 74 68 3a 20 31 | 35 20 46 4f 52 20 74 61 |ength: 1|5 FOR ta|
|00003800| 62 6c 65 20 73 65 6e 74 | 69 6e 65 6c 20 2a 29 0a |ble sent|inel *).|
|00003810| 0a 28 2a 20 63 6f 6e 73 | 74 61 6e 74 73 20 66 6f |.(* cons|tants fo|
|00003820| 72 20 6c 65 78 69 63 61 | 6c 20 73 63 61 6e 20 2a |r lexica|l scan *|
|00003830| 29 0a 09 46 4f 52 20 69 | 20 3a 3d 20 6f 72 64 6d |)..FOR i| := ordm|
|00003840| 69 6e 63 68 61 72 20 54 | 4f 20 6f 72 64 6d 61 78 |inchar T|O ordmax|
|00003850| 63 68 61 72 20 44 4f 0a | 09 09 63 68 61 72 63 6c |char DO.|..charcl|
|00003860| 61 73 73 5b 43 48 52 28 | 69 29 5d 20 3a 3d 20 69 |ass[CHR(|i)] := i|
|00003870| 6c 6c 65 67 61 6c 3b 0a | 09 45 4e 44 3b 0a 09 46 |llegal;.|.END;..F|
|00003880| 4f 52 20 63 68 20 3a 3d | 20 27 61 27 20 54 4f 20 |OR ch :=| 'a' TO |
|00003890| 27 7a 27 20 44 4f 0a 09 | 09 63 68 61 72 63 6c 61 |'z' DO..|.charcla|
|000038a0| 73 73 5b 63 68 5d 20 3a | 3d 20 6c 65 74 74 65 72 |ss[ch] :|= letter|
|000038b0| 3b 0a 09 09 63 68 61 72 | 63 6c 61 73 73 5b 43 41 |;...char|class[CA|
|000038c0| 50 28 63 68 29 5d 20 3a | 3d 20 6c 65 74 74 65 72 |P(ch)] :|= letter|
|000038d0| 3b 0a 09 45 4e 44 3b 0a | 09 46 4f 52 20 63 68 20 |;..END;.|.FOR ch |
|000038e0| 3a 3d 20 27 30 27 20 54 | 4f 20 27 39 27 20 44 4f |:= '0' T|O '9' DO|
|000038f0| 0a 09 09 63 68 61 72 63 | 6c 61 73 73 5b 63 68 5d |...charc|lass[ch]|
|00003900| 20 3a 3d 20 64 69 67 69 | 74 3b 0a 09 45 4e 44 3b | := digi|t;..END;|
|00003910| 0a 09 63 68 61 72 63 6c | 61 73 73 5b 27 20 27 5d |..charcl|ass[' ']|
|00003920| 20 3a 3d 20 73 70 65 63 | 69 61 6c 3b 0a 09 63 68 | := spec|ial;..ch|
|00003930| 61 72 63 6c 61 73 73 5b | 27 22 27 5d 20 3a 3d 20 |arclass[|'"'] := |
|00003940| 63 68 61 70 6f 73 74 72 | 6f 70 68 65 3b 0a 09 63 |chapostr|ophe;..c|
|00003950| 68 61 72 63 6c 61 73 73 | 5b 27 23 27 5d 20 3a 3d |harclass|['#'] :=|
|00003960| 20 73 70 65 63 69 61 6c | 3b 0a 09 63 68 61 72 63 | special|;..charc|
|00003970| 6c 61 73 73 5b 27 26 27 | 5d 20 3a 3d 20 73 70 65 |lass['&'|] := spe|
|00003980| 63 69 61 6c 3b 0a 09 63 | 68 61 72 63 6c 61 73 73 |cial;..c|harclass|
|00003990| 5b 22 27 22 5d 20 3a 3d | 20 63 68 61 70 6f 73 74 |["'"] :=| chapost|
|000039a0| 72 6f 70 68 65 3b 0a 09 | 63 68 61 72 63 6c 61 73 |rophe;..|charclas|
|000039b0| 73 5b 27 28 27 5d 20 3a | 3d 20 63 68 6c 65 66 74 |s['('] :|= chleft|
|000039c0| 70 61 72 65 6e 3b 0a 09 | 63 68 61 72 63 6c 61 73 |paren;..|charclas|
|000039d0| 73 5b 27 29 27 5d 20 3a | 3d 20 63 68 72 69 67 68 |s[')'] :|= chrigh|
|000039e0| 74 70 61 72 65 6e 3b 0a | 09 63 68 61 72 63 6c 61 |tparen;.|.charcla|
|000039f0| 73 73 5b 27 2a 27 5d 20 | 3a 3d 20 73 70 65 63 69 |ss['*'] |:= speci|
|00003a00| 61 6c 3b 0a 09 63 68 61 | 72 63 6c 61 73 73 5b 27 |al;..cha|rclass['|
|00003a10| 2b 27 5d 20 3a 3d 20 73 | 70 65 63 69 61 6c 3b 0a |+'] := s|pecial;.|
|00003a20| 09 63 68 61 72 63 6c 61 | 73 73 5b 27 2c 27 5d 20 |.charcla|ss[','] |
|00003a30| 3a 3d 20 73 70 65 63 69 | 61 6c 3b 0a 09 63 68 61 |:= speci|al;..cha|
|00003a40| 72 63 6c 61 73 73 5b 27 | 2d 27 5d 20 3a 3d 20 73 |rclass['|-'] := s|
|00003a50| 70 65 63 69 61 6c 3b 0a | 09 63 68 61 72 63 6c 61 |pecial;.|.charcla|
|00003a60| 73 73 5b 27 2e 27 5d 20 | 3a 3d 20 63 68 70 65 72 |ss['.'] |:= chper|
|00003a70| 69 6f 64 3b 0a 09 63 68 | 61 72 63 6c 61 73 73 5b |iod;..ch|arclass[|
|00003a80| 27 2f 27 5d 20 3a 3d 20 | 73 70 65 63 69 61 6c 3b |'/'] := |special;|
|00003a90| 0a 09 63 68 61 72 63 6c | 61 73 73 5b 27 3a 27 5d |..charcl|ass[':']|
|00003aa0| 20 3a 3d 20 63 68 63 6f | 6c 6f 6e 3b 0a 09 63 68 | := chco|lon;..ch|
|00003ab0| 61 72 63 6c 61 73 73 5b | 27 3b 27 5d 20 3a 3d 20 |arclass[|';'] := |
|00003ac0| 63 68 73 65 6d 69 63 6f | 6c 6f 6e 3b 0a 09 63 68 |chsemico|lon;..ch|
|00003ad0| 61 72 63 6c 61 73 73 5b | 27 3c 27 5d 20 3a 3d 20 |arclass[|'<'] := |
|00003ae0| 63 68 6c 65 73 73 74 68 | 61 6e 3b 0a 09 63 68 61 |chlessth|an;..cha|
|00003af0| 72 63 6c 61 73 73 5b 27 | 3d 27 5d 20 3a 3d 20 73 |rclass['|='] := s|
|00003b00| 70 65 63 69 61 6c 3b 0a | 09 63 68 61 72 63 6c 61 |pecial;.|.charcla|
|00003b10| 73 73 5b 27 3e 27 5d 20 | 3a 3d 20 63 68 67 72 65 |ss['>'] |:= chgre|
|00003b20| 61 74 65 72 74 68 61 6e | 3b 0a 09 63 68 61 72 63 |aterthan|;..charc|
|00003b30| 6c 61 73 73 5b 27 40 27 | 5d 20 3a 3d 20 73 70 65 |lass['@'|] := spe|
|00003b40| 63 69 61 6c 3b 0a 09 63 | 68 61 72 63 6c 61 73 73 |cial;..c|harclass|
|00003b50| 5b 27 5b 27 5d 20 3a 3d | 20 73 70 65 63 69 61 6c |['['] :=| special|
|00003b60| 3b 0a 09 63 68 61 72 63 | 6c 61 73 73 5b 27 5d 27 |;..charc|lass[']'|
|00003b70| 5d 20 3a 3d 20 73 70 65 | 63 69 61 6c 3b 0a 09 63 |] := spe|cial;..c|
|00003b80| 68 61 72 63 6c 61 73 73 | 5b 27 5e 27 5d 20 3a 3d |harclass|['^'] :=|
|00003b90| 20 73 70 65 63 69 61 6c | 3b 0a 09 63 68 61 72 63 | special|;..charc|
|00003ba0| 6c 61 73 73 5b 27 7b 27 | 5d 20 3a 3d 20 73 70 65 |lass['{'|] := spe|
|00003bb0| 63 69 61 6c 3b 0a 09 63 | 68 61 72 63 6c 61 73 73 |cial;..c|harclass|
|00003bc0| 5b 27 7c 27 5d 20 3a 3d | 20 63 68 62 61 72 3b 0a |['|'] :=| chbar;.|
|00003bd0| 09 63 68 61 72 63 6c 61 | 73 73 5b 27 7d 27 5d 20 |.charcla|ss['}'] |
|00003be0| 3a 3d 20 73 70 65 63 69 | 61 6c 3b 0a 09 73 79 6d |:= speci|al;..sym|
|00003bf0| 62 6f 6c 63 6c 61 73 73 | 5b 69 6c 6c 65 67 61 6c |bolclass|[illegal|
|00003c00| 5d 20 3a 3d 20 6f 74 68 | 65 72 73 79 6d 3b 0a 09 |] := oth|ersym;..|
|00003c10| 73 79 6d 62 6f 6c 63 6c | 61 73 73 5b 73 70 65 63 |symbolcl|ass[spec|
|00003c20| 69 61 6c 5d 20 3a 3d 20 | 6f 74 68 65 72 73 79 6d |ial] := |othersym|
|00003c30| 3b 0a 09 73 79 6d 62 6f | 6c 63 6c 61 73 73 5b 63 |;..symbo|lclass[c|
|00003c40| 68 61 70 6f 73 74 72 6f | 70 68 65 5d 20 3a 3d 20 |hapostro|phe] := |
|00003c50| 6f 74 68 65 72 77 6f 72 | 64 3b 0a 09 73 79 6d 62 |otherwor|d;..symb|
|00003c60| 6f 6c 63 6c 61 73 73 5b | 63 68 6c 65 66 74 70 61 |olclass[|chleftpa|
|00003c70| 72 65 6e 5d 20 3a 3d 20 | 6c 65 66 74 70 61 72 65 |ren] := |leftpare|
|00003c80| 6e 3b 0a 09 73 79 6d 62 | 6f 6c 63 6c 61 73 73 5b |n;..symb|olclass[|
|00003c90| 63 68 72 69 67 68 74 70 | 61 72 65 6e 5d 20 3a 3d |chrightp|aren] :=|
|00003ca0| 20 72 69 67 68 74 70 61 | 72 65 6e 3b 0a 09 73 79 | rightpa|ren;..sy|
|00003cb0| 6d 62 6f 6c 63 6c 61 73 | 73 5b 63 68 70 65 72 69 |mbolclas|s[chperi|
|00003cc0| 6f 64 5d 20 3a 3d 20 70 | 65 72 69 6f 64 3b 0a 09 |od] := p|eriod;..|
|00003cd0| 73 79 6d 62 6f 6c 63 6c | 61 73 73 5b 64 69 67 69 |symbolcl|ass[digi|
|00003ce0| 74 5d 20 3a 3d 20 69 6e | 74 63 6f 6e 73 74 3b 0a |t] := in|tconst;.|
|00003cf0| 09 73 79 6d 62 6f 6c 63 | 6c 61 73 73 5b 63 68 63 |.symbolc|lass[chc|
|00003d00| 6f 6c 6f 6e 5d 20 3a 3d | 20 63 6f 6c 6f 6e 3b 0a |olon] :=| colon;.|
|00003d10| 09 73 79 6d 62 6f 6c 63 | 6c 61 73 73 5b 63 68 73 |.symbolc|lass[chs|
|00003d20| 65 6d 69 63 6f 6c 6f 6e | 5d 20 3a 3d 20 73 65 6d |emicolon|] := sem|
|00003d30| 69 63 6f 6c 6f 6e 3b 0a | 09 73 79 6d 62 6f 6c 63 |icolon;.|.symbolc|
|00003d40| 6c 61 73 73 5b 63 68 6c | 65 73 73 74 68 61 6e 5d |lass[chl|essthan]|
|00003d50| 20 3a 3d 20 6f 74 68 65 | 72 73 79 6d 3b 0a 09 73 | := othe|rsym;..s|
|00003d60| 79 6d 62 6f 6c 63 6c 61 | 73 73 5b 63 68 67 72 65 |ymbolcla|ss[chgre|
|00003d70| 61 74 65 72 74 68 61 6e | 5d 20 3a 3d 20 6f 74 68 |aterthan|] := oth|
|00003d80| 65 72 73 79 6d 3b 0a 09 | 73 79 6d 62 6f 6c 63 6c |ersym;..|symbolcl|
|00003d90| 61 73 73 5b 63 68 62 61 | 72 5d 20 3a 3d 20 62 61 |ass[chba|r] := ba|
|00003da0| 72 3b 0a 09 73 79 6d 62 | 6f 6c 63 6c 61 73 73 5b |r;..symb|olclass[|
|00003db0| 6c 65 74 74 65 72 5d 20 | 3a 3d 20 69 64 65 6e 74 |letter] |:= ident|
|00003dc0| 3b 0a 45 4e 44 20 53 74 | 72 75 63 74 43 6f 6e 73 |;.END St|ructCons|
|00003dd0| 74 73 3b 0a 0a 28 2a 20 | 46 6c 75 73 68 4c 69 6e |ts;..(* |FlushLin|
|00003de0| 65 2f 57 72 69 74 65 45 | 72 72 6f 72 2f 52 65 61 |e/WriteE|rror/Rea|
|00003df0| 64 4c 69 6e 65 20 63 6f | 6e 76 65 72 74 20 62 65 |dLine co|nvert be|
|00003e00| 74 77 65 65 6e 20 66 69 | 6c 65 73 20 61 6e 64 20 |tween fi|les and |
|00003e10| 6c 69 6e 65 73 2e 20 2a | 29 0a 0a 50 52 4f 43 45 |lines. *|)..PROCE|
|00003e20| 44 55 52 45 20 46 6c 75 | 73 68 4c 69 6e 65 3b 0a |DURE Flu|shLine;.|
|00003e30| 28 2a 20 57 72 69 74 65 | 20 62 75 66 66 65 72 20 |(* Write| buffer |
|00003e40| 69 6e 74 6f 20 6f 75 74 | 70 75 74 20 66 69 6c 65 |into out|put file|
|00003e50| 20 2a 29 0a 56 41 52 0a | 09 69 2c 20 6a 2c 20 76 | *).VAR.|.i, j, v|
|00003e60| 69 72 63 6f 6c 20 3a 20 | 6f 75 74 72 61 6e 67 65 |ircol : |outrange|
|00003e70| 3b 20 20 20 20 20 20 20 | 20 28 2a 20 6c 6f 6f 70 |; | (* loop|
|00003e80| 20 69 6e 64 65 78 20 2a | 29 0a 09 6e 6f 6e 62 6c | index *|)..nonbl|
|00003e90| 61 6e 6b 73 65 65 6e 20 | 3a 20 42 4f 4f 4c 45 41 |ankseen |: BOOLEA|
|00003ea0| 4e 3b 0a 42 45 47 49 4e | 0a 09 57 49 54 48 20 6f |N;.BEGIN|..WITH o|
|00003eb0| 75 74 6c 69 6e 65 20 44 | 4f 0a 09 09 57 48 49 4c |utline D|O...WHIL|
|00003ec0| 45 20 62 6c 61 6e 6b 6c | 6e 73 20 3e 20 30 20 44 |E blankl|ns > 0 D|
|00003ed0| 4f 0a 09 09 09 57 72 69 | 74 65 4c 6e 3b 0a 09 09 |O....Wri|teLn;...|
|00003ee0| 09 62 6c 61 6e 6b 6c 6e | 73 20 3a 3d 20 62 6c 61 |.blankln|s := bla|
|00003ef0| 6e 6b 6c 6e 73 20 2d 20 | 31 3b 0a 09 09 45 4e 44 |nklns - |1;...END|
|00003f00| 3b 0a 09 09 49 46 20 6c | 65 6e 20 3e 20 30 20 54 |;...IF l|en > 0 T|
|00003f10| 48 45 4e 0a 09 09 09 76 | 69 72 63 6f 6c 20 3a 3d |HEN....v|ircol :=|
|00003f20| 20 30 3b 0a 09 09 09 6e | 6f 6e 62 6c 61 6e 6b 73 | 0;....n|onblanks|
|00003f30| 65 65 6e 20 3a 3d 20 46 | 41 4c 53 45 3b 0a 09 09 |een := F|ALSE;...|
|00003f40| 09 09 09 28 2a 20 73 65 | 74 20 74 68 69 73 20 74 |...(* se|t this t|
|00003f50| 6f 20 54 52 55 45 20 69 | 66 20 79 6f 75 20 64 6f |o TRUE i|f you do|
|00003f60| 6e 27 74 20 77 61 6e 74 | 20 62 6c 61 6e 6b 73 20 |n't want| blanks |
|00003f70| 74 6f 20 74 61 62 20 63 | 6f 6e 76 65 72 73 69 6f |to tab c|onversio|
|00003f80| 6e 20 2a 29 0a 09 09 09 | 46 4f 52 20 69 20 3a 3d |n *)....|FOR i :=|
|00003f90| 20 30 20 54 4f 20 6c 65 | 6e 20 2d 20 31 20 44 4f | 0 TO le|n - 1 DO|
|00003fa0| 0a 09 09 09 09 49 46 20 | 62 75 66 5b 69 2b 31 5d |.....IF |buf[i+1]|
|00003fb0| 20 3c 3e 20 27 20 27 20 | 54 48 45 4e 0a 09 09 09 | <> ' ' |THEN....|
|00003fc0| 09 09 49 46 20 4e 4f 54 | 20 6e 6f 6e 62 6c 61 6e |..IF NOT| nonblan|
|00003fd0| 6b 73 65 65 6e 20 54 48 | 45 4e 0a 09 09 09 09 09 |kseen TH|EN......|
|00003fe0| 09 4c 4f 4f 50 0a 09 09 | 09 09 09 09 09 6a 20 3a |.LOOP...|.....j :|
|00003ff0| 3d 20 28 76 69 72 63 6f | 6c 20 44 49 56 20 74 61 |= (virco|l DIV ta|
|00004000| 62 69 6e 74 65 72 76 61 | 6c 20 2b 20 31 29 20 2a |binterva|l + 1) *|
|00004010| 20 74 61 62 69 6e 74 65 | 72 76 61 6c 3b 0a 09 09 | tabinte|rval;...|
|00004020| 09 09 09 09 09 49 46 20 | 6a 20 3e 20 69 20 54 48 |.....IF |j > i TH|
|00004030| 45 4e 0a 09 09 09 09 09 | 09 09 09 45 58 49 54 3b |EN......|...EXIT;|
|00004040| 0a 09 09 09 09 09 09 09 | 45 4e 44 3b 0a 09 09 09 |........|END;....|
|00004050| 09 09 09 09 57 72 69 74 | 65 28 54 41 42 29 3b 0a |....Writ|e(TAB);.|
|00004060| 09 09 09 09 09 09 09 76 | 69 72 63 6f 6c 20 3a 3d |.......v|ircol :=|
|00004070| 20 6a 3b 0a 09 09 09 09 | 09 09 45 4e 44 3b 0a 09 | j;.....|..END;..|
|00004080| 09 09 09 09 45 4e 44 3b | 0a 09 09 09 09 09 6e 6f |....END;|......no|
|00004090| 6e 62 6c 61 6e 6b 73 65 | 65 6e 20 3a 3d 20 54 52 |nblankse|en := TR|
|000040a0| 55 45 3b 0a 09 09 09 09 | 09 57 48 49 4c 45 20 76 |UE;.....|.WHILE v|
|000040b0| 69 72 63 6f 6c 20 3c 20 | 69 20 44 4f 0a 09 09 09 |ircol < |i DO....|
|000040c0| 09 09 09 57 72 69 74 65 | 28 27 20 27 29 3b 0a 09 |...Write|(' ');..|
|000040d0| 09 09 09 09 09 76 69 72 | 63 6f 6c 20 3a 3d 20 76 |.....vir|col := v|
|000040e0| 69 72 63 6f 6c 20 2b 20 | 31 3b 0a 09 09 09 09 09 |ircol + |1;......|
|000040f0| 45 4e 44 3b 0a 09 09 09 | 09 09 57 72 69 74 65 28 |END;....|..Write(|
|00004100| 62 75 66 5b 69 2b 31 5d | 29 3b 0a 09 09 09 09 09 |buf[i+1]|);......|
|00004110| 76 69 72 63 6f 6c 20 3a | 3d 20 69 20 2b 20 31 3b |vircol :|= i + 1;|
|00004120| 0a 09 09 09 09 45 4e 44 | 3b 0a 09 09 09 45 4e 44 |.....END|;....END|
|00004130| 3b 0a 09 09 09 57 72 69 | 74 65 4c 6e 3b 0a 09 09 |;....Wri|teLn;...|
|00004140| 09 6c 65 6e 20 3a 3d 20 | 30 3b 0a 09 09 45 4e 44 |.len := |0;...END|
|00004150| 3b 0a 09 45 4e 44 3b 0a | 45 4e 44 20 46 6c 75 73 |;..END;.|END Flus|
|00004160| 68 4c 69 6e 65 3b 0a 0a | 50 52 4f 43 45 44 55 52 |hLine;..|PROCEDUR|
|00004170| 45 20 57 72 69 74 65 45 | 72 72 6f 72 28 65 72 72 |E WriteE|rror(err|
|00004180| 6f 72 20 3a 20 65 72 72 | 6f 72 74 79 70 65 29 3b |or : err|ortype);|
|00004190| 0a 28 2a 20 72 65 70 6f | 72 74 20 65 72 72 6f 72 |.(* repo|rt error|
|000041a0| 20 74 6f 20 6f 75 74 70 | 75 74 20 2a 29 0a 56 41 | to outp|ut *).VA|
|000041b0| 52 0a 09 69 2c 20 69 78 | 20 3a 20 69 6e 72 61 6e |R..i, ix| : inran|
|000041c0| 67 65 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ge; | |
|000041d0| 20 20 20 28 2a 20 6c 6f | 6f 70 20 69 6e 64 65 78 | (* lo|op index|
|000041e0| 2c 20 6c 69 6d 69 74 20 | 2a 29 0a 42 45 47 49 4e |, limit |*).BEGIN|
|000041f0| 0a 09 46 6c 75 73 68 4c | 69 6e 65 3b 0a 09 57 72 |..FlushL|ine;..Wr|
|00004200| 69 74 65 53 74 72 69 6e | 67 28 27 28 2a 20 21 21 |iteStrin|g('(* !!|
|00004210| 21 20 65 72 72 6f 72 2c | 20 27 29 3b 0a 09 43 41 |! error,| ');..CA|
|00004220| 53 45 20 65 72 72 6f 72 | 20 4f 46 0a 09 6c 6f 6e |SE error| OF..lon|
|00004230| 67 6c 69 6e 65 3a 0a 09 | 09 57 72 69 74 65 53 74 |gline:..|.WriteSt|
|00004240| 72 69 6e 67 28 27 73 68 | 6f 72 74 65 72 20 6c 69 |ring('sh|orter li|
|00004250| 6e 65 27 29 3b 0a 09 7c | 20 6e 6f 65 6e 64 63 6f |ne');..|| noendco|
|00004260| 6d 6d 3a 0a 09 09 57 72 | 69 74 65 53 74 72 69 6e |mm:...Wr|iteStrin|
|00004270| 67 28 27 45 4e 44 20 4f | 46 20 63 6f 6d 6d 65 6e |g('END O|F commen|
|00004280| 74 27 29 3b 0a 09 7c 20 | 6e 6f 74 71 75 6f 74 65 |t');..| |notquote|
|00004290| 3a 0a 09 09 57 72 69 74 | 65 53 74 72 69 6e 67 28 |:...Writ|eString(|
|000042a0| 22 66 69 6e 61 6c 20 27 | 20 6f 6e 20 6c 69 6e 65 |"final '| on line|
|000042b0| 22 29 3b 0a 09 7c 20 6c | 6f 6e 67 77 6f 72 64 3a |");..| l|ongword:|
|000042c0| 0a 09 09 57 72 69 74 65 | 53 74 72 69 6e 67 28 27 |...Write|String('|
|000042d0| 73 68 6f 72 74 65 72 20 | 77 6f 72 64 27 29 3b 0a |shorter |word');.|
|000042e0| 09 7c 20 6e 6f 74 64 6f | 3a 0a 09 09 57 72 69 74 |.| notdo|:...Writ|
|000042f0| 65 53 74 72 69 6e 67 28 | 27 22 44 4f 22 27 29 3b |eString(|'"DO"');|
|00004300| 0a 09 7c 20 6e 6f 74 6f | 66 3a 0a 09 09 57 72 69 |..| noto|f:...Wri|
|00004310| 74 65 53 74 72 69 6e 67 | 28 27 22 4f 46 22 27 29 |teString|('"OF"')|
|00004320| 3b 0a 09 7c 20 6e 6f 74 | 65 6e 64 3a 0a 09 09 57 |;..| not|end:...W|
|00004330| 72 69 74 65 53 74 72 69 | 6e 67 28 27 22 45 4e 44 |riteStri|ng('"END|
|00004340| 22 27 29 3b 0a 09 7c 20 | 6e 6f 74 74 68 65 6e 3a |"');..| |notthen:|
|00004350| 0a 09 09 57 72 69 74 65 | 53 74 72 69 6e 67 28 27 |...Write|String('|
|00004360| 22 54 48 45 4e 22 27 29 | 3b 0a 09 7c 20 6e 6f 74 |"THEN"')|;..| not|
|00004370| 62 65 67 69 6e 3a 0a 09 | 09 57 72 69 74 65 53 74 |begin:..|.WriteSt|
|00004380| 72 69 6e 67 28 27 22 42 | 45 47 49 4e 22 27 29 3b |ring('"B|EGIN"');|
|00004390| 0a 09 7c 20 6e 6f 74 75 | 6e 74 69 6c 3a 0a 09 09 |..| notu|ntil:...|
|000043a0| 57 72 69 74 65 53 74 72 | 69 6e 67 28 27 22 55 4e |WriteStr|ing('"UN|
|000043b0| 54 49 4c 22 27 29 3b 0a | 09 7c 20 6e 6f 74 69 64 |TIL"');.|.| notid|
|000043c0| 65 6e 74 3a 0a 09 09 57 | 72 69 74 65 53 74 72 69 |ent:...W|riteStri|
|000043d0| 6e 67 28 27 22 69 64 65 | 6e 74 69 66 69 65 72 22 |ng('"ide|ntifier"|
|000043e0| 27 29 3b 0a 09 7c 20 6e | 6f 74 73 65 6d 69 63 6f |');..| n|otsemico|
|000043f0| 6c 6f 6e 3a 0a 09 09 57 | 72 69 74 65 53 74 72 69 |lon:...W|riteStri|
|00004400| 6e 67 28 27 22 3b 22 27 | 29 3b 0a 09 7c 20 6e 6f |ng('";"'|);..| no|
|00004410| 74 70 65 72 69 6f 64 3a | 0a 09 09 57 72 69 74 65 |tperiod:|...Write|
|00004420| 53 74 72 69 6e 67 28 27 | 22 2e 22 27 29 3b 0a 09 |String('|"."');..|
|00004430| 7c 20 6e 6f 74 63 6f 6c | 6f 6e 3a 0a 09 09 57 72 || notcol|on:...Wr|
|00004440| 69 74 65 53 74 72 69 6e | 67 28 27 22 3a 22 27 29 |iteStrin|g('":"')|
|00004450| 3b 0a 09 7c 20 6e 6f 74 | 70 61 72 65 6e 3a 0a 09 |;..| not|paren:..|
|00004460| 09 57 72 69 74 65 53 74 | 72 69 6e 67 28 27 22 29 |.WriteSt|ring('")|
|00004470| 22 27 29 3b 0a 09 7c 20 | 6e 6f 65 6f 66 3a 0a 09 |"');..| |noeof:..|
|00004480| 09 57 72 69 74 65 53 74 | 72 69 6e 67 28 27 45 4e |.WriteSt|ring('EN|
|00004490| 44 20 4f 46 20 66 69 6c | 65 27 29 3b 0a 09 45 4e |D OF fil|e');..EN|
|000044a0| 44 3b 0a 09 57 72 69 74 | 65 53 74 72 69 6e 67 28 |D;..Writ|eString(|
|000044b0| 27 20 65 78 70 65 63 74 | 65 64 27 29 3b 0a 09 49 |' expect|ed');..I|
|000044c0| 46 20 65 72 72 6f 72 20 | 3e 3d 20 6c 6f 6e 67 77 |F error |>= longw|
|000044d0| 6f 72 64 20 54 48 45 4e | 0a 09 09 57 72 69 74 65 |ord THEN|...Write|
|000044e0| 53 74 72 69 6e 67 28 27 | 2c 20 4e 4f 54 20 22 27 |String('|, NOT "'|
|000044f0| 29 3b 0a 09 09 57 49 54 | 48 20 69 6e 6c 69 6e 65 |);...WIT|H inline|
|00004500| 20 44 4f 0a 09 09 09 57 | 49 54 48 20 63 75 72 77 | DO....W|ITH curw|
|00004510| 6f 72 64 20 44 4f 0a 09 | 09 09 09 49 46 20 73 69 |ord DO..|...IF si|
|00004520| 7a 65 20 3e 20 6d 61 78 | 72 77 6c 65 6e 20 54 48 |ze > max|rwlen TH|
|00004530| 45 4e 0a 09 09 09 09 09 | 69 78 20 3a 3d 20 6d 61 |EN......|ix := ma|
|00004540| 78 72 77 6c 65 6e 0a 09 | 09 09 09 45 4c 53 45 0a |xrwlen..|...ELSE.|
|00004550| 09 09 09 09 09 69 78 20 | 3a 3d 20 73 69 7a 65 3b |.....ix |:= size;|
|00004560| 0a 09 09 09 09 45 4e 44 | 3b 0a 09 09 09 09 46 4f |.....END|;.....FO|
|00004570| 52 20 69 20 3a 3d 20 31 | 20 54 4f 20 69 78 20 44 |R i := 1| TO ix D|
|00004580| 4f 0a 09 09 09 09 09 57 | 72 69 74 65 28 62 75 66 |O......W|rite(buf|
|00004590| 5b 62 61 73 65 20 2b 20 | 69 5d 29 3b 0a 09 09 09 |[base + |i]);....|
|000045a0| 09 45 4e 44 3b 0a 09 09 | 09 45 4e 44 3b 0a 09 09 |.END;...|.END;...|
|000045b0| 45 4e 44 3b 0a 09 09 57 | 72 69 74 65 28 27 22 27 |END;...W|rite('"'|
|000045c0| 29 3b 0a 09 45 4e 44 3b | 0a 09 49 46 20 65 72 72 |);..END;|..IF err|
|000045d0| 6f 72 20 3d 20 6e 6f 65 | 6f 66 20 54 48 45 4e 0a |or = noe|of THEN.|
|000045e0| 09 09 57 72 69 74 65 53 | 74 72 69 6e 67 28 27 2c |..WriteS|tring(',|
|000045f0| 20 46 4f 52 4d 41 54 54 | 49 4e 47 20 53 54 4f 50 | FORMATT|ING STOP|
|00004600| 53 27 29 3b 0a 09 45 4e | 44 3b 0a 09 57 72 69 74 |S');..EN|D;..Writ|
|00004610| 65 53 74 72 69 6e 67 28 | 27 20 21 21 21 20 2a 29 |eString(|' !!! *)|
|00004620| 27 29 3b 0a 09 57 72 69 | 74 65 4c 6e 3b 0a 45 4e |');..Wri|teLn;.EN|
|00004630| 44 20 57 72 69 74 65 45 | 72 72 6f 72 3b 0a 0a 50 |D WriteE|rror;..P|
|00004640| 52 4f 43 45 44 55 52 45 | 20 52 65 61 64 4c 69 6e |ROCEDURE| ReadLin|
|00004650| 65 3b 0a 28 2a 20 52 65 | 61 64 20 6c 69 6e 65 20 |e;.(* Re|ad line |
|00004660| 69 6e 74 6f 20 69 6e 70 | 75 74 20 62 75 66 66 65 |into inp|ut buffe|
|00004670| 72 20 2a 29 0a 56 41 52 | 0a 09 63 20 3a 20 43 48 |r *).VAR|..c : CH|
|00004680| 41 52 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |AR; | |
|00004690| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 69 6e 70 | | (* inp|
|000046a0| 75 74 20 63 68 61 72 61 | 63 74 65 72 20 2a 29 0a |ut chara|cter *).|
|000046b0| 09 6e 6f 6e 62 6c 61 6e | 6b 20 3a 20 42 4f 4f 4c |.nonblan|k : BOOL|
|000046c0| 45 41 4e 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |EAN; | |
|000046d0| 20 28 2a 20 69 73 20 63 | 68 61 72 20 6f 74 68 65 | (* is c|har othe|
|000046e0| 72 20 74 68 61 6e 20 73 | 70 61 63 65 3f 20 2a 29 |r than s|pace? *)|
|000046f0| 0a 09 69 20 3a 20 49 4e | 54 45 47 45 52 3b 0a 42 |..i : IN|TEGER;.B|
|00004700| 45 47 49 4e 0a 09 57 49 | 54 48 20 69 6e 6c 69 6e |EGIN..WI|TH inlin|
|00004710| 65 20 44 4f 0a 09 09 6c | 65 6e 20 3a 3d 20 30 3b |e DO...l|en := 0;|
|00004720| 0a 09 09 4c 4f 4f 50 0a | 09 09 09 52 65 61 64 28 |...LOOP.|...Read(|
|00004730| 63 29 3b 0a 09 09 09 49 | 46 20 44 6f 6e 65 20 54 |c);....I|F Done T|
|00004740| 48 45 4e 0a 09 09 09 09 | 65 6e 64 6f 66 66 69 6c |HEN.....|endoffil|
|00004750| 65 20 3a 3d 20 44 6f 6e | 65 3b 0a 09 09 09 09 45 |e := Don|e;.....E|
|00004760| 58 49 54 3b 0a 09 09 09 | 45 4e 44 3b 0a 09 09 09 |XIT;....|END;....|
|00004770| 49 46 20 63 20 3d 20 4e | 45 57 4c 49 4e 45 20 54 |IF c = N|EWLINE T|
|00004780| 48 45 4e 0a 09 09 09 09 | 45 58 49 54 3b 0a 09 09 |HEN.....|EXIT;...|
|00004790| 09 45 4e 44 3b 0a 09 09 | 09 49 46 20 63 20 3c 20 |.END;...|.IF c < |
|000047a0| 27 20 27 20 54 48 45 4e | 20 28 2a 20 63 6f 6e 76 |' ' THEN| (* conv|
|000047b0| 65 72 74 20 49 53 4f 20 | 63 6f 6e 74 72 6f 6c 20 |ert ISO |control |
|000047c0| 63 68 61 72 73 20 28 65 | 78 63 65 70 74 20 6c 65 |chars (e|xcept le|
|000047d0| 61 64 69 6e 67 20 66 6f | 72 6d 20 66 65 65 64 29 |ading fo|rm feed)|
|000047e0| 20 74 6f 20 73 70 61 63 | 65 73 20 2a 29 0a 09 09 | to spac|es *)...|
|000047f0| 09 09 49 46 20 63 20 3d | 20 54 41 42 20 54 48 45 |..IF c =| TAB THE|
|00004800| 4e 0a 09 09 09 09 09 28 | 2a 20 49 53 4f 20 54 41 |N......(|* ISO TA|
|00004810| 42 20 63 68 61 72 20 2a | 29 0a 09 09 09 09 09 63 |B char *|)......c|
|00004820| 20 3a 3d 20 27 20 27 3b | 0a 09 09 09 09 09 28 2a | := ' ';|......(*|
|00004830| 20 61 64 64 20 6c 61 73 | 74 20 73 70 61 63 65 20 | add las|t space |
|00004840| 61 74 20 65 6e 64 20 2a | 29 0a 09 09 09 09 09 57 |at end *|)......W|
|00004850| 48 49 4c 45 20 6c 65 6e | 20 4d 4f 44 20 38 20 3c |HILE len| MOD 8 <|
|00004860| 3e 20 37 20 44 4f 0a 09 | 09 09 09 09 09 6c 65 6e |> 7 DO..|.....len|
|00004870| 20 3a 3d 20 6c 65 6e 20 | 2b 20 31 3b 0a 09 09 09 | := len |+ 1;....|
|00004880| 09 09 09 49 46 20 6c 65 | 6e 20 3c 20 6d 61 78 69 |...IF le|n < maxi|
|00004890| 6e 6c 65 6e 20 54 48 45 | 4e 0a 09 09 09 09 09 09 |nlen THE|N.......|
|000048a0| 09 62 75 66 5b 6c 65 6e | 5d 20 3a 3d 20 63 3b 0a |.buf[len|] := c;.|
|000048b0| 09 09 09 09 09 09 45 4e | 44 3b 0a 09 09 09 09 09 |......EN|D;......|
|000048c0| 45 4e 44 3b 0a 09 09 09 | 09 09 28 2a 20 45 4e 44 |END;....|..(* END|
|000048d0| 20 74 61 62 20 68 61 6e | 64 6c 69 6e 67 20 2a 29 | tab han|dling *)|
|000048e0| 0a 09 09 09 09 45 4c 53 | 49 46 20 28 63 20 3c 3e |.....ELS|IF (c <>|
|000048f0| 20 46 46 29 20 4f 52 20 | 28 6c 65 6e 20 3e 20 30 | FF) OR |(len > 0|
|00004900| 29 20 54 48 45 4e 0a 09 | 09 09 09 09 63 20 3a 3d |) THEN..|....c :=|
|00004910| 20 27 20 27 3b 0a 09 09 | 09 09 45 4e 44 3b 0a 09 | ' ';...|..END;..|
|00004920| 09 09 45 4e 44 3b 20 20 | 20 20 20 20 20 20 20 20 |..END; | |
|00004930| 20 20 28 2a 20 45 4e 44 | 20 49 53 4f 20 63 6f 6e | (* END| ISO con|
|00004940| 74 72 6f 6c 20 63 68 61 | 72 20 63 6f 6e 76 65 72 |trol cha|r conver|
|00004950| 73 69 6f 6e 20 2a 29 0a | 09 09 09 6c 65 6e 20 3a |sion *).|...len :|
|00004960| 3d 20 6c 65 6e 20 2b 20 | 31 3b 0a 09 09 09 49 46 |= len + |1;....IF|
|00004970| 20 6c 65 6e 20 3c 20 6d | 61 78 69 6e 6c 65 6e 20 | len < m|axinlen |
|00004980| 54 48 45 4e 0a 09 09 09 | 09 62 75 66 5b 6c 65 6e |THEN....|.buf[len|
|00004990| 5d 20 3a 3d 20 63 3b 0a | 09 09 09 45 4e 44 3b 0a |] := c;.|...END;.|
|000049a0| 09 09 45 4e 44 3b 0a 09 | 09 49 46 20 4e 4f 54 20 |..END;..|.IF NOT |
|000049b0| 65 6e 64 6f 66 66 69 6c | 65 20 54 48 45 4e 0a 09 |endoffil|e THEN..|
|000049c0| 09 09 49 46 20 6c 65 6e | 20 3e 3d 20 6d 61 78 69 |..IF len| >= maxi|
|000049d0| 6e 6c 65 6e 20 54 48 45 | 4e 0a 09 09 09 09 09 28 |nlen THE|N......(|
|000049e0| 2a 20 69 6e 70 75 74 20 | 6c 69 6e 65 20 74 6f 6f |* input |line too|
|000049f0| 20 6c 6f 6e 67 20 2a 29 | 0a 09 09 09 09 57 72 69 | long *)|.....Wri|
|00004a00| 74 65 45 72 72 6f 72 28 | 6c 6f 6e 67 6c 69 6e 65 |teError(|longline|
|00004a10| 29 3b 0a 09 09 09 09 6c | 65 6e 20 3a 3d 20 6d 61 |);.....l|en := ma|
|00004a20| 78 69 6e 6c 65 6e 20 2d | 20 31 3b 0a 09 09 09 45 |xinlen -| 1;....E|
|00004a30| 4e 44 3b 0a 09 09 09 57 | 48 49 4c 45 20 28 6c 65 |ND;....W|HILE (le|
|00004a40| 6e 20 3e 20 30 29 20 41 | 4e 44 20 28 62 75 66 5b |n > 0) A|ND (buf[|
|00004a50| 6c 65 6e 5d 20 3d 20 27 | 20 27 29 20 44 4f 0a 09 |len] = '| ') DO..|
|00004a60| 09 09 09 6c 65 6e 20 3a | 3d 20 6c 65 6e 20 2d 20 |...len :|= len - |
|00004a70| 31 3b 0a 09 09 09 45 4e | 44 3b 0a 09 09 45 4e 44 |1;....EN|D;...END|
|00004a80| 3b 0a 09 09 6c 65 6e 20 | 3a 3d 20 6c 65 6e 20 2b |;...len |:= len +|
|00004a90| 20 31 3b 20 20 20 20 20 | 20 20 20 20 28 2a 20 61 | 1; | (* a|
|00004aa0| 64 64 20 65 78 61 63 74 | 6c 79 20 4f 4e 45 20 74 |dd exact|ly ONE t|
|00004ab0| 72 61 69 6c 69 6e 67 20 | 62 6c 61 6e 6b 20 2a 29 |railing |blank *)|
|00004ac0| 0a 09 09 62 75 66 5b 6c | 65 6e 5d 20 3a 3d 20 27 |...buf[l|en] := '|
|00004ad0| 20 27 3b 0a 09 09 69 6e | 64 65 78 20 3a 3d 20 30 | ';...in|dex := 0|
|00004ae0| 3b 0a 09 45 4e 44 3b 0a | 45 4e 44 20 52 65 61 64 |;..END;.|END Read|
|00004af0| 4c 69 6e 65 3b 0a 0a 50 | 52 4f 43 45 44 55 52 45 |Line;..P|ROCEDURE|
|00004b00| 20 47 65 74 43 68 61 72 | 3b 0a 28 2a 20 67 65 74 | GetChar|;.(* get|
|00004b10| 20 6e 65 78 74 20 63 68 | 61 72 20 66 72 6f 6d 20 | next ch|ar from |
|00004b20| 69 6e 70 75 74 20 62 75 | 66 66 65 72 20 2a 29 0a |input bu|ffer *).|
|00004b30| 42 45 47 49 4e 0a 09 57 | 49 54 48 20 69 6e 6c 69 |BEGIN..W|ITH inli|
|00004b40| 6e 65 20 44 4f 0a 09 09 | 69 6e 64 65 78 20 3a 3d |ne DO...|index :=|
|00004b50| 20 69 6e 64 65 78 20 2b | 20 31 3b 0a 09 09 63 68 | index +| 1;...ch|
|00004b60| 20 3a 3d 20 62 75 66 5b | 69 6e 64 65 78 5d 3b 0a | := buf[|index];.|
|00004b70| 09 45 4e 44 3b 0a 45 4e | 44 20 47 65 74 43 68 61 |.END;.EN|D GetCha|
|00004b80| 72 3b 0a 0a 50 52 4f 43 | 45 44 55 52 45 20 4e 65 |r;..PROC|EDURE Ne|
|00004b90| 78 74 43 68 61 72 28 29 | 20 3a 20 43 48 41 52 3b |xtChar()| : CHAR;|
|00004ba0| 0a 28 2a 20 6c 6f 6f 6b | 20 61 74 20 6e 65 78 74 |.(* look| at next|
|00004bb0| 20 63 68 61 72 20 69 6e | 20 69 6e 70 75 74 20 62 | char in| input b|
|00004bc0| 75 66 66 65 72 20 2a 29 | 0a 42 45 47 49 4e 0a 09 |uffer *)|.BEGIN..|
|00004bd0| 52 45 54 55 52 4e 20 69 | 6e 6c 69 6e 65 2e 62 75 |RETURN i|nline.bu|
|00004be0| 66 5b 69 6e 6c 69 6e 65 | 2e 69 6e 64 65 78 20 2b |f[inline|.index +|
|00004bf0| 20 31 5d 3b 0a 45 4e 44 | 20 4e 65 78 74 43 68 61 | 1];.END| NextCha|
|00004c00| 72 3b 0a 0a 50 52 4f 43 | 45 44 55 52 45 20 53 74 |r;..PROC|EDURE St|
|00004c10| 61 72 74 57 6f 72 64 28 | 73 74 61 72 74 63 6c 61 |artWord(|startcla|
|00004c20| 73 73 20 3a 20 66 69 72 | 73 74 63 6c 61 73 73 29 |ss : fir|stclass)|
|00004c30| 3b 0a 28 2a 20 6e 6f 74 | 65 20 62 65 67 69 6e 6e |;.(* not|e beginn|
|00004c40| 69 6e 67 20 6f 66 20 77 | 6f 72 64 2c 20 61 6e 64 |ing of w|ord, and|
|00004c50| 20 63 6f 75 6e 74 20 70 | 72 65 63 65 64 69 6e 67 | count p|receding|
|00004c60| 20 6c 69 6e 65 73 20 61 | 6e 64 20 73 70 61 63 65 | lines a|nd space|
|00004c70| 73 20 2a 29 0a 56 41 52 | 0a 09 66 69 72 73 74 20 |s *).VAR|..first |
|00004c80| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 20 20 20 20 20 20 |: BOOLEA|N; |
|00004c90| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 69 73 20 | | (* is |
|00004ca0| 77 6f 72 64 20 74 68 65 | 20 66 69 72 73 74 20 6f |word the| first o|
|00004cb0| 6e 20 69 6e 70 75 74 20 | 6c 69 6e 65 3f 20 2a 29 |n input |line? *)|
|00004cc0| 0a 42 45 47 49 4e 0a 09 | 66 69 72 73 74 20 3a 3d |.BEGIN..|first :=|
|00004cd0| 20 46 41 4c 53 45 3b 0a | 09 57 49 54 48 20 69 6e | FALSE;.|.WITH in|
|00004ce0| 6c 69 6e 65 20 44 4f 0a | 09 09 57 49 54 48 20 63 |line DO.|..WITH c|
|00004cf0| 75 72 77 6f 72 64 20 44 | 4f 0a 09 09 09 77 68 65 |urword D|O....whe|
|00004d00| 6e 66 69 72 73 74 20 3a | 3d 20 73 74 61 72 74 63 |nfirst :|= startc|
|00004d10| 6c 61 73 73 3b 0a 09 09 | 09 62 6c 61 6e 6b 6c 6e |lass;...|.blankln|
|00004d20| 63 6f 75 6e 74 20 3a 3d | 20 30 3b 0a 09 09 09 57 |count :=| 0;....W|
|00004d30| 48 49 4c 45 20 28 69 6e | 64 65 78 20 3e 3d 20 6c |HILE (in|dex >= l|
|00004d40| 65 6e 29 20 41 4e 44 20 | 4e 4f 54 20 65 6e 64 6f |en) AND |NOT endo|
|00004d50| 66 66 69 6c 65 20 44 4f | 0a 09 09 09 09 49 46 20 |ffile DO|.....IF |
|00004d60| 6c 65 6e 20 3d 20 31 20 | 54 48 45 4e 0a 09 09 09 |len = 1 |THEN....|
|00004d70| 09 09 62 6c 61 6e 6b 6c | 6e 63 6f 75 6e 74 20 3a |..blankl|ncount :|
|00004d80| 3d 20 62 6c 61 6e 6b 6c | 6e 63 6f 75 6e 74 20 2b |= blankl|ncount +|
|00004d90| 20 31 3b 0a 09 09 09 09 | 45 4e 44 3b 0a 09 09 09 | 1;.....|END;....|
|00004da0| 09 49 46 20 73 74 61 72 | 74 63 6c 61 73 73 20 3d |.IF star|tclass =|
|00004db0| 20 63 6f 6e 74 75 6e 63 | 6f 6d 6d 20 54 48 45 4e | contunc|omm THEN|
|00004dc0| 0a 09 09 09 09 09 46 6c | 75 73 68 4c 69 6e 65 0a |......Fl|ushLine.|
|00004dd0| 09 09 09 09 45 4c 53 45 | 0a 09 09 09 09 09 66 69 |....ELSE|......fi|
|00004de0| 72 73 74 20 3a 3d 20 54 | 52 55 45 3b 0a 09 09 09 |rst := T|RUE;....|
|00004df0| 09 45 4e 44 3b 0a 09 09 | 09 09 52 65 61 64 4c 69 |.END;...|..ReadLi|
|00004e00| 6e 65 3b 0a 09 09 09 09 | 09 28 2a 20 77 69 74 68 |ne;.....|.(* with|
|00004e10| 20 65 78 61 63 74 6c 79 | 20 4f 4e 45 20 74 72 61 | exactly| ONE tra|
|00004e20| 69 6c 69 6e 67 20 62 6c | 61 6e 6b 20 2a 29 0a 09 |iling bl|ank *)..|
|00004e30| 09 09 09 47 65 74 43 68 | 61 72 3b 0a 09 09 09 09 |...GetCh|ar;.....|
|00004e40| 49 46 20 63 68 20 3d 20 | 46 46 20 54 48 45 4e 0a |IF ch = |FF THEN.|
|00004e50| 09 09 09 09 09 46 6c 75 | 73 68 4c 69 6e 65 3b 0a |.....Flu|shLine;.|
|00004e60| 09 09 09 09 09 57 72 69 | 74 65 28 46 46 29 3b 0a |.....Wri|te(FF);.|
|00004e70| 09 09 09 09 09 62 6c 61 | 6e 6b 6c 6e 63 6f 75 6e |.....bla|nklncoun|
|00004e80| 74 20 3a 3d 20 30 3b 0a | 09 09 09 09 09 47 65 74 |t := 0;.|.....Get|
|00004e90| 43 68 61 72 3b 0a 09 09 | 09 09 45 4e 44 3b 0a 09 |Char;...|..END;..|
|00004ea0| 09 09 45 4e 44 3b 0a 09 | 09 09 73 70 61 63 65 73 |..END;..|..spaces|
|00004eb0| 20 3a 3d 20 30 3b 20 20 | 20 20 28 2a 20 63 6f 75 | := 0; | (* cou|
|00004ec0| 6e 74 20 6c 65 61 64 69 | 6e 67 20 73 70 61 63 65 |nt leadi|ng space|
|00004ed0| 73 20 2a 29 0a 09 09 09 | 49 46 20 4e 4f 54 20 65 |s *)....|IF NOT e|
|00004ee0| 6e 64 6f 66 66 69 6c 65 | 20 54 48 45 4e 0a 09 09 |ndoffile| THEN...|
|00004ef0| 09 09 57 48 49 4c 45 20 | 63 68 20 3d 20 27 20 27 |..WHILE |ch = ' '|
|00004f00| 20 44 4f 0a 09 09 09 09 | 09 73 70 61 63 65 73 20 | DO.....|.spaces |
|00004f10| 3a 3d 20 73 70 61 63 65 | 73 20 2b 20 31 3b 0a 09 |:= space|s + 1;..|
|00004f20| 09 09 09 09 47 65 74 43 | 68 61 72 3b 0a 09 09 09 |....GetC|har;....|
|00004f30| 09 45 4e 44 3b 0a 09 09 | 09 45 4e 44 3b 0a 09 09 |.END;...|.END;...|
|00004f40| 09 49 46 20 66 69 72 73 | 74 20 54 48 45 4e 0a 09 |.IF firs|t THEN..|
|00004f50| 09 09 09 73 70 61 63 65 | 73 20 3a 3d 20 31 3b 0a |...space|s := 1;.|
|00004f60| 09 09 09 45 4e 44 3b 0a | 09 09 09 62 61 73 65 20 |...END;.|...base |
|00004f70| 3a 3d 20 69 6e 64 65 78 | 20 2d 20 31 3b 0a 09 09 |:= index| - 1;...|
|00004f80| 45 4e 44 3b 0a 09 45 4e | 44 3b 0a 45 4e 44 20 53 |END;..EN|D;.END S|
|00004f90| 74 61 72 74 57 6f 72 64 | 3b 0a 0a 50 52 4f 43 45 |tartWord|;..PROCE|
|00004fa0| 44 55 52 45 20 46 69 6e | 69 73 68 57 6f 72 64 3b |DURE Fin|ishWord;|
|00004fb0| 0a 28 2a 20 6e 6f 74 65 | 20 65 6e 64 20 6f 66 20 |.(* note| end of |
|00004fc0| 77 6f 72 64 20 2a 29 0a | 42 45 47 49 4e 0a 09 57 |word *).|BEGIN..W|
|00004fd0| 49 54 48 20 69 6e 6c 69 | 6e 65 20 44 4f 0a 09 09 |ITH inli|ne DO...|
|00004fe0| 57 49 54 48 20 63 75 72 | 77 6f 72 64 20 44 4f 0a |WITH cur|word DO.|
|00004ff0| 09 09 09 70 75 6e 63 66 | 6f 6c 6c 6f 77 73 20 3a |...puncf|ollows :|
|00005000| 3d 20 28 73 79 6d 62 6f | 6c 20 49 4e 20 64 61 74 |= (symbo|l IN dat|
|00005010| 61 77 6f 72 64 73 29 20 | 41 4e 44 20 28 63 68 20 |awords) |AND (ch |
|00005020| 3c 3e 20 27 20 27 29 3b | 0a 09 09 09 73 69 7a 65 |<> ' ');|....size|
|00005030| 20 3a 3d 20 69 6e 64 65 | 78 20 2d 20 62 61 73 65 | := inde|x - base|
|00005040| 20 2d 20 31 3b 0a 09 09 | 45 4e 44 3b 0a 09 45 4e | - 1;...|END;..EN|
|00005050| 44 3b 0a 45 4e 44 20 46 | 69 6e 69 73 68 57 6f 72 |D;.END F|inishWor|
|00005060| 64 3b 0a 0a 50 52 4f 43 | 45 44 55 52 45 20 43 6f |d;..PROC|EDURE Co|
|00005070| 70 79 57 6f 72 64 28 6e | 65 77 6c 69 6e 65 20 3a |pyWord(n|ewline :|
|00005080| 20 42 4f 4f 4c 45 41 4e | 3b 20 70 77 6f 72 64 20 | BOOLEAN|; pword |
|00005090| 3a 20 77 6f 72 64 74 79 | 70 65 29 3b 0a 28 2a 20 |: wordty|pe);.(* |
|000050a0| 63 6f 70 79 20 77 6f 72 | 64 20 66 72 6f 6d 20 69 |copy wor|d from i|
|000050b0| 6e 70 75 74 20 62 75 66 | 66 65 72 20 69 6e 74 6f |nput buf|fer into|
|000050c0| 20 6f 75 74 70 75 74 20 | 62 75 66 66 65 72 20 2a | output |buffer *|
|000050d0| 29 0a 56 41 52 0a 09 69 | 20 3a 20 49 4e 54 45 47 |).VAR..i| : INTEG|
|000050e0| 45 52 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ER; | |
|000050f0| 20 20 20 20 20 20 20 28 | 2a 20 6f 75 74 6c 69 6e | (|* outlin|
|00005100| 65 2e 6c 65 6e 20 65 78 | 63 65 73 73 2c 20 6c 6f |e.len ex|cess, lo|
|00005110| 6f 70 20 69 6e 64 65 78 | 20 2a 29 0a 42 45 47 49 |op index| *).BEGI|
|00005120| 4e 0a 09 57 49 54 48 20 | 70 77 6f 72 64 20 44 4f |N..WITH |pword DO|
|00005130| 0a 09 09 57 49 54 48 20 | 6f 75 74 6c 69 6e 65 20 |...WITH |outline |
|00005140| 44 4f 0a 09 09 09 69 20 | 3a 3d 20 6d 61 78 6f 75 |DO....i |:= maxou|
|00005150| 74 6c 65 6e 20 2d 20 6c | 65 6e 20 2d 20 73 70 61 |tlen - l|en - spa|
|00005160| 63 65 73 20 2d 20 73 69 | 7a 65 3b 0a 09 09 09 49 |ces - si|ze;....I|
|00005170| 46 20 6e 65 77 6c 69 6e | 65 20 4f 52 20 28 69 20 |F newlin|e OR (i |
|00005180| 3c 20 30 29 20 4f 52 20 | 28 28 69 20 3d 20 30 29 |< 0) OR |((i = 0)|
|00005190| 20 41 4e 44 20 70 75 6e | 63 66 6f 6c 6c 6f 77 73 | AND pun|cfollows|
|000051a0| 29 20 54 48 45 4e 0a 09 | 09 09 09 46 6c 75 73 68 |) THEN..|...Flush|
|000051b0| 4c 69 6e 65 3b 0a 09 09 | 09 45 4e 44 3b 0a 09 09 |Line;...|.END;...|
|000051c0| 09 49 46 20 6c 65 6e 20 | 3d 20 30 20 54 48 45 4e |.IF len |= 0 THEN|
|000051d0| 20 28 2a 20 66 69 72 73 | 74 20 77 6f 72 64 20 6f | (* firs|t word o|
|000051e0| 6e 20 6f 75 74 70 75 74 | 20 6c 69 6e 65 20 2a 29 |n output| line *)|
|000051f0| 0a 09 09 09 09 62 6c 61 | 6e 6b 6c 6e 73 20 3a 3d |.....bla|nklns :=|
|00005200| 20 62 6c 61 6e 6b 6c 6e | 63 6f 75 6e 74 3b 0a 09 | blankln|count;..|
|00005210| 09 09 09 43 41 53 45 20 | 77 68 65 6e 66 69 72 73 |...CASE |whenfirs|
|00005220| 74 20 4f 46 0a 09 09 09 | 09 09 28 2a 20 75 70 64 |t OF....|..(* upd|
|00005230| 61 74 65 20 4c 4f 43 41 | 4c 20 77 6f 72 64 2e 73 |ate LOCA|L word.s|
|00005240| 70 61 63 65 73 20 2a 29 | 0a 09 09 09 09 6e 65 77 |paces *)|.....new|
|00005250| 63 6c 61 75 73 65 3a 0a | 09 09 09 09 09 73 70 61 |clause:.|.....spa|
|00005260| 63 65 73 20 3a 3d 20 6d | 61 72 67 69 6e 3b 0a 09 |ces := m|argin;..|
|00005270| 09 09 09 7c 20 63 6f 6e | 74 69 6e 75 65 3a 0a 09 |...| con|tinue:..|
|00005280| 09 09 09 09 73 70 61 63 | 65 73 20 3a 3d 20 6d 61 |....spac|es := ma|
|00005290| 72 67 69 6e 3b 0a 09 09 | 09 09 7c 20 61 6c 63 6f |rgin;...|..| alco|
|000052a0| 6d 6d 3a 0a 09 09 09 09 | 09 73 70 61 63 65 73 20 |mm:.....|.spaces |
|000052b0| 3a 3d 20 61 6c 63 6f 6d | 6d 62 61 73 65 3b 0a 09 |:= alcom|mbase;..|
|000052c0| 09 09 09 7c 20 63 6f 6e | 74 61 6c 63 6f 6d 6d 3a |...| con|talcomm:|
|000052d0| 0a 09 09 09 09 09 73 70 | 61 63 65 73 20 3a 3d 20 |......sp|aces := |
|000052e0| 61 6c 63 6f 6d 6d 62 61 | 73 65 20 2b 20 63 6f 6d |alcommba|se + com|
|000052f0| 6d 69 6e 64 65 6e 74 3b | 0a 09 09 09 09 7c 20 75 |mindent;|.....| u|
|00005300| 6e 63 6f 6d 6d 3a 0a 09 | 09 09 09 09 73 70 61 63 |ncomm:..|....spac|
|00005310| 65 73 20 3a 3d 20 62 61 | 73 65 3b 0a 09 09 09 09 |es := ba|se;.....|
|00005320| 7c 20 63 6f 6e 74 75 6e | 63 6f 6d 6d 3a 0a 09 09 || contun|comm:...|
|00005330| 09 09 09 28 2a 20 73 70 | 61 63 65 73 20 3a 3d 20 |...(* sp|aces := |
|00005340| 73 70 61 63 65 73 20 2a | 29 3b 0a 09 09 09 09 45 |spaces *|);.....E|
|00005350| 4e 44 3b 0a 09 09 09 09 | 49 46 20 73 70 61 63 65 |ND;.....|IF space|
|00005360| 73 20 2b 20 73 69 7a 65 | 20 3e 20 6d 61 78 6f 75 |s + size| > maxou|
|00005370| 74 6c 65 6e 20 54 48 45 | 4e 0a 09 09 09 09 09 73 |tlen THE|N......s|
|00005380| 70 61 63 65 73 20 3a 3d | 20 6d 61 78 6f 75 74 6c |paces :=| maxoutl|
|00005390| 65 6e 20 2d 20 73 69 7a | 65 3b 0a 09 09 09 09 09 |en - siz|e;......|
|000053a0| 28 2a 20 72 65 64 75 63 | 65 20 73 70 61 63 65 73 |(* reduc|e spaces|
|000053b0| 20 2a 29 0a 09 09 09 09 | 09 49 46 20 73 70 61 63 | *).....|.IF spac|
|000053c0| 65 73 20 3c 20 30 20 54 | 48 45 4e 0a 09 09 09 09 |es < 0 T|HEN.....|
|000053d0| 09 09 57 72 69 74 65 45 | 72 72 6f 72 28 6c 6f 6e |..WriteE|rror(lon|
|000053e0| 67 77 6f 72 64 29 3b 0a | 09 09 09 09 09 09 73 69 |gword);.|......si|
|000053f0| 7a 65 20 3a 3d 20 6d 61 | 78 6f 75 74 6c 65 6e 3b |ze := ma|xoutlen;|
|00005400| 0a 09 09 09 09 09 09 73 | 70 61 63 65 73 20 3a 3d |.......s|paces :=|
|00005410| 20 30 3b 0a 09 09 09 09 | 09 45 4e 44 3b 0a 09 09 | 0;.....|.END;...|
|00005420| 09 09 45 4e 44 3b 0a 09 | 09 09 45 4e 44 3b 0a 09 |..END;..|..END;..|
|00005430| 09 09 46 4f 52 20 69 20 | 3a 3d 20 31 20 54 4f 20 |..FOR i |:= 1 TO |
|00005440| 73 70 61 63 65 73 20 44 | 4f 0a 09 09 09 09 09 28 |spaces D|O......(|
|00005450| 2a 20 70 75 74 20 6f 75 | 74 20 73 70 61 63 65 73 |* put ou|t spaces|
|00005460| 20 2a 29 0a 09 09 09 09 | 6c 65 6e 20 3a 3d 20 6c | *).....|len := l|
|00005470| 65 6e 20 2b 20 31 3b 0a | 09 09 09 09 62 75 66 5b |en + 1;.|....buf[|
|00005480| 6c 65 6e 5d 20 3a 3d 20 | 27 20 27 3b 0a 09 09 09 |len] := |' ';....|
|00005490| 45 4e 44 3b 0a 09 09 09 | 46 4f 52 20 69 20 3a 3d |END;....|FOR i :=|
|000054a0| 20 31 20 54 4f 20 73 69 | 7a 65 20 44 4f 0a 09 09 | 1 TO si|ze DO...|
|000054b0| 09 09 09 28 2a 20 63 6f | 70 79 20 61 63 74 75 61 |...(* co|py actua|
|000054c0| 6c 20 77 6f 72 64 20 2a | 29 0a 09 09 09 09 6c 65 |l word *|).....le|
|000054d0| 6e 20 3a 3d 20 6c 65 6e | 20 2b 20 31 3b 0a 09 09 |n := len| + 1;...|
|000054e0| 09 09 62 75 66 5b 6c 65 | 6e 5d 20 3a 3d 20 69 6e |..buf[le|n] := in|
|000054f0| 6c 69 6e 65 2e 62 75 66 | 5b 62 61 73 65 20 2b 20 |line.buf|[base + |
|00005500| 69 5d 3b 0a 09 09 09 45 | 4e 44 3b 0a 09 09 45 4e |i];....E|ND;...EN|
|00005510| 44 3b 0a 09 45 4e 44 3b | 0a 45 4e 44 20 43 6f 70 |D;..END;|.END Cop|
|00005520| 79 57 6f 72 64 3b 0a 0a | 50 52 4f 43 45 44 55 52 |yWord;..|PROCEDUR|
|00005530| 45 20 44 6f 43 6f 6d 6d | 65 6e 74 3b 20 20 20 20 |E DoComm|ent; |
|00005540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005550| 28 2a 20 63 6f 70 79 20 | 61 6c 69 67 6e 65 64 20 |(* copy |aligned |
|00005560| 6f 72 20 75 6e 61 6c 69 | 67 6e 65 64 20 63 6f 6d |or unali|gned com|
|00005570| 6d 65 6e 74 20 2a 29 0a | 0a 50 52 4f 43 45 44 55 |ment *).|.PROCEDU|
|00005580| 52 45 20 43 6f 70 79 43 | 6f 6d 6d 65 6e 74 28 63 |RE CopyC|omment(c|
|00005590| 6f 6d 6d 63 6c 61 73 73 | 20 3a 20 66 69 72 73 74 |ommclass| : first|
|000055a0| 63 6c 61 73 73 3b 20 63 | 6f 6d 6d 62 61 73 65 20 |class; c|ommbase |
|000055b0| 3a 20 69 6e 72 61 6e 67 | 65 29 3b 0a 28 2a 20 63 |: inrang|e);.(* c|
|000055c0| 6f 70 79 20 77 6f 72 64 | 73 20 6f 66 20 63 6f 6d |opy word|s of com|
|000055d0| 6d 65 6e 74 20 2a 29 0a | 56 41 52 0a 09 65 6e 64 |ment *).|VAR..end|
|000055e0| 63 6f 6d 6d 65 6e 74 20 | 3a 20 42 4f 4f 4c 45 41 |comment |: BOOLEA|
|000055f0| 4e 3b 20 20 20 20 20 20 | 20 20 20 20 20 28 2a 20 |N; | (* |
|00005600| 65 6e 64 20 6f 66 20 63 | 6f 6d 6d 65 6e 74 3f 20 |end of c|omment? |
|00005610| 2a 29 0a 42 45 47 49 4e | 0a 09 57 49 54 48 20 63 |*).BEGIN|..WITH c|
|00005620| 75 72 77 6f 72 64 20 44 | 4f 20 20 20 20 20 20 20 |urword D|O |
|00005630| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 63 6f 70 | | (* cop|
|00005640| 79 20 63 6f 6d 6d 65 6e | 74 20 62 65 67 69 6e 20 |y commen|t begin |
|00005650| 73 79 6d 62 6f 6c 20 2a | 29 0a 09 09 77 68 65 6e |symbol *|)...when|
|00005660| 66 69 72 73 74 20 3a 3d | 20 63 6f 6d 6d 63 6c 61 |first :=| commcla|
|00005670| 73 73 3b 0a 09 09 73 70 | 61 63 65 73 20 3a 3d 20 |ss;...sp|aces := |
|00005680| 63 6f 6d 6d 62 61 73 65 | 20 2d 20 6f 75 74 6c 69 |commbase| - outli|
|00005690| 6e 65 2e 6c 65 6e 3b 0a | 09 09 43 6f 70 79 57 6f |ne.len;.|..CopyWo|
|000056a0| 72 64 28 28 73 70 61 63 | 65 73 20 3c 20 30 29 20 |rd((spac|es < 0) |
|000056b0| 4f 52 20 28 62 6c 61 6e | 6b 6c 6e 63 6f 75 6e 74 |OR (blan|klncount|
|000056c0| 20 3e 20 30 29 2c 20 63 | 75 72 77 6f 72 64 29 3b | > 0), c|urword);|
|000056d0| 0a 09 45 4e 44 3b 0a 09 | 63 6f 6d 6d 63 6c 61 73 |..END;..|commclas|
|000056e0| 73 20 3a 3d 20 56 41 4c | 28 66 69 72 73 74 63 6c |s := VAL|(firstcl|
|000056f0| 61 73 73 2c 20 4f 52 44 | 28 63 6f 6d 6d 63 6c 61 |ass, ORD|(commcla|
|00005700| 73 73 29 2b 31 29 3b 0a | 09 57 49 54 48 20 69 6e |ss)+1);.|.WITH in|
|00005710| 6c 69 6e 65 20 44 4f 0a | 09 09 52 45 50 45 41 54 |line DO.|..REPEAT|
|00005720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005730| 20 20 28 2a 20 6c 6f 6f | 70 20 66 6f 72 20 73 75 | (* loo|p for su|
|00005740| 63 63 65 73 73 69 76 65 | 20 77 6f 72 64 73 20 2a |ccessive| words *|
|00005750| 29 0a 09 09 09 53 74 61 | 72 74 57 6f 72 64 28 63 |)....Sta|rtWord(c|
|00005760| 6f 6d 6d 63 6c 61 73 73 | 29 3b 0a 09 09 09 65 6e |ommclass|);....en|
|00005770| 64 63 6f 6d 6d 65 6e 74 | 20 3a 3d 20 65 6e 64 6f |dcomment| := endo|
|00005780| 66 66 69 6c 65 3b 0a 09 | 09 09 09 09 28 2a 20 70 |ffile;..|....(* p|
|00005790| 72 65 6d 61 74 75 72 65 | 20 65 6e 64 3f 20 2a 29 |remature| end? *)|
|000057a0| 0a 09 09 09 49 46 20 65 | 6e 64 63 6f 6d 6d 65 6e |....IF e|ndcommen|
|000057b0| 74 20 54 48 45 4e 0a 09 | 09 09 09 57 72 69 74 65 |t THEN..|...Write|
|000057c0| 45 72 72 6f 72 28 6e 6f | 65 6e 64 63 6f 6d 6d 29 |Error(no|endcomm)|
|000057d0| 0a 09 09 09 45 4c 53 45 | 0a 09 09 09 09 52 45 50 |....ELSE|.....REP|
|000057e0| 45 41 54 0a 09 09 09 09 | 09 49 46 20 63 68 20 3d |EAT.....|.IF ch =|
|000057f0| 20 27 2a 27 20 54 48 45 | 4e 0a 09 09 09 09 09 09 | '*' THE|N.......|
|00005800| 47 65 74 43 68 61 72 3b | 0a 09 09 09 09 09 09 49 |GetChar;|.......I|
|00005810| 46 20 63 68 20 3d 20 27 | 29 27 20 54 48 45 4e 0a |F ch = '|)' THEN.|
|00005820| 09 09 09 09 09 09 09 65 | 6e 64 63 6f 6d 6d 65 6e |.......e|ndcommen|
|00005830| 74 20 3a 3d 20 54 52 55 | 45 3b 0a 09 09 09 09 09 |t := TRU|E;......|
|00005840| 09 09 47 65 74 43 68 61 | 72 3b 0a 09 09 09 09 09 |..GetCha|r;......|
|00005850| 09 45 4e 44 3b 0a 09 09 | 09 09 09 45 4c 53 45 0a |.END;...|...ELSE.|
|00005860| 09 09 09 09 09 09 47 65 | 74 43 68 61 72 3b 0a 09 |......Ge|tChar;..|
|00005870| 09 09 09 09 45 4e 44 3b | 0a 09 09 09 09 55 4e 54 |....END;|.....UNT|
|00005880| 49 4c 20 28 63 68 20 3d | 20 27 20 27 29 20 4f 52 |IL (ch =| ' ') OR|
|00005890| 20 65 6e 64 63 6f 6d 6d | 65 6e 74 3b 0a 09 09 09 | endcomm|ent;....|
|000058a0| 45 4e 44 3b 0a 09 09 09 | 46 69 6e 69 73 68 57 6f |END;....|FinishWo|
|000058b0| 72 64 3b 0a 09 09 09 43 | 6f 70 79 57 6f 72 64 28 |rd;....C|opyWord(|
|000058c0| 46 41 4c 53 45 2c 20 63 | 75 72 77 6f 72 64 29 0a |FALSE, c|urword).|
|000058d0| 09 09 55 4e 54 49 4c 20 | 65 6e 64 63 6f 6d 6d 65 |..UNTIL |endcomme|
|000058e0| 6e 74 3b 0a 09 45 4e 44 | 3b 0a 45 4e 44 20 43 6f |nt;..END|;.END Co|
|000058f0| 70 79 43 6f 6d 6d 65 6e | 74 3b 0a 0a 42 45 47 49 |pyCommen|t;..BEGI|
|00005900| 4e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N | |
|00005910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005920| 20 20 20 20 28 2a 20 44 | 6f 43 6f 6d 6d 65 6e 74 | (* D|oComment|
|00005930| 20 2a 29 0a 09 49 46 20 | 63 75 72 77 6f 72 64 2e | *)..IF |curword.|
|00005940| 62 61 73 65 20 3c 20 63 | 6f 6d 6d 74 68 72 65 73 |base < c|ommthres|
|00005950| 68 20 54 48 45 4e 0a 09 | 09 09 09 09 28 2a 20 63 |h THEN..|....(* c|
|00005960| 6f 70 79 20 63 6f 6d 6d | 65 6e 74 20 77 69 74 68 |opy comm|ent with|
|00005970| 6f 75 74 20 61 6c 69 67 | 6e 6d 65 6e 74 20 2a 29 |out alig|nment *)|
|00005980| 0a 09 09 43 6f 70 79 43 | 6f 6d 6d 65 6e 74 28 75 |...CopyC|omment(u|
|00005990| 6e 63 6f 6d 6d 2c 20 63 | 75 72 77 6f 72 64 2e 62 |ncomm, c|urword.b|
|000059a0| 61 73 65 29 0a 09 45 4c | 53 45 20 20 20 20 20 20 |ase)..EL|SE |
|000059b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000059c0| 20 20 20 20 20 20 28 2a | 20 61 6c 69 67 6e 20 41 | (*| align A|
|000059d0| 4e 44 20 66 6f 72 6d 61 | 74 20 63 6f 6d 6d 65 6e |ND forma|t commen|
|000059e0| 74 20 2a 29 0a 09 09 43 | 6f 70 79 43 6f 6d 6d 65 |t *)...C|opyComme|
|000059f0| 6e 74 28 61 6c 63 6f 6d | 6d 2c 20 61 6c 63 6f 6d |nt(alcom|m, alcom|
|00005a00| 6d 62 61 73 65 29 3b 0a | 09 45 4e 44 3b 0a 45 4e |mbase);.|.END;.EN|
|00005a10| 44 20 44 6f 43 6f 6d 6d | 65 6e 74 3b 0a 0a 50 52 |D DoComm|ent;..PR|
|00005a20| 4f 43 45 44 55 52 45 20 | 47 65 74 53 79 6d 62 6f |OCEDURE |GetSymbo|
|00005a30| 6c 3b 0a 28 2a 20 67 65 | 74 20 6e 65 78 74 20 6e |l;.(* ge|t next n|
|00005a40| 6f 6e 2d 63 6f 6d 6d 65 | 6e 74 20 73 79 6d 62 6f |on-comme|nt symbo|
|00005a50| 6c 20 2a 29 0a 0a 50 52 | 4f 43 45 44 55 52 45 20 |l *)..PR|OCEDURE |
|00005a60| 43 6f 70 79 53 79 6d 62 | 6f 6c 28 73 79 6d 62 6f |CopySymb|ol(symbo|
|00005a70| 6c 20 3a 20 73 79 6d 62 | 6f 6c 74 79 70 65 3b 20 |l : symb|oltype; |
|00005a80| 70 77 6f 72 64 20 3a 20 | 77 6f 72 64 74 79 70 65 |pword : |wordtype|
|00005a90| 29 3b 0a 28 2a 20 63 6f | 70 79 20 77 6f 72 64 28 |);.(* co|py word(|
|00005aa0| 73 29 20 6f 66 20 73 79 | 6d 62 6f 6c 20 2a 29 0a |s) of sy|mbol *).|
|00005ab0| 42 45 47 49 4e 0a 09 49 | 46 20 73 79 6d 62 6f 6c |BEGIN..I|F symbol|
|00005ac0| 20 3d 20 63 6f 6d 6d 65 | 6e 74 20 54 48 45 4e 0a | = comme|nt THEN.|
|00005ad0| 09 09 44 6f 43 6f 6d 6d | 65 6e 74 3b 20 20 20 20 |..DoComm|ent; |
|00005ae0| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 4e 4f 54 | | (* NOT|
|00005af0| 45 3a 20 44 6f 43 6f 6d | 6d 65 6e 74 20 75 73 65 |E: DoCom|ment use|
|00005b00| 73 20 67 6c 6f 62 61 6c | 20 77 6f 72 64 21 20 2a |s global| word! *|
|00005b10| 29 0a 09 09 6c 6e 70 65 | 6e 64 69 6e 67 20 3a 3d |)...lnpe|nding :=|
|00005b20| 20 54 52 55 45 3b 0a 09 | 45 4c 53 49 46 20 73 79 | TRUE;..|ELSIF sy|
|00005b30| 6d 62 6f 6c 20 3d 20 73 | 65 6d 69 63 6f 6c 6f 6e |mbol = s|emicolon|
|00005b40| 20 54 48 45 4e 0a 09 09 | 43 6f 70 79 57 6f 72 64 | THEN...|CopyWord|
|00005b50| 28 46 41 4c 53 45 2c 20 | 70 77 6f 72 64 29 3b 0a |(FALSE, |pword);.|
|00005b60| 09 09 6c 6e 70 65 6e 64 | 69 6e 67 20 3a 3d 20 4e |..lnpend|ing := N|
|00005b70| 4f 54 20 69 6e 68 65 61 | 64 65 72 3b 0a 09 45 4c |OT inhea|der;..EL|
|00005b80| 53 45 0a 09 09 43 6f 70 | 79 57 6f 72 64 28 6c 6e |SE...Cop|yWord(ln|
|00005b90| 70 65 6e 64 69 6e 67 2c | 20 70 77 6f 72 64 29 3b |pending,| pword);|
|00005ba0| 0a 09 09 6c 6e 70 65 6e | 64 69 6e 67 20 3a 3d 20 |...lnpen|ding := |
|00005bb0| 46 41 4c 53 45 3b 0a 09 | 45 4e 44 3b 0a 45 4e 44 |FALSE;..|END;.END|
|00005bc0| 20 43 6f 70 79 53 79 6d | 62 6f 6c 3b 0a 0a 50 52 | CopySym|bol;..PR|
|00005bd0| 4f 43 45 44 55 52 45 20 | 46 69 6e 64 53 79 6d 62 |OCEDURE |FindSymb|
|00005be0| 6f 6c 3b 0a 28 2a 20 66 | 69 6e 64 20 6e 65 78 74 |ol;.(* f|ind next|
|00005bf0| 20 73 79 6d 62 6f 6c 20 | 69 6e 20 69 6e 70 75 74 | symbol |in input|
|00005c00| 20 62 75 66 66 65 72 20 | 2a 29 0a 0a 56 41 52 0a | buffer |*)..VAR.|
|00005c10| 09 74 65 72 6d 63 68 20 | 3a 20 43 48 41 52 3b 20 |.termch |: CHAR; |
|00005c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005c30| 20 28 2a 20 73 74 72 69 | 6e 67 20 74 65 72 6d 69 | (* stri|ng termi|
|00005c40| 6e 61 74 6f 72 20 2a 29 | 0a 09 63 68 63 6c 61 73 |nator *)|..chclas|
|00005c50| 73 20 3a 20 63 68 61 72 | 74 79 70 65 3b 20 20 20 |s : char|type; |
|00005c60| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 63 6c 61 | | (* cla|
|00005c70| 73 73 69 66 69 63 61 74 | 69 6f 6e 20 6f 66 20 6c |ssificat|ion of l|
|00005c80| 65 61 64 69 6e 67 20 63 | 68 61 72 20 2a 29 0a 0a |eading c|har *)..|
|00005c90| 50 52 4f 43 45 44 55 52 | 45 20 43 68 65 63 6b 52 |PROCEDUR|E CheckR|
|00005ca0| 65 73 57 6f 72 64 3b 0a | 28 2a 20 63 68 65 63 6b |esWord;.|(* check|
|00005cb0| 20 69 66 20 63 75 72 72 | 65 6e 74 20 69 64 65 6e | if curr|ent iden|
|00005cc0| 74 69 66 69 65 72 20 69 | 73 20 72 65 73 65 72 76 |tifier i|s reserv|
|00005cd0| 65 64 20 77 6f 72 64 2f | 73 79 6d 62 6f 6c 20 2a |ed word/|symbol *|
|00005ce0| 29 0a 56 41 52 0a 09 72 | 77 2c 20 72 77 62 65 79 |).VAR..r|w, rwbey|
|00005cf0| 6f 6e 64 20 3a 20 72 65 | 73 77 6f 72 64 3b 20 20 |ond : re|sword; |
|00005d00| 20 20 20 20 20 20 20 28 | 2a 20 6c 6f 6f 70 20 69 | (|* loop i|
|00005d10| 6e 64 65 78 2c 20 6c 69 | 6d 69 74 20 2a 29 0a 09 |ndex, li|mit *)..|
|00005d20| 73 79 6d 77 6f 72 64 20 | 3a 20 72 77 73 74 72 69 |symword |: rwstri|
|00005d30| 6e 67 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ng; | |
|00005d40| 28 2a 20 63 6f 70 79 20 | 6f 66 20 73 79 6d 62 6f |(* copy |of symbo|
|00005d50| 6c 20 77 6f 72 64 20 2a | 29 0a 09 69 20 3a 20 5b |l word *|)..i : [|
|00005d60| 2d 31 2e 2e 6d 61 78 72 | 77 6c 65 6e 5d 3b 20 20 |-1..maxr|wlen]; |
|00005d70| 20 20 20 20 20 20 20 20 | 20 20 20 28 2a 20 6c 6f | | (* lo|
|00005d80| 6f 70 20 69 6e 64 65 78 | 20 2a 29 0a 42 45 47 49 |op index| *).BEGI|
|00005d90| 4e 0a 09 57 49 54 48 20 | 63 75 72 77 6f 72 64 20 |N..WITH |curword |
|00005da0| 44 4f 0a 09 09 57 49 54 | 48 20 69 6e 6c 69 6e 65 |DO...WIT|H inline|
|00005db0| 20 44 4f 0a 09 09 09 73 | 69 7a 65 20 3a 3d 20 69 | DO....s|ize := i|
|00005dc0| 6e 64 65 78 20 2d 20 62 | 61 73 65 20 2d 20 31 3b |ndex - b|ase - 1;|
|00005dd0| 0a 09 09 09 49 46 20 73 | 69 7a 65 20 3c 20 6d 61 |....IF s|ize < ma|
|00005de0| 78 72 77 6c 65 6e 20 54 | 48 45 4e 0a 09 09 09 09 |xrwlen T|HEN.....|
|00005df0| 73 79 6d 77 6f 72 64 20 | 3a 3d 20 27 20 20 20 20 |symword |:= ' |
|00005e00| 20 20 20 20 20 20 20 20 | 20 20 20 27 3b 0a 09 09 | | ';...|
|00005e10| 09 09 46 4f 52 20 69 20 | 3a 3d 20 31 20 54 4f 20 |..FOR i |:= 1 TO |
|00005e20| 73 69 7a 65 20 44 4f 0a | 09 09 09 09 09 73 79 6d |size DO.|.....sym|
|00005e30| 77 6f 72 64 5b 69 5d 20 | 3a 3d 20 43 41 50 28 62 |word[i] |:= CAP(b|
|00005e40| 75 66 5b 20 62 61 73 65 | 20 2b 20 69 5d 29 3b 0a |uf[ base| + i]);.|
|00005e50| 09 09 09 09 45 4e 44 3b | 0a 09 09 09 09 72 77 20 |....END;|.....rw |
|00005e60| 3a 3d 20 66 69 72 73 74 | 72 77 5b 73 69 7a 65 5d |:= first|rw[size]|
|00005e70| 3b 0a 09 09 09 09 72 77 | 62 65 79 6f 6e 64 20 3a |;.....rw|beyond :|
|00005e80| 3d 20 66 69 72 73 74 72 | 77 5b 73 69 7a 65 20 2b |= firstr|w[size +|
|00005e90| 20 31 5d 3b 0a 09 09 09 | 09 73 79 6d 62 6f 6c 20 | 1];....|.symbol |
|00005ea0| 3a 3d 20 73 65 6d 69 63 | 6f 6c 6f 6e 3b 0a 09 09 |:= semic|olon;...|
|00005eb0| 09 09 52 45 50 45 41 54 | 0a 09 09 09 09 09 49 46 |..REPEAT|......IF|
|00005ec0| 20 72 77 20 3e 3d 20 72 | 77 62 65 79 6f 6e 64 20 | rw >= r|wbeyond |
|00005ed0| 54 48 45 4e 0a 09 09 09 | 09 09 09 73 79 6d 62 6f |THEN....|...symbo|
|00005ee0| 6c 20 3a 3d 20 69 64 65 | 6e 74 0a 09 09 09 09 09 |l := ide|nt......|
|00005ef0| 45 4c 53 49 46 20 73 79 | 6d 77 6f 72 64 20 3d 20 |ELSIF sy|mword = |
|00005f00| 72 77 77 6f 72 64 5b 72 | 77 5d 20 54 48 45 4e 0a |rwword[r|w] THEN.|
|00005f10| 09 09 09 09 09 09 73 79 | 6d 62 6f 6c 20 3a 3d 20 |......sy|mbol := |
|00005f20| 72 77 73 79 5b 72 77 5d | 0a 09 09 09 09 09 45 4c |rwsy[rw]|......EL|
|00005f30| 53 45 0a 09 09 09 09 09 | 09 72 77 20 3a 3d 20 56 |SE......|.rw := V|
|00005f40| 41 4c 28 72 65 73 77 6f | 72 64 2c 4f 52 44 28 72 |AL(reswo|rd,ORD(r|
|00005f50| 77 29 2b 31 29 3b 0a 09 | 09 09 09 09 45 4e 44 3b |w)+1);..|....END;|
|00005f60| 0a 09 09 09 09 55 4e 54 | 49 4c 20 73 79 6d 62 6f |.....UNT|IL symbo|
|00005f70| 6c 20 3c 3e 20 73 65 6d | 69 63 6f 6c 6f 6e 3b 0a |l <> sem|icolon;.|
|00005f80| 09 09 09 45 4e 44 3b 0a | 09 09 09 77 68 65 6e 66 |...END;.|...whenf|
|00005f90| 69 72 73 74 20 3a 3d 20 | 6e 65 77 63 6c 61 75 73 |irst := |newclaus|
|00005fa0| 65 3b 0a 09 09 45 4e 44 | 3b 0a 09 45 4e 44 3b 0a |e;...END|;..END;.|
|00005fb0| 45 4e 44 20 43 68 65 63 | 6b 52 65 73 57 6f 72 64 |END Chec|kResWord|
|00005fc0| 3b 0a 0a 50 52 4f 43 45 | 44 55 52 45 20 47 65 74 |;..PROCE|DURE Get|
|00005fd0| 4e 61 6d 65 3b 0a 42 45 | 47 49 4e 0a 09 57 48 49 |Name;.BE|GIN..WHI|
|00005fe0| 4c 45 20 63 68 61 72 63 | 6c 61 73 73 5b 69 6e 6c |LE charc|lass[inl|
|00005ff0| 69 6e 65 2e 63 68 5d 20 | 49 4e 20 63 68 61 72 74 |ine.ch] |IN chart|
|00006000| 79 70 65 73 65 74 7b 6c | 65 74 74 65 72 2c 20 64 |ypeset{l|etter, d|
|00006010| 69 67 69 74 7d 20 44 4f | 0a 09 09 47 65 74 43 68 |igit} DO|...GetCh|
|00006020| 61 72 3b 0a 09 45 4e 44 | 3b 0a 09 43 68 65 63 6b |ar;..END|;..Check|
|00006030| 52 65 73 57 6f 72 64 3b | 0a 45 4e 44 20 47 65 74 |ResWord;|.END Get|
|00006040| 4e 61 6d 65 3b 0a 0a 50 | 52 4f 43 45 44 55 52 45 |Name;..P|ROCEDURE|
|00006050| 20 47 65 74 4e 75 6d 62 | 65 72 3b 0a 42 45 47 49 | GetNumb|er;.BEGI|
|00006060| 4e 0a 09 57 49 54 48 20 | 69 6e 6c 69 6e 65 20 44 |N..WITH |inline D|
|00006070| 4f 0a 09 09 57 48 49 4c | 45 20 63 68 61 72 63 6c |O...WHIL|E charcl|
|00006080| 61 73 73 5b 63 68 5d 20 | 3d 20 64 69 67 69 74 20 |ass[ch] |= digit |
|00006090| 44 4f 0a 09 09 09 47 65 | 74 43 68 61 72 3b 0a 09 |DO....Ge|tChar;..|
|000060a0| 09 45 4e 44 3b 0a 09 09 | 49 46 20 63 68 20 3d 20 |.END;...|IF ch = |
|000060b0| 27 2e 27 20 54 48 45 4e | 0a 09 09 09 49 46 20 63 |'.' THEN|....IF c|
|000060c0| 68 61 72 63 6c 61 73 73 | 5b 4e 65 78 74 43 68 61 |harclass|[NextCha|
|000060d0| 72 28 29 5d 20 3d 20 64 | 69 67 69 74 20 54 48 45 |r()] = d|igit THE|
|000060e0| 4e 0a 09 09 09 09 09 28 | 2a 20 4e 4f 54 45 3a 20 |N......(|* NOTE: |
|000060f0| 4e 65 78 74 43 68 61 72 | 20 69 73 20 61 20 66 75 |NextChar| is a fu|
|00006100| 6e 63 74 69 6f 6e 21 20 | 2a 29 0a 09 09 09 09 73 |nction! |*).....s|
|00006110| 79 6d 62 6f 6c 20 3a 3d | 20 6f 74 68 65 72 77 6f |ymbol :=| otherwo|
|00006120| 72 64 3b 0a 09 09 09 09 | 47 65 74 43 68 61 72 3b |rd;.....|GetChar;|
|00006130| 0a 09 09 09 09 57 48 49 | 4c 45 20 63 68 61 72 63 |.....WHI|LE charc|
|00006140| 6c 61 73 73 5b 63 68 5d | 20 3d 20 64 69 67 69 74 |lass[ch]| = digit|
|00006150| 20 44 4f 0a 09 09 09 09 | 09 47 65 74 43 68 61 72 | DO.....|.GetChar|
|00006160| 3b 0a 09 09 09 09 45 4e | 44 3b 0a 09 09 09 45 4e |;.....EN|D;....EN|
|00006170| 44 3b 0a 09 09 45 4e 44 | 3b 0a 09 09 49 46 20 43 |D;...END|;...IF C|
|00006180| 41 50 28 63 68 29 20 3d | 20 27 45 27 20 54 48 45 |AP(ch) =| 'E' THE|
|00006190| 4e 0a 09 09 09 73 79 6d | 62 6f 6c 20 3a 3d 20 6f |N....sym|bol := o|
|000061a0| 74 68 65 72 77 6f 72 64 | 3b 0a 09 09 09 47 65 74 |therword|;....Get|
|000061b0| 43 68 61 72 3b 0a 09 09 | 09 49 46 20 28 63 68 20 |Char;...|.IF (ch |
|000061c0| 3d 20 27 2b 27 29 20 4f | 52 20 28 63 68 20 3d 20 |= '+') O|R (ch = |
|000061d0| 27 2d 27 29 20 54 48 45 | 4e 0a 09 09 09 09 47 65 |'-') THE|N.....Ge|
|000061e0| 74 43 68 61 72 3b 0a 09 | 09 09 45 4e 44 3b 0a 09 |tChar;..|..END;..|
|000061f0| 09 09 57 48 49 4c 45 20 | 63 68 61 72 63 6c 61 73 |..WHILE |charclas|
|00006200| 73 5b 63 68 5d 20 3d 20 | 64 69 67 69 74 20 44 4f |s[ch] = |digit DO|
|00006210| 0a 09 09 09 09 47 65 74 | 43 68 61 72 3b 0a 09 09 |.....Get|Char;...|
|00006220| 09 45 4e 44 3b 0a 09 09 | 45 4e 44 3b 0a 09 45 4e |.END;...|END;..EN|
|00006230| 44 3b 0a 45 4e 44 20 47 | 65 74 4e 75 6d 62 65 72 |D;.END G|etNumber|
|00006240| 3b 0a 0a 50 52 4f 43 45 | 44 55 52 45 20 47 65 74 |;..PROCE|DURE Get|
|00006250| 53 74 72 69 6e 67 4c 69 | 74 65 72 61 6c 3b 0a 56 |StringLi|teral;.V|
|00006260| 41 52 0a 09 65 6e 64 73 | 74 72 69 6e 67 20 3a 20 |AR..ends|tring : |
|00006270| 42 4f 4f 4c 45 41 4e 3b | 20 20 20 20 20 20 20 20 |BOOLEAN;| |
|00006280| 20 20 20 20 28 2a 20 65 | 6e 64 20 6f 66 20 73 74 | (* e|nd of st|
|00006290| 72 69 6e 67 20 6c 69 74 | 65 72 61 6c 3f 20 2a 29 |ring lit|eral? *)|
|000062a0| 0a 42 45 47 49 4e 0a 09 | 57 49 54 48 20 69 6e 6c |.BEGIN..|WITH inl|
|000062b0| 69 6e 65 20 44 4f 0a 09 | 09 65 6e 64 73 74 72 69 |ine DO..|.endstri|
|000062c0| 6e 67 20 3a 3d 20 46 41 | 4c 53 45 3b 0a 09 09 52 |ng := FA|LSE;...R|
|000062d0| 45 50 45 41 54 0a 09 09 | 09 47 65 74 43 68 61 72 |EPEAT...|.GetChar|
|000062e0| 3b 0a 09 09 09 49 46 20 | 63 68 20 3d 20 74 65 72 |;....IF |ch = ter|
|000062f0| 6d 63 68 20 54 48 45 4e | 0a 09 09 09 09 65 6e 64 |mch THEN|.....end|
|00006300| 73 74 72 69 6e 67 20 3a | 3d 20 54 52 55 45 3b 0a |string :|= TRUE;.|
|00006310| 09 09 09 45 4c 53 49 46 | 20 69 6e 64 65 78 20 3e |...ELSIF| index >|
|00006320| 3d 20 6c 65 6e 20 54 48 | 45 4e 0a 09 09 09 09 09 |= len TH|EN......|
|00006330| 28 2a 20 65 72 72 6f 72 | 2c 20 66 69 6e 61 6c 20 |(* error|, final |
|00006340| 22 27 22 20 6e 6f 74 20 | 6f 6e 20 6c 69 6e 65 20 |"'" not |on line |
|00006350| 2a 29 0a 09 09 09 09 57 | 72 69 74 65 45 72 72 6f |*).....W|riteErro|
|00006360| 72 28 6e 6f 74 71 75 6f | 74 65 29 3b 0a 09 09 09 |r(notquo|te);....|
|00006370| 09 73 79 6d 62 6f 6c 20 | 3a 3d 20 73 79 65 6f 66 |.symbol |:= syeof|
|00006380| 3b 0a 09 09 09 09 65 6e | 64 73 74 72 69 6e 67 20 |;.....en|dstring |
|00006390| 3a 3d 20 54 52 55 45 3b | 0a 09 09 09 45 4e 44 3b |:= TRUE;|....END;|
|000063a0| 0a 09 09 55 4e 54 49 4c | 20 65 6e 64 73 74 72 69 |...UNTIL| endstri|
|000063b0| 6e 67 3b 0a 09 09 47 65 | 74 43 68 61 72 3b 0a 09 |ng;...Ge|tChar;..|
|000063c0| 45 4e 44 3b 0a 45 4e 44 | 20 47 65 74 53 74 72 69 |END;.END| GetStri|
|000063d0| 6e 67 4c 69 74 65 72 61 | 6c 3b 0a 0a 42 45 47 49 |ngLitera|l;..BEGI|
|000063e0| 4e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N | |
|000063f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
