Startsida Utforska Hjälp
Logga in
eric
/
Topspeed_JPI
1
0
Fork 0
Filer Ärenden 0 Pull-förfrågningar 0 Wiki
Gren: master
Grenar Taggar
Topspeed_JPI
/
TS-V3
/
REP16
/
FIELDTYP.LST

FIELDTYP.LST 33 KB
Permalänk Historik Rå

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE FieldTypes;
    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/fieldtyp.mov   1.7   10 Mar 1991 15:27:30   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  (*EntryDiag:
    19. 

  19.    17  IMPORT Diagnostics;
    20. 

  20.    18  :EntryDiag*)
    21. 

  21.    19  
    22. 

  22.    20  IMPORT Hash;
    23. 

  23.    21  IMPORT GenLists;
    24. 

  24.    22  IMPORT LowLevel;
    25. 

  25.    23  IMPORT M2Strings;
    26. 

  26.    24  IMPORT Numbers;
    27. 

  27.    25  IMPORT ScrnTypes;
    28. 

  28.    26  IMPORT StrConv;
    29. 

  29.    27  IMPORT StrEdit;
    30. 

  30.    28  IMPORT SYSTEM;
    31. 

  31.    29  IMPORT ErrorManager;
    32. 

  32.    30  IMPORT VStorage;
    33. 

  33.    31  
    34. 

  34.    32  VAR
    35. 

  35.    33    Initialized : BOOLEAN;
    36. 

  36.    34  
    37. 

  37.    35  CONST
    38. 

  38.    36    AfterLast = 65535;
    39. 

  39.    37    gotoConst = 'GOTO';
    40. 

  40. *****                ^ not supported yet
    41. 

  41.    38    stringConst = 'STRING';
    42. 

  42. *****                  ^ not supported yet
    43. 

  43.    39    integerConst = 'INTEGER';
    44. 

  44. *****                   ^ not supported yet
    45. 

  45.    40    realConst = 'REAL';
    46. 

  46. *****                ^ not supported yet
    47. 

  47.    41    groupConst = 'GROUP';
    48. 

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

  49.    42    choiceConst = 'CHOICE';
    50. 

  50. *****                  ^ not supported yet
    51. 

  51.    43    editorConst = 'EDITOR';
    52. 

  52. *****                  ^ not supported yet
    53. 

  53.    44    displayConst = 'DISPLAY';
    54. 

  54. *****                   ^ not supported yet
    55. 

  55.    45    displayonlyConst = 'DISPLAYONLY';
    56. 

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

  57.    46    dateConst = 'DATE';
    58. 

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

  59.    47    booleanConst = 'BOOLEAN';
    60. 

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

  61.    48  
    62. 

  62.    49  TYPE
    63. 

  63.    50    APromptTable = ARRAY [0..255] OF CARDINAL;
    64. 

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

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

  66.    51  
    67. 

  67.    52  VAR
    68. 

  68.    53    TableHandle: VStorage.MemHandle;
    69. 

  69. *****                          ^ not supported yet
    70. 

  70.    54    TablePointer: POINTER TO APromptTable;
    71. 

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

  72.    55  
    73. 

  73.    56    FieldTypeCodes : Hash.HashTable;
    74. 

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

  75.    57    TableInitialized : BOOLEAN;
    76. 

  76.    58    PromptList: GenLists.GenList;
    77. 

  77. *****                         ^ not supported yet
    78. 

  78.    59    CharConstSize: CARDINAL;
    79. 

  79.    60  
    80. 

  80.    61  
    81. 

  81.    62    PROCEDURE DisposeTable();
    82. 

  82.    63      BEGIN
    83. 

  83.    64        Hash.Dispose( FieldTypeCodes );
    84. 

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

  85. *****             ^ not supported yet
    86. 

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

  87.    65        GenLists.DisposeList( PromptList );
    88. 

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

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

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

  91.    66      END DisposeTable;
    92. 

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

  93.    67  
    94. 

  94.    68  
    95. 

  95.    69    PROCEDURE SetPrompts();
    96. 

  96.    70      VAR
    97. 

  97.    71        tmpstr: ARRAY [0..79] OF CHAR;
    98. 

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

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

  100.    72      BEGIN
    101. 

  101.    73        SetDefaultPrompt( editorConst,
    102. 

  102. *****        ^ undeclared identifier
    103. 

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

  104.    74            'Alt-D deletes lines; Alt-U undeletes; Shift-F7 toggles wrapping.' );
    105. 

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

  106.    75        StrEdit.AssignStr( 'Enter selects the highlighted choice.',
    107. 

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

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

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

  110.    76            tmpstr );
    111. 

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

  112.    77        StrConv.AppendDecoded( tmpstr, '#',
    113. 

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

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

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

  116.    78            'Use #024 or #025 to move to another choice.');
    117. 

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

  118.    79        SetDefaultPrompt( gotoConst, tmpstr );
    119. 

  119. *****        ^ undeclared identifier
    120. 

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

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

  122.    80        StrEdit.SetLength(tmpstr, 0);
    123. 

  123. *****        ^ not supported yet
    124. 

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

  125. *****                          ^ not supported yet
    126. 

  126. *****                                   ^ not supported yet
    127. 

  127.    81        StrConv.AppendDecoded(tmpstr, '#',
    128. 

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

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

  130. *****                              ^ not supported yet
    131. 

  131.    82            'Use #017#196 or #196#016 to change the highlighted choice, or');
    132. 

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

  133.    83        StrConv.AppendDecoded(tmpstr, '#',
    134. 

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

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

  136. *****                              ^ not supported yet
    137. 

  137.    84            ' #024#025 to move to another field.');
    138. 

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

  139.    85        SetDefaultPrompt( choiceConst, tmpstr );
    140. 

  140. *****        ^ undeclared identifier
    141. 

  141. *****                          ^ not supported yet
    142. 

  142. *****                                       ^ not supported yet
    143. 

  143.    86  
    144. 

  144.    87        StrEdit.AssignStr('Fill in the blank and press',tmpstr);
    145. 

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

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

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

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

  149.    88        StrConv.AppendDecoded(tmpstr, '#',
    150. 

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

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

  152. *****                              ^ not supported yet
    153. 

  153.    89            ' #024 or #025 to change fields, or F10 if finished.');
    154. 

  154. *****            ^ not supported yet
    155. 

  155.    90        SetDefaultPrompt( stringConst, tmpstr );
    156. 

  156. *****        ^ undeclared identifier
    157. 

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

  158. *****                                       ^ not supported yet
    159. 

  159.    91  
    160. 

  160.    92        StrEdit.AssignStr( 'Enter a number between MIN and MAX.',tmpstr);
    161. 

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

  162. *****                ^ not supported yet
    163. 

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

  164. *****                                                                 ^ not supported yet
    165. 

  165.    93          (* MAX and MIN are replaced with the true values at
    166. 

  166.    94             runtime. *)
    167. 

  167.    95        SetDefaultPrompt( integerConst, tmpstr );
    168. 

  168. *****        ^ undeclared identifier
    169. 

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

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

  171.    96        SetDefaultPrompt( realConst, tmpstr );
    172. 

  172. *****        ^ undeclared identifier
    173. 

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

  174. *****                                     ^ not supported yet
    175. 

  175.    97  
    176. 

  176.    98        SetDefaultPrompt( booleanConst,
    177. 

  177. *****        ^ undeclared identifier
    178. 

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

  179.    99            'Press space bar to select or deselect choice.' );
    180. 

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

  181.   100        SetDefaultPrompt( dateConst,
    182. 

  182. *****        ^ undeclared identifier
    183. 

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

  184.   101            'Enter a date in the form 12/25/88 or 12-25-1988.' );
    185. 

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

  186.   102      END SetPrompts;
    187. 

  187. *****          ^ not supported yet
    188. 

  188.   103  
    189. 

  189.   104  
    190. 

  190.   105    PROCEDURE FilledAssign( s1: ARRAY OF CHAR; VAR s2: ARRAY OF CHAR );
    191. 

  191. *****                                         ^ not supported yet
    192. 

  192. *****                                                                ^ not supported yet
    193. 

  193.   106      VAR
    194. 

  194.   107        len : CARDINAL;
    195. 

  195.   108      BEGIN
    196. 

  196.   109        LowLevel.Fill( SYSTEM.ADR(s2), HIGH(s2) + 1, 0C );
    197. 

  197. *****        ^ not supported yet
    198. 

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

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

  200. *****                              ^ not supported yet
    201. 

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

  202. *****                                       ^ undeclared identifier
    203. 

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

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

  205.   110        len := M2Strings.Length( s1 );
    206. 

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

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

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

  209.   111        IF len <= HIGH(s2) THEN
    210. 

  210. *****                  ^ undeclared identifier
    211. 

  211. *****                       ^ not supported yet
    212. 

  212.   112          LowLevel.Move( SYSTEM.ADR(s1), SYSTEM.ADR(s2), len );
    213. 

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

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

  215. *****                         ^ not supported yet
    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.   113        ELSE
    223. 

  223.   114          M2Strings.Assign( s1, s2 );
    224. 

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

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

  226. *****                            ^ not supported yet
    227. 

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

  228.   115        END;
    229. 

  229.   116      END FilledAssign;
    230. 

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

  231.   117  
    232. 

  232.   118  
    233. 

  233.   119    PROCEDURE InitTableIfNecessary();
    234. 

  234.   120      (* We can't call this in the module's initialization block
    235. 

  235.   121         because it does dynamic memory allocation, and Repertoire
    236. 

  236.   122         doesn't know where dynamic memory comes from until after
    237. 

  237.   123         the initialization sequence is over. *)
    238. 

  238.   124      VAR
    239. 

  239.   125        TmpTypeName: ARRAY [0..15] OF CHAR;
    240. 

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

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

  242.   126      BEGIN
    243. 

  243.   127        IF TableInitialized THEN
    244. 

  244.   128          RETURN;
    245. 

  245.   129        END;
    246. 

  246.   130        TableInitialized := TRUE;
    247. 

  247.   131        Hash.Define( FieldTypeCodes, 10, CharConstSize );
    248. 

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

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

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

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

  252.   132        FilledAssign( gotoConst, TmpTypeName );
    253. 

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

  254. *****                      ^ not supported yet
    255. 

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

  256.   133        Hash.Insert( FieldTypeCodes, TmpTypeName, 'J' );
    257. 

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

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

  259. *****                     ^ not supported yet
    260. 

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

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

  262.   134        FilledAssign( stringConst, TmpTypeName );
    263. 

  263. *****        ^ not supported yet
    264. 

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

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

  266.   135        Hash.Insert( FieldTypeCodes, TmpTypeName, 'S' );
    267. 

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

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

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

  270. *****                                     ^ not supported yet
    271. 

  271. *****                                                      ^ not supported yet
    272. 

  272.   136        FilledAssign( integerConst, TmpTypeName );
    273. 

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

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

  275. *****                                    ^ not supported yet
    276. 

  276.   137        Hash.Insert( FieldTypeCodes, TmpTypeName, 'I' );
    277. 

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

  278. *****             ^ not supported yet
    279. 

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

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

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

  282.   138        FilledAssign( realConst, TmpTypeName );
    283. 

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

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

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

  286.   139        Hash.Insert( FieldTypeCodes, TmpTypeName, 'R' );
    287. 

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

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

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

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

  291. *****                                                      ^ not supported yet
    292. 

  292.   140        FilledAssign( groupConst, TmpTypeName );
    293. 

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

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

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

  296.   141        Hash.Insert( FieldTypeCodes, TmpTypeName, 'C' );
    297. 

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

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

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

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

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

  302.   142        FilledAssign( choiceConst, TmpTypeName );
    303. 

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

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

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

  306.   143        Hash.Insert( FieldTypeCodes, TmpTypeName, 'C' );
    307. 

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

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

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

  310. *****                                     ^ not supported yet
    311. 

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

  312.   144        FilledAssign( editorConst, TmpTypeName );
    313. 

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

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

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

  316.   145        Hash.Insert( FieldTypeCodes, TmpTypeName, 'E' );
    317. 

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

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

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

  320. *****                                     ^ not supported yet
    321. 

  321. *****                                                      ^ not supported yet
    322. 

  322.   146        FilledAssign( displayConst, TmpTypeName );
    323. 

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

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

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

  326.   147        Hash.Insert( FieldTypeCodes, TmpTypeName, 'D' );
    327. 

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

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

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

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

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

  332.   148        FilledAssign( displayonlyConst, TmpTypeName );
    333. 

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

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

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

  336.   149        Hash.Insert( FieldTypeCodes, TmpTypeName, 'D' );
    337. 

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

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

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

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

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

  342.   150        FilledAssign( dateConst, TmpTypeName );
    343. 

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

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

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

  346.   151        Hash.Insert( FieldTypeCodes, TmpTypeName, 'T' );
    347. 

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

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

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

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

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

  352.   152        FilledAssign( booleanConst, TmpTypeName );
    353. 

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

  354. *****                      ^ not supported yet
    355. 

  355. *****                                    ^ not supported yet
    356. 

  356.   153        Hash.Insert( FieldTypeCodes, TmpTypeName, 'B' );
    357. 

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

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

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

  360. *****                                     ^ not supported yet
    361. 

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

  362.   154        IF NOT VStorage.AllocMem( TableHandle, SYSTEM.TSIZE(APromptTable) ) THEN
    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.   155        END;
    370. 

  370.   156        TablePointer := VStorage.LockMem( TableHandle );
    371. 

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

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

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

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

  375.   157        LowLevel.Fill( TablePointer, SYSTEM.TSIZE(APromptTable), 0C );
    376. 

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

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

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

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

  380. *****                                            ^ not supported yet
    381. 

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

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

  383.   158        VStorage.UnLockMem( TableHandle );
    384. 

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

  385. *****                 ^ not supported yet
    386. 

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

  387.   159        GenLists.NewList( PromptList );
    388. 

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

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

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

  391.   160        SetPrompts();
    392. 

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

  393. *****                   ^ not supported yet
    394. 

  394.   161        ErrorManager.AddTermProc( DisposeTable );
    395. 

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

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

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

  398.   162      END InitTableIfNecessary;
    399. 

  399. *****          ^ not supported yet
    400. 

  400.   163  
    401. 

  401.   164  
    402. 

  402.   165    PROCEDURE TypeCode( TypeName:
    403. 

  403.   166        ARRAY OF CHAR ): CHAR;
    404. 

  404. *****                 ^ not supported yet
    405. 

  405.   167      VAR
    406. 

  406.   168        TmpTypeName: ARRAY [0..15] OF CHAR;
    407. 

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

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

  409.   169        tmpch : CHAR;
    410. 

  410.   170        hash1, hash2, hash3 : CARDINAL;
    411. 

  411.   171      BEGIN
    412. 

  412.   172        InitTableIfNecessary();
    413. 

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

  414. *****                             ^ not supported yet
    415. 

  415.   173        FilledAssign( TypeName, TmpTypeName );
    416. 

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

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

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

  419.   174  
    420. 

  420.   175        (* We try to first spot the standard ones by simple string
    421. 

  421.   176           comparison for speed purposes. *)
    422. 

  422.   177        IF 0 = M2Strings.CompareStr( stringConst, TmpTypeName ) THEN
    423. 

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

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

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

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

  427.   178          RETURN 'S';
    428. 

  428.   179        ELSIF 0 = M2Strings.CompareStr( integerConst, TmpTypeName ) THEN
    429. 

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

  430. *****                            ^ not supported yet
    431. 

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

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

  433.   180          RETURN 'I';
    434. 

  434.   181        ELSIF 0 = M2Strings.CompareStr( realConst, TmpTypeName ) THEN
    435. 

  435. *****                  ^ not supported yet
    436. 

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

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

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

  439.   182          RETURN 'R';
    440. 

  440.   183        ELSIF 0 = M2Strings.CompareStr( editorConst, TmpTypeName ) THEN
    441. 

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

  442. *****                            ^ not supported yet
    443. 

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

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

  445.   184          RETURN 'E';
    446. 

  446.   185        ELSIF 0 = M2Strings.CompareStr( dateConst, TmpTypeName ) THEN
    447. 

  447. *****                  ^ not supported yet
    448. 

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

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

  450. *****                                                   ^ not supported yet
    451. 

  451.   186          RETURN 'T';
    452. 

  452.   187        ELSIF 0 = M2Strings.CompareStr( gotoConst, TmpTypeName ) THEN
    453. 

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

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

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

  456. *****                                                   ^ not supported yet
    457. 

  457.   188          RETURN 'J';
    458. 

  458.   189        ELSIF 0 = M2Strings.CompareStr( groupConst, TmpTypeName ) THEN
    459. 

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

  460. *****                            ^ not supported yet
    461. 

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

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

  463.   190          RETURN 'C';
    464. 

  464.   191        ELSIF 0 = M2Strings.CompareStr( choiceConst, TmpTypeName ) THEN
    465. 

  465. *****                  ^ not supported yet
    466. 

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

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

  468. *****                                                     ^ not supported yet
    469. 

  469.   192          RETURN 'C';
    470. 

  470.   193        ELSIF 0 = M2Strings.CompareStr( displayConst, TmpTypeName ) THEN
    471. 

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

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

  473. *****                                        ^ not supported yet
    474. 

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

  475.   194          RETURN 'D';
    476. 

  476.   195        ELSIF 0 = M2Strings.CompareStr( displayonlyConst, TmpTypeName ) THEN
    477. 

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

  478. *****                            ^ not supported yet
    479. 

  479. *****                                        ^ not supported yet
    480. 

  480. *****                                                          ^ not supported yet
    481. 

  481.   196          RETURN 'D';
    482. 

  482.   197        ELSIF 0 = M2Strings.CompareStr( booleanConst, TmpTypeName ) THEN
    483. 

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

  484. *****                            ^ not supported yet
    485. 

  485. *****                                        ^ not supported yet
    486. 

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

  487.   198          RETURN 'B';
    488. 

  488.   199        ELSIF Hash.KeyFind( FieldTypeCodes, TmpTypeName ) THEN
    489. 

  489. *****              ^ not supported yet
    490. 

  490. *****                   ^ not supported yet
    491. 

  491. *****                            ^ not supported yet
    492. 

  492. *****                                            ^ not supported yet
    493. 

  493.   200          Hash.GetData( FieldTypeCodes, tmpch );
    494. 

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

  495. *****               ^ not supported yet
    496. 

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

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

  498.   201        ELSE
    499. 

  499.   202          Hash.Compute( TmpTypeName, hash1, hash2, hash3 );
    500. 

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

  501. *****               ^ not supported yet
    502. 

  502. *****                        ^ not supported yet
    503. 

  503. *****                                                         ^ not supported yet
    504. 

  504.   203          IF Numbers.CardIsBetween( ORD('['), hash2, 255 ) THEN
    505. 

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

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

  507. *****                                    ^ undeclared identifier
    508. 

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

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

  510.   204            tmpch := CHR( hash2 );
    511. 

  511. *****                     ^ undeclared identifier
    512. 

  512. *****                                ^ not supported yet
    513. 

  513.   205          ELSE
    514. 

  514.   206            tmpch := CHR( (hash2 MOD (255 - 91)) + 91 );
    515. 

  515. *****                     ^ undeclared identifier
    516. 

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

  517.   207              (*Force value into range 91 to 255.*)
    518. 

  518.   208          END;
    519. 

  519.   209          Hash.Insert( FieldTypeCodes, TmpTypeName, tmpch );
    520. 

  520. *****          ^ not supported yet
    521. 

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

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

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

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

  525.   210        END;
    526. 

  526.   211        RETURN tmpch;
    527. 

  527.   212      END TypeCode;
    528. 

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

  529.   213  
    530. 

  530.   214  
    531. 

  531.   215    PROCEDURE SetDefaultPrompt( TypeName: ARRAY OF CHAR;
    532. 

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

  533.   216        TheStr: ARRAY OF CHAR );
    534. 

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

  535.   217      VAR
    536. 

  536.   218        OrdOfType: CARDINAL;
    537. 

  537.   219      BEGIN
    538. 

  538.   220        InitTableIfNecessary();
    539. 

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

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

  541.   221        StrEdit.CAPstr( TypeName );
    542. 

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

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

  544. *****                        ^ not supported yet
    545. 

  545.   222        TablePointer := VStorage.LockMem( TableHandle );
    546. 

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

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

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

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

  550.   223        OrdOfType := ORD( TypeCode(  TypeName ) );
    551. 

  551. *****                     ^ undeclared identifier
    552. 

  552. *****                          ^ not supported yet
    553. 

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

  554.   224        VStorage.UnLockMem( TableHandle );
    555. 

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

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

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

  558.   225        IF TablePointer^[ OrdOfType ] = 0 THEN
    559. 

  559. *****           ^ not supported yet
    560. 

  560. *****                                    ^ not supported yet
    561. 

  561.   226          GenLists.ListInsert( TheStr, GenLists.StrCode,
    562. 

  562. *****          ^ not supported yet
    563. 

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

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

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

  566. *****                                                ^ not supported yet
    567. 

  567.   227              PromptList, AfterLast );
    568. 

  568. *****              ^ not supported yet
    569. 

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

  570.   228          TablePointer := VStorage.LockMem( TableHandle );
    571. 

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

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

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

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

  575.   229          TablePointer^[ OrdOfType ] := GenLists.ListLength( PromptList );
    576. 

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

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

  578. *****                                        ^ not supported yet
    579. 

  579. *****                                                 ^ not supported yet
    580. 

  580. *****                                                             ^ not supported yet
    581. 

  581.   230          VStorage.UnLockMem( TableHandle );
    582. 

  582. *****          ^ not supported yet
    583. 

  583. *****                   ^ not supported yet
    584. 

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

  585.   231        ELSE
    586. 

  586.   232          TablePointer := VStorage.LockMem( TableHandle );
    587. 

  587. *****          ^ not supported yet
    588. 

  588. *****                          ^ not supported yet
    589. 

  589. *****                                   ^ not supported yet
    590. 

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

  591.   233          GenLists.ListReplace( TheStr, GenLists.StrCode,
    592. 

  592. *****          ^ not supported yet
    593. 

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

  594. *****                                ^ not supported yet
    595. 

  595. *****                                        ^ not supported yet
    596. 

  596. *****                                                 ^ not supported yet
    597. 

  597.   234              PromptList, TablePointer^[ OrdOfType ] );
    598. 

  598. *****              ^ not supported yet
    599. 

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

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

  601.   235          VStorage.UnLockMem( TableHandle );
    602. 

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

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

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

  605.   236        END;
    606. 

  606.   237      END SetDefaultPrompt;
    607. 

  607. *****          ^ not supported yet
    608. 

  608.   238  
    609. 

  609.   239  
    610. 

  610.   240    PROCEDURE GetDefaultPrompt( TypeCode: CHAR; VAR TheStr: ARRAY
    611. 

  611.   241        OF CHAR );
    612. 

  612. *****           ^ not supported yet
    613. 

  613.   242      VAR
    614. 

  614.   243        DumType, ListSpot : CARDINAL;
    615. 

  615.   244      BEGIN
    616. 

  616.   245        InitTableIfNecessary();
    617. 

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

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

  619.   246        StrEdit.SetLength( TheStr, 0 );
    620. 

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

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

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

  623. *****                                     ^ not supported yet
    624. 

  624.   247        TablePointer := VStorage.LockMem( TableHandle );
    625. 

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

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

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

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

  629.   248        VStorage.UnLockMem( TableHandle );
    630. 

  630. *****        ^ not supported yet
    631. 

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

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

  633.   249        ListSpot := TablePointer^[ ORD(TypeCode) ];
    634. 

  634. *****                    ^ not supported yet
    635. 

  635. *****                                   ^ undeclared identifier
    636. 

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

  637.   250        IF ListSpot = 0 THEN
    638. 

  638.   251          RETURN;
    639. 

  639.   252        END;
    640. 

  640.   253        GenLists.GetElmt( PromptList, ListSpot, TheStr, DumType );
    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.   254      END GetDefaultPrompt;
    647. 

  647. *****          ^ not supported yet
    648. 

  648.   255  
    649. 

  649.   256  
    650. 

  650.   257    PROCEDURE GetCharConstSize(theChar: ARRAY OF CHAR): CARDINAL;
    651. 

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

  652.   258    (* We don't know how many bytes a character constant really
    653. 

  653.   259       occupies.  Stony Brook now has an implicit null at the end
    654. 

  654.   260       of a char const.  JPI doesn't. *)
    655. 

  655.   261    BEGIN
    656. 

  656.   262      RETURN HIGH(theChar) + 1;
    657. 

  657. *****             ^ undeclared identifier
    658. 

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

  659.   263    END GetCharConstSize;
    660. 

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

  661.   264  
    662. 

  662.   265  
    663. 

  663.   266    PROCEDURE Init();
    664. 

  664.   267      BEGIN
    665. 

  665.   268        IF Initialized THEN
    666. 

  666.   269          RETURN;
    667. 

  667.   270        ELSE
    668. 

  668.   271          Initialized := TRUE;
    669. 

  669.   272        END;
    670. 

  670.   273  (*EntryDiag:
    671. 

  671.   274        Diagnostics.Init();
    672. 

  672.   275  :EntryDiag*)
    673. 

  673.   276  
    674. 

  674.   277        Hash.Init();
    675. 

  675. *****        ^ not supported yet
    676. 

  676. *****             ^ not supported yet
    677. 

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

  678.   278        GenLists.Init();
    679. 

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

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

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

  682.   279        LowLevel.Init();
    683. 

  683. *****        ^ not supported yet
    684. 

  684. *****                 ^ not supported yet
    685. 

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

  686.   280        M2Strings.Init();
    687. 

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

  688. *****                  ^ not supported yet
    689. 

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

  690.   281        Numbers.Init();
    691. 

  691. *****        ^ not supported yet
    692. 

  692. *****                ^ not supported yet
    693. 

  693. *****                     ^ not supported yet
    694. 

  694.   282        ScrnTypes.Init();
    695. 

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

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

  697. *****                       ^ not supported yet
    698. 

  698.   283        StrConv.Init();
    699. 

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

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

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

  702.   284        StrEdit.Init();
    703. 

  703. *****        ^ not supported yet
    704. 

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

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

  706.   285        ErrorManager.Init();
    707. 

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

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

  709. *****                          ^ not supported yet
    710. 

  710.   286        VStorage.Init();
    711. 

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

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

  713. *****                      ^ not supported yet
    714. 

  714.   287  (*EntryDiag:
    715. 

  715.   288        Diagnostics.diagS( 'Entering FieldTypes', '' );
    716. 

  716.   289  :EntryDiag*)
    717. 

  717.   290  
    718. 

  718.   291        CharConstSize := GetCharConstSize('A');
    719. 

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

  720. *****                                             ^ not supported yet
    721. 

  721.   292        TableInitialized := FALSE;
    722. 

  722.   293        GenLists.NilList( PromptList );
    723. 

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

  724. *****                 ^ not supported yet
    725. 

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

  726.   294        VStorage.NilHandle( TableHandle );
    727. 

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

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

  729. *****                            ^ not supported yet
    730. 

  730.   295        TablePointer := NIL;
    731. 

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

  732.   296  
    733. 

  733.   297  (*EntryDiag:
    734. 

  734.   298        Diagnostics.diagS( 'Exiting FieldTypes', '' );
    735. 

  735.   299  :EntryDiag*)
    736. 

  736.   300      END Init;
    737. 

  737. *****          ^ not supported yet
    738. 

  738.   301  
    739. 

  739.   302  BEGIN
    740. 

  740.   303    Initialized := FALSE;
    741. 

  741.   304    Init();
    742. 

  742. *****    ^ not supported yet
    743. 

  743. *****         ^ not supported yet
    744. 

  744.   305  END FieldTypes.
    745. 

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

  746. 

  747.   438 errors
    748. 

  748. 

  749.