X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=scripts%2Fxmlize.pl;fp=scripts%2Fxmlize.pl;h=5befc7fa7ebb037cad402d5385547fa91a420a25;hp=0000000000000000000000000000000000000000;hb=c560b69a3029efc08efe83f4672c98680dd2a605;hpb=20c4bc96a6f08ee9d2dadd0acd177cb69755eacf diff --git a/scripts/xmlize.pl b/scripts/xmlize.pl new file mode 100755 index 0000000..5befc7f --- /dev/null +++ b/scripts/xmlize.pl @@ -0,0 +1,213 @@ +#!/usr/bin/perl +# +# xmlize.pl +# +# $Id$ +# +# $Log$ +# Revision 1.1 2005/04/26 04:48:03 jonathan.blake +# Initial revision +# +# Revision 1.2 2002/10/20 05:46:31 jblake +# Fixed a couple of bugs in the handling of carriage returns and +# added support for Freeway Warrior's CLOSE COMBAT SKILL. +# +# Revision 1.1 2002/10/20 03:18:35 jblake +# Initial revision +# +# +# 21 Jun 2002 - Fixed bug in tagging of character-attributes +# 06 May 2002 - Incorporated funcionality of xmlize-all +# 20 Oct 2001 - Added more spaces to xmlized lines to make 'em purty +# in the final product +# 19 May 2001 - Updated to conform to new gamebook DTD +# 17 Apr 2001 - Repurposed as XMLizer +# 24 Feb 2001 - Commented out some of the filtering in favor of +# placing it in a separate script +# 22 Feb 2000 - Added filtering for & +# Padding ENDURANCE in combat

with spaces +# 21 Feb 2000 - Added filtering for \t +# 05 Feb 2000 - Added Action Chart linking +# Added [] centering +# Fixed the "A Giak" caps problem +# +###################################################################### + +#use strict; + +#### Subroutines + +sub xmlize { + my( $inline, $infile ) = @_; + + $inline =~ s/(\.\.\.|\.\s\.\s\.)/\&ellips\;/g; + $inline =~ tr/\t/ /; + $inline =~ s/\s{2,}/ /g; + $inline =~ s/\s+$//; + $inline =~ s/\&\s/\&\; /g; + $inline =~ tr/\"\`\222\221/\'/; + $inline =~ s/(Random\sNumber\sTable)/$1<\/a>/gi; + $inline =~ s/(Action\sCharts?)/$1<\/a>/gi; + # \222 and \221 are some form of funky right and + # left quotes not present in ascii (of course) + $inline =~ tr/\227/-/; + # \227 is an em or en dash + + $inline =~ s/^\s*(.*)\s*$/$1/; + + if( $inline =~ /^\*/ ) { + $inline =~ s/^\*\s*/

"; + } + elsif( $inline =~ /^\d+\)\s/ ) { + $inline =~ s/^\d+\)\s+/
    \n
  1. /; + $inline =~ s/\s*\d+\)\s+/<\/li>\n
  2. /g; + $inline .= "
    3. \n
"; + } + elsif( $inline =~ /^\<\!\-\-\spre\s\-\-\>/ ) { + $inline =~ s/^\<\!\-\-\spre\s\-\-\>//; + warn( "Warning: preformatted text in \"$infile\"\n" ); + } + elsif( $inline =~ /^.+:\s+CLOSE\sCOMBAT\sSKILL/ ) { + $inline =~ s/^(.+):\s+CLOSE\sCOMBAT\sSKILL\s+([0-9]+)\s+ENDURANCE\s+([0-9]+)/ $1<\/enemy>$2<\/enemy-attribute>$3<\/enemy-attribute><\/combat>/g; + } + elsif( $inline =~ /^.+:\s+COMBAT\sSKILL/ ) { + $inline =~ s/^(.+):\s+COMBAT\sSKILL\s+([0-9]+)\s+ENDURANCE\s+([0-9]+)/ $1<\/enemy>$2<\/enemy-attribute>$3<\/enemy-attribute><\/combat>/; + } + elsif( $inline =~ /^(.*)\b(return|turn|go)([a-zA-Z\s]+?to )(\d{1,3})/i ) { + $inline =~ s/^(.*)\b(return|turn|go)([a-zA-Z\s]+?to )(\d{1,3})(.*)/ $1$2$3$4<\/link-text>$5<\/choice>/i; + $inline =~ s/\s+<\/choice>/<\/choice>/; + } + elsif( $inline =~ /^\[/ ) { + $inline =~ s/\[(.*)\]/$1/; + $inline = " $inline"; + $inline =~ s/\s+<\/signpost>/<\/signpost>/; + } + elsif( $inline eq "" ) { + } + elsif( $inline =~ /^/ ) { + warn( "Warning: unknown comment \"$1\" in \"$infile\"\n" ); + } + else { + $inline = "

$inline

"; + $inline =~ s/\s+<\/p>/<\/p>/; + } + +# Interferes with selecting a combat paragraph if done earlier + $inline =~ s/(COMBAT\sSKILL|CLOSE\sCOMBAT\sSKILL|ENDURANCE|WILLPOWER|\bCS\b|\bEP\b)([^<])/$1<\/typ>$2/g; + + return $inline; +} + +#### Main Routine + +my $numberOfSections = shift @ARGV; + +print << "(End of XML Header)"; + + + + %xhtml.characters; + + + %general.links; + + %xhtml.links; + + + %general.inclusions; +]> + + + + + + [Insert Title] + + +
+ + +
+ +
+ + Title Page + + + + + + + +
+ Numbered Sections + + +(End of XML Header) + +for( my $sectionNumber = 1; $sectionNumber <= $numberOfSections; ++$sectionNumber ) { + + my $infile = "${sectionNumber}.txt"; + + open( INFILE, "<$infile" ) or die "Input file \"$infile\" is not readable.\n"; + + my @oldlines = ( ); + @oldlines = ; + + close INFILE; + + my $title = shift @oldlines; + my $section = shift @oldlines; + my $illustration = shift @oldlines; + chomp $illustration; + $illustration =~ s/^Illustration\s+(\d+)\s+/$1/; + $illustration =~ s/\r//g; + shift @oldlines if( $illustration ne "" ); + + my @newlines = ( "" ); + my $newline; + + # Parsing waits for an empty line to XMLize and store + # the preceding lines. + push( @oldlines, "" ) if( @oldlines[ $#oldlines ] ne "" ); + + foreach my $oldline (@oldlines) { + $oldline =~ s/\r|\n/ /g; + $oldline =~ s/^\s*(\S*)\s*$/$1/; + $oldline =~ s/\s\s/ /; + if( $oldline ne "" ) { + $newline .= (" " . $oldline); + } + else { + $newline = &xmlize( $newline, $infile ); + $newline .= "\n" if( $newline ne "" ); + push( @newlines, $newline ); + $newline = ""; + } + } + + print "\n\n
\n $sectionNumber\n\n \n"; + print @newlines; + print " \n
"; +} + +print << "(End of XML footer)"; + + +
+ + + + +
+ +(End of XML footer)