hschumann2/TempleOS-Source-Code

1 2//  This makes a new Bible file3//with line numbers.4 5U0 NumBible()6{7  CDoc *doc_in=DocRead("::/Misc/Bible.TXT.Z",DOCF_PLAIN_TEXT_TABS),8        *doc_out=DocNew("~/DemoNumBible.DD.Z");9  CDocEntry *doc_e=doc_in->head.next;10  while (doc_e!=doc_in) {11    if (doc_e->type_u8==DOCT_TEXT) {12      DocPrint(doc_out,"%05d %s",doc_e->y+1,doc_e->tag);13      doc_e=doc_e->next;14      if (doc_e->type_u8==DOCT_NEW_LINE) {15        DocPrint(doc_out,"\n");16        doc_e=doc_e->next;17      }18    } else if (doc_e->type_u8==DOCT_NEW_LINE) {19      DocPrint(doc_out,"%05d\n",doc_e->y+1);20      doc_e=doc_e->next;21    } else22      doc_e=doc_e->next;23  }24  doc_out->flags|=DOCF_NO_CURSOR;25  DocWrite(doc_out);26  DocDel(doc_out);27  DocDel(doc_in);28}29 30NumBible;31