81 lines
2.5 KiB
HolyC
Executable File
81 lines
2.5 KiB
HolyC
Executable File
public U0 DocProfile(U8 *filename,I64 flags)
|
||
{
|
||
I64 i,*cmd_stats=CAlloc(sizeof(I64)*DOCT_TYPES_NUM),
|
||
*flags_stats=CAlloc(sizeof(I64)*64),
|
||
*type_flags_stats=CAlloc(sizeof(I64)*64);
|
||
//Note: word wrap is determined by
|
||
//doc->win_task when a $LK,"CDoc",A="MN:CDoc"$ is recalculated
|
||
//use $LK,"DocRecalc",A="MN:DocRecalc"$().
|
||
CDoc *doc=DocRead(filename,flags);
|
||
|
||
//doc->head which is equ to doc is the
|
||
//header of the CQue and represents the end-of-file marker.
|
||
CDocEntry *doc_e=doc->head.next;
|
||
while (doc_e!=doc) {
|
||
cmd_stats[doc_e->type_u8]++;
|
||
for (i=0;i<64;i++)
|
||
if (Bt(&doc_e->de_flags,i))
|
||
flags_stats[i]++;
|
||
for (i=16;i<32;i++)
|
||
if (Bt(&doc_e->type,i))
|
||
type_flags_stats[i]++;
|
||
doc_e=doc_e->next;
|
||
}
|
||
DocDel(doc);
|
||
|
||
"$$PURPLE$$-------%s-------\n",filename;
|
||
"$$GREEN$$The lowest byte of the 32-bit 'doc_e->type', "
|
||
"'$$PURPLE$$doc_e->type.u8[0]$$GREEN$$', "
|
||
"is cmd and accessed with the union "
|
||
"'$$PURPLE$$doc_e->type_u8$$GREEN$$'. "
|
||
"See $$LK,\"CDocEntry\",A=\"MN:CDocEntry\"$$, "
|
||
"$$LK,\"Doc Type Defines\",A=\"MN:DOCT_TEXT\"$$ and "
|
||
"$$LK,\"Doc Type Codes\","
|
||
"A=\"FF:::/Adam/DolDoc/DocInit.HC,ST_DOC_CMDS\"$$.\n"
|
||
"$$FG$$";
|
||
for (i=0;i<DOCT_TYPES_NUM;i++)
|
||
if (cmd_stats[i])
|
||
"%4Z:%d\n",i,"ST_DOC_CMDS",cmd_stats[i];
|
||
|
||
"\n$$GREEN$$'$$PURPLE$$doc_e->type.u8[1]$$GREEN$$' is "
|
||
"the scrn color attr of the "
|
||
"entry. '$$PURPLE$$doc_e->type.u16[1]"
|
||
"$$GREEN$$' is some flags for blinking and "
|
||
"stuff. See $$LK,\"Doc Type Flag "
|
||
"Defines\",A=\"MN:DOCET_BLINK\"$$.\n$$FG$$";
|
||
|
||
for (i=16;i<32;i++)
|
||
if (type_flags_stats[i])
|
||
"%4d:%d\n",i,type_flags_stats[i];
|
||
|
||
"$$GREEN$$\n'$$PURPLE$$doc_e->de_flags$$GREEN$$' is 64-bit. "
|
||
"See $$LK,\"Doc Flag Defines\",A=\"MN:DOCEf_TAG\"$$ and "
|
||
"$$LK,\"Doc Flag Codes\","
|
||
"A=\"FF:::/Adam/DolDoc/DocInit.HC,ST_DOC_FLAGS\"$$.\n"
|
||
"$$FG$$";
|
||
for (i=0;i<64;i++)
|
||
if (flags_stats[i])
|
||
"%4Z:%d\n",i,"ST_DOC_FLAGS",flags_stats[i];
|
||
|
||
Free(cmd_stats);
|
||
Free(flags_stats);
|
||
PressAKey;
|
||
'\n';
|
||
}
|
||
|
||
/*See $LK,"TipOfDay",A="MN:TipOfDay"$.
|
||
|
||
Note: Not all $LK,"CDocEntry",A="MN:CDocEntry"$'s are full-sized nodes.
|
||
Some are $LK,"MAlloc",A="MN:MAlloc"$ed with a smaller size to save
|
||
mem. They all have at least the size $LK,"CDocEntryBase",A="MN:CDocEntryBase"$.
|
||
|
||
Note: $LK,"CDocEntry",A="MN:CDocEntry"$'s should be alloced from the
|
||
heap of the owning task, doc->mem_task.
|
||
|
||
The flag arrays $LK,"doldoc.type_flags_form",A="MN:CDolDocGlbls"$, etc
|
||
are useful.
|
||
*/
|
||
|
||
DocProfile("::/Doc/Welcome.DD",0);
|
||
DocProfile("::/Doc/Welcome.DD",DOCF_PLAIN_TEXT);
|