1 /* $Header: handy.h,v 3.0 89/10/18 15:34:44 lwall Locked $
3 * Copyright (c) 1989, Larry Wall
5 * You may distribute under the terms of the GNU General Public License
6 * as specified in the README file that comes with the perl 3.0 kit.
9 * Revision 3.0 89/10/18 15:34:44 lwall
14 #define Null(type) ((type)0)
15 #define Nullch Null(char*)
16 #define Nullfp Null(FILE*)
22 #define Ctl(ch) (ch & 037)
24 #define strNE(s1,s2) (strcmp(s1,s2))
25 #define strEQ(s1,s2) (!strcmp(s1,s2))
26 #define strLT(s1,s2) (strcmp(s1,s2) < 0)
27 #define strLE(s1,s2) (strcmp(s1,s2) <= 0)
28 #define strGT(s1,s2) (strcmp(s1,s2) > 0)
29 #define strGE(s1,s2) (strcmp(s1,s2) >= 0)
30 #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
31 #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))