scripts/exportvym
author insilmaril
Thu, 22 Jan 2009 11:39:53 +0000
changeset 736 21f115d48daf
parent 37 df767ed748f3
permissions -rwxr-xr-x
More work on removing Selection class
insilmaril@37
     1
#!/usr/bin/perl
insilmaril@37
     2
#
insilmaril@37
     3
# Script to convert vym files to arbitrary formats
insilmaril@37
     4
# Using xml stylesheets
insilmaril@37
     5
#
insilmaril@37
     6
# written by Uwe Drechsel	<vym@insilmaril.de>
insilmaril@37
     7
#
insilmaril@37
     8
insilmaril@37
     9
my $version="0.1";
insilmaril@37
    10
my $PARSER="xsltproc";
insilmaril@37
    11
my $OUTDIR="";
insilmaril@37
    12
my $INPUTDIR="";
insilmaril@37
    13
my $XSL="vym2html.xsl";
insilmaril@37
    14
insilmaril@37
    15
insilmaril@37
    16
use Getopt::Long;
insilmaril@37
    17
GetOptions (
insilmaril@37
    18
    "o=s" => \$opt_outdir,
insilmaril@37
    19
	"x=s"=> \$opt_xst,
insilmaril@37
    20
    "h!" => \$opt_usage ) || usage ();
insilmaril@37
    21
insilmaril@37
    22
insilmaril@37
    23
insilmaril@37
    24
if ($opt_usage) {
insilmaril@37
    25
    $0 =~ s#.*/##g;
insilmaril@37
    26
    print <<Helpende;
insilmaril@37
    27
    
insilmaril@37
    28
exportvym	written by Uwe Drechsel - Version $version
insilmaril@37
    29
insilmaril@37
    30
usage: $0 [-h] VYMFILE
insilmaril@37
    31
insilmaril@37
    32
...TODO...
insilmaril@37
    33
insilmaril@37
    34
Helpende
insilmaril@37
    35
}
insilmaril@37
    36
insilmaril@37
    37
insilmaril@37
    38
if ($opt_xst) { $XST=$opt_XST; }
insilmaril@37
    39
if ($opt_outdir) { $OUTDIR="$opt_outdir/"; }
insilmaril@37
    40
if ($#ARGV <0) 
insilmaril@37
    41
{
insilmaril@37
    42
	die "not enough parameters given";
insilmaril@37
    43
} else
insilmaril@37
    44
{
insilmaril@37
    45
	# get MAPNAME
insilmaril@37
    46
	$MAPNAME=pop(@ARGV);
insilmaril@37
    47
	if ($MAPNAME=~/\//) 
insilmaril@37
    48
	{
insilmaril@37
    49
		# Get inputdir from path
insilmaril@37
    50
		$MAPNAME=~/(.*\/)(.*)/;
insilmaril@37
    51
		$INPUTDIR=$1;	
insilmaril@37
    52
		$MAPNAME=$2;	
insilmaril@37
    53
	}
insilmaril@37
    54
	if ($MAPNAME=~/(.*)(\.xml)/) { $MAPNAME=$1;}
insilmaril@37
    55
}
insilmaril@37
    56
insilmaril@37
    57
transform();
insilmaril@37
    58
insilmaril@37
    59
exit;
insilmaril@37
    60
insilmaril@37
    61
########################################################
insilmaril@37
    62
sub transform {
insilmaril@37
    63
########################################################
insilmaril@37
    64
	my $command="$PARSER -o $OUTDIR$MAPNAME.html $XSL $INPUTDIR$MAPNAME.xml"; 
insilmaril@37
    65
	print "$command\n";
insilmaril@37
    66
	system ($command);
insilmaril@37
    67
}
insilmaril@37
    68
	
insilmaril@37
    69
insilmaril@37
    70