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

DSPFILES.LST 38 KB
Permalink Histórico Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE DspFiles;
    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/dspfiles.mov   1.7   10 Mar 1991 15:26:32   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  
    19. 

  19.    17  (*EntryDiag:
    20. 

  20.    18  IMPORT Diagnostics;
    21. 

  21.    19  :EntryDiag*)
    22. 

  22.    20  
    23. 

  23.    21  IMPORT ErrorManager;
    24. 

  24.    22  IMPORT ErrorNames;
    25. 

  25.    23  IMPORT HandleIO;
    26. 

  26.    24  IMPORT GenLists;
    27. 

  27.    25  IMPORT M2Strings;
    28. 

  28.    26  IMPORT MsColors;
    29. 

  29.    27  IMPORT NdxBones;
    30. 

  30.    28  IMPORT NdxTypes;
    31. 

  31.    29  IMPORT PosUtils;
    32. 

  32.    30  IMPORT ScrnTypes;
    33. 

  33.    31  IMPORT ScrnUtl1;
    34. 

  34.    32  IMPORT StrEdit;
    35. 

  35.    33  IMPORT StringIO;
    36. 

  36.    34  IMPORT SYSTEM;
    37. 

  37.    35  IMPORT VStorage;
    38. 

  38.    36  IMPORT VWindows;
    39. 

  39.    37  
    40. 

  40.    38  
    41. 

  41.    39  VAR
    42. 

  42.    40    Initialized : BOOLEAN;
    43. 

  43.    41  
    44. 

  44.    42    PROCEDURE Init();
    45. 

  45.    43      BEGIN
    46. 

  46.    44        IF Initialized THEN
    47. 

  47.    45          RETURN;
    48. 

  48.    46        ELSE
    49. 

  49.    47          Initialized := TRUE;
    50. 

  50.    48        END;
    51. 

  51.    49  (*EntryDiag:
    52. 

  52.    50        Diagnostics.Init();
    53. 

  53.    51  :EntryDiag*)
    54. 

  54.    52  
    55. 

  55.    53        ErrorManager.Init();
    56. 

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

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

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

  59.    54        ErrorNames.Init();
    60. 

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

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

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

  63.    55        HandleIO.Init();
    64. 

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

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

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

  67.    56        GenLists.Init();
    68. 

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

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

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

  71.    57        M2Strings.Init();
    72. 

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

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

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

  75.    58        MsColors.Init();
    76. 

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

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

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

  79.    59        NdxTypes.Init();
    80. 

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

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

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

  83.    60        NdxBones.Init();
    84. 

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

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

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

  87.    61        PosUtils.Init();
    88. 

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

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

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

  91.    62        ScrnTypes.Init();
    92. 

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

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

  94. *****                       ^ not supported yet
    95. 

  95.    63        ScrnUtl1.Init();
    96. 

  96. *****        ^ not supported yet
    97. 

  97. *****                 ^ not supported yet
    98. 

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

  99.    64        StrEdit.Init();
    100. 

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

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

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

  103.    65        StringIO.Init();
    104. 

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

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

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

  107.    66        VStorage.Init();
    108. 

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

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

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

  111.    67        VWindows.Init();
    112. 

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

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

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

  115.    68  
    116. 

  116.    69  (*EntryDiag:
    117. 

  117.    70        Diagnostics.diagS( 'Entering DspFiles', '' );
    118. 

  118.    71  :EntryDiag*)
    119. 

  119.    72        MainFrame := NIL;
    120. 

  120. *****        ^ undeclared identifier
    121. 

  121.    73  (*EntryDiag:
    122. 

  122.    74        Diagnostics.diagS( 'Exiting DspFiles', '' );
    123. 

  123.    75  :EntryDiag*)
    124. 

  124.    76      END Init;
    125. 

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

  126.    77  
    127. 

  127.    78  
    128. 

  128.    79  
    129. 

  129.    80    PROCEDURE ReMapCol( TheFrame: ScrnTypes.DisplayFrame;
    130. 

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

  131.    81        DspFileCol: CARDINAL ): CARDINAL;
    132. 

  132.    82      VAR
    133. 

  133.    83        diff: CARDINAL;
    134. 

  134.    84      BEGIN
    135. 

  135.    85        IF DspFileCol > VWindows.EndCol(TheFrame^.WindowHandle) THEN
    136. 

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

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

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

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

  140.    86          IF DspFileCol <= 128 THEN
    141. 

  141.    87            RETURN VWindows.EndCol(TheFrame^.WindowHandle) - 1;
    142. 

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

  143. *****                            ^ not supported yet
    144. 

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

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

  146.    88          ELSIF DspFileCol <= 256 THEN
    147. 

  147.    89            diff := 256 - DspFileCol;
    148. 

  148.    90            IF diff <= VWindows.EndCol(TheFrame^.WindowHandle) THEN
    149. 

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

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

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

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

  153.    91              RETURN VWindows.EndCol(TheFrame^.WindowHandle) - diff - 1;
    154. 

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

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

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

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

  158.    92            END;
    159. 

  159.    93          END;
    160. 

  160.    94          ErrorNames.WarningName( 'InvCrd' );
    161. 

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

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

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

  164.    95        END;
    165. 

  165.    96        RETURN DspFileCol;
    166. 

  166.    97      END ReMapCol;
    167. 

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

  168.    98  
    169. 

  169.    99    PROCEDURE ReMapRow( TheFrame: ScrnTypes.DisplayFrame;
    170. 

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

  171.   100        DspFileRow: CARDINAL ): CARDINAL;
    172. 

  172.   101      VAR
    173. 

  173.   102        diff: CARDINAL;
    174. 

  174.   103      BEGIN
    175. 

  175.   104        IF DspFileRow > VWindows.EndRow(TheFrame^.WindowHandle) THEN
    176. 

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

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

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

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

  180.   105          IF DspFileRow <= 128 THEN
    181. 

  181.   106            (* Some sort of mistake.  Force it into acceptable range. *)
    182. 

  182.   107            RETURN VWindows.EndRow(TheFrame^.WindowHandle) - 1;
    183. 

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

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

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

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

  187.   108          ELSIF DspFileRow <= 256 THEN
    188. 

  188.   109            (* They're trying to tell us to use EndRow, whatever it
    189. 

  189.   110               happens to be. *)
    190. 

  190.   111            diff := 256 - DspFileRow;
    191. 

  191.   112            IF diff <= VWindows.EndRow(TheFrame^.WindowHandle) THEN
    192. 

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

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

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

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

  196.   113              RETURN VWindows.EndRow(TheFrame^.WindowHandle) - diff - 1;
    197. 

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

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

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

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

  201.   114            END;
    202. 

  202.   115          END;
    203. 

  203.   116          ErrorNames.WarningName( 'InvCrd' );
    204. 

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

  205. *****                     ^ not supported yet
    206. 

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

  207.   117        END;
    208. 

  208.   118        RETURN DspFileRow;
    209. 

  209.   119      END ReMapRow;
    210. 

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

  211.   120  
    212. 

  212.   121  
    213. 

  213.   122    PROCEDURE OpenDisplayFile(VAR TheDspFile : ScrnTypes.DisplayFile;
    214. 

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

  215.   123        fname : ARRAY OF CHAR): BOOLEAN;
    216. 

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

  217.   124      VAR
    218. 

  218.   125        tmpstr: ScrnTypes.AFrameName;
    219. 

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

  220.   126        RightVersion : BOOLEAN;
    221. 

  221.   127        TypeCode: CARDINAL;
    222. 

  222.   128      BEGIN (*OpenDisplayFile*)
    223. 

  223.   129        IF (MainFrame = NIL) THEN
    224. 

  224. *****            ^ undeclared identifier
    225. 

  225.   130          ScrnTypes.InitDisplayFrame( MainFrame, VWindows.CurrentWindow );
    226. 

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

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

  228. *****                                      ^ undeclared identifier
    229. 

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

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

  231.   131        END;
    232. 

  232.   132          (* find and open the file if it exists *)
    233. 

  233.   133        IF NOT NdxBones.OpenNdxFile( TheDspFile, fname ) THEN
    234. 

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

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

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

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

  238.   134          RETURN FALSE;
    239. 

  239.   135        END;
    240. 

  240.   136        IF NdxBones.InitBuffer( TheDspFile, 'RepVers' ) THEN
    241. 

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

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

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

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

  245.   137          GenLists.GetElmt( TheDspFile^.ListBuf, 1, tmpstr, TypeCode );
    246. 

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

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

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

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

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

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

  252.   138          IF PosUtils.Equal( '1.5c', tmpstr ) THEN
    253. 

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

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

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

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

  257.   139            RightVersion := TRUE;
    258. 

  258.   140          ELSE
    259. 

  259.   141            RightVersion := FALSE;
    260. 

  260.   142          END;
    261. 

  261.   143        ELSE
    262. 

  262.   144          RightVersion := FALSE;
    263. 

  263.   145        END;
    264. 

  264.   146        IF NOT RightVersion THEN
    265. 

  265.   147          ErrorNames.WarningName( 'RecompileDsp' );
    266. 

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

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

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

  269.   148        END;
    270. 

  270.   149        IF (MainFrame^.FromFile = NIL) THEN
    271. 

  271. *****            ^ undeclared identifier
    272. 

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

  273.   150          MainFrame^.FromFile := TheDspFile;
    274. 

  274. *****          ^ undeclared identifier
    275. 

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

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

  277.   151        END;
    278. 

  278.   152        RETURN TRUE;
    279. 

  279.   153      END OpenDisplayFile;
    280. 

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

  281.   154  
    282. 

  282.   155  
    283. 

  283.   156    PROCEDURE CloseDisplayFile(VAR TheDspFile : ScrnTypes.DisplayFile);
    284. 

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

  285.   157      BEGIN
    286. 

  286.   158        IF TheDspFile # NIL THEN
    287. 

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

  288.   159          WITH TheDspFile^ DO
    289. 

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

  290.   160            (*Note that we don't call CloseNdxFile here because it
    291. 

  291.   161              pulls in code that updates the file's ndx if it's been
    292. 

  292.   162              changed.  Since we don't write to NdxFile's in the
    293. 

  293.   163              basic screen system, we can avoid linking all that code
    294. 

  294.   164              in by doing a few extra deallocations here.*)
    295. 

  295.   165            GenLists.DisposeList( ListBuf);
    296. 

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

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

  298. *****                                  ^ undeclared identifier
    299. 

  299.   166            GenLists.DisposeList( StructLst);
    300. 

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

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

  302. *****                                  ^ undeclared identifier
    303. 

  303.   167            GenLists.DisposeList( Ndx );
    304. 

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

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

  306. *****                                  ^ undeclared identifier
    307. 

  307.   168            GenLists.DisposeList( AltKeys );
    308. 

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

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

  310. *****                                  ^ undeclared identifier
    311. 

  311.   169              (*Note that we don't dispose of the FileBufPtr because
    312. 

  312.   170                it should always have been absorbed into the ListBuf.*)
    313. 

  313.   171            IF handle # 0 THEN
    314. 

  314. *****               ^ undeclared identifier
    315. 

  315.   172              (*handle may be 0 if the NdxFile record was initialized
    316. 

  316.   173                but never passed to OpenNdxFile.*)
    317. 

  317.   174              StringIO.PrintMessage( HandleIO.CloseHandle( handle) );
    318. 

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

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

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

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

  322. *****                                                           ^ undeclared identifier
    323. 

  323.   175            END;
    324. 

  324.   176          END;
    325. 

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

  326.   177          VStorage.DosDealloc( TheDspFile, SYSTEM.TSIZE(NdxTypes.NdxRecord) );
    327. 

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

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

  329. *****                               ^ undeclared identifier
    330. 

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

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

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

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

  334.   178        END;
    335. 

  335.   179      END CloseDisplayFile;
    336. 

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

  337.   180  
    338. 

  338.   181  
    339. 

  339.   182    PROCEDURE UnPackFrame( PackedRec: ScrnTypes.PackedFrame; VAR FrameRec:
    340. 

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

  341.   183        ScrnTypes.DisplayFrame);
    342. 

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

  343.   184      BEGIN
    344. 

  344.   185        WITH FrameRec^ DO
    345. 

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

  346.   186  (*
    347. 

  347.   187          PushedFrame := NIL;
    348. 

  348.   188    DO NOT set PushedFrame to NIL because we have to preserve
    349. 

  349.   189    FrameRec's linked to any frames that may be pushed underneath
    350. 

  350.   190    it.
    351. 

  351.   191  *)
    352. 

  352.   192          CurrentField := 1;
    353. 

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

  354.   193          RowsScrolled := 0;
    355. 

  355. *****          ^ undeclared identifier
    356. 

  356.   194          ColsScrolled := 0;
    357. 

  357. *****          ^ undeclared identifier
    358. 

  358.   195          FrameChanged := FALSE;
    359. 

  359. *****          ^ undeclared identifier
    360. 

  360.   196          ClearFirst := PackedRec^.ClearFirst;
    361. 

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

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

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

  364.   197          ClearAfter := PackedRec^.ClearAfter;
    365. 

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

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

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

  368.   198          EntryBox := PackedRec^.EntryBox;
    369. 

  369. *****          ^ undeclared identifier
    370. 

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

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

  372.   199          ExitBox := PackedRec^.ExitBox;
    373. 

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

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

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

  376.   200          M2Strings.Assign( PackedRec^.Caption, Caption );
    377. 

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

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

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

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

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

  382.   201          VirtualWidth := PackedRec^.VirtualWidth;
    383. 

  383. *****          ^ undeclared identifier
    384. 

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

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

  386.   202          VirtualHeight := PackedRec^.VirtualHeight;
    387. 

  387. *****          ^ undeclared identifier
    388. 

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

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

  390.   203          headline := PackedRec^.headline;
    391. 

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

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

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

  394.   204          startcol := PackedRec^.startcol;
    395. 

  395. *****          ^ undeclared identifier
    396. 

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

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

  398.   205          endcol := ReMapCol( FrameRec, PackedRec^.endcol );
    399. 

  399. *****          ^ undeclared identifier
    400. 

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

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

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

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

  404.   206          startrow := PackedRec^.startrow;
    405. 

  405. *****          ^ undeclared identifier
    406. 

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

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

  408.   207          endrow := ReMapRow( FrameRec, PackedRec^.endrow );
    409. 

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

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

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

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

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

  414.   208          action := PackedRec^.action;
    415. 

  415. *****          ^ undeclared identifier
    416. 

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

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

  418.   209          pbfor := PackedRec^.pbfor;
    419. 

  419. *****          ^ undeclared identifier
    420. 

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

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

  422.   210          pbbak := PackedRec^.pbbak;
    423. 

  423. *****          ^ undeclared identifier
    424. 

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

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

  426.   211          selfor := PackedRec^.selfor;
    427. 

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

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

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

  430.   212          selbak := PackedRec^.selbak;
    431. 

  431. *****          ^ undeclared identifier
    432. 

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

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

  434.   213          normfor := PackedRec^.normfor;
    435. 

  435. *****          ^ undeclared identifier
    436. 

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

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

  438.   214          normbak := PackedRec^.normbak;
    439. 

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

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

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

  442.   215          bordfor := PackedRec^.bordfor;
    443. 

  443. *****          ^ undeclared identifier
    444. 

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

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

  446.   216          bordbak := PackedRec^.bordbak;
    447. 

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

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

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

  450.   217          msgfor := PackedRec^.msgfor;
    451. 

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

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

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

  454.   218          msgbak := PackedRec^.msgbak;
    455. 

  455. *****          ^ undeclared identifier
    456. 

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

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

  458.   219          promfor := PackedRec^.promfor;
    459. 

  459. *****          ^ undeclared identifier
    460. 

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

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

  462.   220          prombak := PackedRec^.prombak;
    463. 

  463. *****          ^ undeclared identifier
    464. 

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

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

  466.   221          pbatrb := PackedRec^.pbatrb;
    467. 

  467. *****          ^ undeclared identifier
    468. 

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

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

  470.   222          selatrb := PackedRec^.selatrb;
    471. 

  471. *****          ^ undeclared identifier
    472. 

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

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

  474.   223          normatrb := PackedRec^.normatrb;
    475. 

  475. *****          ^ undeclared identifier
    476. 

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

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

  478.   224          bordatrb := PackedRec^.bordatrb;
    479. 

  479. *****          ^ undeclared identifier
    480. 

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

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

  482.   225          msgatrb := PackedRec^.msgatrb;
    483. 

  483. *****          ^ undeclared identifier
    484. 

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

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

  486.   226          promatrb := PackedRec^.promatrb;
    487. 

  487. *****          ^ undeclared identifier
    488. 

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

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

  490.   227        END;
    491. 

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

  492.   228      END UnPackFrame;
    493. 

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

  494.   229  
    495. 

  495.   230  
    496. 

  496.   231    PROCEDURE GetFrameFromList( TheList: GenLists.GenList;
    497. 

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

  498.   232        VAR FrameRec: ScrnTypes.DisplayFrame );
    499. 

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

  500.   233      VAR
    501. 

  501.   234        TypeCode, size: CARDINAL;
    502. 

  502.   235        PackedRec: ScrnTypes.PackedFrame;
    503. 

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

  504.   236      BEGIN
    505. 

  505.   237        FrameRec^.self := TheList;
    506. 

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

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

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

  509.   238        GenLists.GetElmt( FrameRec^.self, 1, FrameRec^.HelpFrame, TypeCode );
    510. 

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

  511. *****                 ^ not supported yet
    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.   239        GenLists.GetElmt( FrameRec^.self, 2, FrameRec^.parent, TypeCode );
    518. 

  518. *****        ^ not supported yet
    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. *****                                                                        ^ not supported yet
    525. 

  525.   240        GenLists.GetElmt( FrameRec^.self, 3, FrameRec^.normlnext, TypeCode );
    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. *****                                                                           ^ not supported yet
    533. 

  533.   241        GenLists.GetElmtAdr( FrameRec^.self, 4, PackedRec, size, TypeCode );
    534. 

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

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

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

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

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

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

  540.   242        UnPackFrame( PackedRec, FrameRec);
    541. 

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

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

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

  544.   243        ScrnUtl1.GetFrameLists( FrameRec );
    545. 

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

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

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

  548.   244      END GetFrameFromList;
    549. 

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

  550.   245  
    551. 

  551.   246  
    552. 

  552.   247    PROCEDURE InitEdFields( VAR TheFrame: ScrnTypes.DisplayFrame );
    553. 

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

  554.   248      VAR
    555. 

  555.   249        ListEnd, cnt: CARDINAL;
    556. 

  556.   250        TmpList1, TmpList2: GenLists.GenList;
    557. 

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

  558.   251      BEGIN
    559. 

  559.   252        IF NOT GenLists.Initialized( TheFrame^.FieldList ) THEN
    560. 

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

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

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

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

  564.   253          RETURN;
    565. 

  565.   254        END;
    566. 

  566.   255        ListEnd := GenLists.ListLength( TheFrame^.FieldList );
    567. 

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

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

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

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

  571.   256        FOR cnt := 1 TO ListEnd DO
    572. 

  572.   257          IF ScrnUtl1.FieldType( TheFrame, cnt ) = ScrnTypes.EditorCode THEN
    573. 

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

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

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

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

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

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

  579.   258            IF ScrnUtl1.GetFieldDataList( TheFrame, cnt, TmpList1 ) THEN
    580. 

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

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

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

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

  584.   259              GenLists.CopyList( TmpList1, TmpList2 );
    585. 

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

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

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

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

  589.   260              IF NOT ScrnUtl1.ListToEdField( TmpList2, TheFrame, cnt ) THEN
    590. 

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

  591. *****                              ^ not supported yet
    592. 

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

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

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

  595.   261                (* no response *)
    596. 

  596.   262              END;
    597. 

  597.   263            END;
    598. 

  598.   264          END;
    599. 

  599.   265        END;
    600. 

  600.   266      END InitEdFields;
    601. 

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

  602.   267  
    603. 

  603.   268  
    604. 

  604.   269    PROCEDURE ReadFrame(VAR TheDspFile: ScrnTypes.DisplayFile;
    605. 

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

  606.   270        VAR FrameRec: ScrnTypes.DisplayFrame; FrameName: ARRAY OF
    607. 

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

  608.   271        CHAR );
    609. 

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

  610.   272  
    611. 

  611.   273      (* Reads screen FrameName from TheDspFile, into frame record
    612. 

  612.   274         FrameRec.  Differs from ReadFrameFast in that it
    613. 

  613.   275         disconnects FrameRec's lists from TheDspFile, so they will not
    614. 

  614.   276         be disposed of the next time something is read from
    615. 

  615.   277         TheDspFile.  They will be disposed of the next time we call
    616. 

  616.   278         ReadFrame, or when the frame is closed.  Safer, but a
    617. 

  617.   279         little slower, than ReadFrameFast.*)
    618. 

  618.   280      VAR
    619. 

  619.   281        TmpMsg: ARRAY [0..79] OF CHAR;
    620. 

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

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

  622.   282  
    623. 

  623.   283      BEGIN
    624. 

  624.   284        (* ReadFrame *)
    625. 

  625.   285        IF (TheDspFile = NIL) OR
    626. 

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

  627.   286           (TheDspFile^.InitCheck # 46102) THEN
    628. 

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

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

  630.   287          (* Temporary measure -- NdxTypes needs to export a version of
    631. 

  631.   288             CheckInit that returns a boolean so we don't have to know
    632. 

  632.   289             what the private InitKey value is. *)
    633. 

  633.   290          ErrorManager.WARN( "Attempt to use unopened .DSP file" );
    634. 

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

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

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

  637.   291        END;
    638. 

  638.   292        StrEdit.SetLength( TheDspFile^.BufRecName, 0 );
    639. 

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

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

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

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

  643. *****                                                     ^ not supported yet
    644. 

  644.   293        IF NOT NdxBones.InitBuffer( TheDspFile, FrameName ) THEN
    645. 

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

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

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

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

  649.   294          StrEdit.AssignStr( 'Unable to load frame ', TmpMsg );
    650. 

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

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

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

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

  654.   295          StrEdit.Append( TmpMsg, FrameName );
    655. 

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

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

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

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

  659.   296          StrEdit.Append( TmpMsg, ' from file ' );
    660. 

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

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

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

  663. *****                                  ^ not supported yet
    664. 

  664.   297          StrEdit.Append( TmpMsg, TheDspFile^.name );
    665. 

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

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

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

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

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

  670.   298          ErrorManager.WARN( TmpMsg );
    671. 

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

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

  673. *****                             ^ not supported yet
    674. 

  674.   299        END;
    675. 

  675.   300        M2Strings.Assign( FrameName, FrameRec^.ThisFrame );
    676. 

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

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

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

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

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

  681.   301        IF NOT FrameRec^.SelfSharedWithFile THEN
    682. 

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

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

  684.   302          GenLists.DisposeList( FrameRec^.self );
    685. 

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

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

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

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

  689.   303        ELSE
    690. 

  690.   304          GenLists.NilList( FrameRec^.self );
    691. 

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

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

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

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

  695.   305            (* Useless, but it gives us something to look for in
    696. 

  696.   306               the RTD. *)
    697. 

  697.   307        END;
    698. 

  698.   308        GenLists.CopyList( TheDspFile^.ListBuf, FrameRec^.self );
    699. 

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

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

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

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

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

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

  705.   309        GetFrameFromList( FrameRec^.self, FrameRec );
    706. 

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

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

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

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

  710.   310        FrameRec^.FromFile := TheDspFile;
    711. 

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

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

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

  714.   311        FrameRec^.SelfSharedWithFile := FALSE;
    715. 

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

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

  717.   312        InitEdFields( FrameRec );
    718. 

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

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

  720.   313      END ReadFrame;
    721. 

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

  722.   314  
    723. 

  723.   315  
    724. 

  724.   316    PROCEDURE ReadDisplayFrame(VAR TheDspFile: ScrnTypes.DisplayFile;
    725. 

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

  726.   317        VAR FrameRec: ScrnTypes.DisplayFrame; FrameName: ARRAY OF
    727. 

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

  728.   318        CHAR );
    729. 

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

  730.   319      BEGIN
    731. 

  731.   320        ReadFrame( TheDspFile, FrameRec, FrameName );
    732. 

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

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

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

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

  736.   321      END ReadDisplayFrame;
    737. 

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

  738.   322  
    739. 

  739.   323  
    740. 

  740.   324    PROCEDURE ReadFrameFast(VAR TheDspFile: ScrnTypes.DisplayFile;
    741. 

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

  742.   325        VAR FrameRec: ScrnTypes.DisplayFrame; FrameName: ARRAY OF
    743. 

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

  744.   326        CHAR );
    745. 

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

  746.   327  
    747. 

  747.   328      (* Reads screen FrameName from TheDspFile, into frame record
    748. 

  748.   329         FrameRec.*)
    749. 

  749.   330      VAR
    750. 

  750.   331        TmpMsg: ARRAY [0..79] OF CHAR;
    751. 

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

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

  753.   332  
    754. 

  754.   333      BEGIN
    755. 

  755.   334        (* ReadFrameFast *)
    756. 

  756.   335        IF (TheDspFile = NIL) OR
    757. 

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

  758.   336           (TheDspFile^.InitCheck # 46102) THEN
    759. 

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

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

  761.   337          (* Temporary measure -- NdxTypes needs to export a version of
    762. 

  762.   338             CheckInit that returns a boolean so we don't have to know
    763. 

  763.   339             what the private InitKey value is. *)
    764. 

  764.   340          ErrorManager.WARN( "Attempt to use unopened .DSP file" );
    765. 

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

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

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

  768.   341        END;
    769. 

  769.   342        StrEdit.SetLength( TheDspFile^.BufRecName, 0 );
    770. 

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

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

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

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

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

  775.   343          (*Makes sure repeated reads of same frame dispose of old
    776. 

  776.   344            frame each time.*)
    777. 

  777.   345        IF NOT NdxBones.InitBuffer( TheDspFile, FrameName ) THEN
    778. 

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

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

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

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

  782.   346          StrEdit.AssignStr( 'Unable to load frame ', TmpMsg );
    783. 

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

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

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

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

  787.   347          StrEdit.Append( TmpMsg, FrameName );
    788. 

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

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

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

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

  792.   348          StrEdit.Append( TmpMsg, ' from file ' );
    793. 

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

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

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

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

  797.   349          StrEdit.Append( TmpMsg, TheDspFile^.name );
    798. 

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

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

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

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

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

  803.   350          ErrorManager.WARN( TmpMsg );
    804. 

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

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

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

  807.   351        END;
    808. 

  808.   352        M2Strings.Assign( FrameName, FrameRec^.ThisFrame );
    809. 

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

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

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

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

  813. *****                                               ^ not supported yet
    814. 

  814.   353        IF NOT FrameRec^.SelfSharedWithFile THEN
    815. 

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

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

  817.   354          GenLists.DisposeList( FrameRec^.self );
    818. 

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

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

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

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

  822.   355        END;
    823. 

  823.   356        GetFrameFromList( TheDspFile^.ListBuf, FrameRec );
    824. 

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

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

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

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

  828.   357        FrameRec^.FromFile := TheDspFile;
    829. 

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

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

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

  832.   358        FrameRec^.SelfSharedWithFile := TRUE;
    833. 

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

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

  835.   359      END ReadFrameFast;
    836. 

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

  837.   360  
    838. 

  838.   361  BEGIN
    839. 

  839.   362    Initialized := FALSE;
    840. 

  840.   363    Init();
    841. 

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

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

  843.   364  END DspFiles.
    844. 

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

  845. 

  846.   478 errors
    847. 

  847. 

  848.