1 #!/usr/local/bin/perl -w
6 # Creates LaTeX gamebook from XML source. This should subsequently be
7 # used to create a PDF or PostScript version.
12 my $PROGRAM_NAME = "gbtopml";
13 my $PATH_PREFIX = "$ENV{'HOME'}/aon/data";
14 my $XML_PATH = "$PATH_PREFIX/xml";
15 my $PML_PATH = "$PATH_PREFIX/pml";
17 my $JAVA = '/usr/bin/java';
19 # Check that all the binaries are were want them
22 push @BINARIES, ($JAVA);
26 die "$PROGRAM_NAME: Cannot find binary '".$_."'. Please install it.\n";
32 unless( $ARGV[ 0 ] ) { die "Usage:\n\t${PROGRAM_NAME} book-code\n"; }
34 print STDERR "Reminder:\n\tDid you declare the PML character entities in the XML?\n";
36 my $bookCode = $ARGV[ 0 ];
39 my $USE_ILLUSTRATORS = "";
41 if( $bookCode eq "01fftd" ) {
42 $XML_SOURCE = "01fftd.xml";
44 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
46 elsif( $bookCode eq "02fotw" ) {
47 $XML_SOURCE = "02fotw.xml";
49 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
51 elsif( $bookCode eq "03tcok" ) {
52 $XML_SOURCE = "03tcok.xml";
54 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
56 elsif( $bookCode eq "04tcod" ) {
57 $XML_SOURCE = "04tcod.xml";
59 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
61 elsif( $bookCode eq "05sots" ) {
62 $XML_SOURCE = "05sots.xml";
64 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
66 elsif( $bookCode eq "06tkot" ) {
67 $XML_SOURCE = "06tkot.xml";
69 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
71 elsif( $bookCode eq "07cd" ) {
72 $XML_SOURCE = "07cd.xml";
74 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
76 elsif( $bookCode eq "08tjoh" ) {
77 $XML_SOURCE = "08tjoh.xml";
79 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
81 elsif( $bookCode eq "09tcof" ) {
82 $XML_SOURCE = "09tcof.xml";
84 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
86 elsif( $bookCode eq "10tdot" ) {
87 $XML_SOURCE = "10tdot.xml";
89 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
91 elsif( $bookCode eq "11tpot" ) {
92 $XML_SOURCE = "11tpot.xml";
94 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
96 elsif( $bookCode eq "12tmod" ) {
97 $XML_SOURCE = "12tmod.xml";
99 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
101 else{ die "Error:\n\tUknown book code.\n"; }
103 print qx{$JAVA org.apache.xalan.xslt.Process -IN $XML_PATH/$XML_SOURCE -XSL $XML_PATH/pml.xsl -OUT $PML_PATH/$BOOK_PATH/$bookCode.txt -PARAM use-illustrators \"$USE_ILLUSTRATORS\"};