# 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"
  }
} 

# Temporary: load specific QA commands and handlers
if {[array get env QA_DUMP] != "" && $env(QA_DUMP) == "1"} {
    set env(CSF_DrawPluginQADefaults) $env(CASROOT)/src/DrawResources/.
    catch {pload FULL}
    catch {pload -DrawPluginProducts OMF CANONICALRECOGNITION EMESH PARASOLID DXF SAT }
    catch {pload QAcommands}
    catch {source $env(CSF_DrawPluginQADefaults)/QARebuildCommands}
}

# 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