From 4f406fbe19cbbe264c682c49cbb934efcb048614 Mon Sep 17 00:00:00 2001
From: gferg <>
Date: Mon, 9 Oct 2000 15:12:25 +0000
Subject: [PATCH] xml support in build script

---
 LDP/builder/ldp_mk | 66 ++++++++++++++++++++++++++++------------------
 1 file changed, 41 insertions(+), 25 deletions(-)

diff --git a/LDP/builder/ldp_mk b/LDP/builder/ldp_mk
index e5e89e01..083e023f 100644
--- a/LDP/builder/ldp_mk
+++ b/LDP/builder/ldp_mk
@@ -16,15 +16,17 @@ if($ARGV[0] eq '') {
 my($_toolroot)    = $ENV{'SGML_TOOLROOT'} ||
                              '/export/sunsite/users/gferg/toolroot';
 my($_jade)        = 'jade-1.2.1';
+my($dtd)          = 'SGML';
+my($dcl)          = '';
 my($linuxdoc)     = 1;
 my($create_index) = 1;
-my($cmd, $fname, $fname_wo_ext, $txt_filter, $style, $s, $db_v) = '';
+my($cmd, $fname, $fname_wo_ext, $txt_filter, $style, $s, $db_v, $x) = '';
 
 while(1) {
 
      if ($ARGV[0] eq "-style") {
          shift(@ARGV);
-         $style = ($ARGV[0] + 0);
+         $style = $ARGV[0];
          shift(@ARGV);
      } elsif ($ARGV[0] eq "-txt") {
          shift(@ARGV);
@@ -39,10 +41,14 @@ while(1) {
 }
 $fname = $ARGV[(@ARGV + 0) - 1];
 $fname_wo_ext = $fname;
-if( $fname =~ /\.sgml$/ ) {
+if( $fname =~ /\.[\w]+ml$/ ) {
     $fname_wo_ext =~ s/\.[\w]+$//;
 } else {
-    $fname .= "\.sgml";
+    if( -e "$fname.sgml" ) {
+        $fname .= "\.sgml";
+    } else {
+        $fname .= "\.xml";
+    }
 }
 if( !(-e "$fname") ) {
       print "\nldp_mk: ERROR - cannot find/read $fname\n";
@@ -59,7 +65,7 @@ if( $style eq '' ) {
 
 # determine DTD 
 #
-open(FP_IN, "head $fname | grep -i '\!doctype' |") || 
+open(FP_IN, "head -20 $fname | grep -i '\!doctype' |") || 
                die "\nldp_mk: ERROR - cannot determine DTD for $fname\n";
 $s = <FP_IN>;
 close(FP_IN);
@@ -67,6 +73,9 @@ close(FP_IN);
 if( $s eq '' ) {
     die "\nldp_mk: cannot determine DTD for $fname\n";
 }
+
+
+
 if( $s =~ /linuxdoc/i ) {
 
     $linuxdoc = 1;
@@ -80,11 +89,17 @@ if( $s =~ /linuxdoc/i ) {
 
     # do not override any various SGML catalog file settings
     #
+    if( $s =~ /\ xml\ /i ) {
+        $dtd = 'XML';
+        $x   = 'x';
+        $dcl = "${_toolroot}/${_jade}/pubtext/xml.dcl";
+    }
+
     if( $ENV{'SGML_CATALOG_FILES'} eq '' ) {
-        $s = ($db_v =~ /3/ ? "$_toolroot/dtd/docbook_31/catalog:" :
-                             "$_toolroot/dtd/docbook_41/catalog:")   .
-             "$_toolroot/dsssl/docbook/catalog:"  .
-             "$_toolroot/jade-1.2.1/dsssl/catalog";
+        $s = ($db_v =~ /3/ ? "${_toolroot}/dtd/docbook${x}_31/catalog:" :
+                             "${_toolroot}/dtd/docbook${x}_41/catalog:")   .
+             "${_toolroot}/dsssl/docbook/catalog:"  .
+             "${_toolroot}/${_jade}/dsssl/catalog";
         $ENV{'SGML_CATALOG_FILES'} = $s;
     }
 
@@ -93,18 +108,19 @@ if( $s =~ /linuxdoc/i ) {
     }
 
     $linuxdoc = 0;
-    print "\nldp_mk: $fname is DocBook (vers. $db_v) SGML\n";
+    print "\nldp_mk: $fname is DocBook (vers. $db_v) $dtd\n";
 }
 
 
-# create the SGML index...
+# create the index...
 #
 if( $linuxdoc == 0 && $create_index == 1 ) {
 
-    print "\nldp_mk: creating SGML index from $fname...\n";
+    print "\nldp_mk: creating index from $fname...\n";
 
-    $cmd = "$_toolroot/mkindex/collateindex.pl -N -o index.sgml; " .
-      "$_toolroot/$_jade/jade/jade -t sgml -V html-index -d $style $fname ; " .
+    $cmd = 
+      "$_toolroot/mkindex/collateindex.pl -N -o index.sgml; " .
+      "$_toolroot/$_jade/jade/jade -t sgml -V html-index -d $style $dcl $fname ; " .
       "$_toolroot/mkindex/collateindex.pl -g -t Index -i doc-index " .
       "-o index.sgml HTML.index;" .
       "rm -f HTML.index";
@@ -122,10 +138,11 @@ if( $linuxdoc == 1 ) {
 
 } else {
 
-    $cmd = "$_toolroot/$_jade/jade/jade -t sgml -i html -d $style $fname; " .
-           "mv -f \*.html $fname_wo_ext/;" .
-           "$_toolroot/$_jade/jade/jade -t sgml -i html -V nochunks " .
-              "-d $style $fname > 00_" . "$fname_wo_ext.html";
+    $cmd = 
+       "$_toolroot/$_jade/jade/jade -t sgml -i html -d $style $dcl $fname; " .
+       "mv -f \*.html $fname_wo_ext/;" .
+       "$_toolroot/$_jade/jade/jade -t sgml -i html -V nochunks " .
+                  "-d $style $dcl $fname > 00_" . "$fname_wo_ext.html";
 }
 
 system($cmd);
@@ -176,6 +193,9 @@ if( -e "$fname_wo_ext.txt" ) {
     open(CPIPE, "pwd |");
     $s = <CPIPE>; chop($s);
     my($pat) = 'file://localhost' . $s . '/';
+    $pat =~ s/\+/\\+/g;
+    my($pat2) = $fname_wo_ext;
+    $pat2 =~ s/\+/\\+/g;
     close(CPIPE);
 
     open(HFILE, "+< $fname_wo_ext.txt") || 
@@ -188,7 +208,7 @@ if( -e "$fname_wo_ext.txt" ) {
            }
            if ($count <= $def_blanks) {
                $_ =~ s/$pat//g;
-               $_ =~ s/00_$fname_wo_ext/$fname_wo_ext/g;
+               $_ =~ s/00_$pat2/$pat2/g;
                push(@flines, $_);
            }
     }
@@ -261,13 +281,9 @@ if( !(-e "$fname_wo_ext-html.tar.gz") ) {
 print "\nldp_mk: creating SGML package...\n";
 
 $cmd = "cp $fname ldp_mk_tmp; gzip -f ldp_mk_tmp; " .
-       "mv -f ldp_mk_tmp.gz $fname_wo_ext.sgml.gz";
+       "mv -f ldp_mk_tmp.gz $fname_wo_ext." . lc($dtd) . ".gz";
 system($cmd);
 
-if( !(-e "$fname_wo_ext.sgml.gz") ) {
-   print "\nldp_mk: WARNING - could not create $fname_wo_ext.sgml.gz\n";
-}
-
 
 # if LinuxDoc, create DocBook SGML...
 #
@@ -276,7 +292,7 @@ if( $linuxdoc == 1 ) {
     print "\nldp_mk: creating DocBook from LinuxDoc...\n";
 
     $ENV{'SGML_CATALOG_FILES'} =
-                 "$_toolroot/dtd/docbook.cat:$_toolroot/$_jade/dsssl/catalog";
+           "$_toolroot/dtd/docbook.cat:$_toolroot/$_jade/dsssl/catalog";
 
     $cmd = "$_toolroot/$_jade/sgmlnorm/sgmlnorm " .
                  "$_toolroot/ld2db/docbook.dcl $fname > EX_$fname ;" .