Inicio Explorar Axuda
Iniciar sesión
eric
/
Topspeed_JPI
1
0
Fork 0
Ficheiros Incidencias 0 Pull Requests 0 Wiki
Rama: master
Ramas Etiquetas
Topspeed_JPI
/
TS-V3
/
REP16
/
NDXFILES.LST

NDXFILES.LST 113 KB
Permalink Histórico Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE NdxFiles;
    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/ndxfiles.mov   1.8   10 Mar 1991 15:30:18   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  IMPORT FAPI;
    18. 

  18.    16  (*EntryDiag:
    19. 

  19.    17  IMPORT Diagnostics;
    20. 

  20.    18  :EntryDiag*)
    21. 

  21.    19  
    22. 

  22.    20  IMPORT Drectory;
    23. 

  23.    21  IMPORT ErrorManager;
    24. 

  24.    22  IMPORT ErrorNames;
    25. 

  25.    23  IMPORT HandleIO;
    26. 

  26.    24  IMPORT GenLists;
    27. 

  27.    25  IMPORT ListUtils;
    28. 

  28.    26  IMPORT LowLevel;
    29. 

  29.    27  IMPORT M2Strings;
    30. 

  30.    28  IMPORT NdxBones;
    31. 

  31.    29  IMPORT NdxTypes;
    32. 

  32.    30  FROM NdxTypes IMPORT NdxRecord;
    33. 

  33. *****       ^ duplicate identifier
    34. 

  34.    31  IMPORT Numbers;
    35. 

  35.    32  IMPORT NumTypes;
    36. 

  36.    33  IMPORT PosUtils;
    37. 

  37.    34  IMPORT StrEdit;
    38. 

  38.    35  IMPORT StringIO;
    39. 

  39.    36  IMPORT SYSTEM;
    40. 

  40.    37  IMPORT VStorage;
    41. 

  41.    38  
    42. 

  42.    39  VAR
    43. 

  43.    40    Initialized : BOOLEAN;
    44. 

  44.    41  
    45. 

  45.    42  VAR
    46. 

  46.    43    NulHandle: VStorage.MemHandle;
    47. 

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

  48.    44  
    49. 

  49.    45  
    50. 

  50.    46  PROCEDURE NoMemMessage( message: ARRAY OF CHAR );
    51. 

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

  52.    47    VAR
    53. 

  53.    48      tmpstr: ARRAY [0..79] OF CHAR;
    54. 

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

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

  56.    49    BEGIN
    57. 

  57.    50      StrEdit.AssignStr( 'Ran out of memory in ', tmpstr );
    58. 

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

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

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

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

  62.    51      StrEdit.Append( tmpstr, message );
    63. 

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

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

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

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

  67.    52      ErrorManager.WARN( tmpstr );
    68. 

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

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

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

  71.    53    END NoMemMessage;
    72. 

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

  73.    54  
    74. 

  74.    55  
    75. 

  75.    56  PROCEDURE CreateNdxFile( VAR NdxFile: NdxTypes.NdxFileType; fname,
    76. 

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

  77.    57      Structure: ARRAY OF CHAR );
    78. 

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

  79.    58      (*Structure should look something like this:
    80. 

  80.    59        "Name, Password, AcctBal, Address {Street, City, State}'
    81. 

  81.    60        Names listed here can be used to access specific fields
    82. 

  82.    61        within records, using the Get and Put procedures below.
    83. 

  83.    62        All procedures that use field names are case sensitive. *)
    84. 

  84.    63    VAR
    85. 

  85.    64      TmpName: ARRAY [0..255] OF CHAR;
    86. 

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

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

  88.    65      StruSize: CARDINAL;
    89. 

  89.    66      BytesWritten: LONGINT;
    90. 

  90.    67      SavedMessage: CARDINAL;
    91. 

  91.    68  
    92. 

  92.    69    PROCEDURE MakeStructure( VAR StruList: GenLists.GenList; Structure:
    93. 

  93. *****                                                    ^ not supported yet
    94. 

  94.    70        ARRAY OF CHAR );
    95. 

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

  96.    71      VAR
    97. 

  97.    72        NextSpot, BraceSpot, CommaSpot: CARDINAL;
    98. 

  98.    73        SubList: GenLists.GenList;
    99. 

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

  100.    74        NameStr: ARRAY [0..255] OF CHAR;
    101. 

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

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

  103.    75  
    104. 

  104.    76      PROCEDURE PosCloseBrace( Start: CARDINAL; Structure:
    105. 

  105.    77        ARRAY OF CHAR): CARDINAL;
    106. 

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

  107.    78        (* find the closing brace that matches this open brace *)
    108. 

  108.    79        VAR
    109. 

  109.    80          OpenSpot, CloseSpot: CARDINAL;
    110. 

  110.    81        BEGIN
    111. 

  111.    82          CloseSpot := PosUtils.Positn( '}', Structure, Start);
    112. 

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

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

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

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

  116.    83          OpenSpot  := PosUtils.Positn( '{', Structure, Start);
    117. 

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

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

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

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

  121.    84          IF (CloseSpot < OpenSpot) OR
    122. 

  122.    85             (CloseSpot > HIGH( Structure)) THEN
    123. 

  123. *****                          ^ undeclared identifier
    124. 

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

  125.    86            RETURN CloseSpot;
    126. 

  126.    87          ELSE
    127. 

  127.    88            RETURN PosCloseBrace( 1+PosCloseBrace( OpenSpot + 1,
    128. 

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

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

  130.    89              Structure), Structure);
    131. 

  131. *****              ^ not supported yet
    132. 

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

  133.    90          END;
    134. 

  134.    91        END PosCloseBrace;
    135. 

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

  136.    92  
    137. 

  137.    93      BEGIN
    138. 

  138.    94        (*MakeStructure*)
    139. 

  139.    95        IF M2Strings.Length(Structure) = 0 THEN
    140. 

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

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

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

  143.    96          RETURN;
    144. 

  144.    97        END;
    145. 

  145.    98        IF Structure[ M2Strings.Length(Structure) - 1 ] # ',' THEN
    146. 

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

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

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

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

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

  151.    99          StrEdit.Append(Structure, ",");
    152. 

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

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

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

  155. *****                                       ^ not supported yet
    156. 

  156.   100          (*Makes all names end the same way for the
    157. 

  157.   101            convenience of the loop below; nothing will
    158. 

  158.   102            be appended, however, if a constant structure
    159. 

  159.   103            string was passed because it completely fills
    160. 

  160.   104            its array.*)
    161. 

  161.   105        END;
    162. 

  162.   106        WHILE M2Strings.Length(Structure) > 0 DO
    163. 

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

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

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

  166.   107          CommaSpot := PosUtils.Pos(',', Structure);
    167. 

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

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

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

  170.   108            (*OK if no comma*)
    171. 

  171.   109          BraceSpot := PosUtils.Pos('{', Structure);
    172. 

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

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

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

  175.   110          IF CommaSpot < BraceSpot THEN
    176. 

  176.   111            NextSpot := CommaSpot;
    177. 

  177.   112          ELSE
    178. 

  178.   113            NextSpot := BraceSpot;
    179. 

  179.   114          END;
    180. 

  180.   115          IF NextSpot = 0 THEN
    181. 

  181.   116            ErrorNames.WarningName( 'NoNam' );
    182. 

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

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

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

  185.   117            RETURN;
    186. 

  186.   118          END;
    187. 

  187.   119          M2Strings.Copy( Structure, 0, NextSpot, NameStr );
    188. 

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

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

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

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

  192.   120            (*Copy everything up to the next separator, but not the
    193. 

  193.   121              separator itself.*)
    194. 

  194.   122          M2Strings.Delete( Structure, 0, NextSpot );
    195. 

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

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

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

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

  199.   123            (*Delete everything up to but not including
    200. 

  200.   124              the separator.*)
    201. 

  201.   125          IF M2Strings.Length( Structure ) > 0 THEN
    202. 

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

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

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

  205.   126            M2Strings.Delete( Structure, 0, 1 );
    206. 

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

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

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

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

  210.   127              (*Delete the separator, if present.*)
    211. 

  211.   128          END;
    212. 

  212.   129          GenLists.ListInsert( NameStr, GenLists.StrCode, StruList, 65535);
    213. 

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

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

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

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

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

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

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

  220.   130          (* insert this name into the list *)
    221. 

  221.   131          IF (NextSpot = BraceSpot) AND (BraceSpot <= HIGH(Structure)) THEN
    222. 

  222. *****                                                      ^ undeclared identifier
    223. 

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

  224.   132            (* the preceeding name has a sublist *)
    225. 

  225.   133            GenLists.NewList( SubList);
    226. 

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

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

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

  229.   134            GenLists.ListInsert( SubList, GenLists.ListCode, StruList, 65535);
    230. 

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

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

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

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

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

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

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

  237.   135            (* insert a sublist into the list *)
    238. 

  238.   136            BraceSpot := PosCloseBrace( 0, Structure);
    239. 

  239. *****                         ^ not supported yet
    240. 

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

  241.   137            IF BraceSpot > HIGH( Structure) THEN
    242. 

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

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

  244.   138              ErrorNames.WarningName( 'NdxBrac' );
    245. 

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

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

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

  248.   139              RETURN;
    249. 

  249.   140            END;
    250. 

  250.   141            M2Strings.Copy( Structure, 0, BraceSpot, NameStr );
    251. 

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

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

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

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

  255.   142              (*Copy everything up to the next brace, but not the
    256. 

  256.   143                brace itself.*)
    257. 

  257.   144            M2Strings.Delete( Structure, 0, BraceSpot + 1 );
    258. 

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

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

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

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

  262.   145              (*Delete everything up to and including the brace.*)
    263. 

  263.   146            IF M2Strings.Length( Structure) > 0 THEN
    264. 

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

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

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

  267.   147              (* now delete comma after closing brace *)
    268. 

  268.   148              IF Structure[0] # ',' THEN
    269. 

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

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

  271.   149                ErrorNames.WarningName( 'NdxCmm' );
    272. 

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

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

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

  275.   150                RETURN;
    276. 

  276.   151              ELSE
    277. 

  277.   152                M2Strings.Delete( Structure, 0, 1);
    278. 

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

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

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

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

  282.   153              END;
    283. 

  283.   154            END;
    284. 

  284.   155            MakeStructure( SubList, NameStr);
    285. 

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

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

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

  288.   156          END;
    289. 

  289.   157        END;
    290. 

  290.   158      END MakeStructure;
    291. 

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

  292.   159  
    293. 

  293.   160    BEGIN
    294. 

  294.   161      (*CreateNdxFile*)
    295. 

  295.   162      NdxTypes.InitNdxFile( NdxFile );
    296. 

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

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

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

  299.   163      StrEdit.AssignStr( fname, NdxFile^.name );
    300. 

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

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

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

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

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

  305.   164      WITH NdxFile^ DO
    306. 

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

  307.   165        StringIO.PrintMessage( HandleIO.CreateFile( handle, name ) );
    308. 

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

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

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

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

  312. *****                                                    ^ undeclared identifier
    313. 

  313. *****                                                            ^ undeclared identifier
    314. 

  314.   166        UpdateNeeded := TRUE;
    315. 

  315. *****        ^ undeclared identifier
    316. 

  316.   167        GenLists.NewList( Ndx);
    317. 

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

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

  319. *****                          ^ undeclared identifier
    320. 

  320.   168        GenLists.NilList( AltKeys );
    321. 

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

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

  323. *****                          ^ undeclared identifier
    324. 

  324.   169        GenLists.NewList( ListBuf);
    325. 

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

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

  327. *****                          ^ undeclared identifier
    328. 

  328.   170        GenLists.NewList( StructLst);
    329. 

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

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

  331. *****                          ^ undeclared identifier
    332. 

  332.   171      END;
    333. 

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

  334.   172      StrEdit.DeleteChar( ' ', Structure );
    335. 

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

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

  337. *****                               ^ undeclared identifier
    338. 

  338.   173      StrEdit.CAPstr(Structure);
    339. 

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

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

  341. *****                     ^ undeclared identifier
    342. 

  342.   174      StringIO.WriteStr( NdxFile^.handle, '00' );
    343. 

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

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

  345. *****                         ^ undeclared identifier
    346. 

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

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

  348.   175        (* space at start of file for size of structure to be put *)
    349. 

  349.   176      MakeStructure( NdxFile^.StructLst, Structure);
    350. 

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

  351. *****                     ^ undeclared identifier
    352. 

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

  353. *****                                         ^ undeclared identifier
    354. 

  354.   177      M2Strings.Concat( NdxBones.IsGarbageByte, NdxBones.StructName, TmpName);
    355. 

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

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

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

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

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

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

  361. *****                                                                     ^ undeclared identifier
    362. 

  362.   178      GenLists.ListInsert( TmpName, GenLists.StrCode, NdxFile^.StructLst, 1);
    363. 

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

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

  365. *****                           ^ undeclared identifier
    366. 

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

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

  368. *****                                                      ^ undeclared identifier
    369. 

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

  370. *****                                                                           ^ not supported yet
    371. 

  371.   179        (* add structure name to structure list *)
    372. 

  372.   180      SavedMessage := ListUtils.ListToFileHandle(
    373. 

  373. *****      ^ undeclared identifier
    374. 

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

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

  376.   181          NdxFile^.StructLst, NdxFile^.handle, NdxBones.StartSep,
    377. 

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

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

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

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

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

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

  383.   182          NdxBones.EndSep, 0, BytesWritten );
    384. 

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

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

  386. *****                              ^ undeclared identifier
    387. 

  387.   183      StruSize := Numbers.C( BytesWritten );
    388. 

  388. *****      ^ undeclared identifier
    389. 

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

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

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

  392.   184      IF (SavedMessage # StringIO.NoError) THEN
    393. 

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

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

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

  396.   185        ErrorNames.WarningName( 'StructCreate' );
    397. 

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

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

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

  400.   186      END;
    401. 

  401.   187      GenLists.ListDelete( NdxFile^.StructLst, 1, 1);
    402. 

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

  403. *****               ^ not supported yet
    404. 

  404. *****                           ^ undeclared identifier
    405. 

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

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

  407.   188        (* deletes the StructName from the Structure *)
    408. 

  408.   189      NdxFile^.NdxFilePtr := Numbers.Lc( 2 + StruSize);
    409. 

  409. *****      ^ undeclared identifier
    410. 

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

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

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

  413. *****                                             ^ undeclared identifier
    414. 

  414.   190        (* Point to NdxMarker *)
    415. 

  415.   191      StringIO.WriteStr( NdxFile^.handle, NdxBones.NdxMarker );
    416. 

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

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

  418. *****                         ^ undeclared identifier
    419. 

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

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

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

  422.   192      StringIO.PrintMessage( HandleIO.BlockWrite( NdxFile^.handle,
    423. 

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

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

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

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

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

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

  429.   193          SYSTEM.ADR(NdxFile^.NdxFilePtr), 4));
    430. 

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

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

  432. *****                     ^ undeclared identifier
    433. 

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

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

  435.   194        (* write ndxmarker & position out to end of file *)
    436. 

  436.   195      HandleIO.SetFilePtr( NdxFile^.handle, HandleIO.FromStart, Numbers.Lc( 0));
    437. 

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

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

  439. *****                           ^ undeclared identifier
    440. 

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

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

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

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

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

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

  446.   196      StringIO.PrintMessage( HandleIO.BlockWrite( NdxFile^.handle,
    447. 

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

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

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

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

  451. *****                                                  ^ undeclared identifier
    452. 

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

  453.   197          SYSTEM.ADR( StruSize), 2));
    454. 

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

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

  456. *****                      ^ undeclared identifier
    457. 

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

  458.   198        (* write size of structure out to start of file *)
    459. 

  459.   199      NdxBones.MakeEmptyBuf( NdxFile^.StructLst, NdxFile^.ListBuf );
    460. 

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

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

  462. *****                             ^ undeclared identifier
    463. 

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

  464. *****                                                 ^ undeclared identifier
    465. 

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

  466.   200    END CreateNdxFile;
    467. 

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

  468.   201  
    469. 

  469.   202  
    470. 

  470.   203    PROCEDURE WriteNdx( NdxFile: NdxTypes.NdxFileType );
    471. 

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

  472.   204      VAR
    473. 

  473.   205        BytesWritten: LONGINT;
    474. 

  474.   206      BEGIN
    475. 

  475.   207        HandleIO.SetFilePtr( NdxFile^.handle, HandleIO.FromStart,
    476. 

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

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

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

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

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

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

  482.   208            NdxFile^.NdxFilePtr );
    483. 

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

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

  485.   209          (*Go to end of data area.*)
    486. 

  486.   210        StringIO.WriteStr( NdxFile^.handle, NdxBones.NdxMarker);
    487. 

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

  488. *****                 ^ not supported yet
    489. 

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

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

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

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

  493.   211          (*Write NdxMarker.*)
    494. 

  494.   212        IF StringIO.NoError # ListUtils.ListToFileHandle(
    495. 

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

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

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

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

  499.   213            NdxFile^.Ndx, NdxFile^.handle, '', '', 0, BytesWritten ) THEN
    500. 

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

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

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

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

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

  505.   214          (*The nulls mean "don't write delimiters."*)
    506. 

  506.   215          ErrorNames.WarningName( 'NdxWrt' );
    507. 

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

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

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

  510.   216        END;
    511. 

  511.   217        StringIO.PrintMessage( HandleIO.BlockWrite( NdxFile^.handle,
    512. 

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

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

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

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

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

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

  518.   218            SYSTEM.ADR(NdxFile^.NdxFilePtr), 4) );
    519. 

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

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

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

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

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

  524.   219          (* write starting position of index *)
    525. 

  525.   220        StringIO.PrintMessage(Drectory.SetFileLength(NdxFile^.handle,
    526. 

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

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

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

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

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

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

  532.   221                   HandleIO.GetFilePtr(NdxFile^.handle)));
    533. 

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

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

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

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

  537.   222        HandleIO.UpdateDisk(NdxFile^.handle);
    538. 

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

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

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

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

  542.   223        SetFileUpdate( NdxFile^.handle, NdxBones.NotGarbageByte);
    543. 

  543. *****        ^ undeclared identifier
    544. 

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

  545. *****                                ^ not supported yet
    546. 

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

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

  548.   224        NdxFile^.UpdateNeeded := FALSE;
    549. 

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

  550. *****                 ^ not supported yet
    551. 

  551.   225      END WriteNdx;
    552. 

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

  553.   226  
    554. 

  554.   227    PROCEDURE SetFileUpdate( handle: CARDINAL; GbgByte: CHAR);
    555. 

  555.   228      BEGIN
    556. 

  556.   229        (* Puts the passed character in the file's UpdateNeeded
    557. 

  557.   230           Byte (use IsGarbageByte when file index needs update,
    558. 

  558.   231           and NotGarbageByte when update no longer needed). *)
    559. 

  559.   232        HandleIO.SetFilePtr( handle, HandleIO.FromStart, Numbers.Lc( 10));
    560. 

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

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

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

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

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

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

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

  567.   233        StringIO.WriteStr( handle, GbgByte);
    568. 

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

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

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

  571.   234      END SetFileUpdate;
    572. 

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

  573.   235  
    574. 

  574.   236    PROCEDURE CloseNdxFile( VAR NdxFile: NdxTypes.NdxFileType );
    575. 

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

  576.   237    BEGIN
    577. 

  577.   238      NdxTypes.CheckInit( NdxFile );
    578. 

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

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

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

  581.   239      IF NdxFile^.UpdateNeeded THEN
    582. 

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

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

  584.   240        WriteNdx( NdxFile);
    585. 

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

  586. *****                  ^ not supported yet
    587. 

  587.   241      (* Write Ndx if it has been changed *)
    588. 

  588.   242      END;
    589. 

  589.   243      WITH NdxFile^ DO
    590. 

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

  591.   244        GenLists.DisposeList( ListBuf);
    592. 

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

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

  594. *****                              ^ undeclared identifier
    595. 

  595.   245        GenLists.DisposeList( StructLst);
    596. 

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

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

  598. *****                              ^ undeclared identifier
    599. 

  599.   246        GenLists.DisposeList( Ndx );
    600. 

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

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

  602. *****                              ^ undeclared identifier
    603. 

  603.   247        GenLists.DisposeList( AltKeys );
    604. 

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

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

  606. *****                              ^ undeclared identifier
    607. 

  607.   248          (*Note that we don't dispose of the FileBufPtr because
    608. 

  608.   249            it should always have been absorbed into the ListBuf.*)
    609. 

  609.   250        IF handle # 0 THEN
    610. 

  610. *****           ^ undeclared identifier
    611. 

  611.   251          (*handle may be 0 if the NdxFile record was initialized
    612. 

  612.   252            but never passed to OpenNdxFile.*)
    613. 

  613.   253          StringIO.PrintMessage( HandleIO.CloseHandle( handle) );
    614. 

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

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

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

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

  618. *****                                                       ^ undeclared identifier
    619. 

  619.   254        END;
    620. 

  620.   255      END;
    621. 

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

  622.   256      VStorage.DosDealloc( NdxFile, SYSTEM.TSIZE(NdxRecord) );
    623. 

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

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

  625. *****                           ^ undeclared identifier
    626. 

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

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

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

  629.   257    END CloseNdxFile;
    630. 

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

  631.   258  
    632. 

  632.   259  
    633. 

  633.   260    PROCEDURE ChangedIndex(NdxFile: NdxTypes.NdxFileType);
    634. 

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

  635.   261      BEGIN
    636. 

  636.   262        (* need to account for small changes to index or just big?? *)
    637. 

  637.   263        IF NdxFile^.SafetyOn THEN
    638. 

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

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

  640.   264          WriteNdx( NdxFile);
    641. 

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

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

  643.   265          HandleIO.UpdateDisk( NdxFile^.handle );
    644. 

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

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

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

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

  648.   266          (* writes entire index at end of file *)
    649. 

  649.   267        ELSE
    650. 

  650.   268          IF NOT NdxFile^.UpdateNeeded THEN
    651. 

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

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

  653.   269            SetFileUpdate( NdxFile^.handle, NdxBones.IsGarbageByte);
    654. 

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

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

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

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

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

  659.   270            NdxFile^.UpdateNeeded := TRUE;
    660. 

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

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

  662.   271          END;
    663. 

  663.   272        END;
    664. 

  664.   273      END ChangedIndex;
    665. 

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

  666.   274  
    667. 

  667.   275  
    668. 

  668.   276  PROCEDURE DeleteRecord( VAR NdxFile: NdxTypes.NdxFileType;
    669. 

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

  670.   277      RecName: ARRAY OF CHAR ): BOOLEAN;
    671. 

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

  672.   278      (*Marks RecName as garbage in the linked list so that
    673. 

  673.   279        CrunchNdxFile can delete it from the file, sets garbage
    674. 

  674.   280        byte in file record, and erases in current buffer (if
    675. 

  675.   281        there).  If SafetyOn is set for this NdxFile, also writes
    676. 

  676.   282        the linked list out to the file.*)
    677. 

  677.   283    VAR
    678. 

  678.   284      FilePos: LONGINT;
    679. 

  679.   285      UsedSize, AllocSize : CARDINAL;
    680. 

  680.   286    BEGIN
    681. 

  681.   287      NdxTypes.CheckInit( NdxFile );
    682. 

  682. *****      ^ not supported yet
    683. 

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

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

  685.   288      StrEdit.CrunchBlanks( RecName );
    686. 

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

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

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

  689.   289      IF (M2Strings.Length(RecName) = 0) OR
    690. 

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

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

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

  693.   290          (NOT NdxBones.FindRecord( NdxFile, RecName, FilePos, UsedSize,
    694. 

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

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

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

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

  698.   291          AllocSize)) THEN
    699. 

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

  700.   292        (* If don't find record in index, return FALSE *)
    701. 

  701.   293        RETURN FALSE;
    702. 

  702.   294      END;
    703. 

  703.   295      IF NOT ChangeNdxEntry( RecName, '', FilePos, AllocSize,
    704. 

  704. *****             ^ undeclared identifier
    705. 

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

  706.   296          NdxFile) THEN
    707. 

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

  708.   297        RETURN FALSE;
    709. 

  709.   298      END;
    710. 

  710.   299      (* change index entry to garbage *)
    711. 

  711.   300      INC( FilePos, 8 );
    712. 

  712. *****      ^ undeclared identifier
    713. 

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

  714.   301      HandleIO.SetFilePtr( NdxFile^.handle, HandleIO.FromStart, FilePos);
    715. 

  715. *****      ^ not supported yet
    716. 

  716. *****               ^ not supported yet
    717. 

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

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

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

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

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

  722.   302      StringIO.WriteStr( NdxFile^.handle, NdxBones.IsGarbageByte);
    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. *****                                                   ^ not supported yet
    729. 

  729.   303      (* write garbage byte in old record *)
    730. 

  730.   304      IF PosUtils.Equal(RecName, NdxFile^.BufRecName) THEN
    731. 

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

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

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

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

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

  736.   305        (* if record is now in buffer, erase it *)
    737. 

  737.   306        StrEdit.SetLength( NdxFile^.BufRecName, 0);
    738. 

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

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

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

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

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

  743.   307      END;
    744. 

  744.   308      ChangedIndex( NdxFile);
    745. 

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

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

  747.   309      RETURN TRUE;
    748. 

  748.   310    END DeleteRecord;
    749. 

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

  750.   311  
    751. 

  751.   312  
    752. 

  752.   313  PROCEDURE EncodeList( VAR TheList: GenLists.GenList);
    753. 

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

  754.   314  
    755. 

  755.   315    PROCEDURE EnCodeField( OldAddr: SYSTEM.ADDRESS; OldSize,
    756. 

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

  757.   316        NumberFound: CARDINAL; VAR NewAddr: SYSTEM.ADDRESS;
    758. 

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

  759.   317        VAR NewSize: CARDINAL);
    760. 

  760.   318    (* Change all occurences of CodeChar to CodedStr *)
    761. 

  761.   319      VAR
    762. 

  762.   320        tmpsize, toskip : CARDINAL;
    763. 

  763.   321        Source, Dest: SYSTEM.ADDRESS;
    764. 

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

  765.   322      BEGIN
    766. 

  766.   323        NewSize := NumberFound + OldSize;
    767. 

  767.   324        VStorage.DosAlloc( NewAddr, NewSize);
    768. 

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

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

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

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

  772.   325        (* max size needed *)
    773. 

  773.   326        tmpsize := OldSize;
    774. 

  774.   327        Source := OldAddr;
    775. 

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

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

  777.   328        (* starting address *)
    778. 

  778.   329        Dest := NewAddr;
    779. 

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

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

  781.   330        LOOP
    782. 

  782.   331          toskip := LowLevel.ScanEQ( tmpsize, NdxBones.CodeChar, Source);
    783. 

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

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

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

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

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

  788.   332          (* look for next CodeChar *)
    789. 

  789.   333          LowLevel.Move( Source, Dest, toskip);
    790. 

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

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

  792. *****                         ^ not supported yet
    793. 

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

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

  795.   334          IF toskip >= tmpsize THEN
    796. 

  796.   335            EXIT;
    797. 

  797.   336          END;
    798. 

  798.   337          Dest := LowLevel.AddAddr( Dest, toskip );
    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.   338          LowLevel.Move( SYSTEM.ADR( NdxBones.CodedStr), Dest, 2);
    805. 

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

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

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

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

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

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

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

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

  813.   339          Dest := LowLevel.AddAddr( Dest, 2 );
    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.   340          INC( OldSize);
    820. 

  820. *****          ^ undeclared identifier
    821. 

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

  822.   341          Source := LowLevel.AddAddr( Source, toskip + 1 );
    823. 

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

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

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

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

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

  828.   342          DEC( tmpsize, toskip + 1);
    829. 

  829. *****          ^ undeclared identifier
    830. 

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

  831.   343        END;
    832. 

  832.   344      END EnCodeField;
    833. 

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

  834.   345  
    835. 

  835.   346    VAR
    836. 

  836.   347      NumberFound, OldSize, NewSize, ElmntType, cnt, leng: CARDINAL;
    837. 

  837.   348      SubList: GenLists.GenList;
    838. 

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

  839.   349      OldAddr, NewAddr: SYSTEM.ADDRESS;
    840. 

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

  841.   350    BEGIN
    842. 

  842.   351      leng := GenLists.ListLength( TheList );
    843. 

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

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

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

  846.   352      FOR cnt := 1 TO leng DO
    847. 

  847.   353        GenLists.GetElmtAdr( TheList, cnt, OldAddr, OldSize, ElmntType);
    848. 

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

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

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

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

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

  853.   354        IF ElmntType # GenLists.ListCode THEN
    854. 

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

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

  856.   355          NumberFound := PosUtils.ByteCount( OldSize,
    857. 

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

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

  859.   356              NdxBones.CodeChar, OldAddr );
    860. 

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

  861. *****                       ^ not supported yet
    862. 

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

  863.   357          IF NumberFound > 0 THEN
    864. 

  864.   358            (* do not replace unless code chars found *)
    865. 

  865.   359            EnCodeField( OldAddr, OldSize, NumberFound, NewAddr, NewSize );
    866. 

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

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

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

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

  870.   360            GenLists.ListReplaceAdr( NewAddr, NewSize, ElmntType,
    871. 

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

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

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

  874.   361                TheList, cnt);
    875. 

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

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

  877.   362  	  VStorage.DosDealloc( NewAddr,NewSize ); (* 9/14/91
    878. 

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

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

  880. *****  	                       ^ not supported yet
    881. 

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

  882.   363  	   per report from J March *)
    883. 

  883.   364          END;
    884. 

  884.   365        ELSE
    885. 

  885.   366          (* this element is a list *)
    886. 

  886.   367          GenLists.GetChildList( TheList, cnt, SubList);
    887. 

  887. *****          ^ not supported yet
    888. 

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

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

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

  891.   368          IF GenLists.Initialized( SubList ) THEN
    892. 

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

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

  894. *****                                   ^ not supported yet
    895. 

  895.   369            (*Make sure it's not a nil list.*)
    896. 

  896.   370            EncodeList( SubList );
    897. 

  897. *****            ^ not supported yet
    898. 

  898. *****                        ^ not supported yet
    899. 

  899.   371              (* encode this sublist *)
    900. 

  900.   372          END;
    901. 

  901.   373        END;
    902. 

  902.   374      END;
    903. 

  903.   375    END EncodeList;
    904. 

  904. *****        ^ not supported yet
    905. 

  905.   376  
    906. 

  906.   377  
    907. 

  907.   378    PROCEDURE WriteRecord( VAR NdxFile: NdxTypes.NdxFileType;
    908. 

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

  909.   379      RecName: ARRAY OF CHAR ): BOOLEAN;
    910. 

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

  911.   380      (*First checks to see whether RecName is in the List buffer
    912. 

  912.   381        created by the Put routines below.  Returns FALSE if it
    913. 

  913.   382        isn't.  If it is, then checks to see whether RecName is in
    914. 

  914.   383        the list of existing record names.  If so, and if the
    915. 

  915.   384        record will still fit in its old spot in the file,
    916. 

  916.   385        WriteRecord overwrites the old spot in the file with the
    917. 

  917.   386        data in the list buffer.  Otherwise, it adds the record to
    918. 

  918.   387        the end of the NdxFile, overwriting the ndx, and if the
    919. 

  919.   388        record is not new, marks the spot it formerly occupied as
    920. 

  920.   389        garbage.  If the NdxFile's SafetyOn feature has been turned
    921. 

  921.   390        on, a new ndx will be written each time a record is added
    922. 

  922.   391        to the end of the NdxFile.  Otherwise, the new ndx will be
    923. 

  923.   392        written only when CloseNdxFile is called.*)
    924. 

  924.   393    VAR
    925. 

  925.   394      OldTotalBytes, OldUsedBytes, NewTotData, NumLsts:
    926. 

  926.   395          CARDINAL;
    927. 

  927.   396      BytesWritten, NumElmts, NewFilePtr, offset, TotMem: LONGINT;
    928. 

  928.   397      OldEntry, RecordExists: BOOLEAN;
    929. 

  929.   398      TmpStr: ARRAY [0..79] OF CHAR;
    930. 

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

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

  932.   399      SavedMessage: CARDINAL;
    933. 

  933.   400    BEGIN
    934. 

  934.   401      (* WriteRecord *)
    935. 

  935.   402      NdxTypes.CheckInit( NdxFile );
    936. 

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

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

  938. *****                          ^ not supported yet
    939. 

  939.   403      StrEdit.CrunchBlanks( RecName );
    940. 

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

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

  942. *****                            ^ not supported yet
    943. 

  943.   404      IF NOT PosUtils.Equal(RecName, NdxFile^.BufRecName) THEN
    944. 

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

  945. *****                      ^ not supported yet
    946. 

  946. *****                            ^ not supported yet
    947. 

  947. *****                                     ^ not supported yet
    948. 

  948. *****                                              ^ not supported yet
    949. 

  949.   405        (* if record not in buffer, return FALSE *)
    950. 

  950.   406        RETURN( FALSE );
    951. 

  951.   407      END;
    952. 

  952.   408      StrEdit.AssignStr( RecName, TmpStr );
    953. 

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

  954. *****              ^ not supported yet
    955. 

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

  956. *****                                  ^ not supported yet
    957. 

  957.   409      M2Strings.Insert( NdxBones.NotGarbageByte, TmpStr, 0 );
    958. 

  958. *****      ^ not supported yet
    959. 

  959. *****                ^ not supported yet
    960. 

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

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

  962. *****                                                 ^ not supported yet
    963. 

  963. *****                                                           ^ not supported yet
    964. 

  964.   410      GenLists.ListInsert( TmpStr, GenLists.StrCode,
    965. 

  965. *****      ^ not supported yet
    966. 

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

  967. *****                           ^ not supported yet
    968. 

  968. *****                                   ^ not supported yet
    969. 

  969. *****                                            ^ not supported yet
    970. 

  970.   411          NdxFile^.ListBuf, 1 );
    971. 

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

  972. *****                   ^ not supported yet
    973. 

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

  974.   412        (*Put the record name into the ListBuf.*)
    975. 

  975.   413      StrEdit.SetLength( NdxFile^.BufRecName, 0);
    976. 

  976. *****      ^ not supported yet
    977. 

  977. *****              ^ not supported yet
    978. 

  978. *****                         ^ not supported yet
    979. 

  979. *****                                  ^ not supported yet
    980. 

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

  981.   414        (*We set BufRecName to null to guarantee that this record
    982. 

  982.   415          gets read from the file next time it is needed, because
    983. 

  983.   416          we are about to encode it.*)
    984. 

  984.   417      OldTotalBytes := 0;
    985. 

  985.   418      RecordExists := NdxBones.FindRecord( NdxFile, RecName,
    986. 

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

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

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

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

  990.   419          offset, OldUsedBytes, OldTotalBytes);
    991. 

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

  992.   420      EncodeList( NdxFile^.ListBuf );
    993. 

  993. *****      ^ not supported yet
    994. 

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

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

  996.   421      NewTotData := Numbers.C( GenLists.ListSize( NdxFile^.ListBuf,
    997. 

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

  998. *****                            ^ not supported yet
    999. 

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

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

  1001. *****                                                  ^ not supported yet
    1002. 

  1002. *****                                                           ^ not supported yet
    1003. 

  1003.   422          NumElmts, NumLsts, TotMem));
    1004. 

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

  1005.   423      (* find out maximum size of data in record to be written *)
    1006. 

  1006.   424      INC( NewTotData, 6 + 6 * Numbers.C( NumElmts));
    1007. 

  1007. *****      ^ undeclared identifier
    1008. 

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

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

  1010. *****                                                  ^ not supported yet
    1011. 

  1011.   425      (* add room for: 2 char start & end seps for record,
    1012. 

  1012.   426         2 char start & end seps for every element, and
    1013. 

  1013.   427         2 char TypeCode for every element & for record *)
    1014. 

  1014.   428      OldEntry := RecordExists AND (NewTotData <= OldTotalBytes);
    1015. 

  1015.   429        (* whether record exists and old file spot is big enough *)
    1016. 

  1016.   430      IF OldEntry THEN
    1017. 

  1017.   431          (* rewrite in old spot if not too big *)
    1018. 

  1018.   432        IF NOT ChangeNdxEntry( RecName, RecName, offset,
    1019. 

  1019. *****               ^ undeclared identifier
    1020. 

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

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

  1022.   433            NewTotData, NdxFile) THEN
    1023. 

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

  1024.   434          RETURN FALSE;
    1025. 

  1025.   435        END;
    1026. 

  1026.   436        HandleIO.SetFilePtr( NdxFile^.handle, HandleIO.FromStart, offset );
    1027. 

  1027. *****        ^ not supported yet
    1028. 

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

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

  1030. *****                                      ^ not supported yet
    1031. 

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

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

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

  1034.   437        NewFilePtr := offset;
    1035. 

  1035.   438          (*I'm not sure this assignment is necessary, but it
    1036. 

  1036.   439            prevents confusion.*)
    1037. 

  1037.   440      ELSE
    1038. 

  1038.   441        (* new entry is too big; so delete old index entry and
    1039. 

  1039.   442           write at end *)
    1040. 

  1040.   443        IF RecordExists THEN
    1041. 

  1041.   444          (* change old entry to garbage *)
    1042. 

  1042.   445          IF NOT ChangeNdxEntry( RecName, '', offset,
    1043. 

  1043. *****                 ^ undeclared identifier
    1044. 

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

  1045.   446              OldTotalBytes, NdxFile) THEN
    1046. 

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

  1047.   447            RETURN FALSE;
    1048. 

  1048.   448          END;
    1049. 

  1049.   449          INC( offset, 8 );
    1050. 

  1050. *****          ^ undeclared identifier
    1051. 

  1051. *****                         ^ not supported yet
    1052. 

  1052.   450            (*We skip past the record's first NdxBones.StartSep and
    1053. 

  1053.   451              its ListCode, plus the NdxBones.StartSep for the
    1054. 

  1054.   452              RecordName and its StrCode.  Using a numeric literal
    1055. 

  1055.   453              here is dangerous.*)
    1056. 

  1056.   454          HandleIO.SetFilePtr( NdxFile^.handle, HandleIO.FromStart, offset);
    1057. 

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

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

  1059. *****                               ^ not supported yet
    1060. 

  1060. *****                                        ^ not supported yet
    1061. 

  1061. *****                                                ^ not supported yet
    1062. 

  1062. *****                                                         ^ not supported yet
    1063. 

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

  1064.   455          StringIO.WriteStr( NdxFile^.handle, NdxBones.IsGarbageByte);
    1065. 

  1065. *****          ^ not supported yet
    1066. 

  1066. *****                   ^ not supported yet
    1067. 

  1067. *****                             ^ not supported yet
    1068. 

  1068. *****                                      ^ not supported yet
    1069. 

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

  1070. *****                                                       ^ not supported yet
    1071. 

  1071.   456            (* write garbage byte in old record *)
    1072. 

  1072.   457        END;
    1073. 

  1073.   458        NewFilePtr := NdxFile^.NdxFilePtr;
    1074. 

  1074. *****                      ^ not supported yet
    1075. 

  1075. *****                               ^ not supported yet
    1076. 

  1076.   459          (*NdxFile^.NdxFilePtr always points at the end of the
    1077. 

  1077.   460            NdxFile's data area--at the NdxMarker, in other words.*)
    1078. 

  1078.   461        OldTotalBytes := NewTotData;
    1079. 

  1079.   462          (* initialize two variables that InsertNdxEntry will
    1080. 

  1080.   463             update if it finds old garbage space to re-use *)
    1081. 

  1081.   464        IF NOT InsertNdxEntry( RecName, NewFilePtr, NewTotData,
    1082. 

  1082. *****               ^ undeclared identifier
    1083. 

  1083. *****                               ^ not supported yet
    1084. 

  1084.   465            OldTotalBytes, NdxFile) THEN
    1085. 

  1085. *****                           ^ not supported yet
    1086. 

  1086.   466          (* make new entry for this record, or re-use garbage
    1087. 

  1087.   467             space *)
    1088. 

  1088.   468          RETURN FALSE;
    1089. 

  1089.   469        END;
    1090. 

  1090.   470        (* make new index entry *)
    1091. 

  1091.   471        HandleIO.SetFilePtr( NdxFile^.handle, HandleIO.FromStart, NewFilePtr);
    1092. 

  1092. *****        ^ not supported yet
    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. *****                                                                            ^ not supported yet
    1099. 

  1099.   472        (* put file pointer at start of this new record *)
    1100. 

  1100.   473      END;
    1101. 

  1101.   474      SavedMessage := ListUtils.ListToFileHandle( NdxFile^.ListBuf,
    1102. 

  1102. *****                      ^ not supported yet
    1103. 

  1103. *****                                ^ not supported yet
    1104. 

  1104. *****                                                  ^ not supported yet
    1105. 

  1105. *****                                                           ^ not supported yet
    1106. 

  1106.   475          NdxFile^.handle, NdxBones.StartSep, NdxBones.EndSep, 0,
    1107. 

  1107. *****          ^ not supported yet
    1108. 

  1108. *****                   ^ not supported yet
    1109. 

  1109. *****                           ^ not supported yet
    1110. 

  1110. *****                                    ^ not supported yet
    1111. 

  1111. *****                                              ^ not supported yet
    1112. 

  1112. *****                                                       ^ not supported yet
    1113. 

  1113.   476          BytesWritten );
    1114. 

  1114. *****                       ^ not supported yet
    1115. 

  1115.   477      IF BytesWritten # Numbers.Lc(NewTotData) THEN
    1116. 

  1116. *****                        ^ not supported yet
    1117. 

  1117. *****                                ^ not supported yet
    1118. 

  1118. *****                                             ^ not supported yet
    1119. 

  1119.   478        (*we've miscalculated NewTotData*)
    1120. 

  1120.   479  (*
    1121. 

  1121.   480  Diagnostics.diagL( "Unexpected value for BytesWritten", BytesWritten );
    1122. 

  1122.   481  Diagnostics.diagC( "Should be", NewTotData );
    1123. 

  1123.   482  *)
    1124. 

  1124.   483      END;
    1125. 

  1125.   484      IF NewTotData < OldTotalBytes THEN
    1126. 

  1126.   485        (* garbage space at end of record to fill *)
    1127. 

  1127.   486        DEC( OldTotalBytes, NewTotData);
    1128. 

  1128. *****        ^ undeclared identifier
    1129. 

  1129. *****                                      ^ not supported yet
    1130. 

  1130.   487        IF HandleIO.FillFile( NdxFile^.handle, OldTotalBytes, 0C ) #
    1131. 

  1131. *****           ^ not supported yet
    1132. 

  1132. *****                    ^ not supported yet
    1133. 

  1133. *****                              ^ not supported yet
    1134. 

  1134. *****                                       ^ not supported yet
    1135. 

  1135. *****                                                                 ^ not supported yet
    1136. 

  1136.   488            StringIO.NoError THEN
    1137. 

  1137. *****            ^ not supported yet
    1138. 

  1138. *****                     ^ not supported yet
    1139. 

  1139.   489          (* fill end of record with nulls *)
    1140. 

  1140.   490          RETURN FALSE;
    1141. 

  1141.   491        END;
    1142. 

  1142.   492      END;
    1143. 

  1143.   493      IF (NOT OldEntry) OR (NewTotData # OldUsedBytes) THEN
    1144. 

  1144.   494        (* if not using old index entry *)
    1145. 

  1145.   495        IF NewFilePtr = NdxFile^.NdxFilePtr THEN
    1146. 

  1146. *****                        ^ not supported yet
    1147. 

  1147. *****                                 ^ not supported yet
    1148. 

  1148.   496          NdxFile^.NdxFilePtr := NdxFile^.NdxFilePtr + Numbers.Lc( NewTotData );
    1149. 

  1149. *****          ^ not supported yet
    1150. 

  1150. *****                   ^ not supported yet
    1151. 

  1151. *****                                 ^ not supported yet
    1152. 

  1152. *****                                          ^ not supported yet
    1153. 

  1153. *****                                                       ^ not supported yet
    1154. 

  1154. *****                                                               ^ not supported yet
    1155. 

  1155. *****                                                                              ^ not supported yet
    1156. 

  1156.   497          StringIO.WriteStr( NdxFile^.handle, NdxBones.NdxMarker);
    1157. 

  1157. *****          ^ not supported yet
    1158. 

  1158. *****                   ^ not supported yet
    1159. 

  1159. *****                             ^ not supported yet
    1160. 

  1160. *****                                      ^ not supported yet
    1161. 

  1161. *****                                              ^ not supported yet
    1162. 

  1162. *****                                                       ^ not supported yet
    1163. 

  1163.   498          (* correct ndxfileptr and write ndxmarker if adding
    1164. 

  1164.   499             to end of file *)
    1165. 

  1165.   500        END;
    1166. 

  1166.   501        ChangedIndex( NdxFile);
    1167. 

  1167. *****        ^ not supported yet
    1168. 

  1168. *****                      ^ not supported yet
    1169. 

  1169.   502        (* write changed index to file, or set UpdateNeeded *)
    1170. 

  1170.   503      END;
    1171. 

  1171.   504      GenLists.DisposeList( NdxFile^.ListBuf );
    1172. 

  1172. *****      ^ not supported yet
    1173. 

  1173. *****               ^ not supported yet
    1174. 

  1174. *****                            ^ not supported yet
    1175. 

  1175. *****                                     ^ not supported yet
    1176. 

  1176.   505        (*Might as well dispose of the list buffer since it's no good once
    1177. 

  1177.   506          we've encoded it.*)
    1178. 

  1178.   507      StrEdit.SetLength( NdxFile^.BufRecName, 0);
    1179. 

  1179. *****      ^ not supported yet
    1180. 

  1180. *****              ^ not supported yet
    1181. 

  1181. *****                         ^ not supported yet
    1182. 

  1182. *****                                  ^ not supported yet
    1183. 

  1183. *****                                               ^ not supported yet
    1184. 

  1184.   508        (*Set BufRecName to null again because ChangeNdxEntry may
    1185. 

  1185.   509          have put the name back in.*)
    1186. 

  1186.   510      RETURN TRUE;
    1187. 

  1187.   511    END WriteRecord;
    1188. 

  1188. *****        ^ not supported yet
    1189. 

  1189.   512  
    1190. 

  1190.   513  
    1191. 

  1191.   514  PROCEDURE ResetBuf( VAR TheBuf: GenLists.GenList );
    1192. 

  1192. *****                                           ^ not supported yet
    1193. 

  1193.   515    VAR
    1194. 

  1194.   516      ElmntBytes, ElmntType, theleng, cnt: CARDINAL;
    1195. 

  1195.   517      TmpAddr: SYSTEM.ADDRESS;
    1196. 

  1196. *****                      ^ not supported yet
    1197. 

  1197.   518      sublst: GenLists.GenList;
    1198. 

  1198. *****                       ^ not supported yet
    1199. 

  1199.   519    BEGIN
    1200. 

  1200.   520      theleng := GenLists.ListLength( TheBuf);
    1201. 

  1201. *****                 ^ not supported yet
    1202. 

  1202. *****                          ^ not supported yet
    1203. 

  1203. *****                                      ^ not supported yet
    1204. 

  1204.   521      IF theleng # 0 THEN
    1205. 

  1205.   522        FOR cnt := 1 TO theleng DO
    1206. 

  1206.   523          GenLists.GetElmtAdr( TheBuf, cnt, TmpAddr, ElmntBytes, ElmntType);
    1207. 

  1207. *****          ^ not supported yet
    1208. 

  1208. *****                   ^ not supported yet
    1209. 

  1209. *****                               ^ not supported yet
    1210. 

  1210. *****                                            ^ not supported yet
    1211. 

  1211. *****                                                                          ^ not supported yet
    1212. 

  1212.   524          IF ElmntType = GenLists.ListCode THEN
    1213. 

  1213. *****                         ^ not supported yet
    1214. 

  1214. *****                                  ^ not supported yet
    1215. 

  1215.   525            GenLists.GetChildList( TheBuf, cnt, sublst);
    1216. 

  1216. *****            ^ not supported yet
    1217. 

  1217. *****                     ^ not supported yet
    1218. 

  1218. *****                                   ^ not supported yet
    1219. 

  1219. *****                                                ^ not supported yet
    1220. 

  1220.   526            ResetBuf( sublst);
    1221. 

  1221. *****            ^ not supported yet
    1222. 

  1222. *****                      ^ not supported yet
    1223. 

  1223.   527          ELSIF ElmntType = GenLists.StrCode THEN
    1224. 

  1224. *****                            ^ not supported yet
    1225. 

  1225. *****                                     ^ not supported yet
    1226. 

  1226.   528            LowLevel.Fill( TmpAddr, 1, 0C);
    1227. 

  1227. *****            ^ not supported yet
    1228. 

  1228. *****                     ^ not supported yet
    1229. 

  1229. *****                           ^ not supported yet
    1230. 

  1230. *****                                         ^ not supported yet
    1231. 

  1231.   529          ELSE
    1232. 

  1232.   530            LowLevel.Fill( TmpAddr, ElmntBytes, 0C);
    1233. 

  1233. *****            ^ not supported yet
    1234. 

  1234. *****                     ^ not supported yet
    1235. 

  1235. *****                           ^ not supported yet
    1236. 

  1236. *****                                                  ^ not supported yet
    1237. 

  1237.   531          END;
    1238. 

  1238.   532        END;
    1239. 

  1239.   533      END;
    1240. 

  1240.   534    END ResetBuf;
    1241. 

  1241. *****        ^ not supported yet
    1242. 

  1242.   535  
    1243. 

  1243.   536  
    1244. 

  1244.   537    PROCEDURE FindField( StruList: GenLists.GenList; FieldName: ARRAY OF CHAR;
    1245. 

  1245. *****                                            ^ not supported yet
    1246. 

  1246. *****                                                                         ^ not supported yet
    1247. 

  1247.   538       VAR DataList: GenLists.GenList; VAR spot: CARDINAL): BOOLEAN;
    1248. 

  1248. *****                              ^ not supported yet
    1249. 

  1249.   539       (* flip thru structure to find field & return the sublist
    1250. 

  1250.   540          it is in & its position in that list;
    1251. 

  1251.   541          if can't find, return FALSE.
    1252. 

  1252.   542          Start counting with spot.*)
    1253. 

  1253.   543      VAR
    1254. 

  1254.   544        NameSize, NameType, PeriodSpot, indx, cnt,
    1255. 

  1255.   545          FieldLeng, ElmntBytes, ElmntType: CARDINAL;
    1256. 

  1256.   546        TmpPtr, NamePtr: LowLevel.Address8086;
    1257. 

  1257. *****                                  ^ not supported yet
    1258. 

  1258.   547        SubName: ARRAY [0..255] OF CHAR;
    1259. 

  1259. *****                           ^ not supported yet
    1260. 

  1260. *****                                   ^ not supported yet
    1261. 

  1261.   548        NotFound, StillMatches: BOOLEAN;
    1262. 

  1262.   549        SubStruList, SubDataList: GenLists.GenList;
    1263. 

  1263. *****                                           ^ not supported yet
    1264. 

  1264.   550        TmpAddr: SYSTEM.ADDRESS;
    1265. 

  1265. *****                        ^ not supported yet
    1266. 

  1266.   551      BEGIN
    1267. 

  1267.   552        (*FindField*)
    1268. 

  1268.   553        StrEdit.CAPstr(FieldName);
    1269. 

  1269. *****        ^ not supported yet
    1270. 

  1270. *****                ^ not supported yet
    1271. 

  1271. *****                       ^ not supported yet
    1272. 

  1272.   554        IF PosUtils.Equal( FieldName, 'RECORD') THEN
    1273. 

  1273. *****           ^ not supported yet
    1274. 

  1274. *****                    ^ not supported yet
    1275. 

  1275. *****                           ^ not supported yet
    1276. 

  1276. *****                                      ^ not supported yet
    1277. 

  1277.   555          spot := 0;
    1278. 

  1278.   556          RETURN TRUE;
    1279. 

  1279.   557        END;
    1280. 

  1280.   558        cnt := 1;
    1281. 

  1281.   559        NotFound := TRUE;
    1282. 

  1282.   560        PeriodSpot := PosUtils.Pos( '.', FieldName);
    1283. 

  1283. *****                      ^ not supported yet
    1284. 

  1284. *****                               ^ not supported yet
    1285. 

  1285. *****                                         ^ not supported yet
    1286. 

  1286.   561        StrEdit.SetLength( SubName, 0);
    1287. 

  1287. *****        ^ not supported yet
    1288. 

  1288. *****                ^ not supported yet
    1289. 

  1289. *****                           ^ not supported yet
    1290. 

  1290. *****                                     ^ not supported yet
    1291. 

  1291.   562        IF PeriodSpot <= HIGH( FieldName) THEN
    1292. 

  1292. *****                         ^ undeclared identifier
    1293. 

  1293. *****                               ^ not supported yet
    1294. 

  1294.   563          (* period found -> subfields specified *)
    1295. 

  1295.   564          IF PeriodSpot = M2Strings.Length(FieldName) - 1 THEN
    1296. 

  1296. *****                          ^ not supported yet
    1297. 

  1297. *****                                    ^ not supported yet
    1298. 

  1298. *****                                           ^ not supported yet
    1299. 

  1299.   565            StrEdit.SetLength( FieldName, M2Strings.Length( FieldName) - 1);
    1300. 

  1300. *****            ^ not supported yet
    1301. 

  1301. *****                    ^ not supported yet
    1302. 

  1302. *****                               ^ not supported yet
    1303. 

  1303. *****                                          ^ not supported yet
    1304. 

  1304. *****                                                    ^ not supported yet
    1305. 

  1305. *****                                                            ^ not supported yet
    1306. 

  1306. *****                                                                          ^ not supported yet
    1307. 

  1307.   566            (* delete period if alone at end of field name *)
    1308. 

  1308.   567          ELSE
    1309. 

  1309.   568            M2Strings.Copy( FieldName, PeriodSpot + 1,
    1310. 

  1310. *****            ^ not supported yet
    1311. 

  1311. *****                      ^ not supported yet
    1312. 

  1312. *****                            ^ not supported yet
    1313. 

  1313.   569                M2Strings.Length(FieldName) -PeriodSpot - 1,
    1314. 

  1314. *****                ^ not supported yet
    1315. 

  1315. *****                          ^ not supported yet
    1316. 

  1316. *****                                 ^ not supported yet
    1317. 

  1317.   570                SubName);
    1318. 

  1318. *****                ^ not supported yet
    1319. 

  1319.   571            (* SubName is the name of the subfields *)
    1320. 

  1320.   572            StrEdit.SetLength( FieldName, PeriodSpot);
    1321. 

  1321. *****            ^ not supported yet
    1322. 

  1322. *****                    ^ not supported yet
    1323. 

  1323. *****                               ^ not supported yet
    1324. 

  1324. *****                                                    ^ not supported yet
    1325. 

  1325.   573            (* make field name the name at the first level *)
    1326. 

  1326.   574          END;
    1327. 

  1327.   575        END;
    1328. 

  1328.   576        FieldLeng := M2Strings.Length( FieldName);
    1329. 

  1329. *****                     ^ not supported yet
    1330. 

  1330. *****                               ^ not supported yet
    1331. 

  1331. *****                                       ^ not supported yet
    1332. 

  1332.   577        (* length of name sought *)
    1333. 

  1333.   578        WHILE (cnt <= GenLists.ListLength( StruList)) AND NotFound DO
    1334. 

  1334. *****                      ^ not supported yet
    1335. 

  1335. *****                               ^ not supported yet
    1336. 

  1336. *****                                           ^ not supported yet
    1337. 

  1337.   579          (* flip thru structure to find field *)
    1338. 

  1338.   580          GenLists.GetElmtAdr( StruList, cnt, NamePtr.a, NameSize, NameType);
    1339. 

  1339. *****          ^ not supported yet
    1340. 

  1340. *****                   ^ not supported yet
    1341. 

  1341. *****                               ^ not supported yet
    1342. 

  1342. *****                                              ^ not supported yet
    1343. 

  1343. *****                                                      ^ not supported yet
    1344. 

  1344. *****                                                                           ^ not supported yet
    1345. 

  1345.   581          (* read next field *)
    1346. 

  1346.   582          INC( cnt);
    1347. 

  1347. *****          ^ undeclared identifier
    1348. 

  1348. *****                  ^ not supported yet
    1349. 

  1349.   583          IF (NameType # GenLists.ListCode) THEN
    1350. 

  1350. *****                         ^ not supported yet
    1351. 

  1351. *****                                  ^ not supported yet
    1352. 

  1352.   584            (* if not a list, see if it is the sought name *)
    1353. 

  1353.   585            INC( spot);
    1354. 

  1354. *****            ^ undeclared identifier
    1355. 

  1355. *****                     ^ not supported yet
    1356. 

  1356.   586            (* inc the field counter *)
    1357. 

  1357.   587            IF NameSize = (1 + FieldLeng) THEN
    1358. 

  1358.   588              (* compare this field name to name sought *)
    1359. 

  1359.   589              indx := 0;
    1360. 

  1360.   590              TmpPtr := NamePtr;
    1361. 

  1361. *****              ^ not supported yet
    1362. 

  1362. *****                        ^ not supported yet
    1363. 

  1363.   591              StillMatches := TRUE;
    1364. 

  1364.   592              WHILE StillMatches AND (indx < FieldLeng) DO
    1365. 

  1365.   593                StillMatches := FieldName[ indx] = TmpPtr.b^;
    1366. 

  1366. *****                                ^ not supported yet
    1367. 

  1367. *****                                               ^ not supported yet
    1368. 

  1368. *****                                                   ^ not supported yet
    1369. 

  1369. *****                                                          ^ not supported yet
    1370. 

  1370.   594                IF StillMatches THEN
    1371. 

  1371.   595                  INC( indx);
    1372. 

  1372. *****                  ^ undeclared identifier
    1373. 

  1373. *****                           ^ not supported yet
    1374. 

  1374.   596                  LowLevel.IncAddr( TmpPtr.a, 1 );
    1375. 

  1375. *****                  ^ not supported yet
    1376. 

  1376. *****                           ^ not supported yet
    1377. 

  1377. *****                                    ^ not supported yet
    1378. 

  1378. *****                                           ^ not supported yet
    1379. 

  1379. *****                                                ^ not supported yet
    1380. 

  1380.   597                END;
    1381. 

  1381.   598              END;
    1382. 

  1382.   599              NotFound := NOT StillMatches;
    1383. 

  1383.   600            END;
    1384. 

  1384.   601          END;
    1385. 

  1385.   602        END;
    1386. 

  1386.   603        IF NotFound THEN
    1387. 

  1387.   604          RETURN FALSE ;
    1388. 

  1388.   605        END;
    1389. 

  1389.   606        IF M2Strings.Length( SubName) # 0 THEN
    1390. 

  1390. *****           ^ not supported yet
    1391. 

  1391. *****                     ^ not supported yet
    1392. 

  1392. *****                             ^ not supported yet
    1393. 

  1393.   607          GenLists.GetElmtAdr( StruList, cnt, TmpAddr, ElmntBytes, ElmntType);
    1394. 

  1394. *****          ^ not supported yet
    1395. 

  1395. *****                   ^ not supported yet
    1396. 

  1396. *****                               ^ not supported yet
    1397. 

  1397. *****                                              ^ not supported yet
    1398. 

  1398. *****                                                                            ^ not supported yet
    1399. 

  1399.   608          IF ElmntType = GenLists.ListCode THEN
    1400. 

  1400. *****                         ^ not supported yet
    1401. 

  1401. *****                                  ^ not supported yet
    1402. 

  1402.   609            (* if this field has a sub list *)
    1403. 

  1403.   610            GenLists.GetChildList( StruList, cnt, SubStruList);
    1404. 

  1404. *****            ^ not supported yet
    1405. 

  1405. *****                     ^ not supported yet
    1406. 

  1406. *****                                   ^ not supported yet
    1407. 

  1407. *****                                                  ^ not supported yet
    1408. 

  1408.   611            GenLists.GetChildList( DataList, spot, SubDataList);
    1409. 

  1409. *****            ^ not supported yet
    1410. 

  1410. *****                     ^ not supported yet
    1411. 

  1411. *****                                   ^ not supported yet
    1412. 

  1412. *****                                                   ^ not supported yet
    1413. 

  1413.   612            DataList := SubDataList;
    1414. 

  1414. *****            ^ not supported yet
    1415. 

  1415. *****                        ^ not supported yet
    1416. 

  1416.   613            spot := 0;
    1417. 

  1417.   614            IF NOT FindField( SubStruList, SubName, DataList, spot)
    1418. 

  1418. *****                   ^ not supported yet
    1419. 

  1419. *****                              ^ not supported yet
    1420. 

  1420. *****                                           ^ not supported yet
    1421. 

  1421. *****                                                    ^ not supported yet
    1422. 

  1422. *****                                                                  ^ not supported yet
    1423. 

  1423.   615                THEN
    1424. 

  1424.   616              RETURN FALSE;
    1425. 

  1425.   617            END;
    1426. 

  1426.   618          ELSE
    1427. 

  1427.   619            RETURN FALSE;
    1428. 

  1428.   620          END;
    1429. 

  1429.   621        END;
    1430. 

  1430.   622        RETURN TRUE;
    1431. 

  1431.   623      END FindField;
    1432. 

  1432. *****          ^ not supported yet
    1433. 

  1433.   624  
    1434. 

  1434.   625  PROCEDURE AddRecord( NdxFile: NdxTypes.NdxFileType; RecName:
    1435. 

  1435. *****                                         ^ not supported yet
    1436. 

  1436.   626      ARRAY OF CHAR);
    1437. 

  1437. *****               ^ not supported yet
    1438. 

  1438.   627      (* Adds new record to file by:
    1439. 

  1439.   628           putting record name in BufRecName
    1440. 

  1440.   629           (don't add to index; WriteRec will do it)
    1441. 

  1441.   630           and creating empty list buffer *)
    1442. 

  1442.   631      BEGIN
    1443. 

  1443.   632        StrEdit.AssignStr(RecName, NdxFile^.BufRecName);
    1444. 

  1444. *****        ^ not supported yet
    1445. 

  1445. *****                ^ not supported yet
    1446. 

  1446. *****                          ^ not supported yet
    1447. 

  1447. *****                                   ^ not supported yet
    1448. 

  1448. *****                                            ^ not supported yet
    1449. 

  1449.   633        ResetBuf( NdxFile^.ListBuf );
    1450. 

  1450. *****        ^ not supported yet
    1451. 

  1451. *****                  ^ not supported yet
    1452. 

  1452. *****                           ^ not supported yet
    1453. 

  1453.   634        (* initialize empty ListBuf *)
    1454. 

  1454.   635      END AddRecord;
    1455. 

  1455. *****          ^ not supported yet
    1456. 

  1456.   636  
    1457. 

  1457.   637  
    1458. 

  1458.   638  PROCEDURE PutField( VAR NdxFile: NdxTypes.NdxFileType;
    1459. 

  1459. *****                                            ^ not supported yet
    1460. 

  1460.   639      RecName, FieldName: ARRAY OF CHAR; TheType: CARDINAL;
    1461. 

  1461. *****                                   ^ not supported yet
    1462. 

  1462.   640      TheField: ARRAY OF SYSTEM.BYTE ): BOOLEAN;
    1463. 

  1463. *****                                ^ not supported yet
    1464. 

  1464.   641    BEGIN
    1465. 

  1465.   642      RETURN PutFieldAdr( NdxFile, RecName, FieldName, TheType,
    1466. 

  1466. *****             ^ undeclared identifier
    1467. 

  1467. *****                          ^ not supported yet
    1468. 

  1468. *****                                   ^ not supported yet
    1469. 

  1469. *****                                            ^ not supported yet
    1470. 

  1470.   643          SYSTEM.ADR(TheField), HIGH(TheField) + 1 );
    1471. 

  1471. *****          ^ not supported yet
    1472. 

  1472. *****                 ^ not supported yet
    1473. 

  1473. *****                     ^ not supported yet
    1474. 

  1474. *****                                ^ undeclared identifier
    1475. 

  1475. *****                                     ^ not supported yet
    1476. 

  1476. *****                                                   ^ not supported yet
    1477. 

  1477.   644    END PutField;
    1478. 

  1478. *****        ^ not supported yet
    1479. 

  1479.   645  
    1480. 

  1480.   646  
    1481. 

  1481.   647  PROCEDURE GetField( VAR NdxFile: NdxTypes.NdxFileType;
    1482. 

  1482. *****                                            ^ not supported yet
    1483. 

  1483.   648      RecName, FieldName: ARRAY OF CHAR; VAR TheType: CARDINAL;
    1484. 

  1484. *****                                   ^ not supported yet
    1485. 

  1485.   649      VAR TheField: ARRAY OF SYSTEM.BYTE ): BOOLEAN;
    1486. 

  1486. *****                                    ^ not supported yet
    1487. 

  1487.   650    VAR
    1488. 

  1488.   651      TmpAdr: SYSTEM.ADDRESS;
    1489. 

  1489. *****                     ^ not supported yet
    1490. 

  1490.   652      TmpSize: CARDINAL;
    1491. 

  1491.   653      found: BOOLEAN;
    1492. 

  1492.   654    BEGIN
    1493. 

  1493.   655      found := GetFieldAdr( NdxFile, RecName, FieldName, TheType,
    1494. 

  1494. *****               ^ undeclared identifier
    1495. 

  1495. *****                            ^ not supported yet
    1496. 

  1496. *****                                     ^ not supported yet
    1497. 

  1497. *****                                              ^ not supported yet
    1498. 

  1498.   656          TmpAdr, TmpSize );
    1499. 

  1499. *****          ^ not supported yet
    1500. 

  1500. *****                          ^ not supported yet
    1501. 

  1501.   657      IF found THEN
    1502. 

  1502.   658        LowLevel.Move( TmpAdr, SYSTEM.ADR(TheField),
    1503. 

  1503. *****        ^ not supported yet
    1504. 

  1504. *****                 ^ not supported yet
    1505. 

  1505. *****                       ^ not supported yet
    1506. 

  1506. *****                               ^ not supported yet
    1507. 

  1507. *****                                      ^ not supported yet
    1508. 

  1508. *****                                          ^ not supported yet
    1509. 

  1509.   659            Numbers.Min(TmpSize, HIGH(TheField) + 1) );
    1510. 

  1510. *****            ^ not supported yet
    1511. 

  1511. *****                    ^ not supported yet
    1512. 

  1512. *****                                 ^ undeclared identifier
    1513. 

  1513. *****                                      ^ not supported yet
    1514. 

  1514. *****                                                   ^ not supported yet
    1515. 

  1515.   660        IF TheType = GenLists.StrCode THEN
    1516. 

  1516. *****                     ^ not supported yet
    1517. 

  1517. *****                              ^ not supported yet
    1518. 

  1518.   661          IF (HIGH(TheField) + 2) < TmpSize THEN
    1519. 

  1519. *****              ^ undeclared identifier
    1520. 

  1520. *****                   ^ not supported yet
    1521. 

  1521.   662            (*Ignore the fact that we couldn't store the null
    1522. 

  1522.   663              terminator.*)
    1523. 

  1523.   664            found := FALSE;
    1524. 

  1524.   665          END;
    1525. 

  1525.   666        ELSIF (HIGH(TheField) + 1) < TmpSize THEN
    1526. 

  1526. *****               ^ undeclared identifier
    1527. 

  1527. *****                    ^ not supported yet
    1528. 

  1528.   667          (*We do this to warn user that there's been an
    1529. 

  1529.   668            overflow.*)
    1530. 

  1530.   669          found := FALSE;
    1531. 

  1531.   670        END;
    1532. 

  1532.   671      END;
    1533. 

  1533.   672      RETURN found;
    1534. 

  1534.   673    END GetField;
    1535. 

  1535. *****        ^ not supported yet
    1536. 

  1536.   674  
    1537. 

  1537.   675  
    1538. 

  1538.   676    PROCEDURE PutFieldAdr( VAR NdxFile: NdxTypes.NdxFileType; RecName,
    1539. 

  1539. *****                                                 ^ not supported yet
    1540. 

  1540.   677        FieldName: ARRAY OF CHAR; TheType: CARDINAL; TheFieldAdr:
    1541. 

  1541. *****                            ^ not supported yet
    1542. 

  1542.   678        SYSTEM.ADDRESS; TheFieldSize: CARDINAL ): BOOLEAN;
    1543. 

  1543. *****               ^ not supported yet
    1544. 

  1544.   679        (*Returns FALSE if FieldName is not in the structure list
    1545. 

  1545.   680          associated with NdxFile, or if not of TheType. It
    1546. 

  1546.   681          calls InitBuffer to: do a Retrieve if current contents of
    1547. 

  1547.   682          RecName are not in the read buffer, and then it transfers
    1548. 

  1548.   683          from the read buffer into the list buffer (actually it
    1549. 

  1549.   684          allocates a list element for every field in the read
    1550. 

  1550.   685          buffer).  If the RecName does not exist, it is created.
    1551. 

  1551.   686          Then it looks for FieldName in that list (the list
    1552. 

  1552.   687          buffer), encodes the incoming string and puts it over the
    1553. 

  1553.   688          current value. Doesn't actually write anything to the
    1554. 

  1554.   689          file; you have to use WriteRecord before doing a Put with
    1555. 

  1555.   690          any different record, else the stuff you've stored in the
    1556. 

  1556.   691          list buffer will be lost.*)
    1557. 

  1557.   692      VAR
    1558. 

  1558.   693        len1, len2, spot: CARDINAL;
    1559. 

  1559.   694        TmpList, DataList: GenLists.GenList;
    1560. 

  1560. *****                                    ^ not supported yet
    1561. 

  1561.   695      BEGIN
    1562. 

  1562.   696        spot := 0;
    1563. 

  1563.   697        StrEdit.CrunchBlanks( RecName );
    1564. 

  1564. *****        ^ not supported yet
    1565. 

  1565. *****                ^ not supported yet
    1566. 

  1566. *****                              ^ not supported yet
    1567. 

  1567.   698        len1 := M2Strings.Length(RecName);
    1568. 

  1568. *****                ^ not supported yet
    1569. 

  1569. *****                          ^ not supported yet
    1570. 

  1570. *****                                 ^ not supported yet
    1571. 

  1571.   699        IF len1 > NdxTypes.RecNameLength THEN
    1572. 

  1572. *****                  ^ not supported yet
    1573. 

  1573. *****                           ^ not supported yet
    1574. 

  1574.   700          StrEdit.SetLength( RecName, NdxTypes.RecNameLength );
    1575. 

  1575. *****          ^ not supported yet
    1576. 

  1576. *****                  ^ not supported yet
    1577. 

  1577. *****                             ^ not supported yet
    1578. 

  1578. *****                                      ^ not supported yet
    1579. 

  1579. *****                                               ^ not supported yet
    1580. 

  1580.   701        END;
    1581. 

  1581.   702        IF len1 = 0 THEN
    1582. 

  1582.   703          RETURN FALSE;
    1583. 

  1583.   704        ELSIF NOT NdxBones.InitBuffer( NdxFile, RecName) THEN
    1584. 

  1584. *****                  ^ not supported yet
    1585. 

  1585. *****                           ^ not supported yet
    1586. 

  1586. *****                                       ^ not supported yet
    1587. 

  1587. *****                                                ^ not supported yet
    1588. 

  1588.   705          (*Loads file data if exists, or else creates new record.*)
    1589. 

  1589.   706          AddRecord( NdxFile, RecName);
    1590. 

  1590. *****          ^ not supported yet
    1591. 

  1591. *****                     ^ not supported yet
    1592. 

  1592. *****                              ^ not supported yet
    1593. 

  1593.   707        END;
    1594. 

  1594.   708        DataList := NdxFile^.ListBuf;
    1595. 

  1595. *****        ^ not supported yet
    1596. 

  1596. *****                    ^ not supported yet
    1597. 

  1597. *****                             ^ not supported yet
    1598. 

  1598.   709        IF NOT FindField( NdxFile^.StructLst, FieldName, DataList, spot) THEN
    1599. 

  1599. *****               ^ not supported yet
    1600. 

  1600. *****                          ^ not supported yet
    1601. 

  1601. *****                                   ^ not supported yet
    1602. 

  1602. *****                                              ^ not supported yet
    1603. 

  1603. *****                                                         ^ not supported yet
    1604. 

  1604. *****                                                                       ^ not supported yet
    1605. 

  1605.   710          (* locates field; returns list and position *)
    1606. 

  1606.   711          RETURN FALSE;
    1607. 

  1607.   712        END;
    1608. 

  1608.   713        IF (spot = 0) THEN
    1609. 

  1609.   714          (* replacing the entire record *)
    1610. 

  1610.   715          IF (TheType # GenLists.ListCode) THEN
    1611. 

  1611. *****                        ^ not supported yet
    1612. 

  1612. *****                                 ^ not supported yet
    1613. 

  1613.   716            (*This used to be illegal.  Now we anticipate what
    1614. 

  1614.   717              they're trying to do.*)
    1615. 

  1615.   718            GenLists.NewList( TmpList );
    1616. 

  1616. *****            ^ not supported yet
    1617. 

  1617. *****                     ^ not supported yet
    1618. 

  1618. *****                              ^ not supported yet
    1619. 

  1619.   719            GenLists.ListInsertAdr( TheFieldAdr, TheFieldSize,
    1620. 

  1620. *****            ^ not supported yet
    1621. 

  1621. *****                     ^ not supported yet
    1622. 

  1622. *****                                    ^ not supported yet
    1623. 

  1623.   720                TheType, TmpList, 1 );
    1624. 

  1624. *****                         ^ not supported yet
    1625. 

  1625. *****                                    ^ not supported yet
    1626. 

  1626.   721          ELSIF NOT GenLists.AdrToList( TheFieldAdr, TheFieldSize, TmpList ) THEN
    1627. 

  1627. *****                    ^ not supported yet
    1628. 

  1628. *****                             ^ not supported yet
    1629. 

  1629. *****                                        ^ not supported yet
    1630. 

  1630. *****                                                                   ^ not supported yet
    1631. 

  1631.   722            HALT();
    1632. 

  1632. *****            ^ undeclared identifier
    1633. 

  1633. *****                 ^ not supported yet
    1634. 

  1634.   723          END;
    1635. 

  1635.   724          len1 := GenLists.ListLength(TmpList);
    1636. 

  1636. *****                  ^ not supported yet
    1637. 

  1637. *****                           ^ not supported yet
    1638. 

  1638. *****                                      ^ not supported yet
    1639. 

  1639.   725          len2 := GenLists.ListLength(DataList);
    1640. 

  1640. *****                  ^ not supported yet
    1641. 

  1641. *****                           ^ not supported yet
    1642. 

  1642. *****                                      ^ not supported yet
    1643. 

  1643.   726          IF ( 1 + len1 ) >= len2 THEN
    1644. 

  1644.   727            (* only allow if list as big as structure *)
    1645. 

  1645.   728            IF SYSTEM.ADDRESS(NdxFile^.ListBuf) # SYSTEM.ADDRESS(TmpList) THEN
    1646. 

  1646. *****               ^ not supported yet
    1647. 

  1647. *****                      ^ not supported yet
    1648. 

  1648. *****                              ^ not supported yet
    1649. 

  1649. *****                                       ^ not supported yet
    1650. 

  1650. *****                                                  ^ not supported yet
    1651. 

  1651. *****                                                         ^ not supported yet
    1652. 

  1652. *****                                                                 ^ not supported yet
    1653. 

  1653.   729              (*We do this test because it's likely that ListBuf and
    1654. 

  1654.   730                TmpList will be the same--GetField gives you the real
    1655. 

  1655.   731                ListBuf, not a copy of it, so people may be modifying
    1656. 

  1656.   732                the ListBuf directly and then passing it back to
    1657. 

  1657.   733                PutField.  The PutField in that case isn't necessary,
    1658. 

  1658.   734                since PutField's only purpose is to modify the
    1659. 

  1659.   735                ListBuf.*)
    1660. 

  1660.   736              GenLists.DisposeList( NdxFile^.ListBuf);
    1661. 

  1661. *****              ^ not supported yet
    1662. 

  1662. *****                       ^ not supported yet
    1663. 

  1663. *****                                    ^ not supported yet
    1664. 

  1664. *****                                             ^ not supported yet
    1665. 

  1665.   737              NdxFile^.ListBuf := TmpList;
    1666. 

  1666. *****              ^ not supported yet
    1667. 

  1667. *****                       ^ not supported yet
    1668. 

  1668. *****                                  ^ not supported yet
    1669. 

  1669.   738              (* dispose of old buffer and use new data as buffer *)
    1670. 

  1670.   739            END;
    1671. 

  1671.   740          ELSE
    1672. 

  1672.   741            RETURN FALSE;
    1673. 

  1673.   742          END;
    1674. 

  1674.   743        ELSE
    1675. 

  1675.   744          GenLists.ListReplaceAdr( TheFieldAdr, TheFieldSize, TheType,
    1676. 

  1676. *****          ^ not supported yet
    1677. 

  1677. *****                   ^ not supported yet
    1678. 

  1678. *****                                   ^ not supported yet
    1679. 

  1679.   745              DataList, spot );
    1680. 

  1680. *****              ^ not supported yet
    1681. 

  1681. *****                             ^ not supported yet
    1682. 

  1682.   746          (* puts new data in list buffer in proper spot *)
    1683. 

  1683.   747        END;
    1684. 

  1684.   748        RETURN TRUE;
    1685. 

  1685.   749      END PutFieldAdr;
    1686. 

  1686. *****          ^ not supported yet
    1687. 

  1687.   750  
    1688. 

  1688.   751  
    1689. 

  1689.   752    PROCEDURE GetFieldAdr( VAR NdxFile: NdxTypes.NdxFileType; RecName,
    1690. 

  1690. *****                                                 ^ not supported yet
    1691. 

  1691.   753        FieldName: ARRAY OF CHAR; VAR TheType: CARDINAL; VAR
    1692. 

  1692. *****                            ^ not supported yet
    1693. 

  1693.   754        TheFieldAdr: SYSTEM.ADDRESS; VAR TheFieldSize: CARDINAL ):
    1694. 

  1694. *****                            ^ not supported yet
    1695. 

  1695.   755        BOOLEAN;
    1696. 

  1696.   756        (*GetFieldAdr first calls InitBuffer to do retrieve if
    1697. 

  1697.   757          needed & finds field in index list if it is there. If
    1698. 

  1698.   758          problem with either, return FALSE. Then get the element
    1699. 

  1699.   759          out of the ListBuffer *)
    1700. 

  1700.   760      VAR
    1701. 

  1701.   761        spot: CARDINAL;
    1702. 

  1702.   762        DataList: GenLists.GenList;
    1703. 

  1703. *****                           ^ not supported yet
    1704. 

  1704.   763        offset: LONGINT; (*Not used.*)
    1705. 

  1705.   764        RecSize, ListSpot: CARDINAL; (*Not used.*)
    1706. 

  1706.   765  
    1707. 

  1707.   766      BEGIN
    1708. 

  1708.   767        spot := 0;
    1709. 

  1709.   768        StrEdit.CrunchBlanks( RecName );
    1710. 

  1710. *****        ^ not supported yet
    1711. 

  1711. *****                ^ not supported yet
    1712. 

  1712. *****                              ^ not supported yet
    1713. 

  1713.   769        IF (M2Strings.Length(RecName)=0) OR (NOT NdxBones.FindRecord(
    1714. 

  1714. *****            ^ not supported yet
    1715. 

  1715. *****                      ^ not supported yet
    1716. 

  1716. *****                             ^ not supported yet
    1717. 

  1717. *****                                                 ^ not supported yet
    1718. 

  1718. *****                                                          ^ not supported yet
    1719. 

  1719.   770            NdxFile, RecName, offset, RecSize, ListSpot )) THEN
    1720. 

  1720. *****            ^ not supported yet
    1721. 

  1721. *****                     ^ not supported yet
    1722. 

  1722. *****                                                        ^ not supported yet
    1723. 

  1723.   771          RETURN FALSE;
    1724. 

  1724.   772        END;
    1725. 

  1725.   773        IF NOT NdxBones.InitBuffer( NdxFile, RecName) THEN
    1726. 

  1726. *****               ^ not supported yet
    1727. 

  1727. *****                        ^ not supported yet
    1728. 

  1728. *****                                    ^ not supported yet
    1729. 

  1729. *****                                             ^ not supported yet
    1730. 

  1730.   774          RETURN FALSE;
    1731. 

  1731.   775        END;
    1732. 

  1732.   776        DataList := NdxFile^.ListBuf;
    1733. 

  1733. *****        ^ not supported yet
    1734. 

  1734. *****                    ^ not supported yet
    1735. 

  1735. *****                             ^ not supported yet
    1736. 

  1736.   777        IF NOT FindField( NdxFile^.StructLst, FieldName,
    1737. 

  1737. *****               ^ not supported yet
    1738. 

  1738. *****                          ^ not supported yet
    1739. 

  1739. *****                                   ^ not supported yet
    1740. 

  1740. *****                                              ^ not supported yet
    1741. 

  1741.   778            DataList, spot) THEN
    1742. 

  1742. *****            ^ not supported yet
    1743. 

  1743. *****                          ^ not supported yet
    1744. 

  1744.   779          RETURN FALSE;
    1745. 

  1745.   780        END;
    1746. 

  1746.   781        IF spot = 0 THEN
    1747. 

  1747.   782          (* entire record requested *)
    1748. 

  1748.   783          TheFieldSize := (*SYSTEM.TSIZE(GenLists.GenList)*) 4;
    1749. 

  1749.   784          TheFieldAdr := GenLists.AdrOfList( NdxFile^.ListBuf );
    1750. 

  1750. *****          ^ not supported yet
    1751. 

  1751. *****                         ^ not supported yet
    1752. 

  1752. *****                                  ^ not supported yet
    1753. 

  1753. *****                                             ^ not supported yet
    1754. 

  1754. *****                                                      ^ not supported yet
    1755. 

  1755.   785          TheType := GenLists.ListCode;
    1756. 

  1756. *****                     ^ not supported yet
    1757. 

  1757. *****                              ^ not supported yet
    1758. 

  1758.   786          RETURN TRUE;
    1759. 

  1759.   787        ELSE
    1760. 

  1760.   788          GenLists.GetElmtAdr( DataList, spot, TheFieldAdr,
    1761. 

  1761. *****          ^ not supported yet
    1762. 

  1762. *****                   ^ not supported yet
    1763. 

  1763. *****                               ^ not supported yet
    1764. 

  1764. *****                                               ^ not supported yet
    1765. 

  1765.   789              TheFieldSize, TheType);
    1766. 

  1766. *****                                   ^ not supported yet
    1767. 

  1767.   790          (* try to retrieve the requested element *)
    1768. 

  1768.   791        END;
    1769. 

  1769.   792        RETURN TRUE;
    1770. 

  1770.   793      END GetFieldAdr;
    1771. 

  1771. *****          ^ not supported yet
    1772. 

  1772.   794  
    1773. 

  1773.   795  
    1774. 

  1774.   796    PROCEDURE FileStructure( NdxFile: NdxTypes.NdxFileType;
    1775. 

  1775. *****                                               ^ not supported yet
    1776. 

  1776.   797      VAR Structure: ARRAY OF CHAR );
    1777. 

  1777. *****                              ^ not supported yet
    1778. 

  1778.   798      (*Returns a string containing the names of all fields
    1779. 

  1779.   799        defined for the NdxFile, in the form used by the
    1780. 

  1780.   800        Structure parameter of the CreateNdxFile procedure.*)
    1781. 

  1781.   801  
    1782. 

  1782.   802      PROCEDURE AddTheList( TheList: GenLists.GenList);
    1783. 

  1783. *****                                              ^ not supported yet
    1784. 

  1784.   803      VAR
    1785. 

  1785.   804        leng, cnt, TheType, TmpSize: CARDINAL;
    1786. 

  1786.   805        tmpbuf: ARRAY [0..NdxTypes.RecNameLength] OF CHAR;
    1787. 

  1787. *****                          ^ not supported yet
    1788. 

  1788. *****                                   ^ not supported yet
    1789. 

  1789. *****                                                     ^ not supported yet
    1790. 

  1790.   806        TmpAddr: SYSTEM.ADDRESS;
    1791. 

  1791. *****                        ^ not supported yet
    1792. 

  1792.   807        SubList: GenLists.GenList;
    1793. 

  1793. *****                          ^ not supported yet
    1794. 

  1794.   808      BEGIN
    1795. 

  1795.   809        leng := GenLists.ListLength( TheList);
    1796. 

  1796. *****                ^ not supported yet
    1797. 

  1797. *****                         ^ not supported yet
    1798. 

  1798. *****                                     ^ not supported yet
    1799. 

  1799.   810        FOR cnt := 1 TO leng DO
    1800. 

  1800.   811          GenLists.GetElmtAdr( TheList, cnt, TmpAddr, TmpSize, TheType);
    1801. 

  1801. *****          ^ not supported yet
    1802. 

  1802. *****                   ^ not supported yet
    1803. 

  1803. *****                               ^ not supported yet
    1804. 

  1804. *****                                             ^ not supported yet
    1805. 

  1805. *****                                                                      ^ not supported yet
    1806. 

  1806.   812          IF TheType # GenLists.ListCode THEN
    1807. 

  1807. *****                       ^ not supported yet
    1808. 

  1808. *****                                ^ not supported yet
    1809. 

  1809.   813            IF cnt # 1 THEN
    1810. 

  1810.   814              StrEdit.Append( Structure, ',');
    1811. 

  1811. *****              ^ not supported yet
    1812. 

  1812. *****                      ^ not supported yet
    1813. 

  1813. *****                              ^ not supported yet
    1814. 

  1814. *****                                            ^ not supported yet
    1815. 

  1815.   815            END;
    1816. 

  1816.   816            IF TmpSize <= (NdxTypes.RecNameLength + 1) THEN
    1817. 

  1817. *****                           ^ not supported yet
    1818. 

  1818. *****                                    ^ not supported yet
    1819. 

  1819.   817              LowLevel.Move( TmpAddr, SYSTEM.ADR(tmpbuf), TmpSize);
    1820. 

  1820. *****              ^ not supported yet
    1821. 

  1821. *****                       ^ not supported yet
    1822. 

  1822. *****                             ^ not supported yet
    1823. 

  1823. *****                                      ^ not supported yet
    1824. 

  1824. *****                                             ^ not supported yet
    1825. 

  1825. *****                                                 ^ not supported yet
    1826. 

  1826. *****                                                                 ^ not supported yet
    1827. 

  1827.   818            ELSE
    1828. 

  1828.   819              LowLevel.Move( TmpAddr, SYSTEM.ADR(tmpbuf),
    1829. 

  1829. *****              ^ not supported yet
    1830. 

  1830. *****                       ^ not supported yet
    1831. 

  1831. *****                             ^ not supported yet
    1832. 

  1832. *****                                      ^ not supported yet
    1833. 

  1833. *****                                             ^ not supported yet
    1834. 

  1834. *****                                                 ^ not supported yet
    1835. 

  1835.   820                  (NdxTypes.RecNameLength + 1));
    1836. 

  1836. *****                   ^ not supported yet
    1837. 

  1837. *****                            ^ not supported yet
    1838. 

  1838. *****                                              ^ not supported yet
    1839. 

  1839.   821            END;
    1840. 

  1840.   822            StrEdit.Append( Structure, tmpbuf);
    1841. 

  1841. *****            ^ not supported yet
    1842. 

  1842. *****                    ^ not supported yet
    1843. 

  1843. *****                            ^ not supported yet
    1844. 

  1844. *****                                       ^ not supported yet
    1845. 

  1845.   823          ELSE
    1846. 

  1846.   824            StrEdit.Append( Structure, '{');
    1847. 

  1847. *****            ^ not supported yet
    1848. 

  1848. *****                    ^ not supported yet
    1849. 

  1849. *****                            ^ not supported yet
    1850. 

  1850. *****                                          ^ not supported yet
    1851. 

  1851.   825            GenLists.GetChildList( TheList, cnt, SubList);
    1852. 

  1852. *****            ^ not supported yet
    1853. 

  1853. *****                     ^ not supported yet
    1854. 

  1854. *****                                   ^ not supported yet
    1855. 

  1855. *****                                                 ^ not supported yet
    1856. 

  1856.   826            AddTheList( SubList);
    1857. 

  1857. *****            ^ not supported yet
    1858. 

  1858. *****                        ^ not supported yet
    1859. 

  1859.   827            StrEdit.Append( Structure, '}');
    1860. 

  1860. *****            ^ not supported yet
    1861. 

  1861. *****                    ^ not supported yet
    1862. 

  1862. *****                            ^ not supported yet
    1863. 

  1863. *****                                          ^ not supported yet
    1864. 

  1864.   828          END;
    1865. 

  1865.   829        END;
    1866. 

  1866.   830      END AddTheList;
    1867. 

  1867. *****          ^ not supported yet
    1868. 

  1868.   831  
    1869. 

  1869.   832    BEGIN
    1870. 

  1870.   833      NdxTypes.CheckInit( NdxFile );
    1871. 

  1871. *****      ^ not supported yet
    1872. 

  1872. *****               ^ not supported yet
    1873. 

  1873. *****                          ^ not supported yet
    1874. 

  1874.   834      StrEdit.SetLength( Structure, 0);
    1875. 

  1875. *****      ^ not supported yet
    1876. 

  1876. *****              ^ not supported yet
    1877. 

  1877. *****                         ^ not supported yet
    1878. 

  1878. *****                                     ^ not supported yet
    1879. 

  1879.   835      AddTheList( NdxFile^.StructLst);
    1880. 

  1880. *****      ^ not supported yet
    1881. 

  1881. *****                  ^ not supported yet
    1882. 

  1882. *****                           ^ not supported yet
    1883. 

  1883.   836    END FileStructure;
    1884. 

  1884. *****        ^ not supported yet
    1885. 

  1885.   837  
    1886. 

  1886.   838  
    1887. 

  1887.   839    PROCEDURE RecordExists( NdxFile: NdxTypes.NdxFileType; VAR
    1888. 

  1888. *****                                              ^ not supported yet
    1889. 

  1889.   840        RecName: ARRAY OF CHAR ): BOOLEAN;
    1890. 

  1890. *****                          ^ not supported yet
    1891. 

  1891.   841    VAR
    1892. 

  1892.   842      offset: LONGINT; (*Not used.*)
    1893. 

  1893.   843      RecSize, ListSpot: CARDINAL; (*Not used.*)
    1894. 

  1894.   844    BEGIN
    1895. 

  1895.   845      NdxTypes.CheckInit( NdxFile );
    1896. 

  1896. *****      ^ not supported yet
    1897. 

  1897. *****               ^ not supported yet
    1898. 

  1898. *****                          ^ not supported yet
    1899. 

  1899.   846      StrEdit.CrunchBlanks( RecName );
    1900. 

  1900. *****      ^ not supported yet
    1901. 

  1901. *****              ^ not supported yet
    1902. 

  1902. *****                            ^ not supported yet
    1903. 

  1903.   847      RETURN (M2Strings.Length(RecName) # 0) AND
    1904. 

  1904. *****              ^ not supported yet
    1905. 

  1905. *****                        ^ not supported yet
    1906. 

  1906. *****                               ^ not supported yet
    1907. 

  1907.   848        (NdxBones.FindRecord( NdxFile, RecName, offset, RecSize, ListSpot ));
    1908. 

  1908. *****         ^ not supported yet
    1909. 

  1909. *****                  ^ not supported yet
    1910. 

  1910. *****                              ^ not supported yet
    1911. 

  1911. *****                                       ^ not supported yet
    1912. 

  1912. *****                                                                          ^ not supported yet
    1913. 

  1913.   849    END RecordExists;
    1914. 

  1914. *****        ^ not supported yet
    1915. 

  1915.   850  
    1916. 

  1916.   851    PROCEDURE SafetyOn( VAR NdxFile: NdxTypes.NdxFileType );
    1917. 

  1917. *****                                              ^ not supported yet
    1918. 

  1918.   852      (*After SafetyOn is called, every time WriteRecord adds a
    1919. 

  1919.   853        record to the end of an NdxFile and thereby overwrites the
    1920. 

  1920.   854        ndx, it writes out a new copy of the ndx at the end of the
    1921. 

  1921.   855        file.  NdxFiles are initialized with Safety off.*)
    1922. 

  1922.   856    BEGIN
    1923. 

  1923.   857      NdxTypes.CheckInit( NdxFile );
    1924. 

  1924. *****      ^ not supported yet
    1925. 

  1925. *****               ^ not supported yet
    1926. 

  1926. *****                          ^ not supported yet
    1927. 

  1927.   858      NdxFile^.SafetyOn := TRUE;
    1928. 

  1928. *****      ^ not supported yet
    1929. 

  1929. *****               ^ not supported yet
    1930. 

  1930.   859    END SafetyOn;
    1931. 

  1931. *****        ^ not supported yet
    1932. 

  1932.   860  
    1933. 

  1933.   861    PROCEDURE SafetyOff( VAR NdxFile: NdxTypes.NdxFileType );
    1934. 

  1934. *****                                               ^ not supported yet
    1935. 

  1935.   862      (*After SafetyOff is called, the ndx at the end of an NdxFile
    1936. 

  1936.   863        can be overwritten, and will be restored only when
    1937. 

  1937.   864        CloseNdxFile is called.*)
    1938. 

  1938.   865    BEGIN
    1939. 

  1939.   866      NdxTypes.CheckInit( NdxFile );
    1940. 

  1940. *****      ^ not supported yet
    1941. 

  1941. *****               ^ not supported yet
    1942. 

  1942. *****                          ^ not supported yet
    1943. 

  1943.   867      NdxFile^.SafetyOn := FALSE;
    1944. 

  1944. *****      ^ not supported yet
    1945. 

  1945. *****               ^ not supported yet
    1946. 

  1946.   868    END SafetyOff;
    1947. 

  1947. *****        ^ not supported yet
    1948. 

  1948.   869  
    1949. 

  1949.   870  
    1950. 

  1950.   871    PROCEDURE FindBlankSpace( VAR Ndx: GenLists.GenList; VAR NewElmt:
    1951. 

  1951. *****                                                ^ not supported yet
    1952. 

  1952.   872      NdxTypes.NdxElement; VAR OldElmt: CARDINAL): BOOLEAN;
    1953. 

  1953. *****               ^ not supported yet
    1954. 

  1954.   873      (* if can find space for NewElmt in deleted records at end of
    1955. 

  1955.   874         index, change NewElmt to point to the empty spot, return
    1956. 

  1956.   875         the cardinal position of the re-used garbage element of
    1957. 

  1957.   876         the index, and return TRUE *)
    1958. 

  1958.   877      VAR
    1959. 

  1959.   878        TheType: CARDINAL;
    1960. 

  1960.   879        TmpElmt: NdxTypes.NdxElement;
    1961. 

  1961. *****                          ^ not supported yet
    1962. 

  1962.   880      BEGIN
    1963. 

  1963.   881        IF (M2Strings.Length( NewElmt.RecName) = 0) OR
    1964. 

  1964. *****            ^ not supported yet
    1965. 

  1965. *****                      ^ not supported yet
    1966. 

  1966. *****                              ^ not supported yet
    1967. 

  1967. *****                                      ^ not supported yet
    1968. 

  1968.   882           (NewElmt.UsedChars = 0) OR
    1969. 

  1969. *****            ^ not supported yet
    1970. 

  1970. *****                    ^ not supported yet
    1971. 

  1971.   883           (GenLists.ListLength(Ndx) = 0) THEN
    1972. 

  1972. *****            ^ not supported yet
    1973. 

  1973. *****                     ^ not supported yet
    1974. 

  1974. *****                                ^ not supported yet
    1975. 

  1975.   884          (* don't try this for garbage entries or empty index *)
    1976. 

  1976.   885          RETURN FALSE;
    1977. 

  1977.   886        ELSE
    1978. 

  1978.   887          GenLists.GetElmt( Ndx, GenLists.ListLength(Ndx), TmpElmt, TheType);
    1979. 

  1979. *****          ^ not supported yet
    1980. 

  1980. *****                   ^ not supported yet
    1981. 

  1981. *****                            ^ not supported yet
    1982. 

  1982. *****                                 ^ not supported yet
    1983. 

  1983. *****                                          ^ not supported yet
    1984. 

  1984. *****                                                     ^ not supported yet
    1985. 

  1985. *****                                                           ^ not supported yet
    1986. 

  1986. *****                                                                           ^ not supported yet
    1987. 

  1987.   888        END;
    1988. 

  1988.   889        WHILE M2Strings.Length(TmpElmt.RecName) = 0 DO
    1989. 

  1989. *****              ^ not supported yet
    1990. 

  1990. *****                        ^ not supported yet
    1991. 

  1991. *****                               ^ not supported yet
    1992. 

  1992. *****                                       ^ not supported yet
    1993. 

  1993.   890          (* search through all entries in index with no name
    1994. 

  1994.   891             (garbage entries) *)
    1995. 

  1995.   892          IF TmpElmt.Allocated >= NewElmt.Allocated THEN
    1996. 

  1996. *****             ^ not supported yet
    1997. 

  1997. *****                     ^ not supported yet
    1998. 

  1998. *****                                  ^ not supported yet
    1999. 

  1999. *****                                          ^ not supported yet
    2000. 

  2000.   893            (* found an entry to re-use *)
    2001. 

  2001.   894            NewElmt.Allocated := TmpElmt.Allocated;
    2002. 

  2002. *****            ^ not supported yet
    2003. 

  2003. *****                    ^ not supported yet
    2004. 

  2004. *****                                 ^ not supported yet
    2005. 

  2005. *****                                         ^ not supported yet
    2006. 

  2006.   895            NewElmt.FilePos := TmpElmt.FilePos;
    2007. 

  2007. *****            ^ not supported yet
    2008. 

  2008. *****                    ^ not supported yet
    2009. 

  2009. *****                               ^ not supported yet
    2010. 

  2010. *****                                       ^ not supported yet
    2011. 

  2011.   896            OldElmt := GenLists.ElmtNow( Ndx);
    2012. 

  2012. *****                       ^ not supported yet
    2013. 

  2013. *****                                ^ not supported yet
    2014. 

  2014. *****                                         ^ not supported yet
    2015. 

  2015.   897            RETURN TRUE;
    2016. 

  2016.   898          END;
    2017. 

  2017.   899          IF GenLists.ElmtNow( Ndx ) = 1 THEN
    2018. 

  2018. *****             ^ not supported yet
    2019. 

  2019. *****                      ^ not supported yet
    2020. 

  2020. *****                               ^ not supported yet
    2021. 

  2021.   900            (* if can't back up any more, return FALSE *)
    2022. 

  2022.   901            RETURN FALSE;
    2023. 

  2023.   902          END;
    2024. 

  2024.   903          GenLists.NextElmt( Ndx, -1, TmpElmt, TheType);
    2025. 

  2025. *****          ^ not supported yet
    2026. 

  2026. *****                   ^ not supported yet
    2027. 

  2027. *****                             ^ not supported yet
    2028. 

  2028. *****                                      ^ not supported yet
    2029. 

  2029. *****                                                      ^ not supported yet
    2030. 

  2030.   904        END;
    2031. 

  2031.   905        RETURN FALSE;
    2032. 

  2032.   906      END FindBlankSpace;
    2033. 

  2033. *****          ^ not supported yet
    2034. 

  2034.   907  
    2035. 

  2035.   908  (*$O-*)
    2036. 

  2036.   909  (*We turn off optimization in this procedure to avoid a bug in
    2037. 

  2037.   910    the beta copy of Logitech's v3.0 compiler.*)
    2038. 

  2038.   911  
    2039. 

  2039.   912    PROCEDURE InsertNdxEntry( RecName: ARRAY OF CHAR;
    2040. 

  2040. *****                                                ^ not supported yet
    2041. 

  2041.   913        VAR FilePos: LONGINT; UsedChars: CARDINAL;
    2042. 

  2042.   914        VAR AllocatedChars: CARDINAL; VAR NdxFile: NdxTypes.NdxFileType ):
    2043. 

  2043. *****                                                            ^ not supported yet
    2044. 

  2044.   915        BOOLEAN;
    2045. 

  2045.   916    VAR
    2046. 

  2046.   917      dummylong: LONGINT;
    2047. 

  2047.   918      TheElmt, dummycard, OldElmt, NameLength: CARDINAL;
    2048. 

  2048.   919      TmpElmt: NdxTypes.NdxElement;
    2049. 

  2049. *****                        ^ not supported yet
    2050. 

  2050.   920    BEGIN
    2051. 

  2051.   921      NameLength := M2Strings.Length(RecName);
    2052. 

  2052. *****                    ^ not supported yet
    2053. 

  2053. *****                              ^ not supported yet
    2054. 

  2054. *****                                     ^ not supported yet
    2055. 

  2055.   922      IF NameLength < (HIGH(RecName) + 1) THEN
    2056. 

  2056. *****                       ^ undeclared identifier
    2057. 

  2057. *****                            ^ not supported yet
    2058. 

  2058.   923        LowLevel.Fill( LowLevel.AddAddr(SYSTEM.ADR(RecName), NameLength ),
    2059. 

  2059. *****        ^ not supported yet
    2060. 

  2060. *****                 ^ not supported yet
    2061. 

  2061. *****                       ^ not supported yet
    2062. 

  2062. *****                                ^ not supported yet
    2063. 

  2063. *****                                        ^ not supported yet
    2064. 

  2064. *****                                               ^ not supported yet
    2065. 

  2065. *****                                                   ^ not supported yet
    2066. 

  2066. *****                                                                        ^ not supported yet
    2067. 

  2067.   924            1 + HIGH(RecName) - NameLength, 0C );
    2068. 

  2068. *****                ^ undeclared identifier
    2069. 

  2069. *****                     ^ not supported yet
    2070. 

  2070. *****                                               ^ not supported yet
    2071. 

  2071.   925        (*We do this to initialize end space in the Ndx; makes it
    2072. 

  2072.   926          easier to read when debugging.*)
    2073. 

  2073.   927      END;
    2074. 

  2074.   928      LowLevel.Fill( SYSTEM.ADR(TmpElmt.RecName),
    2075. 

  2075. *****      ^ not supported yet
    2076. 

  2076. *****               ^ not supported yet
    2077. 

  2077. *****                     ^ not supported yet
    2078. 

  2078. *****                            ^ not supported yet
    2079. 

  2079. *****                                ^ not supported yet
    2080. 

  2080. *****                                        ^ not supported yet
    2081. 

  2081.   929          M2Strings.Length(TmpElmt.RecName), 0C );
    2082. 

  2082. *****          ^ not supported yet
    2083. 

  2083. *****                    ^ not supported yet
    2084. 

  2084. *****                           ^ not supported yet
    2085. 

  2085. *****                                   ^ not supported yet
    2086. 

  2086. *****                                                ^ not supported yet
    2087. 

  2087.   930      StrEdit.AssignStr( RecName, TmpElmt.RecName );
    2088. 

  2088. *****      ^ not supported yet
    2089. 

  2089. *****              ^ not supported yet
    2090. 

  2090. *****                         ^ not supported yet
    2091. 

  2091. *****                                  ^ not supported yet
    2092. 

  2092. *****                                          ^ not supported yet
    2093. 

  2093.   931      TmpElmt.FilePos := FilePos;
    2094. 

  2094. *****      ^ not supported yet
    2095. 

  2095. *****              ^ not supported yet
    2096. 

  2096.   932      TmpElmt.UsedChars := UsedChars;
    2097. 

  2097. *****      ^ not supported yet
    2098. 

  2098. *****              ^ not supported yet
    2099. 

  2099.   933      TmpElmt.Allocated := AllocatedChars;
    2100. 

  2100. *****      ^ not supported yet
    2101. 

  2101. *****              ^ not supported yet
    2102. 

  2102.   934      IF NOT NdxBones.FindRecord(NdxFile, RecName, dummylong,
    2103. 

  2103. *****             ^ not supported yet
    2104. 

  2104. *****                      ^ not supported yet
    2105. 

  2105. *****                                 ^ not supported yet
    2106. 

  2106. *****                                          ^ not supported yet
    2107. 

  2107.   935         dummycard, TheElmt) THEN
    2108. 

  2108. *****                           ^ not supported yet
    2109. 

  2109.   936        (*The FindRecord returns the alphabetically correct
    2110. 

  2110.   937          insertion point, TheElmt.*)
    2111. 

  2111.   938        IF FindBlankSpace( NdxFile^.Ndx, TmpElmt, OldElmt) THEN
    2112. 

  2112. *****           ^ not supported yet
    2113. 

  2113. *****                           ^ not supported yet
    2114. 

  2114. *****                                    ^ not supported yet
    2115. 

  2115. *****                                         ^ not supported yet
    2116. 

  2116. *****                                                         ^ not supported yet
    2117. 

  2117.   939          (* if can find space for record in existing garbage, use it
    2118. 

  2118.   940             and delete the garbage index entry *)
    2119. 

  2119.   941          FilePos := TmpElmt.FilePos;
    2120. 

  2120. *****                     ^ not supported yet
    2121. 

  2121. *****                             ^ not supported yet
    2122. 

  2122.   942          AllocatedChars := TmpElmt.Allocated;
    2123. 

  2123. *****                            ^ not supported yet
    2124. 

  2124. *****                                    ^ not supported yet
    2125. 

  2125.   943          GenLists.ListDelete( NdxFile^.Ndx, OldElmt, 1);
    2126. 

  2126. *****          ^ not supported yet
    2127. 

  2127. *****                   ^ not supported yet
    2128. 

  2128. *****                               ^ not supported yet
    2129. 

  2129. *****                                        ^ not supported yet
    2130. 

  2130. *****                                                       ^ not supported yet
    2131. 

  2131.   944        END;
    2132. 

  2132.   945        GenLists.ListInsert( TmpElmt, NdxTypes.NdxTypeCode,
    2133. 

  2133. *****        ^ not supported yet
    2134. 

  2134. *****                 ^ not supported yet
    2135. 

  2135. *****                             ^ not supported yet
    2136. 

  2136. *****                                      ^ not supported yet
    2137. 

  2137. *****                                               ^ not supported yet
    2138. 

  2138.   946            NdxFile^.Ndx, TheElmt);
    2139. 

  2139. *****            ^ not supported yet
    2140. 

  2140. *****                     ^ not supported yet
    2141. 

  2141. *****                                 ^ not supported yet
    2142. 

  2142.   947        RETURN TRUE;
    2143. 

  2143.   948      ELSE
    2144. 

  2144.   949        RETURN FALSE;
    2145. 

  2145.   950      END;
    2146. 

  2146.   951    END InsertNdxEntry;
    2147. 

  2147. *****        ^ not supported yet
    2148. 

  2148.   952  (*$O=*)
    2149. 

  2149.   953  
    2150. 

  2150.   954  
    2151. 

  2151.   955    PROCEDURE ChangeNdxEntry( OldRecName, NewRecName: ARRAY OF CHAR;
    2152. 

  2152. *****                                                               ^ not supported yet
    2153. 

  2153.   956        FilePos: LONGINT; NumUsed: CARDINAL; VAR NdxFile: NdxTypes.NdxFileType):
    2154. 

  2154. *****                                                                   ^ not supported yet
    2155. 

  2155.   957        BOOLEAN;
    2156. 

  2156.   958    VAR
    2157. 

  2157.   959      TmpElmt: NdxTypes.NdxElement;
    2158. 

  2158. *****                        ^ not supported yet
    2159. 

  2159.   960      dummylong: LONGINT;
    2160. 

  2160.   961      dummycard, NewElmt, OldElmt: CARDINAL;
    2161. 

  2161.   962      ToGarbage: BOOLEAN;
    2162. 

  2162.   963    BEGIN
    2163. 

  2163.   964      LowLevel.Fill( SYSTEM.ADR(TmpElmt.RecName),
    2164. 

  2164. *****      ^ not supported yet
    2165. 

  2165. *****               ^ not supported yet
    2166. 

  2166. *****                     ^ not supported yet
    2167. 

  2167. *****                            ^ not supported yet
    2168. 

  2168. *****                                ^ not supported yet
    2169. 

  2169. *****                                        ^ not supported yet
    2170. 

  2170.   965          M2Strings.Length(TmpElmt.RecName), 0C );
    2171. 

  2171. *****          ^ not supported yet
    2172. 

  2172. *****                    ^ not supported yet
    2173. 

  2173. *****                           ^ not supported yet
    2174. 

  2174. *****                                   ^ not supported yet
    2175. 

  2175. *****                                                ^ not supported yet
    2176. 

  2176.   966      StrEdit.AssignStr( NewRecName, TmpElmt.RecName );
    2177. 

  2177. *****      ^ not supported yet
    2178. 

  2178. *****              ^ not supported yet
    2179. 

  2179. *****                         ^ not supported yet
    2180. 

  2180. *****                                     ^ not supported yet
    2181. 

  2181. *****                                             ^ not supported yet
    2182. 

  2182.   967      ToGarbage := M2Strings.Length( NewRecName)=0;
    2183. 

  2183. *****                   ^ not supported yet
    2184. 

  2184. *****                             ^ not supported yet
    2185. 

  2185. *****                                     ^ not supported yet
    2186. 

  2186.   968      IF ToGarbage THEN
    2187. 

  2187.   969        TmpElmt.UsedChars := 0;
    2188. 

  2188. *****        ^ not supported yet
    2189. 

  2189. *****                ^ not supported yet
    2190. 

  2190.   970        (* Marks the entry as garbage if you change name to '' *)
    2191. 

  2191.   971      ELSE
    2192. 

  2192.   972        TmpElmt.UsedChars := NumUsed;
    2193. 

  2193. *****        ^ not supported yet
    2194. 

  2194. *****                ^ not supported yet
    2195. 

  2195.   973      END;
    2196. 

  2196.   974      TmpElmt.FilePos := FilePos;
    2197. 

  2197. *****      ^ not supported yet
    2198. 

  2198. *****              ^ not supported yet
    2199. 

  2199.   975      TmpElmt.Allocated := NumUsed;
    2200. 

  2200. *****      ^ not supported yet
    2201. 

  2201. *****              ^ not supported yet
    2202. 

  2202.   976      IF NdxBones.FindRecord(NdxFile, OldRecName, dummylong,
    2203. 

  2203. *****         ^ not supported yet
    2204. 

  2204. *****                  ^ not supported yet
    2205. 

  2205. *****                             ^ not supported yet
    2206. 

  2206. *****                                      ^ not supported yet
    2207. 

  2207.   977         dummycard, dummycard) THEN
    2208. 

  2208. *****                             ^ not supported yet
    2209. 

  2209.   978        IF NdxBones.CompareProc( OldRecName, NewRecName) # 0 THEN
    2210. 

  2210. *****           ^ not supported yet
    2211. 

  2211. *****                    ^ not supported yet
    2212. 

  2212. *****                                 ^ not supported yet
    2213. 

  2213. *****                                             ^ not supported yet
    2214. 

  2214.   979          (* to change record names, find and save old position,
    2215. 

  2215.   980             if new name does not exist then delete old and insert
    2216. 

  2216.   981             new *)
    2217. 

  2217.   982          OldElmt := GenLists.ElmtNow(NdxFile^.Ndx);
    2218. 

  2218. *****                     ^ not supported yet
    2219. 

  2219. *****                              ^ not supported yet
    2220. 

  2220. *****                                      ^ not supported yet
    2221. 

  2221. *****                                               ^ not supported yet
    2222. 

  2222.   983          IF ToGarbage OR (NOT NdxBones.FindRecord(NdxFile, NewRecName,
    2223. 

  2223. *****                               ^ not supported yet
    2224. 

  2224. *****                                        ^ not supported yet
    2225. 

  2225. *****                                                   ^ not supported yet
    2226. 

  2226. *****                                                            ^ not supported yet
    2227. 

  2227.   984              dummylong, dummycard, dummycard)) THEN
    2228. 

  2228. *****                                             ^ not supported yet
    2229. 

  2229.   985            GenLists.ListDelete( NdxFile^.Ndx, OldElmt, 1);
    2230. 

  2230. *****            ^ not supported yet
    2231. 

  2231. *****                     ^ not supported yet
    2232. 

  2232. *****                                 ^ not supported yet
    2233. 

  2233. *****                                          ^ not supported yet
    2234. 

  2234. *****                                                         ^ not supported yet
    2235. 

  2235.   986              (*If new name does not exist (or represents garbage)
    2236. 

  2236.   987                and old entry can be deleted, return success of
    2237. 

  2237.   988                trying to insert new name *)
    2238. 

  2238.   989            ToGarbage := NdxBones.FindRecord(NdxFile, NewRecName, dummylong,
    2239. 

  2239. *****                         ^ not supported yet
    2240. 

  2240. *****                                  ^ not supported yet
    2241. 

  2241. *****                                             ^ not supported yet
    2242. 

  2242. *****                                                      ^ not supported yet
    2243. 

  2243.   990                dummycard, NewElmt);
    2244. 

  2244. *****                                  ^ not supported yet
    2245. 

  2245.   991              (*We do not need this result.  We need NewElmt. *)
    2246. 

  2246.   992            IF ToGarbage THEN
    2247. 

  2247.   993              (* if found new value in file already, it is a
    2248. 

  2248.   994                 garbage entry; insert at that point *)
    2249. 

  2249.   995              NewElmt := GenLists.ElmtNow( NdxFile^.Ndx);
    2250. 

  2250. *****                         ^ not supported yet
    2251. 

  2251. *****                                  ^ not supported yet
    2252. 

  2252. *****                                           ^ not supported yet
    2253. 

  2253. *****                                                    ^ not supported yet
    2254. 

  2254.   996            END;
    2255. 

  2255.   997            GenLists.ListInsert( TmpElmt, NdxTypes.NdxTypeCode,
    2256. 

  2256. *****            ^ not supported yet
    2257. 

  2257. *****                     ^ not supported yet
    2258. 

  2258. *****                                 ^ not supported yet
    2259. 

  2259. *****                                          ^ not supported yet
    2260. 

  2260. *****                                                   ^ not supported yet
    2261. 

  2261.   998                NdxFile^.Ndx, NewElmt);
    2262. 

  2262. *****                ^ not supported yet
    2263. 

  2263. *****                         ^ not supported yet
    2264. 

  2264. *****                                     ^ not supported yet
    2265. 

  2265.   999            RETURN TRUE;
    2266. 

  2266.  1000          ELSE
    2267. 

  2267.  1001            RETURN FALSE;
    2268. 

  2268.  1002          END;
    2269. 

  2269.  1003          (* if changed name, delete old and add new *)
    2270. 

  2270.  1004        END;
    2271. 

  2271.  1005        GenLists.ListReplace( TmpElmt, NdxTypes.NdxTypeCode, NdxFile^.Ndx,
    2272. 

  2272. *****        ^ not supported yet
    2273. 

  2273. *****                 ^ not supported yet
    2274. 

  2274. *****                              ^ not supported yet
    2275. 

  2275. *****                                       ^ not supported yet
    2276. 

  2276. *****                                                ^ not supported yet
    2277. 

  2277. *****                                                             ^ not supported yet
    2278. 

  2278. *****                                                                      ^ not supported yet
    2279. 

  2279.  1006            GenLists.ElmtNow(NdxFile^.Ndx));
    2280. 

  2280. *****            ^ not supported yet
    2281. 

  2281. *****                     ^ not supported yet
    2282. 

  2282. *****                             ^ not supported yet
    2283. 

  2283. *****                                      ^ not supported yet
    2284. 

  2284.  1007        RETURN TRUE;
    2285. 

  2285.  1008      ELSE
    2286. 

  2286.  1009        RETURN FALSE;
    2287. 

  2287.  1010      END;
    2288. 

  2288.  1011    END ChangeNdxEntry;
    2289. 

  2289. *****        ^ not supported yet
    2290. 

  2290.  1012  
    2291. 

  2291.  1013  
    2292. 

  2292.  1014    PROCEDURE Init();
    2293. 

  2293.  1015      BEGIN
    2294. 

  2294.  1016        IF Initialized THEN
    2295. 

  2295.  1017          RETURN;
    2296. 

  2296.  1018        ELSE
    2297. 

  2297.  1019          Initialized := TRUE;
    2298. 

  2298.  1020        END;
    2299. 

  2299.  1021  (*EntryDiag:
    2300. 

  2300.  1022        Diagnostics.Init();
    2301. 

  2301.  1023  :EntryDiag*)
    2302. 

  2302.  1024  
    2303. 

  2303.  1025        Drectory.Init();
    2304. 

  2304. *****        ^ not supported yet
    2305. 

  2305. *****                 ^ not supported yet
    2306. 

  2306. *****                      ^ not supported yet
    2307. 

  2307.  1026        ErrorManager.Init();
    2308. 

  2308. *****        ^ not supported yet
    2309. 

  2309. *****                     ^ not supported yet
    2310. 

  2310. *****                          ^ not supported yet
    2311. 

  2311.  1027        ErrorNames.Init();
    2312. 

  2312. *****        ^ not supported yet
    2313. 

  2313. *****                   ^ not supported yet
    2314. 

  2314. *****                        ^ not supported yet
    2315. 

  2315.  1028        HandleIO.Init();
    2316. 

  2316. *****        ^ not supported yet
    2317. 

  2317. *****                 ^ not supported yet
    2318. 

  2318. *****                      ^ not supported yet
    2319. 

  2319.  1029        GenLists.Init();
    2320. 

  2320. *****        ^ not supported yet
    2321. 

  2321. *****                 ^ not supported yet
    2322. 

  2322. *****                      ^ not supported yet
    2323. 

  2323.  1030        ListUtils.Init();
    2324. 

  2324. *****        ^ not supported yet
    2325. 

  2325. *****                  ^ not supported yet
    2326. 

  2326. *****                       ^ not supported yet
    2327. 

  2327.  1031        LowLevel.Init();
    2328. 

  2328. *****        ^ not supported yet
    2329. 

  2329. *****                 ^ not supported yet
    2330. 

  2330. *****                      ^ not supported yet
    2331. 

  2331.  1032        M2Strings.Init();
    2332. 

  2332. *****        ^ not supported yet
    2333. 

  2333. *****                  ^ not supported yet
    2334. 

  2334. *****                       ^ not supported yet
    2335. 

  2335.  1033        NdxBones.Init();
    2336. 

  2336. *****        ^ not supported yet
    2337. 

  2337. *****                 ^ not supported yet
    2338. 

  2338. *****                      ^ not supported yet
    2339. 

  2339.  1034        NdxTypes.Init();
    2340. 

  2340. *****        ^ not supported yet
    2341. 

  2341. *****                 ^ not supported yet
    2342. 

  2342. *****                      ^ not supported yet
    2343. 

  2343.  1035        Numbers.Init();
    2344. 

  2344. *****        ^ not supported yet
    2345. 

  2345. *****                ^ not supported yet
    2346. 

  2346. *****                     ^ not supported yet
    2347. 

  2347.  1036        NumTypes.Init();
    2348. 

  2348. *****        ^ not supported yet
    2349. 

  2349. *****                 ^ not supported yet
    2350. 

  2350. *****                      ^ not supported yet
    2351. 

  2351.  1037        PosUtils.Init();
    2352. 

  2352. *****        ^ not supported yet
    2353. 

  2353. *****                 ^ not supported yet
    2354. 

  2354. *****                      ^ not supported yet
    2355. 

  2355.  1038        StrEdit.Init();
    2356. 

  2356. *****        ^ not supported yet
    2357. 

  2357. *****                ^ not supported yet
    2358. 

  2358. *****                     ^ not supported yet
    2359. 

  2359.  1039        StringIO.Init();
    2360. 

  2360. *****        ^ not supported yet
    2361. 

  2361. *****                 ^ not supported yet
    2362. 

  2362. *****                      ^ not supported yet
    2363. 

  2363.  1040        VStorage.Init();
    2364. 

  2364. *****        ^ not supported yet
    2365. 

  2365. *****                 ^ not supported yet
    2366. 

  2366. *****                      ^ not supported yet
    2367. 

  2367.  1041  (*EntryDiag:
    2368. 

  2368.  1042        Diagnostics.diagS( 'Entering NdxFiles', '' );
    2369. 

  2369.  1043  :EntryDiag*)
    2370. 

  2370.  1044  
    2371. 

  2371.  1045        VStorage.NilHandle( NulHandle );
    2372. 

  2372. *****        ^ not supported yet
    2373. 

  2373. *****                 ^ not supported yet
    2374. 

  2374. *****                            ^ not supported yet
    2375. 

  2375.  1046  
    2376. 

  2376.  1047  (*EntryDiag:
    2377. 

  2377.  1048        Diagnostics.diagS( 'Exiting NdxFiles', '' );
    2378. 

  2378.  1049  :EntryDiag*)
    2379. 

  2379.  1050  
    2380. 

  2380.  1051      END Init;
    2381. 

  2381. *****          ^ not supported yet
    2382. 

  2382.  1052  
    2383. 

  2383.  1053  
    2384. 

  2384.  1054  BEGIN
    2385. 

  2385.  1055    Initialized := FALSE;
    2386. 

  2386.  1056    Init();
    2387. 

  2387. *****    ^ not supported yet
    2388. 

  2388. *****         ^ not supported yet
    2389. 

  2389.  1057  END NdxFiles.
    2390. 

  2390. *****      ^ not supported yet
    2391. 

  2391. 

  2392.  1331 errors
    2393. 

  2393. 

  2394.