gno/usr.bin/nroff/strings.c

197 lines
4.3 KiB
C
Raw Normal View History

1997-03-14 06:22:29 +00:00
/*
* strings.c - String input/output processing for nroff word processor
*
* adapted for atariST/TOS by Bill Rosenkranz 11/89
* net: rosenkra@hall.cray.com
* CIS: 71460,17
* GENIE: W.ROSENKRANZ
*
* original author:
*
* Stephen L. Browning
* 5723 North Parker Avenue
* Indianapolis, Indiana 46220
*
* history:
*
* - Originally written in BDS C;
* - Adapted for standard C by W. N. Paul
* - Heavily hacked up to conform to "real" nroff by Bill Rosenkranz
* - Heavily modified by Devin Reade to avoid memory trashing bugs.
*
* $Id: strings.c,v 1.2 1997/03/20 06:40:51 gdr Exp $
1997-03-14 06:22:29 +00:00
*/
#ifdef __ORCAC__
segment "strings___";
#pragma noroot
#pragma optimize 79
1997-03-14 06:22:29 +00:00
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#ifdef __GNO__
#include <err.h>
#else
#include "unix/err.h"
1997-03-14 06:22:29 +00:00
#endif
#ifdef sparc
#include "unix/sunos.h"
1997-03-14 06:22:29 +00:00
#endif
#include "nroff.h"
#include "macros.h"
static int colstr (const char *src, char *dest, size_t len);
/*
* defstr
*
* Define a string. top level, read from command line.
*
* we should read string without interpretation EXCEPT:
*
* 1) number registers are interpolated
* 2) strings indicated by \* are interpolated
* 3) arguments indicated by \$ are interpolated
* 4) concealed newlines indicated by \(newline) are eliminated
* 5) comments indicated by \" are eliminated
* 6) \t and \a are interpreted as ASCII h tab and SOH.
* 7) \\ is interpreted as backslash and \. is interpreted as a period.
*
* currently, we do only 3. a good place to do it would be here before
* putstr, after colstr...
*/
void
defstr (char *line) {
register char *q;
register int i;
static char name[MNLEN];
static char defn[MXMLEN+1];
name[0] = '\0';
defn[0] = '\0';
#ifdef BORK
fprintf(stderr, "DEBUG: %s:%d name = 0x%x\tdefn = 0x%x line=%s\n",
__FILE__, __LINE__, name, defn, line);
#endif
/*
* skip the .ds and get to the name...
*/
q = skipwd (line);
q = skipbl (q);
/*
* ok, name now holds the name. make sure it is valid (i.e. first
* char is alpha...). getwrd returns the length of the word.
*/
i = getwrd (q, name);
if (!name[0]) {
errx(-1, "missing or illegal string definition name");
}
/*
* truncate to 2 char max name.
*/
if (i > 2) {
name[2] = EOS;
}
/*
* skip the name to get to the string. it CAN start with a " to
* have leading blanks...
*/
q = skipwd (q);
q = skipbl (q);
/*
* read rest of line from input stream and collect string into
* temp buffer defn
*/
if ((i = colstr (q, defn, MXMLEN)) == ERR) {
errx(-1, "string definition too long");
}
/*
* store the string
*/
if (putstr (name, defn) == ERR) {
errx(-1, "string definition table full");
}
}
/*
* colstr
* Collect string definition from input stream
*/
static int
colstr (const char *src, char *dest, size_t len) {
const char *orgsrc;
char *orgdest, *destlimit;
orgsrc = src;
orgdest = dest;
destlimit = dest + len; /* don't let dest go past this pointer */
#ifdef BORK
fprintf(stderr,"DEBUG: %s:%d src=\"%s\"\n", __FILE__, __LINE__, src);
#endif
/*
* if there is a " here, we have leading blanks (skipbl in caller
* found it). just get past it...
*/
if (*src == '\"') {
src++;
}
while ((*src != '\n') && (*src != '\r') && (*src != '\0')
&& (dest < destlimit - 1)) {
/*
* If it's a comment, it ends terminates string collection
*/
if (*src == '\\' && *(src+1) == '\"') {
/*
* first back over any whitespace between the start of the
* comment and the last non-whitespace character preceeding
* the comment
*/
while (dest > orgdest && isspace(*dest)) {
--dest;
}
/* forward src until we hit newline or end of string */
while (*src != '\n' && *src != '\r' && *src != '\0') {
src++;
}
break;
}
/*
* stop at the newline...
*/
if (*src == '\n' || *src == '\r') {
break;
}
/*
* copy it
*/
*dest++ = *src++;
}
*dest = '\0';
/* did we attempt to go over the allowed length for dest? */
if (*src == '\0' || *src == '\n' || *src == '\r') {
return dest - orgdest;
} else {
return ERR;
}
}