[Woc-commit] CVS: woc2/source/maint/split prolog.wml,NONE,1.1 splitwml.pl,NONE,1.1

[Geert J. <gj...@us...>]

Update of /cvsroot/woc/woc2/source/maint/split
In directory sc8-pr-cvs1:/tmp/cvs-serv32380

Added Files:
	prolog.wml splitwml.pl 
Log Message:



--- NEW FILE: prolog.wml ---
<?xml version="1.0" encoding="ISO-8859-1"?>

<!DOCTYPE ITEM PUBLIC "-//www.woc.sci.kun.nl//DTD WOC Markup Language V1.0//EN" "http://www.woc.sci.kun.nl/wocml.dtd">


--- NEW FILE: splitwml.pl ---
#! /usr/bin/perl

use strict;

use diagnostics;



# Author: Geert Josten



my $version = "1.0";



print "$0 version $version\n\n";



my $indir;

my $infile;

my $outdir;

my $prolog;



if (@ARGV >= 3) {

  $infile = shift;

  $outdir = shift;

  $prolog = shift;

} else {

  $infile = "../../../data/woc/wml/woclist.xml";

  $outdir = "tmp";

  $prolog = "prolog.wml";

}



if (open (INFILE, "$infile")) {



if (open(PROLOG, "$prolog")) {

  $prolog = "";

  foreach my $p (<PROLOG>) {

    $prolog .= $p;

  }

} else {

  $prolog = <<EOT;

<?xml version="1.0" encoding="ISO-8859-1"?>

<!DOCTYPE ITEM PUBLIC "-//www.woc.sci.kun.nl//DTD WOC Markup Language V1.0//EN" "http://www.woc.sci.kun.nl/wocml.dtd">

EOT

}



print "prolog=$prolog\n";



while (<INFILE>) {

  #print;

  if (/\<ITEM.*?CODE="(.*?)"/i) {

    my $outfile = "$outdir/$1.wml";

    if (open (OUTFILE, ">$outfile")) {

      print "Writing $outfile";

      print OUTFILE $prolog;

      print OUTFILE;

    } else {

      print "ERROR: Cannot write outputfile $outdir/$1: $!\n";

      #exit;

    }

  } elsif (fileno(OUTFILE)) {

    if (/\<\/ITEM/i) {

      print OUTFILE;

      close (OUTFILE);

      print ", done..\n";

    } else {

      print OUTFILE;

    }

  }

}



} else {

  print "ERROR: Failed to open inputfile $infile: $!\n";

}



# zoals in Convert.java

sub NAMELikeToANCHORLike {

 # heeft 1 parameter

 my $param = shift @_;



 $param =~ s/^\s*(.*?)\s*$/$1/ig;

 $param =~ s/\ /\_/g;

 $param =~ s/[,|.|<|>]//g;

 $param =~ tr/[A-Z]/[a-z]/;



 return $param;

}