Главная Обзор Помощь
Вход
eric
/
Topspeed_JPI
1
0
Ответвить 0
Файлы Задачи 0 Запросы на слияние 0 Вики
Ветка: master
Ветки Метки
Topspeed_JPI
/
TS-V3
/
REP16
/
IMPORTER.LST

IMPORTER.LST 40 KB
Постоянная ссылка История Исходник

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE Importer;
    4. 

  4.     2  (*
    5. 

  5.     3   *  REPERTOIRE
    6. 

  6.     4   *  Release 1.6
    7. 

  7.     5   *  By Charles Bradford and Cole Brecheen
    8. 

  8.     6   *  (c) Copyright 1985-1990 PMI
    9. 

  9.     7   *  Green Bay, WI
    10. 

  10.     8   *  All rights reserved
    11. 

  11.     9   *  (414) 468-6040
    12. 

  12.    10   *
    13. 

  13.    11   *)
    14. 

  14.    12  
    15. 

  15.    13  IMPORT EnvironUtils;
    16. 

  16.    14  IMPORT ErrorManager;
    17. 

  17.    15  IMPORT GenLists;
    18. 

  18.    16  IMPORT ImpLists;
    19. 

  19.    17  IMPORT KbdInput;
    20. 

  20.    18  IMPORT ListUtils;
    21. 

  21.    19  IMPORT LowLevel;
    22. 

  22.    20  IMPORT M2Strings;
    23. 

  23.    21  IMPORT Numbers;
    24. 

  24.    22  IMPORT Parser;
    25. 

  25.    23  IMPORT PosUtils;
    26. 

  26.    24  IMPORT StrEdit;
    27. 

  27.    25  IMPORT StringIO;
    28. 

  28.    26  IMPORT SYSTEM;
    29. 

  29.    27  IMPORT InitCompilerMods;
    30. 

  30.    28  
    31. 

  31.    29  (*# call(reg_param => (),
    32. 

  32.    30           near_call => off,
    33. 

  33.    31           ds_eq_ss => off) *)
    34. 

  34.    32  (*# data(near_ptr => off) *)
    35. 

  35.    33  
    36. 

  36.    34  VAR
    37. 

  37.    35    x, fname1, fname2, CurrentWord, LastWord: ARRAY [0..79] OF CHAR;
    38. 

  38. *****                                                        ^ not supported yet
    39. 

  39. *****                                                               ^ not supported yet
    40. 

  40.    36    Terminator: CHAR;
    41. 

  41.    37    StartOfImpList, EndOfImpList, LineCnt, ColCnt: CARDINAL;
    42. 

  42.    38    TextList, TmpList, Imports: GenLists.GenList;
    43. 

  43. *****                                         ^ not supported yet
    44. 

  44.    39    cnt, FoundSpot, dumc: CARDINAL;
    45. 

  45.    40    Sorting, Unqualifying, Qualifying : BOOLEAN;
    46. 

  46.    41    Dumstr: ARRAY [0..0] OF CHAR;
    47. 

  47. *****                      ^ not supported yet
    48. 

  48. *****                            ^ not supported yet
    49. 

  49.    42  
    50. 

  50.    43  
    51. 

  51.    44  
    52. 

  52.    45  PROCEDURE yes( TheQuestion: ARRAY OF CHAR ): BOOLEAN;
    53. 

  53. *****                                       ^ not supported yet
    54. 

  54.    46    VAR
    55. 

  55.    47      tmpkey: CARDINAL;
    56. 

  56.    48    BEGIN
    57. 

  57.    49      StringIO.WriteEol( StringIO.outp, '' );
    58. 

  58. *****      ^ not supported yet
    59. 

  59. *****               ^ not supported yet
    60. 

  60. *****                         ^ not supported yet
    61. 

  61. *****                                  ^ not supported yet
    62. 

  62. *****                                           ^ not supported yet
    63. 

  63.    50      StringIO.WriteStr( StringIO.outp, TheQuestion );
    64. 

  64. *****      ^ not supported yet
    65. 

  65. *****               ^ not supported yet
    66. 

  66. *****                         ^ not supported yet
    67. 

  67. *****                                  ^ not supported yet
    68. 

  68. *****                                        ^ not supported yet
    69. 

  69.    51      tmpkey := KbdInput.CAPkey( KbdInput.KeyHit( KbdInput.YorN ) );
    70. 

  70. *****                ^ not supported yet
    71. 

  71. *****                         ^ not supported yet
    72. 

  72. *****                                 ^ not supported yet
    73. 

  73. *****                                          ^ not supported yet
    74. 

  74. *****                                                  ^ not supported yet
    75. 

  75. *****                                                           ^ not supported yet
    76. 

  76.    52      IF ORD('Y') = tmpkey THEN
    77. 

  77. *****         ^ undeclared identifier
    78. 

  78. *****                ^ not supported yet
    79. 

  79.    53        StringIO.WriteStr( StringIO.outp, 'yes' );
    80. 

  80. *****        ^ not supported yet
    81. 

  81. *****                 ^ not supported yet
    82. 

  82. *****                           ^ not supported yet
    83. 

  83. *****                                    ^ not supported yet
    84. 

  84. *****                                          ^ not supported yet
    85. 

  85.    54        RETURN TRUE;
    86. 

  86.    55      ELSIF ORD('Q') = tmpkey THEN
    87. 

  87. *****            ^ undeclared identifier
    88. 

  88. *****                   ^ not supported yet
    89. 

  89.    56        ErrorManager.StraightToDOS('');
    90. 

  90. *****        ^ not supported yet
    91. 

  91. *****                     ^ not supported yet
    92. 

  92. *****                                     ^ not supported yet
    93. 

  93.    57      END;
    94. 

  94.    58      StringIO.WriteStr( StringIO.outp, 'no' );
    95. 

  95. *****      ^ not supported yet
    96. 

  96. *****               ^ not supported yet
    97. 

  97. *****                         ^ not supported yet
    98. 

  98. *****                                  ^ not supported yet
    99. 

  99. *****                                        ^ not supported yet
    100. 

  100.    59      RETURN FALSE;
    101. 

  101.    60    END yes;
    102. 

  102. *****        ^ not supported yet
    103. 

  103.    61  
    104. 

  104.    62    PROCEDURE NextWord( VAR TheStr: ARRAY OF CHAR );
    105. 

  105. *****                                             ^ not supported yet
    106. 

  106.    63      BEGIN
    107. 

  107.    64        Parser.GetNextWord( TextList, LineCnt, ColCnt, TheStr, Terminator );
    108. 

  108. *****        ^ not supported yet
    109. 

  109. *****               ^ not supported yet
    110. 

  110. *****                            ^ not supported yet
    111. 

  111. *****                                                       ^ not supported yet
    112. 

  112. *****                                                                          ^ not supported yet
    113. 

  113.    65        M2Strings.Assign( CurrentWord, LastWord );
    114. 

  114. *****        ^ not supported yet
    115. 

  115. *****                  ^ not supported yet
    116. 

  116. *****                          ^ not supported yet
    117. 

  117. *****                                       ^ not supported yet
    118. 

  118.    66        M2Strings.Assign( TheStr, CurrentWord );
    119. 

  119. *****        ^ not supported yet
    120. 

  120. *****                  ^ not supported yet
    121. 

  121. *****                          ^ not supported yet
    122. 

  122. *****                                  ^ not supported yet
    123. 

  123.    67      END NextWord;
    124. 

  124. *****          ^ not supported yet
    125. 

  125.    68  
    126. 

  126.    69  
    127. 

  127.    70    PROCEDURE StrInList( TheStr: ARRAY OF CHAR; TheList: GenLists.GenList ):
    128. 

  128. *****                                          ^ not supported yet
    129. 

  129. *****                                                                  ^ not supported yet
    130. 

  130.    71        BOOLEAN;
    131. 

  131.    72      VAR
    132. 

  132.    73        ListEnd, cnt: CARDINAL;
    133. 

  133.    74        tmpstr: ARRAY [0..79] OF CHAR;
    134. 

  134. *****                          ^ not supported yet
    135. 

  135. *****                                 ^ not supported yet
    136. 

  136.    75      BEGIN
    137. 

  137.    76        ListEnd := GenLists.ListLength(TheList);
    138. 

  138. *****                   ^ not supported yet
    139. 

  139. *****                            ^ not supported yet
    140. 

  140. *****                                       ^ not supported yet
    141. 

  141.    77        FOR cnt := 1 TO ListEnd DO
    142. 

  142.    78          ListUtils.GetStr( TheList, cnt, tmpstr );
    143. 

  143. *****          ^ not supported yet
    144. 

  144. *****                    ^ not supported yet
    145. 

  145. *****                            ^ not supported yet
    146. 

  146. *****                                          ^ not supported yet
    147. 

  147.    79          IF PosUtils.Equal( tmpstr, TheStr ) THEN
    148. 

  148. *****             ^ not supported yet
    149. 

  149. *****                      ^ not supported yet
    150. 

  150. *****                             ^ not supported yet
    151. 

  151. *****                                     ^ not supported yet
    152. 

  152.    80            RETURN TRUE;
    153. 

  153.    81          END;
    154. 

  154.    82        END;
    155. 

  155.    83        RETURN FALSE;
    156. 

  156.    84      END StrInList;
    157. 

  157. *****          ^ not supported yet
    158. 

  158.    85  
    159. 

  159.    86  
    160. 

  160.    87    PROCEDURE InsertElmts( ToBeInserted: GenLists.GenList; VAR IntoThis:
    161. 

  161. *****                                                  ^ not supported yet
    162. 

  162.    88        GenLists.GenList; AtThisSpot: CARDINAL );
    163. 

  163. *****                 ^ not supported yet
    164. 

  164.    89      VAR
    165. 

  165.    90        lngth1, tmpsize, cnt, TypeCode: CARDINAL;
    166. 

  166.    91        tmpadr: SYSTEM.ADDRESS;
    167. 

  167. *****                       ^ not supported yet
    168. 

  168.    92      BEGIN
    169. 

  169.    93        lngth1 := GenLists.ListLength( ToBeInserted );
    170. 

  170. *****                  ^ not supported yet
    171. 

  171. *****                           ^ not supported yet
    172. 

  172. *****                                       ^ not supported yet
    173. 

  173.    94        FOR cnt := lngth1 TO 1 BY -1 DO
    174. 

  174.    95          (* it's simpler to insert backwards *)
    175. 

  175.    96          GenLists.GetElmtAdr( ToBeInserted, cnt, tmpadr, tmpsize, TypeCode );
    176. 

  176. *****          ^ not supported yet
    177. 

  177. *****                   ^ not supported yet
    178. 

  178. *****                               ^ not supported yet
    179. 

  179. *****                                                  ^ not supported yet
    180. 

  180. *****                                                                            ^ not supported yet
    181. 

  181.    97          GenLists.ListInsertAdr( tmpadr, tmpsize, TypeCode, IntoThis, AtThisSpot );
    182. 

  182. *****          ^ not supported yet
    183. 

  183. *****                   ^ not supported yet
    184. 

  184. *****                                  ^ not supported yet
    185. 

  185. *****                                                             ^ not supported yet
    186. 

  186. *****                                                                                  ^ not supported yet
    187. 

  187.    98        END;
    188. 

  188.    99      END InsertElmts;
    189. 

  189. *****          ^ not supported yet
    190. 

  190.   100  
    191. 

  191.   101  
    192. 

  192.   102    PROCEDURE Alphabetize( adr1: SYSTEM.ADDRESS; size1: CARDINAL; adr2:
    193. 

  193. *****                                        ^ not supported yet
    194. 

  194.   103        SYSTEM.ADDRESS; size2: CARDINAL ): INTEGER;
    195. 

  195. *****               ^ not supported yet
    196. 

  196.   104      VAR
    197. 

  197.   105        tmp1, tmp2: ARRAY [0..79] OF CHAR;
    198. 

  198. *****                              ^ not supported yet
    199. 

  199. *****                                     ^ not supported yet
    200. 

  200.   106      BEGIN
    201. 

  201.   107        LowLevel.Move( adr1, SYSTEM.ADR(tmp1), Numbers.Min(size1, 79) );
    202. 

  202. *****        ^ not supported yet
    203. 

  203. *****                 ^ not supported yet
    204. 

  204. *****                       ^ not supported yet
    205. 

  205. *****                             ^ not supported yet
    206. 

  206. *****                                    ^ not supported yet
    207. 

  207. *****                                        ^ not supported yet
    208. 

  208. *****                                               ^ not supported yet
    209. 

  209. *****                                                       ^ not supported yet
    210. 

  210. *****                                                                    ^ not supported yet
    211. 

  211.   108        tmp1[Numbers.Min(size1, 79)] := 0C;
    212. 

  212. *****        ^ not supported yet
    213. 

  213. *****             ^ not supported yet
    214. 

  214. *****                     ^ not supported yet
    215. 

  215. *****                                  ^ not supported yet
    216. 

  216.   109        LowLevel.Move( adr2, SYSTEM.ADR(tmp2), Numbers.Min(size2, 79) );
    217. 

  217. *****        ^ not supported yet
    218. 

  218. *****                 ^ not supported yet
    219. 

  219. *****                       ^ not supported yet
    220. 

  220. *****                             ^ not supported yet
    221. 

  221. *****                                    ^ not supported yet
    222. 

  222. *****                                        ^ not supported yet
    223. 

  223. *****                                               ^ not supported yet
    224. 

  224. *****                                                       ^ not supported yet
    225. 

  225. *****                                                                    ^ not supported yet
    226. 

  226.   110        tmp2[Numbers.Min(size2, 79)] := 0C;
    227. 

  227. *****        ^ not supported yet
    228. 

  228. *****             ^ not supported yet
    229. 

  229. *****                     ^ not supported yet
    230. 

  230. *****                                  ^ not supported yet
    231. 

  231.   111        StrEdit.CAPstr( tmp1 );
    232. 

  232. *****        ^ not supported yet
    233. 

  233. *****                ^ not supported yet
    234. 

  234. *****                        ^ not supported yet
    235. 

  235.   112        StrEdit.CAPstr( tmp2 );
    236. 

  236. *****        ^ not supported yet
    237. 

  237. *****                ^ not supported yet
    238. 

  238. *****                        ^ not supported yet
    239. 

  239.   113        RETURN M2Strings.CompareStr( tmp1, tmp2 );
    240. 

  240. *****               ^ not supported yet
    241. 

  241. *****                         ^ not supported yet
    242. 

  242. *****                                     ^ not supported yet
    243. 

  243. *****                                           ^ not supported yet
    244. 

  244.   114      END Alphabetize;
    245. 

  245. *****          ^ not supported yet
    246. 

  246.   115  
    247. 

  247.   116  
    248. 

  248.   117    PROCEDURE MakeSortedImpList( TopList: GenLists.GenList; VAR OutList: GenLists.GenList );
    249. 

  249. *****                                                   ^ not supported yet
    250. 

  250. *****                                                                                  ^ not supported yet
    251. 

  251.   118      VAR
    252. 

  252.   119        SubList: GenLists.GenList;
    253. 

  253. *****                          ^ not supported yet
    254. 

  254.   120        TopListEnd, TopListCount: CARDINAL;
    255. 

  255.   121        SubListCount: CARDINAL;
    256. 

  256.   122        x: ARRAY [0..31] OF CHAR;
    257. 

  257. *****                     ^ not supported yet
    258. 

  258. *****                            ^ not supported yet
    259. 

  259.   123        WorkStr: ARRAY [0..1023] OF CHAR;
    260. 

  260. *****                           ^ not supported yet
    261. 

  261. *****                                    ^ not supported yet
    262. 

  262.   124      BEGIN
    263. 

  263.   125        TopListCount := 0;
    264. 

  264.   126        TopListEnd := GenLists.ListLength(TopList);
    265. 

  265. *****                      ^ not supported yet
    266. 

  266. *****                               ^ not supported yet
    267. 

  267. *****                                          ^ not supported yet
    268. 

  268.   127        IF TopListEnd < 2 THEN
    269. 

  269.   128          RETURN;
    270. 

  270.   129        END;
    271. 

  271.   130        GenLists.NewList( OutList );
    272. 

  272. *****        ^ not supported yet
    273. 

  273. *****                 ^ not supported yet
    274. 

  274. *****                          ^ not supported yet
    275. 

  275.   131        REPEAT
    276. 

  276.   132          WorkStr := '';
    277. 

  277. *****          ^ not supported yet
    278. 

  278. *****                     ^ incompatible assignment
    279. 

  279.   133          INC( TopListCount );
    280. 

  280. *****          ^ undeclared identifier
    281. 

  281. *****                            ^ not supported yet
    282. 

  282.   134          ListUtils.GetStr( TopList, TopListCount, x );
    283. 

  283. *****          ^ not supported yet
    284. 

  284. *****                    ^ not supported yet
    285. 

  285. *****                            ^ not supported yet
    286. 

  286. *****                                                   ^ not supported yet
    287. 

  287.   135            (* x now ought to contain a module name *)
    288. 

  288.   136          INC( TopListCount );
    289. 

  289. *****          ^ undeclared identifier
    290. 

  290. *****                            ^ not supported yet
    291. 

  291.   137          GenLists.GetChildList( TopList, TopListCount, SubList );
    292. 

  292. *****          ^ not supported yet
    293. 

  293. *****                   ^ not supported yet
    294. 

  294. *****                                 ^ not supported yet
    295. 

  295. *****                                                        ^ not supported yet
    296. 

  296.   138          IF GenLists.Initialized( SubList ) THEN
    297. 

  297. *****             ^ not supported yet
    298. 

  298. *****                      ^ not supported yet
    299. 

  299. *****                                   ^ not supported yet
    300. 

  300.   139            GenLists.SortList( SubList, Alphabetize );
    301. 

  301. *****            ^ not supported yet
    302. 

  302. *****                     ^ not supported yet
    303. 

  303. *****                               ^ not supported yet
    304. 

  304. *****                                        ^ not supported yet
    305. 

  305.   140            StrEdit.Append( WorkStr, 'FROM ' );
    306. 

  306. *****            ^ not supported yet
    307. 

  307. *****                    ^ not supported yet
    308. 

  308. *****                            ^ not supported yet
    309. 

  309. *****                                     ^ not supported yet
    310. 

  310.   141            StrEdit.Append( WorkStr, x );
    311. 

  311. *****            ^ not supported yet
    312. 

  312. *****                    ^ not supported yet
    313. 

  313. *****                            ^ not supported yet
    314. 

  314. *****                                     ^ not supported yet
    315. 

  315.   142            StrEdit.Append( WorkStr, ' IMPORT ' );
    316. 

  316. *****            ^ not supported yet
    317. 

  317. *****                    ^ not supported yet
    318. 

  318. *****                            ^ not supported yet
    319. 

  319. *****                                     ^ not supported yet
    320. 

  320.   143            SubListCount := 1;
    321. 

  321.   144            LOOP
    322. 

  322.   145              ListUtils.GetStr( SubList, SubListCount, x );
    323. 

  323. *****              ^ not supported yet
    324. 

  324. *****                        ^ not supported yet
    325. 

  325. *****                                ^ not supported yet
    326. 

  326. *****                                                       ^ not supported yet
    327. 

  327.   146              StrEdit.Append( WorkStr, x );
    328. 

  328. *****              ^ not supported yet
    329. 

  329. *****                      ^ not supported yet
    330. 

  330. *****                              ^ not supported yet
    331. 

  331. *****                                       ^ not supported yet
    332. 

  332.   147              INC( SubListCount );
    333. 

  333. *****              ^ undeclared identifier
    334. 

  334. *****                                ^ not supported yet
    335. 

  335.   148              IF SubListCount > GenLists.ListLength(SubList) THEN
    336. 

  336. *****                                ^ not supported yet
    337. 

  337. *****                                         ^ not supported yet
    338. 

  338. *****                                                    ^ not supported yet
    339. 

  339.   149                StrEdit.Append( WorkStr, ';' );
    340. 

  340. *****                ^ not supported yet
    341. 

  341. *****                        ^ not supported yet
    342. 

  342. *****                                ^ not supported yet
    343. 

  343. *****                                             ^ not supported yet
    344. 

  344.   150                EXIT;
    345. 

  345.   151              ELSE
    346. 

  346.   152                StrEdit.Append( WorkStr, ', ' );
    347. 

  347. *****                ^ not supported yet
    348. 

  348. *****                        ^ not supported yet
    349. 

  349. *****                                ^ not supported yet
    350. 

  350. *****                                         ^ not supported yet
    351. 

  351.   153              END;
    352. 

  352.   154            END;
    353. 

  353.   155          ELSE
    354. 

  354.   156            (* This is a FromLess import *)
    355. 

  355.   157            StrEdit.Append( WorkStr, 'IMPORT ' );
    356. 

  356. *****            ^ not supported yet
    357. 

  357. *****                    ^ not supported yet
    358. 

  358. *****                            ^ not supported yet
    359. 

  359. *****                                     ^ not supported yet
    360. 

  360.   158            StrEdit.Append( WorkStr, x );
    361. 

  361. *****            ^ not supported yet
    362. 

  362. *****                    ^ not supported yet
    363. 

  363. *****                            ^ not supported yet
    364. 

  364. *****                                     ^ not supported yet
    365. 

  365.   159            StrEdit.Append( WorkStr, ';' );
    366. 

  366. *****            ^ not supported yet
    367. 

  367. *****                    ^ not supported yet
    368. 

  368. *****                            ^ not supported yet
    369. 

  369. *****                                         ^ not supported yet
    370. 

  370.   160          END;
    371. 

  371.   161          GenLists.ListInsert( WorkStr, GenLists.StrCode, OutList, 65535 );
    372. 

  372. *****          ^ not supported yet
    373. 

  373. *****                   ^ not supported yet
    374. 

  374. *****                               ^ not supported yet
    375. 

  375. *****                                        ^ not supported yet
    376. 

  376. *****                                                 ^ not supported yet
    377. 

  377. *****                                                          ^ not supported yet
    378. 

  378. *****                                                                         ^ not supported yet
    379. 

  379.   162        UNTIL TopListCount = TopListEnd;
    380. 

  380.   163        GenLists.SortList( OutList, Alphabetize );
    381. 

  381. *****        ^ not supported yet
    382. 

  382. *****                 ^ not supported yet
    383. 

  383. *****                           ^ not supported yet
    384. 

  384. *****                                    ^ not supported yet
    385. 

  385.   164        ListUtils.CheckLength( OutList, 5, 75 );
    386. 

  386. *****        ^ not supported yet
    387. 

  387. *****                  ^ not supported yet
    388. 

  388. *****                               ^ not supported yet
    389. 

  389. *****                                              ^ not supported yet
    390. 

  390.   165      END MakeSortedImpList;
    391. 

  391. *****          ^ not supported yet
    392. 

  392.   166  
    393. 

  393.   167  
    394. 

  394.   168    PROCEDURE InImportList( VAR TheWord: ARRAY OF CHAR; ImportList:
    395. 

  395. *****                                                  ^ not supported yet
    396. 

  396.   169        GenLists.GenList; VAR ModuleName: ARRAY OF CHAR ): BOOLEAN;
    397. 

  397. *****                 ^ not supported yet
    398. 

  398. *****                                                   ^ not supported yet
    399. 

  399.   170      VAR
    400. 

  400.   171        SubList: GenLists.GenList;
    401. 

  401. *****                          ^ not supported yet
    402. 

  402.   172        TopListCount: CARDINAL;
    403. 

  403.   173      BEGIN
    404. 

  404.   174        TopListCount := 0;
    405. 

  405.   175        REPEAT
    406. 

  406.   176          INC( TopListCount );
    407. 

  407. *****          ^ undeclared identifier
    408. 

  408. *****                            ^ not supported yet
    409. 

  409.   177          ListUtils.GetStr( ImportList, TopListCount, ModuleName );
    410. 

  410. *****          ^ not supported yet
    411. 

  411. *****                    ^ not supported yet
    412. 

  412. *****                            ^ not supported yet
    413. 

  413. *****                                                      ^ not supported yet
    414. 

  414.   178          INC( TopListCount );
    415. 

  415. *****          ^ undeclared identifier
    416. 

  416. *****                            ^ not supported yet
    417. 

  417.   179          GenLists.GetChildList( ImportList, TopListCount, SubList );
    418. 

  418. *****          ^ not supported yet
    419. 

  419. *****                   ^ not supported yet
    420. 

  420. *****                                 ^ not supported yet
    421. 

  421. *****                                                           ^ not supported yet
    422. 

  422.   180          IF GenLists.Initialized( SubList ) AND StrInList(TheWord, SubList) THEN
    423. 

  423. *****             ^ not supported yet
    424. 

  424. *****                      ^ not supported yet
    425. 

  425. *****                                   ^ not supported yet
    426. 

  426. *****                                                 ^ not supported yet
    427. 

  427. *****                                                           ^ not supported yet
    428. 

  428. *****                                                                    ^ not supported yet
    429. 

  429.   181            RETURN TRUE;
    430. 

  430.   182          END;
    431. 

  431.   183        UNTIL TopListCount = GenLists.ListLength(ImportList);
    432. 

  432. *****                             ^ not supported yet
    433. 

  433. *****                                      ^ not supported yet
    434. 

  434. *****                                                 ^ not supported yet
    435. 

  435.   184        RETURN FALSE;
    436. 

  436.   185      END InImportList;
    437. 

  437. *****          ^ not supported yet
    438. 

  438.   186  
    439. 

  439.   187  
    440. 

  440.   188    PROCEDURE IsModuleName( ModuleName: ARRAY OF CHAR; ImportList:
    441. 

  441. *****                                                 ^ not supported yet
    442. 

  442.   189        GenLists.GenList; VAR SubList: GenLists.GenList ): BOOLEAN;
    443. 

  443. *****                 ^ not supported yet
    444. 

  444. *****                                                ^ not supported yet
    445. 

  445.   190      VAR
    446. 

  446.   191        TopListCount: CARDINAL;
    447. 

  447.   192        tmpstr: ARRAY [0..79] OF CHAR;
    448. 

  448. *****                          ^ not supported yet
    449. 

  449. *****                                 ^ not supported yet
    450. 

  450.   193      BEGIN
    451. 

  451.   194        TopListCount := 0;
    452. 

  452.   195        GenLists.NilList( SubList );
    453. 

  453. *****        ^ not supported yet
    454. 

  454. *****                 ^ not supported yet
    455. 

  455. *****                          ^ not supported yet
    456. 

  456.   196        REPEAT
    457. 

  457.   197          INC( TopListCount );
    458. 

  458. *****          ^ undeclared identifier
    459. 

  459. *****                            ^ not supported yet
    460. 

  460.   198          ListUtils.GetStr( ImportList, TopListCount, tmpstr );
    461. 

  461. *****          ^ not supported yet
    462. 

  462. *****                    ^ not supported yet
    463. 

  463. *****                            ^ not supported yet
    464. 

  464. *****                                                      ^ not supported yet
    465. 

  465.   199          INC( TopListCount );
    466. 

  466. *****          ^ undeclared identifier
    467. 

  467. *****                            ^ not supported yet
    468. 

  468.   200          IF PosUtils.Equal( ModuleName, tmpstr ) THEN
    469. 

  469. *****             ^ not supported yet
    470. 

  470. *****                      ^ not supported yet
    471. 

  471. *****                             ^ not supported yet
    472. 

  472. *****                                         ^ not supported yet
    473. 

  473.   201            GenLists.GetChildList( ImportList, TopListCount, SubList );
    474. 

  474. *****            ^ not supported yet
    475. 

  475. *****                     ^ not supported yet
    476. 

  476. *****                                   ^ not supported yet
    477. 

  477. *****                                                             ^ not supported yet
    478. 

  478.   202            RETURN TRUE;
    479. 

  479.   203          END;
    480. 

  480.   204        UNTIL TopListCount = GenLists.ListLength(ImportList);
    481. 

  481. *****                             ^ not supported yet
    482. 

  482. *****                                      ^ not supported yet
    483. 

  483. *****                                                 ^ not supported yet
    484. 

  484.   205        RETURN FALSE;
    485. 

  485.   206      END IsModuleName;
    486. 

  486. *****          ^ not supported yet
    487. 

  487.   207  
    488. 

  488.   208  
    489. 

  489.   209    PROCEDURE QualifyAll();
    490. 

  490.   210      VAR
    491. 

  491.   211        TopListCount: CARDINAL;
    492. 

  492.   212        tmpstr: ARRAY [0..79] OF CHAR;
    493. 

  493. *****                          ^ not supported yet
    494. 

  494. *****                                 ^ not supported yet
    495. 

  495.   213        ModuleName: ARRAY [0..31] OF CHAR;
    496. 

  496. *****                              ^ not supported yet
    497. 

  497. *****                                     ^ not supported yet
    498. 

  498.   214        TextEnd, ImportsEnd, LastLine : CARDINAL;
    499. 

  499.   215        LocalNilList, SubList: GenLists.GenList;
    500. 

  500. *****                                        ^ not supported yet
    501. 

  501.   216      BEGIN
    502. 

  502.   217        LastLine := 0;
    503. 

  503.   218        TextEnd := GenLists.ListLength(TextList);
    504. 

  504. *****                   ^ not supported yet
    505. 

  505. *****                            ^ not supported yet
    506. 

  506. *****                                       ^ not supported yet
    507. 

  507.   219        ImportsEnd := GenLists.ListLength(Imports);
    508. 

  508. *****                      ^ not supported yet
    509. 

  509. *****                               ^ not supported yet
    510. 

  510. *****                                          ^ not supported yet
    511. 

  511.   220        REPEAT
    512. 

  512.   221          NextWord( CurrentWord );
    513. 

  513. *****          ^ not supported yet
    514. 

  514. *****                    ^ not supported yet
    515. 

  515.   222          IF InImportList( CurrentWord, Imports, ModuleName ) THEN
    516. 

  516. *****             ^ not supported yet
    517. 

  517. *****                           ^ not supported yet
    518. 

  518. *****                                        ^ not supported yet
    519. 

  519. *****                                                 ^ not supported yet
    520. 

  520.   223            M2Strings.Insert( '.', Parser.TheLine, Parser.LastIndex );
    521. 

  521. *****            ^ not supported yet
    522. 

  522. *****                      ^ not supported yet
    523. 

  523. *****                                   ^ not supported yet
    524. 

  524. *****                                          ^ not supported yet
    525. 

  525. *****                                                   ^ not supported yet
    526. 

  526. *****                                                          ^ not supported yet
    527. 

  527.   224            M2Strings.Insert( ModuleName, Parser.TheLine, Parser.LastIndex );
    528. 

  528. *****            ^ not supported yet
    529. 

  529. *****                      ^ not supported yet
    530. 

  530. *****                              ^ not supported yet
    531. 

  531. *****                                          ^ not supported yet
    532. 

  532. *****                                                 ^ not supported yet
    533. 

  533. *****                                                          ^ not supported yet
    534. 

  534. *****                                                                 ^ not supported yet
    535. 

  535.   225            GenLists.ListReplace( Parser.TheLine, GenLists.StrCode, TextList, LineCnt );
    536. 

  536. *****            ^ not supported yet
    537. 

  537. *****                     ^ not supported yet
    538. 

  538. *****                                  ^ not supported yet
    539. 

  539. *****                                         ^ not supported yet
    540. 

  540. *****                                                  ^ not supported yet
    541. 

  541. *****                                                           ^ not supported yet
    542. 

  542. *****                                                                    ^ not supported yet
    543. 

  543. *****                                                                                      ^ not supported yet
    544. 

  544.   226            INC( ColCnt, M2Strings.Length(ModuleName) + 1 );
    545. 

  545. *****            ^ undeclared identifier
    546. 

  546. *****                         ^ not supported yet
    547. 

  547. *****                                   ^ not supported yet
    548. 

  548. *****                                          ^ not supported yet
    549. 

  549. *****                                                          ^ not supported yet
    550. 

  550.   227          END;
    551. 

  551.   228          IF LineCnt > LastLine THEN
    552. 

  552.   229            StringIO.WriteStr( StringIO.outp, '.' );
    553. 

  553. *****            ^ not supported yet
    554. 

  554. *****                     ^ not supported yet
    555. 

  555. *****                               ^ not supported yet
    556. 

  556. *****                                        ^ not supported yet
    557. 

  557. *****                                                  ^ not supported yet
    558. 

  558.   230            LastLine := LineCnt;
    559. 

  559.   231          END;
    560. 

  560.   232        UNTIL LineCnt >= TextEnd;
    561. 

  561.   233        TopListCount := 0;
    562. 

  562.   234        GenLists.NilList( LocalNilList );
    563. 

  563. *****        ^ not supported yet
    564. 

  564. *****                 ^ not supported yet
    565. 

  565. *****                          ^ not supported yet
    566. 

  566.   235        REPEAT
    567. 

  567.   236          INC( TopListCount, 2 );
    568. 

  568. *****          ^ undeclared identifier
    569. 

  569. *****                               ^ not supported yet
    570. 

  570.   237          GenLists.ListReplace( LocalNilList, GenLists.ListCode, Imports, TopListCount );
    571. 

  571. *****          ^ not supported yet
    572. 

  572. *****                   ^ not supported yet
    573. 

  573. *****                                ^ not supported yet
    574. 

  574. *****                                              ^ not supported yet
    575. 

  575. *****                                                       ^ not supported yet
    576. 

  576. *****                                                                 ^ not supported yet
    577. 

  577. *****                                                                                       ^ not supported yet
    578. 

  578.   238            (*ListReplace takes care of deallocating the old list.
    579. 

  579.   239              Note that we don't do GetChildList's and
    580. 

  580.   240              DisposeList's because that wouldn't nil out the copy
    581. 

  581.   241              of the pointer that's in the Imports list.*)
    582. 

  582.   242        UNTIL TopListCount >= ImportsEnd;
    583. 

  583.   243      END QualifyAll;
    584. 

  584. *****          ^ not supported yet
    585. 

  585.   244  
    586. 

  586.   245  
    587. 

  587.   246    PROCEDURE UnqualifyAll();
    588. 

  588.   247      VAR
    589. 

  589.   248        ModuleName, tmpstr: ARRAY [0..31] OF CHAR;
    590. 

  590. *****                                      ^ not supported yet
    591. 

  591. *****                                             ^ not supported yet
    592. 

  592.   249        SubList: GenLists.GenList;
    593. 

  593. *****                          ^ not supported yet
    594. 

  594.   250        LastLine : CARDINAL;
    595. 

  595.   251      BEGIN
    596. 

  596.   252        LastLine := 0;
    597. 

  597.   253        REPEAT
    598. 

  598.   254          NextWord( CurrentWord );
    599. 

  599. *****          ^ not supported yet
    600. 

  600. *****                    ^ not supported yet
    601. 

  601.   255          IF IsModuleName( CurrentWord, Imports, SubList ) AND
    602. 

  602. *****             ^ not supported yet
    603. 

  603. *****                           ^ not supported yet
    604. 

  604. *****                                        ^ not supported yet
    605. 

  605. *****                                                 ^ not supported yet
    606. 

  606.   256              (Terminator = '.') THEN
    607. 

  607.   257            M2Strings.Assign( CurrentWord, ModuleName );
    608. 

  608. *****            ^ not supported yet
    609. 

  609. *****                      ^ not supported yet
    610. 

  610. *****                              ^ not supported yet
    611. 

  611. *****                                           ^ not supported yet
    612. 

  612.   258            NextWord( CurrentWord );
    613. 

  613. *****            ^ not supported yet
    614. 

  614. *****                      ^ not supported yet
    615. 

  615.   259            IF NOT GenLists.Initialized( SubList ) THEN
    616. 

  616. *****                   ^ not supported yet
    617. 

  617. *****                            ^ not supported yet
    618. 

  618. *****                                         ^ not supported yet
    619. 

  619.   260              GenLists.NewList( SubList );
    620. 

  620. *****              ^ not supported yet
    621. 

  621. *****                       ^ not supported yet
    622. 

  622. *****                                ^ not supported yet
    623. 

  623.   261              GenLists.ListReplace( SubList, GenLists.ListCode, Imports,
    624. 

  624. *****              ^ not supported yet
    625. 

  625. *****                       ^ not supported yet
    626. 

  626. *****                                    ^ not supported yet
    627. 

  627. *****                                             ^ not supported yet
    628. 

  628. *****                                                      ^ not supported yet
    629. 

  629. *****                                                                ^ not supported yet
    630. 

  630.   262                  GenLists.ElmtNow(Imports) );
    631. 

  631. *****                  ^ not supported yet
    632. 

  632. *****                           ^ not supported yet
    633. 

  633. *****                                   ^ not supported yet
    634. 

  634.   263            END;
    635. 

  635.   264            IF NOT StrInList( CurrentWord, SubList ) THEN
    636. 

  636. *****                   ^ not supported yet
    637. 

  637. *****                              ^ not supported yet
    638. 

  638. *****                                           ^ not supported yet
    639. 

  639.   265              GenLists.ListInsert( CurrentWord, GenLists.StrCode, SubList, 65535 );
    640. 

  640. *****              ^ not supported yet
    641. 

  641. *****                       ^ not supported yet
    642. 

  642. *****                                   ^ not supported yet
    643. 

  643. *****                                                ^ not supported yet
    644. 

  644. *****                                                         ^ not supported yet
    645. 

  645. *****                                                                  ^ not supported yet
    646. 

  646. *****                                                                                 ^ not supported yet
    647. 

  647.   266            END;
    648. 

  648.   267            StrEdit.Append( ModuleName, '.' );
    649. 

  649. *****            ^ not supported yet
    650. 

  650. *****                    ^ not supported yet
    651. 

  651. *****                            ^ not supported yet
    652. 

  652. *****                                            ^ not supported yet
    653. 

  653.   268            StrEdit.ReplaceStr( ModuleName, '', Parser.TheLine );
    654. 

  654. *****            ^ not supported yet
    655. 

  655. *****                    ^ not supported yet
    656. 

  656. *****                                ^ not supported yet
    657. 

  657. *****                                                ^ not supported yet
    658. 

  658. *****                                                       ^ not supported yet
    659. 

  659.   269            GenLists.ListReplace( Parser.TheLine, GenLists.StrCode, TextList, LineCnt );
    660. 

  660. *****            ^ not supported yet
    661. 

  661. *****                     ^ not supported yet
    662. 

  662. *****                                  ^ not supported yet
    663. 

  663. *****                                         ^ not supported yet
    664. 

  664. *****                                                  ^ not supported yet
    665. 

  665. *****                                                           ^ not supported yet
    666. 

  666. *****                                                                    ^ not supported yet
    667. 

  667. *****                                                                                      ^ not supported yet
    668. 

  668.   270            DEC( ColCnt, M2Strings.Length(ModuleName) + 1 );
    669. 

  669. *****            ^ undeclared identifier
    670. 

  670. *****                         ^ not supported yet
    671. 

  671. *****                                   ^ not supported yet
    672. 

  672. *****                                          ^ not supported yet
    673. 

  673. *****                                                          ^ not supported yet
    674. 

  674.   271          END;
    675. 

  675.   272          IF LineCnt > LastLine THEN
    676. 

  676.   273            StringIO.WriteStr( StringIO.outp, '.' );
    677. 

  677. *****            ^ not supported yet
    678. 

  678. *****                     ^ not supported yet
    679. 

  679. *****                               ^ not supported yet
    680. 

  680. *****                                        ^ not supported yet
    681. 

  681. *****                                                  ^ not supported yet
    682. 

  682.   274            LastLine := LineCnt;
    683. 

  683.   275          END;
    684. 

  684.   276        UNTIL LineCnt >= GenLists.ListLength(TextList);
    685. 

  685. *****                         ^ not supported yet
    686. 

  686. *****                                  ^ not supported yet
    687. 

  687. *****                                             ^ not supported yet
    688. 

  688.   277      END UnqualifyAll;
    689. 

  689. *****          ^ not supported yet
    690. 

  690.   278  
    691. 

  691.   279  
    692. 

  692.   280  BEGIN
    693. 

  693.   281    IF NOT EnvironUtils.ParsedParam( 1, fname1 ) THEN
    694. 

  694. *****           ^ not supported yet
    695. 

  695. *****                        ^ not supported yet
    696. 

  696. *****                                        ^ not supported yet
    697. 

  697.   282      StringIO.WriteStr( StringIO.outp, 'File name: ' );
    698. 

  698. *****      ^ not supported yet
    699. 

  699. *****               ^ not supported yet
    700. 

  700. *****                         ^ not supported yet
    701. 

  701. *****                                  ^ not supported yet
    702. 

  702. *****                                        ^ not supported yet
    703. 

  703.   283      StringIO.ReadStr( StringIO.inp, fname1 );
    704. 

  704. *****      ^ not supported yet
    705. 

  705. *****               ^ not supported yet
    706. 

  706. *****                        ^ not supported yet
    707. 

  707. *****                                 ^ not supported yet
    708. 

  708. *****                                      ^ not supported yet
    709. 

  709.   284      IF M2Strings.Length(fname1) = 0 THEN
    710. 

  710. *****         ^ not supported yet
    711. 

  711. *****                   ^ not supported yet
    712. 

  712. *****                          ^ not supported yet
    713. 

  713.   285        RETURN;
    714. 

  714. *****        ^ bad RETURN
    715. 

  715.   286      END;
    716. 

  716.   287    END;
    717. 

  717.   288    PosUtils.CaseSensitive := FALSE;
    718. 

  718. *****    ^ not supported yet
    719. 

  719. *****             ^ not supported yet
    720. 

  720.   289    IF NOT PosUtils.Present( '.', fname1 ) THEN
    721. 

  721. *****           ^ not supported yet
    722. 

  722. *****                    ^ not supported yet
    723. 

  723. *****                                  ^ not supported yet
    724. 

  724.   290      StrEdit.Append( fname1, '.mod' );
    725. 

  725. *****      ^ not supported yet
    726. 

  726. *****              ^ not supported yet
    727. 

  727. *****                      ^ not supported yet
    728. 

  728. *****                              ^ not supported yet
    729. 

  729.   291    END;
    730. 

  730.   292    PosUtils.CaseSensitive := TRUE;
    731. 

  731. *****    ^ not supported yet
    732. 

  732. *****             ^ not supported yet
    733. 

  733.   293    IF NOT EnvironUtils.ParsedParam( 2, Dumstr ) THEN
    734. 

  734. *****           ^ not supported yet
    735. 

  735. *****                        ^ not supported yet
    736. 

  736. *****                                        ^ not supported yet
    737. 

  737.   294      Qualifying := yes( 'Qualify all imported identifiers?  ');
    738. 

  738. *****                    ^ not supported yet
    739. 

  739. *****                         ^ not supported yet
    740. 

  740.   295      IF Qualifying THEN
    741. 

  741.   296        Unqualifying := FALSE;
    742. 

  742.   297        Sorting := FALSE;
    743. 

  743.   298      ELSE
    744. 

  744.   299        Unqualifying := yes( 'Unqualify all qualified identifiers?  ');
    745. 

  745. *****                        ^ not supported yet
    746. 

  746. *****                             ^ not supported yet
    747. 

  747.   300        IF Unqualifying THEN
    748. 

  748.   301          Sorting := FALSE;
    749. 

  749.   302        ELSE
    750. 

  750.   303          Sorting := yes( 'Sort identifiers in present import list?  ');
    751. 

  751. *****                     ^ not supported yet
    752. 

  752. *****                          ^ not supported yet
    753. 

  753.   304        END;
    754. 

  754.   305      END;
    755. 

  755.   306    ELSE
    756. 

  756.   307      Sorting := CAP(Dumstr[0]) = 'S';
    757. 

  757. *****                 ^ undeclared identifier
    758. 

  758. *****                     ^ not supported yet
    759. 

  759. *****                             ^ not supported yet
    760. 

  760.   308      Qualifying := CAP(Dumstr[0]) = 'Q';
    761. 

  761. *****                    ^ undeclared identifier
    762. 

  762. *****                        ^ not supported yet
    763. 

  763. *****                                ^ not supported yet
    764. 

  764.   309      Unqualifying := CAP(Dumstr[0]) = 'U';
    765. 

  765. *****                      ^ undeclared identifier
    766. 

  766. *****                          ^ not supported yet
    767. 

  767. *****                                  ^ not supported yet
    768. 

  768.   310    END;
    769. 

  769.   311  
    770. 

  770.   312    LineCnt := 1;
    771. 

  771.   313    ColCnt := 0;
    772. 

  772.   314    StartOfImpList := 0;
    773. 

  773.   315    EndOfImpList := 0;
    774. 

  774.   316    GenLists.NewList( TextList );
    775. 

  775. *****    ^ not supported yet
    776. 

  776. *****             ^ not supported yet
    777. 

  777. *****                      ^ not supported yet
    778. 

  778.   317    StringIO.PrintMessage( ListUtils.TextFileToList( fname1, TextList ) );
    779. 

  779. *****    ^ not supported yet
    780. 

  780. *****             ^ not supported yet
    781. 

  781. *****                           ^ not supported yet
    782. 

  782. *****                                     ^ not supported yet
    783. 

  783. *****                                                     ^ not supported yet
    784. 

  784. *****                                                             ^ not supported yet
    785. 

  785.   318    LastWord := '';
    786. 

  786. *****    ^ not supported yet
    787. 

  787. *****                ^ incompatible assignment
    788. 

  788.   319    CurrentWord := '';
    789. 

  789. *****    ^ not supported yet
    790. 

  790. *****                   ^ incompatible assignment
    791. 

  791.   320  
    792. 

  792.   321    ImpLists.ExtractImportList( TextList, Imports, StartOfImpList, EndOfImpList );
    793. 

  793. *****    ^ not supported yet
    794. 

  794. *****             ^ not supported yet
    795. 

  795. *****                                ^ not supported yet
    796. 

  796. *****                                          ^ not supported yet
    797. 

  797. *****                                                                                ^ not supported yet
    798. 

  798.   322  
    799. 

  799.   323    IF Qualifying THEN
    800. 

  800.   324      QualifyAll();
    801. 

  801. *****      ^ not supported yet
    802. 

  802. *****                 ^ not supported yet
    803. 

  803.   325    ELSIF Unqualifying THEN
    804. 

  804.   326      UnqualifyAll();
    805. 

  805. *****      ^ not supported yet
    806. 

  806. *****                   ^ not supported yet
    807. 

  807.   327    END;
    808. 

  808.   328    IF StartOfImpList > 0 THEN
    809. 

  809.   329      MakeSortedImpList( Imports, TmpList );
    810. 

  810. *****      ^ not supported yet
    811. 

  811. *****                         ^ not supported yet
    812. 

  812. *****                                  ^ not supported yet
    813. 

  813.   330      GenLists.DisposeList( Imports );
    814. 

  814. *****      ^ not supported yet
    815. 

  815. *****               ^ not supported yet
    816. 

  816. *****                            ^ not supported yet
    817. 

  817.   331      GenLists.ListDelete( TextList, StartOfImpList, EndOfImpList -
    818. 

  818. *****      ^ not supported yet
    819. 

  819. *****               ^ not supported yet
    820. 

  820. *****                           ^ not supported yet
    821. 

  821.   332          StartOfImpList + 1 );
    822. 

  822. *****                             ^ not supported yet
    823. 

  823.   333      GenLists.ListInsert( '', GenLists.StrCode, TextList, StartOfImpList );
    824. 

  824. *****      ^ not supported yet
    825. 

  825. *****               ^ not supported yet
    826. 

  826. *****                               ^ not supported yet
    827. 

  827. *****                                        ^ not supported yet
    828. 

  828. *****                                                 ^ not supported yet
    829. 

  829. *****                                                                          ^ not supported yet
    830. 

  830.   334        (* insert a blank line to separate imports from rest of
    831. 

  831.   335           program *)
    832. 

  832.   336      InsertElmts( TmpList, TextList, StartOfImpList );
    833. 

  833. *****      ^ not supported yet
    834. 

  834. *****                   ^ not supported yet
    835. 

  835. *****                            ^ not supported yet
    836. 

  836. *****                                                     ^ not supported yet
    837. 

  837.   337      GenLists.DisposeList( TmpList );
    838. 

  838. *****      ^ not supported yet
    839. 

  839. *****               ^ not supported yet
    840. 

  840. *****                            ^ not supported yet
    841. 

  841.   338    END;
    842. 

  842.   339    StringIO.PrintMessage( ListUtils.TextListToFile( TextList, fname1 ) );
    843. 

  843. *****    ^ not supported yet
    844. 

  844. *****             ^ not supported yet
    845. 

  845. *****                           ^ not supported yet
    846. 

  846. *****                                     ^ not supported yet
    847. 

  847. *****                                                     ^ not supported yet
    848. 

  848. *****                                                               ^ not supported yet
    849. 

  849.   340    GenLists.DisposeList( TextList );
    850. 

  850. *****    ^ not supported yet
    851. 

  851. *****             ^ not supported yet
    852. 

  852. *****                          ^ not supported yet
    853. 

  853.   341  END Importer.
    854. 

  854. 

  855.   510 errors
    856. 

  856. 

  857.