home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / str_lib / strings.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  4.0 KB  |  102 lines
  1. DEFINITION MODULE Strings;
  2.  
  3. (************************************************************************)
  4. (*                                                                      *)
  5. (*           Für PD-Modula des LPR der TU München                       *)
  6. (*                                                                      *)
  7. (* Eine Sammlung von Routinen zur Stringbearbeitung. Die Routinen sind  *)
  8. (* kompatibel zu den in SPC-Modula verwendeten Stringroutinen.          *)
  9. (* Autor:       Thomas Paulsen                                          *)
  10. (*              Röhbarg 10                                              *)
  11. (*         2300 KIEL 14                                                 *)
  12. (*                                                                      *)
  13. (*     Den (kommentierten) Sourcecode gibt's für DM 15,- bei o. g.      *)
  14. (*     Adresse.                                                         *)
  15. (*                                                                      *) 
  16. (************************************************************************)
  17.  
  18. CONST End         = 0C;
  19.       Equal       = 0;
  20.       Less        = -1;
  21.       Greater     = 1;
  22.  
  23.  
  24. (************************************************************************)
  25.  
  26. PROCEDURE Length (VAR Source: ARRAY OF CHAR): CARDINAL;
  27.  
  28. (* Liefert die Länge des übergebenen Srings zurück                      *)
  29.  
  30. (************************************************************************)
  31.  
  32. PROCEDURE Clear (VAR Destin: ARRAY OF CHAR);
  33.  
  34. (* Löscht den übergebenen String                                        *)
  35.  
  36. (************************************************************************)
  37.  
  38. PROCEDURE Assign (VAR Destin: ARRAY OF CHAR;
  39.                       Source: ARRAY OF CHAR);
  40.  
  41. (* Kopiert den String Source in den String Destin                       *)
  42.  
  43. (************************************************************************)
  44.  
  45. PROCEDURE Concat (  Source1, Source2: ARRAY OF CHAR;
  46.                      VAR Destin: ARRAY OF CHAR);
  47.  
  48. (* kopiert die Strings Source1 und Source2 in den String Destin         *)
  49.  
  50. (************************************************************************)
  51.  
  52. PROCEDURE Insert    (   Source: ARRAY OF CHAR;
  53.                      VAR Destin: ARRAY OF CHAR;
  54.                          At: CARDINAL);
  55.  
  56. (* fügt den String Source an der Stelle At in den String Destin ein     *)
  57.  
  58. (************************************************************************)
  59.  
  60. PROCEDURE Copy (     Source    : ARRAY OF CHAR;
  61.                      From, For : CARDINAL;
  62.                  VAR Destin    : ARRAY OF CHAR);
  63.  
  64. (* kopiert For Zeichen ab der Stelle From uas dem String Source in den  *) 
  65. (* String Destin                                                        *)
  66.  
  67. (************************************************************************)
  68.  
  69. PROCEDURE Delete (VAR Destin: ARRAY OF CHAR;
  70.                       At, For: CARDINAL);
  71.  
  72. (* löscht For Zeichen ab der Stelle At aus dem String Destin            *) 
  73.  
  74. (************************************************************************)
  75.  
  76. PROCEDURE Pos  (     Substr: ARRAY OF CHAR;
  77.                      String: ARRAY OF CHAR)
  78.                 : CARDINAL;
  79.  
  80. (* wenn Substr in String enthalten ist, liefert Pos die Position des    *)
  81. (* ersten Zeichens zurück, ansonsten MAX(CARDINAL)                      *)
  82.  
  83. (************************************************************************)
  84.  
  85. PROCEDURE Compare  (   String1: ARRAY OF CHAR;
  86.                        String2: ARRAY OF CHAR): INTEGER;
  87.  
  88. (* vergleicht die Strings miteinander. liefert 1, wenn String1 >        *)
  89. (* String2, -1, wenn String1 < String2, und 0, wenn beide gleich        *)
  90.  
  91. (************************************************************************)
  92.  
  93. PROCEDURE Pad  ( VAR Destin: ARRAY OF CHAR;
  94.                      UpTo  : CARDINAL;
  95.                      With  : ARRAY OF CHAR);
  96.  
  97. (* füllt den String Destin bis zur Position UpTo mit der Zeichenfolge   *)
  98. (* With auf                                                             *)
  99.  
  100.  
  101. END Strings.
  102.