/[ascend]/trunk/config/wishvar
ViewVC logotype

Contents of /trunk/config/wishvar

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations) (download)
Fri Oct 29 20:54:12 2004 UTC (15 years, 11 months ago) by aw0a
File size: 469 byte(s)
Setting up web subdirectory in repository
1 #! /bin/sh
2 # config/wishvar tcl_library $with_wish
3 # generate the executable to extract a variable
4 # from the tickle shell
5 cat << EOF > wishvar.tmp.tcl
6 #! $2
7 # this is a generated file and can be deleted any time.
8 #puts \$argc
9 #puts \$argv
10 if {\$argc != 1} {
11 puts stderr "\$argv0 needs variable name"
12 exit 1
13 }
14 set var [lindex \$argv 0]
15 puts [set \$var]
16 exit 0
17 EOF
18
19 #call it
20 # usage wishvar varname shell-to-test-in
21 exec $2 wishvar.tmp.tcl -- $1
22 exit 0

Properties

Name Value
svn:executable *

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22