home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Modula / Source / StringLib0 / StringLib0.DEF < prev    next >
Encoding:
Modula Definition  |  1988-01-24  |  1.1 KB  |  37 lines  |  [TEXT/????]
  1. DEFINITION MODULE StringLib0;
  2. (* F. Paquet 17-Apr-86 / C. Pfister 27-Dec-86
  3.    - this module is not Macintosh-specific *)
  4.  
  5. TYPE
  6.   Result = ( LessThan, EqualTo, GreaterThan);
  7.  
  8.   PROCEDURE Length(s: ARRAY OF CHAR): INTEGER;
  9.  
  10.   PROCEDURE Equal (s1, s2: ARRAY OF CHAR): BOOLEAN;
  11.   
  12.   PROCEDURE Compare (s1, s2: ARRAY OF CHAR): Result;
  13.   
  14.   PROCEDURE Occurs(s, pat: ARRAY OF CHAR): BOOLEAN;
  15.    (* return 'pat occurs in s' *)
  16.  
  17.   PROCEDURE Copy(    src:  ARRAY OF CHAR;
  18.                  VAR dest: ARRAY OF CHAR);                 (* OUT *)
  19.    (* copy src string to dest string *)
  20.  
  21.   PROCEDURE Concat(VAR dest: ARRAY OF CHAR;                (* INOUT *)
  22.                        pat:  ARRAY OF CHAR);
  23.    (* append pat string to dest string *)
  24.  
  25.   PROCEDURE Insert(VAR s:   ARRAY OF CHAR;                 (* INOUT *)
  26.                        pat: ARRAY OF CHAR;
  27.                        i:   INTEGER); 
  28.    (* insert pat in s at position i *)
  29.  
  30.   PROCEDURE Delete(VAR s: ARRAY OF CHAR;                   (* INOUT *)
  31.                        i,
  32.                        l: INTEGER); 
  33.    (* delete s from position i to l *)
  34.  
  35.  
  36. END StringLib0.
  37.