Sage-ST

Sage-ST ä
Binlib
Documentation

Unit Documentation (Unit description) Global Declarations (Constants, Types, Variables)

BinaryDelete	BinaryDeleteA
BinaryInsert	BinaryInsertA	BinaryLocate	BinaryLocateHandle
BinaryLocateLong	BinarySearch	BinarySearchA	STRBinaryDelete
STRBinaryInsert	STRBinarySearch



  //*
  //  BinLib - Routines for doing searching and manipulation in binary mode.
  //
  //
  //  This unit contains routines which search and manipulate binary data.
  //  Data is passed in as addresses of the starting byte so large data
  //  structures can easily be handled.
  //



  type
    BcompareProc = function
    (const r1 : cardinal) : integer; stdcall;

    BcompareLongProc = function
    (const r1 : ModSys.INT32) : integer; stdcall;

    BcompareHProc = function
    (const handle : pointer;
     const r1     : cardinal) : integer; stdcall;


  function BinaryLocate
             (const NumberOfKeys : cardinal;
              const CompareP     : BcompareProc) : integer; stdcall;

  exports BinaryLocate name 'BinLib_BinaryLocate';


  function BinaryLocateLong
             (const NumberOfKeys : ModSys.INT32;
              const Compare      : BcompareLongProc) : ModSys.INT32; stdcall;

  exports BinaryLocateLong name 'BinLib_BinaryLocateLong';


  function BinaryLocateHandle
             (const handle       : pointer;
              const NumberOfKeys : cardinal;
              const Compare      : BcompareHProc) : integer; stdcall;

  exports BinaryLocateHandle name 'BinLib_BinaryLocateHandle';


  function BinarySearch
             (var   Keys         : array of char;
              var   KeyToFind    : array of char;
              const NumKeys      : cardinal;
              const KeyStart     : cardinal;
              const KeyLength    : cardinal;
              const RecordLength : cardinal) : integer; overload; stdcall;

  exports BinarySearch (var   Keys         : array of char;
                        var   KeyToFind    : array of char;
                        const NumKeys      : cardinal;
                        const KeyStart     : cardinal;
                        const KeyLength    : cardinal;
                        const RecordLength : cardinal) name 'BinLib_BinarySearch';


  function BinarySearch
             (var   Keys         : string;
              var   KeyToFind    : string;
              const NumKeys      : cardinal;
              const KeyStart     : cardinal;
              const KeyLength    : cardinal;
              const RecordLength : cardinal) : integer; overload; stdcall;

  exports BinarySearch (var   Keys         : string;
                        var   KeyToFind    : string;
                        const NumKeys      : cardinal;
                        const KeyStart     : cardinal;
                        const KeyLength    : cardinal;
                        const RecordLength : cardinal) name 'BinLib_STRBinarySearch';


  procedure BinaryInsert
             (var   Keys         : array of char;
              var   KeyToAdd     : array of char;
              var   NumKeys      : cardinal;
              const Location     : cardinal;
              const RecordLength : cardinal); overload; stdcall;

  exports BinaryInsert (var   Keys         : array of char;
                        var   KeyToAdd     : array of char;
                        var   NumKeys      : cardinal;
                        const Location     : cardinal;
                        const RecordLength : cardinal) name 'BinLib_BinaryInsert';


  procedure BinaryInsert
             (var   Keys         : string;
              var   KeyToAdd     : string;
              var   NumKeys      : cardinal;
              const Location     : cardinal;
              const RecordLength : cardinal); overload; stdcall;

  exports BinaryInsert (var   Keys         : string;
                        var   KeyToAdd     : string;
                        var   NumKeys      : cardinal;
                        const Location     : cardinal;
                        const RecordLength : cardinal) name 'BinLib_STRBinaryInsert';


  procedure BinaryDelete
             (var   Keys         : array of char;
              var   NumKeys      : cardinal;
              const Location     : cardinal;
              const RecordLength : cardinal); overload; stdcall;

  exports BinaryDelete (var   Keys         : array of char;
                        var   NumKeys      : cardinal;
                        const Location     : cardinal;
                        const RecordLength : cardinal) name 'BinLib_BinaryDelete';


  procedure BinaryDelete
             (var   Keys         : string;
              var   NumKeys      : cardinal;
              const Location     : cardinal;
              const RecordLength : cardinal); overload; stdcall;

  exports BinaryDelete (var   Keys         : string;
                        var   NumKeys      : cardinal;
                        const Location     : cardinal;
                        const RecordLength : cardinal) name 'BinLib_STRBinaryDelete';


  function BinarySearchA
             (const Keys          : pointer;
              const KeyToFind     : pointer;
              const NumKeys       : cardinal;
              const XKeyStart     : cardinal;
              const XKeyLength    : cardinal;
              const XRecordLength : cardinal) : integer; stdcall;

  exports BinarySearchA name 'BinLib_BinarySearchA';


  procedure BinaryInsertA
             (const Keys         : pointer;
              const KeyToAdd     : pointer;
              var   NumKeys      : cardinal;
              const Location     : cardinal;
              const RecordLength : cardinal); stdcall;

  exports BinaryInsertA name 'BinLib_BinaryInsertA';


  procedure BinaryDeleteA
             (const Keys         : pointer;
              var   NumKeys      : cardinal;
              const Location     : cardinal;
              const RecordLength : cardinal); stdcall;

  exports BinaryDeleteA name 'BinLib_BinaryDeleteA';