Topspeed_JPI/TS-V3/REP16/NDXTYPES.LST

Listing:

    1  IMPLEMENTATION MODULE NdxTypes;
    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/ndxtypes.mov   1.5   10 Mar 1991 15:30:48   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT ErrorNames;
   17  IMPORT GenLists;
   18  IMPORT VStorage;
   19  IMPORT Numbers;
   20  
   21  FROM SYSTEM IMPORT TSIZE;
   22  
   23  
   24  VAR
   25    Initialized : BOOLEAN;
   26  
   27    PROCEDURE Init();
   28      BEGIN
   29        IF Initialized THEN
   30          RETURN;
   31        ELSE
   32          Initialized := TRUE;
   33        END;
   34        ErrorNames.Init();
*****        ^ not supported yet
*****                   ^ not supported yet
*****                        ^ not supported yet
   35        GenLists.Init();
*****        ^ not supported yet
*****                 ^ not supported yet
*****                      ^ not supported yet
   36        Numbers.Init();
*****        ^ not supported yet
*****                ^ not supported yet
*****                     ^ not supported yet
   37        VStorage.Init();
*****        ^ not supported yet
*****                 ^ not supported yet
*****                      ^ not supported yet
   38      END Init;
*****          ^ not supported yet
   39  
   40  CONST
   41    InitKey = 46102;
   42      (*Arbitrary value.*)
   43  
   44    PROCEDURE CheckInit( NdxFile: NdxFileType );
*****                                  ^ undeclared identifier
   45      BEGIN
   46        IF (NdxFile = NIL) OR
*****            ^ not supported yet
   47           (NdxFile^.InitCheck # InitKey) THEN
*****            ^ not supported yet
*****                     ^ not supported yet
   48          ErrorNames.WarningName('BadNdx');
*****          ^ not supported yet
*****                     ^ not supported yet
*****                                 ^ not supported yet
   49        END;
   50      END CheckInit;
*****          ^ not supported yet
   51  
   52    PROCEDURE InitNdxFile( VAR NdxFile: NdxFileType );
*****                                        ^ undeclared identifier
   53      BEGIN
   54        VStorage.DosAlloc( NdxFile, TSIZE(NdxRecord) );
*****        ^ not supported yet
*****                 ^ not supported yet
*****                           ^ not supported yet
*****                                    ^ not supported yet
*****                                          ^ undeclared identifier
   55        NdxFile^.name := '';
*****        ^ not supported yet
*****                 ^ not supported yet
   56        NdxFile^.handle := 0;
*****        ^ not supported yet
*****                 ^ not supported yet
   57        NdxFile^.SafetyOn := FALSE;
*****        ^ not supported yet
*****                 ^ not supported yet
   58        NdxFile^.InitCheck := InitKey;
*****        ^ not supported yet
*****                 ^ not supported yet
   59        NdxFile^.NdxFilePtr := Numbers.Lc( 0 );
*****        ^ not supported yet
*****                 ^ not supported yet
*****                               ^ not supported yet
*****                                       ^ not supported yet
*****                                             ^ not supported yet
   60        NdxFile^.UpdateNeeded := FALSE;
*****        ^ not supported yet
*****                 ^ not supported yet
   61        NdxFile^.BufRecName := '';
*****        ^ not supported yet
*****                 ^ not supported yet
   62        GenLists.NilList( NdxFile^.Ndx );
*****        ^ not supported yet
*****                 ^ not supported yet
*****                          ^ not supported yet
*****                                   ^ not supported yet
   63        GenLists.NilList( NdxFile^.AltKeys );
*****        ^ not supported yet
*****                 ^ not supported yet
*****                          ^ not supported yet
*****                                   ^ not supported yet
   64        GenLists.NilList( NdxFile^.ListBuf );
*****        ^ not supported yet
*****                 ^ not supported yet
*****                          ^ not supported yet
*****                                   ^ not supported yet
   65        GenLists.NilList( NdxFile^.StructLst );
*****        ^ not supported yet
*****                 ^ not supported yet
*****                          ^ not supported yet
*****                                   ^ not supported yet
   66        NdxFile^.FileBufPtr := NIL;
*****        ^ not supported yet
*****                 ^ not supported yet
   67        NdxFile^.BufSizeNow := 0;
*****        ^ not supported yet
*****                 ^ not supported yet
   68      END InitNdxFile;
*****          ^ not supported yet
   69  
   70  BEGIN
   71    Initialized := FALSE;
   72    Init();
*****    ^ not supported yet
*****         ^ not supported yet
   73  END NdxTypes.
*****      ^ not supported yet

   68 errors