#!/usr/bin/perl

#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
# 
# Copyright 1997-2007 Sun Microsystems, Inc. All rights reserved.
# 
# The contents of this file are subject to the terms of either the GNU
# General Public License Version 2 only ("GPL") or the Common Development
# and Distribution License("CDDL") (collectively, the "License").  You
# may not use this file except in compliance with the License. You can obtain
# a copy of the License at https://glassfish.dev.java.net/public/CDDL+GPL.html
# or glassfish/bootstrap/legal/LICENSE.txt.  See the License for the specific
# language governing permissions and limitations under the License.
# 
# When distributing the software, include this License Header Notice in each
# file and include the License file at glassfish/bootstrap/legal/LICENSE.txt.
# Sun designates this particular file as subject to the "Classpath" exception
# as provided by Sun in the GPL Version 2 section of the License file that
# accompanied this code.  If applicable, add the following below the License
# Header, with the fields enclosed by brackets [] replaced by your own
# identifying information: "Portions Copyrighted [year]
# [name of copyright owner]"
# 
# Contributor(s):
# 
# If you wish your version of this file to be governed by only the CDDL or
# only the GPL Version 2, indicate your decision by adding "[Contributor]
# elects to include this software in this distribution under the [CDDL or GPL
# Version 2] license."  If you don't indicate a single choice of license, a
# recipient has the option to distribute your version of this file under
# either the CDDL, the GPL Version 2 or to extend the choice of license to
# its licensees as provided above.  However, if you add GPL Version 2 code
# and therefore, elected the GPL Version 2 license, then the option applies
# only if the new code is made subject to such option by the copyright
# holder.
#


$sgml_location = $ARGV[0];
$xml_location  = $ARGV[1];

$SX="./sx";
$DCL="solbook.dcl";

opendir(DIR, $sgml_location) || die ("cannot open $sgml_location");
@file_names = readdir(DIR);
foreach $file_name (@file_names)
{
   $file = $sgml_location."/".$file_name;
   if (-f $file) 
   {
      if ($file_name =~ /(.*)\.1$/)
      {
         $xml_file = $xml_location."/".$1.".xml";

         open (File1, "<$file");
         open (File2, ">$file.temp");

         while (<File1>) {
            s/\<\?Pub.*?>//g;
            s/\<\/?replaceable\>//g;
            s/asadmin-//g;
            s/\<arg\> */[/g;
            s/\<\/arg\> */] /g;
            s/\<optional\> */\<optional\>[/g;
            s/\<\/optional\> */\<\/optional\>] /g;
            s/\<option\>/-/g;
            s/\<\/option\>//g;
            #print "$_";
            print File2 $_;
         }
         close(File1);
         close(File2);
         #call sx to convert sgml to xml
         system("$SX -xlower -butf-8 -xndata -E 0 -fsx.errs -c $DCL $file.temp > $xml_file");
         unlink($file.".temp");
      }
   }
}
closedir(DIR);

