--- a/StringsLib.def
+++ b/StringsLib.def
@@ -9,7 +9,7 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: StringsLib.def,v 1.2 2018/03/24 23:38:09 mriedl Exp mriedl $ *)
+ (* $Id: StringsLib.def,v 1.5 2018/07/03 07:51:05 mriedl Exp mriedl $ *)
PROCEDURE Length(Str : ARRAY OF CHAR) : CARDINAL;
@@ -43,6 +43,29 @@
(* terminated *)
(*----------------------------------------------------------------*)
+PROCEDURE SubString(VAR Quelle : ARRAY OF CHAR;
+ s,e : CARDINAL;
+ VAR SubStr : ARRAY OF CHAR);
+
+ (*----------------------------------------------------------------*)
+ (* Kopiert Zeichen von Quelle in "SubStr", beginnend an der *)
+ (* Position "s" bis zur Position "e". Im Fehlerfall wird 0C *)
+ (* zurueckgegeben. *)
+ (* *)
+ (* Copies characters from source to destination starting from *)
+ (* position "s" to end position "e" in Quelle to target "SubStr". *)
+ (* In case of an error "0C" isreturned *)
+ (*----------------------------------------------------------------*)
+
+PROCEDURE AppendChar(VAR str : ARRAY OF CHAR;
+ char : CHAR);
+
+ (*----------------------------------------------------------------*)
+ (* Haengt das zeichen "char" an die Zeichenkette "str" *)
+ (* *)
+ (* Append character "char" to string "str" *)
+ (*----------------------------------------------------------------*)
+
PROCEDURE Append(VAR Str1 : ARRAY OF CHAR;
Str2 : ARRAY OF CHAR);