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