Main Page

Source Files

Class Hierarchy

Alphabetical List

Compound List

Compound Members

File Members

Related Pages

Search for

---

libsrc/corediskout.cxx File Reference

orglwrite and subtree write are called from reap in credel.cxx More...

#include <memory.h>
#include <stdlib.h>
#include "udanax.h"

Include dependency graph for corediskout.cxx:

Go to the source code of this file.

Defines
#define	hputinloaf(hp, lp, tp)   ((void)humberput((int)(hp),(humber)(lp),(unsigned int *)(tp)),(lp)=((char*)lp)+*(tp))
Functions
void	subtreewriterecurs (Session *sess, typecuc *father)
	???
void	orglwritepart2 (Session *sess, typecbc *orglcbcptr)
	???
bool	decrementusers ()
	???
void	indiskexit ()
	???
void	diskexit ()
	???
void	diskflush ()
	???
void	writeenfilades ()
	???
void	hputwiddsp (typecuc *ptr, char **loafptrptr)
	???
void	hputinfo (typecbc *ptr, char **loafptrptr)
	???
int	varpackloaf (typecuc *father, typediskloaf *xloafptr, int refcount, int flag)
	???
int	packloaf (typecuc *father, typediskloaf *loafptr, int refcount, int flag)
	???
void	uniqueoutloaf (typecuc *father, int refcount)
	???
void	checkmodifiednotthere (typecuc *father, char *string)
	???
void	deletewithgarbageddescendents (typediskloafptr diskptr, typecuc *father, bool deletefullcrumflag)
	???
void	deletefullcrumandgarbageddescendents (typediskloafptr diskptr, bool deletefullcrumflag, typediskloaf *loafp, typediskloafptr newdiskptr)
	???
void	orglwrite (typecbc *orglcbcptr)
	???
void	subtreewrite (typecuc *father)
	???
Variables
int	noishouldbother
int	notakenephewnd
int	noeatbrosnd
typegranf	granf
typespanf	spanf
typediskloaf	zzzeroloaf
typeuberdiskloaf	zzzerouberloaf

---

Detailed Description

orglwrite and subtree write are called from reap in credel.cxx

(to be defined)

Definition in file corediskout.cxx.

---

Define Documentation

#define hputinloaf (  hp, lp, tp   )     ((void)humberput((int)(hp),(humber)(lp),(unsigned int *)(tp)),(lp)=((char*)lp)+*(tp))

Definition at line 191 of file corediskout.cxx. Referenced by varpackloaf().

---

Function Documentation

void checkmodifiednotthere (  typecuc *  father, char *  string )  [static]

??? (to be defined) Definition at line 430 of file corediskout.cxx. References assert, dump(), L, and typecuc::leftson. Referenced by subtreewriterecurs(). { return; #ifndef DISTRIBUTION #ifdef UnDeFineD if (father->modified && (!father->leftson) /* &&father->sonor.diskblocknumber== * DISKPTRNULL */ ) { dump(father); L("in %s subtreewrite", string); assert(0); // in subtreewriterecurs bad crum } #endif #endif }

bool decrementusers (   )

??? (to be defined) Definition at line 292 of file be.cxx. { return false; }

void deletefullcrumandgarbageddescendents (  typediskloafptr  diskptr, bool  deletefullcrumflag, typediskloaf *  loafp, typediskloafptr  newdiskptr )  [static]

??? (to be defined) Definition at line 529 of file corediskout.cxx. References typecbc::cinfo, deletewithgarbageddescendents(), typediskloafptr::diskblocknumber, typegranorgl::diskorglptr, DISKPTRNULL, diskset(), GRAN, GRANORGL, typegranbottomcruminfo::granstuff, typegranbottomcruminfo::infotype, initcrum(), inorglinternal(), typecuc::leftbroorfather, NULL, typegranorgl::orglptr, typegranstuff::orglstuff, typecorecrum, and writeloaf(). Referenced by deletewithgarbageddescendents(), and orglwritepart2(). { if (diskptr.diskblocknumber == DISKPTRNULL) return; /* kluge up a bottum crum, use it to read in granf, similarly for spanf */ /* tempcbc = (typecbc *)createcrum(0,GRAN); */ typecbc crum; typecbc *tempcbc = &crum; initcrum(0, GRAN, (typecorecrum *) &crum); tempcbc->cinfo.infotype = GRANORGL; tempcbc->cinfo.granstuff.orglstuff.diskorglptr = diskptr; typeuberrawdiskloaf crum2; if (deletefullcrumflag) { inorglinternal(tempcbc, &crum2); /* reserve(tempcbc); */ } else { inorglinternal(tempcbc, &crum2); /* reserve(tempcbc); */ diskset(newdiskptr.diskblocknumber); writeloaf(loafp, newdiskptr, false); } tempcbc->cinfo.granstuff.orglstuff.orglptr->leftbroorfather = NULL; deletewithgarbageddescendents(diskptr, (typecuc *) tempcbc, deletefullcrumflag); /* kluge SKIMP reserve and rejuvinate added 11-23-86 */ }

void deletewithgarbageddescendents (  typediskloafptr  diskptr, typecuc *  father, bool  deletefullcrumflag )  [static]

??? (to be defined) Definition at line 572 of file corediskout.cxx. References typecuc::cenftype, changerefcount(), deletefullcrumandgarbageddescendents(), findleftson(), findrightbro, GRAN, GRANFDISKLOCATION, GRANORGL, typecbc::height, typecuc::height, NULL, SPANFDISKLOCATION, and typecorecrum. Referenced by deletefullcrumandgarbageddescendents(). { typecbc *ptr; typediskloafptr ignoreddiskptr; if (father->height > 0) ptr = (typecbc *) findleftson(father); /* if !flag changerefcount and then possibly recurse */ if (!deletefullcrumflag || !changerefcount(diskptr, -1)) { if (father->height > 0) { for (; ptr; ptr = (typecbc *) findrightbro((typecorecrum *) ptr)) { if (ptr->height > 0) deletewithgarbageddescendents(((typecuc *) ptr)->sonorigin, (typecuc *) ptr, true); } } else if (father->cenftype == GRAN && ((typecbc *) father)->cinfo.infotype == GRANORGL && ((typecbc *) father)->cinfo.granstuff.orglstuff.orglincore && ((typecbc *) father)->cinfo.granstuff.orglstuff.diskorglptr.diskblocknumber != GRANFDISKLOCATION && ((typecbc *) father)->cinfo.granstuff.orglstuff.diskorglptr.diskblocknumber != SPANFDISKLOCATION) { deletefullcrumandgarbageddescendents(((typecbc *) father)->cinfo.granstuff.orglstuff.diskorglptr, true, /* ECH * 8-28-88ignoreddiskptr, */ (typediskloaf *) NULL, ignoreddiskptr); } } /* subtreefree(ptr); *//*12/04/86 */ }

void diskexit (   )

??? (to be defined) Definition at line 130 of file corediskout.cxx. References indiskexit(). Referenced by frontenddied(), and quitxanadu(). { indiskexit(); }

void diskflush (   )

??? (to be defined) Definition at line 144 of file corediskout.cxx. References granf, initkluge(), spanf, and writeenfilades(). Referenced by main(). { writeenfilades(); initkluge((typecuc **) &granf, (typecuc **) &spanf); }

void hputinfo (  typecbc *  ptr, char **  loafptrptr )  [static]

??? (to be defined) Definition at line 239 of file corediskout.cxx. References assert, typecbc::cinfo, typediskloafptr::diskblocknumber, typegranorgl::diskorglptr, GRANNULL, GRANORGL, typegranbottomcruminfo::granstuff, GRANTEXT, typecbc::height, humber, humberput(), typegranbottomcruminfo::infotype, typediskloafptr::insidediskblocknumber, is2dcrum(), L, movmem, typegranstuff::orglstuff, typegrantext::textlength, typegrantext::textstring, typegranstuff::textstuff, tumblerfixedtoptr(), and typecorecrum. Referenced by varpackloaf(). { unsigned int temp; if (!is2dcrum((typecorecrum *) ptr)) { (void)humberput(ptr->cinfo.infotype, (humber) * loafptrptr, &temp); *loafptrptr += temp; if (ptr->cinfo.infotype == GRANTEXT) { (void)humberput((int) ptr->cinfo.granstuff.textstuff.textlength, (humber) * loafptrptr, &temp); *loafptrptr += temp; /* hputinloaf(ptr->cinfo.granstuff.textstuff.textlength,(*loafptrptr),&temp); */ movmem(ptr->cinfo.granstuff.textstuff.textstring, (*loafptrptr), ptr->cinfo.granstuff.textstuff.textlength); *loafptrptr += ptr->cinfo.granstuff.textstuff.textlength; return; } else if (ptr->cinfo.infotype == GRANORGL) { (void)humberput(ptr->cinfo.granstuff.orglstuff.diskorglptr.diskblocknumber, (humber) * loafptrptr, &temp); *loafptrptr += temp; (void)humberput(ptr->cinfo.granstuff.orglstuff.diskorglptr.insidediskblocknumber, (humber) * loafptrptr, &temp); *loafptrptr += temp; /* hputinloaf(ptr->cinfo.granstuff.orglstuff.diskorglptr,(*loafptrptr),&temp); */ return; } else if (ptr->cinfo.infotype == GRANNULL) { return; } else { L("weird infotype in hputinfo %d \n", ptr->cinfo.infotype); assert(0); // weird infotype in hputinfo return; } } else { if (ptr->height) { /* looks like we got this all */ } else { temp = tumblerfixedtoptr(&((type2dcbc *) ptr)->c2dinfo.homedoc, (humber) * loafptrptr); (*loafptrptr) += temp; } } }

void hputwiddsp (  typecuc *  ptr, char **  loafptrptr )  [static]

??? (to be defined) Definition at line 204 of file corediskout.cxx. References typecuc::cdsp, typecuc::cenftype, typecuc::cwid, typewid::dsas, humber, tumblerfixedtoptr(), and widsize. Referenced by varpackloaf(). { unsigned int temp; int nstreams = widsize(ptr->cenftype); typewid *wptr = &ptr->cdsp; int i; for (i = 0; i < nstreams; ++i) { temp = tumblerfixedtoptr(&wptr->dsas[i], (humber) *loafptrptr); *loafptrptr += temp; } wptr = &ptr->cwid; for (i = 0; i < nstreams; ++i) { temp = tumblerfixedtoptr(&wptr->dsas[i], (humber) *loafptrptr); *loafptrptr += temp; } }

void indiskexit (   )  [static]

??? (to be defined) Definition at line 111 of file corediskout.cxx. References closediskfile(), decrementusers(), and writeenfilades(). Referenced by diskexit(). { if (decrementusers()) return; writeenfilades(); closediskfile(); exit(0); }

void orglwrite (  typecbc *  orglcbcptr  )

??? (to be defined) <Input: User's session context Definition at line 684 of file corediskout.cxx. References assert, Session::free(), NULL, and orglwritepart2(). Referenced by reap(), and writeenfilades(). { assert(orglcbcptr != NULL); // in orglwrite passed NULL //now done via a ctor:: inittask(&sess); Session sess; orglwritepart2(&sess, orglcbcptr); sess.free(); }

void orglwritepart2 (  Session *  sess, typecbc *  orglcbcptr )  [static]

??? (to be defined) Parameters: sess  Input: User's session context Definition at line 611 of file corediskout.cxx. References assert, typecuc::cenftype, changerefcount(), typecbc::cinfo, deletefullcrumandgarbageddescendents(), diskheader, typegranorgl::diskorglptr, typegranbottomcruminfo::granstuff, Diskheader::hasenftops, humber, humber3put(), L, NULL, orglfree(), typegranorgl::orglincore, typegranorgl::orglptr, typegranstuff::orglstuff, packloaf(), partialdiskalloc(), POOM, rejuvinate, reserve(), subtreewriterecurs(), typecorecrum, writeloaf(), and zzzeroloaf. Referenced by orglwrite(), and subtreewriterecurs(). : User's session context typecbc *orglcbcptr) { L("beginning orglwritepart2()\n"); assert(orglcbcptr != NULL); typediskloaf loaf = zzzeroloaf; typegranbottomcruminfo *infoptr = &orglcbcptr->cinfo; typecuc *orglptr = infoptr->granstuff.orglstuff.orglptr; if (!orglcbcptr->modified && orglptr) { orglfree(orglptr); return; } if (infoptr->granstuff.orglstuff.orglincore) { L("orglincore\n"); L("calling reserve()\n"); reserve((typecorecrum *) orglcbcptr); L("returned from calling reserve()\n"); typediskloafptr olddiskptr = infoptr->granstuff.orglstuff.diskorglptr; L("calling subtreewriterecurs()\n"); subtreewriterecurs(sess, orglptr); L("returned from calling subtreewriterecurs()\n"); //writefullcrum(orgl); int size = packloaf(orglptr, &loaf, 1, 1); unsigned int dummy; humber3put(size, (humber) &loaf, &dummy); if (orglptr->cenftype == POOM) { L("cenftype == POOM\n"); int newloaf; typediskloafptr temploaf = partialdiskalloc(size, &newloaf); writeloaf(&loaf, temploaf, newloaf); changerefcount(temploaf, 1); infoptr->granstuff.orglstuff.diskorglptr = temploaf; // in below, olddiskptr is just a placeholder deletefullcrumandgarbageddescendents(olddiskptr, true, (typediskloaf *) NULL, olddiskptr); //writeloaf(&loaf, infoptr->granstuff.orglstuff.diskorglptr, true); } else { L("cenftype != POOM\n"); if (diskheader.hasenftops) { deletefullcrumandgarbageddescendents(olddiskptr, false, &loaf, infoptr->granstuff.orglstuff.diskorglptr); //writeloaf(&loaf, infoptr->granstuff.orglstuff.diskorglptr, true); } else { writeloaf(&loaf, infoptr->granstuff.orglstuff.diskorglptr, true); } } /* NULL EFFECT HERE */ /* ptr->modified = false; */ rejuvinate((typecorecrum *) orglcbcptr); orglfree(orglptr); } }

int packloaf (  typecuc *  father, typediskloaf *  loafptr, int  refcount, int  flag )  [static]

??? (to be defined) Definition at line 375 of file corediskout.cxx. References varpackloaf(). Referenced by orglwritepart2(), and uniqueoutloaf(). { return varpackloaf(father, loafptr, refcount, flag); }

void subtreewrite (  typecuc *  father  )

??? (to be defined) <Input: User's session context Definition at line 703 of file corediskout.cxx. References Session::free(), and subtreewriterecurs(). Referenced by reap(). { Session sess; //Now done via a ctor:: inittask(&sess); subtreewriterecurs(&sess, father); /* decrementandfreedisk (top); */ sess.free(); }

void subtreewriterecurs (  Session *  sess, typecuc *  father )  [static]

??? (to be defined) Parameters: sess  Input: User's session context Definition at line 455 of file corediskout.cxx. References assert, typecbc::cenftype, changerefcount(), checkmodifiednotthere(), typecbc::cinfo, typediskloafptr::diskblocknumber, DISKPTRNULL, dump(), dumpsubtree(), GRAN, GRANNULL, GRANORGL, GRANTEXT, typecbc::height, typecuc::height, typegranbottomcruminfo::infotype, L, typecuc::leftson, loaffree(), orglwritepart2(), typecbc::rightbro, typecuc::sonorigin, typecorecrum, and uniqueoutloaf(). Referenced by orglwritepart2(), and subtreewrite(). : User's session context typecuc *father) { if (!father || !father->height) assert(0); // Bad subtreewrite call /* this, of course, assumes modified is set right */ if (!father->modified) { if (father->sonorigin.diskblocknumber == DISKPTRNULL) { L("insubtreewriterecurs sonorigin == -1\n"); dumpsubtree(father); assert(0); // in subtreewriterecurs } loaffree(father); return; } // in order to guarantee integrity of disk, it's important to write out or increment sons before father checkmodifiednotthere(father, "A"); typecbc *ptr; for (ptr = (typecbc *) father->leftson; ptr; ptr = (typecbc *) ptr->rightbro) { if (ptr->height == 0 && ptr->cenftype == GRAN && ptr->cinfo.infotype != GRANTEXT && ptr->cinfo.infotype != GRANORGL && ptr->cinfo.infotype != GRANORGL && ptr->cinfo.infotype != GRANNULL) { L("bad infotypein subtreewriterecursive = %d\n", ptr->cinfo.infotype); dump((typecorecrum *) ptr); assert(0); // subtreewriterecurs } if (ptr->height != 0) subtreewriterecurs(sess, (typecuc *) ptr); else if (ptr->cenftype == GRAN && ptr->height == 0 && ((typecbc *) ptr)->cinfo.infotype == GRANORGL) orglwritepart2(sess, ptr); ptr->modified = false; } if (father->modified) { checkmodifiednotthere(father, "B"); for (ptr = (typecbc *) father->leftson; ptr; ptr = (typecbc *) ptr->rightbro) { if (ptr->height > 0 && ((typecuc *) ptr)->sonorigin.diskblocknumber != DISKPTRNULL) changerefcount(((typecuc *) ptr)->sonorigin, 1); } checkmodifiednotthere(father, "C"); uniqueoutloaf(father, 0); } /* rejuvinate(father); */ loaffree(father); }

void uniqueoutloaf (  typecuc *  father, int  refcount )  [static]

??? (to be defined) Definition at line 392 of file corediskout.cxx. References addallocatedloaftopartialallocedtables(), assert, typediskloafptr::diskblocknumber, DISKPTRNULL, findleftson(), humber, humber3put(), typecuc::leftson, packloaf(), partialdiskalloc(), typecuc::sonorigin, writeloaf(), and zzzerouberloaf. Referenced by subtreewriterecurs(). { assert(father->modified); typeuberdiskloaf loaf = zzzerouberloaf; if ((!father->leftson) && father->sonorigin.diskblocknumber != DISKPTRNULL) { findleftson(father); /* get it in so we know numberof sons zzz KLUGE is this right aug 15 86 */ /* father->numberofsons = findnumberofdamnsons(father); */ } int size = packloaf(father, (typediskloaf *) &loaf, refcount, 0); int newloaf; father->sonorigin = partialdiskalloc(size, &newloaf); unsigned int temp; humber3put(size, (humber) &loaf, &temp); /* loaf.numberofunterloafs = 1; */ if (false && newloaf) { addallocatedloaftopartialallocedtables(father->sonorigin, size); } writeloaf((typediskloaf *) &loaf, father->sonorigin, newloaf); father->modified = false; }

int varpackloaf (  typecuc *  father, typediskloaf *  xloafptr, int  refcount, int  flag )  [static]

??? (to be defined) Definition at line 290 of file corediskout.cxx. References assert, typecuc::cenftype, typediskloafptr::diskblocknumber, DISKPTRNULL, dump(), findleftson(), typecuc::height, hputinfo(), hputinloaf, hputwiddsp(), humber, humber3put(), typediskloafptr::insidediskblocknumber, typecuc::leftson, typecuc::numberofsons, typecorecrumhedr::rightbro, typecuc::sonorigin, toomanysons(), and typecorecrum. Referenced by packloaf(). { typecorecrum *ptr; int ret; unsigned int temp; char *loafptr = (char *) xloafptr; if (!flag) { if (!father || father->height == 0 || !loafptr) { dump((typecorecrum *) father); assert(0); // bad packloaf call } assert(!father->leftson || !toomanysons(father)); // ERROR: Too many sons in packloaf /* tempptr = loafptr; */ loafptr += 3; /* make room for loaflength */ hputinloaf(false, loafptr, &temp); hputinloaf(father->height - 1, loafptr, &temp); hputinloaf(father->cenftype, loafptr, &temp); hputinloaf(father->numberofsons, loafptr, &temp); hputinloaf(refcount, loafptr, &temp); } else { /* tempptr = loafptr; */ loafptr += 3; /* make room for loaflength */ hputinloaf(true, loafptr, &temp); hputinloaf(father->height, loafptr, &temp); hputinloaf(father->cenftype, loafptr, &temp); hputinloaf(1, loafptr, &temp); hputinloaf(refcount, loafptr, &temp); hputwiddsp(father, &loafptr); hputinloaf(father->sonorigin.diskblocknumber, loafptr, &temp); hputinloaf(father->sonorigin.insidediskblocknumber, loafptr, &temp); if (father->sonorigin.diskblocknumber == 0) { // dump (ptr); assert(0); // trying to write 0 block } if (father->sonorigin.diskblocknumber == DISKPTRNULL) { /* dump (ptr); */ assert(0); // trying to write DSKPTRNULL block } return (int) loafptr - (int) xloafptr; } for (ptr = (typecorecrum *) findleftson(father); ptr; ptr = ptr->rightbro) { hputwiddsp((typecuc *) ptr, (char **)&loafptr); if (ptr->height != 0) { hputinloaf(((typecuc *) ptr)->sonorigin.diskblocknumber, loafptr, &temp); hputinloaf(((typecuc *) ptr)->sonorigin.insidediskblocknumber, loafptr, &temp); if (((typecuc *) ptr)->sonorigin.diskblocknumber == 0) { dump(ptr); assert(0); // trying to write 0 block } if (((typecuc *) ptr)->sonorigin.diskblocknumber == DISKPTRNULL) { dump(ptr); assert(0); // trying to write DISKPTRNULL block } } else hputinfo((typecbc *) ptr, &loafptr); } ret = (int) loafptr - (int) xloafptr; humber3put(ret, (humber) xloafptr, &temp); return ret; }

void writeenfilades (   )

??? (to be defined) Definition at line 159 of file corediskout.cxx. References typecbc::cinfo, typediskloafptr::diskblocknumber, typegranorgl::diskorglptr, granf, GRANFDISKLOCATION, typegranbottomcruminfo::granstuff, typediskloafptr::insidediskblocknumber, L, typecbc::leftbroorfather, NULL, typegranorgl::orglincore, typegranorgl::orglptr, typegranstuff::orglstuff, orglwrite(), spanf, SPANFDISKLOCATION, and typecorecrum. Referenced by diskflush(), flagquitting(), indiskexit(), and main(). { L("entering writeenfilades()\n"); typecbc temporgl; temporgl.leftbroorfather = NULL; temporgl.modified = true; temporgl.cinfo.granstuff.orglstuff.orglincore = true; temporgl.cinfo.granstuff.orglstuff.diskorglptr.diskblocknumber = GRANFDISKLOCATION; temporgl.cinfo.granstuff.orglstuff.diskorglptr.insidediskblocknumber = 0; temporgl.cinfo.granstuff.orglstuff.orglptr = (typecuc *) granf; ((typecuc *) granf)->leftbroorfather = (typecorecrum *) &temporgl; L("about to orglwrite() GRANF\n"); orglwrite(&temporgl); L("returned from orglwrite() GRANF\n"); temporgl.modified = true; temporgl.cinfo.granstuff.orglstuff.orglincore = true; temporgl.cinfo.granstuff.orglstuff.diskorglptr.diskblocknumber = SPANFDISKLOCATION; temporgl.cinfo.granstuff.orglstuff.diskorglptr.insidediskblocknumber = 0; temporgl.cinfo.granstuff.orglstuff.orglptr = (typecuc *) spanf; ((typecuc *) spanf)->leftbroorfather = (typecorecrum *) &temporgl; L("about to orglwrite() SPANF\n"); orglwrite(&temporgl); L("returned from orglwrite() SPANF\n"); L("leaving writeenfilades()\n"); }

---

Variable Documentation

typegranf granf

Definition at line 91 of file corediskout.cxx. Referenced by appendpm(), diskflush(), docopy(), docopyinternal(), docreatelink(), docreatenewdocument(), docreatenewversion(), docreatenode_or_account(), dodeletevspan(), doinsert(), domakelink(), dorearrange(), doretrievedocvspan(), doretrievedocvspanfoo(), doretrievedocvspanset(), doretrievev(), dumpgranfwids(), examine(), initsession(), link2sporglset(), restrictvspecsetovercommonispans(), showenfilades(), showorgl(), specset2ispanset(), sporglset2vspanset(), vspanset2sporglset(), and writeenfilades().

int noeatbrosnd

Definition at line 89 of file corediskout.cxx. Referenced by eatbrossubtreend().

int noishouldbother

Definition at line 87 of file corediskout.cxx. Referenced by ishouldbother().

int notakenephewnd

Definition at line 88 of file corediskout.cxx. Referenced by takenephewnd().

typespanf spanf

Definition at line 92 of file corediskout.cxx. Referenced by diskflush(), docopy(), docopyinternal(), docreatelink(), dofindlinksfromtothree(), dofindnumoflinksfromtothree(), domakelink(), examine(), finddocscontainingsp(), findnextnlinksfromtothreesp(), initsession(), retrievesporglsetinrange(), showenfilades(), and writeenfilades().

typediskloaf zzzeroloaf

Definition at line 94 of file corediskout.cxx. Referenced by orglwritepart2().

typeuberdiskloaf zzzerouberloaf

Definition at line 95 of file corediskout.cxx. Referenced by uniqueoutloaf().

---