[perl5.git] / handy.h

/* $Header: handy.h,v 1.0 87/12/18 13:05:14 root Exp $
 *
 * $Log:	handy.h,v $
 * Revision 1.0  87/12/18  13:05:14  root
 * Initial revision
 * 
 */

#define Null(type) ((type)0)
#define Nullch Null(char*)
#define Nullfp Null(FILE*)

#define bool char
#define TRUE (1)
#define FALSE (0)

#define Ctl(ch) (ch & 037)

#define strNE(s1,s2) (strcmp(s1,s2))
#define strEQ(s1,s2) (!strcmp(s1,s2))
#define strLT(s1,s2) (strcmp(s1,s2) < 0)
#define strLE(s1,s2) (strcmp(s1,s2) <= 0)
#define strGT(s1,s2) (strcmp(s1,s2) > 0)
#define strGE(s1,s2) (strcmp(s1,s2) >= 0)
#define strnNE(s1,s2,l) (strncmp(s1,s2,l))
#define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
Commit	Line	Data
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))