Topspeed_JPI/TS-V3/INCLUDE/STR.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  STR.DEF - Modula-2 string library                                       *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*#  call(o_a_copy => off) *)
   12  (*# module(init_code => on) *)
   13  (*%F _fdata *)
   14  (*# call(seg_name => null) *)
   15  (*# data(seg_name => null) *)
   16  (*%E *)
   17  (*%T _fdata *)
   18  (*# call(seg_name => STR) *)
   19  (*%E *)
   20  (*# module(implementation=>off) *)
   21  DEFINITION MODULE Str;
   22  
   23  TYPE
   24      CHARSET = SET OF CHAR;
*****                       ^ not supported yet
   25      PosLen  = RECORD
   26          Pos,Len: CARDINAL;
   27      END;
*****      ^ not supported yet
   28  
   29  (*# save *)
   30  (*%T _DLL *)
   31  (*# call(seg_name=>STRDLL) *)
   32  (*%E *)
   33  PROCEDURE Caps(VAR S: ARRAY OF CHAR);
*****                                 ^ not supported yet
   34  PROCEDURE Lows(VAR S: ARRAY OF CHAR);
*****                                 ^ not supported yet
   35  PROCEDURE Compare(S1,S2: ARRAY OF CHAR) : INTEGER;
*****                                    ^ not supported yet
   36  PROCEDURE Length(S : ARRAY OF CHAR) : CARDINAL;
*****                                ^ not supported yet
   37  PROCEDURE Concat(VAR R: ARRAY OF CHAR; S1,S2: ARRAY OF CHAR);
*****                                   ^ not supported yet
*****                                                         ^ not supported yet
   38  PROCEDURE Append(VAR R: ARRAY OF CHAR; S: ARRAY OF CHAR);
*****                                   ^ not supported yet
*****                                                     ^ not supported yet
   39  PROCEDURE Copy  (VAR R: ARRAY OF CHAR; S: ARRAY OF CHAR);
*****                                   ^ not supported yet
*****                                                     ^ not supported yet
   40  PROCEDURE Slice (VAR R: ARRAY OF CHAR; S: ARRAY OF CHAR; P,L: CARDINAL);
*****                                   ^ not supported yet
*****                                                     ^ not supported yet
   41  PROCEDURE Pos(S,P: ARRAY OF CHAR) : CARDINAL;
*****                              ^ not supported yet
   42  PROCEDURE NextPos(S,P: ARRAY OF CHAR; Place: CARDINAL) : CARDINAL;
*****                                  ^ not supported yet
   43  PROCEDURE CharPos(S: ARRAY OF CHAR; C: CHAR) : CARDINAL;
*****                                ^ not supported yet
   44  PROCEDURE RCharPos(S: ARRAY OF CHAR; C: CHAR) : CARDINAL;
*****                                 ^ not supported yet
   45  (*# restore *)
   46  
   47  PROCEDURE Item (VAR R: ARRAY OF CHAR;
*****                                  ^ not supported yet
   48                      S: ARRAY OF CHAR;
*****                                  ^ not supported yet
   49                      T: CHARSET;
   50                      N: CARDINAL);
   51  
   52  PROCEDURE ItemS(VAR R: ARRAY OF CHAR;
*****                                  ^ not supported yet
   53                      S: ARRAY OF CHAR;
*****                                  ^ not supported yet
   54                      T: ARRAY OF CHAR;
*****                                  ^ not supported yet
   55                      N: CARDINAL);
   56  
   57  PROCEDURE Prepend(VAR S1: ARRAY OF CHAR; S2: ARRAY OF CHAR);
*****                                     ^ not supported yet
*****                                                        ^ not supported yet
   58  
   59  PROCEDURE Insert(VAR R: ARRAY OF CHAR; S: ARRAY OF CHAR; P: CARDINAL);
*****                                   ^ not supported yet
*****                                                     ^ not supported yet
   60  
   61  PROCEDURE Subst(VAR S1: ARRAY OF CHAR; Target: ARRAY OF CHAR; New: ARRAY OF CHAR);
*****                                   ^ not supported yet
*****                                                          ^ not supported yet
*****                                                                              ^ not supported yet
   62  
   63  PROCEDURE Delete(VAR R: ARRAY OF CHAR; P,L: CARDINAL);
*****                                   ^ not supported yet
   64  
   65  PROCEDURE Match(Source,Pattern: ARRAY OF CHAR) : BOOLEAN;
*****                                           ^ not supported yet
   66  
   67  PROCEDURE FindSubStr(Source,Pattern: ARRAY OF CHAR;VAR pos:ARRAY OF PosLen) : BOOLEAN;
*****                                                ^ not supported yet
*****                                                                      ^ not supported yet
   68  
   69  
   70    PROCEDURE Same(Stg,Pattern:ARRAY OF CHAR):BOOLEAN;
*****                                        ^ not supported yet
   71      (* Returns TRUE if Stg and Pattern are identical.                    *)
   72  
   73    PROCEDURE Count(Stg:ARRAY OF CHAR;Ch:CHAR):CARDINAL;
*****                                 ^ not supported yet
   74      (* Returns the number of Ch's in Stg.                                *)
   75  
   76  PROCEDURE IntToStr (     V: LONGINT;
   77                       VAR S: ARRAY OF CHAR;
*****                                       ^ not supported yet
   78                        Base: CARDINAL;
   79                      VAR OK: BOOLEAN);
   80  
   81  PROCEDURE CardToStr(     V: LONGCARD;
*****                              ^ undeclared identifier
   82                       VAR S: ARRAY OF CHAR;
*****                                       ^ not supported yet
   83                        Base: CARDINAL;
   84                      VAR OK: BOOLEAN);
   85  
   86  PROCEDURE RealToStr(        V: LONGREAL;
   87                      Precision: CARDINAL;
   88                            Eng: BOOLEAN;
   89                          VAR S: ARRAY OF CHAR;
*****                                          ^ not supported yet
   90                        VAR OK : BOOLEAN);
   91  
   92  PROCEDURE FixRealToStr(        V: LONGREAL;
   93                         Precision: CARDINAL;
   94                             VAR S: ARRAY OF CHAR;
*****                                             ^ not supported yet
   95                            VAR OK: BOOLEAN);
   96  
   97  PROCEDURE StrToInt (     S: ARRAY OF CHAR;
*****                                       ^ not supported yet
   98                        Base: CARDINAL;
   99                      VAR OK: BOOLEAN) : LONGINT;
  100  
  101  PROCEDURE StrToCard(     S: ARRAY OF CHAR;
*****                                       ^ not supported yet
  102                        Base: CARDINAL;
  103                      VAR OK: BOOLEAN) : LONGCARD;
*****                                         ^ undeclared identifier
  104  
  105  PROCEDURE StrToReal(S: ARRAY OF CHAR; VAR OK: BOOLEAN ) : LONGREAL;
*****                                  ^ not supported yet
  106  
  107  PROCEDURE StrToC(S: ARRAY OF CHAR; VAR D: ARRAY OF CHAR): BOOLEAN;
*****                               ^ not supported yet
*****                                                     ^ not supported yet
  108  
  109  PROCEDURE StrToPas(S: ARRAY OF CHAR; VAR D: ARRAY OF CHAR): BOOLEAN;
*****                                 ^ not supported yet
*****                                                       ^ not supported yet
  110  
  111  END Str.
*****      ^ not supported yet

   50 errors