diff options
| author | Peter von Kaehne <refdoc@gmx.net> | 2010-07-11 12:38:27 +0000 |
|---|---|---|
| committer | Peter von Kaehne <refdoc@gmx.net> | 2010-07-11 12:38:27 +0000 |
| commit | 3ae4c9c2245432535d4ed4dc49562169befb29c5 (patch) | |
| tree | 6d00800fcd3f76501b9b90695736668998f3dab7 /modules/perlconverters | |
| parent | 667681abfe7b251f95bb5bb7e4c8142a91499aad (diff) | |
| download | sword-tools-3ae4c9c2245432535d4ed4dc49562169befb29c5.tar.gz | |
\sc..\sc* (small-caps highlighting) added
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@285 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters')
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index 41bd570..a6eb7e0 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -832,8 +832,8 @@ foreach $file (@files) { $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*, \add...\add*, \pb, \bk...\bk* - #### Markers Not Yet Supported: Special Text: \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* + ### Special Text and Character Styles--Markers Supported: \it...\it*, \nd...\nd*, \pn...\pn*, \tl...\tl*, \qt...\qt*, \add...\add*, \pb, \bk...\bk*, \sc..\sc* + #### Markers Not Yet Supported: Special Text: \dc...\dc*, \k...\k*, \lit, \ord...\ord*, \sig...\sig*, \sls...\sls*, \wj...\wj*; Character Styling: \em...\em*, \bd...\bd*, \bdit...\bdit*, \no...\no*; 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; @@ -841,6 +841,9 @@ foreach $file (@files) { # \bk...\bk*, book name in text $line =~ s/\\bk\b\s*(.*?)\\bk\*/<hi type=\"italic\">$1<\/hi>/g; + # \sc...\sc*, small-caps character style (used within a line) + $line =~ s/\\sc\b\s*(.*?)\\sc\*/<hi type="small-caps">$1<\/hi>/g; + # \nd...\nd*, Divine Name $line =~ s/\\nd\b\s*(.*?)\\nd\*/<divineName>$1<\/divineName>/g; |