TempleOS V5.03 Nightly (ISO SHA-1 f70d475)

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","120,874");
-DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,152");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,860");
+DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,136");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
   DefinePrint("DD_MP_VECT_END","%08X",

Adam/AExts.HC

@@ -3,7 +3,6 @@ extern U0 ACDDefsPut(CDoc *doc=NULL,U8 *st,I64 num=-1);
 extern U0 ACDFillin(I64 n);
 extern U0 ACFillIn(I64 n);
 extern U0 ACMan(I64 n,CTask *parent_task=NULL);
-extern U0 ACMisspelledFind(CDoc *doc);
 extern I64 AdamFile(U8 *filename,Bool warn_ext=TRUE);
 extern Bool AutoComplete(Bool val=OFF);
 extern I64 BMPWrite(U8 *filename,CDC *dc,I64 bits=4);

Adam/AutoComplete/ACFill.HC

@@ -204,41 +204,6 @@ U0 ACDDef(I64 n,CTask *parent=NULL)
     ACDPopUpDef(acd.fillins[n],-1,parent);
 }
 
-U0 ACMisspelledFind(CDoc *doc)
-{
-  Bool unlock=DocLock(doc);
-  CDocEntry *doc_e=doc->cur_entry;
-  I64 col=doc->cur_col,col2,ch;
-  do {
-    if (doc_e!=doc && doc_e->de_flags&DOCEF_TAG) {
-      while (col<doc_e->max_col) {
-	while (col<doc_e->max_col && !Bt(char_bmp_word,doc_e->tag[col]))
-	  col++;
-	if (col<doc_e->max_col) {
-	  col2=col;
-	  while (col2<doc_e->max_col && Bt(char_bmp_word,doc_e->tag[col2]))
-	    col2++;
-	  ch=doc_e->tag[col2];
-	  doc_e->tag[col2]=0;
-	  if (StrICmp(&doc_e->tag[col],ACDWordPtAt(&doc_e->tag[col])+1)) {
-	    doc_e->tag[col2]=ch;
-	    doc->cur_entry=doc_e;
-	    doc->cur_col=col;
-	    goto fm_done;
-	  }
-	  doc_e->tag[col2]=ch;
-	  col=col2;
-	}
-      }
-    }
-    doc_e=doc_e->next;
-    col=doc_e->min_col;
-  } while (doc_e!=doc->cur_entry);
-fm_done:
-  if (unlock)
-    DocUnlock(doc);
-}
-
 #help_index "AutoComplete"
 U0 ACFillIn(I64 n)
 {

Adam/DolDoc/DocEd.HC

@@ -21,6 +21,18 @@ U8 *EdOverStrikeCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
   return st;
 }
 
+U8 *EdAutoSaveCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
+{
+  CDoc *doc=doc_e->user_data;
+  U8 *st=MAlloc(8,mem_task);
+  if (doc->flags & DOCF_AUTO_SAVE)
+    *st='S';
+  else
+    *st='Ä';
+  st[1]=0;
+  return st;
+}
+
 U8 *EdFilterCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
 {
   CDoc *doc=doc_e->user_data;
@@ -109,7 +121,7 @@ public Bool DocEd(CDoc *doc,I64 dof_flags=0)
     DocDataFmt(bdoc,doc_e);
   }
 
-  DocPrint(bdoc,"$$CM+BY+RX+NC,-30,1$$");
+  DocPrint(bdoc,"$$CM+BY+RX+NC,-31,1$$");
   doc_e=DocPrint(bdoc,"$$TX+BD+TC,\"     \"$$");
   doc_e->user_data=doc;
   doc_e->tag_cb=&EdMoreCB;
@@ -124,6 +136,9 @@ public Bool DocEd(CDoc *doc,I64 dof_flags=0)
   doc_e->tag_cb=&EdOverStrikeCB;
   doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
   doc_e->user_data=doc;
+  doc_e->tag_cb=&EdAutoSaveCB;
+  doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
+  doc_e->user_data=doc;
   doc_e->tag_cb=&EdDollarCB;
   doc_e=DocPrint(bdoc,"$$DA+BD+RD-TRM,A=\"Line:%%04d \"$$");
   doc_e->data=&doc->line;

Adam/DolDoc/DocFile.HC

@@ -265,6 +265,8 @@ Bool DocCaptureUndo(CDoc *doc,Bool force=FALSE)
       u->doc_flags=doc->flags;
       res=TRUE;
     }
+    if (doc->flags&DOCF_AUTO_SAVE)
+      DocWrite(doc);
     if (unlock)
       DocUnlock(doc);
   }

Adam/DolDoc/DocPutKey.HC

@@ -577,9 +577,9 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 	case CH_CTRLS:
 	  if (sc&SCF_SHIFT) {
 	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Edit/Find Misspelled");
+	      KeyDescSet("Edit/Toggle AutoSave");
 	    else
-	      ACMisspelledFind(doc);
+	      LBtc(&doc->flags,DOCf_AUTO_SAVE);
 	  } else {
 	    if (sc&SCF_KEY_DESC)
 	      KeyDescSet("Edit/Save");

Compiler/CompilerB.HH

@@ -11,6 +11,7 @@ public _extern _LAST_FUN I64 LastFun(I64 argc,I64 *argv);
 public extern I64 RunFile(U8 *name,I64 ccf_flags=0,...);
 public extern I64 RunFile2(U8 *name,I64 ccf_flags=0,...);
 public extern CCmpGlbls cmp;
+
 #help_index "Compiler/Directive"
 #help_file "::/Doc/Directives"
 public extern Bool Echo(Bool val);
@@ -64,7 +65,6 @@ public extern I64 PrsKeyWord(CCmpCtrl *cc);
 #help_index "Compiler;Cmd Line (Typically)"
 extern I64 Cmp(U8 *filename,
 	U8 *map_name=NULL,U8 *out_name=NULL,U8 mapfile_drv_let=0);
-
 #help_index "Debugging/Unassemble"
 public extern U8 *U(U8 *rip,I64 cnt=20,I64 seg_size=64);
 public extern U0 Ui(U8 *buf,U8 **_rip,I64 seg_size=64,

Demo/AcctExample/PersonalNotes.DD

@@ -60,7 +60,7 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
 * Document, perhaps with video, $LK,"GetStr",A="MN:GetStr"$() all the way down into $LK,"PutKey",A="MN:PutKey"$() code.
 
 * Better dictionary.
-* Good $LK,"spell checker",A="MN:ACMisspelledFind"$.
+* Good spell checker.
 * Good Bible search.
 
 * Can $LK,"MEM_EXTRA_HASH2_PAGS",A="MN:MEM_EXTRA_HASH2_PAGS"$ be just one?

Demo/AcctExample/Registry.HC

@@ -62,7 +62,7 @@ $ID,-2$$TR,"Titanium"$
 $ID,2$I64 best_score=16469;
 $ID,-2$$TR,"TOSRegen"$
 $ID,2$progress1_tf=0.000;progress2_tf=0.000;
-progress3_tf=0.000;progress4_tf=190.819;
+progress3_tf=0.000;progress4_tf=189.423;
 $ID,-2$$TR,"TempleTetris"$
 $ID,2$I64 hiscore=1000;
 $ID,-2$$ID,-2$$TR,"Once"$

Demo/AcctExample/TOS/TOSBlog.HC

@@ -34,6 +34,7 @@ public U0 PLog()
   Msg(MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN|SCF_CTRL);
   Msg(MSG_KEY_DOWN_UP,0,SC_F6|SCF_ALT);
   Msg(MSG_KEY_DOWN_UP,'\n',0);
+  Msg(MSG_KEY_DOWN_UP,CH_CTRLS,0x61F0000061F);
   if (Ed(PLogLocalFile,EDF_WAS_WRITE))
     DocOpt(PLogLocalFile,"-r");
 }
@@ -156,6 +157,7 @@ public U0 Blog(Bool god_misc2=FALSE)
     Msg(MSG_KEY_DOWN_UP,0,SC_F6|SCF_ALT);
     Msg(MSG_KEY_DOWN_UP,'\n',0);
   }
+  Msg(MSG_KEY_DOWN_UP,CH_CTRLS,0x61F0000061F);
   if (Ed(BlogLocalFile,EDF_WAS_WRITE)) {
     DocOpt(BlogLocalFile,"-r");
     Copy(BlogLocalFile,"::" DAILY_BASE ".DD.Z");

Doc/ChgLog.DD

@@ -2,7 +2,10 @@ $WW,1$$FG,5$$TX+CX,"Change Log"$$FG$
 
 Use $LK,"R",A="MN:R"$() to rename if I change a label.
 
-$IV,1$----03/16/17 12:05:16----$IV,0$
+$IV,1$----03/17/17 03:46:54----$IV,0$
+
+$IV,1$----03/17/17 00:35:11----$IV,0$
+* Added toggle AutoSave $FG,2$<CTRL-SHIFT-s>$FG$.
 
 $IV,1$----03/14/17 00:14:39----$IV,0$
 * $BK,1$TempleOS version 5.03 Released$BK,0$

Doc/EdPullDown.DD

@@ -25,6 +25,7 @@ Edit
   GoRBrace(,0x5D,0x61B0000061B);
   Macro(,,0x3C0000003C);
   PlayMacro(,,0x23C0000023C);
+  AutoSaveToggle(,CH_CTRLS,0x61F0000061F);
 }
 
 Insert

Kernel/KernelA.HH

@@ -1268,11 +1268,12 @@ class CEdFileName
 // DOC header flags
 #define DOCF_PLAIN_TEXT 	0x1
 #define DOCF_PLAIN_TEXT_TABS	0x2 //has '\t', not DOCT_TAB
-#define DOCF_NO_CURSOR		0x4
-#define DOCF_CARRIAGE_RETURN	0x8
-#define DOCF_DBL_DOLLARS	0x10
-#define DOCF_COLOR_NAMES	0x20
-//Reserved x2
+#define DOCF_AUTO_SAVE		0x4
+#define DOCF_NO_CURSOR		0x8
+#define DOCF_CARRIAGE_RETURN	0x10
+#define DOCF_DBL_DOLLARS	0x20
+#define DOCF_COLOR_NAMES	0x40
+//Reserved x1
 #define DOCF_BORDER_DOC		0x100
 #define DOCF_FORM		0x200
 #define DOCF_SIZE_MIN		0x400
@@ -1304,11 +1305,12 @@ class CEdFileName
 
 #define DOCf_PLAIN_TEXT 	0
 #define DOCf_PLAIN_TEXT_TABS	1 //has '\t', not DOCT_TAB
-#define DOCf_NO_CURSOR		2
-#define DOCf_CARRIAGE_RETURN	3
-#define DOCf_DBL_DOLLARS	4
-#define DOCf_COLOR_NAMES	5
-//Reserved x2
+#define DOCf_AUTO_SAVE		2
+#define DOCf_NO_CURSOR		3
+#define DOCf_CARRIAGE_RETURN	4
+#define DOCf_DBL_DOLLARS	5
+#define DOCf_COLOR_NAMES	6
+//Reserved x1
 #define DOCf_BORDER_DOC		8
 #define DOCf_FORM		9
 #define DOCf_SIZE_MIN		10