Topspeed_JPI/TS-V3/MODBASE/NDXBONES.LST

Listing:

    1  DEFINITION MODULE NdxBones;
    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/defs/ndxbones.dev   1.4   30 Dec 1990 18:02:38   coleb  $
   12   *
   13   *)
   14  
   15  
   16  FROM SYSTEM IMPORT ADDRESS;
   17  FROM GenLists IMPORT GenList;
   18  FROM NdxTypes IMPORT NdxFileType;
   19  
   20  CONST
   21    CodeChar = 375C;
   22    IsGarbageByte = 'G';
   23    NotGarbageByte = 'O';
   24  
   25  TYPE
   26    ACompProc = PROCEDURE( ARRAY OF CHAR, ARRAY OF
*****                ^ not supported yet
*****                                    ^ not supported yet
   27        CHAR ): INTEGER;
*****        ^ not supported yet
*****                ^ not supported yet
   28  
   29  VAR
   30    CompareProc: ACompProc;
   31    StructName : ARRAY [0..10] OF CHAR;
*****                           ^ not supported yet
*****                                  ^ not supported yet
   32    EndSep, StartSep, NdxMarker, CodedStr : ARRAY
   33        [0..1] OF CHAR;
*****            ^ not supported yet
*****                  ^ not supported yet
   34  
   35    RebuildProc : PROCEDURE( VAR NdxFileType );
*****                  ^ not supported yet
*****                                 ^ not supported yet
   36  
   37    PROCEDURE BiggestRecord( NdxFile: NdxFileType ):
   38        CARDINAL;
   39  
   40    PROCEDURE FindRecord(NdxFile: NdxFileType; VAR
   41        RecordName : ARRAY OF CHAR; VAR offset :
*****                              ^ not supported yet
   42        LONGINT; VAR UsedRecSize, AllocSize:
   43        CARDINAL) : BOOLEAN;
   44  
   45    PROCEDURE MakeEmptyBuf( VAR StruList, BufList:
   46        GenList);
   47  
   48    PROCEDURE OpenNdxFile( VAR NdxFile: NdxFileType;
   49        FileName: ARRAY OF CHAR): BOOLEAN;
*****                           ^ not supported yet
   50  
   51    PROCEDURE InitBuffer( VAR NdxFile: NdxFileType;
   52        RecName: ARRAY OF CHAR): BOOLEAN;
*****                          ^ not supported yet
   53  
   54    PROCEDURE Retrieve( NdxFile: NdxFileType;
   55        RecordName: ARRAY OF CHAR; BufAddr: ADDRESS;
*****                             ^ not supported yet
   56        VAR RecSize: CARDINAL): BOOLEAN;
   57  
   58    PROCEDURE RemoveCodes( Source: ADDRESS; VAR
   59        TheSize: CARDINAL);
   60  
   61    PROCEDURE StripList( VAR TheList: GenList );
   62  
   63    PROCEDURE Init();
   64  
   65  END NdxBones.
*****      ^ not supported yet

   15 errors