Return to message.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / ld386

coherent

/*
 * ld/message.c
 * Print messages of various origins.
 * And misc functions.
 */

#include "ld.h"
#include <errno.h>

extern char *memset();

/*
 * Fatal error; print message and exit
 */
void
fatal(args)
char *args;
{
	if (!Qflag)
		fprintf(stderr, "%s: %r\n", argv0, &args);
	exit(1);
}

void
message(args)
char * args;
{
	errCount++;
	if (Qflag)
		return;
	fprintf(stderr, "%s: %r\n", argv0, &args);
}

void
watch_message(args)
char * args;
{
	fprintf(stderr, "%s: %r\n", argv0, &args);
}

/*
 * message plus command prototype
 */
void
help()
{
	static char document[] =
		"Usage ld\n"
		"\t-d\t\tDefine commons even if undefined symbols\n"
		"\t-e entry\tSet entry point\n"
		"\t-K\t\tCompile kernel\n"
		"\t-l lib\t\tUse library\n"
		"\t-o outfile\tSet output filename default is a.out\n"
		"\t-r\t\tRetain relocation information\n"
		"\t-s\t\tStrip symbol table\n"
		"\t-u sym\t\tUndefine sym\n"
		"\t-w\t\tWatch messages enabled\n"
		"\t-X\t\tDiscard local symbols beginning .L\n"
		"\t-x\t\tDiscard all local symbols\n";

	printf(document);
	exit(0);
}

usage()
{
	fprintf(stderr,
"usage: ld [-drswxX?] [-o out] [-e entry] [-u sym] file ... [-l lib] ...\n");
	exit(1);
}

/*
 * message with filename
 */
void
filemsg(fname, args)
char	*fname, *args;
{
	message( "file '%s': %r", fname, &args );
}

/*
 * Message with module and file name
 */
void
modmsg(fname, mname, args)
char * fname;
char * mname;
char * args;
{
	if (mname[0] == 0)
		filemsg(fname, "%r", &args );

	else
		filemsg(fname, "module '%.*s': %r",
			DIRSIZ, mname, &args );
}

/*
 * Message for module passed by pointer
 */
void
mpmsg(mp, args)
mod_t * mp;
char  * args;
{
	modmsg(mp->fname, mp->mname, "%r", &args);
}

/*
 * Module is corrupt message.
 */
void
corrupt(mp)
{
	mpmsg(mp, "is corrupt");
	/* This does not make sense as an object module. */
	exit (1);
}

/*
 * Message for symbol passed by pointer
 */
void
spmsg(sp, args)
sym_t	*sp;
char	*args;
{
	static char msg[] = "symbol '%s' %r";
	char work[SYMNMLEN + 1], *name;

	name = symName(&(sp->sym), work);

	if (sp->mod == NULL)
		message(msg, name, &args);
	else
		mpmsg(sp->mod, msg, name, &args);
}

/*
 * Warning message for symbol passed by pointer
 */
void
spwarn(sp, args)
sym_t	*sp;
char	*args;
{
	static char msg[] = "warning: symbol '%s' %r";
	char work[SYMNMLEN + 1], *name;

	if (qflag)
		return;

	errCount--;	/* don't increment count */
	name = symName(&(sp->sym), work);

	if (sp->mod == NULL)
		message(msg, name, &args);
	else
		mpmsg(sp->mod, msg, name, &args);
}

/*
 * Open a file or die in the attempt.
 */
int
qopen(fn, type)
char *fn;
{
	int fd;

	if (type)
		fd = creat(fn, 0666);
	else
		fd = open(fn, 0);

	if (-1 == fd) {
		filemsg(fn, "Cannot open.");	/**/
		exit(1);
	}
	return (fd);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.