Listing: 1 MODULE ScrnCompile; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1990 PMI 7 * Green Bay, WI 8 * All rights reserved 9 * (414) 468-6040 10 * 11 *) 12 13 14 15 IMPORT BigSets; 16 IMPORT ControlUtils; 17 IMPORT DspFiles; 18 IMPORT EnvironUtils; 19 IMPORT ErrorManager; 20 IMPORT HandleIO; 21 IMPORT FrameManager; 22 IMPORT FramePainter; 23 IMPORT GenLists; 24 IMPORT InputManager; 25 IMPORT KbdInput; 26 IMPORT ListUtils; 27 IMPORT LowLevel; 28 IMPORT M2Strings; 29 IMPORT MakeFrame; 30 IMPORT MsColors; 31 IMPORT NdxBones; 32 IMPORT NdxFiles; 33 IMPORT NdxTypes; 34 IMPORT NdxUtils; 35 IMPORT PosUtils; 36 IMPORT PrtFrame; 37 IMPORT ScrnTypes; 38 IMPORT ScrnUtl1; 39 IMPORT ScrnUtl2; 40 IMPORT StrConv; 41 IMPORT StrEdit; 42 IMPORT StringIO; 43 IMPORT SYSTEM; 44 IMPORT UserOps; 45 IMPORT VEditor; 46 IMPORT VWindows; 47 IMPORT InitCompilerMods; 48 49 TYPE 50 ASyntaxChoice = (unknown, old, new); 51 52 VAR 53 LastFileName, LastFrameName, EdtFileName, 54 DspFileName: ARRAY [0..80] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 55 TopMenuList, FileList, CurrentFrameList, OutFrameList: 56 GenLists.GenList; ***** ^ not supported yet 57 ErrStr: ARRAY [0..255] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 58 FrameName, StartFrame, EndingFrame, NextFrame: 59 ScrnTypes.AFrameName; ***** ^ not supported yet 60 ScrnCompDsp, CurrentDspFile: ScrnTypes.DisplayFile; ***** ^ not supported yet 61 ParamsRead, SavedCursorHeight, FileListLine, BadLine: 62 CARDINAL; 63 syntax : ASyntaxChoice; ***** ^ not supported yet 64 (*Determines the syntax rule in effect for the current .EDT 65 file.*) 66 CmdLineVersion, AtEndOfList, ListChanged: BOOLEAN; 67 MovementKeys: KbdInput.KeyNumSet; ***** ^ not supported yet 68 SelChar: CHAR; 69 70 71 (* These two new forms of the Input procedure will eventually be 72 moved to ControlUtils. *) 73 74 PROCEDURE Input2( TheFile: ScrnTypes.DisplayFile; VAR ***** ^ not supported yet 75 FrameName : ScrnTypes.AFrameName ); ***** ^ not supported yet 76 VAR 77 TmpFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 78 BEGIN 79 ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 80 DspFiles.ReadFrame( TheFile, TmpFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 81 FrameName ); ***** ^ not supported yet 82 FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 83 InputManager.ControlFrame( TmpFrame, 1, '', FALSE, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 84 ScrnUtl2.CloseDisplayFrame( TmpFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 85 END Input2; ***** ^ not supported yet 86 87 88 PROCEDURE InputConst2( TheFile: ScrnTypes.DisplayFile; ***** ^ not supported yet 89 FrameName : ARRAY OF CHAR ); ***** ^ not supported yet 90 VAR 91 TmpName: ScrnTypes.AFrameName; ***** ^ not supported yet 92 TmpFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 93 BEGIN 94 ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 95 M2Strings.Assign( FrameName, TmpName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 96 DspFiles.ReadFrame( TheFile, TmpFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 97 TmpName ); ***** ^ not supported yet 98 FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 99 InputManager.ControlFrame( TmpFrame, 0, '', FALSE, TmpName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 100 ScrnUtl2.CloseDisplayFrame( TmpFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 101 END InputConst2; ***** ^ not supported yet 102 103 104 PROCEDURE UpdateStatus( StatusFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 105 FieldName, NewStatus: ARRAY OF CHAR ); ***** ^ not supported yet 106 VAR 107 width, TmpFieldNum: CARDINAL; 108 TmpStr: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 109 BEGIN 110 TmpFieldNum := ScrnUtl1.FieldNum(StatusFrame, FieldName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 111 width := ScrnUtl1.FieldWidth( StatusFrame, TmpFieldNum ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 112 StrEdit.AssignStr( NewStatus, TmpStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 113 StrEdit.Center( TmpStr, width ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 114 ControlUtils.ChangeField( StatusFrame, TmpStr, FieldName, TRUE ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 115 FramePainter.RedrawField( StatusFrame, TmpFieldNum, FALSE ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 116 END UpdateStatus; ***** ^ not supported yet 117 118 119 PROCEDURE CommandLineSwitch(): BOOLEAN; 120 VAR 121 lngth: CARDINAL; 122 ParamStr: ARRAY [0..127] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 123 BEGIN 124 EnvironUtils.GetProgParams( ParamStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 125 StrEdit.CrunchBlanks( ParamStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 126 lngth := M2Strings.Length( ParamStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 127 IF lngth < 2 THEN 128 RETURN FALSE; 129 END; 130 IF (ParamStr[ lngth - 2 ] = '/') AND ***** ^ not supported yet ***** ^ not supported yet 131 (CAP(ParamStr[ lngth - 1 ]) = 'C') THEN ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 132 RETURN TRUE; 133 ELSE 134 RETURN FALSE; 135 END; 136 END CommandLineSwitch; ***** ^ not supported yet 137 138 139 PROCEDURE AddExtension( VAR FileName: ARRAY OF CHAR; ***** ^ not supported yet 140 Extension: ARRAY OF CHAR ); ***** ^ not supported yet 141 BEGIN 142 IF NOT PosUtils.Present( ".", FileName) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 143 StrEdit.Append( FileName, Extension ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 144 END; 145 END AddExtension; ***** ^ not supported yet 146 147 148 PROCEDURE AddMovementKeys( VAR TheKeySet: KbdInput.KeyNumSet ); ***** ^ not supported yet 149 BEGIN 150 BigSets.SetUnion( TheKeySet, MovementKeys, TheKeySet ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 151 END AddMovementKeys; ***** ^ not supported yet 152 153 154 PROCEDURE RemoveMovementKeys( VAR TheKeySet: KbdInput.KeyNumSet ); ***** ^ not supported yet 155 BEGIN 156 BigSets.SetDifference( TheKeySet, MovementKeys, TheKeySet ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 157 END RemoveMovementKeys; ***** ^ not supported yet 158 159 160 PROCEDURE CallEditor( VAR TheList: GenLists.GenList; ***** ^ not supported yet 161 VAR ControlRec: VEditor.AnEdControlRec ); ***** ^ not supported yet 162 VAR 163 TmpFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 164 BEGIN 165 ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 166 ControlUtils.AddEditorField( TmpFrame, TheList, ControlRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 167 FrameManager.FrameActivated( TmpFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 168 UserOps.DoPrompting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 169 RemoveMovementKeys( UserOps.FieldExitKeySet ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 170 VEditor.TheEditor( TheList, ControlRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 171 AddMovementKeys( UserOps.FieldExitKeySet ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 172 UserOps.DoPrompting := TRUE; ***** ^ not supported yet ***** ^ not supported yet 173 GenLists.NilList( TmpFrame^.EdFieldList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 174 GenLists.DisconnectLists( TheList, TmpFrame^.self ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 175 (* We have to disconnect TheList because it has become a sublist 176 of TmpFrame's .self list, which is about to be disposed of. *) 177 ScrnUtl2.CloseDisplayFrame( TmpFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 178 VWindows.SetForeColor( VWindows.CurrentWindow, MsColors.lightgrey ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 179 VWindows.SetBackColor( VWindows.CurrentWindow, MsColors.black ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 180 VWindows.SetMonoAttr( VWindows.CurrentWindow, MsColors.plain ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 181 VWindows.ClearPart( VWindows.CurrentWindow, 1,1, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 182 VWindows.EndCol(VWindows.CurrentWindow), ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 183 VWindows.EndRow(VWindows.CurrentWindow) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 184 END CallEditor; ***** ^ not supported yet 185 186 187 PROCEDURE CloseCurrentDsp(); 188 BEGIN 189 IF (CurrentDspFile # NIL) THEN ***** ^ not supported yet 190 NdxUtils.CrunchNdxFile( CurrentDspFile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 191 NdxFiles.CloseNdxFile( CurrentDspFile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 192 END; 193 END CloseCurrentDsp; ***** ^ not supported yet 194 195 196 PROCEDURE Yes( Prompt: ARRAY OF CHAR ): BOOLEAN; ***** ^ not supported yet 197 BEGIN 198 IF CmdLineVersion THEN 199 StringIO.WriteEol( StringIO.outp, '' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 200 StringIO.WriteStr( StringIO.outp, Prompt ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 201 StringIO.WriteStr( StringIO.outp, ' (Y/N): ' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 202 RETURN KbdInput.CAPkey( KbdInput.KeyHit( KbdInput.YorN ) ) = ORD('Y'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 203 ELSE 204 M2Strings.Assign( Prompt, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 205 ControlUtils.Input( DspFiles.MainFrame, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 206 RETURN CAP( ScrnUtl1.SelectedChar(DspFiles.MainFrame) ) = 'Y'; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 207 END; 208 END Yes; ***** ^ not supported yet 209 210 211 PROCEDURE NamesToFrame( DspFile: ScrnTypes.DisplayFile; ***** ^ not supported yet 212 VAR TheFrame: ScrnTypes.DisplayFrame ); ***** ^ not supported yet 213 VAR 214 NdxRec: NdxTypes.NdxElement; ***** ^ not supported yet 215 lngth, cnt, TypeCode: CARDINAL; 216 BEGIN 217 lngth := GenLists.ListLength( DspFile^.Ndx ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 218 FOR cnt := 1 TO lngth DO 219 GenLists.GetElmt( DspFile^.Ndx, cnt, NdxRec, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 220 IF NdxRec.RecName[0] # 0C THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 221 IF NOT (PosUtils.Pos( 'RepVers', NdxRec.RecName ) = 0) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 222 (* We don't want to write out the name of the version 223 check record. *) 224 ControlUtils.AddMenuItem( TheFrame, 2, 1 + cnt, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 225 NdxRec.RecName, 20, 0, NdxRec.RecName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 226 END; 227 END; 228 END; 229 END NamesToFrame; ***** ^ not supported yet 230 231 232 PROCEDURE InsertCommandDelims( VAR TheList: GenLists.GenList ); ***** ^ not supported yet 233 VAR 234 TmpStr: ARRAY [0..127] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 235 BEGIN 236 IF GenLists.ListLength( TheList ) = 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 237 (*Get em started--command area delimiters are tedious to 238 type in.*) 239 LowLevel.Fill( SYSTEM.ADR(TmpStr), 80, '=' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 240 GenLists.ListInsert( TmpStr, GenLists.StrCode, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 241 TheList, 1 ); ***** ^ not supported yet ***** ^ not supported yet 242 LowLevel.Fill( SYSTEM.ADR(TmpStr), 80, '-' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 243 GenLists.ListInsert( ':[insert name here]', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 244 GenLists.StrCode, TheList, 2 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 245 GenLists.ListInsert( TmpStr, GenLists.StrCode, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 246 TheList, 3 ); ***** ^ not supported yet ***** ^ not supported yet 247 END; 248 END InsertCommandDelims; ***** ^ not supported yet 249 250 251 PROCEDURE GetStrResponse( Prompt, Default: ARRAY OF CHAR; ***** ^ not supported yet 252 VAR TheStr: ARRAY OF CHAR ): BOOLEAN; ***** ^ not supported yet 253 BEGIN 254 IF CmdLineVersion THEN 255 IF EnvironUtils.ParsedParam( ParamsRead + 1, TheStr ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 256 IF TheStr[0] # '/' THEN ***** ^ not supported yet ***** ^ not supported yet 257 IF PosUtils.Present( '/c', TheStr ) OR ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 258 PosUtils.Present( '/C', TheStr ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 259 M2Strings.Delete( TheStr, M2Strings.Length(TheStr) - 2, 2 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 260 StrEdit.CrunchBlanks( TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 261 END; 262 INC( ParamsRead ); ***** ^ undeclared identifier ***** ^ not supported yet 263 RETURN TRUE; 264 END; 265 END; 266 StringIO.WriteStr( StringIO.outp, Prompt ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 267 StringIO.WriteStr( StringIO.outp, ': ' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 268 StringIO.ReadStr( StringIO.inp, TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 269 IF TheStr[0] # 0C THEN ***** ^ not supported yet ***** ^ not supported yet 270 RETURN TRUE; 271 ELSE 272 RETURN FALSE; 273 END; 274 END; 275 M2Strings.Assign( Prompt, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 276 DspFiles.ReadDisplayFrame( ScrnCompDsp, DspFiles.MainFrame, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 277 ControlUtils.ChangeField( DspFiles.MainFrame, Default, 'TheStr', TRUE ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 278 FramePainter.ShowDisplayFrame( DspFiles.MainFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 279 InputManager.ControlFrame( DspFiles.MainFrame, 1, '', FALSE, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 280 IF PosUtils.Equal( DspFiles.MainFrame^.parent, NextFrame ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 281 RETURN FALSE; 282 END; 283 ControlUtils.ReadInput( DspFiles.MainFrame, TheStr, 'TheStr' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 284 StrEdit.CrunchBlanks( TheStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 285 RETURN TRUE; 286 END GetStrResponse; ***** ^ not supported yet 287 288 289 PROCEDURE ReadNewEdtFile(): BOOLEAN; 290 BEGIN 291 IF GenLists.Initialized( FileList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 292 IF Yes('SaveEdt') THEN ***** ^ not supported yet ***** ^ not supported yet 293 IF NOT GetStrResponse( 'EdtName', EdtFileName, EdtFileName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 294 RETURN FALSE; 295 END; 296 AddExtension( EdtFileName, '.EDT' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 297 IF StringIO.NoError # ListUtils.TextListToFile( FileList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 298 EdtFileName ) THEN ***** ^ not supported yet 299 RETURN FALSE; 300 END; 301 END; 302 GenLists.DisposeList( FileList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 303 END; 304 LOOP 305 IF NOT GetStrResponse( 'EdtName', LastFileName, EdtFileName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 306 RETURN FALSE; 307 END; 308 M2Strings.Assign( EdtFileName, LastFileName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 309 AddExtension( EdtFileName, '.EDT' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 310 GenLists.NewList( FileList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 311 IF ListUtils.TextFileToList( EdtFileName, FileList) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 312 = StringIO.NoError THEN ***** ^ not supported yet ***** ^ not supported yet 313 ListUtils.DeTabList( FileList, ListChanged ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 314 EXIT; 315 ELSIF Yes( 'CreateQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 316 GenLists.DisposeList( FileList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 317 GenLists.CopyList( CurrentFrameList, FileList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 318 InsertCommandDelims( FileList ); ***** ^ not supported yet ***** ^ not supported yet 319 (*Won't do anything if there's already something in 320 CurrentFrameList.*) 321 ELSE 322 GenLists.DisposeList( FileList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 323 IF NOT CmdLineVersion THEN 324 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 325 END; 326 RETURN FALSE; 327 END; 328 END; 329 FileListLine := 1; 330 RETURN TRUE; 331 END ReadNewEdtFile; ***** ^ not supported yet 332 333 334 PROCEDURE RightVersion( VAR dfile: ScrnTypes.DisplayFile ): BOOLEAN; ***** ^ not supported yet 335 VAR 336 TypeCode: CARDINAL; 337 tmpstr: ScrnTypes.AFrameName; ***** ^ not supported yet 338 BEGIN 339 IF NdxBones.InitBuffer( dfile, 'RepVers' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 340 GenLists.GetElmt( dfile^.ListBuf, 1, tmpstr, TypeCode ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 341 IF PosUtils.Equal( '1.5c', tmpstr ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 342 RETURN TRUE; 343 ELSE 344 DspFiles.CloseDisplayFile( dfile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 345 RETURN FALSE; 346 END; 347 ELSE 348 DspFiles.CloseDisplayFile( dfile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 349 RETURN FALSE; 350 END; 351 END RightVersion; ***** ^ not supported yet 352 353 354 PROCEDURE OpenNewDspFile(): BOOLEAN; 355 BEGIN 356 IF CurrentDspFile # NIL THEN ***** ^ not supported yet 357 DspFiles.CloseDisplayFile( CurrentDspFile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 358 END; 359 LOOP 360 IF NOT GetStrResponse( 'DspName', LastFileName, DspFileName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 361 RETURN FALSE; 362 END; 363 M2Strings.Assign( DspFileName, LastFileName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 364 AddExtension( DspFileName, ".DSP" ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 365 IF DspFiles.OpenDisplayFile( CurrentDspFile, DspFileName ) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 366 AND RightVersion(CurrentDspFile) THEN ***** ^ not supported yet ***** ^ not supported yet 367 (*Don't let them open a .DSP file created by an 368 incompatible version of the screen compiler. Make them 369 start over.*) 370 EXIT; 371 ELSIF CmdLineVersion THEN 372 NdxFiles.CreateNdxFile( CurrentDspFile, DspFileName, "" ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 373 IF NdxFiles.PutField( CurrentDspFile, 'RepVers', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 374 'RECORD', GenLists.StrCode, '1.5c' ) AND ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 375 NdxFiles.WriteRecord( CurrentDspFile, 'RepVers' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 376 EXIT; 377 END 378 ELSE 379 IF Yes( 'CreateQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 380 NdxFiles.CreateNdxFile( CurrentDspFile, DspFileName, "" ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 381 IF NdxFiles.PutField( CurrentDspFile, 'RepVers', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 382 'RECORD', GenLists.StrCode, '1.5c' ) AND ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 383 NdxFiles.WriteRecord( CurrentDspFile, 'RepVers' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 384 EXIT; 385 END 386 ELSE 387 CurrentDspFile := NIL; ***** ^ not supported yet 388 RETURN FALSE; 389 END; 390 END; 391 END; 392 ErrorManager.AddTermProc( CloseCurrentDsp ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 393 RETURN TRUE; 394 END OpenNewDspFile; ***** ^ not supported yet 395 396 397 PROCEDURE FrameStart( VAR str: ARRAY OF CHAR ): BOOLEAN; ***** ^ not supported yet 398 BEGIN 399 IF (M2Strings.Length(str) = 0) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 400 RETURN FALSE; 401 END; 402 IF (PosUtils.Present( MakeFrame.CommandBeginStr, str)) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 403 IF (syntax = new) THEN ***** ^ not supported yet ***** ^ not supported yet 404 RETURN TRUE; 405 END; 406 IF (syntax = unknown) THEN ***** ^ not supported yet ***** ^ not supported yet 407 syntax := new; ***** ^ not supported yet ***** ^ not supported yet 408 RETURN TRUE; 409 END; 410 END; 411 IF (str[0] = ":") THEN ***** ^ not supported yet ***** ^ not supported yet 412 IF (syntax = old) THEN ***** ^ not supported yet ***** ^ not supported yet 413 RETURN TRUE; 414 END; 415 IF (syntax = unknown) THEN ***** ^ not supported yet ***** ^ not supported yet 416 syntax := old; ***** ^ not supported yet ***** ^ not supported yet 417 RETURN TRUE; 418 END; 419 END; 420 RETURN FALSE; 421 END FrameStart; ***** ^ not supported yet 422 423 424 PROCEDURE GetNextFrame( FileList: GenLists.GenList; VAR FrameList: ***** ^ not supported yet 425 GenLists.GenList; VAR StartLine: CARDINAL ): BOOLEAN; ***** ^ not supported yet 426 (* Gets next frame list out of file list.*) 427 VAR 428 text: ARRAY [0..255] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 429 type: CARDINAL; 430 431 BEGIN 432 syntax := unknown; ***** ^ not supported yet ***** ^ not supported yet 433 GenLists.DisposeList( FrameList); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 434 GenLists.NewList( FrameList); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 435 (* first, skip until we get to CommandBeginStr or a colon in 436 column one *) 437 REPEAT 438 IF StartLine > GenLists.ListLength( FileList) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 439 RETURN FALSE; 440 END; 441 GenLists.GetElmt( FileList, StartLine, text, type); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 442 INC( StartLine); ***** ^ undeclared identifier ***** ^ not supported yet 443 UNTIL FrameStart(text); ***** ^ not supported yet ***** ^ not supported yet 444 (* now copy elements until another FrameStart*) 445 REPEAT 446 GenLists.ListInsert( text, type, FrameList, 65535); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 447 (* insert in frame *) 448 IF StartLine > GenLists.ListLength( FileList) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 449 RETURN FALSE; 450 END; 451 GenLists.GetElmt( FileList, StartLine, text, type); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 452 INC( StartLine); ***** ^ undeclared identifier ***** ^ not supported yet 453 UNTIL FrameStart( text ); ***** ^ not supported yet ***** ^ not supported yet 454 DEC( StartLine); ***** ^ undeclared identifier ***** ^ not supported yet 455 RETURN TRUE; 456 END GetNextFrame; ***** ^ not supported yet 457 458 459 PROCEDURE FindFrame( FileList: GenLists.GenList; ***** ^ not supported yet 460 FrameName: ARRAY OF CHAR; VAR StartLine: CARDINAL ): BOOLEAN; ***** ^ not supported yet 461 VAR 462 text: ARRAY [0..255] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 463 FoundSpot, type: CARDINAL; 464 TmpName: ScrnTypes.AFrameName; ***** ^ not supported yet 465 BEGIN 466 IF NOT GenLists.Initialized( FileList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 467 RETURN FALSE; 468 END; 469 M2Strings.Assign( FrameName, TmpName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 470 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 471 IF TmpName[0] # ':' THEN ***** ^ not supported yet ***** ^ not supported yet 472 M2Strings.Insert( ':', TmpName, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 473 END; 474 StartLine := 0; 475 REPEAT 476 (*This is John McMonagle's fix for a problem that was 477 causing FindFrame to return FALSE when frame names 478 appeared by accident in other parts of the frame.*) 479 StartLine := GenLists.ScanList( TmpName, FileList, StartLine + 1, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 480 GenLists.ListLength(FileList), FoundSpot ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 481 IF (StartLine = 0) THEN 482 RETURN FALSE; 483 END; 484 UNTIL FoundSpot = 0; 485 syntax := unknown; ***** ^ not supported yet ***** ^ not supported yet 486 GenLists.GetElmt( FileList, StartLine + 1, text, type); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 487 IF FrameStart( text ) THEN ***** ^ not supported yet ***** ^ not supported yet 488 (* The name was outside the frame. *) 489 syntax := old; ***** ^ not supported yet ***** ^ not supported yet 490 RETURN TRUE; 491 ELSE 492 (* Back up until we get to CommandBeginStr or a colon in 493 column one.*) 494 syntax := new; ***** ^ not supported yet ***** ^ not supported yet 495 REPEAT 496 DEC( StartLine ); ***** ^ undeclared identifier ***** ^ not supported yet 497 IF StartLine = 0 THEN 498 RETURN FALSE; 499 END; 500 GenLists.GetElmt( FileList, StartLine, text, type ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 501 UNTIL FrameStart(text); ***** ^ not supported yet ***** ^ not supported yet 502 RETURN TRUE; 503 END; 504 END FindFrame; ***** ^ not supported yet 505 506 507 PROCEDURE GetSpecificFrame( FileList: GenLists.GenList; ***** ^ not supported yet 508 FrameName: ARRAY OF CHAR; VAR FrameList: GenLists.GenList): BOOLEAN; ***** ^ not supported yet ***** ^ not supported yet 509 VAR 510 StartLine: CARDINAL; 511 BEGIN 512 IF NOT FindFrame( FileList, FrameName, StartLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 513 RETURN FALSE; 514 END; 515 IF NOT GetNextFrame( FileList, FrameList, StartLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 516 (*It was probably the last frame in the FileList, but we 517 don't care about that.*) 518 END; 519 RETURN TRUE; 520 END GetSpecificFrame; ***** ^ not supported yet 521 522 523 PROCEDURE DeleteFrame( FileList: GenLists.GenList; ***** ^ not supported yet 524 FrameName: ARRAY OF CHAR; VAR EndLine: CARDINAL ): BOOLEAN; ***** ^ not supported yet 525 VAR 526 type: CARDINAL; 527 text: ARRAY [0..255] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 528 BEGIN 529 IF NOT FindFrame( FileList, FrameName, EndLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 530 RETURN FALSE; 531 END; 532 LOOP 533 GenLists.ListDelete( FileList, EndLine, 1 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 534 IF (EndLine > GenLists.ListLength(FileList)) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 535 EXIT; 536 END; 537 GenLists.GetElmt( FileList, EndLine, text, type); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 538 IF FrameStart( text ) THEN ***** ^ not supported yet ***** ^ not supported yet 539 EXIT; 540 END; 541 END; 542 RETURN TRUE; 543 END DeleteFrame; ***** ^ not supported yet 544 545 546 PROCEDURE ShowError( FrameList: GenLists.GenList; ***** ^ not supported yet 547 FrameName, ErrStr: ARRAY OF CHAR; BadLine: CARDINAL); ***** ^ not supported yet 548 VAR 549 text: ARRAY [0..255] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 550 caption, numstr: ARRAY [0..15] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 551 dumc: CARDINAL; 552 BEGIN 553 text := "Frame: "; ***** ^ not supported yet ***** ^ not supported yet 554 IF M2Strings.Length( FrameName) = 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 555 StrEdit.Append( text, "Unknown" ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 556 ELSE 557 StrEdit.Append( text, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 558 END; 559 StrEdit.Append( text, ", Line: " ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 560 StrConv.CardinalToStr( BadLine, 0, numstr); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 561 StrEdit.Append( text, numstr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 562 StrEdit.Append( text, '.' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 563 StrEdit.Append( text, ErrStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 564 caption := 'Error'; ***** ^ not supported yet ***** ^ not supported yet 565 dumc := VWindows.MessageBox( VWindows.CurrentWindow, SYSTEM.ADR(text), ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 566 SYSTEM.ADR(caption), 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 567 END ShowError; ***** ^ not supported yet 568 569 570 PROCEDURE AddToFile( VAR file: NdxTypes.NdxFileType; OutList: GenLists.GenList; ***** ^ not supported yet ***** ^ not supported yet 571 name: ScrnTypes.AFrameName); ***** ^ not supported yet 572 VAR 573 ErrStr: ARRAY [0..80] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 574 BEGIN 575 IF (NOT NdxFiles.PutField( file, name, "RECORD", GenLists.ListCode, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 576 OutList)) OR ***** ^ not supported yet 577 (NOT NdxFiles.WriteRecord( file, name)) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 578 StrEdit.AssignStr( "Can't add to file frame: ", ErrStr); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 579 StrEdit.Append( ErrStr, name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 580 ErrorManager.WARN( ErrStr); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 581 END; 582 END AddToFile; ***** ^ not supported yet 583 584 585 PROCEDURE DoFileMenu( SelectedChar: CHAR ); 586 BEGIN 587 CASE CAP(SelectedChar) OF ***** ^ undeclared identifier ***** ^ not supported yet 588 'E': 589 IF NOT ReadNewEdtFile() THEN END; ***** ^ not supported yet ***** ^ not supported yet 590 | 'D': 591 IF NOT OpenNewDspFile() THEN END; ***** ^ not supported yet ***** ^ not supported yet 592 | 'F': 593 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 594 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 595 RETURN; 596 END; 597 END; 598 IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 599 LOOP 600 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 601 IF NOT ControlUtils.FrameExists( CurrentDspFile, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 602 IF NOT GetStrResponse( 'NewEntry', FrameName, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 603 EXIT 604 END; 605 ELSE 606 IF NdxFiles.DeleteRecord( CurrentDspFile, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 607 EXIT; 608 END; 609 END; 610 END; 611 END; 612 | 'C': 613 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 614 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 615 RETURN; 616 END; 617 END; 618 NdxUtils.CrunchNdxFile( CurrentDspFile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 619 END; 620 END DoFileMenu; ***** ^ not supported yet 621 622 623 PROCEDURE DoEditMenu( SelectedChar: CHAR ); 624 VAR 625 TmpRec: VEditor.AnEdControlRec; ***** ^ not supported yet 626 FrameName: ScrnTypes.AFrameName; ***** ^ not supported yet 627 FileName: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 628 LineTotalStr: ARRAY [0..15] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 629 TmpList: GenLists.GenList; ***** ^ not supported yet 630 EndLine, BadLine: CARDINAL; 631 WorkFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 632 StatusFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 633 SavedMessage: CARDINAL; 634 BEGIN 635 VEditor.InitEdRec( TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 636 TmpRec.DoCounting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 637 CASE CAP(SelectedChar) OF ***** ^ undeclared identifier ***** ^ not supported yet 638 'E': 639 IF NOT GenLists.Initialized( FileList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 640 IF NOT ReadNewEdtFile() THEN ***** ^ not supported yet ***** ^ not supported yet 641 RETURN; 642 END; 643 END; 644 CallEditor( FileList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 645 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 646 IF Yes( 'SaveQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 647 IF StringIO.NoError # ListUtils.TextListToFile( FileList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 648 EdtFileName ) THEN ***** ^ not supported yet 649 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 650 END; 651 END; 652 END; 653 | 'S': 654 IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 655 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 656 IF GetSpecificFrame( FileList, FrameName, CurrentFrameList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 657 CallEditor( CurrentFrameList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 658 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 659 IF DeleteFrame( FileList, FrameName, EndLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 660 ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 661 FileList, EndLine ); ***** ^ not supported yet ***** ^ not supported yet 662 END; 663 IF Yes( 'DisplayQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 664 ScrnTypes.InitDisplayFrame( WorkFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 665 VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet 666 WorkFrame^.FromFile := CurrentDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 667 MakeFrame.CompileFrame( CurrentFrameList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 668 OutFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 669 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 670 IF BadLine = 0 THEN 671 DspFiles.GetFrameFromList( OutFrameList, WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 672 FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 673 InputManager.ControlFrame( WorkFrame, 1, '', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 674 FALSE, NextFrame ); ***** ^ not supported yet 675 ELSE 676 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 677 END; 678 ScrnUtl2.CloseDisplayFrame( WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 679 END; 680 IF Yes( 'SaveQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 681 IF StringIO.NoError # ListUtils.TextListToFile( FileList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 682 EdtFileName ) THEN ***** ^ not supported yet 683 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 684 END; 685 END; 686 END; 687 END; 688 END; 689 | 'F': 690 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 691 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 692 RETURN; 693 END; 694 END; 695 ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 696 WorkFrame^.FromFile := CurrentDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 697 LOOP 698 InsertCommandDelims( CurrentFrameList ); ***** ^ not supported yet ***** ^ not supported yet 699 CallEditor( CurrentFrameList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 700 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 701 IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 702 ListUtils.InsertElmtsOf( CurrentFrameList, 1, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 703 65535, FileList, EndLine ); ***** ^ not supported yet ***** ^ not supported yet 704 END; 705 END; 706 IF NOT Yes( 'DisplayQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 707 EXIT; 708 END; 709 MakeFrame.CompileFrame( CurrentFrameList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 710 OutFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 711 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 712 IF BadLine = 0 THEN 713 DspFiles.GetFrameFromList( OutFrameList, WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 714 FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 715 InputManager.ControlFrame( WorkFrame, 1, '', FALSE, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 716 ELSE 717 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 718 END; 719 END; 720 IF Yes( 'SaveQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 721 IF StringIO.NoError # ListUtils.TextListToFile( FileList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 722 EdtFileName ) THEN ***** ^ not supported yet 723 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 724 END; 725 END; 726 ScrnUtl2.CloseDisplayFrame( WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 727 728 | 'A': 729 IF GetStrResponse( 'FileName', LastFileName, FileName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 730 M2Strings.Assign( FileName, LastFileName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 731 GenLists.NewList( TmpList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 732 SavedMessage := ListUtils.TextFileToList( FileName, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 733 TmpList ); ***** ^ not supported yet 734 IF (SavedMessage # StringIO.NoError) AND ***** ^ not supported yet ***** ^ not supported yet 735 (SavedMessage # StringIO.FileNotFound) THEN ***** ^ not supported yet ***** ^ not supported yet 736 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 737 ELSE 738 IF SavedMessage = StringIO.FileNotFound THEN ***** ^ not supported yet ***** ^ not supported yet 739 IF NOT Yes( 'CreateQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 740 RETURN; 741 END; 742 END; 743 ListUtils.DeTabList( TmpList, ListChanged ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 744 CallEditor( TmpList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 745 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 746 IF Yes( 'SaveQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 747 ScrnTypes.InitDisplayFrame( StatusFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 748 VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet 749 ScrnUtl2.ReadAndShow( ScrnCompDsp, StatusFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 750 'StatusFrame' ); ***** ^ not supported yet 751 UpdateStatus( StatusFrame, 'line1', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 752 'Writing' ); ***** ^ not supported yet 753 StrConv.CardinalToStr( ***** ^ not supported yet ***** ^ not supported yet 754 GenLists.ListLength(TmpList), 0, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 755 LineTotalStr ); ***** ^ not supported yet 756 UpdateStatus( StatusFrame, 'line2', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 757 LineTotalStr ); ***** ^ not supported yet 758 UpdateStatus( StatusFrame, 'line3', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 759 'lines.' ); ***** ^ not supported yet 760 IF StringIO.NoError # ListUtils.TextListToFile( ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 761 TmpList, FileName ) THEN ***** ^ not supported yet ***** ^ not supported yet 762 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 763 END; 764 FrameManager.EraseFrame( StatusFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 765 ScrnUtl2.CloseDisplayFrame( StatusFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 766 END; 767 END; 768 END; 769 GenLists.DisposeList( TmpList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 770 END; 771 END; 772 END DoEditMenu; ***** ^ not supported yet 773 774 775 PROCEDURE DoCompMenu( SelectedChar: CHAR ); 776 VAR 777 TmpRec: VEditor.AnEdControlRec; ***** ^ not supported yet 778 ChangeMade : BOOLEAN; 779 EndLine: CARDINAL; 780 StatusFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 781 782 BEGIN 783 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 784 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 785 RETURN; 786 END; 787 END; 788 VEditor.InitEdRec( TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 789 TmpRec.DoCounting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 790 ChangeMade := FALSE; 791 CASE CAP(SelectedChar) OF ***** ^ undeclared identifier ***** ^ not supported yet 792 'E' : 793 IF NOT GenLists.Initialized( FileList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 794 IF NOT ReadNewEdtFile() THEN ***** ^ not supported yet ***** ^ not supported yet 795 RETURN; 796 END; 797 END; 798 AtEndOfList := FALSE; 799 FileListLine := 1; 800 ScrnTypes.InitDisplayFrame( StatusFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 801 ScrnUtl2.ReadAndShow( ScrnCompDsp, StatusFrame, 'StatusFrame' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 802 UpdateStatus( StatusFrame, 'line1', 'Processing' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 803 WHILE NOT AtEndOfList DO 804 AtEndOfList := NOT GetNextFrame( FileList, ***** ^ not supported yet ***** ^ not supported yet 805 CurrentFrameList, FileListLine ); ***** ^ not supported yet ***** ^ not supported yet 806 IF GenLists.ListLength( CurrentFrameList) > 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 807 BadLine := 1; 808 WHILE BadLine # 0 DO 809 MakeFrame.CompileFrame( CurrentFrameList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 810 OutFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 811 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 812 UpdateStatus( StatusFrame, 'line2', FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 813 IF BadLine # 0 THEN 814 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 815 IF Yes( 'EditQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 816 TmpRec.CursorRow := BadLine; ***** ^ not supported yet ***** ^ not supported yet 817 CallEditor( CurrentFrameList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 818 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 819 IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 820 ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 821 FileList, EndLine ); ***** ^ not supported yet ***** ^ not supported yet 822 END; 823 END; 824 BadLine := 0; 825 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 826 ChangeMade := TRUE; 827 END; 828 END; 829 ELSE 830 AddToFile( CurrentDspFile, OutFrameList, FrameName); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 831 END; 832 END; 833 END; 834 END; 835 FrameManager.EraseFrame( StatusFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 836 ScrnUtl2.CloseDisplayFrame( StatusFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 837 IF ChangeMade THEN 838 IF Yes( 'SaveQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 839 IF StringIO.NoError # ListUtils.TextListToFile( FileList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 840 EdtFileName ) THEN ***** ^ not supported yet 841 InputConst2( ScrnCompDsp, 'FileError' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 842 END; 843 END; 844 END; 845 846 | 'S' : 847 IF NOT GenLists.Initialized( FileList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 848 IF NOT ReadNewEdtFile() THEN ***** ^ not supported yet ***** ^ not supported yet 849 RETURN; 850 END; 851 END; 852 IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 853 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 854 IF GetSpecificFrame( FileList, FrameName, CurrentFrameList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 855 MakeFrame.CompileFrame( CurrentFrameList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 856 OutFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 857 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 858 IF BadLine = 0 THEN 859 IF Yes( 'StoreQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 860 AddToFile( CurrentDspFile, OutFrameList, FrameName); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 861 END; 862 ELSE 863 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 864 IF Yes( 'EditQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 865 TmpRec.CursorRow := BadLine; ***** ^ not supported yet ***** ^ not supported yet 866 CallEditor( CurrentFrameList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 867 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 868 IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 869 ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 870 FileList, EndLine ); ***** ^ not supported yet ***** ^ not supported yet 871 END; 872 END; 873 END; 874 END; 875 END; 876 END; 877 | 'C' : 878 IF GenLists.ListLength( CurrentFrameList ) = 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 879 InputConst2( ScrnCompDsp, 'NoCurrent' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 880 RETURN; 881 END; 882 MakeFrame.CompileFrame( CurrentFrameList, OutFrameList, FrameName, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 883 ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet 884 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 885 IF BadLine = 0 THEN 886 IF Yes( 'StoreQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 887 AddToFile( CurrentDspFile, OutFrameList, FrameName); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 888 END; 889 ELSE 890 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 891 IF Yes( 'EditQ' ) THEN ***** ^ not supported yet ***** ^ not supported yet 892 TmpRec.CursorRow := BadLine; ***** ^ not supported yet ***** ^ not supported yet 893 CallEditor( CurrentFrameList, TmpRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 894 IF TmpRec.ChangeMade THEN ***** ^ not supported yet ***** ^ not supported yet 895 IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 896 ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 897 FileList, EndLine ); ***** ^ not supported yet ***** ^ not supported yet 898 END; 899 END; 900 END; 901 END; 902 END; 903 END DoCompMenu; ***** ^ not supported yet 904 905 906 PROCEDURE DoDisplayMenu( SelectedChar: CHAR ); 907 VAR 908 WorkFrame, ListFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 909 BEGIN 910 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 911 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 912 RETURN; 913 END; 914 END; 915 ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 916 WorkFrame^.FromFile := CurrentDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 917 CASE CAP(SelectedChar) OF ***** ^ undeclared identifier ***** ^ not supported yet 918 'C' : 919 IF GenLists.Initialized( OutFrameList ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 920 DspFiles.GetFrameFromList( OutFrameList, WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 921 FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 922 InputManager.ControlFrame( WorkFrame, 1, '', FALSE, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 923 ELSIF GenLists.ListLength( CurrentFrameList ) > 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 924 MakeFrame.CompileFrame( CurrentFrameList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 925 OutFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 926 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 927 IF BadLine = 0 THEN 928 DspFiles.GetFrameFromList( OutFrameList, WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 929 FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 930 InputManager.ControlFrame( WorkFrame, 1, '', FALSE, NextFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 931 ELSE 932 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 933 END; 934 ELSE 935 InputConst2( ScrnCompDsp, 'NoCurrent' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 936 END; 937 | 'S' : 938 IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 939 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 940 IF ControlUtils.FrameExists( CurrentDspFile, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 941 ControlUtils.Input( WorkFrame, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 942 END; 943 END; 944 | 'L' : 945 ScrnTypes.InitDisplayFrame( ListFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 946 DspFiles.ReadDisplayFrame( ScrnCompDsp, ListFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 947 'ListBox' ); ***** ^ not supported yet 948 ScrnUtl1.SetNormalColors( ListFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 949 NamesToFrame( CurrentDspFile, ListFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 950 FramePainter.ShowDisplayFrame( ListFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 951 IF ScrnUtl1.FieldListTotal( ListFrame ) > 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 952 InputManager.ControlFrame( ListFrame, 1, '', FALSE, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 953 NextFrame ); ***** ^ not supported yet 954 ScrnUtl1.GetFieldText( ListFrame, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 955 ListFrame^.CurrentField, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 956 END; 957 ScrnUtl2.CloseDisplayFrame( ListFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 958 END; 959 ScrnUtl2.CloseDisplayFrame( WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 960 END DoDisplayMenu; ***** ^ not supported yet 961 962 963 PROCEDURE DoPrintDialog(); 964 VAR 965 WorkFrame, ListFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 966 FrameName: ScrnTypes.AFrameName; ***** ^ not supported yet 967 DeviceName: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 968 TmpHandle: CARDINAL; 969 BEGIN 970 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 971 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 972 RETURN; 973 END; 974 END; 975 ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 976 WorkFrame^.FromFile := CurrentDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 977 LOOP 978 DspFiles.ReadDisplayFrame( ScrnCompDsp, WorkFrame, 'PrintDialog' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 979 ControlUtils.ChangeField( WorkFrame, LastFrameName, 'FrameName', TRUE ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 980 FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 981 InputManager.ControlFrame( WorkFrame, 1, '', FALSE, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 982 IF PosUtils.Equal( FrameName, WorkFrame^.parent ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 983 EXIT; 984 END; 985 ControlUtils.ReadInput( WorkFrame, FrameName, 'FrameName' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 986 ControlUtils.ReadInput( WorkFrame, DeviceName, 'DeviceName' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 987 StrEdit.CrunchBlanks( FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 988 StrEdit.CrunchBlanks( DeviceName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 989 IF ControlUtils.FrameExists( CurrentDspFile, FrameName ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 990 DspFiles.ReadDisplayFrame( CurrentDspFile, WorkFrame, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 991 HandleIO.OpenForAppending( DeviceName, TmpHandle ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 992 PrtFrame.PrintDisplayFrame( WorkFrame, TmpHandle, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 993 IF StringIO.NoError # HandleIO.CloseHandle( TmpHandle ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 994 EXIT; 995 END; 996 END; 997 M2Strings.Assign( FrameName, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 998 END; 999 ScrnUtl2.CloseDisplayFrame( WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1000 END DoPrintDialog; ***** ^ not supported yet 1001 1002 1003 PROCEDURE DoFrameSeq(); 1004 VAR 1005 WorkFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 1006 EntryFrame: ScrnTypes.AFrameName; ***** ^ not supported yet 1007 BEGIN 1008 IF CurrentDspFile = NIL THEN ***** ^ not supported yet 1009 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 1010 RETURN; 1011 END; 1012 END; 1013 IF GetStrResponse( 'EntryPrompt', LastFrameName, EntryFrame ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1014 M2Strings.Assign( EntryFrame, LastFrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1015 IF NOT ControlUtils.FrameExists( CurrentDspFile, EntryFrame ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1016 IF NOT GetStrResponse( 'NewEntry', EntryFrame, EntryFrame ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1017 RETURN; 1018 END; 1019 END; 1020 ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1021 WorkFrame^.FromFile := CurrentDspFile; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1022 LOOP 1023 ControlUtils.FrameSeq2( CurrentDspFile, 'QNOCHECKQ', EntryFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1024 (* We don't want any checking for circular sequences 1025 at this level, so we use a value for the 1026 CheckFrame parameter that we hope you will never 1027 need as a frame name. *) 1028 IF NOT PosUtils.Equal( EntryFrame, ScrnTypes.ProgramExit ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1029 (*We exited from FrameSequence prematurely because of an 1030 unfound frame name.*) 1031 IF NOT GetStrResponse( 'NewEntry', EntryFrame, EntryFrame ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1032 EXIT; 1033 END; 1034 ELSE 1035 EXIT; 1036 END; 1037 END; 1038 ScrnUtl2.CloseDisplayFrame( WorkFrame ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1039 END; 1040 END DoFrameSeq; ***** ^ not supported yet 1041 1042 1043 PROCEDURE RestoreDisplay(); 1044 BEGIN 1045 VWindows.SetForeColor( VWindows.CurrentWindow, MsColors.lightgrey ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1046 VWindows.SetBackColor( VWindows.CurrentWindow, MsColors.black ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1047 VWindows.SetMonoAttr( VWindows.CurrentWindow, MsColors.plain ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1048 VWindows.ClearPart( VWindows.CurrentWindow, 1, 1, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1049 VWindows.EndCol(VWindows.CurrentWindow), ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1050 VWindows.EndRow(VWindows.CurrentWindow) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1051 VWindows.SetCursorHeight( VWindows.CurrentWindow, SavedCursorHeight ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1052 END RestoreDisplay; ***** ^ not supported yet 1053 1054 1055 BEGIN 1056 (* ScrnCompile *) 1057 MakeFrame.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1058 (* We initialize MakeFrame explicitly because there are cases where 1059 we could reference its global data without first calling one of 1060 its functions. Our new initialization scheme is triggered only 1061 when a function is called. *) 1062 1063 GenLists.NilList( FileList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1064 GenLists.NilList( OutFrameList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1065 GenLists.NewList( CurrentFrameList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1066 CurrentDspFile := NIL; ***** ^ not supported yet 1067 AtEndOfList := FALSE; 1068 LastFileName := ''; ***** ^ not supported yet ***** ^ incompatible assignment 1069 LastFrameName := ''; ***** ^ not supported yet ***** ^ incompatible assignment 1070 CmdLineVersion := FALSE; 1071 FileListLine := 1; 1072 BigSets.InitSet( MovementKeys ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1073 BigSets.AppendSet( MovementKeys, '{9, 271, 328, 331, 333, 336, 329, 337}' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1074 (*Arrow keys plus tab, backtab, PgUp, and PgDn*) 1075 1076 1077 IF CommandLineSwitch() OR ***** ^ not supported yet ***** ^ not supported yet 1078 (NOT DspFiles.OpenDisplayFile( ScrnCompDsp, 'ScrnComp.dsp' )) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1079 CmdLineVersion := TRUE; 1080 ParamsRead := 0; 1081 IF NOT ReadNewEdtFile() THEN ***** ^ not supported yet ***** ^ not supported yet 1082 RETURN; ***** ^ bad RETURN 1083 END; 1084 IF NOT OpenNewDspFile() THEN ***** ^ not supported yet ***** ^ not supported yet 1085 RETURN; ***** ^ bad RETURN 1086 END; 1087 WHILE NOT AtEndOfList DO 1088 AtEndOfList := NOT GetNextFrame( FileList, ***** ^ not supported yet ***** ^ not supported yet 1089 CurrentFrameList, FileListLine ); ***** ^ not supported yet ***** ^ not supported yet 1090 IF GenLists.ListLength( CurrentFrameList) > 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1091 MakeFrame.CompileFrame( CurrentFrameList, OutFrameList, FrameName, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1092 ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet 1093 IF BadLine # 0 THEN 1094 ShowError( CurrentFrameList, FrameName, ErrStr, BadLine); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1095 END; 1096 AddToFile( CurrentDspFile, OutFrameList, FrameName); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1097 StrEdit.RightJustify( FrameName, 20 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1098 StringIO.WriteStr( StringIO.outp, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1099 StringIO.WriteStr( StringIO.outp, ' added to ' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1100 StringIO.WriteStr( StringIO.outp, DspFileName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1101 StringIO.WriteEol( StringIO.outp, '.' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1102 END; 1103 END; 1104 RETURN; ***** ^ bad RETURN 1105 END; 1106 1107 SavedCursorHeight := VWindows.GetCursorHeight( VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1108 VWindows.SetCursorHeight( VWindows.CurrentWindow, 0 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1109 ErrorManager.AddTermProc( RestoreDisplay ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1110 1111 GenLists.NewList( TopMenuList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1112 ControlUtils.LoadFrameList( ScrnCompDsp, 'TopMenu', TopMenuList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1113 (*This keeps the TopMenu in memory.*) 1114 1115 UserOps.DoPrompting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 1116 ControlUtils.InputConst( DspFiles.MainFrame, 'Banner' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1117 UserOps.DoPrompting := TRUE; ***** ^ not supported yet ***** ^ not supported yet 1118 UserOps.PromptRow := VWindows.EndRow(VWindows.CurrentWindow) - 1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1119 ScrnUtl2.Display( DspFiles.MainFrame, 'BlankScreen' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1120 1121 LOOP 1122 NextFrame := 'TopMenu'; ***** ^ not supported yet ***** ^ not supported yet 1123 ControlUtils.ControlSeparately( TopMenuList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1124 NextFrame, SelChar, EndingFrame ); ***** ^ not supported yet ***** ^ not supported yet 1125 IF PosUtils.Equal( ScrnTypes.ProgramExit, NextFrame ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1126 EXIT; 1127 ELSIF PosUtils.Equal( EndingFrame, 'FileMenu' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1128 (*User has made a selection from the FileMenu.*) 1129 DoFileMenu( SelChar ); ***** ^ not supported yet ***** ^ not supported yet 1130 ELSIF PosUtils.Equal( EndingFrame, 'EditMenu' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1131 DoEditMenu( SelChar ); ***** ^ not supported yet ***** ^ not supported yet 1132 ELSIF PosUtils.Equal( EndingFrame, 'CompMenu' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1133 DoCompMenu( SelChar ); ***** ^ not supported yet ***** ^ not supported yet 1134 ELSIF PosUtils.Equal( EndingFrame, 'DispMenu' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1135 DoDisplayMenu( SelChar ); ***** ^ not supported yet ***** ^ not supported yet 1136 ELSIF PosUtils.Equal( EndingFrame, 'TopMenu' ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1137 IF (NOT PosUtils.Equal(NextFrame, ScrnTypes.ProgramExit)) AND ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1138 (NOT PosUtils.Equal(NextFrame, 'Banner') ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1139 CASE SelChar OF 1140 'R': DoFrameSeq(); ***** ^ not supported yet ***** ^ not supported yet 1141 | 'x': EXIT; 1142 | 'P': DoPrintDialog(); ***** ^ not supported yet ***** ^ not supported yet 1143 | 's': ScrnUtl2.Display( DspFiles.MainFrame, 'BlankScreen' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1144 ELSE 1145 (*fall through*) 1146 END; 1147 END; 1148 ELSE 1149 ErrorManager.WARN('Error in TopMenu loop logic'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1150 END; 1151 END; 1152 GenLists.DisposeList( TopMenuList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1153 DspFiles.CloseDisplayFile( ScrnCompDsp ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1154 ErrorManager.DoTermProcs(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 1155 END ScrnCompile. 1787 errors