X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fxmlize.pl;h=9b9b1745b0aa8bc2a4d8a521b4c8cd2053eb0268;hp=ed7511625bb306e8a7539bffe22c6690ff1c8c05;hb=b7735da05ea58dcb68c60c5595e50d4105eaa628;hpb=e8e22da9cc38ada2bedbc64c880c508ce7877343
diff --git a/common/scripts/xmlize.pl b/common/scripts/xmlize.pl
index ed75116..9b9b174 100755
--- a/common/scripts/xmlize.pl
+++ b/common/scripts/xmlize.pl
@@ -10,6 +10,7 @@ use utf8;
use open ':encoding(UTF-8)';
my $FILE_EXTENSION = 'txt';
+my $BASE_INDENT = ' ';
#### Main Routine
@@ -98,9 +99,9 @@ for( my $sectionNumber = $minSectionNumber; $sectionNumber <= $numberOfSections;
}
}
- print "\n\n \n $sectionNumber\n\n \n";
+ print "\n\n$BASE_INDENT\n$BASE_INDENT $sectionNumber\n\n$BASE_INDENT \n";
print @newlines;
- print " \n ";
+ print "$BASE_INDENT \n$BASE_INDENT";
}
print << "(End of XML footer)";
@@ -137,45 +138,53 @@ sub xmlize {
$inline =~ s/(Action\sCharts?)/$1<\/a>/gi;
if( $inline =~ /^\*/ ) {
- $inline =~ s/^\*\s*/ \n - /;
- $inline =~ s/\s*\*\s*/<\/li>\n
- /g;
- $inline .= "
\n
";
+ # unordered lists
+ $inline =~ s/^\*\s*/$BASE_INDENT \n$BASE_INDENT - /;
+ $inline =~ s/\s*\*\s*/<\/li>\n$BASE_INDENT
- /g;
+ $inline .= "
\n$BASE_INDENT
";
}
elsif( $inline =~ /^\d+\)\s/ ) {
- $inline =~ s/^\d+\)\s+/ \n - /;
- $inline =~ s/\s*\d+\)\s+/<\/li>\n
- /g;
- $inline .= "
\n
";
+ # ordered lists
+ $inline =~ s/^\d+\)\s+/$BASE_INDENT \n$BASE_INDENT - /;
+ $inline =~ s/\s*\d+\)\s+/<\/li>\n$BASE_INDENT
- /g;
+ $inline .= "
\n$BASE_INDENT
";
}
elsif( $inline =~ /^\<\!\-\-\spre\s\-\-\>/ ) {
+ # pre-formatted text
$inline =~ s/^\<\!\-\-\spre\s\-\-\>//;
- warn( "Warning: preformatted text in \"$infile\"\n" );
+ warn( "Warning: pre-formatted 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;
+ # Freeway Warrior combat
+ $inline =~ s/^(.+):\s+CLOSE\sCOMBAT\sSKILL\s+([0-9]+)\s+ENDURANCE\s+([0-9]+)/$BASE_INDENT $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>/;
+ # combat
+ $inline =~ s/^(.+):\s+COMBAT\sSKILL\s+([0-9]+)\s+ENDURANCE\s+([0-9]+)/$BASE_INDENT $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;
+ # links
+ $inline =~ s/^(.*)\b(return|turn|go)([a-zA-Z\s]+?to )(\d{1,3})(.*)/$BASE_INDENT $1$2$3$4<\/link-text>$5<\/choice>/i;
$inline =~ s/\s+<\/choice>/<\/choice>/;
}
elsif( $inline =~ /^\[/ ) {
+ # signposts
$inline =~ s/\[(.*)\]/$1/;
- $inline = " $inline";
+ $inline = "$BASE_INDENT $inline";
$inline =~ s/\s+<\/signpost>/<\/signpost>/;
}
elsif( $inline =~ /^/ ) {
+ # comments
warn( "Warning: unknown comment \"$1\" in \"$infile\"\n" );
}
elsif( $inline eq "" ) {
+ # do nothing
}
else {
- $inline = " $inline
";
- $inline =~ s/\s+<\/p>/<\/p>/;
+ $inline = "$BASE_INDENT $inline
";
}
-# Interferes with selecting a combat paragraph if done earlier
+ # 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;