Topspeed_JPI/TS-V3/MODBASE/ALTKEYS.LST

Listing:

    1  DEFINITION MODULE AltKeys;
    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/altkeys.dev   1.4   30 Dec 1990 17:58:36   coleb  $
   12   *
   13   *)
   14  
   15  FROM SYSTEM IMPORT ADDRESS;
   16  FROM NdxTypes IMPORT NdxFileType;
   17  FROM GenLists IMPORT GenList;
   18  
   19  CONST
   20    RecNameCode = 65530;
   21    CriterionCode = 65531;
   22    AltKeyCode = 65532;
   23  
   24  TYPE
   25    LogicOperator = (or, and, AndNot);
   26  
   27    SelectProc = PROCEDURE(ADDRESS, CARDINAL,
*****                 ^ not supported yet
*****                           ^ not supported yet
*****                                    ^ not supported yet
   28        CARDINAL, ARRAY OF CHAR, VAR BOOLEAN):
*****        ^ not supported yet
*****                           ^ not supported yet
*****                                     ^ not supported yet
   29        BOOLEAN;
*****        ^ not supported yet
   30  
   31    Criterion = RECORD
   32      operator: LogicOperator;
   33      rule, field: ARRAY [0..127] OF CHAR;
*****                             ^ not supported yet
*****                                     ^ not supported yet
   34      determiner: SelectProc;
   35    END;
*****    ^ not supported yet
   36  
   37    PROCEDURE LoadAltList( VAR NdxFile: NdxFileType;
   38        InList: GenList; FieldName: ARRAY OF CHAR;
*****                                             ^ not supported yet
   39        Criteria: GenList): BOOLEAN;
   40  
   41    PROCEDURE FieldLoaded( NdxFile: NdxFileType;
   42        FieldName: ARRAY OF CHAR; VAR spot:
*****                            ^ not supported yet
   43        CARDINAL): BOOLEAN;
   44  
   45    PROCEDURE CreateAltList( VAR NdxFile:
   46        NdxFileType; FieldName: ARRAY OF CHAR; VAR
*****                                         ^ not supported yet
   47        SpotUsed: CARDINAL);
   48  
   49    PROCEDURE CriteriaMet( NdxFile: NdxFileType;
   50        Criteria: GenList; VAR CriteriaValid:
   51        BOOLEAN ): BOOLEAN;
   52  
   53    PROCEDURE DisposeAltList( VAR NdxFile:
   54        NdxFileType; FieldName: ARRAY OF CHAR);
*****                                         ^ not supported yet
   55  
   56    PROCEDURE TallyAltLists(NdxFile: NdxFileType;
   57        VAR TheList: GenList);
   58  
   59    PROCEDURE GetAltList( NdxFile: NdxFileType;
   60        FieldName: ARRAY OF CHAR; VAR AltList:
*****                            ^ not supported yet
   61        GenList): BOOLEAN;
   62  
   63    PROCEDURE GetMatchingKey( NdxFile: NdxFileType;
   64        AltList: GenList; spot: CARDINAL; VAR
   65        RecName: ARRAY OF CHAR );
*****                          ^ not supported yet
   66  
   67    PROCEDURE GetMatchingKeys( NdxFile: NdxFileType;
   68        AltList: GenList; VAR KeyList: GenList):
   69        BOOLEAN;
   70  
   71    PROCEDURE StrSelector( TheAdr: ADDRESS; TheSize,
   72        TypeCode: CARDINAL; TheRule: ARRAY OF CHAR;
*****                                              ^ not supported yet
   73        VAR CriteriaValid: BOOLEAN ): BOOLEAN;
   74  
   75    PROCEDURE AddCriteria( CriteriaList: GenList;
   76        op: LogicOperator; TheSelectProc:
   77        SelectProc; TheRule, FieldName: ARRAY OF
   78        CHAR );
*****        ^ not supported yet
   79  
   80    PROCEDURE Init();
   81  
   82  END AltKeys.
*****      ^ not supported yet

   19 errors