/*
* dpsclient.c -- Implementation of the Display PostScript Client Library.
*
* (c) Copyright 1988-1994 Adobe Systems Incorporated.
* All rights reserved.
*
* Permission to use, copy, modify, distribute, and sublicense this software
* and its documentation for any purpose and without fee is hereby granted,
* provided that the above copyright notices appear in all copies and that
* both those copyright notices and this permission notice appear in
* supporting documentation and that the name of Adobe Systems Incorporated
* not be used in advertising or publicity pertaining to distribution of the
* software without specific, written prior permission. No trademark license
* to use the Adobe trademarks is hereby granted. If the Adobe trademark
* "Display PostScript"(tm) is used to describe this software, its
* functionality or for any other purpose, such use shall be limited to a
* statement that this software works in conjunction with the Display
* PostScript system. Proper trademark attribution to reflect Adobe's
* ownership of the trademark shall be given whenever any such reference to
* the Display PostScript system is made.
*
* ADOBE MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE SOFTWARE FOR
* ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
* ADOBE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
* IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
* NON- INFRINGEMENT OF THIRD PARTY RIGHTS. IN NO EVENT SHALL ADOBE BE LIABLE
* TO YOU OR ANY OTHER PARTY FOR ANY SPECIAL, INDIRECT, OR CONSEQUENTIAL
* DAMAGES OR ANY DAMAGES WHATSOEVER WHETHER IN AN ACTION OF CONTRACT,
* NEGLIGENCE, STRICT LIABILITY OR ANY OTHER ACTION ARISING OUT OF OR IN
* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ADOBE WILL NOT
* PROVIDE ANY TRAINING OR OTHER SUPPORT FOR THE SOFTWARE.
*
* Adobe, PostScript, and Display PostScript are trademarks of Adobe Systems
* Incorporated which may be registered in certain jurisdictions
*
* Author: Adobe Systems Incorporated
*/
/* $XFree86$ */
#include <stdlib.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "dpsXpriv.h"
#include "DPS/dpsclient.h"
#include "dpsprivate.h"
#include "dpsdict.h"
#include "DPS/dpsexcept.h"
#include "dpsassert.h"
#ifdef XDPS
#include "dpsXint.h"
#endif /* XDPS */
#if defined(SVR4) || defined(SYSV) || defined(SystemV)
#define os_bcopy(f,t,c) memcpy(t,f,c)
#else
#define os_bcopy(f,t,c) bcopy(f,t,c)
#endif
#if !IEEEFLOAT
extern void IEEEHighToNative(/* FloatRep *from, real *to */);
/* Converts from IEEE high-byte-first real to native real. */
extern void NativeToIEEEHigh(/* real *from, FloatRep *to */);
/* Converts from native real to IEEE high-byte-first real. */
extern void IEEELowToNative(/* FloatRep *from, real *to */);
/* Converts from IEEE low-byte-first real to native real. */
extern void NativeToIEEELow(/* real *from, FloatRep *to */);
/* Converts from native real to IEEE low-byte-first real. */
#endif /* !IEEEFLOAT */
typedef union { /* 32 bit number representations */
unsigned int u;
int i;
float f;
unsigned char bytes[4];
/* raw bytes, in whatever order they appear in memory */
} Swap32Rec;
typedef union { /* 16 bit number representations */
unsigned short u;
short i;
unsigned char bytes[2];
} Swap16Rec;
#if SWAPBITS
#define Copy4SrcLo(src, dst)\
(((Swap32Rec *) dst)->bytes[0] = ((Swap32Rec *) src)->bytes[0], \
((Swap32Rec *) dst)->bytes[1] = ((Swap32Rec *) src)->bytes[1], \
((Swap32Rec *) dst)->bytes[2] = ((Swap32Rec *) src)->bytes[2], \
((Swap32Rec *) dst)->bytes[3] = ((Swap32Rec *) src)->bytes[3] )
#define Copy4SrcHi(src, dst)\
(((Swap32Rec *) dst)->bytes[0] = ((Swap32Rec *) src)->bytes[3], \
((Swap32Rec *) dst)->bytes[1] = ((Swap32Rec *) src)->bytes[2], \
((Swap32Rec *) dst)->bytes[2] = ((Swap32Rec *) src)->bytes[1], \
((Swap32Rec *) dst)->bytes[3] = ((Swap32Rec *) src)->bytes[0] )
#define Copy2SrcLo(src, dst)\
(((Swap16Rec *) dst)->bytes[0] = ((Swap16Rec *) src)->bytes[0], \
((Swap16Rec *) dst)->bytes[1] = ((Swap16Rec *) src)->bytes[1] )
#define Copy2SrcHi(src, dst)\
(((Swap16Rec *) dst)->bytes[0] = ((Swap16Rec *) src)->bytes[1], \
((Swap16Rec *) dst)->bytes[1] = ((Swap16Rec *) src)->bytes[0] )
#else /* SWAPBITS */
#define Copy4SrcHi(src, dst)\
(((Swap32Rec *) dst)->bytes[0] = ((Swap32Rec *) src)->bytes[0], \
((Swap32Rec *) dst)->bytes[1] = ((Swap32Rec *) src)->bytes[1], \
((Swap32Rec *) dst)->bytes[2] = ((Swap32Rec *) src)->bytes[2], \
((Swap32Rec *) dst)->bytes[3] = ((Swap32Rec *) src)->bytes[3] )
#define Copy4SrcLo(src, dst)\
(((Swap32Rec *) dst)->bytes[0] = ((Swap32Rec *) src)->bytes[3], \
((Swap32Rec *) dst)->bytes[1] = ((Swap32Rec *) src)->bytes[2], \
((Swap32Rec *) dst)->bytes[2] = ((Swap32Rec *) src)->bytes[1], \
((Swap32Rec *) dst)->bytes[3] = ((Swap32Rec *) src)->bytes[0] )
#define Copy2SrcHi(src, dst)\
(((Swap16Rec *) dst)->bytes[0] = ((Swap16Rec *) src)->bytes[0], \
((Swap16Rec *) dst)->bytes[1] = ((Swap16Rec *) src)->bytes[1] )
#define Copy2SrcLo(src, dst)\
(((Swap16Rec *) dst)->bytes[0] = ((Swap16Rec *) src)->bytes[1], \
((Swap16Rec *) dst)->bytes[1] = ((Swap16Rec *) src)->bytes[0] )
#endif /* SWAPBITS */
#define DPS_ERR_TAG 250
#define CONTEXTBUFFERSIZE 256
#define MAXQUEUEDBUFFERS 5
DPSContext DPSGlobalContext;
Globals DPSglobals = NULL;
char *DPScalloc(integer e, integer n)
{
char *p;
while (!(p = (char *)calloc(e, n))) {
DPSOutOfMemory();
}
return p;
}
void DPSSafeSetLastNameIndex(DPSContext ctxt)
{
/* we're about to call the error handler, so roll back the
lastNameIndex to the last known valid index */
DPSCheckInitClientGlobals();
if (ctxt != dummyCtx && ctxt->space != NIL)
((DPSPrivContext)ctxt)->lastNameIndex = ((DPSPrivSpace)(ctxt->space))->lastNameIndex;
}
void DPSCheckInitClientGlobals(void)
{
if (!DPSglobals) {
DPSglobals = (Globals)DPScalloc(sizeof(GlobalsRec), 1);
globLastNameIndex = -1;
}
}
/**************************************************************/
/* Procedures that support the DPSCreateContext context procs */
/**************************************************************/
/* ARGSUSED */
static void ReleaseInput(
char *unused, char *buffer)
{
ContextBuffer cb = (ContextBuffer)buffer;
if (cb == NIL) return;
cb->next = contextBuffers;
contextBuffers = cb;
queuedBuffers--;
}
/* ARGSUSED */
static void StuffResultVal(
DPSContext ctxt,
DPSResults result,
integer tag,
DPSBinObj obj)
{
integer type = obj->attributedType & ~DPS_EXEC;
integer nObjs = 1;
/* check if array */
if (type == DPS_ARRAY) {
nObjs = obj->length;
if (nObjs < 1) return;
if (result->count == -1 && nObjs != 1) {
DPSSafeSetLastNameIndex(ctxt);
if (ctxt->errorProc != NIL)
(*ctxt->errorProc)(ctxt, dps_err_resultTypeCheck, (long unsigned)obj, 0);
return;
}
obj = (DPSBinObj) ((char *)obj + obj->val.arrayVal);
type = obj->attributedType & ~DPS_EXEC;
}
do {
integer bump = 0;
if (result->count == 0) return;
switch (result->type) {
case dps_tBoolean:
if (type == DPS_BOOL) {
int *b = (int *) result->value;
*b = (int) obj->val.booleanVal;
bump = sizeof(int);
}
break;
case dps_tFloat: {
float *f = (float *) result->value;
if (type == DPS_REAL) {
*f = obj->val.realVal;
bump = sizeof(float);
}
else if (type == DPS_INT) {
*f = (float) obj->val.integerVal;
bump = sizeof(float);
}
break;
}
case dps_tDouble: {
double *d = (double *) result->value;
if (type == DPS_REAL) {
*d = (double) obj->val.realVal;
bump = sizeof(double);
}
else if (type == DPS_INT) {
*d = (double) obj->val.integerVal;
bump = sizeof(double);
}
break;
}
case dps_tShort:
if (type == DPS_INT) {
short *s = (short *) result->value;
*s = (short) obj->val.integerVal;
bump = sizeof(short);
}
break;
case dps_tUShort:
if (type == DPS_INT) {
unsigned short *us = (unsigned short *) result->value;
*us = (unsigned short) obj->val.integerVal;
bump = sizeof(unsigned short);
}
break;
case dps_tInt:
if (type == DPS_INT) {
int *i = (int *) result->value;
*i = (int) obj->val.integerVal;
bump = sizeof(int);
}
break;
case dps_tUInt:
if (type == DPS_INT) {
unsigned int *ui = (unsigned int *) result->value;
*ui = (unsigned int) obj->val.integerVal;
bump = sizeof(unsigned int);
}
break;
case dps_tLong:
if (type == DPS_INT) {
long int *li = (long int *) result->value;
*li = obj->val.integerVal;
bump = sizeof(long int);
}
break;
case dps_tULong:
if (type == DPS_INT) {
unsigned long *u = (unsigned long *) result->value;
*u = (unsigned long) obj->val.integerVal;
bump = sizeof(unsigned long);
}
break;
case dps_tChar:
case dps_tUChar:
if (nObjs != 1) {
DPSSafeSetLastNameIndex(ctxt);
if (ctxt->errorProc != NIL)
(*ctxt->errorProc)(ctxt, dps_err_resultTypeCheck, (long unsigned)obj, 0);
}
else if (type == DPS_STRING) {
if (result->count == -1) {
/* char * result, copy first, ignore subsequent, null terminate */
os_bcopy(((integer)(obj->val.stringVal)) + (char *)obj,
result->value, obj->length);
(result->value)[obj->length] = '\0';
result->count = 0;
}
else {
unsigned slen;
if (result->count >= (int) obj->length) {
/* copy entire string into char array */
slen = obj->length;
}
else if (result->count > 0) {
/* copy partial string into char array */
slen = result->count;
}
else return; /* ignore string result, no room left */
os_bcopy(((integer)(obj->val.stringVal)) + (char *)obj,
result->value, slen);
result->value += slen;
result->count -= slen;
}
return;
}
break;
default:
DPSSafeSetLastNameIndex(ctxt);
if (ctxt->errorProc != NIL)
(*ctxt->errorProc)(ctxt, dps_err_resultTypeCheck, (long unsigned)obj, 0);
} /* switch (result->type) */
if (bump == 0) {
DPSSafeSetLastNameIndex(ctxt);
if (ctxt->errorProc != NIL)
(*ctxt->errorProc)(ctxt, dps_err_resultTypeCheck, (long unsigned)obj, 0);
return;
}
if (result->count != -1) {
result->count--;
result->value += bump;
}
obj += 1;
nObjs--;
} while (nObjs > 0); /* do */
} /* StuffResultVal */
static void NumFormatFromTokenType(
unsigned char t,
DPSNumFormat *numFormat)
{
switch (t) {
case DPS_HI_IEEE:
*numFormat = dps_ieee;
break;
case DPS_LO_IEEE:
*numFormat = dps_ieee;
break;
case DPS_HI_NATIVE:
*numFormat = dps_native;
break;
case DPS_LO_NATIVE:
*numFormat = dps_native;
break;
default: DPSCantHappen();
}
}
#if !IEEEFLOAT
/* called to deal with results from the server */
static void ConvSeqInPlace(nObjs, currObj, base, tokenType)
integer nObjs;
DPSBinObj currObj;
char *base;
unsigned char tokenType;
{
DPSNumFormat numFormat;
NumFormatFromTokenType(tokenType, &numFormat);
while (nObjs--) {
unsigned char t = currObj->attributedType & 0x07f;
integer i;
switch (t) {
case DPS_REAL: {
float f;
if (numFormat == dps_ieee) {
if (DPSDefaultByteOrder == dps_hiFirst)
IEEEHighToNative(&currObj->val.realVal, &f);
else
IEEELowToNative(&currObj->val.realVal, &f);
}
else break; /* switch */
currObj->val.realVal = f;
break;
}
case DPS_ARRAY:
if (currObj->length > 0)
ConvSeqInPlace(currObj->length, (DPSBinObj)(base + currObj->val.arrayVal), base, tokenType);
break;
case DPS_NAME:
case DPS_STRING:
break;
default:;
} /* end switch */
++currObj;
} /* end while */
}
#endif /* !IEEEFLOAT */
boolean DPSKnownContext(DPSContext ctxt)
{
DPSPrivContext cc, c = (DPSPrivContext) ctxt;
DPSPrivSpace ss;
for (ss = spaces; ss != NIL; ss = ss->next)
for (cc = ss->firstContext; cc != NIL; cc = cc->next)
if (cc == c) return true;
return false;
}
boolean DPSKnownSpace(DPSSpace space)
{
DPSPrivSpace ss, s = (DPSPrivSpace) space;
for (ss = spaces; ss != NIL; ss = ss->next)
if (ss == s) return true;
return false;
}
void DPSclientPrintProc (
DPSContext ctxt,
char *buf,
unsigned nch)
{
DPSPrivContext cc = (DPSPrivContext) ctxt;
#define DPS_SEQ_MIN 2
DPSCheckInitClientGlobals();
if (cc == NIL) cc = (DPSPrivContext)dummyCtx;
if (cc == NIL) return;
if (nch == 0) { /* this is an EOF */
DPSAssertWarn(buf == NIL, cc, "non-nil output buffer with 0 length");
cc->eofReceived = true;
if (cc->objBuf) {
/* we were buffering; drop buffered chars on the floor */
free(cc->objBuf);
cc->objBuf = NIL;
cc->nObjBufChars = 0;
}
}
while (nch > 0) {
char *oldBuf = NIL;
unsigned oldNch = 0;
unsigned n;
if (cc->objBuf) { /* we're buffering */
unsigned long int m;
char *b = cc->objBuf + cc->nObjBufChars;
integer minSize;
while (cc->nObjBufChars < DPS_SEQ_MIN) {
if (nch == 0) return;
*b++ = *buf++;
++cc->nObjBufChars;
--nch;
}
b = cc->objBuf;
minSize = (*(b+1) == 0) ? DPS_EXT_HEADER_SIZE : DPS_HEADER_SIZE;
if (cc->nObjBufChars < minSize) {
if (nch + cc->nObjBufChars < (unsigned) minSize) {
os_bcopy(buf, b + cc->nObjBufChars, nch);
cc->nObjBufChars += nch;
return;
}
else {
os_bcopy(buf, b + cc->nObjBufChars, minSize - cc->nObjBufChars);
buf += minSize - cc->nObjBufChars;
nch -= minSize - cc->nObjBufChars;
cc->nObjBufChars = minSize;
}
}
if (minSize == DPS_HEADER_SIZE) {
unsigned short *sizeP = (unsigned short *)(cc->objBuf+2);
m = *sizeP;
}
else {
unsigned long *extSizeP = (unsigned long *)(cc->objBuf+4);
m = *extSizeP;
}
/* here with m = BOS total length in bytes, b = cc->objBuf */
cc->objBuf = (char *)realloc(b, m);
if (nch + cc->nObjBufChars < m) {
os_bcopy(buf, cc->objBuf + cc->nObjBufChars, nch);
cc->nObjBufChars += nch;
return;
}
else {
os_bcopy(buf, cc->objBuf + cc->nObjBufChars, m - cc->nObjBufChars);
buf += m - cc->nObjBufChars;
nch -= m - cc->nObjBufChars;
cc->nObjBufChars = m;
}
/* we're here only if cc->objBuf contains a complete BOS */
oldBuf = buf;
oldNch = nch;
buf = cc->objBuf;
nch = cc->nObjBufChars;
cc->objBuf = NIL;
cc->nObjBufChars = 0;
} /* if we're buffering */
/* dispose of any plain text. If no binary conversion, all output
is plain text */
if (cc->contextFlags & DPS_FLAG_NO_BINARY_CONVERSION) n = nch;
else {
for (n = 0; n < nch &&
((unsigned char) buf[n] < 128 || (unsigned char) buf[n] > 159); n++);
}
if ((n > 0) && (cc->textProc != NIL)) {
(*cc->textProc)((DPSContext)cc, buf, n);
}
buf += n;
nch -= n;
if (nch != 0) {
/* here with the next binary object sequence from a server */
DPSExtendedBinObjSeq bos;
DPSExtendedBinObjSeqRec bosRec;
DPSBinObj firstObj;
unsigned t;
unsigned long int m;
unsigned minSize;
if (nch < DPS_SEQ_MIN) {
/* gotta buffer it */
DPSAssertWarn(nch == 1 && !oldBuf, cc, "illegal binary output from context (oldBuf)");
cc->objBuf = (char *)DPScalloc(DPS_EXT_HEADER_SIZE, 1);
cc->nObjBufChars = nch;
*cc->objBuf = *buf;
return;
}
/* check for quadbyte alignment */
if ((long int)buf & (MIN_POINTER_ALIGN - 1)) {
/* not aligned, we gotta copy the buffer */
/* we assert that we can't have an oldBuf if we're not aligned,
since we only get an oldBuf if we copied to a new buffer,
and we have already tested nch to be at least DPS_SEQ_MIN */
DPSAssertWarn(!oldBuf && nch > 1, cc, "return values garbled (oldBuf||nch<DPS_SEQ_MIN");
/* copy DPS_SEQ_MIN bytes, so we can use existing buffering code */
cc->objBuf = (char *)DPScalloc(DPS_EXT_HEADER_SIZE, 1);
cc->nObjBufChars = DPS_SEQ_MIN;
os_bcopy(buf, cc->objBuf, cc->nObjBufChars);
buf += DPS_SEQ_MIN;
nch -= DPS_SEQ_MIN;
/* now go to top of loop and go through the buffer update code */
continue;
}
bos = (DPSExtendedBinObjSeq) buf;
t = bos->tokenType;
minSize = (bos->escape == 0) ? DPS_EXT_HEADER_SIZE : DPS_HEADER_SIZE;
if (nch < minSize) {
/* gotta buffer it */
char *tb;
DPSAssertWarn(!oldBuf, cc, "return values garbled (oldBuf)");
tb = cc->objBuf = (char *)DPScalloc(minSize, 1);
cc->nObjBufChars = nch;
while (nch--) *tb++ = *buf++;
return;
}
else if (minSize == DPS_HEADER_SIZE) {
/* this is not an extended BOS */
DPSBinObjSeq seqHead = (DPSBinObjSeq) buf;
bos = &bosRec;
bos->tokenType = t;
bos->nTopElements = seqHead->nTopElements;
bos->length = seqHead->length;
firstObj = &(seqHead->objects[0]);
}
else firstObj = &(bos->objects[0]);
m = bos->length;
if (nch < m) {
/* gotta buffer it */
DPSAssertWarn(!oldBuf, cc, "return values garbled (oldBuf&&nch<m");
cc->objBuf = (char *)DPScalloc(bos->length, 1);
cc->nObjBufChars = nch;
os_bcopy(buf, cc->objBuf, nch);
return;
}
DPSAssertWarn(bos->nTopElements == 1, cc, "illegal binary output detected (bos->nTopElements!=1)");
#if !IEEEFLOAT
if (t != DPS_DEF_TOKENTYPE)
ConvSeqInPlace(1, firstObj, firstObj, bos->tokenType);
#endif /* !IEEEFLOAT */
t = firstObj->tag;
if (t == DPS_ERR_TAG) {
cc->resultTable = NIL;
DPSSafeSetLastNameIndex((DPSContext)cc);
DURING
if (cc->errorProc != NIL)
(*cc->errorProc)((DPSContext)cc, dps_err_ps, (unsigned long)buf, m);
HANDLER
if (oldBuf) free(buf);
RERAISE;
END_HANDLER
}
else { /* dispatch this result */
if (!cc->resultTable || t > cc->resultTableLength) {
if (cc->chainParent == NIL && cc->errorProc != NIL) {
DPSSafeSetLastNameIndex((DPSContext)cc);
(*cc->errorProc)((DPSContext)cc, dps_err_resultTagCheck, (unsigned long)buf, m);
}
}
else if (t == cc->resultTableLength) {
cc->resultTable = NIL;
}
else {
StuffResultVal((DPSContext)cc, &cc->resultTable[t], t, firstObj);
}
}
if (!oldBuf)
buf += m;
nch -= m;
} /* if (nch != 0) ... the next binary object sequence from a server */
if (oldBuf) {
DPSAssertWarn(nch == 0, cc, "some return values/data lost (nch)");
free(buf);
buf = oldBuf;
nch = oldNch;
}
} /* while (nch > 0) */
} /* DPSclientPrintProc */
/**************************************/
/* Context procs for DPSCreateContext */
/**************************************/
static void procWaitContext(DPSContext ctxt)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short int nBytes;
DPSBinObjGeneric obj0;
DPSBinObjGeneric obj1;
DPSBinObjGeneric obj2;
DPSBinObjGeneric obj3;
} DPSQ;
static DPSQ dpsF = {
DPS_DEF_TOKENTYPE, 4, sizeof(DPSQ),
{DPS_LITERAL|DPS_INT, 0, 0, -23}, /* arbitrary int */
{DPS_LITERAL|DPS_INT, 0, 0, 0}, /* termination tag = 0 */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 119}, /* printobject */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 70}, /* flush */
}; /* DPSQ */
DPSResultsRec DPSR;
if (DPSPrivateCheckWait(ctxt)) return;
ctxt->resultTable = &DPSR; /* must be non-null for handler to work */
ctxt->resultTableLength = 0; /* same value as termination tag */
DPSBinObjSeqWrite(ctxt, (char *) &dpsF,sizeof(DPSQ));
DPSAwaitReturnValues(ctxt);
}
static void procUpdateNameMap(DPSContext ctxt)
{
integer i;
DPSPrivContext c = (DPSPrivContext) ctxt;
DPSPrivSpace s = (DPSPrivSpace) ctxt->space;
DPSContext children = ctxt->chainChild;
/* unlink context from chain temporarily, so DPSPrintf can be called */
if (children != NIL) ctxt->chainChild = NIL;
DURING
for (i = s->lastNameIndex+1; i <= globLastNameIndex; i++)
DPSPrintf(ctxt, "%d /%s defineusername\n", i, userNames[i]);
HANDLER
if (children != NIL) ctxt->chainChild = children;
RERAISE;
END_HANDLER
c->lastNameIndex = globLastNameIndex;
if (children != NIL) {
/* update any children */
ctxt->chainChild = children;
DPSUpdateNameMap(ctxt->chainChild);
}
}
static void procWriteData(
DPSContext ctxt,
char *buf,
unsigned int count)
{
/* safe to call with chain */
DPSinnerProcWriteData(ctxt, buf, count);
if (ctxt->chainChild != NIL) DPSWriteData(ctxt->chainChild, buf, count);
}
static void procBinObjSeqWrite(
DPSContext ctxt,
char *buf,
unsigned int count)
{
if (((DPSPrivContext)ctxt)->lastNameIndex < globLastNameIndex) DPSUpdateNameMap(ctxt);
DPSinnerProcWriteData(ctxt, buf, count);
if (ctxt->chainChild != NIL) DPSBinObjSeqWrite(ctxt->chainChild, buf, count);
}
static void procWriteStringChars(
DPSContext ctxt,
char *buf,
unsigned int count)
{
DPSinnerProcWriteData(ctxt, buf, count);
if (ctxt->chainChild != NIL) DPSWriteStringChars(ctxt->chainChild, buf, count);
}
static void procWritePostScript(
DPSContext ctxt,
char *buf,
unsigned int count)
{
DPSinnerProcWriteData(ctxt, buf, count);
if (ctxt->chainChild != NIL) DPSWritePostScript(ctxt->chainChild, buf, count);
}
static void innerProcWriteNumstring(
DPSContext ctxt,
DPSDefinedType type,
char *data,
unsigned int size,
int scale,
void (*writeProc)(DPSContext, char *, unsigned))
{
unsigned char HNumHeader[4];
register int i;
#define NBUFSIZE 10
int ibuf[NBUFSIZE]; /* This needs to be a 32 bit datatype */
HNumHeader[0] = 149;
switch (type) {
case dps_tLong:
HNumHeader[1] = (DPS_DEF_TOKENTYPE % 2) * 128 + scale;
break;
case dps_tInt:
HNumHeader[1] = ((sizeof(int) >= 4) ? 0 : 32)
+ ((DPS_DEF_TOKENTYPE % 2) * 128) + scale;
break;
case dps_tShort:
HNumHeader[1] = 32 + ((DPS_DEF_TOKENTYPE % 2) * 128) + scale;
break;
case dps_tFloat:
HNumHeader[1] = 48 + ((DPS_DEF_TOKENTYPE % 2) * 128)
+ ((DPS_DEF_TOKENTYPE >= 130) ? 1 : 0);
break;
default:
break;
}
HNumHeader[(DPS_DEF_TOKENTYPE % 2) ? 2 : 3] = (unsigned char) size;
HNumHeader[(DPS_DEF_TOKENTYPE % 2) ? 3 : 2] = (unsigned char) (size >> 8);
(*writeProc)(ctxt, (char *)HNumHeader, 4);
switch (type) {
case dps_tLong:
if (sizeof(long) == 4) {
(*writeProc)(ctxt, (char *) data, size * 4);
} else {
while (size > 0) {
for (i = 0; i < NBUFSIZE && (unsigned) i < size; i++) {
ibuf[i] = ((long *) data)[i];
}
(*writeProc)(ctxt, (char *) ibuf,
4 * (size < NBUFSIZE ? size : NBUFSIZE));
size -= NBUFSIZE;
}
}
break;
case dps_tInt:
(*writeProc)(ctxt, (char *) data, size * sizeof(int));
break;
case dps_tShort:
(*writeProc)(ctxt, (char *) data, size * sizeof(short));
break;
case dps_tFloat:
(*writeProc)(ctxt, (char *) data, size * sizeof(float));
default:
break;
}
} /* innerProcWriteNumstring */
static void procWriteNumstring(
DPSContext ctxt,
DPSDefinedType type,
char *data,
unsigned int size,
int scale)
{
innerProcWriteNumstring(ctxt, type, data, size, scale, DPSinnerProcWriteData);
if (ctxt->chainChild != NIL) DPSWriteNumString(ctxt->chainChild, type, data, size, scale);
}
static void writeTypedObjectArray(
DPSContext ctxt,
DPSDefinedType type,
char *array,
unsigned int length)
{
#define DPSMAX_SEQ 10
unsigned int i;
DPSPrivContext c = (DPSPrivContext)(ctxt);
static DPSBinObjGeneric bboolObj[DPSMAX_SEQ] = {
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
{DPS_LITERAL | DPS_BOOL, 0,0,0},
};
static DPSBinObjReal rrealObj[DPSMAX_SEQ] = {
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
{DPS_LITERAL | DPS_REAL, 0,0,0},
};
static DPSBinObjGeneric iintObj[DPSMAX_SEQ] = {
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
{DPS_LITERAL | DPS_INT, 0,0,0},
};
if (DPSCheckShared(c)) return;
switch (type) {
case dps_tChar:
case dps_tUChar:
DPSCantHappen();
break;
case dps_tBoolean: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
bboolObj[i].val = *((int *)array);
array += sizeof(int);
}
DPSWritePostScript(ctxt, (char *) bboolObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
case dps_tFloat: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
rrealObj[i].realVal = *((float *)array);
array += sizeof(float);
}
DPSWritePostScript(ctxt, (char *) rrealObj, sizeof(DPSBinObjReal) * i);
length -= i;
}
break;
}
case dps_tDouble: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
rrealObj[i].realVal = *((double *)array);
array += sizeof(double);
}
DPSWritePostScript(ctxt, (char *) rrealObj, sizeof(DPSBinObjReal) * i);
length -= i;
}
break;
}
case dps_tShort: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
iintObj[i].val = *((short *)array);
array += sizeof(short);
}
DPSWritePostScript(ctxt, (char *) iintObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
case dps_tUShort: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
iintObj[i].val = *((unsigned short *)array);
array += sizeof(unsigned short);
}
DPSWritePostScript(ctxt, (char *) iintObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
case dps_tInt: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
iintObj[i].val = *((int *)array);
array += sizeof(int);
}
DPSWritePostScript(ctxt, (char *) iintObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
case dps_tUInt: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
iintObj[i].val = *((unsigned int *)array);
array += sizeof(unsigned int);
}
DPSWritePostScript(ctxt, (char *) iintObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
case dps_tLong: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
iintObj[i].val = *((long *)array);
array += sizeof(long);
}
DPSWritePostScript(ctxt, (char *) iintObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
case dps_tULong: {
while (length > 0) {
for (i = 0; i < MIN(DPSMAX_SEQ, length); i++) {
iintObj[i].val = *((unsigned long *)array);
array += sizeof(unsigned long);
}
DPSWritePostScript(ctxt, (char *) iintObj, sizeof(DPSBinObjGeneric) * i);
length -= i;
}
break;
}
default:;
}
} /* writeTypedObjectArray */
static void procDestroyContext(DPSContext ctxt)
{
DPSPrivContext c = (DPSPrivContext)ctxt, cc, prev;
DPSPrivSpace ss = (DPSPrivSpace)(c->space);
if (c->buf != NIL) {
ContextBuffer b = (ContextBuffer)(c->buf);
b->next = contextBuffers;
contextBuffers = b;
c->buf = NIL;
}
if (c->objBuf != NIL) {
free(c->objBuf);
c->objBuf = NIL;
}
DPSUnchainContext(ctxt);
prev = NIL;
DPSAssert(ss != NIL);
for (cc = ss->firstContext; (cc != NIL) && (cc != c); cc = cc->next)
prev = cc;
DPSAssert(cc != NIL);
DPSAssert(cc != prev);
if (prev == NIL) ss->firstContext = cc->next;
else {
prev->next = cc->next;
DPSAssert(prev->next != prev);
}
DPSPrivateDestroyContext(ctxt);
free(c);
}
static void procDestroySpace(DPSSpace space)
{
DPSPrivSpace ns, prevS, ss = (DPSPrivSpace)space;
integer sid = ss->sid;
while (ss->firstContext != NIL)
DPSDestroyContext((DPSContext)(ss->firstContext));
prevS = NIL;
for (ns = spaces; (ns != NIL) && (ns->sid != sid); ns = ns->next)
prevS = ns;
DPSAssert(ns != NIL);
DPSAssert(ns == ss);
if (prevS == NIL) spaces = ns->next;
else {
prevS->next = ns->next;
DPSAssert(prevS->next != prevS);
}
DPSPrivateDestroySpace(space);
free(ss);
}
static void procInterrupt(DPSContext ctxt)
{
DPSPrivContext c = (DPSPrivContext)ctxt;
DPSSendInterrupt((XDPSPrivContext)c->wh, c->cid, DPSclientPrintProc);
if (ctxt->chainChild != NIL) DPSInterruptContext(ctxt->chainChild);
}
/****************************************************************/
/* Procedures that support the DPSCreateTextContext context procs */
/****************************************************************/
/* precondition: (c >= 129 && c <= 159), which means that c is the
first byte of either a binary token or a binary object sequence */
static boolean IsBinaryToken(unsigned char c)
{
return (c != DPS_HI_IEEE && c != DPS_LO_IEEE
&& c != DPS_HI_NATIVE && c != DPS_LO_NATIVE);
}
/* returns the number of initial bytes of a given goody that are
required to figure out how many bytes are needed for the entire goody */
static unsigned GetHdrNBytes(unsigned char *t)
{
if (!IsBinaryToken(*t)) {
if (*(++t) == 0) return DPS_EXT_HEADER_SIZE;
else return DPS_HEADER_SIZE;
}
switch (*t) {
case 137:
case 142:
return(2);
case 143:
case 144:
return(3);
case 149:
return(4);
default:
if (*t > 149 && *t < 160) return(1); /* unassigned */
else return(1);
}
}
static void WriteHomogeneousArrayAsASCII(
DPSContext ctxt,
register unsigned char *buf)
{
Swap32Rec n32;
Swap16Rec n16;
register unsigned char *b;
unsigned char r = *buf++;
float f;
boolean hi = (r < 128);
if (!hi) r -= 128;
DPSPrintf(ctxt, "[ ");
b = n16.bytes;
if (hi) {Copy2SrcHi(buf, b);} else {Copy2SrcLo(buf, b);}
buf += 2;
if (r < 32) /* 32-bit fixed */
while (n16.u--) {
b = n32.bytes;
if (hi) {Copy4SrcHi(buf, b);} else {Copy4SrcLo(buf, b);}
if (r == 0)
DPSPrintf(ctxt, "%d ", n32.i);
else {
f = n32.i; /* convert to float */
n32.f = f / (1 << r); /* scale */
DPSPrintf(ctxt, "%g ", n32.f);
}
buf += 4;
}
else if (r < 48) { /* 16-bit fixed */
unsigned l = n16.u;
r -= 32;
while (l--) {
b = n16.bytes;
if (hi) {Copy2SrcHi(buf, b);} else {Copy2SrcLo(buf, b);}
if (r == 0)
DPSPrintf(ctxt, "%d ", n16.i);
else {
f = n16.i; /* convert to float */
n32.f = f / (1 << r); /* scale */
DPSPrintf(ctxt, "%g ", n32.f);
}
buf += 2;
}
}
else if (r == 48) /* 32-bit IEEE */
while (n16.u--) {
#if IEEEFLOAT
b = n32.bytes;
if (hi) {Copy4SrcHi(buf, b);} else {Copy4SrcLo(buf, b);}
#else /* IEEEFLOAT */
if (hi) IEEEHighToNative(buf, &n32.f);
else IEEELowToNative(buf, &n32.f);
#endif /* IEEEFLOAT */
DPSPrintf(ctxt, "%g ", n32.f);
buf += 4;
}
else if (r == 49) /* 32-bit native */
while (n16.u--) {
b = n32.bytes;
*b++ = *buf++,*b++ = *buf++,*b++ = *buf++,*b = *buf++;
DPSPrintf(ctxt, "%g ", n32.f);
}
else DPSCantHappen();
DPSPrintf(ctxt, "\n] ");
} /* WriteHomogeneousArrayAsASCII */
/* returns the number of bytes needed for the entire goody. buf points
to enough initial bytes of the goody to figure this out (see above). */
static integer GetNBytes(register unsigned char *buf)
{
unsigned short int nBytes;
register unsigned char *r = (unsigned char *)&nBytes;
switch (*buf) {
case DPS_HI_IEEE:
case DPS_HI_NATIVE:
if (*(buf+1) == 0) {
unsigned int nb;
r = (unsigned char *)&nb;
buf += 4;
Copy4SrcHi(buf, r);
return(nb);
}
else {
buf += 2;
Copy2SrcHi(buf, r);
}
break;
case DPS_LO_IEEE:
case DPS_LO_NATIVE:
if (*(buf+1) == 0) {
unsigned int nb;
r = (unsigned char *)&nb;
buf += 4;
Copy4SrcLo(buf, r);
return(nb);
}
else {
buf += 2;
Copy2SrcLo(buf, r);
}
break;
case 132:
case 133:
case 138:
case 139:
case 140:
nBytes = 5; break;
case 134:
case 135:
nBytes = 3; break;
case 136:
case 141:
case 145:
case 146:
case 147:
case 148:
nBytes = 2; break;
case 137: {
unsigned int l = *(buf+1);
if (l < 32) {nBytes = 6; break;}
if (l < 48) {nBytes = 4; break;}
if (l-128 < 32) {nBytes = 6; break;}
if (l-128 < 48) {nBytes = 4; break;}
DPSCantHappen();
}
case 142:
nBytes = *(buf+1);
nBytes += 2;
break;
case 143:
buf++;
Copy2SrcHi(buf, r);
nBytes += 3;
break;
case 144:
buf++;
Copy2SrcLo(buf, r);
nBytes += 3;
break;
case 149: {
unsigned char scale = *(buf+1);
buf += 2;
if (scale < 128)
Copy2SrcHi(buf, r);
else {
scale -= 128;
Copy2SrcLo(buf, r);
}
if (scale < 32)
nBytes *= 4;
else if (scale < 48)
nBytes *= 2;
else
nBytes *= 4;
nBytes += 4;
break;
}
default: nBytes = 1; /* unassigned */
}
return(nBytes);
}
static void WriteSeqAsAscii(
DPSContext ctxt,
char *base,
DPSBinObj currObj,
unsigned int nObjs,
unsigned char tokenType,
int *numstringOffsets)
{
integer nLineObjs = 0;
DPSNumFormat numFormat;
float f;
long int i;
unsigned short int length;
/* NOTE: It's ok to call DPSPrintf (which calls DPSWritePostScript)
from here since we are only sending text, so there's no problem
with re-entering DPSWritePostScript. Caller guarantees
that this context has no children. */
NumFormatFromTokenType(tokenType, &numFormat);
while (nObjs--) {
unsigned char type = currObj->attributedType & ~DPS_EXEC;
boolean lit = ((currObj->attributedType & DPS_EXEC) == 0);
switch (type) {
case DPS_NULL:
break;
case DPS_BOOL:
i = currObj->val.booleanVal;
if (i)
DPSPrintf(ctxt, "true ");
else
DPSPrintf(ctxt, "false ");
break;
case DPS_INT:
i = currObj->val.integerVal;
DPSPrintf(ctxt, "%d ", i);
break;
case DPS_REAL:
#if IEEEFLOAT
f = currObj->val.realVal;
#else /* IEEEFLOAT */
if (numFormat != DPSDefaultNumFormat)
#if SWAPBITS
IEEELowToNative(&currObj->val.realVal, &f);
#else /* SWAPBITS */
IEEEHighToNative(&currObj->val.realVal, &f);
#endif /* SWAPBITS */
else
f = currObj->val.realVal;
#endif /* IEEEFLOAT */
DPSPrintf(ctxt, "%g ", f);
break;
case DPS_NAME: {
char *p = 0;
integer index;
index = currObj->val.nameVal;
length = currObj->length;
if (lit) DPSPrintf(ctxt, "/");
if (length == DPSSYSNAME) { /* system name index */
if (index <= DPS_LAST_COMMON_SYSNAME) {
if (!lit && (ctxt->contextFlags & DPS_FLAG_USE_ABBREVS)) {
p = DPSGetSysnameAbbrev(index);
if (p == NULL) p = DPSSysNames[index];
} else p = DPSSysNames[index];
} else if (DPS_FIRST_AUX_SYSNAME <= index
&& index <= DPS_LAST_AUX_SYSNAME)
p = DPSSysNamesAux[index - DPS_FIRST_AUX_SYSNAME];
else DPSCantHappen();
length = strlen(p);
}
else if (length == 0) { /* user name index */
p = DPSNameFromIndex(index);
length = strlen(p);
}
else
p = base + index;
DPSWriteData(ctxt, p, length);
DPSPrintf(ctxt, " ");
break;
}
case DPS_ARRAY:
DPSPrintf(ctxt, (lit ? "[ " : "{ "));
WriteSeqAsAscii(
ctxt,
base,
(DPSBinObj)(base+currObj->val.arrayVal),
currObj->length,
tokenType, numstringOffsets);
DPSPrintf(ctxt, (lit ? " ] " : " } "));
break;
case DPS_MARK:
if (lit)
DPSPrintf(ctxt, "/mark ");
else
DPSPrintf(ctxt, "mark ");
break;
case DPS_STRING: {
char *p;
int j;
i = currObj->val.stringVal;
length = currObj->length;
p = base + i;
if (numstringOffsets != NULL) {
for (j = 2; j < numstringOffsets[1] &&
numstringOffsets[j] != i; j++) ;
if (numstringOffsets[j] == i) {
DPSAssert(*(unsigned char *) p++ == 149);
WriteHomogeneousArrayAsASCII(ctxt, (unsigned char *) p);
break;
}
}
DPSPrintf(ctxt, "(");
#ifdef VMS
WriteVMSStringBody(ctxt, p, length); /* write this */
#else /* VMS */
/* render string bytes correctly */
while (length--) {
char c = *p++;
if (c == '(' || c == ')' || c == '\\')
DPSPrintf(ctxt, "\\%c", c);
else if (c == '\n')
DPSPrintf(ctxt, "\\n");
else if (!(isascii(c) && isprint(c)))
DPSPrintf(ctxt, "\\%03.3o", (unsigned char) c);
else DPSWriteData(ctxt, &c, 1);
}
#endif /* VMS */
DPSPrintf(ctxt, ") ");
break;
}
default: DPSCantHappen();
}
currObj++;
if (++nLineObjs == 15) {
nLineObjs = 0;
DPSPrintf(ctxt, "\n ");
}
} /* end while */
DPSPrintf(ctxt, "\n");
} /* WriteSeqAsAscii */
static void ConvertAndWriteSeqAsData(
DPSContext ctxt,
char *bosBuf,
int pass)
{
DPSPrivContext cc = (DPSPrivContext) ctxt;
DPSExtendedBinObjSeq bos;
DPSExtendedBinObjSeqRec bosRec;
DPSNumFormat numFormat;
unsigned int offset, firstCharOffset;
unsigned int nameOffset;
unsigned int len = 0;
DPSBinObj currObj;
integer headSize;
char *seqBase;
if (*(bosBuf+1) != 0) {
/* not an extended BOS */
DPSBinObjSeq seqHead = (DPSBinObjSeq) bosBuf;
bos = &bosRec;
bos->tokenType = seqHead->tokenType;
bos->escape = seqHead->nTopElements;
bos->nTopElements = seqHead->nTopElements;
bos->length = seqHead->length;
currObj = &(seqHead->objects[0]);
seqBase = (char *) &(seqHead->objects[0]);
headSize = DPS_HEADER_SIZE;
}
else {
bos = (DPSExtendedBinObjSeq) bosBuf;
currObj = &(bos->objects[0]);
seqBase = (char *) &(bos->objects[0]);
headSize = DPS_EXT_HEADER_SIZE;
}
firstCharOffset = bos->length - headSize;
nameOffset = firstCharOffset;
/* Caller guarantees that this context has no children,
so it is okay to call DPSWriteData */
NumFormatFromTokenType(bos->tokenType, &numFormat);
/* Pass 0: If we're expanding name indices, find all name objects,
lookup their strings, sum the lengths.
Write the modified sequence header regardless.
Pass 1: we're converting indices to strings and/or
converting numbers. Write each modified object, and
subsidiary strings.
Pass 2: Find all name objects, lookup and write the strings. */
if (pass == 0 && ctxt->nameEncoding != dps_strings)
/* we're just converting numbers, so skip while loop */
offset = firstCharOffset;
else
offset = 0;
while (offset < firstCharOffset) {
DPSBinObjRec newObj;
unsigned char type = (currObj->attributedType & ~DPS_EXEC);
newObj = *currObj;
#if !IEEEFLOAT
if (type == DPS_REAL) {
if (numFormat != cc->numFormat) {
if (numFormat == dps_ieee) {
if (DPSDefaultByteOrder == dps_loFirst)
IEEELowToNative(&currObj->val.realVal, &newObj.val.realVal);
else
IEEEHighToNative(&currObj->val.realVal, &newObj.val.realVal);
}
else { /* numFormat is native */
if (DPSDefaultByteOrder == dps_loFirst)
NativeToIEEELow(&currObj->val.realVal, &newObj.val.realVal);
else
NativeToIEEEHigh(&currObj->val.realVal, &newObj.val.realVal);
}
}
}
#endif /* !IEEEFLOAT */
if (type == DPS_STRING && newObj.length > 0) {
/* keep track of where strings start */
firstCharOffset = ((unsigned) newObj.val.stringVal < firstCharOffset)
? newObj.val.stringVal : firstCharOffset;
}
if (type == DPS_NAME) {
if (newObj.length == DPSSYSNAME) { /* system name index, never expand to string body */
if (pass != 1) goto next_obj;
}
else if (newObj.length == 0) { /* user name index */
register char *p = DPSNameFromIndex(newObj.val.nameVal);
switch (pass) {
case 0: len += strlen(p); goto next_obj;
case 1:
if (ctxt->nameEncoding == dps_strings) {
newObj.length = strlen(p);
newObj.val.nameVal = nameOffset;
nameOffset += newObj.length;
}
break;
case 2: DPSWriteData(ctxt, p, strlen(p)); goto next_obj;
default:;
}
}
else { /* name is already a string */
/* keep track of where strings start */
firstCharOffset = ((unsigned) newObj.val.nameVal < firstCharOffset)
? newObj.val.nameVal : firstCharOffset;
}
} /* end if type == DPS_NAME */
if (pass == 1) {
DPSWriteData(ctxt, (char *) &newObj, sizeof(newObj));
}
next_obj:
offset += sizeof(newObj);
++currObj;
} /* end while */
/* finish pass */
switch (pass) {
case 0: {
unsigned char t;
/* write modified seqHead */
if (DPSDefaultByteOrder == dps_hiFirst && cc->numFormat == dps_ieee)
t = DPS_HI_IEEE;
else if (DPSDefaultByteOrder == dps_loFirst && cc->numFormat == dps_ieee)
t = DPS_LO_IEEE;
else if (DPSDefaultByteOrder == dps_hiFirst && cc->numFormat == dps_native)
t = DPS_HI_NATIVE;
else
t = DPS_LO_NATIVE;
DPSWriteData(ctxt, (char *) &t, 1);
if (headSize == DPS_HEADER_SIZE) {
unsigned short int nBytes;
unsigned char c = bos->nTopElements;
/* write top level count */
DPSWriteData(ctxt, (char *) &c, 1);
/* write nBytes */
nBytes = (ctxt->nameEncoding == dps_strings) ? bos->length + len :
bos->length;
DPSWriteData(ctxt, (char *)&nBytes, 2);
}
else {
unsigned int nBytes;
/* write escape code & top level count */
DPSWriteData(ctxt, (char *)&bos->escape, 3);
/* write nBytes */
nBytes = (ctxt->nameEncoding == dps_strings) ? bos->length + len :
bos->length;
DPSWriteData(ctxt, (char *)&nBytes, 4);
}
break;
}
case 1: {
char *stringStart = seqBase + firstCharOffset;
DPSWriteData(ctxt, stringStart, (bos->length - headSize - firstCharOffset));
break;
}
default:;
}
} /* ConvertAndWriteSeqAsData */
#define MIN16 -32768
#define MAX16 32767
/* TestHomogeneous will return a non-negative representation code 'r'
if all of the array elements are "integers", or all are "reals".
Will return -1 for any other case. */
static integer TestHomogeneous(
DPSBinObj aryObj,
unsigned short length,
DPSNumFormat numFormat)
{
integer tmp, r = -1;
while (length--) {
switch (aryObj->attributedType & ~DPS_EXEC) {
case DPS_INT:
#if SWAPBITS
tmp = (aryObj->val.integerVal < MIN16
|| aryObj->val.integerVal > MAX16) ? 128 : 128+32;
#else /* SWAPBITS */
tmp = (aryObj->val.integerVal < MIN16
|| aryObj->val.integerVal > MAX16) ? 0 : 32;
#endif /* SWAPBITS */
if ((r == -1) || ((r & 0x07F) == 32 && (tmp & 0x07F) == 0))
r = tmp; /* first element, or was 16-bit => bump to 32-bit */
else if ((r & 0x07F) == 0 && (tmp & 0x07F) == 32)
goto bump_obj; /* is 32-bit => stay 32-bit */
else if (r != tmp)
return(-1);
/* else fall thru, r == tmp */
break;
case DPS_REAL:
#if SWAPBITS
tmp = (numFormat == dps_ieee) ? 128+48 : 128+49;
#else /* SWAPBITS */
tmp = (numFormat == dps_ieee) ? 48 : 49;
#endif /* SWAPBITS */
if (r == -1)
r = tmp;
else if (r != tmp) return(-1);
break;
default: return(-1);
}
bump_obj:
++aryObj;
}
return(r);
} /* TestHomogeneous */
static void WriteSeqAsTokens(
DPSContext ctxt,
char *base,
DPSBinObj currObj,
unsigned int nObjs,
unsigned char tokenType,
int *numstringOffsets)
{
int nLineObjs = 0;
DPSNumFormat numFormat;
unsigned short length;
Swap32Rec n32;
Swap16Rec n16;
unsigned char c;
#define PB(byte) c = (byte),DPSWriteData(ctxt, (char *) &c, 1)
#if SWAPBITS
#define WTT(byte) PB((byte)+1)
#else /* SWAPBITS */
#define WTT(byte) PB(byte)
#endif /* SWAPBITS */
NumFormatFromTokenType(tokenType, &numFormat);
while (nObjs--) {
unsigned char type = currObj->attributedType & ~DPS_EXEC;
boolean lit = ((currObj->attributedType & DPS_EXEC) == 0);
switch (type) {
case DPS_NULL:
break;
case DPS_BOOL:
PB(141); /* boolean */
if (currObj->val.booleanVal)
PB(true);
else
PB(false);
break;
case DPS_INT:
n32.i = currObj->val.integerVal;
if (n32.i < MIN16 || n32.i > MAX16) {
WTT(132); /* 32-bit int */
DPSWriteData(ctxt, (char *) n32.bytes, 4);
}
else if (n32.i < -128 || n32.i > 127) {
WTT(134); /* 16-bit int */
n16.i = n32.i;
DPSWriteData(ctxt, (char *) n16.bytes, 2);
}
else {
WTT(136); /* 8-bit int */
PB(n32.i);
}
break;
case DPS_REAL:
#if IEEEFLOAT
WTT(138); /* 32-bit IEEE float */
#else /* IEEEFLOAT */
if (numFormat != DPSDefaultNumFormat)
/* then it must be IEEE */
WTT(138); /* 32-bit IEEE float */
else
PB(140); /* 32-bit native float */
#endif /* IEEEFLOAT */
DPSWriteData(ctxt, (char *) &currObj->val.realVal, 4);
break;
case DPS_NAME: {
char *p = 0;
integer index = currObj->val.nameVal;
length = currObj->length;
if (length == DPSSYSNAME) {/* system name index */
if (index >= 0 && index < 256) {
if (lit)
PB(145); /* literal system name */
else
PB(146); /* exec. system name */
PB(index);
goto next_obj;
}
else if (DPS_FIRST_AUX_SYSNAME <= index
&& index <= DPS_LAST_AUX_SYSNAME)
p = DPSSysNamesAux[index - DPS_FIRST_AUX_SYSNAME];
else DPSCantHappen();
length = strlen(p);
}
else if (length == 0) { /* user name index */
if (ctxt->nameEncoding == dps_indexed && index < 256) {
if (lit)
PB(147); /* literal user name index */
else
PB(148); /* executable user name index */
PB(index);
goto next_obj;
}
else {
p = DPSNameFromIndex(index);
length = strlen(p);
}
}
else
p = base + index;
if (lit) DPSPrintf(ctxt, "/");
DPSWriteData(ctxt, p, length);
DPSPrintf(ctxt, " ");
break;
}
case DPS_ARRAY: {
DPSBinObj aryObj = (DPSBinObj)(base+currObj->val.arrayVal);
integer r;
length = currObj->length;
if (lit && (r = TestHomogeneous(aryObj, length, numFormat)) != -1) {
PB(149); /* homogeneous number array */
PB(r);
DPSWriteData(ctxt, (char *) &length, 2);
if (r > 127) r -= 128;
while (length--) {
switch (r) {
case 0:
DPSWriteData(ctxt, (char *) &aryObj->val.integerVal, 4);
break;
case 32:
n16.i = aryObj->val.integerVal;
DPSWriteData(ctxt, (char *) n16.bytes, 2);
break;
case 48:
case 49:
DPSWriteData(ctxt, (char *) &aryObj->val.realVal, 4);
break;
default: DPSCantHappen();
}
++aryObj;
}
}
else {
DPSPrintf(ctxt, (lit ? "[ " : "{ "));
WriteSeqAsTokens(ctxt, base, aryObj, length, tokenType,
numstringOffsets);
DPSPrintf(ctxt, (lit ? " ] " : " } "));
}
break; }
case DPS_MARK:
if (lit)
DPSPrintf(ctxt, "/mark ");
else
DPSPrintf(ctxt, "mark ");
break;
case DPS_STRING: {
char *p = base + currObj->val.stringVal;
int i;
if (numstringOffsets != NULL) {
for (i = 2; i < numstringOffsets[1] &&
numstringOffsets[i] != currObj->val.stringVal; i++) ;
if (numstringOffsets[i] == currObj->val.stringVal) {
DPSAssert(*(unsigned char *) p == 149);
DPSWriteData(ctxt, p, length);
break;
}
}
length = currObj->length;
if (length < 256) {
PB(142); /* short string */
PB(length);
}
else {
WTT(143); /* long string */
DPSWriteData(ctxt, (char *) &length, 2);
}
DPSWriteData(ctxt, p, length);
break;
}
default: DPSCantHappen();
}
next_obj:
++currObj;
if (++nLineObjs == 15) {
nLineObjs = 0;
DPSPrintf(ctxt, "\n ");
}
} /* end while */
DPSPrintf(ctxt, "\n");
} /* WriteSeqAsTokens */
static void WriteTokenAsAscii(
DPSContext ctxt,
register unsigned char *buf)
{
Swap32Rec n32;
Swap16Rec n16;
register unsigned char *b;
switch (*buf++) {
case 132: /* 32-bit int, hi */
b = n32.bytes;
Copy4SrcHi(buf, b);
DPSPrintf(ctxt, "%d ", n32.i);
break;
case 133: /* 32-bit int, lo */
b = n32.bytes;
Copy4SrcLo(buf, b);
DPSPrintf(ctxt, "%d ", n32.i);
break;
case 134: /* 16-bit int, hi */
b = n16.bytes;
Copy2SrcHi(buf, b);
DPSPrintf(ctxt, "%d ", n16.i);
break;
case 135: /* 16-bit int, lo */
b = n16.bytes;
Copy2SrcLo(buf, b);
DPSPrintf(ctxt, "%d ", n16.i);
break;
case 136: /* 8-bit int, signed */
n32.i = (char) *buf;
DPSPrintf(ctxt, "%d ", n32.i);
break;
case 137: { /* 16 or 32-bit fixed */
unsigned char r = *buf++;
float f = 0.0;
boolean hi = (r < 128);
if (!hi) r -= 128;
if (r < 32) { /* 32-bit */
b = n32.bytes;
if (hi) {Copy4SrcHi(buf, b);} else {Copy4SrcLo(buf, b);}
if (r == 0) {
DPSPrintf(ctxt, "%d ", n32.i);
break;
}
else {
f = n32.i; /* convert to float */
goto do_scale;
}
}
else if (r < 48) { /* 16-bit */
b = n16.bytes;
if (hi) {Copy2SrcHi(buf, b);} else {Copy2SrcLo(buf, b);};
if (r == 0) {
DPSPrintf(ctxt, "%d ", n16.i);
break;
}
else {
r -= 32;
f = n16.i; /* convert to float */
goto do_scale;
}
}
else DPSCantHappen();
do_scale:
n32.f = f / (1 << r); /* scale */
DPSPrintf(ctxt, "%g ", n32.f);
break;
}
case 138: /* 32-bit IEEE float, hi */
#if IEEEFLOAT
b = n32.bytes;
Copy4SrcHi(buf, b);
#else /* IEEEFLOAT */
IEEEHighToNative(buf, &n32.f);
#endif /* IEEEFLOAT */
DPSPrintf(ctxt, "%g ", n32.f);
break;
case 139: /* 32-bit IEEE float, lo */
#if IEEEFLOAT
b = n32.bytes;
Copy4SrcLo(buf, b);
#else /* IEEEFLOAT */
IEEELowToNative(buf, &n32.f);
#endif /* IEEEFLOAT */
DPSPrintf(ctxt, "%g ", n32.f);
break;
case 140: /* 32-bit native float */
b = n32.bytes;
*b++ = *buf++,*b++ = *buf++,*b++ = *buf++,*b = *buf;
DPSPrintf(ctxt, "%g ", n32.f);
break;
case 141: /* boolean */
if (*buf)
DPSPrintf(ctxt, "true ");
else
DPSPrintf(ctxt, "false ");
break;
case 142: /* short string */
DPSPrintf(ctxt, "(");
n16.u = *buf++;
goto share_str_code;
case 143: /* long string, hi */
b = n16.bytes;
Copy2SrcHi(buf, b);
DPSPrintf(ctxt, "(");
buf += 2;
goto share_str_code;
case 144: /* long string, lo */
b = n16.bytes;
Copy2SrcLo(buf, b);
DPSPrintf(ctxt, "(");
buf += 2;
share_str_code:
#ifdef VMS
WriteVMSStringBody(ctxt, buf, n16.u); /* write this */
#else /* VMS */
/* render string bytes correctly */
while (n16.u--) {
unsigned char c = *buf++;
if (c == '(' || c == ')' || c == '\\')
DPSPrintf(ctxt, "\\%c", c);
else if (c == '\n')
DPSPrintf(ctxt, "\\n");
else if (!(isascii(c) && isprint(c)))
DPSPrintf(ctxt, "\\%03.3o", c);
else DPSWriteData(ctxt, (char *) &c, 1);
}
#endif /* VMS */
DPSPrintf(ctxt, ") ");
break;
case 145: /* literal system name index */
DPSPrintf(ctxt, "/%s ", DPSSysNames[*buf]);
break;
case 146: /* executable system name index */
DPSPrintf(ctxt, "%s ", DPSSysNames[*buf]);
break;
case 147: /* literal user name index */
DPSPrintf(ctxt, "/%s ", DPSNameFromIndex(*buf));
break;
case 148: /* executable user name index */
DPSPrintf(ctxt, "%s ", DPSNameFromIndex(*buf));
break;
case 149: { /* homogeneous number array */
WriteHomogeneousArrayAsASCII(ctxt, buf);
break;
}
default:; /* unassigned */
}
} /* WriteTokenAsAscii */
/* WriteEntireGoody converts an entire binary token or binary object
sequence as specified by ctxt's encoding parameters. Write the
converted bytes via DPSWriteData. buf points to the complete goody. */
static void WriteEntireGoody(
DPSContext ctxt,
unsigned char *buf,
int *numstringOffsets)
{
DPSExtendedBinObjSeq bos = (DPSExtendedBinObjSeq) buf;
DPSExtendedBinObjSeqRec bosRec;
DPSBinObj currObj;
DPSPrivContext cc = (DPSPrivContext) ctxt;
if (IsBinaryToken(*buf)) {
/* only supported conversion is binary token to ASCII */
WriteTokenAsAscii(ctxt, buf);
if (numstringOffsets) numstringOffsets[1] = 2;
return;
}
if (bos->escape != 0) {
/* not extended BOS */
DPSBinObjSeq seqHead = (DPSBinObjSeq) buf;
bos = &bosRec;
bos->tokenType = seqHead->tokenType;
bos->escape = seqHead->nTopElements;
bos->nTopElements = seqHead->nTopElements;
bos->length = seqHead->length;
currObj = &(seqHead->objects[0]);
}
else currObj = &(bos->objects[0]);
switch (ctxt->programEncoding) {
case dps_binObjSeq:
if (ctxt->nameEncoding == dps_strings) {
/* takes three passes to do conversions */
ConvertAndWriteSeqAsData(ctxt, (char *) buf, 0);
ConvertAndWriteSeqAsData(ctxt, (char *) buf, 1);
ConvertAndWriteSeqAsData(ctxt, (char *) buf, 2);
}
else if (bos->tokenType != DPS_DEF_TOKENTYPE
|| cc->numFormat != DPSDefaultNumFormat) {
/* first pass just writes modified seqHead */
ConvertAndWriteSeqAsData(ctxt, (char *) buf, 0);
/* second pass converts numbers and writes the sequence */
ConvertAndWriteSeqAsData(ctxt, (char *) buf, 1);
}
else DPSWriteData(ctxt, (char *) buf, bos->length);
break;
case dps_ascii:
case dps_encodedTokens: {
if (ctxt->programEncoding == dps_ascii)
{
WriteSeqAsAscii(
ctxt, (char *)currObj, currObj, bos->nTopElements,
bos->tokenType, numstringOffsets);
}
else
WriteSeqAsTokens(
ctxt, (char *)currObj, currObj, bos->nTopElements,
bos->tokenType, numstringOffsets);
DPSWriteData(ctxt, "\n", 1);
break;
}
default:;
}
if (numstringOffsets) numstringOffsets[1] = 2;
} /* WriteEntireGoody */
/**************************************/
/* Context procs for DPSCreateTextContext */
/**************************************/
static void textWriteData(DPSContext ctxt, char *buf, unsigned int nch)
{
(*ctxt->textProc)(ctxt, buf, nch);
if (ctxt->chainChild != NIL) DPSWriteData(ctxt->chainChild, buf, nch);
}
static void textFlushContext(DPSContext ctxt)
{
if (ctxt->chainChild != NIL) DPSFlushContext(ctxt->chainChild);
}
static void textInterruptContext(DPSContext ctxt)
{
if (ctxt->chainChild != NIL) DPSInterruptContext(ctxt->chainChild);
}
static void textDestroyContext(DPSContext ctxt)
{
DPSPrivContext c = (DPSPrivContext)ctxt;
DPSUnchainContext(ctxt);
free(c);
}
static void textInnerWritePostScript(
DPSContext ctxt, char *buf, unsigned int nch)
{
DPSPrivContext cc = (DPSPrivContext)ctxt;
while (nch > 0) {
char *oldBuf = NIL;
integer oldNch = 0;
unsigned n;
if (cc->outBuf) { /* we're buffering */
unsigned m;
integer bst;
if (!IsBinaryToken(cc->outBuf[0]) && cc->nOutBufChars < DPS_SEQ_MIN) {
char *tb = cc->outBuf + cc->nOutBufChars;
integer nn = DPS_SEQ_MIN - cc->nOutBufChars;
DPSAssert(nn == 1);
cc->nOutBufChars += nn;
nch -= nn;
*tb++ = *buf++;
}
bst = GetHdrNBytes((unsigned char *) cc->outBuf);
/* # bytes needed to determine size */
if (cc->nOutBufChars < bst) {
char *b = cc->outBuf;
if (nch + cc->nOutBufChars < (unsigned) bst) {
os_bcopy(buf, cc->outBuf + cc->nOutBufChars, nch);
cc->nOutBufChars += nch;
return;
}
os_bcopy(buf, b + cc->nOutBufChars, bst - cc->nOutBufChars);
buf += bst - cc->nOutBufChars;
nch -= bst - cc->nOutBufChars;
cc->nOutBufChars = bst;
m = GetNBytes((unsigned char *) cc->outBuf);
cc->outBuf = (char *)DPScalloc(m, 1);
os_bcopy(b, cc->outBuf, bst);
free(b);
}
else m = GetNBytes((unsigned char *) cc->outBuf);
/* here with size of entire goody in m and outBuf set up */
if (nch + cc->nOutBufChars < m) {
os_bcopy(buf, cc->outBuf + cc->nOutBufChars, nch);
cc->nOutBufChars += nch;
return;
}
os_bcopy(buf, cc->outBuf + cc->nOutBufChars, m - cc->nOutBufChars);
buf += m - cc->nOutBufChars;
nch -= m - cc->nOutBufChars;
cc->nOutBufChars = m;
oldBuf = buf;
oldNch = nch;
buf = cc->outBuf;
nch = cc->nOutBufChars;
cc->outBuf = NIL;
cc->nOutBufChars = 0;
} /* if (cc->outBuf) */
/* dispose of any plain text. If no binary conversion, all output
is plain text */
if (cc->contextFlags & DPS_FLAG_NO_BINARY_CONVERSION) n = nch;
else {
for (n = 0; n < nch &&
((unsigned char) buf[n] < 128 || (unsigned char) buf[n] > 159); n++);
}
if (n > 0) {
/* Assumes below that any error proc called uses dpsexcept.h
if it rips control away */
DURING
DPSWriteData((DPSContext)cc, buf, n);
HANDLER
if (oldBuf) free(buf);
RERAISE;
END_HANDLER
}
buf += n;
nch -= n;
if (nch != 0) {
/* here with the next binary object sequence or encoded token */
unsigned m = 0;
integer bst;
if (!IsBinaryToken(buf[0]) && nch < DPS_SEQ_MIN) {
/* gotta buffer it */
DPSAssertWarn(nch == 1 && !oldBuf, cc, "problem converting binary token/sequence (nch!=1||oldBuf)");
cc->outBuf = (char *)DPScalloc(DPS_EXT_HEADER_SIZE, 1);
cc->nOutBufChars = nch;
cc->outBuf[0] = *buf;
return;
}
bst = GetHdrNBytes((unsigned char *) buf);
if (nch < (unsigned)bst || nch < (m = GetNBytes((unsigned char *) buf))) {
/* gotta buffer it */
DPSAssertWarn(!oldBuf, cc, "problem converting binary token/sequence (oldBuf)");
if (nch < (unsigned) bst) {
cc->outBuf = (char *)DPScalloc(bst, 1);
}
else {
cc->outBuf = (char *)DPScalloc(m, 1);
}
cc->nOutBufChars = nch;
os_bcopy(buf, cc->outBuf, nch);
return;
}
/* Assumes below that any error proc called uses dpsexcept.h
if it rips control away */
DURING
WriteEntireGoody(ctxt, (unsigned char *) buf, cc->numstringOffsets);
HANDLER
if (oldBuf) {
DPSAssertWarn(nch == m, cc, "some converted PostScript language may be lost during error recovery (nch!=m)");
free(buf);
}
RERAISE;
END_HANDLER
if (oldBuf) {
DPSAssertWarn(nch == m, cc, "some converted PostScript language may be lost (nch!=m)");
free(buf);
buf = oldBuf;
nch = oldNch;
oldBuf = NIL;
}
else {
buf += m;
nch -= m;
}
} /* if (nch != 0) */
} /* while (nch > 0) */
} /* textInnerWritePostScript */
static void textWritePostScript(
DPSContext ctxt, char *buf, unsigned int nch)
{
DPSContext children = ctxt->chainChild;
/* disconnect temporarily so that high level procs can
be called safely */
if (children != NIL) ctxt->chainChild = NIL;
DURING
textInnerWritePostScript(ctxt, buf, nch);
HANDLER
if (children != NIL) ctxt->chainChild = children;
RERAISE;
END_HANDLER
if (children != NIL) {
ctxt->chainChild = children;
DPSWritePostScript(ctxt->chainChild, buf, nch);
}
}
static void textWriteStringChars(
DPSContext ctxt, char *buf, unsigned int nch)
{
DPSContext children = ctxt->chainChild;
if (DPSCheckShared((DPSPrivContext)ctxt)) return;
/* disconnect temporarily so that high level procs can
be called safely */
if (children != NIL) ctxt->chainChild = NIL;
DURING
textInnerWritePostScript(ctxt, buf, nch);
HANDLER
if (children != NIL) ctxt->chainChild = children;
RERAISE;
END_HANDLER
if (children != NIL) {
ctxt->chainChild = children;
DPSWriteStringChars(ctxt->chainChild, buf, nch);
}
}
static void textBinObjSeqWrite(
DPSContext ctxt, char *buf, unsigned int nch)
{
DPSContext children = ctxt->chainChild;
DPSPrivContext c = (DPSPrivContext) ctxt;
if (DPSCheckShared(c)) return;
if (c->lastNameIndex < globLastNameIndex)
DPSUpdateNameMap(ctxt);
/* disconnect temporarily so that high level procs can
be called safely */
if (children != NIL) ctxt->chainChild = NIL;
DURING
textInnerWritePostScript(ctxt, buf, nch);
HANDLER
if (children != NIL) ctxt->chainChild = children;
RERAISE;
END_HANDLER
if (children != NIL) {
ctxt->chainChild = children;
DPSBinObjSeqWrite(ctxt->chainChild, buf, nch);
}
}
static void textWriteNumstring(
DPSContext ctxt,
DPSDefinedType type,
char *data,
unsigned int size,
int scale)
{
DPSPrivContext cc = (DPSPrivContext) ctxt;
#define BUFFER_GROW 10
if (cc->contextFlags & DPS_FLAG_CONVERT_NUMSTRINGS) {
if (cc->numstringOffsets == NULL) {
cc->numstringOffsets = (int *) DPScalloc(sizeof(int),
BUFFER_GROW + 2);
cc->numstringOffsets[0] = BUFFER_GROW + 2; /* Current size */
cc->numstringOffsets[1] = 2; /* Next slot */
} else if (cc->numstringOffsets[1] >= cc->numstringOffsets[0]) {
cc->numstringOffsets[0] += BUFFER_GROW;
cc->numstringOffsets =
(int *) realloc(cc->numstringOffsets,
sizeof(int)* cc->numstringOffsets[0]);
}
/* Subtract 4 because of binary object sequence header */
cc->numstringOffsets[cc->numstringOffsets[1]] = cc->nOutBufChars - 4;
cc->numstringOffsets[1] += 1;
}
innerProcWriteNumstring(ctxt, type, data, size, scale, textInnerWritePostScript);
#undef BUFFER_GROW
} /* textWriteNumstring */
/*********************/
/* Public procedures */
/*********************/
/********************************************/
/* Public procs for dealing with user names */
char *DPSNameFromIndex(long int index)
{
if (DPSglobals == NIL || index < 0 || index > globLastNameIndex
|| userNameDict == NIL)
return NIL;
return (char *) userNames[index];
}
void DPSMapNames(
DPSContext ctxt,
unsigned int nNames,
char **names,
int **indices)
{
unsigned i;
char *last = names[0];
DPSCheckInitClientGlobals();
#define USERNAMEDICTLENGTH 100
if (userNameDict == NIL) {
userNameDict = DPSCreatePSWDict(USERNAMEDICTLENGTH);
userNames = (char **)DPScalloc(sizeof(char *), USERNAMEDICTLENGTH);
userNamesLength = USERNAMEDICTLENGTH;
}
for (i = 0; i < nNames; i++) {
integer j;
char *n = names[i];
DPSContext c;
if (n == NIL)
n = last;
else
last = n;
DPSAssert(n != NIL);
if (strlen(n) > 128) {
DPSSafeSetLastNameIndex(ctxt);
(*ctxt->errorProc)(ctxt, dps_err_nameTooLong, (unsigned long) n, strlen(n));
return;
}
j = DPSWDictLookup(userNameDict, n);
if (j >= 0) {
*(indices[i]) = j;
/* handle the case where another context in another space has
defined this name */
if (((DPSPrivContext)ctxt)->lastNameIndex < j)
DPSUpdateNameMap(ctxt);
}
else {
/* handle other cases where another context in another
space has defined names */
if (((DPSPrivContext)ctxt)->lastNameIndex < globLastNameIndex)
DPSUpdateNameMap(ctxt);
globLastNameIndex++;
if (((globLastNameIndex + 1) > userNamesLength)) {
char **t = (char **)DPScalloc(sizeof(char *),
userNamesLength + USERNAMEDICTLENGTH);
for (j = 0; j < userNamesLength; j++) {
t[j] = userNames[j];
}
free(userNames);
userNames = t;
userNamesLength += USERNAMEDICTLENGTH;
}
userNames[globLastNameIndex] = n;
DPSWDictEnter(userNameDict, n, globLastNameIndex);
*(indices[i]) = globLastNameIndex;
DPSPrintf(ctxt, "%d /%s defineusername\n", globLastNameIndex, n);
for (c = ctxt; c != NIL; c = c->chainChild)
((DPSPrivContext)c)->lastNameIndex = globLastNameIndex;
}
} /* for */
}
/**********************/
/* Other public procs */
void DPSDefaultErrorProc(
DPSContext ctxt,
DPSErrorCode errorCode,
long unsigned int arg1, long unsigned int arg2)
{
DPSTextProc textProc = DPSGetCurrentTextBackstop();
char *prefix = "%%[ Error: ";
char *suffix = " ]%%\n";
char *infix = "; OffendingCommand: ";
char *nameinfix = "User name too long; Name: ";
char *contextinfix = "Invalid context: ";
char *taginfix = "Unexpected wrap result tag: ";
char *typeinfix = "Unexpected wrap result type; tag: ";
switch (errorCode) {
case dps_err_ps: {
char *buf = (char *)arg1;
DPSBinObj ary = (DPSBinObj) (buf+DPS_HEADER_SIZE);
DPSBinObj elements;
char *error, *errorName;
integer errorCount, errorNameCount;
boolean resyncFlg;
if ((ary->attributedType & 0x7f) != DPS_ARRAY
|| ary->length != 4) {
DPSHandleBogusError(ctxt, prefix, suffix);
}
elements = (DPSBinObj)(((char *) ary) + ary->val.arrayVal);
errorName = (char *)(((char *) ary) + elements[1].val.nameVal);
errorNameCount = elements[1].length;
error = (char *)(((char *) ary) + elements[2].val.nameVal);
errorCount = elements[2].length;
resyncFlg = elements[3].val.booleanVal;
if (textProc != NIL) {
(*textProc)(ctxt, prefix, strlen(prefix));
(*textProc)(ctxt, errorName, errorNameCount);
(*textProc)(ctxt, infix, strlen(infix));
(*textProc)(ctxt, error, errorCount);
(*textProc)(ctxt, suffix, strlen(suffix));
}
if (resyncFlg && (ctxt != dummyCtx) && (ctxt != NULL)) {
#if 0 /* Postpone the raise 'til later to avoid RAISEing through Xlib */
RAISE(dps_err_ps, (char *) ctxt);
DPSCantHappen();
#else
DPSPrivContext cc = (DPSPrivContext) ctxt;
cc->resyncing = true;
#endif
}
break;
}
case dps_err_nameTooLong:
if (textProc != NIL) {
char *buf = (char *)arg1;
(*textProc)(ctxt, prefix, strlen(prefix));
(*textProc)(ctxt, nameinfix, strlen(nameinfix));
(*textProc)(ctxt, buf, arg2);
(*textProc)(ctxt, suffix, strlen(suffix));
}
break;
case dps_err_invalidContext:
if (textProc != NIL) {
char m[100];
(void) sprintf(m, "%s%s%ld%s", prefix, contextinfix, arg1, suffix);
(*textProc)(ctxt, m, strlen(m));
}
break;
case dps_err_resultTagCheck:
if (textProc != NIL) {
char m[100];
unsigned char tag = *((unsigned char *) arg1+1);
(void) sprintf(m, "%s%s%d%s", prefix, taginfix, tag, suffix);
(*textProc)(ctxt, m, strlen(m));
}
break;
case dps_err_resultTypeCheck:
if (textProc != NIL) {
char m[100];
unsigned char tag = *((unsigned char *) arg1+1);
(void) sprintf(m, "%s%s%d%s", prefix, typeinfix, tag, suffix);
(*textProc)(ctxt, m, strlen(m));
}
break;
default:
DPSDefaultPrivateHandler(ctxt, errorCode, arg1, arg2, prefix, suffix);
break;
}
} /* DPSDefaultErrorProc */
void DPSCheckRaiseError(DPSContext c)
{
DPSPrivContext cc = (DPSPrivContext) c;
if (cc != NULL && cc->resyncing) {
cc->resyncing = false;
RAISE(dps_err_ps, (char *) c);
DPSCantHappen();
}
}
/**************************************/
/* Public procs for creating contexts */
/* dps_err_invalidAccess is now defined for all clients. */
static void textAwaitReturnValues(DPSContext ctxt)
{
(*ctxt->errorProc)(ctxt, dps_err_invalidAccess, 0, 0);
}
static void Noop(void)
{
}
DPSContext DPSCreateTextContext(
DPSTextProc textProc, DPSErrorProc errorProc)
{
DPSPrivContext c;
if (DPSInitialize () != 0) return((DPSContext) NIL);
if (!textCtxProcs) {
textCtxProcs = (DPSProcs)DPScalloc(sizeof(DPSProcsRec), 1);
DPSInitCommonTextContextProcs(textCtxProcs);
DPSInitSysNames();
}
c = (DPSPrivContext)DPScalloc(sizeof(DPSPrivContextRec), 1);
c->textProc = textProc;
c->procs = textCtxProcs;
c->textProc = textProc;
c->errorProc = errorProc;
c->programEncoding = dps_ascii;
c->nameEncoding = dps_strings; /* don't write user name indices on a file */
c->contextFlags = DPS_FLAG_CONVERT_NUMSTRINGS; /* Convert by default */
c->numFormat = DPSDefaultNumFormat;
c->numstringOffsets = NULL;
c->lastNameIndex = -1;
/* Setup a dummy space */
if (textSpace == NIL)
{
textSpace = (DPSPrivSpace) DPScalloc(sizeof (DPSPrivSpaceRec), 1);
textSpace->procs = (DPSSpaceProcs) DPScalloc(sizeof (DPSSpaceProcsRec), 1);
textSpace->procs->DestroySpace = (DPSSpaceProc) Noop;
textSpace->lastNameIndex = -1;
DPSInitPrivateSpaceFields(textSpace);
}
c->space = (DPSSpace) textSpace;
DPSInitPrivateTextContextFields(c, textSpace);
return (DPSContext)c;
} /* DPSCreateTextContext */
static DPSContext CreateDummyContext(void)
{
DPSPrivContext c;
DPSCheckInitClientGlobals();
if (!dummyCtxProcs) {
dummyCtxProcs = (DPSProcs)DPScalloc(sizeof(DPSProcsRec), 1);
dummyCtxProcs->BinObjSeqWrite = (DPSContextBufProc) Noop;
dummyCtxProcs->WriteTypedObjectArray = (DPSContextTypedArrayProc) Noop;
dummyCtxProcs->WriteStringChars = (DPSContextBufProc) Noop;
dummyCtxProcs->WritePostScript = (DPSContextBufProc) Noop;
dummyCtxProcs->WriteData = (DPSContextBufProc) Noop;
dummyCtxProcs->FlushContext = (DPSContextProc) Noop;
dummyCtxProcs->ResetContext = (DPSContextProc) Noop;
dummyCtxProcs->WaitContext = (DPSContextProc) Noop;
dummyCtxProcs->UpdateNameMap = (DPSContextProc) Noop;
dummyCtxProcs->AwaitReturnValues = (DPSContextProc) Noop;
dummyCtxProcs->Interrupt = (DPSContextProc) Noop;
dummyCtxProcs->DestroyContext = (DPSContextProc) Noop;
dummyCtxProcs->WriteNumString = (DPSWriteNumStringProc) Noop;
}
c = (DPSPrivContext)DPScalloc(sizeof(DPSPrivContextRec), 1);
c->procs = dummyCtxProcs;
c->programEncoding = DPSDefaultProgramEncoding;
c->nameEncoding = DPSDefaultNameEncoding; /* don't care */
c->numFormat = DPSDefaultNumFormat;
c->lastNameIndex = -1;
c->numstringOffsets = NULL;
return (DPSContext)c;
} /* CreateDummyContext */
void DPSSetTextBackstop(DPSTextProc textProc)
{
DPSCheckInitClientGlobals();
if (!dummyCtx) dummyCtx = CreateDummyContext();
dummyCtx->textProc = textProc;
}
DPSTextProc DPSGetCurrentTextBackstop(void)
{
DPSCheckInitClientGlobals();
if (dummyCtx == NIL) return NIL;
else return dummyCtx->textProc;
}
void DPSSetErrorBackstop(DPSErrorProc errorProc)
{
DPSCheckInitClientGlobals();
if (!dummyCtx) dummyCtx = CreateDummyContext();
dummyCtx->errorProc = errorProc;
}
DPSErrorProc DPSGetCurrentErrorBackstop(void)
{
DPSCheckInitClientGlobals();
if (dummyCtx == NIL) return NIL;
else return dummyCtx->errorProc;
}
static void NoteInitFailure(DPSContext ctxt, char *buf, long unsigned length)
{
initFailed = -1;
}
int DPSInitialize(void)
{
DPSCheckInitClientGlobals();
if (!clientStarted) {
clientStarted = true;
initFailed = 0;
DPSInitClient(NoteInitFailure, ReleaseInput); /* may call DPSCreateContext */
/* textProc will not be used unless DPS initialization fails */
}
return initFailed;
}
DPSContext DPSCreateContext(
char *wh,
DPSTextProc textProc,
DPSErrorProc errorProc,
DPSSpace space)
{
DPSPrivSpace ss;
DPSPrivContext c;
if (DPSInitialize() != 0) return NIL;
if (!ctxProcs) {
ctxProcs = (DPSProcs)DPScalloc(sizeof(DPSProcsRec), 1);
ctxProcs->BinObjSeqWrite = procBinObjSeqWrite;
ctxProcs->WriteTypedObjectArray = writeTypedObjectArray;
ctxProcs->WriteStringChars = procWriteStringChars;
ctxProcs->WritePostScript = procWritePostScript;
ctxProcs->WriteData = procWriteData;
ctxProcs->UpdateNameMap = procUpdateNameMap;
ctxProcs->Interrupt = procInterrupt;
ctxProcs->WriteNumString = (DPSWriteNumStringProc) procWriteNumstring;
}
if (!spaceProcs) {
spaceProcs = (DPSSpaceProcs)DPScalloc(sizeof(DPSSpaceProcsRec), 1);
DPSInitCommonSpaceProcs(spaceProcs);
}
ss = (DPSPrivSpace)space;
if (ss == NIL) {
ss = (DPSPrivSpace)DPScalloc(sizeof(DPSPrivSpaceRec), 1);
ss->procs = spaceProcs;
ss->lastNameIndex = -1;
ss->next = spaces;
DPSAssert(ss->next != ss);
spaces = ss;
DPSInitPrivateSpaceFields(ss);
}
if (ss->wh == NIL) ss->wh = wh; /* KLUDGE to support DPSSendDestroySpace */
c = (DPSPrivContext)DPScalloc(sizeof(DPSPrivContextRec), 1);
c->procs = ctxProcs;
c->wh = wh;
c->textProc = textProc;
c->errorProc = errorProc;
c->programEncoding = DPSDefaultProgramEncoding;
c->nameEncoding = DPSDefaultNameEncoding;
c->lastNameIndex = -1;
c->space = (DPSSpace)ss;
c->numstringOffsets = NULL;
c->next = ss->firstContext;
DPSAssert(c->next != c);
ss->firstContext = c;
DPSInitPrivateContextFields(c, ss);
c->numFormat = DPSCreatePrivContext(
(XDPSPrivContext)wh,
(DPSContext)c,
(ContextPSID *)&c->cid,
(SpaceXID *)&ss->sid,
(space == NIL), DPSclientPrintProc);
if (c->numFormat == (DPSNumFormat) -1)
{ /* can't create the context */
if (space == NIL) {
spaces = ss->next;
free(ss);
}
else ss->firstContext = c->next;
free(c);
return NIL;
}
else return (DPSContext)c;
} /* DPSCreateContext */
char *DPSSetWh(
DPSContext ctxt,
char *newWh)
{
DPSPrivContext cc = (DPSPrivContext) ctxt;
char *tmp = cc->wh;
cc->wh = newWh;
return(tmp);
}
/*
The chainParent field is non-NIL if this context automatically receives
a copy of the PostScript code sent to the referenced (parent) context.
The chainChild field is non-NIL if this context automatically sends along
to the referenced (child) context a copy of any PostScript code received.
*/
int DPSChainContext(DPSContext parent, DPSContext child)
{
DPSContext cc = child->chainChild;
if (child->chainParent != NIL)
return -1; /* report an error */
/* insert new child between parent and existing children */
child->chainChild = parent->chainChild;
if (parent->chainChild != NIL) {
DPSAssertWarn(parent->chainChild->chainParent == parent, (DPSPrivContext)parent, "attempting to chain context on invalid chain");
child->chainChild->chainParent = child;
}
child->chainParent = parent;
parent->chainChild = child;
/* if child has children, recursively chain them */
if (cc != NIL) {
cc->chainParent = NIL;
(void) DPSChainContext(child, cc);
}
return 0;
}
void DPSUnchainContext(DPSContext ctxt)
{
DPSContext p = ctxt->chainParent;
DPSContext c = ctxt->chainChild;
if (p != NIL) { /* remove ctxt from parent's chain */
DPSAssertWarn(p->chainChild == ctxt, (DPSPrivContext)p, "attempting to unchain context from wrong chain (parent)");
p->chainChild = c;
ctxt->chainParent = NIL;
}
if (c != NIL) { /* remove ctxt's child (if any) from ctxt's chain */
DPSAssertWarn(c->chainParent == ctxt, (DPSPrivContext)c, "attempting to unchain context from wrong chain (child)");
c->chainParent = p;
ctxt->chainChild = NIL;
}
}
/****************/
/* Veneer procs */
void DPSAwaitReturnValues(DPSContext ctxt)
{
(*(ctxt)->procs->AwaitReturnValues)((ctxt));
}
void DPSDestroyContext(DPSContext ctxt)
{
(*(ctxt)->procs->DestroyContext)((ctxt));
}
void DPSDestroySpace(DPSSpace spc)
{
(*(spc)->procs->DestroySpace)((spc));
}
void DPSFlushContext(DPSContext ctxt)
{
(*(ctxt)->procs->FlushContext)((ctxt));
}
DPSContext DPSGetCurrentContext(void) { return DPSGlobalContext; }
void DPSInterruptContext(DPSContext ctxt)
{
(*(ctxt)->procs->Interrupt)((ctxt));
}
DPSContext DPSPrivCurrentContext(void) { return DPSGlobalContext; }
void DPSResetContext(DPSContext ctxt)
{
(*(ctxt)->procs->ResetContext)((ctxt));
}
void DPSSetResultTable(
register DPSContext ctxt,
DPSResults tbl,
unsigned int len)
{
(ctxt)->resultTable = (tbl);
(ctxt)->resultTableLength = (len);
}
void DPSSetContext(
DPSContext ctxt)
{
DPSGlobalContext = ctxt;
}
void DPSUpdateNameMap(
DPSContext ctxt)
{
(*(ctxt)->procs->UpdateNameMap)((ctxt));
}
void DPSWaitContext(
DPSContext ctxt)
{
(*(ctxt)->procs->WaitContext)(ctxt);
}
void DPSBinObjSeqWrite(
DPSContext ctxt,
char *buf,
unsigned int count)
{
(*(ctxt)->procs->BinObjSeqWrite)((ctxt), (buf), (count));
}
void DPSWriteData(
DPSContext ctxt,
char *buf,
unsigned int count)
{
(*(ctxt)->procs->WriteData)((ctxt), (buf), (count));
}
void DPSWritePostScript(
DPSContext ctxt,
char *buf,
unsigned int count)
{
(*(ctxt)->procs->WritePostScript)((ctxt), (buf), (count));
}
void DPSWriteStringChars(
DPSContext ctxt,
char *buf,
unsigned int count)
{
(*(ctxt)->procs->WriteStringChars)((ctxt), (buf), (count));
}
void DPSWriteNumString(ctxt, type, data, size, scale)
DPSContext ctxt;
DPSDefinedType type;
char *data;
unsigned int size;
int scale;
{
(*(ctxt)->procs->WriteNumString)((ctxt), (type), (data), (size), (scale));
}
void DPSWriteTypedObjectArray(ctxt, type, array, length)
DPSContext ctxt;
DPSDefinedType type;
char *array;
unsigned int length; {
(*(ctxt)->procs->WriteTypedObjectArray)((ctxt), (type), (array), (length));
}
void DPSInitCommonTextContextProcs(DPSProcs p)
{
p->BinObjSeqWrite = textBinObjSeqWrite;
p->WriteTypedObjectArray = writeTypedObjectArray;
p->WriteStringChars = textWriteStringChars;
p->WritePostScript = textWritePostScript;
p->WriteData = textWriteData;
p->FlushContext = textFlushContext;
p->ResetContext = (DPSContextProc) Noop;
p->WaitContext = (DPSContextProc) Noop;
p->UpdateNameMap = procUpdateNameMap;
p->AwaitReturnValues = textAwaitReturnValues;
p->Interrupt = textInterruptContext;
p->DestroyContext = textDestroyContext;
p->WriteNumString = (DPSWriteNumStringProc) textWriteNumstring;
}
void DPSInitCommonContextProcs(DPSProcs p)
{
p->BinObjSeqWrite = procBinObjSeqWrite;
p->WriteTypedObjectArray = writeTypedObjectArray;
p->WriteStringChars = procWriteStringChars;
p->WritePostScript = procWritePostScript;
p->WaitContext = procWaitContext;
p->DestroyContext = procDestroyContext;
p->WriteData = procWriteData;
p->UpdateNameMap = procUpdateNameMap;
p->Interrupt = procInterrupt;
p->WriteNumString = (DPSWriteNumStringProc) procWriteNumstring;
}
void DPSInitCommonSpaceProcs(DPSSpaceProcs p)
{
p->DestroySpace = procDestroySpace;
}
void DPSSetNumStringConversion(ctxt, flag)
DPSContext ctxt;
int flag;
{
if (flag) ctxt->contextFlags |= DPS_FLAG_CONVERT_NUMSTRINGS;
else ctxt->contextFlags &= ~DPS_FLAG_CONVERT_NUMSTRINGS;
}
void DPSSetWrapSynchronization(ctxt, flag)
DPSContext ctxt;
int flag;
{
if (flag) ctxt->contextFlags |= DPS_FLAG_SYNC;
else ctxt->contextFlags &= ~DPS_FLAG_SYNC;
}
void DPSSuppressBinaryConversion(ctxt, flag)
DPSContext ctxt;
int flag;
{
if (flag) ctxt->contextFlags |= DPS_FLAG_NO_BINARY_CONVERSION;
else ctxt->contextFlags &= ~DPS_FLAG_NO_BINARY_CONVERSION;
}
void DPSSetAbbrevMode(ctxt, flag)
DPSContext ctxt;
int flag;
{
if (flag) ctxt->contextFlags |= DPS_FLAG_USE_ABBREVS;
else ctxt->contextFlags &= ~DPS_FLAG_USE_ABBREVS;
}
DPSContextExtensionRec *DPSGetContextExtensionRec(ctxt, extensionId)
DPSContext ctxt;
int extensionId;
{
DPSContextExtensionRec *r = ctxt->extension;
while (r != NULL && r->extensionId != extensionId) r = r->next;
return r;
}
void DPSAddContextExtensionRec(ctxt, rec)
DPSContext ctxt;
DPSContextExtensionRec *rec;
{
rec->next = ctxt->extension;
ctxt->extension = rec;
}
DPSContextExtensionRec *DPSRemoveContextExtensionRec(ctxt, extensionId)
DPSContext ctxt;
int extensionId;
{
DPSContextExtensionRec *rret, **r = &ctxt->extension;
while (*r != NULL && (*r)->extensionId != extensionId) {
r = &(*r)->next;
}
rret = *r;
if (*r != NULL) *r = (*r)->next;
return rret;
}
int DPSGenerateExtensionRecID(void)
{
static int id = 1;
return id++;
}
DPSContextType DPSGetContextType(ctxt)
DPSContext ctxt;
{
DPSPrivContext c = (DPSPrivContext) ctxt;
if (c->procs == textCtxProcs) return dps_context_text;
else return dps_context_execution;
}