From dbb19185a71ca2e98393e613ea78288659cb198c Mon Sep 17 00:00:00 2001
From: jfieber <jfieber@FreeBSD.org>
Date: Sun, 29 Sep 1996 17:34:05 +0000
Subject: [PATCH] Change the behavior of the -links option.  Instead of
 actually creating a symbolic link from foo.html (from <label name="foo">) to
 the numbered file, a shell script is built that can be used to make the links
 at a later time (read: after installation in the target directory).

---
 usr.bin/sgmlfmt/sgmlfmt.1  |  8 +++++---
 usr.bin/sgmlfmt/sgmlfmt.pl | 21 ++++++++-------------
 2 files changed, 13 insertions(+), 16 deletions(-)

diff --git a/usr.bin/sgmlfmt/sgmlfmt.1 b/usr.bin/sgmlfmt/sgmlfmt.1
index 3b2a1734d1bd..e75151fd9c54 100644
--- a/usr.bin/sgmlfmt/sgmlfmt.1
+++ b/usr.bin/sgmlfmt/sgmlfmt.1
@@ -103,10 +103,12 @@ option will be to cause the marked section not to be ignored.
 .It Fl links
 When used with the
 .Fl f Ar html
-option, for each 
+option, this option generates a shell script named
+.Pa file.ln .
+For each 
 .Li <label id="foo">
-in the document source 
-.Nm
+in the document source,
+.Pa file.ln
 generates a symbolic link
 .Pa foo.html
 pointing to the numbered
diff --git a/usr.bin/sgmlfmt/sgmlfmt.pl b/usr.bin/sgmlfmt/sgmlfmt.pl
index f5bcea087c73..4ae1514447d5 100755
--- a/usr.bin/sgmlfmt/sgmlfmt.pl
+++ b/usr.bin/sgmlfmt/sgmlfmt.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: sgmlfmt.pl,v 1.11 1996/09/08 20:40:52 jfieber Exp $
+# $Id: sgmlfmt.pl,v 1.12 1996/09/09 14:15:28 jfieber Exp $
 
 #  Copyright (C) 1996
 #       John R. Fieber.  All rights reserved.
@@ -597,7 +597,8 @@ sub navbar {
 
 # extlink
 #
-# creates a symbolic link from the name in a reference to the numbered
+# Build a shell script to create symbolic links from the name in 
+# a reference to the numbered
 # html file.  Since the file number that any given section has is 
 # subject to change as the document goes through revisions, this allows
 # for a fixed target that separate documents can hook into.
@@ -613,18 +614,12 @@ sub extlink {
 
     $file = "$ref.html";
 
-    if (-e $file) {
-	if (-l $file) {
-	    unlink($file);
-	    symlink($fn, $file);
-	}
-	else {
-	    print "Warning: $file exists and is not a symbolic link\n";
-	}
-    }
-    else {
-	symlink($fn, $file);
+    if (!fileno(LINKFILE)) {
+	print "Opening $fileroot.ln\n";
+	open(LINKFILE, ">${fileroot}.ln");
     }
+
+    print LINKFILE "ln -fs $fn $file\n";
 }
 
 # Now, read the command line and take appropriate action