/*	CMS Generation: 1                       29-AUG-89
 */
#define NO_COM_END 1
#define FOUND_EOL 2

struct segment
	{
	int stat;
	char *head,*tail;
	};

/*
 * return pointer to end of matching string, NULL if no match 
 * ' ' in object is ignore whitespace in string
 * `~' in object is non-alpha character (ie, punctuation ) 
 *	
 *	char *same(start,pattern)
 *	char *start,*pattern;
 */
extern char *same();
/*
 * return pointer to first occurance of pattern in string 
 * and ignore stuff between comment delimeter
 *
 *	struct segment find_string(pattern,string,comment);
 *	char *pattern;
 *	segment *string;
 *	struct { 
 *	char beg_comm,end_comm ;
 *	} comment;
 */
extern struct segment find_string();
/*
 * return struct of head and tail of pattern in string 
 * and ignore stuff between comment delimeter
 *
 *	char *find_object(line,object)
 * 	struct segment line;
 *	char *object;
 */
extern struct segment find_object();