home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / modula / lib.arc / STRINGS.DEF < prev    next >
Encoding:
Modula Definition  |  1987-10-17  |  1.0 KB  |  47 lines
  1. DEFINITION MODULE Strings;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     A strings is an ARRAY OF CHAR.
  7.     If the string does not completely fill the array, it is terminated
  8.     by a 0C.
  9. *)
  10.  
  11. PROCEDURE CompareStr( s1, s2 :ARRAY OF CHAR ) :INTEGER;
  12. (*
  13.     Returns:
  14.         0 if s1 = s2
  15.        -1 if s1 < s2
  16.        +1 if s1 > s2
  17. *)
  18.  
  19. PROCEDURE Assign( VAR source, dest :ARRAY OF CHAR );
  20. (*
  21.     copies source to dest
  22. *)
  23.  
  24. PROCEDURE Length( s :ARRAY OF CHAR ) :CARDINAL;
  25. (*
  26.     returns the length of s
  27. *)
  28.  
  29. PROCEDURE Concat( s1, s2 :ARRAY OF CHAR; VAR result :ARRAY OF CHAR );
  30. (*
  31.     Concatenates s2 to s1 and places the resulting string in result
  32. *)
  33.  
  34. PROCEDURE Pos( subs, s :ARRAY OF CHAR ) :CARDINAL;
  35. (*
  36.     Returns:
  37.         index of first occurrence of subs in s or
  38.         > HIGH(s) if no match is found
  39. *)
  40.  
  41. PROCEDURE Append( VAR s1 :ARRAY OF CHAR; s2 :ARRAY OF CHAR );
  42. (*
  43.     appends s2 at the end of s1.
  44.     equivalent to Concat( s1, s2, s1 ), but more obvious and efficient.
  45. *)
  46.  
  47. END Strings.