#include "sgmlincl.h" /* #INCLUDE statements for SGML parser. */
#ifdef TRACE
#include "context.h"
/* Token status: RCHIT RCMISS RCEND RCREQ RCNREQ */
#define STATUX tags[ts].status
/* Trace variables.
*/
int trace = 0; /* Switch: 1=trace state transitions; 0=don't. */
int atrace = 0; /* Switch: 1=trace attribute activity; 0=don't. */
int ctrace = 0; /* Switch: 1=trace context checking; 0=don't. */
int dtrace = 0; /* Switch: 1=trace declaration parsing; 0=don't.*/
int etrace = 0; /* Switch: 1=trace entity activity; 0=don't.*/
int gtrace = 0; /* Switch: 1=trace group creations; 0=don't. */
int itrace = 0; /* Switch: 1=trace ID activity; 0=don't. */
int mtrace = 0; /* Switch: 1=trace MS activity; 0=don't. */
int ntrace = 0; /* Switch: 1=trace notation activity; 0=don't. */
char emd[] = "EMD"; /* For "EMD" parameter type in dtrace calls. */
/* Return a printable representation of c.
*/
static
char *printable(c)
int c;
{
static char buf[5];
if (c >= 040 && c < 0177) {
buf[0] = c;
buf[1] = '\0';
}
else
sprintf(buf, "\\%03o", (UNCH)c);
return buf;
}
static
VOID dotrace(s)
char *s;
{
trace = (s && strchr(s, 't') != 0);
atrace = (s && strchr(s, 'a') != 0);
ctrace = (s && strchr(s, 'c') != 0);
dtrace = (s && strchr(s, 'd') != 0);
etrace = (s && strchr(s, 'e') != 0);
gtrace = (s && strchr(s, 'g') != 0);
itrace = (s && strchr(s, 'i') != 0);
mtrace = (s && strchr(s, 'm') != 0);
ntrace = (s && strchr(s, 'n') != 0);
}
/* TRACESET: Set switches for tracing body of document.
*/
VOID traceset()
{
dotrace(sw.trace);
if (trace||atrace||ctrace||dtrace||etrace||gtrace||itrace||mtrace||ntrace)
fprintf(stderr,
"TRACESET: state=%d;att=%d;con=%d;dcl=%d;ent=%d;grp=%d;id=%d;ms=%d;dcn=%d.\n",
trace, atrace, ctrace, dtrace, etrace, gtrace, itrace,
mtrace, ntrace);
}
/* TRACEPRO: Set switches for tracing prolog.
*/
VOID tracepro()
{
dotrace(sw.ptrace);
if (trace||atrace||dtrace||etrace||gtrace||mtrace||ntrace)
fprintf(stderr,
"TRACEPRO: state=%d; att=%d; dcl=%d; ent=%d; grp=%d; ms=%d; dcn=%d.\n",
trace, atrace, dtrace, etrace, gtrace, mtrace, ntrace);
}
/* TRACEPCB: Trace character just parsed and other pcb data.
*/
VOID tracepcb(pcb)
struct parse *pcb;
{
fprintf(stderr, "%-8s %2u-%2u-%2u-%2u from %s [%3d] in %s, %d:%d.\n",
pcb->pname, pcb->state, pcb->input, pcb->action,
pcb->newstate, printable(*FPOS), *FPOS, ENTITY+1, RCNT,
RSCC+FPOS+1-FBUF);
}
/* TRACETKN: Trace character just read during token parse.
*/
VOID tracetkn(scope, lextoke)
int scope;
UNCH lextoke[]; /* Lexical table for token and name parses. */
{
fprintf(stderr, "TOKEN %2d-%2d from %s [%3d] in %s, %d:%d.\n",
scope, lextoke[*FPOS],
printable(*FPOS), *FPOS, ENTITY+1, RCNT,
RSCC+FPOS+1-FBUF);
}
/* TRACEGML: Trace state of main SGML driver routine.
*/
VOID tracegml(scb, pss, conactsw, conact)
struct restate *scb;
int pss, conactsw, conact;
{
fprintf(stderr,
"SGML%02d %2d-%2d-%2d-%2d in main driver; conactsw=%d; conact=%d.\n",
pss, scb[pss].sstate, scb[pss].sinput, scb[pss].saction,
scb[pss].snext, conactsw, conact);
}
/* TRACEVAL: Trace parse of an attribute value that is a token list.
*/
VOID traceval(pcb, atype, aval, tokencnt)
struct parse *pcb;
UNS atype; /* Type of token list expected. */
UNCH *aval; /* Value string to be parsed as token list. */
int tokencnt; /* Number of tokens found in attribute value. */
{
fprintf(stderr,
"%-8s %2d-%2d-%2d-%2d at %p, atype=%02x, tokencnt=%d: ",
pcb->pname, pcb->state, pcb->input, pcb->action,
pcb->newstate, (UNIV)aval, atype, tokencnt);
fprintf(stderr, "%s\n", aval);
}
/* TRACESTK: Trace entry just placed on tag stack.
*/
VOID tracestk(pts, ts2, etictr)
struct tag *pts; /* Stack entry for this tag. */
int ts2; /* Stack depth. */
int etictr; /* Number of "netok" tags on stack. */
{
fprintf(stderr,
"STACK %s begun; stack depth %d; tflag=%02x; etictr=%d",
pts->tetd->etdgi+1, ts2, pts->tflags, etictr);
fprintf(stderr, " srm=%s.\n",
pts->tsrm!=SRMNULL ? (char *)(pts->tsrm[0]->ename+1) : "#EMPTY");
}
/* TRACEDSK: Trace entry just removed from tag stack.
*/
VOID tracedsk(pts, ptso, ts3, etictr)
struct tag *pts; /* Stack entry for new open tag. */
struct tag *ptso; /* Stack entry for tag just ended. */
int ts3; /* Stack depth. */
int etictr; /* Number of "netok" tags on stack. */
{
fprintf(stderr,
"DESTACK %s ended; otflag=%02x; %s resumed; depth=%d; tflag=%02x; etictr=%d",
ptso->tetd->etdgi+1, ptso->tflags,
pts->tetd->etdgi+1, ts3, pts->tflags, etictr);
fprintf(stderr, " srm=%s.\n",
pts->tsrm!=SRMNULL ? (char *)(pts->tsrm[0]->ename+1) : "#EMPTY");
}
/* TRACECON: Trace interactions between content parse and stag/context
processing.
*/
VOID tracecon(etagimct, dostag, datarc, pcb, conrefsw, didreq)
int etagimct; /* Implicitly ended elements left on stack. */
int dostag; /* 1=retry newetd instead of parsing; 0=parse. */
int datarc; /* Return code for data: DAF_ or REF_ or zero. */
struct parse *pcb; /* Parse control block for this parse. */
int conrefsw; /* 1=content reference att specified; 0=no. */
int didreq; /* 1=required implied empty tag processed; 0=no.*/
{
fprintf(stderr,
"CONTENT etagimct=%d dostag=%d datarc=%d pname=%s action=%d \
conrefsw=%d didreq=%d\n",
etagimct, dostag, datarc, pcb->pname, pcb->action,
conrefsw, didreq);
}
/* TRACESTG: Trace start-tag context validation input and results.
*/
VOID tracestg(curetd, dataret, rc, nextetd, mexts)
struct etd *curetd; /* The etd for this tag. */
int dataret; /* Data pending: DAF_ REF_ 0=not #PCDATA. */
int rc; /* Return code from context or other test. */
struct etd *nextetd; /* The etd for a forced start-tag (if rc==2). */
int mexts; /* >0=stack level of minus grp; -1=plus; 0=none.*/
{
fprintf(stderr,
"STARTTAG newetd=%p; dataret=%d; rc=%d; nextetd=%p; mexts=%d.\n",
(UNIV)curetd, dataret, rc, (UNIV)nextetd, mexts);
}
/* TRACEETG: Trace end-tag matching test on stack.
*/
VOID traceetg(pts, curetd, tsl, etagimct)
struct tag *pts; /* Stack entry for this tag. */
struct etd *curetd; /* The etd for this tag. */
int tsl; /* Temporary stack level for looping. */
int etagimct; /* Num of implicitly ended tags left on stack. */
{
fprintf(stderr,
"ENDTAG tsl=%d; newetd=%p; stacketd=%p; tflags=%02x; etagimct=%d.\n",
tsl, (UNIV)curetd, (UNIV)pts->tetd, pts->tflags, etagimct);
}
/* TRACEECB: Trace entity control block activity.
*/
VOID traceecb(action, p)
char *action;
struct entity *p;
{
static char estype1[] = " TMMMSEIXCNFPDLK";
static char estype2[] = " DS ";
if (!p)
return;
fprintf(stderr,
"%-8s (es=%d) type %c%c entity %s at %p containing ",
action, es, estype1[p->estore], estype2[p->estore], p->ename+1,
(UNIV)p);
if (p->estore==ESN && strcmp(action, "ENTDEF"))
traceesn(p->etx.n);
else if (p->etx.x==0)
fprintf(stderr, "[NOTHING]");
else
fprintf(stderr, "%s",
p->etx.c[0] ? (char *)p->etx.c : "[EMPTY]");
putc('\n', stderr);
}
/* TRACEDCN: Trace data content notation activity.
*/
VOID tracedcn(p)
struct dcncb *p;
{
fprintf(stderr,
"DCN dcn=%p; adl=%p; notation is %s\n",
(UNIV)p, (UNIV)p->adl, p->ename+1);
if (p->adl)
traceadl(p->adl);
}
/* TRACEESN: Print a data entity control block.
*/
VOID traceesn(p)
PNE p;
{
fprintf(stderr, "ESN Entity name is %s; entity type is %s.\n",
(NEENAME(p)!=0) ? ((char *)NEENAME(p))+1 : "[UNDEFINED]",
/* NEXTYPE(p)); */
(NEXTYPE(p)==1 ? "CDATA" : (NEXTYPE(p)==2 ? "NDATA" : "SDATA")));
fprintf(stderr, " System ID is %s\n",
(NEID(p)!=0) ? (char *)NEID(p) : "[UNDEFINED]");
if (p->nedcn!=0)
tracedcn(p->nedcn);
}
/* TRACESRM: Print the members of a short reference map.
*/
VOID tracesrm(action, pg, gi)
char *action;
TECB pg;
UNCH *gi;
{
int i = 0; /* Loop counter. */
if (pg==SRMNULL)
fprintf(stderr, "%-8s SHORTREF table empty for %s.\n", action, gi);
else {
fprintf(stderr, "%-8s %s at %p mapped for %s.\n",
action, pg[0]->ename+1, (UNIV)pg,
gi ? (char *)gi : "definition");
while (++i<=lex.s.dtb[0].mapdata)
if (pg[i])
fprintf(stderr, "%14s%02u %p %s\n",
"SR", i, (UNIV)pg[i], pg[i]->ename+1);
}
}
/* TRACEADL: Print an attribute definition list.
*/
VOID traceadl(al)
struct ad al[];
{
int i=0;
fprintf(stderr, "ADLIST %p %d membe%s; %d attribut%s\n",
(UNIV)al, ADN(al), ADN(al)==1 ? "r" : "rs", AN(al),
AN(al)==1 ? "e" : "es");
while (++i<=ADN(al)) {
fprintf(stderr,
(BITOFF(ADFLAGS(al,i), AGROUP) && ADTYPE(al,i)<=ANOTEGRP)
? " %p %-8s %02x %02x %2d %2d %p %p\n"
: " %p %-8s %02x %02x %2d %2d %p %p\n",
&al[i], ADNAME(al,i), ADFLAGS(al,i), ADTYPE(al,i), ADNUM(al,i),
ADLEN(al,i), ADVAL(al,i), ADDATA(al,i).x);
if (ADVAL(al,i)) {
fprintf(stderr, "%s", ADVAL(al,i));
if (ADTYPE(al,i)==AENTITY && ADDATA(al,i).n!=0) {
fprintf(stderr, "=>");
traceesn(ADDATA(al,i).n);
}
else if (ADTYPE(al,i)==ANOTEGRP)
fprintf(stderr, "=>%s",
(ADDATA(al,i).x->dcnid!=0)
? (char *)ADDATA(al,i).x->dcnid
: "[UNDEFINED]");
}
else
fprintf(stderr, "[%s]",
GET(ADFLAGS(al,i), AREQ)
? "REQUIRED"
: (GET(ADFLAGS(al,i), ACURRENT) ? "CURRENT" : "NULL"));
}
fprintf(stderr, "\n");
}
/* TRACEMOD: Print the members of a model.
*/
VOID tracemod(pg)
struct thdr pg[];
{
fprintf(stderr, "MODEL %p %02x %d\n",
(UNIV)&pg[0], pg[0].ttype, pg[0].tu.tnum);
if ((pg[0].ttype & MKEYWORD) == 0) {
int i;
for (i = 1; i < pg[0].tu.tnum + 2; i++) {
if (GET(pg[i].ttype, TTMASK) == TTETD)
fprintf(stderr, " %p %02x %s\n",
(UNIV)&pg[i], pg[i].ttype, pg[i].tu.thetd->etdgi+1);
else if (GET(pg[i].ttype, TTMASK) == TTCHARS)
fprintf(stderr, " %p %02x %s\n",
(UNIV)&pg[i], pg[i].ttype, "#PCDATA");
else
fprintf(stderr, " %p %02x %d\n",
(UNIV)&pg[i], pg[i].ttype, pg[i].tu.tnum);
}
}
fprintf(stderr, "\n");
}
/* TRACEGRP: Print the members of a name (i.e., etd) group.
*/
VOID tracegrp(pg)
struct etd *pg[];
{
int i = -1; /* Loop counter. */
fprintf(stderr, "ETDGRP %p\n", (UNIV)pg);
while (pg[++i]!=0)
fprintf(stderr, " %p %s\n", (UNIV)pg[i], pg[i]->etdgi+1);
}
/* TRACENGR: Print the members of a notation (i.e., dcncb) group.
*/
VOID tracengr(pg)
struct dcncb *pg[];
{
int i = -1; /* Loop counter. */
fprintf(stderr, "DCNGRP %p\n", (UNIV)pg);
while (pg[++i]!=0)
fprintf(stderr, " %p %s\n", (UNIV)pg[i], pg[i]->ename+1);
}
/* TRACEETD: Print an element type definition.
*/
VOID traceetd(p)
struct etd *p; /* Pointer to an etd. */
{
fprintf(stderr,
"ETD etd=%p %s min=%02x cmod=%p ttype=%02x mex=%p, pex=%p, ",
(UNIV)p, p->etdgi+1, p->etdmin, (UNIV)p->etdmod,
p->etdmod->ttype, (UNIV)p->etdmex, (UNIV)p->etdpex);
fprintf(stderr, "adl=%p, srm=%s.\n",
(UNIV)p->adl,
(p->etdsrm==SRMNULL)
? "#EMPTY"
: (p->etdsrm) ? (char *)(p->etdsrm[0]->ename+1) : "#CURRENT");
}
/* TRACEID: Print an ID control block.
*/
VOID traceid(action, p)
char *action;
struct id *p; /* Pointer to an ID. */
{
fprintf(stderr, "%-8s %s at %p is %s; ", action, p->idname+1, (UNIV)p,
p->iddefed ? "defined" : "undefined");
fprintf(stderr, "last ref=%p\n", (UNIV)p->idrl);
}
/* TRACEMD: Trace a markup declaration parameter.
*/
VOID tracemd(parmid)
char *parmid; /* Parameter identifier. */
{
fprintf(stderr, "MDPARM %-8s for %-8s, token %02d, type %02u, %s.\n",
mdname, subdcl ? (char *)subdcl : "[NONE]", parmno, pcbmd.action, parmid);
}
/* TRACEMS: Trace marked section activity.
*/
VOID tracems(action, code, mslevel, msplevel)
int action; /* 1=began new level; 0=resumed previous. */
int code;
int mslevel; /* Nesting level of marked sections. */
int msplevel; /* Nested MS levels subject to special parse. */
{
fprintf(stderr,
"MS%c %2d %s nesting level %d (msp %d).\n",
(action ? ' ' : 'E'), code, (action ? "began" : "resumed"),
mslevel, msplevel);
}
static
VOID tracehits(h)
unsigned long *h;
{
int i;
fprintf(stderr, " H=");
for (i = grplongs - 1; i >= 0; --i)
fprintf(stderr, "%0*lx", LONGBITS/4, h[i]);
}
/* TRACEGI: Trace GI testing stages in CONTEXT.C processing.
*/
VOID tracegi(stagenm, gi, mod, pos, Tstart)
char *stagenm;
struct etd *gi; /* ETD of new GI. */
struct thdr mod[]; /* Model of current open element. */
struct mpos pos[]; /* Position in open element's model. */
int Tstart; /* Initial T for this group. */
{
int i = 0; /* Loop counter. */
fprintf(stderr, "%-10s %d:", stagenm, P);
while (++i<=P)
fprintf(stderr, " %d-%d", pos[i].g, pos[i].t);
fprintf(stderr, " (%u) gocc=%02x gtype=%02x gnum=%d",
M, GOCC, GTYPE, GNUM);
tracehits(H);
fprintf(stderr, " status=%d Tstart=%d\n", STATUX, Tstart);
fprintf(stderr,
"=>%-8s tocc=%02x ttype=%02x thetd=%p (%s) gietd=%p (%s)\n",
tags[ts].tetd->etdgi+1, TOCC, TTYPE, (UNIV)TOKEN.tu.thetd,
(TTYPE
? (TTYPE==TTETD ? (char *)(TOKEN.tu.thetd->etdgi+1) : "#GROUP")
: "#PCDATA"),
(UNIV)gi,
(gi==ETDCDATA ? "#PCDATA" : (char *)(gi->etdgi+1)));
}
/* TRACEEND: Trace testing for end of group in CONTEXT.C processing.
*/
VOID traceend(stagenm, mod, pos, rc, opt, Tstart)
char *stagenm;
struct thdr mod[]; /* Model of current open element. */
struct mpos pos[]; /* Position in open element's model. */
int rc; /* Return code: RCNREQ RCHIT RCMISS RCEND */
int opt; /* ALLHIT parm: 1=test optionals; 0=ignore. */
int Tstart; /* Initial T for this group. */
{
int i = 0; /* Loop counter. */
fprintf(stderr, "%-10s %d:", stagenm, P);
while (++i<=P)
fprintf(stderr, " %d-%d", pos[i].g, pos[i].t);
fprintf(stderr, " (%u) gocc=%02x gtype=%02x gnum=%d",
M, GOCC, GTYPE, GNUM);
tracehits(H);
fprintf(stderr, " status=%d Tstart=%d\n", STATUX, Tstart);
fprintf(stderr, "=>%-8s tocc=%02x ttype=%02x thetd=%p (%s)",
tags[ts].tetd->etdgi+1, TOCC, TTYPE, (UNIV)TOKEN.tu.thetd,
(TTYPE
? (TTYPE==TTETD ? (char *)(TOKEN.tu.thetd->etdgi+1) : "#GROUP")
: "#PCDATA"));
fprintf(stderr, " rc=%d offbitT=%d allhit=%d\n",
rc, offbit(H, (int)T, GNUM), allhit(&GHDR, H, 0, opt));
}
#endif /* TRACE */
/*
Local Variables:
c-indent-level: 5
c-continued-statement-offset: 5
c-brace-offset: -5
c-argdecl-indent: 0
c-label-offset: -5
End:
*/