https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 2986a63f JH |
1 | |
| 2 | /* | |
| cdad3b53 | 3 | * Copyright © 2001 Novell, Inc. All Rights Reserved. |
| 2986a63f JH |
4 | * |
| 5 | * You may distribute under the terms of either the GNU General Public | |
| 6 | * License or the Artistic License, as specified in the README file. | |
| 7 | * | |
| 8 | */ | |
| 9 | ||
| 10 | /* | |
| 11 | * FILENAME : intdef.h | |
| 12 | * DESCRIPTION : ANSI functions hash defined to equivalent Netware functions. | |
| 13 | * Author : SGP | |
| 14 | * Date : July 1999. | |
| 15 | * | |
| 16 | */ | |
| 17 | ||
| 18 | ||
| 19 | ||
| 20 | #ifndef __INTDEF__ | |
| 21 | #define __INTDEF__ | |
| 22 | ||
| 23 | ||
| 24 | #include <nwlocale.h> | |
| 25 | #include "..\utility\utility.h" | |
| 26 | ||
| 27 | ||
| 28 | //ANSI functions define to equivalent NetWare internationalization functions | |
| 29 | ||
| 30 | #define setlocale NWLsetlocale | |
| 31 | #define localeconv NWLlocaleconv | |
| 32 | #define strncoll NWstrncoll | |
| 33 | #define strftime NWLstrftime | |
| 34 | ||
| 35 | #define atoi NWLatoi | |
| 36 | #define itoa NWitoa | |
| 37 | #define utoa NWutoa | |
| 38 | #define ultoa NWultoa | |
| 39 | #define ltoa NWltoa | |
| 40 | ||
| 41 | #define isalnum NWLisalnum | |
| 42 | #define isalpha NWLisalpha | |
| 43 | #define isdigit NWLisdigit | |
| 44 | ||
| 45 | #define strlen NWLmbslen | |
| 46 | #define mblen NWLmblen | |
| 47 | ||
| 48 | //#define strcpy(x,y) NWLstrbcpy(x,y,NWstrlen(y)+1) | |
| 49 | #define strcpy(x,y) \ | |
| 50 | NWstrncpy(x,y,NWstrlen(y)); \ | |
| 51 | x[NWstrlen(y)] ='\0'; | |
| 52 | #define strncpy(x,y,z) NWLstrbcpy(x,y,(z + 1)) | |
| 53 | #define strcat(x,y) NWLstrbcpy((x + NWstrlen(x)), y, (NWstrlen(y) +1)) | |
| 54 | #define strncmp(s1,s2,l) NWgstrncmp(s1,s2,l) | |
| 55 | #define strnicmp(s1,s2,l) NWgstrnicmp(s1,s2,l) | |
| 56 | ||
| 57 | #define toupper(s1) NWCharUpr(s1) | |
| 58 | #define wsprintf NWsprintf | |
| 59 | ||
| 60 | #define strncat(x,y,l) \ | |
| 61 | NWsprintf("oops!!! Not yet defined for NWI18N, define in intdef.h, still using strncat\n"); \ | |
| 62 | strncat(x,y,l); | |
| 63 | ||
| 64 | #define strdup(s1) \ | |
| 65 | NWsprintf("oops!!! Not yet defined for NWI18N, define in intdef.h, still using strdup\n"); \ | |
| 66 | strdup(s1); | |
| 67 | ||
| 68 | #define strlist \ | |
| 69 | NWsprintf("oops!!! Not yet defined for NWI18N, define in intdef.h, still using strlist\n"); \ | |
| 70 | strlist; | |
| 71 | ||
| 72 | #define strlwr(s1) \ | |
| 73 | NWsprintf("oops!!! Not yet defined for NWI18N, define in intdef.h, still using strlwr\n"); \ | |
| 74 | strlwr(s1); | |
| 75 | ||
| 76 | #define strnset(s1,l1,l2) \ | |
| 77 | NWsprintf("oops!!! Not yet defined for NWI18N, define in intdef.h, still using strnset\n"); \ | |
| 78 | strnset(s1,l1,l2); | |
| 79 | ||
| 80 | #define strset(s1,l1) \ | |
| 81 | NWsprintf("oops!!! Not yet defined for NWI18N, define in intdef.h, still using strset\n"); \ | |
| 82 | strset(s1,l1); | |
| 83 | ||
| 84 | ||
| 85 | #endif // __INTDEF__ | |
| 86 |