BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / Frontier SDK 2.1.sit / Frontier SDK 2.1 / Toolkits / Applet Toolkit / appletstrings.c < prev next >
MacBinary | 1992-10-11 | 7.8 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Oct 11 14:30:00 1992, modified Sun Oct 11 14:30:00 1992, creator Think C, type ASCII, 7409 bytes "appletstrings.c" , at 0x1d71 340 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 61 70 70 6c 65 74 | 73 74 72 69 6e 67 73 2e |..applet|strings.|
|00000010| 63 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 1c f1 00 | 00 01 54 a6 fe 23 28 a6 |........|..T..#(.|
|00000060| fe 23 28 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.#(.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6c a5 00 00 |........|....l...|
|00000080| 0d 2f 2a a9 20 43 6f 70 | 79 72 69 67 68 74 20 31 |./*. Cop|yright 1|
|00000090| 39 38 38 2d 31 39 39 32 | 20 55 73 65 72 4c 61 6e |988-1992| UserLan|
|000000a0| 64 20 53 6f 66 74 77 61 | 72 65 2c 20 49 6e 63 2e |d Softwa|re, Inc.|
|000000b0| 20 20 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |  All Ri|ghts Res|
|000000c0| 65 72 76 65 64 2e 2a 2f | 0d 0d 0d 23 69 6e 63 6c |erved.*/|...#incl|
|000000d0| 75 64 65 20 22 61 70 70 | 6c 65 74 6f 70 73 2e 68 |ude "app|letops.h|
|000000e0| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 61 70 70 6c |".#inclu|de "appl|
|000000f0| 65 74 6d 65 6d 6f 72 79 | 2e 68 22 0d 23 69 6e 63 |etmemory|.h".#inc|
|00000100| 6c 75 64 65 20 22 61 70 | 70 6c 65 74 73 74 72 69 |lude "ap|pletstri|
|00000110| 6e 67 73 2e 68 22 0d 0d | 0d 62 6f 6f 6c 65 61 6e |ngs.h"..|.boolean|
|00000120| 20 65 71 75 61 6c 73 74 | 72 69 6e 67 73 20 28 62 | equalst|rings (b|
|00000130| 73 31 2c 20 62 73 32 29 | 20 62 69 67 73 74 72 69 |s1, bs2)| bigstri|
|00000140| 6e 67 20 62 73 31 2c 20 | 62 73 32 3b 20 7b 0d 0d |ng bs1, |bs2; {..|
|00000150| 09 2f 2a 0d 09 72 65 74 | 75 72 6e 20 74 72 75 65 |./*..ret|urn true|
|00000160| 20 69 66 20 74 68 65 20 | 74 77 6f 20 73 74 72 69 | if the |two stri|
|00000170| 6e 67 73 20 28 70 61 73 | 63 61 6c 20 74 79 70 65 |ngs (pas|cal type|
|00000180| 2c 20 77 69 74 68 20 6c | 65 6e 67 74 68 2d 62 79 |, with l|ength-by|
|00000190| 74 65 29 20 61 72 65 0d | 09 65 71 75 61 6c 2e 20 |te) are.|.equal. |
|000001a0| 20 72 65 74 75 72 6e 20 | 66 61 6c 73 65 20 6f 74 | return |false ot|
|000001b0| 68 65 72 77 69 73 65 2e | 0d 09 2a 2f 0d 0d 09 72 |herwise.|..*/...r|
|000001c0| 65 67 69 73 74 65 72 20 | 70 74 72 63 68 61 72 20 |egister |ptrchar |
|000001d0| 70 31 20 3d 20 28 70 74 | 72 63 68 61 72 29 20 62 |p1 = (pt|rchar) b|
|000001e0| 73 31 2c 20 70 32 20 3d | 20 28 70 74 72 63 68 61 |s1, p2 =| (ptrcha|
|000001f0| 72 29 20 62 73 32 3b 0d | 09 72 65 67 69 73 74 65 |r) bs2;.|.registe|
|00000200| 72 20 63 68 61 72 20 63 | 74 20 3d 20 2a 70 31 20 |r char c|t = *p1 |
|00000210| 2b 20 31 3b 0d 09 0d 09 | 77 68 69 6c 65 20 28 63 |+ 1;....|while (c|
|00000220| 74 2d 2d 29 20 0d 09 09 | 0d 09 09 69 66 20 28 2a |t--) ...|...if (*|
|00000230| 70 31 2b 2b 20 21 3d 20 | 2a 70 32 2b 2b 29 0d 09 |p1++ != |*p2++)..|
|00000240| 09 0d 09 09 09 72 65 74 | 75 72 6e 20 28 66 61 6c |.....ret|urn (fal|
|00000250| 73 65 29 3b 0d 09 09 0d | 09 72 65 74 75 72 6e 20 |se);....|.return |
|00000260| 28 74 72 75 65 29 3b 20 | 2f 2a 6c 6f 6f 70 20 74 |(true); |/*loop t|
|00000270| 65 72 6d 69 6e 61 74 65 | 64 2a 2f 0d 09 7d 20 2f |erminate|d*/..} /|
|00000280| 2a 65 71 75 61 6c 73 74 | 72 69 6e 67 73 2a 2f 0d |*equalst|rings*/.|
|00000290| 09 0d 09 0d 62 6f 6f 6c | 65 61 6e 20 75 6e 69 63 |....bool|ean unic|
|000002a0| 61 73 65 65 71 75 61 6c | 73 74 72 69 6e 67 73 20 |aseequal|strings |
|000002b0| 28 62 73 31 2c 20 62 73 | 32 29 20 62 69 67 73 74 |(bs1, bs|2) bigst|
|000002c0| 72 69 6e 67 20 62 73 31 | 2c 20 62 73 32 3b 20 7b |ring bs1|, bs2; {|
|000002d0| 0d 09 0d 09 62 69 67 73 | 74 72 69 6e 67 20 62 73 |....bigs|tring bs|
|000002e0| 63 6f 70 79 31 2c 20 62 | 73 63 6f 70 79 32 3b 0d |copy1, b|scopy2;.|
|000002f0| 09 0d 09 63 6f 70 79 73 | 74 72 69 6e 67 20 28 62 |...copys|tring (b|
|00000300| 73 31 2c 20 62 73 63 6f | 70 79 31 29 3b 0d 09 0d |s1, bsco|py1);...|
|00000310| 09 63 6f 70 79 73 74 72 | 69 6e 67 20 28 62 73 32 |.copystr|ing (bs2|
|00000320| 2c 20 62 73 63 6f 70 79 | 32 29 3b 0d 09 0d 09 61 |, bscopy|2);....a|
|00000330| 6c 6c 6c 6f 77 65 72 20 | 28 62 73 63 6f 70 79 31 |lllower |(bscopy1|
|00000340| 29 3b 0d 09 0d 09 61 6c | 6c 6c 6f 77 65 72 20 28 |);....al|llower (|
|00000350| 62 73 63 6f 70 79 32 29 | 3b 0d 09 0d 09 72 65 74 |bscopy2)|;....ret|
|00000360| 75 72 6e 20 28 65 71 75 | 61 6c 73 74 72 69 6e 67 |urn (equ|alstring|
|00000370| 73 20 28 62 73 63 6f 70 | 79 31 2c 20 62 73 63 6f |s (bscop|y1, bsco|
|00000380| 70 79 32 29 29 3b 0d 09 | 7d 20 2f 2a 75 6e 69 63 |py2));..|} /*unic|
|00000390| 61 73 65 65 71 75 61 6c | 73 74 72 69 6e 67 73 2a |aseequal|strings*|
|000003a0| 2f 0d 09 0d 0d 76 6f 69 | 64 20 63 6f 70 79 73 74 |/....voi|d copyst|
|000003b0| 72 69 6e 67 20 28 62 73 | 73 6f 75 72 63 65 2c 20 |ring (bs|source, |
|000003c0| 62 73 64 65 73 74 29 20 | 76 6f 69 64 20 2a 62 73 |bsdest) |void *bs|
|000003d0| 73 6f 75 72 63 65 2c 20 | 2a 62 73 64 65 73 74 3b |source, |*bsdest;|
|000003e0| 20 7b 0d 0d 09 2f 2a 0d | 09 63 72 65 61 74 65 20 | {.../*.|.create |
|000003f0| 61 20 63 6f 70 79 20 6f | 66 20 62 73 73 6f 75 72 |a copy o|f bssour|
|00000400| 63 65 20 69 6e 20 62 73 | 64 65 73 74 2e 20 20 63 |ce in bs|dest.  c|
|00000410| 6f 70 79 20 74 68 65 20 | 6c 65 6e 67 74 68 20 62 |opy the |length b|
|00000420| 79 74 65 20 61 6e 64 0d | 09 61 6c 6c 20 74 68 65 |yte and.|.all the|
|00000430| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 74 | charact|ers in t|
|00000440| 68 65 20 73 6f 75 72 63 | 65 20 73 74 72 69 6e 67 |he sourc|e string|
|00000450| 2e 0d 0d 09 61 73 73 75 | 6d 65 20 74 68 65 20 73 |....assu|me the s|
|00000460| 74 72 69 6e 67 73 20 61 | 72 65 20 70 61 73 63 61 |trings a|re pasca|
|00000470| 6c 20 73 74 72 69 6e 67 | 73 2c 20 77 69 74 68 20 |l string|s, with |
|00000480| 74 68 65 20 6c 65 6e 67 | 74 68 20 62 79 74 65 20 |the leng|th byte |
|00000490| 69 6e 0d 09 74 68 65 20 | 66 69 72 73 74 20 63 68 |in..the |first ch|
|000004a0| 61 72 61 63 74 65 72 20 | 6f 66 20 74 68 65 20 73 |aracter |of the s|
|000004b0| 74 72 69 6e 67 2e 0d 09 | 2a 2f 0d 0d 09 72 65 67 |tring...|*/...reg|
|000004c0| 69 73 74 65 72 20 73 68 | 6f 72 74 20 69 2c 20 6c |ister sh|ort i, l|
|000004d0| 65 6e 3b 0d 09 0d 09 6c | 65 6e 20 3d 20 28 73 68 |en;....l|en = (sh|
|000004e0| 6f 72 74 29 20 28 28 63 | 68 61 72 20 2a 29 20 62 |ort) ((c|har *) b|
|000004f0| 73 73 6f 75 72 63 65 29 | 20 5b 30 5d 3b 0d 09 0d |ssource)| [0];...|
|00000500| 09 66 6f 72 20 28 69 20 | 3d 20 30 3b 20 69 20 3c |.for (i |= 0; i <|
|00000510| 3d 20 6c 65 6e 3b 20 69 | 2b 2b 29 20 0d 09 09 28 |= len; i|++) ...(|
|00000520| 28 63 68 61 72 20 2a 29 | 20 62 73 64 65 73 74 29 |(char *)| bsdest)|
|00000530| 20 5b 69 5d 20 3d 20 28 | 28 63 68 61 72 20 2a 29 | [i] = (|(char *)|
|00000540| 20 62 73 73 6f 75 72 63 | 65 29 20 5b 69 5d 3b 0d | bssourc|e) [i];.|
|00000550| 09 7d 20 2f 2a 63 6f 70 | 79 73 74 72 69 6e 67 2a |.} /*cop|ystring*|
|00000560| 2f 0d 0d 0d 62 6f 6f 6c | 65 61 6e 20 70 75 73 68 |/...bool|ean push|
|00000570| 73 74 72 69 6e 67 20 28 | 62 73 73 6f 75 72 63 65 |string (|bssource|
|00000580| 2c 20 62 73 64 65 73 74 | 29 20 62 69 67 73 74 72 |, bsdest|) bigstr|
|00000590| 69 6e 67 20 62 73 73 6f | 75 72 63 65 2c 20 62 73 |ing bsso|urce, bs|
|000005a0| 64 65 73 74 3b 20 7b 0d | 0d 09 2f 2a 0d 09 69 6e |dest; {.|../*..in|
|000005b0| 73 65 72 74 20 74 68 65 | 20 73 6f 75 72 63 65 20 |sert the| source |
|000005c0| 73 74 72 69 6e 67 20 61 | 74 20 74 68 65 20 65 6e |string a|t the en|
|000005d0| 64 20 6f 66 20 74 68 65 | 20 64 65 73 74 69 6e 61 |d of the| destina|
|000005e0| 74 69 6f 6e 20 73 74 72 | 69 6e 67 2e 0d 09 0d 09 |tion str|ing.....|
|000005f0| 61 73 73 75 6d 65 20 74 | 68 65 20 73 74 72 69 6e |assume t|he strin|
|00000600| 67 73 20 61 72 65 20 70 | 61 73 63 61 6c 20 73 74 |gs are p|ascal st|
|00000610| 72 69 6e 67 73 2c 20 77 | 69 74 68 20 74 68 65 20 |rings, w|ith the |
|00000620| 6c 65 6e 67 74 68 20 62 | 79 74 65 20 69 6e 0d 09 |length b|yte in..|
|00000630| 74 68 65 20 66 69 72 73 | 74 20 63 68 61 72 61 63 |the firs|t charac|
|00000640| 74 65 72 20 6f 66 20 74 | 68 65 20 73 74 72 69 6e |ter of t|he strin|
|00000650| 67 2e 0d 09 2a 2f 0d 09 | 0d 09 72 65 67 69 73 74 |g...*/..|..regist|
|00000660| 65 72 20 73 68 6f 72 74 | 20 6c 65 6e 73 6f 75 72 |er short| lensour|
|00000670| 63 65 20 3d 20 73 74 72 | 69 6e 67 6c 65 6e 67 74 |ce = str|inglengt|
|00000680| 68 20 28 62 73 73 6f 75 | 72 63 65 29 3b 0d 09 72 |h (bssou|rce);..r|
|00000690| 65 67 69 73 74 65 72 20 | 73 68 6f 72 74 20 6c 65 |egister |short le|
|000006a0| 6e 64 65 73 74 20 3d 20 | 73 74 72 69 6e 67 6c 65 |ndest = |stringle|
|000006b0| 6e 67 74 68 20 28 62 73 | 64 65 73 74 29 3b 0d 09 |ngth (bs|dest);..|
|000006c0| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 2a 70 |register| char *p|
|000006d0| 73 6f 75 72 63 65 2c 20 | 2a 70 64 65 73 74 3b 0d |source, |*pdest;.|
|000006e0| 09 0d 09 69 66 20 28 28 | 6c 65 6e 73 6f 75 72 63 |...if ((|lensourc|
|000006f0| 65 20 2b 20 6c 65 6e 64 | 65 73 74 29 20 3e 20 6c |e + lend|est) > l|
|00000700| 65 6e 62 69 67 73 74 72 | 69 6e 67 29 0d 09 09 72 |enbigstr|ing)...r|
|00000710| 65 74 75 72 6e 20 28 66 | 61 6c 73 65 29 3b 0d 09 |eturn (f|alse);..|
|00000720| 09 0d 09 70 64 65 73 74 | 20 3d 20 28 70 74 72 63 |...pdest| = (ptrc|
|00000730| 68 61 72 29 20 62 73 64 | 65 73 74 20 2b 20 28 63 |har) bsd|est + (c|
|00000740| 68 61 72 29 20 6c 65 6e | 64 65 73 74 20 2b 20 31 |har) len|dest + 1|
|00000750| 3b 0d 09 0d 09 70 73 6f | 75 72 63 65 20 3d 20 28 |;....pso|urce = (|
|00000760| 70 74 72 63 68 61 72 29 | 20 62 73 73 6f 75 72 63 |ptrchar)| bssourc|
|00000770| 65 20 2b 20 31 3b 0d 09 | 0d 09 62 73 64 65 73 74 |e + 1;..|..bsdest|
|00000780| 20 5b 30 5d 20 2b 3d 20 | 28 63 68 61 72 29 20 6c | [0] += |(char) l|
|00000790| 65 6e 73 6f 75 72 63 65 | 3b 0d 09 0d 09 77 68 69 |ensource|;....whi|
|000007a0| 6c 65 20 28 6c 65 6e 73 | 6f 75 72 63 65 2d 2d 29 |le (lens|ource--)|
|000007b0| 20 2a 70 64 65 73 74 2b | 2b 20 3d 20 2a 70 73 6f | *pdest+|+ = *pso|
|000007c0| 75 72 63 65 2b 2b 3b 0d | 09 0d 09 72 65 74 75 72 |urce++;.|...retur|
|000007d0| 6e 20 28 74 72 75 65 29 | 3b 0d 09 7d 20 2f 2a 70 |n (true)|;..} /*p|
|000007e0| 75 73 68 73 74 72 69 6e | 67 2a 2f 0d 09 0d 09 0d |ushstrin|g*/.....|
|000007f0| 62 6f 6f 6c 65 61 6e 20 | 70 75 73 68 73 70 61 63 |boolean |pushspac|
|00000800| 65 20 28 62 73 29 20 62 | 69 67 73 74 72 69 6e 67 |e (bs) b|igstring|
|00000810| 20 62 73 3b 20 7b 0d 09 | 0d 09 62 69 67 73 74 72 | bs; {..|..bigstr|
|00000820| 69 6e 67 20 62 73 73 70 | 61 63 65 3b 0d 09 0d 09 |ing bssp|ace;....|
|00000830| 73 65 74 73 74 72 69 6e | 67 6c 65 6e 67 74 68 20 |setstrin|glength |
|00000840| 28 62 73 73 70 61 63 65 | 2c 20 31 29 3b 0d 09 0d |(bsspace|, 1);...|
|00000850| 09 62 73 73 70 61 63 65 | 20 5b 31 5d 20 3d 20 27 |.bsspace| [1] = '|
|00000860| 20 27 3b 0d 09 0d 09 72 | 65 74 75 72 6e 20 28 70 | ';....r|eturn (p|
|00000870| 75 73 68 73 74 72 69 6e | 67 20 28 62 73 73 70 61 |ushstrin|g (bsspa|
|00000880| 63 65 2c 20 62 73 29 29 | 3b 0d 09 7d 20 2f 2a 70 |ce, bs))|;..} /*p|
|00000890| 75 73 68 73 70 61 63 65 | 2a 2f 0d 09 0d 0d 76 6f |ushspace|*/....vo|
|000008a0| 69 64 20 70 75 73 68 6c | 6f 6e 67 20 28 6e 75 6d |id pushl|ong (num|
|000008b0| 2c 20 62 73 64 65 73 74 | 29 20 6c 6f 6e 67 20 6e |, bsdest|) long n|
|000008c0| 75 6d 3b 20 62 69 67 73 | 74 72 69 6e 67 20 62 73 |um; bigs|tring bs|
|000008d0| 64 65 73 74 3b 20 7b 0d | 0d 09 62 69 67 73 74 72 |dest; {.|..bigstr|
|000008e0| 69 6e 67 20 62 73 69 6e | 74 3b 0d 09 0d 09 4e 75 |ing bsin|t;....Nu|
|000008f0| 6d 54 6f 53 74 72 69 6e | 67 20 28 6e 75 6d 2c 20 |mToStrin|g (num, |
|00000900| 62 73 69 6e 74 29 3b 0d | 09 0d 09 70 75 73 68 73 |bsint);.|...pushs|
|00000910| 74 72 69 6e 67 20 28 62 | 73 69 6e 74 2c 20 62 73 |tring (b|sint, bs|
|00000920| 64 65 73 74 29 3b 0d 09 | 7d 20 2f 2a 70 75 73 68 |dest);..|} /*push|
|00000930| 6c 6f 6e 67 2a 2f 0d 09 | 0d 0d 76 6f 69 64 20 70 |long*/..|..void p|
|00000940| 75 73 68 69 6e 74 20 28 | 6e 75 6d 2c 20 62 73 64 |ushint (|num, bsd|
|00000950| 65 73 74 29 20 73 68 6f | 72 74 20 6e 75 6d 3b 20 |est) sho|rt num; |
|00000960| 62 69 67 73 74 72 69 6e | 67 20 62 73 64 65 73 74 |bigstrin|g bsdest|
|00000970| 3b 20 7b 0d 09 0d 09 70 | 75 73 68 6c 6f 6e 67 20 |; {....p|ushlong |
|00000980| 28 28 6c 6f 6e 67 29 20 | 6e 75 6d 2c 20 62 73 64 |((long) |num, bsd|
|00000990| 65 73 74 29 3b 0d 09 7d | 20 2f 2a 70 75 73 68 69 |est);..}| /*pushi|
|000009a0| 6e 74 2a 2f 0d 09 0d 09 | 0d 76 6f 69 64 20 61 6c |nt*/....|.void al|
|000009b0| 6c 75 70 70 65 72 20 28 | 62 73 29 20 62 69 67 73 |lupper (|bs) bigs|
|000009c0| 74 72 69 6e 67 20 62 73 | 3b 20 7b 0d 09 0d 09 72 |tring bs|; {....r|
|000009d0| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 6c 65 6e |egister |char len|
|000009e0| 20 3d 20 62 73 20 5b 30 | 5d 3b 0d 09 72 65 67 69 | = bs [0|];..regi|
|000009f0| 73 74 65 72 20 70 74 72 | 63 68 61 72 20 70 20 3d |ster ptr|char p =|
|00000a00| 20 28 70 74 72 63 68 61 | 72 29 20 26 62 73 20 5b | (ptrcha|r) &bs [|
|00000a10| 31 5d 3b 0d 09 72 65 67 | 69 73 74 65 72 20 63 68 |1];..reg|ister ch|
|00000a20| 61 72 20 63 68 3b 0d 09 | 0d 09 77 68 69 6c 65 20 |ar ch;..|..while |
|00000a30| 28 6c 65 6e 2d 2d 29 20 | 7b 0d 09 09 0d 09 09 63 |(len--) |{......c|
|00000a40| 68 20 3d 20 2a 70 3b 0d | 09 09 0d 09 09 69 66 20 |h = *p;.|.....if |
|00000a50| 28 28 63 68 20 3e 3d 20 | 27 61 27 29 20 26 26 20 |((ch >= |'a') && |
|00000a60| 28 63 68 20 3c 3d 20 27 | 7a 27 29 29 0d 09 09 09 |(ch <= '|z'))....|
|00000a70| 2a 70 20 2d 3d 20 33 32 | 3b 0d 09 09 09 0d 09 09 |*p -= 32|;.......|
|00000a80| 70 2b 2b 3b 0d 09 09 7d | 20 2f 2a 77 68 69 6c 65 |p++;...}| /*while|
|00000a90| 2a 2f 0d 09 7d 20 2f 2a | 61 6c 6c 75 70 70 65 72 |*/..} /*|allupper|
|00000aa0| 2a 2f 0d 09 0d 09 0d 76 | 6f 69 64 20 61 6c 6c 6c |*/.....v|oid alll|
|00000ab0| 6f 77 65 72 20 28 62 73 | 29 20 62 69 67 73 74 72 |ower (bs|) bigstr|
|00000ac0| 69 6e 67 20 62 73 3b 20 | 7b 0d 09 0d 09 72 65 67 |ing bs; |{....reg|
|00000ad0| 69 73 74 65 72 20 63 68 | 61 72 20 6c 65 6e 20 3d |ister ch|ar len =|
|00000ae0| 20 62 73 20 5b 30 5d 3b | 0d 09 72 65 67 69 73 74 | bs [0];|..regist|
|00000af0| 65 72 20 70 74 72 63 68 | 61 72 20 70 20 3d 20 28 |er ptrch|ar p = (|
|00000b00| 70 74 72 63 68 61 72 29 | 20 26 62 73 20 5b 31 5d |ptrchar)| &bs [1]|
|00000b10| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 63 68 61 72 |;..regis|ter char|
|00000b20| 20 63 68 3b 0d 09 0d 09 | 77 68 69 6c 65 20 28 6c | ch;....|while (l|
|00000b30| 65 6e 2d 2d 29 20 7b 0d | 09 09 0d 09 09 63 68 20 |en--) {.|.....ch |
|00000b40| 3d 20 2a 70 3b 0d 09 09 | 0d 09 09 69 66 20 28 28 |= *p;...|...if ((|
|00000b50| 63 68 20 3e 3d 20 27 41 | 27 29 20 26 26 20 28 63 |ch >= 'A|') && (c|
|00000b60| 68 20 3c 3d 20 27 5a 27 | 29 29 0d 09 09 09 2a 70 |h <= 'Z'|))....*p|
|00000b70| 20 2b 3d 20 33 32 3b 0d | 09 09 09 0d 09 09 70 2b | += 32;.|......p+|
|00000b80| 2b 3b 0d 09 09 7d 20 2f | 2a 77 68 69 6c 65 2a 2f |+;...} /|*while*/|
|00000b90| 0d 09 7d 20 2f 2a 61 6c | 6c 6c 6f 77 65 72 2a 2f |..} /*al|llower*/|
|00000ba0| 0d 09 0d 09 0d 62 6f 6f | 6c 65 61 6e 20 73 74 72 |.....boo|lean str|
|00000bb0| 69 6e 67 6c 65 73 73 74 | 68 61 6e 20 28 62 73 31 |inglesst|han (bs1|
|00000bc0| 2c 20 62 73 32 29 20 62 | 69 67 73 74 72 69 6e 67 |, bs2) b|igstring|
|00000bd0| 20 62 73 31 2c 20 62 73 | 32 3b 20 7b 0d 09 0d 09 | bs1, bs|2; {....|
|00000be0| 72 65 67 69 73 74 65 72 | 20 73 68 6f 72 74 20 69 |register| short i|
|00000bf0| 2c 20 63 74 6c 6f 6f 70 | 73 3b 0d 09 72 65 67 69 |, ctloop|s;..regi|
|00000c00| 73 74 65 72 20 63 68 61 | 72 20 63 68 31 2c 20 63 |ster cha|r ch1, c|
|00000c10| 68 32 3b 0d 09 73 68 6f | 72 74 20 6c 65 6e 31 2c |h2;..sho|rt len1,|
|00000c20| 20 6c 65 6e 32 3b 0d 09 | 0d 09 6c 65 6e 31 20 3d | len2;..|..len1 =|
|00000c30| 20 28 73 68 6f 72 74 29 | 20 62 73 31 20 5b 30 5d | (short)| bs1 [0]|
|00000c40| 3b 0d 09 0d 09 6c 65 6e | 32 20 3d 20 28 73 68 6f |;....len|2 = (sho|
|00000c50| 72 74 29 20 62 73 32 20 | 5b 30 5d 3b 0d 09 0d 09 |rt) bs2 |[0];....|
|00000c60| 63 74 6c 6f 6f 70 73 20 | 3d 20 6d 69 6e 69 6e 74 |ctloops |= minint|
|00000c70| 20 28 6c 65 6e 31 2c 20 | 6c 65 6e 32 29 3b 0d 09 | (len1, |len2);..|
|00000c80| 0d 09 66 6f 72 20 28 69 | 20 3d 20 31 3b 20 69 20 |..for (i| = 1; i |
|00000c90| 3c 3d 20 63 74 6c 6f 6f | 70 73 3b 20 69 2b 2b 29 |<= ctloo|ps; i++)|
|00000ca0| 20 7b 0d 09 09 0d 09 09 | 63 68 31 20 3d 20 62 73 | {......|ch1 = bs|
|00000cb0| 31 20 5b 69 5d 3b 0d 09 | 09 0d 09 09 63 68 32 20 |1 [i];..|....ch2 |
|00000cc0| 3d 20 62 73 32 20 5b 69 | 5d 3b 0d 09 09 0d 09 09 |= bs2 [i|];......|
|00000cd0| 69 66 20 28 63 68 31 20 | 21 3d 20 63 68 32 29 20 |if (ch1 |!= ch2) |
|00000ce0| 2f 2a 77 65 20 68 61 76 | 65 20 6f 75 72 20 61 6e |/*we hav|e our an|
|00000cf0| 73 77 65 72 2a 2f 0d 09 | 09 09 72 65 74 75 72 6e |swer*/..|..return|
|00000d00| 20 28 63 68 31 20 3c 20 | 63 68 32 29 3b 0d 09 09 | (ch1 < |ch2);...|
|00000d10| 7d 20 2f 2a 66 6f 72 2a | 2f 0d 09 0d 09 72 65 74 |} /*for*|/....ret|
|00000d20| 75 72 6e 20 28 6c 65 6e | 31 20 3c 20 6c 65 6e 32 |urn (len|1 < len2|
|00000d30| 29 3b 20 2f 2a 6c 6f 6f | 70 20 74 65 72 6d 69 6e |); /*loo|p termin|
|00000d40| 61 74 65 64 2c 20 73 74 | 72 69 6e 67 73 20 61 72 |ated, st|rings ar|
|00000d50| 65 20 65 71 75 61 6c 20 | 75 70 20 74 6f 20 74 68 |e equal |up to th|
|00000d60| 65 20 6d 69 6e 20 6c 65 | 6e 67 74 68 2a 2f 0d 09 |e min le|ngth*/..|
|00000d70| 7d 20 2f 2a 73 74 72 69 | 6e 67 6c 65 73 73 74 68 |} /*stri|nglessth|
|00000d80| 61 6e 2a 2f 0d 09 0d 09 | 0d 76 6f 69 64 20 6d 69 |an*/....|.void mi|
|00000d90| 64 73 74 72 69 6e 67 20 | 28 62 73 73 6f 75 72 63 |dstring |(bssourc|
|00000da0| 65 2c 20 69 78 2c 20 6c | 65 6e 2c 20 62 73 64 65 |e, ix, l|en, bsde|
|00000db0| 73 74 29 20 62 69 67 73 | 74 72 69 6e 67 20 62 73 |st) bigs|tring bs|
|00000dc0| 73 6f 75 72 63 65 2c 20 | 62 73 64 65 73 74 3b 20 |source, |bsdest; |
|00000dd0| 73 68 6f 72 74 20 69 78 | 2c 20 6c 65 6e 3b 20 7b |short ix|, len; {|
|00000de0| 0d 09 0d 09 73 65 74 73 | 74 72 69 6e 67 6c 65 6e |....sets|tringlen|
|00000df0| 67 74 68 20 28 62 73 64 | 65 73 74 2c 20 6c 65 6e |gth (bsd|est, len|
|00000e00| 29 3b 0d 09 0d 09 6d 6f | 76 65 6c 65 66 74 20 28 |);....mo|veleft (|
|00000e10| 62 73 73 6f 75 72 63 65 | 20 2b 20 69 78 2c 20 62 |bssource| + ix, b|
|00000e20| 73 64 65 73 74 20 2b 20 | 31 2c 20 28 6c 6f 6e 67 |sdest + |1, (long|
|00000e30| 29 20 6c 65 6e 29 3b 0d | 09 7d 20 2f 2a 6d 69 64 |) len);.|.} /*mid|
|00000e40| 73 74 72 69 6e 67 2a 2f | 0d 09 0d 09 0d 62 6f 6f |string*/|.....boo|
|00000e50| 6c 65 61 6e 20 70 75 73 | 68 63 68 61 72 20 28 63 |lean pus|hchar (c|
|00000e60| 68 2c 20 62 73 29 20 62 | 79 74 65 20 63 68 3b 20 |h, bs) b|yte ch; |
|00000e70| 62 69 67 73 74 72 69 6e | 67 20 62 73 3b 20 7b 0d |bigstrin|g bs; {.|
|00000e80| 09 0d 09 2f 2a 0d 09 69 | 6e 73 65 72 74 20 74 68 |.../*..i|nsert th|
|00000e90| 65 20 63 68 61 72 61 63 | 74 65 72 20 61 74 20 74 |e charac|ter at t|
|00000ea0| 68 65 20 65 6e 64 20 6f | 66 20 61 20 70 61 73 63 |he end o|f a pasc|
|00000eb0| 61 6c 20 73 74 72 69 6e | 67 2e 0d 09 2a 2f 0d 09 |al strin|g...*/..|
|00000ec0| 0d 09 72 65 67 69 73 74 | 65 72 20 73 68 6f 72 74 |..regist|er short|
|00000ed0| 20 6c 65 6e 3b 0d 09 0d | 09 6c 65 6e 20 3d 20 62 | len;...|.len = b|
|00000ee0| 73 20 5b 30 5d 3b 20 0d | 09 0d 09 69 66 20 28 6c |s [0]; .|...if (l|
|00000ef0| 65 6e 20 3e 3d 20 6c 65 | 6e 62 69 67 73 74 72 69 |en >= le|nbigstri|
|00000f00| 6e 67 29 0d 09 09 72 65 | 74 75 72 6e 20 28 66 61 |ng)...re|turn (fa|
|00000f10| 6c 73 65 29 3b 0d 09 0d | 09 62 73 20 5b 2b 2b 6c |lse);...|.bs [++l|
|00000f20| 65 6e 5d 20 3d 20 63 68 | 3b 0d 09 0d 09 62 73 20 |en] = ch|;....bs |
|00000f30| 5b 30 5d 20 3d 20 6c 65 | 6e 3b 0d 09 0d 09 72 65 |[0] = le|n;....re|
|00000f40| 74 75 72 6e 20 28 74 72 | 75 65 29 3b 0d 09 7d 20 |turn (tr|ue);..} |
|00000f50| 2f 2a 70 75 73 68 63 68 | 61 72 2a 2f 0d 09 0d 09 |/*pushch|ar*/....|
|00000f60| 0d 62 6f 6f 6c 65 61 6e | 20 73 63 61 6e 73 74 72 |.boolean| scanstr|
|00000f70| 69 6e 67 20 28 63 68 2c | 20 62 73 2c 20 69 78 29 |ing (ch,| bs, ix)|
|00000f80| 20 62 79 74 65 20 63 68 | 3b 20 62 69 67 73 74 72 | byte ch|; bigstr|
|00000f90| 69 6e 67 20 62 73 3b 20 | 73 68 6f 72 74 20 2a 69 |ing bs; |short *i|
|00000fa0| 78 3b 20 7b 0d 09 0d 09 | 2f 2a 0d 09 72 65 74 75 |x; {....|/*..retu|
|00000fb0| 72 6e 20 69 6e 20 69 78 | 20 74 68 65 20 69 6e 64 |rn in ix| the ind|
|00000fc0| 65 78 20 69 6e 20 74 68 | 65 20 73 74 72 69 6e 67 |ex in th|e string|
|00000fd0| 20 6f 66 20 74 68 65 20 | 66 69 72 73 74 20 6f 63 | of the |first oc|
|00000fe0| 63 75 72 65 6e 63 65 20 | 6f 66 20 63 68 73 63 61 |curence |of chsca|
|00000ff0| 6e 2e 0d 09 0d 09 72 65 | 74 75 72 6e 20 66 61 6c |n.....re|turn fal|
|00001000| 73 65 20 69 66 20 69 74 | 20 77 61 73 6e 27 74 20 |se if it| wasn't |
|00001010| 66 6f 75 6e 64 2c 20 74 | 72 75 65 20 6f 74 68 65 |found, t|rue othe|
|00001020| 72 77 69 73 65 2e 0d 09 | 0d 09 64 6d 62 20 31 30 |rwise...|..dmb 10|
|00001030| 2f 32 36 2f 39 30 3a 20 | 70 20 69 73 20 6e 6f 77 |/26/90: |p is now|
|00001040| 20 69 6e 69 74 69 61 6c | 69 7a 65 64 20 63 6f 72 | initial|ized cor|
|00001050| 72 65 63 74 6c 79 20 74 | 6f 20 62 73 20 2b 20 69 |rectly t|o bs + i|
|00001060| 2c 20 6e 6f 74 20 62 73 | 20 2b 20 31 0d 09 2a 2f |, not bs| + 1..*/|
|00001070| 0d 09 0d 09 72 65 67 69 | 73 74 65 72 20 73 68 6f |....regi|ster sho|
|00001080| 72 74 20 69 3b 0d 09 72 | 65 67 69 73 74 65 72 20 |rt i;..r|egister |
|00001090| 70 74 72 62 79 74 65 20 | 70 3b 0d 09 72 65 67 69 |ptrbyte |p;..regi|
|000010a0| 73 74 65 72 20 62 79 74 | 65 20 63 20 3d 20 63 68 |ster byt|e c = ch|
|000010b0| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 73 68 6f 72 |;..regis|ter shor|
|000010c0| 74 20 6c 65 6e 20 3d 20 | 73 74 72 69 6e 67 6c 65 |t len = |stringle|
|000010d0| 6e 67 74 68 20 28 62 73 | 29 3b 0d 09 0d 09 66 6f |ngth (bs|);....fo|
|000010e0| 72 20 28 69 20 3d 20 2a | 69 78 2c 20 70 20 3d 20 |r (i = *|ix, p = |
|000010f0| 62 73 20 2b 20 69 3b 20 | 69 20 3c 3d 20 6c 65 6e |bs + i; |i <= len|
|00001100| 3b 20 69 2b 2b 29 20 0d | 09 09 0d 09 09 69 66 20 |; i++) .|.....if |
|00001110| 28 2a 70 2b 2b 20 3d 3d | 20 63 29 20 7b 0d 09 09 |(*p++ ==| c) {...|
|00001120| 09 0d 09 09 09 2a 69 78 | 20 3d 20 69 3b 0d 09 09 |.....*ix| = i;...|
|00001130| 09 0d 09 09 09 72 65 74 | 75 72 6e 20 28 74 72 75 |.....ret|urn (tru|
|00001140| 65 29 3b 0d 09 09 09 7d | 0d 09 09 09 0d 09 72 65 |e);....}|......re|
|00001150| 74 75 72 6e 20 28 66 61 | 6c 73 65 29 3b 0d 09 7d |turn (fa|lse);..}|
|00001160| 20 2f 2a 73 63 61 6e 73 | 74 72 69 6e 67 2a 2f 0d | /*scans|tring*/.|
|00001170| 0d 0d 62 6f 6f 6c 65 61 | 6e 20 64 65 6c 65 74 65 |..boolea|n delete|
|00001180| 73 74 72 69 6e 67 20 28 | 62 73 2c 20 69 78 64 65 |string (|bs, ixde|
|00001190| 6c 65 74 65 2c 20 63 74 | 64 65 6c 65 74 65 29 20 |lete, ct|delete) |
|000011a0| 62 69 67 73 74 72 69 6e | 67 20 62 73 3b 20 73 68 |bigstrin|g bs; sh|
|000011b0| 6f 72 74 20 69 78 64 65 | 6c 65 74 65 2c 20 63 74 |ort ixde|lete, ct|
|000011c0| 64 65 6c 65 74 65 3b 20 | 7b 0d 09 0d 09 2f 2a 0d |delete; |{..../*.|
|000011d0| 09 64 65 6c 65 74 65 20 | 63 74 20 63 68 61 72 73 |.delete |ct chars|
|000011e0| 20 69 6e 20 74 68 65 20 | 69 6e 64 69 63 61 74 65 | in the |indicate|
|000011f0| 64 20 73 74 72 69 6e 67 | 2c 20 73 74 61 72 74 69 |d string|, starti|
|00001200| 6e 67 20 77 69 74 68 20 | 74 68 65 20 63 68 61 72 |ng with |the char|
|00001210| 61 63 74 65 72 0d 09 61 | 74 20 6f 66 66 73 65 74 |acter..a|t offset|
|00001220| 20 69 78 2e 0d 09 2a 2f | 0d 09 0d 09 72 65 67 69 | ix...*/|....regi|
|00001230| 73 74 65 72 20 73 68 6f | 72 74 20 69 78 20 3d 20 |ster sho|rt ix = |
|00001240| 69 78 64 65 6c 65 74 65 | 3b 0d 09 72 65 67 69 73 |ixdelete|;..regis|
|00001250| 74 65 72 20 73 68 6f 72 | 74 20 63 74 20 3d 20 63 |ter shor|t ct = c|
|00001260| 74 64 65 6c 65 74 65 3b | 0d 09 72 65 67 69 73 74 |tdelete;|..regist|
|00001270| 65 72 20 73 68 6f 72 74 | 20 6c 65 6e 20 3d 20 73 |er short| len = s|
|00001280| 74 72 69 6e 67 6c 65 6e | 67 74 68 20 28 62 73 29 |tringlen|gth (bs)|
|00001290| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 6c 6f 6e 67 |;..regis|ter long|
|000012a0| 20 63 74 6d 6f 76 65 3b | 0d 09 72 65 67 69 73 74 | ctmove;|..regist|
|000012b0| 65 72 20 70 74 72 62 79 | 74 65 20 70 66 72 6f 6d |er ptrby|te pfrom|
|000012c0| 2c 20 70 74 6f 3b 09 09 | 0d 09 0d 09 69 66 20 28 |, pto;..|....if (|
|000012d0| 28 69 78 20 3e 20 6c 65 | 6e 29 20 7c 7c 20 28 69 |(ix > le|n) || (i|
|000012e0| 78 20 3c 20 31 29 29 0d | 09 09 72 65 74 75 72 6e |x < 1)).|..return|
|000012f0| 20 28 66 61 6c 73 65 29 | 3b 0d 09 09 0d 09 69 66 | (false)|;.....if|
|00001300| 20 28 63 74 20 3c 3d 20 | 30 29 0d 09 09 72 65 74 | (ct <= |0)...ret|
|00001310| 75 72 6e 20 28 63 74 20 | 3d 3d 20 30 29 3b 0d 09 |urn (ct |== 0);..|
|00001320| 09 0d 09 63 74 6d 6f 76 | 65 20 3d 20 6c 65 6e 20 |...ctmov|e = len |
|00001330| 2d 20 69 78 20 2d 20 63 | 74 20 2b 20 31 3b 0d 09 |- ix - c|t + 1;..|
|00001340| 20 0d 09 69 66 20 28 63 | 74 6d 6f 76 65 20 3e 20 | ..if (c|tmove > |
|00001350| 30 29 20 7b 0d 09 09 0d | 09 09 70 66 72 6f 6d 20 |0) {....|..pfrom |
|00001360| 3d 20 62 73 20 2b 20 69 | 78 20 2b 20 63 74 3b 0d |= bs + i|x + ct;.|
|00001370| 09 09 0d 09 09 70 74 6f | 20 3d 20 62 73 20 2b 20 |.....pto| = bs + |
|00001380| 69 78 3b 0d 09 09 0d 09 | 09 6d 6f 76 65 6c 65 66 |ix;.....|.movelef|
|00001390| 74 20 28 70 66 72 6f 6d | 2c 20 70 74 6f 2c 20 63 |t (pfrom|, pto, c|
|000013a0| 74 6d 6f 76 65 29 3b 0d | 09 09 7d 0d 09 0d 09 73 |tmove);.|..}....s|
|000013b0| 65 74 73 74 72 69 6e 67 | 6c 65 6e 67 74 68 20 28 |etstring|length (|
|000013c0| 62 73 2c 20 6c 65 6e 20 | 2d 20 63 74 29 3b 0d 09 |bs, len |- ct);..|
|000013d0| 0d 09 72 65 74 75 72 6e | 20 28 74 72 75 65 29 3b |..return| (true);|
|000013e0| 0d 09 7d 20 2f 2a 64 65 | 6c 65 74 65 73 74 72 69 |..} /*de|letestri|
|000013f0| 6e 67 2a 2f 0d 09 0d 09 | 0d 62 6f 6f 6c 65 61 6e |ng*/....|.boolean|
|00001400| 20 66 69 72 73 74 77 6f | 72 64 20 28 62 73 73 6f | firstwo|rd (bsso|
|00001410| 75 72 63 65 2c 20 63 68 | 64 65 6c 69 6d 2c 20 62 |urce, ch|delim, b|
|00001420| 73 64 65 73 74 29 20 62 | 69 67 73 74 72 69 6e 67 |sdest) b|igstring|
|00001430| 20 62 73 73 6f 75 72 63 | 65 2c 20 62 73 64 65 73 | bssourc|e, bsdes|
|00001440| 74 3b 20 63 68 61 72 20 | 63 68 64 65 6c 69 6d 3b |t; char |chdelim;|
|00001450| 20 7b 0d 09 0d 09 2f 2a | 0d 09 63 6f 70 79 20 74 | {..../*|..copy t|
|00001460| 68 65 20 66 69 72 73 74 | 20 77 6f 72 64 20 66 72 |he first| word fr|
|00001470| 6f 6d 20 62 73 2c 20 61 | 6e 64 20 70 75 74 20 69 |om bs, a|nd put i|
|00001480| 74 20 69 6e 74 6f 20 62 | 73 64 65 73 74 2e 0d 09 |t into b|sdest...|
|00001490| 0d 09 73 65 61 72 63 68 | 20 66 6f 72 77 61 72 64 |..search| forward|
|000014a0| 73 20 66 72 6f 6d 20 74 | 68 65 20 62 65 67 69 6e |s from t|he begin|
|000014b0| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 73 6f 75 72 |ning of |the sour|
|000014c0| 63 65 20 73 74 72 69 6e | 67 20 75 6e 74 69 6c 20 |ce strin|g until |
|000014d0| 79 6f 75 20 0d 09 66 69 | 6e 64 20 63 68 64 65 6c |you ..fi|nd chdel|
|000014e0| 69 6d 2e 0d 09 2a 2f 0d | 09 0d 09 72 65 67 69 73 |im...*/.|...regis|
|000014f0| 74 65 72 20 73 68 6f 72 | 74 20 6c 65 6e 20 3d 20 |ter shor|t len = |
|00001500| 73 74 72 69 6e 67 6c 65 | 6e 67 74 68 20 28 62 73 |stringle|ngth (bs|
|00001510| 73 6f 75 72 63 65 29 3b | 0d 09 72 65 67 69 73 74 |source);|..regist|
|00001520| 65 72 20 73 68 6f 72 74 | 20 69 3b 0d 09 72 65 67 |er short| i;..reg|
|00001530| 69 73 74 65 72 20 63 68 | 61 72 20 63 68 20 3d 20 |ister ch|ar ch = |
|00001540| 63 68 64 65 6c 69 6d 3b | 0d 09 0d 09 66 6f 72 20 |chdelim;|....for |
|00001550| 28 69 20 3d 20 31 3b 20 | 69 20 3c 3d 20 6c 65 6e |(i = 1; |i <= len|
|00001560| 3b 20 69 2b 2b 29 20 7b | 0d 09 09 0d 09 09 69 66 |; i++) {|......if|
|00001570| 20 28 62 73 73 6f 75 72 | 63 65 20 5b 69 5d 20 3d | (bssour|ce [i] =|
|00001580| 3d 20 63 68 29 20 7b 0d | 09 09 09 0d 09 09 09 6d |= ch) {.|.......m|
|00001590| 69 64 73 74 72 69 6e 67 | 20 28 62 73 73 6f 75 72 |idstring| (bssour|
|000015a0| 63 65 2c 20 31 2c 20 69 | 20 2d 20 31 2c 20 62 73 |ce, 1, i| - 1, bs|
|000015b0| 64 65 73 74 29 3b 0d 09 | 09 09 0d 09 09 09 72 65 |dest);..|......re|
|000015c0| 74 75 72 6e 20 28 74 72 | 75 65 29 3b 0d 09 09 09 |turn (tr|ue);....|
|000015d0| 7d 0d 09 09 7d 20 2f 2a | 66 6f 72 2a 2f 0d 09 09 |}...} /*|for*/...|
|000015e0| 0d 09 63 6f 70 79 73 74 | 72 69 6e 67 20 28 62 73 |..copyst|ring (bs|
|000015f0| 73 6f 75 72 63 65 2c 20 | 62 73 64 65 73 74 29 3b |source, |bsdest);|
|00001600| 0d 09 0d 09 72 65 74 75 | 72 6e 20 28 74 72 75 65 |....retu|rn (true|
|00001610| 29 3b 0d 09 7d 20 2f 2a | 66 69 72 73 74 77 6f 72 |);..} /*|firstwor|
|00001620| 64 2a 2f 0d 0d 0d 62 6f | 6f 6c 65 61 6e 20 6c 61 |d*/...bo|olean la|
|00001630| 73 74 77 6f 72 64 20 28 | 62 73 73 6f 75 72 63 65 |stword (|bssource|
|00001640| 2c 20 63 68 64 65 6c 69 | 6d 2c 20 62 73 64 65 73 |, chdeli|m, bsdes|
|00001650| 74 29 20 62 69 67 73 74 | 72 69 6e 67 20 62 73 73 |t) bigst|ring bss|
|00001660| 6f 75 72 63 65 2c 20 62 | 73 64 65 73 74 3b 20 63 |ource, b|sdest; c|
|00001670| 68 61 72 20 63 68 64 65 | 6c 69 6d 3b 20 7b 0d 09 |har chde|lim; {..|
|00001680| 0d 09 2f 2a 0d 09 63 6f | 70 79 20 74 68 65 20 6c |../*..co|py the l|
|00001690| 61 73 74 20 77 6f 72 64 | 20 66 72 6f 6d 20 62 73 |ast word| from bs|
|000016a0| 2c 20 61 6e 64 20 70 75 | 74 20 69 74 20 69 6e 74 |, and pu|t it int|
|000016b0| 6f 20 62 73 64 65 73 74 | 2e 0d 09 0d 09 73 65 61 |o bsdest|.....sea|
|000016c0| 72 63 68 20 62 61 63 6b | 77 61 72 64 73 20 66 72 |rch back|wards fr|
|000016d0| 6f 6d 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |om the e|nd of th|
|000016e0| 65 20 73 6f 75 72 63 65 | 20 73 74 72 69 6e 67 20 |e source| string |
|000016f0| 75 6e 74 69 6c 20 79 6f | 75 20 66 69 6e 64 0d 09 |until yo|u find..|
|00001700| 63 68 64 65 6c 69 6d 2e | 0d 09 2a 2f 0d 09 0d 09 |chdelim.|..*/....|
|00001710| 72 65 67 69 73 74 65 72 | 20 73 68 6f 72 74 20 6c |register| short l|
|00001720| 65 6e 20 3d 20 73 74 72 | 69 6e 67 6c 65 6e 67 74 |en = str|inglengt|
|00001730| 68 20 28 62 73 73 6f 75 | 72 63 65 29 3b 0d 09 72 |h (bssou|rce);..r|
|00001740| 65 67 69 73 74 65 72 20 | 73 68 6f 72 74 20 69 3b |egister |short i;|
|00001750| 0d 09 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |..regist|er char |
|00001760| 63 68 20 3d 20 63 68 64 | 65 6c 69 6d 3b 0d 09 0d |ch = chd|elim;...|
|00001770| 09 66 6f 72 20 28 69 20 | 3d 20 6c 65 6e 3b 20 69 |.for (i |= len; i|
|00001780| 20 3e 20 30 3b 20 69 2d | 2d 29 20 7b 0d 09 09 0d | > 0; i-|-) {....|
|00001790| 09 09 69 66 20 28 62 73 | 73 6f 75 72 63 65 20 5b |..if (bs|source [|
|000017a0| 69 5d 20 3d 3d 20 63 68 | 29 20 7b 0d 09 09 09 0d |i] == ch|) {.....|
|000017b0| 09 09 09 6d 69 64 73 74 | 72 69 6e 67 20 28 62 73 |...midst|ring (bs|
|000017c0| 73 6f 75 72 63 65 2c 20 | 69 20 2b 20 31 2c 20 6c |source, |i + 1, l|
|000017d0| 65 6e 20 2d 20 69 2c 20 | 62 73 64 65 73 74 29 3b |en - i, |bsdest);|
|000017e0| 0d 09 09 09 0d 09 09 09 | 72 65 74 75 72 6e 20 28 |........|return (|
|000017f0| 74 72 75 65 29 3b 0d 09 | 09 09 7d 0d 09 09 7d 20 |true);..|..}...} |
|00001800| 2f 2a 66 6f 72 2a 2f 0d | 09 09 0d 09 63 6f 70 79 |/*for*/.|....copy|
|00001810| 73 74 72 69 6e 67 20 28 | 62 73 73 6f 75 72 63 65 |string (|bssource|
|00001820| 2c 20 62 73 64 65 73 74 | 29 3b 0d 09 0d 09 72 65 |, bsdest|);....re|
|00001830| 74 75 72 6e 20 28 74 72 | 75 65 29 3b 0d 09 7d 20 |turn (tr|ue);..} |
|00001840| 2f 2a 6c 61 73 74 77 6f | 72 64 2a 2f 0d 09 0d 09 |/*lastwo|rd*/....|
|00001850| 0d 73 68 6f 72 74 20 70 | 61 74 74 65 72 6e 6d 61 |.short p|atternma|
|00001860| 74 63 68 20 28 62 69 67 | 73 74 72 69 6e 67 20 62 |tch (big|string b|
|00001870| 73 70 61 74 74 65 72 6e | 2c 20 62 69 67 73 74 72 |spattern|, bigstr|
|00001880| 69 6e 67 20 62 73 29 20 | 7b 0d 09 0d 09 73 68 6f |ing bs) |{....sho|
|00001890| 72 74 20 6c 65 6e 73 74 | 72 69 6e 67 20 3d 20 73 |rt lenst|ring = s|
|000018a0| 74 72 69 6e 67 6c 65 6e | 67 74 68 20 28 62 73 29 |tringlen|gth (bs)|
|000018b0| 3b 0d 09 73 68 6f 72 74 | 20 6c 65 6e 70 61 74 74 |;..short| lenpatt|
|000018c0| 65 72 6e 20 3d 20 73 74 | 72 69 6e 67 6c 65 6e 67 |ern = st|ringleng|
|000018d0| 74 68 20 28 62 73 70 61 | 74 74 65 72 6e 29 3b 0d |th (bspa|ttern);.|
|000018e0| 09 73 68 6f 72 74 20 69 | 78 73 74 72 69 6e 67 20 |.short i|xstring |
|000018f0| 3d 20 31 3b 0d 09 62 79 | 74 65 20 63 68 66 69 72 |= 1;..by|te chfir|
|00001900| 73 74 3b 0d 09 73 68 6f | 72 74 20 69 2c 20 69 78 |st;..sho|rt i, ix|
|00001910| 3b 0d 09 0d 09 69 66 20 | 28 28 6c 65 6e 73 74 72 |;....if |((lenstr|
|00001920| 69 6e 67 20 3d 3d 20 30 | 29 20 7c 7c 20 28 6c 65 |ing == 0|) || (le|
|00001930| 6e 70 61 74 74 65 72 6e | 20 3d 3d 20 30 29 29 0d |npattern| == 0)).|
|00001940| 09 09 72 65 74 75 72 6e | 20 28 30 29 3b 0d 09 0d |..return| (0);...|
|00001950| 09 63 68 66 69 72 73 74 | 20 3d 20 62 73 70 61 74 |.chfirst| = bspat|
|00001960| 74 65 72 6e 20 5b 31 5d | 3b 0d 09 0d 09 77 68 69 |tern [1]|;....whi|
|00001970| 6c 65 20 28 74 72 75 65 | 29 20 7b 0d 09 09 0d 09 |le (true|) {.....|
|00001980| 09 69 66 20 28 62 73 20 | 5b 69 78 73 74 72 69 6e |.if (bs |[ixstrin|
|00001990| 67 5d 20 3d 3d 20 63 68 | 66 69 72 73 74 29 20 7b |g] == ch|first) {|
|000019a0| 20 2f 2a 6d 61 74 63 68 | 65 64 20 61 74 20 6c 65 | /*match|ed at le|
|000019b0| 61 73 74 20 66 69 72 73 | 74 20 63 68 61 72 61 63 |ast firs|t charac|
|000019c0| 74 65 72 20 69 6e 20 73 | 74 72 69 6e 67 2a 2f 0d |ter in s|tring*/.|
|000019d0| 09 09 09 0d 09 09 09 66 | 6f 72 20 28 69 20 3d 20 |.......f|or (i = |
|000019e0| 32 3b 20 69 20 3c 3d 20 | 6c 65 6e 70 61 74 74 65 |2; i <= |lenpatte|
|000019f0| 72 6e 3b 20 69 2b 2b 29 | 20 7b 0d 09 09 09 09 0d |rn; i++)| {......|
|00001a00| 09 09 09 09 69 78 20 3d | 20 69 78 73 74 72 69 6e |....ix =| ixstrin|
|00001a10| 67 20 2b 20 69 20 2d 20 | 31 3b 0d 09 09 09 09 0d |g + i - |1;......|
|00001a20| 09 09 09 09 69 66 20 28 | 69 78 20 3e 20 6c 65 6e |....if (|ix > len|
|00001a30| 73 74 72 69 6e 67 29 20 | 2f 2a 67 6f 6e 65 20 6f |string) |/*gone o|
|00001a40| 66 66 20 65 6e 64 20 6f | 66 20 73 74 72 69 6e 67 |ff end o|f string|
|00001a50| 2c 20 63 61 6e 27 74 20 | 6d 61 74 63 68 2a 2f 0d |, can't |match*/.|
|00001a60| 09 09 09 09 09 72 65 74 | 75 72 6e 20 28 30 29 3b |.....ret|urn (0);|
|00001a70| 0d 09 09 09 09 0d 09 09 | 09 09 69 66 20 28 62 73 |........|..if (bs|
|00001a80| 20 5b 69 78 5d 20 21 3d | 20 62 73 70 61 74 74 65 | [ix] !=| bspatte|
|00001a90| 72 6e 20 5b 69 5d 29 20 | 0d 09 09 09 09 09 67 6f |rn [i]) |......go|
|00001aa0| 74 6f 20 4c 31 3b 0d 09 | 09 09 09 7d 20 2f 2a 66 |to L1;..|...} /*f|
|00001ab0| 6f 72 2a 2f 0d 09 09 09 | 0d 09 09 09 72 65 74 75 |or*/....|....retu|
|00001ac0| 72 6e 20 28 69 78 73 74 | 72 69 6e 67 29 3b 20 2f |rn (ixst|ring); /|
|00001ad0| 2a 6c 6f 6f 70 20 74 65 | 72 6d 69 6e 61 74 65 64 |*loop te|rminated|
|00001ae0| 2c 20 66 75 6c 6c 20 6d | 61 74 63 68 2a 2f 0d 09 |, full m|atch*/..|
|00001af0| 09 09 7d 0d 09 09 0d 09 | 09 4c 31 3a 20 2f 2a 61 |..}.....|.L1: /*a|
|00001b00| 64 76 61 6e 63 65 20 74 | 6f 20 6e 65 78 74 20 63 |dvance t|o next c|
|00001b10| 68 61 72 61 63 74 65 72 | 20 69 6e 20 73 74 72 69 |haracter| in stri|
|00001b20| 6e 67 2a 2f 0d 09 09 0d | 09 09 69 66 20 28 2b 2b |ng*/....|..if (++|
|00001b30| 69 78 73 74 72 69 6e 67 | 20 3e 20 6c 65 6e 73 74 |ixstring| > lenst|
|00001b40| 72 69 6e 67 29 20 2f 2a | 72 65 61 63 68 65 64 20 |ring) /*|reached |
|00001b50| 65 6e 64 20 6f 66 20 73 | 74 72 69 6e 67 2c 20 6e |end of s|tring, n|
|00001b60| 6f 74 20 66 6f 75 6e 64 | 2a 2f 0d 09 09 09 72 65 |ot found|*/....re|
|00001b70| 74 75 72 6e 20 28 30 29 | 3b 0d 09 09 7d 20 2f 2a |turn (0)|;...} /*|
|00001b80| 77 68 69 6c 65 2a 2f 0d | 09 7d 20 2f 2a 70 61 74 |while*/.|.} /*pat|
|00001b90| 74 65 72 6e 6d 61 74 63 | 68 2a 2f 0d 0d 0d 76 6f |ternmatc|h*/...vo|
|00001ba0| 69 64 20 66 69 6c 6c 65 | 64 73 74 72 69 6e 67 20 |id fille|dstring |
|00001bb0| 28 63 68 61 72 20 63 68 | 2c 20 73 68 6f 72 74 20 |(char ch|, short |
|00001bc0| 63 74 2c 20 62 69 67 73 | 74 72 69 6e 67 20 62 73 |ct, bigs|tring bs|
|00001bd0| 29 20 7b 0d 09 0d 09 69 | 66 20 28 63 74 20 3c 20 |) {....i|f (ct < |
|00001be0| 30 29 0d 09 09 63 74 20 | 3d 20 30 3b 0d 09 09 0d |0)...ct |= 0;....|
|00001bf0| 09 62 73 20 5b 30 5d 20 | 3d 20 63 74 3b 0d 09 0d |.bs [0] |= ct;...|
|00001c00| 09 66 69 6c 6c 63 68 61 | 72 20 28 26 62 73 20 5b |.fillcha|r (&bs [|
|00001c10| 31 5d 2c 20 28 6c 6f 6e | 67 29 20 63 74 2c 20 63 |1], (lon|g) ct, c|
|00001c20| 68 29 3b 0d 09 7d 20 2f | 2a 66 69 6c 6c 65 64 73 |h);..} /|*filleds|
|00001c30| 74 72 69 6e 67 2a 2f 0d | 09 0d 09 0d 62 6f 6f 6c |tring*/.|....bool|
|00001c40| 65 61 6e 20 69 6e 73 65 | 72 74 63 68 61 72 20 28 |ean inse|rtchar (|
|00001c50| 63 68 61 72 20 63 68 2c | 20 62 69 67 73 74 72 69 |char ch,| bigstri|
|00001c60| 6e 67 20 62 73 64 65 73 | 74 29 20 7b 0d 09 0d 09 |ng bsdes|t) {....|
|00001c70| 72 65 67 69 73 74 65 72 | 20 62 79 74 65 20 2a 70 |register| byte *p|
|00001c80| 64 65 73 74 20 3d 20 62 | 73 64 65 73 74 3b 0d 09 |dest = b|sdest;..|
|00001c90| 72 65 67 69 73 74 65 72 | 20 73 68 6f 72 74 20 6c |register| short l|
|00001ca0| 65 6e 20 3d 20 73 74 72 | 69 6e 67 6c 65 6e 67 74 |en = str|inglengt|
|00001cb0| 68 20 28 70 64 65 73 74 | 29 3b 0d 09 0d 09 69 66 |h (pdest|);....if|
|00001cc0| 20 28 6c 65 6e 20 3d 3d | 20 6c 65 6e 62 69 67 73 | (len ==| lenbigs|
|00001cd0| 74 72 69 6e 67 29 0d 09 | 09 72 65 74 75 72 6e 20 |tring)..|.return |
|00001ce0| 28 66 61 6c 73 65 29 3b | 0d 09 0d 09 6d 6f 76 65 |(false);|....move|
|00001cf0| 72 69 67 68 74 20 28 70 | 64 65 73 74 20 2b 20 31 |right (p|dest + 1|
|00001d00| 2c 20 70 64 65 73 74 20 | 2b 20 32 2c 20 6c 65 6e |, pdest |+ 2, len|
|00001d10| 29 3b 0d 09 0d 09 73 65 | 74 73 74 72 69 6e 67 6c |);....se|tstringl|
|00001d20| 65 6e 67 74 68 20 28 70 | 64 65 73 74 2c 20 6c 65 |ength (p|dest, le|
|00001d30| 6e 20 2b 20 31 29 3b 0d | 09 0d 09 70 64 65 73 74 |n + 1);.|...pdest|
|00001d40| 20 5b 31 5d 20 3d 20 63 | 68 3b 0d 09 0d 09 72 65 | [1] = c|h;....re|
|00001d50| 74 75 72 6e 20 28 74 72 | 75 65 29 3b 0d 09 7d 20 |turn (tr|ue);..} |
|00001d60| 2f 2a 69 6e 73 65 72 74 | 63 68 61 72 2a 2f 0d 0d |/*insert|char*/..|
|00001d70| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 01 00 00 00 01 36 | 00 00 00 36 00 00 00 1e |.......6|...6....|
|00001d90| 4d 45 4e 53 ff ff a5 a1 | f2 1d 00 00 16 ba 0b 4d |MENS....|.......M|
|00001da0| 65 6e 75 20 53 68 61 72 | 65 72 74 65 72 66 61 63 |enu Shar|erterfac|
|00001db0| 0f 61 70 70 6c 65 74 73 | 74 72 69 6e 67 73 2e 63 |.applets|trings.c|
|00001dc0| 02 00 00 00 50 61 72 74 | 53 49 54 78 00 00 00 00 |....Part|SITx....|
|00001dd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 a9 81 44 cf 00 00 | 00 00 00 00 01 54 08 4e |....D...|.....T.N|
|00001e00| 61 6d 65 42 61 73 65 65 | 72 2e 4d 50 57 20 64 66 |ameBasee|r.MPW df|
|00001e10| 31 65 72 20 53 43 00 00 | 00 00 00 00 00 00 07 02 |1er SC..|........|
|00001e20| 4f 48 49 4f ff f2 a6 1a | 23 b8 00 00 12 2a 0d 47 |OHIO....|#....*.G|
|00001e30| 65 74 20 46 69 6c 65 20 | 49 6e 66 6f 70 6c 65 74 |et File |Infoplet|
|00001e40| 31 65 72 20 53 43 00 00 | 00 00 00 00 00 00 07 02 |1er SC..|........|
|00001e50| 4f 48 49 4f ff f3 a6 1a | 23 b8 00 00 12 2a 0c 46 |OHIO....|#....*.F|
|00001e60| 69 6e 64 20 49 6e 20 46 | 69 6c 65 6f 70 6c 65 74 |ind In F|ileoplet|
|00001e70| 31 65 72 20 53 43 00 00 | 00 00 00 00 00 00 07 02 |1er SC..|........|
|00001e80| 00 00 00 2f 02 00 80 00 | 00 00 06 32 2e 30 72 63 |.../....|...2.0rc|
|00001e90| 31 21 32 2e 30 72 63 31 | 3b 20 a9 20 31 39 39 32 |1!2.0rc1|; . 1992|
|00001ea0| 2c 20 55 73 65 72 4c 61 | 6e 64 20 53 6f 66 74 77 |, UserLa|nd Softw|
|00001eb0| 61 72 65 65 72 65 00 00 | 01 00 00 00 01 36 00 00 |areere..|.....6..|
|00001ec0| 00 36 00 00 00 1e 00 ed | cb 18 0d 98 00 00 00 1c |.6......|........|
|00001ed0| 00 1e ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+