mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
9753e6deb9
In parallel mode, limit number of jobs in the queue to avoid slowdown occurring with long queues Obsolete DRAW tools removed Improvement of processing of test log: - log is collected as list and not as string for better performance - short table of test cases (TOC) is added in HTML log - algorithm to combine test cases in one row in HTML log is improved to avoid long lines (group bugs) Parse rules corrected to ignore irrelevant debug messages, and to correctly report tests 3rdparty export as skipped or BAD when Gl2Ps is missing or is built in incompatible mode on windows Tests corrected to pass in Debug mode on Windows
102 lines
3.5 KiB
Plaintext
Executable File
102 lines
3.5 KiB
Plaintext
Executable File
# This script is to be executed automatically at DRAWEXE start.
|
|
#
|
|
# For that to happen, either environment DRAWDEFAULT should be set pointing
|
|
# to this file, or CASROOT variable should be set, so that the script is
|
|
# found as $CASROOT/src/DrawResources/DrawDefault
|
|
|
|
# indicate that DRAW is interactive environment
|
|
set tcl_interactive 1
|
|
|
|
# define location of standard DRAW scripts; normally it is
|
|
# $CASROOT/src/DrawResources
|
|
set dir ""
|
|
if { [info exists env(DRAWHOME) ] } {
|
|
set dir $env(DRAWHOME)
|
|
} else {
|
|
if { [info exists env(CASROOT) ] } {
|
|
set dir [file join $env(CASROOT) src DrawResources]
|
|
} else {
|
|
puts "Warning: CASROOT is not defined, some features may not load correctly"
|
|
set dir [file dirname [info script]]
|
|
}
|
|
}
|
|
|
|
# load standard DRAW scripts
|
|
if { [file isdirectory $dir] } {
|
|
foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl TestCommands.tcl} {
|
|
if [file exist [file join $dir $script]] {
|
|
source [file join $dir $script]
|
|
} else {
|
|
puts "Warning: could not find command file $script"
|
|
}
|
|
}
|
|
|
|
# and TK extensions
|
|
set stationname $tcl_platform(platform)
|
|
if [info exists tk_version] {
|
|
source [file join $dir DrawTK.tcl]
|
|
# setup the icon for main window
|
|
if { ${stationname} == "windows" } {
|
|
wm iconbitmap . -default [file join $dir lamp.ico]
|
|
}
|
|
}
|
|
} else {
|
|
puts "Warning: could not find DRAW directory"
|
|
}
|
|
|
|
# set default testing environment
|
|
if { [info exists env(CASROOT)] && [file isdirectory $env(CASROOT)/tests] } {
|
|
if { ! [info exists env(CSF_TestScriptsPath)] } {
|
|
set env(CSF_TestScriptsPath) $env(CASROOT)/tests
|
|
} else {
|
|
set env(CSF_TestScriptsPath) $env(CSF_TestScriptsPath)[_path_separator]$env(CASROOT)/tests
|
|
}
|
|
if { ! [info exists env(CSF_TestDataPath)] } {
|
|
set env(CSF_TestDataPath) $env(CASROOT)/data
|
|
} else {
|
|
set env(CSF_TestDataPath) $env(CSF_TestDataPath)[_path_separator]$env(CASROOT)/data
|
|
}
|
|
}
|
|
|
|
# load application-defined initialization script, which is expected to
|
|
# be found either in the file pointed by environment variable CSF_DrawAppliInit,
|
|
# or in the file DrawAppliInit in the current directory
|
|
set draw_appli_init_file DrawAppliInit
|
|
if { [info exists env(CSF_DrawAppliInit)] } {
|
|
set draw_appli_init_file $env(CSF_DrawAppliInit)
|
|
}
|
|
if { [file readable $draw_appli_init_file] } {
|
|
if { [catch {source $draw_appli_init_file} res] } {
|
|
puts "Warning: problem while loading file $draw_appli_init_file: $res"
|
|
}
|
|
}
|
|
|
|
# on Windows, set special handler to update automatically environment variables
|
|
# in C subsystem when Tcl environment changes (see Mantis issue #23197)
|
|
if { $tcl_platform(platform) == "windows" && ! [catch {dgetenv PATH} res] } {
|
|
proc _update_c_env {envenv var op} {
|
|
global env
|
|
if { $op == "unset" } {
|
|
if { $var != "" } {
|
|
dsetenv $var
|
|
} else {
|
|
#"array get env varname" command calls _update_c_env with op="unset" and var=""
|
|
#It leads to detach of trace from env array
|
|
trace add variable env array _update_c_env
|
|
trace add variable env read _update_c_env
|
|
trace add variable env write _update_c_env
|
|
trace add variable env unset _update_c_env
|
|
}
|
|
} elseif { $op == "write" } {
|
|
dsetenv $var $env($var)
|
|
} elseif { $op == "read" } {
|
|
return dgetenv $var
|
|
}
|
|
}
|
|
#Execute "trace add ..." block from _update_c_env proc
|
|
_update_c_env env "" "unset"
|
|
}
|
|
|
|
# silent return from the script
|
|
return
|