Página Principal Explorar Ajuda
Iniciar Sessão
eric
/
Topspeed_JPI
1
0
Fork 0
Ficheiros Problemas 0 Pull Requests 0 Wiki
Ramo: master
Ramos Etiquetas
Topspeed_JPI
/
TS-V3
/
REP16
/
ALTKEYS.LST

ALTKEYS.LST 53 KB
Link permanente Histórico Em bruto

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE AltKeys;
    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/altkeys.mov   1.5   10 Mar 1991 15:24:44   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  IMPORT ErrorNames;
    19. 

  19.    17  IMPORT GenLists;
    20. 

  20.    18  IMPORT ListUtils;
    21. 

  21.    19  IMPORT LowLevel;
    22. 

  22.    20  IMPORT M2Strings;
    23. 

  23.    21  IMPORT NdxBones;
    24. 

  24.    22  IMPORT NdxFiles;
    25. 

  25.    23  IMPORT NdxTypes;
    26. 

  26.    24  IMPORT PosUtils;
    27. 

  27.    25  IMPORT StrEdit;
    28. 

  28.    26  IMPORT StrLogic;
    29. 

  29.    27  IMPORT SYSTEM;
    30. 

  30.    28  
    31. 

  31.    29  VAR
    32. 

  32.    30    Initialized : BOOLEAN;
    33. 

  33.    31  
    34. 

  34.    32    PROCEDURE Init();
    35. 

  35.    33      BEGIN
    36. 

  36.    34        IF Initialized THEN
    37. 

  37.    35          RETURN;
    38. 

  38.    36        ELSE
    39. 

  39.    37          Initialized := TRUE;
    40. 

  40.    38        END;
    41. 

  41.    39        ErrorNames.Init();
    42. 

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

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

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

  45.    40        GenLists.Init();
    46. 

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

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

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

  49.    41        ListUtils.Init();
    50. 

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

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

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

  53.    42        LowLevel.Init();
    54. 

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

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

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

  57.    43        M2Strings.Init();
    58. 

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

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

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

  61.    44        NdxBones.Init();
    62. 

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

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

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

  65.    45        NdxFiles.Init();
    66. 

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

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

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

  69.    46        NdxTypes.Init();
    70. 

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

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

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

  73.    47        PosUtils.Init();
    74. 

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

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

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

  77.    48        StrEdit.Init();
    78. 

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

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

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

  81.    49        StrLogic.Init();
    82. 

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

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

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

  85.    50      END Init;
    86. 

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

  87.    51  
    88. 

  88.    52  
    89. 

  89.    53  PROCEDURE FieldLoaded( NdxFile: NdxTypes.NdxFileType; FieldName:
    90. 

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

  91.    54      ARRAY OF CHAR; VAR spot: CARDINAL): BOOLEAN;
    92. 

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

  93.    55  (*FieldLoaded returns true if FieldName is found, false if not.
    94. 

  94.    56    If it returns a true, spot will represent the actual position
    95. 

  95.    57    of FieldName in the NameList.  If false, spot will represent
    96. 

  96.    58    the length of the NameList.*)
    97. 

  97.    59  
    98. 

  98.    60    VAR
    99. 

  99.    61      NameList: GenLists.GenList;
    100. 

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

  101.    62      TypeCode, NameListLen, TmpSpot: CARDINAL;
    102. 

  102.    63      TmpName: ARRAY [0..127] OF CHAR;
    103. 

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

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

  105.    64    BEGIN
    106. 

  106.    65      spot := 1;
    107. 

  107.    66      WITH NdxFile^ DO
    108. 

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

  109.    67        IF (NOT GenLists.Initialized(AltKeys))
    110. 

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

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

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

  113.    68            OR (GenLists.ListLength(AltKeys) = 0) THEN
    114. 

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

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

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

  117.    69          spot := 0;
    118. 

  118.    70          RETURN FALSE;
    119. 

  119.    71        END;
    120. 

  120.    72        GenLists.GetChildList( NdxFile^.AltKeys, 1, NameList );
    121. 

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

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

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

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

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

  126.    73      END;
    127. 

  127. *****      ^ not supported yet
    128. 

  128.    74      TmpSpot := 1;
    129. 

  129. *****      ^ undeclared identifier
    130. 

  130.    75      NameListLen := GenLists.ListLength( NameList );
    131. 

  131. *****      ^ undeclared identifier
    132. 

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

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

  134. *****                                          ^ undeclared identifier
    135. 

  135.    76      IF NameListLen > 0 THEN
    136. 

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

  137.    77        REPEAT
    138. 

  138.    78          GenLists.GetElmt( NameList, TmpSpot, TmpName, TypeCode );
    139. 

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

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

  141. *****                            ^ undeclared identifier
    142. 

  142. *****                                      ^ undeclared identifier
    143. 

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

  144. *****                                                        ^ undeclared identifier
    145. 

  145.    79          IF PosUtils.Equal( FieldName, TmpName ) THEN
    146. 

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

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

  148. *****                             ^ undeclared identifier
    149. 

  149. *****                                        ^ undeclared identifier
    150. 

  150.    80            spot := TmpSpot;
    151. 

  151. *****            ^ undeclared identifier
    152. 

  152. *****                    ^ undeclared identifier
    153. 

  153.    81            RETURN TRUE;
    154. 

  154.    82          END;
    155. 

  155.    83          INC(TmpSpot);
    156. 

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

  157. *****              ^ undeclared identifier
    158. 

  158.    84        UNTIL TmpSpot > NameListLen;
    159. 

  159. *****              ^ undeclared identifier
    160. 

  160. *****                        ^ undeclared identifier
    161. 

  161.    85      END;
    162. 

  162.    86      spot := NameListLen;
    163. 

  163. *****      ^ undeclared identifier
    164. 

  164. *****              ^ undeclared identifier
    165. 

  165.    87      RETURN FALSE;
    166. 

  166.    88    END FieldLoaded;
    167. 

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

  168.    89  
    169. 

  169.    90  
    170. 

  170.    91  PROCEDURE CreateAltList( VAR NdxFile: NdxTypes.NdxFileType; FieldName:
    171. 

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

  172.    92      ARRAY OF CHAR; VAR SpotUsed: CARDINAL);
    173. 

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

  174.    93    (*Each element of the AltKey list is, in turn, a list.  The
    175. 

  175.    94      first one contains a list of the field names associated with
    176. 

  176.    95      the others.  The others are lists of selected field values,
    177. 

  177.    96      each of which contains in its first two bytes a CARDINAL
    178. 

  178.    97      indicating the position of the corresponding record in the
    179. 

  179.    98      file's main Ndx list.  CreateAltList returns in its SpotUsed
    180. 

  180.    99      parameter the position in NdxFile^.AltKeys where it put the
    181. 

  181.   100      AltList.*)
    182. 

  182.   101    VAR
    183. 

  183.   102      FieldList, NameList: GenLists.GenList;
    184. 

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

  185.   103      spot, AltKeysLen: CARDINAL;
    186. 

  186.   104    BEGIN
    187. 

  187.   105      IF NOT GenLists.Initialized( NdxFile^.AltKeys ) THEN
    188. 

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

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

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

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

  192.   106        GenLists.NewList( NdxFile^.AltKeys );
    193. 

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

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

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

  196. *****                                   ^ not supported yet
    197. 

  197.   107      END;
    198. 

  198.   108      AltKeysLen := GenLists.ListLength( NdxFile^.AltKeys );
    199. 

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

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

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

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

  203.   109      IF AltKeysLen = 0 THEN
    204. 

  204.   110        (*Create the first list.*)
    205. 

  205.   111        GenLists.NewList( NameList );
    206. 

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

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

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

  209.   112        GenLists.ListInsert( NameList, GenLists.ListCode, NdxFile^.AltKeys, 1 );
    210. 

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

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

  212. *****                             ^ not supported yet
    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.   113        INC(AltKeysLen);
    219. 

  219. *****        ^ undeclared identifier
    220. 

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

  221.   114      ELSE
    222. 

  222.   115        GenLists.GetChildList( NdxFile^.AltKeys, 1, NameList );
    223. 

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

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

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

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

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

  228.   116        IF GenLists.ListLength(NameList) # (AltKeysLen - 1) THEN
    229. 

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

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

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

  232.   117          (*You could take this check out if you're not worried about
    233. 

  233.   118            corruption.*)
    234. 

  234.   119          ErrorNames.WarningName( 'BadAlt' );
    235. 

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

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

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

  238.   120          RETURN;
    239. 

  239.   121        END;
    240. 

  240.   122      END;
    241. 

  241.   123      GenLists.NewList( FieldList );
    242. 

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

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

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

  245.   124      IF FieldLoaded( NdxFile, FieldName, spot ) THEN
    246. 

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

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

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

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

  250.   125        SpotUsed := spot;
    251. 

  251.   126        GenLists.ListReplace(FieldList, GenLists.ListCode,
    252. 

  252. *****        ^ not supported yet
    253. 

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

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

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

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

  257.   127            NdxFile^.AltKeys, SpotUsed + 1);
    258. 

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

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

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

  261.   128          (*ListReplace will dispose of the old list.*)
    262. 

  262.   129      ELSE
    263. 

  263.   130        GenLists.ListInsert( FieldName, GenLists.StrCode, NameList,
    264. 

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

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

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

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

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

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

  270.   131            spot + 1);
    271. 

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

  272.   132        SpotUsed := spot + 1;
    273. 

  273.   133        GenLists.ListInsert( FieldList, GenLists.ListCode,
    274. 

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

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

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

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

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

  279.   134            NdxFile^.AltKeys, SpotUsed + 1 );
    280. 

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

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

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

  283.   135      END;
    284. 

  284.   136    END CreateAltList;
    285. 

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

  286.   137  
    287. 

  287.   138  
    288. 

  288.   139  PROCEDURE CriteriaMet( NdxFile: NdxTypes.NdxFileType; Criteria:
    289. 

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

  290.   140      GenLists.GenList; VAR CriteriaValid: BOOLEAN ): BOOLEAN;
    291. 

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

  292.   141    VAR
    293. 

  293.   142      FieldSize, FieldSpot, lngth, ListSpot, TypeCode: CARDINAL;
    294. 

  294.   143      TmpCriterion: Criterion;
    295. 

  295. *****                    ^ undeclared identifier
    296. 

  296.   144      RunningResult, TmpResult: BOOLEAN;
    297. 

  297.   145      FieldList: GenLists.GenList;
    298. 

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

  299.   146      FieldAdr: SYSTEM.ADDRESS;
    300. 

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

  301.   147    BEGIN
    302. 

  302.   148      CriteriaValid := TRUE;
    303. 

  303.   149      IF (NOT GenLists.Initialized(Criteria))
    304. 

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

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

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

  307.   150         OR (GenLists.ListLength(Criteria) = 0) THEN
    308. 

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

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

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

  311.   151        RETURN TRUE;
    312. 

  312.   152        (*Means that if you don't pass a criteria list, everything
    313. 

  313.   153          will match.*)
    314. 

  314.   154      END;
    315. 

  315.   155      ListSpot := 1;
    316. 

  316.   156      lngth := GenLists.ListLength(Criteria);
    317. 

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

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

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

  320.   157      RunningResult := FALSE;
    321. 

  321.   158      REPEAT
    322. 

  322.   159        GenLists.GetElmt( Criteria, ListSpot, TmpCriterion, TypeCode );
    323. 

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

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

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

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

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

  328.   160        FieldList := NdxFile^.ListBuf;
    329. 

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

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

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

  332.   161        FieldSpot := 0;
    333. 

  333.   162        IF (GenLists.ErrorFlag # GenLists.NoListError) OR
    334. 

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

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

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

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

  338.   163            (TypeCode # CriterionCode) THEN
    339. 

  339. *****                        ^ undeclared identifier
    340. 

  340.   164          ErrorNames.WarningName( 'Crit' );
    341. 

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

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

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

  344.   165          TmpResult := FALSE;
    345. 

  345.   166        ELSIF NdxFiles.FindField(NdxFile^.StructLst,
    346. 

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

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

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

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

  350.   167            TmpCriterion.field, FieldList, FieldSpot) THEN
    351. 

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

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

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

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

  355.   168          GenLists.GetElmtAdr( FieldList, FieldSpot, FieldAdr,
    356. 

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

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

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

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

  360.   169              FieldSize, TypeCode );
    361. 

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

  362.   170          TmpResult := TmpCriterion.determiner( FieldAdr,
    363. 

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

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

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

  366.   171              FieldSize, TypeCode, TmpCriterion.rule, CriteriaValid );
    367. 

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

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

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

  370.   172        ELSE
    371. 

  371.   173          TmpResult := FALSE;
    372. 

  372.   174        END;
    373. 

  373.   175        CASE TmpCriterion.operator OF
    374. 

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

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

  376.   176          and: RunningResult := RunningResult AND TmpResult;
    377. 

  377. *****          ^ undeclared identifier
    378. 

  378.   177        | or: RunningResult := RunningResult OR TmpResult;
    379. 

  379. *****          ^ undeclared identifier
    380. 

  380.   178        | AndNot: RunningResult := RunningResult AND (NOT TmpResult);
    381. 

  381. *****          ^ undeclared identifier
    382. 

  382.   179        ELSE
    383. 

  383.   180          (*I'm assuming we can get here if range-checking is off.*)
    384. 

  384.   181          ErrorNames.WarningName( 'Crit' );
    385. 

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

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

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

  388.   182        END;
    389. 

  389.   183        INC( ListSpot );
    390. 

  390. *****        ^ undeclared identifier
    391. 

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

  392.   184      UNTIL ListSpot > lngth;
    393. 

  393.   185      RETURN RunningResult;
    394. 

  394.   186    END CriteriaMet;
    395. 

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

  396.   187  
    397. 

  397.   188  
    398. 

  398.   189  PROCEDURE AddFieldContents( NdxFile: NdxTypes.NdxFileType; RecName,
    399. 

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

  400.   190      FieldName: ARRAY OF CHAR; ElmtAdr: SYSTEM.ADDRESS; ElmtSize: CARDINAL );
    401. 

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

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

  403.   191    VAR
    404. 

  404.   192      FieldList: GenLists.GenList;
    405. 

  405. *****                          ^ not supported yet
    406. 

  406.   193      duml: LONGINT;
    407. 

  407.   194      TypeCode, spot, dumc: CARDINAL;
    408. 

  408.   195    BEGIN
    409. 

  409.   196      IF NOT FieldLoaded( NdxFile, FieldName, spot ) THEN
    410. 

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

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

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

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

  414.   197        ErrorNames.WarningName( 'AFC' );
    415. 

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

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

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

  418.   198        RETURN;
    419. 

  419.   199      END;
    420. 

  420.   200      IF NOT NdxBones.FindRecord(NdxFile, RecName, duml, dumc, dumc) THEN
    421. 

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

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

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

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

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

  426.   201        ErrorNames.WarningName( 'RecNam' );
    427. 

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

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

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

  430.   202        RETURN;
    431. 

  431.   203      END;
    432. 

  432.   204      GenLists.GetChildList( NdxFile^.AltKeys, spot + 1, FieldList );
    433. 

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

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

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

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

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

  438.   205      dumc := GenLists.ElmtNow( NdxFile^.Ndx );
    439. 

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

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

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

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

  443.   206      GenLists.ListInsertAdr( ElmtAdr, ElmtSize + 2, TypeCode, FieldList,
    444. 

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

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

  446. *****                              ^ not supported yet
    447. 

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

  448.   207          GenLists.ListLength(FieldList) + 1 );
    449. 

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

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

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

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

  453.   208      GenLists.GetElmtAdr( FieldList, GenLists.ListLength(FieldList), ElmtAdr,
    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. *****                                                          ^ not supported yet
    460. 

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

  461.   209          ElmtSize, TypeCode );
    462. 

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

  463.   210        (*Get the element's new data area.*)
    464. 

  464.   211      LowLevel.ShiftArrayRight( ElmtAdr, ElmtSize, 2 );
    465. 

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

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

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

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

  469.   212        (*Make room for the record identifier at the start of the
    470. 

  470.   213          element's data area.*)
    471. 

  471.   214      LowLevel.PokeWord( dumc, LowLevel.seg(ElmtAdr), LowLevel.ofs(ElmtAdr) );
    472. 

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

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

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

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

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

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

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

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

  480.   215        (*Put the record identifier in the first two bytes of the
    481. 

  481.   216          data area.*)
    482. 

  482.   217    END AddFieldContents;
    483. 

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

  484.   218  
    485. 

  485.   219  
    486. 

  486.   220  PROCEDURE LoadAltList( VAR NdxFile: NdxTypes.NdxFileType;
    487. 

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

  488.   221      InList: GenLists.GenList; FieldName: ARRAY OF CHAR; Criteria:
    489. 

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

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

  491.   222      GenLists.GenList): BOOLEAN;
    492. 

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

  493.   223    VAR
    494. 

  494.   224      ListType, ListSpot, NameListLength, InListLength, TypeCode,
    495. 

  495.   225          ElmtSize, AltFieldSpot, AltKeyListSpot: CARDINAL;
    496. 

  496.   226      ElmtAdr: SYSTEM.ADDRESS;
    497. 

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

  498.   227      AltFieldList, AltKeyList: GenLists.GenList;
    499. 

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

  500.   228      TmpNdxRec: NdxTypes.NdxElement;
    501. 

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

  502.   229      CriteriaValid: BOOLEAN;
    503. 

  503.   230      RecName: ARRAY [0..(NdxTypes.RecNameLength - 1)] OF CHAR;
    504. 

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

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

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

  507. *****                                                          ^ not supported yet
    508. 

  508.   231    BEGIN
    509. 

  509.   232      (*LoadAltList*)
    510. 

  510.   233      CriteriaValid := TRUE;
    511. 

  511.   234      AltKeyListSpot := 1;
    512. 

  512.   235      InListLength := GenLists.ListLength(InList);
    513. 

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

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

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

  516.   236      IF InListLength = 0 THEN
    517. 

  517.   237        NameListLength := GenLists.ListLength(NdxFile^.Ndx);
    518. 

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

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

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

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

  522.   238        ListType := NdxTypes.NdxTypeCode;
    523. 

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

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

  525.   239        (*We set ListType to NdxTypeCode if there's no InList
    526. 

  526.   240          because we're going to use the file's entire Ndx in this
    527. 

  527.   241          situation.*)
    528. 

  528.   242      ELSE
    529. 

  529.   243        NameListLength := GenLists.ListLength(InList);
    530. 

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

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

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

  533.   244        ListType := ListUtils.TypeCheck( InList, 1 );
    534. 

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

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

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

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

  538.   245      END;
    539. 

  539.   246      ListSpot := 1;
    540. 

  540.   247      REPEAT
    541. 

  541.   248        CASE ListType OF
    542. 

  542.   249          NdxTypes.NdxTypeCode:
    543. 

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

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

  545.   250            IF GenLists.ListLength( NdxFile^.Ndx ) > 0 THEN
    546. 

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

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

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

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

  550.   251              GenLists.GetElmt( NdxFile^.Ndx, ListSpot, TmpNdxRec, TypeCode );
    551. 

  551. *****              ^ not supported yet
    552. 

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

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

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

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

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

  557.   252              StrEdit.AssignStr( TmpNdxRec.RecName, RecName );
    558. 

  558. *****              ^ not supported yet
    559. 

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

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

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

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

  563.   253            ELSE
    564. 

  564.   254              RETURN FALSE;
    565. 

  565.   255            END;
    566. 

  566.   256        | AltKeyCode:
    567. 

  567. *****          ^ undeclared identifier
    568. 

  568.   257          GetMatchingKey( NdxFile, InList, ListSpot, RecName );
    569. 

  569. *****          ^ undeclared identifier
    570. 

  570. *****                          ^ not supported yet
    571. 

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

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

  573.   258        ELSE
    574. 

  574.   259          (*We assume we have a list of valid record names.*)
    575. 

  575.   260          GenLists.GetElmt( InList, ListSpot, RecName, TypeCode );
    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.   261        END;
    582. 

  582.   262        IF (M2Strings.Length( RecName ) > 0) AND
    583. 

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

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

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

  586.   263           NdxBones.InitBuffer( NdxFile, RecName) THEN
    587. 

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

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

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

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

  591.   264          (*If Length(RecName) = 0, it's a garbage record.*)
    592. 

  592.   265          (*InitBuffer does the actual record read, and returns
    593. 

  593.   266            FALSE if the record does not exist *)
    594. 

  594.   267          IF NOT FieldLoaded( NdxFile, FieldName, AltKeyListSpot ) THEN
    595. 

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

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

  597. *****                                       ^ not supported yet
    598. 

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

  599.   268            (*AltKeyListSpot now represents the length of the
    600. 

  600.   269              NameList, but CreateAltList will INC it.*)
    601. 

  601.   270            CreateAltList( NdxFile, FieldName, AltKeyListSpot );
    602. 

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

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

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

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

  606.   271          END;
    607. 

  607.   272          IF PosUtils.Equal('KEY', FieldName) THEN
    608. 

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

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

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

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

  612.   273            (*They just want the matching record names.*)
    613. 

  613.   274            GenLists.GetChildList( NdxFile^.AltKeys, AltKeyListSpot + 1,
    614. 

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

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

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

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

  618.   275                AltKeyList );
    619. 

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

  620.   276            IF CriteriaMet(NdxFile, Criteria, CriteriaValid) THEN
    621. 

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

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

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

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

  625.   277              GenLists.ListInsert( RecName, GenLists.StrCode, AltKeyList,
    626. 

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

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

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

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

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

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

  632.   278                  GenLists.ListLength(AltKeyList) + 1 );
    633. 

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

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

  635. *****                                      ^ not supported yet
    636. 

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

  637.   279            END;
    638. 

  638.   280          ELSE
    639. 

  639.   281            AltFieldList := NdxFile^.ListBuf;
    640. 

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

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

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

  643.   282            AltFieldSpot := 0;
    644. 

  644.   283            IF NdxFiles.FindField(NdxFile^.StructLst, FieldName, AltFieldList,
    645. 

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

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

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

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

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

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

  651.   284                AltFieldSpot) THEN
    652. 

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

  653.   285              IF CriteriaMet( NdxFile, Criteria, CriteriaValid ) THEN
    654. 

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

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

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

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

  658.   286                GenLists.GetElmtAdr( AltFieldList, AltFieldSpot, ElmtAdr,
    659. 

  659. *****                ^ not supported yet
    660. 

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

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

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

  663.   287                    ElmtSize, TypeCode );
    664. 

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

  665.   288                IF (NOT (TypeCode = GenLists.ListCode)) THEN
    666. 

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

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

  668.   289                  AddFieldContents( NdxFile, RecName, FieldName,
    669. 

  669. *****                  ^ not supported yet
    670. 

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

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

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

  673.   290                    ElmtAdr, ElmtSize );
    674. 

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

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

  676.   291                ELSE
    677. 

  677.   292                  ErrorNames.WarningName( 'LstAlt' );
    678. 

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

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

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

  681.   293                END;
    682. 

  682.   294              END;
    683. 

  683.   295            END;
    684. 

  684.   296          END;
    685. 

  685.   297        END;
    686. 

  686.   298        INC(ListSpot);
    687. 

  687. *****        ^ undeclared identifier
    688. 

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

  689.   299      UNTIL (ListSpot > NameListLength) OR (NOT CriteriaValid);
    690. 

  690.   300        (*We're at the end of the InList.*)
    691. 

  691.   301      RETURN TRUE;
    692. 

  692.   302    END LoadAltList;
    693. 

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

  694.   303  
    695. 

  695.   304  
    696. 

  696.   305  PROCEDURE DisposeAltList( VAR NdxFile: NdxTypes.NdxFileType; FieldName:
    697. 

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

  698.   306      ARRAY OF CHAR);
    699. 

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

  700.   307    VAR
    701. 

  701.   308      NameList: GenLists.GenList;
    702. 

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

  703.   309      spot: CARDINAL;
    704. 

  704.   310    BEGIN
    705. 

  705.   311      IF NOT GenLists.Initialized( NdxFile^.AltKeys ) THEN
    706. 

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

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

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

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

  710.   312        ErrorNames.WarningName('BadLst');
    711. 

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

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

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

  714.   313        RETURN;
    715. 

  715.   314      END;
    716. 

  716.   315      IF GenLists.ListLength( NdxFile^.AltKeys ) > 0 THEN
    717. 

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

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

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

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

  721.   316        IF FieldLoaded( NdxFile, FieldName, spot ) THEN
    722. 

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

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

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

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

  726.   317          GenLists.GetChildList( NdxFile^.AltKeys, 1, NameList );
    727. 

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

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

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

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

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

  732.   318          GenLists.ListDelete( NameList, spot, 1 );
    733. 

  733. *****          ^ not supported yet
    734. 

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

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

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

  737.   319            (*Delete the FieldName.*)
    738. 

  738.   320          GenLists.ListDelete( NdxFile^.AltKeys, spot + 1, 1 );
    739. 

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

  740. *****                   ^ not supported yet
    741. 

  741. *****                               ^ not supported yet
    742. 

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

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

  744.   321            (*Delete the list itself.*)
    745. 

  745.   322          RETURN;
    746. 

  746.   323        END;
    747. 

  747.   324      END;
    748. 

  748.   325      ErrorNames.WarningName( 'AltNam' );
    749. 

  749. *****      ^ not supported yet
    750. 

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

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

  752.   326    END DisposeAltList;
    753. 

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

  754.   327  
    755. 

  755.   328  
    756. 

  756.   329  PROCEDURE TallyAltLists(NdxFile: NdxTypes.NdxFileType; VAR
    757. 

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

  758.   330      TheList: GenLists.GenList);
    759. 

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

  760.   331    (*Returns a list of the field names that have AltLists
    761. 

  761.   332      presently loaded.*)
    762. 

  762.   333    VAR
    763. 

  763.   334      NameList: GenLists.GenList;
    764. 

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

  765.   335    BEGIN
    766. 

  766.   336      IF (GenLists.Initialized( NdxFile^.AltKeys ))
    767. 

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

  768. *****                   ^ not supported yet
    769. 

  769. *****                                ^ not supported yet
    770. 

  770. *****                                         ^ not supported yet
    771. 

  771.   337         AND (GenLists.ListLength( NdxFile^.AltKeys ) > 0) THEN
    772. 

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

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

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

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

  776.   338        GenLists.GetChildList( NdxFile^.AltKeys, 1, NameList );
    777. 

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

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

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

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

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

  782.   339        GenLists.CopyList( NameList, TheList );
    783. 

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

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

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

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

  787.   340      ELSE
    788. 

  788.   341        ErrorNames.WarningName( 'AltNam' );
    789. 

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

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

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

  792.   342      END;
    793. 

  793.   343    END TallyAltLists;
    794. 

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

  795.   344  
    796. 

  796.   345  
    797. 

  797.   346  PROCEDURE GetAltList( NdxFile: NdxTypes.NdxFileType; FieldName: ARRAY OF
    798. 

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

  799.   347      CHAR; VAR AltList: GenLists.GenList): BOOLEAN;
    800. 

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

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

  802.   348    (*Note that this returns the real AltList, so the first two
    803. 

  803.   349      bytes of each data area will be the record identifier.  You
    804. 

  804.   350      have to get rid of those things with ShiftArrayLeft.*)
    805. 

  805.   351    VAR
    806. 

  806.   352      spot: CARDINAL;
    807. 

  807.   353    BEGIN
    808. 

  808.   354      IF FieldLoaded( NdxFile, FieldName, spot ) THEN
    809. 

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

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

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

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

  813.   355        GenLists.GetChildList( NdxFile^.AltKeys, spot + 1, AltList );
    814. 

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

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

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

  817. *****                                        ^ not supported yet
    818. 

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

  819.   356        IF GenLists.ErrorFlag = GenLists.NoListError THEN
    820. 

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

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

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

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

  824.   357          RETURN TRUE;
    825. 

  825.   358        ELSE
    826. 

  826.   359          RETURN FALSE;
    827. 

  827.   360        END;
    828. 

  828.   361      ELSE
    829. 

  829.   362        RETURN FALSE;
    830. 

  830.   363      END;
    831. 

  831.   364    END GetAltList;
    832. 

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

  833.   365  
    834. 

  834.   366  
    835. 

  835.   367  PROCEDURE GetMatchingKey( NdxFile: NdxTypes.NdxFileType; AltList:
    836. 

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

  837.   368      GenLists.GenList; spot: CARDINAL; VAR RecName: ARRAY OF CHAR );
    838. 

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

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

  840.   369  
    841. 

  841.   370      (*Pass this procedure an AltKeyList (i.e., the kind of list
    842. 

  842.   371        that has a record number and a field value in every
    843. 

  843.   372        element) and the position of an element in that list, and
    844. 

  844.   373        it returns in RecName the name of the record from which the
    845. 

  845.   374        field value was read.*)
    846. 

  846.   375    VAR
    847. 

  847.   376      RecordNumber, AltKeySize, TypeCode: CARDINAL;
    848. 

  848.   377      AltKeyAdr: SYSTEM.ADDRESS;
    849. 

  849. *****                        ^ not supported yet
    850. 

  850.   378      TmpNdxRec: NdxTypes.NdxElement;
    851. 

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

  852.   379    BEGIN
    853. 

  853.   380      GenLists.GetElmtAdr( AltList, spot, AltKeyAdr, AltKeySize, TypeCode );
    854. 

  854. *****      ^ not supported yet
    855. 

  855. *****               ^ not supported yet
    856. 

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

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

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

  859.   381      IF (TypeCode # AltKeyCode) THEN
    860. 

  860. *****                     ^ undeclared identifier
    861. 

  861.   382        LowLevel.Move( AltKeyAdr, SYSTEM.ADR(RecName), AltKeySize );
    862. 

  862. *****        ^ not supported yet
    863. 

  863. *****                 ^ not supported yet
    864. 

  864. *****                       ^ not supported yet
    865. 

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

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

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

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

  869.   383          (* 28 Nov 88:  added this so that GetMatchingKey can be
    870. 

  870.   384             used with AltKeyLists that contain only record names. *)
    871. 

  871.   385      ELSE
    872. 

  872.   386        LowLevel.Move( AltKeyAdr, SYSTEM.ADR(RecordNumber), 2 );
    873. 

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

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

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

  876. *****                                  ^ not supported yet
    877. 

  877. *****                                         ^ not supported yet
    878. 

  878. *****                                                         ^ not supported yet
    879. 

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

  880.   387        GenLists.GetElmt( NdxFile^.Ndx, RecordNumber, TmpNdxRec, TypeCode );
    881. 

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

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

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

  884. *****                                   ^ not supported yet
    885. 

  885. *****                                                      ^ not supported yet
    886. 

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

  887.   388        StrEdit.AssignStr( TmpNdxRec.RecName, RecName );
    888. 

  888. *****        ^ not supported yet
    889. 

  889. *****                ^ not supported yet
    890. 

  890. *****                           ^ not supported yet
    891. 

  891. *****                                     ^ not supported yet
    892. 

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

  893.   389      END;
    894. 

  894.   390    END GetMatchingKey;
    895. 

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

  896.   391  
    897. 

  897.   392  
    898. 

  898.   393  PROCEDURE GetMatchingKeys( NdxFile: NdxTypes.NdxFileType; AltList:
    899. 

  899. *****                                               ^ not supported yet
    900. 

  900.   394      GenLists.GenList; VAR KeyList: GenLists.GenList): BOOLEAN;
    901. 

  901. *****               ^ not supported yet
    902. 

  902. *****                                              ^ not supported yet
    903. 

  903.   395    (*Returns a RecNameList that contains only records presently in
    904. 

  904.   396      the AltList.*)
    905. 

  905.   397    VAR
    906. 

  906.   398      spot, lngth: CARDINAL;
    907. 

  907.   399      RecName: ARRAY [0..(NdxTypes.RecNameLength - 1)] OF CHAR;
    908. 

  908. *****                          ^ not supported yet
    909. 

  909. *****                                   ^ not supported yet
    910. 

  910. *****                                                    ^ not supported yet
    911. 

  911. *****                                                          ^ not supported yet
    912. 

  912.   400    BEGIN
    913. 

  913.   401      IF NOT GenLists.Initialized(AltList) THEN
    914. 

  914. *****             ^ not supported yet
    915. 

  915. *****                      ^ not supported yet
    916. 

  916. *****                                  ^ not supported yet
    917. 

  917.   402        ErrorNames.WarningName('BadLst');
    918. 

  918. *****        ^ not supported yet
    919. 

  919. *****                   ^ not supported yet
    920. 

  920. *****                               ^ not supported yet
    921. 

  921.   403        RETURN FALSE;
    922. 

  922.   404      END;
    923. 

  923.   405      lngth := GenLists.ListLength( AltList );
    924. 

  924. *****               ^ not supported yet
    925. 

  925. *****                        ^ not supported yet
    926. 

  926. *****                                    ^ not supported yet
    927. 

  927.   406      FOR spot := 1 TO lngth DO
    928. 

  928.   407        GetMatchingKey( NdxFile, AltList, spot, RecName );
    929. 

  929. *****        ^ not supported yet
    930. 

  930. *****                        ^ not supported yet
    931. 

  931. *****                                 ^ not supported yet
    932. 

  932. *****                                                ^ not supported yet
    933. 

  933.   408        IF GenLists.ErrorFlag = GenLists.NoListError THEN
    934. 

  934. *****           ^ not supported yet
    935. 

  935. *****                    ^ not supported yet
    936. 

  936. *****                                ^ not supported yet
    937. 

  937. *****                                         ^ not supported yet
    938. 

  938.   409          GenLists.ListInsert( RecName, RecNameCode, KeyList, spot );
    939. 

  939. *****          ^ not supported yet
    940. 

  940. *****                   ^ not supported yet
    941. 

  941. *****                               ^ not supported yet
    942. 

  942. *****                                        ^ undeclared identifier
    943. 

  943. *****                                                     ^ not supported yet
    944. 

  944. *****                                                                   ^ not supported yet
    945. 

  945.   410        END;
    946. 

  946.   411      END;
    947. 

  947.   412      RETURN TRUE;
    948. 

  948.   413    END GetMatchingKeys;
    949. 

  949. *****        ^ not supported yet
    950. 

  950.   414  
    951. 

  951.   415  
    952. 

  952.   416  PROCEDURE StrSelector( TheAdr: SYSTEM.ADDRESS; TheSize, TypeCode:
    953. 

  953. *****                                        ^ not supported yet
    954. 

  954.   417      CARDINAL; TheRule: ARRAY OF CHAR; VAR CriteriaValid:
    955. 

  955. *****                                  ^ not supported yet
    956. 

  956.   418      BOOLEAN): BOOLEAN;
    957. 

  957.   419    (*This will be assigned to a SelectProc variable.*)
    958. 

  958.   420    VAR
    959. 

  959.   421      TmpStr: ARRAY [0..255] OF CHAR;
    960. 

  960. *****                        ^ not supported yet
    961. 

  961. *****                                ^ not supported yet
    962. 

  962.   422      TmpResult, SubSize, SubType, leng, cnt: CARDINAL;
    963. 

  963.   423      SubAddr: SYSTEM.ADDRESS;
    964. 

  964. *****                      ^ not supported yet
    965. 

  965.   424      SubList: GenLists.GenList;
    966. 

  966. *****                        ^ not supported yet
    967. 

  967.   425      found: BOOLEAN;
    968. 

  968.   426    BEGIN
    969. 

  969.   427      IF (TypeCode = GenLists.StrCode) THEN
    970. 

  970. *****                     ^ not supported yet
    971. 

  971. *****                              ^ not supported yet
    972. 

  972.   428        IF M2Strings.Length( TheRule ) = 0 THEN
    973. 

  973. *****           ^ not supported yet
    974. 

  974. *****                     ^ not supported yet
    975. 

  975. *****                             ^ not supported yet
    976. 

  976.   429          RETURN TRUE;
    977. 

  977.   430        END;
    978. 

  978.   431        IF TheSize > (HIGH(TmpStr)+1) THEN
    979. 

  979. *****                      ^ undeclared identifier
    980. 

  980. *****                           ^ not supported yet
    981. 

  981.   432          TheSize := (HIGH(TmpStr)+1);
    982. 

  982. *****                      ^ undeclared identifier
    983. 

  983. *****                           ^ not supported yet
    984. 

  984.   433        END;
    985. 

  985.   434        LowLevel.Move( TheAdr, SYSTEM.ADR(TmpStr), TheSize );
    986. 

  986. *****        ^ not supported yet
    987. 

  987. *****                 ^ not supported yet
    988. 

  988. *****                       ^ not supported yet
    989. 

  989. *****                               ^ not supported yet
    990. 

  990. *****                                      ^ not supported yet
    991. 

  991. *****                                          ^ not supported yet
    992. 

  992. *****                                                           ^ not supported yet
    993. 

  993.   435        TmpResult := StrLogic.ExpressionTest( TmpStr, TheRule );
    994. 

  994. *****                     ^ not supported yet
    995. 

  995. *****                              ^ not supported yet
    996. 

  996. *****                                              ^ not supported yet
    997. 

  997. *****                                                      ^ not supported yet
    998. 

  998.   436        CriteriaValid := StrLogic.StrLogicErrorLevel = 0;
    999. 

  999. *****                         ^ not supported yet
    1000. 

  1000. *****                                  ^ not supported yet
    1001. 

  1001.   437        RETURN ( TmpResult > 0);
    1002. 

  1002.   438      ELSIF (TypeCode = GenLists.ListCode) THEN
    1003. 

  1003. *****                        ^ not supported yet
    1004. 

  1004. *****                                 ^ not supported yet
    1005. 

  1005.   439        IF NOT GenLists.AdrToList( TheAdr, TheSize, SubList ) THEN
    1006. 

  1006. *****               ^ not supported yet
    1007. 

  1007. *****                        ^ not supported yet
    1008. 

  1008. *****                                   ^ not supported yet
    1009. 

  1009. *****                                                    ^ not supported yet
    1010. 

  1010.   440          RETURN FALSE;
    1011. 

  1011.   441        END;
    1012. 

  1012.   442        leng := GenLists.ListLength(SubList);
    1013. 

  1013. *****                ^ not supported yet
    1014. 

  1014. *****                         ^ not supported yet
    1015. 

  1015. *****                                    ^ not supported yet
    1016. 

  1016.   443        found := FALSE;
    1017. 

  1017.   444        cnt := 1;
    1018. 

  1018.   445        WHILE (cnt <= leng) AND (NOT found) DO
    1019. 

  1019.   446          GenLists.GetElmtAdr( SubList, cnt, SubAddr, SubSize, SubType );
    1020. 

  1020. *****          ^ not supported yet
    1021. 

  1021. *****                   ^ not supported yet
    1022. 

  1022. *****                               ^ not supported yet
    1023. 

  1023. *****                                             ^ not supported yet
    1024. 

  1024. *****                                                                       ^ not supported yet
    1025. 

  1025.   447            (*We ought to be able to do a recursive call here, but for
    1026. 

  1026.   448              some reason it causes a stack overflow.*)
    1027. 

  1027.   449          IF (SubType = GenLists.StrCode) THEN
    1028. 

  1028. *****                        ^ not supported yet
    1029. 

  1029. *****                                 ^ not supported yet
    1030. 

  1030.   450            IF M2Strings.Length( TheRule ) = 0 THEN
    1031. 

  1031. *****               ^ not supported yet
    1032. 

  1032. *****                         ^ not supported yet
    1033. 

  1033. *****                                 ^ not supported yet
    1034. 

  1034.   451              RETURN TRUE;
    1035. 

  1035.   452            END;
    1036. 

  1036.   453            IF SubSize > (HIGH(TmpStr)+1) THEN
    1037. 

  1037. *****                          ^ undeclared identifier
    1038. 

  1038. *****                               ^ not supported yet
    1039. 

  1039.   454              SubSize := (HIGH(TmpStr)+1);
    1040. 

  1040. *****                          ^ undeclared identifier
    1041. 

  1041. *****                               ^ not supported yet
    1042. 

  1042.   455            END;
    1043. 

  1043.   456            LowLevel.Move( SubAddr, SYSTEM.ADR(TmpStr), SubSize );
    1044. 

  1044. *****            ^ not supported yet
    1045. 

  1045. *****                     ^ not supported yet
    1046. 

  1046. *****                           ^ not supported yet
    1047. 

  1047. *****                                    ^ not supported yet
    1048. 

  1048. *****                                           ^ not supported yet
    1049. 

  1049. *****                                               ^ not supported yet
    1050. 

  1050. *****                                                                ^ not supported yet
    1051. 

  1051.   457            TmpResult := StrLogic.ExpressionTest( TmpStr, TheRule );
    1052. 

  1052. *****                         ^ not supported yet
    1053. 

  1053. *****                                  ^ not supported yet
    1054. 

  1054. *****                                                  ^ not supported yet
    1055. 

  1055. *****                                                          ^ not supported yet
    1056. 

  1056.   458            CriteriaValid := StrLogic.StrLogicErrorLevel = 0;
    1057. 

  1057. *****                             ^ not supported yet
    1058. 

  1058. *****                                      ^ not supported yet
    1059. 

  1059.   459            found := TmpResult > 0;
    1060. 

  1060.   460          END;
    1061. 

  1061.   461          INC(cnt);
    1062. 

  1062. *****          ^ undeclared identifier
    1063. 

  1063. *****                 ^ not supported yet
    1064. 

  1064.   462        END;
    1065. 

  1065.   463        RETURN found;
    1066. 

  1066.   464      END;
    1067. 

  1067.   465      RETURN FALSE;
    1068. 

  1068.   466    END StrSelector;
    1069. 

  1069. *****        ^ not supported yet
    1070. 

  1070.   467  
    1071. 

  1071.   468  
    1072. 

  1072.   469  PROCEDURE AddCriteria( CriteriaList: GenLists.GenList; op: LogicOperator;
    1073. 

  1073. *****                                                ^ not supported yet
    1074. 

  1074. *****                                                             ^ undeclared identifier
    1075. 

  1075.   470      TheSelectProc: SelectProc; TheRule, FieldName: ARRAY OF CHAR );
    1076. 

  1076. *****                     ^ undeclared identifier
    1077. 

  1077. *****                                                              ^ not supported yet
    1078. 

  1078.   471    VAR
    1079. 

  1079.   472      TmpCriterion: Criterion;
    1080. 

  1080. *****                    ^ undeclared identifier
    1081. 

  1081.   473    BEGIN
    1082. 

  1082.   474      IF NOT GenLists.Initialized( CriteriaList ) THEN
    1083. 

  1083. *****             ^ not supported yet
    1084. 

  1084. *****                      ^ not supported yet
    1085. 

  1085. *****                                   ^ not supported yet
    1086. 

  1086.   475        ErrorNames.WarningName('BadLst');
    1087. 

  1087. *****        ^ not supported yet
    1088. 

  1088. *****                   ^ not supported yet
    1089. 

  1089. *****                               ^ not supported yet
    1090. 

  1090.   476        RETURN;
    1091. 

  1091.   477      END;
    1092. 

  1092.   478      StrEdit.AssignStr( FieldName, TmpCriterion.field );
    1093. 

  1093. *****      ^ not supported yet
    1094. 

  1094. *****              ^ not supported yet
    1095. 

  1095. *****                         ^ not supported yet
    1096. 

  1096. *****                                    ^ not supported yet
    1097. 

  1097. *****                                                 ^ not supported yet
    1098. 

  1098.   479      StrEdit.AssignStr( TheRule, TmpCriterion.rule );
    1099. 

  1099. *****      ^ not supported yet
    1100. 

  1100. *****              ^ not supported yet
    1101. 

  1101. *****                         ^ not supported yet
    1102. 

  1102. *****                                  ^ not supported yet
    1103. 

  1103. *****                                               ^ not supported yet
    1104. 

  1104.   480      TmpCriterion.operator := op;
    1105. 

  1105. *****      ^ not supported yet
    1106. 

  1106. *****                   ^ not supported yet
    1107. 

  1107. *****                               ^ not supported yet
    1108. 

  1108.   481      TmpCriterion.determiner := TheSelectProc;
    1109. 

  1109. *****      ^ not supported yet
    1110. 

  1110. *****                   ^ not supported yet
    1111. 

  1111. *****                                 ^ not supported yet
    1112. 

  1112.   482      GenLists.ListInsert( TmpCriterion, CriterionCode,
    1113. 

  1113. *****      ^ not supported yet
    1114. 

  1114. *****               ^ not supported yet
    1115. 

  1115. *****                           ^ not supported yet
    1116. 

  1116. *****                                         ^ undeclared identifier
    1117. 

  1117.   483          CriteriaList, GenLists.ListLength(CriteriaList) + 1 );
    1118. 

  1118. *****          ^ not supported yet
    1119. 

  1119. *****                        ^ not supported yet
    1120. 

  1120. *****                                 ^ not supported yet
    1121. 

  1121. *****                                            ^ not supported yet
    1122. 

  1122. *****                                                              ^ not supported yet
    1123. 

  1123.   484    END AddCriteria;
    1124. 

  1124. *****        ^ not supported yet
    1125. 

  1125.   485  
    1126. 

  1126.   486  BEGIN
    1127. 

  1127.   487    Initialized := FALSE;
    1128. 

  1128.   488    Init();
    1129. 

  1129. *****    ^ not supported yet
    1130. 

  1130. *****         ^ not supported yet
    1131. 

  1131.   489  END AltKeys.
    1132. 

  1132. *****      ^ not supported yet
    1133. 

  1133. 

  1134.   641 errors
    1135. 

  1135. 

  1136.