ecuicmaux.c

一个通讯程序源码

/*+-------------------------------------------------------------------------
	ecuicmaux.c -- ecuicmd.c auxiliary functions
	[e-mail]

  Defined functions:
	display_ascii_names()
	icmd_conversion(token,narg,arg)
	icmd_log(token,narg,arg)
	nlin_nlout_control(token,narg,arg)
	pcmd_rlog(param)
	rcvr_log_control(token,narg,arg)

--------------------------------------------------------------------------*/
/*+:EDITS:*/
/*:09-10-1992-13:58-wht@n4hgf-ECU release 3.20 */
/*:08-22-1992-15:38-wht@n4hgf-ECU release 3.20 BETA */
/*:02-07-1992-19:19-root@n4hgf-fix incorrect log append/write notification */
/*:07-25-1991-12:56-wht@n4hgf-ECU release 3.10 */
/*:07-04-1991-20:03-wht@n4hgf-make pcmd_log */
/*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */

#include "ecu.h"
#include "ecuerror.h"
#include "ecucmd.h"
#include "esd.h"

int rcvr_log = 0;				/* if non-zero, logging rcvd data */
char rcvr_log_file[256];		/* log filename */
int rcvr_log_gen_title = 0;		/* gen log header on next open (rcvr process) */
FILE *rcvr_log_fp = (FILE *)0;	/* rcvr log file */
int rcvr_log_append = 1;
int rcvr_log_raw = 0;
int rcvr_log_flusheach = 0;

/*+-----------------------------------------------------------------------
	display_ascii_names()
------------------------------------------------------------------------*/
void
display_ascii_names()
{
register intval;

	for(intval = 0; intval < 32; intval++)
	{
		ff(se,"%s %3d %03o %02x ^%c | ",hex_to_ascii_name((intval)),
				(intval),(intval),(intval),(intval) |0x40);
		ff(se,"    %3d %03o %02x  %c | ",
				intval+32,intval+32,intval+32,intval+32);
		ff(se,"    %3d %03o %02x  %c | ",
				intval+64,intval+64,intval+64,intval+64);
		if(intval != 31)
		{
			ff(se,"    %3d %03o %02x  %c\r\n",
					intval+96,intval+96,intval+96,intval+96);
		}
		else
		{
			ff(se,"    %3d %03o %02x  ^?\r\n",
					intval+96,intval+96,intval+96);
		}
	}

}	/* end of display_ascii_names */

/*+-------------------------------------------------------------------------
	icmd_conversion(token,narg,arg)
--------------------------------------------------------------------------*/
void
icmd_conversion(token,narg,arg)
int token;
int narg;
char **arg;
{
register itmp;

	switch(token)
	{
	case CTxa:
	case CToa:
	case CTda:
		if(narg > 1)
		{
		int result;
		char format[4];
			sprintf(format,"%%%c",to_lower(*arg[0]));
			if(sscanf(arg[1],format,&result) == 0)
			{
				ff(se,"  invalid argument\r\n");
				return;
			}
			result &= 0xFF;
			if(result == ' ')
				ff(se," == ' ' 0x20\r\n",make_char_graphic(result,1));
			else
				ff(se," == %s\r\n",make_char_graphic(result,1));
		}
		else
		{
			ff(se,"\r\n");
			display_ascii_names();
		}
		break;
	case CTax:
		if(arg[1] == (char *)0)
		{
			ff(se,"\r\n");
			display_ascii_names();
			break;
		}
		switch(strlen(arg[1]))
		{
			case 1:
				ff(se," == 0x%02x\r\n",*arg[1]);
				break;
			case 2:
				if(*arg[1] == '^')
				{
					itmp = to_upper(*(arg[1] + 1));
					if((itmp < '@') || (itmp > '_'))
					{
						ff(se,"  not a valid control character\r\n");
						return;
					}
					itmp &= 0x1F;
					ff(se," == 0x%02x %s\r\n",itmp,make_char_graphic(itmp,1));
					break;
				}	/* else fall thru */
			case 3:
				if((itmp = ascii_name_to_hex(arg[1])) > -1)
				{
					ff(se," == 0x%02x %s\r\n",itmp,make_char_graphic(itmp,1));
					break;
				}	/* else fall thru */
			default:
				ff(se,"  invalid ... examples of valid parameters:\r\n");
				ff(se,"        ^A ETX  or  printable character\r\n");
				break;
		}
		break;
	default:
		ff(se,"  invalid command\r\n");
	}
}	/* end of icmd_conversion */

/*+-------------------------------------------------------------------------
	rcvr_log_control(token,narg,arg)
--------------------------------------------------------------------------*/
int
rcvr_log_control(token,narg,arg)
int token;
int narg;
char **arg;
{
register itmp;
register itmp2;
extern int proctrace;
#if defined(M_XENIX) || defined(M_UNIX)
char *lparg = "/dev/lp1";
#endif

	switch(token)
	{
	case CTloff:
		goto LOG_OFF;

#if defined(M_XENIX) || defined(M_UNIX)
	case CTllp:
		narg = 1;
		arg = &lparg;
		/* fall thru */
#endif

	case CTlog:
		if(narg > 1)
		{
			if(minunique("off",arg[1],3))
			{
LOG_OFF:
				shmx_set_rcvr_log("",0,0,0);
				rcvr_log = 0;
				rcvr_log_file[0] = 0;
				return(0);
			}
/* turning logging on */
			itmp2 = -1;
			rcvr_log_append = 1;
			rcvr_log_raw = 0;
			for(itmp = 1; itmp < narg; itmp++)
			{
				if(*arg[itmp] == '-')
				{
					switch(arg[itmp][1])
					{
						case 's': rcvr_log_append = 0; break;
						case 'r': rcvr_log_raw = 1; break;
						case 'f': rcvr_log_flusheach = 1; break;
						default:
							pprintf("unrecognized switch -%c\n",arg[itmp][1]);
							log_cmd_usage();
						return(eFATAL_ALREADY);
					}
				}
				else
				{
					if(itmp2 > 0)
					{
						pputs("too many arguments\n");
						log_cmd_usage();
						return(eFATAL_ALREADY);
					}
					itmp2 = itmp;
				}
			}
			if(itmp2 < 0)
			{
				pputs("no log file name specified\n");
				log_cmd_usage();
				return(eFATAL_ALREADY);
			}
			if(arg[itmp2][0] != '/')	/* if log file not full path, ... */
			{							/* ... supply current directory */
				get_curr_dir(rcvr_log_file,
					sizeof(rcvr_log_file) - strlen(arg[itmp2]) - 2);
				strcat(rcvr_log_file,"/");
				strcat(rcvr_log_file,arg[itmp2]);
			}
			else
				strcpy(rcvr_log_file,arg[itmp2]);

			/* try to open the file if we can */
			rcvr_log_fp = fopen(rcvr_log_file,"a");
			if(rcvr_log_fp)		/* if success */
			{
				fclose(rcvr_log_fp);
				rcvr_log_fp = (FILE *)0;
				rcvr_log = 1;
				shmx_set_rcvr_log(rcvr_log_file,rcvr_log_append,rcvr_log_raw,
					rcvr_log_flusheach);
			}
			else		/* xmtr() could not open file */
			{
				pputs("could not open ");
				pperror(rcvr_log_file);
				return(eFATAL_ALREADY);
			}
			rcvr_log_append = 1;
		}	/* end of if argument to command */

		if(rcvr_log && (!proc_level || proctrace))
		{
			pprintf("\n%sing received %s text to\n%s\n",
				(rcvr_log_append) ? "append" : "writ",
				(rcvr_log_raw)    ? "raw"    : "filtered",
				rcvr_log_file);
		}
		else if (!proc_level || proctrace)
			pputs("not logging\n");
		break;

	default:
		pputs("invalid command\n");
		return(eFATAL_ALREADY);
	}
	return(0);
}	/* end of rcvr_log_control */

/*+-------------------------------------------------------------------------
	pcmd_rlog(param) - control receiver logging (script)

rlog [-srf] ['filename']  #  see ecuidmc.d
rlog 'off'

This is a hack to use icmd stuff from proc language
--------------------------------------------------------------------------*/
int
pcmd_rlog(param)
ESD *param;
{
int erc;
int lnarg = 0;
char *larg[3];
ESD *tesd = esdalloc(256);
char switches[8];

	if(!tesd)
		return(eNoMemory);

	larg[lnarg++] = "log";

	if(!get_switches(param,switches,sizeof(switches)))
		larg[lnarg++] = switches;

	if(!gstr(param,tesd,1))
		larg[lnarg++] = tesd->pb;

	erc = rcvr_log_control(CTlog,lnarg,larg);
	esdfree(tesd);
	return(erc);

}	/* end of pcmd_rlog */

/*+-------------------------------------------------------------------------
	icmd_log(token,narg,arg)
--------------------------------------------------------------------------*/
int
icmd_log(token,narg,arg)
int token;
int narg;
char **arg;
{
register itmp;
register itmp2;

	switch(token)
	{
	case CTloff:
		goto LOG_OFF;

#if defined(M_XENIX) || defined(M_UNIX)
	case CTllp:
		icmd("log /dev/lp1");
		break;
#endif

	case CTlog:
		if(narg > 1)
		{
			if(minunique("off",arg[1],3))
			{
LOG_OFF:
				if(rcvr_log == 0)	/* "off",but not logging */
					goto RECORD_REPORT;
				ff(se,"\r\nlogging concluded (file %s)\r\n",rcvr_log_file);
				shmx_set_rcvr_log("",0,0,0);
				rcvr_log = 0;
				rcvr_log_file[0] = 0;
				return(0);
			}
/* turning logging on */
			itmp2 = -1;
			rcvr_log_append = 1;
			rcvr_log_raw = 0;
			for(itmp = 1; itmp < narg; itmp++)
			{
				if(*arg[itmp] == '-')
				{
					switch(arg[itmp][1])
					{
						case 's': rcvr_log_append = 0; break;
						case 'r': rcvr_log_raw = 1; break;
						case 'f': rcvr_log_flusheach = 1; break;
						default:
							ff(se,"   unrecognized switch -%c\r\n",
										arg[itmp][1]);
							log_cmd_usage();
							return(eFATAL_ALREADY);
					}
				}
				else
				{
					if(itmp2 > 0)
					{
						ff(se,"   too many positional arguments\r\n");
						log_cmd_usage();
						return(eFATAL_ALREADY);
					}
					itmp2 = itmp;
				}
			}
			if(itmp2 < 0)
			{
				ff(se,"   no log file name specified\r\n");
				log_cmd_usage();
				return(eFATAL_ALREADY);
			}
			if(arg[itmp2][0] != '/')	/* if log file not full path, ... */
			{							/* ... supply current directory */
				get_curr_dir(rcvr_log_file,
					sizeof(rcvr_log_file) - strlen(arg[itmp2]) - 2);
				strcat(rcvr_log_file,"/");
				strcat(rcvr_log_file,arg[itmp2]);
			}
			else
				strcpy(rcvr_log_file,arg[itmp2]);

			/* try to open the file if we can */
			rcvr_log_fp = fopen(rcvr_log_file,"a");
			if(rcvr_log_fp)		/* if success */
			{
				fclose(rcvr_log_fp);
				rcvr_log_fp = (FILE *)0;
				rcvr_log = 1;
				shmx_set_rcvr_log(rcvr_log_file,rcvr_log_append,rcvr_log_raw,
					rcvr_log_flusheach);
			}
			else		/* xmtr() could not open file */
			{
				ff(se,"   could not open ");
				perror(rcvr_log_file);
				ff(se,"\r\n");
				return(eFATAL_ALREADY);
			}
		}	/* end of if argument to command */

RECORD_REPORT:
		if(rcvr_log)
		{
			ff(se,"\r\n%sing received %s text to\r\n%s\r\n",
				(rcvr_log_append) ? "append" : "writ",
				(rcvr_log_raw)    ? "raw"    : "filtered",
				rcvr_log_file);
			ff(se,"use \"HOME log off\" to stop logging\r\n");
		}
		else
		{
			ff(se,"   not logging.\r\n");
			ff(se,"use \"HOME slog <filename>\" to start logging\r\n");
		}
		break;
	default:
		ff(se,"  invalid command\r\n");
		return(eFATAL_ALREADY);
	}
	rcvr_log_append = 1;
	return(0);
}	/* end of icmd_log */

/*+-------------------------------------------------------------------------
	nlin_nlout_control(token,narg,arg)
--------------------------------------------------------------------------*/
void
nlin_nlout_control(token,narg,arg)
int token;
int narg;
char **arg;
{
	switch(token)
	{
	case CTnlin:
		if(narg != 1)
			shm->Ladd_nl_incoming = yes_or_no(arg[1]);
		ff(se,"  %sappending NL to incoming CR\r\n",
			(shm->Ladd_nl_incoming) ? "" : "not ");
		break;
	case CTnlout:
		if(narg != 1)
			shm->Ladd_nl_outgoing = yes_or_no(arg[1]);
		ff(se,"  %sappending NL to outgoing CR\r\n",
			(shm->Ladd_nl_outgoing) ? "" : "not ");
		break;
	default:
	case CTnl:
		ff(se,"  incoming: %s  outgoing: %s\r\n",
			(shm->Ladd_nl_incoming) ? "CR/LF" : "CR",
			(shm->Ladd_nl_outgoing) ? "CR/LF" : "CR");
		break;
	}

}	/* end of nlin_nlout_control */

/* end of ecuicmaux.c */
/* vi: set tabstop=4 shiftwidth=4: */