| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * CSTRING.DEF - Modula-2 interface to STRING.H *
- 5 * *
- 6 * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*# project("#set tsc='on'") *)
- 12 (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
- 13 (*# module(implementation=>off, init_code=>off) *)
- 14 (*# name(prefix=>c) *)
- 15
- 16
- 17 DEFINITION MODULE cstring;
- 18
- 19 PROCEDURE memcmp(_s1,_s2: ADDRESS; _num: CARDINAL): INTEGER;
- ***** ^ undeclared identifier
- 20 PROCEDURE memcpy(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 21 PROCEDURE memset(_s: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 22 PROCEDURE strcat(VAR _dest: ARRAY OF CHAR; _source: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 23 PROCEDURE strcmp(_s1, _s2: ARRAY OF CHAR): INTEGER;
- ***** ^ not supported yet
- 24 PROCEDURE strcpy(VAR _dest: ARRAY OF CHAR; _source: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 25 PROCEDURE strlen(_s: ARRAY OF CHAR): CARDINAL;
- ***** ^ not supported yet
- 26
- 27 PROCEDURE memccpy(_dest,_source: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 28 PROCEDURE memchr(_s: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 29 PROCEDURE memicmp(_s1,s2: ADDRESS; _num: CARDINAL): INTEGER;
- ***** ^ undeclared identifier
- 30 PROCEDURE memmove(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 31 PROCEDURE movedata(_sseg,_soff,_dseg,_dofs,_num: CARDINAL);
- 32 PROCEDURE movmem(_src,_dest: ADDRESS; _length: CARDINAL);
- ***** ^ undeclared identifier
- 33 PROCEDURE setmem(_dest: ADDRESS; _length: CARDINAL; _value: CHAR);
- ***** ^ undeclared identifier
- 34
- 35 PROCEDURE memwmove(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 36 PROCEDURE memwset(_s: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 37 PROCEDURE memwcpy(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 38
- 39 PROCEDURE stpcpy(VAR _dest: ARRAY OF CHAR; _source: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 40 PROCEDURE strchr(_s: ARRAY OF CHAR; _c: WORD): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 41 PROCEDURE strcoll(_s1,_s2: ARRAY OF CHAR): INTEGER;
- ***** ^ not supported yet
- 42 PROCEDURE strxfrm(_s1,_s2: ARRAY OF CHAR; _n: CARDINAL): CARDINAL;
- ***** ^ not supported yet
- 43 PROCEDURE strcspn(_s1,_s2: ARRAY OF CHAR): CARDINAL;
- ***** ^ not supported yet
- 44 PROCEDURE strdup(_s: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 45 PROCEDURE strerror(_errnum: INTEGER): ADDRESS;
- ***** ^ undeclared identifier
- 46 PROCEDURE stricmp(_s1,_s2: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 47 PROCEDURE strlwr(VAR _s: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 48 PROCEDURE strncat(VAR _dest: ARRAY OF CHAR; _source: ARRAY OF CHAR; _n: CARDINAL): ADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 49 PROCEDURE strncmp(_s1,_s2: ARRAY OF CHAR; _n: CARDINAL): INTEGER;
- ***** ^ not supported yet
- 50 PROCEDURE strncpy(VAR _dest: ARRAY OF CHAR; _source: ARRAY OF CHAR; _n: CARDINAL): ADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 51 PROCEDURE strnicmp(_s1,_s2: ARRAY OF CHAR; _n: CARDINAL): INTEGER;
- ***** ^ not supported yet
- 52 PROCEDURE strnset(VAR _s: ARRAY OF CHAR; ch: WORD; _n: CARDINAL): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 53 PROCEDURE strpbrk(_s1,_s2: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 54 PROCEDURE strrchr(_s: ARRAY OF CHAR; c: WORD): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 55 PROCEDURE strrev(VAR s: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 56 PROCEDURE strspn(_s1,_s2: ARRAY OF CHAR): CARDINAL;
- ***** ^ not supported yet
- 57 PROCEDURE strstr(_s1,_s2: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 58 PROCEDURE strtok(VAR _s1: ARRAY OF CHAR; _s2: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 59 PROCEDURE strupr(VAR _s: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 60
- 61 (*# save, call(near_call=>off, ds_eq_ss=>off), data(near_ptr=>off) *)
- 62 PROCEDURE _fmemcmp(s1: FarADDRESS; s2: FarADDRESS; n: CARDINAL ): FarADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 63 PROCEDURE _fmemcpy(dest: FarADDRESS; source: FarADDRESS; n: CARDINAL ): FarADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 64 PROCEDURE _fmemset(s: FarADDRESS; c: INTEGER; n: CARDINAL): FarADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 65 PROCEDURE _fstrcat(VAR dest: ARRAY OF CHAR; source: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 66 PROCEDURE _fstrcmp(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 67 PROCEDURE _fstrcpy(VAR dest: ARRAY OF CHAR; source: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 68 PROCEDURE _fstrlen(s: ARRAY OF CHAR): CARDINAL;
- ***** ^ not supported yet
- 69 PROCEDURE _fstrset(VAR s: ARRAY OF CHAR; ch: INTEGER): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 70 PROCEDURE _fmemccpy(dest: FarADDRESS; source: FarADDRESS; c: INTEGER; n: CARDINAL): FarADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 71 PROCEDURE _fmemchr(s: FarADDRESS; c: INTEGER; n: CARDINAL ): FarADDRESS;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 72 PROCEDURE _fmemicmp(s1: FarADDRESS; s2: FarADDRESS; n: CARDINAL): INTEGER;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 73 PROCEDURE _fstpcpy(VAR dest: ARRAY OF CHAR; source: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 74 PROCEDURE _fstrchr(s: ARRAY OF CHAR; c: INTEGER): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 75 PROCEDURE _fstrcoll(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 76 PROCEDURE _fstrxfrm(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR; n: CARDINAL): CARDINAL;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 77 PROCEDURE _fstrcspn(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): CARDINAL;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 78 PROCEDURE _fstrdup(s: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 79 PROCEDURE _nstrdup(s: ARRAY OF CHAR): NearADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 80 PROCEDURE _fstricmp(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 81 PROCEDURE _fstrlwr(VAR s: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 82 PROCEDURE _fstrncat(VAR dest: ARRAY OF CHAR; source: ARRAY OF CHAR; n: CARDINAL): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 83 PROCEDURE _fstrncmp(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR; n: CARDINAL): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 84 PROCEDURE _fstrncpy(VAR dest: ARRAY OF CHAR; source: ARRAY OF CHAR; n: CARDINAL): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 85 PROCEDURE _fstrnicmp(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR; n: CARDINAL): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 86 PROCEDURE _fstrnset(VAR s: ARRAY OF CHAR; ch: INTEGER; n: CARDINAL): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 87 PROCEDURE _fstrpbrk(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 88 PROCEDURE _fstrrchr(s: ARRAY OF CHAR; c: INTEGER): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 89 PROCEDURE _fstrrev(VAR s: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 90 PROCEDURE _fstrspn(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): CARDINAL;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 91 PROCEDURE _fstrstr(s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 92 PROCEDURE _fstrtok(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 93 PROCEDURE _fstrupr(VAR s: ARRAY OF CHAR): FarADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 94 (*# restore *)
- 95
- 96 CONST
- 97 strcmpi ::= stricmp;
- ***** ^ not supported yet
- 98 strncmpi ::= strnicmp;
- ***** ^ not supported yet
- 99
- 100 PROCEDURE _strerror(_s: ARRAY OF CHAR): ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 101
- 102 END cstring.
- ***** ^ not supported yet
- 153 errors
|
