ecugrabbag.c

一个通讯程序源码

/*+-----------------------------------------------------------------
	ecugrabbag.c -- very machine/OS dependent functions
	[e-mail]

  Defined functions:
	bell_alarm(xbell_type)
	bell_notify(xbell_type)
	bell_notify_text(bn)
	kbd_escape(xkey)
	morse_bell(xbell_type,count)
	parse_bell_notify_argument(strarg)
	rename(from,to)
	send_bell_fd(fd,count,nap_msec)
	send_get_response(narg,arg)
	set_bell_fd(fd,pitch,duration)
	set_default_escape_prompt()
	show_escape_prompt()
	signal_name_text(sig)
	xbell(type,count)
	xbell_fd(fd,type,count)
	xterm_title(text,code)

  This module is a grab bag for historical reasons.  Needs reorg.
------------------------------------------------------------------*/
/*+:EDITS:*/
/*:09-10-1992-13:58-wht@n4hgf-ECU release 3.20 */
/*:08-22-1992-15:38-wht@n4hgf-ECU release 3.20 BETA */
/*:04-09-1992-05:47-wht@n4hgf-cleanup new "bn" argument parsing */
/*:02-16-1992-01:41-wht@n4hgf-turn off xterm_title */
/*:12-13-1991-17:14-wht@n4hgf-add bell_notify_text */
/*:12-13-1991-17:14-wht@n4hgf-add parse_bell_notify_argument */
/*:09-03-1991-18:23-wht@n4hgf-sigint rearrangement in send_get_response */
/*:08-28-1991-14:07-wht@n4hgf2-SVR4 cleanup by aega84!lh */
/*:08-13-1991-15:28-wht@n4hgf-more problems with history manager */
/*:07-25-1991-12:57-wht@n4hgf-ECU release 3.10 */
/*:07-17-1991-07:04-wht@n4hgf-avoid SCO UNIX nap bug */
/*:07-14-1991-18:18-wht@n4hgf-new ttygets functions */
/*:06-29-1991-15:42-wht@n4hgf-if WHT and xterm, play with title bar */
/*:06-04-1991-13:19-wht@n4hgf-WHT version always gets morse for bells */
/*:05-07-1991-06:10-wht@n4hgf-subtle changes in send_and_get_response */
/*:03-18-1991-22:31-wht@n4hgf-ISC 2.2 has rename() */
/*:01-16-1991-23:54-wht@n4hgf-if WHT, bell_notify always available */
/*:01-09-1991-22:31-wht@n4hgf-ISC port */
/*:12-04-1990-03:55-wht@n4hgf-bell_notify only if on multiscreen */
/*:09-19-1990-19:36-wht@n4hgf-ecu_log_event now gets pid for log from caller */
/*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */

#include "ecu.h"
#include "ecukey.h"
#include "ecufkey.h"
#include "ecuxkey.h"
#include "ecutty.h"
#include "ecufork.h"
#include "esd.h"

#if defined(MORSE)
/* the space between # and include prevents make depend from seeing this */
# include <local/morse_dvr.h>
#endif

char *get_ttyname();

extern char curr_dir[]; /* current working key defns */
extern KDE keyset_table[];
extern char keyset_name[];

ESD *icmd_prompt;		/* interactive command prompt */
int icmd_prompt_len;

/*+-------------------------------------------------------------------------
	show_escape_prompt()
returns number of character positions written to screen
--------------------------------------------------------------------------*/
show_escape_prompt()
{
	char prompt_last;

	prompt_last = 'd';	/* dummy */
	if(icmd_prompt->cb)
		prompt_last = *(icmd_prompt->pb + icmd_prompt->cb - 1);

	icmd_prompt_len = 0;
	shmx_make_rcvr_sleep(1);
	if(!(colors_current & 0xFFFF0000L) || !(colors_current & 0xFFFFL))
		setcolor(colors_normal);
	else
		setcolor(colors_current);
	tcap_stand_out();
	if(icmd_prompt->cb)
	{
		ff(se," %s",icmd_prompt->pb);
		icmd_prompt_len += icmd_prompt->cb + 1;
	}
	if(isalnum(prompt_last))
	{
		fputs(" %",se);
		icmd_prompt_len += 2;
	}
	tcap_stand_end();
	fputc(' ',se);
	icmd_prompt_len++;
	return(icmd_prompt_len);

}	/* end of show_escape_prompt */

/*+-------------------------------------------------------------------------
	set_default_escape_prompt()
--------------------------------------------------------------------------*/
void
set_default_escape_prompt()
{
	register char *cptr;
	char *getenv();

	if((cptr = getenv("ECUPROMPT")) != (char *)0)
	{
		strncpy(icmd_prompt->pb,cptr,icmd_prompt->maxcb);
		*(icmd_prompt->pb + icmd_prompt->maxcb - 1) = 0;
		icmd_prompt->cb = strlen(icmd_prompt->pb);
		esd_null_terminate(icmd_prompt);
	}

}	/* end of set_default_escape_prompt */

/*+-------------------------------------------------------------------------
	kbd_escape() -- xmtr got extended key -- process it
returns(1)
--------------------------------------------------------------------------*/
kbd_escape(xkey)
uchar xkey;
{
	register itmp;
	int ttygets_flags = TG_XDELIM;
	uchar delim;
	int strpos;
	int old_ttymode = get_ttymode();
	register backspace_count;
	register KDE *tkde;
	uchar icmd_buf[128];

	if((xkey >= XF_ALTA) && (xkey <= XF_ALTZ))
	{
		char alt_key_proc_name[8];
		char *arg = alt_key_proc_name;
		int narg = 1;
		int restart_rcvr = need_rcvr_restart();
		kill_rcvr_process(SIGUSR1);
		sprintf(alt_key_proc_name,"alt_%c",xkey - XF_ALTA + 'a');
		ttymode(2);
		ttyflush(0);
		if(do_proc(narg,&arg))
			ring_bell();
		sigint = 0;
		proc_file_reset();
		ttymode(old_ttymode);
		if(restart_rcvr)
			start_rcvr_process(0);
		return(1);
	}

	switch(xkey)
	{
		case XFhome:	 /* home key pressed ? */
			icmd_buf[0] = 0;
			backspace_count = show_escape_prompt();
			strpos = 0;
			icmd_buf[0] = 0;
GET_ICMD:
			ttygets(icmd_buf,sizeof(icmd_buf),ttygets_flags,&delim,&strpos);
			switch(delim)
			{
				case XFhome:
				case XFpgup:
				case XFcurup:
					if(icmd_history_manager(delim,icmd_buf,sizeof(icmd_buf)))
					{
						ring_bell();
						ttygets_flags |= 4;
						goto GET_ICMD;
					}
					break;
				case ESC:
				case NL:
					break;
				default:
					ring_bell();
					itmp = strlen((char *)icmd_buf);
					while(itmp--)
						ff(se,"\b \b");
					ttygets_flags |= 4;
					goto GET_ICMD;
			}
			if((delim == ESC) || !icmd_buf[0])
			{
				while(backspace_count--)
					ff(se,"\b \b");
				break;
			}
			if(icmd(icmd_buf))
				termecu(TERMECU_OK);
			break;

		default:
			if((itmp = xf_to_ikde(xkey)) < 0)
			{
				ring_bell();
				break;
			}
			tkde = &keyset_table[itmp];
			if((itmp = tkde->count) > 0)
			{
			register char *cptr = tkde->str;
				while(itmp--)
					lputc(*cptr++);
			}
			else if(tkde->count < 0)
			{
				switch(tkde->count)
				{
					case KACT_LOCAL_SHELL:
						fputs("\r\n",se);
						tcap_stand_out();
						ff(se," local shell in %s ",curr_dir);
						tcap_stand_end();
						ff(se,"\r\n");
						shell("!");
						break;
					case KACT_REDISPLAY:
						redisplay_rcvr_screen();
				}
			}
			else
				ring_bell();
			break;
	}
	return(1);
}	/* end of kbd_escape */

/*+-------------------------------------------------------------------------
	set_bell_fd(fd,pitch,duration)
Example: 1B 5B 3D 34 30 30 30 3B 31 42 | .[=4000;1B
--------------------------------------------------------------------------*/
void
set_bell_fd(fd,pitch,duration)
int fd;
int pitch;
int duration;
{
#if defined(M_SYSV)
	char bell_cmd[32];

	if(!tty_is_multiscreen)
		return;

	sprintf(bell_cmd,"\033[=%d;%dB",pitch,duration);
	write(fd,bell_cmd,strlen(bell_cmd));
#endif
}	/* end of set_bell_fd */

/*+-------------------------------------------------------------------------
	send_bell_fd(fd,count,nap_msec)
--------------------------------------------------------------------------*/
void
send_bell_fd(fd,count,nap_msec)
register fd;
register count;
register nap_msec;
{
	static char bellch = 0x07;

	if(count)
	{
		while(count--)
		{
			write(fd,&bellch,1);	
			Nap((long)nap_msec);
		}
	}
}	/* end of send_bell_fd */

/*+-------------------------------------------------------------------------
	xbell_fd(fd,type,count)
--------------------------------------------------------------------------*/
void
xbell_fd(fd,type,count)
register fd;
register type;
register count;
{
#if defined(M_SYSV)
	register itmp;

	if(!tty_is_multiscreen)
	{
		ring_bell();
		return;
	}

	if(count)
	{
		while(count--)
		{
			switch(type)
			{
				case XBELL_DONE:		/* octaves */
					set_bell_fd(fd,1000,1);
					send_bell_fd(fd,1,100);
					set_bell_fd(fd,2000,1);
					send_bell_fd(fd,1,100);
					set_bell_fd(fd,4000,1);
					send_bell_fd(fd,1,100);
					break;
				case XBELL_ATTENTION:		/* morse .-.-.- ATTENTION */
					for(itmp = 0; itmp < 3; itmp++)
					{
						set_bell_fd(fd,2000,1);
						send_bell_fd(fd,1,140);
						set_bell_fd(fd,2000,3);
						send_bell_fd(fd,1,340);
					}
					break;
				case XBELL_C:		/* morse -.-. C */
					for(itmp = 0; itmp < 2; itmp++)
					{
						set_bell_fd(fd,2000,3);
						send_bell_fd(fd,1,320);
						set_bell_fd(fd,2000,1);
						send_bell_fd(fd,1,120);
					}
					break;
				case XBELL_3T:		/* 3 morse T's */
					set_bell_fd(fd,2000,3);
					send_bell_fd(fd,3,460);
					break;
				default:
					set_bell_fd(fd,2000,4);
					send_bell_fd(fd,1,100);
					break;
			}
		}
	}
				
	set_bell_fd(fd,4000,1);
#endif	
}	/* end of xbell_fd */

/*+-------------------------------------------------------------------------
	morse_bell(xbell_type,count)
--------------------------------------------------------------------------*/
#if defined(MORSE)
morse_bell(xbell_type,count)
int xbell_type;
int count;
{
	register morse_fd;
	int morse_frequency = 800;
	char morse_char;
	static int morse_ticks = 0;

#if !defined(WHT)
	if(!tty_is_multiscreen)
	{
		ring_bell();
		return(0);
	}
#endif

	if(!morse_ticks)
		morse_ticks = hz / 25;

	if((morse_fd = open("/dev/morse",O_WRONLY,0)) < 0)
		return(-1);

	ioctl(morse_fd,MORSE_SET_SPEED,&morse_ticks);
	ioctl(morse_fd,MORSE_SET_FREQUENCY,&morse_frequency);
	switch(xbell_type)
	{
		case XBELL_DONE:
			morse_char = 'd';
/*
			morse_frequency = 400;
			ioctl(morse_fd,MORSE_SET_FREQUENCY,&morse_frequency);
*/
			break;
		case XBELL_ATTENTION:
			morse_char = '.';
			break;
		case XBELL_C:
			morse_char = 'c';
			break;
		case XBELL_3T:
			morse_char = 'o';
			break;
		default:
			morse_char = BT;
			break;
	}
	while(count--)
		write(morse_fd,&morse_char,1);
	close(morse_fd);