212 lines
3.2 KiB
C
212 lines
3.2 KiB
C
/*
|
||
* $Id: etc.c,v 1.2 1993/10/21 00:52:52 pk Exp $
|
||
*/
|
||
|
||
#include <sys/param.h>
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
#include <sys/types.h>
|
||
#include <sys/stat.h>
|
||
#include <sys/file.h>
|
||
#include <sys/time.h>
|
||
#include <fcntl.h>
|
||
#include <ar.h>
|
||
#include <ranlib.h>
|
||
#include <a.out.h>
|
||
#include <stab.h>
|
||
#include <string.h>
|
||
#if __STDC__
|
||
#include <stdarg.h>
|
||
#else
|
||
#include <varargs.h>
|
||
#endif
|
||
|
||
#include "ld.h"
|
||
|
||
/*
|
||
* Report a nonfatal error.
|
||
*/
|
||
|
||
void
|
||
#if __STDC__
|
||
error(char *fmt, ...)
|
||
#else
|
||
error(fmt, va_alist)
|
||
char *fmt;
|
||
va_dcl
|
||
#endif
|
||
{
|
||
va_list ap;
|
||
#if __STDC__
|
||
va_start(ap, fmt);
|
||
#else
|
||
va_start(ap);
|
||
#endif
|
||
(void)fprintf(stderr, "%s: ", progname);
|
||
(void)vfprintf(stderr, fmt, ap);
|
||
(void)fprintf(stderr, "\n");
|
||
va_end(ap);
|
||
}
|
||
|
||
/*
|
||
* Report a fatal error.
|
||
*/
|
||
|
||
void
|
||
#if __STDC__
|
||
fatal(char *fmt, ...)
|
||
#else
|
||
fatal(fmt, va_alist)
|
||
char *fmt;
|
||
va_dcl
|
||
#endif
|
||
{
|
||
va_list ap;
|
||
#if __STDC__
|
||
va_start(ap, fmt);
|
||
#else
|
||
va_start(ap);
|
||
#endif
|
||
(void)fprintf(stderr, "%s: ", progname);
|
||
(void)vfprintf(stderr, fmt, ap);
|
||
(void)fprintf(stderr, "\n");
|
||
va_end(ap);
|
||
|
||
if (outdesc >= 0)
|
||
unlink(output_filename);
|
||
exit(1);
|
||
}
|
||
|
||
|
||
/*
|
||
* Return a newly-allocated string whose contents concatenate
|
||
* the strings S1, S2, S3.
|
||
*/
|
||
|
||
char *
|
||
concat(s1, s2, s3)
|
||
char *s1, *s2, *s3;
|
||
{
|
||
register int len1 = strlen (s1),
|
||
len2 = strlen (s2),
|
||
len3 = strlen (s3);
|
||
|
||
register char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
|
||
|
||
strcpy (result, s1);
|
||
strcpy (result + len1, s2);
|
||
strcpy (result + len1 + len2, s3);
|
||
result[len1 + len2 + len3] = 0;
|
||
|
||
return result;
|
||
}
|
||
|
||
/* Parse the string ARG using scanf format FORMAT, and return the result.
|
||
If it does not parse, report fatal error
|
||
generating the error message using format string ERROR and ARG as arg. */
|
||
|
||
int
|
||
parse(arg, format, error)
|
||
char *arg, *format, *error;
|
||
{
|
||
int x;
|
||
if (1 != sscanf (arg, format, &x))
|
||
fatal (error, arg);
|
||
return x;
|
||
}
|
||
|
||
/* Like malloc but get fatal error if memory is exhausted. */
|
||
|
||
void *
|
||
xmalloc(size)
|
||
int size;
|
||
{
|
||
register void *result = (void *)malloc (size);
|
||
|
||
if (!result)
|
||
fatal ("virtual memory exhausted", 0);
|
||
|
||
return result;
|
||
}
|
||
|
||
/* Like realloc but get fatal error if memory is exhausted. */
|
||
|
||
void *
|
||
xrealloc(ptr, size)
|
||
void *ptr;
|
||
int size;
|
||
{
|
||
register void *result;
|
||
|
||
if (ptr == NULL)
|
||
result = (void *)malloc (size);
|
||
else
|
||
result = (void *)realloc (ptr, size);
|
||
|
||
if (!result)
|
||
fatal ("virtual memory exhausted", 0);
|
||
|
||
return result;
|
||
}
|
||
|
||
|
||
#ifdef USG
|
||
void
|
||
bzero(p, n)
|
||
char *p;
|
||
{
|
||
memset (p, 0, n);
|
||
}
|
||
|
||
void
|
||
bcopy(from, to, n)
|
||
char *from, *to;
|
||
{
|
||
memcpy (to, from, n);
|
||
}
|
||
#endif
|
||
|
||
|
||
/* These must move */
|
||
|
||
#ifndef RTLD
|
||
/*
|
||
* Output COUNT*ELTSIZE bytes of data at BUF to the descriptor DESC.
|
||
*/
|
||
void
|
||
mywrite (buf, count, eltsize, desc)
|
||
char *buf;
|
||
int count;
|
||
int eltsize;
|
||
int desc;
|
||
{
|
||
register int val;
|
||
register int bytes = count * eltsize;
|
||
|
||
while (bytes > 0) {
|
||
val = write (desc, buf, bytes);
|
||
if (val <= 0)
|
||
perror(output_filename);
|
||
buf += val;
|
||
bytes -= val;
|
||
}
|
||
}
|
||
|
||
/* Output PADDING zero-bytes to descriptor OUTDESC.
|
||
PADDING may be negative; in that case, do nothing. */
|
||
|
||
void
|
||
padfile (padding, outdesc)
|
||
int padding;
|
||
int outdesc;
|
||
{
|
||
register char *buf;
|
||
if (padding <= 0)
|
||
return;
|
||
|
||
buf = (char *) alloca (padding);
|
||
bzero (buf, padding);
|
||
mywrite (buf, padding, 1, outdesc);
|
||
}
|
||
#endif
|