CDF KITS Project:/ TclUtils/ scripts/ getenv.tcl		[ source navigation ] [ diff markup ] [ identifier search ] [ freetext search ] [ file search ]
	Architecture: [ i386 ] Version: [ 4.10.4 ] [ 4.10.5 ] [ 4.8.4 ] [ 4.8.4l3s ] [ 4.8.5 ] [ 4.9.0 ] [ 4.9.1 ] [ 4.9.1.hpt3 ] [ 4.9.1hpt3 ] [ 4.9.1top1 ] [ 5.0.0 ] [ 5.1.0 ] [ 5.1.0beamonly ] [ 5.1.1 ] [ 5.2.0 ] [ 5.3.0 ] [ 5.3.1 ] [ 5.3.1dsp ] [ 5.3.3 ] [ 5.3.3_nt ] [ 5.3.4 ] [ 6.1.1 ] [ 6.1.1b ] [ 6.1.2 ] [ 6.1.3 ] [ 6.1.4 ] [ 6.1.4int3 ] [ 6.1.4mc ] [ 6.1.4mc_a ] [ 6.1.6 ] [ development ]

 #-----------------------------------------------------------------------
 #  assigns value to a TCL variable, defaults to specified value
 #  call: getenv name default
 #-----------------------------------------------------------------------
 proc getenv { Name Default} {
   global env
   if { [lsearch [array names env] $Name ] != -1 } { set x $env($Name) 
   } else                                          { set x $Default    }
 
   puts "<<<getenv>>> : Name= $Name  Default= $Default  x=  $x"
   return $x
 } 
 
 #-----------------------------------------------------------------------
 #  return name of the output file as specified on the command line 
 #  assuming that ProductionExe was called  as 
 #
 #  "ProductionExe -o output_file"
 #-----------------------------------------------------------------------
 proc get_output_file { Name } {
   set x [split  [exec ps  -ww -C $Name -o cmd] ]
   set of ""; 
   set i  0 ; 
 
   foreach xx $x { 
     incr i ;  
     if { $xx == "-o" } { set of [lindex $x $i ] }
   }
   puts "<<<get_output_file>>>: output file = $of"
   return $of
 }

This page was automatically generated by the LXR engine. The LXR team