This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 1.0 patch 14: a2p incorrectly translates 'for (a in b)' construct.
[perl5.git] / handy.h
CommitLineData
8d063cd8
LW
1/* $Header: handy.h,v 1.0 87/12/18 13:05:14 root Exp $
2 *
3 * $Log: handy.h,v $
4 * Revision 1.0 87/12/18 13:05:14 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))