/*
* ckustr.c - string extraction/restoration routines
*/
#include <stdio.h>
#include <sysexits.h>
#include <varargs.h>
#include <paths.h>
/*
STR_FILE must be defined as a quoted string on the cc command line,
for example:
-DSTR_FILE=\\\"/usr/local/lib/cku196.sr\\\"
This is the file where the strings go, and where C-Kermit looks for them
at runtime.
*/
#ifdef STR_FILE
char *StringFile = STR_FILE;
#else
char *StringFile = "/usr/local/lib/cku196.sr";
#endif /* STR_FILE */
/*
* If _PATH_CTIMED is defined (in <paths.h>) then use that definition. 2.11BSD
* has this defined but 2.10BSD and other systems do not.
*/
#ifndef _PATH_CTIMED
#define _PATH_CTIMED STR_CTIMED
#endif
extern int errno;
static int strfile = -1, ourpid = 0;
#define BUFLEN 256
errprep(offset, buf)
unsigned short offset;
char *buf;
{
register int pid = getpid();
if (pid != ourpid) {
ourpid = pid;
if (strfile >= 0) {
close(strfile);
strfile = -1;
}
}
if (strfile < 0) {
char *p, *getenv();
if (p = getenv("KSTR"))
if (strlen(p))
StringFile = p;
strfile = open(StringFile, 0);
if (strfile < 0) {
oops:
fprintf(stderr, "Cannot find %s\r\n", StringFile);
exit(EX_OSFILE);
}
}
if (lseek(strfile, (long) offset, 0) < 0
|| read(strfile, buf, BUFLEN) <= 0)
goto oops;
}
/* extracted string front end for printf() */
/*VARARGS1*/
strprerror(fmt, va_alist)
int fmt;
va_dcl
{
va_list ap;
char buf[BUFLEN];
errprep(fmt, buf);
va_start(ap);
vprintf(buf, ap);
va_end(ap);
}
/* extracted string front end for sprintf() */
/*VARARGS1*/
strsrerror(fmt, obuf, va_alist)
int fmt;
char *obuf;
va_dcl
{
char buf[BUFLEN];
va_list ap;
errprep(fmt, buf);
va_start(ap);
vsprintf(obuf, buf, ap);
va_end(ap);
}
/* extracted string front end for fprintf() */
/*VARARGS1*/
strfrerror(fmt, fd, va_alist)
int fmt;
FILE *fd;
va_dcl
{
va_list ap;
char buf[BUFLEN];
errprep(fmt, buf);
va_start(ap);
vfprintf(fd, buf, ap);
va_end(ap);
}
/* extracted string front end for perror() */
strperror(fmt)
int fmt;
{
char buf[BUFLEN];
register int saverr = errno;
errprep(fmt, buf);
errno = saverr;
perror(buf);
}
perror(str)
char *str;
{
printf("%s: errno %d\n", str, errno);
}
/*
* The following is needed _only_ on systems which do not have the C library
* stubs for the ctime() and getpw*() functions. In 2.11BSD these are
* present in the libstubs.a library and accessed via "-lstubs" at link time.
*
* 2.10BSD's cpp has the BSD2_10 symbol builtin. Other systems without
* libstubs.a will need to define (via a -D option in CFLAGS) 'BSD2_10'.
*/
#ifdef BSD2_10
#include <sys/types.h>
#include <sys/time.h>
#include <pwd.h>
#include <utmp.h>
#define SEND_FD W[1]
#define RECV_FD R[0]
#define CTIME 1
#define ASCTIME 2
#define TZSET 3
#define LOCALTIME 4
#define GMTIME 5
#define OFFTIME 6
#define GETPWENT 7
#define GETPWNAM 8
#define GETPWUID 9
#define SETPASSENT 10
#define ENDPWENT 11
static int R[2], W[2], inited;
static char result[256 + 4];
static struct tm tmtmp;
static struct passwd _pw, *getandfixpw();
char *
ctime(t)
time_t *t;
{
u_char fnc = CTIME;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, t, sizeof (*t));
getb(RECV_FD, result, 26);
return(result);
}
char *
asctime(tp)
struct tm *tp;
{
u_char fnc = ASCTIME;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, tp, sizeof (*tp));
getb(RECV_FD, result, 26);
return(result);
}
void
tzset()
{
u_char fnc = TZSET;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
}
struct tm *
localtime(tp)
time_t *tp;
{
u_char fnc = LOCALTIME;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, tp, sizeof (*tp));
getb(RECV_FD, &tmtmp, sizeof tmtmp);
getb(RECV_FD, result, 24);
tmtmp.tm_zone = result;
return(&tmtmp);
}
struct tm *
gmtime(tp)
time_t *tp;
{
u_char fnc = GMTIME;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, tp, sizeof (*tp));
getb(RECV_FD, &tmtmp, sizeof tmtmp);
getb(RECV_FD, result, 24);
tmtmp.tm_zone = result;
return(&tmtmp);
}
struct tm *
offtime(clock, offset)
time_t *clock;
long offset;
{
u_char fnc = OFFTIME;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, clock, sizeof (*clock));
write(SEND_FD, &offset, sizeof offset);
getb(RECV_FD, &tmtmp, sizeof tmtmp);
tmtmp.tm_zone = "";
return(&tmtmp);
}
struct passwd *
getpwent()
{
u_char fnc = GETPWENT;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
return(getandfixpw());
}
struct passwd *
getpwnam(nam)
char *nam;
{
u_char fnc = GETPWNAM;
char lnam[UT_NAMESIZE + 1];
int len;
len = strlen(nam);
if (len > UT_NAMESIZE)
len = UT_NAMESIZE;
bcopy(nam, lnam, len);
lnam[len] = '\0';
sewer();
write(SEND_FD, &fnc, 1);
write(SEND_FD, &len, sizeof (int));
write(SEND_FD, lnam, len);
return(getandfixpw());
}
struct passwd *
getpwuid(uid)
uid_t uid;
{
u_char fnc = GETPWUID;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, &uid, sizeof (uid_t));
return(getandfixpw());
}
setpwent()
{
return(setpassent(0));
}
setpassent(stayopen)
int stayopen;
{
u_char fnc = SETPASSENT;
int sts;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
write(SEND_FD, &stayopen, sizeof (int));
getb(RECV_FD, &sts, sizeof (int));
return(sts);
}
void
endpwent()
{
u_char fnc = ENDPWENT;
sewer();
write(SEND_FD, &fnc, sizeof fnc);
return;
}
/* setpwfile() is deprecated */
void
setpwfile(file)
char *file;
{
return;
}
struct passwd *
getandfixpw()
{
short sz;
getb(RECV_FD, &sz, sizeof (int));
if (sz == 0)
return(NULL);
getb(RECV_FD, &_pw, sizeof (_pw));
getb(RECV_FD, result, sz);
_pw.pw_name += (int)result;
_pw.pw_passwd += (int)result;
_pw.pw_class += (int)result;
_pw.pw_gecos += (int)result;
_pw.pw_dir += (int)result;
_pw.pw_shell += (int)result;
return(&_pw);
}
getb(f, p, n)
register int f, n;
register char *p;
{
int i;
while (n)
{
i = read(f, p, n);
if (i <= 0)
return;
p += i;
n -= i;
}
}
sewer()
{
register int pid, ourpid = getpid();
if (inited == ourpid)
return;
if (inited)
{
close(SEND_FD);
close(RECV_FD);
}
pipe(W);
pipe(R);
pid = vfork();
if (pid == 0)
{ /* child */
alarm(0); /* cancel alarms */
dup2(W[0], 0); /* parent write side to our stdin */
dup2(R[1], 1); /* parent read side to our stdout */
close(SEND_FD); /* copies made, close the... */
close(RECV_FD); /* originals now */
execl(_PATH_CTIMED, "ctimed", 0);
_exit(EX_OSFILE);
}
if (pid == -1)
abort(); /* nothing else really to do */
close(W[0]); /* close read side of SEND channel */
close(R[1]); /* close write side of RECV channel */
inited = ourpid; /* don't do this again in this proc */
}
XXctime()
{
if (SEND_FD)
close(SEND_FD);
if (RECV_FD)
close(RECV_FD);
SEND_FD = RECV_FD = 0;
inited = 0;
}
#endif /* BSD2_10 */