[Plplot-cvs] SF.net SVN: plplot:[12701] trunk/examples/tcl/tclsh_standard_examples.in

[<ai...@us...>]

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.