home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / btrintfc / testsupp.def < prev   
Text File  |  1988-05-13  |  3KB  |  78 lines
  1. DEFINITION MODULE TestSupport;
  2.   (*-------------------------------------------------------------*)
  3.   (*                     b I N T E R F A C E                     *)
  4.   (*       Modula-2 Library of Btrieve Support procedures        *)
  5.   (*                   Copyright (C) 1988 by                     *)
  6.   (*   WILKEN & SABELBERG Software GbR, Braunschweig, Germany    *)
  7.   (*                    All rights reserved                      *)
  8.   (*-------------------------------------------------------------*)
  9.   (*
  10.       Btrieve is a trademark of SoftCraft, A Novell Company
  11.    *)
  12.   (*  Autoren: Egbert Bebenroth, Holger Kanwischer
  13.       Status : freigegeben
  14.    *)
  15.   (*  Bearbeitungsstand:
  16.       21.04.88  EB    v1.01
  17.       09.05.88  HK    v1.02
  18.    *)
  19.   (*-------------------------------------------------------------*)
  20.   FROM bInterface IMPORT eBtrvStatus, rFileSpecs, rKeySpec,
  21.                          rAlternateSeq, rVersion;
  22.   (*-------------------------------------------------------------*)
  23.   PROCEDURE Ck0(btrvstatus : eBtrvStatus);
  24.   (* Zweck:
  25.        Gibt 'btrvstatus' im Klartext aus - incl. 'done'
  26.    *)
  27.   (*-------------------------------------------------------------*)
  28.   PROCEDURE Ck(btrvstatus : eBtrvStatus);
  29.   (* Zweck:
  30.        Gibt 'btrvstatus' im Klartext aus - 'done' wird unterdrückt
  31.    *)
  32.   (*-------------------------------------------------------------*)
  33.   PROCEDURE XWrOp(op : CARDINAL);
  34.   (* Zweck:
  35.        Gibt die Btrieve-Operation 'op' (s. Btrieve-Handbuch Kap. 9)
  36.        im Klartext aus
  37.    *)
  38.   (*-------------------------------------------------------------*)
  39.   PROCEDURE ShowPageSizeTab(fileSpecs : rFileSpecs;
  40.                             keySpecs  : ARRAY OF rKeySpec);
  41.   (* Zweck:
  42.        Es wird eine Tabelle ausgegeben, die für jede Page-Size
  43.        den maximal möglichen Nutzungsgrad der Platte für ein
  44.        Datenbank-File mit den Spezifikationen 'fileSpecs' und
  45.        'keySpecs' (siehe DEFINITION MODULE bInterface) ausgibt.
  46.    *) 
  47.   (*-------------------------------------------------------------*)
  48.   PROCEDURE CheckTSizes();
  49.   (* Zweck:
  50.        Gibt eine Tabelle zur Überprüfung der Länge der für das
  51.        Btrieve-Interface relevanten Typen aus. Dies ist wichtig
  52.        für eine Portierung des Btrieve-Interface auf andere
  53.        Modula-2 Systeme.
  54.    *)
  55.   (*-------------------------------------------------------------*)
  56.   PROCEDURE CheckTypes();
  57.   (* Zweck:
  58.        Ähnlich CheckTSizes.
  59.        Gibt eine Tabelle zur Überprüfung der Länge und der Record-
  60.        feld-Positionen der für das Btrieve-Interface relevanten
  61.        Typen aus. Dies ist wichtig für eine Portierung des
  62.        Btrieve-Interface auf andere Modula-2 Systeme.
  63.    *)
  64.   (*-------------------------------------------------------------*)
  65.   PROCEDURE ShowStatus(fileSpecs    : rFileSpecs;
  66.                        keySpecs     : ARRAY OF rKeySpec;
  67.                        alternateSeq : rAlternateSeq    );
  68.   (* Zweck:
  69.        Gibt eine Tabelle der File- und Key-Spezifikationen eines
  70.        Datenbank-Files aus (ähnlich BUTIL -STAT xxxxx).
  71.        Die Parameter können durch bInterface.StatusOfFile
  72.        zugewiesen werden. Eine sinnvolle Anwendung im Test ist
  73.        auch die Überprüfung der Parameter, die CreateFile über-
  74.        geben werden.
  75.    *)        
  76.   (*-------------------------------------------------------------*)
  77. END TestSupport.
  78.