v06i087: System V generic dial routines (sysVdial), Part2/3

sources-request at mirror.UUCP sources-request at mirror.UUCP
Mon Aug 4 23:05:06 AEST 1986


Submitted by: ihnp4!quest!gene
Mod.sources: Volume 6, Issue 87
Archive-name: sysVdial/Part2

[  I did not try to compile this, as we run BSD exlusively.  It appears
   that the hardest part of doing the port will be emulating the timed-
   out reads (c_cc[VTIME]) in dial.c  --r$  ]

#	Generic Modem Dialer subroutine and support programs for system V.
#	
#	Modem configuration is done in the user configured file
#	dialinfo.  Should be able to dial any modem (eg Vadic, Hayes)
#	with a built-in auto dialer.   Replaces ATT dial(3C).
#	Works with CU, uucico, lp, etc.
#	
#	This is part 2 of 3.
#	
#	The parts are:
#	
#	1)	README file and all documentation.
#	2)	Makefile, dialinfo, *.h, some *.c files
#	3)	dial.c
#	
#--------CUT---------CUT---------CUT---------CUT--------#
#########################################################
#                                                       #
# This is a shell archive file.  To extract files:      #
#                                                       #
#    1)	Create an empty directory for the files.        #
#    2) Write a file, such as "file.shar", containing   #
#       this archive file into the directory.           #
#    3) Type "sh file.shar".  Do not use csh.           #
#                                                       #
#########################################################
echo Creating: Makefile
sed -e 's/^#//' >Makefile <<'end_Makefile'
##	Copyright 1986, Gene H. Olson, Quest Research, Burnsville MN.
##	Permission to copy and distribute for any purpose,
##	so long as this notice is preserved.
#
#CFLAGS =
#
#PROGS = dialer dialprint
#
#N = @nroff -man
#
#all: $(PROGS)
#
#doc:
#	$N dialer.1
#	$N dialprint.1
#	$N dial.3
#	$N dialinfo.4
#
#dialprint: libdial.a dialprint.o
#	cc dialprint.o libdial.a -o dialprint
#
#dialer: libdial.a dialer.o
#	cc dialer.o libdial.a -o dialer
#
#libdial.a: readinfo.o dialinfo.o dial.o
#	rm -f libdial.a
#	ar cr libdial.a dial.o dialinfo.o readinfo.o
#
#readinfo.o: readinfo.h
#dialinfo.o: readinfo.h dialinfo.h
#dial.o: dialinfo.h readinfo.h dial.h
#dialprint.o: dialinfo.h dial.h
#dialer.o: dial.h
#
#lint:
#	lint readinfo.c dialinfo.c dialprint.c
#	lint readinfo.c dialinfo.c dial.c dialer.c
#
#install: $(PROGS)
#	cp dialinfo /usr/lib/uucp
#	cp $(PROGS) /usr/lbin
#	: cp dial.h /usr/include
#	: cp libdial.a /usr/lib/libdial.a
#	: ar r /lib/libc.a dial.o dialinfo.o readinfo.o
#
#clean:
#	rm -f $(PROGS) libdial.a *.o
end_Makefile
echo Creating: dialinfo
sed -e 's/^#//' >dialinfo <<'end_dialinfo'
###############################################################
##       Dialinfo - Dialer procedure definitions              #
##                                                            #
##    See dialer.1 dialprint.1 dial.2 dialinfo.7 for          #
##    more information.   And good luck.                      #
##                                                            #
##                                Gene H. Olson (author)      #
###############################################################
#
##	Hayes modem dialer.
#
#hayes,
#	star=*, pound=#, flash=H0\,H1,
#	delay=\,, wait=\,, retry=20,
#	s0=P1 M"AT Q0\r" [OK]1 [in:]4 [IN:]4 [rd:]4 [RD:]4 S10 T3,
#	s1=E"dialing %1 %2 %3 %4 %{DIALDEBUG}" M"AT DT%N\r" [CONNECT]10 [NO CARRIER]2 S60 T3,
#	s2=E"no answer ..." D1 R3 G0,
#	s3=E"no modem response ..." D1 R10 G0,
#	s4=E"hung up unix system ..." D1 R5 G0,
#	s6=\$hello \${hello},
#	s10=C1 G+,
#
#
##	Hayes entry to call another UNIX system.
#
#uhayes,
#	s10=E"looking for login ..." C1 [login:]40 [ssword:]11 H31 S2  T11,
#	s11=R1 M"^M"  [login:]40 [ssword:]11 H31 S5  T12,
#	s12=M"^M"     [login:]40 [ssword:]11 H31 S5  T13,
#	s13=M"^D^D^D" [login:]40 [ssword:]11 H31 S10 T14,
#	s14=B         [login:]40 [ssword:]11 H31 S10 T15,
#	s15=M"^M"     [login:]40 [ssword:]11 H31 S5  T16,
#	s16=B         [login:]40 [ssword:]11 H31 S10 T17,
#	s17=M"^M"     [login:]40 [ssword:]11 H31 S5  T18,
#	s18=B         [login:]40 [ssword:]11 H31 S10 T19,
#	s19=M"^M"     [login:]40 [ssword:]11 H31 S5  T20,
#	s20=B         [login:]40 [ssword:]11 H31 S10 T21,
#	s21=M"^M"     [login:]40 [ssword:]11 H31 S5  T30,
#
#	s30=E"No response from remote ..." R10 G0,
#	s31=E"Remote system hung up ..." R3 G0,
#
#	s40=M"^M"     G+,
#	use=hayes,
#
##	Vadic 3451
#
#vadic|va3451,
#	delay=K, wait=KK, retry=5,
#	s0=G1,
#	s1=M"^E^M" [Y\n*] S4 T10,
#	s2=M"D^M" [NUMBER]3 [ERROR]11 [*]11 T0,
#	s3=M"%P^M" [%N]4 [ERROR]11 [*]11 T0,
#	s4=M"^M" [ING:],
#	s5=[CONNECT]+ [NO CARRIER]12 T30,
#	s10=E"No response from dialer" R2 G0,
#	s11=E"Comm error with dialer" R2 G0,
#	s12=E"Connect failed" R1 G0,
#	use=prometheus,
end_dialinfo
echo Creating: dial.h
sed -e 's/^#//' >dial.h <<'end_dial.h'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
#/*	Dial(3C) return codes */
#
##define	INTRPT   (-1)   /* Interrupt during dial */
##define	D_HUNG   (-2)   /* Dialer hung */
##define	NO_ANS   (-3)   /* Busy or no answer */
##define	ILL_BD   (-4)   /* Illegal/unknown baud rate */
##define	A_PROB   (-5)   /* Dialinfo(4) configuration error */
##define	L_PROB   (-6)   /* TTY device error */
##define	NO_Ldv   (-7)   /* L-devices file unreadable */
##define	DV_NT_A  (-8)   /* Requested device not available */
##define	DV_NT_K  (-9)   /* Requested device unknown */
##define	NO_BD_A  (-10)  /* Nothing available at requested speed */
##define	NO_BD_K  (-11)  /* No device known at requested speed */
#
#/*	Dial(3C) Call structure */
#
#typedef struct {
#	struct termio  *attr;     /* Final terminal attributes */
#	int            baud;      /* Baud rate to use after dialing */
#	int            speed;     /* Baud rate to use during dialing */
#	char           *line;     /* TTY device name */
#	char           *telno;    /* Phone number(s) or system name */
#	int            modem;     /* Modem control for direct lines */
#	char           *device;   /* ACU or dialer name */
#	int            dev_len;   /* Length of device name (not used) */
#} CALL;
#
#/*	External definitions */
#
#extern int nolock ;	/* Don't use the lock file */
#
#extern int dial() ;
#extern void undial() ;
#extern void dialmsg() ;
end_dial.h
echo Creating: dialinfo.h
sed -e 's/^#//' >dialinfo.h <<'end_dialinfo.h'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
#/*********************************************************************
# *           DIALINFO  dialer description header file.               *
# *********************************************************************/
#
#
##define NSTATE	100				/* Max number of keyboard states */
#
#/*
# *	Dialer Information (dialinfo) structure to define
# *	characteristics of a dialer.
# */
#
#typedef struct dialinfo {
#	char	*di_star ;				/* "*" button push string */
#	char	*di_pound ;				/* "#"	button push string */
#	char	*di_delay ;				/* "-"  delay 4 sec */
#	char	*di_wait ;				/* "="	wait for dial tone */
#	char	*di_flash ;				/* "f"	flash off hook 1 sec */
#	short	di_retry ;				/* Retry count */
#	char	*di_state[NSTATE];		/* State list */
#	} DINFO ;
#
#extern void dialfree() ;
end_dialinfo.h
echo Creating: readinfo.h
sed -e 's/^#//' >readinfo.h <<'end_readinfo.h'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
#/***********************************************************
# *     Header file for common info file string/keyword     *
# *     unpacking routines.                                 *
# ***********************************************************/
#
#
##define IKEYSIZE	10				/* Max keyword length */
##define ITEXTSIZE	100				/* Max key value length */
end_readinfo.h
echo Creating: readinfo.c
sed -e 's/^#//' >readinfo.c <<'end_readinfo.c'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
#
#/***************************************************************
# *        Procedures to read "info" files in the style         *
# *        of "terminfo" or "dialinfo".                         *
# ***************************************************************/
#
#
##include <stdio.h>
##include <ctype.h>
#
##include "readinfo.h"
#
##define loop for(;;)
#
#extern char *strcpy() ;
#extern char *getenv() ;
#
#/******
# *	findinfo - Find entry in info file.
# *
# *	Returns: 0=found, -1=not found.
# */
#
#static int
#findinfo(file, entry)
#register FILE *file ;				/* Open file to search in */
#register char *entry ;				/* Entry to search for */
#{
#	register short ch ;
#	register char *cp ;
#
#	/*
#	 *	Always start from the beginning
#	 *	of the file.
#	 */
#
#	(void) fseek(file, 0L, 0) ;
#
#	/*
#	 *	Loop through lines in the file.
#	 */
#
#	loop {
#
#		/*
#		 *	If the first character of the line is
#		 *	alphanumeric,  scan the line for strings
#		 *	separated by "|" characters which exactly
#		 *	match the entry name.
#		 */
#
#		ch = getc(file) ;
#		if (isalnum(ch) || ch == '/') {
#			loop {
#
#				/*
#				 *	Scan for a match terminated by '|' or ','.
#				 *	If found, succeed with the file pointer
#				 *	positioned to the first field entry.
#				 */
#
#				cp = entry ;
#				while (ch == *cp) {
#					ch = getc(file) ;
#					cp++ ;
#					}
#
#    			if (*cp == 0 && (ch == '|' || ch == ',')) {
#					loop {
#						if (ch == ',') return(0) ;
#						if (ch == '\n') break ;
#						if (ch == EOF) return(-1) ;
#						ch = getc(file) ;
#						}
#					}
#
#				/*
#				 *	If no match found, position past any "|"
#				 *	character found and try again.  Otherwise
#				 *	the entry is not on this line.
#				 */
#
#				loop {
#					if (ch == '|' || ch == ',' || ch == '\n') break ;
#					ch = getc(file) ;
#					if (ch == EOF) return(-1) ;
#					}
#
#				if (ch != '|') break ;
#
#				ch = getc(file) ;
#				}
#			}
#
#		/*
#		 *	Skip to end-of-line.
#		 */
#
#		loop {
#			if (ch == EOF) return(-1) ;
#			if (ch == '\n') break ;
#			ch = getc(file) ;
#			}
#		}
#	}
#
#
#
#/******
# *	getnext - Get next character from descriptor file, or
# *	          embedded environment variable.
# */
#
#int
#getnext(file, cpp)
#register FILE *file ;		/* File to read char from */
#register char **cpp ;		/* Macro string/state pointer */
#{
#	register int ch ;
#	register int i ;
#	char name[21] ;
#	static char defaddr ;
#
#	/*
#	 *	Loop until we find a character to return.
#	 */
#
#	loop {
#
#		/*
#		 *	If reading a default string from the file,
#		 *	read until a unescaped "}" character is seen.
#		 */
#
#		if (*cpp == &defaddr) {
#			ch = getc(file) ;
#			if (ch == '}') *cpp = 0 ;
#			else if (ch == '\\') {
#				ch = getc(file) ;
#				if (ch == '}') return(ch) ;
#				(void) ungetc(ch, file) ;
#				return('\\') ;
#				}
#			else return(ch) ;
#			}
#
#		/*
#		 *	If in a macro string, get the next character.
#		 */
#
#		else if (*cpp) {
#			if (**cpp == 0) *cpp = 0 ;
#			else {
#				ch = *(*cpp)++ ;
#				return(ch) ;
#				}
#			}
#
#		/*
#		 *	Otherwise, just get the next character from
#		 *	the file.   Unless of course it is an unescaped
#		 *	"${" sequence which begins an environment variable
#		 *	specification.
#		 */
#
#		else {
#			ch = getc(file) ;
#
#			if (ch == '\\') {
#				ch = getc(file) ;
#				if (ch != '$') {
#					(void) ungetc(ch, file) ;
#					return('\\') ;
#					}
#				return('$') ;
#				}
#
#			if (ch != '$') return(ch) ;
#
#			ch = getc(file) ;
#			if (ch != '{') {
#				(void) ungetc(ch, file) ;
#				return('$') ;
#				}
#
#			/*
#			 *	We saw an unescaped "${".  Get the environment
#			 *	variable name and look it up.
#			 *
#			 *	If the variable is found, set *cpp to return
#			 *	its value, and skip over any default string seen.
#			 *
#			 *	If not found, and a default string is given, set
#			 *	*cpp so the default string will be read from the
#			 *	file.
#			 */
#
#			i = 0 ;
#			loop {
#				ch = getc(file) ;
#				if (ch == EOF) return(EOF) ;
#				if (ch == '-' || ch == '}') break ;
#				if (i < sizeof(name)-1) name[i++] = ch ;
#				}
#			name[i] = 0 ;
#
#			*cpp = getenv(name) ;
#
#			if (ch == '-') {
#				if (*cpp) {
#					loop {
#						ch = getc(file) ;
#						if (ch == EOF) return(EOF) ;
#						if (ch == '}') break ;
#						if (ch == '\\') {
#							ch = getc(file) ;
#							if (ch == EOF) return(EOF) ;
#							}
#						}
#					}
#				else *cpp = &defaddr ;
#				}
#			}
#		}
#	}
#
#
#
#/******
# *	getinfo - Get next key=text entry in info description.
# *
# *	Returns:	1=found, 0=end of entry, -1=error.
# */
#
#static int
#getinfo(file, cpp, key, text)
#FILE *file ;					/* Info file pointer */
#char **cpp ;					/* Macro char pointer */
#char *key ;						/* Returned key string */
#char *text ;					/* Returned text string */
#{
#	register short ch ;
#	register char *cp ;
#	register short count ;
#
#	/*
#	 *	Scan for the next keyword.
#	 */
#
#	ch = getnext(file, cpp) ;
#	loop {
#		if (ch == EOF) return(0) ;
#
#		if (isalpha(ch)) break ;
#
#		if (ch == '\n') {
#			ch = getnext(file, cpp) ;
#			if (isalpha(ch)) return(0) ;
#			}
#
#		else if (ch == '#') {
#			loop {
#				ch = getnext(file, cpp) ;
#				if (ch == EOF) return(-1) ;
#				if (ch == '\n') break ;
#				}
#			}
#
#		else if (ch == ' ' || ch == '\t' || ch == ',')
#			ch = getnext(file, cpp) ;
#
#		else return(-1) ;
#		}
#
#	/*
#	 *	Pick up keyword.
#	 */
#
#	count = 0 ;
#	cp = key ;
#
#	while (isalnum(ch)) {
#		if (++count > IKEYSIZE) return(-1) ;
#		*cp++ = ch ;
#		ch = getnext(file, cpp) ;
#		}
#
#	*cp = 0 ;
#
#	if (ch != '=') return(-1) ;
#
#	/*
#	 *	Pick up associated string text.
#	 */
#
#	count = 0 ;
#	cp = text ;
#
#	loop {
#		ch = getnext(file, cpp) ;
#		if (ch == ',') break ;
#
#		if (ch == EOF) return(-1) ;
#
#		if (ch == '\\') {
#			ch = getnext(file, cpp) ;
#			if (ch == EOF) return(-1) ;
#			if (ch != ',') {
#				*cp++ = '\\' ;
#				count++ ;
#				}
#			}
#
#		if (++count > ITEXTSIZE) return(-1) ;
#
#		*cp++ = ch ;
#		}
#
#	*cp = 0 ;
#
#	return(1) ;
#	}
#
#
#
#/******
# *	readinfo - Read info file for data.
# */
#
#int
#readinfo(fname, entry, build, info)
#char *fname ;					/* Info File name to read */
#char *entry ;					/* Info entry name to return */
#int (*build)() ;				/* Build entry procedure */
#char *info ;					/* Info pointer */
#{
#	register FILE *file ;
#	register int i ;
#	register int usecount ;
#
#	char *cp ;
#	char key[IKEYSIZE+1] ;
#	char text[ITEXTSIZE+1] ;
#	char use[ITEXTSIZE+1] ;
#
#	/*
#	 *	Open info file.
#	 */
#
#	file = fopen(fname,"r") ;
#	if (file == 0) {
#		(void) fprintf(stderr, "Cannot open: %s\n", fname) ;
#		return(-1) ;
#		}
#	
#	/*
#	 *	Loop to read all info entries in "use" list.
#	 */
#
#	usecount = 20 ;
#	loop {
#
#		/*
#		 *	Find entry name in file.
#		 */
#
#		if (findinfo(file, entry) < 0) {
#			(void) fprintf(stderr, "File %s, no entry found: %s\n",
#				fname, entry) ;
#			(void) fclose(file) ;
#			return(-1) ;
#			}
#
##ifdef DEBUG
#		(void) fprintf(stderr,"Found entry: %s\n",entry) ;
##endif
#
#		/*
#		 *	Unpack and process all entries.
#		 */
#
#		cp = 0 ;
#		loop {
#			i = getinfo(file,&cp,key,text) ;
#			if (i == 0) {
#				(void) fclose(file) ;
#				return(0) ;
#				}
#
#			if (i < 0) {
#				(void) fprintf(stderr, "File %s, corrupted entry: %s\n",
#					fname, entry) ;
#				(void) fclose(file) ;
#				return(-1) ;
#				}
#
##ifdef DEBUG
#			(void) fprintf(stderr,"Got %s=%s\n",key,text) ;
##endif
#
#			/*
#			 *	Follow "use" list chain to next entry.
#			 */
#
#			if (strcmp(key, "use") == 0) {
#				(void) strcpy(use, text) ;
#				entry = use ;
#				if (--usecount > 0) break ;
#				(void) fclose(file) ;
#				return(-1) ;
#				}
#
#			/*
#			 *	Add data to info entry.
#			 */
#
#			if ((*build)(info, key, text) < 0) {
#				(void) fprintf(stderr,
#					"Error in file %s, entry %s, %s=%s\n",
#					fname, entry, key, text) ;
#				(void) fclose(file) ;
#				return(-1) ;
#				}
#			}
#		}
#	}
end_readinfo.c
echo Creating: dialinfo.c
sed -e 's/^#//' >dialinfo.c <<'end_dialinfo.c'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
#
#/**************************************************************
# *          Procedures to read and decode dialinfo            *
# *                   dialer entries.                          *
# **************************************************************/
#
##include <stdio.h>
##include <ctype.h>
#
##include "readinfo.h"
##include "dialinfo.h"
#
##define loop for (;;)
#
#extern void free() ;
#extern char *malloc() ;
#extern char *strcpy() ;
#extern char *getenv() ;
#
#
#/******
# *	stralloc - Allocate string.
# */
#
#static char *
#stralloc(str)
#char *str ;							/* String to copy */
#{
#	register char *p ;
#
#	p = malloc((unsigned) (strlen(str)+1)) ;
#	if (p != 0) (void) strcpy(p, str) ;
#	return(p) ;
#	}
#
#
#
#/*****
# *	parseshort - Parse out short.
# *
# *	Returns: advanced ptr=okay, 0=error.
# */
#
#char *
#parseshort(cp, num, low, high)
#register char *cp ;					/* Start character */
#short *num ;						/* Short to fetch */
#short low ;							/* Lowest legal value */
#short high ;						/* Highest legal value */
#{
#	register short n ;
#
#	if (!isdigit(*cp)) return(0) ;
#
#	n = 0 ;
#
#	do {
#		n = 10 * n + *cp++ - '0' ;
#		} while (isdigit(*cp)) ;
#
#	if (n < low || n > high) return(0) ;
#
#	*num = n ;
#	return(cp) ;
#	}
#
#
#
#/*******
# *	buildinfo - Build information entry for key=text string.
# *
# *	Returns: 0=info built, -1=error.
# */
#
#static int
#buildinfo(dinfo,key,text)
#char *dinfo ;						/* Dialer info structure */
#char *key ;							/* Keyword name */
#char *text ;						/* Associated text */
#{
#	register DINFO *di ;
#	register char *cp ;
#	register char **cpp ;
#	short state ;
#
#	di = (DINFO *) dinfo ;
#
#	/*
#	 *	Build phone number character replacement strings.
#	 */
#
#	if (strcmp(key,"star") == 0) {
#		if (di->di_star == 0) di->di_star = stralloc(text) ;
#		}
#
#	else if (strcmp(key,"pound") == 0) {
#		if (di->di_pound == 0) di->di_pound = stralloc(text) ;
#		}
#
#	else if (strcmp(key,"delay") == 0) {
#		if (di->di_delay == 0) di->di_delay = stralloc(text) ;
#		}
#
#	else if (strcmp(key, "wait") == 0) {
#		if (di->di_wait == 0) di->di_wait = stralloc(text) ;
#		}
#
#	else if (strcmp(key,"flash") == 0) {
#		if (di->di_flash == 0) di->di_flash = stralloc(text) ;
#		}
#
#	/*
#	 *	Build "retry" count.
#	 */
#
#	else if (strcmp(key, "retry") == 0) {
#		if (di->di_retry < 0) {
#			cp = parseshort(text, &di->di_retry, 0, 1000) ;
#			if (cp == 0 || *cp != 0) return(-1) ;
#			}
#		}
#
#	/*
#	 *	Build dial defintions.
#	 */
#
#	else if
#		(	key[0] == 's'
#		&&	(cp = parseshort(key+1, &state, 0, NSTATE-1))
#		&&	*cp == 0
#		)
#	{
#		cpp = &di->di_state[state] ;
#		if (*cpp == 0) *cpp = stralloc(text) ;
#		}
#
#	else return(-1) ;
#
#	return(0) ;
#	}
#
#
#
#/******
# *	dialinfo - Get dial information for entry "dialer".
# */
#
#int
#dialinfo(dinfo, dialer)
#DINFO *dinfo ;						/* Retrieved dialer info */
#char *dialer ;						/* Dialer name */
#{
#	register int i ;
#	register char *fname ;
#
#	/*
#	 *	Initialize dialinfo entry.
#	 */
#
#	dinfo->di_star = 0 ;
#	dinfo->di_pound = 0 ;
#	dinfo->di_delay = 0 ;
#	dinfo->di_wait = 0 ;
#	dinfo->di_flash = 0 ;
#	dinfo->di_retry = -1 ;
#	for (i = 0 ; i < NSTATE ; i++) dinfo->di_state[i] = 0 ;
#
#	/*
#	 *	Get dialinfo file name from environment if specified.
#	 */
#
#	fname = getenv("DIALINFO") ;
#	if (fname == 0 || *fname == 0) fname = "/usr/lib/uucp/dialinfo" ;
#
#	/*
#	 *	Read the file and return status.
#	 */
#
#	return( readinfo(fname, dialer, buildinfo, (char *)dinfo) ) ;
#	}
#
#
#/******
# *	dialfree - Free storage associated with dialinfo entry.
# */
#
#void
#dialfree(di)
#register DINFO *di ;			/* Dialinfo entry */
#{
#	register int i ;
#	register char **spp ;
#
#	if (di->di_delay) free(di->di_delay) ;
#	if (di->di_wait) free(di->di_wait) ;
#	if (di->di_star) free(di->di_star) ;
#	if (di->di_pound) free(di->di_pound) ;
#	if (di->di_flash) free(di->di_flash) ;
#
#	i = 0 ;
#	spp = &di->di_state[0] ;
#
#	while (i < NSTATE) {
#		if (*spp) free(*spp) ;
#		i++ ;
#		spp++ ;
#		}
#	}
end_dialinfo.c
echo Creating: dialprint.c
sed -e 's/^#//' >dialprint.c <<'end_dialprint.c'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
#/***************************************************************
# *         Program to print out DIALINFO entries               *
# ***************************************************************/
#
##include <stdio.h>
#
##include "readinfo.h"
##include "dialinfo.h"
#
#
#/******
# *	dialprint - Print dialer info.
# */
#
#dialprint(dinfo, dialer)
#register DINFO *dinfo ;					/* Entry to print */
#char *dialer ;							/* Dialer name */
#{
#	register char **cpp ;
#	register int i ;
#	
#	(void) printf("%s,\n", dialer) ;
#
#	if (dinfo->di_star) (void) printf("\tstar=%s,\n", dinfo->di_star) ;
#
#	if (dinfo->di_pound) (void) printf("\tpound=%s,\n", dinfo->di_pound) ;
#
#	if (dinfo->di_delay) (void) printf("\tdelay=%s,\n", dinfo->di_delay) ;
#
#	if (dinfo->di_wait) (void) printf("\twait=%s,\n", dinfo->di_wait) ;
#
#	if (dinfo->di_flash) (void) printf("\tflash=%s,\n", dinfo->di_flash) ;
#
#	if (dinfo->di_retry >= 0) (void) printf("\tretry=%d,\n", dinfo->di_retry) ;
#
#	i = 0 ;
#	cpp = &dinfo->di_state[0] ;
#
#	while (i < NSTATE) {
#		if (*cpp) (void) printf("\ts%d=%s,\n", i, *cpp) ;
#		i++ ;
#		cpp++ ;
#		}
#	}
#
#
#
#main(argc,argv)
#int argc ;							/* Argument count */
#char **argv ;						/* Argument vector */
#{
#	DINFO dinfo ;
#
#	if (argc != 2) {
#		(void) fprintf(stderr, "Bad arg count\n") ;
#		return(2) ;
#		}
#
#	(void) dialinfo(&dinfo, argv[1]) ;
#
#	dialprint(&dinfo, argv[1]) ;
#
#	dialfree(&dinfo) ;
#
#	return(0) ;
#	}
end_dialprint.c
echo Creating: dialer.c
sed -e 's/^#//' >dialer.c <<'end_dialer.c'
#/****************************************************************
# *	Copyright 1986, Gene H. Olson, Quest Research, Burnsville   *
# *	Minnesota.   Permission to copy and distribute this         *
# *	program, all associated code in source and binary form,     *
# *	for any purpose, so long as this notice is preserved.       *
# ****************************************************************/
#
##include <stdio.h>
##include <signal.h>
##include <termio.h>
#
##include "dial.h"
#
#extern int nolock ;					/* See dial(3C) */
#extern int optind ;					/* See getopt(3) */
#extern char *optarg ;				/* See getopt(3) */
#
#extern unsigned sleep() ;
#extern void perror() ;
#extern void exit() ;
#extern char *malloc() ;
#
#static struct termio myterm ;		/* My terminal flags */
#static int dialfd ;					/* Dial file descriptor */
#
#
#/*****
# *	quit - exit gracefully.
# */
#
#quit(status)
#{
#	(void) signal(SIGHUP, SIG_IGN) ;
#	(void) signal(SIGINT, SIG_IGN) ;
#	(void) signal(SIGQUIT, SIG_IGN) ;
#	(void) signal(SIGPIPE, SIG_IGN) ;
#	(void) signal(SIGTERM, SIG_IGN) ;
#
#	if (dialfd >= 0) undial(dialfd) ;
#	(void) ioctl(0, TCSETA, &myterm) ;
#
#	exit(status) ;
#	}
#
#
#/*****
# *	catch - catch interrupt.
# */
#
#catch()
#{
#	quit(INTRPT) ;
#	}
#
#
#
#/*****
# *	main - Main program.
# */
#
#main(argc,argv)
#int argc ;
#char **argv ;
#{
#	register short opt ;
#	register FILE *dialfile ;
#	register short ch ;
#	register int err ;
#	register int i ;
#	unsigned waitfree ;
#	unsigned redial ;
#	short copy ;
#	struct termio tio ;
#	CALL call ;
#
#	waitfree = 0 ;
#	redial = 0 ;
#	copy = 0 ;
#
#	/*
#	 *	Set up tty options to be used when
#	 *	modem control is enabled.
#	 */
#
#	tio.c_iflag = IGNPAR | IGNBRK | ISTRIP | IXON ;
#	tio.c_oflag = 0 ;
#	tio.c_cflag = CS8 | CREAD | HUPCL | CLOCAL ;
#	tio.c_lflag = NOFLSH ;
#
#	tio.c_cc[VMIN] = 10 ;
#	tio.c_cc[VTIME] = 1 ;
#
#	/*
#	 *	Initialize call structure.
#	 */
#
#	call.attr = &tio ;
#	call.baud = 0 ;
#	call.speed = 0 ;
#	call.line = 0 ;
#	call.telno = 0 ;
#	call.modem = 0 ;
#	call.device = 0 ;
#
#	/*
#	 *	Decode options.
#	 */
#
#	while ((opt = getopt(argc,argv,"ceonrwb:l:s:")) != EOF) {
#		switch (opt) {
#
#			/*
#			 *	Copy standard input to remote.
#			 */
#
#			case 'c':
#				copy = 1 ;
#				break ;
#
#			/*
#			 *	Even parity after carrier detect.
#			 */
#
#			case 'e':
#				tio.c_cflag &= ~(CSIZE | PARENB | PARODD) ;
#				tio.c_cflag |= CS7 | PARENB ;
#				break ;
#
#			/*
#			 *	Odd parity after carrier detect.
#			 */
#
#			case 'o':
#				tio.c_cflag &= ~(CSIZE | PARENB | PARODD) ;
#				tio.c_cflag |= CS7 | PARENB | PARODD ;
#				break ;
#
#			/*
#			 *	No lock file.  Caller allocates it for us.
#			 */
#
#			case 'n':
#				nolock = 1 ;
#				break ;
#
#			/*
#			 *	Redial if no answer.
#			 */
#
#			case 'r':
#				redial = 60 ;
#				break ;
#
#			/*
#			 *	Wait for free outgoing line.
#			 */
#
#			case 'w':
#				waitfree = 30 ;
#				break ;
#
#			/*
#			 *	Device name for outgoing line.
#			 */
#
#			case 'l':
#				call.line = optarg ;
#				break ;
#
#			/*
#			 *	Baud rate for initial dial.
#			 */
#
#			case 'b':
#				call.baud = atoi(optarg) ;
#				break ;
#
#			/*
#			 *	Baud rate after connect.
#			 */
#
#			case 's':
#				call.speed = atoi(optarg) ;
#				break ;
#					
#			/*
#			 *	Bad parameter.
#			 */
#
#			default:
#				exit(2) ;
#			}
#		}
#
#	/*
#	 *	Get phone number.
#	 */
#
#	if (optind != argc) call.telno = argv[optind] ;
#
#	/*
#	 *	Setup signal catching stuff.
#	 */
#
#	dialfd = -1 ;
#
#	(void) ioctl(0, TCGETA, &myterm) ;
#
#	if (signal(SIGHUP, SIG_IGN) == SIG_DFL) (void) signal(SIGHUP, catch) ;
#	if (signal(SIGINT, SIG_IGN) == SIG_DFL) (void) signal(SIGINT, catch) ;
#	if (signal(SIGQUIT, SIG_IGN) == SIG_DFL) (void) signal(SIGQUIT, catch) ;
#	if (signal(SIGPIPE, SIG_IGN) == SIG_DFL) (void) signal(SIGPIPE, catch) ;
#	if (signal(SIGTERM, SIG_IGN) == SIG_DFL) (void) signal(SIGTERM, catch) ;
#
#	/*
#	 *	Attempt the dial.
#	 */
#
#	for (;;) {
#		dialfd = dial(call) ;
#
#		if (dialfd == NO_ANS && redial) {
#			dialmsg("No answer, redial in %d seconds.\n", redial) ;
#			(void) sleep(redial) ;
#			}
#
#		else if ((dialfd == DV_NT_A || dialfd == NO_BD_A) && waitfree) {
#			dialmsg("No outgoing line, will retry in %d seconds.\n", waitfree) ;
#			(void) sleep(waitfree) ;
#			}
#
#		else break ;
#		}
#
#	if (dialfd < 0) quit(-dialfd) ;
#
#	/*
#	 *	If a copy operation is selected, copy standard
#	 *	input to the dialed-up device.
#	 */
#
#	if (copy) {
#
#		dialfile = fdopen(dialfd, "w") ;
#		if (dialfile == 0) {
#			perror("fdopen") ;
#			quit(-L_PROB) ;
#			}
#
#		(void) setvbuf(dialfile, malloc(BUFSIZ), _IONBF, BUFSIZ) ;
#
#		err = 0 ;
#
#		while (err >= 0 && (ch = getchar()) != EOF)
#			err = putc(ch, dialfile) ;
#
#		for (i = 0 ; i < 10 ; i++)
#			err = putc('\000',dialfile) ;
#
#		if (err >= 0) err = fflush(dialfile) ;
#
#		if (err < 0) {
#			perror("copy write error") ;
#			quit(-L_PROB) ;
#			}
#		}
#
#	quit(0) ;
#	return(0) ;
#	}
end_dialer.c



More information about the Mod.sources mailing list