brian/ratatoskr-messenger
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
ratatoskr-messenger/zwgc/formatter.c

563 lines
14 KiB
C
Raw Blame History

/* This file is part of the Project Athena Zephyr Notification System.
* It is one of the source files comprising zwgc, the Zephyr WindowGram
* client.
*
* Created by: Marc Horowitz <marc@athena.mit.edu>
*
* $Id$
*
* Copyright (c) 1989 by the Massachusetts Institute of Technology.
* For copying and distribution information, see the file
* "mit-copyright.h".
*/
#include <sysdep.h>
#if (!defined(lint) && !defined(SABER))
static const char rcsid_formatter_c[] = "$Id$";
#endif
#include <zephyr/mit-copyright.h>
#include <zephyr/zephyr.h>
#include "new_memory.h"
#include "char_stack.h"
#include "string_dictionary.h"
#include "formatter.h"
#include "text_operations.h"
#if !defined(__STDC__) && !defined(const)
#define const
#endif
static int pure_text_length(char *, char);
static int env_length(char *);
#ifdef notdef
static character_class atsign_set = { /* '@' = 0x40 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
#endif
static const character_class paren_set = { /* '(' = 0x28, ')' = 0x29 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
static const character_class sbracket_set = { /* '[' = 0x5b, ']' = 0x5d */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
static const character_class abracket_set = { /* '<' = 0x3c, '>' = 0x3e */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
static const character_class cbracket_set = { /* '{' = 0x7b, '}' = 0x7d */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
static const character_class allbracket_set = {
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
static const character_class allmaskable_set = {
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};
static char brackets[]="()<>[]{}@";
static char *openbracket[]={"@<","@<","@[","@[","@{","@{","@(","@(","@("};
static char *closebracket[]={">",">","]","]","}","}",")",")",")"};
static int
not_contains(string str,
const character_class set)
{
while (*str && ! set[(int)*str]) str++;
return (! *str);
}
static int
pure_text_length(char *text,
char terminator)
{
int len=0;
while (1) {
while (*text!='@' && *text!=terminator && *text) {
text++;
len++;
}
if (*text!='@')
return(len);
if (*(text+1)=='@') {
text++;
len++;
} else if (env_length(text+1) != -1)
return(len);
text++;
len++;
}
}
static char
otherside(char opener)
{
switch (opener) {
case '(':
return(')');
case '{':
return('}');
case '[':
return(']');
case '<':
return('>');
}
#ifdef DEBUG
abort();
#endif
return 0;
}
/* the char * that str points to is free'd by this function.
* if you want to keep it, save it yourself
*/
string
verbatim(string str, int bracketsonly)
{
char *temp,*temp2;
int bracketnum,len;
len = strlen(str);
if (len == pure_text_length(str,0)) {
/* No environments, so consider the fast-and-easy methods */
if (not_contains(str,allbracket_set)) {
temp = string_Copy(str);
free(str);
return(temp);
}
if (not_contains(str,abracket_set)) {
temp=(char *) malloc((len=strlen(str))+4);
temp[0]='@';
temp[1]='<';
(void) memcpy(temp+2,str,len);
temp[len+2]='>';
temp[len+3]='\0';
free(str);
return(temp);
}
if (not_contains(str,sbracket_set)) {
temp=(char *) malloc((len=strlen(str))+4);
temp[0]='@';
temp[1]='[';
(void) memcpy(temp+2,str,len);
temp[len+2]=']';
temp[len+3]='\0';
free(str);
return(temp);
}
if (not_contains(str,cbracket_set)) {
temp=(char *) malloc((len=strlen(str))+4);
temp[0]='@';
temp[1]='{';
(void) memcpy(temp+2,str,len);
temp[len+2]='}';
temp[len+3]='\0';
free(str);
return(temp);
}
if (not_contains(str,paren_set)) {
temp=(char *) malloc((len=strlen(str))+4);
temp[0]='@';
temp[1]='(';
(void) memcpy(temp+2,str,len);
temp[len+2]=')';
temp[len+3]='\0';
free(str);
return(temp);
}
}
temp=lbreak(&str,bracketsonly?allbracket_set:allmaskable_set);
while(*str) {
bracketnum=(int) (strchr(brackets,str[0])-brackets);
temp=string_Concat2(temp,openbracket[bracketnum]);
temp=string_Concat2(temp,temp2=lany(&str," "));
free(temp2);
temp=string_Concat2(temp,closebracket[bracketnum]);
temp=string_Concat2(temp,temp2=lbreak(&str,bracketsonly?
allbracket_set:allmaskable_set));
free(temp2);
}
free(str); /* str is "" at this point, anyway */
return(temp);
}
/* text points to beginning of text string. return value is
length of string, up to but not including the passed terminator
or the default terminator \0. The text will not be modified,
and @@ will be counted twice */
string
protect(string str)
{
string temp,temp2,temp3;
int len,templen;
char_stack chs;
char tos;
temp = string_Copy("");
templen = 1;
chs = char_stack_create();
while(*str) {
tos = (char_stack_empty(chs)?0:char_stack_top(chs));
if (*str == tos) {
/* if the character is the next terminator */
temp = (char *) realloc(temp,++templen);
temp[templen-2] = *str++;
char_stack_pop(chs);
temp[templen-1] = '\0';
} else if ((len = pure_text_length(str,tos))) {
if (tos) {
/* if the block is text in an environment, just copy it */
temp2 = string_CreateFromData(str,len);
str += len;
temp = string_Concat2(temp,temp2);
templen += len;
free(temp2);
} else {
/* if the block is top level text, verbatim brackets only
(not @'s) and add text to temp */
temp2 = string_CreateFromData(str,len);
str += len;
temp3 = verbatim(temp2,1);
temp = string_Concat2(temp,temp3);
templen += strlen(temp3);
free(temp3);
}
} else {
/* if the block is an environment, copy it, push delimiter */
len = env_length(str+1);
char_stack_push(chs,otherside(str[len+1]));
len += 2;
temp2 = string_CreateFromData(str,len);
str += len;
temp = string_Concat2(temp,temp2);
templen += len;
free(temp2);
}
}
/* all blocks have been copied. */
while (!char_stack_empty(chs)) {
temp = (char *) realloc(temp,++templen);
temp[templen-2] = char_stack_top(chs);
char_stack_pop(chs);
}
temp[templen-1] = '\0';
return(temp);
}
/* str points to a string. return value is another string
which is the original with all styles removed. */
string
stylestrip(string str)
{
int templen = 0, otherchar;
char *temp = (char *) malloc(string_Length(str) + 1);
char_stack chs;
string ostr = str;
chs = char_stack_create();
while (*str) {
if (*str == '@') {
int len = env_length(str + 1);
if (len != -1) {
otherchar = 0;
if ((len == 4 && !strncasecmp(str + 1, "font", 4))
|| (len == 5 && !strncasecmp(str + 1, "color", 5)))
otherchar = 0x80;
otherchar |= otherside(str[len + 1]);
char_stack_push(chs, otherchar);
str += len + 2;
continue;
}
}
if (!char_stack_empty(chs) && *str == (char_stack_top(chs) & 0x7f)) {
char_stack_pop(chs);
str++;
continue;
}
if (!char_stack_empty(chs) && (char_stack_top(chs) & 0x80))
str++;
else
temp[templen++] = *str++;
}
temp[templen] = 0;
while (!char_stack_empty(chs))
char_stack_pop(chs);
free(ostr);
return(temp);
}
void
free_desc(desctype *desc)
{
desctype *next_desc;
while (desc->code != DT_EOF) {
next_desc = desc->next;
free(desc);
desc = next_desc;
}
free(desc);
}
/* text points to beginning of possible env name. return value is
length of env name, not including @ or opener, or -1 if not a
possible env name. */
static int
env_length(char *text)
{
int len=0;
while (*text && (isalnum(*text) || *text=='_')) {
text++;
len++;
}
if ((*text=='(') || (*text=='{') || (*text=='[') || (*text=='<'))
return(len);
else
return(-1);
}
/* text points to beginning of text string. return value is
length of string, up to but not including the passed terminator
or the default terminators \0 \n @. This can modify text, and 0
is a valid return value. */
static int
text_length(char *text,
char terminator)
{
int len=0;
while (1) {
while (*text!='@' && *text!='\n' && *text!=terminator && *text) {
text++;
len++;
}
if (*text!='@')
return(len);
if (*(text+1)=='@')
(void) memmove(text+1,text+2,strlen(text+1));
else if (env_length(text+1) != -1)
return(len);
text++;
len++;
}
}
/* parses str into a desc linked list. Returns number of strings and
newlines in *pstr and *pnl */
desctype *
disp_get_cmds(char *str,
int *pstr,
int *pnl)
{
desctype *desc,*here;
int len;
char_stack terminators = char_stack_create();
char terminator;
int nstr=0, nnl=0;
char *curstr;
desc=(desctype *) malloc(sizeof(desctype));
here=desc;
curstr=str;
terminator = '\0';
while (*curstr) {
if (*curstr=='\n') {
here->code=DT_NL;
curstr++;
nnl++;
} else if (*curstr==terminator) { /* if this is the end of an env */
here->code=DT_END;
terminator = char_stack_top(terminators);
char_stack_pop(terminators);
curstr++;
} else if ((len=text_length(curstr, terminator))) { /* if there is a text
block here */
here->code=DT_STR;
here->str=curstr;
here->len=len;
curstr+=len;
nstr++;
} else if (*curstr=='@') { /* if this is the beginning of an env */
len=env_length(curstr+1);
here->code=DT_ENV;
here->str=curstr+1;
here->len=len;
char_stack_push(terminators, terminator);
terminator=otherside(*(curstr+1+len));
curstr+=(len+2); /* jump over @, env name, and opener */
}
here->next=(desctype *) malloc(sizeof(desctype));
here=here->next;
}
while (!char_stack_empty(terminators)) {
here->code=DT_END;
terminator = char_stack_top(terminators);
char_stack_pop(terminators);
here->next=(desctype *) malloc(sizeof(desctype));
here=here->next;
}
here->code=DT_EOF;
*pstr=nstr;
*pnl=nnl;
#ifdef DEBUG_PRINTOUT
{ string temp;
here = desc;
while (here->code != DT_EOF) {
if (here->code == DT_STR || here->code == DT_ENV) {
temp = string_CreateFromData(here->str, here->len);
printf("[%d <%s>]\n", here->code, temp);
free(temp);
} else
printf("[%d]\n", here->code);
here=here->next;
}
}
#endif
return(desc);
}
Reference in New Issue View Git Blame Copy Permalink