diff options
| -rw-r--r-- | unix/mkLinks.tcl | 71 |
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" |