Thread View: de.comp.sources.unix
1 messages
1 total messages
Started by Frank Kaefer
Wed, 22 Jul 1992 05:04
v01i002: Pcomm 2.0 - telecommunication program for Unix, Part02/08
Author: Frank Kaefer
Date: Wed, 22 Jul 1992 05:04
Date: Wed, 22 Jul 1992 05:04
3421 lines
88574 bytes
88574 bytes
Submitted-by: egray@osiris.cso.uiuc.edu (Emmet P. Gray)
Posting-number: Volume 1, Issue 2
Archive-name: pcomm/part02
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 2 (of 8)."
# Contents: pcomm-2.0/Configure.sh pcomm-2.0/Q_and_A pcomm-2.0/admin.c
# pcomm-2.0/d_print.c pcomm-2.0/d_revise.c pcomm-2.0/e_lib.c
# pcomm-2.0/ls_menu.c pcomm-2.0/macro.c pcomm-2.0/s_axfer.c
# pcomm-2.0/s_extrnl.c pcomm-2.0/s_gen.c pcomm-2.0/s_menu.c
# pcomm-2.0/s_prompt.c pcomm-2.0/s_term.c pcomm-2.0/s_tty.c
# pcomm-2.0/strings.c pcomm-2.0/tty_att.c pcomm-2.0/tty_ucb.c
# Wrapped by fkk@stasys on Tue Jul 21 22:05:58 1992
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'pcomm-2.0/Configure.sh' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/Configure.sh'\"
else
echo shar: Extracting \"'pcomm-2.0/Configure.sh'\" \(3530 characters\)
sed "s/^X//" >'pcomm-2.0/Configure.sh' <<'END_OF_FILE'
X:
X: what version of UUCP do you have?
Xif [ -f /usr/lib/uucp/Systems -o -f /etc/uucp/Systems ] ;then
X echo "You've got the HoneyDanBer (HDB) version of UUCP"
X echo "Therefore you need: #define ASCII_PID"
Xelse
X if [ -f /usr/lib/uucp/L.sys ] ;then
X echo "You've got the older version of UUCP (not HDB)"
X echo "Therefore you need: #undef ASCII_PID"
X else
X echo "Can't determine the UUCP version"
X fi
Xfi
X:
X: check the location of the UUCP lock files
Xif [ -d /usr/spool/locks ] ;then
X echo "Your UUCP lock files go in /usr/spool/locks"
X echo "Therefore you need: #define LOCK_FILE \"/usr/spool/locks\""
Xelse
X if [ -d /usr/spool/uucp/LCK ]; then
X echo "Your UUCP lock files go in /usr/spool/uucp/LCK"
X echo "Therefore you need: #define LOCK_FILE \"/usr/spool/uucp/LCK\""
X else
X echo "Your UUCP lock files go in /usr/spool/uucp"
X echo "Therefore you need: #define LOCK_FILE \"/usr/spool/uucp\""
X fi
Xfi
X:
X: check the version of curses
XGOT_IT=0
Xif [ -f /usr/5include/curses.h ] ;then
X GOT_IT=/usr/5include/curses.h
X echo "You've got a System 5 compatibility library... use it!"
X echo "Edit the Makefile: CC=/usr/5bin/cc and LD=/usr/5bin/cc"
Xelse
X if [ -f /usr/include/curses.h ] ;then
X GOT_IT=/usr/include/curses.h
X else
X echo "Can't determine your version of curses"
X fi
Xfi
Xif [ "$GOT_IT" -eq 0 ] ;then
X if [ `grep -c ACS_HLINE $GOT_IT` -gt 0 ] ;then
X echo "You've got the newer version of curses"
X echo "Therefore you need: #undef OLDCURSES"
X else
X echo "You've got and old version of curses"
X echo "Therefore you need: #define OLDCURSES"
X fi
Xfi
X:
X: check the libraries
Xecho checking your C library....
Xif [ -f /usr/5lib/libc.a ] ;then
X ar t /usr/5lib/libc.a > /tmp/config.$$
Xelse
X if [ -f /usr/lib/libc.a ] ;then
X ar t /usr/lib/libc.a > /tmp/config.$$
X else
X if [ -f /lib/libc.a ] ;then
X ar t /lib/libc.a > /tmp/config.$$
X else
X if [ -f /usr/ccs/lib/libc.a ] ;then
X ar t /usr/ccs/lib/libc.a > /tmp/config.$$
X fi
X fi
X fi
Xfi
Xif [ -f /tmp/config.$$ ] ;then
X if [ `grep -c "^poll.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the poll() function"
X echo "Edit the Makefile: IPC.O=ipc_att.o and IPC.C=ipc_att.c"
X else
X if [ `grep -c "^select.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the select() function"
X echo "Edit the Makefile: IPC.O=ipc_ucb.o and IPC.C=ipc_ucb.c"
X else
X echo "You don't seem to have either poll() or select()"
X echo "Perhaps they are in another library?"
X fi
X fi
X if [ `grep -c "^usleep.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the usleep() function"
X echo "Therefore you need: #define HAVE_USLEEP"
X else
X echo "You don't have the usleep() function"
X echo "Therefore you need: #undef HAVE_USLEEP"
X fi
X if [ `grep -c "^strstr.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the strstr() function"
X echo "Therefore you need: #define HAVE_STRSTR"
X else
X echo "You don't have the strstr() function"
X echo "Therefore you need: #undef HAVE_STRSTR"
X fi
X if [ `grep -c "^memmove.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the memmove() function"
X echo "Therefore you need: #define MEMMOVE(a,b,c) memmove(a,b,c)"
X else
X if [ `grep -c "^memcpy.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the memcpy() function"
X echo "Therefore you need: #define MEMMOVE(a,b,c) memcpy(a,b,c)"
X else
X if [ `grep -c "^bcopy.o" /tmp/config.$$` -eq 1 ] ;then
X echo "You've got the bcopy() function"
X echo "Therefore you need: #define MEMMOVE(a,b,c) bcopy(b,a,c)"
X fi
X fi
X fi
X rm /tmp/config.$$
Xelse
X echo "Can't determine your C functions"
Xfi
END_OF_FILE
if test 3530 -ne `wc -c <'pcomm-2.0/Configure.sh'`; then
echo shar: \"'pcomm-2.0/Configure.sh'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/Configure.sh'
fi
if test -f 'pcomm-2.0/Q_and_A' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/Q_and_A'\"
else
echo shar: Extracting \"'pcomm-2.0/Q_and_A'\" \(3301 characters\)
sed "s/^X//" >'pcomm-2.0/Q_and_A' <<'END_OF_FILE'
X Questions and Answers
X for the most common Pcomm problems.
X
X1) The "elpase time" doesn't increment during a dialing attempt.
X
X This is a symptom of a bug in the wgetch() routine in the curses
X library. The work-around is to set WGETCH_BROKE in the config.h
X file and recompile.
X
X2) I can't get Pcomm to dial, it just sits there.
X
X This typically is due to the wrong device name for the tty port.
X Some systems have more than one name (different minor device
X numbers) for the same tty port. UUCP may use the device name
X that has "modem control" enabled; if so, that is the one Pcomm
X needs to use.
X
X3) How do you make Sun's dial in and out on the same port?
X
X Sun Sparc boxes don't come configured for doing dialin and dialout
X on the same serial port. However, there is a blurb in the printed
X manual that tells you what to do...
X
X Make a new device (cua0 for ttya, and/or cua1 for ttyb)
X mknod /dev/cua0 c 12 128
X mknod /dev/cua1 c 12 129
X
X Edit /etc/ttytab. Change the ttya (or ttyb) line to look like
X the following. Look in the /etc/gettytab file for the choices
X for the second field (std.38400, in this example).
X ttya "/usr/etc/getty std.38400" dialup on remote secure
X ttyb "/usr/etc/getty std.38400" dialup on remote secure
X
X Edit /etc/uucp/Devices. Add a line for each speed your modem
X supports. The dialer field (hayes, in this example) must match
X whatever you've got in /etc/uucp/Dialers.
X ACU cua0 cua0 1200 hayes
X ACU cua0 cua0 2400 hayes
X ACU cua0 cua0 9600 hayes
X ACU cua0 cua0 19200 hayes
X ACU cua0 cua0 38400 hayes
X
X4) I get a measage that tells me I can't create the lockfile (or can't
Xopen the tty port).
X
X Pcomm is typically configured to be set-user-id to uucp. To do
X this, you type (as root):
X chown uucp pcomm
X chmod 4755 pcomm
X
X5) As soon as I am connected, the modem lights go crazy.
X
X This is probably caused by an improper UUCP lock file. Pcomm
X understands several variations of UUCP lock files, but must
X match the one used by your UUCP. Read the Readme file and check
X the LOCK_DIR, ASCII_PID, SVR4_LOCKS, and XENIX_LOCKS in the
X config.h file.
X
X6) I've got a V.32bis modem but without locked DTE speeds, how do I
Xsetup Pcomm for this?
X
X Change the tty database so that the "locked speed" entry is set
X to zero. Then change the "auto-baud detect" flag in the modem
X database to 'N'.
X
X In this configuration, the modem will always use the DTE speed
X as specified in the dialing directory. The status line will
X show this speed, regardless of the actual connected baud rate.
X
X7) Some of the Pcomm screens appear messed up.
X
X Yes, that's unfortunately quite common... It's a bug in either
X the curses library or the termcap/terminfo database. I've
X included a terminfo entry for AT386 in the Readme file, that
X seemed to fix the problem for my 386 box.
X
X8) Where do I get xmodem/ymodem/zmodem stand-alone programs for Unix?
X
X I use Xmodem v3.8 by Steve Grandi, and an older version of rzsz
X by Omen Technologies. Both of these should be available at a
X neighboring archive site.
X
X9) I can't get the external zmodem programs "rz" and "sz" to work from
Xinside Pcomm.
X
X The authors of rz and sz have deliberately broken the program so
X that it will not work from inside another program. See if you
X can find an older version.
END_OF_FILE
if test 3301 -ne `wc -c <'pcomm-2.0/Q_and_A'`; then
echo shar: \"'pcomm-2.0/Q_and_A'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/Q_and_A'
fi
if test -f 'pcomm-2.0/admin.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/admin.c'\"
else
echo shar: Extracting \"'pcomm-2.0/admin.c'\" \(2942 characters\)
sed "s/^X//" >'pcomm-2.0/admin.c' <<'END_OF_FILE'
X/*
X * Perform administrative functions. Check to see if the user has
X * permission to make long distance calls, and record all phone calls
X * made by Pcomm.
X */
X
X#include <stdio.h>
X#include <grp.h>
X#include "config.h"
X#include "dial_dir.h"
X#include "param.h"
X
Xstatic char *build_num();
X
X/*
X * Make a log of all calls made by Pcomm. The argument is the index
X * into the queue.
X */
X
X/* ARGSUSED */
Xvoid
Xlog_calls(i)
Xint i;
X{
X#ifdef LOG_CALLS
X FILE *fp;
X char *number, *date, *ctime(), *getlogin(), buf[80];
X long now, time();
X void error_win();
X /* build the complete phone number */
X number = build_num(i);
X /* build date and time */
X time(&now);
X date = ctime(&now);
X date[10] = '\0';
X date[16] = '\0';
X
X if (!(fp = fopen(LOG_FILE, "a+"))) {
X /* fatal! (to prevent hanky panky) */
X sprintf(buf, "Can't open log file \"%s\"", LOG_FILE);
X error_win(1, buf, "Contact your system administrator");
X }
X
X fprintf(fp, "pcomm: %s called %s at %s on %s\n", getlogin(), number, &date[11], date);
X fclose(fp);
X#endif /* LOG_CALLS */
X return;
X}
X
X/*
X * Check to see if long distance (toll) call is authorized. The argument
X * is the index into the queue.
X */
X
X/* ARGSUSED */
Xint
Xlimit_ld(i)
Xint i;
X{
X#ifdef LIMIT_LD
X char *number, *name, *getlogin();
X struct group *getgrnam(), *grpbuf;
X
X /* if no group, don't bother */
X grpbuf = getgrnam(GROUP_NAME);
X if (grpbuf == NULL || *grpbuf->gr_mem == '\0')
X return(0);
X /* are you in the group? */
X name = getlogin();
X for (; *grpbuf->gr_mem!='\0'; grpbuf->gr_mem++) {
X if (!strcmp(*grpbuf->gr_mem, name))
X return(0);
X }
X /* numbers only... */
X number = build_num(i);
X
X /*
X * VERY SITE SPECIFIC!!! We use a "9" to get an outside line,
X * so any 9 followed by a 1 is a toll call (except for 1-800
X * numbers).
X */
X if (!strncmp(number, "91", 2) && strncmp(number, "91800", 5)) {
X error_win(0, "You are not authorized to place long distance (toll) calls", "");
X return(1);
X }
X
X if (*number == '\0') {
X error_win(0, "You are not authorized direct access to the line", "Use the automatic dialing feature");
X return(1);
X }
X#endif /* LIMIT_LD */
X return(0);
X}
X
X#if defined(LOG_CALLS) || defined(LIMIT_LD)
X/*
X * Put together the complete phone number but strip out the extraneous
X * characters.
X */
X
Xstatic char *
Xbuild_num(i)
Xint i;
X{
X int j;
X char *t, temp[80], *strcpy(), *strcat();
X static char ans[80];
X
X temp[0] = '\0';
X /* add LD codes? */
X switch (dir->q_ld[i]) {
X case 0:
X break;
X case '+':
X strcpy(temp, param->ld_plus);
X break;
X case '-':
X strcpy(temp, param->ld_minus);
X break;
X case '@':
X strcpy(temp, param->ld_at);
X break;
X case '#':
X strcpy(temp, param->ld_pound);
X break;
X }
X /* add the number */
X strcat(temp, dir->number[dir->q_num[i]]);
X
X /* copy only digits */
X j = 0;
X t = temp;
X while (*t) {
X if (*t >= '0' && *t <= '9')
X ans[j++] = *t;
X t++;
X }
X ans[j] = '\0';
X
X return(ans);
X}
X#endif /* LOG_CALLS || LIMIT_LD */
END_OF_FILE
if test 2942 -ne `wc -c <'pcomm-2.0/admin.c'`; then
echo shar: \"'pcomm-2.0/admin.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/admin.c'
fi
if test -f 'pcomm-2.0/d_print.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/d_print.c'\"
else
echo shar: Extracting \"'pcomm-2.0/d_print.c'\" \(3986 characters\)
sed "s/^X//" >'pcomm-2.0/d_print.c' <<'END_OF_FILE'
X/*
X * The print option of the dialing directory. A carriage return will
X * send the dialing directory to the print spool program, otherwise the
X * selected file will be used.
X */
X
X#define MAX_STRING 80
X
X#include <stdio.h>
X#include <curses.h>
X#include "config.h"
X#include "dial_dir.h"
X#include "misc.h"
X
Xstatic char *e_get_str();
X
Xvoid
Xprint_dir()
X{
X FILE *fp, *n_popen(), *uid_fopen();
X WINDOW *p_win, *newwin();
X char *ans, *file, buf[100], *expand();
X int is_printer, i;
X void error_win();
X unsigned int sleep();
X
X p_win = newwin(5, 54, 0, 26);
X
X mvwaddstr(p_win, 2, 3, "Print to: (printer)");
X box(p_win, VERT, HORZ);
X wmove(p_win, 2, 13);
X wrefresh(p_win);
X
X /*
X * This is a special version of get_str() that looks at the
X * first character to see if it should erase the default answer
X * already on the screen.
X */
X if ((ans = e_get_str(p_win, 80)) == NULL) {
X /* erase because it overlaps dm_win */
X werase(p_win);
X wrefresh(p_win);
X delwin(p_win);
X return;
X }
X file = expand(ans);
X is_printer = 0;
X /* the default (printer) */
X if (*file == '\0') {
X if (!(fp = n_popen(LPRINT, "w"))) {
X sprintf(buf, "\"%s\"", LPRINT);
X error_win(0, "Can't open printer program", buf);
X werase(p_win);
X wrefresh(p_win);
X delwin(p_win);
X return;
X }
X is_printer++;
X }
X /* the requested file */
X else {
X /*
X * Check to see if the file already exists (and if you
X * have write permission too). Currently only allows
X * you to bail out or overwrite the file (no append).
X */
X switch(can_write(file)) {
X case DENIED:
X sprintf(buf, "\"%s\"", file);
X error_win(0, "No write permission on file", buf);
X werase(p_win);
X wrefresh(p_win);
X delwin(p_win);
X return;
X case OK_BUT_EXISTS:
X werase(p_win);
X mvwprintw(p_win, 2, 3, "File \"%s\" already exists!", file);
X beep();
X box(p_win, VERT, HORZ);
X if (!yes_prompt(p_win, 3, 3, A_BOLD, "Overwrite")) {
X werase(p_win);
X wrefresh(p_win);
X delwin(p_win);
X return;
X }
X /* FALLTHRU */
X case WRITE_OK:
X if (!(fp = uid_fopen(file, "w"))) {
X sprintf(buf, "\"%s\"", file);
X error_win(0, "Can't open file", buf);
X werase(p_win);
X wrefresh(p_win);
X delwin(p_win);
X return;
X }
X break;
X }
X }
X
X werase(p_win);
X mvwaddstr(p_win, 2, 13, "Printing Pcomm directory");
X box(p_win, VERT, HORZ);
X wrefresh(p_win);
X
X /*
X * Only prints up to the end of the physical file, not the entire
X * structure. I gave some thought about not printing empty entries,
X * but...
X */
X for (i=1; i<=dir->d_entries; i++)
X fprintf(fp, "%4d- %-20.20s %18.18s %5d-%c-%d-%d %c %-14.14s\n",
X i, dir->name[i], dir->number[i], dir->baud[i], dir->parity[i],
X dir->data_bits[i], dir->stop_bits[i], dir->duplex[i],
X dir->aux[i]);
X
X if (is_printer)
X n_pclose(fp);
X else {
X /* a dramatic delay... */
X sleep(1);
X fclose(fp);
X }
X
X werase(p_win);
X wrefresh(p_win);
X delwin(p_win);
X return;
X}
X
X/*
X * Get a string from a window but erase the line first.
X */
X
Xstatic char *
Xe_get_str(win, num)
XWINDOW *win;
Xint num;
X{
X int count, x, y, done_it;
X char ans;
X static char buf[MAX_STRING];
X
X done_it = 0;
X count = 0;
X while ((ans = wgetch(win)) != '\r') {
X /* do our own backspace */
X if (ans == BS || ans == DEL) {
X if (!count) {
X beep();
X continue;
X }
X count--;
X buf[count] = '\0';
X getyx(win, y, x);
X x--;
X wmove(win, y, x);
X waddch(win, (chtype) ' ');
X wmove(win, y, x);
X wrefresh(win);
X continue;
X }
X /* exceeded the max? */
X if (count >= num || count >= MAX_STRING) {
X beep();
X continue;
X }
X /* illegal character? */
X if (ans == '\n') {
X beep();
X continue;
X }
X /* an <ESC> anywhere in the string */
X if (ans == ESC)
X return(NULL);
X /* erase the default answer */
X if (!done_it) {
X waddstr(win, " ");
X wmove(win, 2, 13);
X wrefresh(win);
X done_it++;
X }
X
X buf[count] = ans;
X waddch(win, (chtype) ans);
X wrefresh(win);
X count++;
X }
X buf[count] = '\0';
X return(buf);
X}
END_OF_FILE
if test 3986 -ne `wc -c <'pcomm-2.0/d_print.c'`; then
echo shar: \"'pcomm-2.0/d_print.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/d_print.c'
fi
if test -f 'pcomm-2.0/d_revise.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/d_revise.c'\"
else
echo shar: Extracting \"'pcomm-2.0/d_revise.c'\" \(4002 characters\)
sed "s/^X//" >'pcomm-2.0/d_revise.c' <<'END_OF_FILE'
X/*
X * The revise option of the dialing directory. A non-zero return code
X * means that something was updated. Prompts for saving changes to disk.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "dial_dir.h"
X#include "misc.h"
X#include "param.h"
X
Xstatic char *ld_prompt();
X
Xint
Xrevise()
X{
X WINDOW *r_win, *newwin();
X int count, dir_flag, param_flag, num, x, y, save;
X char ans, buf[40], *ld, *str_rep();
X
X r_win = newwin(7, 77, 7, 2);
X
X mvwaddstr(r_win, 3, 6, "Entry to revise?");
X mvwaddstr(r_win, 3, 35, "(Entry Number, +, -, @, #)");
X box(r_win, VERT, HORZ);
X wmove(r_win, 3, 23);
X wrefresh(r_win);
X
X dir_flag = 0;
X param_flag = 0;
X count = 0;
X
X /*
X * Can't use my home-grown get_str() and get_num() functions
X * here, because we are prompting for an entry number or a
X * long distance code. This routine echoes numbers only.
X */
X while ((ans = wgetch(r_win)) != ESC) {
X if (ans >= '0' && ans <= '9') {
X if (count == 3) {
X beep();
X continue;
X }
X buf[count] = ans;
X waddch(r_win, (chtype) ans);
X wrefresh(r_win);
X count++;
X continue;
X }
X /* terminating CR */
X if (ans == '\r') {
X if (!count) {
X beep();
X continue;
X }
X buf[count] = '\0';
X num = atoi(buf);
X /* valid range of numbers? */
X if (num == 0 || num > NUM_DIR) {
X beep();
X mvwaddstr(r_win, 3, 23, " ");
X wmove(r_win, 3, 23);
X wrefresh(r_win);
X count = 0;
X continue;
X }
X /* prompt for that entry */
X if (prompt_lib(r_win, num)) {
X dir_flag++;
X break;
X }
X delwin(r_win);
X return(0);
X }
X /* do our own backspace */
X if (ans == BS || ans == DEL) {
X if (!count) {
X beep();
X continue;
X }
X count--;
X buf[count] = '\0';
X getyx(r_win, y, x);
X x--;
X wmove(r_win, y, x);
X waddch(r_win, (chtype) ' ');
X wmove(r_win, y, x);
X wrefresh(r_win);
X continue;
X }
X /* non-number after number is error */
X if (count) {
X beep();
X continue;
X }
X /* prompt for LD codes */
X switch (ans) {
X case '+':
X if ((ld = ld_prompt(r_win, param->ld_plus, ans)) != NULL) {
X param->ld_plus = str_rep(param->ld_plus, ld);
X param_flag++;
X }
X break;
X case '-':
X if ((ld = ld_prompt(r_win, param->ld_minus, ans)) != NULL) {
X param->ld_minus = str_rep(param->ld_minus, ld);
X param_flag++;
X }
X break;
X case '@':
X if ((ld = ld_prompt(r_win, param->ld_at, ans)) != NULL) {
X param->ld_at = str_rep(param->ld_at, ld);
X param_flag++;
X }
X break;
X case '#':
X if ((ld = ld_prompt(r_win, param->ld_pound, ans)) != NULL) {
X param->ld_pound = str_rep(param->ld_pound, ld);
X param_flag++;
X }
X break;
X default:
X beep();
X continue;
X }
X break;
X }
X /* if nothing changed */
X if (!param_flag && !dir_flag) {
X delwin(r_win);
X return(0);
X }
X /* save to disk? */
X clear_line(r_win, 4, 4, TRUE);
X if (dir_flag) {
X sprintf(buf, "Save entry %d to disk", num);
X save = yes_prompt(r_win, 4, 4, A_BOLD, buf);
X }
X else
X save = yes_prompt(r_win, 4, 4, A_BOLD, "Save to disk");
X
X /* update the files */
X if (save && dir_flag) {
X if (up_dir(num)) {
X touchwin(r_win);
X wrefresh(r_win);
X }
X }
X if (save && param_flag) {
X if (up_param()) {
X touchwin(r_win);
X wrefresh(r_win);
X }
X }
X delwin(r_win);
X return(1);
X}
X
X/*
X * Prompt for long distance code changes. If new string is a space,
X * change it to null_ptr. Returns NULL on escape. Since it uses
X * get_str(), the return value is a pointer to a static area.
X */
X
Xstatic char *
Xld_prompt(win, current_ld, name)
XWINDOW *win;
Xchar *current_ld, name;
X{
X extern char *null_ptr;
X char *ans, *get_str();
X
X werase(win);
X mvwprintw(win, 2, 4, "%-20.20s", current_ld);
X mvwprintw(win, 4, 4, "New LD code for %c: ", name);
X box(win, VERT, HORZ);
X wrefresh(win);
X
X if ((ans = get_str(win, 20, "", "\n")) == NULL)
X return(NULL);
X /* if space, change to null_ptr */
X if (!strcmp(ans, " "))
X ans = null_ptr;
X /* display new value */
X clear_line(win, 2, 4, TRUE);
X wattrstr(win, A_BOLD, ans);
X
X return(ans);
X}
END_OF_FILE
if test 4002 -ne `wc -c <'pcomm-2.0/d_revise.c'`; then
echo shar: \"'pcomm-2.0/d_revise.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/d_revise.c'
fi
if test -f 'pcomm-2.0/e_lib.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/e_lib.c'\"
else
echo shar: Extracting \"'pcomm-2.0/e_lib.c'\" \(3907 characters\)
sed "s/^X//" >'pcomm-2.0/e_lib.c' <<'END_OF_FILE'
X/*
X * Routines to manipulate the pcomm.extrnl file
X */
X
X#include <stdio.h>
X#include "extrnl.h"
X
X/*
X * Read the external file transfer program database. Returns a pointer
X * to a static area containing the EXTRNL structure. This support file is
X * optional.
X */
X
Xstruct EXTRNL *
Xread_extrnl()
X{
X extern char *null_ptr;
X FILE *fp, *uid_fopen();
X int i, line, up, entry, oops;
X char *str_dup(), buf[200], message[80], token[40], *str_tok(), *str;
X char *sep, *temp_token, *findfile();
X static struct EXTRNL e;
X void error_win();
X
X if ((e.e_path = findfile("pcomm.extrnl")) == NULL) {
X /* not required to exist */
X for (i=0; i<3; i++) {
X e.name[0][i] = null_ptr;
X e.command[0][i] = null_ptr;
X e.prompt[0][i] = 'N';
X e.name[1][i] = null_ptr;
X e.command[1][i] = null_ptr;
X e.prompt[1][i] = 'N';
X }
X e.up_entries = 0;
X e.dn_entries = 0;
X
X return(&e);
X }
X
X if (!(fp = uid_fopen(e.e_path, "r"))) {
X sprintf(buf, "\"%s\" for read", e.e_path);
X error_win(1, "Can't open external program file", buf);
X }
X
X sep = ";;\n";
X line = 0;
X up = 1;
X oops = 0;
X while (fgets(buf, 200, fp) != NULL) {
X line++;
X if (line <= 3)
X entry = line-1;
X else {
X up = 0;
X entry = line-4;
X }
X /* get the token */
X if (!(temp_token = str_tok(buf, '='))) {
X sprintf(message, "is missing a token at line %d", line);
X oops++;
X break;
X }
X /*
X * Parse the rest of the line. This is similar to using
X * the "real" strtok() function, but this version returns
X * a pointer to NULL if the token is missing. Note the
X * use of the array of separators.
X */
X for (i=0; i<3; i++) {
X if (!(str = str_tok((char *) NULL, sep[i]))) {
X sprintf(message, "is missing a parameter at line %d", line);
X oops++;
X break;
X }
X switch(i) {
X case 0:
X e.name[up][entry] = str_dup(str);
X break;
X case 1:
X e.command[up][entry] = str_dup(str);
X break;
X case 2:
X e.prompt[up][entry] = *str;
X break;
X }
X }
X if (oops)
X break;
X
X /* sanity checking */
X if (up)
X sprintf(token, "SEND_%d", entry+1);
X else
X sprintf(token, "RCV_%d", entry+1);
X
X if (strcmp(temp_token, token)) {
X sprintf(message, "is corrupted at line %d", line);
X oops++;
X break;
X }
X }
X fclose(fp);
X
X if (oops) {
X sprintf(buf, "External program file \"%s\"", e.e_path);
X error_win(1, buf, message);
X }
X /* find number of upload entries */
X for (i=0; i<3; i++) {
X if (e.name[1][i] == null_ptr)
X break;
X }
X e.up_entries = i;
X /* find number of download entries */
X for (i=0; i<3; i++) {
X if (e.name[0][i] == null_ptr)
X break;
X }
X e.dn_entries = i;
X /* if empty database */
X if (!e.up_entries || !e.dn_entries) {
X sprintf(buf, "External program file \"%s\"", e.e_path);
X error_win(0, buf, "has no data");
X }
X
X return(&e);
X}
X
X/*
X * Update the external file transfer program database. A non-zero return
X * code means a non-fatal error.
X */
X
Xint
Xup_extrnl()
X{
X FILE *fp, *uid_fopen();
X int i, up, entry;
X char buf[200];
X void error_win();
X
X /*
X * I don't remember why I made this file optional. For the next
X * release, it will be mandatory! The following is kludge to tell
X * the user that there is no file to save anything to.
X */
X if (extrnl->e_path == NULL) {
X error_win(0, "No \"pcomm.extrnl\" file in use", "");
X return(1);
X }
X /* open for write */
X if (!(fp = uid_fopen(extrnl->e_path, "w"))) {
X sprintf(buf, "\"%s\"", extrnl->e_path);
X error_win(0, "No write permission on external program file", buf);
X return(1);
X }
X /* put 'em back */
X up = 1;
X for (i=0; i<6; i++) {
X if (i < 3)
X entry = i;
X else {
X up = 0;
X entry = i-3;
X }
X if (up)
X fprintf(fp, "SEND_%d=%s;%s;%c\n", entry+1, extrnl->name[up][entry], extrnl->command[up][entry], extrnl->prompt[up][entry]);
X else
X fprintf(fp, "RCV_%d=%s;%s;%c\n", entry+1, extrnl->name[up][entry], extrnl->command[up][entry], extrnl->prompt[up][entry]);
X }
X
X fclose(fp);
X return(0);
X}
END_OF_FILE
if test 3907 -ne `wc -c <'pcomm-2.0/e_lib.c'`; then
echo shar: \"'pcomm-2.0/e_lib.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/e_lib.c'
fi
if test -f 'pcomm-2.0/ls_menu.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/ls_menu.c'\"
else
echo shar: Extracting \"'pcomm-2.0/ls_menu.c'\" \(4713 characters\)
sed "s/^X//" >'pcomm-2.0/ls_menu.c' <<'END_OF_FILE'
X/*
X * Routines for displaying current line settings and prompting for changes.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "dial_dir.h"
X#include "misc.h"
X#include "param.h"
X
Xstatic void disp_settings();
X
X/*
X * Display the current line settings and prompt for changes. A non-zero
X * return code means settings were changed.
X */
X
Xint
Xls_menu()
X{
X extern int fd;
X WINDOW *l_win, *newwin();
X int num, ret_code;
X
X l_win = newwin(21, 47, 0, 16);
X
X mvwattrstr(l_win, 1, 16, A_BOLD, "Line Settings");
X horizontal(l_win, 2, 0, 47);
X mvwaddstr(l_win, 6, 5, "1) 300,E,7,1 8) 300,N,8,1");
X mvwaddstr(l_win, 7, 5, "2) 1200,E,7,1 9) 1200,N,8,1");
X mvwaddstr(l_win, 8, 5, "3) 2400,E,7,1 10) 2400,N,8,1");
X mvwaddstr(l_win, 9, 5, "4) 4800,E,7,1 11) 4800,N,8,1");
X mvwaddstr(l_win, 10, 5, "5) 9600,E,7,1 12) 9600,N,8,1");
X mvwaddstr(l_win, 11, 5, "6) 19200,E,7,1 13) 19200,N,8,1");
X mvwaddstr(l_win, 12, 5, "7) 38400,E,7,1 14) 38400,N,8,1");
X mvwaddstr(l_win, 14, 4, "Parity Data Bits Stop Bits");
X mvwaddstr(l_win, 15, 4, "15) Odd 16) 7 bits 18) 1 bit");
X mvwaddstr(l_win, 16, 18, "17) 8 bits 19) 2 bits");
X mvwaddstr(l_win, 18, 4, "20) Save Changes");
X mvwattrstr(l_win, 18, 28, A_BOLD, "YOUR CHOICE:");
X wmove(l_win, 18, 41);
X box(l_win, VERT, HORZ);
X
X mvwaddstr(l_win, 20, 13, " Press <ESC> to return ");
X /* display current settings */
X disp_settings(l_win);
X wmove(l_win, 18, 41);
X wrefresh(l_win);
X /* get the options */
X ret_code = 0;
X while ((num = get_num(l_win, 2)) != -1) {
X switch (num) {
X case 1:
X dir->baud[0] = 300;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 2:
X dir->baud[0] = 1200;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 3:
X dir->baud[0] = 2400;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 4:
X dir->baud[0] = 4800;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 5:
X dir->baud[0] = 9600;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 6:
X dir->baud[0] = 19200;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 7:
X dir->baud[0] = 38400;
X dir->parity[0] = 'E';
X dir->data_bits[0] = 7;
X dir->stop_bits[0] = 1;
X break;
X case 8:
X dir->baud[0] = 300;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 9:
X dir->baud[0] = 1200;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 10:
X dir->baud[0] = 2400;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 11:
X dir->baud[0] = 4800;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 12:
X dir->baud[0] = 9600;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 13:
X dir->baud[0] = 19200;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 14:
X dir->baud[0] = 38400;
X dir->parity[0] = 'N';
X dir->data_bits[0] = 8;
X dir->stop_bits[0] = 1;
X break;
X case 15:
X dir->parity[0] = 'O';
X break;
X case 16:
X dir->data_bits[0] = 7;
X break;
X case 17:
X dir->data_bits[0] = 8;
X break;
X case 18:
X dir->stop_bits[0] = 1;
X break;
X case 19:
X dir->stop_bits[0] = 2;
X break;
X case 20:
X /* copy the current settings */
X param->d_baud = dir->baud[0];
X param->d_parity = dir->parity[0];
X param->d_data_bits = dir->data_bits[0];
X param->d_stop_bits = dir->stop_bits[0];
X /*
X * We've changed the values in memory even
X * if the update fails.
X */
X if (up_param()) {
X touchwin(l_win);
X wrefresh(l_win);
X }
X break;
X default:
X beep();
X }
X ret_code++;
X disp_settings(l_win);
X mvwaddstr(l_win, 17, 41, " ");
X wmove(l_win, 18, 41);
X wrefresh(l_win);
X }
X if (fd == -1) {
X werase(l_win);
X wrefresh(l_win);
X }
X delwin(l_win);
X return(ret_code);
X}
X
X/*
X * Display the current settings. Formats the entire string at one
X * time, in case you've got a magic cookie terminal.
X */
X
Xstatic void
Xdisp_settings(win)
XWINDOW *win;
X{
X extern int xmc;
X char buf[40];
X
X sprintf(buf, "Current Settings: %5d,%c,%d,%d", dir->baud[0],
X dir->parity[0], dir->data_bits[0], dir->stop_bits[0]);
X
X if (xmc > 0) {
X touchwin(win);
X clear_line(win, 4, 8, TRUE);
X wrefresh(win);
X }
X mvwattrstr(win, 4, 8, A_BOLD, buf);
X return;
X}
END_OF_FILE
if test 4713 -ne `wc -c <'pcomm-2.0/ls_menu.c'`; then
echo shar: \"'pcomm-2.0/ls_menu.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/ls_menu.c'
fi
if test -f 'pcomm-2.0/macro.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/macro.c'\"
else
echo shar: Extracting \"'pcomm-2.0/macro.c'\" \(5244 characters\)
sed "s/^X//" >'pcomm-2.0/macro.c' <<'END_OF_FILE'
X/*
X * The keyboard macro feature. Displays (and prompts for editing) the
X * macros assigned to the shifted number keys. Prompts for saving
X * changes to disk.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "misc.h"
X#include "param.h"
X
Xstatic char *mac_prompt();
X
Xvoid
Xmacro()
X{
X extern int fd;
X WINDOW *ma_win, *newwin();
X int ans, changed;
X char *mac, *str_rep();
X
X ma_win = newwin(18, 65, 2, 15);
X mvwattrstr(ma_win, 1, 25, A_BOLD, "Keyboard Macros");
X horizontal(ma_win, 2, 0, 65);
X mvwprintw(ma_win, 4, 0, " %4.4s-! %-50.50s\n", param->ascii_hot, param->mac_1);
X wprintw(ma_win, " %4.4s-@ %-50.50s\n", param->ascii_hot, param->mac_2);
X wprintw(ma_win, " %4.4s-# %-50.50s\n", param->ascii_hot, param->mac_3);
X wprintw(ma_win, " %4.4s-$ %-50.50s\n", param->ascii_hot, param->mac_4);
X wprintw(ma_win, " %4.4s-%% %-50.50s\n", param->ascii_hot, param->mac_5);
X wprintw(ma_win, " %4.4s-^ %-50.50s\n", param->ascii_hot, param->mac_6);
X wprintw(ma_win, " %4.4s-& %-50.50s\n", param->ascii_hot, param->mac_7);
X wprintw(ma_win, " %4.4s-* %-50.50s\n", param->ascii_hot, param->mac_8);
X wprintw(ma_win, " %4.4s-( %-50.50s\n", param->ascii_hot, param->mac_9);
X wprintw(ma_win, " %4.4s-) %-50.50s\n", param->ascii_hot, param->mac_0);
X mvwaddstr(ma_win, 15, 5, "Macro key to revise:");
X box(ma_win, VERT, HORZ);
X /* on the bottom line */
X mvwaddstr(ma_win, 17, 21, " Press <ESC> to continue ");
X wmove(ma_win, 15, 26);
X wrefresh(ma_win);
X
X changed = 0;
X
X while ((ans = wgetch(ma_win)) != ESC) {
X switch (ans) {
X case '!': /* shifted 1 */
X if ((mac = mac_prompt(ans, param->mac_1)) != NULL) {
X param->mac_1 = str_rep(param->mac_1, mac);
X clear_line(ma_win, 4, 9, TRUE);
X mvwattrstr(ma_win, 4, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '@': /* shifted 2 */
X if ((mac = mac_prompt(ans, param->mac_2)) != NULL) {
X param->mac_2 = str_rep(param->mac_2, mac);
X clear_line(ma_win, 5, 9, TRUE);
X mvwattrstr(ma_win, 5, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '#': /* shifted 3 */
X if ((mac = mac_prompt(ans, param->mac_3)) != NULL) {
X param->mac_3 = str_rep(param->mac_3, mac);
X clear_line(ma_win, 6, 9, TRUE);
X mvwattrstr(ma_win, 6, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '$': /* shifted 4 */
X if ((mac = mac_prompt(ans, param->mac_4)) != NULL) {
X param->mac_4 = str_rep(param->mac_4, mac);
X clear_line(ma_win, 7, 9, TRUE);
X mvwattrstr(ma_win, 7, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '%': /* shifted 5 */
X if ((mac = mac_prompt(ans, param->mac_5)) != NULL) {
X param->mac_5 = str_rep(param->mac_5, mac);
X clear_line(ma_win, 8, 9, TRUE);
X mvwattrstr(ma_win, 8, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '^': /* shifted 6 */
X if ((mac = mac_prompt(ans, param->mac_6)) != NULL) {
X param->mac_6 = str_rep(param->mac_6, mac);
X clear_line(ma_win, 9, 9, TRUE);
X mvwattrstr(ma_win, 9, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '&': /* shifted 7 */
X if ((mac = mac_prompt(ans, param->mac_7)) != NULL) {
X param->mac_7 = str_rep(param->mac_7, mac);
X clear_line(ma_win, 10, 9, TRUE);
X mvwattrstr(ma_win, 10, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '*': /* shifted 8 */
X if ((mac = mac_prompt(ans, param->mac_8)) != NULL) {
X param->mac_8 = str_rep(param->mac_8, mac);
X clear_line(ma_win, 11, 9, TRUE);
X mvwattrstr(ma_win, 11, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case '(': /* shifted 9 */
X if ((mac = mac_prompt(ans, param->mac_9)) != NULL) {
X param->mac_9 = str_rep(param->mac_9, mac);
X clear_line(ma_win, 12, 9, TRUE);
X mvwattrstr(ma_win, 12, 9, A_BOLD, mac);
X changed++;
X }
X break;
X case ')': /* shifted 0 */
X if ((mac = mac_prompt(ans, param->mac_0)) != NULL) {
X param->mac_0 = str_rep(param->mac_0, mac);
X clear_line(ma_win, 13, 9, TRUE);
X mvwattrstr(ma_win, 13, 9, A_BOLD, mac);
X changed++;
X }
X break;
X default:
X beep();
X break;
X }
X touchwin(ma_win);
X wmove(ma_win, 15, 26);
X wrefresh(ma_win);
X }
X /* if something changed */
X if (changed) {
X /* save to disk? */
X if (yes_prompt(ma_win, 15, 30, A_BOLD, "Save to disk")) {
X if (up_param()) {
X touchwin(ma_win);
X wrefresh(ma_win);
X }
X }
X }
X if (fd == -1) {
X werase(ma_win);
X wrefresh(ma_win);
X }
X delwin(ma_win);
X return;
X}
X
X/*
X * Sounds like McDonalds doesn't it? Actually, it opens a new window
X * and prompts for the new macro. Returns a pointer to the new string.
X * Since it uses get_str(), the return value points to a static area.
X */
X
Xstatic char *
Xmac_prompt(key, string)
Xchar key, *string;
X{
X extern char *null_ptr;
X WINDOW *mp_win, *newwin();
X char *new, *get_str();
X
X mp_win = newwin(6, 65, 8, 0);
X mvwprintw(mp_win, 2, 3, "%4.4s-%c %-50.50s", param->ascii_hot, key, string);
X mvwaddstr(mp_win, 3, 5, "New : ");
X box(mp_win, VERT, HORZ);
X wrefresh(mp_win);
X
X if ((new = get_str(mp_win, 50, "", "\n")) != NULL) {
X /* if CR, return NULL */
X if (*new == '\0')
X new = NULL;
X /* if space, change to null_ptr */
X else if (!strcmp(new, " "))
X new = null_ptr;
X }
X
X werase(mp_win);
X wrefresh(mp_win);
X delwin(mp_win);
X return(new);
X}
END_OF_FILE
if test 5244 -ne `wc -c <'pcomm-2.0/macro.c'`; then
echo shar: \"'pcomm-2.0/macro.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/macro.c'
fi
if test -f 'pcomm-2.0/s_axfer.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_axfer.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_axfer.c'\" \(3830 characters\)
sed "s/^X//" >'pcomm-2.0/s_axfer.c' <<'END_OF_FILE'
X/*
X * Display the ASCII transfer setup, query for changes. A non-zero return
X * code means something was changed.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "misc.h"
X#include "param.h"
X
Xint
Xaxfer_setup()
X{
X extern char *v_yes[];
X WINDOW *x_win, *newwin();
X int i, ret_code, num;
X char *ans, *menu_prompt(), *str_rep();
X static char *v_cr[4] = {"NONE", "STRIP", "ADD LF", NULL};
X static char *v_lf[4] = {"NONE", "STRIP", "ADD CR", NULL};
X static char *v_delay[4] = {"0", "100", "150", NULL};
X
X x_win = newwin(23, 80, 0, 0);
X
X horizontal(x_win, 0, 0, 28);
X mvwattrstr(x_win, 0, 29, A_BOLD, "ASCII Transfer Setup");
X horizontal(x_win, 0, 50, 29);
X mvwaddstr(x_win, 3, 33, "ASCII UPLOAD");
X mvwprintw(x_win, 5, 22, "1) Echo locally ........... %s", param->local_echo);
X mvwprintw(x_win, 6, 22, "2) Expand blank lines ..... %s", param->expand);
X mvwprintw(x_win, 7, 22, "3) CR delay (ms) .......... %d", param->cr_delay);
X mvwprintw(x_win, 8, 22, "4) Pace the output ........ %s", param->pace);
X mvwprintw(x_win, 9, 22, "5) CR translation ......... %s", param->cr_up);
X mvwprintw(x_win, 10, 22, "6) LF translation ......... %s", param->lf_up);
X mvwaddstr(x_win, 12, 32, "ASCII DOWNLOAD");
X mvwprintw(x_win, 14, 22, "7) Transfer timeout (sec) . %d", param->timer);
X mvwprintw(x_win, 15, 22, "8) CR translation ......... %s", param->cr_dn);
X mvwprintw(x_win, 16, 22, "9) LF translation ......... %s", param->lf_dn);
X horizontal(x_win, 19, 0, 80);
X mvwattrstr(x_win, 20, 0, A_BOLD, "OPTION ==> ");
X mvwaddstr(x_win, 20, 58, "Press <ESC> to return");
X wmove(x_win, 20, 12);
X touchwin(x_win);
X wrefresh(x_win);
X /* get the option number */
X ret_code = 0;
X while ((i = get_num(x_win, 1)) != -1) {
X switch (i) {
X case 1:
X if ((ans = menu_prompt(x_win, 5, 50, "Echo locally", v_yes)) != NULL) {
X param->local_echo = str_rep(param->local_echo, ans);
X ret_code++;
X }
X break;
X case 2:
X if ((ans = menu_prompt(x_win, 6, 50, "Expand blank lines", v_yes)) != NULL) {
X param->expand = str_rep(param->expand, ans);
X ret_code++;
X }
X break;
X case 3:
X if ((ans = menu_prompt(x_win, 7, 50, "CR delay (ms)", v_delay)) != NULL) {
X param->cr_delay = atoi(ans);
X ret_code++;
X }
X break;
X case 4:
X if ((ans = menu_prompt(x_win, 8, 50, "Pace the output", v_yes)) != NULL) {
X param->pace = str_rep(param->pace, ans);
X ret_code++;
X }
X break;
X case 5:
X if ((ans = menu_prompt(x_win, 9, 50, "CR translation (upload)", v_cr)) != NULL) {
X param->cr_up = str_rep(param->cr_up, ans);
X ret_code++;
X }
X break;
X case 6:
X if ((ans = menu_prompt(x_win, 10, 50, "LF translation (upload)", v_lf)) != NULL) {
X param->lf_up = str_rep(param->lf_up, ans);
X ret_code++;
X }
X break;
X case 7:
X if ((num = num_prompt(x_win, 14, 50, "Transfer timeout", "(in seconds)")) != -1) {
X if (num > MAX_TIMER || num < MIN_TIMER) {
X beep();
X /* some reasonable range of values */
X if (num < MIN_TIMER)
X num = MIN_TIMER;
X else
X num = MAX_TIMER;
X mvwaddstr(x_win, 14, 50, " ");
X wrefresh(x_win);
X mvwattrnum(x_win, 14, 50, A_BOLD, num);
X wrefresh(x_win);
X }
X param->timer = num;
X ret_code++;
X }
X break;
X case 8:
X if ((ans = menu_prompt(x_win, 15, 50, "CR translation (download)", v_cr)) != NULL) {
X param->cr_dn = str_rep(param->cr_dn, ans);
X ret_code++;
X }
X break;
X case 9:
X if ((ans = menu_prompt(x_win, 16, 50, "LF translation (download)", v_lf)) != NULL) {
X param->lf_dn = str_rep(param->lf_dn, ans);
X ret_code++;
X }
X break;
X default:
X beep();
X }
X mvwaddch(x_win, 20, 12, (chtype) ' ');
X clear_line(x_win, 21, 0, FALSE);
X clear_line(x_win, 22, 0, FALSE);
X wmove(x_win, 20, 12);
X wrefresh(x_win);
X }
X delwin(x_win);
X return(ret_code);
X}
END_OF_FILE
if test 3830 -ne `wc -c <'pcomm-2.0/s_axfer.c'`; then
echo shar: \"'pcomm-2.0/s_axfer.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_axfer.c'
fi
if test -f 'pcomm-2.0/s_extrnl.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_extrnl.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_extrnl.c'\" \(4098 characters\)
sed "s/^X//" >'pcomm-2.0/s_extrnl.c' <<'END_OF_FILE'
X/*
X * Display the external protocol setup, query for changes. A non-zero
X * return code means something was changed.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "extrnl.h"
X#include "misc.h"
X
Xstatic int ext_prompt();
Xstatic void disp_ext();
X
Xint
Xext_setup()
X{
X extern char *null_ptr;
X WINDOW *ext_win, *newwin();
X int i, ret_code;
X char *str, *get_str();
X
X ext_win = newwin(23, 80, 0, 0);
X
X horizontal(ext_win, 0, 0, 27);
X mvwattrstr(ext_win, 0, 28, A_BOLD, "External Protocol Setup");
X horizontal(ext_win, 0, 52, 27);
X mvwaddstr(ext_win, 3, 36, "UPLOAD");
X mvwaddstr(ext_win, 5, 8, "Name");
X mvwaddstr(ext_win, 5, 21, "Command line");
X mvwaddstr(ext_win, 5, 54, "Requires file list?");
X mvwaddstr(ext_win, 10, 35, "DOWNLOAD");
X mvwaddstr(ext_win, 12, 8, "Name");
X mvwaddstr(ext_win, 12, 21, "Command line");
X mvwaddstr(ext_win, 12, 54, "Requires file list?");
X /* display the current list */
X disp_ext(ext_win);
X
X horizontal(ext_win, 19, 0, 80);
X mvwattrstr(ext_win, 20, 0, A_BOLD, "OPTION ==> ");
X mvwaddstr(ext_win, 20, 58, "Press <ESC> to return");
X wmove(ext_win, 20, 12);
X touchwin(ext_win);
X wrefresh(ext_win);
X /* get the option */
X ret_code = 0;
X while ((str = get_str(ext_win, 1, "1234356", "")) != NULL) {
X switch(*str) {
X case '1':
X if (ext_prompt(ext_win, 1, 0, 6))
X ret_code++;
X break;
X case '2':
X if (ext_prompt(ext_win, 1, 1, 7))
X ret_code++;
X break;
X case '3':
X if (ext_prompt(ext_win, 1, 2, 8))
X ret_code++;
X break;
X case '4':
X if (ext_prompt(ext_win, 0, 0, 13))
X ret_code++;
X break;
X case '5':
X if (ext_prompt(ext_win, 0, 1, 14))
X ret_code++;
X break;
X case '6':
X if (ext_prompt(ext_win, 0, 2, 15))
X ret_code++;
X break;
X }
X mvwaddstr(ext_win, 20, 12, " ");
X clear_line(ext_win, 21, 0, FALSE);
X clear_line(ext_win, 22, 0, FALSE);
X wmove(ext_win, 20, 12);
X wrefresh(ext_win);
X }
X /*
X * Recalculate the number of entries. Please notice that if you
X * create an empty entry (a hole), all entries after that are ignored.
X * The software doesn't compact the holes out.. you're on your own.
X */
X if (ret_code) {
X for (i=0; i<3; i++) {
X if (extrnl->name[1][i] == null_ptr)
X break;
X }
X extrnl->up_entries = i;
X
X for (i=0; i<3; i++) {
X if (extrnl->name[0][i] == null_ptr)
X break;
X }
X extrnl->dn_entries = i;
X }
X delwin(ext_win);
X return(ret_code);
X}
X
X/*
X * Display the current list of external file transfer programs.
X */
X
Xstatic void
Xdisp_ext(win)
XWINDOW *win;
X{
X int i, up, entry, line;
X
X up = 1;
X line = 6;
X for (i=0; i<6; i++) {
X if (i < 3)
X entry = i;
X else {
X up = 0;
X entry = i-3;
X line = 10;
X }
X mvwprintw(win, i+line, 5, "%d) %-12.12s %-40.40s %c\n",
X i+1, extrnl->name[up][entry], extrnl->command[up][entry],
X extrnl->prompt[up][entry]);
X }
X return;
X}
X
X/*
X * Prompt for the info in the database. A non-zero return code means
X * that something was changed. To delete the line, you enter a single
X * space character at the first prompt.
X */
X
Xstatic int
Xext_prompt(win, up, entry, line)
XWINDOW *win;
Xint up, entry, line;
X{
X extern char *v_yn[], *null_ptr;
X char *ans, t_name[80], t_command[80], *str_prompt(), *str_rep();
X char *strcpy(), *menu_prompt();
X
X /* get temp name */
X if ((ans = str_prompt(win, line, 8, "Protocol name", "")) == NULL)
X return(0);
X
X strcpy(t_name, ans);
X clear_line(win, 21, 0, FALSE);
X /* are we zapping the line */
X if (ans == null_ptr) {
X extrnl->name[up][entry] = null_ptr;
X extrnl->command[up][entry] = null_ptr;
X extrnl->prompt[up][entry] = 'N';
X return(1);
X }
X /* get temp command */
X if ((ans = str_prompt(win, line, 21, "Command line", "")) == NULL)
X return(0);
X
X strcpy(t_command, ans);
X clear_line(win, 21, 0, FALSE);
X
X /* get temp prompt */
X if ((ans = menu_prompt(win, line, 63, "Does it require a file list", v_yn)) == NULL)
X return(0);
X
X wrefresh(win);
X /* store 'em for real */
X extrnl->name[up][entry] = str_rep(extrnl->name[up][entry], t_name);
X extrnl->command[up][entry] = str_rep(extrnl->command[up][entry], t_command);
X extrnl->prompt[up][entry] = *ans;
X
X return(1);
X}
END_OF_FILE
if test 4098 -ne `wc -c <'pcomm-2.0/s_extrnl.c'`; then
echo shar: \"'pcomm-2.0/s_extrnl.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_extrnl.c'
fi
if test -f 'pcomm-2.0/s_gen.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_gen.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_gen.c'\" \(4393 characters\)
sed "s/^X//" >'pcomm-2.0/s_gen.c' <<'END_OF_FILE'
X/*
X * Display the general setup, query for changes. A non-zero return code
X * means something was changed.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "misc.h"
X#include "param.h"
X
Xint
Xgen_setup()
X{
X extern char *v_yes[];
X WINDOW *g_win, *newwin();
X int i, num, ret_code;
X char c, *ans, *str_prompt(), *menu_prompt(), chr_prompt();
X char *str_rep();
X void line_set();
X static char *v_abort[3] = {"KEEP", "DELETE", NULL};
X
X g_win = newwin(23, 80, 0, 0);
X
X horizontal(g_win, 0, 0, 32);
X mvwattrstr(g_win, 0, 33, A_BOLD, "General Setup");
X horizontal(g_win, 0, 47, 32);
X mvwprintw(g_win, 3, 22, "1) Default log file ....... %s", param->logfile);
X mvwprintw(g_win, 4, 22, "2) Screen dump file ....... %s", param->dumpfile);
X mvwprintw(g_win, 6, 22, "3) Strip high bit ........ %s", param->strip);
X mvwprintw(g_win, 8, 22, "4) Pause character ........ %c", param->pause_char);
X mvwprintw(g_win, 9, 22, "5) CR character ........... %c", param->cr_char);
X mvwprintw(g_win, 10, 22, "6) CTRL character ......... %c", param->ctrl_char);
X mvwprintw(g_win, 11, 22, "7) ESC character .......... %c", param->esc_char);
X mvwprintw(g_win, 12, 22, "8) Break character ........ %c", param->brk_char);
X mvwprintw(g_win, 14, 22, "9) Aborted downloads ...... %s", param->abort);
X mvwprintw(g_win, 16, 21, "10) Connect delay (sec) .... %d", param->c_delay);
X mvwprintw(g_win, 17, 21, "11) Redial delay (sec) ..... %d", param->r_delay);
X horizontal(g_win, 19, 0, 80);
X mvwattrstr(g_win, 20, 0, A_BOLD, "OPTION ==> ");
X mvwaddstr(g_win, 20, 58, "Press <ESC> to return");
X wmove(g_win, 20, 12);
X touchwin(g_win);
X wrefresh(g_win);
X /* get the option number */
X ret_code = 0;
X while ((i = get_num(g_win, 2)) != -1) {
X switch (i) {
X case 1:
X if ((ans = str_prompt(g_win, 3, 50, "Default log file", "")) != NULL) {
X param->logfile = str_rep(param->logfile, ans);
X ret_code++;
X }
X break;
X case 2:
X if ((ans = str_prompt(g_win, 4, 50, "Default screen dump file", "")) != NULL) {
X param->dumpfile = str_rep(param->dumpfile, ans);
X ret_code++;
X }
X break;
X case 3:
X if ((ans = menu_prompt(g_win, 6, 50, "Strip high bit?", v_yes)) != NULL) {
X param->strip = str_rep(param->strip, ans);
X line_set();
X ret_code++;
X }
X break;
X case 4:
X if ((c = chr_prompt(g_win, 8, 50, "Pause character", "1 second")) != '\0') {
X param->pause_char = c;
X ret_code++;
X }
X break;
X case 5:
X if ((c = chr_prompt(g_win, 9, 50, "CR character", "(carriage return)")) != '\0') {
X param->cr_char = c;
X ret_code++;
X }
X break;
X case 6:
X if ((c = chr_prompt(g_win, 10, 50, "CTRL character", "(control)")) != '\0') {
X param->ctrl_char = c;
X ret_code++;
X }
X break;
X case 7:
X if ((c = chr_prompt(g_win, 11, 50, "ESC character", "(escape)")) != '\0') {
X param->esc_char = c;
X ret_code++;
X }
X break;
X case 8:
X if ((c = chr_prompt(g_win, 12, 50, "Break character", "")) != '\0') {
X param->brk_char = c;
X ret_code++;
X }
X break;
X case 9:
X if ((ans = menu_prompt(g_win, 14, 50, "Aborted downloads", v_abort)) != NULL) {
X param->abort = str_rep(param->abort, ans);
X ret_code++;
X }
X break;
X case 10:
X if ((num = num_prompt(g_win, 16, 50, "Connect delay time", "(in seconds)")) != -1) {
X if (num > MAX_CDELAY || num < MIN_CDELAY) {
X beep();
X /* some reasonable range of values */
X if (num < MIN_CDELAY)
X num = MIN_CDELAY;
X else
X num = MAX_CDELAY;
X mvwaddstr(g_win, 16, 50, " ");
X wrefresh(g_win);
X mvwattrnum(g_win, 16, 50, A_BOLD, num);
X wrefresh(g_win);
X }
X param->c_delay = num;
X ret_code++;
X }
X break;
X case 11:
X if ((num = num_prompt(g_win, 17, 50, "Redial delay time", "(in seconds)")) != -1) {
X if (num > MAX_PAUSE || num < MIN_PAUSE) {
X beep();
X /* some reasonable range */
X if (num < MIN_PAUSE)
X num = MIN_PAUSE;
X else
X num = MAX_PAUSE;
X mvwaddstr(g_win, 17, 50, " ");
X wrefresh(g_win);
X mvwattrnum(g_win, 17, 50, A_BOLD, num);
X wrefresh(g_win);
X }
X param->r_delay = num;
X ret_code++;
X }
X break;
X default:
X beep();
X }
X mvwaddstr(g_win, 20, 12, " ");
X clear_line(g_win, 21, 0, FALSE);
X clear_line(g_win, 22, 0, FALSE);
X wmove(g_win, 20, 12);
X wrefresh(g_win);
X }
X delwin(g_win);
X return(ret_code);
X}
END_OF_FILE
if test 4393 -ne `wc -c <'pcomm-2.0/s_gen.c'`; then
echo shar: \"'pcomm-2.0/s_gen.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_gen.c'
fi
if test -f 'pcomm-2.0/s_menu.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_menu.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_menu.c'\" \(2972 characters\)
sed "s/^X//" >'pcomm-2.0/s_menu.c' <<'END_OF_FILE'
X/*
X * Display the setup menu, prompts for a bunch of other menus.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "misc.h"
X
Xstatic void top_line();
X
Xvoid
Xsetup_menu()
X{
X extern int fd, xmc;
X WINDOW *s_win, *newwin();
X char *ans, *get_str();
X static int param_flag = 0, modem_flag = 0, ext_flag = 0;
X
X s_win = newwin(LINES-1, COLS, 0, 0);
X
X top_line(s_win);
X mvwaddstr(s_win, 3, 29, "1) TTY Setup");
X mvwaddstr(s_win, 5, 29, "2) Modem Setup");
X mvwaddstr(s_win, 7, 29, "3) Terminal Setup");
X mvwaddstr(s_win, 9, 29, "4) General Setup");
X mvwaddstr(s_win, 11, 29, "5) ASCII Transfer Setup");
X mvwaddstr(s_win, 13, 29, "6) External Protocol Setup");
X mvwaddstr(s_win, 15, 29, "S) Save setup to disk");
X horizontal(s_win, 19, 0, 80);
X mvwattrstr(s_win, 20, 0, A_BOLD, "OPTION ==> ");
X mvwaddstr(s_win, 20, 58, " Press <ESC> to exit");
X wmove(s_win, 20, 12);
X touchwin(s_win);
X wrefresh(s_win);
X
X /* get the options */
X while ((ans = get_str(s_win, 1, "123456Ss", "")) != NULL) {
X if (xmc > 0) {
X clear_line(s_win, 0, 0, FALSE);
X wrefresh(s_win);
X }
X switch (*ans) {
X case '1':
X if (tty_setup())
X modem_flag++;
X break;
X case '2':
X if (modem_setup())
X modem_flag++;
X break;
X case '3':
X if (term_setup())
X param_flag++;
X break;
X case '4':
X if (gen_setup())
X param_flag++;
X break;
X case '5':
X if (axfer_setup())
X param_flag++;
X break;
X case '6':
X if (ext_setup())
X ext_flag++;
X break;
X case 's':
X case 'S':
X if (xmc > 0)
X top_line(s_win);
X /*
X * Writes to disk are not critical, since
X * the changes are made in memory.
X */
X if (param_flag) {
X mvwattrstr(s_win, 22, 27, A_BLINK, "Updating Parameter File");
X wrefresh(s_win);
X wait_key(s_win, 3);
X if (up_param()) {
X touchwin(s_win);
X wrefresh(s_win);
X }
X else
X param_flag = 0;
X }
X if (modem_flag) {
X mvwattrstr(s_win, 22, 27, A_BLINK, "Updating Modem Database");
X wrefresh(s_win);
X wait_key(s_win, 3);
X if (up_modem()) {
X touchwin(s_win);
X wrefresh(s_win);
X }
X else
X modem_flag = 0;
X }
X if (ext_flag) {
X mvwattrstr(s_win, 22, 25, A_BLINK, "Updating External Protocols");
X wrefresh(s_win);
X wait_key(s_win, 3);
X if (up_extrnl()) {
X touchwin(s_win);
X wrefresh(s_win);
X }
X else
X ext_flag = 0;
X }
X clear_line(s_win, 22, 25, FALSE);
X wrefresh(s_win);
X break;
X default:
X beep();
X }
X touchwin(s_win);
X if (xmc > 0)
X top_line(s_win);
X
X mvwaddch(s_win, 20, 12, (chtype) ' ');
X wmove(s_win, 20, 12);
X wrefresh(s_win);
X }
X if (fd == -1) {
X werase(s_win);
X wrefresh(s_win);
X }
X delwin(s_win);
X return;
X}
X
X/*
X * Put the top line on the window.
X */
X
Xstatic void
Xtop_line(win)
XWINDOW *win;
X{
X clear_line(win, 0, 0, FALSE);
X wrefresh(win);
X horizontal(win, 0, 0, 33);
X mvwattrstr(win, 0, 34, A_BOLD, "Setup Menu");
X horizontal(win, 0, 45, 34);
X wrefresh(win);
X return;
X}
END_OF_FILE
if test 2972 -ne `wc -c <'pcomm-2.0/s_menu.c'`; then
echo shar: \"'pcomm-2.0/s_menu.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_menu.c'
fi
if test -f 'pcomm-2.0/s_prompt.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_prompt.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_prompt.c'\" \(3076 characters\)
sed "s/^X//" >'pcomm-2.0/s_prompt.c' <<'END_OF_FILE'
X/*
X * Prompting routines used in the setup menus.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "misc.h"
X
X/*
X * Prompt for a string at line 21 (with optional line 22 for additional
X * information). Display the new string in bold at its original location
X * in the menu. Used in virtually all of the *_setup() routines. Since
X * it uses get_str(), the return value points to a static area.
X */
X
Xchar *
Xstr_prompt(win, y, x, p1, p2)
XWINDOW *win;
Xint y, x;
Xchar *p1, *p2;
X{
X extern char *null_ptr;
X char *ans, *get_str();
X /* print first prompt last */
X mvwaddstr(win, 22, 0, p2);
X mvwaddstr(win, 21, 0, p1);
X waddstr(win, ": ");
X wrefresh(win);
X
X if ((ans = get_str(win, 80, "", "\n")) == NULL)
X return(NULL);
X /* check the value */
X if (!strcmp(ans, " "))
X ans = null_ptr;
X /* display the value in bold */
X clear_line(win, y, x, FALSE);
X wattrstr(win, A_BOLD, ans);
X
X return(ans);
X}
X
X/*
X * Same as above, except we return a single character.
X */
X
Xchar
Xchr_prompt(win, y, x, p1, p2)
XWINDOW *win;
Xint y, x;
Xchar *p1, *p2;
X{
X char *ans, *get_str();
X /* print first prompt last */
X mvwaddstr(win, 22, 0, p2);
X mvwaddstr(win, 21, 0, p1);
X waddstr(win, ": ");
X wrefresh(win);
X
X if ((ans = get_str(win, 1, "", "\n")) == NULL)
X return('\0');
X /* display the value in bold */
X mvwaddstr(win, y, x, " ");
X wrefresh(win);
X mvwattrstr(win, y, x, A_BOLD, ans);
X
X return((char) *ans);
X}
X
X/*
X * Same as above, except that it prompts for a three digit number.
X */
X
Xint
Xnum_prompt(win, y, x, p1, p2)
XWINDOW *win;
Xint y, x;
Xchar *p1, *p2;
X{
X int i;
X /* print first prompt last */
X mvwaddstr(win, 22, 0, p2);
X mvwaddstr(win, 21, 0, p1);
X waddstr(win, ": ");
X wrefresh(win);
X
X if ((i = get_num(win, 3)) == -1)
X return(-1);
X /* display the value in bold */
X mvwaddstr(win, y, x, " ");
X wrefresh(win);
X mvwattrnum(win, y, x, A_BOLD, i);
X /* return the number */
X return(i);
X}
X
X/*
X * Prompts for a selection from a menu. We display the prompt lines,
X * and show the choices one at a time. The user selects the currently
X * showing choice by hitting a carriage return. Unlike the similar
X * routines in d_prompt(), the first choice shown is not necessarily
X * the current.
X */
X
Xchar *v_yes[3] = {"YES", "NO", NULL};
Xchar *v_yn[3] = {"Y", "N", NULL};
X
Xchar *
Xmenu_prompt(win, y, x, p, menu)
XWINDOW *win;
Xint y, x;
Xchar *p, *menu[];
X{
X char ans;
X int i, cy, cx;
X /* print first prompt last */
X mvwaddstr(win, 22, 0, "Press any key to change, or <CR> to accept");
X mvwaddstr(win, 21, 0, p);
X waddstr(win, ": ");
X /* show first choice */
X i = 0;
X getyx(win, cy, cx);
X mvwprintw(win, cy, cx, "%-30.30s", menu[i]);
X wmove(win, cy, cx);
X wrefresh(win);
X /* show the choices one at a time */
X while ((ans = wgetch(win)) != '\r') {
X i++;
X if (menu[i] == NULL)
X i = 0;
X if (ans == ESC)
X return(NULL);
X mvwprintw(win, cy, cx, "%-30.30s", menu[i]);
X wmove(win, cy, cx);
X wrefresh(win);
X }
X /* display the value in bold */
X clear_line(win, y, x, FALSE);
X wattrstr(win, A_BOLD, menu[i]);
X /* return the value */
X return(menu[i]);
X}
END_OF_FILE
if test 3076 -ne `wc -c <'pcomm-2.0/s_prompt.c'`; then
echo shar: \"'pcomm-2.0/s_prompt.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_prompt.c'
fi
if test -f 'pcomm-2.0/s_term.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_term.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_term.c'\" \(2909 characters\)
sed "s/^X//" >'pcomm-2.0/s_term.c' <<'END_OF_FILE'
X/*
X * Display the terminal setup, query for changes. A non-zero return
X * means something was changed.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "dial_dir.h"
X#include "misc.h"
X#include "param.h"
X
Xint
Xterm_setup()
X{
X WINDOW *t_win, *newwin();
X int i, num, ret_code;
X char *ans, *str_rep(), *str_prompt(), *menu_prompt();
X void line_set();
X static char *v_crio[3] = {"CR", "CR/LF", NULL};
X static char *v_duplex[3] = {"FULL", "HALF", NULL};
X static char *v_flow[3] = {"NONE", "XON/XOFF", NULL};
X
X t_win = newwin(23, 80, 0, 0);
X
X horizontal(t_win, 0, 0, 32);
X mvwattrstr(t_win, 0, 33, A_BOLD, "Terminal Setup");
X horizontal(t_win, 0, 48, 32);
X mvwprintw(t_win, 4, 22, "1) Hot key (decimal) ...... %d", param->hot_key);
X mvwprintw(t_win, 6, 22, "2) ASCII version of hot ... %s", param->ascii_hot);
X mvwprintw(t_win, 9, 22, "3) Duplex ................. %s", param->d_duplex);
X mvwprintw(t_win, 11, 22, "4) Flow control ........... %s", param->flow_ctrl);
X mvwprintw(t_win, 13, 22, "5) CR translation (in) .... %s", param->cr_in);
X mvwprintw(t_win, 15, 22, "6) CR translation (out) ... %s", param->cr_out);
X horizontal(t_win, 19, 0, 80);
X mvwattrstr(t_win, 20, 0, A_BOLD, "OPTION ==> ");
X mvwaddstr(t_win, 20, 58, "Press <ESC> to return");
X wmove(t_win, 20, 12);
X touchwin(t_win);
X wrefresh(t_win);
X /* get the option number */
X ret_code = 0;
X while ((i = get_num(t_win, 1)) != -1) {
X switch (i) {
X case 1:
X if ((num = num_prompt(t_win, 4, 50, "Hot key", "decimal code for the hot key")) != -1) {
X param->hot_key = num;
X ret_code++;
X }
X break;
X case 2:
X again:
X ans = str_prompt(t_win, 6, 50, "ASCII version of hot key", "(printable version, max of 4 characters)");
X if (ans != NULL) {
X if (strlen(ans) > 4) {
X beep();
X clear_line(t_win, 21, 0, 0);
X goto again;
X }
X param->ascii_hot = str_rep(param->ascii_hot, ans);
X ret_code++;
X }
X break;
X case 3:
X if ((ans = menu_prompt(t_win, 9, 50, "Duplex", v_duplex)) != NULL) {
X param->d_duplex = str_rep(param->d_duplex, ans);
X dir->duplex[0] = *param->d_duplex;
X ret_code++;
X }
X break;
X case 4:
X if ((ans = menu_prompt(t_win, 11, 50, "Flow control", v_flow)) != NULL) {
X param->flow_ctrl = str_rep(param->flow_ctrl, ans);
X line_set();
X ret_code++;
X }
X break;
X case 5:
X if ((ans = menu_prompt(t_win, 13, 50, "CR translation (in)", v_crio)) != NULL) {
X
X param->cr_in = str_rep(param->cr_in, ans);
X ret_code++;
X }
X break;
X case 6:
X if ((ans = menu_prompt(t_win, 15, 50, "CR translation (out)", v_crio)) != NULL) {
X param->cr_out = str_rep(param->cr_out, ans);
X ret_code++;
X }
X break;
X default:
X beep();
X }
X mvwaddch(t_win, 20, 12, (chtype) ' ');
X clear_line(t_win, 21, 0, FALSE);
X clear_line(t_win, 22, 0, FALSE);
X wmove(t_win, 20, 12);
X wrefresh(t_win);
X }
X delwin(t_win);
X return(ret_code);
X}
END_OF_FILE
if test 2909 -ne `wc -c <'pcomm-2.0/s_term.c'`; then
echo shar: \"'pcomm-2.0/s_term.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_term.c'
fi
if test -f 'pcomm-2.0/s_tty.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/s_tty.c'\"
else
echo shar: Extracting \"'pcomm-2.0/s_tty.c'\" \(4931 characters\)
sed "s/^X//" >'pcomm-2.0/s_tty.c' <<'END_OF_FILE'
X/*
X * Display the TTY setup, query for changes. A non-zero return code
X * means something was changed.
X */
X
X#include <stdio.h>
X#include <curses.h>
X#include "misc.h"
X#include "modem.h"
X
Xstatic int tty_prompt();
Xstatic void disp_tty(), del_tty();
X
Xint
Xtty_setup()
X{
X WINDOW *tt_win, *newwin();
X char message[80], *str, *get_str();
X int num, i, j, ret_code;
X void create_modem(), del_modem(), error_win();
X
X tt_win = newwin(23, 80, 0, 0);
X
X horizontal(tt_win, 0, 0, 34);
X mvwattrstr(tt_win, 0, 35, A_BOLD, "TTY Setup");
X horizontal(tt_win, 0, 45, 34);
X mvwaddstr(tt_win, 2, 22, "TTY name");
X mvwaddstr(tt_win, 2, 37, "Modem name");
X mvwaddstr(tt_win, 2, 50, "Locked speed");
X /* display the current TTY list */
X disp_tty(tt_win);
X /* prompt for options */
X mvwaddstr(tt_win, 15, 20, "A) Add a TTY entry");
X mvwaddstr(tt_win, 16, 20, "D) Delete a TTY entry");
X horizontal(tt_win, 19, 0, 80);
X mvwattrstr(tt_win, 20, 0, A_BOLD, "OPTION ==> ");
X mvwaddstr(tt_win, 20, 58, "Press <ESC> to return");
X wmove(tt_win, 20, 12);
X touchwin(tt_win);
X wrefresh(tt_win);
X /* get the option */
X ret_code = 0;
X while ((str = get_str(tt_win, 2, "01234356789AaDd", "")) != NULL) {
X switch(*str) {
X case '0':
X case '1':
X case '2':
X case '3':
X case '4':
X case '5':
X case '6':
X case '7':
X case '8':
X case '9':
X i = atoi(str);
X /* if beyond t_entries */
X if (i > modem->t_entries) {
X beep();
X break;
X }
X
X /* change the entry */
X if (tty_prompt(tt_win, i-1)) {
X
X /* requires modem update? */
X create_modem(modem->tname[i-1]);
X del_modem();
X ret_code++;
X }
X break;
X case 'a':
X case 'A': /* add an entry */
X if (modem->t_entries == NUM_TTY) {
X sprintf(message, "\"%s\"", modem->m_path);
X error_win(0, "No empty TTY slots in modem/TTY database", message);
X break;
X }
X /* prompt for info */
X j = modem->t_entries;
X if (tty_prompt(tt_win, j)) {
X
X /* add modem entry? */
X modem->t_entries++;
X create_modem(modem->tname[j]);
X ret_code++;
X }
X break;
X case 'd':
X case 'D': /* delete an entry */
X mvwaddstr(tt_win, 21, 0, "Entry number to delete: ");
X wrefresh(tt_win);
X while ((num = get_num(tt_win, 4)) != -1) {
X /* valid range */
X if (!num || num>modem->t_entries) {
X beep();
X mvwaddstr(tt_win, 21, 24, " ");
X wmove(tt_win, 21, 24);
X wrefresh(tt_win);
X continue;
X }
X del_tty(num-1);
X del_modem();
X
X /* show the new list */
X disp_tty(tt_win);
X ret_code++;
X break;
X }
X break;
X default:
X beep();
X break;
X }
X mvwaddstr(tt_win, 20, 12, " ");
X clear_line(tt_win, 21, 0, FALSE);
X clear_line(tt_win, 22, 0, FALSE);
X wmove(tt_win, 20, 12);
X wrefresh(tt_win);
X }
X delwin(tt_win);
X return(ret_code);
X}
X
X/*
X * Display the current TTY list. No scrolling yet, so if your NUM_TTY is
X * greater than ten, this routine will need some work.
X */
X
Xstatic void
Xdisp_tty(win)
XWINDOW *win;
X{
X int i;
X
X for (i=0; i<NUM_TTY; i++)
X mvwprintw(win, i+4, 20, "%2d) %-14.14s %-14.14s %d\n",
X i+1, modem->tty[i], modem->tname[i], modem->lock_sp[i]);
X return;
X}
X
X/*
X * Prompt the user for the TTY database info. A non-zero return code means
X * something was changed. The second argument is the zero based index.
X */
X
Xstatic int
Xtty_prompt(win, i)
XWINDOW *win;
Xint i;
X{
X char *ans, t_tty[80], t_tname[80], *str_prompt(), *menu_prompt();
X char *str_rep(), *strcpy();
X static char *v_baud[9] = {"0", "300", "1200", "2400", "4800", "9600",
X "19200", "38400", NULL};
X /* get temp TTY */
X if ((ans = str_prompt(win, i+4, 24, "TTY name", "")) == NULL)
X return(0);
X
X strcpy(t_tty, ans);
X clear_line(win, 21, 0, FALSE);
X
X /* get temp tname */
X if ((ans = str_prompt(win, i+4, 39, "Modem name", "")) == NULL)
X return(0);
X
X strcpy(t_tname, ans);
X clear_line(win, 21, 0, FALSE);
X
X /* get DTE locked baud */
X if ((ans = menu_prompt(win, i+4, 55, "Locked speed", v_baud)) == NULL)
X return(0);
X
X wrefresh(win);
X /* store 'em for real */
X modem->tty[i] = str_rep(modem->tty[i], t_tty);
X modem->tname[i] = str_rep(modem->tname[i], t_tname);
X modem->lock_sp[i] = atoi(ans);
X
X return(1);
X}
X
X/*
X * Delete a TTY entry. Since the list must be contiguous, we collapse the
X * list to cover the hole we made.
X */
X
Xstatic void
Xdel_tty(i)
Xint i;
X{
X extern char *null_ptr;
X int j;
X char *str_rep();
X void free_ptr();
X /* collapse the list */
X for (j=i; j<modem->t_entries-1; j++) {
X modem->tty[j] = str_rep(modem->tty[j], modem->tty[j+1]);
X modem->tname[j] = str_rep(modem->tname[j], modem->tname[j+1]);
X modem->lock_sp[j] = modem->lock_sp[j+1];
X }
X j = modem->t_entries-1;
X /* zap the entry */
X free_ptr(modem->tty[j]);
X free_ptr(modem->tname[j]);
X modem->tty[j] = null_ptr;
X modem->tname[j] = null_ptr;
X modem->lock_sp[j] = 0;
X /* update the count */
X modem->t_entries--;
X if (modem->t_cur >= modem->t_entries)
X modem->t_cur = -1;
X return;
X}
END_OF_FILE
if test 4931 -ne `wc -c <'pcomm-2.0/s_tty.c'`; then
echo shar: \"'pcomm-2.0/s_tty.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/s_tty.c'
fi
if test -f 'pcomm-2.0/strings.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/strings.c'\"
else
echo shar: Extracting \"'pcomm-2.0/strings.c'\" \(4196 characters\)
sed "s/^X//" >'pcomm-2.0/strings.c' <<'END_OF_FILE'
X/*
X * Miscellaneous string routines.
X */
X
X#include <stdio.h>
X#include "config.h"
X
X/*
X * Do a fancy string copy. If NULL, return null. If pointer to NULL, then
X * return the special "null_ptr" variable. If a normal copy, allocate
X * memory first.
X */
X
Xchar *
Xstr_dup(str)
Xchar *str;
X{
X extern char *null_ptr;
X char *ret, *malloc(), *strcpy();
X void error_win();
X
X if (str == NULL)
X return(NULL);
X /* if pointer to null */
X if (*str == '\0')
X return(null_ptr);
X
X if (!(ret = malloc((unsigned int) strlen(str)+1)))
X error_win(1, "Out of memory", "");
X
X strcpy(ret, str);
X return(ret);
X}
X
X/*
X * Perform the free(2) function, but check for NULL and the special
X * "null_ptr" variable first.
X */
X
Xvoid
Xfree_ptr(str)
Xchar *str;
X{
X extern char *null_ptr;
X void free();
X
X if (str != NULL && str != null_ptr)
X free(str);
X return;
X}
X
X/*
X * Replace a string. Follows the same convention as str_dup(), except
X * that realloc() is used instead of malloc(). Returns a pointer to
X * the new string (which may have moved).
X */
X
Xchar *
Xstr_rep(s1, s2)
Xchar *s1, *s2;
X{
X extern char *null_ptr;
X void free_ptr(), error_win();
X char *s, *malloc(), *realloc(), *strcpy();
X
X /* copy null pointer ? */
X if (s2 == NULL) {
X free_ptr(s1);
X return(NULL);
X }
X if (s2 == '\0') {
X free_ptr(s1);
X return(null_ptr);
X }
X /* use realloc()? */
X if (s1 == NULL || s1 == null_ptr) {
X if (!(s = malloc((unsigned int) strlen(s2)+1)))
X error_win(1, "Out of memory", "");
X }
X else {
X if (!(s = realloc(s1, (unsigned int) strlen(s2)+1)))
X error_win(1, "Out of memory", "");
X }
X
X strcpy(s, s2);
X return(s);
X}
X
X/*
X * This routine is similar to strtok(3). But this version handles missing
X * tokens by returning a pointer to null. Also it takes a single separator
X * character as an argument. Returns a NULL on end of string or error.
X */
X
Xchar *
Xstr_tok(str, c)
Xchar *str, c;
X{
X char *strchr();
X static char *ptr, *sep;
X /* start at beginning */
X if (str != NULL)
X ptr = str;
X else
X ptr = sep;
X /* at the end? */
X if (*ptr == '\0')
X return(NULL);
X /* no separator? */
X if (!(sep = strchr(ptr, c)))
X return(NULL);
X /* zap the sep, move past it */
X *sep = '\0';
X sep++;
X
X return(ptr);
X}
X
X#ifndef HAVE_STRSTR
X/*
X * Return a pointer to the first occurrence of string str2 in str1.
X * Returns a NULL if str2 is not in str1.
X */
X
Xchar *
Xstrstr(str1, str2)
Xchar *str1, *str2;
X{
X int len;
X
X len = strlen(str2);
X while (*str1) {
X if (*str2 == *str1) {
X if (!strncmp(str2, str1, len))
X return(str1);
X }
X str1++;
X }
X return(NULL);
X}
X#endif /* HAVE_STRSTR */
X
X#ifdef BSD
X/*
X * Returns the length of the initial segment of string which consists
X * entirely of characters from charset.
X */
X
Xint
Xstrspn(string, charset)
Xchar *string;
Xregister char *charset;
X{
X register char *p, *q;
X
X for(q=string; *q != '\0'; ++q) {
X for(p=charset; *p != '\0' && *p != *q; ++p)
X ;
X if(*p == '\0')
X break;
X }
X return(q-string);
X}
X
X/*
X * Strtok considers string to consist of a sequence of zero or more
X * text tokens separated by spans of one or more characters from sepset.
X */
X
Xchar *
Xstrtok(string, sepset)
Xchar *string, *sepset;
X{
X register char *p, *q, *r;
X static char *savept;
X char *strpbrk();
X
X /*first or subsequent call*/
X p = (string == NULL)? savept: string;
X
X if(p == 0) /* return if no tokens remaining */
X return(NULL);
X
X q = p + strspn(p, sepset); /* skip leading separators */
X
X if(*q == '\0') /* return if no tokens remaining */
X return(NULL);
X
X if((r = strpbrk(q, sepset)) == NULL) /* move past token */
X savept = 0; /* indicate this is last token */
X else {
X *r = '\0';
X savept = ++r;
X }
X return(q);
X}
X
X/*
X * Return ptr to first occurrence of any character from `brkset'
X * in the character string `string'; NULL if none exists.
X */
X
Xchar *
Xstrpbrk(string, brkset)
Xregister char *string, *brkset;
X{
X register char *p;
X
X if(!string || !brkset)
X return(0);
X do {
X for(p=brkset; *p != '\0' && *p != *string; ++p)
X ;
X if(*p != '\0')
X return(string);
X }
X while(*string++);
X return(0);
X}
X
X/*
X * Copies the character c, n times to string s
X */
X
Xchar *
Xmemset(s, c, n)
Xchar *s, c;
Xint n;
X{
X char *s1 = s;
X
X while (n > 0) {
X --n;
X *s++ = c;
X }
X return(s1);
X}
X#endif /* BSD */
END_OF_FILE
if test 4196 -ne `wc -c <'pcomm-2.0/strings.c'`; then
echo shar: \"'pcomm-2.0/strings.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/strings.c'
fi
if test -f 'pcomm-2.0/tty_att.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/tty_att.c'\"
else
echo shar: Extracting \"'pcomm-2.0/tty_att.c'\" \(5206 characters\)
sed "s/^X//" >'pcomm-2.0/tty_att.c' <<'END_OF_FILE'
X/*
X * System V specific routines for manipulating the TTY
X */
X
X#include <stdio.h>
X#include <termio.h>
X#include <fcntl.h>
X#include "dial_dir.h"
X#include "modem.h"
X#include "param.h"
X
Xstatic struct termio hold;
X
X/*
X * Change the communication line settings to the new values.
X */
X
Xvoid
Xline_set()
X{
X static int first = 1;
X extern int fd;
X struct termio tbuf;
X unsigned int baud;
X /* nothing to do! */
X if (fd == -1)
X return;
X
X if (first) {
X ioctl(fd, TCGETA, &hold);
X first = 0;
X }
X /* get the current settings */
X ioctl(fd, TCGETA, &tbuf);
X /* set some beginning values */
X tbuf.c_cc[4] = 1; /* VMIN */
X tbuf.c_cc[5] = 1; /* VTIME */
X tbuf.c_oflag = 0;
X tbuf.c_iflag = 0;
X tbuf.c_cflag = (CREAD|HUPCL|CLOCAL);
X tbuf.c_lflag = 0;
X
X if (*param->flow_ctrl == 'X')
X tbuf.c_iflag |= (IXON|IXOFF);
X /* strip high bit? */
X if (*param->strip == 'Y')
X tbuf.c_iflag |= ISTRIP;
X
X /*
X * If the DTE speed is locked, then ignore all request to
X * change the speed.
X */
X baud = modem->lock_sp[modem->t_cur];
X if (baud == 0)
X baud = dir->baud[0];
X /* the baud rate */
X switch (baud) {
X case 300:
X tbuf.c_cflag |= B300;
X break;
X case 1200:
X tbuf.c_cflag |= B1200;
X break;
X case 2400:
X tbuf.c_cflag |= B2400;
X break;
X case 4800:
X tbuf.c_cflag |= B4800;
X break;
X case 9600:
X tbuf.c_cflag |= B9600;
X break;
X case 19200:
X#ifdef B19200
X tbuf.c_cflag |= B19200;
X#else /* B19200 */
X#ifdef EXTA
X tbuf.c_cflag |= EXTA;
X#endif /* EXTA */
X#endif /* B19200 */
X break;
X case 38400:
X#ifdef B38400
X tbuf.c_cflag |= B38400;
X#else /* B38400 */
X#ifdef EXTB
X tbuf.c_cflag |= EXTB;
X#endif /* EXTB */
X#endif /* B38400 */
X break;
X }
X /* the parity */
X switch (dir->parity[0]) {
X case 'N':
X break;
X case 'O':
X tbuf.c_cflag |= (PARENB|PARODD);
X break;
X case 'E':
X tbuf.c_cflag |= PARENB;
X break;
X }
X /* the data bits */
X if (dir->data_bits[0] == 8)
X tbuf.c_cflag |= CS8;
X else
X tbuf.c_cflag |= CS7;
X /* the stop bits */
X if (dir->stop_bits[0] == 2)
X tbuf.c_cflag |= CSTOPB;
X
X /* now set 'em! */
X ioctl(fd, TCSETAF, &tbuf);
X return;
X}
X
X/*
X * Put things back the way they were.
X */
X
Xvoid
Xreset_line()
X{
X extern int fd;
X
X ioctl(fd, TCSETAF, &hold);
X return;
X}
X
X/*
X * Put the stdin/stdout in terminal mode. We've divided up the
X * responsibility for the line settings options between the serial port
X * and the stdin and stdout.
X */
X
Xvoid
Xterm_mode()
X{
X struct termio tbuf;
X
X ioctl(0, TCGETA, &tbuf);
X
X tbuf.c_cc[4] = 1; /* VMIN */
X tbuf.c_cc[5] = 0; /* VTIME */
X tbuf.c_iflag = 0;
X tbuf.c_oflag = 0;
X tbuf.c_lflag = 0;
X /* duplex */
X if (dir->duplex[0] == 'H')
X tbuf.c_lflag = ECHO;
X
X ioctl(0, TCSETAF, &tbuf);
X return;
X}
X
X/*
X * Put the TTY driver in the mode suitable for xmodem transfers.
X */
X
Xvoid
Xxmodem_mode(fds)
Xint fds;
X{
X struct termio tbuf;
X
X ioctl(fds, TCGETA, &tbuf);
X /*
X * Turn off the XON/XOFF flow control, turn off echoing, and
X * switch to 8 bit no parity.
X */
X tbuf.c_cc[4] = 1; /* VMIN */
X tbuf.c_cc[5] = 0; /* VTIME */
X tbuf.c_iflag = 0; /* no flow control or mapping */
X tbuf.c_oflag = 0; /* no char mapping or delays */
X tbuf.c_lflag = 0; /* no echo or signals */
X tbuf.c_cflag &= ~(PARENB|CSIZE);/* no parity */
X tbuf.c_cflag |= CS8; /* 8 bit */
X
X ioctl(fds, TCSETAF, &tbuf);
X return;
X}
X
X/*
X * Put the TTY line in a mode suitable for the ASCII transfer. Puts the
X * terminal in the raw, non-blocking mode.
X */
X
Xvoid
Xascii_mode(up)
Xint up;
X{
X extern int fd;
X struct termio tbuf;
X
X ioctl(fd, TCGETA, &tbuf);
X tbuf.c_oflag = 0;
X /* flow control & 8th bit stripping */
X if (up) {
X tbuf.c_iflag = (ISTRIP|IXON);
X
X /* if no CR's, use NL delays */
X if (!strcmp(param->cr_up, "STRIP"))
X tbuf.c_oflag = (OPOST|ONLRET);
X
X /* CR delay times */
X switch (param->cr_delay) {
X case 0:
X break;
X case 100:
X tbuf.c_oflag |= (OPOST|CR2);
X break;
X case 150:
X tbuf.c_oflag |= (OPOST|CR3);
X break;
X }
X }
X /* if down loading */
X else
X tbuf.c_iflag = (ISTRIP|IXOFF);
X
X ioctl(fd, TCSETAF, &tbuf);
X return;
X}
X
X/*
X * Flush the file descriptor
X */
X
Xint
Xtty_flush(fds, mode)
Xint fds, mode;
X{
X return(ioctl(fds, TCFLSH, mode));
X}
X
X/*
X * Wait for the output to drain
X */
X
Xint
Xtty_drain(fds)
Xint fds;
X{
X return(ioctl(fds, TCSBRK, 1));
X}
X
X/*
X * Send a modem break
X */
X
Xint
Xtty_break(fds)
Xint fds;
X{
X return(ioctl(fds, TCSBRK, 0));
X}
X
X/*
X * Fix the file descriptor so that a read is satisfied immediately. When
X * read() is called it returns the character in the queue, or an error if
X * no key was pressed.
X */
X
Xint
Xtty_noblock(fds, on)
Xint fds, on;
X{
X int current;
X
X current = fcntl(fds, F_GETFL, 0);
X if (on)
X return(fcntl(fds, F_SETFL, current | O_NDELAY));
X else
X return(fcntl(fds, F_SETFL, current & ~O_NDELAY));
X}
X
X/*
X * Get the current baud rate of the terminal
X */
X
Xint
Xmy_speed()
X{
X static unsigned int speed[16] = {0, 50, 75, 110, 134, 150, 200, 300,
X 600, 1200, 1800, 2400, 4800, 9600, 19200, 38400};
X struct termio tbuf;
X
X ioctl(0, TCGETA, &tbuf);
X return(speed[tbuf.c_cflag & CBAUD]);
X}
X
X/*
X * Restart any XON/XOFF flow control that may have stopped the tty
X */
X
Xvoid
Xtty_restart()
X{
X extern int fd;
X
X if (fd != -1 && *param->flow_ctrl == 'X')
X ioctl(fd, TCXONC, 1);
X return;
X}
END_OF_FILE
if test 5206 -ne `wc -c <'pcomm-2.0/tty_att.c'`; then
echo shar: \"'pcomm-2.0/tty_att.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/tty_att.c'
fi
if test -f 'pcomm-2.0/tty_ucb.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pcomm-2.0/tty_ucb.c'\"
else
echo shar: Extracting \"'pcomm-2.0/tty_ucb.c'\" \(5184 characters\)
sed "s/^X//" >'pcomm-2.0/tty_ucb.c' <<'END_OF_FILE'
X/*
X * Berkeley specific routines for manipulating the TTY
X */
X
X#include <stdio.h>
X#include <sgtty.h>
X#include <fcntl.h>
X#include "dial_dir.h"
X#include "modem.h"
X#include "param.h"
X
Xstatic struct sgttyb hold;
X
X/*
X * Change the communication line settings to the new values.
X */
X
Xvoid
Xline_set()
X{
X static int first = 1;
X extern int fd;
X struct sgttyb tbuf;
X unsigned int baud;
X /* nothing to do! */
X if (fd == -1)
X return;
X
X if (first) {
X ioctl(fd, TIOCGETP, &hold);
X first = 0;
X }
X /* get the current settings */
X ioctl(fd, TIOCGETP, &tbuf);
X /* set some beginning values */
X tbuf.sg_flags = CBREAK;
X
X if (*param->flow_ctrl == 'X')
X tbuf.sg_flags |= TANDEM;
X /*
X * If the DTE speed is locked, then ignore all request to change
X * the speed.
X */
X baud = modem->init_sp[modem->t_cur];
X if (baud == 0)
X baud = dir->baud[0];
X /* the baud rate */
X switch (baud) {
X case 300:
X tbuf.sg_ispeed = B300;
X tbuf.sg_ospeed = B300;
X break;
X case 1200:
X tbuf.sg_ispeed = B1200;
X tbuf.sg_ospeed = B1200;
X break;
X case 2400:
X tbuf.sg_ispeed = B2400;
X tbuf.sg_ospeed = B2400;
X break;
X case 4800:
X tbuf.sg_ispeed = B4800;
X tbuf.sg_ospeed = B4800;
X break;
X case 9600:
X tbuf.sg_ispeed = B9600;
X tbuf.sg_ospeed = B9600;
X break;
X case 19200:
X#ifdef B19200
X tbuf.sg_ispeed = B19200;
X tbuf.sg_ospeed = B19200;
X#else /* B19200 */
X#ifdef EXTA
X tbuf.sg_ispeed = EXTA;
X tbuf.sg_ospeed = EXTA;
X#endif /* EXTA */
X#endif /* B19200 */
X break;
X case 38400:
X#ifdef B38400
X tbuf.sg_ispeed = B38400;
X tbuf.sg_ospeed = B38400;
X#else /* B38400 */
X#ifdef EXTB
X tbuf.sg_ispeed = EXTB;
X tbuf.sg_ospeed = EXTB;
X#endif /* EXTB */
X#endif /* B38400 */
X break;
X }
X /* the parity */
X switch (dir->parity[0]) {
X case 'N':
X tbuf.sg_flags |= ANYP;
X break;
X case 'O':
X tbuf.sg_flags |= ODDP;
X break;
X case 'E':
X tbuf.sg_flags |= EVENP;
X break;
X }
X /* now set 'em! */
X ioctl(fd, TIOCSETP, &tbuf);
X ioctl(fd, TIOCHPCL, 0);
X return;
X}
X
X/*
X * Put things back the way they were.
X */
X
Xvoid
Xreset_line()
X{
X extern int fd;
X
X ioctl(fd, TIOCSETP, &hold);
X return;
X}
X
X/*
X * Put the stdin/stdout in terminal mode. We've divided up the
X * responsibility for the line settings options between the serial port
X * and the stdin and stdout.
X */
X
Xvoid
Xterm_mode()
X{
X struct sgttyb tbuf;
X
X ioctl(0, TIOCGETP, &tbuf);
X
X tbuf.sg_flags |= RAW;
X tbuf.sg_flags &= ~(CRMOD|ECHO);
X
X if (dir->duplex[0] == 'H')
X tbuf.sg_flags |= ECHO;
X
X ioctl(0, TIOCSETP, &tbuf);
X return;
X}
X
X/*
X * Put the TTY driver in the mode suitable for xmodem transfers.
X */
X
Xvoid
Xxmodem_mode(fds)
Xint fds;
X{
X struct sgttyb tbuf;
X
X ioctl(fds, TIOCGETP, &tbuf);
X /*
X * Turn off the XON/XOFF flow control, turn off echoing, and
X * switch to 8 bit no parity.
X */
X tbuf.sg_flags |= (RAW|ANYP);
X tbuf.sg_flags &= ~ECHO;
X ioctl(fds, TIOCSETP, &tbuf);
X return;
X}
X
X/*
X * Put the TTY line in a mode suitable for the ASCII transfer.
X */
X
Xvoid
Xascii_mode(up)
Xint up;
X{
X extern int fd;
X struct sgttyb tbuf;
X
X ioctl(fd, TIOCGETP, &tbuf);
X
X tbuf.sg_flags |= (CBREAK|TANDEM);
X tbuf.sg_flags &= ~(RAW|CRMOD|ECHO|CRDELAY);
X
X if (up) {
X /* CR delay times */
X switch (param->cr_delay) {
X case 0:
X break;
X case 100:
X tbuf.sg_flags |= CR1;
X break;
X case 150:
X tbuf.sg_flags |= CR2;
X break;
X }
X }
X
X ioctl(fd, TIOCSETP, &tbuf);
X return;
X}
X
X/*
X * Flush the file descriptor. Very messy... flushing the input causes a
X * wait for the output to drain, and there is no output flushing.
X */
X
Xint
Xtty_flush(fds, mode)
Xint fds, mode;
X{
X int ret_code = 0;
X struct sgttyb tbuf;
X
X switch(mode) {
X case 0: /* flush input queue */
X ioctl(fds, TIOCGETP, &tbuf);
X ioctl(fds, TIOCSETP, &tbuf);
X break;
X case 1: /* flush output queue */
X /* sorry! */
X break;
X case 2: /* flush both input and output */
X ioctl(fds, TIOCFLUSH, 0);
X break;
X default:
X ret_code++;
X break;
X }
X return(ret_code);
X}
X
X/*
X * Wait for the output to drain
X */
X
Xint
Xtty_drain(fds)
Xint fds;
X{
X struct sgttyb tbuf;
X /* this flushes the input too */
X ioctl(fds, TIOCGETP, &tbuf);
X return(ioctl(fds, TIOCSETP, &tbuf));
X}
X
X/*
X * Send a modem break
X */
X
Xint
Xtty_break(fds)
Xint fds;
X{
X unsigned int sleep();
X
X ioctl(fds, TIOCSBRK, (struct sgttyb *) 0);
X sleep(1);
X return(ioctl(fds, TIOCCBRK, (struct sgttyb *) 0));
X}
X
X/*
X * Fix the file descriptor so that a read is satisfied immediately. When
X * read() is called it returns the character in the queue, or an error if
X * no key was pressed.
X */
X
Xint
Xtty_noblock(fds, on)
Xint fds, on;
X{
X int current;
X
X current = fcntl(fds, F_GETFL, 0);
X if (on)
X return(fcntl(fds, F_SETFL, current | FNDELAY));
X else
X return(fcntl(fds, F_SETFL, current & ~FNDELAY));
X}
X
X/*
X * Get the current baud rate of the terminal
X */
X
Xint
Xmy_speed()
X{
X static unsigned int speed[16] = {0, 50, 75, 110, 134, 150, 200, 300,
X 600, 1200, 1800, 2400, 4800, 9600, 19200, 38400};
X struct sgttyb tbuf;
X
X ioctl(0, TIOCGETP, &tbuf);
X return(speed[tbuf.sg_ispeed]);
X}
X
X/*
X * Restart any XON/XOFF flow control that may have stopped the tty
X */
X
Xvoid
Xtty_restart()
X{
X extern int fd;
X
X if (fd != -1 && *param->flow_ctrl == 'X')
X ioctl(fd, TIOCFLUSH, (struct sgttyb *) 0);
X return;
X}
END_OF_FILE
if test 5184 -ne `wc -c <'pcomm-2.0/tty_ucb.c'`; then
echo shar: \"'pcomm-2.0/tty_ucb.c'\" unpacked with wrong size!
fi
# end of 'pcomm-2.0/tty_ucb.c'
fi
echo shar: End of archive 2 \(of 8\).
cp /dev/null ark2isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 8 archives.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Frank Kaefer # fkk@stasys.sta.sub.org # Starnberg, Germany
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads