Home | History | Annotate | Line # | Download | only in autosetup 
      1 # A small Tcl script to verify that the chosen
      2 # interpreter works. Sometimes we might e.g. pick up
      3 # an interpreter for a different arch.
      4 # Outputs the full path to the interpreter
      5 
      6 if {[catch {info version} version] == 0} {
      7 	# This is Jim Tcl
      8 	if {$version >= 0.72} {
      9 		# Ensure that regexp works
     10 		regexp (a.*?) a
     11 		puts [info nameofexecutable]
     12 		exit 0
     13 	}
     14 } elseif {[catch {info tclversion} version] == 0} {
     15 	if {$version >= 8.5 && ![string match 8.5a* [info patchlevel]]} {
     16 		puts [info nameofexecutable]
     17 		exit 0
     18 	}
     19 }
     20 exit 1
     21