gen.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

#ifndef lint
static	char	*sccsid = "@(#)gen.c	4.1	(ULTRIX)	7/17/90";
#endif lint

/************************************************************************
 *									*
 *	 	      Copyright (c) 1987, 1988 by			*
 *		Digital Equipment Corporation, Maynard, MA		*
 *			All rights reserved.				*
 *									*
 *   This software is furnished under a license and may be used and	*
 *   copied  only  in accordance with the terms of such license and	*
 *   with the  inclusion  of  the  above  copyright  notice.   This	*
 *   software  or  any  other copies thereof may not be provided or	*
 *   otherwise made available to any other person.  No title to and	*
 *   ownership of the software is hereby transferred.			*
 *									*
 *   The information in this software is subject to change  without	*
 *   notice  and should not be construed as a commitment by Digital	*
 *   Equipment Corporation.						*
 *									*
 *   Digital assumes no responsibility for the use  or  reliability	*
 *   of its software on equipment which is not supplied by Digital.	*
 *									*
 ************************************************************************/

/*
 *
 *   File name: gen.c
 *
 *   Source file description:
 *	A few useful functions to help with string extraction.
 *
 *   Functions:
 *	fixsuffix()
 *	fixprefix()
 *	loadignore()
 *	addignore()
 *	sopen()
 *
 *   Modification history:
 *	Andy Gadsby,  5-Jan-1987.
 *		Created.
 *
 */

#include <stdio.h>
#include "defs.h"

/* 
 * fixsuffix()
 *	Given a file name return a pointer to a new name with the suffix
 *	replaced by suffix. Returns a pointer to a static structure.
 */

char *
fixsuffix(name, suffix)
char *name, *suffix;
{	char *slash;			/* position of last slash	*/
	char *dot;			/* position of last dot		*/
	static char rname[255];		/* return value			*/
	char *rindex();

	strcpy(rname, name);
	if ((slash = rindex(rname, '/')) == NULL)
		slash = rname;
	if ((dot = rindex(slash, '.')) == NULL)
		strcat(rname, suffix);
	else
		strcpy(dot, suffix);

	return rname;
}


/* 
 * fixprefix()
 *	Given a file name return a pointer to a new name with the prefix
 *	set to prefix. Returns a pointer to a static structure.
 */

char *
fixprefix(prefix, name)
char *name, *prefix;
{	char *slash;			/* position of last slash	*/
	static char rname[255];		/* return value			*/
	char *rindex();

	if (slash = rindex(rname, '/')) {
		strncpy(rname, name, slash - name + 1);
		strcat(rname, prefix);
		strcat(rname, slash + 1);
	} else {
		strcpy(rname, prefix);
		strcat(rname, name);
	}
	return rname;
}

/*
 * loadignore()
 *	Read from the file given the ignore list. This is a list of specific
 *	strings which we wish to ignore wherever encountered.
 */

loadignore(fname)
char *fname;
{	FILE *fp;			/* the file pointer		*/
	FILE *sopen();
	int   len;			/* length of the string read	*/
	char  string[LINESIZE];		/* the string			*/
	struct element elem;		/* used to do the saving	*/

	fp = fname ? fopen(fname, "r") : sopen(IGNFILE, "r");
	if (fp == (FILE *)NULL)
		return ERROR;

	while (fgets(string, LINESIZE, fp) != (char *)NULL) {
		len = strlen(string);	/* zap any newline read		*/
		if (string[len - 1] == '\n')
			len--;
		if (len == 0)
			continue;
		elem.len = len;
		elem.flags = STR_IGNORE;
		elem.linenum = 0;	/* not true but a good hint	*/
		savestr(string, &elem);
	}
	fclose(fp);
	return OK;
}

/*
 * addignore()
 *	Append text to the ignore file so that on subsequent invocations
 *	the string will be ignored.
 */

addignore(fname, string, len)
char *fname;				/* the ignore file name		*/
char *string;				/* the string to ignore		*/
int   len;				/* the length of the string	*/
{ 	FILE *fp;

	if ((fp = fopen(fname ? fname : IGNFILE, "a")) == (FILE *)NULL)
		return ERROR;
	
	while (len-- > 0)
		fputc(*string++, fp);
	fputc('\n', fp);
	fclose(fp);
	return OK;
}

/*
 * sopen()
 *	Open the file name given trying the current directory, $HOME
 *	and the system directory
 */

FILE *
sopen(name, mode)
char *name;
char *mode;
{	FILE *fp;
	char buf[255];
	char *getenv();

	if (fp = fopen(name, mode))
		return fp;

	strcpy(buf, getenv("HOME"));
	strcat(buf, "/");
	strcat(buf, name);
	if (fp = fopen(buf, mode))
		return fp;

	strcpy(buf, LIB_DIR);
	strcat(buf, name);
	return (fp = fopen(buf, mode));
}