Listing: 1 IMPLEMENTATION MODULE DspFiles; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1992 PMI 7 * Green Bay, Wisconsin 8 * All rights reserved 9 * (414) 468-6040 10 * 11 * $Header: D:/logfiles/mods/dspfiles.mov 1.7 10 Mar 1991 15:26:32 coleb $ 12 * 13 *) 14 15 16 17 (*EntryDiag: 18 IMPORT Diagnostics; 19 :EntryDiag*) 20 21 IMPORT ErrorManager; 22 IMPORT ErrorNames; 23 IMPORT HandleIO; 24 IMPORT GenLists; 25 IMPORT M2Strings; 26 IMPORT MsColors; 27 IMPORT NdxBones; 28 IMPORT NdxTypes; 29 IMPORT PosUtils; 30 IMPORT ScrnTypes; 31 IMPORT ScrnUtl1; 32 IMPORT StrEdit; 33 IMPORT StringIO; 34 IMPORT SYSTEM; 35 IMPORT VStorage; 36 IMPORT VWindows; 37 38 39 VAR 40 Initialized : BOOLEAN; 41 42 PROCEDURE Init(); 43 BEGIN 44 IF Initialized THEN 45 RETURN; 46 ELSE 47 Initialized := TRUE; 48 END; 49 (*EntryDiag: 50 Diagnostics.Init(); 51 :EntryDiag*) 52 53 ErrorManager.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 54 ErrorNames.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 55 HandleIO.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 56 GenLists.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 57 M2Strings.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 58 MsColors.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 59 NdxTypes.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 60 NdxBones.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 61 PosUtils.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 62 ScrnTypes.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 63 ScrnUtl1.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 StrEdit.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 StringIO.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 66 VStorage.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 67 VWindows.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 68 69 (*EntryDiag: 70 Diagnostics.diagS( 'Entering DspFiles', '' ); 71 :EntryDiag*) 72 MainFrame := NIL; ***** ^ undeclared identifier 73 (*EntryDiag: 74 Diagnostics.diagS( 'Exiting DspFiles', '' ); 75 :EntryDiag*) 76 END Init; ***** ^ not supported yet 77 78 79 80 PROCEDURE ReMapCol( TheFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 81 DspFileCol: CARDINAL ): CARDINAL; 82 VAR 83 diff: CARDINAL; 84 BEGIN 85 IF DspFileCol > VWindows.EndCol(TheFrame^.WindowHandle) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 86 IF DspFileCol <= 128 THEN 87 RETURN VWindows.EndCol(TheFrame^.WindowHandle) - 1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 88 ELSIF DspFileCol <= 256 THEN 89 diff := 256 - DspFileCol; 90 IF diff <= VWindows.EndCol(TheFrame^.WindowHandle) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 91 RETURN VWindows.EndCol(TheFrame^.WindowHandle) - diff - 1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 92 END; 93 END; 94 ErrorNames.WarningName( 'InvCrd' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 95 END; 96 RETURN DspFileCol; 97 END ReMapCol; ***** ^ not supported yet 98 99 PROCEDURE ReMapRow( TheFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 100 DspFileRow: CARDINAL ): CARDINAL; 101 VAR 102 diff: CARDINAL; 103 BEGIN 104 IF DspFileRow > VWindows.EndRow(TheFrame^.WindowHandle) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 105 IF DspFileRow <= 128 THEN 106 (* Some sort of mistake. Force it into acceptable range. *) 107 RETURN VWindows.EndRow(TheFrame^.WindowHandle) - 1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 108 ELSIF DspFileRow <= 256 THEN 109 (* They're trying to tell us to use EndRow, whatever it 110 happens to be. *) 111 diff := 256 - DspFileRow; 112 IF diff <= VWindows.EndRow(TheFrame^.WindowHandle) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 113 RETURN VWindows.EndRow(TheFrame^.WindowHandle) - diff - 1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 114 END; 115 END; 116 ErrorNames.WarningName( 'InvCrd' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 117 END; 118 RETURN DspFileRow; 119 END ReMapRow; ***** ^ not supported yet 120 121 122 PROCEDURE OpenDisplayFile(VAR TheDspFile : ScrnTypes.DisplayFile; ***** ^ not supported yet 123 fname : ARRAY OF CHAR): BOOLEAN; ***** ^ not supported yet 124 VAR 125 tmpstr: ScrnTypes.AFrameName; ***** ^ not supported yet 126 RightVersion : BOOLEAN; 127 TypeCode: CARDINAL; 128 BEGIN (*OpenDisplayFile*) 129 IF (MainFrame = NIL) THEN ***** ^ undeclared identifier 130 ScrnTypes.InitDisplayFrame( MainFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 131 END; 132 (* find and open the file if it exists *) 133 IF NOT NdxBones.OpenNdxFile( TheDspFile, fname ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 134 RETURN FALSE; 135 END; 136 IF NdxBones.InitBuffer( TheDspFile, 'RepVers' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 137 GenLists.GetElmt( TheDspFile^.ListBuf, 1, tmpstr, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 138 IF PosUtils.Equal( '1.5c', tmpstr ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 139 RightVersion := TRUE; 140 ELSE 141 RightVersion := FALSE; 142 END; 143 ELSE 144 RightVersion := FALSE; 145 END; 146 IF NOT RightVersion THEN 147 ErrorNames.WarningName( 'RecompileDsp' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 148 END; 149 IF (MainFrame^.FromFile = NIL) THEN ***** ^ undeclared identifier ***** ^ not supported yet 150 MainFrame^.FromFile := TheDspFile; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 151 END; 152 RETURN TRUE; 153 END OpenDisplayFile; ***** ^ not supported yet 154 155 156 PROCEDURE CloseDisplayFile(VAR TheDspFile : ScrnTypes.DisplayFile); ***** ^ not supported yet 157 BEGIN 158 IF TheDspFile # NIL THEN ***** ^ not supported yet 159 WITH TheDspFile^ DO ***** ^ not supported yet 160 (*Note that we don't call CloseNdxFile here because it 161 pulls in code that updates the file's ndx if it's been 162 changed. Since we don't write to NdxFile's in the 163 basic screen system, we can avoid linking all that code 164 in by doing a few extra deallocations here.*) 165 GenLists.DisposeList( ListBuf); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 166 GenLists.DisposeList( StructLst); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 167 GenLists.DisposeList( Ndx ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 168 GenLists.DisposeList( AltKeys ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 169 (*Note that we don't dispose of the FileBufPtr because 170 it should always have been absorbed into the ListBuf.*) 171 IF handle # 0 THEN ***** ^ undeclared identifier 172 (*handle may be 0 if the NdxFile record was initialized 173 but never passed to OpenNdxFile.*) 174 StringIO.PrintMessage( HandleIO.CloseHandle( handle) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 175 END; 176 END; ***** ^ not supported yet 177 VStorage.DosDealloc( TheDspFile, SYSTEM.TSIZE(NdxTypes.NdxRecord) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 178 END; 179 END CloseDisplayFile; ***** ^ not supported yet 180 181 182 PROCEDURE UnPackFrame( PackedRec: ScrnTypes.PackedFrame; VAR FrameRec: ***** ^ not supported yet 183 ScrnTypes.DisplayFrame); ***** ^ not supported yet 184 BEGIN 185 WITH FrameRec^ DO ***** ^ not supported yet 186 (* 187 PushedFrame := NIL; 188 DO NOT set PushedFrame to NIL because we have to preserve 189 FrameRec's linked to any frames that may be pushed underneath 190 it. 191 *) 192 CurrentField := 1; ***** ^ undeclared identifier 193 RowsScrolled := 0; ***** ^ undeclared identifier 194 ColsScrolled := 0; ***** ^ undeclared identifier 195 FrameChanged := FALSE; ***** ^ undeclared identifier 196 ClearFirst := PackedRec^.ClearFirst; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 197 ClearAfter := PackedRec^.ClearAfter; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 198 EntryBox := PackedRec^.EntryBox; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 199 ExitBox := PackedRec^.ExitBox; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 200 M2Strings.Assign( PackedRec^.Caption, Caption ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 201 VirtualWidth := PackedRec^.VirtualWidth; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 202 VirtualHeight := PackedRec^.VirtualHeight; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 203 headline := PackedRec^.headline; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 204 startcol := PackedRec^.startcol; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 205 endcol := ReMapCol( FrameRec, PackedRec^.endcol ); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 206 startrow := PackedRec^.startrow; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 207 endrow := ReMapRow( FrameRec, PackedRec^.endrow ); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 208 action := PackedRec^.action; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 209 pbfor := PackedRec^.pbfor; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 210 pbbak := PackedRec^.pbbak; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 211 selfor := PackedRec^.selfor; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 212 selbak := PackedRec^.selbak; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 213 normfor := PackedRec^.normfor; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 214 normbak := PackedRec^.normbak; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 215 bordfor := PackedRec^.bordfor; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 216 bordbak := PackedRec^.bordbak; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 217 msgfor := PackedRec^.msgfor; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 218 msgbak := PackedRec^.msgbak; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 219 promfor := PackedRec^.promfor; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 220 prombak := PackedRec^.prombak; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 221 pbatrb := PackedRec^.pbatrb; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 222 selatrb := PackedRec^.selatrb; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 223 normatrb := PackedRec^.normatrb; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 224 bordatrb := PackedRec^.bordatrb; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 225 msgatrb := PackedRec^.msgatrb; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 226 promatrb := PackedRec^.promatrb; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 227 END; ***** ^ not supported yet 228 END UnPackFrame; ***** ^ not supported yet 229 230 231 PROCEDURE GetFrameFromList( TheList: GenLists.GenList; ***** ^ not supported yet 232 VAR FrameRec: ScrnTypes.DisplayFrame ); ***** ^ not supported yet 233 VAR 234 TypeCode, size: CARDINAL; 235 PackedRec: ScrnTypes.PackedFrame; ***** ^ not supported yet 236 BEGIN 237 FrameRec^.self := TheList; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 238 GenLists.GetElmt( FrameRec^.self, 1, FrameRec^.HelpFrame, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 239 GenLists.GetElmt( FrameRec^.self, 2, FrameRec^.parent, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 240 GenLists.GetElmt( FrameRec^.self, 3, FrameRec^.normlnext, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 241 GenLists.GetElmtAdr( FrameRec^.self, 4, PackedRec, size, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 242 UnPackFrame( PackedRec, FrameRec); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 243 ScrnUtl1.GetFrameLists( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 244 END GetFrameFromList; ***** ^ not supported yet 245 246 247 PROCEDURE InitEdFields( VAR TheFrame: ScrnTypes.DisplayFrame ); ***** ^ not supported yet 248 VAR 249 ListEnd, cnt: CARDINAL; 250 TmpList1, TmpList2: GenLists.GenList; ***** ^ not supported yet 251 BEGIN 252 IF NOT GenLists.Initialized( TheFrame^.FieldList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 253 RETURN; 254 END; 255 ListEnd := GenLists.ListLength( TheFrame^.FieldList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 256 FOR cnt := 1 TO ListEnd DO 257 IF ScrnUtl1.FieldType( TheFrame, cnt ) = ScrnTypes.EditorCode THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 258 IF ScrnUtl1.GetFieldDataList( TheFrame, cnt, TmpList1 ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 259 GenLists.CopyList( TmpList1, TmpList2 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 260 IF NOT ScrnUtl1.ListToEdField( TmpList2, TheFrame, cnt ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 261 (* no response *) 262 END; 263 END; 264 END; 265 END; 266 END InitEdFields; ***** ^ not supported yet 267 268 269 PROCEDURE ReadFrame(VAR TheDspFile: ScrnTypes.DisplayFile; ***** ^ not supported yet 270 VAR FrameRec: ScrnTypes.DisplayFrame; FrameName: ARRAY OF ***** ^ not supported yet 271 CHAR ); ***** ^ not supported yet 272 273 (* Reads screen FrameName from TheDspFile, into frame record 274 FrameRec. Differs from ReadFrameFast in that it 275 disconnects FrameRec's lists from TheDspFile, so they will not 276 be disposed of the next time something is read from 277 TheDspFile. They will be disposed of the next time we call 278 ReadFrame, or when the frame is closed. Safer, but a 279 little slower, than ReadFrameFast.*) 280 VAR 281 TmpMsg: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 282 283 BEGIN 284 (* ReadFrame *) 285 IF (TheDspFile = NIL) OR ***** ^ not supported yet 286 (TheDspFile^.InitCheck # 46102) THEN ***** ^ not supported yet ***** ^ not supported yet 287 (* Temporary measure -- NdxTypes needs to export a version of 288 CheckInit that returns a boolean so we don't have to know 289 what the private InitKey value is. *) 290 ErrorManager.WARN( "Attempt to use unopened .DSP file" ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 291 END; 292 StrEdit.SetLength( TheDspFile^.BufRecName, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 293 IF NOT NdxBones.InitBuffer( TheDspFile, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 294 StrEdit.AssignStr( 'Unable to load frame ', TmpMsg ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 295 StrEdit.Append( TmpMsg, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 296 StrEdit.Append( TmpMsg, ' from file ' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 297 StrEdit.Append( TmpMsg, TheDspFile^.name ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 298 ErrorManager.WARN( TmpMsg ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 299 END; 300 M2Strings.Assign( FrameName, FrameRec^.ThisFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 301 IF NOT FrameRec^.SelfSharedWithFile THEN ***** ^ not supported yet ***** ^ not supported yet 302 GenLists.DisposeList( FrameRec^.self ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 303 ELSE 304 GenLists.NilList( FrameRec^.self ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 305 (* Useless, but it gives us something to look for in 306 the RTD. *) 307 END; 308 GenLists.CopyList( TheDspFile^.ListBuf, FrameRec^.self ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 309 GetFrameFromList( FrameRec^.self, FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 310 FrameRec^.FromFile := TheDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 311 FrameRec^.SelfSharedWithFile := FALSE; ***** ^ not supported yet ***** ^ not supported yet 312 InitEdFields( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet 313 END ReadFrame; ***** ^ not supported yet 314 315 316 PROCEDURE ReadDisplayFrame(VAR TheDspFile: ScrnTypes.DisplayFile; ***** ^ not supported yet 317 VAR FrameRec: ScrnTypes.DisplayFrame; FrameName: ARRAY OF ***** ^ not supported yet 318 CHAR ); ***** ^ not supported yet 319 BEGIN 320 ReadFrame( TheDspFile, FrameRec, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 321 END ReadDisplayFrame; ***** ^ not supported yet 322 323 324 PROCEDURE ReadFrameFast(VAR TheDspFile: ScrnTypes.DisplayFile; ***** ^ not supported yet 325 VAR FrameRec: ScrnTypes.DisplayFrame; FrameName: ARRAY OF ***** ^ not supported yet 326 CHAR ); ***** ^ not supported yet 327 328 (* Reads screen FrameName from TheDspFile, into frame record 329 FrameRec.*) 330 VAR 331 TmpMsg: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 332 333 BEGIN 334 (* ReadFrameFast *) 335 IF (TheDspFile = NIL) OR ***** ^ not supported yet 336 (TheDspFile^.InitCheck # 46102) THEN ***** ^ not supported yet ***** ^ not supported yet 337 (* Temporary measure -- NdxTypes needs to export a version of 338 CheckInit that returns a boolean so we don't have to know 339 what the private InitKey value is. *) 340 ErrorManager.WARN( "Attempt to use unopened .DSP file" ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 341 END; 342 StrEdit.SetLength( TheDspFile^.BufRecName, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 343 (*Makes sure repeated reads of same frame dispose of old 344 frame each time.*) 345 IF NOT NdxBones.InitBuffer( TheDspFile, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 346 StrEdit.AssignStr( 'Unable to load frame ', TmpMsg ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 347 StrEdit.Append( TmpMsg, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 348 StrEdit.Append( TmpMsg, ' from file ' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 349 StrEdit.Append( TmpMsg, TheDspFile^.name ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 350 ErrorManager.WARN( TmpMsg ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 351 END; 352 M2Strings.Assign( FrameName, FrameRec^.ThisFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 353 IF NOT FrameRec^.SelfSharedWithFile THEN ***** ^ not supported yet ***** ^ not supported yet 354 GenLists.DisposeList( FrameRec^.self ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 355 END; 356 GetFrameFromList( TheDspFile^.ListBuf, FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 357 FrameRec^.FromFile := TheDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 358 FrameRec^.SelfSharedWithFile := TRUE; ***** ^ not supported yet ***** ^ not supported yet 359 END ReadFrameFast; ***** ^ not supported yet 360 361 BEGIN 362 Initialized := FALSE; 363 Init(); ***** ^ not supported yet ***** ^ not supported yet 364 END DspFiles. ***** ^ not supported yet 478 errors