|
a/StringsLib.def |
|
b/StringsLib.def |
|
... |
|
... |
| 7 |
(*------------------------------------------------------------------------*)
|
7 |
(*------------------------------------------------------------------------*)
|
| 8 |
(* Implementation : Michael Riedl *)
|
8 |
(* Implementation : Michael Riedl *)
|
| 9 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
9 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
| 10 |
(*------------------------------------------------------------------------*)
|
10 |
(*------------------------------------------------------------------------*)
|
| 11 |
|
11 |
|
| 12 |
(* $Id: StringsLib.def,v 1.2 2018/03/24 23:38:09 mriedl Exp mriedl $ *)
|
12 |
(* $Id: StringsLib.def,v 1.5 2018/07/03 07:51:05 mriedl Exp mriedl $ *)
|
| 13 |
|
13 |
|
| 14 |
PROCEDURE Length(Str : ARRAY OF CHAR) : CARDINAL;
|
14 |
PROCEDURE Length(Str : ARRAY OF CHAR) : CARDINAL;
|
| 15 |
|
15 |
|
| 16 |
(*----------------------------------------------------------------*)
|
16 |
(*----------------------------------------------------------------*)
|
| 17 |
(* Ermittelt die L"ange der Zeichenkette Str *)
|
17 |
(* Ermittelt die L"ange der Zeichenkette Str *)
|
|
... |
|
... |
| 41 |
(* Inserts, if physiaclly possible, the string "SubStr" into *)
|
41 |
(* Inserts, if physiaclly possible, the string "SubStr" into *)
|
| 42 |
(* the string "String" at position "pos". String has to be 0C *)
|
42 |
(* the string "String" at position "pos". String has to be 0C *)
|
| 43 |
(* terminated *)
|
43 |
(* terminated *)
|
| 44 |
(*----------------------------------------------------------------*)
|
44 |
(*----------------------------------------------------------------*)
|
| 45 |
|
45 |
|
|
|
46 |
PROCEDURE SubString(VAR Quelle : ARRAY OF CHAR;
|
|
|
47 |
s,e : CARDINAL;
|
|
|
48 |
VAR SubStr : ARRAY OF CHAR);
|
|
|
49 |
|
|
|
50 |
(*----------------------------------------------------------------*)
|
|
|
51 |
(* Kopiert Zeichen von Quelle in "SubStr", beginnend an der *)
|
|
|
52 |
(* Position "s" bis zur Position "e". Im Fehlerfall wird 0C *)
|
|
|
53 |
(* zurueckgegeben. *)
|
|
|
54 |
(* *)
|
|
|
55 |
(* Copies characters from source to destination starting from *)
|
|
|
56 |
(* position "s" to end position "e" in Quelle to target "SubStr". *)
|
|
|
57 |
(* In case of an error "0C" isreturned *)
|
|
|
58 |
(*----------------------------------------------------------------*)
|
|
|
59 |
|
|
|
60 |
PROCEDURE AppendChar(VAR str : ARRAY OF CHAR;
|
|
|
61 |
char : CHAR);
|
|
|
62 |
|
|
|
63 |
(*----------------------------------------------------------------*)
|
|
|
64 |
(* Haengt das zeichen "char" an die Zeichenkette "str" *)
|
|
|
65 |
(* *)
|
|
|
66 |
(* Append character "char" to string "str" *)
|
|
|
67 |
(*----------------------------------------------------------------*)
|
|
|
68 |
|
| 46 |
PROCEDURE Append(VAR Str1 : ARRAY OF CHAR;
|
69 |
PROCEDURE Append(VAR Str1 : ARRAY OF CHAR;
|
| 47 |
Str2 : ARRAY OF CHAR);
|
70 |
Str2 : ARRAY OF CHAR);
|
| 48 |
|
71 |
|
| 49 |
(*----------------------------------------------------------------*)
|
72 |
(*----------------------------------------------------------------*)
|
| 50 |
(* H"angt die Zeichenkette Str2 an Str1 an, wenn dies m"oglich *)
|
73 |
(* H"angt die Zeichenkette Str2 an Str1 an, wenn dies m"oglich *)
|