This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 2.0 patch 1: removed redundant debugging code in regexp.c
[perl5.git] / handy.h
CommitLineData
378cc40b 1/* $Header: handy.h,v 2.0 88/06/05 00:09:03 root Exp $
8d063cd8
LW
2 *
3 * $Log: handy.h,v $
378cc40b
LW
4 * Revision 2.0 88/06/05 00:09:03 root
5 * Baseline version 2.0.
8d063cd8
LW
6 *
7 */
8
378cc40b
LW
9#ifdef NULL
10#undef NULL
11#endif
12#define NULL 0
13#define Null(type) ((type)NULL)
8d063cd8
LW
14#define Nullch Null(char*)
15#define Nullfp Null(FILE*)
16
17#define bool char
18#define TRUE (1)
19#define FALSE (0)
20
21#define Ctl(ch) (ch & 037)
22
23#define strNE(s1,s2) (strcmp(s1,s2))
24#define strEQ(s1,s2) (!strcmp(s1,s2))
25#define strLT(s1,s2) (strcmp(s1,s2) < 0)
26#define strLE(s1,s2) (strcmp(s1,s2) <= 0)
27#define strGT(s1,s2) (strcmp(s1,s2) > 0)
28#define strGE(s1,s2) (strcmp(s1,s2) >= 0)
29#define strnNE(s1,s2,l) (strncmp(s1,s2,l))
30#define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
378cc40b
LW
31
32#define MEM_SIZE unsigned int
33
34/* Line numbers are unsigned, 16 bits. */
35typedef unsigned short line_t;
36#ifdef lint
37#define NOLINE ((line_t)0)
38#else
39#define NOLINE ((line_t) 65535)
40#endif
41