Mercurial > ecos

comparison packages/ecosadmin.tcl @ 78:59d97b6ba612 ecos-sw-2000-03-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from eCos master repository on 2000-03-28-19:50:47-BST
author jlarmour
date Tue, 28 Mar 2000 20:13:29 +0000
parents 435cced73e2f
children 2085233a121a
comparison
equal deleted inserted replaced
77:abb6bd809e81 78:59d97b6ba612
1 #!/bin/sh
2 # these lines restart using the tcl shell \
3 exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
4 exec tclsh \"$0\" ${1+\"$@\"} ; \
5 elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
6 exec cygtclsh80 \"$0\" ${1+\"$@\"} ; \
7 else \
8 echo Could not find TCL interpreter ; \
9 exit 1 ; \
10 fi"
11
12
1 # {{{ Banner 13 # {{{ Banner
2 14
3 #=============================================================================== 15 #===============================================================================
4 # 16 #
5 # ecosadmin.tcl 17 # ecosadmin.tcl
49 # {{{ Version check 61 # {{{ Version check
50 62
51 # ---------------------------------------------------------------------------- 63 # ----------------------------------------------------------------------------
52 # ecosadmin.tcl requires at least version 8.0 of Tcl, since it makes use of 64 # ecosadmin.tcl requires at least version 8.0 of Tcl, since it makes use of
53 # namespaces. It is possible that some users still have older versions. 65 # namespaces. It is possible that some users still have older versions.
54 66 set a b
55 if { [info tclversion] < 8.0 } { 67 if { [info tclversion] < 8.0 } {
56 puts "This script requires Tcl 8.0 or later. You are running Tcl [info patchlevel]." 68 puts "This script requires Tcl 8.0 or later. You are running Tcl [info patchlevel]."
57 return 69 return
58 } 70 }
59 71