[4b2687]: BaseLib.def History

Download this file

BaseLib.def    24 lines (16 with data), 1.0 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
DEFINITION MODULE BaseLib;



  (*------------------------------------------------------------------------*)

  (* Module um einige sehr elementate Routinen "zu sammeln"                 *)

  (*------------------------------------------------------------------------*)

  (* Implementation : Michael Riedl                                         *)

  (* Licence        : GNU Lesser General Public License (LGPL)              *)

  (*------------------------------------------------------------------------*)



  (* $Id: BaseLib.def,v 1.1 2018/01/16 09:20:42 mriedl Exp $ *)



FROM SYSTEM IMPORT BYTE;



PROCEDURE Swap(VAR A,B : ARRAY OF BYTE;

                   n   : CARDINAL);



          (*----------------------------------------------------------------*)

          (* Vertauscht die Elemente A und B wobei n die Anzahl der zu ver- *)

          (* tauschenden Bytes angibt.                                      *)

          (*----------------------------------------------------------------*)



END BaseLib.