home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / modula2 / function.def < prev    next >
Text File  |  1987-07-13  |  3KB  |  82 lines
  1. DEFINITION MODULE Functions;
  2.  
  3. (* Provides various String and Numeric Functions *)
  4.  
  5.  
  6. EXPORT QUALIFIED
  7.    CardWidth, CardMin, IntMin, RealMin, CardMax, IntMax, RealMax, RightPad,
  8.    LeftPad, ToSpaces, RightTrim, LeftTrim, LeftString, RightString,
  9.    RepeatString, StringReplace, MidString, StrToMid, MidStrToMid, RealSign,
  10.    Round, RecHi, RecLo, PrintUsing, Power, ShiftCardLeft, ShiftCardRight,
  11.    RotateCardLeft,RotateCardRight;
  12.  
  13.  
  14. PROCEDURE CardWidth( a : CARDINAL) : CARDINAL;
  15.  
  16. PROCEDURE CardMin( a,b : CARDINAL) : CARDINAL;
  17.  
  18. PROCEDURE IntMin( a,b : INTEGER) : INTEGER;
  19.  
  20. PROCEDURE RealMin( a,b : REAL) : REAL;
  21.  
  22. PROCEDURE CardMax( a,b : CARDINAL) : CARDINAL;
  23.  
  24. PROCEDURE IntMax( a,b : INTEGER) : INTEGER;
  25.  
  26. PROCEDURE RealMax( a,b : REAL) : REAL;
  27.  
  28. PROCEDURE RightPad(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  29.                    i : CARDINAL);
  30. (* rightpad to 1 less, 64 char string is ARRAY[0..63] OF CHAR so
  31.    rightpad to 63 *)
  32.  
  33. PROCEDURE LeftPad(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  34.                    i : CARDINAL);
  35.  
  36. PROCEDURE ToSpaces(VAR dest : ARRAY OF CHAR; i : CARDINAL);
  37.  
  38. PROCEDURE RightTrim(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR);
  39.  
  40. PROCEDURE LeftTrim(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR);
  41.  
  42. PROCEDURE LeftString(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  43.                      i : CARDINAL);
  44.  
  45. PROCEDURE RightString(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  46.                      i : CARDINAL);
  47.  
  48. PROCEDURE RepeatString(VAR dest : ARRAY OF CHAR; ch : CHAR; i : CARDINAL);
  49.  
  50. PROCEDURE StringReplace(VAR dest : ARRAY OF CHAR; ch1,ch2 : CHAR);
  51.  
  52. PROCEDURE MidString(VAR dest : ARRAY OF CHAR; source : ARRAY OF CHAR;
  53.                     beg,len : CARDINAL);
  54.  
  55. PROCEDURE StrToMid(VAR dest : ARRAY OF CHAR; beg,len : CARDINAL;
  56.                      source : ARRAY OF CHAR);
  57.  
  58. PROCEDURE MidStrToMid(VAR dest : ARRAY OF CHAR; beg1,len1 : CARDINAL;
  59.                         source : ARRAY OF CHAR; beg2 : CARDINAL);
  60.  
  61. PROCEDURE RealSign(x : REAL) : REAL;
  62.  
  63. PROCEDURE Round( x : REAL) : REAL;
  64.  
  65. PROCEDURE RecHi( recno, filelen : CARDINAL) : CARDINAL;
  66.  
  67. PROCEDURE RecLo( recno, filelen : CARDINAL) : CARDINAL;
  68.  
  69. PROCEDURE PrintUsing(VAR Using : ARRAY OF CHAR; mask : ARRAY OF CHAR; number : REAL);
  70.  
  71. PROCEDURE Power(x,n : CARDINAL) : CARDINAL;
  72.  
  73. PROCEDURE ShiftCardLeft(c,s: CARDINAL): CARDINAL;
  74.  
  75. PROCEDURE ShiftCardRight(c,s: CARDINAL): CARDINAL;
  76.  
  77. PROCEDURE RotateCardLeft(c,left: CARDINAL): CARDINAL;
  78.  
  79. PROCEDURE RotateCardRight(c,right: CARDINAL) : CARDINAL;
  80.  
  81. END Functions.
  82.