Changeset 8 for trunk/spec/preprocess_fo.pl

Timestamp:

05/11/08 17:47:56 (5 months ago)

Author:

oren

Message:

Language fixes;
Ensuring JSON compatibility (removing Unicode line breaks);
Adding recommended schemas section.

Files:

• trunk/spec/preprocess_fo.pl (modified) (3 diffs)

trunk/spec/preprocess_fo.pl

@@ -5 +5 @@
 
 my $text = "";
+my $in_final_tables = 0;
 while (my $line = <>) {
     # Get rid of the URLs of external links
@@ -25 +26 @@
     $line =~ s/<fo:table-row/<fo:table-row keep-together="always"/g;
     # Add margin and p[adding to preview examples.
-    $line =~ s/border-style/margin="2pt" padding="2pt" border-style/
-                              if ($line =~ /fo:block><fo:block wrap-option/);
+    $line =~ s/border-style/margin="2pt" padding="2pt" border-style/ if ($line =~ /fo:block><fo:block wrap-option/);
     # Add margin and padding to syntax examples.
-    $line =~ s/border-style/margin="2pt" padding="2pt" border-style/
-                              if ($line =~ /^<fo:block wrap-option/);
+    $line =~ s/border-style/margin="2pt" padding="2pt" border-style/ if ($line =~ /^<fo:block wrap-option/);
     # Fix the disappearing trademark problem.
     $line =~ s/\(YAML\)/(YAML&#8482;)/g;
@@ -40 +39 @@
         $line =~ s/key="((?:[^" ]+ )+)[ ]+/key="$1/;
     }
+    # Get rid of the non-ASCII characters.
+    $line =~ s/\302?\240/&#160;/g; # nbsp
+    $line =~ s/\302?\251/&#169;/g; # copyright
+    $line =~ s/\302?\260/&#176;/g; # deg
+    $line =~ s/\302?\267/&#183;/g; # middot
+    $line =~ s/\303?\327/&#215;/g; # times
+    $line =~ s/d[^ ]*t Net/d&#246;t Net/g; # ouml
+
+    $in_final_tables++ if $line =~ /10.2.2.&#160;Resolution</;
+    $line =~ s/column-number="1"\//column-number="1" column-width="60%"\// if $in_final_tables > 1;
+    $line =~ s/column-number="2"\//column-number="2" column-width="40%"\// if $in_final_tables > 1;
 
     print $line;