Log executed scripts in debug builds

benstone · Jan 8, 2025 · 661aa24 · 661aa24
1 parent d03fb2a
commit 661aa24
Show file tree

Hide file tree

Showing 2 changed files with 36 additions and 0 deletions.
diff --git a/kauai/src/screxe.cpp b/kauai/src/screxe.cpp
@@ -141,6 +141,22 @@ bool SCEB::FAttachScript(PSCPT pscpt, long *prglw, long clw)
     long lw;
     DVER dver;
 
+#ifdef DEBUG
+    if (pscpt != pvNil)
+    {
+        STN stnTrace;
+        if (pscpt->_stnSrcChunk.Cch() > 0)
+        {
+            stnTrace.FFormatSz(PszLit("Executing: %f:%d: %s\n"), pscpt->Ctg(), pscpt->Cno(), &pscpt->_stnSrcChunk);
+        }
+        else
+        {
+            stnTrace.FFormatSz(PszLit("Executing: %f:%d\n"), pscpt->Ctg(), pscpt->Cno());
+        }
+        OutputDebugStringA(stnTrace.Psz());
+    }
+#endif // DEBUG
+
     Free();
     _lwReturn = 0;
     _fError = fFalse;
@@ -1381,6 +1397,20 @@ PSCPT SCPT::PscptRead(PCFL pcfl, CTG ctg, CNO cno)
         return pvNil;
     }
 
+#ifdef DEBUG
+    {
+        // Store source information in the script object
+        FLO flo;
+        AssertDo(blck.FGetFlo(&flo), "Cannot get file location for script chunk");
+        flo.pfil->GetFni(&pscpt->_fniSrc);
+
+        if (!pcfl->FGetName(ctg, cno, &pscpt->_stnSrcChunk))
+        {
+            pscpt->_stnSrcChunk = "";
+        }
+    }
+#endif // DEBUG
+
     if (kboOther == bo)
         SwapBytesRglw(pgllw->QvGet(0), pgllw->IvMac());
     pscpt->_pgllw = pgllw;

diff --git a/kauai/src/screxe.h b/kauai/src/screxe.h
@@ -53,6 +53,12 @@ class SCPT : public SCPT_PAR
     friend class SCEB;
     friend class SCCB;
 
+#ifdef DEBUG
+    FNI _fniSrc;           // Source file
+    STN _stnSrcChunk = ""; // Source chunk name
+
+#endif // DEBUG
+
   public:
     static bool FReadScript(PCRF pcrf, CTG ctg, CNO cno, PBLCK pblck, PBACO *ppbaco, long *pcb);
     static PSCPT PscptRead(PCFL pcfl, CTG ctg, CNO cno);