This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Remove ';' from 'NOOP;'
[perl5.git] / NetWare / intdef.h
1
2 /*
3  * Copyright © 2001 Novell, Inc. All Rights Reserved.
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