/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / programming / wimpworks / Editors / !Structure / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 1a f4 3e 21 53 | 74 72 75 63 74 75 72 65 |.....>!S|tructure|
|00000010| 2e 21 52 75 6e 49 6d 61 | 67 65 0d 00 02 43 f4 20 |.!RunIma|ge...C. |
|00000020| 41 64 64 73 20 43 2d 6c | 69 6b 65 20 73 74 72 75 |Adds C-l|ike stru|
|00000030| 63 74 75 72 65 73 20 74 | 6f 20 57 57 76 32 20 76 |ctures t|o WWv2 v|
|00000040| 69 61 20 61 6e 20 65 64 | 69 74 6f 72 20 61 6e 64 |ia an ed|itor and|
|00000050| 20 61 20 70 72 65 2d 70 | 61 72 73 65 72 0d 00 03 | a pre-p|arser...|
|00000060| 31 f4 20 a9 20 4a 61 66 | 66 61 20 53 6f 66 74 77 |1. . Jaf|fa Softw|
|00000070| 61 72 65 20 31 39 39 38 | 2e 20 41 6c 6c 20 72 69 |are 1998|. All ri|
|00000080| 67 68 74 73 20 72 65 73 | 65 72 76 65 64 2e 0d 00 |ghts res|erved...|
|00000090| 04 36 f4 20 46 72 65 65 | 77 61 72 65 2e 20 54 68 |.6. Free|ware. Th|
|000000a0| 69 73 20 65 64 69 74 6f | 72 20 6d 61 79 20 62 65 |is edito|r may be|
|000000b0| 20 64 69 73 74 72 69 62 | 75 74 65 64 20 66 72 65 | distrib|uted fre|
|000000c0| 65 6c 79 2e 0d 00 05 04 | 0d 00 06 05 e0 0d 00 07 |ely.....|........|
|000000d0| 04 0d 00 08 19 dd 20 a4 | 73 74 72 75 63 74 75 72 |...... .|structur|
|000000e0| 65 3d 22 73 74 72 75 63 | 74 22 0d 00 09 1e dd 20 |e="struc|t"..... |
|000000f0| a4 73 74 72 75 63 74 5f | 6d 65 6e 75 3d 22 53 74 |.struct_|menu="St|
|00000100| 72 75 63 74 75 72 65 22 | 0d 00 0a 04 0d 00 0b 32 |ructure"|.......2|
|00000110| f4 20 43 61 6c 6c 65 64 | 20 6f 6e 63 65 20 61 74 |. Called| once at|
|00000120| 20 73 74 61 72 74 2d 75 | 70 2c 20 6c 6f 61 64 20 | start-u|p, load |
|00000130| 74 65 6d 70 6c 61 74 65 | 73 20 65 74 63 2e 0d 00 |template|s etc...|
|00000140| 0c 12 dd 20 a4 73 74 72 | 75 63 74 5f 69 6e 69 74 |... .str|uct_init|
|00000150| 0d 00 0d 0d 20 20 ea 20 | 6c 6f 6f 70 25 0d 00 0e |....  . |loop%...|
|00000160| 2a 20 20 f2 72 65 64 65 | 66 69 6e 65 28 22 5f 5f |*  .rede|fine("__|
|00000170| 70 61 72 73 65 72 22 2c | 22 73 74 72 63 74 50 72 |parser",|"strctPr|
|00000180| 73 22 2c 26 41 34 29 0d | 00 0f 04 0d 00 10 21 20 |s",&A4).|......! |
|00000190| 20 73 74 72 75 63 74 56 | 61 6c 69 64 53 65 74 24 | structV|alidSet$|
|000001a0| 20 3d 20 c4 32 35 35 2c | 22 20 22 29 0d 00 11 25 | = .255,|" ")...%|
|000001b0| 20 20 73 74 72 75 63 74 | 56 61 6c 69 64 53 65 74 |  struct|ValidSet|
|000001c0| 24 20 3d 20 22 5f 30 31 | 32 33 34 35 36 37 38 39 |$ = "_01|23456789|
|000001d0| 22 0d 00 12 1d 20 20 e3 | 20 6c 6f 6f 70 25 3d 97 |"....  .| loop%=.|
|000001e0| 28 22 41 22 29 20 b8 20 | 97 28 22 5a 22 29 0d 00 |("A") . |.("Z")..|
|000001f0| 13 31 20 20 20 20 73 74 | 72 75 63 74 56 61 6c 69 |.1    st|ructVali|
|00000200| 64 53 65 74 24 20 2b 3d | 20 bd 28 6c 6f 6f 70 25 |dSet$ +=| .(loop%|
|00000210| 29 20 2b 20 bd 28 6c 6f | 6f 70 25 2b 33 32 29 0d |) + .(lo|op%+32).|
|00000220| 00 14 07 20 20 ed 0d 00 | 15 06 3d 30 0d 00 16 04 |...  ...|..=0....|
|00000230| 0d 00 17 04 0d 00 18 14 | f4 20 43 61 6c 6c 65 64 |........|. Called|
|00000240| 20 6f 6e 20 65 78 69 74 | 0d 00 19 12 dd 20 a4 73 | on exit|..... .s|
|00000250| 74 72 75 63 74 5f 65 78 | 69 74 0d 00 1a 06 3d b9 |truct_ex|it....=.|
|00000260| 0d 00 1b 04 0d 00 1c 04 | 0d 00 1d 32 f4 20 43 61 |........|...2. Ca|
|00000270| 6c 6c 65 64 20 77 68 65 | 6e 20 27 43 6c 65 61 72 |lled whe|n 'Clear|
|00000280| 20 70 72 6f 6a 65 63 74 | 27 20 63 68 6f 73 65 6e | project|' chosen|
|00000290| 20 66 72 6f 6d 20 6d 65 | 6e 75 0d 00 1e 15 dd 20 | from me|nu..... |
|000002a0| a4 73 74 72 75 63 74 5f | 63 6c 65 61 72 3d 30 0d |.struct_|clear=0.|
|000002b0| 00 1f 04 0d 00 20 04 0d | 00 21 25 f4 20 43 61 6c |..... ..|.!%. Cal|
|000002c0| 6c 65 64 20 77 68 65 6e | 20 61 20 70 72 6f 6a 65 |led when| a proje|
|000002d0| 63 74 20 69 73 20 6c 6f | 61 64 65 64 0d 00 22 1b |ct is lo|aded..".|
|000002e0| dd 20 a4 73 74 72 75 63 | 74 5f 6c 6f 61 64 28 66 |. .struc|t_load(f|
|000002f0| 69 6c 65 24 29 3d 30 0d | 00 23 04 0d 00 24 04 0d |ile$)=0.|.#...$..|
|00000300| 00 25 2a f4 20 43 61 6c | 6c 65 64 20 77 68 65 6e |.%*. Cal|led when|
|00000310| 20 61 6e 20 72 65 6c 65 | 76 61 6e 74 20 65 76 65 | an rele|vant eve|
|00000320| 6e 74 20 6f 63 63 75 72 | 73 0d 00 26 2a dd 20 a4 |nt occur|s..&*. .|
|00000330| 73 74 72 75 63 74 5f 65 | 76 65 6e 74 28 6e 75 6d |struct_e|vent(num|
|00000340| 25 2c 65 76 61 24 2c 65 | 76 62 24 2c 65 76 63 24 |%,eva$,e|vb$,evc$|
|00000350| 29 3d 30 0d 00 27 04 0d | 00 28 04 0d 00 29 2d f4 |)=0..'..|.(...)-.|
|00000360| 20 43 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | Called |when the|
|00000370| 20 57 57 76 32 20 64 61 | 74 61 20 66 69 6c 65 20 | WWv2 da|ta file |
|00000380| 69 73 20 73 61 76 65 64 | 0d 00 2a 1b dd 20 a4 73 |is saved|..*.. .s|
|00000390| 74 72 75 63 74 5f 73 61 | 76 65 28 66 69 6c 65 25 |truct_sa|ve(file%|
|000003a0| 29 3d 30 0d 00 2b 04 0d | 00 2c 04 0d 00 2d 2e f4 |)=0..+..|.,...-..|
|000003b0| 20 43 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | Called |when the|
|000003c0| 20 4a 61 66 66 61 57 69 | 6d 70 20 66 69 6c 65 20 | JaffaWi|mp file |
|000003d0| 69 73 20 73 61 76 65 64 | 2c 0d 00 2e 32 f4 20 75 |is saved|,...2. u|
|000003e0| 73 65 20 66 6f 72 20 70 | 6c 61 63 69 6e 67 20 65 |se for p|lacing e|
|000003f0| 6e 74 72 69 65 73 20 69 | 6e 20 50 52 4f 43 6a 61 |ntries i|n PROCja|
|00000400| 66 66 61 5f 69 6e 69 74 | 2e 2e 2e 0d 00 2f 21 dd |ffa_init|...../!.|
|00000410| 20 a4 73 74 72 75 63 74 | 5f 62 61 73 69 63 5f 69 | .struct|_basic_i|
|00000420| 6e 69 74 28 66 69 6c 65 | 25 29 3d 30 0d 00 30 04 |nit(file|%)=0..0.|
|00000430| 0d 00 31 04 0d 00 32 2d | f4 20 43 61 6c 6c 65 64 |..1...2-|. Called|
|00000440| 20 77 68 65 6e 20 74 68 | 65 20 4a 61 66 66 61 57 | when th|e JaffaW|
|00000450| 69 6d 70 20 66 69 6c 65 | 20 69 73 20 73 61 76 65 |imp file| is save|
|00000460| 64 0d 00 33 21 dd 20 a4 | 73 74 72 75 63 74 5f 62 |d..3!. .|struct_b|
|00000470| 61 73 69 63 5f 73 61 76 | 65 28 66 69 6c 65 25 29 |asic_sav|e(file%)|
|00000480| 3d 30 0d 00 34 04 0d 00 | 35 04 0d 00 36 47 f4 20 |=0..4...|5...6G. |
|00000490| 52 65 74 75 72 6e 73 20 | 54 52 55 45 20 69 66 20 |Returns |TRUE if |
|000004a0| 73 75 62 73 74 72 24 20 | 69 73 20 69 6e 20 6c 69 |substr$ |is in li|
|000004b0| 6e 65 24 20 61 6e 64 20 | 73 65 74 73 20 70 6f 73 |ne$ and |sets pos|
|000004c0| 25 20 74 6f 20 74 68 65 | 20 70 6f 73 69 74 69 6f |% to the| positio|
|000004d0| 6e 0d 00 37 2a dd 20 a4 | 73 74 72 75 63 74 5f 73 |n..7*. .|struct_s|
|000004e0| 75 62 73 74 72 28 6c 69 | 6e 65 24 2c 73 75 62 73 |ubstr(li|ne$,subs|
|000004f0| 74 72 24 2c f8 20 70 6f | 73 25 29 0d 00 38 1a 20 |tr$,. po|s%)..8. |
|00000500| 20 70 6f 73 25 3d a7 6c | 69 6e 65 24 2c 73 75 62 | pos%=.l|ine$,sub|
|00000510| 73 74 72 24 29 0d 00 39 | 0d 3d 28 70 6f 73 25 3e |str$)..9|.=(pos%>|
|00000520| 30 29 0d 00 3a 04 0d 00 | 3b 04 0d 00 3c 1f f4 20 |0)..:...|;...<.. |
|00000530| 4e 65 77 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 74 |New vers|ion of t|
|00000540| 68 65 20 70 61 72 73 65 | 72 0d 00 3d 49 f4 20 20 |he parse|r..=I.  |
|00000550| 20 20 74 65 6d 70 24 20 | 3d 20 6c 69 6e 65 20 77 |  temp$ |= line w|
|00000560| 69 74 68 20 61 6e 79 74 | 68 69 6e 67 20 62 65 74 |ith anyt|hing bet|
|00000570| 77 65 65 6e 20 22 73 20 | 62 6c 61 6e 6b 65 64 20 |ween "s |blanked |
|00000580| 6f 75 74 20 2d 20 75 73 | 65 20 74 68 69 73 20 66 |out - us|e this f|
|00000590| 6f 72 0d 00 3e 21 f4 20 | 20 20 20 20 20 20 20 20 |or..>!. |        |
|000005a0| 20 20 20 70 61 74 74 65 | 72 6e 20 6d 61 74 63 68 |   patte|rn match|
|000005b0| 69 6e 67 0d 00 3f 2b f4 | 20 20 20 20 6c 69 6e 65 |ing..?+.|    line|
|000005c0| 24 20 3d 20 74 68 65 20 | 61 63 74 75 61 6c 20 6c |$ = the |actual l|
|000005d0| 69 6e 65 20 74 6f 20 70 | 72 6f 63 65 73 73 0d 00 |ine to p|rocess..|
|000005e0| 40 1c dd 20 a4 5f 5f 70 | 61 72 73 65 72 28 6c 69 |@.. .__p|arser(li|
|000005f0| 6e 65 24 2c 74 65 6d 70 | 24 29 0d 00 41 33 20 20 |ne$,temp|$)..A3  |
|00000600| ea 20 70 6f 73 25 2c 20 | 65 6e 64 25 2c 20 6e 65 |. pos%, |end%, ne|
|00000610| 78 74 24 2c 20 6e 65 77 | 24 2c 20 76 61 72 24 2c |xt$, new|$, var$,|
|00000620| 20 73 74 61 72 74 25 2c | 20 6c 65 6e 25 0d 00 42 | start%,| len%..B|
|00000630| 04 0d 00 43 2a 20 20 c8 | 95 20 a4 73 74 72 75 63 |...C*  .|. .struc|
|00000640| 74 5f 73 75 62 73 74 72 | 28 74 65 6d 70 24 2c 22 |t_substr|(temp$,"|
|00000650| 4e 45 57 28 22 2c 70 6f | 73 25 29 0d 00 44 20 20 |NEW(",po|s%)..D  |
|00000660| 20 20 20 65 6e 64 25 20 | 20 3d 20 a7 74 65 6d 70 |   end% | = .temp|
|00000670| 24 2c 22 29 22 2c 70 6f | 73 25 29 0d 00 45 3a 20 |$,")",po|s%)..E: |
|00000680| 20 20 20 74 65 6d 70 24 | 20 3d 20 c0 74 65 6d 70 |   temp$| = .temp|
|00000690| 24 2c 70 6f 73 25 2d 31 | 29 2b 22 43 4c 41 49 4d |$,pos%-1|)+"CLAIM|
|000006a0| 28 32 36 34 29 22 2b c1 | 74 65 6d 70 24 2c 65 6e |(264)"+.|temp$,en|
|000006b0| 64 25 2b 31 29 0d 00 46 | 3a 20 20 20 20 6c 69 6e |d%+1)..F|:    lin|
|000006c0| 65 24 20 3d 20 c0 6c 69 | 6e 65 24 2c 70 6f 73 25 |e$ = .li|ne$,pos%|
|000006d0| 2d 31 29 2b 22 43 4c 41 | 49 4d 28 32 36 34 29 22 |-1)+"CLA|IM(264)"|
|000006e0| 2b c1 6c 69 6e 65 24 2c | 65 6e 64 25 2b 31 29 0d |+.line$,|end%+1).|
|000006f0| 00 47 07 20 20 ce 0d 00 | 48 04 0d 00 49 2e 20 20 |.G.  ...|H...I.  |
|00000700| c8 95 20 a4 73 74 72 75 | 63 74 5f 73 75 62 73 74 |.. .stru|ct_subst|
|00000710| 72 28 74 65 6d 70 24 2c | 22 44 45 53 54 52 4f 59 |r(temp$,|"DESTROY|
|00000720| 28 22 2c 70 6f 73 25 29 | 0d 00 4a 38 20 20 20 20 |(",pos%)|..J8    |
|00000730| 74 65 6d 70 24 20 3d 20 | c0 74 65 6d 70 24 2c 70 |temp$ = |.temp$,p|
|00000740| 6f 73 25 2d 31 29 2b 22 | 52 45 4c 45 41 53 45 28 |os%-1)+"|RELEASE(|
|00000750| 22 2b c1 74 65 6d 70 24 | 2c 70 6f 73 25 2b 38 29 |"+.temp$|,pos%+8)|
|00000760| 0d 00 4b 38 20 20 20 20 | 6c 69 6e 65 24 20 3d 20 |..K8    |line$ = |
|00000770| c0 6c 69 6e 65 24 2c 70 | 6f 73 25 2d 31 29 2b 22 |.line$,p|os%-1)+"|
|00000780| 52 45 4c 45 41 53 45 28 | 22 2b c1 74 65 6d 70 24 |RELEASE(|"+.temp$|
|00000790| 2c 70 6f 73 25 2b 38 29 | 0d 00 4c 07 20 20 ce 0d |,pos%+8)|..L.  ..|
|000007a0| 00 4d 04 0d 00 4e 2e 20 | 20 c8 95 20 a4 73 74 72 |.M...N. | .. .str|
|000007b0| 75 63 74 5f 73 75 62 73 | 74 72 28 74 65 6d 70 24 |uct_subs|tr(temp$|
|000007c0| 2c 22 25 50 65 72 73 6f | 6e 2e 22 2c 70 6f 73 25 |,"%Perso|n.",pos%|
|000007d0| 29 0d 00 4f 19 20 20 20 | 20 73 74 61 72 74 25 20 |)..O.   | start% |
|000007e0| 3d 20 70 6f 73 25 20 2d | 20 31 0d 00 50 3b 20 20 |= pos% -| 1..P;  |
|000007f0| 20 20 c8 95 20 73 74 61 | 72 74 25 3e 30 20 80 20 |  .. sta|rt%>0 . |
|00000800| a7 73 74 72 75 63 74 56 | 61 6c 69 64 53 65 74 24 |.structV|alidSet$|
|00000810| 2c c1 74 65 6d 70 24 2c | 73 74 61 72 74 25 2c 31 |,.temp$,|start%,1|
|00000820| 29 29 3c 3e 30 0d 00 51 | 13 20 20 20 20 20 20 73 |))<>0..Q|.      s|
|00000830| 74 61 72 74 25 2d 3d 31 | 0d 00 52 09 20 20 20 20 |tart%-=1|..R.    |
|00000840| ce 0d 00 53 12 20 20 20 | 20 73 74 61 72 74 25 2b |...S.   | start%+|
|00000850| 3d 20 31 0d 00 54 2f 20 | 20 20 20 76 61 72 24 20 |= 1..T/ |   var$ |
|00000860| 20 20 3d 20 c1 74 65 6d | 70 24 2c 20 73 74 61 72 |  = .tem|p$, star|
|00000870| 74 25 2c 20 70 6f 73 25 | 2d 73 74 61 72 74 25 2b |t%, pos%|-start%+|
|00000880| 31 29 0d 00 55 04 0d 00 | 56 22 20 20 20 20 65 6e |1)..U...|V"    en|
|00000890| 64 25 20 20 3d 20 70 6f | 73 25 2b a9 28 22 25 50 |d%  = po|s%+.("%P|
|000008a0| 65 72 73 6f 6e 2e 22 29 | 0d 00 57 1c 20 20 20 20 |erson.")|..W.    |
|000008b0| 6e 65 78 74 24 20 3d 20 | c1 74 65 6d 70 24 2c 65 |next$ = |.temp$,e|
|000008c0| 6e 64 25 29 0d 00 58 11 | 20 20 20 20 6c 65 6e 25 |nd%)..X.|    len%|
|000008d0| 20 20 3d 20 30 0d 00 59 | 44 20 20 20 20 e7 20 a7 |  = 0..Y|D    . .|
|000008e0| 6e 65 78 74 24 2c 22 6e | 61 6d 65 24 22 29 20 3d |next$,"n|ame$") =|
|000008f0| 20 31 20 8c 20 6c 65 6e | 25 3d a9 28 22 6e 61 6d | 1 . len|%=.("nam|
|00000900| 65 24 22 29 3a 6e 65 77 | 24 3d 22 24 28 30 2b 22 |e$"):new|$="$(0+"|
|00000910| 2b 76 61 72 24 2b 22 29 | 22 0d 00 5a 46 20 20 20 |+var$+")|"..ZF   |
|00000920| 20 e7 20 a7 6e 65 78 74 | 24 2c 22 61 67 65 25 22 | . .next|$,"age%"|
|00000930| 29 20 20 3d 20 31 20 8c | 20 6c 65 6e 25 3d a9 28 |)  = 1 .| len%=.(|
|00000940| 22 61 67 65 25 22 29 20 | 3a 6e 65 77 24 3d 22 21 |"age%") |:new$="!|
|00000950| 28 32 35 36 2b 22 2b 76 | 61 72 24 2b 22 29 22 0d |(256+"+v|ar$+")".|
|00000960| 00 5b 46 20 20 20 20 e7 | 20 a7 6e 65 78 74 24 2c |.[F    .| .next$,|
|00000970| 22 6e 65 78 74 25 22 29 | 20 3d 20 31 20 8c 20 6c |"next%")| = 1 . l|
|00000980| 65 6e 25 3d a9 28 22 6e | 65 78 74 25 22 29 3a 6e |en%=.("n|ext%"):n|
|00000990| 65 77 24 3d 22 21 28 32 | 36 30 2b 22 2b 76 61 72 |ew$="!(2|60+"+var|
|000009a0| 24 2b 22 29 22 0d 00 5c | 41 20 20 20 20 e7 20 6c |$+")"..\|A    . l|
|000009b0| 65 6e 25 20 3d 20 30 20 | 8c 20 85 20 31 3c 3c 33 |en% = 0 |. . 1<<3|
|000009c0| 30 2c 20 22 50 61 72 73 | 65 20 65 72 72 6f 72 20 |0, "Pars|e error |
|000009d0| 69 6e 20 73 74 72 75 63 | 74 75 72 65 20 27 50 65 |in struc|ture 'Pe|
|000009e0| 72 73 6f 6e 27 22 0d 00 | 5d 1f 20 20 20 20 6e 65 |rson'"..|].    ne|
|000009f0| 78 74 24 20 3d 20 c1 6e | 65 78 74 24 2c 20 6c 65 |xt$ = .n|ext$, le|
|00000a00| 6e 25 2b 31 29 0d 00 5e | 37 20 20 20 20 74 65 6d |n%+1)..^|7    tem|
|00000a10| 70 24 20 3d 20 c0 74 65 | 6d 70 24 2c 73 74 61 72 |p$ = .te|mp$,star|
|00000a20| 74 25 2d 31 29 2b 6e 65 | 77 24 2b c1 74 65 6d 70 |t%-1)+ne|w$+.temp|
|00000a30| 24 2c 65 6e 64 25 2b 6c | 65 6e 25 29 0d 00 5f 37 |$,end%+l|en%).._7|
|00000a40| 20 20 20 20 6c 69 6e 65 | 24 20 3d 20 c0 6c 69 6e |    line|$ = .lin|
|00000a50| 65 24 2c 73 74 61 72 74 | 25 2d 31 29 2b 6e 65 77 |e$,start|%-1)+new|
|00000a60| 24 2b c1 6c 69 6e 65 24 | 2c 65 6e 64 25 2b 6c 65 |$+.line$|,end%+le|
|00000a70| 6e 25 29 0d 00 60 07 20 | 20 ce 0d 00 61 1b 3d a4 |n%)..`. | ...a.=.|
|00000a80| 73 74 72 63 74 50 72 73 | 28 6c 69 6e 65 24 2c 74 |strctPrs|(line$,t|
|00000a90| 65 6d 70 24 29 0d ff    |                         |emp$).. |        |
+--------+-------------------------+-------------------------+--------+--------+