common/scripts/gbtopml.pl

   1 #!/usr/local/bin/perl -w
   2 #
   3 # gbtolatex.pl
   4 # 10 April 2002
   5 #
   6 # Creates LaTeX gamebook from XML source. This should subsequently be
   7 # used to create a PDF or PostScript version.
   8 #####
   9
  10 use strict;
  11
  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";
  16
  17 ##
  18
  19 unless( $ARGV[ 0 ] ) { die "Usage:\n\t${PROGRAM_NAME} book-code\n"; }
  20
  21 print STDERR "Reminder:\n\tDid you declare the PML character entities in the XML?\n";
  22
  23 my $bookCode         = $ARGV[ 0 ];
  24 my $XML_SOURCE       = "";
  25 my $BOOK_PATH        = "";
  26 my $USE_ILLUSTRATORS = "";
  27
  28 if( $bookCode eq "01fftd" ) {
  29     $XML_SOURCE        = "01fftd.xml";
  30     $BOOK_PATH         = "lw/";
  31     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  32 }
  33 elsif( $bookCode eq "02fotw" ) {
  34     $XML_SOURCE        = "02fotw.xml";
  35     $BOOK_PATH         = "lw/";
  36     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  37 }
  38 elsif( $bookCode eq "03tcok" ) {
  39     $XML_SOURCE        = "03tcok.xml";
  40     $BOOK_PATH         = "lw/";
  41     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  42 }
  43 elsif( $bookCode eq "04tcod" ) {
  44     $XML_SOURCE        = "04tcod.xml";
  45     $BOOK_PATH         = "lw/";
  46     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  47 }
  48 elsif( $bookCode eq "05sots" ) {
  49     $XML_SOURCE        = "05sots.xml";
  50     $BOOK_PATH         = "lw/";
  51     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  52 }
  53 elsif( $bookCode eq "06tkot" ) {
  54     $XML_SOURCE        = "06tkot.xml";
  55     $BOOK_PATH         = "lw/";
  56     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  57 }
  58 elsif( $bookCode eq "07cd" ) {
  59     $XML_SOURCE        = "07cd.xml";
  60     $BOOK_PATH         = "lw/";
  61     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  62 }
  63 elsif( $bookCode eq "08tjoh" ) {
  64     $XML_SOURCE        = "08tjoh.xml";
  65     $BOOK_PATH         = "lw/";
  66     $USE_ILLUSTRATORS  = ":Gary Chalk:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  67 }
  68 elsif( $bookCode eq "09tcof" ) {
  69     $XML_SOURCE        = "09tcof.xml";
  70     $BOOK_PATH         = "lw/";
  71     $USE_ILLUSTRATORS  = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  72 }
  73 elsif( $bookCode eq "10tdot" ) {
  74     $XML_SOURCE        = "10tdot.xml";
  75     $BOOK_PATH         = "lw/";
  76     $USE_ILLUSTRATORS  = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  77 }
  78 elsif( $bookCode eq "11tpot" ) {
  79     $XML_SOURCE        = "11tpot.xml";
  80     $BOOK_PATH         = "lw/";
  81     $USE_ILLUSTRATORS  = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  82 }
  83 elsif( $bookCode eq "12tmod" ) {
  84     $XML_SOURCE        = "12tmod.xml";
  85     $BOOK_PATH         = "lw/";
  86     $USE_ILLUSTRATORS  = ":Brian Williams:JC Alvarez & Jonathan Blake:Jonathan Blake:";
  87 }
  88 else{ die "Error:\n\tUknown book code.\n"; }
  89
  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\"};