DataMuseum.dk

top - metrics - download

    Length: 2196 (0x894)
    Types: TextFile
    Names: »msg.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Pm/BSD/msg.c« 

TextFile

/*
** msg.c -	code dealing with the printing of messages
**
**	[pm by Peter Costantinidis, Jr. @ University of California at Davis]
*/
#include <signal.h>
#include "pm.h"

/*
** strucpy()	- copy string using punctrl for things
**		- ctrl chars count double
*/
void	strucpy (s1, s2, len)
reg	char	*s1, *s2;
reg	int	len;
{
	reg	char	*sp;

	while (len-- && *s2)
	{
		if ((*s2 < ' ') && !len--) /* if len = 0, then no room */
			return;
		strcpy(s1, sp = punctrl(*s2++));
		s1 += strlen(sp);
	}
	*s1 = '\0';
}

/*
** msg:
**	Display a message on the screen.
*/
static char msgbuf[BUFSIZ];

/*VARARGS1*/
void	msg (fmt, args)
char	*fmt;
int	args;
{
	alarm(0);
	/*
	** if the string is "", just clear the line
	*/
	if (*fmt == '\0')
	{
		move(5, 55);
		clrtoeol();
		return;
	}
	/*
	** otherwise print the message and flush it out
	*/
	doadd(fmt, &args);
	move(5, 55);
	addstr(msgbuf);
	clrtoeol();
	refresh();
	/*
	** set off an alarm to erase it
	*/
#ifndef	LINT
	signal(SIGALRM, msg_erase);
#endif
	alarm(ALARM_TIME);
}

/*
** msg_erase()	- erase the msg line
*/
void	msg_erase ()
{
	alarm(0);
	move(5, 55);
	addstr("                       ");
}

void	doadd (fmt, args)
char	**fmt;
int	***args;
{
	static	FILE	junk;

	/*
	** Do the printf into buf
	*/
#ifdef	_IOSTRG
	junk._flag = _IOWRT + _IOSTRG;
	junk._ptr = &msgbuf[0];
#else
 	junk._flag = _IOWRT;
 	junk._file = _NFILE;
 	junk._ptr = (unsigned char *) &msgbuf[0];
#endif
	junk._cnt = 32767;
	_doprnt(fmt, args, &junk);
	putc('\0', &junk);
}

/*
** re_msg()	- reprint the last message
*/
void	re_msg ()
{
	msg(msgbuf);
}

/*
** punctrl()	- print a readable version of a certain character
**
**	Note:	Due to the inconsistent availability of a function to perform
**		this, my own version has been built in and used in place of
**		any pre-existing function.  I believe that this particular
**		version suts down on data space considerably from the versions
**		I have found on the Berkley systems.
*/
char	*punctrl (chr)
char	chr;
{
	static	char	*str = "^ ";

	chr &= 0177;
	if (chr >= ' ' && chr <= '~')
	{
		static	char	*str1 = " ";

		*str1 = chr;
		return(str1);
	}
	if (chr == CTRL(?))
		return("^?");
	*(str+1) = chr + '@';
	return(str);
}