Strings.obn

   1 MODULE Strings;
   2
   3 PROCEDURE Length*(s : ARRAY OF CHAR) : INTEGER;
   4 VAR
   5   i : INTEGER;
   6 BEGIN
   7   WHILE s[i] # 0X DO INC(i) END;
   8   RETURN i;
   9 END Length;
  10
  11 (*
  12 PROCEDURE Insert*(source : ARRAY OF CHAR; pos : INTEGER; VAR dest : ARRAY OF CHAR);
  13 END Insert;
  14 *)
  15
  16 (*
  17 PROCEDURE Append*(extra : ARRAY OF CHAR; VAR dest : ARRAY OF CHAR);
  18 END Append;
  19 *)
  20
  21 (*
  22 PROCEDURE Delete*(VAR s : ARRAY OF CHAR; pos, n : INTEGER);
  23 END Delete;
  24 *)
  25
  26 (*
  27 PROCEDURE Replace*(source : ARRAY OF CHAR; pos : INTEGER; VAR dest : ARRAY OF CHAR);
  28 END Replace;
  29 *)
  30
  31 (*
  32 PROCEDURE Extract*(source : ARRAY OF CHAR; pos, n : INTEGER; VAR dest : ARRAY OF CHAR);
  33 END Extract;
  34 *)
  35
  36 (*
  37 PROCEDURE Pos*(pattern, s : ARRAY OF CHAR; pos : INTEGER): INTEGER;
  38 BEGIN
  39   RETURN 0;
  40 END Pos;
  41 *)
  42
  43 PROCEDURE Cap*(VAR s : ARRAY OF CHAR);
  44 VAR
  45   i : INTEGER;
  46 BEGIN
  47   FOR i := 0 TO Length(s) - 1 DO
  48     s[i] := CAP(s[i])
  49   END;
  50 END Cap;
  51
  52 END Strings.