Ticket #188: added_config_option_and_console_flush1552.patch

smalltalk.bat

@@ -53 +53 @@
 :: Versions =
 :: ==========
 :: This script
-SET batch_script_version=1.6.1
+SET batch_script_version=1.6.3
 :: Smalltalk/X
 SET stx_version_default=6.2.6
 :: Do not change following line, $STX_VERSION_DEFAULT serves

smalltalk.cfg

@@ -194 +194 @@
 
 # error
 stdout_ErrorBackgroundColor=Black
-stdout_ErrorForegroundColor=Red
- No newline at end of file
+stdout_ErrorForegroundColor=Red
+
+# -------------------------------------------------------------------------------------------
+# Do not touch, unless you know what you are doing settings
+# -------------------------------------------------------------------------------------------
+# Sets, in milliseconds, sleep periods in powershell  while using custom StX switches
+# 50 milliseconds was found empirically 
+#  - less than 50ms takes heavy toll on the CPU
+#  - more than 50ms the stdout and stderror are refresh rate is quite slow
+__numeric.start_sleep_in_debug=50
+ No newline at end of file

smalltalk.ps1

@@ -22 +22 @@
 $log_file_width = [environment]::GetEnvironmentVariable("stx.__numeric.log_file_width")
 
 
+# Defines start-sleep periods while running custom switches
+$start_sleep_period = [environment]::GetEnvironmentVariable("stx.__numeric.start_sleep_in_debug")
+
+
 # =======================================================
 # Adjust all variables to PowerShell style $true/$false =
 # =======================================================
@@ -233 +237 @@
         $stx_switch,
         [Parameter(Mandatory=$true)]
         [String]$logging_function,
+        [Parameter(Mandatory=$true)]
+        [Int]$start_sleep_period,
         [Parameter(Mandatory=$false)]
         [String]$verb
     )
@@ -338 +344 @@
 
            # Starting process with no return value
            [Void]$process.Start()
-        
+
            # Begin async read events
            $process.BeginOutputReadLine()
            $process.BeginErrorReadLine()
-           
+
            # loop till application exited 
            # used for logging into the stdout/stderr
            # Note: the timeout has been tested for speed vs. process usage -> 50ms does not use CPU that much + the output is reasonably fast
            while (!$process.HasExited) { 
-               Start-Sleep -Milliseconds 50
+               [Console]::Out.Flush()
+               [Console]::Error.Flush()
+               Start-Sleep -Milliseconds $start_sleep_period
            }
            
           # Can not be used as it would wait for the exit of stx executable
@@ -495 +503 @@
             # getting rid of all the double quotes around stx switches (were added in batch file)
             $stx_switch = $stx_switch -replace '"([-]+\w+)"', "`$1"
             
-            $exit_code = DebugProcessExecute -executable $executable -stx_switch $stx_switch -logging_function $logging_function
+            $exit_code = DebugProcessExecute -executable $executable -stx_switch $stx_switch -logging_function $logging_function -start_sleep_period $start_sleep_period 
 
         } Else {
             $command = @"