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";
19 unless( $ARGV[ 0 ] ) { die "Usage:\n\t${PROGRAM_NAME} book-code\n"; }
21 print STDERR "Reminder:\n\tDid you declare the PML character entities in the XML?\n";
23 my $bookCode = $ARGV[ 0 ];
26 my $USE_ILLUSTRATORS = "";
28 if( $bookCode eq "01fftd" ) {
29 $XML_SOURCE = "01fftd.xml";
31 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
33 elsif( $bookCode eq "02fotw" ) {
34 $XML_SOURCE = "02fotw.xml";
36 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
38 elsif( $bookCode eq "03tcok" ) {
39 $XML_SOURCE = "03tcok.xml";
41 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
43 elsif( $bookCode eq "04tcod" ) {
44 $XML_SOURCE = "04tcod.xml";
46 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
48 elsif( $bookCode eq "05sots" ) {
49 $XML_SOURCE = "05sots.xml";
51 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
53 elsif( $bookCode eq "06tkot" ) {
54 $XML_SOURCE = "06tkot.xml";
56 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
58 elsif( $bookCode eq "07cd" ) {
59 $XML_SOURCE = "07cd.xml";
61 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
63 elsif( $bookCode eq "08tjoh" ) {
64 $XML_SOURCE = "08tjoh.xml";
66 $USE_ILLUSTRATORS = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
68 elsif( $bookCode eq "09tcof" ) {
69 $XML_SOURCE = "09tcof.xml";
71 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
73 elsif( $bookCode eq "10tdot" ) {
74 $XML_SOURCE = "10tdot.xml";
76 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
78 elsif( $bookCode eq "11tpot" ) {
79 $XML_SOURCE = "11tpot.xml";
81 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
83 elsif( $bookCode eq "12tmod" ) {
84 $XML_SOURCE = "12tmod.xml";
86 $USE_ILLUSTRATORS = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
88 else{ die "Error:\n\tUknown book code.\n"; }
90 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\"};