| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113 |
- Listing:
- 1 (* Release 3.00 *)
- 2
- 3 (* Copyright (C) 1989..1991 Jensen & Partners International *)
- 4 (*# call(o_a_copy => off, near_call=>off, ds_eq_ss=>off) *)
- 5 (*# call(seg_name => null) *)
- 6 (*# module(implementation=>off, init_code=>off) *)
- 7 (*# data(seg_name => null, near_ptr=>off) *)
- 8 DEFINITION MODULE WinStr;
- 9
- 10 TYPE
- 11 CHARSET = SET OF CHAR;
- ***** ^ not supported yet
- 12 PosLen = RECORD
- 13 Pos,Len : CARDINAL;
- 14 END; (*PosLen*)
- ***** ^ not supported yet
- 15
- 16 PROCEDURE Compare(S1,S2:ARRAY OF CHAR):INTEGER;
- ***** ^ not supported yet
- 17 PROCEDURE Length(S:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 18 PROCEDURE Concat(VAR R:ARRAY OF CHAR;S1,S2:ARRAY OF CHAR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 19 PROCEDURE Append(VAR R:ARRAY OF CHAR;S:ARRAY OF CHAR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 20 PROCEDURE Copy(VAR R:ARRAY OF CHAR;S:ARRAY OF CHAR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 21
- 22 PROCEDURE Delete(VAR S:ARRAY OF CHAR;P,L:CARDINAL);
- ***** ^ not supported yet
- 23 PROCEDURE Insert(VAR S1:ARRAY OF CHAR;S2:ARRAY OF CHAR;P:CARDINAL);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 24
- 25 PROCEDURE CharPos(S:ARRAY OF CHAR;C:CHAR):CARDINAL;
- ***** ^ not supported yet
- 26
- 27 PROCEDURE Caps(VAR S:ARRAY OF CHAR);
- ***** ^ not supported yet
- 28 PROCEDURE Lows(VAR S:ARRAY OF CHAR);
- ***** ^ not supported yet
- 29 PROCEDURE Slice(VAR R:ARRAY OF CHAR;S:ARRAY OF CHAR;P,L:CARDINAL);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 30 PROCEDURE Pos(S,P:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 31 PROCEDURE NextPos(S,P:ARRAY OF CHAR;Place:CARDINAL):CARDINAL;
- ***** ^ not supported yet
- 32 PROCEDURE RCharPos(S:ARRAY OF CHAR;C:CHAR):CARDINAL;
- ***** ^ not supported yet
- 33
- 34 PROCEDURE Item(VAR R:ARRAY OF CHAR;S:ARRAY OF CHAR;T:CHARSET;N:CARDINAL);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 35
- 36 PROCEDURE ItemS(VAR R:ARRAY OF CHAR;S,T:ARRAY OF CHAR;N:CARDINAL);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 37
- 38 PROCEDURE Prepend(VAR S1:ARRAY OF CHAR;S2:ARRAY OF CHAR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 39
- 40 PROCEDURE Subst(VAR S1:ARRAY OF CHAR;Target,New:ARRAY OF CHAR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 41
- 42 PROCEDURE Match(Source,Pattern:ARRAY OF CHAR):BOOLEAN;
- ***** ^ not supported yet
- 43 (* Returns TRUE if the string in Source matches Pattern. The pattern *)
- 44 (* may contain any number of the wildcard characters '*' and '?' *)
- 45 (* '?' matches any single character *)
- 46 (* '*' matches any sequence of charcters *)
- 47 (* (including a zero length sequence) *)
- 48 (* e.g. '*m?t*i*' will match 'Automatic' *)
- 49
- 50 PROCEDURE FindSubStr(Source,Pattern:ARRAY OF CHAR;VAR pos:ARRAY OF PosLen):BOOLEAN;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 51
- 52 PROCEDURE IntToStr(V:LONGINT;VAR S:ARRAY OF CHAR;Base:CARDINAL;VAR OK:BOOLEAN);
- ***** ^ not supported yet
- 53
- 54 PROCEDURE CardToStr(V:LONGCARD;VAR S:ARRAY OF CHAR;Base:CARDINAL;VAR OK:BOOLEAN);
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 55
- 56 PROCEDURE StrToInt(S:ARRAY OF CHAR;Base:CARDINAL;VAR OK:BOOLEAN):LONGINT;
- ***** ^ not supported yet
- 57
- 58 PROCEDURE StrToCard(S:ARRAY OF CHAR;Base:CARDINAL;VAR OK:BOOLEAN):LONGCARD;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 59
- 60 PROCEDURE StrToC(S:ARRAY OF CHAR;VAR D:ARRAY OF CHAR):BOOLEAN;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 61
- 62 PROCEDURE StrToPas(S:ARRAY OF CHAR;VAR D:ARRAY OF CHAR): BOOLEAN;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 63
- 64 END WinStr.
- ***** ^ not supported yet
- 43 errors
|
