Usenet 1994 October

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume16 / ecu3 / part12 < prev next >

Wrap

Internet Message Format | 1991-01-06 | 56KB

From: wht@n4hgf.uucp (Warren Tucker) Newsgroups: comp.sources.misc Subject: v16i036: ECU async comm package rev 3.0, Part12/35 Message-ID: <1991Jan6.052118.27856@sparky.IMD.Sterling.COM> Date: 6 Jan 91 05:21:18 GMT Approved: kent@sparky.imd.sterling.com X-Checksum-Snefru: d1576de0 80df6b3b 9fc37ca9 d9aa5c26 Submitted-by: wht@n4hgf.uucp (Warren Tucker) Posting-number: Volume 16, Issue 36 Archive-name: ecu3/part12 ---- Cut Here and feed the following to sh ---- #!/bin/sh # This is part 12 of ecu3 if touch 2>&1 | fgrep 'amc' > /dev/null then TOUCH=touch else TOUCH=true fi # ============= hdbintf.c ============== echo 'x - extracting hdbintf.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'hdbintf.c' && X#if defined(SHARE_DEBUG) X#define LOG_UNGETTY X#define LOG_HDBDIAL X#endif X/*+------------------------------------------------------------------------- X hdbintf.c - HDB UUCP database and /etc/utmp interface routines X wht@n4hgf.Mt-Park.GA.US X X Defined functions: X dialstr_translate(translate_list,to_translate) X enddlent() X enddvent() X getdlent() X getdlentname(name) X getdvbaud(baud) X getdvent() X getdvline(line) X hdb_dial(presult) X hdb_dial_error_text(errcode) X hdb_init() X ungetty_get_line() X ungetty_return_line() X X--------------------------------------------------------------------------*/ X/*+:EDITS:*/ X/*:10-16-1990-20:43-wht@n4hgf-add SHARE_DEBUG */ X/*:09-19-1990-19:36-wht@n4hgf-ecu_log_event now gets pid for log from caller */ X/*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */ X X#include "ecu.h" X#include "esd.h" X#include "var.h" X#include "ecuhangup.h" X#include "utmpstatus.h" X#include "ecuungetty.h" X#include "dvent.h" X#include "dlent.h" X#include "dialprog.h" X#include <errno.h> X#include <utmp.h> X Xchar *arg_token(); Xchar *skip_ld_break(); X Xextern int errno; Xextern char kbdintr; /* current input INTR */ Xextern int interrupt; Xextern ulong colors_current; Xextern char *sys_errlist[]; Xextern int proc_level; Xextern int proctrace; X Xint there_is_hdb_on_this_machine = 0; XFILE *fpdv = NULL; XFILE *fpdl = NULL; Xchar *Devices_file = "/usr/lib/uucp/Devices"; Xchar *Dialers_file = "/usr/lib/uucp/Dialers"; Xchar *ungetty = (char *)0; Xchar ungetty_executable[128]; Xchar ungetty_ttyname[64] = ""; X X/*+------------------------------------------------------------------------- X ungetty_get_line() X--------------------------------------------------------------------------*/ Xungetty_get_line() X{ Xint itmp; Xchar ungetty_log[80]; Xint ungetty_pid; Xint (*original_sighdlr)(); Xint wait_status; Xchar bamboozlement[20]; Xchar *bamboozle(); X X if(!there_is_hdb_on_this_machine) X return(LOPEN_ENABLED); X X if(!ungetty) X { X sprintf(ungetty_executable,"%s/ecuungetty",ECULIBDIR); X ungetty = ungetty_executable; X } X X strcpy(bamboozlement,bamboozle(getpid())); X if(access(ungetty,1)) X { X pperror(ungetty); X return(LOPEN_ENABLED); X } X original_sighdlr = signal(SIGCLD,SIG_DFL); X if((ungetty_pid = smart_fork()) == 0) X { X execl(ungetty,"ungetty",shm->Lline,bamboozlement,(char *)0); X exit(-1); X } X while(((itmp = wait(&wait_status)) != ungetty_pid) && (itmp != -1)) X ; X signal(SIGCLD,original_sighdlr); X switch((wait_status >> 8) & 0xFF) X { X case UG_NOTENAB: /* line acquired: not enabled */ X ungetty_ttyname[0] = 0; X break; X X case UG_ENAB: /* line acquired: need ungetty -r when done */ X#if defined(LOG_UNGETTY) X sprintf(ungetty_log,"UNGETTY acquired %s",shm->Lline); X ecu_log_event(getpid(),ungetty_log); X#endif X strcpy(ungetty_ttyname,shm->Lline); X break; X X case UG_FAIL: /* line in use */ X ungetty_ttyname[0] = 0; X return(LOPEN_ENABLED_IN_USE); X X default: X#if defined(LOG_UNGETTY) X sprintf(ungetty_log,"UNGETTY status 0x%04x",wait_status); X ecu_log_event(getpid(),ungetty_log); X#endif X ungetty_ttyname[0] = 0; X return(LOPEN_ENABLED); X } X X return(0); X X} /* end of ungetty_get_line */ X X/*+------------------------------------------------------------------------- X ungetty_return_line() X--------------------------------------------------------------------------*/ Xvoid Xungetty_return_line() X{ Xint ungetty_pid; Xint itmp; Xint (*original_sighdlr)(); Xint wait_status = 0xDEAD; X#if defined(LOG_UNGETTY) Xchar ungetty_log[80]; X#endif Xchar bamboozlement[20]; Xchar *bamboozle(); X X if(!there_is_hdb_on_this_machine) X return; X if(!ungetty_ttyname[0]) X return; X X strcpy(bamboozlement,bamboozle(getpid())); X X /* call ungetty to see if we need to switch to dialin */ X if(access(ungetty,1)) X { X pperror(ungetty); X return; X } X original_sighdlr = signal(SIGCLD,SIG_DFL); X if((ungetty_pid = smart_fork()) == 0) X { X execl(ungetty,"ungetty","-t",ungetty_ttyname,bamboozlement,(char *)0); X ecu_log_event(getpid(),"could not exec ecuungetty -t"); X exit(-1); X } X while(((itmp = wait(&wait_status)) != ungetty_pid) && X (itmp != -1) ) X ; X signal(SIGCLD,original_sighdlr); X switch((wait_status >> 8) & 0xFF) X { X case UG_RESTART: X break; X X default: X#if defined(LOG_UNGETTY) X sprintf(ungetty_log,"UNGETTY -t %s status %04x", X ungetty_ttyname,wait_status); X ecu_log_event(getpid(),ungetty_log); X#endif X ungetty_ttyname[0] = 0; X return; X } X X strcpy(bamboozlement,bamboozle(getpid())); X X original_sighdlr = signal(SIGCLD,SIG_DFL); X if((ungetty_pid = smart_fork()) == 0) X { X execl(ungetty,"ungetty","-r",ungetty_ttyname,bamboozlement,(char *)0); X ecu_log_event(getpid(),"could not exec ecuungetty -r"); X exit(-1); X } X X while(((itmp = wait(&wait_status)) != ungetty_pid) && X (itmp != -1)) X ; X X#if defined(LOG_UNGETTY) X if(wait_status) X { X sprintf(ungetty_log,"UNGETTY -r %s status 0x%04x", X ungetty_ttyname,wait_status); X } X else X sprintf(ungetty_log,"UNGETTY returned %s",ungetty_ttyname); X ecu_log_event(getpid(),ungetty_log); X#endif X X ungetty_ttyname[0] = 0; X X} /* end of ungetty_return_line */ X X/*+------------------------------------------------------------------------- X getdvent() - get first or next Devices entry (a la getpwent) X--------------------------------------------------------------------------*/ Xstruct dvent * Xgetdvent() X{ Xint itmp; Xchar *cptr; X#define MAX_DV_TOKENS 9 Xchar *tokens[MAX_DV_TOKENS]; Xstatic struct dvent dve; Xstatic char dvstr[128]; Xchar *strchr(); X X if(!there_is_hdb_on_this_machine) X return((struct dvent *)0); X X if(fpdv == NULL) X { X if((fpdv = fopen(Devices_file,"r")) == NULL) X { X pperror(Devices_file); X return((struct dvent *)0); X } X } X X while(1) X { X if(fgets(dvstr,sizeof(dvstr),fpdv) == NULL) X return((struct dvent *)0); X X if((dvstr[0] == '#') || (dvstr[0] == ' ') || (strlen(dvstr) == 1)) X continue; X X build_arg_array(dvstr,tokens,MAX_DV_TOKENS,&itmp); X X if(itmp > 1) X break; X } X X dve.type = tokens[0]; X dve.line = tokens[1]; X dve.dialer = tokens[2]; X if(!strcmp(tokens[3],"Any")) X { X dve.low_baud = 1; X dve.high_baud = 100000L; X } X else X { X dve.low_baud = atoi(tokens[3]); X if(!(cptr = strchr(tokens[3],'-'))) X dve.high_baud = dve.low_baud; X else X dve.high_baud = atoi(cptr + 1); X } X dve.dialprog = tokens[4]; X return(&dve); X X} /* end of getdvent */ X X/*+------------------------------------------------------------------------- X getdvbaud(baud) - get Devices entry matching baud rate X--------------------------------------------------------------------------*/ Xstruct dvent * Xgetdvbaud(baud) Xuint baud; X{ Xstruct dvent *dve; X X while(1) X { X if((dve = getdvent()) == (struct dvent *)0) X return(dve); X if((dve->low_baud <= baud) && (baud <= dve->high_baud)) X return(dve); X } X /*NOTREACHED*/ X X} /* end of getdvbaud */ X X/*+------------------------------------------------------------------------- X getdvline(line) - get Devices entry matching line Xcalling argument 'line's is string AFTER "/dev/tty" X--------------------------------------------------------------------------*/ Xstruct dvent * Xgetdvline(line) Xchar *line; X{ Xstruct dvent *dve; X X while(1) X { X if((dve = getdvent()) == (struct dvent *)0) X return(dve); X if(!strcmp(dve->line + 3,line)) X return(dve); X } X /*NOTREACHED*/ X X} /* end of getdvline */ X X/*+------------------------------------------------------------------------- X enddvent() X--------------------------------------------------------------------------*/ Xvoid Xenddvent() X{ X if(fpdv != NULL) X { X fclose(fpdv); X fpdv = NULL; X } X} /* end of enddvent */ X X/*+------------------------------------------------------------------------- X dialstr_translate(translate_list,to_translate) - translate dial strings X--------------------------------------------------------------------------*/ Xvoid Xdialstr_translate(translate_list,to_translate) Xregister char *translate_list; Xchar *to_translate; X{ X register char *cptr; X X while(*translate_list && *(translate_list + 1)) X { X for(cptr=to_translate; *cptr; cptr++) X { X if(*translate_list == *cptr) X *cptr = *(translate_list + 1); X } X translate_list += 2; X } X} /* end of dialstr_translate */ X X/*+------------------------------------------------------------------------- X getdlent() - get first or next Dialers entry (a la getpwent) X--------------------------------------------------------------------------*/ Xstruct dlent * Xgetdlent() X{ Xint itmp; Xchar *cptr; X#define MAX_DL_TOKENS 3 Xchar *tokens[MAX_DL_TOKENS]; Xstatic struct dlent dle; Xstatic char dlstr[128]; Xchar *strchr(); X X if(!there_is_hdb_on_this_machine) X return((struct dlent *)0); X X if(fpdl == NULL) X { X if((fpdl = fopen(Dialers_file,"r")) == NULL) X { X pperror(Dialers_file); X return((struct dlent *)0); X } X } X X while(1) X { X if(fgets(dlstr,sizeof(dlstr),fpdl) == NULL) X return((struct dlent *)0); X if(((itmp = strlen(dlstr)) > 0) && (dlstr[itmp - 1] == '\n')) X dlstr[--itmp] = 0; X if((dlstr[0] == '#') || (dlstr[0] == ' ') || (!itmp)) X continue; X for(itmp = 0; itmp < MAX_DL_TOKENS; itmp++) X tokens[itmp] = ""; X if(tokens[0] = arg_token(dlstr," \t\r\n")) X { X if(tokens[1] = arg_token((char *)0," \t\r\n")) X { X extern char *str_token_static; X tokens[2] = skip_ld_break(str_token_static); X } X } X break; X } X X dle.name = tokens[0]; X dle.tlate = tokens[1]; X dle.script = tokens[2]; X return(&dle); X X} /* end of getdlent */ X X/*+------------------------------------------------------------------------- X enddlent() X--------------------------------------------------------------------------*/ Xvoid Xenddlent() X{ X if(fpdl != NULL) X { X fclose(fpdl); X fpdl = NULL; X } X} /* end of enddlent */ X X/*+------------------------------------------------------------------------- X getdlentname(name) - get Dialers entry by name X--------------------------------------------------------------------------*/ Xstruct dlent * Xgetdlentname(name) Xchar *name; X{ Xregister struct dlent *tdle; X X while(tdle = getdlent()) X { X if(!strcmp(name,tdle->name)) X break; X } X return(tdle); X X} /* end of getdlentname */ X X/*+------------------------------------------------------------------------- X hdb_dial_error(errcode) X Xalso sets iv[0] to dial command status X--------------------------------------------------------------------------*/ Xchar * Xhdb_dial_error_text(errcode) Xint errcode; X{ X X iv[0] = 1; X switch(errcode & 0x7F) X { X case RCE_INUSE: X return("!Line in use"); X case RCE_SIG: X iv[0] = 2; X return("!Interrupted"); X case RCE_ARGS: X return("!Invalid arguments"); X case RCE_PHNO: X return("!Invalid phone number"); X case RCE_SPEED: X return("!Bad baud rate"); X case RCE_OPEN: X return("!Line open error"); X case RCE_IOCTL: X return("!Ioctl error"); X case RCE_TIMOUT: X iv[0] = 3; X return("!Modem Error"); X case RCE_NOTONE: X return("NO DIAL TONE"); X case RCE_BUSY: X return("BUSY"); X case RCE_NOCARR: X return("NO CARRIER"); X case RCE_ANSWER: X return("NO ANSWER"); X default: X X case RCE_NULL: X return("unknown error\n"); X } X} /* end of hdb_dial_error */ X X/*+------------------------------------------------------------------------- X hdb_dial(presult) - dial with uucp dialer if we can X Xreturn 0 if connected X 1 if dial failed X 2 if interrupted X 3 if modem error X 4 if use ecu DCE dialer X--------------------------------------------------------------------------*/ Xint Xhdb_dial(presult) Xchar **presult; X{ Xint itmp; Xint dial_pid; Xint wait_status; Xint old_ttymode = get_ttymode(); Xint (*original_sighdlr)(); Xstruct dvent *dve; Xstruct dlent *dle = (struct dlent *)0; Xchar baudstr[10]; Xchar dial_log[100]; Xchar stripped_num[64]; Xchar *sptr; Xchar *dptr; Xstatic char stat_s20[20]; Xulong colors_at_entry = colors_current; Xextern char *make_char_graphic(); X#ifdef WHT /* hack for immediate need ... make a real feature later */ XFILE *fp; Xchar credit_file[128]; X#endif X X if(!there_is_hdb_on_this_machine) X return(4); X X strcpy(dial_log,shm->Lline + 8); X sptr = dial_log + strlen(dial_log) - 1; X *sptr = to_upper(*sptr); X dve = getdvline(dial_log); X enddvent(); X if(!dve) X { X pputs("no Devices entry for line ... using ecu dialer\n"); X return(4); X } X X dial_log[0] = 0; X if(*dve->dialprog != '/') X { X dle = getdlentname(dve->dialprog); X enddlent(); X if(!dle) X { X sprintf(dial_log, X "UUCPDIAL Devices entry %s: '%s' not found in Dialers", X shm->Lline + 5,dve->dialprog); X } X } X else if(access(dve->dialprog,1)) X { X sprintf(dial_log,"UUCPDIAL Devices entry %s: (%s) %s", X shm->Lline + 5,dve->dialprog,sys_errlist[errno]); X } X X if(dial_log[0]) X { X#if defined(LOG_HDBDIAL) X ecu_log_event(getpid(),dial_log); X#endif X pputs(dial_log + 9); X pputs("\ntrying ecu dialer\n"); X return(4); X } X X sptr = shm->Ltelno; X dptr = stripped_num; X while(*sptr) X { X if(strchr("()-",*sptr)) X { X sptr++; X continue; X } X *dptr++ = *sptr++; X } X *dptr = 0; X X#ifdef WHT /* hack for immediate need ... make a real feature later */ X if(*(dptr - 1) == '$') X { X *--dptr = 0; X get_home_dir(credit_file); X strcat(credit_file,"/.ecu/.credit"); X chmod(credit_file,0400); /* let's keep this one quiet */ X if(fp = fopen(credit_file,"r")) X { X *dptr++ = ','; X *dptr++ = ','; X *dptr++ = ','; X *dptr++ = ','; X *dptr = 0; X fgets(dptr,30,fp); X fclose(fp); X } X if(!fp || !(*dptr)) X { X pprintf("credit card error\n"); X iv[0] = 1; X return(1); X } X *(dptr + strlen(dptr) - 1) = 0; /* kill NL */ X } X#endif /* WHT */ X X pprintf("Type %s to abort ... ", X (kbdintr == 0x7F) ? "DEL" : make_char_graphic(kbdintr,0)); X ttymode(2); X X if(!dle) X { X if(access(dve->dialprog,1)) X { X pperror(ungetty); X pputs("trying ecu dialer\n"); X return(4); X } X sprintf(baudstr,"%u",shm->Lbaud); X original_sighdlr = signal(SIGCLD,SIG_DFL); X if((dial_pid = smart_fork()) == 0) X { X signal(SIGINT,SIG_DFL); X execl(dve->dialprog,"ECUdial",shm->Lline,stripped_num, X baudstr,(char *)0); X exit(-1); X } X X wait_status = (RC_FAIL | RCE_SIG) << 8; X while(((itmp = wait(&wait_status)) != dial_pid) && (itmp != -1)) X ; X signal(SIGCLD,original_sighdlr); X ttymode(old_ttymode); X ttyflush(1); X X if(interrupt) X { X kill(dial_pid,9); X ltoggle_dtr(); X interrupt = 0; /* in case of SIGINT by user */ X } X lreset_ksr(); /* uucp dialers are nice guys, but lets use our termio */ X X#if defined(LOG_HDBDIAL) X if(wait_status) X { X sprintf(dial_log,"UUCPDIAL %s %s 0x%04x", X dve->dialprog,stripped_num,wait_status); X ecu_log_event(getpid(),dial_log); X } X#endif X X /* X * if system reports interrupt, fake dial-reported status X */ X if(wait_status & 0xFF) X wait_status = (RC_FAIL | RCE_SIG) << 8; X X if(!wait_status) X { X sprintf(stat_s20,"CONNECT %u",shm->Lbaud); X *presult = stat_s20; /* DCE_dial will report result code */ X return(0); X } X X if((wait_status & 0xFF00) == 0xFF00) X { X pputs("uucp dial failure (see ~/.ecu/log) ... trying ecu dialer\n"); X return(4); X } X *presult = hdb_dial_error_text((wait_status >> 8) & 0xFF); X setcolor(colors_error); X pputs(*presult); X setcolor(colors_at_entry); X pputc('\n'); X ltoggle_dtr(); X } X else X { X extern int expresp_verbosity; X pprintf("using Dialers entry '%s'\n",dle->name); X expresp_verbosity = (proc_level & proctrace) ? 1 : 0; X if(execute_expresp(dle->script)) X { X *presult = "DIALER SCRIPT FAILED"; X setcolor(colors_error); X pputs(*presult); X setcolor(colors_at_entry); X pputc('\n'); X iv[0] = 1; X } X else X { X extern char last_Speed_result[]; X if(last_Speed_result[0]) X *presult = last_Speed_result; X else X { X sprintf(stat_s20,"CONNECT %u",shm->Lbaud); X *presult = stat_s20; /* DCE_dial will report result code */ X } X setcolor(colors_at_entry); X iv[0] = 0; X } X } X X return((int)iv[0]); X X} /* end of hdb_dial */ X X/*+------------------------------------------------------------------------- X hdb_init() X--------------------------------------------------------------------------*/ Xvoid Xhdb_init() X{ X there_is_hdb_on_this_machine = !access(Devices_file,4); X X} /* end of hdb_init */ X X/* vi: set tabstop=4 shiftwidth=4: */ X/* end of hdbintf.c */ SHAR_EOF $TOUCH -am 1224223990 'hdbintf.c' && chmod 0644 hdbintf.c || echo 'restore of hdbintf.c failed' Wc_c="`wc -c < 'hdbintf.c'`" test 15942 -eq "$Wc_c" || echo 'hdbintf.c: original size 15942, current size' "$Wc_c" # ============= kbdtest.c ============== echo 'x - extracting kbdtest.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'kbdtest.c' && X/*+----------------------------------------------------------------------- X kbdtest.c -- hack to test keyboard function key sequences X wht@n4hgf.Mt-Park.GA.US X X compile with cc -o kbdtest kbdtest.c X or just cc kbdtest.c;a.out X------------------------------------------------------------------------*/ X/*+:EDITS:*/ X/*:12-21-1990-23:47-wht@n4hgf-liven up for release with ECU 3 */ X/*:04-07-1990-01:36-wht@tridom-bring out of the daaaaark ages a bit */ X/*:04-18-1988-13:44-wht-first edits -- oollldd program */ X X#include <stdio.h> X#include <signal.h> X#include <ctype.h> X#include <fcntl.h> X#include <termio.h> X#include <sys/types.h> X#include <sys/errno.h> X#include <sys/stat.h> X#include <string.h> X X#define ff fprintf X#define se stderr X X#define TTYIN 0 X#define TTYOUT 1 X#define TTYERR 2 X Xstruct termio tv0; /* for saving, changing TTY atributes */ Xstruct termio tv; /* for saving, changing TTY atributes */ X X/*+----------------------------------------------------------------------- X ttymode(arg) -- control user console (kbd/screen) X X Where arg == X 0 restore attributes saved at start of execution X 1 raw mode X X------------------------------------------------------------------------*/ Xvoid ttymode(arg) X{ X char *mode_type; X X switch(arg) X { X case 0: X mode_type = "console to cooked mode\r\n"; X break; X default: X mode_type = "console to raw mode\r\n"; X break; X } X (void)fprintf(stderr,mode_type); X X if(arg) X { X (void)ioctl(TTYIN,TCGETA,&tv); X tv.c_iflag &= ~(INLCR | ICRNL | IGNCR | IXOFF | IUCLC | ISTRIP); X tv.c_oflag |= OPOST; X tv.c_oflag &= ~(OLCUC | ONLCR | OCRNL | ONOCR | ONLRET); X tv.c_lflag &= ~(ICANON | ISIG | ECHO); X tv.c_cc[VEOF] = '\01'; X tv.c_cc[VEOL] = '\0'; X tv.c_cc[VMIN] = 1; X tv.c_cc[VTIME] = 1; X (void)ioctl(TTYIN,TCSETAW,&tv); X } X else X (void)ioctl(TTYIN,TCSETAW,&tv0); X} X X X/*+----------------------------------------------------------------------- X main() X------------------------------------------------------------------------*/ Xmain(argc,argv) Xint argc; Xchar **argv; X{ Xunsigned char inchar; X X setbuf(stdout,NULL); X setbuf(stderr,NULL); X X ioctl(TTYIN,TCGETA,&tv0); /* get original status */ X ttymode(2); X X fprintf(stderr,"press ^D (0x04) to terminate program\r\n"); X X while(read(TTYIN,&inchar,1) == 1) X { X printf("%02x %c\r\n",inchar, X ((inchar >= 0x20) && (inchar < 0x7F)) ? inchar : '.'); X if((inchar & 0x7F) == 4) X { X ttymode(0); X exit(0); X } X } X ttymode(0); X exit(1); X X} X X/* vi: set tabstop=4 shiftwidth=4: */ X/* end of kbdtest.c */ SHAR_EOF $TOUCH -am 1224223990 'kbdtest.c' && chmod 0664 kbdtest.c || echo 'restore of kbdtest.c failed' Wc_c="`wc -c < 'kbdtest.c'`" test 2521 -eq "$Wc_c" || echo 'kbdtest.c: original size 2521, current size' "$Wc_c" # ============= logevent.c ============== echo 'x - extracting logevent.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'logevent.c' && X/*+------------------------------------------------------------------------- X logevent.c - log ecu event X wht@n4hgf.Mt-Park.GA.US X--------------------------------------------------------------------------*/ X/*+:EDITS:*/ X/*:09-19-1990-19:36-wht@n4hgf-ecu_log_event now gets pid for log from caller */ X/*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */ X X#include <stdio.h> X#include <sys/locking.h> X#include "stdio_lint.h" X#include "lint_args.h" X X/*+------------------------------------------------------------------------- X ecu_log_event(pid,event_note) X--------------------------------------------------------------------------*/ Xvoid Xecu_log_event(pid,event_note) Xint pid; Xchar *event_note; X{ Xchar tstr256[256]; XFILE *ecu_log_fp; Xstatic char logname[128] = ""; X X if(!logname[0]) X { X get_home_dir(tstr256); X strcat(tstr256,"/.ecu/log"); X } X if((ecu_log_fp = fopen(tstr256,"a")) != NULL) X { X locking(fileno(ecu_log_fp),LK_LOCK,0L); X get_tod(2,tstr256); X tstr256[10] = '-'; X fputs(tstr256,ecu_log_fp); X fprintf(ecu_log_fp,"-%05d-",pid); X fputs(event_note,ecu_log_fp); X fputs("\n",ecu_log_fp); X fflush(ecu_log_fp); X locking(fileno(ecu_log_fp),LK_UNLCK,0L); X fclose(ecu_log_fp); X } X} /* end of ecu_log_event */ X X X/* vi: set tabstop=4 shiftwidth=4: */ X/* end of logevent.c */ SHAR_EOF $TOUCH -am 1224224090 'logevent.c' && chmod 0644 logevent.c || echo 'restore of logevent.c failed' Wc_c="`wc -c < 'logevent.c'`" test 1295 -eq "$Wc_c" || echo 'logevent.c: original size 1295, current size' "$Wc_c" # ============= nonansikey.c ============== echo 'x - extracting nonansikey.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'nonansikey.c' && X/*+----------------------------------------------------------------- X nonansikey.c - keyboard function key -> ECU internal X wht@n4hgf.Mt-Park.GA.US X X Defined functions: X define_nonansi_key(bufptr) X map_nonansi_key(buf,buflen) X nonansi_key_init() X nonansi_key_read(name) X X------------------------------------------------------------------*/ X/*+:EDITS:*/ X/*:12-01-1990-12:51-wht@n4hgf-creation, borrowing from and using ecufkey.c */ X X#include "ecu.h" X#include "ecukey.h" X#include "ecufkey.h" X#include "ecuxkey.h" X#include "ecufork.h" X Xchar *keyset_idstr(); X Xextern int tty_not_char_special; X XKDE nonansi_key_table[KDE_COUNT]; Xchar nonansi_key_name[32] = ""; X X/*+------------------------------------------------------------------------- X nonansi_key_init() X--------------------------------------------------------------------------*/ Xvoid Xnonansi_key_init() X{ Xregister itmp; Xregister KDE *tkde; Xchar *make_char_graphic(); X X for(itmp = 0; itmp < KDE_COUNT; itmp++) X { X tkde = &nonansi_key_table[itmp]; X tkde->logical[0] = 0; X tkde->count = 0; X tkde->KDEt = (uchar)itmp; X } X X nonansi_key_name[0] = 0; X X} /* end of nonansi_key_init */ X X/*+------------------------------------------------------------------------- X define_nonansi_key(bufptr) X X returns 0 good keydef X -1 if syntax error X--------------------------------------------------------------------------*/ Xint Xdefine_nonansi_key(bufptr) Xregister char *bufptr; X{ Xregister itmp; Xregister token_number; XKDE *tkde; Xint KDEt; Xint done = 0; Xchar token_separator[2]; Xchar *token; Xchar *arg_token(); Xchar *str_token(); Xchar *strip_ld_break(); X X token_number = 0; X strcpy(token_separator,":"); X while(!done && (token = (token_number < 2) ? str_token(bufptr,":") X : arg_token(bufptr," \t"))) X { X bufptr = (char *)0; /* further calls to arg_token need NULL */ X token = skip_ld_break(token); X strip_trail_break(token); X X switch(token_number) X { X case 0: /* first field is key identifier */ X if((KDEt = keyset_idnum(token)) < 0) X { X ff(se," %s is not a legal key identifier\r\n",token); X return(-1); X } X tkde = &nonansi_key_table[KDEt]; X tkde->logical[0] = 0; X tkde->count = 0; X break; X X case 1: /* second field is logical key name */ X if(*token == '#') X goto MISSING_LABEL; X strncpy(tkde->logical,token,sizeof(tkde->logical)); X tkde->logical[sizeof(tkde->logical) - 1] = 0; X strcpy(token_separator," \t"); /* space is tok sep now */ X break; X X case 2: /* third field is first token of sequence */ X if(*token == '#') X goto MISSING_SEQUENCE; X if(((itmp = ascii_to_hex(token)) < 1) || (itmp >= SPACE)) X { /* make sure it is escape */ X ff(se, X" %s: first char in sequence must be in the range 0x01 to 0x1F not '%s'\r\n", X keyset_idstr(KDEt),token); X return(-1); X } X X default: /* third and subsequent to define key */ X if(*token == '#') X done = 1; X if(tkde->count == sizeof(tkde->str)) X { X ff(se," %s: output count too long", X keyset_idstr(KDEt)); X return(-1); X } X if((itmp = ascii_to_hex(token)) < 0) X { X ff(se," %s: '%s' invalid\r\n", X keyset_idstr(KDEt),token); X return(-1); X } X tkde->str[tkde->count] = itmp; X tkde->count++; X break; X } /* end of switch(token_number) */ X X token_number++; X X } /* end while not end of record */ X X switch(token_number) X { X case 0: X ff(se,"define nonansi key logic error\r\n"); X hangup(HANGUP_XMTR_LOGIC_ERROR); X break; X case 1: XMISSING_LABEL: X ff(se,"%s: missing key label\r\n",keyset_idstr(KDEt)); X break; X case 2: XMISSING_SEQUENCE: X ff(se,"%s: missing char sequence\r\n",keyset_idstr(KDEt)); X break; X default: X return(0); X } X X return(-1); /* error */ X X} /* end of define_nonansi_key */ X X/*+------------------------------------------------------------------------- X nonansi_key_read(name) - read key-sequence-to-fkey map from nonansikeys X--------------------------------------------------------------------------*/ Xvoid Xnonansi_key_read(name) Xchar *name; X{ Xregister itmp; Xregister char *cptr; Xchar buf[128]; XFILE *fp_keys; Xint errstat = 0; Xstatic char ecukeys_name[128]; X X nonansi_key_init(); /* clear any previous key defns */ X X if(!ecukeys_name[0]) X { X get_home_dir(ecukeys_name); X strcat(ecukeys_name,"/.ecu/nonansikeys"); X } X X if((fp_keys = fopen(ecukeys_name,"r")) == NULL) X { X ff(se,"%s not found; unable to proceed\r\n",ecukeys_name); X hangup(HANGUP_CONFIG_ERROR); X } X X/* find nonansi_key name */ X errstat = 1; X while((itmp = kde_fgets(buf,sizeof(buf),fp_keys)) != KDEt_EOF) X { X if((itmp == KDEt_COMMENT) || (itmp == KDEt_ENTRY)) X continue; X if(!strcmp(buf,name)) X { X errstat = 0; /* indicate success */ X break; X } X } X if(errstat) X { X ff(se,"terminal type '%s' not found in %s; unable to proceed\r\n", X name,ecukeys_name); X hangup(HANGUP_CONFIG_ERROR); X } X X/* read past any other nonansi_key names matching this set */ X errstat = 1; X while((itmp = kde_fgets(buf,sizeof(buf),fp_keys)) != KDEt_EOF) X { X if(itmp == KDEt_ENTRY) X { X errstat = 0; /* indicate success */ X break; X } X } X if(errstat) X { X ff(se,"terminal type '%s' has null entry in %s; unable to proceed\r\n", X name,ecukeys_name); X hangup(HANGUP_CONFIG_ERROR); X } X X/* we found the definition ... process it */ X errstat = 0; X itmp = KDEt_ENTRY; X do { X if(itmp == KDEt_NAME) X break; X else if(itmp == KDEt_ENTRY) X { X if(define_nonansi_key(buf)) X errstat = 1; X } X } while((itmp = kde_fgets(buf,sizeof(buf),fp_keys)) != KDEt_EOF); X X/* close up shop */ X strncpy(nonansi_key_name,name,sizeof(nonansi_key_name)); X nonansi_key_name[sizeof(nonansi_key_name) - 1] = 0; X fclose(fp_keys); X X if(!nonansi_key_table[KDEk_HOME].count) X { X ff(se,"You MUST have a 'Home' key defined\r\n"); X errstat = 2; X } X if(!nonansi_key_table[KDEk_END].count) X { X ff(se,"You MUST have a 'End' key defined\r\n"); X errstat = 2; X } X if((errstat == 2) || (errstat && tty_not_char_special)) X hangup(HANGUP_CONFIG_ERROR); X X if(errstat) X { X ff(se, X "Warning: key definition syntax errors\r\nContinue anyway (y,n)? "); X if((itmp = ttygetc(0)) == 'Y' || (itmp == 'y')) X { X ff(se,"YES\r\n"); X return; X } X ff(se,"NO\r\n"); X hangup(HANGUP_CONFIG_ERROR); X } X X /*NOTREACHED*/ X X} /* end of nonansi_key_read */ X X/*+------------------------------------------------------------------------- X map_nonansi_key(buf,buflen) - map char sequence to KDEt code X Xreturn KDEt code or 255 if no match X--------------------------------------------------------------------------*/ Xuchar Xmap_nonansi_key(buf,buflen) Xuchar *buf; Xint buflen; X{ Xregister ikde; Xregister KDE *tkde; X X if(!buflen) X return(255); X X for(ikde = 0,tkde = nonansi_key_table; ikde < KDE_COUNT; X ikde++,tkde++) X { X if((tkde->count == buflen) && !memcmp(tkde->str,buf,buflen)) X { X return(tkde->KDEt); X } X } X return(255); X} /* end of map_nonansi_key */ X X/* end of nonansikey.c */ X/* vi: set tabstop=4 shiftwidth=4: */ SHAR_EOF $TOUCH -am 1224224090 'nonansikey.c' && chmod 0644 nonansikey.c || echo 'restore of nonansikey.c failed' Wc_c="`wc -c < 'nonansikey.c'`" test 6955 -eq "$Wc_c" || echo 'nonansikey.c: original size 6955, current size' "$Wc_c" # ============= pcmd.c ============== echo 'x - extracting pcmd.c (Text)' sed 's/^X//' << 'SHAR_EOF' > 'pcmd.c' && X/*+------------------------------------------------------------------------- X pcmd.c - ecu miscellaneous procedure commands X wht@n4hgf.Mt-Park.GA.US X X Defined functions: X pcmd_baud(param) X pcmd_cd(param) X pcmd_clrx(param) X pcmd_dial(param) X pcmd_duplex(param) X pcmd_echo(param) X pcmd_exit(param) X pcmd_flush(param) X pcmd_hangup(param) X pcmd_hexdump(param) X pcmd_lbreak(param) X pcmd_lgets(param) X pcmd_logevent(param) X pcmd_lookfor(param) X pcmd_nap(param) X pcmd_parity(param) X pcmd_prompt(param) X pcmd_ptrace(param) X pcmd_rtscts(param) X pcmd_send(param) X pcmd_set(param) X pcmd_system(param) X pcmd_xon(param) X X--------------------------------------------------------------------------*/ X/*+:EDITS:*/ X/*:12-26-1990-02:34-wht@n4hgf-add cmd_rtscts */ X/*:12-03-1990-04:59-wht@n4hgf-beef up pcmd_exit */ X/*:09-19-1990-19:36-wht@n4hgf-ecu_log_event now gets pid for log from caller */ X/*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */ X X#include "ecu.h" X#include "ecuerror.h" X#include "ecuhangup.h" X#include "ecukey.h" X#include "esd.h" X#include "var.h" X#include "proc.h" X Xchar *strchr(); X Xextern int proctrace; Xextern int rcvr_pid; Xextern ulong colors_current; Xextern char errmsg[]; X X/*+------------------------------------------------------------------------- X pcmd_baud(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_baud(param) XESD *param; X{ Xlong new_baud; Xint erc; X X if(shm->Liofd < 0) X return(eNoLineAttached); X X if(erc = gint(param,&new_baud)) X return(erc); X if(!valid_baud_rate((uint)new_baud)) X { X pprintf("invalid baud rate: %lu\n",new_baud); X return(eFATAL_ALREADY); X } X shm->Lbaud = (uint)new_baud; X lset_baud_rate(1); X if(proctrace) X { X pprintf("baud rate set to %u\n",shm->Lbaud); X } X return(0); X X} /* end of pcmd_baud */ X X/*+------------------------------------------------------------------------- X pcmd_cd(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_cd(param) XESD *param; X{ Xint erc; XESD *tesd = make_esd(256); Xextern char curr_dir[]; /* current working directory */ X X if(!tesd) X return(eNoMemory); X if(erc = gstr(param,tesd,0)) X goto RETURN; X if(expand_dirname(tesd->pb,tesd->maxcb)) X { X pprintf("%s\n",errmsg); X param->index = param->old_index; X erc = eFATAL_ALREADY; X goto RETURN; X } X if(chdir(tesd->pb) < 0) /* now change to the new directory */ X { X pperror(tesd->pb); /* print error if we get one */ X pputs("\n"); X erc = eFATAL_ALREADY; X goto RETURN; X } X get_curr_dir(curr_dir,256); X XRETURN: X free_esd(tesd); X return(erc); X} /* end of pcmd_cd */ X X/*+------------------------------------------------------------------------- X pcmd_clrx(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_clrx(param) XESD *param; X{ X if(shm->Liofd < 0) X return(eNoLineAttached); X X lclear_xmtr_xoff(); X if(proctrace) X pputs("transmitter XOFF cleared\n"); X return(0); X} /* end of pcmd_clrx */ X X/*+------------------------------------------------------------------------- X pcmd_dial(param) X X DCE_dial does the following: X sets I0 to 0==connect, X 1==failed to connect, X 2==interrupted, X 3==modem error X sets S0 to modem result code X--------------------------------------------------------------------------*/ Xint Xpcmd_dial(param) XESD *param; X{ Xint erc; XESD *tesd = (ESD *)0; X X if(shm->Lmodem_off_hook) X { X pputs("Already off hook\n"); X return(eFATAL_ALREADY); X } X if(!(tesd = make_esd(64))) X return(eNoMemory); X if(erc = gstr(param,tesd,0)) X { X free_esd(tesd); X return(erc); X } X strcpy(shm->Llogical,tesd->pb); X lclear_xmtr_xoff(); X if(lookup_logical_telno()) X (void)DCE_dial(); X else X { X pprintf("No such entry: %s\n",tesd->pb); X erc = eFATAL_ALREADY; X } X X if(!erc && (shm->Liofd < 0)) X erc = eNoLineAttached; X X free_esd(tesd); X X return(erc); X} /* end of pcmd_dial */ X X/*+------------------------------------------------------------------------- X pcmd_duplex(param) Xduplex [f | h] Xduplex ['f' | 'h'] Xduplex <int> 0 == half, non-0 == full X--------------------------------------------------------------------------*/ Xint Xpcmd_duplex(param) XESD *param; X{ Xint erc; Xint new_duplex; XESD *tesd; X X if(erc = skip_cmd_break(param)) X return(erc); X if(!(tesd = make_esd(64))) X return(eNoMemory); X erc = gstr(param,tesd,0); X new_duplex = to_lower((erc) ? param->pb[param->index] : *tesd->pb); X free_esd(tesd); X erc = 0; X X switch(new_duplex) X { X case 'f': X shm->Lfull_duplex = 1; X break; X case 'h': X shm->Lfull_duplex = 0; X break; X default: X erc = eBadParameter; X } X if(proctrace && !erc) X pprintf("duplex set to %s\n",(shm->Lfull_duplex) ? "full" : "half"); X return(erc); X X} /* end of pcmd_duplex */ X X/*+------------------------------------------------------------------------- X pcmd_echo(param) Xecho [-n] <str> X--------------------------------------------------------------------------*/ Xint Xpcmd_echo(param) XESD *param; X{ Xint erc; XESD *tesd; Xchar switches[8]; X X if((tesd = make_esd(256)) == (ESD *)0) X return(eNoMemory); X X get_switches(param,switches,sizeof(switches)); X X if(erc = gstr(param,tesd,1)) X { X free_esd(tesd); X return(erc); X } X pputs(tesd->pb); X if(!strchr(switches,'n')) /* if no -n */ X pputs("\n"); X free_esd(tesd); X return(0); X X} /* end of pcmd_echo */ X X/*+------------------------------------------------------------------------- X pcmd_exit(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_exit(param) XESD *param; X{ Xlong int1; Xulong colors_at_entry = colors_current; X X if(!gint(param,&int1) && int1) X { X setcolor(colors_error); X pprintf("[procedure exiting ecu: user code %ld]\n",int1); X setcolor(colors_at_entry); X if((int1 += HANGUP_USER1 - 1) > HANGUP_USERN) X { X int1 = HANGUP_USERN; X ff(se,"user exit code too large, using %d\r\n", X HANGUP_USERN - HANGUP_USER1); X } X hangup((int)int1); X } X setcolor(colors_success); X pputs("[procedure exiting ecu: normal exit]\n"); X setcolor(colors_at_entry); X hangup(0); X} /* end of pcmd_exit */ X X/*+------------------------------------------------------------------------- X pcmd_lgets(param) X Xlgets [-er] <strvar> <int1> <int2> [<str>] X Xread string into string variable number <stvar> Xwaiting <int1> 1/10th secs for first char, Xwaiting <int2> 1/10th secs for subsequent chars, Xoptionally terminating read upon detection of <str> X-e echos to screen X-r completely raw, else strip CRs & NLs from either end of string X$i0 receives the length of the read X<strvar> receives the string X--------------------------------------------------------------------------*/ Xint Xpcmd_lgets(param) XESD *param; X{ Xint erc; Xlong int2; Xlong int3; XESD *tesd1 = (ESD *)0; XESD *svptr; XLRWT lr; Xchar switches[8]; XESD *make_esd(); Xchar ctmp; X X if(shm->Liofd < 0) X return(eNoLineAttached); X X get_switches(param,switches,sizeof(switches)); X X skip_cmd_char(param,'$'); X if(erc = get_cmd_char(param,&ctmp)) X return(erc); X if(to_lower(ctmp) != 's') X return(eIllegalVarType); X if(erc = get_svptr(param,&svptr,1)) X return(erc); X X if(erc = gint(param,&int2)) X return(erc); X X if(erc = gint(param,&int3)) X return(erc); X X if((tesd1 = make_esd(64)) == (ESD *)0) X return(eNoMemory); X if(gstr(param,tesd1,1)) /* optional delimiter */ X { X free_esd(tesd1); X tesd1 = (ESD *)0; X } X X zero_esd(svptr); X X lr.to1 = int2 * 100L; X lr.to2 = int3 * 100L; X /* allow interrupts + raw read per -r */ X lr.raw_flag = (strchr(switches,'r')) ? 0x81 : 0x80; X lr.buffer = svptr->pb; X lr.bufsize = svptr->maxcb; X lr.delim = (tesd1) ? tesd1->pb : (char *)0; X lr.echo = (strchr(switches,'e') != (char *)0); X (void)lgets_timeout(&lr); X if(tesd1) X free_esd(tesd1); X X svptr->cb = lr.count; X null_terminate_esd(svptr); X iv[0] = (long)lr.count; X if(proctrace) X pprintf("lgets read %d chars\n",lr.count); X return(0); X X} /* end of pcmd_lgets */ X X/*+------------------------------------------------------------------------- X pcmd_flush(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_flush(param) XESD *param; X{ X if(shm->Liofd < 0) X return(eNoLineAttached); X X lflush(2); X if(proctrace) X pputs("line flushed\n"); X return(0); X} /* end of pcmd_flush */ X X/*+------------------------------------------------------------------------- X pcmd_hangup(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_hangup(param) XESD *param; X{ X if(shm->Liofd < 0) X { X if(proctrace) X pputs("no line attached ... hangup ignored\n"); X DCE_now_on_hook(); X return(0); X } X X if(proctrace) X pputs("hanging up ... "); X DCE_hangup(); X if(proctrace) X pputs("line on hook\n"); X return(0); X} /* end of pcmd_hangup */ X X/*+------------------------------------------------------------------------- X pcmd_hexdump(param) X Xhexdump [-s] <str> Xhexdump -t[s] <str1> <str> X<str> buf to dump X<str1> title (if -t) X-s short (terse) dump X--------------------------------------------------------------------------*/ Xint Xpcmd_hexdump(param) XESD *param; X{ Xint erc; XESD *title = (ESD *)0; XESD *buf; Xchar switches[8]; Xextern FILE *plog_fp; X X if((buf = make_esd(256)) == (ESD *)0) X return(eNoMemory); X X get_switches(param,switches,sizeof(switches)); X X if(strchr(switches,'t')) /* if -t */ X { X if((title = make_esd(256)) == (ESD *)0) X { X erc = eNoMemory; X goto RETURN; X } X if(erc = gstr(param,title,0)) X goto RETURN; X } X X if(erc = gstr(param,buf,1)) X goto RETURN; X X hex_dump(buf->pb,buf->cb,(title) ? title->pb : "", X (strchr(switches,'s')) ? 1 : 0); X X if(plog_fp) X hex_dump_fp(plog_fp,buf->pb,buf->cb,(title) ? title->pb : "", X (strchr(switches,'s')) ? 1 : 0); X XRETURN: X free_esd(buf); X if(title) X free_esd(title); X return(erc); X X} /* end of pcmd_hexdump */ X X/*+------------------------------------------------------------------------- X pcmd_lbreak(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_lbreak(param) XESD *param; X{ X if(shm->Liofd < 0) X return(eNoLineAttached); X X lbreak(); X return(0); X} /* end of pcmd_lbreak */ X X/*+------------------------------------------------------------------------- X pcmd_logevent(param) X Xlogevent 'cmd' X--------------------------------------------------------------------------*/ Xint Xpcmd_logevent(param) XESD *param; X{ Xint erc; XESD *eventstr; Xextern int last_child_wait_status; Xchar switches[8]; X X if((eventstr = make_esd(256)) == (ESD *)0) X return(eNoMemory); X X get_switches(param,switches,sizeof(switches)); X X/* a hack */ X strcpy(eventstr->pb,"PROC "); X eventstr->pb += 5; X eventstr->maxcb -= 5; X X if(erc = gstr(param,eventstr,0)) X { X eventstr->pb -= 5; /* be nice */ X eventstr->maxcb += 5; /* or surely this will haunt us one day */ X free_esd(eventstr); X return(erc); X } X X/* rehack */ X eventstr->pb -= 5; X eventstr->maxcb += 5; X eventstr->cb += 5; X X ecu_log_event(getpid(),eventstr->pb); X free_esd(eventstr); X return(0); X X} /* end of eventstr_logevent */ X X/*+------------------------------------------------------------------------- X pcmd_lookfor(param) X Xlookfor [-e] [quiet | <str>] [<int>] X X-e echo to screen while looking Xquiet means look for quiet X<str> means look for string X<int> number 1/10ths secs (default 5.0 second) for timeout X Xin case of lookfor <str>, $i0 plugged 1 if found, else 0 X--------------------------------------------------------------------------*/ Xint Xpcmd_lookfor(param) XESD *param; X{ Xint erc; Xchar switches[8]; Xchar *cptr = (char *)0; XESD *tesd = (ESD *)0; Xulong decisecs = 50; /* default wait is 5 seconds */ Xint echo_flag; Xchar quiet[8]; Xlong start_secs; Xlong time(); X X if(shm->Liofd < 0) X return(eNoLineAttached); X X get_switches(param,switches,sizeof(switches)); X echo_flag = (strchr(switches,'e') != (char *)0); X X if(!get_alpha_zstr(param,quiet,sizeof(quiet))) X { X if(strcmp(quiet,"quiet")) X return(eSyntaxError); X } X else X { X if((tesd = make_esd(64)) == (ESD *)0) X return(eNoMemory); X if(erc = gstr(param,tesd,0)) X goto RETURN; X if(!tesd->cb) X { X pputs("lookfor null string\n"); X erc = eFATAL_ALREADY; X goto RETURN; X } X cptr = tesd->pb; X } X X if(erc = gint(param,&decisecs)) X { X /* if something there non-integer */ X if(!end_of_cmd(param)) X { X erc = eSyntaxError; X goto RETURN; X } X } X erc = 0; X X if(proctrace) X time(&start_secs); X X if(cptr) X { X iv[0] = (long)llookfor(cptr,decisecs * 100L,echo_flag); X if(proctrace) X pprintf("llookfor set $i00 = %ld\n",iv[0]); X } X else X lquiet(decisecs * 100L,echo_flag); X X if(proctrace) X pprintf("waited %ld secs\n",time((long *)0) - start_secs); X XRETURN: X if(tesd) X free_esd(tesd); X return(erc); X X} /* end of pcmd_lookfor */ X X/*+------------------------------------------------------------------------- X pcmd_nap(param) Xnap [-m] <int> X<int> number 1/10ths secs, except if -m, nap <int> milliseconds X--------------------------------------------------------------------------*/ Xint Xpcmd_nap(param) XESD *param; X{ Xint erc; Xchar switches[8]; Xulong interval; X X get_switches(param,switches,sizeof(switches)); X X if(erc = gint(param,&interval)) X return(erc); X if(interval) X { X if(strchr(switches,'m')) X nap(interval); X else X nap(interval * 100L); X } X return(0); X} /* end of pcmd_nap */ X X/*+------------------------------------------------------------------------- X pcmd_parity(param) Xparity [e | o | n] Xparity ['e' | 'o' | 'n'] X--------------------------------------------------------------------------*/ Xint Xpcmd_parity(param) XESD *param; X{ Xint erc; Xint new_parity = 0; XESD *tesd; X X if(shm->Liofd < 0) X return(eNoLineAttached); X X if(erc = skip_cmd_break(param)) X return(erc); X if(!(tesd = make_esd(64))) X return(eNoMemory); X erc = gstr(param,tesd,0); X new_parity = to_lower((erc) ? param->pb[param->index] : *tesd->pb); X if(!erc && !tesd->cb) X new_parity = 'n'; X free_esd(tesd); X X switch(new_parity) X { X case 'n': X new_parity = 0; X case 'e': X case 'o': X shm->Lparity = new_parity; X lset_parity(1); X break; X default: X erc = eBadParameter; X } X if(proctrace && !erc) X pprintf("parity set to %s\n", X (shm->Lparity) ? ((shm->Lparity == 'e') ? "even" : "odd") X : "none"); X return(erc); X X} /* end of pcmd_parity */ X X/*+------------------------------------------------------------------------- X pcmd_prompt(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_prompt(param) XESD *param; X{ Xextern ESD *icmd_prompt; X X return(gstr(param,icmd_prompt,0)); X} /* end of pcmd_prompt */ X X/*+------------------------------------------------------------------------- X pcmd_ptrace(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_ptrace(param) XESD *param; X{ Xchar s8[8]; Xregister itmp; X X if(get_alpha_zstr(param,s8,sizeof(s8))) X return(eSyntaxError); X itmp = strlen(s8); X while(itmp--) X s8[itmp] = to_lower(s8[itmp]); X if(!strcmp(s8,"on")) X proctrace = 1; X else if(!strcmp(s8,"off")) X proctrace = 0; X else X return(eSyntaxError); X return(0); X} /* end of pcmd_ptrace */ X X/*+------------------------------------------------------------------------- X pcmd_rname(param) - set remote name X--------------------------------------------------------------------------*/ Xint Xpcmd_rname(param) XESD *param; X{ Xint erc; XESD *rname; X X if(shm->Liofd < 0) X return(eNoLineAttached); X if(!shm->Lmodem_off_hook) X { X pputs("Not connected\n"); X return(eFATAL_ALREADY); X } X X if((rname = make_esd(sizeof(shm->Lrname) - 1)) == (ESD *)0) X return(eNoMemory); X X if(!(erc = gstr(param,rname,0))) X { X strcpy(shm->Lrname,rname->pb); X if(proctrace) X pprintf("rname set to '%s'\n",rname->pb); X } X free_esd(rname); X return(erc); X X} /* end of pcmd_rname */ X X/*+------------------------------------------------------------------------- X pcmd_send(param) Xsend [-n] <str> X-n do not send trailing CR X--------------------------------------------------------------------------*/ Xint Xpcmd_send(param) XESD *param; X{ Xint erc; XESD *buf; Xchar switches[8]; X X if(shm->Liofd < 0) X return(eNoLineAttached); X X if((buf = make_esd(256)) == (ESD *)0) X return(eNoMemory); X X get_switches(param,switches,sizeof(switches)); X X if(erc = gstr(param,buf,1)) X { X free_esd(buf); X return(erc); X } X X lputs(buf->pb); X X if(!strchr(switches,'n')) X lputc(CR); X X free_esd(buf); X return(erc); X} /* end of pcmd_send */ X X/*+------------------------------------------------------------------------- X pcmd_set(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_set(param) XESD *param; X{ Xint erc; Xint itmp; Xulong varnum; Xuint varmax; Xchar vartype; Xchar varstr[16]; Xint show_status; Xlong *ivptr; XESD *svptr; Xchar *cptr; Xchar *make_char_graphic(); X X if(erc = skip_cmd_break(param)) X return(erc); X X do { X /* $ is optional */ X if((erc = skip_cmd_char(param,'$')) && (erc != eSyntaxError)) X return(erc); X /* get variable type */ X if(get_cmd_char(param,&vartype)) X return(eSyntaxError); X /* validate variable type */ X vartype = to_lower(vartype); X switch(vartype) X { X case 'i': X varmax = IVQUAN; X break; X case 's': X varmax = SVQUAN; X break; X default: X return(eIllegalVarType); X } X X if(!get_numeric_value(param,&varnum)) X goto TEST_VARNUM; X else if(*(param->pb + param->index) == '[') X { X if(erc = get_subscript(param,&varnum)) X return(erc); XTEST_VARNUM: X if((int)varnum >= varmax) X return(eIllegalVarNumber); X switch(vartype) X { X case 'i': X ivptr = &iv[(int)varnum]; X break; X default: X svptr = sv[(int)varnum]; X } X } X else if(get_alphanum_zstr(param,varstr,sizeof(varstr))) X return(eInvalidVarName); X else X { X varnum = 0x1000L; X switch(vartype) X { X case 'i': X erc = find_mkvi(varstr,&ivptr,1); X break; X default: X erc = find_mkvs(varstr,&svptr,1); X } X if(erc) X return(erc); X } X X show_status = 1; X if(!skip_cmd_char(param,'=')) /* assignment */ X { X switch(vartype) X { X case 'i': X if(erc = gint(param,ivptr)) X return(erc); X break; X default: X if(erc = gstr(param,svptr,1)) X return(erc); X break; X } X if(!proctrace) X show_status = 0; X } X if(show_status) X { X switch(vartype) X { X case 'i': X if(varnum != 0x1000L) X pprintf("$i%02ld = %7ld (0x%08lx,0%lo)\n",varnum, X *ivptr,*ivptr,*ivptr); X else X pprintf("$i%s = %ld (0x%08lx,0%lo)\n",varstr, X *ivptr,*ivptr,*ivptr); X break; X default: X if(varnum != 0x1000L) X pprintf("$s%02ld = '",varnum); X else X pprintf("$s%s = '",varstr); X itmp = svptr->cb; X cptr = svptr->pb; X while(itmp--) X pputs(make_char_graphic(*cptr++,0)); X pputs("'\n"); X break; X } X } X } while(!skip_comma(param)); X X if(!end_of_cmd(param)) X return(eSyntaxError); X X return(0); X} /* end of pcmd_set */ X X/*+------------------------------------------------------------------------- X pcmd_system(param) X Xsystem [-l] 'cmd' X-l makes comm line stdin/stdout X-s keeps all fds the same X Xreturns $i0 set to exit status of program or 0x100 if interrupted X--------------------------------------------------------------------------*/ Xint Xpcmd_system(param) XESD *param; X{ Xint erc; XESD *cmd; Xextern int last_child_wait_status; Xchar switches[8]; X X if((cmd = make_esd(256)) == (ESD *)0) X return(eNoMemory); X X get_switches(param,switches,sizeof(switches)); X X/* a hack */ X *cmd->pb++ = (strchr(switches,'s')) ? '>' : X ((strchr(switches,'l')) ? '$' : '!'); X X cmd->maxcb--; X X if(erc = gstr(param,cmd,1)) X { X cmd->pb--; /* be nice */ X cmd->maxcb++; /* or surely this will haunt us one day */ X free_esd(cmd); X return(erc); X } X X/* rehack */ X cmd->pb--; X cmd->cb++; X cmd->maxcb++; X X if(proctrace) X { X pputs(cmd->pb + 1); X pputs("\n"); X } X X last_child_wait_status = 0xFF00; X shell(cmd->pb); X iv[0] = (last_child_wait_status & 0xFF) X ? 0x100L : (long)last_child_wait_status >> 8; X if(proctrace) X pprintf("$i0 = %ld, (%s)\n",iv[0], X (iv[0] == 0x100L) ? "interrupted" : "program exit status"); X X free_esd(cmd); X return(0); X} /* end of pcmd_system */ X X/*+------------------------------------------------------------------------- X get_big_endian_16(ptr) X--------------------------------------------------------------------------*/ Xushort Xget_big_endian_16(ptr) Xregister uchar *ptr; X{ Xregister ushort uint16 = ((ushort)ptr[0] << 8) | ptr[1]; X X return(uint16); X X} /* end of get_big_endian_16 */ X X/*+------------------------------------------------------------------------- X get_big_endian_32(ptr) X--------------------------------------------------------------------------*/ Xulong Xget_big_endian_32(ptr) Xregister uchar *ptr; X{ Xregister ulong uint32 = ((ulong)*ptr++) << 24; X uint32 |= ((ulong)*ptr++) << 16; X uint32 |= ((ulong)*ptr++) << 8; X uint32 |= (ulong)*ptr++; X return(uint32); X X} /* end of get_big_endian_32 */ X X/*+------------------------------------------------------------------------- X pcmd_getf(param) - get friend memory X Xgetf -x <int-var-spec> <offset> Xwhere: -x == X -b byte X -w word (little-endian) X -W word (big-endian) X -l 32-bits (little-endian) X -L 32-bits (big-endian) X--------------------------------------------------------------------------*/ Xint Xpcmd_getf(param) XESD *param; X{ Xint erc; Xchar switches[8]; Xlong *piv; Xlong offset; Xint size; Xint big_endian; X X if(erc = get_switches(param,switches,sizeof(switches))) X return(erc); X if((strlen(switches) != 2) || !strchr("bwWlL",switches[1])) X { X pputs("invalid switch\n"); X return(eFATAL_ALREADY); X } X size = to_lower(switches[1]); X big_endian = isupper(switches[1]); X X/* X if(!get_svptr(param,&psv)) X return(eNotImplemented); X else X*/ X if(!strncmp(param->pb + param->index,"$i",2)) X param->index += 2; X if(erc = get_ivptr(param,&piv,1)) X return(erc); X X if(erc = gint(param,&offset)) X return(erc); X X if(proctrace) X pprintf("getf %s offset=0x%lx",switches,offset); X X switch(size) X { X case 'b': X if(offset > ((long)sizeof(shm->friend_space) - 1)) X goto OFFSET_TOO_LARGE; X *piv = *(((uchar *)shm->friend_space) + (int)offset) & 0xFF; X break; X case 'w': X if(offset > ((long)sizeof(shm->friend_space) - 2)) X goto OFFSET_TOO_LARGE; X if(big_endian) X *piv = get_big_endian_16((uchar *)shm->friend_space + X (int)offset); X else X *piv = *(((ushort *)shm->friend_space) + (int)offset) & 0xFFFF; X break; X case 'l': X if(offset > ((long)sizeof(shm->friend_space) - 4)) X goto OFFSET_TOO_LARGE; X if(big_endian) X { X *piv = get_big_endian_32((uchar *)shm->friend_space + X (int)offset); X } X else X *piv = *((long *)((char *)shm->friend_space + (int)offset)); X break; X } X X if(proctrace) X pprintf(" value=%ld (%08lx)\n",*piv,*piv); X return(0); X XOFFSET_TOO_LARGE: X if(proctrace) X pputs("\n"); X pprintf("offset 0x%02lx too large for -%c (0x%02x bytes available)\n", X offset,switches[1],sizeof(shm->friend_space)); X return(eFATAL_ALREADY); X X} /* end of pcmd_getf */ X X/*+------------------------------------------------------------------------- X pcmd_putf(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_putf(param) XESD *param; X{ X return(eNotImplemented); X} /* end of pcmd_putf */ X X/*+------------------------------------------------------------------------- X pcmd_xon(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_xon(param) XESD *param; X{ Xint erc; Xchar new_xonxoff[8]; Xchar *xon_status(); X X if(shm->Liofd < 0) X return(eNoLineAttached); X X if(erc = get_alpha_zstr(param,new_xonxoff,sizeof(new_xonxoff))) X return(erc); X X if(set_xon_xoff_by_arg(new_xonxoff)) X return(eBadParameter); X X if(proctrace) X pprintf("xon/xoff flow control set to %s\n",xon_status()); X X return(erc); X X} /* end of pcmd_xon */ X X/*+------------------------------------------------------------------------- X pcmd_rtscts(param) X--------------------------------------------------------------------------*/ Xint Xpcmd_rtscts(param) XESD *param; X{ Xint erc; Xchar new_rtscts[8]; X X if(shm->Liofd < 0) X return(eNoLineAttached); X X if(erc = get_alpha_zstr(param,new_rtscts,sizeof(new_rtscts))) X return(erc); X X lRTSCTS_control(yes_or_no(new_rtscts)); X X if(proctrace) X { X pprintf("RTS %s CTS %s\n", X (Ltermio.c_cflag & RTSFLOW) ? "on" : "off", X (Ltermio.c_cflag & CTSFLOW) ? "on" : "off"); X } X X return(erc); X X} /* end of pcmd_rtscts */ X X/* vi: set tabstop=4 shiftwidth=4: */ X/* end of pcmd.c */ SHAR_EOF $TOUCH -am 1226023490 'pcmd.c' && chmod 0644 pcmd.c || echo 'restore of pcmd.c failed' Wc_c="`wc -c < 'pcmd.c'`" test 24203 -eq "$Wc_c" || echo 'pcmd.c: original size 24203, current size' "$Wc_c" true || echo 'restore of pcmdfile.c failed' echo End of part 12, continue with part 13 exit 0 -------------------------------------------------------------------- Warren Tucker, TuckerWare emory!n4hgf!wht or wht@n4hgf.Mt-Park.GA.US Hacker Extraordinaire d' async PADs, pods, proteins and protocols exit 0 # Just in case... -- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM Sterling Software, IMD UUCP: uunet!sparky!kent Phone: (402) 291-8300 FAX: (402) 291-4362 Please send comp.sources.misc-related mail to kent@uunet.uu.net.