TempleOSCDV4.11.ISO

Demo/DolDoc/NumBible.HC

@@ -0,0 +1,29 @@
+//  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;