صفحهٔ اصلی گشت‌و‌گذار راهنما
ورود
eric
/
Topspeed_JPI
1
0
انشعاب 0
پرونده‌ها مشکلات 0 درخواست واکشی 0 ویکی
شاخه: master
شاخه‌ها تگ‌ها
Topspeed_JPI
/
TS-V3
/
REP16
/
SCRN2NDX.LST

SCRN2NDX.LST 45 KB
لینک دائمی تاريخچه خام

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE Scrn2Ndx;
    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/scrn2ndx.mov   1.5   10 Mar 1991 15:32:02   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  IMPORT ControlUtils;
    19. 

  19.    17  IMPORT GenLists;
    20. 

  20.    18  IMPORT LowLevel;
    21. 

  21.    19  IMPORT M2Strings;
    22. 

  22.    20  IMPORT NdxBones;
    23. 

  23.    21  IMPORT NdxFiles;
    24. 

  24.    22  IMPORT NdxTypes;
    25. 

  25.    23  IMPORT ScrnTypes;
    26. 

  26.    24  IMPORT ScrnUtl1;
    27. 

  27.    25  IMPORT StrEdit;
    28. 

  28.    26  IMPORT SYSTEM;
    29. 

  29.    27  
    30. 

  30.    28  VAR
    31. 

  31.    29    Initialized : BOOLEAN;
    32. 

  32.    30  
    33. 

  33.    31    PROCEDURE Init();
    34. 

  34.    32      BEGIN
    35. 

  35.    33        IF Initialized THEN
    36. 

  36.    34          RETURN;
    37. 

  37.    35        ELSE
    38. 

  38.    36          Initialized := TRUE;
    39. 

  39.    37        END;
    40. 

  40.    38        ControlUtils.Init();
    41. 

  41. *****        ^ not supported yet
    42. 

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

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

  44.    39        GenLists.Init();
    45. 

  45. *****        ^ not supported yet
    46. 

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

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

  48.    40        LowLevel.Init();
    49. 

  49. *****        ^ not supported yet
    50. 

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

  51. *****                      ^ not supported yet
    52. 

  52.    41        M2Strings.Init();
    53. 

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

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

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

  56.    42        NdxBones.Init();
    57. 

  57. *****        ^ not supported yet
    58. 

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

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

  60.    43        NdxFiles.Init();
    61. 

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

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

  63. *****                      ^ not supported yet
    64. 

  64.    44        NdxTypes.Init();
    65. 

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

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

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

  68.    45        ScrnTypes.Init();
    69. 

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

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

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

  72.    46        ScrnUtl1.Init();
    73. 

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

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

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

  76.    47        StrEdit.Init();
    77. 

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

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

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

  80.    48      END Init;
    81. 

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

  82.    49  
    83. 

  83.    50  PROCEDURE PutScrRec( VAR NdxFile: NdxTypes.NdxFileType; VAR
    84. 

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

  85.    51      TheFrame: ScrnTypes.DisplayFrame; VAR RecName: ARRAY OF CHAR;
    86. 

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

  87. *****                                                              ^ not supported yet
    88. 

  88.    52      KeyField: ARRAY OF CHAR): BOOLEAN;
    89. 

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

  90.    53    (* Puts current screen data in out as a record. If RecName is
    91. 

  91.    54       not null, it contains the record name to use. If RecName is
    92. 

  92.    55       null, KeyField contains the name of the field on the screen
    93. 

  93.    56       to use as the Record Name. RecName will always return the
    94. 

  94.    57       record name used. *)
    95. 

  95.    58    VAR
    96. 

  96.    59      FoundAny: BOOLEAN;
    97. 

  97.    60      FileStr: ARRAY [0..255] OF CHAR;
    98. 

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

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

  100.    61      TmpList, TmpList2: GenLists.GenList;
    101. 

  101. *****                                  ^ not supported yet
    102. 

  102.    62      FieldCount: CARDINAL;
    103. 

  103.    63      FieldRec: ScrnTypes.InputFieldRecord;
    104. 

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

  105.    64      ImageRec: ScrnTypes.ImageElement;
    106. 

  106. *****                          ^ not supported yet
    107. 

  107.    65  
    108. 

  108.    66    BEGIN
    109. 

  109.    67      FoundAny := FALSE;
    110. 

  110.    68      IF M2Strings.Length( RecName) = 0 THEN
    111. 

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

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

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

  114.    69        (* read record name from field named in KeyField *)
    115. 

  115.    70        ControlUtils.ReadInput( TheFrame, RecName, KeyField);
    116. 

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

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

  118. *****                                ^ not supported yet
    119. 

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

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

  121.    71      END;
    122. 

  122.    72      StrEdit.CrunchBlanks( RecName );
    123. 

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

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

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

  126.    73      FieldCount := 1;
    127. 

  127.    74      REPEAT
    128. 

  128.    75        (* flip through the named fields on screen and put
    129. 

  129.    76           their values in the record if they are in the
    130. 

  130.    77           structure *)
    131. 

  131.    78        ScrnUtl1.GetFieldRec( TheFrame, FieldCount, FieldRec );
    132. 

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

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

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

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

  136.    79        ScrnUtl1.GetImageRec( TheFrame, FieldRec.ImageNum, ImageRec );
    137. 

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

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

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

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

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

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

  143.    80        IF M2Strings.Length( FieldRec.fnam) # 0 THEN
    144. 

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

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

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

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

  148.    81          (* for each named field *)
    149. 

  149.    82          IF FieldRec.typ # ScrnTypes.GroupMember THEN
    150. 

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

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

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

  153. *****                                      ^ not supported yet
    154. 

  154.    83            (* for any field except a group *)
    155. 

  155.    84            IF FieldRec.typ = ScrnTypes.EditorCode THEN
    156. 

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

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

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

  159. *****                                        ^ not supported yet
    160. 

  160.    85              (*We store editor fields as sublists.*)
    161. 

  161.    86              IF ScrnUtl1.ListFromEdField( TheFrame, FieldCount, TmpList ) THEN
    162. 

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

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

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

  165. *****                                                                 ^ not supported yet
    166. 

  166.    87                GenLists.CopyList( TmpList, TmpList2 );
    167. 

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

  168. *****                         ^ not supported yet
    169. 

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

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

  171.    88                FoundAny := NdxFiles.PutField( NdxFile, RecName, FieldRec.fnam,
    172. 

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

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

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

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

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

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

  178.    89                    GenLists.ListCode, TmpList2) OR FoundAny;
    179. 

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

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

  181. *****                                       ^ not supported yet
    182. 

  182.    90              END;
    183. 

  183.    91            ELSE
    184. 

  184.    92              StrEdit.CutTrailingChars( ' ', ImageRec.text );
    185. 

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

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

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

  188. *****                                                      ^ not supported yet
    189. 

  189.    93              FoundAny := NdxFiles.PutField( NdxFile, RecName, FieldRec.fnam,
    190. 

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

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

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

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

  194. *****                                                               ^ not supported yet
    195. 

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

  196.    94                  GenLists.StrCode, ImageRec.text ) OR FoundAny;
    197. 

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

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

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

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

  201.    95            END;
    202. 

  202.    96          ELSIF FieldRec.selected THEN
    203. 

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

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

  205.    97            (* for selected members of a group put a ONE *)
    206. 

  206.    98            FoundAny := NdxFiles.PutField( NdxFile, RecName, FieldRec.fnam,
    207. 

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

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

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

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

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

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

  213.    99                GenLists.StrCode, '1') OR FoundAny;
    214. 

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

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

  216. *****                                     ^ not supported yet
    217. 

  217.   100          ELSE
    218. 

  218.   101            (* for non-selected members of a group put a NULL *)
    219. 

  219.   102            FoundAny := NdxFiles.PutField( NdxFile, RecName, FieldRec.fnam,
    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.   103                GenLists.StrCode, '') OR FoundAny;
    227. 

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

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

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

  230.   104          END;
    231. 

  231.   105        END;
    232. 

  232.   106        INC( FieldCount );
    233. 

  233. *****        ^ undeclared identifier
    234. 

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

  235.   107      UNTIL FieldCount > ScrnUtl1.FieldListTotal( TheFrame );
    236. 

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

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

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

  239.   108      RETURN FoundAny;
    240. 

  240.   109    END PutScrRec;
    241. 

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

  242.   110  
    243. 

  243.   111  PROCEDURE FillScr( VAR NdxFile: NdxTypes.NdxFileType; VAR
    244. 

  244. *****                                           ^ not supported yet
    245. 

  245.   112      TheFrame: ScrnTypes.DisplayFrame; VAR RecName: ARRAY OF CHAR;
    246. 

  246. *****                          ^ not supported yet
    247. 

  247. *****                                                              ^ not supported yet
    248. 

  248.   113      KeyField: ARRAY OF CHAR): BOOLEAN;
    249. 

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

  250.   114  (* Fills the current screen with the data from the record named
    251. 

  251.   115     in RecName if RecName is not null. If RecName is null, KeyField
    252. 

  252.   116     contains the name of the field on the screen to use as the
    253. 

  253.   117     Record Name. RecName will always return the record name used.*)
    254. 

  254.   118    VAR
    255. 

  255.   119      FoundAny: BOOLEAN;
    256. 

  256.   120      FileStr, BlankStr: ARRAY [0..255] OF CHAR;
    257. 

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

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

  259.   121      FileLeng, ScrLeng, TheType: CARDINAL;
    260. 

  260.   122      TmpList, TmpList2: GenLists.GenList;
    261. 

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

  262.   123      FieldCount: CARDINAL;
    263. 

  263.   124      FieldRec: ScrnTypes.InputFieldRecord;
    264. 

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

  265.   125      ImageRec: ScrnTypes.ImageElement;
    266. 

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

  267.   126  
    268. 

  268.   127    BEGIN
    269. 

  269.   128      LowLevel.Fill( SYSTEM.ADR( BlankStr), HIGH(BlankStr) + 1, ' ');
    270. 

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

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

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

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

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

  275. *****                                            ^ undeclared identifier
    276. 

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

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

  278.   129      FoundAny := FALSE;
    279. 

  279.   130      IF M2Strings.Length( RecName) = 0 THEN
    280. 

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

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

  282. *****                           ^ not supported yet
    283. 

  283.   131        (* read record name from field named in KeyField *)
    284. 

  284.   132        ControlUtils.ReadInput( TheFrame, RecName, KeyField);
    285. 

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

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

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

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

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

  290.   133      END;
    291. 

  291.   134      StrEdit.CrunchBlanks( RecName );
    292. 

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

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

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

  295.   135      FieldCount := 1;
    296. 

  296.   136      REPEAT
    297. 

  297.   137        (* flip through the named fields on screen and extract
    298. 

  298.   138           their value from the file if they exist there *)
    299. 

  299.   139        ScrnUtl1.GetFieldRec( TheFrame, FieldCount, FieldRec );
    300. 

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

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

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

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

  304.   140        ScrnUtl1.GetImageRec( TheFrame, FieldRec.ImageNum, ImageRec );
    305. 

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

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

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

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

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

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

  311.   141        IF (M2Strings.Length( FieldRec.fnam) # 0) AND
    312. 

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

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

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

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

  316.   142           NdxFiles.GetField( NdxFile, RecName, FieldRec.fnam,
    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. *****                                                         ^ not supported yet
    323. 

  323.   143                TheType, FileStr) THEN
    324. 

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

  325.   144          (* for each named field we can get from the file *)
    326. 

  326.   145          IF FieldRec.typ # ScrnTypes.GroupMember THEN
    327. 

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

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

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

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

  331.   146            (* for any field except a group *)
    332. 

  332.   147            FoundAny := TRUE;
    333. 

  333.   148            IF TheType = GenLists.StrCode THEN
    334. 

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

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

  336.   149              FileLeng := M2Strings.Length( FileStr);
    337. 

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

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

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

  340.   150              ScrLeng := M2Strings.Length( ImageRec.text);
    341. 

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

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

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

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

  345.   151              IF FileLeng < ScrLeng THEN
    346. 

  346.   152                (*We need to pad out stored string with blanks to
    347. 

  347.   153                  match length of screen field.*)
    348. 

  348.   154                StrEdit.SetLength( BlankStr, ScrLeng - FileLeng);
    349. 

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

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

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

  352. *****                                                               ^ not supported yet
    353. 

  353.   155                StrEdit.Append( FileStr, BlankStr);
    354. 

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

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

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

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

  358.   156              END;
    359. 

  359.   157              IF FieldRec.typ # ScrnTypes.EditorCode THEN
    360. 

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

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

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

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

  364.   158                StrEdit.AssignStr( FileStr, ImageRec.text);
    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.   159              ELSE
    371. 

  371.   160                GenLists.NewList( TmpList );
    372. 

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

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

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

  375.   161                GenLists.ListInsert( FileStr, GenLists.StrCode, TmpList, 1 );
    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.   162                IF NOT ScrnUtl1.ListToEdField( TmpList, TheFrame,
    384. 

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

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

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

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

  388.   163                    FieldCount ) THEN
    389. 

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

  390.   164                  HALT();
    391. 

  391. *****                  ^ undeclared identifier
    392. 

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

  393.   165                END;
    394. 

  394.   166              END;
    395. 

  395.   167            ELSIF TheType = GenLists.ListCode THEN
    396. 

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

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

  398.   168              IF FieldRec.typ = ScrnTypes.EditorCode THEN
    399. 

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

  400. *****                          ^ not supported yet
    401. 

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

  402. *****                                          ^ not supported yet
    403. 

  403.   169                (*Make sure it's an editor field before we fill
    404. 

  404.   170                  it with a list.*)
    405. 

  405.   171                IF NdxFiles.GetField( NdxFile, RecName,
    406. 

  406. *****                   ^ not supported yet
    407. 

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

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

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

  410.   172                    FieldRec.fnam, TheType, TmpList ) THEN
    411. 

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

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

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

  414.   173                  GenLists.CopyList( TmpList, TmpList2 );
    415. 

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

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

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

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

  419.   174                  IF NOT ScrnUtl1.ListToEdField( TmpList2, TheFrame,
    420. 

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

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

  422. *****                                                 ^ not supported yet
    423. 

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

  424.   175                      FieldCount ) THEN
    425. 

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

  426.   176                    HALT();
    427. 

  427. *****                    ^ undeclared identifier
    428. 

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

  429.   177                  END;
    430. 

  430.   178                END;
    431. 

  431.   179              END;
    432. 

  432.   180            (*You could add additional data conversion operations
    433. 

  433.   181              here.*)
    434. 

  434.   182            END;
    435. 

  435.   183          ELSE
    436. 

  436.   184            (* for members of a group *)
    437. 

  437.   185            FoundAny := TRUE;
    438. 

  438.   186            FieldRec.selected := M2Strings.Length( FileStr) # 0;
    439. 

  439. *****            ^ not supported yet
    440. 

  440. *****                     ^ not supported yet
    441. 

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

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

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

  444.   187            (* this simple logic assumes that the groups are the
    445. 

  445.   188               same on input and display screens *)
    446. 

  446.   189          END;
    447. 

  447.   190          ScrnUtl1.PutFieldImageRec( ImageRec, TheFrame, FieldCount );
    448. 

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

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

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

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

  452. *****                                                                    ^ not supported yet
    453. 

  453.   191          ScrnUtl1.PutFieldRec( FieldRec, TheFrame, FieldCount );
    454. 

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

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

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

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

  458. *****                                                               ^ not supported yet
    459. 

  459.   192        END;
    460. 

  460.   193        INC( FieldCount );
    461. 

  461. *****        ^ undeclared identifier
    462. 

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

  463.   194      UNTIL FieldCount > ScrnUtl1.FieldListTotal( TheFrame );
    464. 

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

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

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

  467.   195      RETURN FoundAny;
    468. 

  468.   196    END FillScr;
    469. 

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

  470.   197  
    471. 

  471.   198  
    472. 

  472.   199  PROCEDURE PutScrFast( VAR NdxFile: NdxTypes.NdxFileType; VAR
    473. 

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

  474.   200      TheFrame: ScrnTypes.DisplayFrame; VAR RecName: ARRAY OF CHAR;
    475. 

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

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

  477.   201      KeyField: ARRAY OF CHAR): BOOLEAN;
    478. 

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

  479.   202  (* Works like PutScrRec except that it requires an exact match
    480. 

  480.   203     between all named fields in the screen and the file record *)
    481. 

  481.   204    VAR
    482. 

  482.   205      Selctd: BOOLEAN;
    483. 

  483.   206      FileStr: ARRAY [0..255] OF CHAR;
    484. 

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

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

  486.   207      TmpList, TmpList2: GenLists.GenList;
    487. 

  487. *****                                  ^ not supported yet
    488. 

  488.   208      FileCntr, FileStructLen: CARDINAL;
    489. 

  489.   209      FieldCount: CARDINAL;
    490. 

  490.   210      FieldRec: ScrnTypes.InputFieldRecord;
    491. 

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

  492.   211      ImageRec: ScrnTypes.ImageElement;
    493. 

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

  494.   212  
    495. 

  495.   213    BEGIN
    496. 

  496.   214      IF M2Strings.Length( RecName) = 0 THEN
    497. 

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

  498. *****                   ^ not supported yet
    499. 

  499. *****                           ^ not supported yet
    500. 

  500.   215        (* read record name from field named in KeyField *)
    501. 

  501.   216        ControlUtils.ReadInput( TheFrame, RecName, KeyField);
    502. 

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

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

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

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

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

  507.   217      END;
    508. 

  508.   218      StrEdit.CrunchBlanks( RecName );
    509. 

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

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

  511. *****                            ^ not supported yet
    512. 

  512.   219      IF NOT NdxBones.InitBuffer( NdxFile, RecName) THEN
    513. 

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

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

  515. *****                                  ^ not supported yet
    516. 

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

  517.   220        (* Loads file buffer with desired record; false result
    518. 

  518.   221           probably indicates we're creating a new record, but
    519. 

  519.   222           could actually indicate an error.  We trust that we
    520. 

  520.   223           will catch an error below. *)
    521. 

  521.   224      END;
    522. 

  522.   225      FieldCount := 1;
    523. 

  523.   226      FileCntr := 0;
    524. 

  524.   227      (* used to count fields written to record *)
    525. 

  525.   228      FileStructLen := GenLists.ListLength( NdxFile^.ListBuf);
    526. 

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

  527. *****                                ^ not supported yet
    528. 

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

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

  530.   229      REPEAT
    531. 

  531.   230        (* flip through the named fields on screen and store
    532. 

  532.   231           each in the record *)
    533. 

  533.   232        ScrnUtl1.GetFieldRec( TheFrame, FieldCount, FieldRec );
    534. 

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

  535. *****                 ^ not supported yet
    536. 

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

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

  538.   233        ScrnUtl1.GetImageRec( TheFrame, FieldRec.ImageNum, ImageRec );
    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. *****                                                           ^ not supported yet
    545. 

  545.   234        IF M2Strings.Length( FieldRec.fnam) # 0 THEN
    546. 

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

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

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

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

  550.   235          (* for each named field *)
    551. 

  551.   236          INC( FileCntr);
    552. 

  552. *****          ^ undeclared identifier
    553. 

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

  554.   237          (* go to next field in file *)
    555. 

  555.   238          IF FileCntr > FileStructLen THEN
    556. 

  556.   239            RETURN FALSE;
    557. 

  557.   240          END;
    558. 

  558.   241          IF FieldRec.typ # ScrnTypes.GroupMember THEN
    559. 

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

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

  561. *****                            ^ not supported yet
    562. 

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

  563.   242            (* for any field except a group *)
    564. 

  564.   243            IF FieldRec.typ = ScrnTypes.EditorCode THEN
    565. 

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

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

  567. *****                              ^ not supported yet
    568. 

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

  569.   244              (*We store editor fields as sublists.*)
    570. 

  570.   245              IF ScrnUtl1.ListFromEdField( TheFrame, FieldCount, TmpList ) THEN
    571. 

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

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

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

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

  575.   246                GenLists.CopyList( TmpList, TmpList2 );
    576. 

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

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

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

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

  580.   247                GenLists.ListReplace( TmpList2, GenLists.ListCode,
    581. 

  581. *****                ^ not supported yet
    582. 

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

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

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

  585. *****                                                         ^ not supported yet
    586. 

  586.   248                    NdxFile^.ListBuf, FileCntr);
    587. 

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

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

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

  590.   249              END;
    591. 

  591.   250            ELSE
    592. 

  592.   251              StrEdit.CutTrailingChars( ' ', ImageRec.text );
    593. 

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

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

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

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

  597.   252              GenLists.ListReplace( ImageRec.text, GenLists.StrCode,
    598. 

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

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

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

  601. *****                                             ^ not supported yet
    602. 

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

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

  604.   253                  NdxFile^.ListBuf, FileCntr);
    605. 

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

  606. *****                           ^ not supported yet
    607. 

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

  608.   254            END;
    609. 

  609.   255          ELSIF FieldRec.selected THEN
    610. 

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

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

  612.   256            (* for selected members of a group put a ONE *)
    613. 

  613.   257            GenLists.ListReplace( '1', GenLists.StrCode,
    614. 

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

  615. *****                     ^ not supported yet
    616. 

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

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

  618.   258                NdxFile^.ListBuf, FileCntr);
    619. 

  619. *****                ^ not supported yet
    620. 

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

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

  622.   259          ELSE
    623. 

  623.   260            (* for non-selected members of a group put a NULL *)
    624. 

  624.   261            GenLists.ListReplace( '', GenLists.StrCode,
    625. 

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

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

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

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

  629.   262                NdxFile^.ListBuf, FileCntr);
    630. 

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

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

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

  633.   263          END;
    634. 

  634.   264        END;
    635. 

  635.   265        INC( FieldCount );
    636. 

  636. *****        ^ undeclared identifier
    637. 

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

  638.   266      UNTIL FieldCount > ScrnUtl1.FieldListTotal( TheFrame );
    639. 

  639. *****                         ^ not supported yet
    640. 

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

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

  642.   267      RETURN TRUE;
    643. 

  643.   268     END PutScrFast;
    644. 

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

  645.   269  
    646. 

  646.   270  
    647. 

  647.   271  PROCEDURE FillScrFast( VAR NdxFile: NdxTypes.NdxFileType; VAR
    648. 

  648. *****                                               ^ not supported yet
    649. 

  649.   272      TheFrame: ScrnTypes.DisplayFrame; VAR RecName: ARRAY OF CHAR;
    650. 

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

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

  652.   273      KeyField: ARRAY OF CHAR): BOOLEAN;
    653. 

  653. *****                         ^ not supported yet
    654. 

  654.   274  (* Fills the current screen with the data from a record. Works
    655. 

  655.   275     like FillScr except that it requires an exact match between all
    656. 

  656.   276     named fields in the screen and the fields in the file record *)
    657. 

  657.   277    VAR
    658. 

  658.   278      Selctd : BOOLEAN;
    659. 

  659.   279      FileStr, BlankStr: ARRAY [0..255] OF CHAR;
    660. 

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

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

  662.   280      FileLeng, ScrLeng, TheType, FileCntr,
    663. 

  663.   281          FileStructLen: CARDINAL;
    664. 

  664.   282      TmpList, TmpList2: GenLists.GenList;
    665. 

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

  666.   283      FieldCount: CARDINAL;
    667. 

  667.   284      FieldRec: ScrnTypes.InputFieldRecord;
    668. 

  668. *****                          ^ not supported yet
    669. 

  669.   285      ImageRec: ScrnTypes.ImageElement;
    670. 

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

  671.   286  
    672. 

  672.   287    BEGIN
    673. 

  673.   288      LowLevel.Fill( SYSTEM.ADR( BlankStr), HIGH(BlankStr) + 1, ' ');
    674. 

  674. *****      ^ not supported yet
    675. 

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

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

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

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

  679. *****                                            ^ undeclared identifier
    680. 

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

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

  682.   289      IF M2Strings.Length( RecName) = 0 THEN
    683. 

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

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

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

  686.   290        (* read record name from field named in KeyField *)
    687. 

  687.   291        ControlUtils.ReadInput( TheFrame, RecName, KeyField);
    688. 

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

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

  690. *****                                ^ not supported yet
    691. 

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

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

  693.   292      END;
    694. 

  694.   293      StrEdit.CrunchBlanks( RecName );
    695. 

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

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

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

  698.   294      IF NOT NdxBones.InitBuffer( NdxFile, RecName) THEN
    699. 

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

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

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

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

  703.   295        (* loads file buffer with desired record *)
    704. 

  704.   296        RETURN FALSE;
    705. 

  705.   297      END;
    706. 

  706.   298      FieldCount := 1;
    707. 

  707.   299      FileCntr := 0;
    708. 

  708.   300      FileStructLen := GenLists.ListLength( NdxFile^.ListBuf);
    709. 

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

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

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

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

  713.   301      REPEAT
    714. 

  714.   302        (* flip through the named fields on screen and, for
    715. 

  715.   303           each, extract the next field in the file record *)
    716. 

  716.   304        ScrnUtl1.GetFieldRec( TheFrame, FieldCount, FieldRec );
    717. 

  717. *****        ^ not supported yet
    718. 

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

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

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

  721.   305        ScrnUtl1.GetImageRec( TheFrame, FieldRec.ImageNum, ImageRec );
    722. 

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

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

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

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

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

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

  728.   306        IF M2Strings.Length( FieldRec.fnam) # 0 THEN
    729. 

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

  730. *****                     ^ not supported yet
    731. 

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

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

  733.   307          (* for each named field *)
    734. 

  734.   308          INC( FileCntr);
    735. 

  735. *****          ^ undeclared identifier
    736. 

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

  737.   309          (* go to next field in file *)
    738. 

  738.   310          IF FileCntr > FileStructLen THEN
    739. 

  739.   311            RETURN FALSE;
    740. 

  740.   312          END;
    741. 

  741.   313          GenLists.GetElmt( NdxFile^.ListBuf, FileCntr, FileStr, TheType);
    742. 

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

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

  744. *****                            ^ not supported yet
    745. 

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

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

  747. *****                                                                        ^ not supported yet
    748. 

  748.   314          (*Read file value.*)
    749. 

  749.   315          IF FieldRec.typ # ScrnTypes.GroupMember THEN
    750. 

  750. *****             ^ not supported yet
    751. 

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

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

  753. *****                                      ^ not supported yet
    754. 

  754.   316            (* for any field except a group *)
    755. 

  755.   317            IF TheType = GenLists.StrCode THEN
    756. 

  756. *****                         ^ not supported yet
    757. 

  757. *****                                  ^ not supported yet
    758. 

  758.   318              FileLeng := M2Strings.Length( FileStr);
    759. 

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

  760. *****                                    ^ not supported yet
    761. 

  761. *****                                            ^ not supported yet
    762. 

  762.   319              ScrLeng := M2Strings.Length( ImageRec.text);
    763. 

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

  764. *****                                   ^ not supported yet
    765. 

  765. *****                                           ^ not supported yet
    766. 

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

  767.   320              IF FileLeng < ScrLeng THEN
    768. 

  768.   321                (*We need to pad out stored string with blanks to
    769. 

  769.   322                  match length of screen field.*)
    770. 

  770.   323                StrEdit.SetLength( BlankStr, ScrLeng - FileLeng);
    771. 

  771. *****                ^ not supported yet
    772. 

  772. *****                        ^ not supported yet
    773. 

  773. *****                                   ^ not supported yet
    774. 

  774. *****                                                               ^ not supported yet
    775. 

  775.   324                StrEdit.Append( FileStr, BlankStr);
    776. 

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

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

  778. *****                                ^ not supported yet
    779. 

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

  780.   325              END;
    781. 

  781.   326              IF FieldRec.typ # ScrnTypes.EditorCode THEN
    782. 

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

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

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

  785. *****                                          ^ not supported yet
    786. 

  786.   327                StrEdit.AssignStr( FileStr, ImageRec.text);
    787. 

  787. *****                ^ not supported yet
    788. 

  788. *****                        ^ not supported yet
    789. 

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

  790. *****                                            ^ not supported yet
    791. 

  791. *****                                                     ^ not supported yet
    792. 

  792.   328              ELSE
    793. 

  793.   329                GenLists.NewList( TmpList );
    794. 

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

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

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

  797.   330                GenLists.ListInsert( FileStr, GenLists.StrCode, TmpList, 1 );
    798. 

  798. *****                ^ not supported yet
    799. 

  799. *****                         ^ not supported yet
    800. 

  800. *****                                     ^ not supported yet
    801. 

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

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

  803. *****                                                                ^ not supported yet
    804. 

  804. *****                                                                           ^ not supported yet
    805. 

  805.   331                IF NOT ScrnUtl1.ListToEdField( TmpList, TheFrame,
    806. 

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

  807. *****                                ^ not supported yet
    808. 

  808. *****                                               ^ not supported yet
    809. 

  809. *****                                                        ^ not supported yet
    810. 

  810.   332                    FieldCount ) THEN
    811. 

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

  812.   333                  HALT();
    813. 

  813. *****                  ^ undeclared identifier
    814. 

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

  815.   334                END;
    816. 

  816.   335              END;
    817. 

  817.   336            ELSIF TheType = GenLists.ListCode THEN
    818. 

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

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

  820.   337              IF FieldRec.typ = ScrnTypes.EditorCode THEN
    821. 

  821. *****                 ^ not supported yet
    822. 

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

  823. *****                                ^ not supported yet
    824. 

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

  825.   338                (*Make sure it's an editor field before we fill
    826. 

  826.   339                  it with a list.*)
    827. 

  827.   340                GenLists.GetChildList( NdxFile^.ListBuf, FileCntr, TmpList);
    828. 

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

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

  830. *****                                       ^ not supported yet
    831. 

  831. *****                                                ^ not supported yet
    832. 

  832. *****                                                                   ^ not supported yet
    833. 

  833.   341                GenLists.CopyList( TmpList, TmpList2 );
    834. 

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

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

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

  837. *****                                            ^ not supported yet
    838. 

  838.   342                IF NOT ScrnUtl1.ListToEdField( TmpList2, TheFrame,
    839. 

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

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

  841. *****                                               ^ not supported yet
    842. 

  842. *****                                                         ^ not supported yet
    843. 

  843.   343                    FieldCount ) THEN
    844. 

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

  845.   344                  HALT();
    846. 

  846. *****                  ^ undeclared identifier
    847. 

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

  848.   345                END;
    849. 

  849.   346              END;
    850. 

  850.   347            (*You could add additional data conversion operations
    851. 

  851.   348              here.*)
    852. 

  852.   349            END;
    853. 

  853.   350          ELSE
    854. 

  854.   351            (* for members of a group *)
    855. 

  855.   352            FieldRec.selected := M2Strings.Length( FileStr) # 0;
    856. 

  856. *****            ^ not supported yet
    857. 

  857. *****                     ^ not supported yet
    858. 

  858. *****                                 ^ not supported yet
    859. 

  859. *****                                           ^ not supported yet
    860. 

  860. *****                                                   ^ not supported yet
    861. 

  861.   353            (* this simple logic assumes that the groups are the
    862. 

  862.   354               same on input and display screens *)
    863. 

  863.   355          END;
    864. 

  864.   356          ScrnUtl1.PutFieldImageRec( ImageRec, TheFrame, FieldCount );
    865. 

  865. *****          ^ not supported yet
    866. 

  866. *****                   ^ not supported yet
    867. 

  867. *****                                     ^ not supported yet
    868. 

  868. *****                                               ^ not supported yet
    869. 

  869. *****                                                                    ^ not supported yet
    870. 

  870.   357          ScrnUtl1.PutFieldRec( FieldRec, TheFrame, FieldCount );
    871. 

  871. *****          ^ not supported yet
    872. 

  872. *****                   ^ not supported yet
    873. 

  873. *****                                ^ not supported yet
    874. 

  874. *****                                          ^ not supported yet
    875. 

  875. *****                                                               ^ not supported yet
    876. 

  876.   358        END;
    877. 

  877.   359        INC( FieldCount );
    878. 

  878. *****        ^ undeclared identifier
    879. 

  879. *****                        ^ not supported yet
    880. 

  880.   360      UNTIL FieldCount > ScrnUtl1.FieldListTotal( TheFrame );
    881. 

  881. *****                         ^ not supported yet
    882. 

  882. *****                                  ^ not supported yet
    883. 

  883. *****                                                  ^ not supported yet
    884. 

  884.   361      RETURN TRUE;
    885. 

  885.   362    END FillScrFast;
    886. 

  886. *****        ^ not supported yet
    887. 

  887.   363  
    888. 

  888.   364  
    889. 

  889.   365  BEGIN
    890. 

  890.   366    Initialized := FALSE;
    891. 

  891.   367    Init();
    892. 

  892. *****    ^ not supported yet
    893. 

  893. *****         ^ not supported yet
    894. 

  894.   368  END Scrn2Ndx.
    895. 

  895. *****      ^ not supported yet
    896. 

  896. 

  897.   525 errors
    898. 

  898. 

  899.