Nightly update (ISO SHA-1 9a84f01)

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,909");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,042");
-DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,011");
+DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,012");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
   DefinePrint("DD_MP_VECT_END","%08X",

TempleOSCD/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,

TempleOSCD/Demo/AcctExample/LightTable.HC

@@ -0,0 +1,90 @@
+#define PTS_NUM	1024
+
+U0 LightTable()
+{
+  I64 msg_code,i,x1,y1,x2,y2,arg1,arg2;
+  CDC *dc=DCAlias;
+  CD3I32 *c=MAlloc(PTS_NUM*sizeof(CD3I32));
+
+  MenuPush(
+	"File {"
+	"  Restart(,'\n');"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Edit {"
+	"  Fill(,CH_SPACE);"
+	"}"
+	);
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-
+	WIF_SELF_BORDER-WIF_FOCUS_TASK_MENU;
+  Fs->text_attr=BLACK<<4+WHITE;	//Current $LK,"CTask",A="MN:CTask"$ is Fs segment register.
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  try {
+    while (TRUE) {
+      msg_code=GetMsg(&arg1,&arg2,
+	    1<<MSG_KEY_DOWN+1<<MSG_MS_L_DOWN+1<<MSG_MS_R_UP);
+lt_restart:
+      switch (msg_code) {
+	case MSG_MS_R_UP:
+	  x1=arg1; y1=arg2;
+	  x2=arg1; y2=arg2;
+	  dc->color=ROP_XOR+LTRED^TRANSPARENT;
+	  do {
+	    GrLine3(dc,x1,y1,0,x2,y2,0);
+	    msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP+1<<MSG_MS_MOVE);
+	    GrLine3(dc,x1,y1,0,x2,y2,0);
+	    x2=arg1; y2=arg2;
+	  } while (msg_code!=MSG_MS_L_UP);
+	  GrLine3(dc,x1,y1,0,x2,y2,0);
+	  break;
+	case MSG_MS_L_DOWN:
+	  i=0;
+	  dc->color=ROP_XOR+WHITE^TRANSPARENT;
+	  do {
+	    c[i].x=arg1; c[i].y=arg2; c[i].z=0;
+	    Gr2BSpline(dc,c,i+1);
+	    msg_code=GetMsg(&arg1,&arg2,
+		  1<<MSG_KEY_DOWN+1<<MSG_MS_L_UP+1<<MSG_MS_MOVE+1<<MSG_MS_R_UP);
+	    Gr2BSpline(dc,c,i+1);
+	    if (msg_code==MSG_KEY_DOWN)
+	      goto lt_restart;
+	    else if (msg_code==MSG_MS_L_UP) {
+	      Noise(100,30,50);
+	      i++;
+	    }
+	  } while (i<PTS_NUM-1 && msg_code!=MSG_MS_R_UP);
+	  Gr2BSpline(dc,c,i);
+	  break;
+	case MSG_KEY_DOWN:
+	  switch (arg1) {
+	    case CH_SPACE:
+	      GrFloodFill(dc,ms.pos.x-Fs->pix_left,ms.pos.y-Fs->pix_top);
+	      break;
+	    case '\n':
+	      DCFill;
+	      break;
+	    case CH_ESC:
+	    case CH_SHIFT_ESC:
+	      goto lt_done;
+	  }
+	  break;
+      }
+    }
+lt_done:
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  DCFill;
+  Free(c);
+  DCDel(dc);
+  SettingsPop;
+  MenuPop;
+}
+
+LightTable;

TempleOSCD/Demo/AcctExample/PersonalMenu.DD

@@ -10,7 +10,7 @@ $MA,"Titan   ",LM="Cd(\"/Apps/Titanium\");Dir;\n"$$MA,"ToTheFrt",LM="Cd(\"/Apps/
 $MA,"Demo    ",LM="Cd(\"/Demo\");Dir;\n"$$MA,"AcctEmpl",LM="Cd(\"/Demo/AcctExample\");Dir;\n"$$MA,"Asm     ",LM="Cd(\"/Demo/Asm\");Dir;\n"$$MA,"DocDoc  ",LM="Cd(\"/Demo/DolDoc\");Dir;\n"$$MA,"Dsk     ",LM="Cd(\"/Demo/Dsk\");Dir;\n"$$MA,"Games   ",LM="Cd(\"/Demo/Games\");Dir;\n"$$MA,"Graphics",LM="Cd(\"/Demo/Graphics\");Dir;\n"$$MA,"InFile  ",LM="Cd(\"/Demo/InFile\");Dir;\n"$$MA,"Lectures",LM="Cd(\"/Demo/Lectures\");Dir;\n"$$MA,"MultCore",LM="Cd(\"/Demo/MultiCore\");Dir;\n"$
 $MA,"RevFile ",LM="Cd(\"/Demo/RevFileDemo\");Dir;\n"$$MA,"Snd     ",LM="Cd(\"/Demo/Snd\");Dir;\n"$$MA,"SortFile",LM="Cd(\"/Demo/SortFileDemo\");Dir;\n"$$MA,"Template",LM="Cd(\"/Demo/Templates\");Dir;\n"$$MA,"HtmlTXT ",LM="Cd(\"/Demo/ToHtmlToTXTDemo\");Dir;\n"$$MA,"WebLog  ",LM="Cd(\"/Demo/WebLogDemo\");Dir;\n"$$MA,"Stadium ",LM="Cd(\"/Demo/Games/Stadium\");Dir;\n"$
 $MA,"Doc     ",LM="Cd(\"/Doc\");Dir;\n"$$MA,"Misc    ",LM="Cd(\"/Misc\");Dir;\n"$$MA,"Tour    ",LM="Cd(\"/Misc/Tour\");Dir;\n"$$MA,"Tmp     ",LM="Cd(\"/Tmp\");Dir;\n"$$MA,"ScrnShot",LM="Cd(\"/Tmp/ScrnShots\");Dir;\n"$$MA,"DelScrSt",LM="Del(\"D:/Tmp/*.SND\");DelTree(\"D:/Tmp/ScrnShots\");DirMk(\"D:/Tmp/ScrnShots\");Del(\"C:/Tmp/*.SND\");DelTree(\"C:/Tmp/ScrnShots\");DirMk(\"C:/Tmp/ScrnShots\");\n"$$MA,"0000Boot",LM="Cd(\"/0000Boot\");Dir;\n"$$MA,"Linux   ",LM="Cd(\"/Linux\");Dir;\n"$
-$MA,"LinxDict",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/LinuxDict.TXT**\\\");\");\n"$$MA,"Happy   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/HappyWords.TXT*\\\");\");\n"$$MA,"Word1000",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Words1000.TXT*\\\");\");\n"$$MA,"August  ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/AugustWords.TXT**\\\");\");\n"$$MA,"Words   ",LM="Cd(\"/Home/Sup1/Sup1Words\");Dir;\n"$
+$MA,"LinxDict",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/LinuxDict.TXT**\\\");\");\n"$$MA,"Happy   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/HappyWords.TXT*\\\");\");\n"$$MA,"Word1000",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Words1000.TXT*\\\");\");\n"$$MA,"Word10k ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Words10k.TXT*\\\");\");\n"$$MA,"August  ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/AugustWords.TXT**\\\");\");\n"$$MA,"Words   ",LM="Cd(\"/Home/Sup1/Sup1Words\");Dir;\n"$
 $MA,"MakeStd ",LM="MakeStdDistro;DirMk(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSCD.ISO\");\n"$$MA,"MakeStRS",LM="MakeStdRedSeaDistro;DirMk(\"D:/Wb\");Move(TOS_ISO_C_NAME,\"D:/Wb/TempleOSCDRS.ISO\");\n"$$MA,"MakeUlt ",LM="MakeUltraDistro;DirMk(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSUltra.ISO\");\n"$$MA,"MakeUtRS",LM="MakeUltraRedSeaDistro;DirMk(\"D:/Wb\");Move(TOS_ISO_C_NAME,\"D:/Wb/TempleOSUltraRS.ISO\");\n"$$MA,"MakeStaf",LM="MakeStaffDistro;DirMk(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSStaff.ISO\");\n"$$MA,"MakeDbg ",LM="MakeDbgDistro;DirMk(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSDbg.ISO\");\n"$
 $MA,"BurnStd ",LM="MakeStdDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnStRS",LM="MakeStdRedSeaDistro;DVDImageWrite('T',TOS_ISO_C_NAME);\n"$$MA,"BurnUlt ",LM="MakeUltraDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnUtRS",LM="MakeUltraRedSeaDistro;DVDImageWrite('T',TOS_ISO_C_NAME);\n"$$MA,"BurnStaf",LM="MakeStaffDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnDbg ",LM="MakeDbgDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$
 

TempleOSCD/Demo/AcctExample/PersonalNotes.DD

@@ -235,6 +235,8 @@ $ID,-5$
 $FG,5$$TX+CX,"Committee Needed"$$FG$
 * Make binary tree look-up using FUN_SEG symbol addresses, so we can eliminate fun_seg cache and wall-paper kludge?  All HolyC functions and glbl vars would have left-right for address search.
 
+* Can we get rid of $LK,"MSG_CMD",A="MN:MSG_CMD"$?
+
 * Make so just CdRom; command to copy entire disk to ::/CdRom directory? 
 
 * $LK,"MP DepthBuf",A="FF:::/Adam/Gr/SpriteMesh.HC,dc->depth_buf=e->"$ is a kludge because of dc->depth_buf=NULL in various graphics routines.
@@ -437,7 +439,7 @@ $FG,5$$TX+CX,"Misc Notes"$$FG$
 Erik van der Karbargenbok: $LK,"TempleBot",A="PI:~/Sup1/Sup1Bin/TempleBot"$.
 Intel CEO's name: Brian Krzanich
 >$FG,2$lspci -v$FG$
-Size:$TX,"17378KB",D="DD_TEMPLEOSCD_K_SIZE"$
+Size:$TX,"17380KB",D="DD_TEMPLEOSCD_K_SIZE"$
 
 $FG,5$$TX+CX,"My Web Bookmarks"$$FG$$WW,0$
 $TX,"My FireFox Bookmarks",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/Bookmarks"$

TempleOSCD/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=199.452;
+progress3_tf=0.000;progress4_tf=193.633;
 $ID,-2$$ID,-2$$TR,"Once"$
 $ID,2$$TR,"Adam"$
 $ID,2$$ID,-2$$TR,"User"$

TempleOSCD/Demo/AcctExample/TOS/TOSHolySpirit.HC

@@ -278,6 +278,7 @@ U0 GodWordBatch(CHexWordForm *gm,I64 radix,I64 digits)
 {//Insert batch of words from rand hex.
   I64 i=0,j,k,min;
   CDirEntry *tmpde,*tmpde1;
+  U8 *filename;
 
   FifoU8Flush(god.fifo);
   GodHexIns(gm->rnd0);
@@ -302,7 +303,11 @@ U0 GodWordBatch(CHexWordForm *gm,I64 radix,I64 digits)
     }
     DirTreeDel(tmpde1);
   } else {
-    PutFileLink("::/Home/Sup1/Sup1Blog/NumWords1000.TXT");
+    if (digits==3)
+      filename="::/Home/Sup1/Sup1Blog/NumWords1000.TXT";
+    else
+      filename="::/Home/Sup1/Sup1Blog/NumWords10k.TXT";
+    PutFileLink(filename);
     '\n';
   }
 
@@ -353,7 +358,7 @@ U0 GodWordBatch(CHexWordForm *gm,I64 radix,I64 digits)
 	if (k<=9) {
 	  j=j*10+k;
 	  if (!--i) {
-	    "%s\n",DocLineRead("::/Home/Sup1/Sup1Blog/NumWords1000.TXT",j+1);
+	    "%s\n",DocLineRead(filename,j+1);
 	    break;
 	  }
 	}
@@ -514,7 +519,7 @@ public U0 GodIns()
 	GodHeaderIns;
 	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
 	switch (PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0"
-	      "Words1000\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0"
+	      "Words1000\0Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0"
 	      "Painting100\0Painting1000\0Metallica\0")) {
 	  case:
 	    if (DocForm(gm(CRandExtDec5Form *)))
@@ -537,6 +542,10 @@ public U0 GodIns()
 	    if (DocForm(gm(CHexWordForm *)))
 	      GodWordBatch(gm,10,3);
 	    break;
+	  case:
+	    if (DocForm(gm(CHexWordForm *)))
+	      GodWordBatch(gm,10,4);
+	    break;
 	  case:
 	    if (DocForm(gm(CRandHex5Form *))) {
 	      "$$TX,\"How this random Bible passage was chosen.\","

TempleOSCD/Demo/AcctExample/TOS/TOSNIST.HC

@@ -48,13 +48,14 @@ U0 NISTBeaconURL(I64 timestamp)
 U0 NISTGodIns1()
 {
   tos_type=PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0Words1000\0"
-	"Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0Painting1000\0"
+	"Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0"
-	"Metallica\0");
+	"Painting1000\0Metallica\0");
   switch (tos_type) {
     case: tos_timestamp=GodHeaderIns("Bible");		break;
     case: tos_timestamp=GodHeaderIns("LinuxWords");	break;
     case: tos_timestamp=GodHeaderIns("HappyWords");	break;
     case: tos_timestamp=GodHeaderIns("Words1000");	break;
+    case: tos_timestamp=GodHeaderIns("Words10k");	break;
     case: tos_timestamp=GodHeaderIns("Bible");		break;
     case: tos_timestamp=GodHeaderIns("BookPick");	break;
     case: tos_timestamp=GodHeaderIns("Doodle");		break;
@@ -100,6 +101,12 @@ U0 NISTGodIns2()
 	GodWordBatch(gm,10,3);
       }
       break;
+    case:
+      if (DocForm(gm(CHexWordForm *))) {
+	NISTBeaconURL(gm->timestamp);
+	GodWordBatch(gm,10,4);
+      }
+      break;
     case:
       if (DocForm(gm(CRandHex5Form *))) {
 	"$$TX,\"How this random Bible passage was chosen.\","

TempleOSCD/Demo/Graphics/Doodle.HC

@@ -26,13 +26,12 @@ U0 Doodle()
 	x2=arg1; y2=arg2;
 	dc->color=ROP_XOR+color^TRANSPARENT;
 	dc->pen_width=7;
-	while (msg_code!=MSG_MS_L_UP) {
+	do {
 	  GrLine3(dc,x1,y1,0,x2,y2,0);
-	  msg_code=GetMsg(&arg1,&arg2,
+	  msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP+1<<MSG_MS_MOVE);
-		1<<MSG_MS_L_UP+1<<MSG_MS_MOVE);
 	  GrLine3(dc,x1,y1,0,x2,y2,0);
 	  x2=arg1; y2=arg2;
-	}
+	} while (msg_code!=MSG_MS_L_UP);
 	GrLine3(dc,x1,y1,0,x2,y2,0);
 	break;
       case MSG_KEY_DOWN:

TempleOSCD/Demo/Templates/InEdUtil.IN

@@ -0,0 +1,25 @@
+// See $LK,"InFile",A="HI:InFile"$
+
+U0 InEdUtil(U8 *filename)
+{
+  I64 i;
+
+  "Ed(\"%s\");\n",filename;
+
+  //Go to start of file
+  Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+  for (i=0;i<10000;i++) {
+    if (i)
+      Msg(MSG_KEY_DOWN_UP,0,SC_F3);
+    else
+      "%c0x%c",CH_CTRLF,CH_ESC;
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    "%02X",i;
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    "%c%c",CH_BACKSPACE,CH_BACKSPACE;
+  }
+}
+
+InEdUtil("MyFile");

TempleOSCD/Doc/ChgLog.DD

@@ -2,7 +2,7 @@ $WW,1$$FG,5$$TX+CX,"Change Log"$$FG$
 
 Use $LK,"R",A="MN:R"$() to rename if I change a label.
 
-$IV,1$----01/28/17 12:13:53----$IV,0$
+$IV,1$----01/28/17 17:59:29----$IV,0$
 
 $IV,1$----01/27/17 08:13:37----$IV,0$
 * Added $LK,"DocLineRead",A="MN:DocLineRead"$() and $LK,"DocLineWrite",A="MN:DocLineWrite"$().

TempleOSCD/Kernel/KernelA.HH

@@ -3215,6 +3215,7 @@ class CJobCtrl
 #define MSG_MS_R_D_DOWN 	11 //(x,y)
 #define MSG_MS_R_D_UP		12 //(x,y)
 
+//Fake messages used to send both an up and down.
 #define MSG_KEY_DOWN_UP		-2  //Down & UP
 #define MSG_MS_L_DOWN_UP	-5  //Down & Up
 #define MSG_MS_L_D_DOWN_UP	-7  //Down & Up

TempleOSCD/Kernel/KernelC.HH

@@ -680,7 +680,6 @@ public extern CSndGlbls snd;
 
 #help_index "StdOut"
 #help_file "::/Doc/Streams"
-
 #help_index "Task"
 public extern I64 BirthWait(CTask **_task,I64 task_num=-1);
 public extern U0 DeathWait(CTask **_task,Bool send_exit=FALSE);