ProfitPress Mega CDROM2 Shareware Freeware (MSDOS)(1992)(Eng)

home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / XLSP21TC.ZIP / XL-005.BUG < prev next >
Mailbox/MIME Entity | 1991-04-14 | 3.1 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: Mailbox/MIME Entity (archive/mbox).

You can browse this item here: XL-005.BUG
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Mailbox/MIME Entity `(archive/mbox)`	magic	Supported
`100%`	dexvert	Internet Message Format `(text/imf)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	Mailbox text, 1st line "From sce!mitel!uunet!zephyr.ens.tek.com!tekcrl!tekgvs!toma Wed Jan 17 09:56:12 EST 1990", ASCII text, with CRLF line terminators	default
`100%`	TrID	E-Mail message (Var. 2)	default
`100%`	checkBytes	Printable ASCII	default
`100%`	perlTextCheck	Likely Text (Perl)	default
`100%`	siegfried	x-fmt/111 Plain Text File	default
`100%`	detectItEasy	Format: plain text[CRLF]	default (weak)
`100%`	xdgMime	application/mbox	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 73 63 65 | 21 6d 69 74 65 6c 21 75 |From sce|!mitel!u|
|00000010| 75 6e 65 74 21 7a 65 70 | 68 79 72 2e 65 6e 73 2e |unet!zep|hyr.ens.|
|00000020| 74 65 6b 2e 63 6f 6d 21 | 74 65 6b 63 72 6c 21 74 |tek.com!|tekcrl!t|
|00000030| 65 6b 67 76 73 21 74 6f | 6d 61 20 57 65 64 20 4a |ekgvs!to|ma Wed J|
|00000040| 61 6e 20 31 37 20 30 39 | 3a 35 36 3a 31 32 20 45 |an 17 09|:56:12 E|
|00000050| 53 54 20 31 39 39 30 0d | 0a 41 72 74 69 63 6c 65 |ST 1990.|.Article|
|00000060| 3a 20 35 33 20 6f 66 20 | 63 6f 6d 70 2e 6c 61 6e |: 53 of |comp.lan|
|00000070| 67 2e 6c 69 73 70 2e 78 | 0d 0a 50 61 74 68 3a 20 |g.lisp.x|..Path: |
|00000080| 63 6f 67 6e 6f 73 21 73 | 63 65 21 6d 69 74 65 6c |cognos!s|ce!mitel|
|00000090| 21 75 75 6e 65 74 21 7a | 65 70 68 79 72 2e 65 6e |!uunet!z|ephyr.en|
|000000a0| 73 2e 74 65 6b 2e 63 6f | 6d 21 74 65 6b 63 72 6c |s.tek.co|m!tekcrl|
|000000b0| 21 74 65 6b 67 76 73 21 | 74 6f 6d 61 0d 0a 46 72 |!tekgvs!|toma..Fr|
|000000c0| 6f 6d 3a 20 74 6f 6d 61 | 40 74 65 6b 67 76 73 2e |om: toma|@tekgvs.|
|000000d0| 4c 41 42 53 2e 54 45 4b | 2e 43 4f 4d 20 28 54 6f |LABS.TEK|.COM (To|
|000000e0| 6d 20 41 6c 6d 79 29 0d | 0a 4e 65 77 73 67 72 6f |m Almy).|.Newsgro|
|000000f0| 75 70 73 3a 20 63 6f 6d | 70 2e 6c 61 6e 67 2e 6c |ups: com|p.lang.l|
|00000100| 69 73 70 2e 78 0d 0a 53 | 75 62 6a 65 63 74 3a 20 |isp.x..S|ubject: |
|00000110| 53 6f 6d 65 20 4d 6f 72 | 65 20 62 75 67 20 66 69 |Some Mor|e bug fi|
|00000120| 78 65 73 0d 0a 4d 65 73 | 73 61 67 65 2d 49 44 3a |xes..Mes|sage-ID:|
|00000130| 20 3c 36 36 37 30 40 74 | 65 6b 67 76 73 2e 4c 41 | <6670@t|ekgvs.LA|
|00000140| 42 53 2e 54 45 4b 2e 43 | 4f 4d 3e 0d 0a 44 61 74 |BS.TEK.C|OM>..Dat|
|00000150| 65 3a 20 31 35 20 4a 61 | 6e 20 39 30 20 31 38 3a |e: 15 Ja|n 90 18:|
|00000160| 32 37 3a 30 35 20 47 4d | 54 0d 0a 52 65 70 6c 79 |27:05 GM|T..Reply|
|00000170| 2d 54 6f 3a 20 74 6f 6d | 61 40 74 65 6b 67 76 73 |-To: tom|a@tekgvs|
|00000180| 2e 4c 41 42 53 2e 54 45 | 4b 2e 43 4f 4d 20 28 54 |.LABS.TE|K.COM (T|
|00000190| 6f 6d 20 41 6c 6d 79 29 | 0d 0a 4f 72 67 61 6e 69 |om Almy)|..Organi|
|000001a0| 7a 61 74 69 6f 6e 3a 20 | 54 65 6b 74 72 6f 6e 69 |zation: |Tektroni|
|000001b0| 78 2c 20 49 6e 63 2e 2c | 20 42 65 61 76 65 72 74 |x, Inc.,| Beavert|
|000001c0| 6f 6e 2c 20 20 4f 52 2e | 0d 0a 4c 69 6e 65 73 3a |on,  OR.|..Lines:|
|000001d0| 20 31 33 34 0d 0a 0d 0a | 54 68 65 73 65 20 70 72 | 134....|These pr|
|000001e0| 6f 62 6c 65 6d 73 20 77 | 65 72 65 20 70 6f 69 6e |oblems w|ere poin|
|000001f0| 74 65 64 20 6f 75 74 20 | 74 6f 20 6d 65 20 62 79 |ted out |to me by|
|00000200| 20 50 61 75 6c 20 76 61 | 6e 20 4e 69 65 6b 65 72 | Paul va|n Nieker|
|00000210| 6b 20 0d 0a 28 6e 69 6b | 6b 69 65 40 64 75 74 65 |k ..(nik|kie@dute|
|00000220| 63 61 32 2e 74 75 64 65 | 6c 66 74 2e 6e 6c 29 2e |ca2.tude|lft.nl).|
|00000230| 20 54 68 65 79 20 61 72 | 65 20 61 70 70 6c 69 63 | They ar|e applic|
|00000240| 61 62 6c 65 20 74 6f 20 | 58 4c 49 53 50 20 76 65 |able to |XLISP ve|
|00000250| 72 73 69 6f 6e 73 20 32 | 2e 30 20 6f 72 20 32 2e |rsions 2|.0 or 2.|
|00000260| 31 2e 0d 0a 0d 0a 50 52 | 4f 42 4c 45 4d 3a 20 28 |1.....PR|OBLEM: (|
|00000270| 6c 61 73 74 20 27 28 61 | 20 62 20 2e 20 63 29 29 |last '(a| b . c))|
|00000280| 20 72 65 74 75 72 6e 73 | 20 63 20 72 61 74 68 65 | returns| c rathe|
|00000290| 72 20 74 68 61 6e 20 28 | 62 20 2e 20 63 29 0d 0a |r than (|b . c)..|
|000002a0| 53 4f 4c 55 54 49 4f 4e | 3a 20 69 6e 20 78 6c 6c |SOLUTION|: in xll|
|000002b0| 69 73 74 2e 63 2c 20 72 | 65 70 6c 61 63 65 20 78 |ist.c, r|eplace x|
|000002c0| 6c 61 73 74 20 77 69 74 | 68 3a 0d 0a 0d 0a 2f 2a |last wit|h:..../*|
|000002d0| 20 78 6c 61 73 74 20 2d | 20 72 65 74 75 72 6e 20 | xlast -| return |
|000002e0| 74 68 65 20 6c 61 73 74 | 20 63 6f 6e 73 20 6f 66 |the last| cons of|
|000002f0| 20 61 20 6c 69 73 74 20 | 2a 2f 0d 0a 4c 56 41 4c | a list |*/..LVAL|
|00000300| 20 78 6c 61 73 74 28 29 | 0d 0a 7b 0d 0a 09 4c 56 | xlast()|..{...LV|
|00000310| 41 4c 20 6c 69 73 74 3b | 0d 0a 0d 0a 09 2f 2a 20 |AL list;|...../* |
|00000320| 67 65 74 20 74 68 65 20 | 6c 69 73 74 20 2a 2f 0d |get the |list */.|
|00000330| 0a 09 6c 69 73 74 20 3d | 20 78 6c 67 61 6c 69 73 |..list =| xlgalis|
|00000340| 74 28 29 3b 0d 0a 09 78 | 6c 6c 61 73 74 61 72 67 |t();...x|llastarg|
|00000350| 28 29 3b 0d 0a 0d 0a 09 | 2f 2a 20 66 69 6e 64 20 |();.....|/* find |
|00000360| 74 68 65 20 6c 61 73 74 | 20 63 6f 6e 73 20 2a 2f |the last| cons */|
|00000370| 0d 0a 09 69 66 20 28 63 | 6f 6e 73 70 28 6c 69 73 |...if (c|onsp(lis|
|00000380| 74 29 29 0d 0a 09 09 77 | 68 69 6c 65 20 28 63 6f |t))....w|hile (co|
|00000390| 6e 73 70 28 63 64 72 28 | 6c 69 73 74 29 29 29 20 |nsp(cdr(|list))) |
|000003a0| 6c 69 73 74 20 3d 20 63 | 64 72 28 6c 69 73 74 29 |list = c|dr(list)|
|000003b0| 3b 0d 0a 0d 0a 09 2f 2a | 20 72 65 74 75 72 6e 20 |;...../*| return |
|000003c0| 74 68 65 20 6c 61 73 74 | 20 65 6c 65 6d 65 6e 74 |the last| element|
|000003d0| 20 2a 2f 0d 0a 09 72 65 | 74 75 72 6e 20 28 6c 69 | */...re|turn (li|
|000003e0| 73 74 29 3b 0d 0a 7d 0d | 0a 0d 0a 50 52 4f 42 4c |st);..}.|...PROBL|
|000003f0| 45 4d 3a 20 66 75 6e 63 | 74 69 6f 6e 73 20 62 6f |EM: func|tions bo|
|00000400| 75 6e 64 70 2c 20 66 62 | 6f 75 6e 64 70 2c 20 73 |undp, fb|oundp, s|
|00000410| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 2c 20 73 79 6d 62 |ymbol-na|me, symb|
|00000420| 6f 6c 2d 76 61 6c 75 65 | 2c 20 61 6e 64 20 0d 0a |ol-value|, and ..|
|00000430| 73 79 6d 62 6f 6c 2d 70 | 6c 69 73 74 20 66 61 69 |symbol-p|list fai|
|00000440| 6c 20 6f 6e 20 4e 49 4c | 20 28 77 68 69 63 68 20 |l on NIL| (which |
|00000450| 2a 69 73 2a 20 61 20 73 | 79 6d 62 6f 6c 29 2c 20 |*is* a s|ymbol), |
|00000460| 61 6e 64 20 73 79 6d 62 | 6f 6c 2d 66 75 6e 63 74 |and symb|ol-funct|
|00000470| 69 6f 6e 20 66 61 69 6c | 73 20 0d 0a 69 6d 70 72 |ion fail|s ..impr|
|00000480| 6f 70 65 72 6c 79 20 28 | 77 72 6f 6e 67 20 65 72 |operly (|wrong er|
|00000490| 72 6f 72 20 6d 65 73 73 | 61 67 65 29 2e 0d 0a 0d |ror mess|age)....|
|000004a0| 0a 53 4f 4c 55 54 49 4f | 4e 3a 0d 0a 0d 0a 49 6e |.SOLUTIO|N:....In|
|000004b0| 20 78 6c 69 73 70 2e 68 | 2c 20 61 64 64 3a 0d 0a | xlisp.h|, add:..|
|000004c0| 0d 0a 23 64 65 66 69 6e | 65 20 78 6c 67 61 73 79 |..#defin|e xlgasy|
|000004d0| 6d 6f 72 6e 69 6c 28 29 | 09 28 2a 78 6c 61 72 67 |mornil()|.(*xlarg|
|000004e0| 76 3d 3d 4e 49 4c 20 7c | 7c 20 73 79 6d 62 6f 6c |v==NIL ||| symbol|
|000004f0| 70 28 2a 78 6c 61 72 67 | 76 29 20 3f 20 6e 65 78 |p(*xlarg|v) ? nex|
|00000500| 74 61 72 67 28 29 20 3a | 20 78 6c 62 61 64 74 79 |targ() :| xlbadty|
|00000510| 70 65 28 2a 78 6c 61 72 | 67 76 29 29 0d 0a 0d 0a |pe(*xlar|gv))....|
|00000520| 49 6e 20 78 6c 62 66 75 | 6e 2e 63 2c 20 63 68 61 |In xlbfu|n.c, cha|
|00000530| 6e 67 65 20 66 75 6e 63 | 74 69 6f 6e 73 20 74 6f |nge func|tions to|
|00000540| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 3a 0d | the fol|lowing:.|
|00000550| 0a 0d 0a 2f 2a 20 78 62 | 6f 75 6e 64 70 20 2d 20 |.../* xb|oundp - |
|00000560| 69 73 20 74 68 69 73 20 | 61 20 76 61 6c 75 65 20 |is this |a value |
|00000570| 62 6f 75 6e 64 20 74 6f | 20 74 68 69 73 20 73 79 |bound to| this sy|
|00000580| 6d 62 6f 6c 3f 20 2a 2f | 0d 0a 4c 56 41 4c 20 78 |mbol? */|..LVAL x|
|00000590| 62 6f 75 6e 64 70 28 29 | 0d 0a 7b 0d 0a 09 4c 56 |boundp()|..{...LV|
|000005a0| 41 4c 20 73 79 6d 3b 0d | 0a 09 73 79 6d 20 3d 20 |AL sym;.|..sym = |
|000005b0| 78 6c 67 61 73 79 6d 6f | 72 6e 69 6c 28 29 3b 0d |xlgasymo|rnil();.|
|000005c0| 0a 09 78 6c 6c 61 73 74 | 61 72 67 28 29 3b 0d 0a |..xllast|arg();..|
|000005d0| 09 72 65 74 75 72 6e 20 | 28 73 79 6d 20 3d 3d 20 |.return |(sym == |
|000005e0| 4e 49 4c 20 7c 7c 20 62 | 6f 75 6e 64 70 28 73 79 |NIL || b|oundp(sy|
|000005f0| 6d 29 20 3f 20 74 72 75 | 65 20 3a 20 4e 49 4c 29 |m) ? tru|e : NIL)|
|00000600| 3b 0d 0a 7d 0d 0a 0d 0a | 2f 2a 20 78 66 62 6f 75 |;..}....|/* xfbou|
|00000610| 6e 64 70 20 2d 20 69 73 | 20 74 68 69 73 20 61 20 |ndp - is| this a |
|00000620| 66 75 6e 63 74 69 6f 6e | 61 6c 20 76 61 6c 75 65 |function|al value|
|00000630| 20 62 6f 75 6e 64 20 74 | 6f 20 74 68 69 73 20 73 | bound t|o this s|
|00000640| 79 6d 62 6f 6c 3f 20 2a | 2f 0d 0a 4c 56 41 4c 20 |ymbol? *|/..LVAL |
|00000650| 78 66 62 6f 75 6e 64 70 | 28 29 0d 0a 7b 0d 0a 09 |xfboundp|()..{...|
|00000660| 4c 56 41 4c 20 73 79 6d | 3b 0d 0a 09 73 79 6d 20 |LVAL sym|;...sym |
|00000670| 3d 20 78 6c 67 61 73 79 | 6d 6f 72 6e 69 6c 28 29 |= xlgasy|mornil()|
|00000680| 3b 0d 0a 09 78 6c 6c 61 | 73 74 61 72 67 28 29 3b |;...xlla|starg();|
|00000690| 0d 0a 09 72 65 74 75 72 | 6e 20 28 73 79 6d 20 21 |...retur|n (sym !|
|000006a0| 3d 20 4e 49 4c 20 26 26 | 20 66 62 6f 75 6e 64 70 |= NIL &&| fboundp|
|000006b0| 28 73 79 6d 29 20 3f 20 | 74 72 75 65 20 3a 20 4e |(sym) ? |true : N|
|000006c0| 49 4c 29 3b 0d 0a 7d 0d | 0a 0d 0a 2f 2a 20 78 73 |IL);..}.|.../* xs|
|000006d0| 79 6d 6e 61 6d 65 20 2d | 20 67 65 74 20 74 68 65 |ymname -| get the|
|000006e0| 20 70 72 69 6e 74 20 6e | 61 6d 65 20 6f 66 20 61 | print n|ame of a|
|000006f0| 20 73 79 6d 62 6f 6c 20 | 2a 2f 0d 0a 4c 56 41 4c | symbol |*/..LVAL|
|00000700| 20 78 73 79 6d 6e 61 6d | 65 28 29 0d 0a 7b 0d 0a | xsymnam|e()..{..|
|00000710| 09 4c 56 41 4c 20 73 79 | 6d 3b 0d 0a 0d 0a 09 2f |.LVAL sy|m;...../|
|00000720| 2a 20 67 65 74 20 74 68 | 65 20 73 79 6d 62 6f 6c |* get th|e symbol|
|00000730| 20 2a 2f 0d 0a 09 73 79 | 6d 20 3d 20 78 6c 67 61 | */...sy|m = xlga|
|00000740| 73 79 6d 6f 72 6e 69 6c | 28 29 3b 0d 0a 09 78 6c |symornil|();...xl|
|00000750| 6c 61 73 74 61 72 67 28 | 29 3b 0d 0a 0d 0a 09 2f |lastarg(|);...../|
|00000760| 2a 20 68 61 6e 64 6c 65 | 20 4e 49 4c 2c 20 77 68 |* handle| NIL, wh|
|00000770| 69 63 68 20 69 73 20 6e | 6f 74 20 69 6e 74 65 72 |ich is n|ot inter|
|00000780| 6e 61 6c 6c 79 20 72 65 | 70 72 65 73 65 6e 74 65 |nally re|presente|
|00000790| 64 20 61 73 20 61 20 73 | 79 6d 62 6f 6c 20 2a 2f |d as a s|ymbol */|
|000007a0| 0d 0a 09 69 66 20 28 73 | 79 6d 20 3d 3d 20 4e 49 |...if (s|ym == NI|
|000007b0| 4c 29 20 7b 0d 0a 09 09 | 73 79 6d 20 3d 20 6e 65 |L) {....|sym = ne|
|000007c0| 77 73 74 72 69 6e 67 28 | 34 29 3b 0d 0a 09 09 73 |wstring(|4);....s|
|000007d0| 74 72 63 70 79 28 67 65 | 74 73 74 72 69 6e 67 28 |trcpy(ge|tstring(|
|000007e0| 73 79 6d 29 2c 20 22 4e | 49 4c 22 29 3b 0d 0a 09 |sym), "N|IL");...|
|000007f0| 09 72 65 74 75 72 6e 20 | 73 79 6d 3b 0d 0a 09 7d |.return |sym;...}|
|00000800| 0d 0a 0d 0a 09 2f 2a 20 | 72 65 74 75 72 6e 20 74 |...../* |return t|
|00000810| 68 65 20 70 72 69 6e 74 | 20 6e 61 6d 65 20 2a 2f |he print| name */|
|00000820| 0d 0a 09 72 65 74 75 72 | 6e 20 28 67 65 74 70 6e |...retur|n (getpn|
|00000830| 61 6d 65 28 73 79 6d 29 | 29 3b 0d 0a 7d 0d 0a 0d |ame(sym)|);..}...|
|00000840| 0a 2f 2a 20 78 73 79 6d | 76 61 6c 75 65 20 2d 20 |./* xsym|value - |
|00000850| 67 65 74 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |get the |value of|
|00000860| 20 61 20 73 79 6d 62 6f | 6c 20 2a 2f 0d 0a 4c 56 | a symbo|l */..LV|
|00000870| 41 4c 20 78 73 79 6d 76 | 61 6c 75 65 28 29 0d 0a |AL xsymv|alue()..|
|00000880| 7b 0d 0a 09 4c 56 41 4c | 20 73 79 6d 2c 76 61 6c |{...LVAL| sym,val|
|00000890| 3b 0d 0a 0d 0a 09 2f 2a | 20 67 65 74 20 74 68 65 |;...../*| get the|
|000008a0| 20 73 79 6d 62 6f 6c 20 | 2a 2f 0d 0a 09 73 79 6d | symbol |*/...sym|
|000008b0| 20 3d 20 78 6c 67 61 73 | 79 6d 6f 72 6e 69 6c 28 | = xlgas|ymornil(|
|000008c0| 29 3b 0d 0a 09 78 6c 6c | 61 73 74 61 72 67 28 29 |);...xll|astarg()|
|000008d0| 3b 0d 0a 0d 0a 09 2f 2a | 20 68 61 6e 64 6c 65 20 |;...../*| handle |
|000008e0| 4e 49 4c 20 2a 2f 0d 0a | 09 69 66 20 28 73 79 6d |NIL */..|.if (sym|
|000008f0| 20 3d 3d 20 4e 49 4c 29 | 20 72 65 74 75 72 6e 20 | == NIL)| return |
|00000900| 28 4e 49 4c 29 3b 0d 0a | 0d 0a 09 2f 2a 20 67 65 |(NIL);..|.../* ge|
|00000910| 74 20 74 68 65 20 67 6c | 6f 62 61 6c 20 76 61 6c |t the gl|obal val|
|00000920| 75 65 20 2a 2f 0d 0a 09 | 77 68 69 6c 65 20 28 28 |ue */...|while ((|
|00000930| 76 61 6c 20 3d 20 67 65 | 74 76 61 6c 75 65 28 73 |val = ge|tvalue(s|
|00000940| 79 6d 29 29 20 3d 3d 20 | 73 5f 75 6e 62 6f 75 6e |ym)) == |s_unboun|
|00000950| 64 29 0d 0a 09 09 78 6c | 75 6e 62 6f 75 6e 64 28 |d)....xl|unbound(|
|00000960| 73 79 6d 29 3b 0d 0a 0d | 0a 09 2f 2a 20 72 65 74 |sym);...|../* ret|
|00000970| 75 72 6e 20 69 74 73 20 | 76 61 6c 75 65 20 2a 2f |urn its |value */|
|00000980| 0d 0a 09 72 65 74 75 72 | 6e 20 28 76 61 6c 29 3b |...retur|n (val);|
|00000990| 0d 0a 7d 0d 0a 0d 0a 2f | 2a 20 78 73 79 6d 66 75 |..}..../|* xsymfu|
|000009a0| 6e 63 74 69 6f 6e 20 2d | 20 67 65 74 20 74 68 65 |nction -| get the|
|000009b0| 20 66 75 6e 63 74 69 6f | 6e 61 6c 20 76 61 6c 75 | functio|nal valu|
|000009c0| 65 20 6f 66 20 61 20 73 | 79 6d 62 6f 6c 20 2a 2f |e of a s|ymbol */|
|000009d0| 0d 0a 4c 56 41 4c 20 78 | 73 79 6d 66 75 6e 63 74 |..LVAL x|symfunct|
|000009e0| 69 6f 6e 28 29 0d 0a 7b | 0d 0a 09 4c 56 41 4c 20 |ion()..{|...LVAL |
|000009f0| 73 79 6d 2c 76 61 6c 3b | 0d 0a 0d 0a 09 2f 2a 20 |sym,val;|...../* |
|00000a00| 67 65 74 20 74 68 65 20 | 73 79 6d 62 6f 6c 20 2a |get the |symbol *|
|00000a10| 2f 0d 0a 09 73 79 6d 20 | 3d 20 78 6c 67 61 73 79 |/...sym |= xlgasy|
|00000a20| 6d 6f 72 6e 69 6c 28 29 | 3b 0d 0a 09 78 6c 6c 61 |mornil()|;...xlla|
|00000a30| 73 74 61 72 67 28 29 3b | 0d 0a 0d 0a 09 2f 2a 20 |starg();|...../* |
|00000a40| 68 61 6e 64 6c 65 20 4e | 49 4c 20 2a 2f 0d 0a 09 |handle N|IL */...|
|00000a50| 69 66 20 28 73 79 6d 20 | 3d 3d 20 4e 49 4c 29 20 |if (sym |== NIL) |
|00000a60| 7b 0d 0a 09 09 77 68 69 | 6c 65 20 28 31 29 0d 0a |{....whi|le (1)..|
|00000a70| 09 09 09 78 6c 66 75 6e | 62 6f 75 6e 64 28 73 79 |...xlfun|bound(sy|
|00000a80| 6d 29 3b 0d 0a 09 7d 0d | 0a 0d 0a 0d 0a 09 2f 2a |m);...}.|....../*|
|00000a90| 20 67 65 74 20 74 68 65 | 20 67 6c 6f 62 61 6c 20 | get the| global |
|00000aa0| 76 61 6c 75 65 20 2a 2f | 0d 0a 09 77 68 69 6c 65 |value */|...while|
|00000ab0| 20 28 28 76 61 6c 20 3d | 20 67 65 74 66 75 6e 63 | ((val =| getfunc|
|00000ac0| 74 69 6f 6e 28 73 79 6d | 29 29 20 3d 3d 20 73 5f |tion(sym|)) == s_|
|00000ad0| 75 6e 62 6f 75 6e 64 29 | 0d 0a 09 09 78 6c 66 75 |unbound)|....xlfu|
|00000ae0| 6e 62 6f 75 6e 64 28 73 | 79 6d 29 3b 0d 0a 0d 0a |nbound(s|ym);....|
|00000af0| 09 2f 2a 20 72 65 74 75 | 72 6e 20 69 74 73 20 76 |./* retu|rn its v|
|00000b00| 61 6c 75 65 20 2a 2f 0d | 0a 09 72 65 74 75 72 6e |alue */.|..return|
|00000b10| 20 28 76 61 6c 29 3b 0d | 0a 7d 0d 0a 0d 0a 2f 2a | (val);.|.}..../*|
|00000b20| 20 78 73 79 6d 70 6c 69 | 73 74 20 2d 20 67 65 74 | xsympli|st - get|
|00000b30| 20 74 68 65 20 70 72 6f | 70 65 72 74 79 20 6c 69 | the pro|perty li|
|00000b40| 73 74 20 6f 66 20 61 20 | 73 79 6d 62 6f 6c 20 2a |st of a |symbol *|
|00000b50| 2f 0d 0a 4c 56 41 4c 20 | 78 73 79 6d 70 6c 69 73 |/..LVAL |xsymplis|
|00000b60| 74 28 29 0d 0a 7b 0d 0a | 09 4c 56 41 4c 20 73 79 |t()..{..|.LVAL sy|
|00000b70| 6d 3b 0d 0a 0d 0a 09 2f | 2a 20 67 65 74 20 74 68 |m;...../|* get th|
|00000b80| 65 20 73 79 6d 62 6f 6c | 20 2a 2f 0d 0a 09 73 79 |e symbol| */...sy|
|00000b90| 6d 20 3d 20 78 6c 67 61 | 73 79 6d 6f 72 6e 69 6c |m = xlga|symornil|
|00000ba0| 28 29 3b 0d 0a 09 78 6c | 6c 61 73 74 61 72 67 28 |();...xl|lastarg(|
|00000bb0| 29 3b 0d 0a 0d 0a 09 2f | 2a 20 72 65 74 75 72 6e |);...../|* return|
|00000bc0| 20 74 68 65 20 70 72 6f | 70 65 72 74 79 20 6c 69 | the pro|perty li|
|00000bd0| 73 74 20 2a 2f 0d 0a 09 | 72 65 74 75 72 6e 20 28 |st */...|return (|
|00000be0| 73 79 6d 20 3d 3d 20 4e | 49 4c 20 3f 20 4e 49 4c |sym == N|IL ? NIL|
|00000bf0| 20 3a 20 67 65 74 70 6c | 69 73 74 28 73 79 6d 29 | : getpl|ist(sym)|
|00000c00| 29 3b 0d 0a 7d 0d 0a 0d | 0a 0d 0a 54 6f 6d 20 41 |);..}...|...Tom A|
|00000c10| 6c 6d 79 0d 0a 74 6f 6d | 61 40 74 65 6b 67 76 73 |lmy..tom|a@tekgvs|
|00000c20| 2e 6c 61 62 73 2e 74 65 | 6b 2e 63 6f 6d 0d 0a 53 |.labs.te|k.com..S|
|00000c30| 74 61 6e 64 61 72 64 20 | 44 69 73 63 6c 61 69 6d |tandard |Disclaim|
|00000c40| 65 72 73 20 41 70 70 6c | 79 0d 0a 0d 0a 0d 0a    |ers Appl|y...... |
+--------+-------------------------+-------------------------+--------+--------+