bbbb7ea3552bd6d493c001a5e5f2a3612f8f57e5
1 (* ==================================================================== *)
2 (* *)
3 (* Literal Valuehandler Module for the Gardens Point Component *)
4 (* Pascal Compiler. Exports the open character array type CharOpen *)
5 (* Copyright (c) John Gough 1999, 2000. *)
6 (* *)
7 (* ==================================================================== *)
11 IMPORT
12 ASCII,
13 GPCPcopyright,
14 Console,
15 GPText,
16 CPascalS;
18 (* ============================================================ *)
20 TYPE
30 (* ============================================================ *)
32 TYPE
39 (* ================================================================= *)
40 (* FORWARD DECLARATIONS *)
41 (* ================================================================= *)
46 (* ================================================================= *)
50 BEGIN
56 BEGIN
62 BEGIN
68 BEGIN
74 BEGIN
83 BEGIN
92 BEGIN
105 (* ----------------------- *)
108 BEGIN
112 (* ----------------------- *)
113 BEGIN
139 ELSE
148 (* ============================================================ *)
151 BEGIN
156 BEGIN
161 BEGIN
166 BEGIN
171 BEGIN
176 BEGIN
181 BEGIN
186 BEGIN
195 (* ============================================================ *)
200 BEGIN
208 (* ============================================================ *)
209 (* Various CharOpen Utilities *)
210 (* ============================================================ *)
213 BEGIN
217 (* -------------------------------------------- *)
221 BEGIN
226 (* -------------------------------------------- *)
231 BEGIN
243 (* -------------------------------------------- *
244 * This function trims the string asciiz style.
245 * -------------------------------------------- *)
250 BEGIN
259 (* -------------------------------------------- *
260 * This function uses ALL of the characters
261 * which may include embedded NUL characters.
262 * -------------------------------------------- *)
267 BEGIN
275 (* -------------------------------------------- *)
283 BEGIN
291 (* -------------------------------------------- *)
295 BEGIN
302 (* -------------------------------------------- *)
307 BEGIN
317 (* -------------------------------------------- *)
322 BEGIN
331 (* -------------------------------------------- *)
335 BEGIN
340 (* -------------------------------------------- *)
343 BEGIN
347 (* -------------------------------------------- *)
355 BEGIN
371 (* -------------------------------------------- *)
379 BEGIN
397 (* ============================================================ *)
398 (* Safe Operations on Values *)
399 (* ============================================================ *)
400 (* Well, will be safe later! *)
401 (* ============================================================ *)
407 BEGIN
421 (* -------------------------------------------- *)
425 BEGIN
432 (* -------------------------------------------- *)
436 BEGIN
442 (* -------------------------------------------- *)
446 BEGIN
452 (* -------------------------------------------- *)
456 BEGIN
460 (* -------------------------------------------- *)
464 BEGIN
468 (* -------------------------------------------- *)
472 BEGIN
476 (* -------------------------------------------- *)
480 BEGIN
484 (* -------------------------------------------- *)
488 BEGIN
492 (* -------------------------------------------- *)
496 BEGIN
500 (* -------------------------------------------- *)
504 BEGIN
508 (* -------------------------------------------- *)
512 BEGIN
516 (* -------------------------------------------- *)
519 (* warning: this routine is not unicode aware *)
522 BEGIN
534 (* -------------------------------------------- *)
537 BEGIN
540 ELSE
545 (* ============================================================ *)
548 (* ============================================================ *)