| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * STRINGS.MOD - String handling (core library) *
- 5 * *
- 6 * COPYRIGHT (C) 1987..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*$V-*)
- 12
- 13 IMPLEMENTATION MODULE Strings;
- 14
- 15 PROCEDURE Assign ( source : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 16 VAR dest : ARRAY OF CHAR ) ;
- ***** ^ not supported yet
- 17 BEGIN
- 18 Str.Copy(dest,source) ;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 19 END Assign ;
- ***** ^ not supported yet
- 20
- 21 PROCEDURE Insert ( substr : ARRAY OF CHAR;
- ***** ^ not supported yet
- 22 VAR str : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 23 inx : CARDINAL ) ;
- 24 BEGIN
- 25 Str.Insert ( str,substr,inx ) ;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 26 END Insert ;
- ***** ^ not supported yet
- 27
- 28 PROCEDURE Pos ( substr : ARRAY OF CHAR;
- ***** ^ not supported yet
- 29 VAR str : ARRAY OF CHAR ) : CARDINAL ;
- ***** ^ not supported yet
- 30 BEGIN
- 31 RETURN Str.Pos(str,substr) ;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 32 END Pos ;
- ***** ^ not supported yet
- 33
- 34 PROCEDURE Copy ( str : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 35 inx : CARDINAL ;
- 36 len : CARDINAL ;
- 37 VAR result : ARRAY OF CHAR ) ;
- ***** ^ not supported yet
- 38 BEGIN
- 39 Str.Slice(result,str,inx,len) ;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 40 END Copy ;
- ***** ^ not supported yet
- 41
- 42 PROCEDURE Concat ( s1,s2 : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 43 VAR result : ARRAY OF CHAR ) ;
- ***** ^ not supported yet
- 44 BEGIN
- 45 Str.Concat (result,s1,s2) ;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 46 END Concat ;
- ***** ^ not supported yet
- 47
- 48 END Strings.
- ***** ^ not supported yet
- 39 errors
|
