config: debugging state

globally save debugging state in CodeBrowser prefs.

Author: Matthias Kastner

procedures/CodeBrowser.ipf

@@ -46,7 +46,6 @@ static StrConstant CsaveWaves 		= "saveWaves"
 static Constant CsaveMaximum = 1024
 
 Constant    openKey           = 46 // ".", the dot
-Constant    debuggingEnabled  = 0
 
 // List of available macro subtypes
 StrConstant subTypeList       = "Graph;GraphStyle;GraphMarquee;Table;TableStyle;Layout;LayoutStyle;LayoutMarquee;ListBoxControl;Panel;ButtonControl;CheckBoxControl;PopupMenuControl;SetVariableControl"
@@ -96,7 +95,7 @@ Function/S interpretParamType(ptype, paramOrReturn)
 			typeStr += "/U"
 		endif
 
-//		if(debuggingEnabled)
+//		if(getGlobalVar("debuggingEnabled") == 1)
 //			string msg
 //			sprintf msg, "type:%d, str:%s", ptype, typeStr
 //			debugPrint(msg)
@@ -317,11 +316,9 @@ Function addDecoratedFunctions(module, procedure, declWave, lineWave)
 		lineWave[idx]    = NumberByKey("PROCLINE", fi)
 	endfor
 
-	if(debuggingEnabled)
-		string msg
-		sprintf msg, "decl rows=%d\r", DimSize(declWave,0)
-		debugPrint(msg)
-	endif
+	string msg
+	sprintf msg, "decl rows=%d\r", DimSize(declWave,0)
+	debugPrint(msg)
 End
 
 // Adds Constants/StrConstants by searching for them in the Procedure with a Regular Expression

procedures/CodeBrowser_hooks.ipf

@@ -89,6 +89,7 @@ Function preparePanelClose()
 		saveResetStorage()
 		killGlobalStr("search")
 		killGlobalVar("cleanOnExit")
+		killGlobalVar("debuggingEnabled")
 		// clean Package DataFolder
 		DeletePKGfolder()
 	endif

procedures/CodeBrowser_preferences.ipf

@@ -6,7 +6,7 @@
 // This file was created by () byte physics Thomas Braun, support@byte-physics.de
 // (c) 2013
 
-static Constant kPrefsVersion = 106
+static Constant kPrefsVersion = 107
 static StrConstant kPackageName = "CodeBrowser"
 static StrConstant kPrefsFileName = "CodeBrowser.bin"
 static Constant kPrefsRecordID = 0
@@ -20,7 +20,8 @@ Structure CodeBrowserPrefs
 	uint32 panelElement	// last marked element in panel
 	uint32 panelTopElement // top element in listbox (scrolling)
 	uint32 configCleanOnExit // delete CodeBrowser related data when CodeBrowser exits
-	uint32 reserved[94]	// Reserved for future use
+	uint32 configDebuggingEnabled // enable messages for debugging purpose
+	uint32 reserved[93]	// Reserved for future use
 EndStructure
 
 //	DefaultPackagePrefsStruct(prefs)
@@ -49,9 +50,10 @@ static Function DefaultPackagePrefsStruct(prefs)
 	prefs.panelTopElement= 0
 
 	prefs.configCleanOnExit = 1
+	prefs.configDebuggingEnabled = 0
 
 	Variable i
-	for(i=0; i<94; i+=1)
+	for(i=0; i<93; i+=1)
 		prefs.reserved[i] = 0
 	endfor
 End
@@ -91,6 +93,9 @@ static Function SyncPackagePrefsStruct(prefs)
 
 	configItem = getGlobalVar("cleanOnExit")
 	prefs.configCleanOnExit = configItem < 0 ? 1 : configItem
+
+	configItem = getGlobalVar("debuggingEnabled")
+	prefs.configDebuggingEnabled = configItem < 0 ? 0 : configItem
 End
 
 // InitPackagePrefsStruct(prefs)
@@ -132,6 +137,7 @@ Function LoadPackagePrefsFromDisk(prefs)
 	prefs.panelCoords[3] /= scale
 
 	setGlobalVar("cleanOnExit", prefs.configCleanOnExit)
+	setGlobalVar("debuggingEnabled", prefs.configDebuggingEnabled)
 End
 
 Function SavePackagePrefsToDisk(prefs)

procedures/CodeBrowser_utils.ipf

@@ -86,7 +86,7 @@ End
 Function debugPrint(msg)
 	string msg
 
-	if(debuggingEnabled)
+	if(getGlobalVar("debuggingEnabled") == 1)
 		printf "%s(...): %s\r", GetRTStackInfo(2), RemoveEnding(msg,"\r")
 	endif
 End
@@ -278,4 +278,4 @@ Function timerStop(timerRefNum)
 
 	microseconds = stopMSTimer(timerRefNum)
 	return microseconds
-End
+End