From 03005158d9a910699256e9cec660af2a5a2ebf2c Mon Sep 17 00:00:00 2001 From: Peter von Kaehne Date: Wed, 30 Dec 2009 00:00:14 +0000 Subject: dictionary transformation added. Needs still handling of verse references git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@261 07627401-56e2-0310-80f4-f8cd0041bdcd --- modules/geneve/wb.pl | 70 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100755 modules/geneve/wb.pl diff --git a/modules/geneve/wb.pl b/modules/geneve/wb.pl new file mode 100755 index 0000000..da8bfc2 --- /dev/null +++ b/modules/geneve/wb.pl @@ -0,0 +1,70 @@ +#!/usr/bin/perl + +my @files=`ls -1 *.abw`; + +foreach (@files){ + + my @lines; + chop; + open USFM, ">>$_.tei"; + @lines=`cat $_`; + + + foreach (@lines) { + s/props\=\".*?\"//g; + + # entry (ordinary) + s/(.*?)<\/c><\/c><\/p>/<\/entryFree>\n$1<\/orth><\/form>/g; + + # entry (referring somewhere else) + s/(.*?)<\/c><\/c>s\.(.*?)<\/c><\/p>/<\/entryFree>\n$1<\/orth><\/form>\n\ts\.\ $2<\/ref>/g; + + # content + s/(.*?)<\/p>/\t\n\t\t$1\n\t<\/def>/; + s/(.*?)<\/c>/$1<\/hi>/g; + + + # clean up + s///g; + s/<\/c\s*>//g; + + } + print (USFM "\n + + + + + Worterklaerung Schlachter + + + + + + + + + + + + +

http://sourceforge.net/project/showfiles.php?group_id=89078&package_id=93370&release_id=278981

 + + + + initial conversion to TEI + + + + + "); + + + + + print (USFM @lines,"\n"); + + print (USFM "\n\n"); + close USFM; +} -- cgit