Topspeed_JPI/TS-V3/INCLUDE/STRINGS.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  STRINGS.DEF - Modula-2 core library interface                           *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  DEFINITION MODULE Strings;
   12  
   13  IMPORT Str ;
   14  
   15  CONST
   16    Delete     = Str.Delete ;
*****                 ^ not supported yet
*****                     ^ not supported yet
   17    Length     = Str.Length ;
*****                 ^ not supported yet
*****                     ^ not supported yet
   18    CompareStr = Str.Compare ;
*****                 ^ not supported yet
*****                     ^ not supported yet
   19  
   20  PROCEDURE Assign ( source : ARRAY OF CHAR ;
*****                                       ^ not supported yet
   21                     VAR dest : ARRAY OF CHAR ) ;
*****                                         ^ not supported yet
   22  PROCEDURE Insert ( substr : ARRAY OF CHAR;
*****                                       ^ not supported yet
   23                     VAR str : ARRAY OF CHAR ;
*****                                        ^ not supported yet
   24                     inx : CARDINAL ) ;
   25  PROCEDURE Pos    ( substr : ARRAY OF CHAR;
*****                                       ^ not supported yet
   26                     VAR str : ARRAY OF CHAR ) : CARDINAL ;
*****                                        ^ not supported yet
   27  PROCEDURE Copy   ( str : ARRAY OF CHAR ;
*****                                    ^ not supported yet
   28                     inx : CARDINAL ;
   29                     len : CARDINAL ;
   30                     VAR result : ARRAY OF CHAR ) ;
*****                                           ^ not supported yet
   31  PROCEDURE Concat ( s1,s2 : ARRAY OF CHAR ;
*****                                      ^ not supported yet
   32                     VAR result : ARRAY OF CHAR ) ;
*****                                           ^ not supported yet
   33  END Strings.
*****      ^ not supported yet

   17 errors