home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2src / charstuf.def < prev    next >
Text File  |  1995-05-27  |  1KB  |  56 lines
  1. DEFINITION MODULE CharStuff;
  2. (*
  3.     Title     : Various string and character goodies
  4.     Author    : I.R. Matters  (Ian.Matters@anu.edu.au)
  5.     System    : Juergen Neuhoff's Modula-2 compiler on OS/2
  6.     Last Edit : 27 May 1995
  7. *)
  8.  
  9.  
  10. TYPE PadStyles = (PadLeft, PadRight, PadBoth);
  11.  
  12.  
  13. PROCEDURE AppendChar (ch: CHAR; VAR s: ARRAY OF CHAR);
  14. (*
  15.   Append a character to a string
  16. *)
  17.  
  18.  
  19. PROCEDURE Pad (VAR s: ARRAY OF CHAR; len: CARDINAL; style: PadStyles);
  20. (*
  21.    Pad a string with spaces until it is the nominated length
  22. *)
  23.  
  24.  
  25. PROCEDURE StrOfChars (n: CARDINAL; ch: CHAR; VAR s: ARRAY OF CHAR);
  26. (*
  27.     Create a string containing a number of characters
  28. *)
  29.  
  30.  
  31. PROCEDURE Spaces (n: CARDINAL; VAR s: ARRAY OF CHAR);
  32. (*
  33.     Create a string containing a number of spaces
  34. *)
  35.  
  36.  
  37. PROCEDURE Dots (n: CARDINAL; VAR s: ARRAY OF CHAR);
  38. (*
  39.     Create a string containing a number of dot characters
  40. *)
  41.  
  42.  
  43. PROCEDURE Trim (VAR s: ARRAY OF CHAR);
  44. (*
  45.   Remove leading and trailing spaces from a string
  46. *)
  47.  
  48.  
  49. PROCEDURE Upper (VAR s: ARRAY OF CHAR);
  50. (*
  51.   Convert a string to upper case
  52. *)
  53.  
  54.  
  55. END CharStuff.
  56.