release/src/router/usbmodeswitch/jim/autosetup/test-tclsh

   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