Revision: 12701
http://sourceforge.net/p/plplot/code/12701
Author: airwin
Date: 2013-11-15 00:58:19 +0000 (Fri, 15 Nov 2013)
Log Message:
-----------
Move to a more traditional startup of tclsh.
Modified Paths:
--------------
trunk/examples/tcl/tclsh_standard_examples.in
Modified: trunk/examples/tcl/tclsh_standard_examples.in
===================================================================
--- trunk/examples/tcl/tclsh_standard_examples.in 2013-11-14 23:19:09 UTC (rev 12700)
+++ trunk/examples/tcl/tclsh_standard_examples.in 2013-11-15 00:58:19 UTC (rev 12701)
@@ -1,16 +1,17 @@
#!@SH_EXECUTABLE@
-# Examples 14 and 31 left out - see Tk standard_examples.in
-# Choose the xwin device below (after plinit)
-# Note the backslash at the end - this causes Tcl to ignore
-# the next line. It becomes a valid Tcl script as well as
-# valid shell script
-# \
-@TCL_TCLSH@ <<EOF
+# Examples 14 and 31 commented out - see Tk standard_examples.in
+# Choose the xwin device below although any other interactive
+# device would work.
+# The following exec command reexecutes the script under tclsh. This
+# is possible because all comment lines are ignored by tclsh including
+# continued ones with a trailing backslash like this one \
+exec @TCL_TCLSH@ "$0" "$@"
lappend auto_path @pkgIndex_LOCATION@
package require Pltcl
source tcldemos.tcl
plsdev "xwin"
plinit
+# Disable pausing.
plspause 0
0
1
@@ -26,12 +27,14 @@
11
12
13
+#14
15
16
17
18
19
20
+# example 20 enables plspause so must disable it again.
plspause 0
21
22
@@ -43,6 +46,6 @@
28
29
30
+#31
33
exit
-EOF
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
