Initial revision

1 files changed, 71 insertions, 0 deletions

diff --git a/unix/mkLinks.tcl b/unix/mkLinks.tcl
new file mode 100644
index 0000000..f9afcb2
--- /dev/null
+++ b/unix/mkLinks.tcl
@@ -0,0 +1,71 @@
+#!/bin/sh
+# mkLinks.tcl -- 
+#	This generates the mkLinks script
+# \
+exec tclsh "$0" ${1+"$@"}
+
+puts stdout \
+{#!/bin/sh
+# This script is invoked when installing manual entries.  It generates
+# additional links to manual entries, corresponding to the procedure
+# and command names described by the manual entry.  For example, the
+# Tcl manual entry Hash.3 describes procedures Tcl_InitHashTable,
+# Tcl_CreateHashEntry, and many more.  This script will make hard
+# links so that Tcl_InitHashTable.3, Tcl_CreateHashEntry.3, and so
+# on all refer to Hash.3 in the installed directory.
+#
+# Because of the length of command and procedure names, this mechanism
+# only works on machines that support file names longer than 14 characters.
+# This script checks to see if long file names are supported, and it
+# doesn't make any links if they are not.
+#
+# The script takes one argument, which is the name of the directory
+# where the manual entries have been installed.
+
+if test $# != 1; then
+    echo "Usage: mkLinks dir"
+    exit 1
+fi
+
+cd $1
+echo foo > xyzzyTestingAVeryLongFileName.foo
+x=`echo xyzzyTe*`
+rm xyzzyTe*
+if test "$x" != "xyzzyTestingAVeryLongFileName.foo"; then
+    exit
+fi
+}
+
+foreach file $argv {
+    set in [open $file]
+    set tail [file tail $file]
+    set ext [file extension $file]
+    set state begin
+    while {[gets $in line] >= 0} {
+	switch $state {
+	    begin {
+		if {[regexp "^.SH NAME" $line]} {
+		    set state name
+		}
+			    }
+					name {
+	    regsub {\\-.*} $line {} line
+	    foreach name [split $line ,] {
+		regsub -all { } $name "" name
+		if {[string compare $tail $name$ext] != 0} {
+		    puts "if test -r $tail; then"
+		    puts "    rm -f $name$ext"
+		    puts "    ln $tail $name$ext"
+		    puts "fi"
+		}
+	    }
+	    set state end
+	}
+	end {
+	    break
+	}
+	}
+    }
+    close $in
+}
+puts "exit 0"