OpenSolaris_b135/lib/libcurses/screen/cexpand.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 1997 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1988 AT&T */
/* All Rights Reserved */
/*
* University Copyright- Copyright (c) 1982, 1986, 1988
* The Regents of the University of California
* All Rights Reserved
*
* University Acknowledgment- Portions of this document are derived from
* software developed by the University of California, Berkeley, and its
* contributors.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include "print.h"
#define BACKSLASH '\\'
#define BACKBACK "\\\\"
extern char *strcat();
static char retbuffer[1024];
static char ret2buffer[1024];
/*
* Remove the padding sequences from the input string.
* Return the new string without the padding sequences
* and the padding itself in padbuffer.
*/
char
*rmpadding(char *str, char *padbuffer, int *padding)
{
static char rmbuffer[1024];
register char ch;
register char *pbufptr;
register char *retptr = rmbuffer;
char *svbufptr;
int padbylines = 0;
int paddigits = 0;
int paddecimal = 0;
padbuffer[0] = rmbuffer[0] = '\0';
if (padding)
*padding = 0;
if (str == NULL)
return (rmbuffer);
while (ch = (*str++ & 0377))
switch (ch) {
case '$':
if (*str == '<') {
svbufptr = ++str; /* skip '<' */
/* copy number */
pbufptr = padbuffer;
for (; *str && isdigit(*str); str++) {
*svbufptr++ = *str;
*pbufptr++ = *str;
}
*pbufptr = '\0';
paddigits += atoi(padbuffer);
/* check for decimal */
if (*str == '.') {
str++;
pbufptr = padbuffer;
for (; *str && isdigit(ch);
str++) {
*svbufptr++ = *str;
*pbufptr++ = *str;
}
*pbufptr = '\0';
paddecimal += atoi(padbuffer);
}
for (; (*str == '*') || (*str == '/');
str++) {
if (*str == '*')
padbylines = 1;
/* Termcap does not support mandatory padding */
/* marked with /. Just remove it. */
else {
extern char *progname;
(void) fprintf(stderr,
"%s: mandatory "
"padding removed\n",
progname);
}
}
/* oops, not a padding spec after all */
/* put us back after the '$<' */
if (*str != '>') {
str = svbufptr;
*retptr++ = '$';
*retptr++ = '<';
} else
str++; /* skip the '>' */
/* Flag padding info that is not at the end */
/* of the string. */
if (*str != '\0') {
extern char *progname;
(void) fprintf(stderr,
"%s: padding information "
"moved to end\n", progname);
}
} else
*retptr++ = ch;
break;
default:
*retptr++ = ch;
}
*retptr = '\0';
if (paddecimal > 10) {
paddigits += paddecimal / 10;
paddecimal %= 10;
}
if (paddigits > 0 && paddecimal > 0)
(void) sprintf(padbuffer, "%d.%d", paddigits, paddecimal);
else if (paddigits > 0)
(void) sprintf(padbuffer, "%d", paddigits);
else if (paddecimal > 0)
(void) sprintf(padbuffer, ".%d", paddecimal);
if (padbylines)
(void) strcat(padbuffer, "*");
if (padding)
*padding = paddecimal;
return (rmbuffer);
}
/*
* Convert a character, making appropriate changes to make it printable
* for a termcap source entry. Change escape, tab, etc., into their
* appropriate equivalents. Return the number of characters printed.
*/
char
*cconvert(char *string)
{
register int c;
register char *retptr = retbuffer;
retbuffer[0] = '\0';
if (string == NULL)
return (retbuffer);
while (c = *string++) {
/* should check here to make sure that there is enough room */
/* in retbuffer and realloc it if necessary. */
c &= 0377;
/* we ignore the return value from sprintf because BSD/V7 */
/* systems return a (char *) rather than an int. */
if (c >= 0200) {
(void) sprintf(retptr, "\\%.3o", c); retptr += 4; }
else if (c == '\033') {
(void) sprintf(retptr, "\\E"); retptr += 2; }
else if (c == '\t') {
(void) sprintf(retptr, "\\t"); retptr += 2; }
else if (c == '\b') {
(void) sprintf(retptr, "\\b"); retptr += 2; }
else if (c == '\f') {
(void) sprintf(retptr, "\\f"); retptr += 2; }
else if (c == '\n') {
(void) sprintf(retptr, "\\n"); retptr += 2; }
else if (c == '\r') {
(void) sprintf(retptr, "\\r"); retptr += 2; }
/* unfortunately \: did not work */
else if (c == ':') {
(void) sprintf(retptr, "\\072"); retptr += 4; }
else if (c == '^') {
(void) sprintf(retptr, "\\^"); retptr += 2; }
else if (c == BACKSLASH) {
(void) sprintf(retptr, BACKBACK); retptr += 2; }
else if (c < ' ' || c == 0177) {
(void) sprintf(retptr, "^%c", c ^ 0100); retptr += 2; }
else {
(void) sprintf(retptr, "%c", c); retptr++; }
}
*retptr = '\0';
return (retbuffer);
}
/*
* Convert the terminfo string into a termcap string.
* Most of the work is done by rmpadding() above and cconvert(); this
* function mainly just pieces things back together. A pointer to the
* return buffer is returned.
*
* NOTE: Some things can not be done at all: converting the terminfo
* parameterized strings into termcap parameterized strings.
*/
char
*cexpand(char *str)
{
char padbuffer[512];
char *retptr;
retptr = rmpadding(str, padbuffer, (int *)0);
(void) sprintf(ret2buffer, "%s%s", padbuffer, cconvert(retptr));
return (ret2buffer);
}
/*
* Print out a string onto a stream, changing unprintables into
* termcap printables.
*/
int
cpr(FILE *stream, char *string)
{
register char *ret;
if (string != NULL) {
ret = cexpand(string);
(void) fprintf(stream, "%s", ret);
return (strlen(ret));
} else
return (0);
}