3003 lines
77 KiB
C
3003 lines
77 KiB
C
/*
|
|
* - Need to document error code meanings.
|
|
* - Need to do something with \* on destinations.
|
|
* - Make the parameter a long?
|
|
*
|
|
* reader.c - RTF file reader. Release 1.10.
|
|
*
|
|
* ASCII 10 (\n) and 13 (\r) are ignored and silently discarded.
|
|
* Nulls are also discarded.
|
|
* (although the read hook will still get a look at them.)
|
|
*
|
|
* "\:" is not a ":", it's a control symbol. But some versions of
|
|
* Word seem to write "\:" for ":". This reader treats "\:" as a
|
|
* plain text ":"
|
|
*
|
|
* 19 Mar 93
|
|
* - Add hack to skip "{\*\keycode ... }" group in stylesheet.
|
|
* This is probably the wrong thing to do, but it's simple.
|
|
* 13 Jul 93
|
|
* - Add THINK C awareness to malloc() declaration. Necessary so
|
|
* compiler knows the malloc argument is 4 bytes. Ugh.
|
|
* 07 Sep 93
|
|
* - Text characters are mapped onto standard codes, which are placed
|
|
* in rtfMinor.
|
|
* - Eliminated use of index() function.
|
|
* 05 Mar 94
|
|
* - Added zillions of new symbols (those defined in RTF spec 1.2).
|
|
* 14 Mar 94
|
|
* - Public functions RTFMsg() and RTFPanic() now take variable arguments.
|
|
* This means RTFPanic() now is used in place of what was formerly the
|
|
* internal function Error().
|
|
* - 8-bit characters are now legal, so they're not converted to \'xx
|
|
* hex char representation now.
|
|
* 01 Apr 94
|
|
* - Added public variables rtfLineNum and rtfLinePos.
|
|
* - #include string.h or strings.h, avoiding strncmp() problem where
|
|
* last argument is treated as zero when prototype isn't available.
|
|
* 04 Apr 94
|
|
* - Treat style numbers 222 and 0 properly as "no style" and "normal".
|
|
*
|
|
* Author: Paul DuBois dubois@primate.wisc.edu
|
|
*
|
|
* This software may be redistributed without restriction and used for
|
|
* any purpose whatsoever.
|
|
*/
|
|
|
|
# ifndef STRING_H
|
|
# define STRING_H <string.h>
|
|
# endif
|
|
|
|
# include <stdio.h>
|
|
# include <ctype.h>
|
|
# include STRING_H
|
|
# ifdef STDARG
|
|
# include <stdarg.h>
|
|
# else
|
|
# ifdef VARARGS
|
|
# include <varargs.h>
|
|
# endif /* VARARGS */
|
|
# endif /* STDARG */
|
|
|
|
# define rtfInternal
|
|
# include "rtf.h"
|
|
# undef rtfInternal
|
|
|
|
/*
|
|
* include hard coded charsets
|
|
*/
|
|
|
|
#include "ansi_gen.h"
|
|
#include "ansi_sym.h"
|
|
#include "text_map.h"
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include "charlist.h"
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "debugtools.h"
|
|
|
|
extern HANDLE RICHED32_hHeap;
|
|
|
|
/*
|
|
* Return pointer to new element of type t, or NULL
|
|
* if no memory available.
|
|
*/
|
|
|
|
# define New(t) ((t *) RTFAlloc ((int) sizeof (t)))
|
|
|
|
/* maximum number of character values representable in a byte */
|
|
|
|
# define charSetSize 256
|
|
|
|
/* charset stack size */
|
|
|
|
# define maxCSStack 10
|
|
|
|
static int _RTFGetChar();
|
|
static void _RTFGetToken ();
|
|
static void _RTFGetToken2 ();
|
|
static int GetChar ();
|
|
static void ReadFontTbl ();
|
|
static void ReadColorTbl ();
|
|
static void ReadStyleSheet ();
|
|
static void ReadInfoGroup ();
|
|
static void ReadPictGroup ();
|
|
static void ReadObjGroup ();
|
|
static void LookupInit ();
|
|
static void Lookup ();
|
|
static int Hash ();
|
|
|
|
static void CharSetInit ();
|
|
static void ReadCharSetMaps ();
|
|
|
|
|
|
/*
|
|
* Public variables (listed in rtf.h)
|
|
*/
|
|
|
|
int rtfClass;
|
|
int rtfMajor;
|
|
int rtfMinor;
|
|
int rtfParam;
|
|
char *rtfTextBuf = (char *) NULL;
|
|
int rtfTextLen;
|
|
|
|
long rtfLineNum;
|
|
int rtfLinePos;
|
|
|
|
|
|
/*
|
|
* Private stuff
|
|
*/
|
|
|
|
static int pushedChar; /* pushback char if read too far */
|
|
|
|
static int pushedClass; /* pushed token info for RTFUngetToken() */
|
|
static int pushedMajor;
|
|
static int pushedMinor;
|
|
static int pushedParam;
|
|
static char *pushedTextBuf = (char *) NULL;
|
|
|
|
static int prevChar;
|
|
static int bumpLine;
|
|
|
|
static RTFFont *fontList = (RTFFont *) NULL; /* these lists MUST be */
|
|
static RTFColor *colorList = (RTFColor *) NULL; /* initialized to NULL */
|
|
static RTFStyle *styleList = (RTFStyle *) NULL;
|
|
|
|
static char *inputName = (char *) NULL;
|
|
static char *outputName = (char *) NULL;
|
|
|
|
static EDITSTREAM editstream;
|
|
static CHARLIST inputCharList = {0, NULL, NULL};
|
|
|
|
/*
|
|
* This array is used to map standard character names onto their numeric codes.
|
|
* The position of the name within the array is the code.
|
|
* stdcharnames.h is generated in the ../h directory.
|
|
*/
|
|
|
|
static char *stdCharName[] =
|
|
{
|
|
# include "stdcharnames.h"
|
|
(char *) NULL
|
|
};
|
|
|
|
|
|
/*
|
|
* These arrays are used to map RTF input character values onto the standard
|
|
* character names represented by the values. Input character values are
|
|
* used as indices into the arrays to produce standard character codes.
|
|
*/
|
|
|
|
|
|
static char *genCharSetFile = (char *) NULL;
|
|
static int genCharCode[charSetSize]; /* general */
|
|
static int haveGenCharSet = 0;
|
|
|
|
static char *symCharSetFile = (char *) NULL;
|
|
static int symCharCode[charSetSize]; /* symbol */
|
|
static int haveSymCharSet = 0;
|
|
|
|
static int curCharSet = rtfCSGeneral;
|
|
static int *curCharCode = genCharCode;
|
|
|
|
/*
|
|
* By default, the reader is configured to handle charset mapping invisibly,
|
|
* including reading the charset files and switching charset maps as necessary
|
|
* for Symbol font.
|
|
*/
|
|
|
|
static int autoCharSetFlags;
|
|
|
|
/*
|
|
* Stack for keeping track of charset map on group begin/end. This is
|
|
* necessary because group termination reverts the font to the previous
|
|
* value, which may implicitly change it.
|
|
*/
|
|
|
|
static int csStack[maxCSStack];
|
|
static int csTop = 0;
|
|
|
|
/*
|
|
* Get a char from the charlist. The charlist is used to store characters
|
|
* from the editstream.
|
|
*
|
|
*/
|
|
|
|
int
|
|
_RTFGetChar()
|
|
{
|
|
char myChar;
|
|
if(CHARLIST_GetNbItems(&inputCharList) == 0)
|
|
{
|
|
char buff[10];
|
|
long pcb;
|
|
editstream.pfnCallback(editstream.dwCookie, buff, 1, &pcb);
|
|
if(pcb == 0)
|
|
return EOF;
|
|
else
|
|
CHARLIST_Enqueue(&inputCharList, buff[0]);
|
|
}
|
|
myChar = CHARLIST_Dequeue(&inputCharList);
|
|
return (int) myChar;
|
|
}
|
|
|
|
void
|
|
RTFSetEditStream(EDITSTREAM *es)
|
|
{
|
|
editstream.dwCookie = es->dwCookie;
|
|
editstream.dwError = es->dwError;
|
|
editstream.pfnCallback = es->pfnCallback;
|
|
}
|
|
|
|
/*
|
|
* Initialize the reader. This may be called multiple times,
|
|
* to read multiple files. The only thing not reset is the input
|
|
* stream; that must be done with RTFSetStream().
|
|
*/
|
|
|
|
void
|
|
RTFInit ()
|
|
{
|
|
int i;
|
|
RTFColor *cp;
|
|
RTFFont *fp;
|
|
RTFStyle *sp;
|
|
RTFStyleElt *eltList, *ep;
|
|
|
|
if (rtfTextBuf == (char *) NULL) /* initialize the text buffers */
|
|
{
|
|
rtfTextBuf = RTFAlloc (rtfBufSiz);
|
|
pushedTextBuf = RTFAlloc (rtfBufSiz);
|
|
if (rtfTextBuf == (char *) NULL
|
|
|| pushedTextBuf == (char *) NULL)
|
|
RTFPanic ("Cannot allocate text buffers.");
|
|
rtfTextBuf[0] = pushedTextBuf[0] = '\0';
|
|
}
|
|
|
|
RTFFree (inputName);
|
|
RTFFree (outputName);
|
|
inputName = outputName = (char *) NULL;
|
|
|
|
/* initialize lookup table */
|
|
LookupInit ();
|
|
|
|
for (i = 0; i < rtfMaxClass; i++)
|
|
RTFSetClassCallback (i, (RTFFuncPtr) NULL);
|
|
for (i = 0; i < rtfMaxDestination; i++)
|
|
RTFSetDestinationCallback (i, (RTFFuncPtr) NULL);
|
|
|
|
/* install built-in destination readers */
|
|
RTFSetDestinationCallback (rtfFontTbl, ReadFontTbl);
|
|
RTFSetDestinationCallback (rtfColorTbl, ReadColorTbl);
|
|
RTFSetDestinationCallback (rtfStyleSheet, ReadStyleSheet);
|
|
RTFSetDestinationCallback (rtfInfo, ReadInfoGroup);
|
|
RTFSetDestinationCallback (rtfPict, ReadPictGroup);
|
|
RTFSetDestinationCallback (rtfObject, ReadObjGroup);
|
|
|
|
|
|
RTFSetReadHook ((RTFFuncPtr) NULL);
|
|
|
|
/* dump old lists if necessary */
|
|
|
|
while (fontList != (RTFFont *) NULL)
|
|
{
|
|
fp = fontList->rtfNextFont;
|
|
RTFFree (fontList->rtfFName);
|
|
RTFFree ((char *) fontList);
|
|
fontList = fp;
|
|
}
|
|
while (colorList != (RTFColor *) NULL)
|
|
{
|
|
cp = colorList->rtfNextColor;
|
|
RTFFree ((char *) colorList);
|
|
colorList = cp;
|
|
}
|
|
while (styleList != (RTFStyle *) NULL)
|
|
{
|
|
sp = styleList->rtfNextStyle;
|
|
eltList = styleList->rtfSSEList;
|
|
while (eltList != (RTFStyleElt *) NULL)
|
|
{
|
|
ep = eltList->rtfNextSE;
|
|
RTFFree (eltList->rtfSEText);
|
|
RTFFree ((char *) eltList);
|
|
eltList = ep;
|
|
}
|
|
RTFFree (styleList->rtfSName);
|
|
RTFFree ((char *) styleList);
|
|
styleList = sp;
|
|
}
|
|
|
|
rtfClass = -1;
|
|
pushedClass = -1;
|
|
pushedChar = EOF;
|
|
|
|
rtfLineNum = 0;
|
|
rtfLinePos = 0;
|
|
prevChar = EOF;
|
|
bumpLine = 0;
|
|
|
|
CharSetInit ();
|
|
csTop = 0;
|
|
}
|
|
|
|
/*
|
|
* Set or get the input or output file name. These are never guaranteed
|
|
* to be accurate, only insofar as the calling program makes them so.
|
|
*/
|
|
|
|
void
|
|
RTFSetInputName (name)
|
|
char *name;
|
|
{
|
|
if ((inputName = RTFStrSave (name)) == (char *) NULL)
|
|
RTFPanic ("RTFSetInputName: out of memory");
|
|
}
|
|
|
|
|
|
char *
|
|
RTFGetInputName ()
|
|
{
|
|
return (inputName);
|
|
}
|
|
|
|
|
|
void
|
|
RTFSetOutputName (name)
|
|
char *name;
|
|
{
|
|
if ((outputName = RTFStrSave (name)) == (char *) NULL)
|
|
RTFPanic ("RTFSetOutputName: out of memory");
|
|
}
|
|
|
|
|
|
char *
|
|
RTFGetOutputName ()
|
|
{
|
|
return (outputName);
|
|
}
|
|
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Callback table manipulation routines
|
|
*/
|
|
|
|
|
|
/*
|
|
* Install or return a writer callback for a token class
|
|
*/
|
|
|
|
|
|
static RTFFuncPtr ccb[rtfMaxClass]; /* class callbacks */
|
|
|
|
|
|
void
|
|
RTFSetClassCallback (class, callback)
|
|
int class;
|
|
RTFFuncPtr callback;
|
|
{
|
|
if (class >= 0 && class < rtfMaxClass)
|
|
ccb[class] = callback;
|
|
}
|
|
|
|
|
|
RTFFuncPtr
|
|
RTFGetClassCallback (class)
|
|
int class;
|
|
{
|
|
if (class >= 0 && class < rtfMaxClass)
|
|
return (ccb[class]);
|
|
return ((RTFFuncPtr) NULL);
|
|
}
|
|
|
|
|
|
/*
|
|
* Install or return a writer callback for a destination type
|
|
*/
|
|
|
|
static RTFFuncPtr dcb[rtfMaxDestination]; /* destination callbacks */
|
|
|
|
|
|
void
|
|
RTFSetDestinationCallback (dest, callback)
|
|
int dest;
|
|
RTFFuncPtr callback;
|
|
{
|
|
if (dest >= 0 && dest < rtfMaxDestination)
|
|
dcb[dest] = callback;
|
|
}
|
|
|
|
|
|
RTFFuncPtr
|
|
RTFGetDestinationCallback (dest)
|
|
int dest;
|
|
{
|
|
if (dest >= 0 && dest < rtfMaxDestination)
|
|
return (dcb[dest]);
|
|
return ((RTFFuncPtr) NULL);
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Token reading routines
|
|
*/
|
|
|
|
|
|
/*
|
|
* Read the input stream, invoking the writer's callbacks
|
|
* where appropriate.
|
|
*/
|
|
|
|
void
|
|
RTFRead ()
|
|
{
|
|
while (RTFGetToken () != rtfEOF)
|
|
RTFRouteToken ();
|
|
}
|
|
|
|
|
|
/*
|
|
* Route a token. If it's a destination for which a reader is
|
|
* installed, process the destination internally, otherwise
|
|
* pass the token to the writer's class callback.
|
|
*/
|
|
|
|
void
|
|
RTFRouteToken ()
|
|
{
|
|
RTFFuncPtr p;
|
|
|
|
if (rtfClass < 0 || rtfClass >= rtfMaxClass) /* watchdog */
|
|
{
|
|
RTFPanic ("Unknown class %d: %s (reader malfunction)",
|
|
rtfClass, rtfTextBuf);
|
|
}
|
|
if (RTFCheckCM (rtfControl, rtfDestination))
|
|
{
|
|
/* invoke destination-specific callback if there is one */
|
|
if ((p = RTFGetDestinationCallback (rtfMinor))
|
|
!= (RTFFuncPtr) NULL)
|
|
{
|
|
(*p) ();
|
|
return;
|
|
}
|
|
}
|
|
/* invoke class callback if there is one */
|
|
if ((p = RTFGetClassCallback (rtfClass)) != (RTFFuncPtr) NULL)
|
|
(*p) ();
|
|
}
|
|
|
|
|
|
/*
|
|
* Skip to the end of the current group. When this returns,
|
|
* writers that maintain a state stack may want to call their
|
|
* state unstacker; global vars will still be set to the group's
|
|
* closing brace.
|
|
*/
|
|
|
|
void
|
|
RTFSkipGroup ()
|
|
{
|
|
int level = 1;
|
|
|
|
while (RTFGetToken () != rtfEOF)
|
|
{
|
|
if (rtfClass == rtfGroup)
|
|
{
|
|
if (rtfMajor == rtfBeginGroup)
|
|
++level;
|
|
else if (rtfMajor == rtfEndGroup)
|
|
{
|
|
if (--level < 1)
|
|
break; /* end of initial group */
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Read one token. Call the read hook if there is one. The
|
|
* token class is the return value. Returns rtfEOF when there
|
|
* are no more tokens.
|
|
*/
|
|
|
|
int
|
|
RTFGetToken ()
|
|
{
|
|
RTFFuncPtr p;
|
|
|
|
for (;;)
|
|
{
|
|
_RTFGetToken ();
|
|
if ((p = RTFGetReadHook ()) != (RTFFuncPtr) NULL)
|
|
(*p) (); /* give read hook a look at token */
|
|
|
|
/* Silently discard newlines, carriage returns, nulls. */
|
|
if (!(rtfClass == rtfText
|
|
&& (rtfMajor == '\n' || rtfMajor == '\r'
|
|
|| rtfMajor == '\0')))
|
|
break;
|
|
}
|
|
return (rtfClass);
|
|
}
|
|
|
|
|
|
/*
|
|
* Install or return a token reader hook.
|
|
*/
|
|
|
|
static RTFFuncPtr readHook;
|
|
|
|
|
|
void
|
|
RTFSetReadHook (f)
|
|
RTFFuncPtr f;
|
|
{
|
|
readHook = f;
|
|
}
|
|
|
|
|
|
RTFFuncPtr
|
|
RTFGetReadHook ()
|
|
{
|
|
return (readHook);
|
|
}
|
|
|
|
|
|
void
|
|
RTFUngetToken ()
|
|
{
|
|
if (pushedClass >= 0) /* there's already an ungotten token */
|
|
RTFPanic ("cannot unget two tokens");
|
|
if (rtfClass < 0)
|
|
RTFPanic ("no token to unget");
|
|
pushedClass = rtfClass;
|
|
pushedMajor = rtfMajor;
|
|
pushedMinor = rtfMinor;
|
|
pushedParam = rtfParam;
|
|
(void) strcpy (pushedTextBuf, rtfTextBuf);
|
|
}
|
|
|
|
|
|
int
|
|
RTFPeekToken ()
|
|
{
|
|
_RTFGetToken ();
|
|
RTFUngetToken ();
|
|
return (rtfClass);
|
|
}
|
|
|
|
|
|
static void
|
|
_RTFGetToken ()
|
|
{
|
|
RTFFont *fp;
|
|
|
|
/* first check for pushed token from RTFUngetToken() */
|
|
|
|
if (pushedClass >= 0)
|
|
{
|
|
rtfClass = pushedClass;
|
|
rtfMajor = pushedMajor;
|
|
rtfMinor = pushedMinor;
|
|
rtfParam = pushedParam;
|
|
(void) strcpy (rtfTextBuf, pushedTextBuf);
|
|
rtfTextLen = strlen (rtfTextBuf);
|
|
pushedClass = -1;
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Beyond this point, no token is ever seen twice, which is
|
|
* important, e.g., for making sure no "}" pops the font stack twice.
|
|
*/
|
|
|
|
_RTFGetToken2 ();
|
|
if (rtfClass == rtfText) /* map RTF char to standard code */
|
|
rtfMinor = RTFMapChar (rtfMajor);
|
|
|
|
/*
|
|
* If auto-charset stuff is activated, see if anything needs doing,
|
|
* like reading the charset maps or switching between them.
|
|
*/
|
|
|
|
if (autoCharSetFlags == 0)
|
|
return;
|
|
|
|
if ((autoCharSetFlags & rtfReadCharSet)
|
|
&& RTFCheckCM (rtfControl, rtfCharSet))
|
|
{
|
|
ReadCharSetMaps ();
|
|
}
|
|
else if ((autoCharSetFlags & rtfSwitchCharSet)
|
|
&& RTFCheckCMM (rtfControl, rtfCharAttr, rtfFontNum))
|
|
{
|
|
if ((fp = RTFGetFont (rtfParam)) != (RTFFont *) NULL)
|
|
{
|
|
if (strncmp (fp->rtfFName, "Symbol", 6) == 0)
|
|
curCharSet = rtfCSSymbol;
|
|
else
|
|
curCharSet = rtfCSGeneral;
|
|
RTFSetCharSet (curCharSet);
|
|
}
|
|
}
|
|
else if ((autoCharSetFlags & rtfSwitchCharSet) && rtfClass == rtfGroup)
|
|
{
|
|
switch (rtfMajor)
|
|
{
|
|
case rtfBeginGroup:
|
|
if (csTop >= maxCSStack)
|
|
RTFPanic ("_RTFGetToken: stack overflow");
|
|
csStack[csTop++] = curCharSet;
|
|
break;
|
|
case rtfEndGroup:
|
|
if (csTop <= 0)
|
|
RTFPanic ("_RTFGetToken: stack underflow");
|
|
curCharSet = csStack[--csTop];
|
|
RTFSetCharSet (curCharSet);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/* this shouldn't be called anywhere but from _RTFGetToken() */
|
|
|
|
static void
|
|
_RTFGetToken2 ()
|
|
{
|
|
int sign;
|
|
int c;
|
|
|
|
/* initialize token vars */
|
|
|
|
rtfClass = rtfUnknown;
|
|
rtfParam = rtfNoParam;
|
|
rtfTextBuf[rtfTextLen = 0] = '\0';
|
|
|
|
/* get first character, which may be a pushback from previous token */
|
|
|
|
if (pushedChar != EOF)
|
|
{
|
|
c = pushedChar;
|
|
rtfTextBuf[rtfTextLen++] = c;
|
|
rtfTextBuf[rtfTextLen] = '\0';
|
|
pushedChar = EOF;
|
|
}
|
|
else if ((c = GetChar ()) == EOF)
|
|
{
|
|
rtfClass = rtfEOF;
|
|
return;
|
|
}
|
|
|
|
if (c == '{')
|
|
{
|
|
rtfClass = rtfGroup;
|
|
rtfMajor = rtfBeginGroup;
|
|
return;
|
|
}
|
|
if (c == '}')
|
|
{
|
|
rtfClass = rtfGroup;
|
|
rtfMajor = rtfEndGroup;
|
|
return;
|
|
}
|
|
if (c != '\\')
|
|
{
|
|
/*
|
|
* Two possibilities here:
|
|
* 1) ASCII 9, effectively like \tab control symbol
|
|
* 2) literal text char
|
|
*/
|
|
if (c == '\t') /* ASCII 9 */
|
|
{
|
|
rtfClass = rtfControl;
|
|
rtfMajor = rtfSpecialChar;
|
|
rtfMinor = rtfTab;
|
|
}
|
|
else
|
|
{
|
|
rtfClass = rtfText;
|
|
rtfMajor = c;
|
|
}
|
|
return;
|
|
}
|
|
if ((c = GetChar ()) == EOF)
|
|
{
|
|
/* early eof, whoops (class is rtfUnknown) */
|
|
return;
|
|
}
|
|
if (!isalpha (c))
|
|
{
|
|
/*
|
|
* Three possibilities here:
|
|
* 1) hex encoded text char, e.g., \'d5, \'d3
|
|
* 2) special escaped text char, e.g., \{, \}
|
|
* 3) control symbol, e.g., \_, \-, \|, \<10>
|
|
*/
|
|
if (c == '\'') /* hex char */
|
|
{
|
|
int c2;
|
|
|
|
if ((c = GetChar ()) != EOF && (c2 = GetChar ()) != EOF)
|
|
{
|
|
/* should do isxdigit check! */
|
|
rtfClass = rtfText;
|
|
rtfMajor = RTFCharToHex (c) * 16
|
|
+ RTFCharToHex (c2);
|
|
return;
|
|
}
|
|
/* early eof, whoops (class is rtfUnknown) */
|
|
return;
|
|
}
|
|
|
|
/* escaped char */
|
|
/*if (index (":{}\\", c) != (char *) NULL)*/ /* escaped char */
|
|
if (c == ':' || c == '{' || c == '}' || c == '\\')
|
|
{
|
|
rtfClass = rtfText;
|
|
rtfMajor = c;
|
|
return;
|
|
}
|
|
|
|
/* control symbol */
|
|
Lookup (rtfTextBuf); /* sets class, major, minor */
|
|
return;
|
|
}
|
|
/* control word */
|
|
while (isalpha (c))
|
|
{
|
|
if ((c = GetChar ()) == EOF)
|
|
break;
|
|
}
|
|
|
|
/*
|
|
* At this point, the control word is all collected, so the
|
|
* major/minor numbers are determined before the parameter
|
|
* (if any) is scanned. There will be one too many characters
|
|
* in the buffer, though, so fix up before and restore after
|
|
* looking up.
|
|
*/
|
|
|
|
if (c != EOF)
|
|
rtfTextBuf[rtfTextLen-1] = '\0';
|
|
Lookup (rtfTextBuf); /* sets class, major, minor */
|
|
if (c != EOF)
|
|
rtfTextBuf[rtfTextLen-1] = c;
|
|
|
|
/*
|
|
* Should be looking at first digit of parameter if there
|
|
* is one, unless it's negative. In that case, next char
|
|
* is '-', so need to gobble next char, and remember sign.
|
|
*/
|
|
|
|
sign = 1;
|
|
if (c == '-')
|
|
{
|
|
sign = -1;
|
|
c = GetChar ();
|
|
}
|
|
if (c != EOF && isdigit (c))
|
|
{
|
|
rtfParam = 0;
|
|
while (isdigit (c)) /* gobble parameter */
|
|
{
|
|
rtfParam = rtfParam * 10 + c - '0';
|
|
if ((c = GetChar ()) == EOF)
|
|
break;
|
|
}
|
|
rtfParam *= sign;
|
|
}
|
|
/*
|
|
* If control symbol delimiter was a blank, gobble it.
|
|
* Otherwise the character is first char of next token, so
|
|
* push it back for next call. In either case, delete the
|
|
* delimiter from the token buffer.
|
|
*/
|
|
if (c != EOF)
|
|
{
|
|
if (c != ' ')
|
|
pushedChar = c;
|
|
rtfTextBuf[--rtfTextLen] = '\0';
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Read the next character from the input. This handles setting the
|
|
* current line and position-within-line variables. Those variable are
|
|
* set correctly whether lines end with CR, LF, or CRLF (the last being
|
|
* the tricky case).
|
|
*
|
|
* bumpLine indicates whether the line number should be incremented on
|
|
* the *next* input character.
|
|
*/
|
|
|
|
|
|
static int
|
|
GetChar ()
|
|
{
|
|
int c;
|
|
int oldBumpLine;
|
|
|
|
if ((c = _RTFGetChar()) != EOF)
|
|
{
|
|
rtfTextBuf[rtfTextLen++] = c;
|
|
rtfTextBuf[rtfTextLen] = '\0';
|
|
}
|
|
if (prevChar == EOF)
|
|
bumpLine = 1;
|
|
oldBumpLine = bumpLine; /* non-zero if prev char was line ending */
|
|
bumpLine = 0;
|
|
if (c == '\r')
|
|
bumpLine = 1;
|
|
else if (c == '\n')
|
|
{
|
|
bumpLine = 1;
|
|
if (prevChar == '\r') /* oops, previous \r wasn't */
|
|
oldBumpLine = 0; /* really a line ending */
|
|
}
|
|
++rtfLinePos;
|
|
if (oldBumpLine) /* were we supposed to increment the */
|
|
{ /* line count on this char? */
|
|
++rtfLineNum;
|
|
rtfLinePos = 1;
|
|
}
|
|
prevChar = c;
|
|
return (c);
|
|
}
|
|
|
|
|
|
/*
|
|
* Synthesize a token by setting the global variables to the
|
|
* values supplied. Typically this is followed with a call
|
|
* to RTFRouteToken().
|
|
*
|
|
* If a param value other than rtfNoParam is passed, it becomes
|
|
* part of the token text.
|
|
*/
|
|
|
|
void
|
|
RTFSetToken (class, major, minor, param, text)
|
|
int class, major, minor, param;
|
|
char *text;
|
|
{
|
|
rtfClass = class;
|
|
rtfMajor = major;
|
|
rtfMinor = minor;
|
|
rtfParam = param;
|
|
if (param == rtfNoParam)
|
|
(void) strcpy (rtfTextBuf, text);
|
|
else
|
|
sprintf (rtfTextBuf, "%s%d", text, param);
|
|
rtfTextLen = strlen (rtfTextBuf);
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Routines to handle mapping of RTF character sets
|
|
* onto standard characters.
|
|
*
|
|
* RTFStdCharCode(name) given char name, produce numeric code
|
|
* RTFStdCharName(code) given char code, return name
|
|
* RTFMapChar(c) map input (RTF) char code to std code
|
|
* RTFSetCharSet(id) select given charset map
|
|
* RTFGetCharSet() get current charset map
|
|
*
|
|
* See ../h/README for more information about charset names and codes.
|
|
*/
|
|
|
|
|
|
/*
|
|
* Initialize charset stuff.
|
|
*/
|
|
|
|
static void
|
|
CharSetInit ()
|
|
{
|
|
autoCharSetFlags = (rtfReadCharSet | rtfSwitchCharSet);
|
|
RTFFree (genCharSetFile);
|
|
genCharSetFile = (char *) NULL;
|
|
haveGenCharSet = 0;
|
|
RTFFree (symCharSetFile);
|
|
symCharSetFile = (char *) NULL;
|
|
haveSymCharSet = 0;
|
|
curCharSet = rtfCSGeneral;
|
|
curCharCode = genCharCode;
|
|
}
|
|
|
|
|
|
/*
|
|
* Specify the name of a file to be read when auto-charset-file reading is
|
|
* done.
|
|
*/
|
|
|
|
void
|
|
RTFSetCharSetMap (name, csId)
|
|
char *name;
|
|
int csId;
|
|
{
|
|
if ((name = RTFStrSave (name)) == (char *) NULL) /* make copy */
|
|
RTFPanic ("RTFSetCharSetMap: out of memory");
|
|
switch (csId)
|
|
{
|
|
case rtfCSGeneral:
|
|
RTFFree (genCharSetFile); /* free any previous value */
|
|
genCharSetFile = name;
|
|
break;
|
|
case rtfCSSymbol:
|
|
RTFFree (symCharSetFile); /* free any previous value */
|
|
symCharSetFile = name;
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Do auto-charset-file reading.
|
|
* will always use the ansi charset no mater what the value
|
|
* of the rtfTextBuf is.
|
|
*
|
|
* TODO: add support for other charset in the future.
|
|
*
|
|
*/
|
|
|
|
static void
|
|
ReadCharSetMaps ()
|
|
{
|
|
char buf[rtfBufSiz];
|
|
|
|
if (genCharSetFile != (char *) NULL)
|
|
(void) strcpy (buf, genCharSetFile);
|
|
else
|
|
sprintf (buf, "%s-gen", &rtfTextBuf[1]);
|
|
if (RTFReadCharSetMap (rtfCSGeneral) == 0)
|
|
RTFPanic ("ReadCharSetMaps: Cannot read charset map %s", buf);
|
|
if (symCharSetFile != (char *) NULL)
|
|
(void) strcpy (buf, symCharSetFile);
|
|
else
|
|
sprintf (buf, "%s-sym", &rtfTextBuf[1]);
|
|
if (RTFReadCharSetMap (rtfCSSymbol) == 0)
|
|
RTFPanic ("ReadCharSetMaps: Cannot read charset map %s", buf);
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* Convert a CaracterSetMap (caracter_name, caracter) into
|
|
* this form : array[caracter_ident] = caracter;
|
|
*/
|
|
|
|
int
|
|
RTFReadCharSetMap (csId)
|
|
int csId;
|
|
{
|
|
int *stdCodeArray;
|
|
int i;
|
|
switch (csId)
|
|
{
|
|
default:
|
|
return (0); /* illegal charset id */
|
|
case rtfCSGeneral:
|
|
|
|
haveGenCharSet = 1;
|
|
stdCodeArray = genCharCode;
|
|
for (i = 0; i < charSetSize; i++)
|
|
{
|
|
stdCodeArray[i] = rtfSC_nothing;
|
|
}
|
|
|
|
for ( i = 0 ; i< sizeof(ansi_gen)/(sizeof(int));i+=2)
|
|
{
|
|
stdCodeArray[ ansi_gen[i+1] ] = ansi_gen[i];
|
|
}
|
|
break;
|
|
|
|
case rtfCSSymbol:
|
|
|
|
haveSymCharSet = 1;
|
|
stdCodeArray = symCharCode;
|
|
for (i = 0; i < charSetSize; i++)
|
|
{
|
|
stdCodeArray[i] = rtfSC_nothing;
|
|
}
|
|
|
|
for ( i = 0 ; i< sizeof(ansi_sym)/(sizeof(int));i+=2)
|
|
{
|
|
stdCodeArray[ ansi_sym[i+1] ] = ansi_sym[i];
|
|
}
|
|
break;
|
|
}
|
|
|
|
return (1);
|
|
}
|
|
|
|
|
|
/*
|
|
* Given a standard character name (a string), find its code (a number).
|
|
* Return -1 if name is unknown.
|
|
*/
|
|
|
|
int
|
|
RTFStdCharCode (name)
|
|
char *name;
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < rtfSC_MaxChar; i++)
|
|
{
|
|
if (strcmp (name, stdCharName[i]) == 0)
|
|
return (i);
|
|
}
|
|
return (-1);
|
|
}
|
|
|
|
|
|
/*
|
|
* Given a standard character code (a number), find its name (a string).
|
|
* Return NULL if code is unknown.
|
|
*/
|
|
|
|
char *
|
|
RTFStdCharName (code)
|
|
int code;
|
|
{
|
|
if (code < 0 || code >= rtfSC_MaxChar)
|
|
return ((char *) NULL);
|
|
return (stdCharName[code]);
|
|
}
|
|
|
|
|
|
/*
|
|
* Given an RTF input character code, find standard character code.
|
|
* The translator should read the appropriate charset maps when it finds a
|
|
* charset control. However, the file might not contain one. In this
|
|
* case, no map will be available. When the first attempt is made to
|
|
* map a character under these circumstances, RTFMapChar() assumes ANSI
|
|
* and reads the map as necessary.
|
|
*/
|
|
|
|
int
|
|
RTFMapChar (c)
|
|
int c;
|
|
{
|
|
switch (curCharSet)
|
|
{
|
|
case rtfCSGeneral:
|
|
if (!haveGenCharSet)
|
|
{
|
|
if (RTFReadCharSetMap (rtfCSGeneral) == 0)
|
|
RTFPanic ("RTFMapChar: cannot read ansi-gen");
|
|
}
|
|
break;
|
|
case rtfCSSymbol:
|
|
if (!haveSymCharSet)
|
|
{
|
|
if (RTFReadCharSetMap (rtfCSSymbol) == 0)
|
|
RTFPanic ("RTFMapChar: cannot read ansi-sym");
|
|
}
|
|
break;
|
|
}
|
|
if (c < 0 || c >= charSetSize)
|
|
return (rtfSC_nothing);
|
|
return (curCharCode[c]);
|
|
}
|
|
|
|
|
|
/*
|
|
* Set the current character set. If csId is illegal, uses general charset.
|
|
*/
|
|
|
|
void
|
|
RTFSetCharSet (csId)
|
|
int csId;
|
|
{
|
|
switch (csId)
|
|
{
|
|
default: /* use general if csId unknown */
|
|
case rtfCSGeneral:
|
|
curCharCode = genCharCode;
|
|
curCharSet = csId;
|
|
break;
|
|
case rtfCSSymbol:
|
|
curCharCode = symCharCode;
|
|
curCharSet = csId;
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
int
|
|
RTFGetCharSet ()
|
|
{
|
|
return (curCharSet);
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Special destination readers. They gobble the destination so the
|
|
* writer doesn't have to deal with them. That's wrong for any
|
|
* translator that wants to process any of these itself. In that
|
|
* case, these readers should be overridden by installing a different
|
|
* destination callback.
|
|
*
|
|
* NOTE: The last token read by each of these reader will be the
|
|
* destination's terminating '}', which will then be the current token.
|
|
* That '}' token is passed to RTFRouteToken() - the writer has already
|
|
* seen the '{' that began the destination group, and may have pushed a
|
|
* state; it also needs to know at the end of the group that a state
|
|
* should be popped.
|
|
*
|
|
* It's important that rtf.h and the control token lookup table list
|
|
* as many symbols as possible, because these destination readers
|
|
* unfortunately make strict assumptions about the input they expect,
|
|
* and a token of class rtfUnknown will throw them off easily.
|
|
*/
|
|
|
|
|
|
/*
|
|
* Read { \fonttbl ... } destination. Old font tables don't have
|
|
* braces around each table entry; try to adjust for that.
|
|
*/
|
|
|
|
static void
|
|
ReadFontTbl ()
|
|
{
|
|
RTFFont *fp = NULL;
|
|
char buf[rtfBufSiz], *bp;
|
|
int old = -1;
|
|
char *fn = "ReadFontTbl";
|
|
|
|
for (;;)
|
|
{
|
|
(void) RTFGetToken ();
|
|
if (RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
break;
|
|
if (old < 0) /* first entry - determine tbl type */
|
|
{
|
|
if (RTFCheckCMM (rtfControl, rtfCharAttr, rtfFontNum))
|
|
old = 1; /* no brace */
|
|
else if (RTFCheckCM (rtfGroup, rtfBeginGroup))
|
|
old = 0; /* brace */
|
|
else /* can't tell! */
|
|
RTFPanic ("%s: Cannot determine format", fn);
|
|
}
|
|
if (old == 0) /* need to find "{" here */
|
|
{
|
|
if (!RTFCheckCM (rtfGroup, rtfBeginGroup))
|
|
RTFPanic ("%s: missing \"{\"", fn);
|
|
(void) RTFGetToken (); /* yes, skip to next token */
|
|
}
|
|
if ((fp = New (RTFFont)) == (RTFFont *) NULL)
|
|
RTFPanic ("%s: cannot allocate font entry", fn);
|
|
|
|
fp->rtfNextFont = fontList;
|
|
fontList = fp;
|
|
|
|
fp->rtfFName = (char *) NULL;
|
|
fp->rtfFAltName = (char *) NULL;
|
|
fp->rtfFNum = -1;
|
|
fp->rtfFFamily = 0;
|
|
fp->rtfFCharSet = 0;
|
|
fp->rtfFPitch = 0;
|
|
fp->rtfFType = 0;
|
|
fp->rtfFCodePage = 0;
|
|
|
|
while (rtfClass != rtfEOF
|
|
&& !RTFCheckCM (rtfText, ';')
|
|
&& !RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
{
|
|
if (rtfClass == rtfControl)
|
|
{
|
|
switch (rtfMajor)
|
|
{
|
|
default:
|
|
/* ignore token but announce it */
|
|
RTFMsg ("%s: unknown token \"%s\"\n",
|
|
fn, rtfTextBuf);
|
|
case rtfFontFamily:
|
|
fp->rtfFFamily = rtfMinor;
|
|
break;
|
|
case rtfCharAttr:
|
|
switch (rtfMinor)
|
|
{
|
|
default:
|
|
break; /* ignore unknown? */
|
|
case rtfFontNum:
|
|
fp->rtfFNum = rtfParam;
|
|
break;
|
|
}
|
|
break;
|
|
case rtfFontAttr:
|
|
switch (rtfMinor)
|
|
{
|
|
default:
|
|
break; /* ignore unknown? */
|
|
case rtfFontCharSet:
|
|
fp->rtfFCharSet = rtfParam;
|
|
break;
|
|
case rtfFontPitch:
|
|
fp->rtfFPitch = rtfParam;
|
|
break;
|
|
case rtfFontCodePage:
|
|
fp->rtfFCodePage = rtfParam;
|
|
break;
|
|
case rtfFTypeNil:
|
|
case rtfFTypeTrueType:
|
|
fp->rtfFType = rtfParam;
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
else if (RTFCheckCM (rtfGroup, rtfBeginGroup)) /* dest */
|
|
{
|
|
RTFSkipGroup (); /* ignore for now */
|
|
}
|
|
else if (rtfClass == rtfText) /* font name */
|
|
{
|
|
bp = buf;
|
|
while (rtfClass != rtfEOF
|
|
&& !RTFCheckCM (rtfText, ';')
|
|
&& !RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
{
|
|
*bp++ = rtfMajor;
|
|
(void) RTFGetToken ();
|
|
}
|
|
|
|
/* FIX: in some cases the <fontinfo> isn't finished with a semi-column */
|
|
if(RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
{
|
|
RTFUngetToken ();
|
|
}
|
|
*bp = '\0';
|
|
fp->rtfFName = RTFStrSave (buf);
|
|
if (fp->rtfFName == (char *) NULL)
|
|
RTFPanic ("%s: cannot allocate font name", fn);
|
|
/* already have next token; don't read one */
|
|
/* at bottom of loop */
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
/* ignore token but announce it */
|
|
RTFMsg ("%s: unknown token \"%s\"\n",
|
|
fn, rtfTextBuf);
|
|
}
|
|
(void) RTFGetToken ();
|
|
}
|
|
if (old == 0) /* need to see "}" here */
|
|
{
|
|
(void) RTFGetToken ();
|
|
if (!RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
RTFPanic ("%s: missing \"}\"", fn);
|
|
}
|
|
}
|
|
if (fp->rtfFNum == -1)
|
|
RTFPanic ("%s: missing font number", fn);
|
|
/*
|
|
* Could check other pieces of structure here, too, I suppose.
|
|
*/
|
|
RTFRouteToken (); /* feed "}" back to router */
|
|
}
|
|
|
|
|
|
/*
|
|
* The color table entries have color values of -1 if
|
|
* the default color should be used for the entry (only
|
|
* a semi-colon is given in the definition, no color values).
|
|
* There will be a problem if a partial entry (1 or 2 but
|
|
* not 3 color values) is given. The possibility is ignored
|
|
* here.
|
|
*/
|
|
|
|
static void
|
|
ReadColorTbl ()
|
|
{
|
|
RTFColor *cp;
|
|
int cnum = 0;
|
|
char *fn = "ReadColorTbl";
|
|
|
|
for (;;)
|
|
{
|
|
(void) RTFGetToken ();
|
|
if (RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
break;
|
|
if ((cp = New (RTFColor)) == (RTFColor *) NULL)
|
|
RTFPanic ("%s: cannot allocate color entry", fn);
|
|
cp->rtfCNum = cnum++;
|
|
cp->rtfCRed = cp->rtfCGreen = cp->rtfCBlue = -1;
|
|
cp->rtfNextColor = colorList;
|
|
colorList = cp;
|
|
while (RTFCheckCM (rtfControl, rtfColorName))
|
|
{
|
|
switch (rtfMinor)
|
|
{
|
|
case rtfRed: cp->rtfCRed = rtfParam; break;
|
|
case rtfGreen: cp->rtfCGreen = rtfParam; break;
|
|
case rtfBlue: cp->rtfCBlue = rtfParam; break;
|
|
}
|
|
RTFGetToken ();
|
|
}
|
|
if (!RTFCheckCM (rtfText, (int) ';'))
|
|
RTFPanic ("%s: malformed entry", fn);
|
|
}
|
|
RTFRouteToken (); /* feed "}" back to router */
|
|
}
|
|
|
|
|
|
/*
|
|
* The "Normal" style definition doesn't contain any style number,
|
|
* all others do. Normal style is given style rtfNormalStyleNum.
|
|
*/
|
|
|
|
static void
|
|
ReadStyleSheet ()
|
|
{
|
|
RTFStyle *sp;
|
|
RTFStyleElt *sep, *sepLast;
|
|
char buf[rtfBufSiz], *bp;
|
|
char *fn = "ReadStyleSheet";
|
|
|
|
for (;;)
|
|
{
|
|
(void) RTFGetToken ();
|
|
if (RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
break;
|
|
if ((sp = New (RTFStyle)) == (RTFStyle *) NULL)
|
|
RTFPanic ("%s: cannot allocate stylesheet entry", fn);
|
|
sp->rtfSName = (char *) NULL;
|
|
sp->rtfSNum = -1;
|
|
sp->rtfSType = rtfParStyle;
|
|
sp->rtfSAdditive = 0;
|
|
sp->rtfSBasedOn = rtfNoStyleNum;
|
|
sp->rtfSNextPar = -1;
|
|
sp->rtfSSEList = sepLast = (RTFStyleElt *) NULL;
|
|
sp->rtfNextStyle = styleList;
|
|
sp->rtfExpanding = 0;
|
|
styleList = sp;
|
|
if (!RTFCheckCM (rtfGroup, rtfBeginGroup))
|
|
RTFPanic ("%s: missing \"{\"", fn);
|
|
for (;;)
|
|
{
|
|
(void) RTFGetToken ();
|
|
if (rtfClass == rtfEOF
|
|
|| RTFCheckCM (rtfText, ';'))
|
|
break;
|
|
if (rtfClass == rtfControl)
|
|
{
|
|
if (RTFCheckMM (rtfSpecialChar, rtfOptDest))
|
|
continue; /* ignore "\*" */
|
|
if (RTFCheckMM (rtfParAttr, rtfStyleNum))
|
|
{
|
|
sp->rtfSNum = rtfParam;
|
|
sp->rtfSType = rtfParStyle;
|
|
continue;
|
|
}
|
|
if (RTFCheckMM (rtfCharAttr, rtfCharStyleNum))
|
|
{
|
|
sp->rtfSNum = rtfParam;
|
|
sp->rtfSType = rtfCharStyle;
|
|
continue;
|
|
}
|
|
if (RTFCheckMM (rtfSectAttr, rtfSectStyleNum))
|
|
{
|
|
sp->rtfSNum = rtfParam;
|
|
sp->rtfSType = rtfSectStyle;
|
|
continue;
|
|
}
|
|
if (RTFCheckMM (rtfStyleAttr, rtfBasedOn))
|
|
{
|
|
sp->rtfSBasedOn = rtfParam;
|
|
continue;
|
|
}
|
|
if (RTFCheckMM (rtfStyleAttr, rtfAdditive))
|
|
{
|
|
sp->rtfSAdditive = 1;
|
|
continue;
|
|
}
|
|
if (RTFCheckMM (rtfStyleAttr, rtfNext))
|
|
{
|
|
sp->rtfSNextPar = rtfParam;
|
|
continue;
|
|
}
|
|
if ((sep = New (RTFStyleElt)) == (RTFStyleElt *) NULL)
|
|
RTFPanic ("%s: cannot allocate style element", fn);
|
|
sep->rtfSEClass = rtfClass;
|
|
sep->rtfSEMajor = rtfMajor;
|
|
sep->rtfSEMinor = rtfMinor;
|
|
sep->rtfSEParam = rtfParam;
|
|
if ((sep->rtfSEText = RTFStrSave (rtfTextBuf))
|
|
== (char *) NULL)
|
|
RTFPanic ("%s: cannot allocate style element text", fn);
|
|
if (sepLast == (RTFStyleElt *) NULL)
|
|
sp->rtfSSEList = sep; /* first element */
|
|
else /* add to end */
|
|
sepLast->rtfNextSE = sep;
|
|
sep->rtfNextSE = (RTFStyleElt *) NULL;
|
|
sepLast = sep;
|
|
}
|
|
else if (RTFCheckCM (rtfGroup, rtfBeginGroup))
|
|
{
|
|
/*
|
|
* This passes over "{\*\keycode ... }, among
|
|
* other things. A temporary (perhaps) hack.
|
|
*/
|
|
RTFSkipGroup ();
|
|
continue;
|
|
}
|
|
else if (rtfClass == rtfText) /* style name */
|
|
{
|
|
bp = buf;
|
|
while (rtfClass == rtfText)
|
|
{
|
|
if (rtfMajor == ';')
|
|
{
|
|
/* put back for "for" loop */
|
|
(void) RTFUngetToken ();
|
|
break;
|
|
}
|
|
*bp++ = rtfMajor;
|
|
(void) RTFGetToken ();
|
|
}
|
|
*bp = '\0';
|
|
if ((sp->rtfSName = RTFStrSave (buf)) == (char *) NULL)
|
|
RTFPanic ("%s: cannot allocate style name", fn);
|
|
}
|
|
else /* unrecognized */
|
|
{
|
|
/* ignore token but announce it */
|
|
RTFMsg ("%s: unknown token \"%s\"\n",
|
|
fn, rtfTextBuf);
|
|
}
|
|
}
|
|
(void) RTFGetToken ();
|
|
if (!RTFCheckCM (rtfGroup, rtfEndGroup))
|
|
RTFPanic ("%s: missing \"}\"", fn);
|
|
|
|
/*
|
|
* Check over the style structure. A name is a must.
|
|
* If no style number was specified, check whether it's the
|
|
* Normal style (in which case it's given style number
|
|
* rtfNormalStyleNum). Note that some "normal" style names
|
|
* just begin with "Normal" and can have other stuff following,
|
|
* e.g., "Normal,Times 10 point". Ugh.
|
|
*
|
|
* Some German RTF writers use "Standard" instead of "Normal".
|
|
*/
|
|
if (sp->rtfSName == (char *) NULL)
|
|
RTFPanic ("%s: missing style name", fn);
|
|
if (sp->rtfSNum < 0)
|
|
{
|
|
if (strncmp (buf, "Normal", 6) != 0
|
|
&& strncmp (buf, "Standard", 8) != 0)
|
|
RTFPanic ("%s: missing style number", fn);
|
|
sp->rtfSNum = rtfNormalStyleNum;
|
|
}
|
|
if (sp->rtfSNextPar == -1) /* if \snext not given, */
|
|
sp->rtfSNextPar = sp->rtfSNum; /* next is itself */
|
|
}
|
|
RTFRouteToken (); /* feed "}" back to router */
|
|
}
|
|
|
|
|
|
static void
|
|
ReadInfoGroup ()
|
|
{
|
|
RTFSkipGroup ();
|
|
RTFRouteToken (); /* feed "}" back to router */
|
|
}
|
|
|
|
|
|
static void
|
|
ReadPictGroup ()
|
|
{
|
|
RTFSkipGroup ();
|
|
RTFRouteToken (); /* feed "}" back to router */
|
|
}
|
|
|
|
|
|
static void
|
|
ReadObjGroup ()
|
|
{
|
|
RTFSkipGroup ();
|
|
RTFRouteToken (); /* feed "}" back to router */
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Routines to return pieces of stylesheet, or font or color tables.
|
|
* References to style 0 are mapped onto the Normal style.
|
|
*/
|
|
|
|
|
|
RTFStyle *
|
|
RTFGetStyle (num)
|
|
int num;
|
|
{
|
|
RTFStyle *s;
|
|
|
|
if (num == -1)
|
|
return (styleList);
|
|
for (s = styleList; s != (RTFStyle *) NULL; s = s->rtfNextStyle)
|
|
{
|
|
if (s->rtfSNum == num)
|
|
break;
|
|
}
|
|
return (s); /* NULL if not found */
|
|
}
|
|
|
|
|
|
RTFFont *
|
|
RTFGetFont (num)
|
|
int num;
|
|
{
|
|
RTFFont *f;
|
|
|
|
if (num == -1)
|
|
return (fontList);
|
|
for (f = fontList; f != (RTFFont *) NULL; f = f->rtfNextFont)
|
|
{
|
|
if (f->rtfFNum == num)
|
|
break;
|
|
}
|
|
return (f); /* NULL if not found */
|
|
}
|
|
|
|
|
|
RTFColor *
|
|
RTFGetColor (num)
|
|
int num;
|
|
{
|
|
RTFColor *c;
|
|
|
|
if (num == -1)
|
|
return (colorList);
|
|
for (c = colorList; c != (RTFColor *) NULL; c = c->rtfNextColor)
|
|
{
|
|
if (c->rtfCNum == num)
|
|
break;
|
|
}
|
|
return (c); /* NULL if not found */
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
|
|
/*
|
|
* Expand style n, if there is such a style.
|
|
*/
|
|
|
|
void
|
|
RTFExpandStyle (n)
|
|
int n;
|
|
{
|
|
RTFStyle *s;
|
|
RTFStyleElt *se;
|
|
|
|
if (n == -1 || (s = RTFGetStyle (n)) == (RTFStyle *) NULL)
|
|
return;
|
|
if (s->rtfExpanding != 0)
|
|
RTFPanic ("Style expansion loop, style %d", n);
|
|
s->rtfExpanding = 1; /* set expansion flag for loop detection */
|
|
/*
|
|
* Expand "based-on" style (unless it's the same as the current
|
|
* style -- Normal style usually gives itself as its own based-on
|
|
* style). Based-on style expansion is done by synthesizing
|
|
* the token that the writer needs to see in order to trigger
|
|
* another style expansion, and feeding to token back through
|
|
* the router so the writer sees it.
|
|
*/
|
|
if (n != s->rtfSBasedOn)
|
|
{
|
|
RTFSetToken (rtfControl, rtfParAttr, rtfStyleNum,
|
|
s->rtfSBasedOn, "\\s");
|
|
RTFRouteToken ();
|
|
}
|
|
/*
|
|
* Now route the tokens unique to this style. RTFSetToken()
|
|
* isn't used because it would add the param value to the end
|
|
* of the token text, which already has it in.
|
|
*/
|
|
for (se = s->rtfSSEList; se != (RTFStyleElt *) NULL; se = se->rtfNextSE)
|
|
{
|
|
rtfClass = se->rtfSEClass;
|
|
rtfMajor = se->rtfSEMajor;
|
|
rtfMinor = se->rtfSEMinor;
|
|
rtfParam = se->rtfSEParam;
|
|
(void) strcpy (rtfTextBuf, se->rtfSEText);
|
|
rtfTextLen = strlen (rtfTextBuf);
|
|
RTFRouteToken ();
|
|
}
|
|
s->rtfExpanding = 0; /* done - clear expansion flag */
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Control symbol lookup routines
|
|
*/
|
|
|
|
|
|
typedef struct RTFKey RTFKey;
|
|
|
|
struct RTFKey
|
|
{
|
|
int rtfKMajor; /* major number */
|
|
int rtfKMinor; /* minor number */
|
|
char *rtfKStr; /* symbol name */
|
|
int rtfKHash; /* symbol name hash value */
|
|
};
|
|
|
|
/*
|
|
* A minor number of -1 means the token has no minor number
|
|
* (all valid minor numbers are >= 0).
|
|
*/
|
|
|
|
static RTFKey rtfKey[] =
|
|
{
|
|
/*
|
|
* Special characters
|
|
*/
|
|
|
|
{ rtfSpecialChar, rtfIIntVersion, "vern", 0 },
|
|
{ rtfSpecialChar, rtfICreateTime, "creatim", 0 },
|
|
{ rtfSpecialChar, rtfIRevisionTime, "revtim", 0 },
|
|
{ rtfSpecialChar, rtfIPrintTime, "printim", 0 },
|
|
{ rtfSpecialChar, rtfIBackupTime, "buptim", 0 },
|
|
{ rtfSpecialChar, rtfIEditTime, "edmins", 0 },
|
|
{ rtfSpecialChar, rtfIYear, "yr", 0 },
|
|
{ rtfSpecialChar, rtfIMonth, "mo", 0 },
|
|
{ rtfSpecialChar, rtfIDay, "dy", 0 },
|
|
{ rtfSpecialChar, rtfIHour, "hr", 0 },
|
|
{ rtfSpecialChar, rtfIMinute, "min", 0 },
|
|
{ rtfSpecialChar, rtfISecond, "sec", 0 },
|
|
{ rtfSpecialChar, rtfINPages, "nofpages", 0 },
|
|
{ rtfSpecialChar, rtfINWords, "nofwords", 0 },
|
|
{ rtfSpecialChar, rtfINChars, "nofchars", 0 },
|
|
{ rtfSpecialChar, rtfIIntID, "id", 0 },
|
|
|
|
{ rtfSpecialChar, rtfCurHeadDate, "chdate", 0 },
|
|
{ rtfSpecialChar, rtfCurHeadDateLong, "chdpl", 0 },
|
|
{ rtfSpecialChar, rtfCurHeadDateAbbrev, "chdpa", 0 },
|
|
{ rtfSpecialChar, rtfCurHeadTime, "chtime", 0 },
|
|
{ rtfSpecialChar, rtfCurHeadPage, "chpgn", 0 },
|
|
{ rtfSpecialChar, rtfSectNum, "sectnum", 0 },
|
|
{ rtfSpecialChar, rtfCurFNote, "chftn", 0 },
|
|
{ rtfSpecialChar, rtfCurAnnotRef, "chatn", 0 },
|
|
{ rtfSpecialChar, rtfFNoteSep, "chftnsep", 0 },
|
|
{ rtfSpecialChar, rtfFNoteCont, "chftnsepc", 0 },
|
|
{ rtfSpecialChar, rtfCell, "cell", 0 },
|
|
{ rtfSpecialChar, rtfRow, "row", 0 },
|
|
{ rtfSpecialChar, rtfPar, "par", 0 },
|
|
/* newline and carriage return are synonyms for */
|
|
/* \par when they are preceded by a \ character */
|
|
{ rtfSpecialChar, rtfPar, "\n", 0 },
|
|
{ rtfSpecialChar, rtfPar, "\r", 0 },
|
|
{ rtfSpecialChar, rtfSect, "sect", 0 },
|
|
{ rtfSpecialChar, rtfPage, "page", 0 },
|
|
{ rtfSpecialChar, rtfColumn, "column", 0 },
|
|
{ rtfSpecialChar, rtfLine, "line", 0 },
|
|
{ rtfSpecialChar, rtfSoftPage, "softpage", 0 },
|
|
{ rtfSpecialChar, rtfSoftColumn, "softcol", 0 },
|
|
{ rtfSpecialChar, rtfSoftLine, "softline", 0 },
|
|
{ rtfSpecialChar, rtfSoftLineHt, "softlheight", 0 },
|
|
{ rtfSpecialChar, rtfTab, "tab", 0 },
|
|
{ rtfSpecialChar, rtfEmDash, "emdash", 0 },
|
|
{ rtfSpecialChar, rtfEnDash, "endash", 0 },
|
|
{ rtfSpecialChar, rtfEmSpace, "emspace", 0 },
|
|
{ rtfSpecialChar, rtfEnSpace, "enspace", 0 },
|
|
{ rtfSpecialChar, rtfBullet, "bullet", 0 },
|
|
{ rtfSpecialChar, rtfLQuote, "lquote", 0 },
|
|
{ rtfSpecialChar, rtfRQuote, "rquote", 0 },
|
|
{ rtfSpecialChar, rtfLDblQuote, "ldblquote", 0 },
|
|
{ rtfSpecialChar, rtfRDblQuote, "rdblquote", 0 },
|
|
{ rtfSpecialChar, rtfFormula, "|", 0 },
|
|
{ rtfSpecialChar, rtfNoBrkSpace, "~", 0 },
|
|
{ rtfSpecialChar, rtfNoReqHyphen, "-", 0 },
|
|
{ rtfSpecialChar, rtfNoBrkHyphen, "_", 0 },
|
|
{ rtfSpecialChar, rtfOptDest, "*", 0 },
|
|
{ rtfSpecialChar, rtfLTRMark, "ltrmark", 0 },
|
|
{ rtfSpecialChar, rtfRTLMark, "rtlmark", 0 },
|
|
{ rtfSpecialChar, rtfNoWidthJoiner, "zwj", 0 },
|
|
{ rtfSpecialChar, rtfNoWidthNonJoiner, "zwnj", 0 },
|
|
/* is this valid? */
|
|
{ rtfSpecialChar, rtfCurHeadPict, "chpict", 0 },
|
|
|
|
/*
|
|
* Character formatting attributes
|
|
*/
|
|
|
|
{ rtfCharAttr, rtfPlain, "plain", 0 },
|
|
{ rtfCharAttr, rtfBold, "b", 0 },
|
|
{ rtfCharAttr, rtfAllCaps, "caps", 0 },
|
|
{ rtfCharAttr, rtfDeleted, "deleted", 0 },
|
|
{ rtfCharAttr, rtfSubScript, "dn", 0 },
|
|
{ rtfCharAttr, rtfSubScrShrink, "sub", 0 },
|
|
{ rtfCharAttr, rtfNoSuperSub, "nosupersub", 0 },
|
|
{ rtfCharAttr, rtfExpand, "expnd", 0 },
|
|
{ rtfCharAttr, rtfExpandTwips, "expndtw", 0 },
|
|
{ rtfCharAttr, rtfKerning, "kerning", 0 },
|
|
{ rtfCharAttr, rtfFontNum, "f", 0 },
|
|
{ rtfCharAttr, rtfFontSize, "fs", 0 },
|
|
{ rtfCharAttr, rtfItalic, "i", 0 },
|
|
{ rtfCharAttr, rtfOutline, "outl", 0 },
|
|
{ rtfCharAttr, rtfRevised, "revised", 0 },
|
|
{ rtfCharAttr, rtfRevAuthor, "revauth", 0 },
|
|
{ rtfCharAttr, rtfRevDTTM, "revdttm", 0 },
|
|
{ rtfCharAttr, rtfSmallCaps, "scaps", 0 },
|
|
{ rtfCharAttr, rtfShadow, "shad", 0 },
|
|
{ rtfCharAttr, rtfStrikeThru, "strike", 0 },
|
|
{ rtfCharAttr, rtfUnderline, "ul", 0 },
|
|
{ rtfCharAttr, rtfDotUnderline, "uld", 0 },
|
|
{ rtfCharAttr, rtfDbUnderline, "uldb", 0 },
|
|
{ rtfCharAttr, rtfNoUnderline, "ulnone", 0 },
|
|
{ rtfCharAttr, rtfWordUnderline, "ulw", 0 },
|
|
{ rtfCharAttr, rtfSuperScript, "up", 0 },
|
|
{ rtfCharAttr, rtfSuperScrShrink, "super", 0 },
|
|
{ rtfCharAttr, rtfInvisible, "v", 0 },
|
|
{ rtfCharAttr, rtfForeColor, "cf", 0 },
|
|
{ rtfCharAttr, rtfBackColor, "cb", 0 },
|
|
{ rtfCharAttr, rtfRTLChar, "rtlch", 0 },
|
|
{ rtfCharAttr, rtfLTRChar, "ltrch", 0 },
|
|
{ rtfCharAttr, rtfCharStyleNum, "cs", 0 },
|
|
{ rtfCharAttr, rtfCharCharSet, "cchs", 0 },
|
|
{ rtfCharAttr, rtfLanguage, "lang", 0 },
|
|
/* this has disappeared from spec 1.2 */
|
|
{ rtfCharAttr, rtfGray, "gray", 0 },
|
|
|
|
/*
|
|
* Paragraph formatting attributes
|
|
*/
|
|
|
|
{ rtfParAttr, rtfParDef, "pard", 0 },
|
|
{ rtfParAttr, rtfStyleNum, "s", 0 },
|
|
{ rtfParAttr, rtfHyphenate, "hyphpar", 0 },
|
|
{ rtfParAttr, rtfInTable, "intbl", 0 },
|
|
{ rtfParAttr, rtfKeep, "keep", 0 },
|
|
{ rtfParAttr, rtfNoWidowControl, "nowidctlpar", 0 },
|
|
{ rtfParAttr, rtfKeepNext, "keepn", 0 },
|
|
{ rtfParAttr, rtfOutlineLevel, "level", 0 },
|
|
{ rtfParAttr, rtfNoLineNum, "noline", 0 },
|
|
{ rtfParAttr, rtfPBBefore, "pagebb", 0 },
|
|
{ rtfParAttr, rtfSideBySide, "sbys", 0 },
|
|
{ rtfParAttr, rtfQuadLeft, "ql", 0 },
|
|
{ rtfParAttr, rtfQuadRight, "qr", 0 },
|
|
{ rtfParAttr, rtfQuadJust, "qj", 0 },
|
|
{ rtfParAttr, rtfQuadCenter, "qc", 0 },
|
|
{ rtfParAttr, rtfFirstIndent, "fi", 0 },
|
|
{ rtfParAttr, rtfLeftIndent, "li", 0 },
|
|
{ rtfParAttr, rtfRightIndent, "ri", 0 },
|
|
{ rtfParAttr, rtfSpaceBefore, "sb", 0 },
|
|
{ rtfParAttr, rtfSpaceAfter, "sa", 0 },
|
|
{ rtfParAttr, rtfSpaceBetween, "sl", 0 },
|
|
{ rtfParAttr, rtfSpaceMultiply, "slmult", 0 },
|
|
|
|
{ rtfParAttr, rtfSubDocument, "subdocument", 0 },
|
|
|
|
{ rtfParAttr, rtfRTLPar, "rtlpar", 0 },
|
|
{ rtfParAttr, rtfLTRPar, "ltrpar", 0 },
|
|
|
|
{ rtfParAttr, rtfTabPos, "tx", 0 },
|
|
/*
|
|
* FrameMaker writes \tql (to mean left-justified tab, apparently)
|
|
* although it's not in the spec. It's also redundant, since lj
|
|
* tabs are the default.
|
|
*/
|
|
{ rtfParAttr, rtfTabLeft, "tql", 0 },
|
|
{ rtfParAttr, rtfTabRight, "tqr", 0 },
|
|
{ rtfParAttr, rtfTabCenter, "tqc", 0 },
|
|
{ rtfParAttr, rtfTabDecimal, "tqdec", 0 },
|
|
{ rtfParAttr, rtfTabBar, "tb", 0 },
|
|
{ rtfParAttr, rtfLeaderDot, "tldot", 0 },
|
|
{ rtfParAttr, rtfLeaderHyphen, "tlhyph", 0 },
|
|
{ rtfParAttr, rtfLeaderUnder, "tlul", 0 },
|
|
{ rtfParAttr, rtfLeaderThick, "tlth", 0 },
|
|
{ rtfParAttr, rtfLeaderEqual, "tleq", 0 },
|
|
|
|
{ rtfParAttr, rtfParLevel, "pnlvl", 0 },
|
|
{ rtfParAttr, rtfParBullet, "pnlvlblt", 0 },
|
|
{ rtfParAttr, rtfParSimple, "pnlvlbody", 0 },
|
|
{ rtfParAttr, rtfParNumCont, "pnlvlcont", 0 },
|
|
{ rtfParAttr, rtfParNumOnce, "pnnumonce", 0 },
|
|
{ rtfParAttr, rtfParNumAcross, "pnacross", 0 },
|
|
{ rtfParAttr, rtfParHangIndent, "pnhang", 0 },
|
|
{ rtfParAttr, rtfParNumRestart, "pnrestart", 0 },
|
|
{ rtfParAttr, rtfParNumCardinal, "pncard", 0 },
|
|
{ rtfParAttr, rtfParNumDecimal, "pndec", 0 },
|
|
{ rtfParAttr, rtfParNumULetter, "pnucltr", 0 },
|
|
{ rtfParAttr, rtfParNumURoman, "pnucrm", 0 },
|
|
{ rtfParAttr, rtfParNumLLetter, "pnlcltr", 0 },
|
|
{ rtfParAttr, rtfParNumLRoman, "pnlcrm", 0 },
|
|
{ rtfParAttr, rtfParNumOrdinal, "pnord", 0 },
|
|
{ rtfParAttr, rtfParNumOrdinalText, "pnordt", 0 },
|
|
{ rtfParAttr, rtfParNumBold, "pnb", 0 },
|
|
{ rtfParAttr, rtfParNumItalic, "pni", 0 },
|
|
{ rtfParAttr, rtfParNumAllCaps, "pncaps", 0 },
|
|
{ rtfParAttr, rtfParNumSmallCaps, "pnscaps", 0 },
|
|
{ rtfParAttr, rtfParNumUnder, "pnul", 0 },
|
|
{ rtfParAttr, rtfParNumDotUnder, "pnuld", 0 },
|
|
{ rtfParAttr, rtfParNumDbUnder, "pnuldb", 0 },
|
|
{ rtfParAttr, rtfParNumNoUnder, "pnulnone", 0 },
|
|
{ rtfParAttr, rtfParNumWordUnder, "pnulw", 0 },
|
|
{ rtfParAttr, rtfParNumStrikethru, "pnstrike", 0 },
|
|
{ rtfParAttr, rtfParNumForeColor, "pncf", 0 },
|
|
{ rtfParAttr, rtfParNumFont, "pnf", 0 },
|
|
{ rtfParAttr, rtfParNumFontSize, "pnfs", 0 },
|
|
{ rtfParAttr, rtfParNumIndent, "pnindent", 0 },
|
|
{ rtfParAttr, rtfParNumSpacing, "pnsp", 0 },
|
|
{ rtfParAttr, rtfParNumInclPrev, "pnprev", 0 },
|
|
{ rtfParAttr, rtfParNumCenter, "pnqc", 0 },
|
|
{ rtfParAttr, rtfParNumLeft, "pnql", 0 },
|
|
{ rtfParAttr, rtfParNumRight, "pnqr", 0 },
|
|
{ rtfParAttr, rtfParNumStartAt, "pnstart", 0 },
|
|
|
|
{ rtfParAttr, rtfBorderTop, "brdrt", 0 },
|
|
{ rtfParAttr, rtfBorderBottom, "brdrb", 0 },
|
|
{ rtfParAttr, rtfBorderLeft, "brdrl", 0 },
|
|
{ rtfParAttr, rtfBorderRight, "brdrr", 0 },
|
|
{ rtfParAttr, rtfBorderBetween, "brdrbtw", 0 },
|
|
{ rtfParAttr, rtfBorderBar, "brdrbar", 0 },
|
|
{ rtfParAttr, rtfBorderBox, "box", 0 },
|
|
{ rtfParAttr, rtfBorderSingle, "brdrs", 0 },
|
|
{ rtfParAttr, rtfBorderThick, "brdrth", 0 },
|
|
{ rtfParAttr, rtfBorderShadow, "brdrsh", 0 },
|
|
{ rtfParAttr, rtfBorderDouble, "brdrdb", 0 },
|
|
{ rtfParAttr, rtfBorderDot, "brdrdot", 0 },
|
|
{ rtfParAttr, rtfBorderDot, "brdrdash", 0 },
|
|
{ rtfParAttr, rtfBorderHair, "brdrhair", 0 },
|
|
{ rtfParAttr, rtfBorderWidth, "brdrw", 0 },
|
|
{ rtfParAttr, rtfBorderColor, "brdrcf", 0 },
|
|
{ rtfParAttr, rtfBorderSpace, "brsp", 0 },
|
|
|
|
{ rtfParAttr, rtfShading, "shading", 0 },
|
|
{ rtfParAttr, rtfBgPatH, "bghoriz", 0 },
|
|
{ rtfParAttr, rtfBgPatV, "bgvert", 0 },
|
|
{ rtfParAttr, rtfFwdDiagBgPat, "bgfdiag", 0 },
|
|
{ rtfParAttr, rtfBwdDiagBgPat, "bgbdiag", 0 },
|
|
{ rtfParAttr, rtfHatchBgPat, "bgcross", 0 },
|
|
{ rtfParAttr, rtfDiagHatchBgPat, "bgdcross", 0 },
|
|
{ rtfParAttr, rtfDarkBgPatH, "bgdkhoriz", 0 },
|
|
{ rtfParAttr, rtfDarkBgPatV, "bgdkvert", 0 },
|
|
{ rtfParAttr, rtfFwdDarkBgPat, "bgdkfdiag", 0 },
|
|
{ rtfParAttr, rtfBwdDarkBgPat, "bgdkbdiag", 0 },
|
|
{ rtfParAttr, rtfDarkHatchBgPat, "bgdkcross", 0 },
|
|
{ rtfParAttr, rtfDarkDiagHatchBgPat, "bgdkdcross", 0 },
|
|
{ rtfParAttr, rtfBgPatLineColor, "cfpat", 0 },
|
|
{ rtfParAttr, rtfBgPatColor, "cbpat", 0 },
|
|
|
|
/*
|
|
* Section formatting attributes
|
|
*/
|
|
|
|
{ rtfSectAttr, rtfSectDef, "sectd", 0 },
|
|
{ rtfSectAttr, rtfENoteHere, "endnhere", 0 },
|
|
{ rtfSectAttr, rtfPrtBinFirst, "binfsxn", 0 },
|
|
{ rtfSectAttr, rtfPrtBin, "binsxn", 0 },
|
|
{ rtfSectAttr, rtfSectStyleNum, "ds", 0 },
|
|
|
|
{ rtfSectAttr, rtfNoBreak, "sbknone", 0 },
|
|
{ rtfSectAttr, rtfColBreak, "sbkcol", 0 },
|
|
{ rtfSectAttr, rtfPageBreak, "sbkpage", 0 },
|
|
{ rtfSectAttr, rtfEvenBreak, "sbkeven", 0 },
|
|
{ rtfSectAttr, rtfOddBreak, "sbkodd", 0 },
|
|
|
|
{ rtfSectAttr, rtfColumns, "cols", 0 },
|
|
{ rtfSectAttr, rtfColumnSpace, "colsx", 0 },
|
|
{ rtfSectAttr, rtfColumnNumber, "colno", 0 },
|
|
{ rtfSectAttr, rtfColumnSpRight, "colsr", 0 },
|
|
{ rtfSectAttr, rtfColumnWidth, "colw", 0 },
|
|
{ rtfSectAttr, rtfColumnLine, "linebetcol", 0 },
|
|
|
|
{ rtfSectAttr, rtfLineModulus, "linemod", 0 },
|
|
{ rtfSectAttr, rtfLineDist, "linex", 0 },
|
|
{ rtfSectAttr, rtfLineStarts, "linestarts", 0 },
|
|
{ rtfSectAttr, rtfLineRestart, "linerestart", 0 },
|
|
{ rtfSectAttr, rtfLineRestartPg, "lineppage", 0 },
|
|
{ rtfSectAttr, rtfLineCont, "linecont", 0 },
|
|
|
|
{ rtfSectAttr, rtfSectPageWid, "pgwsxn", 0 },
|
|
{ rtfSectAttr, rtfSectPageHt, "pghsxn", 0 },
|
|
{ rtfSectAttr, rtfSectMarginLeft, "marglsxn", 0 },
|
|
{ rtfSectAttr, rtfSectMarginRight, "margrsxn", 0 },
|
|
{ rtfSectAttr, rtfSectMarginTop, "margtsxn", 0 },
|
|
{ rtfSectAttr, rtfSectMarginBottom, "margbsxn", 0 },
|
|
{ rtfSectAttr, rtfSectMarginGutter, "guttersxn", 0 },
|
|
{ rtfSectAttr, rtfSectLandscape, "lndscpsxn", 0 },
|
|
{ rtfSectAttr, rtfTitleSpecial, "titlepg", 0 },
|
|
{ rtfSectAttr, rtfHeaderY, "headery", 0 },
|
|
{ rtfSectAttr, rtfFooterY, "footery", 0 },
|
|
|
|
{ rtfSectAttr, rtfPageStarts, "pgnstarts", 0 },
|
|
{ rtfSectAttr, rtfPageCont, "pgncont", 0 },
|
|
{ rtfSectAttr, rtfPageRestart, "pgnrestart", 0 },
|
|
{ rtfSectAttr, rtfPageNumRight, "pgnx", 0 },
|
|
{ rtfSectAttr, rtfPageNumTop, "pgny", 0 },
|
|
{ rtfSectAttr, rtfPageDecimal, "pgndec", 0 },
|
|
{ rtfSectAttr, rtfPageURoman, "pgnucrm", 0 },
|
|
{ rtfSectAttr, rtfPageLRoman, "pgnlcrm", 0 },
|
|
{ rtfSectAttr, rtfPageULetter, "pgnucltr", 0 },
|
|
{ rtfSectAttr, rtfPageLLetter, "pgnlcltr", 0 },
|
|
{ rtfSectAttr, rtfPageNumHyphSep, "pgnhnsh", 0 },
|
|
{ rtfSectAttr, rtfPageNumSpaceSep, "pgnhnsp", 0 },
|
|
{ rtfSectAttr, rtfPageNumColonSep, "pgnhnsc", 0 },
|
|
{ rtfSectAttr, rtfPageNumEmdashSep, "pgnhnsm", 0 },
|
|
{ rtfSectAttr, rtfPageNumEndashSep, "pgnhnsn", 0 },
|
|
|
|
{ rtfSectAttr, rtfTopVAlign, "vertalt", 0 },
|
|
/* misspelled as "vertal" in specification 1.0 */
|
|
{ rtfSectAttr, rtfBottomVAlign, "vertalb", 0 },
|
|
{ rtfSectAttr, rtfCenterVAlign, "vertalc", 0 },
|
|
{ rtfSectAttr, rtfJustVAlign, "vertalj", 0 },
|
|
|
|
{ rtfSectAttr, rtfRTLSect, "rtlsect", 0 },
|
|
{ rtfSectAttr, rtfLTRSect, "ltrsect", 0 },
|
|
|
|
/* I've seen these in an old spec, but not in real files... */
|
|
/*rtfSectAttr, rtfNoBreak, "nobreak", 0,*/
|
|
/*rtfSectAttr, rtfColBreak, "colbreak", 0,*/
|
|
/*rtfSectAttr, rtfPageBreak, "pagebreak", 0,*/
|
|
/*rtfSectAttr, rtfEvenBreak, "evenbreak", 0,*/
|
|
/*rtfSectAttr, rtfOddBreak, "oddbreak", 0,*/
|
|
|
|
/*
|
|
* Document formatting attributes
|
|
*/
|
|
|
|
{ rtfDocAttr, rtfDefTab, "deftab", 0 },
|
|
{ rtfDocAttr, rtfHyphHotZone, "hyphhotz", 0 },
|
|
{ rtfDocAttr, rtfHyphConsecLines, "hyphconsec", 0 },
|
|
{ rtfDocAttr, rtfHyphCaps, "hyphcaps", 0 },
|
|
{ rtfDocAttr, rtfHyphAuto, "hyphauto", 0 },
|
|
{ rtfDocAttr, rtfLineStart, "linestart", 0 },
|
|
{ rtfDocAttr, rtfFracWidth, "fracwidth", 0 },
|
|
/* \makeback was given in old version of spec, it's now */
|
|
/* listed as \makebackup */
|
|
{ rtfDocAttr, rtfMakeBackup, "makeback", 0 },
|
|
{ rtfDocAttr, rtfMakeBackup, "makebackup", 0 },
|
|
{ rtfDocAttr, rtfRTFDefault, "defformat", 0 },
|
|
{ rtfDocAttr, rtfPSOverlay, "psover", 0 },
|
|
{ rtfDocAttr, rtfDocTemplate, "doctemp", 0 },
|
|
{ rtfDocAttr, rtfDefLanguage, "deflang", 0 },
|
|
|
|
{ rtfDocAttr, rtfFENoteType, "fet", 0 },
|
|
{ rtfDocAttr, rtfFNoteEndSect, "endnotes", 0 },
|
|
{ rtfDocAttr, rtfFNoteEndDoc, "enddoc", 0 },
|
|
{ rtfDocAttr, rtfFNoteText, "ftntj", 0 },
|
|
{ rtfDocAttr, rtfFNoteBottom, "ftnbj", 0 },
|
|
{ rtfDocAttr, rtfENoteEndSect, "aendnotes", 0 },
|
|
{ rtfDocAttr, rtfENoteEndDoc, "aenddoc", 0 },
|
|
{ rtfDocAttr, rtfENoteText, "aftntj", 0 },
|
|
{ rtfDocAttr, rtfENoteBottom, "aftnbj", 0 },
|
|
{ rtfDocAttr, rtfFNoteStart, "ftnstart", 0 },
|
|
{ rtfDocAttr, rtfENoteStart, "aftnstart", 0 },
|
|
{ rtfDocAttr, rtfFNoteRestartPage, "ftnrstpg", 0 },
|
|
{ rtfDocAttr, rtfFNoteRestart, "ftnrestart", 0 },
|
|
{ rtfDocAttr, rtfFNoteRestartCont, "ftnrstcont", 0 },
|
|
{ rtfDocAttr, rtfENoteRestart, "aftnrestart", 0 },
|
|
{ rtfDocAttr, rtfENoteRestartCont, "aftnrstcont", 0 },
|
|
{ rtfDocAttr, rtfFNoteNumArabic, "ftnnar", 0 },
|
|
{ rtfDocAttr, rtfFNoteNumLLetter, "ftnnalc", 0 },
|
|
{ rtfDocAttr, rtfFNoteNumULetter, "ftnnauc", 0 },
|
|
{ rtfDocAttr, rtfFNoteNumLRoman, "ftnnrlc", 0 },
|
|
{ rtfDocAttr, rtfFNoteNumURoman, "ftnnruc", 0 },
|
|
{ rtfDocAttr, rtfFNoteNumChicago, "ftnnchi", 0 },
|
|
{ rtfDocAttr, rtfENoteNumArabic, "aftnnar", 0 },
|
|
{ rtfDocAttr, rtfENoteNumLLetter, "aftnnalc", 0 },
|
|
{ rtfDocAttr, rtfENoteNumULetter, "aftnnauc", 0 },
|
|
{ rtfDocAttr, rtfENoteNumLRoman, "aftnnrlc", 0 },
|
|
{ rtfDocAttr, rtfENoteNumURoman, "aftnnruc", 0 },
|
|
{ rtfDocAttr, rtfENoteNumChicago, "aftnnchi", 0 },
|
|
|
|
{ rtfDocAttr, rtfPaperWidth, "paperw", 0 },
|
|
{ rtfDocAttr, rtfPaperHeight, "paperh", 0 },
|
|
{ rtfDocAttr, rtfPaperSize, "psz", 0 },
|
|
{ rtfDocAttr, rtfLeftMargin, "margl", 0 },
|
|
{ rtfDocAttr, rtfRightMargin, "margr", 0 },
|
|
{ rtfDocAttr, rtfTopMargin, "margt", 0 },
|
|
{ rtfDocAttr, rtfBottomMargin, "margb", 0 },
|
|
{ rtfDocAttr, rtfFacingPage, "facingp", 0 },
|
|
{ rtfDocAttr, rtfGutterWid, "gutter", 0 },
|
|
{ rtfDocAttr, rtfMirrorMargin, "margmirror", 0 },
|
|
{ rtfDocAttr, rtfLandscape, "landscape", 0 },
|
|
{ rtfDocAttr, rtfPageStart, "pgnstart", 0 },
|
|
{ rtfDocAttr, rtfWidowCtrl, "widowctrl", 0 },
|
|
|
|
{ rtfDocAttr, rtfLinkStyles, "linkstyles", 0 },
|
|
|
|
{ rtfDocAttr, rtfNoAutoTabIndent, "notabind", 0 },
|
|
{ rtfDocAttr, rtfWrapSpaces, "wraptrsp", 0 },
|
|
{ rtfDocAttr, rtfPrintColorsBlack, "prcolbl", 0 },
|
|
{ rtfDocAttr, rtfNoExtraSpaceRL, "noextrasprl", 0 },
|
|
{ rtfDocAttr, rtfNoColumnBalance, "nocolbal", 0 },
|
|
{ rtfDocAttr, rtfCvtMailMergeQuote, "cvmme", 0 },
|
|
{ rtfDocAttr, rtfSuppressTopSpace, "sprstsp", 0 },
|
|
{ rtfDocAttr, rtfSuppressPreParSpace, "sprsspbf", 0 },
|
|
{ rtfDocAttr, rtfCombineTblBorders, "otblrul", 0 },
|
|
{ rtfDocAttr, rtfTranspMetafiles, "transmf", 0 },
|
|
{ rtfDocAttr, rtfSwapBorders, "swpbdr", 0 },
|
|
{ rtfDocAttr, rtfShowHardBreaks, "brkfrm", 0 },
|
|
|
|
{ rtfDocAttr, rtfFormProtected, "formprot", 0 },
|
|
{ rtfDocAttr, rtfAllProtected, "allprot", 0 },
|
|
{ rtfDocAttr, rtfFormShading, "formshade", 0 },
|
|
{ rtfDocAttr, rtfFormDisplay, "formdisp", 0 },
|
|
{ rtfDocAttr, rtfPrintData, "printdata", 0 },
|
|
|
|
{ rtfDocAttr, rtfRevProtected, "revprot", 0 },
|
|
{ rtfDocAttr, rtfRevisions, "revisions", 0 },
|
|
{ rtfDocAttr, rtfRevDisplay, "revprop", 0 },
|
|
{ rtfDocAttr, rtfRevBar, "revbar", 0 },
|
|
|
|
{ rtfDocAttr, rtfAnnotProtected, "annotprot", 0 },
|
|
|
|
{ rtfDocAttr, rtfRTLDoc, "rtldoc", 0 },
|
|
{ rtfDocAttr, rtfLTRDoc, "ltrdoc", 0 },
|
|
|
|
/*
|
|
* Style attributes
|
|
*/
|
|
|
|
{ rtfStyleAttr, rtfAdditive, "additive", 0 },
|
|
{ rtfStyleAttr, rtfBasedOn, "sbasedon", 0 },
|
|
{ rtfStyleAttr, rtfNext, "snext", 0 },
|
|
|
|
/*
|
|
* Picture attributes
|
|
*/
|
|
|
|
{ rtfPictAttr, rtfMacQD, "macpict", 0 },
|
|
{ rtfPictAttr, rtfPMMetafile, "pmmetafile", 0 },
|
|
{ rtfPictAttr, rtfWinMetafile, "wmetafile", 0 },
|
|
{ rtfPictAttr, rtfDevIndBitmap, "dibitmap", 0 },
|
|
{ rtfPictAttr, rtfWinBitmap, "wbitmap", 0 },
|
|
{ rtfPictAttr, rtfPixelBits, "wbmbitspixel", 0 },
|
|
{ rtfPictAttr, rtfBitmapPlanes, "wbmplanes", 0 },
|
|
{ rtfPictAttr, rtfBitmapWid, "wbmwidthbytes", 0 },
|
|
|
|
{ rtfPictAttr, rtfPicWid, "picw", 0 },
|
|
{ rtfPictAttr, rtfPicHt, "pich", 0 },
|
|
{ rtfPictAttr, rtfPicGoalWid, "picwgoal", 0 },
|
|
{ rtfPictAttr, rtfPicGoalHt, "pichgoal", 0 },
|
|
/* these two aren't in the spec, but some writers emit them */
|
|
{ rtfPictAttr, rtfPicGoalWid, "picwGoal", 0 },
|
|
{ rtfPictAttr, rtfPicGoalHt, "pichGoal", 0 },
|
|
{ rtfPictAttr, rtfPicScaleX, "picscalex", 0 },
|
|
{ rtfPictAttr, rtfPicScaleY, "picscaley", 0 },
|
|
{ rtfPictAttr, rtfPicScaled, "picscaled", 0 },
|
|
{ rtfPictAttr, rtfPicCropTop, "piccropt", 0 },
|
|
{ rtfPictAttr, rtfPicCropBottom, "piccropb", 0 },
|
|
{ rtfPictAttr, rtfPicCropLeft, "piccropl", 0 },
|
|
{ rtfPictAttr, rtfPicCropRight, "piccropr", 0 },
|
|
|
|
{ rtfPictAttr, rtfPicMFHasBitmap, "picbmp", 0 },
|
|
{ rtfPictAttr, rtfPicMFBitsPerPixel, "picbpp", 0 },
|
|
|
|
{ rtfPictAttr, rtfPicBinary, "bin", 0 },
|
|
|
|
/*
|
|
* NeXT graphic attributes
|
|
*/
|
|
|
|
{ rtfNeXTGrAttr, rtfNeXTGWidth, "width", 0 },
|
|
{ rtfNeXTGrAttr, rtfNeXTGHeight, "height", 0 },
|
|
|
|
/*
|
|
* Destinations
|
|
*/
|
|
|
|
{ rtfDestination, rtfFontTbl, "fonttbl", 0 },
|
|
{ rtfDestination, rtfFontAltName, "falt", 0 },
|
|
{ rtfDestination, rtfEmbeddedFont, "fonteb", 0 },
|
|
{ rtfDestination, rtfFontFile, "fontfile", 0 },
|
|
{ rtfDestination, rtfFileTbl, "filetbl", 0 },
|
|
{ rtfDestination, rtfFileInfo, "file", 0 },
|
|
{ rtfDestination, rtfColorTbl, "colortbl", 0 },
|
|
{ rtfDestination, rtfStyleSheet, "stylesheet", 0 },
|
|
{ rtfDestination, rtfKeyCode, "keycode", 0 },
|
|
{ rtfDestination, rtfRevisionTbl, "revtbl", 0 },
|
|
{ rtfDestination, rtfInfo, "info", 0 },
|
|
{ rtfDestination, rtfITitle, "title", 0 },
|
|
{ rtfDestination, rtfISubject, "subject", 0 },
|
|
{ rtfDestination, rtfIAuthor, "author", 0 },
|
|
{ rtfDestination, rtfIOperator, "operator", 0 },
|
|
{ rtfDestination, rtfIKeywords, "keywords", 0 },
|
|
{ rtfDestination, rtfIComment, "comment", 0 },
|
|
{ rtfDestination, rtfIVersion, "version", 0 },
|
|
{ rtfDestination, rtfIDoccomm, "doccomm", 0 },
|
|
/* \verscomm may not exist -- was seen in earlier spec version */
|
|
{ rtfDestination, rtfIVerscomm, "verscomm", 0 },
|
|
{ rtfDestination, rtfNextFile, "nextfile", 0 },
|
|
{ rtfDestination, rtfTemplate, "template", 0 },
|
|
{ rtfDestination, rtfFNSep, "ftnsep", 0 },
|
|
{ rtfDestination, rtfFNContSep, "ftnsepc", 0 },
|
|
{ rtfDestination, rtfFNContNotice, "ftncn", 0 },
|
|
{ rtfDestination, rtfENSep, "aftnsep", 0 },
|
|
{ rtfDestination, rtfENContSep, "aftnsepc", 0 },
|
|
{ rtfDestination, rtfENContNotice, "aftncn", 0 },
|
|
{ rtfDestination, rtfPageNumLevel, "pgnhn", 0 },
|
|
{ rtfDestination, rtfParNumLevelStyle, "pnseclvl", 0 },
|
|
{ rtfDestination, rtfHeader, "header", 0 },
|
|
{ rtfDestination, rtfFooter, "footer", 0 },
|
|
{ rtfDestination, rtfHeaderLeft, "headerl", 0 },
|
|
{ rtfDestination, rtfHeaderRight, "headerr", 0 },
|
|
{ rtfDestination, rtfHeaderFirst, "headerf", 0 },
|
|
{ rtfDestination, rtfFooterLeft, "footerl", 0 },
|
|
{ rtfDestination, rtfFooterRight, "footerr", 0 },
|
|
{ rtfDestination, rtfFooterFirst, "footerf", 0 },
|
|
{ rtfDestination, rtfParNumText, "pntext", 0 },
|
|
{ rtfDestination, rtfParNumbering, "pn", 0 },
|
|
{ rtfDestination, rtfParNumTextAfter, "pntexta", 0 },
|
|
{ rtfDestination, rtfParNumTextBefore, "pntextb", 0 },
|
|
{ rtfDestination, rtfBookmarkStart, "bkmkstart", 0 },
|
|
{ rtfDestination, rtfBookmarkEnd, "bkmkend", 0 },
|
|
{ rtfDestination, rtfPict, "pict", 0 },
|
|
{ rtfDestination, rtfObject, "object", 0 },
|
|
{ rtfDestination, rtfObjClass, "objclass", 0 },
|
|
{ rtfDestination, rtfObjName, "objname", 0 },
|
|
{ rtfObjAttr, rtfObjTime, "objtime", 0 },
|
|
{ rtfDestination, rtfObjData, "objdata", 0 },
|
|
{ rtfDestination, rtfObjAlias, "objalias", 0 },
|
|
{ rtfDestination, rtfObjSection, "objsect", 0 },
|
|
/* objitem and objtopic aren't documented in the spec! */
|
|
{ rtfDestination, rtfObjItem, "objitem", 0 },
|
|
{ rtfDestination, rtfObjTopic, "objtopic", 0 },
|
|
{ rtfDestination, rtfObjResult, "result", 0 },
|
|
{ rtfDestination, rtfDrawObject, "do", 0 },
|
|
{ rtfDestination, rtfFootnote, "footnote", 0 },
|
|
{ rtfDestination, rtfAnnotRefStart, "atrfstart", 0 },
|
|
{ rtfDestination, rtfAnnotRefEnd, "atrfend", 0 },
|
|
{ rtfDestination, rtfAnnotID, "atnid", 0 },
|
|
{ rtfDestination, rtfAnnotAuthor, "atnauthor", 0 },
|
|
{ rtfDestination, rtfAnnotation, "annotation", 0 },
|
|
{ rtfDestination, rtfAnnotRef, "atnref", 0 },
|
|
{ rtfDestination, rtfAnnotTime, "atntime", 0 },
|
|
{ rtfDestination, rtfAnnotIcon, "atnicn", 0 },
|
|
{ rtfDestination, rtfField, "field", 0 },
|
|
{ rtfDestination, rtfFieldInst, "fldinst", 0 },
|
|
{ rtfDestination, rtfFieldResult, "fldrslt", 0 },
|
|
{ rtfDestination, rtfDataField, "datafield", 0 },
|
|
{ rtfDestination, rtfIndex, "xe", 0 },
|
|
{ rtfDestination, rtfIndexText, "txe", 0 },
|
|
{ rtfDestination, rtfIndexRange, "rxe", 0 },
|
|
{ rtfDestination, rtfTOC, "tc", 0 },
|
|
{ rtfDestination, rtfNeXTGraphic, "NeXTGraphic", 0 },
|
|
|
|
/*
|
|
* Font families
|
|
*/
|
|
|
|
{ rtfFontFamily, rtfFFNil, "fnil", 0 },
|
|
{ rtfFontFamily, rtfFFRoman, "froman", 0 },
|
|
{ rtfFontFamily, rtfFFSwiss, "fswiss", 0 },
|
|
{ rtfFontFamily, rtfFFModern, "fmodern", 0 },
|
|
{ rtfFontFamily, rtfFFScript, "fscript", 0 },
|
|
{ rtfFontFamily, rtfFFDecor, "fdecor", 0 },
|
|
{ rtfFontFamily, rtfFFTech, "ftech", 0 },
|
|
{ rtfFontFamily, rtfFFBidirectional, "fbidi", 0 },
|
|
|
|
/*
|
|
* Font attributes
|
|
*/
|
|
|
|
{ rtfFontAttr, rtfFontCharSet, "fcharset", 0 },
|
|
{ rtfFontAttr, rtfFontPitch, "fprq", 0 },
|
|
{ rtfFontAttr, rtfFontCodePage, "cpg", 0 },
|
|
{ rtfFontAttr, rtfFTypeNil, "ftnil", 0 },
|
|
{ rtfFontAttr, rtfFTypeTrueType, "fttruetype", 0 },
|
|
|
|
/*
|
|
* File table attributes
|
|
*/
|
|
|
|
{ rtfFileAttr, rtfFileNum, "fid", 0 },
|
|
{ rtfFileAttr, rtfFileRelPath, "frelative", 0 },
|
|
{ rtfFileAttr, rtfFileOSNum, "fosnum", 0 },
|
|
|
|
/*
|
|
* File sources
|
|
*/
|
|
|
|
{ rtfFileSource, rtfSrcMacintosh, "fvalidmac", 0 },
|
|
{ rtfFileSource, rtfSrcDOS, "fvaliddos", 0 },
|
|
{ rtfFileSource, rtfSrcNTFS, "fvalidntfs", 0 },
|
|
{ rtfFileSource, rtfSrcHPFS, "fvalidhpfs", 0 },
|
|
{ rtfFileSource, rtfSrcNetwork, "fnetwork", 0 },
|
|
|
|
/*
|
|
* Color names
|
|
*/
|
|
|
|
{ rtfColorName, rtfRed, "red", 0 },
|
|
{ rtfColorName, rtfGreen, "green", 0 },
|
|
{ rtfColorName, rtfBlue, "blue", 0 },
|
|
|
|
/*
|
|
* Charset names
|
|
*/
|
|
|
|
{ rtfCharSet, rtfMacCharSet, "mac", 0 },
|
|
{ rtfCharSet, rtfAnsiCharSet, "ansi", 0 },
|
|
{ rtfCharSet, rtfPcCharSet, "pc", 0 },
|
|
{ rtfCharSet, rtfPcaCharSet, "pca", 0 },
|
|
|
|
/*
|
|
* Table attributes
|
|
*/
|
|
|
|
{ rtfTblAttr, rtfRowDef, "trowd", 0 },
|
|
{ rtfTblAttr, rtfRowGapH, "trgaph", 0 },
|
|
{ rtfTblAttr, rtfCellPos, "cellx", 0 },
|
|
{ rtfTblAttr, rtfMergeRngFirst, "clmgf", 0 },
|
|
{ rtfTblAttr, rtfMergePrevious, "clmrg", 0 },
|
|
|
|
{ rtfTblAttr, rtfRowLeft, "trql", 0 },
|
|
{ rtfTblAttr, rtfRowRight, "trqr", 0 },
|
|
{ rtfTblAttr, rtfRowCenter, "trqc", 0 },
|
|
{ rtfTblAttr, rtfRowLeftEdge, "trleft", 0 },
|
|
{ rtfTblAttr, rtfRowHt, "trrh", 0 },
|
|
{ rtfTblAttr, rtfRowHeader, "trhdr", 0 },
|
|
{ rtfTblAttr, rtfRowKeep, "trkeep", 0 },
|
|
|
|
{ rtfTblAttr, rtfRTLRow, "rtlrow", 0 },
|
|
{ rtfTblAttr, rtfLTRRow, "ltrrow", 0 },
|
|
|
|
{ rtfTblAttr, rtfRowBordTop, "trbrdrt", 0 },
|
|
{ rtfTblAttr, rtfRowBordLeft, "trbrdrl", 0 },
|
|
{ rtfTblAttr, rtfRowBordBottom, "trbrdrb", 0 },
|
|
{ rtfTblAttr, rtfRowBordRight, "trbrdrr", 0 },
|
|
{ rtfTblAttr, rtfRowBordHoriz, "trbrdrh", 0 },
|
|
{ rtfTblAttr, rtfRowBordVert, "trbrdrv", 0 },
|
|
|
|
{ rtfTblAttr, rtfCellBordBottom, "clbrdrb", 0 },
|
|
{ rtfTblAttr, rtfCellBordTop, "clbrdrt", 0 },
|
|
{ rtfTblAttr, rtfCellBordLeft, "clbrdrl", 0 },
|
|
{ rtfTblAttr, rtfCellBordRight, "clbrdrr", 0 },
|
|
|
|
{ rtfTblAttr, rtfCellShading, "clshdng", 0 },
|
|
{ rtfTblAttr, rtfCellBgPatH, "clbghoriz", 0 },
|
|
{ rtfTblAttr, rtfCellBgPatV, "clbgvert", 0 },
|
|
{ rtfTblAttr, rtfCellFwdDiagBgPat, "clbgfdiag", 0 },
|
|
{ rtfTblAttr, rtfCellBwdDiagBgPat, "clbgbdiag", 0 },
|
|
{ rtfTblAttr, rtfCellHatchBgPat, "clbgcross", 0 },
|
|
{ rtfTblAttr, rtfCellDiagHatchBgPat, "clbgdcross", 0 },
|
|
/*
|
|
* The spec lists "clbgdkhor", but the corresponding non-cell
|
|
* control is "bgdkhoriz". At any rate Macintosh Word seems
|
|
* to accept both "clbgdkhor" and "clbgdkhoriz".
|
|
*/
|
|
{ rtfTblAttr, rtfCellDarkBgPatH, "clbgdkhoriz", 0 },
|
|
{ rtfTblAttr, rtfCellDarkBgPatH, "clbgdkhor", 0 },
|
|
{ rtfTblAttr, rtfCellDarkBgPatV, "clbgdkvert", 0 },
|
|
{ rtfTblAttr, rtfCellFwdDarkBgPat, "clbgdkfdiag", 0 },
|
|
{ rtfTblAttr, rtfCellBwdDarkBgPat, "clbgdkbdiag", 0 },
|
|
{ rtfTblAttr, rtfCellDarkHatchBgPat, "clbgdkcross", 0 },
|
|
{ rtfTblAttr, rtfCellDarkDiagHatchBgPat, "clbgdkdcross", 0 },
|
|
{ rtfTblAttr, rtfCellBgPatLineColor, "clcfpat", 0 },
|
|
{ rtfTblAttr, rtfCellBgPatColor, "clcbpat", 0 },
|
|
|
|
/*
|
|
* Field attributes
|
|
*/
|
|
|
|
{ rtfFieldAttr, rtfFieldDirty, "flddirty", 0 },
|
|
{ rtfFieldAttr, rtfFieldEdited, "fldedit", 0 },
|
|
{ rtfFieldAttr, rtfFieldLocked, "fldlock", 0 },
|
|
{ rtfFieldAttr, rtfFieldPrivate, "fldpriv", 0 },
|
|
{ rtfFieldAttr, rtfFieldAlt, "fldalt", 0 },
|
|
|
|
/*
|
|
* Positioning attributes
|
|
*/
|
|
|
|
{ rtfPosAttr, rtfAbsWid, "absw", 0 },
|
|
{ rtfPosAttr, rtfAbsHt, "absh", 0 },
|
|
|
|
{ rtfPosAttr, rtfRPosMargH, "phmrg", 0 },
|
|
{ rtfPosAttr, rtfRPosPageH, "phpg", 0 },
|
|
{ rtfPosAttr, rtfRPosColH, "phcol", 0 },
|
|
{ rtfPosAttr, rtfPosX, "posx", 0 },
|
|
{ rtfPosAttr, rtfPosNegX, "posnegx", 0 },
|
|
{ rtfPosAttr, rtfPosXCenter, "posxc", 0 },
|
|
{ rtfPosAttr, rtfPosXInside, "posxi", 0 },
|
|
{ rtfPosAttr, rtfPosXOutSide, "posxo", 0 },
|
|
{ rtfPosAttr, rtfPosXRight, "posxr", 0 },
|
|
{ rtfPosAttr, rtfPosXLeft, "posxl", 0 },
|
|
|
|
{ rtfPosAttr, rtfRPosMargV, "pvmrg", 0 },
|
|
{ rtfPosAttr, rtfRPosPageV, "pvpg", 0 },
|
|
{ rtfPosAttr, rtfRPosParaV, "pvpara", 0 },
|
|
{ rtfPosAttr, rtfPosY, "posy", 0 },
|
|
{ rtfPosAttr, rtfPosNegY, "posnegy", 0 },
|
|
{ rtfPosAttr, rtfPosYInline, "posyil", 0 },
|
|
{ rtfPosAttr, rtfPosYTop, "posyt", 0 },
|
|
{ rtfPosAttr, rtfPosYCenter, "posyc", 0 },
|
|
{ rtfPosAttr, rtfPosYBottom, "posyb", 0 },
|
|
|
|
{ rtfPosAttr, rtfNoWrap, "nowrap", 0 },
|
|
{ rtfPosAttr, rtfDistFromTextAll, "dxfrtext", 0 },
|
|
{ rtfPosAttr, rtfDistFromTextX, "dfrmtxtx", 0 },
|
|
{ rtfPosAttr, rtfDistFromTextY, "dfrmtxty", 0 },
|
|
/* \dyfrtext no longer exists in spec 1.2, apparently */
|
|
/* replaced by \dfrmtextx and \dfrmtexty. */
|
|
{ rtfPosAttr, rtfTextDistY, "dyfrtext", 0 },
|
|
|
|
{ rtfPosAttr, rtfDropCapLines, "dropcapli", 0 },
|
|
{ rtfPosAttr, rtfDropCapType, "dropcapt", 0 },
|
|
|
|
/*
|
|
* Object controls
|
|
*/
|
|
|
|
{ rtfObjAttr, rtfObjEmb, "objemb", 0 },
|
|
{ rtfObjAttr, rtfObjLink, "objlink", 0 },
|
|
{ rtfObjAttr, rtfObjAutoLink, "objautlink", 0 },
|
|
{ rtfObjAttr, rtfObjSubscriber, "objsub", 0 },
|
|
{ rtfObjAttr, rtfObjPublisher, "objpub", 0 },
|
|
{ rtfObjAttr, rtfObjICEmb, "objicemb", 0 },
|
|
|
|
{ rtfObjAttr, rtfObjLinkSelf, "linkself", 0 },
|
|
{ rtfObjAttr, rtfObjLock, "objupdate", 0 },
|
|
{ rtfObjAttr, rtfObjUpdate, "objlock", 0 },
|
|
|
|
{ rtfObjAttr, rtfObjHt, "objh", 0 },
|
|
{ rtfObjAttr, rtfObjWid, "objw", 0 },
|
|
{ rtfObjAttr, rtfObjSetSize, "objsetsize", 0 },
|
|
{ rtfObjAttr, rtfObjAlign, "objalign", 0 },
|
|
{ rtfObjAttr, rtfObjTransposeY, "objtransy", 0 },
|
|
{ rtfObjAttr, rtfObjCropTop, "objcropt", 0 },
|
|
{ rtfObjAttr, rtfObjCropBottom, "objcropb", 0 },
|
|
{ rtfObjAttr, rtfObjCropLeft, "objcropl", 0 },
|
|
{ rtfObjAttr, rtfObjCropRight, "objcropr", 0 },
|
|
{ rtfObjAttr, rtfObjScaleX, "objscalex", 0 },
|
|
{ rtfObjAttr, rtfObjScaleY, "objscaley", 0 },
|
|
|
|
{ rtfObjAttr, rtfObjResRTF, "rsltrtf", 0 },
|
|
{ rtfObjAttr, rtfObjResPict, "rsltpict", 0 },
|
|
{ rtfObjAttr, rtfObjResBitmap, "rsltbmp", 0 },
|
|
{ rtfObjAttr, rtfObjResText, "rslttxt", 0 },
|
|
{ rtfObjAttr, rtfObjResMerge, "rsltmerge", 0 },
|
|
|
|
{ rtfObjAttr, rtfObjBookmarkPubObj, "bkmkpub", 0 },
|
|
{ rtfObjAttr, rtfObjPubAutoUpdate, "pubauto", 0 },
|
|
|
|
/*
|
|
* Associated character formatting attributes
|
|
*/
|
|
|
|
{ rtfACharAttr, rtfACBold, "ab", 0 },
|
|
{ rtfACharAttr, rtfACAllCaps, "caps", 0 },
|
|
{ rtfACharAttr, rtfACForeColor, "acf", 0 },
|
|
{ rtfACharAttr, rtfACSubScript, "adn", 0 },
|
|
{ rtfACharAttr, rtfACExpand, "aexpnd", 0 },
|
|
{ rtfACharAttr, rtfACFontNum, "af", 0 },
|
|
{ rtfACharAttr, rtfACFontSize, "afs", 0 },
|
|
{ rtfACharAttr, rtfACItalic, "ai", 0 },
|
|
{ rtfACharAttr, rtfACLanguage, "alang", 0 },
|
|
{ rtfACharAttr, rtfACOutline, "aoutl", 0 },
|
|
{ rtfACharAttr, rtfACSmallCaps, "ascaps", 0 },
|
|
{ rtfACharAttr, rtfACShadow, "ashad", 0 },
|
|
{ rtfACharAttr, rtfACStrikeThru, "astrike", 0 },
|
|
{ rtfACharAttr, rtfACUnderline, "aul", 0 },
|
|
{ rtfACharAttr, rtfACDotUnderline, "auld", 0 },
|
|
{ rtfACharAttr, rtfACDbUnderline, "auldb", 0 },
|
|
{ rtfACharAttr, rtfACNoUnderline, "aulnone", 0 },
|
|
{ rtfACharAttr, rtfACWordUnderline, "aulw", 0 },
|
|
{ rtfACharAttr, rtfACSuperScript, "aup", 0 },
|
|
|
|
/*
|
|
* Footnote attributes
|
|
*/
|
|
|
|
{ rtfFNoteAttr, rtfFNAlt, "ftnalt", 0 },
|
|
|
|
/*
|
|
* Key code attributes
|
|
*/
|
|
|
|
{ rtfKeyCodeAttr, rtfAltKey, "alt", 0 },
|
|
{ rtfKeyCodeAttr, rtfShiftKey, "shift", 0 },
|
|
{ rtfKeyCodeAttr, rtfControlKey, "ctrl", 0 },
|
|
{ rtfKeyCodeAttr, rtfFunctionKey, "fn", 0 },
|
|
|
|
/*
|
|
* Bookmark attributes
|
|
*/
|
|
|
|
{ rtfBookmarkAttr, rtfBookmarkFirstCol, "bkmkcolf", 0 },
|
|
{ rtfBookmarkAttr, rtfBookmarkLastCol, "bkmkcoll", 0 },
|
|
|
|
/*
|
|
* Index entry attributes
|
|
*/
|
|
|
|
{ rtfIndexAttr, rtfIndexNumber, "xef", 0 },
|
|
{ rtfIndexAttr, rtfIndexBold, "bxe", 0 },
|
|
{ rtfIndexAttr, rtfIndexItalic, "ixe", 0 },
|
|
|
|
/*
|
|
* Table of contents attributes
|
|
*/
|
|
|
|
{ rtfTOCAttr, rtfTOCType, "tcf", 0 },
|
|
{ rtfTOCAttr, rtfTOCLevel, "tcl", 0 },
|
|
|
|
/*
|
|
* Drawing object attributes
|
|
*/
|
|
|
|
{ rtfDrawAttr, rtfDrawLock, "dolock", 0 },
|
|
{ rtfDrawAttr, rtfDrawPageRelX, "doxpage", 0 },
|
|
{ rtfDrawAttr, rtfDrawColumnRelX, "dobxcolumn", 0 },
|
|
{ rtfDrawAttr, rtfDrawMarginRelX, "dobxmargin", 0 },
|
|
{ rtfDrawAttr, rtfDrawPageRelY, "dobypage", 0 },
|
|
{ rtfDrawAttr, rtfDrawColumnRelY, "dobycolumn", 0 },
|
|
{ rtfDrawAttr, rtfDrawMarginRelY, "dobymargin", 0 },
|
|
{ rtfDrawAttr, rtfDrawHeight, "dobhgt", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawBeginGroup, "dpgroup", 0 },
|
|
{ rtfDrawAttr, rtfDrawGroupCount, "dpcount", 0 },
|
|
{ rtfDrawAttr, rtfDrawEndGroup, "dpendgroup", 0 },
|
|
{ rtfDrawAttr, rtfDrawArc, "dparc", 0 },
|
|
{ rtfDrawAttr, rtfDrawCallout, "dpcallout", 0 },
|
|
{ rtfDrawAttr, rtfDrawEllipse, "dpellipse", 0 },
|
|
{ rtfDrawAttr, rtfDrawLine, "dpline", 0 },
|
|
{ rtfDrawAttr, rtfDrawPolygon, "dppolygon", 0 },
|
|
{ rtfDrawAttr, rtfDrawPolyLine, "dppolyline", 0 },
|
|
{ rtfDrawAttr, rtfDrawRect, "dprect", 0 },
|
|
{ rtfDrawAttr, rtfDrawTextBox, "dptxbx", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawOffsetX, "dpx", 0 },
|
|
{ rtfDrawAttr, rtfDrawSizeX, "dpxsize", 0 },
|
|
{ rtfDrawAttr, rtfDrawOffsetY, "dpy", 0 },
|
|
{ rtfDrawAttr, rtfDrawSizeY, "dpysize", 0 },
|
|
|
|
{ rtfDrawAttr, rtfCOAngle, "dpcoa", 0 },
|
|
{ rtfDrawAttr, rtfCOAccentBar, "dpcoaccent", 0 },
|
|
{ rtfDrawAttr, rtfCOBestFit, "dpcobestfit", 0 },
|
|
{ rtfDrawAttr, rtfCOBorder, "dpcoborder", 0 },
|
|
{ rtfDrawAttr, rtfCOAttachAbsDist, "dpcodabs", 0 },
|
|
{ rtfDrawAttr, rtfCOAttachBottom, "dpcodbottom", 0 },
|
|
{ rtfDrawAttr, rtfCOAttachCenter, "dpcodcenter", 0 },
|
|
{ rtfDrawAttr, rtfCOAttachTop, "dpcodtop", 0 },
|
|
{ rtfDrawAttr, rtfCOLength, "dpcolength", 0 },
|
|
{ rtfDrawAttr, rtfCONegXQuadrant, "dpcominusx", 0 },
|
|
{ rtfDrawAttr, rtfCONegYQuadrant, "dpcominusy", 0 },
|
|
{ rtfDrawAttr, rtfCOOffset, "dpcooffset", 0 },
|
|
{ rtfDrawAttr, rtfCOAttachSmart, "dpcosmarta", 0 },
|
|
{ rtfDrawAttr, rtfCODoubleLine, "dpcotdouble", 0 },
|
|
{ rtfDrawAttr, rtfCORightAngle, "dpcotright", 0 },
|
|
{ rtfDrawAttr, rtfCOSingleLine, "dpcotsingle", 0 },
|
|
{ rtfDrawAttr, rtfCOTripleLine, "dpcottriple", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawTextBoxMargin, "dptxbxmar", 0 },
|
|
{ rtfDrawAttr, rtfDrawTextBoxText, "dptxbxtext", 0 },
|
|
{ rtfDrawAttr, rtfDrawRoundRect, "dproundr", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawPointX, "dpptx", 0 },
|
|
{ rtfDrawAttr, rtfDrawPointY, "dppty", 0 },
|
|
{ rtfDrawAttr, rtfDrawPolyCount, "dppolycount", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawArcFlipX, "dparcflipx", 0 },
|
|
{ rtfDrawAttr, rtfDrawArcFlipY, "dparcflipy", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawLineBlue, "dplinecob", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineGreen, "dplinecog", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineRed, "dplinecor", 0 },
|
|
{ rtfDrawAttr, rtfDrawLinePalette, "dplinepal", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineDashDot, "dplinedado", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineDashDotDot, "dplinedadodo", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineDash, "dplinedash", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineDot, "dplinedot", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineGray, "dplinegray", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineHollow, "dplinehollow", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineSolid, "dplinesolid", 0 },
|
|
{ rtfDrawAttr, rtfDrawLineWidth, "dplinew", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawHollowEndArrow, "dpaendhol", 0 },
|
|
{ rtfDrawAttr, rtfDrawEndArrowLength, "dpaendl", 0 },
|
|
{ rtfDrawAttr, rtfDrawSolidEndArrow, "dpaendsol", 0 },
|
|
{ rtfDrawAttr, rtfDrawEndArrowWidth, "dpaendw", 0 },
|
|
{ rtfDrawAttr, rtfDrawHollowStartArrow,"dpastarthol", 0 },
|
|
{ rtfDrawAttr, rtfDrawStartArrowLength,"dpastartl", 0 },
|
|
{ rtfDrawAttr, rtfDrawSolidStartArrow, "dpastartsol", 0 },
|
|
{ rtfDrawAttr, rtfDrawStartArrowWidth, "dpastartw", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawBgFillBlue, "dpfillbgcb", 0 },
|
|
{ rtfDrawAttr, rtfDrawBgFillGreen, "dpfillbgcg", 0 },
|
|
{ rtfDrawAttr, rtfDrawBgFillRed, "dpfillbgcr", 0 },
|
|
{ rtfDrawAttr, rtfDrawBgFillPalette, "dpfillbgpal", 0 },
|
|
{ rtfDrawAttr, rtfDrawBgFillGray, "dpfillbggray", 0 },
|
|
{ rtfDrawAttr, rtfDrawFgFillBlue, "dpfillfgcb", 0 },
|
|
{ rtfDrawAttr, rtfDrawFgFillGreen, "dpfillfgcg", 0 },
|
|
{ rtfDrawAttr, rtfDrawFgFillRed, "dpfillfgcr", 0 },
|
|
{ rtfDrawAttr, rtfDrawFgFillPalette, "dpfillfgpal", 0 },
|
|
{ rtfDrawAttr, rtfDrawFgFillGray, "dpfillfggray", 0 },
|
|
{ rtfDrawAttr, rtfDrawFillPatIndex, "dpfillpat", 0 },
|
|
|
|
{ rtfDrawAttr, rtfDrawShadow, "dpshadow", 0 },
|
|
{ rtfDrawAttr, rtfDrawShadowXOffset, "dpshadx", 0 },
|
|
{ rtfDrawAttr, rtfDrawShadowYOffset, "dpshady", 0 },
|
|
|
|
{ rtfVersion, -1, "rtf", 0 },
|
|
{ rtfDefFont, -1, "deff", 0 },
|
|
|
|
{ 0, -1, (char *) NULL, 0 }
|
|
};
|
|
|
|
|
|
/*
|
|
* Initialize lookup table hash values. Only need to do this once.
|
|
*/
|
|
|
|
static void
|
|
LookupInit ()
|
|
{
|
|
static int inited = 0;
|
|
RTFKey *rp;
|
|
|
|
if (inited == 0)
|
|
{
|
|
for (rp = rtfKey; rp->rtfKStr != (char *) NULL; rp++)
|
|
rp->rtfKHash = Hash (rp->rtfKStr);
|
|
++inited;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Determine major and minor number of control token. If it's
|
|
* not found, the class turns into rtfUnknown.
|
|
*/
|
|
|
|
static void
|
|
Lookup (s)
|
|
char *s;
|
|
{
|
|
RTFKey *rp;
|
|
int hash;
|
|
|
|
++s; /* skip over the leading \ character */
|
|
hash = Hash (s);
|
|
for (rp = rtfKey; rp->rtfKStr != (char *) NULL; rp++)
|
|
{
|
|
if (hash == rp->rtfKHash && strcmp (s, rp->rtfKStr) == 0)
|
|
{
|
|
rtfClass = rtfControl;
|
|
rtfMajor = rp->rtfKMajor;
|
|
rtfMinor = rp->rtfKMinor;
|
|
return;
|
|
}
|
|
}
|
|
rtfClass = rtfUnknown;
|
|
}
|
|
|
|
|
|
/*
|
|
* Compute hash value of symbol
|
|
*/
|
|
|
|
static int
|
|
Hash (s)
|
|
char *s;
|
|
{
|
|
char c;
|
|
int val = 0;
|
|
|
|
while ((c = *s++) != '\0')
|
|
val += (int) c;
|
|
return (val);
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Memory allocation routines
|
|
*/
|
|
|
|
|
|
/*
|
|
* Return pointer to block of size bytes, or NULL if there's
|
|
* not enough memory available.
|
|
*
|
|
* This is called through RTFAlloc(), a define which coerces the
|
|
* argument to int. This avoids the persistent problem of allocation
|
|
* failing under THINK C when a long is passed.
|
|
*/
|
|
|
|
char *
|
|
_RTFAlloc (size)
|
|
int size;
|
|
{
|
|
return HeapAlloc(RICHED32_hHeap, 0, size);
|
|
}
|
|
|
|
|
|
/*
|
|
* Saves a string on the heap and returns a pointer to it.
|
|
*/
|
|
|
|
|
|
char *
|
|
RTFStrSave (s)
|
|
char *s;
|
|
{
|
|
char *p;
|
|
|
|
if ((p = RTFAlloc ((int) (strlen (s) + 1))) == (char *) NULL)
|
|
return ((char *) NULL);
|
|
return (strcpy (p, s));
|
|
}
|
|
|
|
|
|
void
|
|
RTFFree (p)
|
|
char *p;
|
|
{
|
|
if (p != (char *) NULL)
|
|
HeapFree(RICHED32_hHeap, 0, p);
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
|
|
/*
|
|
* Token comparison routines
|
|
*/
|
|
|
|
int
|
|
RTFCheckCM (class, major)
|
|
int class, major;
|
|
{
|
|
return (rtfClass == class && rtfMajor == major);
|
|
}
|
|
|
|
|
|
int
|
|
RTFCheckCMM (class, major, minor)
|
|
int class, major, minor;
|
|
{
|
|
return (rtfClass == class && rtfMajor == major && rtfMinor == minor);
|
|
}
|
|
|
|
|
|
int
|
|
RTFCheckMM (major, minor)
|
|
int major, minor;
|
|
{
|
|
return (rtfMajor == major && rtfMinor == minor);
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
|
|
int
|
|
RTFCharToHex (c)
|
|
char c;
|
|
{
|
|
if (isupper (c))
|
|
c = tolower (c);
|
|
if (isdigit (c))
|
|
return (c - '0'); /* '0'..'9' */
|
|
return (c - 'a' + 10); /* 'a'..'f' */
|
|
}
|
|
|
|
|
|
int
|
|
RTFHexToChar (i)
|
|
int i;
|
|
{
|
|
if (i < 10)
|
|
return (i + '0');
|
|
return (i - 10 + 'a');
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* RTFReadOutputMap() -- Read output translation map
|
|
*/
|
|
|
|
/*
|
|
* Read in an array describing the relation between the standard character set
|
|
* and an RTF translator's corresponding output sequences. Each line consists
|
|
* of a standard character name and the output sequence for that character.
|
|
*
|
|
* outMap is an array of strings into which the sequences should be placed.
|
|
* It should be declared like this in the calling program:
|
|
*
|
|
* char *outMap[rtfSC_MaxChar];
|
|
*
|
|
* reinit should be non-zero if outMap should be initialized
|
|
* zero otherwise.
|
|
*
|
|
*/
|
|
|
|
int
|
|
RTFReadOutputMap (outMap, reinit)
|
|
char *outMap[];
|
|
int reinit;
|
|
{
|
|
int i;
|
|
int stdCode;
|
|
char *name, *seq;
|
|
|
|
if (reinit)
|
|
{
|
|
for (i = 0; i < rtfSC_MaxChar; i++)
|
|
{
|
|
outMap[i] = (char *) NULL;
|
|
}
|
|
}
|
|
|
|
for (i=0 ;i< sizeof(text_map)/sizeof(char*); i+=2)
|
|
{
|
|
name = text_map[i];
|
|
seq = text_map[i+1];
|
|
stdCode = RTFStdCharCode( name );
|
|
outMap[stdCode] = seq;
|
|
}
|
|
|
|
return (1);
|
|
}
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Open a library file.
|
|
*/
|
|
|
|
|
|
static FILE *(*libFileOpen) () = NULL;
|
|
|
|
|
|
|
|
void
|
|
RTFSetOpenLibFileProc (proc)
|
|
FILE *(*proc) ();
|
|
{
|
|
libFileOpen = proc;
|
|
}
|
|
|
|
|
|
FILE *
|
|
RTFOpenLibFile (file, mode)
|
|
char *file;
|
|
char *mode;
|
|
{
|
|
if (libFileOpen == NULL)
|
|
return ((FILE *) NULL);
|
|
return ((*libFileOpen) (file, mode));
|
|
}
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
/*
|
|
* Print message. Default is to send message to stderr
|
|
* but this may be overridden with RTFSetMsgProc().
|
|
*
|
|
* Message should include linefeeds as necessary. If the default
|
|
* function is overridden, the overriding function may want to
|
|
* map linefeeds to another line ending character or sequence if
|
|
* the host system doesn't use linefeeds.
|
|
*/
|
|
|
|
|
|
static void
|
|
DefaultMsgProc (s)
|
|
char *s;
|
|
{
|
|
MESSAGE( "%s", s);
|
|
}
|
|
|
|
|
|
static RTFFuncPtr msgProc = DefaultMsgProc;
|
|
|
|
|
|
void
|
|
RTFSetMsgProc (proc)
|
|
RTFFuncPtr proc;
|
|
{
|
|
msgProc = proc;
|
|
}
|
|
|
|
|
|
# ifdef STDARG
|
|
|
|
/*
|
|
* This version is for systems with stdarg
|
|
*/
|
|
|
|
void
|
|
RTFMsg (char *fmt, ...)
|
|
{
|
|
char buf[rtfBufSiz];
|
|
|
|
va_list args;
|
|
va_start (args,fmt);
|
|
vsprintf (buf, fmt, args);
|
|
va_end (args);
|
|
(*msgProc) (buf);
|
|
}
|
|
|
|
# else /* !STDARG */
|
|
|
|
# ifdef VARARGS
|
|
|
|
|
|
/*
|
|
* This version is for systems that have varargs.
|
|
*/
|
|
|
|
void
|
|
RTFMsg (va_alist)
|
|
va_dcl
|
|
{
|
|
va_list args;
|
|
char *fmt;
|
|
char buf[rtfBufSiz];
|
|
|
|
va_start (args);
|
|
fmt = va_arg (args, char *);
|
|
vsprintf (buf, fmt, args);
|
|
va_end (args);
|
|
(*msgProc) (buf);
|
|
}
|
|
|
|
# else /* !VARARGS */
|
|
|
|
/*
|
|
* This version is for systems that don't have varargs.
|
|
*/
|
|
|
|
void
|
|
RTFMsg (fmt, a1, a2, a3, a4, a5, a6, a7, a8, a9)
|
|
char *fmt;
|
|
char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8, *a9;
|
|
{
|
|
char buf[rtfBufSiz];
|
|
|
|
sprintf (buf, fmt, a1, a2, a3, a4, a5, a6, a7, a8, a9);
|
|
(*msgProc) (buf);
|
|
}
|
|
|
|
# endif /* !VARARGS */
|
|
# endif /* !STDARG */
|
|
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
|
|
|
|
/*
|
|
* Process termination. Print error message and exit. Also prints
|
|
* current token, and current input line number and position within
|
|
* line if any input has been read from the current file. (No input
|
|
* has been read if prevChar is EOF).
|
|
*/
|
|
|
|
static void
|
|
DefaultPanicProc (s)
|
|
char *s;
|
|
{
|
|
MESSAGE( "%s", s);
|
|
/*exit (1);*/
|
|
}
|
|
|
|
|
|
static RTFFuncPtr panicProc = DefaultPanicProc;
|
|
|
|
|
|
void
|
|
RTFSetPanicProc (proc)
|
|
RTFFuncPtr proc;
|
|
{
|
|
panicProc = proc;
|
|
}
|
|
|
|
|
|
# ifdef STDARG
|
|
|
|
/*
|
|
* This version is for systems with stdarg
|
|
*/
|
|
|
|
void
|
|
RTFPanic (char *fmt, ...)
|
|
{
|
|
char buf[rtfBufSiz];
|
|
|
|
va_list args;
|
|
va_start (args,fmt);
|
|
vsprintf (buf, fmt, args);
|
|
va_end (args);
|
|
(void) strcat (buf, "\n");
|
|
if (prevChar != EOF && rtfTextBuf != (char *) NULL)
|
|
{
|
|
sprintf (buf + strlen (buf),
|
|
"Last token read was \"%s\" near line %ld, position %d.\n",
|
|
rtfTextBuf, rtfLineNum, rtfLinePos);
|
|
}
|
|
(*panicProc) (buf);
|
|
}
|
|
|
|
# else /* !STDARG */
|
|
|
|
# ifdef VARARGS
|
|
|
|
|
|
/*
|
|
* This version is for systems that have varargs.
|
|
*/
|
|
|
|
void
|
|
RTFPanic (va_alist)
|
|
va_dcl
|
|
{
|
|
va_list args;
|
|
char *fmt;
|
|
char buf[rtfBufSiz];
|
|
|
|
va_start (args);
|
|
fmt = va_arg (args, char *);
|
|
vsprintf (buf, fmt, args);
|
|
va_end (args);
|
|
(void) strcat (buf, "\n");
|
|
if (prevChar != EOF && rtfTextBuf != (char *) NULL)
|
|
{
|
|
sprintf (buf + strlen (buf),
|
|
"Last token read was \"%s\" near line %ld, position %d.\n",
|
|
rtfTextBuf, rtfLineNum, rtfLinePos);
|
|
}
|
|
(*panicProc) (buf);
|
|
}
|
|
|
|
# else /* !VARARGS */
|
|
|
|
/*
|
|
* This version is for systems that don't have varargs.
|
|
*/
|
|
|
|
void
|
|
RTFPanic (fmt, a1, a2, a3, a4, a5, a6, a7, a8, a9)
|
|
char *fmt;
|
|
char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8, *a9;
|
|
{
|
|
char buf[rtfBufSiz];
|
|
|
|
sprintf (buf, fmt, a1, a2, a3, a4, a5, a6, a7, a8, a9);
|
|
(void) strcat (buf, "\n");
|
|
if (prevChar != EOF && rtfTextBuf != (char *) NULL)
|
|
{
|
|
sprintf (buf + strlen (buf),
|
|
"Last token read was \"%s\" near line %ld, position %d.\n",
|
|
rtfTextBuf, rtfLineNum, rtfLinePos);
|
|
}
|
|
(*panicProc) (buf);
|
|
}
|
|
|
|
# endif /* !VARARGS */
|
|
# endif /* !STDARG */
|