[sword-svn] r210 - trunk/modules/perlconverters

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-06-18 17:04:00 -0700 (Thu, 18 Jun 2009)
New Revision: 210

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
added \pb, \zelastic support for Ndebele Bible USFM


Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-06-18 22:37:02 UTC (rev 209)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-06-19 00:04:00 UTC (rev 210)
@@ -740,8 +740,8 @@
 	$line =~ s/<reference osisRef="([^\.\"]+)\.(\d+)\.([^\"]+)">([^<]+)<\/reference>, <reference osisRef="(\d+)"/<reference osisRef="$1\.$2\.$3">$4<\/reference>, <reference osisRef="$1\.$2\.$5"/g; # Gen. 1:1, 3
 	$line =~ s/<reference osisRef="([^\"\.]+)\.(\d+)"/<reference osisRef="$1\.1\.$2"/g; # Jude 1
 
-	### Special Text and Character Styles--Markers Supported: \it...\it*, \nd...\nd*, \pn...\pn*, \tl...\tl*, \qt...\qt*
-	#### Markers Not Yet Supported: Special Text: \add...\add*, \bk...\bk*, \dc...\dc*, \k...\k*, \lit, \ord...\ord*, \sig...\sig*, \sls...\sls*, \wj...\wj*; Character Styling: \em...\em*, \bd...\bd*, \bdit...\bdit*, \no...\no*, \sc...\sc*; Spacing and Breaks: !$, //, \pb; Special Features: \fig...\fig*, \ndx...\ndx*, \pro...\pro*, \w...\w*, \wg...\wg*, \wh...\wh*
+	### Special Text and Character Styles--Markers Supported: \it...\it*, \nd...\nd*, \pn...\pn*, \tl...\tl*, \qt...\qt*, \pb
+	#### Markers Not Yet Supported: Special Text: \add...\add*, \bk...\bk*, \dc...\dc*, \k...\k*, \lit, \ord...\ord*, \sig...\sig*, \sls...\sls*, \wj...\wj*; Character Styling: \em...\em*, \bd...\bd*, \bdit...\bdit*, \no...\no*, \sc...\sc*; Spacing and Breaks: !$, //; Special Features: \fig...\fig*, \ndx...\ndx*, \pro...\pro*, \w...\w*, \wg...\wg*, \wh...\wh*
 
 	# \it...\it*, italic text
 	$line =~ s/\\it\b\s*(.*?)\\it\*/<hi type=\"italic\">$1<\/hi>/g;
@@ -758,9 +758,17 @@
 	# \add...\add*, text added for translation purposes
 	$line =~ s/\\add\b\s*(.*?)\\add\*/<transChange type=\"added\">$1<\/transChange>/g;
 
+	# \pb, page break
+	$line =~ s/\\pb\b/<milestone type=\"pb\"\/>/g;
+
+	### Other (probably non-standard) items
+	### Markers Supported: \zelastic
+
+	# \zelastic, elastic height marker for typesetting
+	$line =~ s/\\zelastic\b//g;
+
 	$line =~ s/_/ /g;
 
-
 ### End USFM 2.1 Items
 
 	if ($line !~ /^\s*$/) {