Nightly update (ISO SHA-1 57e189b)

TempleOSCD/Kernel/KGlbls.HC

@@ -26,7 +26,7 @@ CMsStateGlbls	ms,ms_last;
 CKbdStateGlbls	kbd;
 CKeyDevGlbls	keydev;
 CMsHardStateGlbls ms_hard,ms_hard_last;
-CSndGlbls	snd;
+CScrnCastGlbls	scrncast;
 CTextGlbls	text;
 
 U8  *(*fp_getstr2)(I64 flags=0);

TempleOSCD/Kernel/KMain.HC

@@ -48,9 +48,10 @@ U0 SysGlblsInit()
   for (i=-308;i<309;i++)
     pow10_I64[i+309]=Pow10(i);
 
-  snd.ona=ONA_REST;
-  QueInit(&snd.record_head);
-  snd.record_head.time=tS;
+  QueInit(&scrncast.snd_head);
+  scrncast.t0_now=Now;
+  scrncast.t0_tS=tS;
+  scrncast.ona=scrncast.snd_head.ona=ONA_REST;
 
   ProgressBarsRst;
 

TempleOSCD/Kernel/KMisc.HC

@@ -183,26 +183,45 @@ U0 Snd(I8 ona=ONA_REST)
   if (!Bt(&sys_semas[SEMA_MUTE],0) &&
 	!LBts(&sys_semas[SEMA_SND],0)) { //Mutex. Just throw-out if in use
     if (ona<=ONA_REST) {
-      snd.ona=ona;
+      scrncast.ona=ona;
       OutU8(0x61,InU8(0x61)&~3);
-    } else if (ona!=snd.ona) {
-      snd.ona=ona;
+    } else if (ona!=scrncast.ona) {
+      scrncast.ona=ona;
       period=ClampI64(SYS_TIMER_FREQ/Ona2Freq(ona),1,U16_MAX);
       OutU8(0x43,0xB6);
       OutU8(0x42,period);
       OutU8(0x42,period.u8[1]);
       OutU8(0x61,3|InU8(0x61));
     }
-    if (!IsDbgMode && snd.record) {
+    if (!IsDbgMode && scrncast.record) {
       d=ACAlloc(sizeof(CSndData));
       d->ona=ona;
-      d->time=tS;
-      QueIns(d,snd.record_head.last);
+      d->tS=tS;
+      QueIns(d,scrncast.snd_head.last);
     }
     LBtr(&sys_semas[SEMA_SND],0);
   }
 }
 
+Bool ScrnCast(Bool val=ON,Bool just_audio=FALSE,U8 *print_fmt="B:/Tmp/%X.GR")
+{//WinMgr saves GR files to a dir.
+  Bool old_val;
+  scrncast.just_audio=just_audio;
+  if (val) {
+    if (!(old_val=LBtr(&scrncast.record,0))) {
+      Free(scrncast.print_fmt);
+      scrncast.print_fmt=AStrNew(print_fmt);
+      scrncast.t0_now=Now;
+      scrncast.snd_head.tS=scrncast.t0_tS=tS;
+      scrncast.snd_head.ona=scrncast.ona;
+      LBts(&scrncast.record,0);
+    }
+  } else
+    old_val=LBtr(&scrncast.record,0);
+  Snd;
+  return old_val;
+}
+
 U0 SndRst()
 {//Fix stuck sound.
   if (Bt(&sys_semas[SEMA_SND],0)) {

TempleOSCD/Kernel/KernelA.HH

@@ -1487,13 +1487,7 @@ public class CWinMgrGlbls
 	ideal_refresh_tS,
 	last_refresh_tS;
   CWinMgrTimingGlbls *t;
-  CDate	scrn_cast_now;
-  F64	scrn_cast_tS;
-  U8	*scrn_cast_print_fmt;
-  CDC	*scrn_cast_dc,*dc2_alias;
-  Bool	show_menu,
-	grab_scroll,grab_scroll_closed,
-	scrn_cast;
+  Bool	show_menu,grab_scroll,grab_scroll_closed;
 };
 
 #help_index "AutoComplete"
@@ -3778,18 +3772,30 @@ class CKeyDevGlbls
 
 #help_index "Snd"
 #define ONA_REST	I8_MIN
-class CSndData
-{
-  CSndData *next,*last;
-  F64	time;
+
+#help_index "ScrnCast;Snd/AU Files"
+public class CAUData
+{//Fmt of AU files
+  CDate	cdt;
   I8	ona;
 };
 
-public class CSndGlbls
+class CSndData
+{//Fmt recorded in mem
+  CSndData *next,*last;
+  F64	tS;
+  I8	ona;
+};
+
+public class CScrnCastGlbls
 {
-  CSndData record_head;
+  CSndData snd_head;
+  CDate	t0_now;
+  F64	t0_tS;
+  U8	*print_fmt;
+  CDC	*dc,*dc2_alias;
+  Bool	record,just_audio;
   I8	ona;
-  Bool	record;
 };
 
 #help_index "Debugging/FunSeg"

TempleOSCD/Kernel/KernelC.HH

@@ -664,6 +664,11 @@ public extern U8 *IntEntryGet(I64 irq);
 public extern U8 *IntEntrySet(I64 irq,
 	U0 (*fp_new_hndlr)(),I64 type=IDTET_IRQ,I64 dpl=0);
 
+#help_index "ScrnCast;Cmd Line (Typically)"
+public extern Bool ScrnCast(Bool val=ON,Bool just_audio=FALSE,
+	U8 *print_fmt="B:/Tmp/%X.GR")
+public extern CScrnCastGlbls scrncast;
+
 #help_index "Snd"
 #help_file "::/Doc/Snd"
 public extern U0 Beep(I8 ona=62,Bool busy=FALSE);
@@ -673,7 +678,6 @@ public extern Bool Mute(Bool val);
 public extern F64 Ona2Freq(I64 ona);
 public extern U0 Snd(I8 ona=ONA_REST);
 public extern U0 SndRst();
-public extern CSndGlbls snd;
 
 #help_index "StdIn"
 #help_file "::/Doc/Streams"
@@ -725,7 +729,6 @@ public extern CTask *Spawn(U0 (*fp_addr)(U8 *data),U8 *data=NULL,
 
 #help_index "Time/CPU Cycles;Time/HPET;Time/Jiffies"
 public extern CCntsGlbls cnts;
-
 #help_index "Time/Date/CDate;Date/CDate"
 #help_file "::/Doc/TimeDate"
 public extern U0 Date2Struct(CDateStruct *_ds,CDate cdt);
@@ -749,6 +752,7 @@ public extern U16 mon_start_days2[12];
 #help_index "Time/HPET"
 #help_file "::/Doc/TimeHPET"
 public extern I64 HPET();
+
 #help_index "Time/Jiffies"
 #help_file "::/Doc/TimeJiffy"
 public extern I64 SysTimerRead();//18.33333*65536Hz (SYS_TIMER_FREQ)