Main Page

Source Files

Class Hierarchy

Alphabetical List

Compound List

Compound Members

File Members

Related Pages

Search for

---

libsrc/test.cxx File Reference

functions to test 2d, Span and Gran enfilades More...

#include <unistd.h>
#include <memory.h>
#include <stdlib.h>
#include <fcntl.h>
#include <ctype.h>
#include "udanax.h"

Include dependency graph for test.cxx:

Go to the source code of this file.

Defines
#define	TABSTOP   20
Functions
void	graphpoom (FILE *fd, typecorecrum *ptr)
	???
void	graphcrum (FILE *fd, typecorecrum *ptr, typedsp *offsetptr, char *indent)
	???
void	graphwid (FILE *fd, typewid *widptr, int enftype)
	???
void	graphdsp (FILE *fd, typewid *dspptr, int enftype)
	???
void	graphoffset (FILE *fd, typedsp *dspptr, int enftype)
	???
char *	nodeid (typecorecrum *ptr, char *s)
	???
void	foo (char *msg)
	???
void	foospan (char *msg, typespan *span)
	???
void	foospanset (char *msg, typespan *spanset)
	???
void	dumpspanset (typespan *spanset)
	???
void	foocrum (char *msg, typecorecrum *crumptr)
	???
void	foohex (char *msg, int num)
	???
void	foodec (char *msg, int num)
	???
void	foocontext (char *msg, Context *context)
	???
void	foocontextlist (char *msg, Context *context)
	???
void	fooitemset (char *msg, typeitemset iptr)
	???
void	fooitem (char *msg, typeitem *iptr)
	???
void	footumbler (char *msg, Tumbler *tptr)
	???
void	foodsp (char *msg, typedsp *dptr, int enftype)
	???
void	foowid (char *msg, typewid *wptr, int enftype)
	???
void	dumpsubtree (typecuc *father)
	???
void	dumpwholesubtree (typecuc *father)
	???
void	graphwholesubtree (FILE *fd, typecuc *father, typedsp *offsetptr, char *indent)
	???
void	assertspecisstring (typespecset specptr, char *string)
	???
bool	asserttreeisok (typecorecrum *ptr)
	???
void	assertsubtreeisok (typecorecrum *ptr)
	???
void	assertsonswispmatchesfather (typecuc *father)
	???
void	assertwidsarepositive (typecorecrum *ptr)
	???
void	dumpwholetree (typecorecrum *ptr)
	???
void	graphwholetree (char *filename, typecorecrum *ptr, char *graphlabel)
	???
int	checkwholesubtree (typecuc *father)
	???
int	check (typecuc *ptr)
	???
void	dump (typecorecrum *ptr)
	???
char *	safetext (char *s)
	???
char *	nodecolor (typecorecrum *ptr)
	???
char *	nodefillcolor (typecorecrum *ptr)
	???
void	yesdump (typecorecrum *ptr)
	???
void	dumphedr (typecorecrumhedr *ptr)
	???
void	dumpwid (typewid *widptr, int enftype)
	???
void	dumpdsp (typewid *dspptr, int enftype)
	???
void	dumpinfo (typegranbottomcruminfo *infoptr, int enftype)
	???
void	dumptumbler (Tumbler *tumblerptr)
	???
void	displaycutspm (typeknives *knivesptr)
	???
void	dumphint (typehint *hintptr)
	???
void	showsubtree (typecorecrum *father)
	???
void	showistream (typecuc *granfptr)
	???
void	showspanf (typecuc *spanfptr)
	???
void	doshowspanf (typecorecrum *crumptr, typedsp *offsetptr, int enfheight)
	???
void	showspanfcrum (typecorecrum *crumptr, typedsp *offsetptr, int enfheight)
	???
void	dumpmem (char *loc, unsigned count)
	???
bool	dumpgranfwids (Session *sess)
	???
void	showgranwids (typecorecrum *crum, int down, Tumbler *retptr)
	???
void	dumppoomwisps (typecorecrum *orgl)
	???
void	showpoomwisps (typecuc *crum, int down)
	???
void	dumpistreamgr (typecuc *crumptr)
	???
void	dodumpistreamgr (typecuc *crumptr, Tumbler *offsetptr)
	???
void	dumpmoleculegr (Tumbler *offsetptr, typecbc *cbcptr)
	???
void	dumpisagr (Tumbler *offsetptr)
	???
typecorecrum *	checkenftypes (typecuc *father, char *message)
	???
typecorecrum *	checkthebleedingcrum (typecorecrum *crumptr)
	???
void	teststack ()
	???
char *	enftypestring (int type)
	???
typecorecrum *	sonoriginok (typecorecrum *father)
	???
void	dumpcontextlist (Context *context)
	???
void	dumpcontext (Context *context)
	???
void	dumpitemset (typeitemset itemset)
	???
void	dumpitem (typeitem *itemptr)
	???
void	dumpspan (typespan *spanptr)
	???
void	dumptext (typetext *textptr)
	???
bool	ioinfo (Session *sess)
	???
char *	itemidstring (typeitem *item)
	???
void	checkitem (char *msg, typeitem *ptr)
	???
void	checkpointer (char *msg, char *ptr)
	???
void	dumpspanpairset (typespanpairset spanpairset)
	???
void	dumpspanpair (typespanpair *spanpair)
	???
void	dumphexstuff (char *ptr)
	???
void	checknumofsons (typecuc *ptr)
	???
void	nchecknumofsons (typecuc *ptr)
	???
Variables
typecorecrum *	grimreaper
int	reservnumber
int	numfoo = NUMDISKBLOCKSINLOAF
int	debug
long	nolread
long	nowread

---

Detailed Description

functions to test 2d, Span and Gran enfilades

(to be defined)

Definition in file test.cxx.

---

Define Documentation

#define TABSTOP   20

Definition at line 1729 of file test.cxx. Referenced by dumpisagr().

---

Function Documentation

void assertsonswispmatchesfather (  typecuc *  father  )

??? (to be defined) Definition at line 626 of file test.cxx. References assert, typediskloafptr::diskblocknumber, DISKPTRNULL, dump(), dumpwholetree(), L, typecuc::numberofsons, setwisp(), typecuc::sonorigin, and typecorecrum. Referenced by assertsubtreeisok(). { #ifndef DISTRIBUTION //UNUSED typecorecrum *son; if (father->numberofsons == 0) { if (father->sonorigin.diskblocknumber != DISKPTRNULL) return; L("zerosons in assert\n"); return; } if (setwisp((typecorecrum *) father)) { L("assert wisp matched father failed \n"); dump((typecorecrum *) father); dumpwholetree((typecorecrum *) father); assert(0); // father didn't match sons wid and disp } #endif }

void assertspecisstring (  typespecset  specptr, char *  string )

??? (to be defined) <Input: User's session context Definition at line 527 of file test.cxx. References debug, doretrievev(), Session::free(), L, typetext::length, typetext::string, typespecset, typevstuffset, and typevstuff::xxxtext. { #ifndef DISTRIBUTION Session sessfoo; typevstuffset vstuffset; //UNUSED int i; int savedebug; L("assertspecisstring entering \n"); savedebug = debug; /* debug = false; */ //Now done via a ctor:: inittask(&sessfoo); doretrievev(&sessfoo, specptr, &vstuffset); // for(i=0;(i<vstuffset->length)&&(string[i] == vstuffset->string[i]);i++) ; if(i != vstuffset->length){ // L("in assertspecisstring failedstring1 =%s string2 =%s // %d\n",string,vstuffset->string,vstuffset->length); debug = true; fooitem("spec is ",specptr); fooitem("\nvstuff is // ",vstuffset); // crash bang boom // assert(0); /* assertspecisstring asserton failed \n */; } L("in // assertspecisstring succeded %s \n",string); L("in assertspecisstring string2 =%s %d\n", vstuffset->xxxtext.string, vstuffset->xxxtext.length); sessfoo.free(); debug = savedebug; L("assertspecisstring leaving \n"); #endif }

void assertsubtreeisok (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 588 of file test.cxx. References typecorecrumhedr::age, assert, assertsonswispmatchesfather(), assertwidsarepositive(), dump(), typecorecrumhedr::height, RESERVED, reservnumber, typecorecrumhedr::rightbro, and typecorecrum. Referenced by asserttreeisok(). { #ifndef DISTRIBUTION typecorecrum *son; if (!ptr) assert(0); // assertsubtreeok failed null ptr assertwidsarepositive(ptr); if (!reservnumber) { if (ptr->age == RESERVED) { dump(ptr); assert(0); // incorrect reserved in assertsubtreeisok } } if (ptr->height == 0) return; // if (toomanysons(ptr)) { // dump(ptr); L("fatherhas too many sons\n"); // //assert(0); "foo"// } assertsonswispmatchesfather((typecuc *) ptr); for (son = ((typecuc *) ptr)->leftson /* findleftson//getleftson//(ptr) */ ; son; son = son->rightbro) { assertsubtreeisok(son); } #endif }

bool asserttreeisok (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 567 of file test.cxx. References assertsubtreeisok(), findfather(), isfullcrum(), L, and typecorecrum. Referenced by docopy(), docopyinternal(), makecutsnd(), setwispupwards(), and splitcrumupwards(). { // L("--asserttreeisok is a NOP--\n"); // return (true); L("entering asserttreeisok\n"); for (; !isfullcrum(ptr); ptr = (typecorecrum *) findfather(ptr)); assertsubtreeisok(ptr) ; return(true); }

void assertwidsarepositive (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 658 of file test.cxx. References typecorecrumhedr::cdsp, typecorecrumhedr::cenftype, typecorecrumhedr::cwid, typewid::dsas, dspsize, GRAN, tumblercheckptr(), typecorecrum, and widsize. Referenced by assertsubtreeisok(). { #ifndef DISTRIBUTION int nstreams, i; int enftype = ptr->cenftype; if (enftype == GRAN) return; nstreams = widsize(enftype); for (i = 0; i < nstreams; ++i) { tumblercheckptr(&(ptr->cwid.dsas[i]), (int *) ptr); } nstreams = dspsize(enftype); for (i = 0; i < nstreams; ++i) { tumblercheckptr(&(ptr->cdsp.dsas[i]), (int *) ptr); } #endif }

int check (  typecuc *  ptr  )

??? (to be defined) Definition at line 828 of file test.cxx. References assert, dump(), typecuc::height, typecuc::leftson, and NULL. Referenced by checkwholesubtree(), ishouldbother(), and makeithcutonson(). { return 0; #ifdef UnDeeFiNeD if (ptr->height == 0) { return 0; } if (ptr->leftson == NULL /* &&ptr->sonorigin.diskblocknumber==-1 */ && ptr->modified) { dump(ptr); assert(0); // in check } else { return 0; } assert(0); // check: can't get there return 0; #endif }

typecorecrum* checkenftypes (  typecuc *  father, char *  message )

??? (to be defined) Definition at line 1850 of file test.cxx. References grimreaper, L, NULL, and typecorecrum. { #ifndef DISTRIBUTION //UNUSED typecorecrum *ptr; if (grimreaper == NULL) L("grimreaper tests null"); return (typecorecrum *) father; // if (!father) { // fputs(stderr, message); // assert(0); // ARGH!! null father ptr // } // // if (!father->height) // return father; // // if (father->cenftype == SPAN) { // if (father->cwid.dsas[ORGLRANGE].exp == 0 && father->cwid.dsas[ORGLRANGE].mantissa[0] > 2) { // dumpsubtree(father); // fputs(stderr, message); // assert(0); // I think the wid is too big // } // } // // for (ptr * = father->leftson; ptr; ptr = ptr->rightbro) { // if (ptr->cenftype != GRAN && ptr->cenftype != POOM && ptr->cenftype != SPAN) { // fputs(stderr, message); // assert(0); // bad enftype // } // // if (ptr->cenftype != father->cenftype) { // fputs(stderr, message); // assert(0); // enftype mismatch // } // // checkenftypes(ptr, message); // } // return father; #endif }

void checkitem (  char *  msg, typeitem *  ptr )

??? (to be defined) Definition at line 2249 of file test.cxx. References assert, checkpointer(), debug, dumpitem(), L, puttumbler(), SPORGLID, TEXTID, typevspan, VSPANID, and VSPECID. Referenced by Session::freeitemset(), and onitemlist(). { #ifndef DISTRIBUTION //UNUSED char buf[100]; checkpointer(msg, (char *) ptr); if (!ptr) return; if (debug) { L(msg); dumpitem(ptr); } if (((typeitemheader *) ptr)->itemid < TEXTID || ((typeitemheader *) ptr)->itemid > SPORGLID) { L(msg); assert(0); // Bad itemtype } /* checkpointer (sprintf (buf, "%s ptr->next: ", msg), ((typeitemheader *)ptr)->next); */ if (((typeitemheader *) ptr)->itemid == VSPANID) { if (((typevspan *) ptr)->stream.mantissa[0] != 1 && ((typevspan *) ptr)->stream.mantissa[0] != 2) { L(msg); puttumbler(stderr, &((typevspan *) ptr)->stream); L(" "); assert(0); // Bad span stream address } } if (((typeitemheader *) ptr)->itemid == VSPECID) { checkitem(msg, (typeitem *) ((typevspec *) ptr)->vspanset); if (((typevspec *) ptr)->vspanset->itemid != VSPANID) assert(0); // vspanset doesn't have proper itemid } #endif }

void checknumofsons (  typecuc *  ptr  )

??? (to be defined) Definition at line 2406 of file test.cxx. References dumpsubtree(), typecuc::height, L, typecuc::leftson, typecuc::numberofsons, and typecuc::rightbro. { #ifndef DISTRIBUTION typecuc *np; int i = 0; if (!ptr || !ptr->height) return; for (np = (typecuc *) ptr->leftson; np; np = (typecuc *) np->rightbro, i++) ; if (i != ptr->numberofsons) { dumpsubtree(ptr); L("i = %d numberofsons = %d\n", i, ptr->numberofsons); for (np = (typecuc *) ptr->leftson; np; np = (typecuc *) np->rightbro, i++) { /* dump(np) */ ; } L("numberofson mismach in checknumofsons\n"); } #endif }

void checkpointer (  char *  msg, char *  ptr )

??? (to be defined) Definition at line 2295 of file test.cxx. Referenced by checkitem(), Session::free(), and Session::freeexplicit(). { return; // if (!ptr) { // if (debug) { // L(msg); // L("NULL pointer\n"); // } // return; // } // // if (((unsigned) ptr) & 1) { // L(msg); // assert(0); // Pointer non-aligned // } // // if (ptr > (char *) 0x1bffff) { // L(msg); // // if (ptr < (char *) 0x1e0000) // L("Pointer in framebuffer\n"); // // assert(0); // Pointer in high-mem // } // // if (ptr < (char *) 0x40000) { // L(msg); // assert(0); // Pointer to hardware protected low memory // } // // if (ptr < &end //etext//) { // L(msg); // assert(0); // Pointer below end // } }

typecorecrum* checkthebleedingcrum (  typecorecrum *  crumptr  )

??? (to be defined) Definition at line 1903 of file test.cxx. References grimreaper, L, NULL, and typecorecrum. { #ifndef DISTRIBUTION if (grimreaper == NULL) L("grimreaper tests null"); return crumptr; // assert(crumptr != NULL); // checkbleeding NULL crum // // if (crumptr->cenftype != GRAN && crumptr->cenftype != SPAN && crumptr->cenftype != POOM) { // L("Bad enftype in check the bleeding crum\n\n\n"); // dump(crumptr); // assert(0); // Bad enftype // } // // if (!crumptr->isapex&&crumptr->leftbroorfather..disowned.. && crumptr->cenftype != crumptr->leftbroorfather->cenftype) { // dump(crumptr); // L("\n\n\n and here comes the spanf \n"); // dumpsubtree(spanf); // dump(crumptr); // assert(0); // Enftype mismatch // } // // if (crumptr->cenftype !=GRAN) { // if (!tumblercheck(&crumptr->cdsp.dsas[V])) // assert(0); // cleckbleeding disp V // // if (!tumblercheck(&crumptr->cdsp.dsas[I])) // assert(0); // cleckbleeding disp I // } // return crumptr; #endif }

int checkwholesubtree (  typecuc *  father  )

??? (to be defined) Definition at line 788 of file test.cxx. References check(), dumpsubtree(), typecuc::height, L, typecuc::leftson, and typecorecrumhedr::rightbro. Referenced by makegappm(). { #ifndef DISTRIBUTION //UNUSED typecorecrum *ptr; return 0; #ifdef UndEfIneD if (!father) return 0; if (check(father)) { L("found something bad in checkwholesubtree\n"); dumpsubtree(father); // assert(0); // in checkwholesubtree return 1; } if (father->height <= 0) return 0; for (ptr = father->leftson; ptr; ptr = ptr->rightbro) if (checkwholesubtree(ptr)) return 1; return 0; #endif #endif }

void displaycutspm (  typeknives *  knivesptr  )

??? (to be defined) Definition at line 1365 of file test.cxx. References typeknives::blades, L, typeknives::nblades, and puttumbler(). Referenced by makeithcutonson(). { #ifndef DISTRIBUTION int i; L("%x cuts:", knivesptr->nblades); for (i = 0; i < knivesptr->nblades; ++i) { L("\n "); puttumbler(stderr, &knivesptr->blades[i]); } L("\n"); #endif }

void dodumpistreamgr (  typecuc *  crumptr, Tumbler *  offsetptr )

??? (to be defined) Definition at line 1761 of file test.cxx. References typecuc::cwid, typewid::dsas, dumpmoleculegr(), findleftson(), typecuc::height, typecorecrumhedr::rightbro, tumbleradd, typecorecrum, and WIDTH. Referenced by dumpistreamgr(). { #ifndef DISTRIBUTION typecorecrum *ptr; if (crumptr->height == 0) { dumpmoleculegr(offsetptr, (typecbc *) crumptr); tumbleradd(offsetptr, &crumptr->cwid.dsas[WIDTH], offsetptr); return; } for (ptr = findleftson(crumptr); ptr; ptr = ptr->rightbro) dodumpistreamgr((typecuc *) ptr, offsetptr); #endif }

void doshowspanf (  typecorecrum *  crumptr, typedsp *  offsetptr, int  enfheight )

??? (to be defined) Definition at line 1472 of file test.cxx. References typecorecrumhedr::cdsp, typecorecrumhedr::cenftype, dspadd(), findleftson(), typecorecrumhedr::height, NULL, typecorecrumhedr::rightbro, showspanfcrum(), typecorecrum, and typedsp. Referenced by showspanf(). { #ifndef DISTRIBUTION typecorecrum *ptr = NULL; typedsp loffset; showspanfcrum(crumptr, offsetptr, enfheight); if (crumptr->height <= 0) return; dspadd(offsetptr, &crumptr->cdsp, &loffset, crumptr->cenftype); for (ptr = findleftson((typecuc *) crumptr); ptr; ptr = ptr->rightbro) doshowspanf(ptr, &loffset, enfheight); #endif }

void dump (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 860 of file test.cxx. References typecorecrumhedr::cenftype, dumphedr(), dumpinfo(), typecorecrumhedr::height, L, and typecorecrum. Referenced by assertsonswispmatchesfather(), assertsubtreeisok(), check(), checkmodifiednotthere(), disown(), disownnomodify(), dumpsubtree(), dumpwholesubtree(), findleftson(), foocrum(), funcrejuvinate(), inorglinternal(), isreapable(), makecontextfromcbc(), makegappm(), makeithcutonson(), slicecbcpm(), subtreewriterecurs(), testforreservedness(), tumblercheckptr(), varpackloaf(), varunpackloaf(), and yesdump(). { #ifndef DISTRIBUTION L("\n"); dumphedr(ptr); if (ptr->height) { L("sonorigin = %x insideloaf %x leftson = %x #sons = %x\n", ((typecuc *) ptr)->sonorigin.diskblocknumber, ((typecuc *) ptr)->sonorigin.insidediskblocknumber, (int) ((typecuc *) ptr)->leftson, ((typecuc *) ptr)->numberofsons); } else { dumpinfo(&((typecbc *) ptr)->cinfo, ptr->cenftype); } #endif }

void dumpcontext (  Context *  context  )

??? (to be defined) Definition at line 2042 of file test.cxx. References Context::contextinfo, ContextBase::contexttype, ContextBase::contextwid, debug, dumpdsp(), dumpinfo(), dumpwid(), enftypestring(), L, NULL, and ContextBase::totaloffset. Referenced by analyzeanddebug(), dumpcontextlist(), foocontext(), and makecontextfromcbc(). { #ifndef DISTRIBUTION L(" context %x:\n", (int) context); if (context == NULL) { L("NULL context\n"); return; } L(" contexttype %s\n", enftypestring(context->contexttype)); L(" totaloffset "); dumpdsp(&context->totaloffset, context->contexttype); L(" contextwid "); dumpwid(&context->contextwid, context->contexttype); if (debug > 1) { L(" contextinfo "); dumpinfo((typegranbottomcruminfo *) &context->contextinfo, context->contexttype); } #endif }

void dumpcontextlist (  Context *  context  )

??? (to be defined) Definition at line 2017 of file test.cxx. References dumpcontext(), L, and ContextBase::nextcontext. Referenced by foocontextlist(). { #ifndef DISTRIBUTION L("contextlist :\n"); if (!context) { L(" contextlist NULL\n"); return; } for (; context; context = (Context *) context->nextcontext) { dumpcontext(context); } #endif }

void dumpdsp (  typewid *  dspptr, int  enftype )

??? (to be defined) Definition at line 1218 of file test.cxx. References typewid::dsas, dspsize, L, and puttumbler(). Referenced by dumpcontext(), dumphedr(), and foodsp(). { #ifndef DISTRIBUTION int i; /* if (enftype == GRAN) return; */ int nstreams = dspsize(enftype); L("dsp = < "); for (i = 0; i < nstreams; ++i) { if (i > 0) L(" , "); puttumbler(stderr, &dspptr->dsas[i]); } L(" >\n"); #endif }

bool dumpgranfwids (  Session *  sess  )

??? (to be defined) Parameters: sess  Input: User's session context Definition at line 1572 of file test.cxx. References granf, Session::inp, L, puttumbler(), showgranwids(), tumblereq(), typecorecrum, and WIDTH. : User's session context { #ifndef DISTRIBUTION Tumbler subtreewid; //UNUSED int fullheight; /* fullheight = ((typecorecrum *)granf)->height; */ showgranwids((typecorecrum *) granf, 0, &subtreewid); if (!tumblereq(&subtreewid, &((typecorecrum *) granf)->cwid.dsas[WIDTH])) { L("Granfilade fullcrum wid and widded enfilade don\'t match.\n"); L("gran fullcrum wid "); puttumbler(stderr, &((typecorecrum *) granf)->cwid.dsas[WIDTH]); L("\nreturned wid from subtree "); puttumbler(stderr, &subtreewid); L("\nHit \"<return>\" to continue, \"a<return>\" to abort "); if (getc(sess->inp) == 'a') abort(); } L("\n"); #endif return true; }

void dumphedr (  typecorecrumhedr *  ptr  )

??? (to be defined) Definition at line 1117 of file test.cxx. References typecorecrumhedr::age, typecorecrumhedr::cdsp, typecorecrumhedr::cenftype, typecorecrumhedr::cwid, dumpdsp(), dumpwid(), GRAN, typecorecrumhedr::height, L, typecorecrumhedr::leftbroorfather, typecorecrumhedr::nextcrum, POOM, typecorecrumhedr::rightbro, and SPAN. Referenced by dump(). { #ifndef DISTRIBUTION char *temp; switch (ptr->cenftype) { case GRAN: temp = "GRAN"; break; case SPAN: temp = "SPAN"; break; case POOM: temp = "POOM"; break; default: temp = "????"; L(" %d ", ptr->cenftype); break; } const char *full = (ptr->isapex ? "full" : ""); // ===GRAN fullcrum height=0 // 00000000 < coreaddr@xxxxxxxx > 00000000 // | age=dd modified=1 next@xxxxxxxx // | dsp = < 0 > // | wid = < 1.7.0.9.0.1.0.1 > // \ v / // 00000000 // /--GRAN fullcrum h=0 // 00000000 < coreaddr@xxxxxxxx > 00000000 // | age=dd modified=1 next@xxxxxxxx // | dsp = < 0 > // | wid = < 1.7.0.9.0.1.0.1 > // \ v / // 00000000 L("%s %scrum core location = %x\n", temp, full, (int) ptr); L("height = %x nextcrum = %x modified = %x\n", ptr->height, (int) ptr->nextcrum, ptr->modified); L(" age = %x ", ptr->age); L("isleftmost = %x leftbro = %x rightbro = %x\n", ptr->isleftmost, (int) ptr->leftbroorfather, (int) ptr->rightbro); dumpdsp(&ptr->cdsp, ptr->cenftype); dumpwid(&ptr->cwid, ptr->cenftype); #endif }

void dumphexstuff (  char *  ptr  )

??? (to be defined) Definition at line 2384 of file test.cxx. References L. Referenced by findandallocateinsidediskblocknumber(), and varunpackloaf(). { #ifndef DISTRIBUTION int i; L("\n"); for (i = 0; i < 120; i++) L("%x ", *(ptr + i) & 0xff); L("\n"); #endif }

void dumphint (  typehint *  hintptr  )

??? (to be defined) Definition at line 1388 of file test.cxx. References typehint::atomtype, typehint::hintisa, L, puttumbler(), typehint::subtype, and typehint::supertype. { #ifndef DISTRIBUTION L("\nHINT\n"); L(" supertype: %d\n", hintptr->supertype); L(" subtype: %d\n", hintptr->subtype); L(" atomtype: %d\n", hintptr->atomtype); L(" isa: "); puttumbler(stderr, &hintptr->hintisa); L("\n"); #endif }

void dumpinfo (  typegranbottomcruminfo *  infoptr, int  enftype )

??? (to be defined) Definition at line 1294 of file test.cxx. References assert, typegranorgl::diskorglptr, GRAN, GRANNULL, GRANORGL, typegranbottomcruminfo::granstuff, GRANTEXT, typegranbottomcruminfo::infotype, L, typegranorgl::orglptr, typegranstuff::orglstuff, puttumbler(), typegrantext::textstring, and typegranstuff::textstuff. Referenced by dump(), and dumpcontext(). { #ifndef DISTRIBUTION if (enftype == GRAN) { switch (infoptr->infotype) { case GRANTEXT: L("text: %s\n", infoptr->granstuff.textstuff.textstring); break; case GRANORGL: L(" diskorgl %x, ", infoptr->granstuff.orglstuff.diskorglptr); L("orgl %x\n ", (int) infoptr->granstuff.orglstuff.orglptr); break; case GRANNULL: L("GRANNULL info\n"); break; default: L("empty infotype: %d\n", infoptr->infotype); assert(0); // bad in dumpinfo } } else { L("home document: "); puttumbler(stderr, &((type2dbottomcruminfo *) infoptr)->homedoc); L("\n"); } #endif }

void dumpisagr (  Tumbler *  offsetptr  )

??? (to be defined) Definition at line 1815 of file test.cxx. References Tumbler::exp, L, Tumbler::mantissa, movetumbler, NPLACES, nstories(), puttumbler(), and TABSTOP. { #ifndef DISTRIBUTION int i, j, k; Tumbler offset; movetumbler(offsetptr, &offset); i = nstories(&offset) - offset.exp; i += i - 1; for (j = 0; j < NPLACES; ++j) for (k = offset.mantissa[j]; k /= 10; ++i) ; i = TABSTOP - i; if (i < 2) { L("too long"); i = 8; } else puttumbler(stderr, &offset); while (i--) L(" "); #endif }

void dumpistreamgr (  typecuc *  crumptr  )

??? (to be defined) Definition at line 1739 of file test.cxx. References debug, dodumpistreamgr(), and tumblerclear. Referenced by showistream(). { #ifndef DISTRIBUTION Tumbler offset; if (debug < 5) return; tumblerclear(&offset); dodumpistreamgr(crumptr, &offset); #endif }

void dumpitem (  typeitem *  itemptr  )

??? (to be defined) Definition at line 2100 of file test.cxx. References assert, debug, dumpitemset(), dumpspan(), dumptext(), ISPANID, L, LINKID, puttumbler(), SPORGLID, TEXTID, typelink, VSPANID, and VSPECID. Referenced by analyzeanddebug(), checkitem(), dumpitemset(), and fooitem(). { #ifndef DISTRIBUTION int bugger = debug; debug = 0; /* checkitem ("dumpitem: ", itemptr); */ L("%x ->%x:", (int) itemptr, (int) ((typeitemheader *) itemptr)->next); switch (((typeitemheader *) itemptr)->itemid) { case ISPANID: L(" ispan\n"); dumpspan((typespan *) itemptr); break; case VSPANID: L(" vspan\n"); dumpspan((typespan *) itemptr); break; case VSPECID: L("document: "); puttumbler(stderr, &((typevspec *) itemptr)->docisa); L("\nspans"); dumpitemset((typeitem *) ((typevspec *) itemptr)->vspanset); break; case TEXTID: dumptext((typetext *) itemptr); break; case LINKID: puttumbler(stderr, &((typelink *) itemptr)->address); break; case SPORGLID: L("sporgl address: "); puttumbler(stderr, &((typesporgl *) itemptr)->sporgladdress); L("\n sporgl origin: "); puttumbler(stderr, &((typesporgl *) itemptr)->sporglorigin); L("\n sporgl width: "); puttumbler(stderr, &((typesporgl *) itemptr)->sporglwidth); L("\n"); break; default: L("illegal item id for dumpitem "); L("%x %d\nd", (int) itemptr, ((typeitemheader *) itemptr)->itemid); assert(0); // Illegal item in dumpitem! } debug = bugger; #endif }

void dumpitemset (  typeitemset  itemset  )

??? (to be defined) Definition at line 2075 of file test.cxx. References dumpitem(), L, NULL, TEXTID, and typeitemset. Referenced by dumpitem(), fooitemset(), and insertpm(). { #ifndef DISTRIBUTION if (itemset == NULL) L(" \nitemset empty\n"); for (; itemset; itemset = (typeitemset) ((typeitemheader *) itemset)->next) { dumpitem(itemset); if (! (((typeitemheader *) itemset)->next && ((typeitemheader *) itemset)->itemid == TEXTID && ((typeitemheader *) itemset)->next->itemid == TEXTID)) putc('\n', stderr); } #endif }

void dumpmem (  char *  loc, unsigned  count )

??? (to be defined) Definition at line 1544 of file test.cxx. References L. { #ifndef DISTRIBUTION int i; L(" loc = %x\n", (int) loc); for (i = 0; count--; ++loc, (i + 1 < 64 ? ++i : (i = 0))) { if ((*loc & 0x7f) < ' ') L("%c", '.'); else L("%c", *loc); if (i == 63) L("\n"); } L("\n"); #endif }

void dumpmoleculegr (  Tumbler *  offsetptr, typecbc *  cbcptr )

??? (to be defined) Definition at line 1787 of file test.cxx. Referenced by dodumpistreamgr(). { #ifndef DISTRIBUTION //UNUSED int i; //UNUSED Tumbler localoffset; /* L("\n"); dumpisagr (offsetptr); if (cbcptr->cinfo.infotype == GRANTEXT) { if * (cbcptr->cinfo.textstring[0] == '\n') L("\\n"); else if (cbcptr->cinfo.textstring[0] == '\t') * L("\\t"); else L("%c ",cbcptr->cinfo.textstring[0]); L(" | %x ", cbcptr); * dumpwid (&cbcptr->cwid, GRAN); movetumbler (offsetptr, &localoffset); for (i = 1; i < cbcptr->cinfo.textlength; * ++i){ tumblerincrement (&localoffset, 0, 1, &localoffset); dumpisagr (&localoffset); if (cbcptr->cinfo.textstring[i] * == '\n') L("\\n"); else if (cbcptr->cinfo.textstring[i] == '\t') L("\\t"); else * L("%c ",cbcptr->cinfo.textstring[i]); L(" |\n"); } } else if (cbcptr->cinfo.infotype == * GRANORGL) { L("%x",cbcptr->cinfo.orglptr); L(" | %x ", cbcptr); dumpwid (&cbcptr->cwid, * GRAN); } else { L(" | %x ", cbcptr); dumpwid (&cbcptr->cwid, GRAN); } */ #endif }

void dumppoomwisps (  typecorecrum *  orgl  )

??? (to be defined) Definition at line 1668 of file test.cxx. References L, showpoomwisps(), and typecorecrum. Referenced by dumpsubtree(), dumpwholesubtree(), and rearrangend(). { L("Entering dumppoomwisps\n"); #ifndef DISTRIBUTION //UNUSED int fullheight; /* fullheight = orgl->height; */ showpoomwisps((typecuc *) orgl, 0); L("\n"); #endif L("Leaving dumppoomwisps\n"); }

void dumpspan (  typespan *  spanptr  )

??? (to be defined) Definition at line 2162 of file test.cxx. References L, puttumbler(), typespan::stream, and typespan::width. Referenced by analyzeanddebug(), dumpitem(), dumpspanset(), foospan(), and foospanset(). { #ifndef DISTRIBUTION if (!spanptr) { L("null span ptr\n"); return; } L(" span address: "); puttumbler(stderr, &spanptr->stream); L(" span width: "); puttumbler(stderr, &spanptr->width); L("\n"); #endif }

void dumpspanpair (  typespanpair *  spanpair  )

??? (to be defined) Definition at line 2359 of file test.cxx. References dumptumbler(), L, typespanpair::stream1, typespanpair::stream2, and typespanpair::widthofspan. Referenced by dumpspanpairset(). { #ifndef DISTRIBUTION L("stream1: "); dumptumbler(&spanpair->stream1); L("\nstream2: "); dumptumbler(&spanpair->stream2); L("\nwidth: "); dumptumbler(&spanpair->widthofspan); L("\n"); #endif }

void dumpspanpairset (  typespanpairset  spanpairset  )

??? (to be defined) Definition at line 2342 of file test.cxx. References dumpspanpair(), typespanpair::nextspanpair, and typespanpairset. Referenced by ispansetandspecsets2spanpairset(). { #ifndef DISTRIBUTION for (; spanpairset; spanpairset = spanpairset->nextspanpair) dumpspanpair(spanpairset); #endif }

void dumpspanset (  typespan *  spanset  )

??? (to be defined) Definition at line 197 of file test.cxx. References dumpspan(), L, and typespan::next. { #ifndef DISTRIBUTION if (!spanset) { L("null spanset\n"); } else { for (; spanset; spanset = spanset->next) { dumpspan(spanset); } } #endif }

void dumpsubtree (  typecuc *  father  )

??? (to be defined) Definition at line 431 of file test.cxx. References typecuc::cenftype, dump(), dumppoomwisps(), typecuc::height, typecuc::leftson, POOM, typecorecrumhedr::rightbro, and typecorecrum. Referenced by actuallyreadrawloaf(), checknumofsons(), checkwholesubtree(), nchecknumofsons(), and subtreewriterecurs(). { #ifndef DISTRIBUTION typecorecrum *ptr; if (father->cenftype == POOM) { dumppoomwisps((typecorecrum *) father); return; } dump((typecorecrum *) father); if (father->height <= 0) return; for (ptr = father->leftson; ptr; ptr = ptr->rightbro) dumpsubtree((typecuc *) ptr); #endif }

void dumptext (  typetext *  textptr  )

??? (to be defined) Definition at line 2189 of file test.cxx. References typetext::length, and typetext::string. Referenced by dumpitem(). { #ifndef DISTRIBUTION write(2, textptr->string, textptr->length); #endif }

void dumptumbler (  Tumbler *  tumblerptr  )

??? (to be defined) Definition at line 1331 of file test.cxx. References assert, debug, Tumbler::exp, L, Tumbler::mantissa, NPLACES, puttumbler(), and Tumbler::sign. Referenced by addtoopen(), analyzeanddebug(), deleteversion(), doclose(), dumpspanpair(), fetchorglgr(), findorgl(), incrementopen(), insertendsetsinorgl(), insertpm(), puttumbler(), removefromopen(), slicecbcpm(), tumblercheckptr(), and tumblerincrement(). { #ifndef DISTRIBUTION int i; if (!tumblerptr) { L("NULL POINTER TO TUMBLER"); return; } if (!debug) puttumbler(stderr, tumblerptr); else { L(" %d | ", tumblerptr->sign); L("%d | ", tumblerptr->exp); for (i = 0; i < NPLACES; ++i) L("%d ", tumblerptr->mantissa[i]); if (tumblerptr->exp > 0) { L("in dumptumbler exponent positive i.e. negative number of leading zeros!\n"); assert(0); // dumptumbler } } #endif }

void dumpwholesubtree (  typecuc *  father  )

??? (to be defined) Definition at line 457 of file test.cxx. References typecuc::cenftype, dump(), dumppoomwisps(), findleftson(), findrightbro, typecuc::height, L, POOM, and typecorecrum. Referenced by dumpwholetree(), and showsubtree(). { #ifndef DISTRIBUTION L("dump whole subtree"); if (father->cenftype == POOM) { dumppoomwisps((typecorecrum *) father); return; } dump((typecorecrum *) father); if (father->height <= 0) return; typecorecrum *ptr; for (ptr = findleftson(father); ptr; ptr = findrightbro(ptr)) dumpwholesubtree((typecuc *) ptr); #endif }

void dumpwholetree (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 689 of file test.cxx. References dumpwholesubtree(), findfather(), isfullcrum(), L, and typecorecrum. Referenced by assertsonswispmatchesfather(), slicecbcpm(), and tumblercheckptr(). { #ifndef DISTRIBUTION L("dump whole tree\n"); for (; !isfullcrum(ptr); ptr = (typecorecrum *) findfather(ptr)) ; dumpwholesubtree((typecuc *) ptr); #endif }

void dumpwid (  typewid *  widptr, int  enftype )

??? (to be defined) Definition at line 1168 of file test.cxx. References typewid::dsas, L, puttumbler(), and widsize. Referenced by dumpcontext(), dumphedr(), foowid(), insertcutsectionnd(), insertpm(), makeithcutonson(), and slicecbcpm(). { #ifndef DISTRIBUTION int i; int nstreams = widsize(enftype); L("wid = < "); for (i = 0; i < nstreams; ++i) { if (i > 0) L(" , "); puttumbler(stderr, &widptr->dsas[i]); } L(" >\n"); #endif }

char* enftypestring (  int  type  )

??? (to be defined) Definition at line 1962 of file test.cxx. References GRAN, POOM, and SPAN. Referenced by dumpcontext(). { #ifndef DISTRIBUTION static char errbuf[60]; switch (type) { case GRAN: return ("GRAN"); case POOM: return ("POOM"); case SPAN: return ("SPAN"); default: sprintf(errbuf, "bad enftype %d", type); return ((char *)errbuf); } #endif }

void foo (  char *  msg  )

??? (to be defined) Definition at line 134 of file test.cxx. References debug, and L. Referenced by changeunterrefcount(), context2vstuff(), context2vtext(), expandcrumleftward(), intersectspansets(), ispansetandspecsets2spanpairset(), makecontextfromcbc(), makegappm(), makeroomonleftnd(), makespanpairset(), makespanpairsforispan(), permute(), and span2spanset(). { #ifndef DISTRIBUTION if (debug) L(msg); #endif }

void foocontext (  char *  msg, Context *  context )

??? (to be defined) Definition at line 275 of file test.cxx. References debug, dumpcontext(), and L. Referenced by context2vstuff(), ispan2vstuffset(), and span2spanset(). { #ifndef DISTRIBUTION if (debug) { L(msg); dumpcontext(context); } #endif }

void foocontextlist (  char *  msg, Context *  context )

??? (to be defined) Definition at line 295 of file test.cxx. References debug, dumpcontextlist(), and L. Referenced by ispan2vstuffset(), and span2spanset(). { #ifndef DISTRIBUTION if (debug) { L(msg); dumpcontextlist(context); } #endif }

void foocrum (  char *  msg, typecorecrum *  crumptr )

??? (to be defined) Definition at line 219 of file test.cxx. References debug, dump(), L, and typecorecrum. { #ifndef DISTRIBUTION if (debug) { L(msg); dump(crumptr); } #endif }

void foodec (  char *  msg, int  num )

??? (to be defined) Definition at line 257 of file test.cxx. References debug, and L. { #ifndef DISTRIBUTION if (debug) L("%s %d\n", msg, num); #endif }

void foodsp (  char *  msg, typedsp *  dptr, int  enftype )

??? (to be defined) Definition at line 380 of file test.cxx. References debug, dumpdsp(), L, and typedsp. { #ifndef DISTRIBUTION if (debug) { L(msg); if (dptr) dumpdsp(dptr, enftype); else L("NULL"); L("\n"); } #endif }

void foohex (  char *  msg, int  num )

??? (to be defined) Definition at line 239 of file test.cxx. References debug, and L. Referenced by ispan2vstuffset(), and reserve(). { #ifndef DISTRIBUTION if (debug) L("%s %x\n", msg, num); #endif }

void fooitem (  char *  msg, typeitem *  iptr )

??? (to be defined) Definition at line 335 of file test.cxx. References debug, dumpitem(), and L. { #ifndef DISTRIBUTION if (debug) { L(msg); dumpitem(iptr); L("\n"); } #endif }

void fooitemset (  char *  msg, typeitemset  iptr )

??? (to be defined) Definition at line 315 of file test.cxx. References debug, dumpitemset(), L, and typeitemset. Referenced by finddocscontainingsp(), intersectlinksets(), ispanset2vstuffset(), makespanpairset(), makespanpairsforispan(), restrictspecsetsaccordingtoispans(), restrictvspecsetovercommonispans(), and retrieveendsetsfromspanf(). { #ifndef DISTRIBUTION if (debug) { L(msg); dumpitemset(iptr); } #endif }

void foospan (  char *  msg, typespan *  span )

??? (to be defined) Definition at line 151 of file test.cxx. References debug, dumpspan(), and L. Referenced by spanintersection(). { #ifndef DISTRIBUTION if (debug) { L(msg); dumpspan(span); } #endif }

void foospanset (  char *  msg, typespan *  spanset )

??? (to be defined) Definition at line 171 of file test.cxx. References debug, dumpspan(), L, and typespan::next. Referenced by intersectspansets(), and permute(). { #ifndef DISTRIBUTION if (debug) { L(msg); if (!spanset) { L("null spanset\n"); } else { for (; spanset; spanset = spanset->next) { dumpspan(spanset); } } } #endif }

void footumbler (  char *  msg, Tumbler *  tptr )

??? (to be defined) Definition at line 356 of file test.cxx. References debug, L, and puttumbler(). Referenced by context2vtext(), expandcrumleftward(), insertpm(), makelinkitem(), and makeroomonleftnd(). { #ifndef DISTRIBUTION if (debug) { L(msg); if (tptr) puttumbler(stderr, tptr); else L("NULL"); L("\n"); } #endif }

void foowid (  char *  msg, typewid *  wptr, int  enftype )

??? (to be defined) Definition at line 405 of file test.cxx. References debug, dumpwid(), and L. { #ifndef DISTRIBUTION if (debug) { L(msg); if (wptr) dumpwid(wptr, enftype); else L("NULL"); L("\n"); } #endif }

void graphcrum (  FILE *  fd, typecorecrum *  ptr, typedsp *  offsetptr, char *  indent )

??? (to be defined) Definition at line 970 of file test.cxx. References typecorecrumhedr::cdsp, typecorecrumhedr::cenftype, typecorecrumhedr::cwid, dspadd(), GRAN, GRANNULL, GRANORGL, GRANTEXT, graphdsp(), graphoffset(), graphpoom(), graphwid(), typecorecrumhedr::height, typecorecrumhedr::leftbroorfather, nodecolor(), nodefillcolor(), nodeid(), NULL, typegranorgl::orglptr, typecorecrumhedr::rightbro, safetext(), typegrantext::textlength, typegrantext::textstring, typecorecrum, and typedsp. Referenced by graphwholesubtree(). { const char *full = (ptr->isapex ? "(top)" : ""); char mynodeid[10], hisnodeid[10]; typecorecrum *orgl = NULL; nodeid(ptr, mynodeid); char *color = nodecolor(ptr); char *fillcolor = nodefillcolor(ptr); // Define Attributes of This Node fprintf(fd, "%s %s [color=%s, fillcolor=%s, style=filled, label = \"", indent, mynodeid, color, fillcolor); fprintf(fd, "{ %s\\nheight=%u %s |", mynodeid, ptr->height, full); if (ptr->cenftype != GRAN) graphdsp(fd, &ptr->cdsp, ptr->cenftype); graphwid(fd, &ptr->cwid, ptr->cenftype); graphoffset(fd, offsetptr, ptr->cenftype); if (ptr->height == 0 && ptr->cenftype == GRAN) { int infotype = ((typecbc *) ptr)->cinfo.infotype; typegrantext *gtext; typegranorgl *gorgl; char *safe, *ellipse; switch (infotype) { case GRANTEXT: gtext = &((typecbc *) ptr)->cinfo.granstuff.textstuff; safe = safetext(gtext->textstring); if (gtext->textlength > strlen(safe)) ellipse = "..."; else ellipse = ""; fprintf(fd, " | TEXT[%u]\\n'%s'%s", gtext->textlength, safe, ellipse); break; case GRANORGL: gorgl = &((typecbc *) ptr)->cinfo.granstuff.orglstuff; orgl = (typecorecrum *) gorgl->orglptr; // Used Below fprintf(fd, " | ORGL"); break; case GRANNULL: fprintf(fd, " | NULL"); break; default: fprintf(fd, " | { err=\\< ???? \\>\\l }"); break; } } if (ptr->height) { fprintf(fd, " | nsons=%u ", ((typecuc *) ptr)->numberofsons); } fprintf(fd, "}\"];\n"); // Define Connections of This Node if (ptr->rightbro) fprintf(fd, "%s %s -> %s [tailport=e, headport=w, taillabel=RBRO, labeldistance=2, labelfontname=Helvetica, labelfontsize=10, labelfontcolor=%s, color=%s];\n", indent, mynodeid, nodeid(ptr->rightbro, hisnodeid), nodecolor(ptr->rightbro), nodecolor(ptr->rightbro)); if (ptr->leftbroorfather) { if (ptr->isleftmost) fprintf(fd, "%s %s -> %s [tailport=n, headport=s, taillabel=FATHER, labeldistance=2, labelfontname=Helvetica, labelfontsize=10, labelfontcolor=%s, color=%s];\n", indent, mynodeid, nodeid(ptr->leftbroorfather, hisnodeid), nodecolor(ptr->leftbroorfather), nodecolor(ptr->leftbroorfather)); else fprintf(fd, "%s %s -> %s [tailport=w, headport=e, taillabel=LBRO, labeldistance=2, labelfontname=Helvetica, labelfontsize=10, labelfontcolor=%s, color=%s];\n", indent, mynodeid, nodeid(ptr->leftbroorfather, hisnodeid), nodecolor(ptr->leftbroorfather), nodecolor(ptr->leftbroorfather)); } if (orgl) fprintf(fd, "%s %s -> %s [tailport=s, headport=n, taillabel=SON, labeldistance=2, labelfontname=Helvetica, labelfontsize=10, labelfontcolor=%s, color=%s];\n", indent, mynodeid, nodeid(orgl, hisnodeid), nodecolor(orgl), nodecolor(orgl)); if (ptr->height) { fprintf(fd, "%s %s -> %s [tailport=s, headport=n, taillabel=SON, labeldistance=2, labelfontname=Helvetica, labelfontsize=10, labelfontcolor=%s, color=%s];\n", indent, mynodeid, nodeid(((typecuc *) ptr)->leftson, hisnodeid), nodecolor(((typecuc *) ptr)->leftson), nodecolor(((typecuc *) ptr)->leftson)); } else { // if (ptr->cenftype == GRAN) { // typegranbottomcruminfo *cinfo = &((typecbc *) ptr)->cinfo; // //struct structorgl { // struct structcuc *orglptr; // typediskloafptr diskorglptr; //}; // // } else { // // type2dbottomcruminfo c2dinfo; // } } // if (ptr->height == 0 && ptr->cenftype == GRAN) { // int infotype = ((typecbc *) ptr)->cinfo.infotype; // if (infotype == GRANORGL) { // typegranorgl *gorgl = &((typecbc *) ptr)->cinfo.granstuff.orglstuff; // graphpoom(fd, (typecorecrum *) gorgl->orglptr); // } // } if (orgl) graphpoom(fd, orgl); // L("%s %scrum core location = %x\n", temp, full, (int) ptr); // L("height = %x nextcrum = %x modified = %x\n", ptr->height, (int) ptr->nextcrum, ptr->modified); // L(" age = %x ", ptr->age); // L("isleftmost = %x leftbro = %x rightbro = %x\n", ptr->isleftmost, (int) ptr->leftbroorfather, (int) ptr->rightbro); // dumpdsp(&ptr->cdsp, ptr->cenftype); // dumpwid(&ptr->cwid, ptr->cenftype); // if (ptr->height) { // L("sonorigin = %x insideloaf %x leftson = %x #sons = %x\n", // ((typecuc *) ptr)->sonorigin.diskblocknumber, ((typecuc *) ptr)->sonorigin.insidediskblocknumber, // (int) ((typecuc *) ptr)->leftson, ((typecuc *) ptr)->numberofsons); // } else { // dumpinfo(&((typecbc *) ptr)->cinfo, ptr->cenftype); // } if (ptr->height == 0) dspadd(offsetptr, &ptr->cwid, offsetptr, ptr->cenftype); }

void graphdsp (  FILE *  fd, typewid *  dspptr, int  enftype )

??? (to be defined) Definition at line 1245 of file test.cxx. References typewid::dsas, dspsize, and puttumbler(). Referenced by graphcrum(). { /* if (enftype == GRAN) return; */ int nstreams = dspsize(enftype); fprintf(fd, " dsp=\\<"); for (int i = 0; i < nstreams; ++i) { if (i > 0) fprintf(fd, " :: "); puttumbler(fd, &dspptr->dsas[i]); } fprintf(fd, "\\> \\n"); }

void graphoffset (  FILE *  fd, typedsp *  dspptr, int  enftype )

??? (to be defined) Definition at line 1270 of file test.cxx. References typewid::dsas, dspsize, puttumbler(), and typedsp. Referenced by graphcrum(). { int nstreams = dspsize(enftype); fprintf(fd, " isa=\\<"); for (int i = 0; i < nstreams; ++i) { if (i > 0) fprintf(fd, " :: "); puttumbler(fd, &dspptr->dsas[i]); } fprintf(fd, "\\> \\n"); }

void graphpoom (  FILE *  fd, typecorecrum *  ptr )

??? (to be defined) Definition at line 758 of file test.cxx. References clear, findfather(), graphwholesubtree(), isfullcrum(), typecorecrum, and typedsp. Referenced by graphcrum(). { fprintf(fd, "\n subgraph cluster_%08X {\n", (int) ptr); for (; !isfullcrum(ptr); ptr = (typecorecrum *) findfather(ptr)) ; typedsp offset; clear(&offset, sizeof(offset)); graphwholesubtree(fd, (typecuc *) ptr, &offset, " "); fprintf(fd, "\n"); fprintf(fd, " label = \"POOM\";\n"); fprintf(fd, " color = royalblue;\n"); fprintf(fd, " fillcolor = lightgrey;\n"); fprintf(fd, " style = filled;\n"); fprintf(fd, " }\n\n"); }

void graphwholesubtree (  FILE *  fd, typecuc *  father, typedsp *  offsetptr, char *  indent )

??? (to be defined) Definition at line 487 of file test.cxx. References findleftson(), findrightbro, graphcrum(), typecorecrumhedr::height, nodeid(), typecorecrum, and typedsp. Referenced by graphpoom(), and graphwholetree(). { typecorecrum *ptr; //jrr if (father->cenftype == POOM) { //jrr dumppoomwisps((typecorecrum *) father); //jrr return; //jrr } graphcrum(fd, (typecorecrum *) father, offsetptr, indent); if (father->height <= 0) return; if (strlen(indent) == 0) { fprintf(fd, "\n { rank=same; "); for (ptr = findleftson(father); ptr; ptr = findrightbro(ptr)) { char temp[10]; fprintf(fd, "%s; ", nodeid(ptr, temp)); } fprintf(fd, "} /* height = %u */\n\n", findleftson(father)->height); } for (ptr = findleftson(father); ptr; ptr = findrightbro(ptr)) { graphwholesubtree(fd, (typecuc *) ptr, offsetptr, indent); } }

void graphwholetree (  char *  filename, typecorecrum *  ptr, char *  graphlabel )

??? (to be defined) Definition at line 710 of file test.cxx. References clear, findfather(), graphwholesubtree(), isfullcrum(), typecorecrum, and typedsp. Referenced by docopy(). { FILE *fd = fopen(filename, "w"); fprintf(fd, "digraph G {\n"); fprintf(fd, " nodesep=0.40;\n"); fprintf(fd, " ranksep=\"0.40 equally\";\n"); fprintf(fd, " center=true;\n"); fprintf(fd, " page=\"8.5, 11\"; /* unit of pagination */\n"); fprintf(fd, " size=\"8.25, 10.75\";\n"); fprintf(fd, " /* ratio=auto; */\n"); fprintf(fd, " orientation=landscape;\n"); fprintf(fd, " label=\"%s\";\n", graphlabel); fprintf(fd, " fontsize=14;\n"); fprintf(fd, " fontcolor=blue;\n"); fprintf(fd, "\n"); fprintf(fd, " node [shape = record];\n"); fprintf(fd, "\n"); for (; !isfullcrum(ptr); ptr = (typecorecrum *) findfather(ptr)) ; typedsp offset; clear(&offset, sizeof(offset)); graphwholesubtree(fd, (typecuc *) ptr, &offset, ""); fprintf(fd, " A [width=0.1, height=0.1, style=invis];\n"); fprintf(fd, " B [width=0.1, height=0.1, style=invis];\n"); fprintf(fd, " C [width=0.1, height=0.1, style=invis];\n"); fprintf(fd, " A -> B [style=invis];\n"); fprintf(fd, " B -> C [style=invis];\n"); fprintf(fd, "}\n"); fclose(fd); }

void graphwid (  FILE *  fd, typewid *  widptr, int  enftype )

??? (to be defined) Definition at line 1194 of file test.cxx. References typewid::dsas, puttumbler(), and widsize. Referenced by graphcrum(). { int nstreams = widsize(enftype); fprintf(fd, " wid=\\<"); for (int i = 0; i < nstreams; ++i) { if (i > 0) fprintf(fd, " :: "); puttumbler(fd, &widptr->dsas[i]); } fprintf(fd, "\\> \\n"); }

bool ioinfo (  Session *  sess  )

??? (to be defined) Parameters: sess  Input: User's session context Definition at line 2205 of file test.cxx. References L, nolread, and nowread. : User's session context { #ifndef DISTRIBUTION L("Total reads = %ld, total writes = %ld\n", nolread, nowread); #endif return true; }

char* itemidstring (  typeitem *  item  )

??? (to be defined) Definition at line 2223 of file test.cxx. References ADDRESSID, ISPANID, NODEID, NULL, SPORGLID, TEXTID, UNKNOWNID, VSPANID, and VSPECID. { #ifndef DISTRIBUTION switch (((typeitemheader *) item)->itemid) { case TEXTID: return "TEXTID"; case ISPANID: return "ISPANID"; case VSPANID: return "VSPANID"; case VSPECID: return "VSPECID"; case NODEID: return "NODEID"; case ADDRESSID: return "ADDRESSID"; case SPORGLID: return "SPORGLID"; case UNKNOWNID: return "UNKNOWNID"; } #endif return NULL; /* for lint ? */ }

void nchecknumofsons (  typecuc *  ptr  )

??? (to be defined) Definition at line 2439 of file test.cxx. References dumpsubtree(), typecuc::height, L, typecuc::leftson, typecuc::numberofsons, and typecuc::rightbro. { #ifndef DISTRIBUTION typecuc *np; int i = 0; if (!ptr || !ptr->height) return; for (np = (typecuc *) ptr->leftson; np; np = (typecuc *) np->rightbro, i++) ; if (i != ptr->numberofsons) { dumpsubtree(ptr); L("i = %d numberofsons = %d\n", i, ptr->numberofsons); for (np = (typecuc *) ptr->leftson; np; np = (typecuc *) np->rightbro, i++) { /* dump(np) */ ; } L("numberofson mismach in nchecknumofsons\n"); } #endif }

char* nodecolor (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 932 of file test.cxx. References typecorecrumhedr::cenftype, GRAN, POOM, SPAN, and typecorecrum. Referenced by graphcrum(). { switch (ptr->cenftype) { case GRAN: return "darkgreen"; break; case POOM: return "blue"; break; case SPAN: return "red"; break; default: return "black"; break; } }

char* nodefillcolor (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 951 of file test.cxx. References typecorecrumhedr::cenftype, GRAN, POOM, SPAN, and typecorecrum. Referenced by graphcrum(). { switch (ptr->cenftype) { case GRAN: return "palegreen"; break; case POOM: return "powderblue"; break; case SPAN: return "pink"; break; default: return "black"; break; } }

char * nodeid (  typecorecrum *  ptr, char *  s )

??? (to be defined) Definition at line 908 of file test.cxx. References typecorecrumhedr::cenftype, GRAN, POOM, SPAN, and typecorecrum. Referenced by graphcrum(), and graphwholesubtree(). { char c; switch (ptr->cenftype) { case GRAN: c = 'G'; break; // GRAN case SPAN: c = 'S'; break; // SPAN case POOM: c = 'P'; break; // POOM default: c = 'x'; break; } sprintf(s, "%c%08X", c, (int) ptr); return s; }

char* safetext (  char *  s  )

??? (to be defined) Definition at line 885 of file test.cxx. Referenced by graphcrum(). { static char buffer[11]; char *p = buffer; while (*s && p < &buffer[ sizeof(buffer)-2 ]) { if (!isalnum(*s)) *p++ = '\\'; *p++ = *s++; } *p = '\0'; return buffer; }

void showgranwids (  typecorecrum *  crum, int  down, Tumbler *  retptr )

??? (to be defined) Definition at line 1607 of file test.cxx. References clear, typecorecrumhedr::cwid, typewid::dsas, GRANORGL, typecorecrumhedr::height, L, movetumbler, puttumbler(), typecorecrumhedr::rightbro, tumbleradd, tumblereq(), typecorecrum, and WIDTH. Referenced by dumpgranfwids(). { /* down is distance from top */ #ifndef DISTRIBUTION typecorecrum *ptr; Tumbler subtreewid; int i; L("\n"); clear(retptr, sizeof(*retptr)); for (i = 0; i < down; ++i) L(" "); L("%x (%d%c) < ", (int) crum, crum->height, (crum->modified ? 'M' : '-')); puttumbler(stderr, &crum->cwid.dsas[WIDTH]); L(" >"); if (crum->height != 0) { if (((typecuc *) crum)->leftson) { for (ptr = ((typecuc *) crum)->leftson; ptr; ptr = ptr->rightbro) { tumbleradd(retptr, &ptr->cwid.dsas[WIDTH], retptr); showgranwids(ptr, down + 1, &subtreewid); if (!tumblereq(&subtreewid, &ptr->cwid.dsas[WIDTH])) { L("\n%d level crum\'s wid and result from subtree don\'t match\n", crum->height); L("father wid "); puttumbler(stderr, &ptr->cwid.dsas[WIDTH]); L("\nreturned wid "); puttumbler(stderr, &subtreewid); L("\n"); } } } else { L(" disksonloaf = %x ", ((typecuc *) crum)->sonorigin.diskblocknumber); movetumbler(&crum->cwid.dsas[WIDTH], retptr); /* so that lacking incore sons will not cause error */ } } else if (((typecbc *) crum)->cinfo.infotype == GRANORGL) { if (((typecbc *) crum)->cinfo.granstuff.orglstuff.orglincore) L(" orgl %x ", (int) ((typecbc *) crum)->cinfo.granstuff.orglstuff.orglptr); else L(" diskorgl %x", ((typecbc *) crum)->cinfo.granstuff.orglstuff.diskorglptr); movetumbler(&crum->cwid.dsas[WIDTH], retptr); } else movetumbler(&crum->cwid.dsas[WIDTH], retptr); #endif }

void showistream (  typecuc *  granfptr  )

??? (to be defined) Definition at line 1430 of file test.cxx. References dumpistreamgr(). Referenced by examine(). { #ifndef DISTRIBUTION //UNUSED int temp; /* temp = debug; debug = 5; */ dumpistreamgr(granfptr); /* debug = temp; */ #endif }

void showpoomwisps (  typecuc *  crum, int  down )

??? (to be defined) Definition at line 1691 of file test.cxx. References findleftson(), typecuc::height, I, L, puttumbler(), typecorecrumhedr::rightbro, typecorecrum, and V. Referenced by dumppoomwisps(). { /* down is distance from top */ #ifndef DISTRIBUTION typecorecrum *ptr; int i; L("\n"); for (i = 0; i < down; ++i) L(" "); L("%x (%d%c) <Idsp ", (int) crum, crum->height, (crum->modified ? 'M' : '-')); puttumbler(stderr, &crum->cdsp.dsas[I]); L(",Vdsp "); puttumbler(stderr, &crum->cdsp.dsas[V]); L(" > <Iwid "); puttumbler(stderr, &crum->cwid.dsas[I]); L(",Vwid "); puttumbler(stderr, &crum->cwid.dsas[V]); L(" >"); if (crum->height != 0) { if (crum->leftson) { for (ptr = findleftson(crum); ptr; ptr = ptr->rightbro) { showpoomwisps((typecuc *) ptr, down + 1); } } else { L(" disksonloaf = %x ", crum->sonorigin.diskblocknumber); } } #endif }

void showspanf (  typecuc *  spanfptr  )

??? (to be defined) Definition at line 1450 of file test.cxx. References clear, doshowspanf(), typecuc::height, L, typecorecrum, and typedsp. Referenced by examine(), and rearrangend(). { #ifndef DISTRIBUTION typedsp offset; clear(&offset, sizeof(typedsp)); int enfheight = spanfptr->height; L("\n"); doshowspanf((typecorecrum *) spanfptr, &offset, enfheight); #endif }

void showspanfcrum (  typecorecrum *  crumptr, typedsp *  offsetptr, int  enfheight )

??? (to be defined) Definition at line 1499 of file test.cxx. References typecorecrumhedr::cdsp, typecorecrumhedr::cenftype, typecorecrumhedr::cwid, typewid::dsas, dspadd(), typecorecrumhedr::height, L, ORGLRANGE, puttumbler(), SPANRANGE, typecorecrum, and typedsp. Referenced by doshowspanf(). { #ifndef DISTRIBUTION int depth; typedsp lstream; for (depth = enfheight - crumptr->height; depth--;) L(" "); L("[spandsp"); dspadd(offsetptr, &crumptr->cdsp, &lstream, crumptr->cenftype); puttumbler(stderr, &lstream.dsas[SPANRANGE]); L(" ,spanwid "); puttumbler(stderr, &crumptr->cwid.dsas[SPANRANGE]); L("]\n"); for (depth = enfheight - crumptr->height; depth--;) L(" "); L("[orgldsp "); puttumbler(stderr, &lstream.dsas[ORGLRANGE]); L(" ,orglwid "); puttumbler(stderr, &crumptr->cwid.dsas[ORGLRANGE]); L("] "); if (crumptr->height == 0) puttumbler(stderr, &((type2dcbc *) crumptr)->c2dinfo.homedoc); L("\n\n"); #endif }

void showsubtree (  typecorecrum *  father  )

??? (to be defined) Definition at line 1410 of file test.cxx. References dumpwholesubtree(), and typecorecrum. Referenced by showenfilades(), and showorgl(). { #ifndef DISTRIBUTION //UNUSED int temp; /* temp = debug; debug = 5; */ dumpwholesubtree((typecuc *) father); /* debug = temp; */ #endif }

typecorecrum* sonoriginok (  typecorecrum *  father  )

??? (to be defined) Definition at line 1990 of file test.cxx. References typecorecrum. { return father; /* * if (!father) return (father); if * (father->height == 0) return * (father); if * (father->sonorigin.diskblocknumber * == -1) return (father); if * (goodblock * (father->sonorigin.diskblocknumber)) * return (father); dumpsubtree * (father); L("enter y to * procede\n"); if(getchar() == 'y') { * getchar(); return(father); } assert(0); * "Bad Sonorigin"; return(NULL);// * for lint// */ }

void teststack (   )

??? (to be defined) Definition at line 1947 of file test.cxx. { //UNUSED int testloc; /* checkalloc (""); */ }

void yesdump (  typecorecrum *  ptr  )

??? (to be defined) Definition at line 1100 of file test.cxx. References dump(), and typecorecrum. { /* because dbx has a builtin dump name * * conflict */ #ifndef DISTRIBUTION dump(ptr); #endif }

---

Variable Documentation

int debug

Definition at line 111 of file test.cxx. Referenced by assertspecisstring(), checkalloc(), checkitem(), dumpcontext(), dumpistreamgr(), dumpitem(), dumptumbler(), fetchorglgr(), finddocscontainingsp(), findlinksfromtothreesp(), foo(), foocontext(), foocontextlist(), foocrum(), foodec(), foodsp(), foohex(), fooitem(), fooitemset(), foospan(), foospanset(), footumbler(), foowid(), insertpm(), intersectlinksets(), ispanset2vstuffset(), ispansetandspecsets2spanpairset(), main(), makecontextfromcbc(), makeroomonleftnd(), onitemlist(), retrieveendsetsfromspanf(), setdebug(), sourceunixcommand(), and testforreservedness().

typecorecrum* grimreaper

Definition at line 108 of file test.cxx. Referenced by checkenftypes(), checkthebleedingcrum(), createcrum(), ealloc(), freecrum(), grimlyreap(), initgrimreaper(), reap(), and testforreservedness().

long nolread

Definition at line 116 of file test.cxx. Referenced by actuallyreadrawloaf(), and ioinfo().

long nowread [static]

Definition at line 117 of file test.cxx. Referenced by ioinfo().

int numfoo = NUMDISKBLOCKSINLOAF

Definition at line 110 of file test.cxx.

int reservnumber

Definition at line 109 of file test.cxx.

---