a "replacement" for awk and sed
[perl.git] / x2p / handy.h
1 /* $Header: handy.h,v 1.0 87/12/18 13:07:15 root Exp $
2  *
3  * $Log:        handy.h,v $
4  * Revision 1.0  87/12/18  13:07:15  root
5  * Initial revision
6  * 
7  */
8
9 #define Null(type) ((type)0)
10 #define Nullch Null(char*)
11 #define Nullfp Null(FILE*)
12
13 #define bool char
14 #define TRUE (1)
15 #define FALSE (0)
16
17 #define Ctl(ch) (ch & 037)
18
19 #define strNE(s1,s2) (strcmp(s1,s2))
20 #define strEQ(s1,s2) (!strcmp(s1,s2))
21 #define strLT(s1,s2) (strcmp(s1,s2) < 0)
22 #define strLE(s1,s2) (strcmp(s1,s2) <= 0)
23 #define strGT(s1,s2) (strcmp(s1,s2) > 0)
24 #define strGE(s1,s2) (strcmp(s1,s2) >= 0)
25 #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
26 #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))