/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / System / Docu / Converters

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 43 6f 6e 76 65 72 | 74 65 72 73 00 00 00 00 |..Conver|ters....|
|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 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 1a f2 00 | 00 01 3e ae 06 bf 7e ae |........|..>...~.|
|00000060| 06 bf 8d 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 a5 96 00 00 |........|........|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 6f |sc......|.......o|
|00000100| 1a 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 bd 19 |Desc....|........|
|00000160| 00 00 09 00 00 00 b5 19 | 00 00 00 00 00 00 00 82 |........|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 5f 19 00 00 |........|...._...|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 22 18 00 00 |sc......|...."...|
|000001f0| 0f 00 00 00 1a 18 00 00 | 00 00 00 00 00 00 df 04 |........|........|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 36 00 00 00 00 00 00 00 |........|6.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | b4 21 02 00 00 00 00 00 |lvetica.|.!......|
|00000250| 90 01 00 00 00 00 00 00 | 00 00 00 2a 75 15 54 c8 |........|...*u.T.|
|00000260| 06 00 82 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 53 |....Text|Rulers.S|
|00000270| 74 64 52 75 6c 65 72 44 | 65 73 63 00 f1 54 65 78 |tdRulerD|esc..Tex|
|00000280| 74 52 75 6c 65 72 73 2e | 52 75 6c 65 72 44 65 73 |tRulers.|RulerDes|
|00000290| 63 00 f2 03 00 00 00 00 | 00 00 00 ac 00 00 00 07 |c.......|........|
|000002a0| 00 00 00 a3 00 00 00 00 | 00 00 83 f1 54 65 78 74 |........|....Text|
|000002b0| 52 75 6c 65 72 73 2e 53 | 74 64 53 74 79 6c 65 44 |Rulers.S|tdStyleD|
|000002c0| 65 73 63 00 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |esc..Tex|tRulers.|
|000002d0| 53 74 79 6c 65 44 65 73 | 63 00 f2 07 00 00 00 00 |StyleDes|c.......|
|000002e0| 00 00 00 00 00 00 00 08 | 00 00 00 5a 00 00 00 00 |........|...Z....|
|000002f0| 00 00 00 82 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |.....Tex|tRulers.|
|00000300| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000310| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 24 00 00 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|00000330| 00 00 00 00 00 00 c8 0d | 02 00 c0 a8 00 00 88 b6 |........|........|
|00000340| 02 00 03 00 00 00 00 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000350| 00 00 00 00 00 34 00 00 | 00 00 00 00 00 22 00 00 |.....4..|....."..|
|00000360| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000370| 74 69 63 61 00 c0 19 03 | 00 00 00 00 00 bc 02 00 |tica....|........|
|00000380| 00 00 00 0a 00 00 00 00 | 02 00 00 00 02 82 f2 0d |........|........|
|00000390| 00 00 00 00 00 00 00 34 | 00 00 00 00 00 00 00 22 |.......4|......."|
|000003a0| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 48 65 6c |........|.....Hel|
|000003b0| 76 65 74 69 63 61 00 18 | f0 01 00 00 00 00 00 90 |vetica..|........|
|000003c0| 01 00 00 00 00 d4 02 00 | 00 00 09 00 00 00 03 82 |........|........|
|000003d0| f2 0d 00 00 00 00 00 00 | 00 5e 00 00 00 00 00 00 |........|.^......|
|000003e0| 00 22 00 00 00 00 00 00 | 00 00 01 00 00 00 00 48 |."......|.......H|
|000003f0| 65 6c 76 65 74 69 63 61 | 00 b4 21 02 00 01 00 00 |elvetica|..!.....|
|00000400| 00 90 01 00 00 00 00 0a | 00 00 00 00 53 00 00 00 |........|....S...|
|00000410| 03 08 00 00 00 00 46 00 | 00 00 03 08 00 00 00 00 |......F.|........|
|00000420| 50 00 00 00 03 17 00 00 | 00 00 a8 00 00 00 00 00 |P.......|........|
|00000430| 00 00 00 34 3b 04 00 b4 | 21 02 00 82 f1 53 74 64 |...4;...|!....Std|
|00000440| 4c 69 6e 6b 73 2e 4c 69 | 6e 6b 44 65 73 63 00 f2 |Links.Li|nkDesc..|
|00000450| 03 00 00 00 00 00 00 00 | 46 00 00 00 00 00 00 00 |........|F.......|
|00000460| 3d 00 00 00 00 00 00 01 | 36 00 00 00 53 74 64 43 |=.......|6...StdC|
|00000470| 6d 64 73 2e 4f 70 65 6e | 42 72 6f 77 73 65 72 28 |mds.Open|Browser(|
|00000480| 27 4f 62 78 2f 44 6f 63 | 75 2f 43 6f 6e 76 27 2c |'Obx/Doc|u/Conv',|
|00000490| 20 27 4f 62 78 43 6f 6e | 76 20 44 6f 63 75 27 29 | 'ObxCon|v Docu')|
|000004a0| 00 04 82 f2 0d 00 00 00 | 00 00 00 00 3b 00 00 00 |........|....;...|
|000004b0| 00 00 00 00 22 00 00 00 | 00 00 00 00 ff 00 00 00 |...."...|........|
|000004c0| 00 00 48 65 6c 76 65 74 | 69 63 61 00 b4 21 02 00 |..Helvet|ica..!..|
|000004d0| 02 00 00 00 90 01 00 00 | 00 00 0d 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 48 b6 01 00 b4 | 21 02 00 82 f2 13 00 00 |...H....|!.......|
|000004f0| 00 00 00 00 00 16 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 08 00 00 00 05 82 |........|........|
|00000510| f2 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 22 00 00 00 00 00 00 | 00 00 01 00 00 00 00 48 |."......|.......H|
|00000530| 65 6c 76 65 74 69 63 61 | 00 b4 21 02 00 00 00 00 |elvetica|..!.....|
|00000540| 00 bc 02 00 00 00 00 08 | 00 00 00 00 62 00 00 00 |........|....b...|
|00000550| 03 01 00 00 00 00 0e 00 | 00 00 03 01 00 00 00 00 |........|........|
|00000560| 48 00 00 00 05 08 00 00 | 00 00 63 00 00 00 03 01 |H.......|..c.....|
|00000570| 00 00 00 00 1d 00 00 00 | 03 01 00 00 00 00 07 00 |........|........|
|00000580| 00 00 03 01 00 00 00 00 | 99 00 00 00 05 09 00 00 |........|........|
|00000590| 00 00 b9 00 00 00 05 04 | 00 00 00 00 8f 00 00 00 |........|........|
|000005a0| 05 03 00 00 00 00 03 00 | 00 00 05 03 00 00 00 00 |........|........|
|000005b0| 75 00 00 00 05 09 00 00 | 00 00 4f 00 00 00 05 08 |u.......|..O.....|
|000005c0| 00 00 00 00 37 00 00 00 | 05 04 00 00 00 00 37 00 |....7...|......7.|
|000005d0| 00 00 05 04 00 00 00 00 | 38 00 00 00 05 08 00 00 |........|8.......|
|000005e0| 00 00 97 00 00 00 03 08 | 00 00 00 00 16 00 00 00 |........|........|
|000005f0| 03 09 00 00 00 00 4e 00 | 00 00 03 09 00 00 00 00 |......N.|........|
|00000600| 15 00 00 00 03 08 00 00 | 00 00 0b 00 00 00 03 03 |........|........|
|00000610| 00 00 00 00 46 00 00 00 | 03 08 00 00 00 00 02 00 |....F...|........|
|00000620| 00 00 03 03 00 00 00 00 | 46 00 00 00 03 08 00 00 |........|F.......|
|00000630| 00 00 02 00 00 00 03 04 | 00 00 00 00 5c 00 00 00 |........|....\...|
|00000640| 03 08 00 00 00 00 25 01 | 00 00 03 08 00 00 00 00 |......%.|........|
|00000650| 08 00 00 00 03 06 00 00 | 00 00 a7 00 00 00 03 08 |........|........|
|00000660| 00 00 00 00 21 00 00 00 | 03 04 00 00 00 00 85 01 |....!...|........|
|00000670| 00 00 03 07 00 00 00 00 | 0d 00 00 00 03 04 00 00 |........|........|
|00000680| 00 00 55 00 00 00 03 11 | 00 00 00 00 82 00 00 00 |..U.....|........|
|00000690| 05 06 00 00 00 00 87 00 | 00 00 03 0b 00 00 00 00 |........|........|
|000006a0| 0c 00 00 00 03 01 00 00 | 00 00 12 00 00 00 03 04 |........|........|
|000006b0| 00 00 00 00 b4 00 00 00 | 05 06 00 00 00 00 58 00 |........|......X.|
|000006c0| 00 00 03 01 00 00 00 00 | 0f 00 00 00 03 0b 00 00 |........|........|
|000006d0| 00 00 11 00 00 00 03 04 | 00 00 00 00 bc 00 00 00 |........|........|
|000006e0| ff 02 43 6f 6e 76 65 72 | 74 65 72 73 0d 0d 44 45 |..Conver|ters..DE|
|000006f0| 46 49 4e 49 54 49 4f 4e | 20 43 6f 6e 76 65 72 74 |FINITION| Convert|
|00000700| 65 72 73 3b 0d 0d 09 49 | 4d 50 4f 52 54 20 53 74 |ers;...I|MPORT St|
|00000710| 6f 72 65 73 2c 20 46 69 | 6c 65 73 2c 20 44 69 61 |ores, Fi|les, Dia|
|00000720| 6c 6f 67 3b 0d 0d 09 54 | 59 50 45 0d 09 09 49 6d |log;...T|YPE...Im|
|00000730| 70 6f 72 74 65 72 20 3d | 20 50 52 4f 43 45 44 55 |porter =| PROCEDU|
|00000740| 52 45 20 28 66 3a 20 46 | 69 6c 65 73 2e 46 69 6c |RE (f: F|iles.Fil|
|00000750| 65 3b 20 56 41 52 20 73 | 3a 20 53 74 6f 72 65 73 |e; VAR s|: Stores|
|00000760| 2e 53 74 6f 72 65 29 3b | 0d 09 09 45 78 70 6f 72 |.Store);|...Expor|
|00000770| 74 65 72 20 3d 20 50 52 | 4f 43 45 44 55 52 45 20 |ter = PR|OCEDURE |
|00000780| 28 73 3a 20 53 74 6f 72 | 65 73 2e 53 74 6f 72 65 |(s: Stor|es.Store|
|00000790| 3b 20 66 3a 20 46 69 6c | 65 73 2e 46 69 6c 65 29 |; f: Fil|es.File)|
|000007a0| 3b 0d 0d 09 09 43 6f 6e | 76 65 72 74 65 72 20 3d |;....Con|verter =|
|000007b0| 20 50 4f 49 4e 54 45 52 | 20 54 4f 20 43 6f 6e 76 | POINTER| TO Conv|
|000007c0| 65 72 74 65 72 44 65 73 | 63 3b 0d 09 09 43 6f 6e |erterDes|c;...Con|
|000007d0| 76 65 72 74 65 72 44 65 | 73 63 20 3d 20 52 45 43 |verterDe|sc = REC|
|000007e0| 4f 52 44 0d 09 09 09 6e | 65 78 74 2d 3a 20 43 6f |ORD....n|ext-: Co|
|000007f0| 6e 76 65 72 74 65 72 3b | 0d 09 09 09 69 6d 70 2d |nverter;|....imp-|
|00000800| 2c 20 65 78 70 2d 3a 20 | 44 69 61 6c 6f 67 2e 53 |, exp-: |Dialog.S|
|00000810| 74 72 69 6e 67 3b 0d 09 | 09 09 73 74 6f 72 65 54 |tring;..|..storeT|
|00000820| 79 70 65 2d 3a 20 53 74 | 6f 72 65 73 2e 54 79 70 |ype-: St|ores.Typ|
|00000830| 65 4e 61 6d 65 3b 0d 09 | 09 09 66 69 6c 65 54 79 |eName;..|..fileTy|
|00000840| 70 65 2d 3a 20 46 69 6c | 65 73 2e 54 79 70 65 3b |pe-: Fil|es.Type;|
|00000850| 0d 09 09 09 6f 70 74 73 | 2d 3a 20 53 45 54 0d 09 |....opts|-: SET..|
|00000860| 09 45 4e 44 3b 0d 0d 09 | 56 41 52 20 6c 69 73 74 |.END;...|VAR list|
|00000870| 2d 3a 20 43 6f 6e 76 65 | 72 74 65 72 3b 0d 0d 09 |-: Conve|rter;...|
|00000880| 50 52 4f 43 45 44 55 52 | 45 20 52 65 67 69 73 74 |PROCEDUR|E Regist|
|00000890| 65 72 20 28 69 6d 70 2c | 20 65 78 70 3a 20 44 69 |er (imp,| exp: Di|
|000008a0| 61 6c 6f 67 2e 53 74 72 | 69 6e 67 3b 20 73 74 6f |alog.Str|ing; sto|
|000008b0| 72 65 54 79 70 65 3a 20 | 53 74 6f 72 65 73 2e 54 |reType: |Stores.T|
|000008c0| 79 70 65 4e 61 6d 65 3b | 20 66 69 6c 65 54 79 70 |ypeName;| fileTyp|
|000008d0| 65 3a 20 46 69 6c 65 73 | 2e 54 79 70 65 3b 0d 09 |e: Files|.Type;..|
|000008e0| 09 09 09 09 09 09 09 09 | 09 6f 70 74 73 3a 20 53 |........|.opts: S|
|000008f0| 45 54 29 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |ET);..PR|OCEDURE |
|00000900| 49 6d 70 6f 72 74 20 28 | 6c 6f 63 3a 20 46 69 6c |Import (|loc: Fil|
|00000910| 65 73 2e 4c 6f 63 61 74 | 6f 72 3b 20 6e 61 6d 65 |es.Locat|or; name|
|00000920| 3a 20 46 69 6c 65 73 2e | 4e 61 6d 65 3b 20 63 6f |: Files.|Name; co|
|00000930| 6e 76 3a 20 43 6f 6e 76 | 65 72 74 65 72 3b 20 56 |nv: Conv|erter; V|
|00000940| 41 52 20 73 3a 20 53 74 | 6f 72 65 73 2e 53 74 6f |AR s: St|ores.Sto|
|00000950| 72 65 29 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |re);..PR|OCEDURE |
|00000960| 45 78 70 6f 72 74 20 28 | 6c 6f 63 3a 20 46 69 6c |Export (|loc: Fil|
|00000970| 65 73 2e 4c 6f 63 61 74 | 6f 72 3b 20 6e 61 6d 65 |es.Locat|or; name|
|00000980| 3a 20 46 69 6c 65 73 2e | 4e 61 6d 65 3b 20 63 6f |: Files.|Name; co|
|00000990| 6e 76 3a 20 43 6f 6e 76 | 65 72 74 65 72 3b 20 73 |nv: Conv|erter; s|
|000009a0| 3a 20 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 29 3b |: Stores|.Store);|
|000009b0| 0d 0d 45 4e 44 20 43 6f | 6e 76 65 72 74 65 72 73 |..END Co|nverters|
|000009c0| 2e 0d 0d 0d 4d 6f 64 75 | 6c 65 20 43 6f 6e 76 65 |....Modu|le Conve|
|000009d0| 72 74 65 72 73 20 61 6c | 6c 6f 77 73 20 74 68 65 |rters al|lows the|
|000009e0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 61 6e 64 20 | definit|ion and |
|000009f0| 72 65 67 69 73 74 72 61 | 74 69 6f 6e 20 6f 66 20 |registra|tion of |
|00000a00| 66 69 6c 65 20 63 6f 6e | 76 65 72 74 65 72 73 2e |file con|verters.|
|00000a10| 20 41 20 66 69 6c 65 20 | 63 6f 6e 76 65 72 74 65 | A file |converte|
|00000a20| 72 20 69 73 20 61 6e 20 | 69 6d 70 6f 72 74 65 72 |r is an |importer|
|00000a30| 20 77 68 69 63 68 20 74 | 72 61 6e 73 6c 61 74 65 | which t|ranslate|
|00000a40| 73 20 61 20 66 69 6c 65 | 20 69 6e 74 6f 20 61 20 |s a file| into a |
|00000a50| 73 74 6f 72 65 20 28 75 | 73 75 61 6c 6c 79 20 73 |store (u|sually s|
|00000a60| 6f 6d 65 20 76 69 65 77 | 20 74 79 70 65 29 2c 20 |ome view| type), |
|00000a70| 6f 72 20 61 6e 20 65 78 | 70 6f 72 74 65 72 20 77 |or an ex|porter w|
|00000a80| 68 69 63 68 20 74 72 61 | 6e 73 6c 61 74 65 73 20 |hich tra|nslates |
|00000a90| 61 20 73 74 6f 72 65 20 | 69 6e 74 6f 20 61 20 66 |a store |into a f|
|00000aa0| 69 6c 65 2c 20 6f 72 20 | 62 6f 74 68 20 73 69 6d |ile, or |both sim|
|00000ab0| 75 6c 74 61 6e 65 6f 75 | 73 6c 79 2e 20 46 6f 72 |ultaneou|sly. For|
|00000ac0| 20 61 20 67 69 76 65 6e | 20 70 61 69 72 20 28 66 | a given| pair (f|
|00000ad0| 69 6c 65 20 74 79 70 65 | 2c 20 73 74 6f 72 65 20 |ile type|, store |
|00000ae0| 74 79 70 65 29 20 74 68 | 65 72 65 20 6d 61 79 20 |type) th|ere may |
|00000af0| 62 65 20 73 65 76 65 72 | 61 6c 20 66 69 6c 65 20 |be sever|al file |
|00000b00| 63 6f 6e 76 65 72 74 65 | 72 73 20 72 65 67 69 73 |converte|rs regis|
|00000b10| 74 65 72 65 64 2c 20 65 | 2e 67 2e 20 61 20 74 65 |tered, e|.g. a te|
|00000b20| 78 74 20 76 69 65 77 20 | 6d 61 79 20 62 65 20 74 |xt view |may be t|
|00000b30| 72 61 6e 73 6c 61 74 65 | 64 20 69 6e 74 6f 20 61 |ranslate|d into a|
|00000b40| 6e 20 41 53 43 49 49 20 | 66 69 6c 65 20 77 69 74 |n ASCII |file wit|
|00000b50| 68 20 6f 72 20 77 69 74 | 68 6f 75 74 20 63 61 72 |h or wit|hout car|
|00000b60| 72 69 61 67 65 20 72 65 | 74 75 72 6e 73 20 61 74 |riage re|turns at|
|00000b70| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 6c 69 6e 65 | the end| of line|
|00000b80| 73 2e 0d 0d 45 78 61 6d | 70 6c 65 3a 20 02 4f 62 |s...Exam|ple: .Ob|
|00000b90| 78 43 6f 6e 76 a0 a0 64 | 6f 63 75 02 0d 0d 0d 54 |xConv..d|ocu....T|
|00000ba0| 59 50 45 20 49 6d 70 6f | 72 74 65 72 0d 54 68 69 |YPE Impo|rter.Thi|
|00000bb0| 73 20 70 72 6f 63 65 64 | 75 72 65 20 74 79 70 65 |s proced|ure type|
|00000bc0| 20 69 73 20 74 68 65 20 | 73 69 67 6e 61 74 75 72 | is the |signatur|
|00000bd0| 65 20 6f 66 20 61 6e 20 | 69 6d 70 6f 72 74 65 72 |e of an |importer|
|00000be0| 20 63 6f 6d 6d 61 6e 64 | 2e 20 41 6e 20 69 6d 70 | command|. An imp|
|00000bf0| 6f 72 74 65 72 20 74 72 | 61 6e 73 6c 61 74 65 73 |orter tr|anslates|
|00000c00| 20 61 20 67 69 76 65 6e | 20 66 69 6c 65 20 66 20 | a given| file f |
|00000c10| 69 6e 74 6f 20 61 20 73 | 74 6f 72 65 20 73 2e 0d |into a s|tore s..|
|00000c20| 0d 50 72 65 0d 66 20 23 | 20 4e 49 4c 09 32 30 0d |.Pre.f #| NIL.20.|
|00000c30| 73 20 3d 20 4e 49 4c 09 | 32 31 0d 66 20 68 61 73 |s = NIL.|21.f has|
|00000c40| 20 63 6f 72 72 65 63 74 | 20 74 79 70 65 09 32 32 | correct| type.22|
|00000c50| 0d 0d 50 6f 73 74 0d 73 | 20 23 20 4e 49 4c 0d 0d |..Post.s| # NIL..|
|00000c60| 0d 54 59 50 45 20 45 78 | 70 6f 72 74 65 72 0d 54 |.TYPE Ex|porter.T|
|00000c70| 68 69 73 20 70 72 6f 63 | 65 64 75 72 65 20 74 79 |his proc|edure ty|
|00000c80| 70 65 20 69 73 20 74 68 | 65 20 73 69 67 6e 61 74 |pe is th|e signat|
|00000c90| 75 72 65 20 6f 66 20 61 | 6e 20 65 78 70 6f 72 74 |ure of a|n export|
|00000ca0| 65 72 20 63 6f 6d 6d 61 | 6e 64 2e 20 41 6e 20 65 |er comma|nd. An e|
|00000cb0| 78 70 6f 72 74 65 72 20 | 74 72 61 6e 73 6c 61 74 |xporter |translat|
|00000cc0| 65 73 20 61 20 67 69 76 | 65 6e 20 73 74 6f 72 65 |es a giv|en store|
|00000cd0| 20 73 20 69 6e 74 6f 20 | 74 68 65 20 63 6f 6e 74 | s into |the cont|
|00000ce0| 65 6e 74 73 20 6f 66 20 | 61 20 66 69 6c 65 20 66 |ents of |a file f|
|00000cf0| 2e 20 46 69 6c 65 20 66 | 20 69 73 20 61 6c 72 65 |. File f| is alre|
|00000d00| 61 64 79 20 73 65 74 20 | 75 70 20 61 73 20 61 6e |ady set |up as an|
|00000d10| 20 65 6d 70 74 79 20 6e | 65 77 20 28 69 2e 65 2e | empty n|ew (i.e.|
|00000d20| 20 77 72 69 74 61 62 6c | 65 29 20 66 69 6c 65 2e | writabl|e) file.|
|00000d30| 0d 0d 50 72 65 0d 73 20 | 23 20 4e 49 4c 09 32 30 |..Pre.s |# NIL.20|
|00000d40| 0d 66 20 23 20 4e 49 4c | 09 32 31 0d 66 2e 4c 65 |.f # NIL|.21.f.Le|
|00000d50| 6e 67 74 68 28 29 20 3d | 20 30 09 32 32 0d 73 20 |ngth() =| 0.22.s |
|00000d60| 68 61 73 20 63 6f 72 72 | 65 63 74 20 74 79 70 65 |has corr|ect type|
|00000d70| 09 32 33 0d 0d 50 6f 73 | 74 0d 66 2e 4c 65 6e 67 |.23..Pos|t.f.Leng|
|00000d80| 74 68 28 29 20 3e 3d 20 | 30 0d 0d 0d 54 59 50 45 |th() >= |0...TYPE|
|00000d90| 20 43 6f 6e 76 65 72 74 | 65 72 0d 41 20 63 6f 6e | Convert|er.A con|
|00000da0| 76 65 72 74 65 72 20 6f | 62 6a 65 63 74 20 72 65 |verter o|bject re|
|00000db0| 70 72 65 73 65 6e 74 73 | 20 61 20 72 65 67 69 73 |presents| a regis|
|00000dc0| 74 65 72 65 64 20 66 69 | 6c 65 20 63 6f 6e 76 65 |tered fi|le conve|
|00000dd0| 72 74 65 72 2e 20 49 74 | 20 63 6f 6e 73 69 73 74 |rter. It| consist|
|00000de0| 73 20 6f 66 20 61 6e 20 | 69 6d 70 6f 72 74 20 61 |s of an |import a|
|00000df0| 6e 64 20 61 6e 20 65 78 | 70 6f 72 74 20 63 6f 6d |nd an ex|port com|
|00000e00| 6d 61 6e 64 2c 20 6f 6e | 65 20 6f 66 20 77 68 69 |mand, on|e of whi|
|00000e10| 63 68 20 6d 61 79 20 62 | 65 20 65 6d 70 74 79 2e |ch may b|e empty.|
|00000e20| 20 41 20 63 6f 6e 76 65 | 72 74 65 72 20 63 6f 6e | A conve|rter con|
|00000e30| 76 65 72 74 73 20 62 65 | 74 77 65 65 6e 20 61 20 |verts be|tween a |
|00000e40| 66 69 6c 65 20 61 6e 64 | 20 61 20 73 74 6f 72 65 |file and| a store|
|00000e50| 2e 0d 0d 6e 65 78 74 2d | 3a 20 43 6f 6e 76 65 72 |...next-|: Conver|
|00000e60| 74 65 72 0d 4e 65 78 74 | 20 63 6f 6e 76 65 72 74 |ter.Next| convert|
|00000e70| 65 72 20 69 6e 20 74 68 | 65 20 6c 69 73 74 2e 20 |er in th|e list. |
|00000e80| 43 6f 6e 76 65 72 74 65 | 72 73 20 61 72 65 20 73 |Converte|rs are s|
|00000e90| 6f 72 74 65 64 20 62 79 | 20 74 68 65 69 72 20 72 |orted by| their r|
|00000ea0| 65 67 69 73 74 72 61 74 | 69 6f 6e 20 74 69 6d 65 |egistrat|ion time|
|00000eb0| 3a 20 6c 61 74 65 72 20 | 72 65 67 69 73 74 72 61 |: later |registra|
|00000ec0| 74 69 6f 6e 20 6d 65 61 | 6e 73 20 66 75 72 74 68 |tion mea|ns furth|
|00000ed0| 65 72 20 62 61 63 6b 20 | 69 6e 20 74 68 65 20 6c |er back |in the l|
|00000ee0| 69 73 74 2e 0d 0d 69 6d | 70 2d 2c 20 65 78 70 2d |ist...im|p-, exp-|
|00000ef0| 3a 20 44 69 61 6c 6f 67 | 2e 53 74 72 69 6e 67 0d |: Dialog|.String.|
|00000f00| 53 74 72 69 6e 67 73 20 | 66 6f 72 20 74 68 65 20 |Strings |for the |
|00000f10| 69 6d 70 6f 72 74 2f 65 | 78 70 6f 72 74 20 63 6f |import/e|xport co|
|00000f20| 6d 6d 61 6e 64 73 2c 20 | 65 2e 67 2e 20 22 48 6f |mmands, |e.g. "Ho|
|00000f30| 73 74 54 65 78 74 43 6f | 6e 76 2e 49 6d 70 6f 72 |stTextCo|nv.Impor|
|00000f40| 74 54 58 54 22 20 6f 72 | 20 22 48 6f 73 74 54 65 |tTXT" or| "HostTe|
|00000f50| 78 74 43 6f 6e 76 2e 45 | 78 70 6f 72 74 54 58 54 |xtConv.E|xportTXT|
|00000f60| 22 2e 0d 0d 73 74 6f 72 | 65 54 79 70 65 2d 3a 20 |"...stor|eType-: |
|00000f70| 53 74 6f 72 65 73 2e 54 | 79 70 65 4e 61 6d 65 0d |Stores.T|ypeName.|
|00000f80| 53 74 6f 72 65 20 74 79 | 70 65 20 6f 66 20 74 68 |Store ty|pe of th|
|00000f90| 65 20 63 6f 6e 76 65 72 | 74 65 72 2c 20 65 2e 67 |e conver|ter, e.g|
|00000fa0| 2e 20 22 54 65 78 74 56 | 69 65 77 73 2e 53 74 64 |. "TextV|iews.Std|
|00000fb0| 54 65 78 74 56 69 65 77 | 22 2e 0d 0d 66 69 6c 65 |TextView|"...file|
|00000fc0| 54 79 70 65 2d 3a 20 46 | 69 6c 65 73 2e 54 79 70 |Type-: F|iles.Typ|
|00000fd0| 65 0d 46 69 6c 65 20 74 | 79 70 65 20 6f 66 20 74 |e.File t|ype of t|
|00000fe0| 68 65 20 63 6f 6e 76 65 | 72 74 65 72 2c 20 65 2e |he conve|rter, e.|
|00000ff0| 67 2e 20 22 54 58 54 22 | 2e 0d 0d 6f 70 74 73 2d |g. "TXT"|...opts-|
|00001000| 3a 20 53 45 54 0d 52 65 | 73 65 72 76 65 64 20 66 |: SET.Re|served f|
|00001010| 6f 72 20 66 75 74 75 72 | 65 20 75 73 65 2e 20 53 |or futur|e use. S|
|00001020| 68 6f 75 6c 64 20 62 65 | 20 65 6d 70 74 79 2e 0d |hould be| empty..|
|00001030| 0d 0d 56 41 52 20 6c 69 | 73 74 2d 3a 20 43 6f 6e |..VAR li|st-: Con|
|00001040| 76 65 72 74 65 72 0d 4c | 69 73 74 20 6f 66 20 72 |verter.L|ist of r|
|00001050| 65 67 69 73 74 65 72 65 | 64 20 63 6f 6e 76 65 72 |egistere|d conver|
|00001060| 74 65 72 73 2e 0d 0d 0d | 50 52 4f 43 45 44 55 52 |ters....|PROCEDUR|
|00001070| 45 20 52 65 67 69 73 74 | 65 72 20 28 69 6d 70 2c |E Regist|er (imp,|
|00001080| 20 65 78 70 3a 20 44 69 | 61 6c 6f 67 2e 53 74 72 | exp: Di|alog.Str|
|00001090| 69 6e 67 3b 20 73 74 6f | 72 65 54 79 70 65 3a 20 |ing; sto|reType: |
|000010a0| 53 74 6f 72 65 73 2e 54 | 79 70 65 4e 61 6d 65 3b |Stores.T|ypeName;|
|000010b0| 0d 09 09 09 09 09 09 09 | 09 09 09 66 69 6c 65 54 |........|...fileT|
|000010c0| 79 70 65 3a 20 46 69 6c | 65 73 2e 54 79 70 65 3b |ype: Fil|es.Type;|
|000010d0| 20 6f 70 74 73 3a 20 53 | 45 54 29 0d 52 65 67 69 | opts: S|ET).Regi|
|000010e0| 73 74 65 72 20 61 6e 20 | 69 6d 70 6f 72 74 65 72 |ster an |importer|
|000010f0| 20 77 68 69 63 68 20 74 | 72 61 6e 73 6c 61 74 65 | which t|ranslate|
|00001100| 73 20 61 20 66 69 6c 65 | 20 6f 66 20 74 79 70 65 |s a file| of type|
|00001110| 20 66 69 6c 65 54 79 70 | 65 20 69 6e 74 6f 20 61 | fileTyp|e into a|
|00001120| 20 73 74 6f 72 65 20 6f | 66 20 74 79 70 65 20 73 | store o|f type s|
|00001130| 74 6f 72 65 54 79 70 65 | 20 28 65 2e 67 2e 20 22 |toreType| (e.g. "|
|00001140| 54 65 78 74 56 69 65 77 | 73 2e 53 74 64 56 69 65 |TextView|s.StdVie|
|00001150| 77 44 65 73 63 22 29 2c | 20 61 6e 20 65 78 70 6f |wDesc"),| an expo|
|00001160| 72 74 65 72 20 77 68 69 | 63 68 20 74 72 61 6e 73 |rter whi|ch trans|
|00001170| 6c 61 74 65 73 20 61 20 | 73 74 6f 72 65 20 6f 66 |lates a |store of|
|00001180| 20 74 79 70 65 20 73 74 | 6f 72 65 54 79 70 65 20 | type st|oreType |
|00001190| 69 6e 74 6f 20 61 20 66 | 69 6c 65 20 6f 66 20 74 |into a f|ile of t|
|000011a0| 79 70 65 20 66 69 6c 65 | 54 79 70 65 2c 20 6f 72 |ype file|Type, or|
|000011b0| 20 62 6f 74 68 2e 0d 69 | 6d 70 20 69 73 20 74 68 | both..i|mp is th|
|000011c0| 65 20 6e 61 6d 65 20 6f | 66 20 61 6e 20 69 6d 70 |e name o|f an imp|
|000011d0| 6f 72 74 65 72 20 63 6f | 6d 6d 61 6e 64 2c 20 77 |orter co|mmand, w|
|000011e0| 68 69 63 68 20 6d 75 73 | 74 20 68 61 76 65 20 74 |hich mus|t have t|
|000011f0| 68 65 20 73 69 67 6e 61 | 74 75 72 65 20 6f 66 20 |he signa|ture of |
|00001200| 49 6d 70 6f 72 74 65 72 | 2e 0d 65 78 70 20 69 73 |Importer|..exp is|
|00001210| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 61 6e 20 | the nam|e of an |
|00001220| 65 78 70 6f 72 74 65 72 | 20 63 6f 6d 6d 61 6e 64 |exporter| command|
|00001230| 2c 20 77 68 69 63 68 20 | 6d 75 73 74 20 68 61 76 |, which |must hav|
|00001240| 65 20 74 68 65 20 73 69 | 67 6e 61 74 75 72 65 20 |e the si|gnature |
|00001250| 6f 66 20 45 78 70 6f 72 | 74 65 72 2e 0d 6f 70 74 |of Expor|ter..opt|
|00001260| 73 20 61 6c 6c 6f 77 73 | 20 74 6f 20 65 78 70 72 |s allows| to expr|
|00001270| 65 73 73 20 61 20 73 65 | 74 20 6f 66 20 6f 70 74 |ess a se|t of opt|
|00001280| 69 6f 6e 73 2c 20 63 75 | 72 72 65 6e 74 6c 79 20 |ions, cu|rrently |
|00001290| 74 68 65 72 65 20 61 72 | 65 20 6e 6f 6e 65 2e 20 |there ar|e none. |
|000012a0| 4e 6f 72 6d 61 6c 6c 79 | 2c 20 74 68 69 73 20 73 |Normally|, this s|
|000012b0| 65 74 20 69 73 20 65 6d | 70 74 79 2e 0d 52 65 67 |et is em|pty..Reg|
|000012c0| 69 73 74 65 72 20 64 6f | 65 73 20 6e 6f 74 20 79 |ister do|es not y|
|000012d0| 65 74 20 6c 6f 61 64 20 | 74 68 65 20 6d 6f 64 75 |et load |the modu|
|000012e0| 6c 65 73 20 77 68 69 63 | 68 20 63 6f 6e 74 61 69 |les whic|h contai|
|000012f0| 6e 20 74 68 65 20 69 6d | 70 6f 72 74 2f 65 78 70 |n the im|port/exp|
|00001300| 6f 72 74 20 63 6f 6d 6d | 61 6e 64 73 2e 20 54 68 |ort comm|ands. Th|
|00001310| 65 79 20 61 72 65 20 6c | 6f 61 64 65 64 20 6f 6e |ey are l|oaded on|
|00001320| 6c 79 20 77 68 65 6e 20 | 6e 65 65 64 65 64 2e 0d |ly when |needed..|
|00001330| 53 6f 6d 65 20 63 6f 6e | 76 65 72 74 65 72 73 20 |Some con|verters |
|00001340| 6d 61 79 20 61 6c 72 65 | 61 64 79 20 62 65 20 69 |may alre|ady be i|
|00001350| 6e 73 74 61 6c 6c 65 64 | 20 62 79 20 74 68 65 20 |nstalled| by the |
|00001360| 4f 62 65 72 6f 6e 2f 46 | 20 63 6f 72 65 2c 20 65 |Oberon/F| core, e|
|00001370| 2e 67 2e 20 63 6f 6e 76 | 65 72 74 65 72 73 20 66 |.g. conv|erters f|
|00001380| 6f 72 20 41 53 43 49 49 | 20 66 69 6c 65 73 2c 20 |or ASCII| files, |
|00001390| 55 6e 69 63 6f 64 65 20 | 66 69 6c 65 73 2c 20 6f |Unicode |files, o|
|000013a0| 72 20 70 69 63 74 75 72 | 65 20 66 69 6c 65 73 2e |r pictur|e files.|
|000013b0| 20 41 64 64 69 74 69 6f | 6e 61 6c 20 63 6f 6e 76 | Additio|nal conv|
|000013c0| 65 72 74 65 72 73 20 63 | 6f 75 6c 64 20 62 65 20 |erters c|ould be |
|000013d0| 69 6e 73 74 61 6c 6c 65 | 64 20 65 2e 67 2e 20 62 |installe|d e.g. b|
|000013e0| 79 20 63 61 6c 6c 69 6e | 67 20 52 65 67 69 73 74 |y callin|g Regist|
|000013f0| 65 72 20 69 6e 20 74 68 | 65 20 43 6f 6e 66 69 67 |er in th|e Config|
|00001400| 20 6d 6f 64 75 6c 65 2e | 20 54 68 69 73 20 6d 6f | module.| This mo|
|00001410| 64 75 6c 65 20 69 73 20 | 65 78 65 63 75 74 65 64 |dule is |executed|
|00001420| 20 75 70 6f 6e 20 73 74 | 61 72 74 75 70 20 6f 66 | upon st|artup of|
|00001430| 20 4f 62 65 72 6f 6e 2f | 46 20 74 6f 20 61 6c 6c | Oberon/|F to all|
|00001440| 6f 77 20 74 68 65 20 65 | 73 74 61 62 6c 69 73 68 |ow the e|stablish|
|00001450| 6d 65 6e 74 20 6f 66 20 | 63 75 73 74 6f 6d 20 63 |ment of |custom c|
|00001460| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 73 2c 20 73 |onfigura|tions, s|
|00001470| 75 63 68 20 61 73 20 74 | 68 65 20 73 65 74 20 6f |uch as t|he set o|
|00001480| 66 20 61 76 61 69 6c 61 | 62 6c 65 20 63 6f 6e 76 |f availa|ble conv|
|00001490| 65 72 74 65 72 73 2e 0d | 41 73 20 61 20 72 65 73 |erters..|As a res|
|000014a0| 75 6c 74 20 6f 66 20 52 | 65 67 69 73 74 65 72 2c |ult of R|egister,|
|000014b0| 20 61 20 6e 65 77 20 63 | 6f 6e 76 65 72 74 65 72 | a new c|onverter|
|000014c0| 20 69 73 20 61 70 70 65 | 6e 64 65 64 20 74 6f 20 | is appe|nded to |
|000014d0| 6c 69 73 74 2c 20 77 69 | 74 68 20 66 69 65 6c 64 |list, wi|th field|
|000014e0| 73 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |s corres|ponding |
|000014f0| 74 6f 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |to the p|arameter|
|00001500| 73 20 70 61 73 73 65 64 | 2e 0d 46 6f 72 20 65 61 |s passed|..For ea|
|00001510| 63 68 20 72 65 67 69 73 | 74 65 72 65 64 20 69 6d |ch regis|tered im|
|00001520| 70 6f 72 74 65 72 20 6f | 72 20 65 78 70 6f 72 74 |porter o|r export|
|00001530| 65 72 2c 20 74 68 65 72 | 65 20 6f 70 74 69 6f 6e |er, ther|e option|
|00001540| 61 6c 6c 79 20 6d 61 79 | 20 62 65 20 61 20 63 6f |ally may| be a co|
|00001550| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 73 74 72 69 |rrespond|ing stri|
|00001560| 6e 67 20 6d 61 70 70 69 | 6e 67 3b 20 74 6f 20 6d |ng mappi|ng; to m|
|00001570| 61 6b 65 20 74 68 65 20 | 64 69 73 70 6c 61 79 20 |ake the |display |
|00001580| 6f 66 20 61 20 6c 69 73 | 74 20 6f 66 20 69 6d 70 |of a lis|t of imp|
|00001590| 6f 72 74 65 72 73 2f 65 | 78 70 6f 72 74 65 72 73 |orters/e|xporters|
|000015a0| 20 6d 6f 72 65 20 75 73 | 65 72 2d 66 72 69 65 6e | more us|er-frien|
|000015b0| 64 6c 79 2e 20 46 6f 72 | 20 65 78 61 6d 70 6c 65 |dly. For| example|
|000015c0| 2c 20 74 68 65 20 69 6d | 70 6f 72 74 65 72 20 22 |, the im|porter "|
|000015d0| 48 6f 73 74 54 65 78 74 | 43 6f 6e 76 2e 49 6d 70 |HostText|Conv.Imp|
|000015e0| 6f 72 74 54 65 78 74 22 | 20 63 6f 75 6c 64 20 62 |ortText"| could b|
|000015f0| 65 20 6d 61 70 70 65 64 | 20 74 6f 20 74 68 65 20 |e mapped| to the |
|00001600| 6d 6f 72 65 20 74 65 6c | 6c 69 6e 67 20 6e 61 6d |more tel|ling nam|
|00001610| 65 20 22 41 73 63 69 69 | 22 20 28 69 6e 20 74 68 |e "Ascii|" (in th|
|00001620| 65 20 73 74 61 6e 64 61 | 72 64 20 66 69 6c 65 20 |e standa|rd file |
|00001630| 6f 70 65 6e 20 64 69 61 | 6c 6f 67 29 2e 20 54 68 |open dia|log). Th|
|00001640| 65 20 6d 61 70 70 69 6e | 67 20 69 73 20 64 6f 6e |e mappin|g is don|
|00001650| 65 20 69 6e 20 74 68 65 | 20 53 74 72 69 6e 67 73 |e in the| Strings|
|00001660| 20 66 69 6c 65 20 69 6e | 20 74 68 65 20 52 73 72 | file in| the Rsr|
|00001670| 63 20 64 69 72 65 63 74 | 6f 72 79 20 6f 66 20 74 |c direct|ory of t|
|00001680| 68 65 20 69 6d 70 6f 72 | 74 65 72 27 73 20 73 75 |he impor|ter's su|
|00001690| 62 73 79 73 74 65 6d 2c | 20 65 2e 67 2e 20 74 68 |bsystem,| e.g. th|
|000016a0| 65 72 65 20 6d 61 79 20 | 62 65 20 74 68 65 20 66 |ere may |be the f|
|000016b0| 6f 6c 6c 6f 77 69 6e 67 | 20 6c 69 6e 65 73 20 69 |ollowing| lines i|
|000016c0| 6e 20 74 68 65 20 48 6f | 73 74 2f 52 73 72 63 2f |n the Ho|st/Rsrc/|
|000016d0| 53 74 72 69 6e 67 73 20 | 74 65 78 74 3a 0d 0d 09 |Strings |text:...|
|000016e0| 48 6f 73 74 54 65 78 74 | 43 6f 6e 76 2e 49 6d 70 |HostText|Conv.Imp|
|000016f0| 6f 72 74 54 65 78 74 09 | 41 73 63 69 69 0d 09 48 |ortText.|Ascii..H|
|00001700| 6f 73 74 54 65 78 74 43 | 6f 6e 76 2e 45 78 70 6f |ostTextC|onv.Expo|
|00001710| 72 74 54 65 78 74 09 41 | 73 63 69 69 0d 0d 50 72 |rtText.A|scii..Pr|
|00001720| 65 0d 69 6d 70 20 23 20 | 22 22 20 20 4f 52 20 20 |e.imp # |""  OR  |
|00001730| 65 78 70 20 23 20 22 22 | 09 32 30 0d 66 69 6c 65 |exp # ""|.20.file|
|00001740| 54 79 70 65 20 23 20 4e | 49 4c 09 32 31 0d 0d 50 |Type # N|IL.21..P|
|00001750| 52 4f 43 45 44 55 52 45 | 20 49 6d 70 6f 72 74 20 |ROCEDURE| Import |
|00001760| 28 6c 6f 63 3a 20 46 69 | 6c 65 73 2e 4c 6f 63 61 |(loc: Fi|les.Loca|
|00001770| 74 6f 72 3b 20 6e 61 6d | 65 3a 20 46 69 6c 65 73 |tor; nam|e: Files|
|00001780| 2e 4e 61 6d 65 3b 20 63 | 6f 6e 76 3a 20 43 6f 6e |.Name; c|onv: Con|
|00001790| 76 65 72 74 65 72 3b 0d | 09 09 09 09 09 09 09 09 |verter;.|........|
|000017a0| 09 09 56 41 52 20 73 3a | 20 53 74 6f 72 65 73 2e |..VAR s:| Stores.|
|000017b0| 53 74 6f 72 65 29 0d 43 | 6f 6e 76 65 72 74 73 20 |Store).C|onverts |
|000017c0| 74 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |the cont|ents of |
|000017d0| 74 68 65 20 66 69 6c 65 | 20 73 70 65 63 69 66 69 |the file| specifi|
|000017e0| 65 64 20 62 79 20 28 6c | 6f 63 2c 20 6e 61 6d 65 |ed by (l|oc, name|
|000017f0| 29 20 69 6e 74 6f 20 73 | 74 6f 72 65 20 73 2c 20 |) into s|tore s, |
|00001800| 75 73 69 6e 67 20 63 6f | 6e 76 65 72 74 65 72 20 |using co|nverter |
|00001810| 63 6f 6e 76 2e 20 49 6e | 74 65 72 6e 61 6c 6c 79 |conv. In|ternally|
|00001820| 20 69 74 20 63 61 6c 6c | 73 20 74 68 65 20 63 6f | it call|s the co|
|00001830| 6e 76 65 72 74 65 72 27 | 73 20 69 6d 70 6f 72 74 |nverter'|s import|
|00001840| 20 63 6f 6d 6d 61 6e 64 | 2e 0d 50 72 65 0d 6c 6f | command|..Pre.lo|
|00001850| 63 20 23 20 4e 49 4c 09 | 32 30 0d 6e 61 6d 65 20 |c # NIL.|20.name |
|00001860| 23 20 22 22 09 32 31 0d | 63 6f 6e 76 20 3d 20 4e |# "".21.|conv = N|
|00001870| 49 4c 20 20 4f 52 20 20 | 63 6f 6e 76 2e 69 6d 70 |IL  OR  |conv.imp|
|00001880| 20 23 20 22 22 09 32 32 | 0d 46 69 6c 65 20 74 79 | # "".22|.File ty|
|00001890| 70 65 20 6f 66 20 28 6c | 6f 63 2c 20 6e 61 6d 65 |pe of (l|oc, name|
|000018a0| 29 20 3d 20 63 6f 6e 76 | 65 72 74 65 72 27 73 20 |) = conv|erter's |
|000018b0| 66 69 6c 65 20 74 79 70 | 65 09 32 33 0d 0d 50 52 |file typ|e.23..PR|
|000018c0| 4f 43 45 44 55 52 45 20 | 45 78 70 6f 72 74 20 28 |OCEDURE |Export (|
|000018d0| 6c 6f 63 3a 20 46 69 6c | 65 73 2e 4c 6f 63 61 74 |loc: Fil|es.Locat|
|000018e0| 6f 72 3b 20 6e 61 6d 65 | 3a 20 46 69 6c 65 73 2e |or; name|: Files.|
|000018f0| 4e 61 6d 65 3b 20 63 6f | 6e 76 3a 20 43 6f 6e 76 |Name; co|nv: Conv|
|00001900| 65 72 74 65 72 3b 20 73 | 3a 20 53 74 6f 72 65 73 |erter; s|: Stores|
|00001910| 2e 53 74 6f 72 65 29 0d | 43 6f 6e 76 65 72 74 20 |.Store).|Convert |
|00001920| 73 74 6f 72 65 20 73 20 | 74 6f 20 61 20 6e 65 77 |store s |to a new|
|00001930| 20 66 69 6c 65 20 28 6c | 6f 63 2c 20 6e 61 6d 65 | file (l|oc, name|
|00001940| 29 20 75 73 69 6e 67 20 | 63 6f 6e 76 65 72 74 65 |) using |converte|
|00001950| 72 20 63 6f 6e 76 2e 20 | 49 6e 74 65 72 6e 61 6c |r conv. |Internal|
|00001960| 6c 79 20 69 74 20 63 61 | 6c 6c 73 20 74 68 65 20 |ly it ca|lls the |
|00001970| 63 6f 6e 76 65 72 74 65 | 72 27 73 20 65 78 70 6f |converte|r's expo|
|00001980| 72 74 20 63 6f 6d 6d 61 | 6e 64 2e 0d 50 72 65 0d |rt comma|nd..Pre.|
|00001990| 73 20 23 20 4e 49 4c 09 | 32 30 0d 7e 20 73 20 49 |s # NIL.|20.~ s I|
|000019a0| 53 20 53 74 6f 72 65 73 | 2e 41 6c 69 65 6e 09 32 |S Stores|.Alien.2|
|000019b0| 31 0d 6c 6f 63 20 23 20 | 4e 49 4c 09 32 32 0d 6e |1.loc # |NIL.22.n|
|000019c0| 61 6d 65 20 23 20 22 22 | 09 32 33 0d 63 6f 6e 76 |ame # ""|.23.conv|
|000019d0| 20 3d 20 4e 49 4c 20 20 | 4f 52 20 20 63 6f 6e 76 | = NIL  |OR  conv|
|000019e0| 2e 65 78 70 20 23 20 22 | 22 09 32 34 0d 54 79 70 |.exp # "|".24.Typ|
|000019f0| 65 4f 66 28 73 29 20 3d | 20 63 6f 6e 76 65 72 74 |eOf(s) =| convert|
|00001a00| 65 72 27 73 20 73 74 6f | 72 65 20 74 79 70 65 09 |er's sto|re type.|
|00001a10| 32 35 82 f1 54 65 78 74 | 43 6f 6e 74 72 6f 6c 6c |25..Text|Controll|
|00001a20| 65 72 73 2e 53 74 64 43 | 74 72 6c 44 65 73 63 00 |ers.StdC|trlDesc.|
|00001a30| f1 54 65 78 74 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |.TextCon|trollers|
|00001a40| 2e 43 6f 6e 74 72 6f 6c | 6c 65 72 44 65 73 63 00 |.Control|lerDesc.|
|00001a50| f1 43 6f 6e 74 61 69 6e | 65 72 73 2e 43 6f 6e 74 |.Contain|ers.Cont|
|00001a60| 72 6f 6c 6c 65 72 44 65 | 73 63 00 f1 43 6f 6e 74 |rollerDe|sc..Cont|
|00001a70| 72 6f 6c 6c 65 72 73 2e | 43 6f 6e 74 72 6f 6c 6c |rollers.|Controll|
|00001a80| 65 72 44 65 73 63 00 f2 | 04 00 00 00 00 00 00 00 |erDesc..|........|
|00001a90| 14 00 00 00 00 00 00 00 | 09 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 01 | 82 f2 0e 00 00 00 00 00 |........|........|
|00001ab0| 00 00 19 00 00 00 07 00 | 00 00 11 00 00 00 00 00 |........|........|
|00001ac0| 00 81 02 00 00 00 00 00 | 00 00 00 00 00 00 00 82 |........|........|
|00001ad0| f2 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 22 00 00 00 00 00 00 | 00 00 01 00 00 00 00 48 |."......|.......H|
|00001af0| 65 6c 76 65 74 69 63 61 | 00 7c be 01 00 00 00 00 |elvetica|.|......|
|00001b00| 00 90 01 00 00 00 00 00 | 00 00 00 00 00 00 00 e0 |........|........|
|00001b10| 8c 01 00 e0 8c 01 00 34 | c8 5d 00 e0 b9 3b 3e 82 |.......4|.]...;>.|
|00001b20| f1 44 6f 63 75 6d 65 6e | 74 73 2e 43 6f 6e 74 72 |.Documen|ts.Contr|
|00001b30| 6f 6c 6c 65 72 44 65 73 | 63 00 f2 16 00 00 00 00 |ollerDes|c.......|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 08 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 09 00 00 00 | 00 94 4d 73 00 18 2b a3 |........|..Ms..+.|
|00001b60| 00 80 fc 0a 00 00 2f 0d | 00 d4 37 67 00 98 2e 98 |....../.|..7g....|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b80| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001b90| 01 03 00 05 00 06 00 05 | 00 07 00 06 00 07 01 06 |........|........|
|00001ba0| 00 07 00 06 00 06 00 05 | 00 06 00 06 00 08 00 06 |........|........|
|00001bb0| 0a 43 6f 6e 76 65 72 74 | 65 72 73 65 02 00 00 00 |.Convert|erse....|
|00001bc0| 50 61 72 74 53 49 54 21 | 00 00 00 00 00 00 00 00 |PartSIT!|........|
|00001bd0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bf0| 00 00 ae 04 81 c6 00 00 | 00 00 00 00 01 3e 00 06 |........|.....>..|
|00001c00| 00 06 00 06 00 06 00 06 | 00 07 00 06 00 05 00 05 |........|........|
|00001c10| 00 05 00 05 00 05 00 05 | 00 05 00 05 00 05 00 05 |........|........|
|00001c20| 00 05 00 02 00 02 00 03 | 00 03 00 05 00 05 00 05 |........|........|
|00001c30| 00 05 00 05 00 05 00 05 | 00 05 00 05 00 05 01 05 |........|........|
|00001c40| 00 03 00 05 00 05 00 05 | 00 03 00 05 00 05 00 07 |........|........|
|00001c50| 00 07 01 08 00 03 00 03 | 00 05 01 09 00 07 00 06 |........|........|
|00001c60| 00 05 01 05 01 05 00 05 | 00 05 00 04 00 06 00 08 |........|........|
|00001c70| 00 05 00 03 00 03 00 03 | 01 07 00 08 00 05 00 05 |........|........|
|00001c80| 00 00 00 08 00 46 00 05 | 01 db 02 00 00 00 01 00 |.....F..|........|
|00001c90| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 70 c6 b8 |........|...2.p..|
|00001ca0| 0e 54 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.T.....2|..WNSP..|
|00001cb0| 00 0a 00 01 ff ff 00 00 | 00 00 00 70 c6 88 00 00 |........|...p....|
|00001cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+