ftp.nice.ch/pub/next/unix/communication/am.1.16.s.tar.gz#/am.1.16/src/var.c

This is var.c in view mode; [Download] [Up]

/*	TEXT WAS MADE WITH 4*SPACE = 1*TAB

	program	:	var.c	
	date	:	05.April. 1993
	purpose	:	faster make 
	author	:	by jolly ( who else )

*/
#import <libc.h>
#import <sys/types.h>
#import <varargs.h>
#import <syslog.h>

#import "modem.h"
#import "am.h"
#import "version.h"

extern char * get_time(char *str);


extern int modem;

int log( va_alist )
va_dcl
{
	va_list	ap;
	static char	*str;
	static char	ostr[MAXPATHLEN];
	static char	tmstr[30];
	FILE	*fd;
	
	va_start(ap);
		str=va_arg(ap,char *);
	va_end(ap);
	vsprintf(ostr,str,ap);

	fd=fopen("/dev/console","a");
	fprintf(fd,"%s (%s) %s: %s\n",PRGNAME,VERSION,get_time(tmstr),ostr);
	fclose(fd);
	return 1;
}



int ask(va_alist)
va_dcl
{
	va_list ap;
	int		i;
	char	*str;
	char	*wstr;
	char	st2[100];

	va_start(ap);
		str=va_arg(ap,char *);
		wstr=va_arg(ap,char *);
	va_end(ap);
	vsprintf(st2,str,ap);
	
	ioctl(modem,TIOCFLUSH, 0);
	for(i=0;i<10;i++)
	{
		say(st2);
		if(wait_for(wstr,600)) return 1;
		else log("above wait after command (%s)",st2);
	}
	unlock_line(DIAL_OUT);
	log("**** FATAL *****");
	log("Can't get modems attention");
	sleep(3);
	exit(0);
	return 0;
}


void fatal(va_alist)
va_dcl
{
	va_list	ap;
	char	*str;
	char	ostr[MAXPATHLEN];
		
	va_start(ap);
		str=va_arg(ap,char *);
	va_end(ap);
	vsprintf(ostr,str,ap);
	log("**** FATAL ****");
	log(ostr);
	reset_modem();
	sleep(3);
	exit(1);
	return;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.