tng         2002/07/23 12:41:40

  Modified:    c/scripts packageSources.pl
  Log:
  Remove XML4C specific information from packageSources.pl
  
  Revision  Changes    Path
  1.46      +0 -80     xml-xerces/c/scripts/packageSources.pl
  
  Index: packageSources.pl
  ===================================================================
  RCS file: /home/cvs/xml-xerces/c/scripts/packageSources.pl,v
  retrieving revision 1.45
  retrieving revision 1.46
  diff -u -r1.45 -r1.46
  --- packageSources.pl 4 Jul 2002 15:36:15 -0000       1.45
  +++ packageSources.pl 23 Jul 2002 19:41:40 -0000      1.46
  @@ -7,7 +7,6 @@
   
   # Set up the environment variables for XERCES-C and ICU
   $XERCESCROOT = $ENV{'XERCESCROOT'};
  -$ICUROOT = $ENV{'ICUROOT'};
   
   # Check for the environment variables and exit if error
   if (!length($XERCESCROOT)) {
  @@ -26,15 +25,8 @@
           exit(-1);
   }
   
  -# We need ICUROOT only if we intend to use ICU for transcoding or message loading
  -# As of Version 3, this is not mandatory any more.
  -if (length($ICUROOT) > 0) {
  -       print "Using $ICUROOT as the ICU root directory.\n";
  -}
  -
   #Fix the backslashes on the Windows platform
   $XERCESCROOT =~ s/\\/\//g;
  -$ICUROOT =~ s/\\/\//g;
   
   # Read the target version from the file $XERCESCROOT/src/util/XercesDefs.hpp
   $versionfile = "$XERCESCROOT/src/xercesc/util/XercesDefs.hpp";
  @@ -87,13 +79,6 @@
      print ("Targetdir is : " . $srctargetdir . "\n");
      system("cp -Rf $XERCESCROOT/* $srctargetdir");
   
  -   # Select APache style or IBM Alphaworks style docs
  -   if (length($ICUROOT) > 0) {
  -     change_documentation_entities("$srctargetdir/doc/dtd/entities.ent");
  -     change_doxygen("$srctargetdir/doc/Doxyfile");
  -     change_createdocs_bat("$srctargetdir/createdocs.bat");
  -   }
  -
      # Now create the API documentation from the XML sources
      chdir ("$srctargetdir/doc");
      system ("doxygen");
  @@ -272,68 +257,3 @@
                }
        }
   }
  -
  -sub change_documentation_entities()
  -{
  -        my ($thefile) = @_;
  -        print "\nConverting documentation entities ($thefile) for ICU usage...";
  -        my $thefiledotbak = $thefile . ".bak";
  -        rename ($thefile, $thefiledotbak);
  -
  -        open (FIZZLE, $thefiledotbak);
  -        open (FIZZLEOUT, ">$thefile");
  -        while ($line = <FIZZLE>) {
  -                $line =~ s/"Xerces C\+\+ Parser"/"XML for C\+\+ Parser"/g;
  -                $line =~ s/"Xerces-C\+\+"/"XML4C"/g;
  -                $line =~ s/"2\.0\.0"/"5\.0\.0"/g;
  -                $line =~ s/"1\.5\.2"/"3\.5\.2"/g;
  -                $line =~ s/"Xerces"/"XML4C"/g;
  -                $line =~ s/"xerces-c2_0_0"/"xml4c-5_0_0"/g;
  -                $line =~ s/"xerces-c-src2_0_0"/"xml4c-src-5_0_0"/g;
  -                $line =~ s/xerces-c-dev\@xml\.apache\.org/xml4c\@us\.ibm\.com/g;
  -                $line =~ 
s/xml\.apache\.org\/dist\/xerces-c/www\.alphaworks\.ibm\.com\/tech\/xml4c/g;
  -                print FIZZLEOUT $line;
  -        }
  -        close (FIZZLEOUT);
  -        close (FIZZLE);
  -        unlink ($thefiledotbak);
  -}
  -
  -sub change_doxygen()
  -{
  -        my ($thefile) = @_;
  -        print "\nConverting Doxygen ($thefile) for ICU usage...";
  -        my $thefiledotbak = $thefile . ".bak";
  -        rename ($thefile, $thefiledotbak);
  -
  -        open (FIZZLE, $thefiledotbak);
  -        open (FIZZLEOUT, ">$thefile");
  -        while ($line = <FIZZLE>) {
  -                $line =~ s/Xerces-C\+\+/XML4C/g;
  -                $line =~ s/1\.6\.0/4\.0\.0/g;
  -                $line =~ s/header.html/header_ibm.html/g;
  -                print FIZZLEOUT $line;
  -        }
  -        close (FIZZLEOUT);
  -        close (FIZZLE);
  -        unlink ($thefiledotbak);
  -}
  -
  -sub change_createdocs_bat()
  -{
  -        my ($thefile) = @_;
  -        print "\nConverting createdocs.bat ($thefile) for ICU usage...";
  -        my $thefiledotbak = $thefile . ".bak";
  -        rename ($thefile, $thefiledotbak);
  -
  -        open (FIZZLE, $thefiledotbak);
  -        open (FIZZLEOUT, ">$thefile");
  -        while ($line = <FIZZLE>) {
  -                $line =~ s/doc\/style/tools\/jars\/style-ibm.zip/g;
  -                print FIZZLEOUT $line;
  -        }
  -        close (FIZZLEOUT);
  -        close (FIZZLE);
  -        unlink ($thefiledotbak);
  -}
  -
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to