/ PD Collection CD 1 / PD Collection CD 1.iso / programer2 / blib / Blib_String

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 2a 7c 73 74 | 61 72 74 20 53 74 72 69 |....*|st|art Stri|
|00000010| 6e 67 0d 00 14 15 2a 7c | 21 53 74 72 69 6e 67 20 |ng....*||!String |
|00000020| 4c 69 62 72 61 72 79 0d | 00 1e 07 2a 7c 21 0d 00 |Library.|...*|!..|
|00000030| 28 4e 2a 7c 21 53 74 72 | 69 6e 67 20 4c 69 62 72 |(N*|!Str|ing Libr|
|00000040| 61 72 79 20 56 65 72 73 | 69 6f 6e 20 31 2e 30 30 |ary Vers|ion 1.00|
|00000050| 20 28 32 30 74 68 20 4a | 75 6e 65 20 31 39 39 33 | (20th J|une 1993|
|00000060| 29 20 43 6f 70 79 72 69 | 67 68 74 20 49 61 6e 20 |) Copyri|ght Ian |
|00000070| 50 61 6c 6d 65 72 20 31 | 39 39 33 2e 0d 00 32 07 |Palmer 1|993...2.|
|00000080| 2a 7c 21 0d 00 3c 27 2a | 7c 21 56 61 72 69 6f 75 |*|!..<'*||!Variou|
|00000090| 73 20 73 74 72 69 6e 67 | 20 72 65 6c 65 61 74 65 |s string| releate|
|000000a0| 64 20 72 6f 75 74 69 6e | 65 73 0d 00 46 11 2a 7c |d routin|es..F.*||
|000000b0| 73 74 6f 70 20 53 74 72 | 69 6e 67 0d 00 50 16 2a |stop Str|ing..P.*|
|000000c0| 7c 73 74 61 72 74 20 46 | 4e 73 74 72 5f 70 61 74 ||start F|Nstr_pat|
|000000d0| 68 0d 00 5a 1b 2a 7c 21 | 46 4e 73 74 72 5f 70 61 |h..Z.*|!|FNstr_pa|
|000000e0| 74 68 28 20 73 74 72 69 | 6e 67 20 29 0d 00 64 07 |th( stri|ng )..d.|
|000000f0| 2a 7c 21 0d 00 6e 51 2a | 7c 21 54 68 69 73 20 66 |*|!..nQ*||!This f|
|00000100| 75 6e 63 74 69 6f 6e 20 | 72 65 74 75 72 6e 73 20 |unction |returns |
|00000110| 74 68 65 20 68 65 61 64 | 20 6f 66 20 61 20 73 74 |the head| of a st|
|00000120| 72 69 6e 67 20 66 69 6c | 65 20 70 61 74 68 20 6e |ring fil|e path n|
|00000130| 61 6d 65 2c 20 69 65 2e | 20 69 66 20 79 6f 75 20 |ame, ie.| if you |
|00000140| 70 61 73 73 0d 00 78 32 | 2a 7c 21 69 74 20 3a 20 |pass..x2|*|!it : |
|00000150| 7c 38 61 64 66 73 3a 3a | 44 69 73 63 34 2e 24 2e ||8adfs::|Disc4.$.|
|00000160| 4c 61 6e 67 73 2e 43 2e | 21 4e 65 77 41 70 70 7c |Langs.C.|!NewApp||
|00000170| 37 2e 46 69 6c 65 0d 00 | 82 37 2a 7c 21 74 68 65 |7.File..|.7*|!the|
|00000180| 20 66 75 6e 63 74 69 6f | 6e 20 77 69 6c 6c 20 72 | functio|n will r|
|00000190| 65 74 75 72 6e 20 74 68 | 65 20 70 61 72 74 20 73 |eturn th|e part s|
|000001a0| 68 6f 77 6e 20 69 6e 20 | 62 6c 75 65 2e 0d 00 8c |hown in |blue....|
|000001b0| 12 dd a4 73 74 72 5f 70 | 61 74 68 28 53 24 29 0d |...str_p|ath(S$).|
|000001c0| 00 96 0b ea 20 41 25 2c | 42 25 0d 00 a0 29 41 25 |.... A%,|B%...)A%|
|000001d0| 3d 30 3a f5 3a 42 25 3d | a7 53 24 2c 22 2e 22 2c |=0:.:B%=|.S$,".",|
|000001e0| 41 25 2b 31 29 3a e7 20 | 42 25 3c 3e 30 20 41 25 |A%+1):. |B%<>0 A%|
|000001f0| 3d 42 25 0d 00 aa 0a fd | 20 42 25 3d 30 0d 00 b4 |=B%.....| B%=0...|
|00000200| 0c e7 20 41 25 3d 30 20 | 8c 0d 00 be 26 20 20 f5 |.. A%=0 |....&  .|
|00000210| 3a 42 25 3d a7 53 24 2c | 22 3a 22 2c 41 25 2b 31 |:B%=.S$,|":",A%+1|
|00000220| 29 3a e7 20 42 25 3c 3e | 30 20 41 25 3d 42 25 0d |):. B%<>|0 A%=B%.|
|00000230| 00 c8 0c 20 20 fd 20 42 | 25 3d 30 0d 00 d2 12 20 |...  . B|%=0.... |
|00000240| 20 e7 20 41 25 3d 30 20 | 8c 20 3d 53 24 0d 00 dc | . A%=0 |. =S$...|
|00000250| 05 cd 0d 00 e6 0e 3d c0 | 53 24 2c 41 25 2d 31 29 |......=.|S$,A%-1)|
|00000260| 0d 00 f0 04 0d 00 fa 15 | 2a 7c 73 74 6f 70 20 46 |........|*|stop F|
|00000270| 4e 73 74 72 5f 70 61 74 | 68 0d 01 04 16 2a 7c 73 |Nstr_pat|h....*|s|
|00000280| 74 61 72 74 20 46 4e 73 | 74 72 5f 74 61 69 6c 0d |tart FNs|tr_tail.|
|00000290| 01 0e 1b 2a 7c 21 46 4e | 73 74 72 5f 74 61 69 6c |...*|!FN|str_tail|
|000002a0| 28 20 73 74 72 69 6e 67 | 20 29 0d 01 18 07 2a 7c |( string| )....*||
|000002b0| 21 0d 01 22 51 2a 7c 21 | 54 68 69 73 20 66 75 6e |!.."Q*|!|This fun|
|000002c0| 63 74 69 6f 6e 20 72 65 | 74 75 72 6e 73 20 74 68 |ction re|turns th|
|000002d0| 65 20 74 61 69 6c 20 6f | 66 20 61 20 73 74 72 69 |e tail o|f a stri|
|000002e0| 6e 67 20 66 69 6c 65 20 | 70 61 74 68 20 6e 61 6d |ng file |path nam|
|000002f0| 65 2c 20 69 65 2e 20 69 | 66 20 79 6f 75 20 70 61 |e, ie. i|f you pa|
|00000300| 73 73 0d 01 2c 33 2a 7c | 21 69 74 20 3a 20 20 61 |ss..,3*||!it :  a|
|00000310| 64 66 73 3a 3a 44 69 73 | 63 34 2e 24 2e 4c 61 6e |dfs::Dis|c4.$.Lan|
|00000320| 67 73 2e 43 2e 21 4e 65 | 77 41 70 70 2e 7c 38 46 |gs.C.!Ne|wApp.|8F|
|00000330| 69 6c 65 7c 37 0d 01 2d | 37 2a 7c 21 74 68 65 20 |ile|7..-|7*|!the |
|00000340| 66 75 6e 63 74 69 6f 6e | 20 77 69 6c 6c 20 72 65 |function| will re|
|00000350| 74 75 72 6e 20 74 68 65 | 20 70 61 72 74 20 73 68 |turn the| part sh|
|00000360| 6f 77 6e 20 69 6e 20 62 | 6c 75 65 2e 0d 01 40 12 |own in b|lue...@.|
|00000370| dd a4 73 74 72 5f 74 61 | 69 6c 28 53 24 29 0d 01 |..str_ta|il(S$)..|
|00000380| 4a 0b ea 20 41 25 2c 42 | 25 0d 01 54 29 41 25 3d |J.. A%,B|%..T)A%=|
|00000390| 30 3a f5 3a 42 25 3d a7 | 53 24 2c 22 2e 22 2c 41 |0:.:B%=.|S$,".",A|
|000003a0| 25 2b 31 29 3a e7 20 42 | 25 3c 3e 30 20 41 25 3d |%+1):. B|%<>0 A%=|
|000003b0| 42 25 0d 01 5e 0a fd 20 | 42 25 3d 30 0d 01 68 0c |B%..^.. |B%=0..h.|
|000003c0| e7 20 41 25 3d 30 20 8c | 0d 01 72 26 20 20 f5 3a |. A%=0 .|..r&  .:|
|000003d0| 42 25 3d a7 53 24 2c 22 | 3a 22 2c 41 25 2b 31 29 |B%=.S$,"|:",A%+1)|
|000003e0| 3a e7 20 42 25 3c 3e 30 | 20 41 25 3d 42 25 0d 01 |:. B%<>0| A%=B%..|
|000003f0| 7c 0c 20 20 fd 20 42 25 | 3d 30 0d 01 86 12 20 20 ||.  . B%|=0....  |
|00000400| e7 20 41 25 3d 30 20 8c | 20 3d 53 24 0d 01 90 05 |. A%=0 .| =S$....|
|00000410| cd 0d 01 9a 0e 3d c1 53 | 24 2c 41 25 2b 31 29 0d |.....=.S|$,A%+1).|
|00000420| 01 a4 04 0d 01 ae 15 2a | 7c 73 74 6f 70 20 46 4e |.......*||stop FN|
|00000430| 73 74 72 5f 74 61 69 6c | 0d 01 b8 04 0d ff       |str_tail|......  |
+--------+-------------------------+-------------------------+--------+--------+