/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / MacsbugBook / MacsBug Book Disk / Utilities / MakeTemplates

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 4d 61 6b 65 54 65 | 6d 70 6c 61 74 65 73 00 |..MakeTe|mplates.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0f e6 00 | 00 01 ac a3 c8 f2 86 a3 |........|........|
|00000060| c8 f2 86 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 1b 4d 00 00 |........|.....M..|
|00000080| 43 61 74 65 6e 61 74 65 | 20 7b 22 50 61 72 61 6d |Catenate| {"Param|
|00000090| 65 74 65 72 73 22 7d 20 | 3e 20 54 65 6d 70 6c 61 |eters"} |> Templa|
|000000a0| 74 65 73 57 6f 72 6b 0d | 0d 54 61 72 67 65 74 20 |tesWork.|.Target |
|000000b0| 54 65 6d 70 6c 61 74 65 | 73 57 6f 72 6b 0d 0d 53 |Template|sWork..S|
|000000c0| 65 74 20 45 78 69 74 20 | 30 0d 0d 23 20 67 65 74 |et Exit |0..# get|
|000000d0| 20 72 69 64 20 6f 66 20 | 61 6c 6c 20 7b 7d 20 61 | rid of |all {} a|
|000000e0| 6e 64 20 28 2a 20 2a 29 | 20 63 6f 6d 6d 65 6e 74 |nd (* *)| comment|
|000000f0| 73 0d 0d 46 69 6e 64 20 | a5 0d 43 6c 65 61 72 20 |s..Find |..Clear |
|00000100| 2d 63 20 b0 20 2f b6 7b | 2f 3a 2f b6 7d 2f 0d 0d |-c . /.{|/:/.}/..|
|00000110| 46 69 6e 64 20 a5 0d 43 | 6c 65 61 72 20 2d 63 20 |Find ..C|lear -c |
|00000120| b0 20 2f b6 28 b6 2a 2f | 3a 2f b6 2a b6 29 2f 0d |. /.(.*/|:/.*.)/.|
|00000130| 0d 23 20 6c 6f 6f 6b 20 | 66 6f 72 20 72 65 63 6f |.# look |for reco|
|00000140| 72 64 73 20 74 6f 20 63 | 6f 6e 76 65 72 74 0d 0d |rds to c|onvert..|
|00000150| 4c 6f 6f 70 0d 09 52 65 | 70 6c 61 63 65 20 2f 28 |Loop..Re|place /(|
|00000160| 5b 61 2d 7a 30 2d 39 5d | 2b 29 a8 31 5b 20 b6 6e |[a-z0-9]|+).1[ .n|
|00000170| b6 74 5d 2b 3d 5b 20 b6 | 6e b6 74 5d 2b 52 45 43 |.t]+=[ .|n.t]+REC|
|00000180| 4f 52 44 2f 20 22 b6 74 | b6 22 a8 31 b6 22 2c 20 |ORD/ ".t|.".1.", |
|00000190| b6 7b b6 6e 22 20 7c 7c | 20 42 72 65 61 6b 0d 09 |.{.n" ||| Break..|
|000001a0| 46 69 6e 64 20 a4 3a 5c | a5 5c 0d 09 43 61 74 65 |Find .:\|.\..Cate|
|000001b0| 6e 61 74 65 20 a4 0d 09 | 52 65 70 6c 61 63 65 20 |nate ...|Replace |
|000001c0| a4 20 22 b6 a5 b6 6e 22 | 0d 09 4d 61 72 6b 20 2d |. "...n"|..Mark -|
|000001d0| 79 20 a4 c1 32 20 68 65 | 72 65 0d 09 46 69 6e 64 |y ..2 he|re..Find|
|000001e0| 20 a4 21 32 0d 0d 09 23 | 20 66 69 6e 64 20 74 68 | .!2...#| find th|
|000001f0| 65 20 45 4e 44 3b 2c 20 | 61 6e 64 20 67 6f 20 62 |e END;, |and go b|
|00000200| 61 63 6b 77 61 72 64 73 | 20 74 6f 20 67 65 74 20 |ackwards| to get |
|00000210| 74 68 65 20 74 79 70 65 | 20 6e 61 6d 65 0d 0d 09 |the type| name...|
|00000220| 46 69 6e 64 20 c6 2f 3b | c7 30 2c 31 c8 5b 20 b6 |Find ./;|.0,1.[ .|
|00000230| 6e b6 74 5d 2a 45 4e 44 | 5b 20 b6 6e b6 74 5d 2a |n.t]*END|[ .n.t]*|
|00000240| 3b 2f 3a 5c 3a 20 2a 5c | c6 0d 0d 09 4c 6f 6f 70 |;/:\: *\|....Loop|
|00000250| 0d 09 09 23 20 70 61 72 | 73 65 20 74 68 65 20 74 |...# par|se the t|
|00000260| 79 70 65 0d 0d 09 09 53 | 65 74 20 46 69 65 6c 64 |ype....S|et Field|
|00000270| 54 79 70 65 20 22 60 43 | 61 74 65 6e 61 74 65 20 |Type "`C|atenate |
|00000280| a4 60 22 0d 0d 09 09 53 | 65 74 20 50 6f 69 6e 74 |.`"....S|et Point|
|00000290| 65 72 20 66 61 6c 73 65 | 0d 09 09 53 65 74 20 53 |er false|...Set S|
|000002a0| 6b 69 70 20 66 61 6c 73 | 65 0d 0d 09 09 49 66 20 |kip fals|e....If |
|000002b0| 22 7b 46 69 65 6c 64 54 | 79 70 65 7d 22 20 3d 7e |"{FieldT|ype}" =~|
|000002c0| 20 2f 4c 6f 6e 67 49 6e | 74 2f 0d 09 09 09 53 65 | /LongIn|t/....Se|
|000002d0| 74 20 54 65 6d 70 6c 61 | 74 65 54 79 70 65 20 4c |t Templa|teType L|
|000002e0| 6f 6e 67 0d 09 09 45 6c | 73 65 20 49 66 20 22 7b |ong...El|se If "{|
|000002f0| 46 69 65 6c 64 54 79 70 | 65 7d 22 20 3d 7e 20 2f |FieldTyp|e}" =~ /|
|00000300| 49 6e 74 65 67 65 72 2f | 0d 09 09 09 53 65 74 20 |Integer/|....Set |
|00000310| 54 65 6d 70 6c 61 74 65 | 54 79 70 65 20 57 6f 72 |Template|Type Wor|
|00000320| 64 0d 09 09 45 6c 73 65 | 20 49 66 20 22 7b 46 69 |d...Else| If "{Fi|
|00000330| 65 6c 64 54 79 70 65 7d | 22 20 3d 7e 20 2f 42 6f |eldType}|" =~ /Bo|
|00000340| 6f 6c 65 61 6e 2f 0d 09 | 09 09 53 65 74 20 54 65 |olean/..|..Set Te|
|00000350| 6d 70 6c 61 74 65 54 79 | 70 65 20 42 6f 6f 6c 65 |mplateTy|pe Boole|
|00000360| 61 6e 0d 09 09 09 53 65 | 74 20 53 6b 69 70 20 74 |an....Se|t Skip t|
|00000370| 72 75 65 0d 09 09 45 6c | 73 65 20 49 66 20 22 7b |rue...El|se If "{|
|00000380| 46 69 65 6c 64 54 79 70 | 65 7d 22 20 3d 7e 20 2f |FieldTyp|e}" =~ /|
|00000390| c5 50 74 72 2f 0d 09 09 | 09 53 65 74 20 54 65 6d |.Ptr/...|.Set Tem|
|000003a0| 70 6c 61 74 65 54 79 70 | 65 20 4c 6f 6e 67 0d 09 |plateTyp|e Long..|
|000003b0| 09 45 6c 73 65 20 49 66 | 20 22 7b 46 69 65 6c 64 |.Else If| "{Field|
|000003c0| 54 79 70 65 7d 22 20 3d | 7e 20 2f c5 48 61 6e 64 |Type}" =|~ /.Hand|
|000003d0| 6c 65 2f 0d 09 09 09 53 | 65 74 20 54 65 6d 70 6c |le/....S|et Templ|
|000003e0| 61 74 65 54 79 70 65 20 | 48 61 6e 64 6c 65 0d 09 |ateType |Handle..|
|000003f0| 09 45 6c 73 65 20 49 66 | 20 22 7b 46 69 65 6c 64 |.Else If| "{Field|
|00000400| 54 79 70 65 7d 22 20 3d | 7e 20 2f 53 74 72 32 35 |Type}" =|~ /Str25|
|00000410| 35 2f 0d 09 09 09 53 65 | 74 20 54 65 6d 70 6c 61 |5/....Se|t Templa|
|00000420| 74 65 54 79 70 65 20 50 | 53 74 72 69 6e 67 0d 09 |teType P|String..|
|00000430| 09 09 53 65 74 20 50 6f | 69 6e 74 65 72 20 74 72 |..Set Po|inter tr|
|00000440| 75 65 0d 09 09 45 6c 73 | 65 20 49 66 20 22 7b 46 |ue...Els|e If "{F|
|00000450| 69 65 6c 64 54 79 70 65 | 7d 22 20 3d 7e 20 2f 52 |ieldType|}" =~ /R|
|00000460| 65 63 74 2f 0d 09 09 09 | 53 65 74 20 54 65 6d 70 |ect/....|Set Temp|
|00000470| 6c 61 74 65 54 79 70 65 | 20 52 65 63 74 0d 09 09 |lateType| Rect...|
|00000480| 09 53 65 74 20 50 6f 69 | 6e 74 65 72 20 74 72 75 |.Set Poi|nter tru|
|00000490| 65 0d 09 09 45 6c 73 65 | 0d 09 09 09 53 65 74 20 |e...Else|....Set |
|000004a0| 54 65 6d 70 6c 61 74 65 | 54 79 70 65 20 4c 6f 6e |Template|Type Lon|
|000004b0| 67 0d 09 09 45 6e 64 0d | 0d 09 09 4d 61 72 6b 20 |g...End.|...Mark |
|000004c0| 2d 79 20 a4 20 63 75 72 | 74 79 70 65 0d 0d 09 09 |-y . cur|type....|
|000004d0| 23 20 67 65 74 20 74 68 | 65 20 72 65 73 74 20 6f |# get th|e rest o|
|000004e0| 66 20 74 68 65 20 64 65 | 63 6c 61 72 61 74 69 6f |f the de|claratio|
|000004f0| 6e 20 67 6f 69 6e 67 20 | 62 61 63 6b 77 61 72 64 |n going |backward|
|00000500| 73 20 62 79 20 67 6f 69 | 6e 67 20 75 70 20 74 6f |s by goi|ng up to|
|00000510| 20 61 20 3b 20 6f 72 20 | a5 0d 0d 09 09 46 69 6e | a ; or |.....Fin|
|00000520| 64 20 a4 3a 5c 5b 3b a5 | 5d 5c c6 0d 0d 09 09 23 |d .:\[;.|]\.....#|
|00000530| 20 70 61 72 73 65 20 74 | 68 65 20 72 65 73 74 20 | parse t|he rest |
|00000540| 6f 74 20 74 68 65 20 64 | 65 63 6c 61 72 61 74 69 |ot the d|eclarati|
|00000550| 6f 6e 0d 0d 09 09 53 65 | 74 20 74 65 6d 70 20 22 |on....Se|t temp "|
|00000560| 60 43 61 74 65 6e 61 74 | 65 20 a4 60 22 0d 0d 09 |`Catenat|e .`"...|
|00000570| 09 23 20 63 68 65 63 6b | 20 66 6f 72 20 56 41 52 |.# check| for VAR|
|00000580| 2c 20 61 6e 64 20 6d 61 | 6b 65 20 61 20 70 6f 69 |, and ma|ke a poi|
|00000590| 6e 74 65 72 20 68 61 76 | 65 20 61 6e 20 5e 0d 0d |nter hav|e an ^..|
|000005a0| 09 09 49 66 20 7b 50 6f | 69 6e 74 65 72 7d 20 3d |..If {Po|inter} =|
|000005b0| 3d 20 74 72 75 65 0d 09 | 09 09 53 65 74 20 54 65 |= true..|..Set Te|
|000005c0| 6d 70 6c 61 74 65 54 79 | 70 65 20 5e 7b 54 65 6d |mplateTy|pe ^{Tem|
|000005d0| 70 6c 61 74 65 54 79 70 | 65 7d 0d 09 09 45 6e 64 |plateTyp|e}...End|
|000005e0| 0d 0d 09 09 46 69 6e 64 | 20 63 75 72 74 79 70 65 |....Find| curtype|
|000005f0| 0d 09 09 46 69 6e 64 20 | 5c 5b 41 2d 5a 61 2d 7a |...Find |\[A-Za-z|
|00000600| 30 2d 39 5f 5d 2b 5c 3a | 5c 5b 2c b6 74 20 b6 6e |0-9_]+\:|\[,.t .n|
|00000610| 3b 5d 5c c6 0d 09 09 53 | 65 74 20 46 69 65 6c 64 |;]\....S|et Field|
|00000620| 4e 61 6d 65 20 22 60 43 | 61 74 65 6e 61 74 65 20 |Name "`C|atenate |
|00000630| a4 60 22 0d 09 09 4d 61 | 72 6b 20 2d 79 20 a4 20 |.`"...Ma|rk -y . |
|00000640| 63 75 72 76 61 72 0d 09 | 09 52 65 70 6c 61 63 65 |curvar..|.Replace|
|00000650| 20 c6 68 65 72 65 20 22 | b6 74 b6 74 b6 22 7b 46 | .here "|.t.t."{F|
|00000660| 69 65 6c 64 4e 61 6d 65 | 7d b6 22 2c b6 74 b6 74 |ieldName|}.",.t.t|
|00000670| b6 22 7b 54 65 6d 70 6c | 61 74 65 54 79 70 65 7d |."{Templ|ateType}|
|00000680| b6 22 2c b6 74 b6 74 31 | 2c b6 74 b6 74 2f 2a 20 |.",.t.t1|,.t.t/* |
|00000690| 7b 46 69 65 6c 64 54 79 | 70 65 7d 20 2a 2f b6 6e |{FieldTy|pe} */.n|
|000006a0| 22 0d 09 09 49 66 20 7b | 53 6b 69 70 7d 20 3d 3d |"...If {|Skip} ==|
|000006b0| 20 74 72 75 65 0d 09 09 | 09 52 65 70 6c 61 63 65 | true...|.Replace|
|000006c0| 20 a4 20 22 b6 74 b6 74 | b6 22 b6 22 2c b6 74 b6 | . ".t.t|.".",.t.|
|000006d0| 74 b6 22 53 6b 69 70 b6 | 22 2c b6 74 b6 74 31 2c |t."Skip.|",.t.t1,|
|000006e0| b6 6e 22 0d 09 09 45 6e | 64 0d 09 09 46 69 6e 64 |.n"...En|d...Find|
|000006f0| 20 63 75 72 76 61 72 0d | 09 09 46 69 6e 64 20 5c | curvar.|..Find \|
|00000700| 5b c2 b6 74 b6 6e 20 5d | 2b 5c c6 0d 0d 09 09 46 |[..t.n ]|+\.....F|
|00000710| 69 6e 64 20 5c 5b 3b a5 | 5d 5c 0d 09 09 53 65 74 |ind \[;.|]\...Set|
|00000720| 20 74 65 6d 70 20 22 60 | 43 61 74 65 6e 61 74 65 | temp "`|Catenate|
|00000730| 20 a4 60 22 0d 09 09 49 | 66 20 7b 74 65 6d 70 7d | .`"...I|f {temp}|
|00000740| 20 3d 7e 20 2f 3b 2f 0d | 09 09 09 46 69 6e 64 20 | =~ /;/.|...Find |
|00000750| 5c 5b 41 2d 5a 61 2d 7a | 30 2d 39 5f 5d 2b 5c 3a |\[A-Za-z|0-9_]+\:|
|00000760| 5c 5b 2c b6 74 20 b6 6e | 5d 5c c6 0d 09 09 45 6c |\[,.t .n|]\....El|
|00000770| 73 65 0d 09 09 09 42 72 | 65 61 6b 0d 09 09 45 6e |se....Br|eak...En|
|00000780| 64 0d 09 45 6e 64 0d 0d | 09 46 69 6e 64 20 68 65 |d..End..|.Find he|
|00000790| 72 65 0d 09 43 61 74 65 | 6e 61 74 65 20 a4 0d 09 |re..Cate|nate ...|
|000007a0| 45 63 68 6f 20 b6 74 b6 | 74 b6 7d 2c 0d 0d 09 43 |Echo .t.|t.},...C|
|000007b0| 6c 65 61 72 20 a4 3a 2f | 45 4e 44 5b 20 b6 74 5d |lear .:/|END[ .t]|
|000007c0| 2a 3b 2f 0d 45 6e 64 0d | 0d 23 20 6c 6f 6f 6b 20 |*;/.End.|.# look |
|000007d0| 66 6f 72 20 66 75 6e 63 | 74 69 6f 6e 73 20 74 6f |for func|tions to|
|000007e0| 20 63 6f 6e 76 65 72 74 | 0d 0d 4c 6f 6f 70 0d 09 | convert|..Loop..|
|000007f0| 4d 61 72 6b 20 2d 79 20 | 2f a5 5b 20 b6 74 5d 2a |Mark -y |/.[ .t]*|
|00000800| 5b 70 66 5d 5b 72 75 5d | 5b 6f 6e 5d 63 5b 65 74 |[pf][ru]|[on]c[et|
|00000810| 5d 5b 64 69 5d 5b 75 6f | 5d 5b 72 6e 5d 2f 20 73 |][di][uo|][rn]/ s|
|00000820| 74 61 72 74 20 7c 7c 20 | 42 72 65 61 6b 0d 0d 09 |tart || |Break...|
|00000830| 53 65 74 20 74 65 6d 70 | 20 22 60 43 61 74 65 6e |Set temp| "`Caten|
|00000840| 61 74 65 20 a4 60 22 0d | 09 49 66 20 22 7b 74 65 |ate .`".|.If "{te|
|00000850| 6d 70 7d 22 20 3d 7e 20 | 2f 66 75 6e 63 74 69 6f |mp}" =~ |/functio|
|00000860| 6e 2f 0d 09 09 52 65 70 | 6c 61 63 65 20 a4 3a 2f |n/...Rep|lace .:/|
|00000870| 5b 20 b6 6e b6 74 5d 2b | 28 5b 61 2d 7a 30 2d 39 |[ .n.t]+|([a-z0-9|
|00000880| 5d 2b 29 a8 31 b6 28 2f | 20 22 b6 74 b6 22 a8 31 |]+).1.(/| ".t.".1|
|00000890| 50 61 72 61 6d 73 b6 22 | 2c 20 b6 7b b6 6e 22 0d |Params."|, .{.n".|
|000008a0| 09 45 6c 73 65 0d 09 09 | 52 65 70 6c 61 63 65 20 |.Else...|Replace |
|000008b0| a4 3a 2f 65 5b 20 b6 6e | b6 74 5d 2b 28 5b 61 2d |.:/e[ .n|.t]+([a-|
|000008c0| 7a 30 2d 39 5d 2b 29 a8 | 31 b6 28 2f 20 22 b6 74 |z0-9]+).|1.(/ ".t|
|000008d0| b6 22 a8 31 50 61 72 61 | 6d 73 b6 22 2c 20 b6 7b |.".1Para|ms.", .{|
|000008e0| b6 6e 22 0d 09 45 6e 64 | 0d 09 4d 61 72 6b 20 2d |.n"..End|..Mark -|
|000008f0| 79 20 a4 c6 20 68 65 72 | 65 0d 09 52 65 70 6c 61 |y .. her|e..Repla|
|00000900| 63 65 20 a4 20 22 b6 a5 | b6 6e 22 0d 0d 09 23 20 |ce . "..|.n"...# |
|00000910| 66 69 6e 64 20 74 68 65 | 20 70 61 72 65 6e 74 68 |find the| parenth|
|00000920| 65 73 69 73 20 74 68 61 | 74 20 6d 61 72 6b 73 20 |esis tha|t marks |
|00000930| 74 68 65 20 6c 61 73 74 | 20 70 61 72 61 6d 65 74 |the last| paramet|
|00000940| 65 72 2c 20 61 6e 64 20 | 67 6f 20 62 61 63 6b 77 |er, and |go backw|
|00000950| 61 72 64 73 20 74 6f 20 | 67 65 74 20 74 68 65 20 |ards to |get the |
|00000960| 74 79 70 65 20 6e 61 6d | 65 0d 0d 09 46 69 6e 64 |type nam|e...Find|
|00000970| 20 c6 2f b6 29 2f 3a 5c | 5b 20 3a 5d 5c c6 20 7c | ./.)/:\|[ :]\. ||
|00000980| 7c 20 43 6f 6e 74 69 6e | 75 65 0d 0d 09 4c 6f 6f || Contin|ue...Loo|
|00000990| 70 0d 09 09 23 20 70 61 | 72 73 65 20 74 68 65 20 |p...# pa|rse the |
|000009a0| 74 79 70 65 0d 0d 09 09 | 53 65 74 20 50 61 72 61 |type....|Set Para|
|000009b0| 6d 65 74 65 72 54 79 70 | 65 20 22 60 43 61 74 65 |meterTyp|e "`Cate|
|000009c0| 6e 61 74 65 20 a4 60 22 | 0d 0d 09 09 53 65 74 20 |nate .`"|....Set |
|000009d0| 50 6f 69 6e 74 65 72 20 | 66 61 6c 73 65 0d 09 09 |Pointer |false...|
|000009e0| 53 65 74 20 53 6b 69 70 | 20 66 61 6c 73 65 0d 0d |Set Skip| false..|
|000009f0| 09 09 49 66 20 22 7b 50 | 61 72 61 6d 65 74 65 72 |..If "{P|arameter|
|00000a00| 54 79 70 65 7d 22 20 3d | 7e 20 2f 4c 6f 6e 67 49 |Type}" =|~ /LongI|
|00000a10| 6e 74 2f 0d 09 09 09 53 | 65 74 20 54 65 6d 70 6c |nt/....S|et Templ|
|00000a20| 61 74 65 54 79 70 65 20 | 4c 6f 6e 67 0d 09 09 45 |ateType |Long...E|
|00000a30| 6c 73 65 20 49 66 20 22 | 7b 50 61 72 61 6d 65 74 |lse If "|{Paramet|
|00000a40| 65 72 54 79 70 65 7d 22 | 20 3d 7e 20 2f 49 6e 74 |erType}"| =~ /Int|
|00000a50| 65 67 65 72 2f 0d 09 09 | 09 53 65 74 20 54 65 6d |eger/...|.Set Tem|
|00000a60| 70 6c 61 74 65 54 79 70 | 65 20 57 6f 72 64 0d 09 |plateTyp|e Word..|
|00000a70| 09 45 6c 73 65 20 49 66 | 20 22 7b 50 61 72 61 6d |.Else If| "{Param|
|00000a80| 65 74 65 72 54 79 70 65 | 7d 22 20 3d 7e 20 2f 42 |eterType|}" =~ /B|
|00000a90| 6f 6f 6c 65 61 6e 2f 0d | 09 09 09 53 65 74 20 54 |oolean/.|...Set T|
|00000aa0| 65 6d 70 6c 61 74 65 54 | 79 70 65 20 42 6f 6f 6c |emplateT|ype Bool|
|00000ab0| 65 61 6e 0d 09 09 09 53 | 65 74 20 53 6b 69 70 20 |ean....S|et Skip |
|00000ac0| 74 72 75 65 0d 09 09 45 | 6c 73 65 20 49 66 20 22 |true...E|lse If "|
|00000ad0| 7b 50 61 72 61 6d 65 74 | 65 72 54 79 70 65 7d 22 |{Paramet|erType}"|
|00000ae0| 20 3d 7e 20 2f c5 50 74 | 72 2f 0d 09 09 09 53 65 | =~ /.Pt|r/....Se|
|00000af0| 74 20 54 65 6d 70 6c 61 | 74 65 54 79 70 65 20 4c |t Templa|teType L|
|00000b00| 6f 6e 67 0d 09 09 45 6c | 73 65 20 49 66 20 22 7b |ong...El|se If "{|
|00000b10| 50 61 72 61 6d 65 74 65 | 72 54 79 70 65 7d 22 20 |Paramete|rType}" |
|00000b20| 3d 7e 20 2f c5 48 61 6e | 64 6c 65 2f 0d 09 09 09 |=~ /.Han|dle/....|
|00000b30| 53 65 74 20 54 65 6d 70 | 6c 61 74 65 54 79 70 65 |Set Temp|lateType|
|00000b40| 20 48 61 6e 64 6c 65 0d | 09 09 45 6c 73 65 20 49 | Handle.|..Else I|
|00000b50| 66 20 22 7b 50 61 72 61 | 6d 65 74 65 72 54 79 70 |f "{Para|meterTyp|
|00000b60| 65 7d 22 20 3d 7e 20 2f | 53 74 72 32 35 35 2f 0d |e}" =~ /|Str255/.|
|00000b70| 09 09 09 53 65 74 20 54 | 65 6d 70 6c 61 74 65 54 |...Set T|emplateT|
|00000b80| 79 70 65 20 50 53 74 72 | 69 6e 67 0d 09 09 09 53 |ype PStr|ing....S|
|00000b90| 65 74 20 50 6f 69 6e 74 | 65 72 20 74 72 75 65 0d |et Point|er true.|
|00000ba0| 09 09 45 6c 73 65 20 49 | 66 20 22 7b 50 61 72 61 |..Else I|f "{Para|
|00000bb0| 6d 65 74 65 72 54 79 70 | 65 7d 22 20 3d 7e 20 2f |meterTyp|e}" =~ /|
|00000bc0| 52 65 63 74 2f 0d 09 09 | 09 53 65 74 20 54 65 6d |Rect/...|.Set Tem|
|00000bd0| 70 6c 61 74 65 54 79 70 | 65 20 52 65 63 74 0d 09 |plateTyp|e Rect..|
|00000be0| 09 09 53 65 74 20 50 6f | 69 6e 74 65 72 20 74 72 |..Set Po|inter tr|
|00000bf0| 75 65 0d 09 09 45 6c 73 | 65 0d 09 09 09 53 65 74 |ue...Els|e....Set|
|00000c00| 20 54 65 6d 70 6c 61 74 | 65 54 79 70 65 20 4c 6f | Templat|eType Lo|
|00000c10| 6e 67 0d 09 09 45 6e 64 | 0d 0d 09 09 4d 61 72 6b |ng...End|....Mark|
|00000c20| 20 2d 79 20 a4 20 63 75 | 72 74 79 70 65 0d 0d 09 | -y . cu|rtype...|
|00000c30| 09 23 20 67 65 74 20 74 | 68 65 20 72 65 73 74 20 |.# get t|he rest |
|00000c40| 6f 66 20 74 68 65 20 64 | 65 63 6c 61 72 61 74 69 |of the d|eclarati|
|00000c50| 6f 6e 20 67 6f 69 6e 67 | 20 62 61 63 6b 77 61 72 |on going| backwar|
|00000c60| 64 73 20 62 79 20 67 6f | 69 6e 67 20 75 70 20 74 |ds by go|ing up t|
|00000c70| 6f 20 61 20 3b 20 6f 72 | 20 a5 0d 0d 09 09 46 69 |o a ; or| .....Fi|
|00000c80| 6e 64 20 a4 3a 5c 5b 3b | a5 5d 5c c6 0d 0d 09 09 |nd .:\[;|.]\.....|
|00000c90| 23 20 70 61 72 73 65 20 | 74 68 65 20 72 65 73 74 |# parse |the rest|
|00000ca0| 20 6f 74 20 74 68 65 20 | 64 65 63 6c 61 72 61 74 | ot the |declarat|
|00000cb0| 69 6f 6e 0d 0d 09 09 53 | 65 74 20 74 65 6d 70 20 |ion....S|et temp |
|00000cc0| 22 60 43 61 74 65 6e 61 | 74 65 20 a4 60 22 0d 0d |"`Catena|te .`"..|
|00000cd0| 09 09 23 20 63 68 65 63 | 6b 20 66 6f 72 20 56 41 |..# chec|k for VA|
|00000ce0| 52 2c 20 61 6e 64 20 6d | 61 6b 65 20 61 20 70 6f |R, and m|ake a po|
|00000cf0| 69 6e 74 65 72 20 68 61 | 76 65 20 61 6e 20 5e 0d |inter ha|ve an ^.|
|00000d00| 0d 09 09 49 66 20 22 7b | 74 65 6d 70 7d 22 20 3d |...If "{|temp}" =|
|00000d10| 7e 20 2f 5b b6 74 b6 6e | 20 5d 2a 76 61 72 5b 20 |~ /[.t.n| ]*var[ |
|00000d20| b6 74 b6 6e 5d c5 2f 0d | 09 09 09 53 65 74 20 50 |.t.n]./.|...Set P|
|00000d30| 6f 69 6e 74 65 72 20 74 | 72 75 65 0d 09 09 09 53 |ointer t|rue....S|
|00000d40| 65 74 20 50 61 72 61 6d | 65 74 65 72 54 79 70 65 |et Param|eterType|
|00000d50| 20 22 56 41 52 20 7b 50 | 61 72 61 6d 65 74 65 72 | "VAR {P|arameter|
|00000d60| 54 79 70 65 7d 22 0d 09 | 09 45 6e 64 0d 0d 09 09 |Type}"..|.End....|
|00000d70| 49 66 20 7b 50 6f 69 6e | 74 65 72 7d 20 3d 3d 20 |If {Poin|ter} == |
|00000d80| 74 72 75 65 0d 09 09 09 | 53 65 74 20 54 65 6d 70 |true....|Set Temp|
|00000d90| 6c 61 74 65 54 79 70 65 | 20 5e 7b 54 65 6d 70 6c |lateType| ^{Templ|
|00000da0| 61 74 65 54 79 70 65 7d | 0d 09 09 45 6e 64 0d 0d |ateType}|...End..|
|00000db0| 09 09 46 69 6e 64 20 63 | 75 72 74 79 70 65 0d 09 |..Find c|urtype..|
|00000dc0| 09 4c 6f 6f 70 0d 09 09 | 09 46 69 6e 64 20 5c 5b |.Loop...|.Find \[|
|00000dd0| 41 2d 5a 61 2d 7a 30 2d | 39 5f 5d 2b 5c 3a 5c 5b |A-Za-z0-|9_]+\:\[|
|00000de0| 2c b6 74 20 b6 6e 3b 5d | 5c c6 0d 09 09 09 53 65 |,.t .n;]|\.....Se|
|00000df0| 74 20 50 61 72 61 6d 65 | 74 65 72 4e 61 6d 65 20 |t Parame|terName |
|00000e00| 22 60 43 61 74 65 6e 61 | 74 65 20 a4 60 22 0d 09 |"`Catena|te .`"..|
|00000e10| 09 09 4d 61 72 6b 20 2d | 79 20 a4 20 63 75 72 76 |..Mark -|y . curv|
|00000e20| 61 72 0d 09 09 09 52 65 | 70 6c 61 63 65 20 c6 68 |ar....Re|place .h|
|00000e30| 65 72 65 20 22 b6 74 b6 | 74 b6 22 7b 50 61 72 61 |ere ".t.|t."{Para|
|00000e40| 6d 65 74 65 72 4e 61 6d | 65 7d b6 22 2c b6 74 b6 |meterNam|e}.",.t.|
|00000e50| 74 b6 22 7b 54 65 6d 70 | 6c 61 74 65 54 79 70 65 |t."{Temp|lateType|
|00000e60| 7d b6 22 2c b6 74 b6 74 | 31 2c b6 74 b6 74 2f 2a |}.",.t.t|1,.t.t/*|
|00000e70| 20 7b 50 61 72 61 6d 65 | 74 65 72 54 79 70 65 7d | {Parame|terType}|
|00000e80| 20 2a 2f b6 6e 22 0d 09 | 09 09 49 66 20 7b 53 6b | */.n"..|..If {Sk|
|00000e90| 69 70 7d 20 3d 3d 20 74 | 72 75 65 0d 09 09 09 09 |ip} == t|rue.....|
|00000ea0| 52 65 70 6c 61 63 65 20 | a4 20 22 b6 74 b6 74 b6 |Replace |. ".t.t.|
|00000eb0| 22 b6 22 2c b6 74 b6 74 | b6 22 53 6b 69 70 b6 22 |".",.t.t|."Skip."|
|00000ec0| 2c b6 74 b6 74 31 2c b6 | 6e 22 0d 09 09 09 45 6e |,.t.t1,.|n"....En|
|00000ed0| 64 0d 09 09 09 4d 61 72 | 6b 20 2d 79 20 a4 c6 20 |d....Mar|k -y .. |
|00000ee0| 68 65 72 65 0d 09 09 09 | 46 69 6e 64 20 63 75 72 |here....|Find cur|
|00000ef0| 76 61 72 0d 09 09 09 46 | 69 6e 64 20 5c 5b c2 b6 |var....F|ind \[..|
|00000f00| 74 b6 6e 20 5d 2b 5c 0d | 09 09 09 53 65 74 20 74 |t.n ]+\.|...Set t|
|00000f10| 65 6d 70 20 22 60 43 61 | 74 65 6e 61 74 65 20 a4 |emp "`Ca|tenate .|
|00000f20| 60 22 0d 09 09 09 49 66 | 20 7b 74 65 6d 70 7d 20 |`"....If| {temp} |
|00000f30| 3d 7e 20 2f 2c 2f 0d 09 | 09 09 45 6c 73 65 0d 09 |=~ /,/..|..Else..|
|00000f40| 09 09 09 46 69 6e 64 20 | a4 c6 0d 09 09 09 09 42 |...Find |.......B|
|00000f50| 72 65 61 6b 0d 09 09 09 | 45 6e 64 0d 09 09 45 6e |reak....|End...En|
|00000f60| 64 0d 0d 09 09 46 69 6e | 64 20 5c 5b 3b a5 5d 5c |d....Fin|d \[;.]\|
|00000f70| 0d 09 09 53 65 74 20 74 | 65 6d 70 20 22 60 43 61 |...Set t|emp "`Ca|
|00000f80| 74 65 6e 61 74 65 20 a4 | 60 22 0d 09 09 49 66 20 |tenate .|`"...If |
|00000f90| 7b 74 65 6d 70 7d 20 3d | 7e 20 2f 3b 2f 0d 09 09 |{temp} =|~ /;/...|
|00000fa0| 09 46 69 6e 64 20 5c 5b | 41 2d 5a 61 2d 7a 30 2d |.Find \[|A-Za-z0-|
|00000fb0| 39 5f 5d 2b 5c 3a 5c 5b | 2c b6 74 20 b6 6e 5d 5c |9_]+\:\[|,.t .n]\|
|00000fc0| c6 0d 09 09 45 6c 73 65 | 0d 09 09 09 42 72 65 61 |....Else|....Brea|
|00000fd0| 6b 0d 09 09 45 6e 64 0d | 09 45 6e 64 0d 0d 09 52 |k...End.|.End...R|
|00000fe0| 65 70 6c 61 63 65 20 68 | 65 72 65 c6 3a 2f b6 29 |eplace h|ere.:/.)|
|00000ff0| 2f 3a 2f 3b 2f 20 22 b6 | 74 b6 7d 2c b6 6e 22 0d |/:/;/ ".|t.},.n".|
|00001000| 09 46 69 6e 64 20 a4 3a | 73 74 61 72 74 0d 09 43 |.Find .:|start..C|
|00001010| 61 74 65 6e 61 74 65 20 | a4 0d 09 43 6c 65 61 72 |atenate |...Clear|
|00001020| 20 a4 0d 45 6e 64 0d 0d | 23 20 64 6f 6e 65 0d 0d | ..End..|# done..|
|00001030| 23 43 6c 6f 73 65 20 2d | 6e 20 54 65 6d 70 6c 61 |#Close -|n Templa|
|00001040| 74 65 73 57 6f 72 6b 0d | 23 44 65 6c 65 74 65 20 |tesWork.|#Delete |
|00001050| 54 65 6d 70 6c 61 74 65 | 73 57 6f 72 6b 0d 0d 45 |Template|sWork..E|
|00001060| 78 69 74 20 30 0d 00 00 | 00 00 00 00 00 00 00 00 |xit 0...|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001080| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001090| 00 00 00 00 00 00 00 02 | 05 00 00 00 00 58 00 00 |........|.....X..|
|000010a0| 01 6c 05 00 00 00 00 9e | 00 00 00 22 05 00 00 00 |.l......|..."....|
|000010b0| 0d 4d 61 6b 65 54 65 6d | 70 6c 61 74 65 73 02 00 |.MakeTem|plates..|
|000010c0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 c0 |..TEXTMP|S ......|
|000010d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 c0 |..TEXTMP|S ......|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 a2 f6 ed e0 00 00 | 0f e6 00 00 01 ac 00 00 |........|........|
|00001100| 00 ee 00 00 00 3f 05 00 | 00 00 00 ee 00 00 00 3f |.....?..|.......?|
|00001110| 05 00 00 00 00 ee 00 00 | 00 3f 05 00 00 00 00 ee |........|.?......|
|00001120| 00 00 00 3f 05 00 00 00 | 00 ee 00 00 00 3f 05 00 |...?....|.....?..|
|00001130| 00 00 00 ee 00 00 00 3f | 05 00 00 00 00 ee 00 00 |.......?|........|
|00001140| 00 3f 05 00 00 00 00 ee | 00 00 00 3f 05 00 00 00 |.?......|...?....|
|00001150| 00 ee 00 00 00 3f 05 00 | 00 00 00 ee 00 00 00 3f |.....?..|.......?|
|00001160| 05 00 00 00 00 ee 00 00 | 00 3f 05 00 00 00 00 ee |........|.?......|
|00001170| 00 00 00 3f 05 00 00 00 | 00 ee 00 00 00 3f 00 00 |...?....|.....?..|
|00001180| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 72 6b 20 |...H..Mo|naco.rk |
|00001190| 22 7b 41 63 74 69 76 65 | 7d 22 00 45 6c 73 65 0d |"{Active|}".Else.|
|000011a0| 09 09 43 6c 65 61 00 06 | 00 04 00 28 00 02 03 63 |..Clea..|...(...c|
|000011b0| 02 19 00 28 00 02 03 63 | 02 19 a3 c8 ac 36 00 00 |...(...c|.....6..|
|000011c0| 09 0a 00 00 09 0a 00 00 | 06 ec 01 00 00 00 00 1e |........|........|
|000011d0| 00 28 00 02 03 63 02 19 | 00 28 00 02 03 63 02 19 |.(...c..|.(...c..|
|000011e0| 00 00 06 ec 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 50 |.....n..|.n...>.P|
|00001200| 4d 18 0f 10 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |M.......|.>..MPSR|
|00001210| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001220| 03 f0 ff ff 00 00 00 4c | 00 52 35 04 00 00 00 00 |.......L|.R5.....|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+