/*	-*- mode: c; mode: fold -*-	*/# include	"config.h"# include	<stdio.h># include	<stdlib.h># include	<ctype.h># include	<string.h># include	"pager.h"/*{{{	typedefs */typedef struct {# ifndef	NDEBUG# define	MAGIC		MKMAGIC('a', 's', 'c', '\0')	long	magic;# endif		/* NDEBUG */	void	*sp;	void	*ctab;	void	(*logger) (char, char *, ...);	char	*callid;	int	deftout;	char	*alogin;	char	*alogout;	char	*apid;	char	*amsg;	char	*anext;	char	*async;		date_t	delay;	date_t	expire;	Bool	rds;}	asc;/*}}}*//*{{{	convert */static char *escape_string (asc *a, char *str){	int	c;	char	ch, prev;	char	*ret;	int	n;		if (ret = malloc (strlen (str) * 2 + 16)) {		prev = '\0';		ch = '\0';		for (n = 0; *str; prev = ch) {			c = cv_conv (a -> ctab, (char_t) *str++);			if (c < 0)				continue;			ch = (char) c;			if ((ch == '<') && isspace (prev)) {				ret[n++] = '\\';				ret[n++] = '<';			} else if (ch == ' ') {				ret[n++] = '\\';				ret[n++] = 's';			} else if (ch == '\a') {				ret[n++] = '\\';				ret[n++] = 'a';			} else if (ch == '\b') {				ret[n++] = '\\';				ret[n++] = 'b';			} else if (ch == '\f') {				ret[n++] = '\\';				ret[n++] = 'f';			} else if (ch == '\n') {				ret[n++] = '\\';				ret[n++] = 'n';			} else if (ch == '\r') {				ret[n++] = '\\';				ret[n++] = 'r';			} else if (ch == '\t') {				ret[n++] = '\\';				ret[n++] = 't';			} else if (ch) {				if ((ch == '\\') || (ch == '^') || (ch == '%'))					ret[n++] = '\\';				ret[n++] = ch;			}		}		ret[n] = '\0';	}	return ret;}			static char *convert_asc (asc *a, char *pat, char *pid, char *msg){	char	*str;	int	siz, len;	char	*ptr;	int	plen;	char	scr[32];	str = NULL;	siz = 0;	len = 0;	while (*pat) {		if (len + 2 >= siz) {			siz += 32;			if (! (str = Realloc (str, siz + 2)))				break;		}		if (*pat == '\\') {			++pat;			if (*pat) {				ptr = NULL;				switch (*pat) {				case 'C':	ptr = a -> callid;	break;				case 'P':	ptr = pid;		break;				case 'M':	ptr = msg;		break;				case 'R':					strcpy (scr, (a -> rds ? "1" : "0"));					ptr = scr;					break;				default:					str[len++] = '\\';					str[len++] = *pat;					break;				}				if (ptr && (ptr = escape_string (a, ptr))) {					if (plen = strlen (ptr)) {						if (len + plen + 2 >= siz) {							siz = len + plen + 32;							if (! (str = Realloc (str, siz)))								break;						}						strcpy (str + len, ptr);						len += plen;					}					free (ptr);				}				++pat;			}		} else if (! iscntrl (*pat))			str[len++] = *pat++;		else {			str[len++] = ' ';			++pat;		}	}	if (str)		str[len] = '\0';	return str;}/*}}}*//*{{{	general sending routine */static intdo_send (asc *a, char *what, char *pat, char *pid, char *msg){	int	ret;	char	*str;		ret = ERR_FAIL;	if (a && a -> sp)		if (pat && *pat) {			if (str = convert_asc (a, pat, pid, msg)) {				if (tty_send_expect (a -> sp, a -> deftout, str, NULL) != -1) {					V (1, ("Ascii %s sent\n", what));					ret = NO_ERR;				} else					V (1, ("Unable to send %s\n", what));				free (str);			}		} else			ret = NO_ERR;	return ret;}/*}}}*//*{{{	login/logout/transmit/next/sync */intasc_login (void *ap, string_t *cid){	asc	*a = (asc *) ap;	MCHK (a);	if (a) {		if (a -> callid)			free (a -> callid);		a -> callid = sextract (cid);	}	return a ? do_send (a, "login", a -> alogin, NULL, NULL) : ERR_ABORT;}intasc_logout (void *ap){	asc	*a = (asc *) ap;	MCHK (a);	return a ? do_send (a, "logout", a -> alogout, NULL, NULL) : ERR_FATAL;}intasc_transmit (void *ap, char *pid, char *msg){	asc	*a = (asc *) ap;	int	n;		MCHK (a);	if (! a)		return ERR_FATAL;	if ((n = do_send (a, "pagerid", a -> apid, pid, NULL)) != NO_ERR)		return n;	return do_send (a, "message", a -> amsg, NULL, msg);}intasc_next (void *ap){	asc	*a = (asc *) ap;	MCHK (a);	return a ? do_send (a, "next", a -> anext, NULL, NULL) : ERR_FATAL;}intasc_sync (void *ap){	asc	*a = (asc *) ap;		MCHK (a);	return a ? do_send (a, "sync", a -> async, NULL, NULL) : ERR_FATAL;}/*}}}*//*{{{	config */voidasc_config (void *ap, void (*logger) (char, char *, ...),	    int deftout, char *alogin, char *alogout, char *apid, char *amsg, char *anext, char *async,	    date_t *delay, date_t *expire, Bool rds){	asc	*a = (asc *) ap;		MCHK (a);	if (a) {		a -> logger = logger;		if (deftout != -1)			a -> deftout = deftout;		if (alogin) {			if (a -> alogin)				free (a -> alogin);			a -> alogin = strdup (alogin);		}		if (alogout) {			if (a -> alogout)				free (a -> alogout);			a -> alogout = strdup (alogout);		}		if (apid) {			if (a -> apid)				free (a -> apid);			a -> apid = strdup (apid);		}		if (amsg) {			if (a -> amsg)				free (a -> amsg);			a -> amsg = strdup (amsg);		}		if (anext) {			if (a -> anext)				free (a -> anext);			a -> anext = strdup (anext);		}		if (async) {			if (a -> async)				free (a -> async);			a -> async = strdup (async);		}		if (delay)			a -> delay = *delay;		else			dat_clear (& a -> delay);		if (expire)			a -> expire = *expire;		else			dat_clear (& a -> expire);		a -> rds = rds;	}}voidasc_set_convtable (void *ap, void *ctab){	asc	*a = (asc *) ap;		MCHK (a);	if (a) {		if (a -> ctab)			cv_free (a -> ctab);		a -> ctab = ctab;	}}voidasc_add_convtable (void *ap, void *ctab){	asc	*a = (asc *) ap;	MCHK (a);	if (a) {		if (! a -> ctab)			a -> ctab = cv_new ();		if (a -> ctab)			cv_merge (a -> ctab, ctab, True);	}}/*}}}*//*{{{	new/free/etc */void *asc_new (void *sp){	asc	*a;		if (a = (asc *) malloc (sizeof (asc))) {# ifndef	NDEBUG		a -> magic = MAGIC;# endif		/* NDEBUG */		a -> sp = sp;		a -> ctab = NULL;		a -> logger = NULL;		a -> callid = NULL;		a -> deftout = 10;		a -> alogin = NULL;		a -> alogout = NULL;		a -> apid = NULL;		a -> amsg = NULL;		a -> anext = NULL;		a -> async = NULL;		dat_clear (& a -> delay);		dat_clear (& a -> expire);		a -> rds = False;	}	return (void *) a;}void *asc_free (void *ap){	asc	*a = (asc *) ap;		MCHK (a);	if (a) {		if (a -> ctab)			cv_free (a -> ctab);		if (a -> callid)			free (a -> callid);		if (a -> alogin)			free (a -> alogin);		if (a -> alogout)			free (a -> alogout);		if (a -> apid)			free (a -> apid);		if (a -> amsg)			free (a -> amsg);		if (a -> anext)			free (a -> anext);		if (a -> async)			free (a -> async);		free (a);	}	return NULL;}intasc_preinit (void){	return 0;}voidasc_postdeinit (void){}/*}}}*/