23 lines
675 B
Plaintext
23 lines
675 B
Plaintext
$OpenBSD: patch-examples_struct_diff2_tcl,v 1.1 2009/03/19 16:54:32 sthen Exp $
|
|
--- examples/struct/diff2.tcl.orig Fri Jan 16 17:07:52 2009
|
|
+++ examples/struct/diff2.tcl Fri Jan 16 17:08:10 2009
|
|
@@ -1,3 +1,7 @@
|
|
+#! /bin/sh
|
|
+# the next line restarts with tclsh \
|
|
+exec tclsh "$0" ${1+"$@"}
|
|
+
|
|
# MAIN PROGRAM
|
|
#
|
|
# Usage:
|
|
@@ -8,10 +12,6 @@
|
|
# in a format similar to 'patch'. It not the same as patch, but could
|
|
# be modified to be exactly the same.
|
|
|
|
-lappend auto_path \
|
|
- [file join \
|
|
- [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] \
|
|
- modules struct]
|
|
package require struct
|
|
|
|
# Open the files and read the lines into memory
|