首頁 探索 說明
登入
eric
/
Topspeed_JPI
1
0
複刻 0
檔案 問題管理 0 合併請求 0 Wiki
分支: master
分支列表 標籤列表
Topspeed_JPI
/
TS-V3
/
MODBASE
/
ERRORMAN.LST

ERRORMAN.LST 19 KB
永久連結 文件歷史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE ErrorManager;
    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-1992 PMI
    9. 

  9.     7   *  Green Bay, Wisconsin
    10. 

  10.     8   *  All rights reserved
    11. 

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

  12.    10   *
    13. 

  13.    11   *  $Header:   D:/logfiles/mods/errorman.mov   1.8   10 Mar 1991 15:27:10   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  IMPORT KbdInput;
    19. 

  19.    17  IMPORT LowLevel;
    20. 

  20.    18  IMPORT M2Strings;
    21. 

  21.    19  IMPORT StrConv;
    22. 

  22.    20  IMPORT StrEdit;
    23. 

  23.    21  IMPORT StringIO;
    24. 

  24.    22  IMPORT SYSTEM;
    25. 

  25.    23  IMPORT FAPI;
    26. 

  26.    24  IMPORT VStorage;
    27. 

  27.    25  
    28. 

  28.    26  VAR
    29. 

  29.    27    Initialized : BOOLEAN;
    30. 

  30.    28  
    31. 

  31.    29  CONST
    32. 

  32.    30    MaxStaticProcs = 8;
    33. 

  33.    31  TYPE
    34. 

  34.    32    AProcRecPtr = POINTER TO AProcRec;
    35. 

  35. *****                             ^ undeclared identifier
    36. 

  36.    33    AProcRec =
    37. 

  37.    34      RECORD
    38. 

  38.    35        TheProc: ATermProc;
    39. 

  39. *****                 ^ undeclared identifier
    40. 

  40.    36        prv: AProcRecPtr;
    41. 

  41.    37        fromblock: BOOLEAN;
    42. 

  42.    38      END;
    43. 

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

  44.    39  
    45. 

  45.    40  VAR
    46. 

  46.    41    TermProcStackTop : AProcRecPtr;
    47. 

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

  48.    42    TermProcsDoneOnce: BOOLEAN;
    49. 

  49.    43      (*This keeps us from getting in trouble with recursive calls
    50. 

  50.    44        to DoTermProcs.*)
    51. 

  51.    45    ErrorReturn : CARDINAL;
    52. 

  52.    46    Aborting: BOOLEAN;
    53. 

  53.    47      (*And this prevents recursive calls to WARN.*)
    54. 

  54.    48    StaticProcs : ARRAY [1..MaxStaticProcs] OF AProcRec;
    55. 

  55. *****                            ^ not supported yet
    56. 

  56. *****                                               ^ not supported yet
    57. 

  57.    49      (*We have this StaticProcs array because certain Repertoire
    58. 

  58.    50        modules need to add TermProcs in their initialization
    59. 

  59.    51        blocks, which are executed before the user tells us where
    60. 

  60.    52        DOS memory is coming from.  We can't allocate new elements
    61. 

  61.    53        of the TermProcList until we can get memory. *)
    62. 

  62.    54    ProcCount : CARDINAL;
    63. 

  63.    55  
    64. 

  64.    56  
    65. 

  65.    57    PROCEDURE CallHalt( TheMessage: ARRAY OF CHAR );
    66. 

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

  67.    58      BEGIN
    68. 

  68.    59        IF Aborting THEN
    69. 

  69.    60          RETURN
    70. 

  70.    61        ELSE
    71. 

  71.    62          Aborting := TRUE;
    72. 

  72.    63        END;
    73. 

  73.    64        IF (M2Strings.Length( TheMessage ) > 0) THEN
    74. 

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

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

  76. *****                              ^ not supported yet
    77. 

  77.    65          IF NOT AbortConfirmed( TheMessage ) THEN
    78. 

  78. *****                 ^ undeclared identifier
    79. 

  79. *****                                 ^ not supported yet
    80. 

  80.    66            Aborting := FALSE;
    81. 

  81.    67            RETURN;
    82. 

  82.    68          END;
    83. 

  83.    69        END;
    84. 

  84.    70        DoTermProcs();
    85. 

  85. *****        ^ undeclared identifier
    86. 

  86. *****                    ^ not supported yet
    87. 

  87.    71        HALT();
    88. 

  88. *****        ^ undeclared identifier
    89. 

  89. *****             ^ not supported yet
    90. 

  90.    72      END CallHalt;
    91. 

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

  92.    73  
    93. 

  93.    74  
    94. 

  94.    75    PROCEDURE DefaultWarnNumber( TheMessage: ARRAY OF CHAR;
    95. 

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

  96.    76        TheErrorNum: CARDINAL );
    97. 

  97.    77      VAR
    98. 

  98.    78        tmpstr: ARRAY [0..79] OF CHAR;
    99. 

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

  100. *****                                 ^ not supported yet
    101. 

  101.    79      BEGIN
    102. 

  102.    80        StrConv.CardinalToStr( TheErrorNum, 0, tmpstr );
    103. 

  103. *****        ^ not supported yet
    104. 

  104. *****                ^ not supported yet
    105. 

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

  106.    81        M2Strings.Insert( ' ', tmpstr, 0 );
    107. 

  107. *****        ^ not supported yet
    108. 

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

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

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

  111.    82        M2Strings.Insert( TheMessage, tmpstr, 0 );
    112. 

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

  113. *****                  ^ not supported yet
    114. 

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

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

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

  117.    83        WARN( tmpstr );
    118. 

  118. *****        ^ undeclared identifier
    119. 

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

  120.    84      END DefaultWarnNumber;
    121. 

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

  122.    85  
    123. 

  123.    86    PROCEDURE StraightToDOS( TheMessage: ARRAY OF CHAR );
    124. 

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

  125.    87      BEGIN
    126. 

  126.    88        IF Aborting THEN
    127. 

  127.    89          RETURN
    128. 

  128.    90        ELSE
    129. 

  129.    91          Aborting := TRUE;
    130. 

  130.    92        END;
    131. 

  131.    93        IF (M2Strings.Length( TheMessage ) > 0) THEN
    132. 

  132. *****            ^ not supported yet
    133. 

  133. *****                      ^ not supported yet
    134. 

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

  135.    94          IF NOT AbortConfirmed( TheMessage ) THEN
    136. 

  136. *****                 ^ undeclared identifier
    137. 

  137. *****                                 ^ not supported yet
    138. 

  138.    95            Aborting := FALSE;
    139. 

  139.    96            RETURN;
    140. 

  140.    97          END;
    141. 

  141.    98        END;
    142. 

  142.    99        DoTermProcs();
    143. 

  143. *****        ^ undeclared identifier
    144. 

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

  145.   100        FAPI.DOSEXIT(0, 0);
    146. 

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

  147. *****             ^ not supported yet
    148. 

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

  149.   101      END StraightToDOS;
    150. 

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

  151.   102  
    152. 

  152.   103  
    153. 

  153.   104    PROCEDURE DoTermProcs();
    154. 

  154.   105      VAR
    155. 

  155.   106        LocalProcRecPtr: AProcRecPtr;
    156. 

  156. *****                         ^ not supported yet
    157. 

  157.   107        count : CARDINAL;
    158. 

  158.   108      BEGIN
    159. 

  159.   109        IF TermProcsDoneOnce OR (TermProcStackTop = NIL) THEN
    160. 

  160. *****                                 ^ not supported yet
    161. 

  161.   110          RETURN
    162. 

  162.   111        ELSE
    163. 

  163.   112          TermProcsDoneOnce := TRUE;
    164. 

  164.   113        END;
    165. 

  165.   114        LocalProcRecPtr := TermProcStackTop;
    166. 

  166. *****        ^ not supported yet
    167. 

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

  168.   115        WHILE LocalProcRecPtr # NIL DO
    169. 

  169. *****              ^ not supported yet
    170. 

  170.   116          LocalProcRecPtr^.TheProc();
    171. 

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

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

  173. *****                                   ^ not supported yet
    174. 

  174.   117          LocalProcRecPtr := LocalProcRecPtr^.prv;
    175. 

  175. *****          ^ not supported yet
    176. 

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

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

  178.   118            (* We don't attempt to deallocate the TermProc list as
    179. 

  179.   119               we go, because it's about to be released to the
    180. 

  180.   120               operating system anyway. *)
    181. 

  181.   121        END;
    182. 

  182.   122      END DoTermProcs;
    183. 

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

  184.   123  
    185. 

  185.   124  
    186. 

  186.   125    PROCEDURE AddTermProc( TheTermProc: ATermProc );
    187. 

  187. *****                                        ^ undeclared identifier
    188. 

  188.   126      VAR
    189. 

  189.   127        LocalProcRecPtr: AProcRecPtr;
    190. 

  190. *****                         ^ not supported yet
    191. 

  191.   128          (* Although it may look like a mistake for this to be local,
    192. 

  192.   129             the object to which it points will be on the heap, and
    193. 

  193.   130             that's what we're adding to the TermProcStack, not the
    194. 

  194.   131             pointer itself. *)
    195. 

  195.   132      BEGIN
    196. 

  196.   133        INC(ProcCount);
    197. 

  197. *****        ^ undeclared identifier
    198. 

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

  199.   134        IF ProcCount <= MaxStaticProcs THEN
    200. 

  200.   135          StaticProcs[ ProcCount ].TheProc := TheTermProc;
    201. 

  201. *****          ^ not supported yet
    202. 

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

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

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

  205.   136          LocalProcRecPtr := SYSTEM.ADR(StaticProcs[ ProcCount ]);
    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.   137          LocalProcRecPtr^.fromblock := TRUE;
    212. 

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

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

  214.   138        ELSE
    215. 

  215.   139          VStorage.DosAlloc( LocalProcRecPtr, SYSTEM.TSIZE(AProcRec) );
    216. 

  216. *****          ^ not supported yet
    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.   140          LocalProcRecPtr^.fromblock := FALSE;
    223. 

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

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

  225.   141        END;
    226. 

  226.   142        LocalProcRecPtr^.TheProc := TheTermProc;
    227. 

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

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

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

  230.   143        LocalProcRecPtr^.prv := TermProcStackTop;
    231. 

  231. *****        ^ not supported yet
    232. 

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

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

  234.   144        TermProcStackTop := LocalProcRecPtr;
    235. 

  235. *****        ^ not supported yet
    236. 

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

  237.   145      END AddTermProc;
    238. 

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

  239.   146  
    240. 

  240.   147  
    241. 

  241.   148    PROCEDURE RemoveTermProc(TheTermProc: ATermProc);
    242. 

  242. *****                                          ^ undeclared identifier
    243. 

  243.   149      VAR
    244. 

  244.   150        LocalProcRecPtr, nxt: AProcRecPtr;
    245. 

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

  246.   151      BEGIN
    247. 

  247.   152        LocalProcRecPtr := TermProcStackTop;
    248. 

  248. *****        ^ not supported yet
    249. 

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

  250.   153        nxt := NIL;
    251. 

  251. *****        ^ not supported yet
    252. 

  252.   154        WHILE (LocalProcRecPtr # NIL) AND
    253. 

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

  254.   155            (SYSTEM.ADDRESS(LocalProcRecPtr^.TheProc) #
    255. 

  255. *****             ^ not supported yet
    256. 

  256. *****                    ^ not supported yet
    257. 

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

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

  259.   156             SYSTEM.ADDRESS(TheTermProc)) DO
    260. 

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

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

  262. *****                            ^ not supported yet
    263. 

  263.   157          nxt := LocalProcRecPtr;
    264. 

  264. *****          ^ not supported yet
    265. 

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

  266.   158          LocalProcRecPtr := LocalProcRecPtr^.prv;
    267. 

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

  268. *****                             ^ not supported yet
    269. 

  269. *****                                              ^ not supported yet
    270. 

  270.   159        END;
    271. 

  271.   160        IF LocalProcRecPtr = NIL THEN
    272. 

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

  273.   161          RETURN;
    274. 

  274.   162        END;
    275. 

  275.   163        IF (LocalProcRecPtr = TermProcStackTop) THEN
    276. 

  276. *****            ^ not supported yet
    277. 

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

  278.   164          TermProcStackTop := LocalProcRecPtr^.prv;
    279. 

  279. *****          ^ not supported yet
    280. 

  280. *****                              ^ not supported yet
    281. 

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

  282.   165        END;
    283. 

  283.   166        IF nxt # NIL THEN
    284. 

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

  285.   167          nxt^.prv := LocalProcRecPtr^.prv;
    286. 

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

  287. *****               ^ not supported yet
    288. 

  288. *****                      ^ not supported yet
    289. 

  289. *****                                       ^ not supported yet
    290. 

  290.   168        END;
    291. 

  291.   169        LocalProcRecPtr^.prv := NIL;
    292. 

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

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

  294.   170        LocalProcRecPtr^.TheProc := ATermProc(NIL);
    295. 

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

  296. *****                         ^ not supported yet
    297. 

  297. *****                                    ^ undeclared identifier
    298. 

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

  299.   171        IF NOT LocalProcRecPtr^.fromblock THEN
    300. 

  300. *****               ^ not supported yet
    301. 

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

  302.   172          VStorage.DosDealloc( LocalProcRecPtr, SYSTEM.TSIZE(AProcRec) );
    303. 

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

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

  305. *****                               ^ not supported yet
    306. 

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

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

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

  309.   173        END;
    310. 

  310.   174      END RemoveTermProc;
    311. 

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

  312.   175  
    313. 

  313.   176  
    314. 

  314.   177    PROCEDURE DefaultConfirm( TheMessage: ARRAY OF CHAR ): BOOLEAN;
    315. 

  315. *****                                                   ^ not supported yet
    316. 

  316.   178      VAR
    317. 

  317.   179        dummy: ARRAY [0..255] OF CHAR;
    318. 

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

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

  320.   180      BEGIN
    321. 

  321.   181        M2Strings.Assign( TheMessage, dummy );
    322. 

  322. *****        ^ not supported yet
    323. 

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

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

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

  326.   182        StrEdit.Append( dummy, '. Press C to continue, anything else to abort.' );
    327. 

  327. *****        ^ not supported yet
    328. 

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

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

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

  331.   183        StringIO.WriteEol( StringIO.ErrorOutp, '' );
    332. 

  332. *****        ^ not supported yet
    333. 

  333. *****                 ^ not supported yet
    334. 

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

  335. *****                                    ^ not supported yet
    336. 

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

  337.   184        StringIO.WriteEol( StringIO.ErrorOutp, dummy );
    338. 

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

  339. *****                 ^ not supported yet
    340. 

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

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

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

  343.   185        RETURN KbdInput.CAPkey( KbdInput.KeyHit(KbdInput.AnyKeyNum) ) # ORD('C');
    344. 

  344. *****               ^ not supported yet
    345. 

  345. *****                        ^ not supported yet
    346. 

  346. *****                                ^ not supported yet
    347. 

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

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

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

  350. *****                                                                        ^ undeclared identifier
    351. 

  351. *****                                                                               ^ not supported yet
    352. 

  352.   186      END DefaultConfirm;
    353. 

  353. *****          ^ not supported yet
    354. 

  354.   187  
    355. 

  355.   188  
    356. 

  356.   189    PROCEDURE InitStatProcs();
    357. 

  357.   190    (* Initialize the StaticProcs array. *)
    358. 

  358.   191      VAR
    359. 

  359.   192        i: CARDINAL;
    360. 

  360.   193      BEGIN
    361. 

  361.   194        FOR i := 1 TO (MaxStaticProcs - 1)  DO
    362. 

  362.   195          StaticProcs[i].prv := SYSTEM.ADR(StaticProcs[i+1]);
    363. 

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

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

  365. *****                         ^ not supported yet
    366. 

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

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

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

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

  370.   196          StaticProcs[i].fromblock := TRUE;
    371. 

  371. *****          ^ not supported yet
    372. 

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

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

  374.   197          StaticProcs[i].TheProc := ATermProc(NIL);
    375. 

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

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

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

  378. *****                                    ^ undeclared identifier
    379. 

  379. *****                                                 ^ not supported yet
    380. 

  380.   198        END;
    381. 

  381.   199        StaticProcs[MaxStaticProcs].prv := NIL;
    382. 

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

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

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

  385.   200        StaticProcs[MaxStaticProcs].fromblock := TRUE;
    386. 

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

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

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

  389.   201        StaticProcs[MaxStaticProcs].TheProc := ATermProc(NIL);
    390. 

  390. *****        ^ not supported yet
    391. 

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

  392. *****                                    ^ not supported yet
    393. 

  393. *****                                               ^ undeclared identifier
    394. 

  394. *****                                                            ^ not supported yet
    395. 

  395.   202      END InitStatProcs;
    396. 

  396. *****          ^ not supported yet
    397. 

  397.   203  
    398. 

  398.   204  
    399. 

  399.   205  PROCEDURE Init();
    400. 

  400.   206    BEGIN
    401. 

  401.   207      IF Initialized THEN
    402. 

  402.   208        RETURN;
    403. 

  403.   209      ELSE
    404. 

  404.   210        Initialized := TRUE;
    405. 

  405.   211      END;
    406. 

  406.   212      KbdInput.Init();
    407. 

  407. *****      ^ not supported yet
    408. 

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

  409. *****                    ^ not supported yet
    410. 

  410.   213      LowLevel.Init();
    411. 

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

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

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

  414.   214      M2Strings.Init();
    415. 

  415. *****      ^ not supported yet
    416. 

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

  417. *****                     ^ not supported yet
    418. 

  418.   215      StrConv.Init();
    419. 

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

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

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

  422.   216      StrEdit.Init();
    423. 

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

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

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

  426.   217      StringIO.Init();
    427. 

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

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

  429. *****                    ^ not supported yet
    430. 

  430.   218      VStorage.Init();
    431. 

  431. *****      ^ not supported yet
    432. 

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

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

  434.   219  
    435. 

  435.   220      KbdInput.Init();
    436. 

  436. *****      ^ not supported yet
    437. 

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

  438. *****                    ^ not supported yet
    439. 

  439.   221      Aborting := FALSE;
    440. 

  440.   222      TermProcStackTop := NIL;
    441. 

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

  442.   223      TermProcsDoneOnce := FALSE;
    443. 

  443.   224      WARN := CallHalt;
    444. 

  444. *****      ^ undeclared identifier
    445. 

  445. *****              ^ not supported yet
    446. 

  446.   225      WarnNumber := DefaultWarnNumber;
    447. 

  447. *****      ^ undeclared identifier
    448. 

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

  449.   226      AbortConfirmed := DefaultConfirm;
    450. 

  450. *****      ^ undeclared identifier
    451. 

  451. *****                        ^ not supported yet
    452. 

  452.   227      ProcCount := 0;
    453. 

  453.   228      InitStatProcs();
    454. 

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

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

  456.   229    END Init;
    457. 

  457. *****        ^ not supported yet
    458. 

  458.   230  
    459. 

  459.   231  
    460. 

  460.   232  BEGIN
    461. 

  461.   233    Initialized := FALSE;
    462. 

  462.   234    Init();
    463. 

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

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

  465.   235  END ErrorManager.
    466. 

  466. *****      ^ not supported yet
    467. 

  467. 

  468.   229 errors
    469. 

  469. 

  470.