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: 1592
| 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 |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail text
| default
| |
| 99%
| file
| Lisp/Scheme program text
| default
| |
| 98%
| file
| Lisp/Scheme program, 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 6d 69 | 70 40 49 44 41 2e 4c 69 |From: mi|p@IDA.Li|
|00000010| 55 2e 53 45 20 28 4d 69 | 6b 61 65 6c 20 50 61 74 |U.SE (Mi|kael Pat|
|00000020| 65 6c 29 0a 4e 65 77 73 | 67 72 6f 75 70 73 3a 20 |el).News|groups: |
|00000030| 61 6c 74 2e 73 6f 75 72 | 63 65 73 0a 53 75 62 6a |alt.sour|ces.Subj|
|00000040| 65 63 74 3a 20 54 49 4c | 45 20 46 6f 72 74 68 20 |ect: TIL|E Forth |
|00000050| 52 65 6c 65 61 73 65 20 | 32 2e 30 2c 20 70 61 63 |Release |2.0, pac|
|00000060| 6b 61 67 65 20 32 20 6f | 66 20 36 0a 4d 65 73 73 |kage 2 o|f 6.Mess|
|00000070| 61 67 65 2d 49 44 3a 20 | 3c 31 39 35 39 40 6d 61 |age-ID: |<1959@ma|
|00000080| 6a 65 73 74 69 78 2e 69 | 64 61 2e 6c 69 75 2e 73 |jestix.i|da.liu.s|
|00000090| 65 3e 0a 44 61 74 65 3a | 20 31 36 20 4a 75 6c 20 |e>.Date:| 16 Jul |
|000000a0| 39 30 20 31 38 3a 35 35 | 3a 32 30 20 47 4d 54 0a |90 18:55|:20 GMT.|
|000000b0| 0a 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |..#! /bi|n/sh.# T|
|000000c0| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|000000d0| 72 63 68 69 76 65 2e 20 | 20 52 65 6d 6f 76 65 20 |rchive. | Remove |
|000000e0| 61 6e 79 74 68 69 6e 67 | 20 62 65 66 6f 72 65 20 |anything| before |
|000000f0| 74 68 69 73 20 6c 69 6e | 65 2c 20 74 68 65 6e 20 |this lin|e, then |
|00000100| 75 6e 70 61 63 6b 0a 23 | 20 69 74 20 62 79 20 73 |unpack.#| it by s|
|00000110| 61 76 69 6e 67 20 69 74 | 20 69 6e 74 6f 20 61 20 |aving it| into a |
|00000120| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|00000130| 22 73 68 20 66 69 6c 65 | 22 2e 20 20 54 6f 20 6f |"sh file|". To o|
|00000140| 76 65 72 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |verwrite| existin|
|00000150| 67 0a 23 20 66 69 6c 65 | 73 2c 20 74 79 70 65 20 |g.# file|s, type |
|00000160| 22 73 68 20 66 69 6c 65 | 20 2d 63 22 2e 20 20 59 |"sh file| -c". Y|
|00000170| 6f 75 20 63 61 6e 20 61 | 6c 73 6f 20 66 65 65 64 |ou can a|lso feed|
|00000180| 20 74 68 69 73 20 61 73 | 20 73 74 61 6e 64 61 72 | this as| standar|
|00000190| 64 20 69 6e 70 75 74 20 | 76 69 61 0a 23 20 75 6e |d input |via.# un|
|000001a0| 73 68 61 72 2c 20 6f 72 | 20 62 79 20 74 79 70 69 |shar, or| by typi|
|000001b0| 6e 67 20 22 73 68 20 3c | 66 69 6c 65 22 2c 20 65 |ng "sh <|file", e|
|000001c0| 2e 67 2e 2e 20 20 49 66 | 20 74 68 69 73 20 61 72 |.g.. If| this ar|
|000001d0| 63 68 69 76 65 20 69 73 | 20 63 6f 6d 70 6c 65 74 |chive is| complet|
|000001e0| 65 2c 20 79 6f 75 0a 23 | 20 77 69 6c 6c 20 73 65 |e, you.#| will se|
|000001f0| 65 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e the fo|llowing |
|00000200| 6d 65 73 73 61 67 65 20 | 61 74 20 74 68 65 20 65 |message |at the e|
|00000210| 6e 64 3a 0a 23 09 09 22 | 45 6e 64 20 6f 66 20 61 |nd:.#.."|End of a|
|00000220| 72 63 68 69 76 65 20 32 | 20 28 6f 66 20 36 29 2e |rchive 2| (of 6).|
|00000230| 22 0a 23 20 43 6f 6e 74 | 65 6e 74 73 3a 20 20 49 |".# Cont|ents: I|
|00000240| 4e 53 54 41 4c 4c 20 4d | 61 6b 65 66 69 6c 65 20 |NSTALL M|akefile |
|00000250| 62 69 6e 2f 66 6f 72 74 | 68 69 63 6f 6e 20 6c 69 |bin/fort|hicon li|
|00000260| 62 2f 62 69 74 66 69 65 | 6c 64 73 2e 66 38 33 0a |b/bitfie|lds.f83.|
|00000270| 23 20 20 20 6c 69 62 2f | 62 6c 6f 63 6b 73 2e 66 |# lib/|blocks.f|
|00000280| 38 33 20 6c 69 62 2f 64 | 6f 75 62 6c 65 2e 66 38 |83 lib/d|ouble.f8|
|00000290| 33 20 6c 69 62 2f 65 6e | 75 6d 65 72 61 74 65 73 |3 lib/en|umerates|
|000002a0| 2e 66 38 33 20 6c 69 62 | 2f 6c 69 73 74 73 2e 66 |.f83 lib|/lists.f|
|000002b0| 38 33 0a 23 20 20 20 6c | 69 62 2f 6d 61 63 72 6f |83.# l|ib/macro|
|000002c0| 73 2e 66 38 33 20 6c 69 | 62 2f 72 61 6e 67 65 73 |s.f83 li|b/ranges|
|000002d0| 2e 66 38 33 20 6c 69 62 | 2f 72 61 74 69 6f 6e 61 |.f83 lib|/rationa|
|000002e0| 6c 73 2e 66 38 33 20 6c | 69 62 2f 73 65 74 73 2e |ls.f83 l|ib/sets.|
|000002f0| 66 38 33 0a 23 20 20 20 | 73 72 63 2f 4d 61 6b 65 |f83.# |src/Make|
|00000300| 66 69 6c 65 20 73 72 63 | 2f 65 78 63 65 70 74 69 |file src|/excepti|
|00000310| 6f 6e 73 2e 76 20 73 72 | 63 2f 66 6c 6f 61 74 2e |ons.v sr|c/float.|
|00000320| 76 20 73 72 63 2f 71 75 | 65 75 65 73 2e 76 0a 23 |v src/qu|eues.v.#|
|00000330| 20 20 20 73 72 63 2f 73 | 74 72 69 6e 67 2e 76 20 | src/s|tring.v |
|00000340| 74 73 74 2f 65 78 63 65 | 70 74 69 6f 6e 73 2e 74 |tst/exce|ptions.t|
|00000350| 73 74 20 74 73 74 2f 74 | 61 73 6b 2d 73 69 65 76 |st tst/t|ask-siev|
|00000360| 65 2e 74 73 74 0a 23 20 | 20 20 74 73 74 2f 74 72 |e.tst.# | tst/tr|
|00000370| 65 65 2d 73 6f 72 74 2e | 74 73 74 0a 23 20 57 72 |ee-sort.|tst.# Wr|
|00000380| 61 70 70 65 64 20 62 79 | 20 6d 69 70 40 6d 69 6e |apped by| mip@min|
|00000390| 61 20 6f 6e 20 46 72 69 | 20 4a 75 6e 20 32 39 20 |a on Fri| Jun 29 |
|000003a0| 31 36 3a 34 39 3a 30 37 | 20 31 39 39 30 0a 50 41 |16:49:07| 1990.PA|
|000003b0| 54 48 3d 2f 62 69 6e 3a | 2f 75 73 72 2f 62 69 6e |TH=/bin:|/usr/bin|
|000003c0| 3a 2f 75 73 72 2f 75 63 | 62 20 3b 20 65 78 70 6f |:/usr/uc|b ; expo|
|000003d0| 72 74 20 50 41 54 48 0a | 69 66 20 74 65 73 74 20 |rt PATH.|if test |
|000003e0| 2d 66 20 49 4e 53 54 41 | 4c 4c 20 2d 61 20 22 24 |-f INSTA|LL -a "$|
|000003f0| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00000400| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|00000410| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: Will n|ot over-|
|00000420| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00000430| 69 6c 65 20 5c 22 49 4e | 53 54 41 4c 4c 5c 22 0a |ile \"IN|STALL\".|
|00000440| 65 6c 73 65 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |else.ech|o shar: |
|00000450| 45 78 74 72 61 63 74 69 | 6e 67 20 5c 22 49 4e 53 |Extracti|ng \"INS|
|00000460| 54 41 4c 4c 5c 22 20 5c | 28 32 31 31 33 20 63 68 |TALL\" \|(2113 ch|
|00000470| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000480| 73 2f 5e 58 2f 2f 22 20 | 3e 49 4e 53 54 41 4c 4c |s/^X//" |>INSTALL|
|00000490| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 49 4e 53 54 41 | <<'END_|OF_INSTA|
|000004a0| 4c 4c 27 0a 58 54 48 52 | 45 41 44 45 44 20 49 4e |LL'.XTHR|EADED IN|
|000004b0| 54 45 52 50 52 45 54 49 | 56 45 20 4c 41 4e 47 55 |TERPRETI|VE LANGU|
|000004c0| 41 47 45 20 45 4e 56 49 | 52 4f 4e 4d 45 4e 54 20 |AGE ENVI|RONMENT |
|000004d0| 28 54 49 4c 45 29 20 49 | 4e 53 54 41 4c 4c 41 54 |(TILE) I|NSTALLAT|
|000004e0| 49 4f 4e 0a 58 0a 58 4a | 75 6e 65 20 32 39 2c 20 |ION.X.XJ|une 29, |
|000004f0| 31 39 39 30 0a 58 0a 58 | 4d 69 6b 61 65 6c 20 52 |1990.X.X|Mikael R|
|00000500| 2e 4b 2e 20 50 61 74 65 | 6c 0a 58 43 6f 6d 70 75 |.K. Pate|l.XCompu|
|00000510| 74 65 72 20 41 69 64 65 | 64 20 44 65 73 69 67 6e |ter Aide|d Design|
|00000520| 20 4c 61 62 6f 72 61 74 | 6f 72 79 20 28 43 41 44 | Laborat|ory (CAD|
|00000530| 4c 41 42 29 0a 58 44 65 | 70 61 72 74 6d 65 6e 74 |LAB).XDe|partment|
|00000540| 20 6f 66 20 43 6f 6d 70 | 75 74 65 72 20 61 6e 64 | of Comp|uter and|
|00000550| 20 49 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 53 63 69 | Informa|tion Sci|
|00000560| 65 6e 63 65 0a 58 4c 69 | 6e 6b 6f 70 69 6e 67 20 |ence.XLi|nkoping |
|00000570| 55 6e 69 76 65 72 73 69 | 74 79 0a 58 53 2d 35 38 |Universi|ty.XS-58|
|00000580| 31 20 38 33 20 4c 49 4e | 4b 4f 50 49 4e 47 0a 58 |1 83 LIN|KOPING.X|
|00000590| 53 57 45 44 45 4e 0a 58 | 45 6d 61 69 6c 3a 20 6d |SWEDEN.X|Email: m|
|000005a0| 69 70 40 69 64 61 2e 6c | 69 75 2e 73 65 0a 58 0a |ip@ida.l|iu.se.X.|
|000005b0| 58 0a 58 31 2e 09 49 4e | 54 52 4f 44 55 43 54 49 |X.X1..IN|TRODUCTI|
|000005c0| 4f 4e 0a 58 0a 58 54 6f | 20 69 6e 73 74 61 6c 6c |ON.X.XTo| install|
|000005d0| 20 74 68 65 20 54 49 4c | 45 20 66 6f 72 74 68 20 | the TIL|E forth |
|000005e0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 63 72 65 61 |environm|ent crea|
|000005f0| 74 65 20 61 20 64 69 72 | 65 63 74 6f 72 79 20 77 |te a dir|ectory w|
|00000600| 69 74 68 20 74 68 65 20 | 0a 58 6e 61 6d 65 20 22 |ith the |.Xname "|
|00000610| 74 69 6c 65 22 20 61 6e | 64 20 6d 6f 76 65 20 61 |tile" an|d move a|
|00000620| 6c 6c 20 74 68 65 20 22 | 74 69 6c 65 2e 6b 69 74 |ll the "|tile.kit|
|00000630| 22 20 66 69 6c 65 73 20 | 74 6f 20 74 68 65 20 6e |" files |to the n|
|00000640| 65 77 20 64 69 72 65 63 | 74 6f 72 79 2e 0a 58 54 |ew direc|tory..XT|
|00000650| 68 65 20 6b 69 74 20 66 | 69 6c 65 73 20 73 68 6f |he kit f|iles sho|
|00000660| 75 6c 64 20 62 65 20 70 | 61 63 6b 65 64 20 75 70 |uld be p|acked up|
|00000670| 20 77 69 74 68 20 74 68 | 65 20 63 6f 6d 6d 61 6e | with th|e comman|
|00000680| 64 20 22 73 68 22 2e 20 | 41 20 6e 75 6d 62 65 72 |d "sh". |A number|
|00000690| 0a 58 6f 66 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |.Xof add|itional |
|000006a0| 64 69 72 65 63 74 6f 72 | 69 65 73 20 77 69 6c 6c |director|ies will|
|000006b0| 20 62 65 20 62 75 69 6c | 64 2e 20 54 6f 20 63 6f | be buil|d. To co|
|000006c0| 6d 70 69 6c 65 20 74 68 | 65 20 54 49 4c 45 20 66 |mpile th|e TILE f|
|000006d0| 6f 72 74 68 0a 58 61 70 | 70 6c 69 63 61 74 69 6f |orth.Xap|plicatio|
|000006e0| 6e 20 69 73 73 75 65 20 | 74 68 65 20 63 6f 6d 6d |n issue |the comm|
|000006f0| 61 6e 64 20 22 6d 61 6b | 65 22 2e 20 54 68 65 20 |and "mak|e". The |
|00000700| 73 65 71 75 65 6e 63 65 | 20 6f 66 20 63 6f 6d 6d |sequence| of comm|
|00000710| 61 6e 64 73 20 69 73 3a | 0a 58 0a 58 25 20 6d 6b |ands is:|.X.X% mk|
|00000720| 64 69 72 20 74 69 6c 65 | 0a 58 25 20 6d 76 20 74 |dir tile|.X% mv t|
|00000730| 69 6c 65 2e 6b 69 74 2e | 2a 20 74 69 6c 65 0a 58 |ile.kit.|* tile.X|
|00000740| 25 20 63 64 20 74 69 6c | 65 0a 58 25 20 73 68 20 |% cd til|e.X% sh |
|00000750| 74 69 6c 65 2e 6b 69 74 | 2e 30 31 0a 58 25 20 2e |tile.kit|.01.X% .|
|00000760| 2e 2e 0a 58 25 20 6d 61 | 6b 65 0a 58 0a 58 54 68 |...X% ma|ke.X.XTh|
|00000770| 65 20 22 6d 61 6b 65 22 | 20 63 6f 6d 6d 61 6e 64 |e "make"| command|
|00000780| 20 77 69 6c 6c 20 63 6f | 6d 70 69 6c 65 20 74 68 | will co|mpile th|
|00000790| 65 20 66 6f 72 74 68 20 | 65 6e 76 69 72 6f 6e 6d |e forth |environm|
|000007a0| 65 6e 74 2e 20 59 6f 75 | 20 63 61 6e 20 75 73 65 |ent. You| can use|
|000007b0| 0a 58 74 68 65 20 6f 70 | 74 69 6f 6e 20 22 6f 70 |.Xthe op|tion "op|
|000007c0| 74 22 20 74 6f 20 67 65 | 6e 65 72 61 74 65 20 61 |t" to ge|nerate a|
|000007d0| 6e 20 6f 70 74 69 6d 69 | 7a 65 64 20 76 65 72 73 |n optimi|zed vers|
|000007e0| 69 6f 6e 2e 0a 58 0a 58 | 0a 58 32 2e 09 53 45 41 |ion..X.X|.X2..SEA|
|000007f0| 52 43 48 20 50 41 54 48 | 53 0a 58 0a 58 54 68 65 |RCH PATH|S.X.XThe|
|00000800| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 74 68 20 | compile|d forth |
|00000810| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 77 69 6c 6c |applicat|ion will|
|00000820| 20 62 65 20 70 6c 61 63 | 65 64 20 69 6e 20 74 68 | be plac|ed in th|
|00000830| 65 20 22 74 69 6c 65 2f | 62 69 6e 22 0a 58 64 69 |e "tile/|bin".Xdi|
|00000840| 72 65 63 74 6f 72 79 2e | 20 54 6f 20 67 61 69 6e |rectory.| To gain|
|00000850| 20 61 63 63 65 73 73 20 | 74 6f 20 69 74 20 61 6e | access |to it an|
|00000860| 64 20 74 68 65 20 6d 61 | 6e 75 61 6c 20 70 61 67 |d the ma|nual pag|
|00000870| 65 73 20 79 6f 75 20 73 | 68 6f 75 6c 64 0a 58 61 |es you s|hould.Xa|
|00000880| 64 64 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |dd the f|ollowing|
|00000890| 20 73 65 63 74 69 6f 6e | 20 74 6f 20 79 6f 75 72 | section| to your|
|000008a0| 20 22 2e 6c 6f 67 69 6e | 22 20 66 69 6c 65 2e 20 | ".login|" file. |
|000008b0| 0a 58 0a 58 73 65 74 65 | 6e 76 20 54 49 4c 45 20 |.X.Xsete|nv TILE |
|000008c0| 24 48 4f 4d 45 2f 74 69 | 6c 65 0a 58 73 65 74 20 |$HOME/ti|le.Xset |
|000008d0| 70 61 74 68 20 3d 20 28 | 24 70 61 74 68 20 24 54 |path = (|$path $T|
|000008e0| 49 4c 45 2f 62 69 6e 29 | 0a 58 23 0a 58 73 65 74 |ILE/bin)|.X#.Xset|
|000008f0| 65 6e 76 20 54 49 4c 45 | 50 41 54 48 20 24 54 49 |env TILE|PATH $TI|
|00000900| 4c 45 2f 6c 69 62 3a 24 | 54 49 4c 45 2f 74 73 74 |LE/lib:$|TILE/tst|
|00000910| 0a 58 73 65 74 65 6e 76 | 20 4d 41 4e 50 41 54 48 |.Xsetenv| MANPATH|
|00000920| 20 24 54 49 4c 45 2f 6d | 61 6e 3a 2f 75 73 72 2f | $TILE/m|an:/usr/|
|00000930| 73 68 61 72 65 2f 6d 61 | 6e 0a 58 0a 58 0a 58 33 |share/ma|n.X.X.X3|
|00000940| 2e 20 09 47 4e 55 20 45 | 4d 41 43 53 20 46 4f 52 |. .GNU E|MACS FOR|
|00000950| 54 48 2d 4d 4f 44 45 0a | 58 0a 58 54 68 65 20 70 |TH-MODE.|X.XThe p|
|00000960| 72 6f 67 72 61 6d 6d 69 | 6e 67 20 65 6e 76 69 72 |rogrammi|ng envir|
|00000970| 6f 6e 6d 65 6e 74 20 69 | 73 20 61 20 66 6f 72 74 |onment i|s a fort|
|00000980| 68 2d 6d 6f 64 65 20 66 | 6f 72 20 47 4e 55 20 65 |h-mode f|or GNU e|
|00000990| 6d 61 63 73 2e 20 54 6f | 20 6d 61 6b 65 0a 58 69 |macs. To| make.Xi|
|000009a0| 74 20 61 63 63 65 73 73 | 61 62 6c 65 20 74 6f 20 |t access|able to |
|000009b0| 65 6d 61 63 73 20 79 6f | 75 20 6d 75 73 74 20 61 |emacs yo|u must a|
|000009c0| 64 64 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |dd the f|ollowing|
|000009d0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 20 74 6f 20 | definit|ions to |
|000009e0| 79 6f 75 72 0a 58 22 2e | 65 6d 61 63 73 22 20 66 |your.X".|emacs" f|
|000009f0| 69 6c 65 20 28 6f 72 20 | 6c 6f 61 64 20 74 68 65 |ile (or |load the|
|00000a00| 20 6c 69 62 72 61 72 79 | 20 22 73 72 63 2f 66 6f | library| "src/fo|
|00000a10| 72 74 68 2e 65 6c 22 20 | 6d 61 6e 75 61 6c 6c 79 |rth.el" |manually|
|00000a20| 20 69 6e 20 65 6d 61 63 | 73 20 0a 58 65 61 63 68 | in emac|s .Xeach|
|00000a30| 20 74 69 6d 65 29 2e 0a | 58 0a 58 3b 3b 20 2a 2a | time)..|X.X;; **|
|00000a40| 2a 20 53 65 61 72 63 68 | 20 70 61 74 68 20 66 6f |* Search| path fo|
|00000a50| 72 20 64 69 72 65 63 74 | 6f 72 69 65 73 20 74 6f |r direct|ories to|
|00000a60| 20 66 69 6e 64 20 66 69 | 6c 65 73 20 74 6f 20 6c | find fi|les to l|
|00000a70| 6f 61 64 20 2a 2a 2a 0a | 58 28 73 65 74 2d 76 61 |oad ***.|X(set-va|
|00000a80| 72 69 61 62 6c 65 20 27 | 6c 6f 61 64 2d 70 61 74 |riable '|load-pat|
|00000a90| 68 20 28 61 70 70 65 6e | 64 20 6c 6f 61 64 2d 70 |h (appen|d load-p|
|00000aa0| 61 74 68 20 27 28 6e 69 | 6c 20 22 7e 2f 74 69 6c |ath '(ni|l "~/til|
|00000ab0| 65 2f 73 63 72 22 29 29 | 29 0a 58 0a 58 3b 3b 20 |e/scr"))|).X.X;; |
|00000ac0| 2a 2a 2a 20 54 49 4c 45 | 20 66 6f 72 74 68 20 6d |*** TILE| forth m|
|00000ad0| 6f 64 65 20 2a 2a 2a 0a | 58 28 73 65 74 71 20 66 |ode ***.|X(setq f|
|00000ae0| 6f 72 74 68 2d 68 65 6c | 70 2d 6c 6f 61 64 2d 70 |orth-hel|p-load-p|
|00000af0| 61 74 68 20 27 28 22 7e | 2f 74 69 6c 65 2f 64 6f |ath '("~|/tile/do|
|00000b00| 63 22 29 29 0a 58 28 61 | 75 74 6f 6c 6f 61 64 20 |c")).X(a|utoload |
|00000b10| 27 66 6f 72 74 68 2d 6d | 6f 64 65 20 22 66 6f 72 |'forth-m|ode "for|
|00000b20| 74 68 22 29 0a 58 28 73 | 65 74 71 20 61 75 74 6f |th").X(s|etq auto|
|00000b30| 2d 6d 6f 64 65 2d 61 6c | 69 73 74 0a 58 20 20 20 |-mode-al|ist.X |
|00000b40| 20 20 20 28 61 70 70 65 | 6e 64 20 27 28 28 22 5c | (appe|nd '(("\|
|00000b50| 5c 2e 74 73 74 24 22 20 | 2e 20 66 6f 72 74 68 2d |\.tst$" |. forth-|
|00000b60| 6d 6f 64 65 29 20 0a 58 | 09 09 28 22 5c 5c 2e 66 |mode) .X|..("\\.f|
|00000b70| 38 33 24 22 20 2e 20 66 | 6f 72 74 68 2d 6d 6f 64 |83$" . f|orth-mod|
|00000b80| 65 29 29 0a 58 09 20 20 | 20 20 20 20 61 75 74 6f |e)).X. | auto|
|00000b90| 2d 6d 6f 64 65 2d 61 6c | 69 73 74 29 29 0a 58 0a |-mode-al|ist)).X.|
|00000ba0| 58 0a 58 44 65 70 65 6e | 64 69 6e 67 20 6f 6e 20 |X.XDepen|ding on |
|00000bb0| 77 68 69 63 68 20 64 69 | 72 65 63 74 6f 72 79 20 |which di|rectory |
|00000bc0| 79 6f 75 20 68 61 76 65 | 20 75 73 65 64 20 28 24 |you have| used ($|
|00000bd0| 48 4f 4d 45 20 6f 72 20 | 73 6f 6d 65 20 73 79 73 |HOME or |some sys|
|00000be0| 74 65 6d 20 0a 58 64 69 | 72 65 63 74 6f 72 79 29 |tem .Xdi|rectory)|
|00000bf0| 20 74 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 73 | the dir|ectory s|
|00000c00| 70 65 63 69 66 69 63 61 | 74 69 6f 6e 20 77 69 6c |pecifica|tion wil|
|00000c10| 6c 20 68 61 76 65 20 74 | 6f 20 62 65 20 63 68 61 |l have t|o be cha|
|00000c20| 6e 67 65 64 2e 20 49 66 | 0a 58 63 6f 72 72 65 63 |nged. If|.Xcorrec|
|00000c30| 74 6c 79 20 69 6e 73 74 | 61 6c 6c 65 64 20 65 6d |tly inst|alled em|
|00000c40| 61 63 73 20 77 69 6c 6c | 20 61 75 74 6f 6d 61 74 |acs will| automat|
|00000c50| 69 63 61 6c 6c 79 20 6c | 6f 61 64 20 74 68 65 20 |ically l|oad the |
|00000c60| 66 6f 72 74 68 2d 6d 6f | 64 65 20 0a 58 6f 6e 20 |forth-mo|de .Xon |
|00000c70| 66 69 6c 65 73 20 77 69 | 74 68 20 74 68 65 20 65 |files wi|th the e|
|00000c80| 78 74 65 6e 73 69 6f 6e | 73 20 22 66 38 33 22 20 |xtension|s "f83" |
|00000c90| 61 6e 64 20 22 74 73 74 | 22 20 61 6e 64 20 73 74 |and "tst|" and st|
|00000ca0| 61 72 74 20 74 68 65 20 | 66 6f 72 74 68 0a 58 61 |art the |forth.Xa|
|00000cb0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 69 6e 20 61 20 |pplicati|on in a |
|00000cc0| 73 75 62 2d 77 69 6e 64 | 6f 77 2e 20 46 6f 72 20 |sub-wind|ow. For |
|00000cd0| 6d 6f 72 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |more inf|ormation|
|00000ce0| 20 61 62 6f 75 74 20 74 | 68 65 0a 58 66 6f 72 74 | about t|he.Xfort|
|00000cf0| 68 2d 6d 6f 64 65 20 6a | 75 73 74 20 67 69 76 65 |h-mode j|ust give|
|00000d00| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 22 4d 2d | the com|mand "M-|
|00000d10| 58 20 64 65 73 63 72 69 | 62 65 2d 6d 6f 64 65 22 |X descri|be-mode"|
|00000d20| 20 69 6e 20 65 6d 61 63 | 73 2e 0a 45 4e 44 5f 4f | in emac|s..END_O|
|00000d30| 46 5f 49 4e 53 54 41 4c | 4c 0a 69 66 20 74 65 73 |F_INSTAL|L.if tes|
|00000d40| 74 20 32 31 31 33 20 2d | 6e 65 20 60 77 63 20 2d |t 2113 -|ne `wc -|
|00000d50| 63 20 3c 49 4e 53 54 41 | 4c 4c 60 3b 20 74 68 65 |c <INSTA|LL`; the|
|00000d60| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|00000d70| 20 5c 22 49 4e 53 54 41 | 4c 4c 5c 22 20 75 6e 70 | \"INSTA|LL\" unp|
|00000d80| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|00000d90| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|00000da0| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00000db0| 68 65 63 6b 0a 66 69 0a | 69 66 20 74 65 73 74 20 |heck.fi.|if test |
|00000dc0| 2d 66 20 4d 61 6b 65 66 | 69 6c 65 20 2d 61 20 22 |-f Makef|ile -a "|
|00000dd0| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00000de0| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then . |echo sha|
|00000df0| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: Will |not over|
|00000e00| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00000e10| 66 69 6c 65 20 5c 22 4d | 61 6b 65 66 69 6c 65 5c |file \"M|akefile\|
|00000e20| 22 0a 65 6c 73 65 0a 65 | 63 68 6f 20 73 68 61 72 |".else.e|cho shar|
|00000e30| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 4d |: Extrac|ting \"M|
|00000e40| 61 6b 65 66 69 6c 65 5c | 22 20 5c 28 31 37 35 35 |akefile\|" \(1755|
|00000e50| 20 63 68 61 72 61 63 74 | 65 72 73 5c 29 0a 73 65 | charact|ers\).se|
|00000e60| 64 20 22 73 2f 5e 58 2f | 2f 22 20 3e 4d 61 6b 65 |d "s/^X/|/" >Make|
|00000e70| 66 69 6c 65 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 4d |file <<'|END_OF_M|
|00000e80| 61 6b 65 66 69 6c 65 27 | 0a 58 23 20 4e 41 4d 45 |akefile'|.X# NAME|
|00000e90| 0a 58 23 09 4d 61 6b 65 | 66 69 6c 65 20 2d 20 66 |.X#.Make|file - f|
|00000ea0| 6f 72 20 6d 61 6e 61 67 | 65 6d 65 6e 74 20 6f 66 |or manag|ement of|
|00000eb0| 20 74 68 65 20 74 69 6c | 65 20 66 6f 72 74 68 20 | the til|e forth |
|00000ec0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 0a 58 23 20 53 |environm|ent.X# S|
|00000ed0| 59 4e 4f 50 53 49 53 0a | 58 23 09 6d 61 6b 65 20 |YNOPSIS.|X#.make |
|00000ee0| 5b 6f 70 74 69 6f 6e 5d | 0a 58 23 20 44 45 53 43 |[option]|.X# DESC|
|00000ef0| 52 49 50 54 49 4f 4e 0a | 58 23 09 47 65 6e 65 72 |RIPTION.|X#.Gener|
|00000f00| 61 6c 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 63 |al envir|onment c|
|00000f10| 6f 6f 72 64 69 6e 61 74 | 6f 72 20 66 6f 72 20 74 |oordinat|or for t|
|00000f20| 68 65 20 74 68 72 65 61 | 64 65 64 20 69 6e 74 65 |he threa|ded inte|
|00000f30| 72 70 72 65 74 65 72 20 | 6c 61 6e 67 75 61 67 65 |rpreter |language|
|00000f40| 0a 58 23 09 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |.X#.envi|ronment |
|00000f50| 28 54 49 4c 45 29 2e 20 | 41 6c 6c 6f 77 73 20 70 |(TILE). |Allows p|
|00000f60| 61 63 6b 61 67 69 6e 67 | 20 66 6f 72 20 64 69 73 |ackaging| for dis|
|00000f70| 74 72 69 62 75 74 69 6f | 6e 20 65 74 63 2e 0a 58 |tributio|n etc..X|
|00000f80| 23 20 4f 50 54 49 4f 4e | 53 0a 58 23 20 20 20 20 |# OPTION|S.X# |
|00000f90| 20 20 20 66 6f 72 74 68 | 0a 58 23 09 09 43 6f 6d | forth|.X#..Com|
|00000fa0| 70 69 6c 65 73 20 74 68 | 65 20 66 6f 72 74 68 20 |piles th|e forth |
|00000fb0| 63 6f 6d 70 69 6c 65 72 | 2f 69 6e 74 65 72 70 72 |compiler|/interpr|
|00000fc0| 65 74 65 72 2e 0a 58 23 | 20 20 20 20 20 20 20 6e |eter..X#| n|
|00000fd0| 65 77 0a 58 23 09 09 52 | 65 63 6f 6d 70 69 6c 65 |ew.X#..R|ecompile|
|00000fe0| 20 74 68 65 20 66 6f 72 | 74 68 20 61 70 70 6c 69 | the for|th appli|
|00000ff0| 63 61 74 69 6f 6e 20 77 | 69 74 68 6f 75 74 20 6f |cation w|ithout o|
|00001000| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 2e 0a 58 23 20 |ptimizat|ion..X# |
|00001010| 20 20 20 20 20 20 6f 70 | 74 0a 58 23 09 09 52 65 | op|t.X#..Re|
|00001020| 63 6f 6d 70 69 6c 65 20 | 74 68 65 20 66 6f 72 74 |compile |the fort|
|00001030| 68 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 77 69 |h applic|ation wi|
|00001040| 74 68 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 2e |th optim|ization.|
|00001050| 0a 58 23 09 6b 69 74 0a | 58 23 09 09 50 61 63 6b |.X#.kit.|X#..Pack|
|00001060| 20 74 68 65 20 61 76 61 | 69 6c 61 62 6c 65 20 66 | the ava|ilable f|
|00001070| 69 6c 65 73 20 66 6f 72 | 20 6d 61 69 6c 69 6e 67 |iles for| mailing|
|00001080| 0a 58 23 09 74 61 72 0a | 58 23 09 09 50 61 63 6b |.X#.tar.|X#..Pack|
|00001090| 20 74 68 65 20 61 76 61 | 69 6c 61 62 6c 65 20 66 | the ava|ilable f|
|000010a0| 69 6c 65 73 20 66 6f 72 | 20 66 74 70 27 69 6e 67 |iles for| ftp'ing|
|000010b0| 0a 58 23 20 53 45 45 20 | 41 4c 53 4f 0a 58 23 09 |.X# SEE |ALSO.X#.|
|000010c0| 6d 61 6b 65 28 31 29 2c | 20 6d 61 6b 65 6b 69 74 |make(1),| makekit|
|000010d0| 28 31 29 2c 20 74 61 72 | 28 31 29 0a 58 23 20 41 |(1), tar|(1).X# A|
|000010e0| 55 54 48 4f 52 0a 58 23 | 09 43 6f 70 79 72 69 67 |UTHOR.X#|.Copyrig|
|000010f0| 68 74 20 28 63 29 20 31 | 39 39 30 2c 20 4d 69 6b |ht (c) 1|990, Mik|
|00001100| 61 65 6c 20 52 2e 4b 2e | 20 50 61 74 65 6c 0a 58 |ael R.K.| Patel.X|
|00001110| 23 09 43 6f 6d 70 75 74 | 65 72 20 41 69 64 65 64 |#.Comput|er Aided|
|00001120| 20 44 65 73 69 67 6e 20 | 4c 61 62 6f 72 61 74 6f | Design |Laborato|
|00001130| 72 79 20 28 43 41 44 4c | 41 42 29 0a 58 23 09 44 |ry (CADL|AB).X#.D|
|00001140| 65 70 61 72 74 6d 65 6e | 74 20 6f 66 20 43 6f 6d |epartmen|t of Com|
|00001150| 70 75 74 65 72 20 61 6e | 64 20 49 6e 66 6f 72 6d |puter an|d Inform|
|00001160| 61 74 69 6f 6e 20 53 63 | 69 65 6e 63 65 0a 58 23 |ation Sc|ience.X#|
|00001170| 09 4c 69 6e 6b 6f 70 69 | 6e 67 20 55 6e 69 76 65 |.Linkopi|ng Unive|
|00001180| 72 73 69 74 79 0a 58 23 | 09 53 2d 35 38 31 20 38 |rsity.X#|.S-581 8|
|00001190| 33 20 4c 49 4e 4b 4f 50 | 49 4e 47 0a 58 23 09 53 |3 LINKOP|ING.X#.S|
|000011a0| 57 45 44 45 4e 0a 58 23 | 09 45 6d 61 69 6c 3a 20 |WEDEN.X#|.Email: |
|000011b0| 6d 69 70 40 69 64 61 2e | 6c 69 75 2e 73 65 0a 58 |mip@ida.|liu.se.X|
|000011c0| 23 20 48 49 53 54 4f 52 | 59 0a 58 23 09 53 74 61 |# HISTOR|Y.X#.Sta|
|000011d0| 72 74 65 64 20 6f 6e 3a | 20 09 20 32 33 20 4d 61 |rted on:| . 23 Ma|
|000011e0| 79 20 31 39 39 30 0a 58 | 23 09 4c 61 73 74 20 75 |y 1990.X|#.Last u|
|000011f0| 70 64 61 74 65 64 20 6f | 6e 3a 20 32 38 20 4a 75 |pdated o|n: 28 Ju|
|00001200| 6e 65 20 31 39 39 30 0a | 58 23 0a 58 0a 58 23 20 |ne 1990.|X#.X.X# |
|00001210| 43 6f 6d 70 69 6c 65 20 | 74 69 6c 65 20 66 6f 72 |Compile |tile for|
|00001220| 74 68 0a 58 66 6f 72 74 | 68 3a 0a 58 09 63 64 20 |th.Xfort|h:.X.cd |
|00001230| 73 72 63 20 3b 20 6d 61 | 6b 65 0a 58 0a 58 23 20 |src ; ma|ke.X.X# |
|00001240| 52 65 63 6f 6d 70 69 6c | 65 20 74 69 6c 65 20 66 |Recompil|e tile f|
|00001250| 6f 72 74 68 0a 58 6e 65 | 77 3a 0a 58 09 63 64 20 |orth.Xne|w:.X.cd |
|00001260| 73 72 63 20 3b 20 6d 61 | 6b 65 20 6e 65 77 0a 58 |src ; ma|ke new.X|
|00001270| 0a 58 23 20 52 65 63 6f | 6d 70 69 6c 65 20 74 69 |.X# Reco|mpile ti|
|00001280| 6c 65 20 66 6f 72 74 68 | 0a 58 6f 70 74 3a 0a 58 |le forth|.Xopt:.X|
|00001290| 09 63 64 20 73 72 63 20 | 3b 20 6d 61 6b 65 20 6f |.cd src |; make o|
|000012a0| 70 74 0a 58 0a 58 23 20 | 50 61 63 6b 73 20 74 68 |pt.X.X# |Packs th|
|000012b0| 65 20 61 76 61 69 6c 61 | 62 6c 65 20 73 6f 75 72 |e availa|ble sour|
|000012c0| 63 65 20 61 6e 64 20 64 | 6f 63 75 6d 65 6e 61 74 |ce and d|ocumenat|
|000012d0| 69 6f 6e 20 66 6f 72 20 | 6d 61 69 6c 69 6e 67 0a |ion for |mailing.|
|000012e0| 58 6b 69 74 3a 0a 58 09 | 74 6f 75 63 68 20 73 72 |Xkit:.X.|touch sr|
|000012f0| 63 2f 66 6f 72 74 68 2e | 6f 0a 58 09 74 6f 75 63 |c/forth.|o.X.touc|
|00001300| 68 20 62 69 6e 2f 66 6f | 72 74 68 0a 58 09 6d 76 |h bin/fo|rth.X.mv|
|00001310| 20 73 72 63 2f 2a 2e 6f | 20 74 6d 70 0a 58 09 6d | src/*.o| tmp.X.m|
|00001320| 76 20 62 69 6e 2f 66 6f | 72 74 68 20 74 6d 70 0a |v bin/fo|rth tmp.|
|00001330| 58 09 6d 61 6b 65 6b 69 | 74 20 2d 6e 74 69 6c 65 |X.makeki|t -ntile|
|00001340| 2e 6b 69 74 2e 20 5c 0a | 58 09 09 4d 61 6b 65 66 |.kit. \.|X..Makef|
|00001350| 69 6c 65 20 43 4f 50 59 | 49 4e 47 20 52 45 41 44 |ile COPY|ING READ|
|00001360| 4d 45 20 50 4f 52 54 49 | 4e 47 20 49 4e 53 54 41 |ME PORTI|NG INSTA|
|00001370| 4c 4c 20 5c 0a 58 09 09 | 62 69 6e 20 62 69 6e 2f |LL \.X..|bin bin/|
|00001380| 2a 20 73 72 63 20 73 72 | 63 2f 2a 20 6c 69 62 20 |* src sr|c/* lib |
|00001390| 6c 69 62 2f 2a 20 74 73 | 74 20 74 73 74 2f 2a 20 |lib/* ts|t tst/* |
|000013a0| 5c 0a 58 09 09 64 6f 63 | 20 6d 61 6e 20 6d 61 6e |\.X..doc| man man|
|000013b0| 2f 6d 61 6e 31 20 6d 61 | 6e 2f 6d 61 6e 33 20 6d |/man1 ma|n/man3 m|
|000013c0| 61 6e 2f 6d 61 6e 31 2f | 74 69 6c 65 2e 31 20 5c |an/man1/|tile.1 \|
|000013d0| 0a 58 09 09 3e 20 74 69 | 6c 65 2e 6b 69 74 2e 69 |.X..> ti|le.kit.i|
|000013e0| 6e 64 65 78 0a 58 09 6d | 76 20 74 69 6c 65 2e 6b |ndex.X.m|v tile.k|
|000013f0| 69 74 2e 2a 20 73 68 61 | 72 0a 58 09 6d 76 20 74 |it.* sha|r.X.mv t|
|00001400| 6d 70 2f 2a 2e 6f 20 73 | 72 63 0a 58 09 6d 76 20 |mp/*.o s|rc.X.mv |
|00001410| 74 6d 70 2f 66 6f 72 74 | 68 20 62 69 6e 0a 58 09 |tmp/fort|h bin.X.|
|00001420| 6d 61 6b 65 6b 69 74 20 | 2d 6e 74 69 6c 65 2e 64 |makekit |-ntile.d|
|00001430| 6f 63 2e 20 5c 0a 58 09 | 09 64 6f 63 2f 2a 20 6d |oc. \.X.|.doc/* m|
|00001440| 61 6e 2f 6d 61 6e 33 2f | 2a 20 5c 0a 58 09 09 3e |an/man3/|* \.X..>|
|00001450| 20 74 69 6c 65 2e 64 6f | 63 2e 69 6e 64 65 78 0a | tile.do|c.index.|
|00001460| 58 09 6d 76 20 74 69 6c | 65 2e 64 6f 63 2e 2a 20 |X.mv til|e.doc.* |
|00001470| 73 68 61 72 0a 58 0a 58 | 0a 58 23 20 50 61 63 6b |shar.X.X|.X# Pack|
|00001480| 73 20 74 68 65 20 61 76 | 61 69 6c 61 62 6c 65 20 |s the av|ailable |
|00001490| 73 6f 75 72 63 65 20 61 | 6e 64 20 64 6f 63 75 6d |source a|nd docum|
|000014a0| 65 6e 74 61 74 69 6f 6e | 20 66 6f 72 20 66 74 70 |entation| for ftp|
|000014b0| 27 69 6e 67 0a 58 74 61 | 72 3a 0a 58 09 74 6f 75 |'ing.Xta|r:.X.tou|
|000014c0| 63 68 20 73 72 63 2f 66 | 6f 72 74 68 2e 6f 0a 58 |ch src/f|orth.o.X|
|000014d0| 09 74 6f 75 63 68 20 62 | 69 6e 2f 66 6f 72 74 68 |.touch b|in/forth|
|000014e0| 0a 58 09 6d 76 20 73 72 | 63 2f 2a 2e 6f 20 74 6d |.X.mv sr|c/*.o tm|
|000014f0| 70 0a 58 09 6d 76 20 62 | 69 6e 2f 66 6f 72 74 68 |p.X.mv b|in/forth|
|00001500| 20 74 6d 70 0a 58 09 74 | 61 72 20 2d 63 76 66 20 | tmp.X.t|ar -cvf |
|00001510| 74 69 6c 65 2e 74 61 72 | 20 5c 0a 58 09 09 4d 61 |tile.tar| \.X..Ma|
|00001520| 6b 65 66 69 6c 65 20 43 | 4f 50 59 49 4e 47 20 52 |kefile C|OPYING R|
|00001530| 45 41 44 4d 45 20 50 4f | 52 54 49 4e 47 20 49 4e |EADME PO|RTING IN|
|00001540| 53 54 41 4c 4c 20 5c 0a | 58 09 09 62 69 6e 20 73 |STALL \.|X..bin s|
|00001550| 72 63 20 6c 69 62 20 74 | 73 74 20 64 6f 63 20 6d |rc lib t|st doc m|
|00001560| 61 6e 0a 58 09 63 6f 6d | 70 72 65 73 73 20 74 69 |an.X.com|press ti|
|00001570| 6c 65 2e 74 61 72 0a 58 | 09 6d 76 20 74 69 6c 65 |le.tar.X|.mv tile|
|00001580| 2e 74 61 72 2e 5a 20 73 | 68 61 72 0a 58 09 6d 76 |.tar.Z s|har.X.mv|
|00001590| 20 74 6d 70 2f 2a 2e 6f | 20 73 72 63 0a 58 09 6d | tmp/*.o| src.X.m|
|000015a0| 76 20 74 6d 70 2f 66 6f | 72 74 68 20 62 69 6e 0a |v tmp/fo|rth bin.|
|000015b0| 58 0a 58 0a 45 4e 44 5f | 4f 46 5f 4d 61 6b 65 66 |X.X.END_|OF_Makef|
|000015c0| 69 6c 65 0a 69 66 20 74 | 65 73 74 20 31 37 35 35 |ile.if t|est 1755|
|000015d0| 20 2d 6e 65 20 60 77 63 | 20 2d 63 20 3c 4d 61 6b | -ne `wc| -c <Mak|
|000015e0| 65 66 69 6c 65 60 3b 20 | 74 68 65 6e 0a 20 20 20 |efile`; |then. |
|000015f0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 5c 22 4d 61 | echo sh|ar: \"Ma|
|00001600| 6b 65 66 69 6c 65 5c 22 | 20 75 6e 70 61 63 6b 65 |kefile\"| unpacke|
|00001610| 64 20 77 69 74 68 20 77 | 72 6f 6e 67 20 73 69 7a |d with w|rong siz|
|00001620| 65 21 0a 66 69 0a 23 20 | 65 6e 64 20 6f 66 20 6f |e!.fi.# |end of o|
|00001630| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00001640| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 62 |.fi.if t|est -f b|
|00001650| 69 6e 2f 66 6f 72 74 68 | 69 63 6f 6e 20 2d 61 20 |in/forth|icon -a |
|00001660| 22 24 7b 31 7d 22 20 21 | 3d 20 22 2d 63 22 20 3b |"${1}" !|= "-c" ;|
|00001670| 20 74 68 65 6e 20 0a 20 | 20 65 63 68 6f 20 73 68 | then . | echo sh|
|00001680| 61 72 3a 20 57 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |ar: Will| not ove|
|00001690| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|000016a0| 20 66 69 6c 65 20 5c 22 | 62 69 6e 2f 66 6f 72 74 | file \"|bin/fort|
|000016b0| 68 69 63 6f 6e 5c 22 0a | 65 6c 73 65 0a 65 63 68 |hicon\".|else.ech|
|000016c0| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|000016d0| 6e 67 20 5c 22 62 69 6e | 2f 66 6f 72 74 68 69 63 |ng \"bin|/forthic|
|000016e0| 6f 6e 5c 22 20 5c 28 31 | 39 33 33 20 63 68 61 72 |on\" \(1|933 char|
|000016f0| 61 63 74 65 72 73 5c 29 | 0a 73 65 64 20 22 73 2f |acters\)|.sed "s/|
|00001700| 5e 58 2f 2f 22 20 3e 62 | 69 6e 2f 66 6f 72 74 68 |^X//" >b|in/forth|
|00001710| 69 63 6f 6e 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 62 |icon <<'|END_OF_b|
|00001720| 69 6e 2f 66 6f 72 74 68 | 69 63 6f 6e 27 0a 58 2f |in/forth|icon'.X/|
|00001730| 2a 20 46 6f 72 6d 61 74 | 5f 76 65 72 73 69 6f 6e |* Format|_version|
|00001740| 3d 31 2c 20 57 69 64 74 | 68 3d 36 34 2c 20 48 65 |=1, Widt|h=64, He|
|00001750| 69 67 68 74 3d 36 34 2c | 20 44 65 70 74 68 3d 31 |ight=64,| Depth=1|
|00001760| 2c 20 56 61 6c 69 64 5f | 62 69 74 73 5f 70 65 72 |, Valid_|bits_per|
|00001770| 5f 69 74 65 6d 3d 31 36 | 0a 58 20 2a 2f 0a 58 09 |_item=16|.X */.X.|
|00001780| 30 78 46 46 46 46 2c 30 | 78 46 46 46 46 2c 30 78 |0xFFFF,0|xFFFF,0x|
|00001790| 46 46 46 46 2c 30 78 46 | 46 46 46 2c 30 78 38 30 |FFFF,0xF|FFF,0x80|
|000017a0| 30 30 2c 30 78 30 30 30 | 30 2c 30 78 30 30 30 30 |00,0x000|0,0x0000|
|000017b0| 2c 30 78 30 30 30 31 2c | 0a 58 09 30 78 38 30 30 |,0x0001,|.X.0x800|
|000017c0| 30 2c 30 78 30 30 30 30 | 2c 30 78 30 30 30 30 2c |0,0x0000|,0x0000,|
|000017d0| 30 78 30 30 30 31 2c 30 | 78 38 30 30 30 2c 30 78 |0x0001,0|x8000,0x|
|000017e0| 30 30 30 30 2c 30 78 30 | 30 30 30 2c 30 78 30 30 |0000,0x0|000,0x00|
|000017f0| 30 31 2c 0a 58 09 30 78 | 38 46 46 46 2c 30 78 46 |01,.X.0x|8FFF,0xF|
|00001800| 46 46 46 2c 30 78 46 38 | 30 30 2c 30 78 30 30 30 |FFF,0xF8|00,0x000|
|00001810| 31 2c 30 78 38 38 30 30 | 2c 30 78 30 30 30 30 2c |1,0x8800|,0x0000,|
|00001820| 30 78 30 38 30 30 2c 30 | 78 30 30 30 31 2c 0a 58 |0x0800,0|x0001,.X|
|00001830| 09 30 78 38 38 30 30 2c | 30 78 30 30 30 30 2c 30 |.0x8800,|0x0000,0|
|00001840| 78 30 38 30 30 2c 30 78 | 30 30 30 31 2c 30 78 38 |x0800,0x|0001,0x8|
|00001850| 38 30 34 2c 30 78 30 30 | 30 30 2c 30 78 30 38 30 |804,0x00|00,0x080|
|00001860| 30 2c 30 78 30 30 30 31 | 2c 0a 58 09 30 78 38 38 |0,0x0001|,.X.0x88|
|00001870| 30 34 2c 30 78 30 30 30 | 30 2c 30 78 30 38 30 30 |04,0x000|0,0x0800|
|00001880| 2c 30 78 30 30 30 31 2c | 30 78 38 38 33 34 2c 30 |,0x0001,|0x8834,0|
|00001890| 78 38 39 36 30 2c 30 78 | 30 38 30 30 2c 30 78 30 |x8960,0x|0800,0x0|
|000018a0| 30 30 31 2c 0a 58 09 30 | 78 38 38 34 43 2c 30 78 |001,.X.0|x884C,0x|
|000018b0| 38 39 39 31 2c 30 78 43 | 38 30 30 2c 30 78 30 30 |8991,0xC|800,0x00|
|000018c0| 30 31 2c 30 78 38 38 34 | 34 2c 30 78 38 39 31 32 |01,0x884|4,0x8912|
|000018d0| 2c 30 78 33 45 30 30 2c | 30 78 30 30 30 31 2c 0a |,0x3E00,|0x0001,.|
|000018e0| 58 09 30 78 38 38 34 34 | 2c 30 78 38 39 31 32 2c |X.0x8844|,0x8912,|
|000018f0| 30 78 36 39 45 30 2c 30 | 78 30 30 30 31 2c 30 78 |0x69E0,0|x0001,0x|
|00001900| 38 38 34 34 2c 30 78 38 | 39 31 32 2c 30 78 32 38 |8844,0x8|912,0x28|
|00001910| 31 45 2c 30 78 30 30 30 | 31 2c 0a 58 09 30 78 38 |1E,0x000|1,.X.0x8|
|00001920| 38 34 43 2c 30 78 39 39 | 39 31 2c 30 78 43 38 30 |84C,0x99|91,0xC80|
|00001930| 31 2c 30 78 38 30 30 31 | 2c 30 78 38 38 33 34 2c |1,0x8001|,0x8834,|
|00001940| 30 78 36 39 36 30 2c 30 | 78 30 38 30 30 2c 30 78 |0x6960,0|x0800,0x|
|00001950| 34 30 30 31 2c 0a 58 09 | 30 78 38 38 30 30 2c 30 |4001,.X.|0x8800,0|
|00001960| 78 30 31 30 30 2c 30 78 | 30 38 30 30 2c 30 78 34 |x0100,0x|0800,0x4|
|00001970| 30 30 31 2c 30 78 38 38 | 30 30 2c 30 78 30 31 30 |001,0x88|00,0x010|
|00001980| 30 2c 30 78 30 38 30 30 | 2c 30 78 32 30 30 31 2c |0,0x0800|,0x2001,|
|00001990| 0a 58 09 30 78 38 38 30 | 30 2c 30 78 30 31 30 30 |.X.0x880|0,0x0100|
|000019a0| 2c 30 78 30 38 30 30 2c | 30 78 32 30 30 31 2c 30 |,0x0800,|0x2001,0|
|000019b0| 78 38 38 30 30 2c 30 78 | 30 30 30 30 2c 30 78 30 |x8800,0x|0000,0x0|
|000019c0| 38 30 30 2c 30 78 32 30 | 30 31 2c 0a 58 09 30 78 |800,0x20|01,.X.0x|
|000019d0| 38 46 46 46 2c 30 78 46 | 46 46 46 2c 30 78 46 38 |8FFF,0xF|FFF,0xF8|
|000019e0| 30 30 2c 30 78 32 30 30 | 31 2c 30 78 38 30 30 30 |00,0x200|1,0x8000|
|000019f0| 2c 30 78 30 30 30 30 2c | 30 78 30 30 30 30 2c 30 |,0x0000,|0x0000,0|
|00001a00| 78 32 30 30 31 2c 0a 58 | 09 30 78 38 30 30 30 2c |x2001,.X|.0x8000,|
|00001a10| 30 78 30 30 30 30 2c 30 | 78 30 30 30 30 2c 30 78 |0x0000,0|x0000,0x|
|00001a20| 34 30 30 31 2c 30 78 38 | 30 30 30 2c 30 78 30 30 |4001,0x8|000,0x00|
|00001a30| 30 30 2c 30 78 30 30 30 | 30 2c 30 78 34 30 30 31 |00,0x000|0,0x4001|
|00001a40| 2c 0a 58 09 30 78 38 30 | 30 30 2c 30 78 30 30 30 |,.X.0x80|00,0x000|
|00001a50| 30 2c 30 78 30 30 30 30 | 2c 30 78 38 30 30 31 2c |0,0x0000|,0x8001,|
|00001a60| 30 78 38 30 30 30 2c 30 | 78 30 30 30 30 2c 30 78 |0x8000,0|x0000,0x|
|00001a70| 30 30 30 33 2c 30 78 30 | 30 30 31 2c 0a 58 09 30 |0003,0x0|001,.X.0|
|00001a80| 78 38 30 30 30 2c 30 78 | 30 30 30 30 2c 30 78 30 |x8000,0x|0000,0x0|
|00001a90| 30 30 34 2c 30 78 30 30 | 30 31 2c 30 78 38 30 30 |004,0x00|01,0x800|
|00001aa0| 30 2c 30 78 30 30 30 30 | 2c 30 78 30 30 30 38 2c |0,0x0000|,0x0008,|
|00001ab0| 30 78 30 30 30 31 2c 0a | 58 09 30 78 38 30 30 30 |0x0001,.|X.0x8000|
|00001ac0| 2c 30 78 30 46 46 46 2c | 30 78 46 46 46 46 2c 30 |,0x0FFF,|0xFFFF,0|
|00001ad0| 78 46 30 30 31 2c 30 78 | 38 30 30 30 2c 30 78 30 |xF001,0x|8000,0x0|
|00001ae0| 38 30 30 2c 30 78 30 30 | 30 30 2c 30 78 31 30 30 |800,0x00|00,0x100|
|00001af0| 31 2c 0a 58 09 30 78 38 | 30 30 30 2c 30 78 30 38 |1,.X.0x8|000,0x08|
|00001b00| 30 30 2c 30 78 30 30 30 | 30 2c 30 78 31 30 30 31 |00,0x000|0,0x1001|
|00001b10| 2c 30 78 38 30 30 30 2c | 30 78 30 38 30 30 2c 30 |,0x8000,|0x0800,0|
|00001b20| 78 30 30 30 30 2c 30 78 | 31 30 30 31 2c 0a 58 09 |x0000,0x|1001,.X.|
|00001b30| 30 78 38 30 30 30 2c 30 | 78 30 38 30 30 2c 30 78 |0x8000,0|x0800,0x|
|00001b40| 30 30 30 30 2c 30 78 31 | 30 30 31 2c 30 78 38 30 |0000,0x1|001,0x80|
|00001b50| 30 30 2c 30 78 30 38 31 | 30 2c 30 78 30 30 30 30 |00,0x081|0,0x0000|
|00001b60| 2c 30 78 31 30 30 31 2c | 0a 58 09 30 78 38 30 30 |,0x1001,|.X.0x800|
|00001b70| 30 2c 30 78 30 38 31 30 | 2c 30 78 30 30 30 33 2c |0,0x0810|,0x0003,|
|00001b80| 30 78 39 30 30 31 2c 30 | 78 38 30 30 30 2c 30 78 |0x9001,0|x8000,0x|
|00001b90| 30 38 37 43 2c 30 78 30 | 30 30 37 2c 30 78 35 30 |087C,0x0|007,0x50|
|00001ba0| 30 31 2c 0a 58 09 30 78 | 38 30 30 30 2c 30 78 30 |01,.X.0x|8000,0x0|
|00001bb0| 38 31 30 2c 30 78 30 30 | 30 35 2c 30 78 44 30 30 |810,0x00|05,0xD00|
|00001bc0| 31 2c 30 78 38 30 30 30 | 2c 30 78 30 38 31 30 2c |1,0x8000|,0x0810,|
|00001bd0| 30 78 30 30 30 34 2c 30 | 78 35 30 30 31 2c 0a 58 |0x0004,0|x5001,.X|
|00001be0| 09 30 78 38 30 30 30 2c | 30 78 30 38 30 30 2c 30 |.0x8000,|0x0800,0|
|00001bf0| 78 30 30 30 33 2c 30 78 | 42 30 30 31 2c 30 78 38 |x0003,0x|B001,0x8|
|00001c00| 30 30 30 2c 30 78 30 38 | 30 30 2c 30 78 30 30 30 |000,0x08|00,0x000|
|00001c10| 30 2c 30 78 31 30 30 31 | 2c 0a 58 09 30 78 38 30 |0,0x1001|,.X.0x80|
|00001c20| 30 30 2c 30 78 30 38 30 | 30 2c 30 78 30 30 30 30 |00,0x080|0,0x0000|
|00001c30| 2c 30 78 31 38 30 31 2c | 30 78 38 30 30 30 2c 30 |,0x1801,|0x8000,0|
|00001c40| 78 30 38 30 30 2c 30 78 | 30 30 30 30 2c 30 78 31 |x0800,0x|0000,0x1|
|00001c50| 38 30 31 2c 0a 58 09 30 | 78 38 30 30 30 2c 30 78 |801,.X.0|x8000,0x|
|00001c60| 30 38 30 30 2c 30 78 30 | 30 30 30 2c 30 78 31 38 |0800,0x0|000,0x18|
|00001c70| 30 31 2c 30 78 38 30 30 | 30 2c 30 78 30 46 46 46 |01,0x800|0,0x0FFF|
|00001c80| 2c 30 78 46 46 46 46 2c | 30 78 46 34 30 31 2c 0a |,0xFFFF,|0xF401,.|
|00001c90| 58 09 30 78 38 30 30 30 | 2c 30 78 30 30 30 30 2c |X.0x8000|,0x0000,|
|00001ca0| 30 78 30 30 30 30 2c 30 | 78 30 32 30 31 2c 30 78 |0x0000,0|x0201,0x|
|00001cb0| 38 30 30 30 2c 30 78 30 | 30 30 30 2c 30 78 30 30 |8000,0x0|000,0x00|
|00001cc0| 30 30 2c 30 78 30 32 30 | 31 2c 0a 58 09 30 78 38 |00,0x020|1,.X.0x8|
|00001cd0| 30 30 30 2c 30 78 30 30 | 30 30 2c 30 78 30 30 30 |000,0x00|00,0x000|
|00001ce0| 30 2c 30 78 30 32 30 31 | 2c 30 78 38 31 45 30 2c |0,0x0201|,0x81E0,|
|00001cf0| 30 78 30 30 30 30 2c 30 | 78 30 30 30 30 2c 30 78 |0x0000,0|x0000,0x|
|00001d00| 30 31 30 31 2c 0a 58 09 | 30 78 38 30 33 45 2c 30 |0101,.X.|0x803E,0|
|00001d10| 78 30 30 30 30 2c 30 78 | 30 30 30 30 2c 30 78 30 |x0000,0x|0000,0x0|
|00001d20| 31 30 31 2c 30 78 38 30 | 30 33 2c 30 78 45 30 30 |101,0x80|03,0xE00|
|00001d30| 30 2c 30 78 30 30 30 30 | 2c 30 78 30 31 30 31 2c |0,0x0000|,0x0101,|
|00001d40| 0a 58 09 30 78 38 30 30 | 30 2c 30 78 33 46 30 30 |.X.0x800|0,0x3F00|
|00001d50| 2c 30 78 30 30 30 30 2c | 30 78 30 31 30 31 2c 30 |,0x0000,|0x0101,0|
|00001d60| 78 38 30 30 30 2c 30 78 | 30 33 46 30 2c 30 78 30 |x8000,0x|03F0,0x0|
|00001d70| 30 30 30 2c 30 78 30 31 | 30 31 2c 0a 58 09 30 78 |000,0x01|01,.X.0x|
|00001d80| 38 30 30 30 2c 30 78 30 | 30 33 46 2c 30 78 30 30 |8000,0x0|03F,0x00|
|00001d90| 30 30 2c 30 78 30 31 30 | 31 2c 30 78 38 30 30 30 |00,0x010|1,0x8000|
|00001da0| 2c 30 78 30 30 30 33 2c | 30 78 46 30 30 30 2c 30 |,0x0003,|0xF000,0|
|00001db0| 78 30 32 30 31 2c 0a 58 | 09 30 78 38 30 30 30 2c |x0201,.X|.0x8000,|
|00001dc0| 30 78 30 30 30 30 2c 30 | 78 33 46 38 30 2c 30 78 |0x0000,0|x3F80,0x|
|00001dd0| 30 32 30 31 2c 30 78 38 | 30 30 30 2c 30 78 30 30 |0201,0x8|000,0x00|
|00001de0| 30 30 2c 30 78 30 33 46 | 38 2c 30 78 30 34 30 31 |00,0x03F|8,0x0401|
|00001df0| 2c 0a 58 09 30 78 38 30 | 30 30 2c 30 78 30 30 30 |,.X.0x80|00,0x000|
|00001e00| 30 2c 30 78 30 30 33 46 | 2c 30 78 38 34 30 31 2c |0,0x003F|,0x8401,|
|00001e10| 30 78 38 30 30 30 2c 30 | 78 30 30 30 30 2c 30 78 |0x8000,0|x0000,0x|
|00001e20| 30 30 30 33 2c 30 78 46 | 43 30 31 2c 0a 58 09 30 |0003,0xF|C01,.X.0|
|00001e30| 78 38 30 30 30 2c 30 78 | 30 30 30 30 2c 30 78 30 |x8000,0x|0000,0x0|
|00001e40| 30 30 30 2c 30 78 33 34 | 30 31 2c 30 78 38 30 30 |000,0x34|01,0x800|
|00001e50| 30 2c 30 78 30 30 30 30 | 2c 30 78 30 30 30 30 2c |0,0x0000|,0x0000,|
|00001e60| 30 78 31 43 30 31 2c 0a | 58 09 30 78 38 30 30 30 |0x1C01,.|X.0x8000|
|00001e70| 2c 30 78 30 30 30 30 2c | 30 78 30 30 30 30 2c 30 |,0x0000,|0x0000,0|
|00001e80| 78 30 30 30 31 2c 30 78 | 38 30 30 30 2c 30 78 30 |x0001,0x|8000,0x0|
|00001e90| 30 30 30 2c 30 78 30 30 | 30 30 2c 30 78 30 30 30 |000,0x00|00,0x000|
|00001ea0| 31 2c 0a 58 09 30 78 38 | 30 30 30 2c 30 78 30 30 |1,.X.0x8|000,0x00|
|00001eb0| 30 30 2c 30 78 30 30 30 | 30 2c 30 78 30 30 30 31 |00,0x000|0,0x0001|
|00001ec0| 2c 30 78 46 46 46 46 2c | 30 78 46 46 46 46 2c 30 |,0xFFFF,|0xFFFF,0|
|00001ed0| 78 46 46 46 46 2c 30 78 | 46 46 46 46 0a 45 4e 44 |xFFFF,0x|FFFF.END|
|00001ee0| 5f 4f 46 5f 62 69 6e 2f | 66 6f 72 74 68 69 63 6f |_OF_bin/|forthico|
|00001ef0| 6e 0a 69 66 20 74 65 73 | 74 20 31 39 33 33 20 2d |n.if tes|t 1933 -|
|00001f00| 6e 65 20 60 77 63 20 2d | 63 20 3c 62 69 6e 2f 66 |ne `wc -|c <bin/f|
|00001f10| 6f 72 74 68 69 63 6f 6e | 60 3b 20 74 68 65 6e 0a |orthicon|`; then.|
|00001f20| 20 20 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 5c | echo| shar: \|
|00001f30| 22 62 69 6e 2f 66 6f 72 | 74 68 69 63 6f 6e 5c 22 |"bin/for|thicon\"|
|00001f40| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|00001f50| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 23 20 |rong siz|e!.fi.# |
|00001f60| 65 6e 64 20 6f 66 20 6f | 76 65 72 77 72 69 74 69 |end of o|verwriti|
|00001f70| 6e 67 20 63 68 65 63 6b | 0a 66 69 0a 69 66 20 74 |ng check|.fi.if t|
|00001f80| 65 73 74 20 2d 66 20 6c | 69 62 2f 62 69 74 66 69 |est -f l|ib/bitfi|
|00001f90| 65 6c 64 73 2e 66 38 33 | 20 2d 61 20 22 24 7b 31 |elds.f83| -a "${1|
|00001fa0| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00001fb0| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n . ech|o shar: |
|00001fc0| 57 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |Will not| over-wr|
|00001fd0| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00001fe0| 65 20 5c 22 6c 69 62 2f | 62 69 74 66 69 65 6c 64 |e \"lib/|bitfield|
|00001ff0| 73 2e 66 38 33 5c 22 0a | 65 6c 73 65 0a 65 63 68 |s.f83\".|else.ech|
|00002000| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|00002010| 6e 67 20 5c 22 6c 69 62 | 2f 62 69 74 66 69 65 6c |ng \"lib|/bitfiel|
|00002020| 64 73 2e 66 38 33 5c 22 | 20 5c 28 32 34 38 35 20 |ds.f83\"| \(2485 |
|00002030| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|00002040| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 6c 69 62 2f 62 | "s/^X//|" >lib/b|
|00002050| 69 74 66 69 65 6c 64 73 | 2e 66 38 33 20 3c 3c 27 |itfields|.f83 <<'|
|00002060| 45 4e 44 5f 4f 46 5f 6c | 69 62 2f 62 69 74 66 69 |END_OF_l|ib/bitfi|
|00002070| 65 6c 64 73 2e 66 38 33 | 27 0a 58 5c 0a 58 5c 20 |elds.f83|'.X\.X\ |
|00002080| 20 42 49 54 20 46 49 45 | 4c 44 20 4d 41 4e 41 47 | BIT FIE|LD MANAG|
|00002090| 45 4d 45 4e 54 0a 58 5c | 0a 58 5c 20 20 43 6f 70 |EMENT.X\|.X\ Cop|
|000020a0| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 38 38 2d |yright (|c) 1988-|
|000020b0| 31 39 39 30 20 62 79 20 | 4d 69 6b 61 65 6c 20 52 |1990 by |Mikael R|
|000020c0| 2e 4b 2e 20 50 61 74 65 | 6c 0a 58 5c 0a 58 5c 20 |.K. Pate|l.X\.X\ |
|000020d0| 20 43 6f 6d 70 75 74 65 | 72 20 41 69 64 65 64 20 | Compute|r Aided |
|000020e0| 44 65 73 69 67 6e 20 4c | 61 62 6f 72 61 74 6f 72 |Design L|aborator|
|000020f0| 79 20 28 43 41 44 4c 41 | 42 29 0a 58 5c 20 20 44 |y (CADLA|B).X\ D|
|00002100| 65 70 61 72 74 6d 65 6e | 74 20 6f 66 20 43 6f 6d |epartmen|t of Com|
|00002110| 70 75 74 65 72 20 61 6e | 64 20 49 6e 66 6f 72 6d |puter an|d Inform|
|00002120| 61 74 69 6f 6e 20 53 63 | 69 65 6e 63 65 0a 58 5c |ation Sc|ience.X\|
|00002130| 20 20 4c 69 6e 6b 6f 70 | 69 6e 67 20 55 6e 69 76 | Linkop|ing Univ|
|00002140| 65 72 73 69 74 79 0a 58 | 5c 20 20 53 2d 35 38 31 |ersity.X|\ S-581|
|00002150| 20 38 33 20 4c 49 4e 4b | 4f 50 49 4e 47 0a 58 5c | 83 LINK|OPING.X\|
|00002160| 20 20 53 57 45 44 45 4e | 0a 58 5c 0a 58 5c 20 20 | SWEDEN|.X\.X\ |
|00002170| 45 6d 61 69 6c 3a 20 6d | 69 70 40 69 64 61 2e 6c |Email: m|ip@ida.l|
|00002180| 69 75 2e 73 65 0a 58 5c | 0a 58 5c 20 20 53 74 61 |iu.se.X\|.X\ Sta|
|00002190| 72 74 65 64 20 6f 6e 3a | 20 33 30 20 4a 75 6e 65 |rted on:| 30 June|
|000021a0| 20 31 39 38 38 0a 58 5c | 0a 58 5c 20 20 4c 61 73 | 1988.X\|.X\ Las|
|000021b0| 74 20 75 70 64 61 74 65 | 64 20 6f 6e 3a 20 32 36 |t update|d on: 26|
|000021c0| 20 4a 75 6e 65 20 31 39 | 39 30 0a 58 5c 0a 58 5c | June 19|90.X\.X\|
|000021d0| 20 20 44 65 70 65 6e 64 | 65 6e 63 69 65 73 3a 0a | Depend|encies:.|
|000021e0| 58 5c 20 20 20 20 20 20 | 20 28 66 6f 72 74 68 29 |X\ | (forth)|
|000021f0| 20 66 6f 72 74 68 0a 58 | 5c 0a 58 5c 20 20 44 65 | forth.X|\.X\ De|
|00002200| 73 63 72 69 70 74 69 6f | 6e 3a 0a 58 5c 20 20 20 |scriptio|n:.X\ |
|00002210| 20 20 20 20 46 6f 72 74 | 68 20 6c 65 76 65 6c 20 | Fort|h level |
|00002220| 64 65 66 69 6e 69 74 69 | 6f 6e 73 20 66 6f 72 20 |definiti|ons for |
|00002230| 62 69 74 20 66 69 65 6c | 64 20 6d 61 6e 69 70 75 |bit fiel|d manipu|
|00002240| 6c 61 74 69 6f 6e 2e 20 | 42 69 74 20 66 69 65 6c |lation. |Bit fiel|
|00002250| 64 73 20 61 72 65 0a 58 | 5c 20 20 20 20 20 20 20 |ds are.X|\ |
|00002260| 65 78 74 72 61 63 74 65 | 64 20 61 6e 64 20 61 6c |extracte|d and al|
|00002270| 74 65 72 65 64 20 6f 6e | 20 74 68 65 20 74 6f 70 |tered on| the top|
|00002280| 20 6f 66 20 73 74 61 63 | 6b 20 65 6c 65 6d 65 6e | of stac|k elemen|
|00002290| 74 2e 20 41 64 64 69 74 | 69 6f 6e 61 6c 0a 58 5c |t. Addit|ional.X\|
|000022a0| 20 20 20 20 20 20 20 66 | 75 6e 63 74 69 6f 6e 73 | f|unctions|
|000022b0| 20 61 72 65 20 66 6f 72 | 20 62 69 74 20 61 6e 64 | are for| bit and|
|000022c0| 20 66 69 65 6c 64 20 61 | 63 63 65 73 73 20 61 72 | field a|ccess ar|
|000022d0| 65 20 61 6c 73 6f 20 70 | 72 6f 76 69 64 65 64 2e |e also p|rovided.|
|000022e0| 0a 58 5c 0a 58 5c 20 20 | 43 6f 70 79 69 6e 67 3a |.X\.X\ |Copying:|
|000022f0| 0a 58 5c 20 20 20 20 20 | 20 20 54 68 69 73 20 70 |.X\ | This p|
|00002300| 72 6f 67 72 61 6d 20 69 | 73 20 66 72 65 65 20 73 |rogram i|s free s|
|00002310| 6f 66 74 77 61 72 65 3b | 20 79 6f 75 20 63 61 6e |oftware;| you can|
|00002320| 20 72 65 64 69 73 74 72 | 69 62 75 74 65 20 69 74 | redistr|ibute it|
|00002330| 20 61 6e 64 5c 6f 72 20 | 6d 6f 64 69 66 79 0a 58 | and\or |modify.X|
|00002340| 5c 20 20 20 20 20 20 20 | 69 74 20 75 6e 64 65 72 |\ |it under|
|00002350| 20 74 68 65 20 74 65 72 | 6d 73 20 6f 66 20 74 68 | the ter|ms of th|
|00002360| 65 20 47 4e 55 20 47 65 | 6e 65 72 61 6c 20 50 75 |e GNU Ge|neral Pu|
|00002370| 62 6c 69 63 20 4c 69 63 | 65 6e 73 65 20 61 73 20 |blic Lic|ense as |
|00002380| 70 75 62 6c 69 73 68 65 | 64 20 62 79 0a 58 5c 20 |publishe|d by.X\ |
|00002390| 20 20 20 20 20 20 74 68 | 65 20 46 72 65 65 20 53 | th|e Free S|
|000023a0| 6f 66 74 77 61 72 65 20 | 46 6f 75 6e 64 61 74 69 |oftware |Foundati|
|000023b0| 6f 6e 3b 20 65 69 74 68 | 65 72 20 76 65 72 73 69 |on; eith|er versi|
|000023c0| 6f 6e 20 31 2c 20 6f 72 | 20 28 61 74 20 79 6f 75 |on 1, or| (at you|
|000023d0| 72 20 6f 70 74 69 6f 6e | 29 0a 58 5c 20 20 20 20 |r option|).X\ |
|000023e0| 20 20 20 61 6e 79 20 6c | 61 74 65 72 20 76 65 72 | any l|ater ver|
|000023f0| 73 69 6f 6e 2e 0a 58 5c | 0a 58 5c 20 20 20 20 20 |sion..X\|.X\ |
|00002400| 20 20 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 | This p|rogram i|
|00002410| 73 20 64 69 73 74 72 69 | 62 75 74 65 64 20 69 6e |s distri|buted in|
|00002420| 20 74 68 65 20 68 6f 70 | 65 20 74 68 61 74 20 69 | the hop|e that i|
|00002430| 74 20 77 69 6c 6c 20 62 | 65 20 75 73 65 66 75 6c |t will b|e useful|
|00002440| 2c 0a 58 5c 20 20 20 20 | 20 20 20 62 75 74 20 57 |,.X\ | but W|
|00002450| 49 54 48 4f 55 54 20 41 | 4e 59 20 57 41 52 52 41 |ITHOUT A|NY WARRA|
|00002460| 4e 54 59 3b 20 77 69 74 | 68 6f 75 74 20 65 76 65 |NTY; wit|hout eve|
|00002470| 6e 20 74 68 65 20 69 6d | 70 6c 69 65 64 20 77 61 |n the im|plied wa|
|00002480| 72 72 61 6e 74 79 20 6f | 66 0a 58 5c 20 20 20 20 |rranty o|f.X\ |
|00002490| 20 20 20 4d 45 52 43 48 | 41 4e 54 41 42 49 4c 49 | MERCH|ANTABILI|
|000024a0| 54 59 20 6f 72 20 46 49 | 54 4e 45 53 53 20 46 4f |TY or FI|TNESS FO|
|000024b0| 52 20 41 20 50 41 52 54 | 49 43 55 4c 41 52 20 50 |R A PART|ICULAR P|
|000024c0| 55 52 50 4f 53 45 2e 20 | 20 53 65 65 20 74 68 65 |URPOSE. | See the|
|000024d0| 0a 58 5c 20 20 20 20 20 | 20 20 47 4e 55 20 47 65 |.X\ | GNU Ge|
|000024e0| 6e 65 72 61 6c 20 50 75 | 62 6c 69 63 20 4c 69 63 |neral Pu|blic Lic|
|000024f0| 65 6e 73 65 20 66 6f 72 | 20 6d 6f 72 65 20 64 65 |ense for| more de|
|00002500| 74 61 69 6c 73 2e 0a 58 | 5c 0a 58 5c 20 20 20 20 |tails..X|\.X\ |
|00002510| 20 20 20 59 6f 75 20 73 | 68 6f 75 6c 64 20 68 61 | You s|hould ha|
|00002520| 76 65 20 72 65 63 65 69 | 76 65 64 20 61 20 63 6f |ve recei|ved a co|
|00002530| 70 79 20 6f 66 20 74 68 | 65 20 47 4e 55 20 47 65 |py of th|e GNU Ge|
|00002540| 6e 65 72 61 6c 20 50 75 | 62 6c 69 63 20 4c 69 63 |neral Pu|blic Lic|
|00002550| 65 6e 73 65 0a 58 5c 20 | 20 20 20 20 20 20 61 6c |ense.X\ | al|
|00002560| 6f 6e 67 20 77 69 74 68 | 20 74 68 69 73 20 70 72 |ong with| this pr|
|00002570| 6f 67 72 61 6d 3b 20 73 | 65 65 20 74 68 65 20 66 |ogram; s|ee the f|
|00002580| 69 6c 65 20 43 4f 50 59 | 49 4e 47 2e 20 20 49 66 |ile COPY|ING. If|
|00002590| 20 6e 6f 74 2c 20 77 72 | 69 74 65 20 74 6f 0a 58 | not, wr|ite to.X|
|000025a0| 5c 20 20 20 20 20 20 20 | 74 68 65 20 46 72 65 65 |\ |the Free|
|000025b0| 20 53 6f 66 74 77 61 72 | 65 20 46 6f 75 6e 64 61 | Softwar|e Founda|
|000025c0| 74 69 6f 6e 2c 20 36 37 | 35 20 4d 61 73 73 20 41 |tion, 67|5 Mass A|
|000025d0| 76 65 2c 20 43 61 6d 62 | 72 69 64 67 65 2c 20 4d |ve, Camb|ridge, M|
|000025e0| 41 20 30 32 31 33 39 2c | 20 55 53 41 2e 20 0a 58 |A 02139,| USA. .X|
|000025f0| 0a 58 2e 28 20 4c 6f 61 | 64 69 6e 67 20 42 69 74 |.X.( Loa|ding Bit|
|00002600| 20 46 69 65 6c 64 20 64 | 65 66 69 6e 69 74 69 6f | Field d|efinitio|
|00002610| 6e 73 2e 2e 2e 29 20 63 | 72 0a 58 0a 58 23 69 66 |ns...) c|r.X.X#if|
|00002620| 75 6e 64 65 66 20 62 40 | 20 20 28 20 43 68 65 63 |undef b@| ( Chec|
|00002630| 6b 20 69 66 20 62 69 74 | 20 61 6e 64 20 66 69 65 |k if bit| and fie|
|00002640| 6c 64 20 61 63 63 65 73 | 73 20 61 72 65 20 6e 6f |ld acces|s are no|
|00002650| 74 20 73 75 70 70 6f 72 | 74 65 64 20 62 79 20 74 |t suppor|ted by t|
|00002660| 68 65 20 6b 65 72 6e 65 | 6c 29 0a 58 0a 58 3a 20 |he kerne|l).X.X: |
|00002670| 62 40 20 28 20 78 20 70 | 6f 73 20 2d 2d 20 62 6f |b@ ( x p|os -- bo|
|00002680| 6f 6c 29 0a 58 20 20 31 | 20 73 77 61 70 20 3c 3c |ol).X 1| swap <<|
|00002690| 20 61 6e 64 20 62 6f 6f | 6c 65 61 6e 0a 58 3b 0a | and boo|lean.X;.|
|000026a0| 58 0a 58 3a 20 62 21 20 | 28 20 78 20 79 20 70 6f |X.X: b! |( x y po|
|000026b0| 73 20 2d 2d 20 7a 29 0a | 58 20 20 3e 72 20 31 20 |s -- z).|X >r 1 |
|000026c0| 74 75 63 6b 0a 58 20 20 | 72 40 20 3c 3c 20 6e 6f |tuck.X |r@ << no|
|000026d0| 74 20 61 6e 64 09 0a 58 | 20 20 73 77 61 70 20 72 |t and..X| swap r|
|000026e0| 6f 74 20 61 6e 64 0a 58 | 20 20 72 3e 20 3c 3c 20 |ot and.X| r> << |
|000026f0| 6f 72 09 09 0a 58 3b 20 | 20 0a 58 0a 58 3a 20 66 |or...X; | .X.X: f|
|00002700| 40 20 28 20 78 20 70 6f | 73 20 77 69 64 74 68 20 |@ ( x po|s width |
|00002710| 2d 2d 20 79 29 0a 58 20 | 20 3e 72 20 3e 3e 20 2d |-- y).X | >r >> -|
|00002720| 31 20 72 3e 20 3c 3c 20 | 6e 6f 74 20 61 6e 64 0a |1 r> << |not and.|
|00002730| 58 3b 0a 58 0a 58 3a 20 | 3c 66 40 20 28 20 78 20 |X;.X.X: |<f@ ( x |
|00002740| 70 6f 73 20 77 69 64 74 | 68 20 2d 2d 20 79 29 0a |pos widt|h -- y).|
|00002750| 58 20 20 3e 72 20 3e 3e | 20 2d 31 20 72 40 20 3c |X >r >>| -1 r@ <|
|00002760| 3c 20 6e 6f 74 20 61 6e | 64 0a 58 20 20 64 75 70 |< not an|d.X dup|
|00002770| 20 31 20 72 40 20 31 2d | 20 3c 3c 20 61 6e 64 0a | 1 r@ 1-| << and.|
|00002780| 58 20 20 69 66 20 2d 31 | 20 72 3e 20 3c 3c 20 6f |X if -1| r> << o|
|00002790| 72 0a 58 20 20 65 6c 73 | 65 20 72 3e 20 64 72 6f |r.X els|e r> dro|
|000027a0| 70 20 74 68 65 6e 0a 58 | 3b 0a 58 0a 58 3a 20 66 |p then.X|;.X.X: f|
|000027b0| 21 20 28 20 78 20 79 20 | 70 6f 73 20 77 69 64 74 |! ( x y |pos widt|
|000027c0| 68 20 2d 2d 20 7a 29 0a | 58 20 20 73 77 61 70 20 |h -- z).|X swap |
|000027d0| 3e 72 20 2d 31 20 73 77 | 61 70 20 3c 3c 20 6e 6f |>r -1 sw|ap << no|
|000027e0| 74 20 74 75 63 6b 0a 58 | 20 20 72 40 20 3c 3c 20 |t tuck.X| r@ << |
|000027f0| 6e 6f 74 20 61 6e 64 20 | 20 20 09 09 0a 58 20 20 |not and | ...X |
|00002800| 73 77 61 70 20 72 6f 74 | 20 61 6e 64 0a 58 20 20 |swap rot| and.X |
|00002810| 72 3e 20 3c 3c 20 6f 72 | 20 09 09 09 0a 58 3b 0a |r> << or| ....X;.|
|00002820| 58 0a 58 23 74 68 65 6e | 0a 58 0a 58 76 6f 63 61 |X.X#then|.X.Xvoca|
|00002830| 62 75 6c 61 72 79 20 62 | 69 74 66 69 65 6c 64 73 |bulary b|itfields|
|00002840| 0a 58 0a 58 62 69 74 66 | 69 65 6c 64 73 20 64 65 |.X.Xbitf|ields de|
|00002850| 66 69 6e 69 74 69 6f 6e | 73 0a 58 0a 58 30 20 20 |finition|s.X.X0 |
|00002860| 20 20 66 69 65 6c 64 20 | 2b 77 69 64 74 68 20 28 | field |+width (|
|00002870| 20 62 69 74 73 20 2d 2d | 20 77 69 64 74 68 29 20 | bits --| width) |
|00002880| 70 72 69 76 61 74 65 0a | 58 63 65 6c 6c 20 66 69 |private.|Xcell fi|
|00002890| 65 6c 64 20 2b 70 6f 73 | 20 28 20 62 69 74 73 20 |eld +pos| ( bits |
|000028a0| 2d 2d 20 70 6f 73 29 20 | 70 72 69 76 61 74 65 0a |-- pos) |private.|
|000028b0| 58 0a 58 3a 20 62 69 74 | 66 69 65 6c 64 2e 74 79 |X.X: bit|field.ty|
|000028c0| 70 65 20 28 20 2d 2d 20 | 70 6f 73 30 29 0a 58 20 |pe ( -- |pos0).X |
|000028d0| 20 63 72 65 61 74 65 20 | 30 0a 58 64 6f 65 73 3e | create |0.Xdoes>|
|000028e0| 20 28 20 62 69 74 66 69 | 65 6c 64 20 2d 2d 20 29 | ( bitfi|eld -- )|
|000028f0| 0a 58 20 20 64 72 6f 70 | 20 76 61 72 69 61 62 6c |.X drop| variabl|
|00002900| 65 0a 58 3b 0a 58 0a 58 | 3a 20 62 69 74 73 20 28 |e.X;.X.X|: bits (|
|00002910| 20 70 6f 73 31 20 77 69 | 64 74 68 20 2d 2d 20 70 | pos1 wi|dth -- p|
|00002920| 6f 73 32 29 0a 58 20 20 | 63 72 65 61 74 65 20 64 |os2).X |create d|
|00002930| 75 70 20 2c 20 6f 76 65 | 72 20 2c 20 2b 0a 58 64 |up , ove|r , +.Xd|
|00002940| 6f 65 73 3e 20 28 20 62 | 69 74 73 20 2d 2d 20 70 |oes> ( b|its -- p|
|00002950| 6f 73 20 77 69 64 74 68 | 29 0a 58 20 20 32 40 0a |os width|).X 2@.|
|00002960| 58 3b 0a 58 0a 58 3a 20 | 66 69 65 6c 64 20 28 20 |X;.X.X: |field ( |
|00002970| 77 69 64 74 68 20 2d 2d | 20 29 0a 58 20 20 63 72 |width --| ).X cr|
|00002980| 65 61 74 65 20 2c 0a 58 | 64 6f 65 73 3e 20 28 20 |eate ,.X|does> ( |
|00002990| 66 69 65 6c 64 20 2d 2d | 20 29 0a 58 20 20 40 20 |field --| ).X @ |
|000029a0| 62 69 74 73 0a 58 3b 20 | 70 72 69 76 61 74 65 0a |bits.X; |private.|
|000029b0| 58 20 20 20 20 0a 58 28 | 20 49 6e 69 74 69 61 6c |X .X(| Initial|
|000029c0| 20 73 65 74 20 6f 66 20 | 62 69 74 20 66 69 65 6c | set of |bit fiel|
|000029d0| 64 20 6e 61 6d 65 73 29 | 0a 58 31 20 20 66 69 65 |d names)|.X1 fie|
|000029e0| 6c 64 20 62 69 74 20 20 | 20 20 28 20 2d 2d 20 29 |ld bit | ( -- )|
|000029f0| 0a 58 34 20 20 66 69 65 | 6c 64 20 6e 69 62 62 6c |.X4 fie|ld nibbl|
|00002a00| 65 20 28 20 2d 2d 20 29 | 0a 58 38 20 20 66 69 65 |e ( -- )|.X8 fie|
|00002a10| 6c 64 20 62 79 74 65 20 | 20 20 28 20 2d 2d 20 29 |ld byte | ( -- )|
|00002a20| 0a 58 31 36 20 66 69 65 | 6c 64 20 77 6f 72 64 20 |.X16 fie|ld word |
|00002a30| 20 20 28 20 2d 2d 20 29 | 0a 58 0a 58 3a 20 62 69 | ( -- )|.X.X: bi|
|00002a40| 74 66 69 65 6c 64 2e 65 | 6e 64 20 28 20 70 6f 73 |tfield.e|nd ( pos|
|00002a50| 33 20 2d 2d 20 29 0a 58 | 20 20 33 32 20 3e 20 61 |3 -- ).X| 32 > a|
|00002a60| 62 6f 72 74 22 20 62 69 | 74 66 69 65 6c 64 2e 65 |bort" bi|tfield.e|
|00002a70| 6e 64 3a 20 77 61 72 6e | 69 6e 67 20 74 6f 6f 20 |nd: warn|ing too |
|00002a80| 6d 61 6e 79 20 66 69 65 | 6c 64 73 22 0a 58 3b 0a |many fie|lds".X;.|
|00002a90| 58 0a 58 66 6f 72 74 68 | 20 6f 6e 6c 79 0a 45 4e |X.Xforth| only.EN|
|00002aa0| 44 5f 4f 46 5f 6c 69 62 | 2f 62 69 74 66 69 65 6c |D_OF_lib|/bitfiel|
|00002ab0| 64 73 2e 66 38 33 0a 69 | 66 20 74 65 73 74 20 32 |ds.f83.i|f test 2|
|00002ac0| 34 38 35 20 2d 6e 65 20 | 60 77 63 20 2d 63 20 3c |485 -ne |`wc -c <|
|00002ad0| 6c 69 62 2f 62 69 74 66 | 69 65 6c 64 73 2e 66 38 |lib/bitf|ields.f8|
|00002ae0| 33 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |3`; then|. ech|
|00002af0| 6f 20 73 68 61 72 3a 20 | 5c 22 6c 69 62 2f 62 69 |o shar: |\"lib/bi|
|00002b00| 74 66 69 65 6c 64 73 2e | 66 38 33 5c 22 20 75 6e |tfields.|f83\" un|
|00002b10| 70 61 63 6b 65 64 20 77 | 69 74 68 20 77 72 6f 6e |packed w|ith wron|
|00002b20| 67 20 73 69 7a 65 21 0a | 66 69 0a 23 20 65 6e 64 |g size!.|fi.# end|
|00002b30| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00002b40| 63 68 65 63 6b 0a 66 69 | 0a 69 66 20 74 65 73 74 |check.fi|.if test|
|00002b50| 20 2d 66 20 6c 69 62 2f | 62 6c 6f 63 6b 73 2e 66 | -f lib/|blocks.f|
|00002b60| 38 33 20 2d 61 20 22 24 | 7b 31 7d 22 20 21 3d 20 |83 -a "$|{1}" != |
|00002b70| 22 2d 63 22 20 3b 20 74 | 68 65 6e 20 0a 20 20 65 |"-c" ; t|hen . e|
|00002b80| 63 68 6f 20 73 68 61 72 | 3a 20 57 69 6c 6c 20 6e |cho shar|: Will n|
|00002b90| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00002ba0| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 6c 69 |isting f|ile \"li|
|00002bb0| 62 2f 62 6c 6f 63 6b 73 | 2e 66 38 33 5c 22 0a 65 |b/blocks|.f83\".e|
|00002bc0| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|00002bd0| 78 74 72 61 63 74 69 6e | 67 20 5c 22 6c 69 62 2f |xtractin|g \"lib/|
|00002be0| 62 6c 6f 63 6b 73 2e 66 | 38 33 5c 22 20 5c 28 32 |blocks.f|83\" \(2|
|00002bf0| 30 38 33 20 63 68 61 72 | 61 63 74 65 72 73 5c 29 |083 char|acters\)|
|00002c00| 0a 73 65 64 20 22 73 2f | 5e 58 2f 2f 22 20 3e 6c |.sed "s/|^X//" >l|
|00002c10| 69 62 2f 62 6c 6f 63 6b | 73 2e 66 38 33 20 3c 3c |ib/block|s.f83 <<|
|00002c20| 27 45 4e 44 5f 4f 46 5f | 6c 69 62 2f 62 6c 6f 63 |'END_OF_|lib/bloc|
|00002c30| 6b 73 2e 66 38 33 27 0a | 58 5c 0a 58 5c 20 20 43 |ks.f83'.|X\.X\ C|
|00002c40| 4f 44 45 20 42 4c 4f 43 | 4b 20 44 45 46 49 4e 49 |ODE BLOC|K DEFINI|
|00002c50| 54 49 4f 4e 53 0a 58 5c | 0a 58 5c 20 20 43 6f 70 |TIONS.X\|.X\ Cop|
|00002c60| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 38 38 2d |yright (|c) 1988-|
|00002c70| 31 39 39 30 20 62 79 20 | 4d 69 6b 61 65 6c 20 52 |1990 by |Mikael R|
|00002c80| 2e 4b 2e 20 50 61 74 65 | 6c 0a 58 5c 0a 58 5c 20 |.K. Pate|l.X\.X\ |
|00002c90| 20 43 6f 6d 70 75 74 65 | 72 20 41 69 64 65 64 20 | Compute|r Aided |
|00002ca0| 44 65 73 69 67 6e 20 4c | 61 62 6f 72 61 74 6f 72 |Design L|aborator|
|00002cb0| 79 20 28 43 41 44 4c 41 | 42 29 0a 58 5c 20 20 44 |y (CADLA|B).X\ D|
|00002cc0| 65 70 61 72 74 6d 65 6e | 74 20 6f 66 20 43 6f 6d |epartmen|t of Com|
|00002cd0| 70 75 74 65 72 20 61 6e | 64 20 49 6e 66 6f 72 6d |puter an|d Inform|
|00002ce0| 61 74 69 6f 6e 20 53 63 | 69 65 6e 63 65 0a 58 5c |ation Sc|ience.X\|
|00002cf0| 20 20 4c 69 6e 6b 6f 70 | 69 6e 67 20 55 6e 69 76 | Linkop|ing Univ|
|00002d00| 65 72 73 69 74 79 0a 58 | 5c 20 20 53 2d 35 38 31 |ersity.X|\ S-581|
|00002d10| 20 38 33 20 4c 49 4e 4b | 4f 50 49 4e 47 0a 58 5c | 83 LINK|OPING.X\|
|00002d20| 20 20 53 57 45 44 45 4e | 0a 58 5c 0a 58 5c 20 20 | SWEDEN|.X\.X\ |
|00002d30| 45 6d 61 69 6c 3a 20 6d | 69 70 40 69 64 61 2e 6c |Email: m|ip@ida.l|
|00002d40| 69 75 2e 73 65 0a 58 5c | 0a 58 5c 20 20 53 74 61 |iu.se.X\|.X\ Sta|
|00002d50| 72 74 65 64 20 6f 6e 3a | 20 33 30 20 4a 75 6e 65 |rted on:| 30 June|
|00002d60| 20 31 39 38 38 0a 58 5c | 0a 58 5c 20 20 4c 61 73 | 1988.X\|.X\ Las|
|00002d70| 74 20 75 70 64 61 74 65 | 64 20 6f 6e 3a 20 32 38 |t update|d on: 28|
|00002d80| 20 4a 75 6e 65 20 31 39 | 39 30 0a 58 5c 0a 58 5c | June 19|90.X\.X\|
|00002d90| 20 20 44 65 70 65 6e 64 | 65 6e 63 69 65 73 3a 0a | Depend|encies:.|
|00002da0| 58 5c 20 20 20 20 20 20 | 20 28 66 6f 72 74 68 29 |X\ | (forth)|
|00002db0| 20 66 6f 72 74 68 2c 20 | 63 6f 6d 70 69 6c 65 72 | forth, |compiler|
|00002dc0| 0a 58 5c 0a 58 5c 20 20 | 44 65 73 63 72 69 70 74 |.X\.X\ |Descript|
|00002dd0| 69 6f 6e 3a 0a 58 5c 20 | 20 20 20 20 20 20 43 6f |ion:.X\ | Co|
|00002de0| 64 65 20 62 6c 6f 63 6b | 73 20 61 73 20 61 6e 20 |de block|s as an |
|00002df0| 61 6c 74 65 72 6e 61 74 | 69 76 65 20 74 6f 20 70 |alternat|ive to p|
|00002e00| 61 73 73 69 6e 67 20 66 | 75 6e 63 74 69 6f 6e 73 |assing f|unctions|
|00002e10| 20 61 73 20 70 61 72 61 | 6d 65 74 65 72 73 2e 0a | as para|meters..|
|00002e20| 58 5c 20 20 20 20 20 20 | 20 4d 61 6a 6f 72 20 75 |X\ | Major u|
|00002e30| 73 61 67 65 20 66 6f 72 | 20 69 74 65 72 61 74 6f |sage for| iterato|
|00002e40| 72 20 66 75 6e 63 74 69 | 6f 6e 20 73 75 63 68 20 |r functi|on such |
|00002e50| 61 73 20 22 6d 61 70 22 | 20 61 6e 64 20 22 3f 6d |as "map"| and "?m|
|00002e60| 61 70 22 2e 0a 58 5c 0a | 58 5c 20 20 43 6f 70 79 |ap"..X\.|X\ Copy|
|00002e70| 69 6e 67 3a 0a 58 5c 20 | 20 20 20 20 20 20 54 68 |ing:.X\ | Th|
|00002e80| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 66 72 |is progr|am is fr|
|00002e90| 65 65 20 73 6f 66 74 77 | 61 72 65 3b 20 79 6f 75 |ee softw|are; you|
|00002ea0| 20 63 61 6e 20 72 65 64 | 69 73 74 72 69 62 75 74 | can red|istribut|
|00002eb0| 65 20 69 74 20 61 6e 64 | 5c 6f 72 20 6d 6f 64 69 |e it and|\or modi|
|00002ec0| 66 79 0a 58 5c 20 20 20 | 20 20 20 20 69 74 20 75 |fy.X\ | it u|
|00002ed0| 6e 64 65 72 20 74 68 65 | 20 74 65 72 6d 73 20 6f |nder the| terms o|
|00002ee0| 66 20 74 68 65 20 47 4e | 55 20 47 65 6e 65 72 61 |f the GN|U Genera|
|00002ef0| 6c 20 50 75 62 6c 69 63 | 20 4c 69 63 65 6e 73 65 |l Public| License|
|00002f00| 20 61 73 20 70 75 62 6c | 69 73 68 65 64 20 62 79 | as publ|ished by|
|00002f10| 0a 58 5c 20 20 20 20 20 | 20 20 74 68 65 20 46 72 |.X\ | the Fr|
|00002f20| 65 65 20 53 6f 66 74 77 | 61 72 65 20 46 6f 75 6e |ee Softw|are Foun|
|00002f30| 64 61 74 69 6f 6e 3b 20 | 65 69 74 68 65 72 20 76 |dation; |either v|
|00002f40| 65 72 73 69 6f 6e 20 31 | 2c 20 6f 72 20 28 61 74 |ersion 1|, or (at|
|00002f50| 20 79 6f 75 72 20 6f 70 | 74 69 6f 6e 29 0a 58 5c | your op|tion).X\|
|00002f60| 20 20 20 20 20 20 20 61 | 6e 79 20 6c 61 74 65 72 | a|ny later|
|00002f70| 20 76 65 72 73 69 6f 6e | 2e 0a 58 5c 0a 58 5c 20 | version|..X\.X\ |
|00002f80| 20 20 20 20 20 20 54 68 | 69 73 20 70 72 6f 67 72 | Th|is progr|
|00002f90| 61 6d 20 69 73 20 64 69 | 73 74 72 69 62 75 74 65 |am is di|stribute|
|00002fa0| 64 20 69 6e 20 74 68 65 | 20 68 6f 70 65 20 74 68 |d in the| hope th|
|00002fb0| 61 74 20 69 74 20 77 69 | 6c 6c 20 62 65 20 75 73 |at it wi|ll be us|
|00002fc0| 65 66 75 6c 2c 0a 58 5c | 20 20 20 20 20 20 20 62 |eful,.X\| b|
|00002fd0| 75 74 20 57 49 54 48 4f | 55 54 20 41 4e 59 20 57 |ut WITHO|UT ANY W|
|00002fe0| 41 52 52 41 4e 54 59 3b | 20 77 69 74 68 6f 75 74 |ARRANTY;| without|
|00002ff0| 20 65 76 65 6e 20 74 68 | 65 20 69 6d 70 6c 69 65 | even th|e implie|
|00003000| 64 20 77 61 72 72 61 6e | 74 79 20 6f 66 0a 58 5c |d warran|ty of.X\|
|00003010| 20 20 20 20 20 20 20 4d | 45 52 43 48 41 4e 54 41 | M|ERCHANTA|
|00003020| 42 49 4c 49 54 59 20 6f | 72 20 46 49 54 4e 45 53 |BILITY o|r FITNES|
|00003030| 53 20 46 4f 52 20 41 20 | 50 41 52 54 49 43 55 4c |S FOR A |PARTICUL|
|00003040| 41 52 20 50 55 52 50 4f | 53 45 2e 20 20 53 65 65 |AR PURPO|SE. See|
|00003050| 20 74 68 65 0a 58 5c 20 | 20 20 20 20 20 20 47 4e | the.X\ | GN|
|00003060| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|00003070| 20 4c 69 63 65 6e 73 65 | 20 66 6f 72 20 6d 6f 72 | License| for mor|
|00003080| 65 20 64 65 74 61 69 6c | 73 2e 0a 58 5c 0a 58 5c |e detail|s..X\.X\|
|00003090| 20 20 20 20 20 20 20 59 | 6f 75 20 73 68 6f 75 6c | Y|ou shoul|
|000030a0| 64 20 68 61 76 65 20 72 | 65 63 65 69 76 65 64 20 |d have r|eceived |
|000030b0| 61 20 63 6f 70 79 20 6f | 66 20 74 68 65 20 47 4e |a copy o|f the GN|
|000030c0| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|000030d0| 20 4c 69 63 65 6e 73 65 | 0a 58 5c 20 20 20 20 20 | License|.X\ |
|000030e0| 20 20 61 6c 6f 6e 67 20 | 77 69 74 68 20 74 68 69 | along |with thi|
|000030f0| 73 20 70 72 6f 67 72 61 | 6d 3b 20 73 65 65 20 74 |s progra|m; see t|
|00003100| 68 65 20 66 69 6c 65 20 | 43 4f 50 59 49 4e 47 2e |he file |COPYING.|
|00003110| 20 20 49 66 20 6e 6f 74 | 2c 20 77 72 69 74 65 20 | If not|, write |
|00003120| 74 6f 0a 58 5c 20 20 20 | 20 20 20 20 74 68 65 20 |to.X\ | the |
|00003130| 46 72 65 65 20 53 6f 66 | 74 77 61 72 65 20 46 6f |Free Sof|tware Fo|
|00003140| 75 6e 64 61 74 69 6f 6e | 2c 20 36 37 35 20 4d 61 |undation|, 675 Ma|
|00003150| 73 73 20 41 76 65 2c 20 | 43 61 6d 62 72 69 64 67 |ss Ave, |Cambridg|
|00003160| 65 2c 20 4d 41 20 30 32 | 31 33 39 2c 20 55 53 41 |e, MA 02|139, USA|
|00003170| 2e 20 0a 58 0a 58 2e 28 | 20 4c 6f 61 64 69 6e 67 |. .X.X.(| Loading|
|00003180| 20 42 6c 6f 63 6b 20 64 | 65 66 69 6e 69 74 69 6f | Block d|efinitio|
|00003190| 6e 73 2e 2e 2e 29 20 63 | 72 0a 58 0a 58 76 6f 63 |ns...) c|r.X.Xvoc|
|000031a0| 61 62 75 6c 61 72 79 20 | 62 6c 6f 63 6b 73 0a 58 |abulary |blocks.X|
|000031b0| 0a 58 63 6f 6d 70 69 6c | 65 72 20 62 6c 6f 63 6b |.Xcompil|er block|
|000031c0| 73 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 0a 58 0a |s defini|tions.X.|
|000031d0| 58 34 20 63 65 6c 6c 73 | 20 66 69 65 6c 64 20 2b |X4 cells| field +|
|000031e0| 62 6c 6f 63 6b 20 28 20 | 70 74 72 20 2d 2d 20 62 |block ( |ptr -- b|
|000031f0| 6c 6f 63 6b 29 20 70 72 | 69 76 61 74 65 0a 58 0a |lock) pr|ivate.X.|
|00003200| 58 3a 20 62 6c 6f 63 6b | 5b 20 28 20 2d 2d 20 29 |X: block|[ ( -- )|
|00003210| 0a 58 20 20 63 6f 6d 70 | 69 6c 69 6e 67 09 09 09 |.X comp|iling...|
|00003220| 09 28 20 43 68 65 63 6b | 20 69 6e 74 65 72 70 72 |.( Check| interpr|
|00003230| 65 74 65 72 20 73 74 61 | 74 65 29 0a 58 20 20 69 |eter sta|te).X i|
|00003240| 66 20 68 65 72 65 20 2b | 62 6c 6f 63 6b 20 5b 63 |f here +|block [c|
|00003250| 6f 6d 70 69 6c 65 5d 20 | 6c 69 74 65 72 61 6c 09 |ompile] |literal.|
|00003260| 28 20 49 66 20 63 6f 6d | 70 69 6c 69 6e 67 20 74 |( If com|piling t|
|00003270| 68 65 6e 20 63 72 65 61 | 74 65 20 6c 69 74 65 72 |hen crea|te liter|
|00003280| 61 6c 29 0a 58 20 20 20 | 20 63 6f 6d 70 69 6c 65 |al).X | compile|
|00003290| 20 28 62 72 61 6e 63 68 | 29 20 3e 6d 61 72 6b 09 | (branch|) >mark.|
|000032a0| 09 28 20 74 6f 20 63 6f | 64 65 20 73 65 63 74 69 |.( to co|de secti|
|000032b0| 6f 6e 20 61 6e 64 20 62 | 72 61 6e 63 68 20 6f 76 |on and b|ranch ov|
|000032c0| 65 72 29 0a 58 20 20 20 | 20 74 72 75 65 09 09 09 |er).X | true...|
|000032d0| 09 28 20 4d 61 72 6b 20 | 63 6f 64 65 20 63 6f 6d |.( Mark |code com|
|000032e0| 70 69 6c 61 74 69 6f 6e | 20 73 74 61 74 65 29 0a |pilation| state).|
|000032f0| 58 20 20 65 6c 73 65 0a | 58 20 20 20 20 68 65 72 |X else.|X her|
|00003300| 65 09 09 09 09 28 20 52 | 65 74 75 72 6e 20 70 6f |e....( R|eturn po|
|00003310| 69 6e 74 65 72 20 74 6f | 20 63 6f 64 65 20 73 65 |inter to| code se|
|00003320| 63 74 69 6f 6e 29 0a 58 | 20 20 20 20 66 61 6c 73 |ction).X| fals|
|00003330| 65 09 09 09 09 28 20 4d | 61 72 6b 20 6e 6f 6e 2d |e....( M|ark non-|
|00003340| 63 6f 64 65 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |code com|pilation|
|00003350| 20 73 74 61 74 65 29 0a | 58 20 20 20 20 5d 09 09 | state).|X ]..|
|00003360| 09 09 09 28 20 53 74 61 | 72 74 20 63 6f 6d 70 69 |...( Sta|rt compi|
|00003370| 6c 69 6e 67 20 63 6f 64 | 65 20 66 6f 72 20 62 6c |ling cod|e for bl|
|00003380| 6f 63 6b 29 0a 58 20 20 | 20 20 74 68 65 6e 0a 58 |ock).X | then.X|
|00003390| 3b 20 69 6d 6d 65 64 69 | 61 74 65 0a 58 0a 58 3a |; immedi|ate.X.X:|
|000033a0| 20 5d 3b 20 28 20 2d 2d | 20 62 6c 6f 63 6b 29 0a | ]; ( --| block).|
|000033b0| 58 20 20 5b 63 6f 6d 70 | 69 6c 65 5d 20 3b 09 09 |X [comp|ile] ;..|
|000033c0| 09 09 28 20 43 6f 6d 70 | 69 6c 65 20 77 68 61 74 |..( Comp|ile what|
|000033d0| 20 73 65 6d 69 63 6f 6c | 6f 6e 20 64 6f 65 73 29 | semicol|on does)|
|000033e0| 0a 58 20 20 69 66 20 3e | 72 65 73 6f 6c 76 65 09 |.X if >|resolve.|
|000033f0| 09 09 09 28 20 49 66 20 | 77 69 74 68 69 6e 20 63 |...( If |within c|
|00003400| 6f 64 65 20 72 65 73 6f | 6c 76 65 20 62 72 61 6e |ode reso|lve bran|
|00003410| 63 68 29 0a 58 20 20 20 | 20 5d 09 09 09 09 09 28 |ch).X | ].....(|
|00003420| 20 41 6e 64 20 43 6f 6e | 74 69 6e 75 65 20 63 6f | And Con|tinue co|
|00003430| 6d 70 69 6c 69 6e 67 29 | 0a 58 20 20 74 68 65 6e |mpiling)|.X then|
|00003440| 0a 58 3b 20 69 6d 6d 65 | 64 69 61 74 65 0a 58 0a |.X; imme|diate.X.|
|00003450| 58 3a 20 63 61 6c 6c 20 | 28 20 62 6c 6f 63 6b 20 |X: call |( block |
|00003460| 2d 2d 20 29 0a 58 20 20 | 3e 72 20 09 09 09 09 09 |-- ).X |>r .....|
|00003470| 28 20 50 65 72 66 6f 72 | 6d 20 74 68 65 20 62 6c |( Perfor|m the bl|
|00003480| 6f 63 6b 20 64 65 66 69 | 6e 69 74 69 6f 6e 29 0a |ock defi|nition).|
|00003490| 58 3b 0a 58 0a 58 66 6f | 72 74 68 20 6f 6e 6c 79 |X;.X.Xfo|rth only|
|000034a0| 0a 58 0a 45 4e 44 5f 4f | 46 5f 6c 69 62 2f 62 6c |.X.END_O|F_lib/bl|
|000034b0| 6f 63 6b 73 2e 66 38 33 | 0a 69 66 20 74 65 73 74 |ocks.f83|.if test|
|000034c0| 20 32 30 38 33 20 2d 6e | 65 20 60 77 63 20 2d 63 | 2083 -n|e `wc -c|
|000034d0| 20 3c 6c 69 62 2f 62 6c | 6f 63 6b 73 2e 66 38 33 | <lib/bl|ocks.f83|
|000034e0| 60 3b 20 74 68 65 6e 0a | 20 20 20 20 65 63 68 6f |`; then.| echo|
|000034f0| 20 73 68 61 72 3a 20 5c | 22 6c 69 62 2f 62 6c 6f | shar: \|"lib/blo|
|00003500| 63 6b 73 2e 66 38 33 5c | 22 20 75 6e 70 61 63 6b |cks.f83\|" unpack|
|00003510| 65 64 20 77 69 74 68 20 | 77 72 6f 6e 67 20 73 69 |ed with |wrong si|
|00003520| 7a 65 21 0a 66 69 0a 23 | 20 65 6e 64 20 6f 66 20 |ze!.fi.#| end of |
|00003530| 6f 76 65 72 77 72 69 74 | 69 6e 67 20 63 68 65 63 |overwrit|ing chec|
|00003540| 6b 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |k.fi.if |test -f |
|00003550| 6c 69 62 2f 64 6f 75 62 | 6c 65 2e 66 38 33 20 2d |lib/doub|le.f83 -|
|00003560| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|00003570| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |. echo |
|00003580| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 6f |shar: Wi|ll not o|
|00003590| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|000035a0| 6e 67 20 66 69 6c 65 20 | 5c 22 6c 69 62 2f 64 6f |ng file |\"lib/do|
|000035b0| 75 62 6c 65 2e 66 38 33 | 5c 22 0a 65 6c 73 65 0a |uble.f83|\".else.|
|000035c0| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|000035d0| 63 74 69 6e 67 20 5c 22 | 6c 69 62 2f 64 6f 75 62 |cting \"|lib/doub|
|000035e0| 6c 65 2e 66 38 33 5c 22 | 20 5c 28 32 32 38 32 20 |le.f83\"| \(2282 |
|000035f0| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|00003600| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 6c 69 62 2f 64 | "s/^X//|" >lib/d|
|00003610| 6f 75 62 6c 65 2e 66 38 | 33 20 3c 3c 27 45 4e 44 |ouble.f8|3 <<'END|
|00003620| 5f 4f 46 5f 6c 69 62 2f | 64 6f 75 62 6c 65 2e 66 |_OF_lib/|double.f|
|00003630| 38 33 27 0a 58 5c 0a 58 | 5c 20 20 44 4f 55 42 4c |83'.X\.X|\ DOUBL|
|00003640| 45 20 50 41 52 41 4d 45 | 54 45 52 20 53 54 41 43 |E PARAME|TER STAC|
|00003650| 4b 20 57 4f 52 44 20 44 | 45 46 49 4e 49 54 49 4f |K WORD D|EFINITIO|
|00003660| 4e 53 0a 58 5c 0a 58 5c | 20 20 43 6f 70 79 72 69 |NS.X\.X\| Copyri|
|00003670| 67 68 74 20 28 63 29 20 | 31 39 39 30 20 62 79 20 |ght (c) |1990 by |
|00003680| 4d 69 6b 61 65 6c 20 52 | 2e 4b 2e 20 50 61 74 65 |Mikael R|.K. Pate|
|00003690| 6c 0a 58 5c 0a 58 5c 20 | 20 43 6f 6d 70 75 74 65 |l.X\.X\ | Compute|
|000036a0| 72 20 41 69 64 65 64 20 | 44 65 73 69 67 6e 20 4c |r Aided |Design L|
|000036b0| 61 62 6f 72 61 74 6f 72 | 79 20 28 43 41 44 4c 41 |aborator|y (CADLA|
|000036c0| 42 29 0a 58 5c 20 20 44 | 65 70 61 72 74 6d 65 6e |B).X\ D|epartmen|
|000036d0| 74 20 6f 66 20 43 6f 6d | 70 75 74 65 72 20 61 6e |t of Com|puter an|
|000036e0| 64 20 49 6e 66 6f 72 6d | 61 74 69 6f 6e 20 53 63 |d Inform|ation Sc|
|000036f0| 69 65 6e 63 65 0a 58 5c | 20 20 4c 69 6e 6b 6f 70 |ience.X\| Linkop|
|00003700| 69 6e 67 20 55 6e 69 76 | 65 72 73 69 74 79 0a 58 |ing Univ|ersity.X|
|00003710| 5c 20 20 53 2d 35 38 31 | 20 38 33 20 4c 49 4e 4b |\ S-581| 83 LINK|
|00003720| 4f 50 49 4e 47 0a 58 5c | 20 20 53 57 45 44 45 4e |OPING.X\| SWEDEN|
|00003730| 0a 58 5c 0a 58 5c 20 20 | 45 6d 61 69 6c 3a 20 6d |.X\.X\ |Email: m|
|00003740| 69 70 40 69 64 61 2e 6c | 69 75 2e 73 65 0a 58 5c |ip@ida.l|iu.se.X\|
|00003750| 0a 58 5c 20 20 53 74 61 | 72 74 65 64 20 6f 6e 3a |.X\ Sta|rted on:|
|00003760| 20 32 36 20 46 65 62 72 | 75 61 72 79 20 31 39 39 | 26 Febr|uary 199|
|00003770| 30 0a 58 5c 0a 58 5c 20 | 20 4c 61 73 74 20 75 70 |0.X\.X\ | Last up|
|00003780| 64 61 74 65 64 20 6f 6e | 3a 20 32 36 20 46 65 62 |dated on|: 26 Feb|
|00003790| 72 75 61 72 79 20 31 39 | 39 30 0a 58 5c 0a 58 5c |ruary 19|90.X\.X\|
|000037a0| 20 20 44 65 70 65 6e 64 | 65 6e 63 69 65 73 3a 0a | Depend|encies:.|
|000037b0| 58 5c 20 20 20 20 20 20 | 20 28 66 6f 72 74 68 29 |X\ | (forth)|
|000037c0| 20 66 6f 72 74 68 2c 20 | 73 74 72 75 63 74 75 72 | forth, |structur|
|000037d0| 65 73 2c 20 6d 61 63 72 | 6f 73 0a 58 5c 0a 58 5c |es, macr|os.X\.X\|
|000037e0| 20 20 44 65 73 63 72 69 | 70 74 69 6f 6e 3a 0a 58 | Descri|ption:.X|
|000037f0| 5c 20 20 20 20 20 20 20 | 53 74 61 63 6b 20 6d 61 |\ |Stack ma|
|00003800| 6e 69 70 75 6c 61 74 69 | 6f 6e 20 64 65 66 69 6e |nipulati|on defin|
|00003810| 69 74 69 6f 6e 73 20 66 | 6f 72 20 70 61 69 72 73 |itions f|or pairs|
|00003820| 20 6f 66 20 70 61 72 61 | 6d 65 74 65 72 73 2e 0a | of para|meters..|
|00003830| 58 5c 0a 58 5c 20 20 43 | 6f 70 79 69 6e 67 3a 0a |X\.X\ C|opying:.|
|00003840| 58 5c 20 20 20 20 20 20 | 20 54 68 69 73 20 70 72 |X\ | This pr|
|00003850| 6f 67 72 61 6d 20 69 73 | 20 66 72 65 65 20 73 6f |ogram is| free so|
|00003860| 66 74 77 61 72 65 3b 20 | 79 6f 75 20 63 61 6e 20 |ftware; |you can |
|00003870| 72 65 64 69 73 74 72 69 | 62 75 74 65 20 69 74 20 |redistri|bute it |
|00003880| 61 6e 64 5c 6f 72 20 6d | 6f 64 69 66 79 0a 58 5c |and\or m|odify.X\|
|00003890| 20 20 20 20 20 20 20 69 | 74 20 75 6e 64 65 72 20 | i|t under |
|000038a0| 74 68 65 20 74 65 72 6d | 73 20 6f 66 20 74 68 65 |the term|s of the|
|000038b0| 20 47 4e 55 20 47 65 6e | 65 72 61 6c 20 50 75 62 | GNU Gen|eral Pub|
|000038c0| 6c 69 63 20 4c 69 63 65 | 6e 73 65 20 61 73 20 70 |lic Lice|nse as p|
|000038d0| 75 62 6c 69 73 68 65 64 | 20 62 79 0a 58 5c 20 20 |ublished| by.X\ |
|000038e0| 20 20 20 20 20 74 68 65 | 20 46 72 65 65 20 53 6f | the| Free So|
|000038f0| 66 74 77 61 72 65 20 46 | 6f 75 6e 64 61 74 69 6f |ftware F|oundatio|
|00003900| 6e 3b 20 65 69 74 68 65 | 72 20 76 65 72 73 69 6f |n; eithe|r versio|
|00003910| 6e 20 31 2c 20 6f 72 20 | 28 61 74 20 79 6f 75 72 |n 1, or |(at your|
|00003920| 20 6f 70 74 69 6f 6e 29 | 0a 58 5c 20 20 20 20 20 | option)|.X\ |
|00003930| 20 20 61 6e 79 20 6c 61 | 74 65 72 20 76 65 72 73 | any la|ter vers|
|00003940| 69 6f 6e 2e 0a 58 5c 0a | 58 5c 20 20 20 20 20 20 |ion..X\.|X\ |
|00003950| 20 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 69 73 | This pr|ogram is|
|00003960| 20 64 69 73 74 72 69 62 | 75 74 65 64 20 69 6e 20 | distrib|uted in |
|00003970| 74 68 65 20 68 6f 70 65 | 20 74 68 61 74 20 69 74 |the hope| that it|
|00003980| 20 77 69 6c 6c 20 62 65 | 20 75 73 65 66 75 6c 2c | will be| useful,|
|00003990| 0a 58 5c 20 20 20 20 20 | 20 20 62 75 74 20 57 49 |.X\ | but WI|
|000039a0| 54 48 4f 55 54 20 41 4e | 59 20 57 41 52 52 41 4e |THOUT AN|Y WARRAN|
|000039b0| 54 59 3b 20 77 69 74 68 | 6f 75 74 20 65 76 65 6e |TY; with|out even|
|000039c0| 20 74 68 65 20 69 6d 70 | 6c 69 65 64 20 77 61 72 | the imp|lied war|
|000039d0| 72 61 6e 74 79 20 6f 66 | 0a 58 5c 20 20 20 20 20 |ranty of|.X\ |
|000039e0| 20 20 4d 45 52 43 48 41 | 4e 54 41 42 49 4c 49 54 | MERCHA|NTABILIT|
|000039f0| 59 20 6f 72 20 46 49 54 | 4e 45 53 53 20 46 4f 52 |Y or FIT|NESS FOR|
|00003a00| 20 41 20 50 41 52 54 49 | 43 55 4c 41 52 20 50 55 | A PARTI|CULAR PU|
|00003a10| 52 50 4f 53 45 2e 20 20 | 53 65 65 20 74 68 65 0a |RPOSE. |See the.|
|00003a20| 58 5c 20 20 20 20 20 20 | 20 47 4e 55 20 47 65 6e |X\ | GNU Gen|
|00003a30| 65 72 61 6c 20 50 75 62 | 6c 69 63 20 4c 69 63 65 |eral Pub|lic Lice|
|00003a40| 6e 73 65 20 66 6f 72 20 | 6d 6f 72 65 20 64 65 74 |nse for |more det|
|00003a50| 61 69 6c 73 2e 0a 58 5c | 0a 58 5c 20 20 20 20 20 |ails..X\|.X\ |
|00003a60| 20 20 59 6f 75 20 73 68 | 6f 75 6c 64 20 68 61 76 | You sh|ould hav|
|00003a70| 65 20 72 65 63 65 69 76 | 65 64 20 61 20 63 6f 70 |e receiv|ed a cop|
|00003a80| 79 20 6f 66 20 74 68 65 | 20 47 4e 55 20 47 65 6e |y of the| GNU Gen|
|00003a90| 65 72 61 6c 20 50 75 62 | 6c 69 63 20 4c 69 63 65 |eral Pub|lic Lice|
|00003aa0| 6e 73 65 0a 58 5c 20 20 | 20 20 20 20 20 61 6c 6f |nse.X\ | alo|
|00003ab0| 6e 67 20 77 69 74 68 20 | 74 68 69 73 20 70 72 6f |ng with |this pro|
|00003ac0| 67 72 61 6d 3b 20 73 65 | 65 20 74 68 65 20 66 69 |gram; se|e the fi|
|00003ad0| 6c 65 20 43 4f 50 59 49 | 4e 47 2e 20 20 49 66 20 |le COPYI|NG. If |
|00003ae0| 6e 6f 74 2c 20 77 72 69 | 74 65 20 74 6f 0a 58 5c |not, wri|te to.X\|
|00003af0| 20 20 20 20 20 20 20 74 | 68 65 20 46 72 65 65 20 | t|he Free |
|00003b00| 53 6f 66 74 77 61 72 65 | 20 46 6f 75 6e 64 61 74 |Software| Foundat|
|00003b10| 69 6f 6e 2c 20 36 37 35 | 20 4d 61 73 73 20 41 76 |ion, 675| Mass Av|
|00003b20| 65 2c 20 43 61 6d 62 72 | 69 64 67 65 2c 20 4d 41 |e, Cambr|idge, MA|
|00003b30| 20 30 32 31 33 39 2c 20 | 55 53 41 2e 20 0a 58 0a | 02139, |USA. .X.|
|00003b40| 58 2e 28 20 4c 6f 61 64 | 69 6e 67 20 44 6f 75 62 |X.( Load|ing Doub|
|00003b50| 6c 65 20 50 61 72 61 6d | 65 74 65 72 20 64 65 66 |le Param|eter def|
|00003b60| 69 6e 69 74 69 6f 6e 73 | 2e 2e 2e 29 20 63 72 0a |initions|...) cr.|
|00003b70| 58 0a 58 23 69 6e 63 6c | 75 64 65 20 73 74 72 75 |X.X#incl|ude stru|
|00003b80| 63 74 75 72 65 73 2e 66 | 38 33 0a 58 23 69 6e 63 |ctures.f|83.X#inc|
|00003b90| 6c 75 64 65 20 6d 61 63 | 72 6f 73 2e 66 38 33 0a |lude mac|ros.f83.|
|00003ba0| 58 0a 58 73 74 72 75 63 | 74 75 72 65 73 20 6d 61 |X.Xstruc|tures ma|
|00003bb0| 63 72 6f 73 20 66 6f 72 | 74 68 20 64 65 66 69 6e |cros for|th defin|
|00003bc0| 69 74 69 6f 6e 73 0a 58 | 0a 58 73 74 72 75 63 74 |itions.X|.Xstruct|
|00003bd0| 2e 74 79 70 65 20 44 4f | 55 42 4c 45 20 28 20 6c |.type DO|UBLE ( l|
|00003be0| 6f 77 20 68 69 67 68 20 | 2d 2d 20 29 0a 58 20 20 |ow high |-- ).X |
|00003bf0| 6c 6f 6e 67 20 2b 68 69 | 67 68 0a 58 20 20 6c 6f |long +hi|gh.X lo|
|00003c00| 6e 67 20 2b 6c 6f 77 0a | 58 73 74 72 75 63 74 2e |ng +low.|Xstruct.|
|00003c10| 69 6e 69 74 20 28 20 6c | 6f 77 20 68 69 67 68 20 |init ( l|ow high |
|00003c20| 64 6f 75 62 6c 65 20 2d | 2d 20 29 0a 58 23 69 66 |double -|- ).X#if|
|00003c30| 75 6e 64 65 66 20 32 21 | 0a 58 20 20 74 75 63 6b |undef 2!|.X tuck|
|00003c40| 20 2b 68 69 67 68 20 21 | 20 2b 6c 6f 77 20 21 0a | +high !| +low !.|
|00003c50| 58 23 65 6c 73 65 0a 58 | 20 20 32 21 0a 58 23 74 |X#else.X| 2!.X#t|
|00003c60| 68 65 6e 0a 58 73 74 72 | 75 63 74 2e 65 6e 64 0a |hen.Xstr|uct.end.|
|00003c70| 58 0a 58 3a 20 64 6f 75 | 62 6c 65 20 28 20 6c 6f |X.X: dou|ble ( lo|
|00003c80| 77 20 68 69 67 68 20 2d | 2d 20 29 0a 58 20 20 63 |w high -|- ).X c|
|00003c90| 72 65 61 74 65 20 2c 20 | 2c 0a 58 64 6f 65 73 3e |reate , |,.Xdoes>|
|00003ca0| 20 28 20 64 6f 75 62 6c | 65 20 2d 2d 20 6c 6f 77 | ( doubl|e -- low|
|00003cb0| 20 68 69 67 68 29 0a 58 | 23 69 66 75 6e 64 65 66 | high).X|#ifundef|
|00003cc0| 20 32 40 0a 58 20 20 64 | 75 70 20 2b 6c 6f 77 20 | 2@.X d|up +low |
|00003cd0| 40 20 73 77 61 70 20 2b | 68 69 67 68 20 40 20 0a |@ swap +|high @ .|
|00003ce0| 58 23 65 6c 73 65 0a 58 | 20 20 32 40 0a 58 23 74 |X#else.X| 2@.X#t|
|00003cf0| 68 65 6e 0a 58 3b 0a 58 | 0a 58 3a 20 2e 64 6f 75 |hen.X;.X|.X: .dou|
|00003d00| 62 6c 65 20 28 20 61 64 | 64 72 20 2d 2d 20 29 0a |ble ( ad|dr -- ).|
|00003d10| 58 20 20 2e 22 20 64 6f | 75 62 6c 65 23 22 20 64 |X ." do|uble#" d|
|00003d20| 75 70 20 2e 20 2e 22 20 | 68 69 67 68 3a 20 22 20 |up . ." |high: " |
|00003d30| 64 75 70 20 2b 68 69 67 | 68 20 40 20 2e 20 2e 22 |dup +hig|h @ . ."|
|00003d40| 20 6c 6f 77 3a 20 22 20 | 2b 6c 6f 77 20 40 20 2e | low: " |+low @ .|
|00003d50| 0a 58 3b 0a 58 0a 58 0a | 58 23 69 66 75 6e 64 65 |.X;.X.X.|X#ifunde|
|00003d60| 66 20 32 73 77 61 70 20 | 5c 20 43 68 65 63 6b 20 |f 2swap |\ Check |
|00003d70| 69 66 20 74 68 65 20 6b | 65 72 6e 65 6c 20 73 75 |if the k|ernel su|
|00003d80| 70 70 6f 72 74 73 20 64 | 6f 75 62 6c 65 20 70 61 |pports d|ouble pa|
|00003d90| 72 61 6d 65 74 65 72 73 | 0a 58 20 20 0a 58 3a 20 |rameters|.X .X: |
|00003da0| 32 3e 72 20 28 20 61 20 | 62 20 2d 2d 20 29 20 3e |2>r ( a |b -- ) >|
|00003db0| 72 20 3e 72 20 3b 20 6d | 61 63 72 6f 20 63 6f 6d |r >r ; m|acro com|
|00003dc0| 70 69 6c 61 74 69 6f 6e | 0a 58 3a 20 32 72 3e 20 |pilation|.X: 2r> |
|00003dd0| 28 20 2d 2d 20 61 20 62 | 29 20 72 3e 20 72 3e 20 |( -- a b|) r> r> |
|00003de0| 73 77 61 70 20 3b 20 6d | 61 63 72 6f 20 63 6f 6d |swap ; m|acro com|
|00003df0| 70 69 6c 61 74 69 6f 6e | 0a 58 3a 20 32 64 72 6f |pilation|.X: 2dro|
|00003e00| 70 20 28 20 61 20 62 20 | 2d 20 29 20 64 72 6f 70 |p ( a b |- ) drop|
|00003e10| 20 64 72 6f 70 20 3b 20 | 6d 61 63 72 6f 0a 58 3a | drop ; |macro.X:|
|00003e20| 20 32 73 77 61 70 20 28 | 20 61 20 62 20 63 20 64 | 2swap (| a b c d|
|00003e30| 20 2d 2d 20 63 20 64 20 | 61 20 62 29 20 72 6f 74 | -- c d |a b) rot|
|00003e40| 20 3e 72 20 72 6f 74 20 | 72 3e 20 3b 20 6d 61 63 | >r rot |r> ; mac|
|00003e50| 72 6f 0a 58 3a 20 32 72 | 6f 74 20 28 20 61 20 62 |ro.X: 2r|ot ( a b|
|00003e60| 20 63 20 64 20 65 20 66 | 20 2d 2d 20 63 20 64 20 | c d e f| -- c d |
|00003e70| 65 20 66 20 61 20 62 29 | 20 32 3e 72 20 32 73 77 |e f a b)| 2>r 2sw|
|00003e80| 61 70 20 32 72 3e 20 32 | 73 77 61 70 20 3b 0a 58 |ap 2r> 2|swap ;.X|
|00003e90| 3a 20 32 64 75 70 20 28 | 20 61 20 62 20 2d 2d 20 |: 2dup (| a b -- |
|00003ea0| 61 20 62 20 61 20 62 29 | 20 6f 76 65 72 20 6f 76 |a b a b)| over ov|
|00003eb0| 65 72 20 3b 20 6d 61 63 | 72 6f 0a 58 3a 20 32 6f |er ; mac|ro.X: 2o|
|00003ec0| 76 65 72 20 28 20 61 20 | 62 20 63 20 64 20 2d 2d |ver ( a |b c d --|
|00003ed0| 20 61 20 62 20 63 20 64 | 20 61 20 62 29 20 33 20 | a b c d| a b) 3 |
|00003ee0| 70 69 63 6b 20 33 20 70 | 69 63 6b 20 3b 20 6d 61 |pick 3 p|ick ; ma|
|00003ef0| 63 72 6f 0a 58 3a 20 32 | 40 66 20 28 20 61 64 64 |cro.X: 2|@f ( add|
|00003f00| 72 20 2d 2d 20 61 20 62 | 29 20 64 75 70 20 2b 6c |r -- a b|) dup +l|
|00003f10| 6f 77 20 40 20 73 77 61 | 70 20 2b 68 69 67 68 20 |ow @ swa|p +high |
|00003f20| 40 20 3b 20 6d 61 63 72 | 6f 0a 58 3a 20 32 21 20 |@ ; macr|o.X: 2! |
|00003f30| 28 20 61 20 62 20 61 64 | 64 72 20 2d 2d 20 29 20 |( a b ad|dr -- ) |
|00003f40| 74 75 63 6b 20 2b 68 69 | 67 68 20 21 20 2b 6c 6f |tuck +hi|gh ! +lo|
|00003f50| 77 20 21 20 3b 20 6d 61 | 63 72 6f 0a 58 0a 58 23 |w ! ; ma|cro.X.X#|
|00003f60| 74 68 65 6e 0a 58 0a 58 | 66 6f 72 74 68 20 6f 6e |then.X.X|forth on|
|00003f70| 6c 79 0a 58 0a 45 4e 44 | 5f 4f 46 5f 6c 69 62 2f |ly.X.END|_OF_lib/|
|00003f80| 64 6f 75 62 6c 65 2e 66 | 38 33 0a 69 66 20 74 65 |double.f|83.if te|
|00003f90| 73 74 20 32 32 38 32 20 | 2d 6e 65 20 60 77 63 20 |st 2282 |-ne `wc |
|00003fa0| 2d 63 20 3c 6c 69 62 2f | 64 6f 75 62 6c 65 2e 66 |-c <lib/|double.f|
|00003fb0| 38 33 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |83`; the|n. ec|
|00003fc0| 68 6f 20 73 68 61 72 3a | 20 5c 22 6c 69 62 2f 64 |ho shar:| \"lib/d|
|00003fd0| 6f 75 62 6c 65 2e 66 38 | 33 5c 22 20 75 6e 70 61 |ouble.f8|3\" unpa|
|00003fe0| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|00003ff0| 73 69 7a 65 21 0a 66 69 | 0a 23 20 65 6e 64 20 6f |size!.fi|.# end o|
|00004000| 66 20 6f 76 65 72 77 72 | 69 74 69 6e 67 20 63 68 |f overwr|iting ch|
|00004010| 65 63 6b 0a 66 69 0a 69 | 66 20 74 65 73 74 20 2d |eck.fi.i|f test -|
|00004020| 66 20 6c 69 62 2f 65 6e | 75 6d 65 72 61 74 65 73 |f lib/en|umerates|
|00004030| 2e 66 38 33 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |.f83 -a |"${1}" !|
|00004040| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|00004050| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|00004060| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00004070| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|00004080| 6c 69 62 2f 65 6e 75 6d | 65 72 61 74 65 73 2e 66 |lib/enum|erates.f|
|00004090| 38 33 5c 22 0a 65 6c 73 | 65 0a 65 63 68 6f 20 73 |83\".els|e.echo s|
|000040a0| 68 61 72 3a 20 45 78 74 | 72 61 63 74 69 6e 67 20 |har: Ext|racting |
|000040b0| 5c 22 6c 69 62 2f 65 6e | 75 6d 65 72 61 74 65 73 |\"lib/en|umerates|
|000040c0| 2e 66 38 33 5c 22 20 5c | 28 31 37 36 35 20 63 68 |.f83\" \|(1765 ch|
|000040d0| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|000040e0| 73 2f 5e 58 2f 2f 22 20 | 3e 6c 69 62 2f 65 6e 75 |s/^X//" |>lib/enu|
|000040f0| 6d 65 72 61 74 65 73 2e | 66 38 33 20 3c 3c 27 45 |merates.|f83 <<'E|
|00004100| 4e 44 5f 4f 46 5f 6c 69 | 62 2f 65 6e 75 6d 65 72 |ND_OF_li|b/enumer|
|00004110| 61 74 65 73 2e 66 38 33 | 27 0a 58 5c 0a 58 5c 20 |ates.f83|'.X\.X\ |
|00004120| 20 45 4e 55 4d 45 52 41 | 54 45 20 56 41 52 49 41 | ENUMERA|TE VARIA|
|00004130| 42 4c 45 53 0a 58 5c 0a | 58 5c 20 20 43 6f 70 79 |BLES.X\.|X\ Copy|
|00004140| 72 69 67 68 74 20 28 63 | 29 20 31 39 38 38 2d 31 |right (c|) 1988-1|
|00004150| 39 39 30 20 62 79 20 4d | 69 6b 61 65 6c 20 52 2e |990 by M|ikael R.|
|00004160| 4b 2e 20 50 61 74 65 6c | 0a 58 5c 0a 58 5c 20 20 |K. Patel|.X\.X\ |
|00004170| 43 6f 6d 70 75 74 65 72 | 20 41 69 64 65 64 20 44 |Computer| Aided D|
|00004180| 65 73 69 67 6e 20 4c 61 | 62 6f 72 61 74 6f 72 79 |esign La|boratory|
|00004190| 20 28 43 41 44 4c 41 42 | 29 0a 58 5c 20 20 44 65 | (CADLAB|).X\ De|
|000041a0| 70 61 72 74 6d 65 6e 74 | 20 6f 66 20 43 6f 6d 70 |partment| of Comp|
|000041b0| 75 74 65 72 20 61 6e 64 | 20 49 6e 66 6f 72 6d 61 |uter and| Informa|
|000041c0| 74 69 6f 6e 20 53 63 69 | 65 6e 63 65 0a 58 5c 20 |tion Sci|ence.X\ |
|000041d0| 20 4c 69 6e 6b 6f 70 69 | 6e 67 20 55 6e 69 76 65 | Linkopi|ng Unive|
|000041e0| 72 73 69 74 79 0a 58 5c | 20 20 53 2d 35 38 31 20 |rsity.X\| S-581 |
|000041f0| 38 33 20 4c 49 4e 4b 4f | 50 49 4e 47 0a 58 5c 20 |83 LINKO|PING.X\ |
|00004200| 20 53 57 45 44 45 4e 0a | 58 5c 0a 58 5c 20 20 45 | SWEDEN.|X\.X\ E|
|00004210| 6d 61 69 6c 3a 20 6d 69 | 70 40 69 64 61 2e 6c 69 |mail: mi|p@ida.li|
|00004220| 75 2e 73 65 0a 58 5c 0a | 58 5c 20 20 53 74 61 72 |u.se.X\.|X\ Star|
|00004230| 74 65 64 20 6f 6e 3a 20 | 33 30 20 4a 75 6e 65 20 |ted on: |30 June |
|00004240| 31 39 38 38 0a 58 5c 0a | 58 5c 20 20 4c 61 73 74 |1988.X\.|X\ Last|
|00004250| 20 75 70 64 61 74 65 64 | 20 6f 6e 3a 20 32 37 20 | updated| on: 27 |
|00004260| 4a 75 6e 65 20 31 39 39 | 30 0a 58 5c 0a 58 5c 20 |June 199|0.X\.X\ |
|00004270| 20 44 65 70 65 6e 64 65 | 6e 63 69 65 73 3a 0a 58 | Depende|ncies:.X|
|00004280| 5c 20 20 20 20 20 20 20 | 28 66 6f 72 74 68 29 20 |\ |(forth) |
|00004290| 66 6f 72 74 68 0a 58 5c | 0a 58 5c 20 20 44 65 73 |forth.X\|.X\ Des|
|000042a0| 63 72 69 70 74 69 6f 6e | 3a 0a 58 5c 20 20 20 20 |cription|:.X\ |
|000042b0| 20 20 20 46 6f 72 74 68 | 20 6c 65 76 65 6c 20 64 | Forth| level d|
|000042c0| 65 66 69 6e 69 74 69 6f | 6e 20 6f 66 20 65 6e 75 |efinitio|n of enu|
|000042d0| 6d 65 72 61 74 65 20 74 | 79 70 65 73 20 61 6e 64 |merate t|ypes and|
|000042e0| 20 76 61 72 69 61 62 6c | 65 73 2e 0a 58 5c 0a 58 | variabl|es..X\.X|
|000042f0| 5c 20 20 43 6f 70 79 69 | 6e 67 3a 0a 58 5c 20 20 |\ Copyi|ng:.X\ |
|00004300| 20 20 20 20 20 54 68 69 | 73 20 70 72 6f 67 72 61 | Thi|s progra|
|00004310| 6d 20 69 73 20 66 72 65 | 65 20 73 6f 66 74 77 61 |m is fre|e softwa|
|00004320| 72 65 3b 20 79 6f 75 20 | 63 61 6e 20 72 65 64 69 |re; you |can redi|
|00004330| 73 74 72 69 62 75 74 65 | 20 69 74 20 61 6e 64 5c |stribute| it and\|
|00004340| 6f 72 20 6d 6f 64 69 66 | 79 0a 58 5c 20 20 20 20 |or modif|y.X\ |
|00004350| 20 20 20 69 74 20 75 6e | 64 65 72 20 74 68 65 20 | it un|der the |
|00004360| 74 65 72 6d 73 20 6f 66 | 20 74 68 65 20 47 4e 55 |terms of| the GNU|
|00004370| 20 47 65 6e 65 72 61 6c | 20 50 75 62 6c 69 63 20 | General| Public |
|00004380| 4c 69 63 65 6e 73 65 20 | 61 73 20 70 75 62 6c 69 |License |as publi|
|00004390| 73 68 65 64 20 62 79 0a | 58 5c 20 20 20 20 20 20 |shed by.|X\ |
|000043a0| 20 74 68 65 20 46 72 65 | 65 20 53 6f 66 74 77 61 | the Fre|e Softwa|
|000043b0| 72 65 20 46 6f 75 6e 64 | 61 74 69 6f 6e 3b 20 65 |re Found|ation; e|
|000043c0| 69 74 68 65 72 20 76 65 | 72 73 69 6f 6e 20 31 2c |ither ve|rsion 1,|
|000043d0| 20 6f 72 20 28 61 74 20 | 79 6f 75 72 20 6f 70 74 | or (at |your opt|
|000043e0| 69 6f 6e 29 0a 58 5c 20 | 20 20 20 20 20 20 61 6e |ion).X\ | an|
|000043f0| 79 20 6c 61 74 65 72 20 | 76 65 72 73 69 6f 6e 2e |y later |version.|
|00004400| 0a 58 5c 0a 58 5c 20 20 | 20 20 20 20 20 54 68 69 |.X\.X\ | Thi|
|00004410| 73 20 70 72 6f 67 72 61 | 6d 20 69 73 20 64 69 73 |s progra|m is dis|
|00004420| 74 72 69 62 75 74 65 64 | 20 69 6e 20 74 68 65 20 |tributed| in the |
|00004430| 68 6f 70 65 20 74 68 61 | 74 20 69 74 20 77 69 6c |hope tha|t it wil|
|00004440| 6c 20 62 65 20 75 73 65 | 66 75 6c 2c 0a 58 5c 20 |l be use|ful,.X\ |
|00004450| 20 20 20 20 20 20 62 75 | 74 20 57 49 54 48 4f 55 | bu|t WITHOU|
|00004460| 54 20 41 4e 59 20 57 41 | 52 52 41 4e 54 59 3b 20 |T ANY WA|RRANTY; |
|00004470| 77 69 74 68 6f 75 74 20 | 65 76 65 6e 20 74 68 65 |without |even the|
|00004480| 20 69 6d 70 6c 69 65 64 | 20 77 61 72 72 61 6e 74 | implied| warrant|
|00004490| 79 20 6f 66 0a 58 5c 20 | 20 20 20 20 20 20 4d 45 |y of.X\ | ME|
|000044a0| 52 43 48 41 4e 54 41 42 | 49 4c 49 54 59 20 6f 72 |RCHANTAB|ILITY or|
|000044b0| 20 46 49 54 4e 45 53 53 | 20 46 4f 52 20 41 20 50 | FITNESS| FOR A P|
|000044c0| 41 52 54 49 43 55 4c 41 | 52 20 50 55 52 50 4f 53 |ARTICULA|R PURPOS|
|000044d0| 45 2e 20 20 53 65 65 20 | 74 68 65 0a 58 5c 20 20 |E. See |the.X\ |
|000044e0| 20 20 20 20 20 47 4e 55 | 20 47 65 6e 65 72 61 6c | GNU| General|
|000044f0| 20 50 75 62 6c 69 63 20 | 4c 69 63 65 6e 73 65 20 | Public |License |
|00004500| 66 6f 72 20 6d 6f 72 65 | 20 64 65 74 61 69 6c 73 |for more| details|
|00004510| 2e 0a 58 5c 0a 58 5c 20 | 20 20 20 20 20 20 59 6f |..X\.X\ | Yo|
|00004520| 75 20 73 68 6f 75 6c 64 | 20 68 61 76 65 20 72 65 |u should| have re|
|00004530| 63 65 69 76 65 64 20 61 | 20 63 6f 70 79 20 6f 66 |ceived a| copy of|
|00004540| 20 74 68 65 20 47 4e 55 | 20 47 65 6e 65 72 61 6c | the GNU| General|
|00004550| 20 50 75 62 6c 69 63 20 | 4c 69 63 65 6e 73 65 0a | Public |License.|
|00004560| 58 5c 20 20 20 20 20 20 | 20 61 6c 6f 6e 67 20 77 |X\ | along w|
|00004570| 69 74 68 20 74 68 69 73 | 20 70 72 6f 67 72 61 6d |ith this| program|
|00004580| 3b 20 73 65 65 20 74 68 | 65 20 66 69 6c 65 20 43 |; see th|e file C|
|00004590| 4f 50 59 49 4e 47 2e 20 | 20 49 66 20 6e 6f 74 2c |OPYING. | If not,|
|000045a0| 20 77 72 69 74 65 20 74 | 6f 0a 58 5c 20 20 20 20 | write t|o.X\ |
|000045b0| 20 20 20 74 68 65 20 46 | 72 65 65 20 53 6f 66 74 | the F|ree Soft|
|000045c0| 77 61 72 65 20 46 6f 75 | 6e 64 61 74 69 6f 6e 2c |ware Fou|ndation,|
|000045d0| 20 36 37 35 20 4d 61 73 | 73 20 41 76 65 2c 20 43 | 675 Mas|s Ave, C|
|000045e0| 61 6d 62 72 69 64 67 65 | 2c 20 4d 41 20 30 32 31 |ambridge|, MA 021|
|000045f0| 33 39 2c 20 55 53 41 2e | 20 0a 58 0a 58 2e 28 20 |39, USA.| .X.X.( |
|00004600| 4c 6f 61 64 69 6e 67 20 | 45 6e 75 6d 65 72 61 74 |Loading |Enumerat|
|00004610| 69 6f 6e 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 2e |ion defi|nitions.|
|00004620| 2e 2e 29 20 63 72 0a 58 | 0a 58 76 6f 63 61 62 75 |..) cr.X|.Xvocabu|
|00004630| 6c 61 72 79 20 65 6e 75 | 6d 65 72 61 74 65 73 0a |lary enu|merates.|
|00004640| 58 0a 58 65 6e 75 6d 65 | 72 61 74 65 73 20 64 65 |X.Xenume|rates de|
|00004650| 66 69 6e 69 74 69 6f 6e | 73 20 0a 58 0a 58 3a 20 |finition|s .X.X: |
|00004660| 65 6e 75 6d 2e 74 79 70 | 65 20 28 20 2d 2d 20 69 |enum.typ|e ( -- i|
|00004670| 64 30 29 20 20 0a 58 20 | 20 63 72 65 61 74 65 20 |d0) .X | create |
|00004680| 30 09 09 09 09 28 20 43 | 72 65 61 74 65 20 73 79 |0....( C|reate sy|
|00004690| 6d 62 6f 6c 20 61 6e 64 | 20 73 74 61 72 74 20 64 |mbol and| start d|
|000046a0| 65 66 69 6e 69 74 69 6f | 6e 29 0a 58 64 6f 65 73 |efinitio|n).Xdoes|
|000046b0| 3e 20 28 20 65 6e 75 6d | 2e 74 79 70 65 20 2d 2d |> ( enum|.type --|
|000046c0| 20 29 0a 58 20 20 64 72 | 6f 70 20 76 61 72 69 61 | ).X dr|op varia|
|000046d0| 62 6c 65 20 09 09 09 28 | 20 43 72 65 61 74 65 20 |ble ...(| Create |
|000046e0| 76 61 72 69 61 62 6c 65 | 20 66 6f 72 20 65 6e 75 |variable| for enu|
|000046f0| 6d 65 72 61 74 65 20 74 | 79 70 65 29 0a 58 3b 0a |merate t|ype).X;.|
|00004700| 58 0a 58 3a 20 65 6e 75 | 6d 2e 6e 75 6c 6c 20 28 |X.X: enu|m.null (|
|00004710| 20 69 64 31 20 2d 2d 20 | 69 64 32 29 0a 58 20 20 | id1 -- |id2).X |
|00004720| 31 2b 20 09 09 09 09 09 | 28 20 41 64 76 61 6e 63 |1+ .....|( Advanc|
|00004730| 65 20 74 6f 20 6e 65 78 | 74 20 69 64 65 6e 74 69 |e to nex|t identi|
|00004740| 74 79 29 0a 58 3b 0a 58 | 0a 58 3a 20 3e 65 6e 75 |ty).X;.X|.X: >enu|
|00004750| 6d 20 28 20 76 61 6c 75 | 65 20 2d 2d 20 29 0a 58 |m ( valu|e -- ).X|
|00004760| 20 20 63 6f 6e 73 74 61 | 6e 74 20 09 09 09 09 28 | consta|nt ....(|
|00004770| 20 43 72 65 61 74 65 20 | 61 6e 20 69 74 65 6d 20 | Create |an item |
|00004780| 75 73 69 6e 67 20 76 61 | 6c 75 65 20 67 69 76 65 |using va|lue give|
|00004790| 6e 29 0a 58 3b 0a 58 0a | 58 3a 20 65 6e 75 6d 20 |n).X;.X.|X: enum |
|000047a0| 28 20 69 64 31 20 2d 2d | 20 69 64 32 29 20 20 0a |( id1 --| id2) .|
|000047b0| 58 20 20 64 75 70 20 3e | 65 6e 75 6d 20 65 6e 75 |X dup >|enum enu|
|000047c0| 6d 2e 6e 75 6c 6c 09 09 | 09 28 20 43 72 65 61 74 |m.null..|.( Creat|
|000047d0| 65 20 61 6e 20 69 74 65 | 6d 20 61 6e 64 20 61 64 |e an ite|m and ad|
|000047e0| 76 61 6e 63 65 20 69 64 | 65 6e 74 2e 29 0a 58 3b |vance id|ent.).X;|
|000047f0| 0a 58 0a 58 3a 20 65 6e | 75 6d 2e 65 6e 64 20 28 |.X.X: en|um.end (|
|00004800| 20 69 64 33 20 2d 2d 20 | 29 20 20 0a 58 20 20 64 | id3 -- |) .X d|
|00004810| 72 6f 70 20 20 09 09 09 | 09 28 20 44 72 6f 70 20 |rop ...|.( Drop |
|00004820| 69 64 65 6e 74 69 74 79 | 20 76 61 6c 75 65 29 0a |identity| value).|
|00004830| 58 3b 0a 58 0a 58 66 6f | 72 74 68 20 6f 6e 6c 79 |X;.X.Xfo|rth only|
|00004840| 0a 58 0a 45 4e 44 5f 4f | 46 5f 6c 69 62 2f 65 6e |.X.END_O|F_lib/en|
|00004850| 75 6d 65 72 61 74 65 73 | 2e 66 38 33 0a 69 66 20 |umerates|.f83.if |
|00004860| 74 65 73 74 20 31 37 36 | 35 20 2d 6e 65 20 60 77 |test 176|5 -ne `w|
|00004870| 63 20 2d 63 20 3c 6c 69 | 62 2f 65 6e 75 6d 65 72 |c -c <li|b/enumer|
|00004880| 61 74 65 73 2e 66 38 33 | 60 3b 20 74 68 65 6e 0a |ates.f83|`; then.|
|00004890| 20 20 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 5c | echo| shar: \|
|000048a0| 22 6c 69 62 2f 65 6e 75 | 6d 65 72 61 74 65 73 2e |"lib/enu|merates.|
|000048b0| 66 38 33 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |f83\" un|packed w|
|000048c0| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|000048d0| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|000048e0| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|000048f0| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 6c 69 62 2f |.if test| -f lib/|
|00004900| 6c 69 73 74 73 2e 66 38 | 33 20 2d 61 20 22 24 7b |lists.f8|3 -a "${|
|00004910| 31 7d 22 20 21 3d 20 22 | 2d 63 22 20 3b 20 74 68 |1}" != "|-c" ; th|
|00004920| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en . ec|ho shar:|
|00004930| 20 57 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | Will no|t over-w|
|00004940| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|00004950| 6c 65 20 5c 22 6c 69 62 | 2f 6c 69 73 74 73 2e 66 |le \"lib|/lists.f|
|00004960| 38 33 5c 22 0a 65 6c 73 | 65 0a 65 63 68 6f 20 73 |83\".els|e.echo s|
|00004970| 68 61 72 3a 20 45 78 74 | 72 61 63 74 69 6e 67 20 |har: Ext|racting |
|00004980| 5c 22 6c 69 62 2f 6c 69 | 73 74 73 2e 66 38 33 5c |\"lib/li|sts.f83\|
|00004990| 22 20 5c 28 32 33 35 32 | 20 63 68 61 72 61 63 74 |" \(2352| charact|
|000049a0| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|000049b0| 2f 22 20 3e 6c 69 62 2f | 6c 69 73 74 73 2e 66 38 |/" >lib/|lists.f8|
|000049c0| 33 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 6c 69 62 2f |3 <<'END|_OF_lib/|
|000049d0| 6c 69 73 74 73 2e 66 38 | 33 27 0a 58 5c 0a 58 5c |lists.f8|3'.X\.X\|
|000049e0| 20 20 53 49 4e 47 4c 45 | 20 4c 49 4e 4b 45 44 20 | SINGLE| LINKED |
|000049f0| 4c 49 53 54 53 0a 58 5c | 0a 58 5c 20 20 43 6f 70 |LISTS.X\|.X\ Cop|
|00004a00| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 39 30 20 |yright (|c) 1990 |
|00004a10| 62 79 20 4d 69 6b 61 65 | 6c 20 52 2e 4b 2e 20 50 |by Mikae|l R.K. P|
|00004a20| 61 74 65 6c 0a 58 5c 0a | 58 5c 20 20 43 6f 6d 70 |atel.X\.|X\ Comp|
|00004a30| 75 74 65 72 20 41 69 64 | 65 64 20 44 65 73 69 67 |uter Aid|ed Desig|
|00004a40| 6e 20 4c 61 62 6f 72 61 | 74 6f 72 79 20 28 43 41 |n Labora|tory (CA|
|00004a50| 44 4c 41 42 29 0a 58 5c | 20 20 44 65 70 61 72 74 |DLAB).X\| Depart|
|00004a60| 6d 65 6e 74 20 6f 66 20 | 43 6f 6d 70 75 74 65 72 |ment of |Computer|
|00004a70| 20 61 6e 64 20 49 6e 66 | 6f 72 6d 61 74 69 6f 6e | and Inf|ormation|
|00004a80| 20 53 63 69 65 6e 63 65 | 0a 58 5c 20 20 4c 69 6e | Science|.X\ Lin|
|00004a90| 6b 6f 70 69 6e 67 20 55 | 6e 69 76 65 72 73 69 74 |koping U|niversit|
|00004aa0| 79 0a 58 5c 20 20 53 2d | 35 38 31 20 38 33 20 4c |y.X\ S-|581 83 L|
|00004ab0| 49 4e 4b 4f 50 49 4e 47 | 0a 58 5c 20 20 53 57 45 |INKOPING|.X\ SWE|
|00004ac0| 44 45 4e 0a 58 5c 0a 58 | 5c 20 20 45 6d 61 69 6c |DEN.X\.X|\ Email|
|00004ad0| 3a 20 6d 69 70 40 69 64 | 61 2e 6c 69 75 2e 73 65 |: mip@id|a.liu.se|
|00004ae0| 0a 58 5c 0a 58 5c 20 20 | 53 74 61 72 74 65 64 20 |.X\.X\ |Started |
|00004af0| 6f 6e 3a 20 31 20 4d 61 | 79 20 31 39 39 30 0a 58 |on: 1 Ma|y 1990.X|
|00004b00| 5c 0a 58 5c 20 20 4c 61 | 73 74 20 75 70 64 61 74 |\.X\ La|st updat|
|00004b10| 65 64 20 6f 6e 3a 20 31 | 39 20 4a 75 6e 65 20 31 |ed on: 1|9 June 1|
|00004b20| 39 39 30 0a 58 5c 0a 58 | 5c 20 20 44 65 70 65 6e |990.X\.X|\ Depen|
|00004b30| 64 65 6e 63 69 65 73 3a | 0a 58 5c 20 20 20 20 20 |dencies:|.X\ |
|00004b40| 20 20 28 66 6f 72 74 68 | 29 20 66 6f 72 74 68 2c | (forth|) forth,|
|00004b50| 20 62 6c 6f 63 6b 73 0a | 58 5c 0a 58 5c 20 20 44 | blocks.|X\.X\ D|
|00004b60| 65 73 63 72 69 70 74 69 | 6f 6e 3a 0a 58 5c 20 20 |escripti|on:.X\ |
|00004b70| 20 20 20 20 20 4d 61 6e | 61 67 65 6d 65 6e 74 20 | Man|agement |
|00004b80| 6f 66 20 73 69 6e 67 6c | 65 20 6c 69 6e 6b 65 64 |of singl|e linked|
|00004b90| 20 6c 69 73 74 73 2e 20 | 52 65 71 75 69 72 65 73 | lists. |Requires|
|00004ba0| 20 74 68 61 74 20 74 68 | 65 20 6c 69 73 74 0a 58 | that th|e list.X|
|00004bb0| 5c 20 20 20 20 20 20 20 | 73 74 72 75 63 74 75 72 |\ |structur|
|00004bc0| 65 73 20 68 61 76 65 20 | 74 68 65 20 6c 69 6e 6b |es have |the link|
|00004bd0| 20 61 73 20 74 68 65 20 | 66 69 72 73 74 20 66 69 | as the |first fi|
|00004be0| 65 6c 64 2e 0a 58 5c 0a | 58 5c 20 20 43 6f 70 79 |eld..X\.|X\ Copy|
|00004bf0| 69 6e 67 3a 0a 58 5c 20 | 20 20 20 20 20 20 54 68 |ing:.X\ | Th|
|00004c00| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 66 72 |is progr|am is fr|
|00004c10| 65 65 20 73 6f 66 74 77 | 61 72 65 3b 20 79 6f 75 |ee softw|are; you|
|00004c20| 20 63 61 6e 20 72 65 64 | 69 73 74 72 69 62 75 74 | can red|istribut|
|00004c30| 65 20 69 74 20 61 6e 64 | 5c 6f 72 20 6d 6f 64 69 |e it and|\or modi|
|00004c40| 66 79 0a 58 5c 20 20 20 | 20 20 20 20 69 74 20 75 |fy.X\ | it u|
|00004c50| 6e 64 65 72 20 74 68 65 | 20 74 65 72 6d 73 20 6f |nder the| terms o|
|00004c60| 66 20 74 68 65 20 47 4e | 55 20 47 65 6e 65 72 61 |f the GN|U Genera|
|00004c70| 6c 20 50 75 62 6c 69 63 | 20 4c 69 63 65 6e 73 65 |l Public| License|
|00004c80| 20 61 73 20 70 75 62 6c | 69 73 68 65 64 20 62 79 | as publ|ished by|
|00004c90| 0a 58 5c 20 20 20 20 20 | 20 20 74 68 65 20 46 72 |.X\ | the Fr|
|00004ca0| 65 65 20 53 6f 66 74 77 | 61 72 65 20 46 6f 75 6e |ee Softw|are Foun|
|00004cb0| 64 61 74 69 6f 6e 3b 20 | 65 69 74 68 65 72 20 76 |dation; |either v|
|00004cc0| 65 72 73 69 6f 6e 20 31 | 2c 20 6f 72 20 28 61 74 |ersion 1|, or (at|
|00004cd0| 20 79 6f 75 72 20 6f 70 | 74 69 6f 6e 29 0a 58 5c | your op|tion).X\|
|00004ce0| 20 20 20 20 20 20 20 61 | 6e 79 20 6c 61 74 65 72 | a|ny later|
|00004cf0| 20 76 65 72 73 69 6f 6e | 2e 0a 58 5c 0a 58 5c 20 | version|..X\.X\ |
|00004d00| 20 20 20 20 20 20 54 68 | 69 73 20 70 72 6f 67 72 | Th|is progr|
|00004d10| 61 6d 20 69 73 20 64 69 | 73 74 72 69 62 75 74 65 |am is di|stribute|
|00004d20| 64 20 69 6e 20 74 68 65 | 20 68 6f 70 65 20 74 68 |d in the| hope th|
|00004d30| 61 74 20 69 74 20 77 69 | 6c 6c 20 62 65 20 75 73 |at it wi|ll be us|
|00004d40| 65 66 75 6c 2c 0a 58 5c | 20 20 20 20 20 20 20 62 |eful,.X\| b|
|00004d50| 75 74 20 57 49 54 48 4f | 55 54 20 41 4e 59 20 57 |ut WITHO|UT ANY W|
|00004d60| 41 52 52 41 4e 54 59 3b | 20 77 69 74 68 6f 75 74 |ARRANTY;| without|
|00004d70| 20 65 76 65 6e 20 74 68 | 65 20 69 6d 70 6c 69 65 | even th|e implie|
|00004d80| 64 20 77 61 72 72 61 6e | 74 79 20 6f 66 0a 58 5c |d warran|ty of.X\|
|00004d90| 20 20 20 20 20 20 20 4d | 45 52 43 48 41 4e 54 41 | M|ERCHANTA|
|00004da0| 42 49 4c 49 54 59 20 6f | 72 20 46 49 54 4e 45 53 |BILITY o|r FITNES|
|00004db0| 53 20 46 4f 52 20 41 20 | 50 41 52 54 49 43 55 4c |S FOR A |PARTICUL|
|00004dc0| 41 52 20 50 55 52 50 4f | 53 45 2e 20 20 53 65 65 |AR PURPO|SE. See|
|00004dd0| 20 74 68 65 0a 58 5c 20 | 20 20 20 20 20 20 47 4e | the.X\ | GN|
|00004de0| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|00004df0| 20 4c 69 63 65 6e 73 65 | 20 66 6f 72 20 6d 6f 72 | License| for mor|
|00004e00| 65 20 64 65 74 61 69 6c | 73 2e 0a 58 5c 0a 58 5c |e detail|s..X\.X\|
|00004e10| 20 20 20 20 20 20 20 59 | 6f 75 20 73 68 6f 75 6c | Y|ou shoul|
|00004e20| 64 20 68 61 76 65 20 72 | 65 63 65 69 76 65 64 20 |d have r|eceived |
|00004e30| 61 20 63 6f 70 79 20 6f | 66 20 74 68 65 20 47 4e |a copy o|f the GN|
|00004e40| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|00004e50| 20 4c 69 63 65 6e 73 65 | 0a 58 5c 20 20 20 20 20 | License|.X\ |
|00004e60| 20 20 61 6c 6f 6e 67 20 | 77 69 74 68 20 74 68 69 | along |with thi|
|00004e70| 73 20 70 72 6f 67 72 61 | 6d 3b 20 73 65 65 20 74 |s progra|m; see t|
|00004e80| 68 65 20 66 69 6c 65 20 | 43 4f 50 59 49 4e 47 2e |he file |COPYING.|
|00004e90| 20 20 49 66 20 6e 6f 74 | 2c 20 77 72 69 74 65 20 | If not|, write |
|00004ea0| 74 6f 0a 58 5c 20 20 20 | 20 20 20 20 74 68 65 20 |to.X\ | the |
|00004eb0| 46 72 65 65 20 53 6f 66 | 74 77 61 72 65 20 46 6f |Free Sof|tware Fo|
|00004ec0| 75 6e 64 61 74 69 6f 6e | 2c 20 36 37 35 20 4d 61 |undation|, 675 Ma|
|00004ed0| 73 73 20 41 76 65 2c 20 | 43 61 6d 62 72 69 64 67 |ss Ave, |Cambridg|
|00004ee0| 65 2c 20 4d 41 20 30 32 | 31 33 39 2c 20 55 53 41 |e, MA 02|139, USA|
|00004ef0| 2e 20 0a 58 0a 58 2e 28 | 20 4c 6f 61 64 69 6e 67 |. .X.X.(| Loading|
|00004f00| 20 4c 69 73 74 73 20 64 | 65 66 69 6e 69 74 69 6f | Lists d|efinitio|
|00004f10| 6e 73 2e 2e 2e 29 20 63 | 72 0a 58 0a 58 23 69 6e |ns...) c|r.X.X#in|
|00004f20| 63 6c 75 64 65 20 62 6c | 6f 63 6b 73 2e 66 38 33 |clude bl|ocks.f83|
|00004f30| 0a 58 0a 58 76 6f 63 61 | 62 75 6c 61 72 79 20 6c |.X.Xvoca|bulary l|
|00004f40| 69 73 74 73 0a 58 0a 58 | 62 6c 6f 63 6b 73 20 6c |ists.X.X|blocks l|
|00004f50| 69 73 74 73 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |ists def|initions|
|00004f60| 0a 58 0a 58 3a 20 6c 69 | 73 74 20 28 20 6e 20 2d |.X.X: li|st ( n -|
|00004f70| 2d 20 29 0a 58 20 20 63 | 72 65 61 74 65 20 6e 69 |- ).X c|reate ni|
|00004f80| 6c 20 2c 20 61 6c 6c 6f | 74 0a 58 3b 0a 58 0a 58 |l , allo|t.X;.X.X|
|00004f90| 3a 20 65 6d 70 74 79 2d | 6c 69 73 74 20 28 20 6c |: empty-|list ( l|
|00004fa0| 69 73 74 20 2d 2d 20 29 | 0a 58 20 20 6e 69 6c 20 |ist -- )|.X nil |
|00004fb0| 73 77 61 70 20 21 0a 58 | 3b 0a 58 0a 58 3a 20 73 |swap !.X|;.X.X: s|
|00004fc0| 65 61 72 63 68 2d 6c 69 | 73 74 20 28 20 65 6c 65 |earch-li|st ( ele|
|00004fd0| 6d 65 6e 74 20 6c 69 73 | 74 20 2d 2d 20 5b 65 6c |ment lis|t -- [el|
|00004fe0| 65 6d 65 6e 74 20 6c 61 | 73 74 5d 20 6f 72 20 5b |ement la|st] or [|
|00004ff0| 66 61 6c 73 65 5d 29 0a | 58 20 20 62 65 67 69 6e |false]).|X begin|
|00005000| 0a 58 20 20 20 20 32 64 | 75 70 20 3d 0a 58 20 20 |.X 2d|up =.X |
|00005010| 20 20 6f 76 65 72 20 40 | 20 30 3d 20 6f 72 20 6e | over @| 0= or n|
|00005020| 6f 74 0a 58 20 20 77 68 | 69 6c 65 0a 58 20 20 20 |ot.X wh|ile.X |
|00005030| 20 40 0a 58 20 20 72 65 | 70 65 61 74 0a 58 20 20 | @.X re|peat.X |
|00005040| 64 75 70 20 40 20 69 66 | 20 32 64 72 6f 70 20 66 |dup @ if| 2drop f|
|00005050| 61 6c 73 65 20 74 68 65 | 6e 0a 58 3b 0a 58 0a 58 |alse the|n.X;.X.X|
|00005060| 3a 20 61 70 70 65 6e 64 | 2d 6c 69 73 74 20 28 20 |: append|-list ( |
|00005070| 65 6c 65 6d 65 6e 74 20 | 6c 69 73 74 20 2d 2d 20 |element |list -- |
|00005080| 29 0a 58 20 20 73 65 61 | 72 63 68 2d 6c 69 73 74 |).X sea|rch-list|
|00005090| 20 3f 64 75 70 20 69 66 | 20 21 20 74 68 65 6e 0a | ?dup if| ! then.|
|000050a0| 58 3b 0a 58 0a 58 3a 20 | 69 6e 73 65 72 74 2d 6c |X;.X.X: |insert-l|
|000050b0| 69 73 74 20 28 20 65 6c | 65 6d 65 6e 74 20 6c 69 |ist ( el|ement li|
|000050c0| 73 74 20 2d 2d 20 29 0a | 58 20 20 32 64 75 70 20 |st -- ).|X 2dup |
|000050d0| 40 20 73 77 61 70 20 21 | 20 21 0a 58 3b 0a 58 0a |@ swap !| !.X;.X.|
|000050e0| 58 3a 20 73 69 7a 65 2d | 6c 69 73 74 20 28 20 6c |X: size-|list ( l|
|000050f0| 69 73 74 20 2d 2d 20 69 | 6e 74 29 0a 58 20 20 30 |ist -- i|nt).X 0|
|00005100| 20 73 77 61 70 0a 58 20 | 20 62 65 67 69 6e 0a 58 | swap.X | begin.X|
|00005110| 20 20 20 20 3f 64 75 70 | 0a 58 20 20 77 68 69 6c | ?dup|.X whil|
|00005120| 65 0a 58 20 20 20 20 73 | 77 61 70 20 31 2b 20 73 |e.X s|wap 1+ s|
|00005130| 77 61 70 20 40 0a 58 20 | 20 72 65 70 65 61 74 0a |wap @.X | repeat.|
|00005140| 58 3b 0a 58 0a 58 3a 20 | 6d 61 70 2d 6c 69 73 74 |X;.X.X: |map-list|
|00005150| 20 28 20 6c 69 73 74 20 | 62 6c 6f 63 6b 5b 65 6c | ( list |block[el|
|00005160| 65 6d 65 6e 74 20 2d 2d | 20 5d 20 2d 2d 20 29 0a |ement --| ] -- ).|
|00005170| 58 20 20 3e 72 0a 58 20 | 20 62 65 67 69 6e 0a 58 |X >r.X | begin.X|
|00005180| 20 20 20 20 3f 64 75 70 | 0a 58 20 20 77 68 69 6c | ?dup|.X whil|
|00005190| 65 0a 58 20 20 20 20 64 | 75 70 20 72 40 20 73 77 |e.X d|up r@ sw|
|000051a0| 61 70 20 3e 72 0a 58 20 | 20 20 20 63 61 6c 6c 0a |ap >r.X | call.|
|000051b0| 58 20 20 20 20 72 3e 20 | 40 0a 58 20 20 72 65 70 |X r> |@.X rep|
|000051c0| 65 61 74 0a 58 20 20 72 | 3e 20 64 72 6f 70 0a 58 |eat.X r|> drop.X|
|000051d0| 3b 0a 58 0a 58 3a 20 3f | 6d 61 70 2d 6c 69 73 74 |;.X.X: ?|map-list|
|000051e0| 20 28 20 6c 69 73 74 20 | 62 6c 6f 63 6b 5b 65 6c | ( list |block[el|
|000051f0| 65 6d 65 6e 74 20 2d 2d | 20 62 6f 6f 6c 5d 20 2d |ement --| bool] -|
|00005200| 2d 20 29 0a 58 20 20 3e | 72 0a 58 20 20 62 65 67 |- ).X >|r.X beg|
|00005210| 69 6e 0a 58 20 20 20 20 | 3f 64 75 70 0a 58 20 20 |in.X |?dup.X |
|00005220| 77 68 69 6c 65 0a 58 20 | 20 20 20 64 75 70 20 72 |while.X | dup r|
|00005230| 40 20 73 77 61 70 20 3e | 72 0a 58 20 20 20 20 63 |@ swap >|r.X c|
|00005240| 61 6c 6c 0a 58 20 20 20 | 20 69 66 20 32 72 3e 20 |all.X | if 2r> |
|00005250| 32 64 72 6f 70 20 65 78 | 69 74 20 74 68 65 6e 0a |2drop ex|it then.|
|00005260| 58 20 20 20 20 72 3e 20 | 40 0a 58 20 20 72 65 70 |X r> |@.X rep|
|00005270| 65 61 74 0a 58 20 20 72 | 3e 20 64 72 6f 70 0a 58 |eat.X r|> drop.X|
|00005280| 3b 0a 58 0a 58 3a 20 61 | 70 70 6c 79 2d 6c 69 73 |;.X.X: a|pply-lis|
|00005290| 74 20 28 20 6f 66 66 73 | 65 74 20 6c 69 73 74 20 |t ( offs|et list |
|000052a0| 2d 2d 20 29 0a 58 20 20 | 62 65 67 69 6e 0a 58 20 |-- ).X |begin.X |
|000052b0| 20 20 20 3f 64 75 70 0a | 58 20 20 77 68 69 6c 65 | ?dup.|X while|
|000052c0| 0a 58 20 20 20 20 32 64 | 75 70 20 32 3e 72 20 2b |.X 2d|up 2>r +|
|000052d0| 20 40 0a 58 20 20 20 20 | 65 78 65 63 75 74 65 0a | @.X |execute.|
|000052e0| 58 20 20 20 20 32 72 3e | 20 40 0a 58 20 20 72 65 |X 2r>| @.X re|
|000052f0| 70 65 61 74 0a 58 3b 0a | 58 0a 58 3a 20 3f 6d 65 |peat.X;.|X.X: ?me|
|00005300| 6d 62 65 72 2d 6c 69 73 | 74 20 28 20 65 6c 65 6d |mber-lis|t ( elem|
|00005310| 65 6e 74 20 6c 69 73 74 | 20 2d 2d 20 62 6f 6f 6c |ent list| -- bool|
|00005320| 29 0a 58 20 20 73 65 61 | 72 63 68 2d 6c 69 73 74 |).X sea|rch-list|
|00005330| 20 69 66 20 64 72 6f 70 | 20 66 61 6c 73 65 20 65 | if drop| false e|
|00005340| 6c 73 65 20 74 72 75 65 | 20 74 68 65 6e 0a 58 3b |lse true| then.X;|
|00005350| 0a 58 0a 58 3a 20 3f 65 | 6d 70 74 79 2d 6c 69 73 |.X.X: ?e|mpty-lis|
|00005360| 74 20 28 20 6c 69 73 74 | 20 2d 2d 20 62 6f 6f 6c |t ( list| -- bool|
|00005370| 29 0a 58 20 20 30 3d 0a | 58 3b 0a 58 0a 58 66 6f |).X 0=.|X;.X.Xfo|
|00005380| 72 74 68 20 6f 6e 6c 79 | 0a 45 4e 44 5f 4f 46 5f |rth only|.END_OF_|
|00005390| 6c 69 62 2f 6c 69 73 74 | 73 2e 66 38 33 0a 69 66 |lib/list|s.f83.if|
|000053a0| 20 74 65 73 74 20 32 33 | 35 32 20 2d 6e 65 20 60 | test 23|52 -ne `|
|000053b0| 77 63 20 2d 63 20 3c 6c | 69 62 2f 6c 69 73 74 73 |wc -c <l|ib/lists|
|000053c0| 2e 66 38 33 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |.f83`; t|hen. |
|000053d0| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 6c 69 62 |echo sha|r: \"lib|
|000053e0| 2f 6c 69 73 74 73 2e 66 | 38 33 5c 22 20 75 6e 70 |/lists.f|83\" unp|
|000053f0| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|00005400| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|00005410| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00005420| 68 65 63 6b 0a 66 69 0a | 69 66 20 74 65 73 74 20 |heck.fi.|if test |
|00005430| 2d 66 20 6c 69 62 2f 6d | 61 63 72 6f 73 2e 66 38 |-f lib/m|acros.f8|
|00005440| 33 20 2d 61 20 22 24 7b | 31 7d 22 20 21 3d 20 22 |3 -a "${|1}" != "|
|00005450| 2d 63 22 20 3b 20 74 68 | 65 6e 20 0a 20 20 65 63 |-c" ; th|en . ec|
|00005460| 68 6f 20 73 68 61 72 3a | 20 57 69 6c 6c 20 6e 6f |ho shar:| Will no|
|00005470| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00005480| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 6c 69 62 |sting fi|le \"lib|
|00005490| 2f 6d 61 63 72 6f 73 2e | 66 38 33 5c 22 0a 65 6c |/macros.|f83\".el|
|000054a0| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|000054b0| 74 72 61 63 74 69 6e 67 | 20 5c 22 6c 69 62 2f 6d |tracting| \"lib/m|
|000054c0| 61 63 72 6f 73 2e 66 38 | 33 5c 22 20 5c 28 32 34 |acros.f8|3\" \(24|
|000054d0| 32 34 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |24 chara|cters\).|
|000054e0| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 6c 69 |sed "s/^|X//" >li|
|000054f0| 62 2f 6d 61 63 72 6f 73 | 2e 66 38 33 20 3c 3c 27 |b/macros|.f83 <<'|
|00005500| 45 4e 44 5f 4f 46 5f 6c | 69 62 2f 6d 61 63 72 6f |END_OF_l|ib/macro|
|00005510| 73 2e 66 38 33 27 0a 58 | 5c 0a 58 5c 20 20 4d 41 |s.f83'.X|\.X\ MA|
|00005520| 43 52 4f 20 44 45 46 49 | 4e 49 54 49 4f 4e 53 0a |CRO DEFI|NITIONS.|
|00005530| 58 5c 0a 58 5c 20 20 43 | 6f 70 79 72 69 67 68 74 |X\.X\ C|opyright|
|00005540| 20 28 63 29 20 31 39 38 | 38 2d 31 39 39 30 20 62 | (c) 198|8-1990 b|
|00005550| 79 20 4d 69 6b 61 65 6c | 20 52 2e 4b 2e 20 50 61 |y Mikael| R.K. Pa|
|00005560| 74 65 6c 0a 58 5c 0a 58 | 5c 20 20 43 6f 6d 70 75 |tel.X\.X|\ Compu|
|00005570| 74 65 72 20 41 69 64 65 | 64 20 44 65 73 69 67 6e |ter Aide|d Design|
|00005580| 20 4c 61 62 6f 72 61 74 | 6f 72 79 20 28 43 41 44 | Laborat|ory (CAD|
|00005590| 4c 41 42 29 0a 58 5c 20 | 20 44 65 70 61 72 74 6d |LAB).X\ | Departm|
|000055a0| 65 6e 74 20 6f 66 20 43 | 6f 6d 70 75 74 65 72 20 |ent of C|omputer |
|000055b0| 61 6e 64 20 49 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |and Info|rmation |
|000055c0| 53 63 69 65 6e 63 65 0a | 58 5c 20 20 4c 69 6e 6b |Science.|X\ Link|
|000055d0| 6f 70 69 6e 67 20 55 6e | 69 76 65 72 73 69 74 79 |oping Un|iversity|
|000055e0| 0a 58 5c 20 20 53 2d 35 | 38 31 20 38 33 20 4c 49 |.X\ S-5|81 83 LI|
|000055f0| 4e 4b 4f 50 49 4e 47 0a | 58 5c 20 20 53 57 45 44 |NKOPING.|X\ SWED|
|00005600| 45 4e 0a 58 5c 0a 58 5c | 20 20 45 6d 61 69 6c 3a |EN.X\.X\| Email:|
|00005610| 20 6d 69 70 40 69 64 61 | 2e 6c 69 75 2e 73 65 0a | mip@ida|.liu.se.|
|00005620| 58 5c 0a 58 5c 20 20 53 | 74 61 72 74 65 64 20 6f |X\.X\ S|tarted o|
|00005630| 6e 3a 20 33 30 20 4a 75 | 6e 65 20 31 39 38 38 0a |n: 30 Ju|ne 1988.|
|00005640| 58 5c 0a 58 5c 20 20 4c | 61 73 74 20 75 70 64 61 |X\.X\ L|ast upda|
|00005650| 74 65 64 20 6f 6e 3a 20 | 31 39 20 4a 75 6e 65 20 |ted on: |19 June |
|00005660| 31 39 39 30 0a 58 5c 0a | 58 5c 20 20 44 65 70 65 |1990.X\.|X\ Depe|
|00005670| 6e 64 65 6e 63 69 65 73 | 3a 0a 58 5c 20 20 20 20 |ndencies|:.X\ |
|00005680| 20 20 20 28 66 6f 72 74 | 68 29 20 66 6f 72 74 68 | (fort|h) forth|
|00005690| 2c 20 73 74 72 75 63 74 | 75 72 65 73 0a 58 5c 0a |, struct|ures.X\.|
|000056a0| 58 5c 20 20 44 65 73 63 | 72 69 70 74 69 6f 6e 3a |X\ Desc|ription:|
|000056b0| 0a 58 5c 20 20 20 20 20 | 20 20 41 6c 6c 6f 77 73 |.X\ | Allows|
|000056c0| 20 63 6f 6c 6f 6e 20 64 | 65 66 69 6e 69 74 69 6f | colon d|efinitio|
|000056d0| 6e 73 20 74 6f 20 62 65 | 20 6d 61 72 6b 65 64 20 |ns to be| marked |
|000056e0| 61 73 20 6d 61 63 72 6f | 73 20 61 6e 64 20 74 68 |as macro|s and th|
|000056f0| 75 73 20 65 78 70 61 6e | 64 0a 58 5c 20 20 20 20 |us expan|d.X\ |
|00005700| 20 20 20 77 68 65 6e 20 | 75 73 65 64 20 69 6e 20 | when |used in |
|00005710| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 28 65 6c 73 |compilat|ion (els|
|00005720| 65 20 65 78 65 63 75 74 | 65 64 29 2e 0a 58 5c 0a |e execut|ed)..X\.|
|00005730| 58 5c 20 20 43 6f 70 79 | 69 6e 67 3a 0a 58 5c 20 |X\ Copy|ing:.X\ |
|00005740| 20 20 20 20 20 20 54 68 | 69 73 20 70 72 6f 67 72 | Th|is progr|
|00005750| 61 6d 20 69 73 20 66 72 | 65 65 20 73 6f 66 74 77 |am is fr|ee softw|
|00005760| 61 72 65 3b 20 79 6f 75 | 20 63 61 6e 20 72 65 64 |are; you| can red|
|00005770| 69 73 74 72 69 62 75 74 | 65 20 69 74 20 61 6e 64 |istribut|e it and|
|00005780| 5c 6f 72 20 6d 6f 64 69 | 66 79 0a 58 5c 20 20 20 |\or modi|fy.X\ |
|00005790| 20 20 20 20 69 74 20 75 | 6e 64 65 72 20 74 68 65 | it u|nder the|
|000057a0| 20 74 65 72 6d 73 20 6f | 66 20 74 68 65 20 47 4e | terms o|f the GN|
|000057b0| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|000057c0| 20 4c 69 63 65 6e 73 65 | 20 61 73 20 70 75 62 6c | License| as publ|
|000057d0| 69 73 68 65 64 20 62 79 | 0a 58 5c 20 20 20 20 20 |ished by|.X\ |
|000057e0| 20 20 74 68 65 20 46 72 | 65 65 20 53 6f 66 74 77 | the Fr|ee Softw|
|000057f0| 61 72 65 20 46 6f 75 6e | 64 61 74 69 6f 6e 3b 20 |are Foun|dation; |
|00005800| 65 69 74 68 65 72 20 76 | 65 72 73 69 6f 6e 20 31 |either v|ersion 1|
|00005810| 2c 20 6f 72 20 28 61 74 | 20 79 6f 75 72 20 6f 70 |, or (at| your op|
|00005820| 74 69 6f 6e 29 0a 58 5c | 20 20 20 20 20 20 20 61 |tion).X\| a|
|00005830| 6e 79 20 6c 61 74 65 72 | 20 76 65 72 73 69 6f 6e |ny later| version|
|00005840| 2e 0a 58 5c 0a 58 5c 20 | 20 20 20 20 20 20 54 68 |..X\.X\ | Th|
|00005850| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 64 69 |is progr|am is di|
|00005860| 73 74 72 69 62 75 74 65 | 64 20 69 6e 20 74 68 65 |stribute|d in the|
|00005870| 20 68 6f 70 65 20 74 68 | 61 74 20 69 74 20 77 69 | hope th|at it wi|
|00005880| 6c 6c 20 62 65 20 75 73 | 65 66 75 6c 2c 0a 58 5c |ll be us|eful,.X\|
|00005890| 20 20 20 20 20 20 20 62 | 75 74 20 57 49 54 48 4f | b|ut WITHO|
|000058a0| 55 54 20 41 4e 59 20 57 | 41 52 52 41 4e 54 59 3b |UT ANY W|ARRANTY;|
|000058b0| 20 77 69 74 68 6f 75 74 | 20 65 76 65 6e 20 74 68 | without| even th|
|000058c0| 65 20 69 6d 70 6c 69 65 | 64 20 77 61 72 72 61 6e |e implie|d warran|
|000058d0| 74 79 20 6f 66 0a 58 5c | 20 20 20 20 20 20 20 4d |ty of.X\| M|
|000058e0| 45 52 43 48 41 4e 54 41 | 42 49 4c 49 54 59 20 6f |ERCHANTA|BILITY o|
|000058f0| 72 20 46 49 54 4e 45 53 | 53 20 46 4f 52 20 41 20 |r FITNES|S FOR A |
|00005900| 50 41 52 54 49 43 55 4c | 41 52 20 50 55 52 50 4f |PARTICUL|AR PURPO|
|00005910| 53 45 2e 20 20 53 65 65 | 20 74 68 65 0a 58 5c 20 |SE. See| the.X\ |
|00005920| 20 20 20 20 20 20 47 4e | 55 20 47 65 6e 65 72 61 | GN|U Genera|
|00005930| 6c 20 50 75 62 6c 69 63 | 20 4c 69 63 65 6e 73 65 |l Public| License|
|00005940| 20 66 6f 72 20 6d 6f 72 | 65 20 64 65 74 61 69 6c | for mor|e detail|
|00005950| 73 2e 0a 58 5c 0a 58 5c | 20 20 20 20 20 20 20 59 |s..X\.X\| Y|
|00005960| 6f 75 20 73 68 6f 75 6c | 64 20 68 61 76 65 20 72 |ou shoul|d have r|
|00005970| 65 63 65 69 76 65 64 20 | 61 20 63 6f 70 79 20 6f |eceived |a copy o|
|00005980| 66 20 74 68 65 20 47 4e | 55 20 47 65 6e 65 72 61 |f the GN|U Genera|
|00005990| 6c 20 50 75 62 6c 69 63 | 20 4c 69 63 65 6e 73 65 |l Public| License|
|000059a0| 0a 58 5c 20 20 20 20 20 | 20 20 61 6c 6f 6e 67 20 |.X\ | along |
|000059b0| 77 69 74 68 20 74 68 69 | 73 20 70 72 6f 67 72 61 |with thi|s progra|
|000059c0| 6d 3b 20 73 65 65 20 74 | 68 65 20 66 69 6c 65 20 |m; see t|he file |
|000059d0| 43 4f 50 59 49 4e 47 2e | 20 20 49 66 20 6e 6f 74 |COPYING.| If not|
|000059e0| 2c 20 77 72 69 74 65 20 | 74 6f 0a 58 5c 20 20 20 |, write |to.X\ |
|000059f0| 20 20 20 20 74 68 65 20 | 46 72 65 65 20 53 6f 66 | the |Free Sof|
|00005a00| 74 77 61 72 65 20 46 6f | 75 6e 64 61 74 69 6f 6e |tware Fo|undation|
|00005a10| 2c 20 36 37 35 20 4d 61 | 73 73 20 41 76 65 2c 20 |, 675 Ma|ss Ave, |
|00005a20| 43 61 6d 62 72 69 64 67 | 65 2c 20 4d 41 20 30 32 |Cambridg|e, MA 02|
|00005a30| 31 33 39 2c 20 55 53 41 | 2e 20 0a 58 0a 58 2e 28 |139, USA|. .X.X.(|
|00005a40| 20 4c 6f 61 64 69 6e 67 | 20 4d 61 63 72 6f 20 64 | Loading| Macro d|
|00005a50| 65 66 69 6e 69 74 69 6f | 6e 73 2e 2e 2e 29 20 63 |efinitio|ns...) c|
|00005a60| 72 0a 58 0a 58 23 69 6e | 63 6c 75 64 65 20 69 6e |r.X.X#in|clude in|
|00005a70| 74 65 72 6e 61 6c 73 2e | 66 38 33 0a 58 23 69 6e |ternals.|f83.X#in|
|00005a80| 63 6c 75 64 65 20 73 74 | 72 75 63 74 75 72 65 73 |clude st|ructures|
|00005a90| 2e 66 38 33 0a 58 0a 58 | 76 6f 63 61 62 75 6c 61 |.f83.X.X|vocabula|
|00005aa0| 72 79 20 6d 61 63 72 6f | 73 0a 58 0a 58 73 74 72 |ry macro|s.X.Xstr|
|00005ab0| 75 63 74 75 72 65 73 20 | 66 6f 72 74 68 20 6d 61 |uctures |forth ma|
|00005ac0| 63 72 6f 73 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |cros def|initions|
|00005ad0| 0a 58 0a 58 73 74 72 75 | 63 74 2e 74 79 70 65 20 |.X.Xstru|ct.type |
|00005ae0| 4d 41 43 52 4f 20 28 20 | 2d 2d 20 29 20 70 72 69 |MACRO ( |-- ) pri|
|00005af0| 76 61 74 65 0a 58 20 20 | 70 74 72 20 20 2b 62 6f |vate.X |ptr +bo|
|00005b00| 64 79 20 70 72 69 76 61 | 74 65 09 09 09 28 20 50 |dy priva|te...( P|
|00005b10| 6f 69 6e 74 65 72 20 74 | 6f 20 6d 61 63 72 6f 20 |ointer t|o macro |
|00005b20| 63 6f 64 65 20 62 6f 64 | 79 29 0a 58 20 20 6c 6f |code bod|y).X lo|
|00005b30| 6e 67 20 2b 73 69 7a 65 | 20 70 72 69 76 61 74 65 |ng +size| private|
|00005b40| 09 09 09 28 20 53 69 7a | 65 20 6f 66 20 63 6f 64 |...( Siz|e of cod|
|00005b50| 65 20 62 6f 64 79 20 69 | 6e 20 62 79 74 65 73 29 |e body i|n bytes)|
|00005b60| 0a 58 73 74 72 75 63 74 | 2e 69 6e 69 74 20 28 20 |.Xstruct|.init ( |
|00005b70| 62 6f 64 79 20 73 69 7a | 65 20 4d 41 43 52 4f 20 |body siz|e MACRO |
|00005b80| 2d 2d 20 29 0a 58 20 20 | 74 75 63 6b 20 2b 73 69 |-- ).X |tuck +si|
|00005b90| 7a 65 20 21 20 2b 62 6f | 64 79 20 21 09 09 09 28 |ze ! +bo|dy !...(|
|00005ba0| 20 49 6e 69 74 69 61 74 | 65 20 6d 61 63 72 6f 20 | Initiat|e macro |
|00005bb0| 73 74 72 75 63 74 75 72 | 65 20 62 6c 6f 63 6b 29 |structur|e block)|
|00005bc0| 0a 58 73 74 72 75 63 74 | 2e 65 6e 64 0a 58 0a 58 |.Xstruct|.end.X.X|
|00005bd0| 3a 20 5b 6d 61 63 72 6f | 5d 20 28 20 6d 61 63 72 |: [macro|] ( macr|
|00005be0| 6f 20 2d 2d 20 29 0a 58 | 20 20 63 6f 6d 70 69 6c |o -- ).X| compil|
|00005bf0| 69 6e 67 09 09 09 09 28 | 20 43 68 65 63 6b 20 63 |ing....(| Check c|
|00005c00| 6f 6d 70 69 6c 61 74 69 | 6f 6e 20 73 74 61 74 65 |ompilati|on state|
|00005c10| 2e 20 49 66 20 63 6f 6d | 70 69 6c 69 6e 67 29 0a |. If com|piling).|
|00005c20| 58 20 20 69 66 20 64 75 | 70 20 2b 62 6f 64 79 20 |X if du|p +body |
|00005c30| 40 20 68 65 72 65 09 09 | 09 28 20 41 6c 6c 6f 63 |@ here..|.( Alloc|
|00005c40| 61 74 65 20 73 70 61 63 | 65 20 66 6f 72 20 63 6f |ate spac|e for co|
|00005c50| 70 79 20 6f 66 20 6d 61 | 63 72 6f 20 62 6f 64 79 |py of ma|cro body|
|00005c60| 29 0a 58 20 20 20 20 72 | 6f 74 20 2b 73 69 7a 65 |).X r|ot +size|
|00005c70| 20 40 20 64 75 70 20 61 | 6c 6c 6f 74 20 63 6d 6f | @ dup a|llot cmo|
|00005c80| 76 65 09 09 28 20 41 6c | 6c 6f 63 61 74 65 20 61 |ve..( Al|locate a|
|00005c90| 6e 64 20 63 6f 70 79 29 | 0a 58 20 20 65 6c 73 65 |nd copy)|.X else|
|00005ca0| 09 09 09 09 09 28 20 49 | 66 20 65 78 65 63 75 74 |.....( I|f execut|
|00005cb0| 69 6f 6e 20 6d 6f 64 65 | 29 0a 58 20 20 20 20 2b |ion mode|).X +|
|00005cc0| 62 6f 64 79 20 40 20 3e | 72 09 09 09 09 28 20 41 |body @ >|r....( A|
|00005cd0| 63 63 65 73 73 20 62 6f | 64 79 20 61 6e 64 20 65 |ccess bo|dy and e|
|00005ce0| 78 65 63 75 74 65 29 0a | 58 20 20 74 68 65 6e 0a |xecute).|X then.|
|00005cf0| 58 3b 20 70 72 69 76 61 | 74 65 0a 58 0a 58 3a 20 |X; priva|te.X.X: |
|00005d00| 6d 61 63 72 6f 20 28 20 | 2d 2d 20 29 0a 58 20 20 |macro ( |-- ).X |
|00005d10| 6c 61 73 74 20 3e 62 6f | 64 79 20 68 65 72 65 20 |last >bo|dy here |
|00005d20| 6f 76 65 72 20 2d 20 73 | 69 7a 65 6f 66 20 70 74 |over - s|izeof pt|
|00005d30| 72 20 2d 09 28 20 43 72 | 65 61 74 65 20 61 20 6e |r -.( Cr|eate a n|
|00005d40| 65 77 20 4d 41 43 52 4f | 20 73 74 72 75 63 74 75 |ew MACRO| structu|
|00005d50| 72 65 29 0a 58 20 20 6e | 65 77 20 4d 41 43 52 4f |re).X n|ew MACRO|
|00005d60| 20 6c 61 73 74 20 2b 70 | 61 72 61 6d 65 74 65 72 | last +p|arameter|
|00005d70| 20 21 09 09 28 20 4d 6f | 64 69 66 79 20 70 61 72 | !..( Mo|dify par|
|00005d80| 61 6d 65 74 65 72 20 66 | 69 65 6c 64 20 6f 66 20 |ameter f|ield of |
|00005d90| 6c 61 73 74 29 0a 58 20 | 20 69 6d 6d 65 64 69 61 |last).X | immedia|
|00005da0| 74 65 09 09 09 09 28 20 | 61 6e 64 20 6d 6f 64 65 |te....( |and mode|
|00005db0| 20 66 69 65 6c 64 20 74 | 6f 20 69 6d 6d 65 64 69 | field t|o immedi|
|00005dc0| 61 74 65 29 0a 58 20 20 | 5b 27 5d 20 5b 6d 61 63 |ate).X |['] [mac|
|00005dd0| 72 6f 5d 20 3e 62 6f 64 | 79 20 6c 61 73 74 20 2b |ro] >bod|y last +|
|00005de0| 63 6f 64 65 20 21 20 09 | 28 20 61 6e 64 20 63 6f |code ! .|( and co|
|00005df0| 64 65 20 66 69 65 6c 64 | 20 74 6f 20 6d 61 63 72 |de field| to macr|
|00005e00| 6f 20 6d 61 6e 61 67 65 | 6d 65 6e 74 29 0a 58 3b |o manage|ment).X;|
|00005e10| 0a 58 0a 58 3a 20 2e 6d | 61 63 72 6f 20 28 20 2d |.X.X: .m|acro ( -|
|00005e20| 2d 20 29 0a 58 20 20 2e | 22 20 6d 61 63 72 6f 23 |- ).X .|" macro#|
|00005e30| 22 20 27 20 3e 62 6f 64 | 79 20 64 75 70 20 2e 09 |" ' >bod|y dup ..|
|00005e40| 09 28 20 41 63 63 65 73 | 73 20 6d 61 63 72 6f 20 |.( Acces|s macro |
|00005e50| 61 6e 64 20 70 72 69 6e | 74 20 61 64 64 72 65 73 |and prin|t addres|
|00005e60| 73 29 0a 58 20 20 2e 22 | 20 73 69 7a 65 3a 20 22 |s).X ."| size: "|
|00005e70| 20 64 75 70 20 2b 73 69 | 7a 65 20 40 20 2e 09 09 | dup +si|ze @ ...|
|00005e80| 28 20 61 6e 64 20 74 68 | 65 20 73 69 7a 65 20 29 |( and th|e size )|
|00005e90| 0a 58 20 20 2e 22 20 62 | 6f 64 79 3a 20 22 20 2b |.X ." b|ody: " +|
|00005ea0| 62 6f 64 79 20 40 20 2e | 09 09 09 28 20 61 6e 64 |body @ .|...( and|
|00005eb0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 62 6f 64 79 | pointer| to body|
|00005ec0| 20 6f 66 20 6d 61 63 72 | 6f 29 0a 58 3b 0a 58 0a | of macr|o).X;.X.|
|00005ed0| 58 66 6f 72 74 68 20 6f | 6e 6c 79 0a 58 0a 45 4e |Xforth o|nly.X.EN|
|00005ee0| 44 5f 4f 46 5f 6c 69 62 | 2f 6d 61 63 72 6f 73 2e |D_OF_lib|/macros.|
|00005ef0| 66 38 33 0a 69 66 20 74 | 65 73 74 20 32 34 32 34 |f83.if t|est 2424|
|00005f00| 20 2d 6e 65 20 60 77 63 | 20 2d 63 20 3c 6c 69 62 | -ne `wc| -c <lib|
|00005f10| 2f 6d 61 63 72 6f 73 2e | 66 38 33 60 3b 20 74 68 |/macros.|f83`; th|
|00005f20| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en. e|cho shar|
|00005f30| 3a 20 5c 22 6c 69 62 2f | 6d 61 63 72 6f 73 2e 66 |: \"lib/|macros.f|
|00005f40| 38 33 5c 22 20 75 6e 70 | 61 63 6b 65 64 20 77 69 |83\" unp|acked wi|
|00005f50| 74 68 20 77 72 6f 6e 67 | 20 73 69 7a 65 21 0a 66 |th wrong| size!.f|
|00005f60| 69 0a 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |i.# end |of overw|
|00005f70| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 66 69 0a |riting c|heck.fi.|
|00005f80| 69 66 20 74 65 73 74 20 | 2d 66 20 6c 69 62 2f 72 |if test |-f lib/r|
|00005f90| 61 6e 67 65 73 2e 66 38 | 33 20 2d 61 20 22 24 7b |anges.f8|3 -a "${|
|00005fa0| 31 7d 22 20 21 3d 20 22 | 2d 63 22 20 3b 20 74 68 |1}" != "|-c" ; th|
|00005fb0| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en . ec|ho shar:|
|00005fc0| 20 57 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | Will no|t over-w|
|00005fd0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|00005fe0| 6c 65 20 5c 22 6c 69 62 | 2f 72 61 6e 67 65 73 2e |le \"lib|/ranges.|
|00005ff0| 66 38 33 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |f83\".el|se.echo |
|00006000| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00006010| 20 5c 22 6c 69 62 2f 72 | 61 6e 67 65 73 2e 66 38 | \"lib/r|anges.f8|
|00006020| 33 5c 22 20 5c 28 32 37 | 31 32 20 63 68 61 72 61 |3\" \(27|12 chara|
|00006030| 63 74 65 72 73 5c 29 0a | 73 65 64 20 22 73 2f 5e |cters\).|sed "s/^|
|00006040| 58 2f 2f 22 20 3e 6c 69 | 62 2f 72 61 6e 67 65 73 |X//" >li|b/ranges|
|00006050| 2e 66 38 33 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 6c |.f83 <<'|END_OF_l|
|00006060| 69 62 2f 72 61 6e 67 65 | 73 2e 66 38 33 27 0a 58 |ib/range|s.f83'.X|
|00006070| 5c 0a 58 5c 20 20 52 41 | 4e 47 45 20 44 45 46 49 |\.X\ RA|NGE DEFI|
|00006080| 4e 49 54 49 4f 4e 53 0a | 58 5c 0a 58 5c 20 20 43 |NITIONS.|X\.X\ C|
|00006090| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 38 |opyright| (c) 198|
|000060a0| 38 2d 31 39 39 30 20 62 | 79 20 4d 69 6b 61 65 6c |8-1990 b|y Mikael|
|000060b0| 20 52 2e 4b 2e 20 50 61 | 74 65 6c 0a 58 5c 0a 58 | R.K. Pa|tel.X\.X|
|000060c0| 5c 20 20 43 6f 6d 70 75 | 74 65 72 20 41 69 64 65 |\ Compu|ter Aide|
|000060d0| 64 20 44 65 73 69 67 6e | 20 4c 61 62 6f 72 61 74 |d Design| Laborat|
|000060e0| 6f 72 79 20 28 43 41 44 | 4c 41 42 29 0a 58 5c 20 |ory (CAD|LAB).X\ |
|000060f0| 20 44 65 70 61 72 74 6d | 65 6e 74 20 6f 66 20 43 | Departm|ent of C|
|00006100| 6f 6d 70 75 74 65 72 20 | 61 6e 64 20 49 6e 66 6f |omputer |and Info|
|00006110| 72 6d 61 74 69 6f 6e 20 | 53 63 69 65 6e 63 65 0a |rmation |Science.|
|00006120| 58 5c 20 20 4c 69 6e 6b | 6f 70 69 6e 67 20 55 6e |X\ Link|oping Un|
|00006130| 69 76 65 72 73 69 74 79 | 0a 58 5c 20 20 53 2d 35 |iversity|.X\ S-5|
|00006140| 38 31 20 38 33 20 4c 49 | 4e 4b 4f 50 49 4e 47 0a |81 83 LI|NKOPING.|
|00006150| 58 5c 20 20 53 57 45 44 | 45 4e 0a 58 5c 0a 58 5c |X\ SWED|EN.X\.X\|
|00006160| 20 20 45 6d 61 69 6c 3a | 20 6d 69 70 40 69 64 61 | Email:| mip@ida|
|00006170| 2e 6c 69 75 2e 73 65 0a | 58 5c 0a 58 5c 20 20 53 |.liu.se.|X\.X\ S|
|00006180| 74 61 72 74 65 64 20 6f | 6e 3a 20 33 30 20 4a 75 |tarted o|n: 30 Ju|
|00006190| 6e 65 20 31 39 38 38 0a | 58 5c 0a 58 5c 20 20 4c |ne 1988.|X\.X\ L|
|000061a0| 61 73 74 20 75 70 64 61 | 74 65 64 20 6f 6e 3a 20 |ast upda|ted on: |
|000061b0| 32 38 20 4a 75 6e 65 20 | 31 39 39 30 0a 58 5c 0a |28 June |1990.X\.|
|000061c0| 58 5c 20 20 44 65 70 65 | 6e 64 65 6e 63 69 65 73 |X\ Depe|ndencies|
|000061d0| 3a 0a 58 5c 20 20 20 20 | 20 20 20 28 66 6f 72 74 |:.X\ | (fort|
|000061e0| 68 29 20 66 6f 72 74 68 | 2c 20 62 6c 6f 63 6b 73 |h) forth|, blocks|
|000061f0| 2c 20 61 6e 64 20 73 74 | 72 75 63 74 75 72 65 73 |, and st|ructures|
|00006200| 2e 0a 58 5c 0a 58 5c 20 | 20 44 65 73 63 72 69 70 |..X\.X\ | Descrip|
|00006210| 74 69 6f 6e 3a 0a 58 5c | 20 20 20 20 20 20 20 41 |tion:.X\| A|
|00006220| 6c 6c 6f 77 73 20 64 65 | 66 69 6e 69 74 69 6f 6e |llows de|finition|
|00006230| 20 61 6e 64 20 6d 61 6e | 69 70 75 6c 61 74 69 6f | and man|ipulatio|
|00006240| 6e 20 6f 66 20 69 6e 74 | 65 67 65 72 20 72 61 6e |n of int|eger ran|
|00006250| 67 65 73 2e 0a 58 5c 0a | 58 5c 20 20 43 6f 70 79 |ges..X\.|X\ Copy|
|00006260| 69 6e 67 3a 0a 58 5c 20 | 20 20 20 20 20 20 54 68 |ing:.X\ | Th|
|00006270| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 66 72 |is progr|am is fr|
|00006280| 65 65 20 73 6f 66 74 77 | 61 72 65 3b 20 79 6f 75 |ee softw|are; you|
|00006290| 20 63 61 6e 20 72 65 64 | 69 73 74 72 69 62 75 74 | can red|istribut|
|000062a0| 65 20 69 74 20 61 6e 64 | 5c 6f 72 20 6d 6f 64 69 |e it and|\or modi|
|000062b0| 66 79 0a 58 5c 20 20 20 | 20 20 20 20 69 74 20 75 |fy.X\ | it u|
|000062c0| 6e 64 65 72 20 74 68 65 | 20 74 65 72 6d 73 20 6f |nder the| terms o|
|000062d0| 66 20 74 68 65 20 47 4e | 55 20 47 65 6e 65 72 61 |f the GN|U Genera|
|000062e0| 6c 20 50 75 62 6c 69 63 | 20 4c 69 63 65 6e 73 65 |l Public| License|
|000062f0| 20 61 73 20 70 75 62 6c | 69 73 68 65 64 20 62 79 | as publ|ished by|
|00006300| 0a 58 5c 20 20 20 20 20 | 20 20 74 68 65 20 46 72 |.X\ | the Fr|
|00006310| 65 65 20 53 6f 66 74 77 | 61 72 65 20 46 6f 75 6e |ee Softw|are Foun|
|00006320| 64 61 74 69 6f 6e 3b 20 | 65 69 74 68 65 72 20 76 |dation; |either v|
|00006330| 65 72 73 69 6f 6e 20 31 | 2c 20 6f 72 20 28 61 74 |ersion 1|, or (at|
|00006340| 20 79 6f 75 72 20 6f 70 | 74 69 6f 6e 29 0a 58 5c | your op|tion).X\|
|00006350| 20 20 20 20 20 20 20 61 | 6e 79 20 6c 61 74 65 72 | a|ny later|
|00006360| 20 76 65 72 73 69 6f 6e | 2e 0a 58 5c 0a 58 5c 20 | version|..X\.X\ |
|00006370| 20 20 20 20 20 20 54 68 | 69 73 20 70 72 6f 67 72 | Th|is progr|
|00006380| 61 6d 20 69 73 20 64 69 | 73 74 72 69 62 75 74 65 |am is di|stribute|
|00006390| 64 20 69 6e 20 74 68 65 | 20 68 6f 70 65 20 74 68 |d in the| hope th|
|000063a0| 61 74 20 69 74 20 77 69 | 6c 6c 20 62 65 20 75 73 |at it wi|ll be us|
|000063b0| 65 66 75 6c 2c 0a 58 5c | 20 20 20 20 20 20 20 62 |eful,.X\| b|
|000063c0| 75 74 20 57 49 54 48 4f | 55 54 20 41 4e 59 20 57 |ut WITHO|UT ANY W|
|000063d0| 41 52 52 41 4e 54 59 3b | 20 77 69 74 68 6f 75 74 |ARRANTY;| without|
|000063e0| 20 65 76 65 6e 20 74 68 | 65 20 69 6d 70 6c 69 65 | even th|e implie|
|000063f0| 64 20 77 61 72 72 61 6e | 74 79 20 6f 66 0a 58 5c |d warran|ty of.X\|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
