// This makes a new Bible file
//with line numbers.
U0 NumBible()
{
CDoc *doc_in=DocRead("::/Misc/Bible.TXT.Z",DOCF_PLAIN_TEXT_TABS),
*doc_out=DocNew("~/DemoNumBible.DD.Z");
CDocEntry *doc_e=doc_in->head.next;
while (doc_e!=doc_in) {
if (doc_e->type_u8==DOCT_TEXT) {
DocPrint(doc_out,"%05d %s",doc_e->y+1,doc_e->tag);
doc_e=doc_e->next;
if (doc_e->type_u8==DOCT_NEW_LINE) {
DocPrint(doc_out,"\n");
doc_e=doc_e->next;
}
} else if (doc_e->type_u8==DOCT_NEW_LINE) {
DocPrint(doc_out,"%05d\n",doc_e->y+1);
doc_e=doc_e->next;
} else
doc_e=doc_e->next;
}
doc_out->flags|=DOCF_NO_CURSOR;
DocWrite(doc_out);
DocDel(doc_out);
DocDel(doc_in);
}
NumBible;