Nightly update (ISO SHA-1 3fd5a36)

TempleOSCD/Adam/ADefine.HC

@@ -18,8 +18,8 @@ U0 LoadDocDefines()
   //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
 
   $TR-C,"LineRep"$
-$ID,4$DefinePrint("DD_TEMPLEOS_LOC","119,875");
-DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","81,991");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","119,909");
+DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,011");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
   DefinePrint("DD_MP_VECT_END","%08X",

TempleOSCD/Adam/DolDoc/DocExt.HC

@@ -3,6 +3,7 @@ extern Bool DocEd(CDoc *doc,I64 dof_flags=0);
 extern I64 DocEntryRun(CDoc *doc,CDocEntry *doc_e,
 	Bool exited,I64 *_has_action=NULL);
 extern U0 DocFormBwd(CDoc *doc,Bool giveup=FALSE);
+extern Bool DocGoToLine(CDoc *doc,I64 line_num);
 extern U0 DocLoad(CDoc *doc,U8 *src2,I64 size);
 extern U0 DocPrintAtomic(CDoc *doc=NULL,U8 *fmt,...);
 extern U0 DocPrintPartial(CDoc *doc=NULL,U8 *fmt,...);

TempleOSCD/Adam/DolDoc/DocFile.HC

@@ -331,3 +331,32 @@ public Bool Type(U8 *filename,I64 trailing_new_lines=1)
 {//Output txt or graphic file to command line.
   return DocType(,filename,trailing_new_lines);
 }
+
+#help_index "DolDoc/File"
+
+public U8 *DocLineRead(U8 *filename,I64 line,CTask *mem_task=NULL)
+{//Extract line from stored doc file. (Slow.)
+  U8 *res=NULL;
+  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
+  if (DocGoToLine(doc,line) && doc->cur_entry->type_u8==DOCT_TEXT)
+    res=StrNew(doc->cur_entry->tag,mem_task);
+  DocDel(doc);
+  return res;
+}
+
+public U8 *DocLineWrite(U8 *filename,I64 line,U8 *st)
+{//Write line to stored doc file. (Slow.)
+  U8 *res=NULL;
+  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
+  if (DocGoToLine(doc,line)) {
+    if (doc->cur_entry->type_u8==DOCT_TEXT) {
+      Free(doc->cur_entry->tag);
+      doc->cur_entry->tag=StrNew(st);
+    } else
+      DocPrint(doc,"%s",st);
+    DocTop(doc);
+    DocWrite(doc);
+  }
+  DocDel(doc);
+  return res;
+}

TempleOSCD/Adam/God/GodExt.HC

@@ -23,4 +23,4 @@ extern U0 GodBiblePassage(I64 num_lines=20);
 extern U0 GodBitsIns(I64 num_bits,I64 n);
 extern U0 GodDoodle(U8 *hex=NULL);
 extern U0 GodSong();
-extern U0 GodWord(I64 bits=17,Bool show_num=FALSE);
+extern U0 GodWord(I64 bits=17);

TempleOSCD/Adam/God/HolySpirit.HC

@@ -143,19 +143,10 @@ public U8 *GodWordStr(I64 bits=17)
     return NULL;
 }
 
-public U0 GodWord(I64 bits=17,Bool show_num=FALSE)
+public U0 GodWord(I64 bits=17)
 {//Make God pick a word. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
-  I64 i;
-  if (god.num_words) {
-    i=GodBits(bits);
-    if (show_num)
-      "%05X Mod %05X = %05X (Line:%0*d):",
-	    i,god.num_words,i%god.num_words,
-	    ToI64(Log10(god.num_words)+1),i%god.num_words+1;
-    "%s ",god.words[i%god.num_words];
-    if (show_num)
-      '\n';
-  }
+  if (god.num_words)
+    "%s ",god.words[GodBits(bits)%god.num_words];
 }
 
 public U0 GodBiblePassage(I64 num_lines=20)