client/ 40775 2123 322 0 6013032513 11555 5ustar childrenpstaffclient/bit.c100640 2123 322 6136 6013030753 12600 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/bit.c,v 1.1 1994/11/30 22:50:50 empire Exp $"; #endif /* not lint */ #include "misc.h" /* * bits.c * * allocate and search select-style bitfields * */ #include "bit.h" int bit_nfile; int bit_nbytes; bit_fdmask bit_newfdmask() { extern s_char *malloc(); bit_fdmask mask; if (bit_nfile == 0) { bit_nfile = getfdtablesize(); bit_nbytes = (bit_nfile + (BIT_BITSPERMASK-1)) / BIT_NBBY; } mask = (bit_fdmask) malloc(bit_nbytes); (void) bit_zero(mask); return mask; } /* * zero the bitfield */ bit_zero(bitp) bit_fdmask bitp; { bit_mask *mask; register int i; register int nwords; mask = bitp; nwords = bit_nbytes / sizeof(*mask); for (i=0; i #endif /*ARGSUSED*/ setfdtablesize(min, start) int min; int start; { #ifdef sequent extern int errno; while (start >= min) { if (setdtablesize(start) < 0) break; start -= 16; } errno = 0; #endif } int getfdtablesize() { #ifdef hpux return _NFILE; #else return getdtablesize(); #endif } client/expect.c100640 2123 322 4147 6013030762 13312 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/expect.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * expect.c * * read from the socket, expecting to see a particular * code. * */ #include "misc.h" #include "fnlist.h" #include #include #include #include #include int expect(s, match, buf) int s; int match; s_char *buf; { int size; s_char *p; int n; int code; int newline; s_char *ptr; int cc; size = 1024; (void) alarm(30); ptr = buf; n = recv(s, ptr, size, MSG_PEEK); if (n <= 0) { fprintf(stderr, "Expecting code %d\n", match); perror("recv"); return 0; } size -= n; buf[n] = '\0'; if ((p = strchr(ptr, '\n')) == 0) { do { cc = read(s, ptr, n); if (cc < 0) { perror("expect: read"); return 0; } if (cc != n) { fprintf(stderr, "expect: short read (%d not %d)\n", cc, n); return 0; } ptr += n; if ((n = recv(s, ptr, size, MSG_PEEK)) <= 0) { fprintf(stderr, "Expecting %d, got %s\n", match, buf); return 0; } size -= n; ptr[n] = '\0'; } while ((p = index(ptr, '\n')) == 0); newline = 1 + p - buf; *p = 0; } else newline = 1 + p - ptr; cc = read(s, buf, newline); if (cc < 0) { perror("expect: read #2"); return 0; } if (cc != newline) { fprintf(stderr, "expect: short read #2 (%d not %d)\n", cc, newline); return 0; } buf[newline] = '\0'; (void) alarm(0); if (!isxdigit(*buf)) { fprintf(stderr, "Expecting %d, got %s\n", match, buf); return 0; } if (isdigit(*buf)) code = *buf - '0'; else { if (isupper(*buf)) *buf = tolower(*buf); code = 10 + *buf - 'a'; } if (code == match) return 1; return 0; } sendcmd(s, cmd, arg) int s; int cmd; s_char *arg; { extern struct fn fnlist[]; s_char buf[80]; int cc; int len; (void) sprintf(buf, "%s %s\n", fnlist[cmd].name, arg != 0 ? arg : ""); len = strlen(buf); cc = write(s, buf, len); if (cc < 0) { perror("sendcmd: write"); } if (cc != len) { fprintf(stderr, "sendcmd: short write (%d not %d)\n", cc, len); } } client/globals.c100640 2123 322 1343 6013031215 13432 0ustar childrenpstaff/* Generated automatically from globals.c.in by configure. */ #ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emprcs/client/globals.c,v 2.1 1995/06/16 16:25:52 empire Exp $"; #endif /* not lint */ /* * globals.c * * globals for the client. * * Dave Pare, 1986 */ #include #include #include "misc.h" #include "fnlist.h" #include "proto.h" s_char empirehost[] = "RedDragon.Empire.Net"; s_char empireport[] = "7778"; struct fn fnlist[] = { { NULL, "user", USER,}, { NULL, "coun", COUN,}, { NULL, "quit", QUIT,}, { NULL, "pass", PASS,}, { NULL, "play", PLAY,}, { NULL, "list", LIST,}, { NULL, "cmd", CMD,}, { NULL, "ctld", CTLD,}, { NULL, "kill", KILL,}, { NULL, "", 0,}, }; client/handle.c100640 2123 322 666 6013030773 13241 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/handle.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * handle.c * * interrupt handler now just sends a message * * Dave Pare, 1989 */ int handleintr(s) int s; { extern int interrupt; if (interrupt) { /* tacky, but it works */ if (write(s, "\naborted\n", 1+7+1) <= 0) return 0; interrupt = 0; } return 1; } client/host.c100640 2123 322 2632 6013030774 12777 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/host.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * host.c * * make stream connection to empire * * Dave Pare, 1989 */ #include #include #include #include #include #include #include "misc.h" int hostaddr(name, addr) s_char *name; struct sockaddr_in *addr; { extern u_long inet_addr(); struct hostent *hp; if (name == 0 || *name == 0) return 0; if (isdigit(*name)) { addr->sin_addr.s_addr = inet_addr(name); } else { hp = gethostbyname(name); if (hp == NULL) { fprintf(stderr, "%s: No such host\n", name); return 0; } bcopy(hp->h_addr, (s_char *)&addr->sin_addr, sizeof(addr->sin_addr)); } return 1; } int hostport(name, addr) s_char *name; struct sockaddr_in *addr; { struct servent *sp; if (name == 0 || *name == 0) return 0; if (isdigit(*name)) { addr->sin_port = htons(atoi(name)); } else { sp = getservbyname(name, "tcp"); if (sp == NULL) return 0; addr->sin_port = sp->s_port; } return 1; } int hostconnect(addr) struct sockaddr_in *addr; { int s; s = socket(AF_INET, SOCK_STREAM, 0); if (s < 0) { perror("socket"); return -1; } addr->sin_family = AF_INET; if (connect(s, addr, sizeof(*addr)) < 0) { perror("connect"); (void) close(s); return -1; } return s; } client/hpux.c100640 2123 322 1620 6013030775 13003 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/hpux.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* * hpux.c * * hpux dependencies * */ #ifdef hpux #include #define NULL 0 #include "misc.h" s_char * rindex(sp, c) register s_char *sp; register int c; { register s_char *r; r = NULL; do { if (*sp == c) r = sp; } while (*sp++); return r; } s_char * index(sp, c) register s_char *sp; register int c; { do { if (*sp == c) return (sp); } while (*sp++); return NULL; } int ffs(mask) register unsigned mask; { register unsigned bit; register int i; if (mask == 0) return 0; for (bit=1, i=1; i <= 32; i++, bit <<= 1) if (mask & bit) return i; return 0; } bzero(ptr, len) s_char *ptr; int len; { memset(ptr, 0, len); } bcopy(src, dst, len) s_char *src; s_char *dst; int len; { memcpy(dst, src, len); } #endif client/ioqueue.c100640 2123 322 11345 6013031000 13476 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emprcs/client/ioqueue.c,v 2.1 1995/08/05 06:16:38 empire Exp $"; #endif /* not lint */ /* * ioqueue.c * * Manage an i/o queue * */ #include #include #include #include "misc.h" #include "queue.h" #include "ioqueue.h" static int ioqtobuf(); static int ioqtoiov(); static enqueuecc(); static int dequeuecc(); ioq_init(ioq, bsize) struct ioqueue *ioq; { extern s_char num_teles[]; initque(&ioq->queue); ioq->cc = 0; ioq->bsize = bsize; *num_teles = '\0'; } /* * copy batch of pointers into the passed * iovec, but don't actually dequeue the data. * return # of iovec initialized. */ int ioq_peekiov(ioq, iov, max) struct ioqueue *ioq; struct iovec *iov; int max; { if (ioq->cc <= 0) return 0; return ioqtoiov(ioq, iov, max); } /* * Copy the specified number of characters into the buffer * provided, without actually dequeueing the data. Return * number of bytes actually found. */ int ioq_peek(ioq, buf, cc) struct ioqueue *ioq; s_char *buf; int cc; { return ioqtobuf(ioq, buf, cc); } int ioq_dequeue(ioq, cc) struct ioqueue *ioq; int cc; { if (dequeuecc(ioq, cc) != cc) return 0; return cc; } int ioq_read(ioq, buf, cc) struct ioqueue *ioq; s_char *buf; int cc; { int n; n = ioqtobuf(ioq, buf, cc); if (n > 0) dequeuecc(ioq, n); return n; } ioq_write(ioq, buf, cc) struct ioqueue *ioq; s_char *buf; int cc; { enqueuecc(ioq, buf, cc); } int ioq_qsize(ioq) struct ioqueue *ioq; { return ioq->cc; } ioq_drain(ioq) struct ioqueue *ioq; { struct io *io; struct qelem *qp; while ((qp = ioq->queue.q_forw) != &ioq->queue) { io = (struct io *) qp; free(io->data); (void) remque(&io->queue); (void) free(io); } ioq->cc = 0; } s_char * ioq_gets(ioq, buf, cc) struct ioqueue *ioq; s_char *buf; int cc; { register s_char *p; register s_char *end; int nbytes; nbytes = ioqtobuf(ioq, buf, cc); if (nbytes < cc) cc = nbytes; end = &buf[cc]; for (p = buf; p < end && *p; p++) { if (*p == '\n') { *p = '\0'; dequeuecc(ioq, (p - buf) + 1); return buf; } } return 0; } /* * all the rest are local to this module */ /* * copy cc bytes from ioq to buf. * this routine doesn't free memory; this is * left for a higher level. */ static int ioqtobuf(ioq, buf, cc) register struct ioqueue *ioq; s_char *buf; int cc; { register struct io *io; struct qelem *qp; s_char *offset; int nbytes; int nleft; nleft = cc; offset = buf; for (qp = ioq->queue.q_forw; qp != &ioq->queue; qp = qp->q_forw) { io = (struct io *) qp; if ((nbytes = io->nbytes - io->offset) < 0) { fprintf(stderr, "ioqtobuf: offset %d nbytes %d\n", io->offset, io->nbytes); continue; } if (nbytes > 0) { if (nleft < nbytes) nbytes = nleft; bcopy(io->data + io->offset, offset, nbytes); offset += nbytes; nleft -= nbytes; } } return offset - buf; } /* * translate "around" max bytes to an iovec * array. The limit max is only advisory, * and more may get buffered. It is an attempt to limit * really silly sends -- like sending 40k on a socket * with one writev for example. This makes the processing * of a full ioqueue still be quick. */ static int ioqtoiov(ioq, iov, max) register struct ioqueue *ioq; register struct iovec *iov; register int max; { register struct io *io; register int cc; register int niov; struct qelem *qp; cc = 0; niov = 0; qp = ioq->queue.q_forw; for (qp = ioq->queue.q_forw; qp != &ioq->queue; qp = qp->q_forw) { io = (struct io *) qp; if (niov >= MAXIOV || cc >= max) break; iov->iov_base = io->data + io->offset; iov->iov_len = io->nbytes - io->offset; cc += io->nbytes - io->offset; niov++; iov++; } return niov; } /* * append a buffer to the end of the ioq. */ static enqueuecc(ioq, buf, cc) struct ioqueue *ioq; s_char *buf; int cc; { struct io *io; io = (struct io *) malloc(sizeof(*io)); io->nbytes = cc; io->offset = 0; io->data = buf; insque(&io->queue, ioq->queue.q_back); ioq->cc += cc; } /* * remove cc bytes from ioqueue ioq * free memory, dequeue io elements * which are no longer used. */ static int dequeuecc(ioq, cc) register struct ioqueue *ioq; register int cc; { register struct io *io; register struct qelem *qp; register int nbytes; register int there; nbytes = 0; while ((qp = ioq->queue.q_forw) != &ioq->queue) { io = (struct io *) qp; there = io->nbytes - io->offset; if (there < 0) { fprintf(stderr, "dequeuecc: nbytes %d, offset %d\n", io->nbytes, io->offset); continue; } if (cc > there) { cc -= there; nbytes += there; (void) remque(&io->queue); free(io->data); } else { io->offset += cc; nbytes += cc; break; } } ioq->cc -= nbytes; return nbytes; } client/login.c100640 2123 322 3445 6013031007 13123 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/login.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * login.c * * Log in to empire host * * Dave Pare, 1989 */ #include "misc.h" #include "proto.h" #include #include int login(s, uname, cname, cpass, kill_proc) int s; s_char *uname; s_char *cname; s_char *cpass; int kill_proc; { extern s_char *getpass(); s_char buf[1024]; s_char country[64]; s_char *ptr; s_char *p; if (!expect(s, C_INIT, buf)) return 0; (void) sendcmd(s, USER, uname); if (!expect(s, C_CMDOK, buf)) return 0; if (cname == 0) { cname = country; (void) printf("Country name? "); *cname = 0; if (gets(cname) == 0 || *cname == 0) return 0; } (void) sendcmd(s, COUN, cname); if (!expect(s, C_CMDOK, buf)) { (void) fprintf(stderr, "empire: no such country\n"); return 0; } if (cpass == 0) { cpass = getpass("Your name? "); if (cpass == NULL || *cpass == '\0') return 0; } (void) printf("\n"); (void) sendcmd(s, PASS, cpass); bzero(cpass, strlen(cpass)); /* for core dumps */ if (!expect(s, C_CMDOK, buf)) { (void) fprintf(stderr, "Bad password\n"); return 0; } if (kill_proc) { (void) sendcmd(s, KILL, (s_char *)0); (void) printf("\n\t-=O=-\n"); (void) expect(s, C_EXIT, buf); fprintf(stderr, "%s\n", buf); return 0; } (void) sendcmd(s, PLAY, (s_char *)0); (void) printf("\n\t-=O=-\n"); if (!expect(s, C_INIT, buf)) { fprintf(stderr, "%s\n", buf); return 0; } for (ptr = buf; !isspace(*ptr); ptr++) ; ptr++; p = index(ptr, '\n'); if (p != 0) *p = 0; if (atoi(ptr) != CLIENTPROTO) { printf("Empire client out of date; get new version!\n"); printf(" this version: %d, current version: %d\n", CLIENTPROTO, atoi(ptr)); } return 1; } client/main.c100640 2123 322 6176 6013031010 12735 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/main.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * main.c * * front end to empire * * Dave Pare, 1986 */ #include "misc.h" #include "proto.h" #include "queue.h" #include "ioqueue.h" #include "bit.h" #include #include #include #include #include #include #include extern int errno; #define RETRY 3 int interrupt; int sock; main(ac, av) int ac; s_char *av[]; { extern s_char *getenv(); int intr(); extern s_char empireport[]; extern s_char empirehost[]; bit_fdmask mask; struct ioqueue server; bit_fdmask savemask; s_char *argv[128]; int i, j; s_char *ptr; s_char *auxout_fname; FILE *auxout_fp; struct passwd *pwd; struct sockaddr_in sin; int n; s_char *cname; s_char *pname; int retry = 0; int send_kill = 0; mask = bit_newfdmask(); savemask = bit_newfdmask(); bzero((s_char *)argv, sizeof(argv)); saveargv(ac, av, argv); auxout_fname = 0; auxout_fp = 0; for (i = j = 1; i < ac; ++i) { ptr = argv[i]; if (strcmp(ptr, "-2") == 0) { if (i + 1 >= ac) { fprintf(stderr, "-2: Missing filename!\n"); exit(1); } auxout_fname = argv[i+1]; ++i; continue; } else if (strcmp(ptr, "-k") == 0) { send_kill = 1; continue; } argv[j] = argv[i]; ++j; } ac = j; if (auxout_fname && (auxout_fp = fopen(auxout_fname, "a")) == NULL) { fprintf(stderr, "Unable to open %s for append\n", auxout_fname); exit(1); } pwd = getpwuid(getuid()); if (pwd == NULL) { fprintf(stderr, "You don't exist. Go away\n"); exit(1); } getsose(); if (!hostport(getenv("EMPIREPORT"), &sin) && !hostport("empire", &sin) && !hostport(empireport, &sin)) { fprintf(stderr, "No empire port\n"); exit(1); } if (!hostaddr(getenv("EMPIREHOST"), &sin) && !hostaddr(empirehost, &sin)) { fprintf(stderr, "No empire host\n"); exit(1); } if ((sock = hostconnect(&sin)) < 0) exit(1); cname = getenv("COUNTRY"); pname = getenv("PLAYER"); if (ac > 1) cname = argv[1]; if (ac > 2) pname = argv[2]; if (!login(sock, pwd->pw_name, cname, pname, send_kill)) exit(1); ioq_init(&server, 2048); mask = bit_newfdmask(); BIT_SETB(0, savemask); BIT_SETB(sock, savemask); (void) signal(SIGINT, intr); (void) signal(SIGPIPE, SIG_IGN); while (BIT_ISSETB(sock, savemask)) { bit_copy(savemask, mask); n = select(sock+1, mask, (int *)0, (int *)0, (struct timeval *)0); if (interrupt) { if (!handleintr(sock)) break; errno = 0; } if (n <= 0) { if (errno == EINTR) { perror("select"); (void) close(sock); BIT_CLRB(sock, savemask); } } else { if (BIT_ISSETB(0, mask)) { if (!termio(0, sock, auxout_fp)) { if (retry++ >= RETRY) { BIT_CLRB(0, savemask); } } else { retry = 0; } } if (BIT_ISSETB(sock, mask)) { if (!serverio(sock, &server)) BIT_CLRB(sock, savemask); else servercmd(&server, auxout_fp); } } } ioq_drain(&server); (void) close(sock); exit(0); } intr() { interrupt++; #ifdef hpux signal(SIGINT, intr); #endif } client/queue.c100640 2123 322 1476 6013031014 13137 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/queue.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * queue.c * * implementation of insque and remque, * among other things. * */ #include "misc.h" #include "queue.h" insque(p, q) struct qelem *p; struct qelem *q; { p->q_forw = q->q_forw; p->q_back = q; q->q_forw->q_back = p; q->q_forw = p; } remque(p) struct qelem *p; { p->q_back->q_forw = p->q_forw; p->q_forw->q_back = p->q_back; } initque(p) struct qelem *p; { p->q_forw = p; p->q_back = p; } struct qelem * makeqt(nelem) int nelem; { extern s_char *malloc(); struct qelem *table; struct qelem *qp; int i; table = (struct qelem *) malloc(sizeof(*table) * nelem); for (i=0,qp=table; i #include #include s_char num_teles[64]; static s_char the_prompt[1024]; static int mode; static int nbtu; static int nmin; FILE *redir_fp; FILE *pipe_fp; int exec_fd; int servercmd(ioq, auxfi) struct ioqueue *ioq; FILE *auxfi; { s_char buf[1024]; s_char *p; int code; int i; while (ioq_gets(ioq, buf, sizeof(buf))) { p = buf; while (*p && !isspace(*p)) p++; *p++ = 0; if (isalpha(*buf)) code = 10 + (*buf - 'a'); else code = *buf - '0'; switch (code) { case C_PROMPT: if (sscanf(p, "%d %d", &nbtu, &nmin) != 2) { fprintf(stderr, "prompt: bad server prompt %s\n", p); } mode = code; sprintf(the_prompt, "[%d:%d] Command : ", nbtu, nmin); prompt(auxfi); break; case C_REDIR: doredir(p); break; case C_PIPE: dopipe(p); break; case C_FLUSH: mode = code; sprintf(the_prompt, "%s", p); prompt(auxfi); break; case C_EXECUTE: doexecute(p, auxfi); break; case C_INFORM: if (*p) { p[strlen(p)-1] = '\0'; sprintf(num_teles, "(%s) ", p + 1); if (!redir_fp && !pipe_fp && !exec_fd) { putchar('\07'); prompt(0); } } else *num_teles = '\0'; break; default: output(code, p, auxfi); break; } } } prompt(auxfi) FILE *auxfi; { if (mode == C_PROMPT) { if (redir_fp) { (void) fclose(redir_fp); redir_fp = 0; } else if (pipe_fp) { (void) pclose(pipe_fp); pipe_fp = 0; } else if (exec_fd > 0) { close(exec_fd); close(0); exec_fd = -1; open("/dev/tty", O_RDONLY, 0); } } if (mode == C_PROMPT) printf("\n"); printf("%s%s", num_teles, the_prompt); (void) fflush(stdout); if (auxfi) { fprintf(auxfi, "\n%s%s", num_teles, the_prompt); (void)fflush(auxfi); } } /* * opens redir_fp if successful */ doredir(p) s_char *p; { s_char *how; s_char *name; int mode; int fd; if (redir_fp) { (void) fclose(redir_fp); redir_fp = 0; } how = p++; if (*p && ((*p == '>') || (*p == '!'))) p++; while (*p && isspace(*p)) p++; name = p; while (*p && !isspace(*p)) p++; *p = 0; mode = O_WRONLY | O_CREAT; if (how[1] == '>') mode |= O_APPEND; else if (how[1] == '!') mode |= O_TRUNC; else mode |= O_EXCL; if (*name == 0) { fprintf(stderr, "Null file name after redirect\n"); return; } if ((fd = open(name, mode, 0600)) < 0) { fprintf(stderr, "Redirect open failed\n"); perror(name); } else { redir_fp = fdopen(fd, "w"); } } /* * opens "pipe_fp" if successful */ dopipe(p) s_char *p; { extern FILE *popen(); if (*p == '|') p++; while (*p && isspace(*p)) p++; if (*p == 0) { fprintf(stderr, "Null program name after redirect\n"); return; } if ((pipe_fp = popen(p, "w")) == 0) { fprintf(stderr, "Pipe open failed\n"); perror(p); } } doexecute(p, auxfi) s_char *p; FILE *auxfi; { extern int sock; int fd; while (*p && isspace(*p)) p++; if (p == 0) { fprintf(stderr, "Null file to execute\n"); return; } if ((fd = open(p, O_RDONLY, 0)) < 0) { fprintf(stderr, "Can't open execute file\n"); perror(p); return; } /* copies 4k at a time to the socket */ while (termio(fd, sock, auxfi)) /*do copy*/; sendeof(sock); close(fd); } s_char *SO; s_char *SE; output(code, buf, auxfi) int code; s_char *buf; FILE *auxfi; { switch (code) { case C_NOECHO: _noecho(0); break; case C_FLUSH: (void) fflush(stdout); if (auxfi) (void) fflush(auxfi); break; case C_ABORT: printf("Aborted\n"); if (auxfi) fprintf(auxfi, "Aborted\n"); break; case C_CMDERR: case C_BADCMD: printf("Error; "); if (auxfi) fprintf(auxfi, "Error; "); break; case C_EXIT: printf("Exit: "); if (auxfi) fprintf(auxfi, "Exit: "); break; case C_FLASH: printf("\n"); break; default: break; } if (auxfi) { fprintf(auxfi, "%s", buf); if (code == C_FLUSH) (void) fflush(auxfi); else (void) putc('\n', auxfi); } if (redir_fp) fprintf(redir_fp, "%s\n", buf); else if (pipe_fp) fprintf(pipe_fp, "%s\n", buf); else { if (SO && SE) screen(buf); else fputs(buf, stdout); if (code == C_FLUSH) (void) fflush(stdout); else (void) putc('\n', stdout); } } screen(buf) register s_char *buf; { register s_char *sop; register s_char c; while (c = *buf++) { if (c & 0x80) { for (sop = SO; putc(*sop, stdout); sop++) ; (void) putc(c & 0x7f, stdout); for (sop = SE; putc(*sop, stdout); sop++) ; } else (void) putc(c, stdout); } } client/serverio.c100640 2123 322 1404 6013031021 13636 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/serverio.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * serverio.c * * handle input from server */ #include "misc.h" #include "queue.h" #include "ioqueue.h" #include int serverio(s, ioq) int s; struct ioqueue *ioq; { extern s_char *realloc(); s_char *buf; int n; if ((buf = malloc(ioq->bsize)) == 0) { fprintf(stderr, "malloc server i/o failed\n"); return 0; } n = read(s, buf, ioq->bsize); if (n < 0) { perror("server i/o read"); free(buf); return 0; } if (n == 0) { fprintf(stderr, "Server EOF\n"); (void) close(s); return 0; } if (n != ioq->bsize) buf = realloc(buf, n); ioq_write(ioq, buf, n); return 1; } client/termio.c100640 2123 322 3355 6013031026 13313 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/termio.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * termio.c */ #include #include #if defined(aix) || defined(hpux) || defined(sgi) || defined(linux) #include #else #include #endif #include "misc.h" int termio(fd, sock, auxfi) int fd; int sock; FILE *auxfi; { s_char buf[4096]; int n; s_char *ptr; int nbytes; n = read(fd, buf, sizeof(buf)); if (n == 0) { sendeof(sock); return 0; } if (n < 0) { perror("read standard input"); return 0; } if (auxfi) { fwrite(buf, n, 1, auxfi); } ptr = buf; while (n > 0) { nbytes = write(sock, ptr, n); if (nbytes <= 0) { perror("write server socket"); return 0; } ptr += nbytes; n -= nbytes; } return 1; } sendeof(sock) int sock; { if (write(sock, "ctld\n", 5) < 5) { fprintf(stderr, "sendeof: EOF send failed\n"); close(sock); return 0; } return 1; } int echomode = 1; #if defined(hpux) || defined(aix) || defined (sgi) || defined(linux) _noecho(fd) int fd; { struct termio io; echomode = 0; (void) ioctl(fd, TCGETA, &io); io.c_line |= ECHO; (void) ioctl(fd, TCSETA, &io); } _echo(fd) int fd; { struct termio io; if (echomode) return; (void) ioctl(fd, TCGETA, &io); io.c_line &= ~ECHO; (void) ioctl(fd, TCSETA, &io); echomode++; } #else _noecho(fd) int fd; { struct sgttyb sgbuf; echomode = 0; (void) ioctl(fd, TIOCGETP, &sgbuf); sgbuf.sg_flags &= ~ECHO; (void) ioctl(fd, TIOCSETP, &sgbuf); } _echo(fd) int fd; { struct sgttyb sgbuf; if (echomode) return; (void) ioctl(fd, TIOCGETP, &sgbuf); sgbuf.sg_flags |= ECHO; (void) ioctl(0, TIOCSETP, &sgbuf); echomode++; } #endif client/termlib.c100640 2123 322 1663 6013031030 13445 0ustar childrenpstaff#ifndef lint static char *RCSid = "$Header: /usr/brule/guest/empire/empire/emp2/client/termlib.c,v 1.1 1994/11/30 22:51:52 empire Exp $"; #endif /* not lint */ /* * termlib.c * * Dave Pare, 1986 */ #include #include #include "misc.h" s_char *SO; s_char *SE; parsedelay(r) s_char *r; { s_char *s, *t; s = r; while (isdigit(*s) || (*s == '*') || (*s == '.')) { s++; } for (t = r; *s != 0; (s++, t++)) { *t = *s; } *t = 0; } int getsose() { extern s_char *getenv(); extern s_char *tgetstr(); static s_char tbuf[1024]; static s_char cbuf[20]; s_char *cp; s_char *term; term = getenv("TERM"); if (term == 0) { fprintf(stderr, "warning: no TERM environment variable\n"); return; } tgetent(tbuf, term); cp = cbuf; SO = tgetstr("so", &cp); SE = tgetstr("se", &cp); if (SO == 0) { SO = tgetstr("us", &cp); SE = tgetstr("ue", &cp); } if (SO != 0) { parsedelay(SO); parsedelay(SE); } } client/bit.h100640 2123 322 1510 6013030757 12600 0ustar childrenpstaff /* * bit.h * * since every operating system seems to have its very own way * of dealing with variable-sized bit fields, why not us too? * * $Revision: 1.1 $ $Date: 1994/11/30 22:53:32 $ */ typedef unsigned int bit_mask; typedef bit_mask *bit_fdmask; #ifndef bit #define bit(x) (1 << (x)) #endif /* * File descriptor bit manipulation macros for use with select(2) */ #define BIT_NBBY 8 #define BIT_BITSPERMASK (sizeof(bit_mask) * BIT_NBBY) #define BIT_SETB(a,b) \ ((b)[(a)/BIT_BITSPERMASK] |= 1 << ((a) % BIT_BITSPERMASK)) #define BIT_CLRB(a,b) \ ((b)[(a)/BIT_BITSPERMASK] &= ~(1<< ((a) % BIT_BITSPERMASK))) #define BIT_ISSETB(a,b) \ ((b)[(a)/BIT_BITSPERMASK] & (1<< ((a) % BIT_BITSPERMASK))) #define BIT_ISCLRB(a,b) \ (((b)[(a)/BIT_BITSPERMASK] & (1<<((a) % BIT_BITSPERMASK))) == 0) extern bit_fdmask bit_newfdmask(); client/fnlist.h100640 2123 322 230 6013030766 13277 0ustar childrenpstaff/* * fnlist.h * * Dave Pare, 1986 * * $Revision: 1.1 $ $Date: 1994/11/30 22:53:32 $ */ struct fn { int (*func)(); s_char *name; int value; }; client/ioqueue.h100640 2123 322 1047 6013031005 13466 0ustar childrenpstaff/* * ioqueue.h * * stores and frees data associated with a file descriptor. * uses writev to write, and read to read. * * $Revision: 1.1 $ $Date: 1994/11/30 22:53:32 $ */ #define MAXIOV 16 struct ioqueue { struct qelem queue; /* queue fwd/back */ int bsize; /* basic block size */ int cc; /* character count */ }; struct io { struct qelem queue; /* list of ioqueue elements */ int nbytes; /* number of data bytes present */ int offset; /* offset into current entry */ s_char *data; /* pointer to start */ }; char *ioq_gets(); client/misc.h100640 2123 322 4350 6013032303 12747 0ustar childrenpstaff/* * misc.h * * defines which don't really belong anywhere, * but have to go somewhere! * * $Revision: 1.1 $ $Date: 1994/11/30 22:53:32 $ */ #include #include #include #ifdef hpux #include #else #include #endif #define MAXNOC 100 #define WORLD_X 32 #define WORLD_Y 16 #define ETUS 60 /* Defined here.. may be overridden later, but things still use this define */ typedef u_char natid; /* also change NSC_NATID in nsc.h */ #if !defined(aix) && !defined(sgi) #ifndef ultrix /* already defined in ultrix */ typedef char s_char; /* change to signed char for aix */ #endif ultrix #else typedef signed char s_char; #endif /* !aix && !sgi */ typedef short coord; /* also change NSC_COORD in nsc.h */ /* * watch it; your compiler might not like this. * If you think this is bogus, look at /usr/include/struct.h */ #define OFFSET(stype, oset) ((int)(&(((struct stype *)0)->oset))) #define SETOFF(sinst, oset) ((s_char *) (sinst) + (oset)) #ifndef bit #define bit(x) (1<<(x)) #endif #define minutes(x) (60*(x)) #define hours(x) (60*60*(x)) #define days(x) (60*60*24*(x)) typedef void (*voidfunc)(); /* return codes from command routines */ #define RET_OK 0 /* command completed sucessfully */ #define RET_FAIL 1 /* command completed unsucessfully [?] */ #define RET_SYN 2 /* syntax error in command */ #define RET_SYS 3 /* system error (missing file, etc) */ #define MAX_DISTPATH_LEN 10 /* Has to go somewhere */ /* * references to library functions which aren't related to any * particular object, and are of general interest */ extern long random(); extern double dmax(); extern double dmin(); extern s_char *fmt(); extern s_char *copy(); extern s_char *numstr(); extern s_char *esplur(); extern s_char *splur(); extern s_char *iesplur(); extern s_char *plur(); extern s_char *getstarg(); extern s_char *getstring(); /* * frequently used libc functions */ extern s_char *malloc(); extern s_char *calloc(); #if (!defined (aix) && !defined (sgi)) extern s_char *ctime(); extern s_char *strncpy(); extern s_char *strcpy(); #ifndef NeXT extern s_char *index(); extern s_char *rindex(); #endif /* NeXT */ #endif /* !aix && !sgi*/ extern time_t time(); extern double atof(); client/proto.h100640 2123 322 1605 6013031013 13154 0ustar childrenpstaff/* * proto.h * * The master copy of this is in the standard include directory. * A copy is placed in the client directory to allow client * to be compiled independently of the rest of the game. * * Dave Pare, 1986 * $Revision: 2.2 $ $Date: 1995/07/07 17:15:44 $ */ #define CLIENTPROTO 2 /* if new things are added, bump this */ #define USER 0 #define COUN 1 #define QUIT 2 #define PASS 3 #define PLAY 4 #define LIST 5 #define CMD 6 #define CTLD 7 #define WAT 8 #define KILL 9 #define GKILL 10 /* kill even if process stuck --ts */ #define C_CMDOK 0x0 #define C_DATA 0x1 #define C_INIT 0x2 #define C_EXIT 0x3 #define C_FLUSH 0x4 #define C_NOECHO 0x5 #define C_PROMPT 0x6 #define C_ABORT 0x7 #define C_REDIR 0x8 #define C_PIPE 0x9 #define C_CMDERR 0xA #define C_BADCMD 0xB #define C_EXECUTE 0xC #define C_FLASH 0xD #define C_INFORM 0xE #define C_LAST 0xE client/queue.h100640 2123 322 336 6013031015 13117 0ustar childrenpstaff/* * queue.h * * generic vax-like doubly-linked list queues. * */ #ifndef _QUEUE #define _QUEUE #define QEMPTY(p) ((p)->q_forw == (p)) struct qelem { struct qelem *q_forw; struct qelem *q_back; }; #endif _QUEUE client/empire.6100600 2123 322 4113 6013031672 13214 0ustar childrenpstaff.TH EMPIRE 6 "12 Aug 1995" "empire Version 2.26" .UC .SH NAME empire \- Empire server .SH SYNOPSIS .B empire [ .IR country [ .IR password ] ] [ .BI \-k ] [ .BI \-2 outfile ] .br .SH DESCRIPTION .I empire is a bare bones client to connect to the Empire server. Empire is a global economic/political/military simulation game wherein players, representing national governments, make "real-time" decisions concerning resource allocation, national goals, international diplomatic efforts, etc. Extensive records are kept for all players. .PP WARNING -- This game is not only addictive but often peels back the thin veneer of civilization that hides the maniac within. .SH OPTIONS .TP .IR country the name of your country in the game .TP .IR password the password for your country in the game .TP .BI \-k if someone else is connected to your country, kill their connection .TP .BI \-2 outfile redirect output to .I outfile .SH ENVIRONMENT VARIABLES setenv EMPIREHOST server-machine to access the game on server-machine. .PP setenv EMPIREPORT port-number to access the game on port-number. (the person running the game should tell you what this is... if not, you should have the right default already.) .PP setenv COUNTRY country-name (optional) .PP setenv PLAYER representative-name (optional) .SH AUTHORS .nf Chris Metcalf (metcalf-christopher@yale.arpa) Chuck Musciano (chuck@trantor.harris-atd.com) Dave Muir Sharnoff (muir@cogsci.berkeley.edu) Dave Pare (mr-frog@scam.berkeley.edu) James Anderson (jwa@k.cs.cmu.edu) Jeff Anton (anton@postgres.berkeley.edu) Jeff Okamoto (okamoto%hpccc@hplabs.hp.com) Jeff Wallace (jeffw@scam.berkeley.edu) Jim Reuter (reuter@decwrl.dec.com) Julian Onions (jpo@computer-science.nottingham.ac.uk) Keith Muller (muller@sdcc7.ucsd.edu) Kurt Pires (kjpires@ic.berkeley.edu) Lewis R. Jansen (lrj@helios.tn.cornell.edu) Mike St. Johns (stjohns@edn-vax.arpa) Nick Lai (lai@cs.ucla.edu) Peter S. Langston (psl@yquem.bellcore.com) Peter Vukovich (peterv@monet.berkeley.edu) Phill Everson (everson@compsci.bristol.ac.uk) Shelley Louie (slouie@cory.berekely.edu) Steven Grimm (koreth@ucscb.UCSC.EDU) client/Makefile100644 2123 322 1431 4510642516 13321 0ustar childrenpstaff# # Empire front end Makefile # (standalone mode) # CFILES = bit.c dtable.c expect.c globals.c handle.c host.c \ hpux.c ioqueue.c login.c main.c queue.c saveargv.c \ servercmd.c serverio.c termio.c termlib.c OFILES = bit.o dtable.o expect.o globals.o handle.o host.o \ hpux.o ioqueue.o login.o main.o queue.o saveargv.o \ servercmd.o serverio.o termio.o termlib.o CFLAGS= -g empire: $(OFILES) cc $(CFLAGS) -o empire $(OFILES) -ltermlib saber: #load $(CFLAGS) $(CFILES) clean: rm -f $(OFILES) empire # created using mkmf bit.o: bit.h expect.o: fnlist.h globals.o: fnlist.h proto.h ioqueue.o: queue.h ioqueue.h login.o: misc.h proto.h main.o: misc.h proto.h queue.h ioqueue.h bit.h queue.o: queue.h servercmd.o: misc.h proto.h queue.h ioqueue.h serverio.o: misc.h queue.h ioqueue.h client/README100660 2123 322 431 6013031677 12516 0ustar childrenpstaff Empire 2.5 This is the empire client for Empire2.5 To make the program, edit globals.c and change empirehost[] to point at the machine where the game is running. Type "make". You can change hosts on-the-fly by using environment variables -- see the man page for details. client/h.h100600 2123 322 25 6013030771 12201 0ustar childrenpstafftypedef char s_char;