You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
bibletime/bibletime/backend/bt_thmlhtml.cpp

396 lines
12 KiB

/*********
*
* This file is part of BibleTime's source code, http://www.bibletime.info/.
*
* Copyright 1999-2006 by the BibleTime developers.
* The BibleTime source code is licensed under the GNU General Public License version 2.0.
*
**********/
//BibleTime includes
#include "backend/bt_thmlhtml.h"
#include "backend/clanguagemgr.h"
#include "backend/cswordmoduleinfo.h"
#include "backend/creferencemanager.h"
#include "frontend/cbtconfig.h"
#include "util/cpointers.h"
#include "util/scoped_resource.h"
#include <iostream>
//Sword includes
#include <swmodule.h>
#include <utilxml.h>
#include "versekey.h"
//Qt includes
#include <tqstring.h>
#include <tqregexp.h>
//System includes
#include <stdlib.h>
using namespace Filters;
BT_ThMLHTML::BT_ThMLHTML() {
setEscapeStringCaseSensitive(true);
setPassThruUnknownEscapeString(true); //the HTML widget will render the HTML escape codes
setTokenStart("<");
setTokenEnd(">");
setTokenCaseSensitive(true);
addTokenSubstitute("/foreign", "</span>");
removeTokenSubstitute("note");
removeTokenSubstitute("/note");
}
char BT_ThMLHTML::processText(sword::SWBuf& buf, const sword::SWKey* key, const sword::SWModule* module) {
ThMLHTML::processText(buf, key, module);
CSwordModuleInfo* m = CPointers::backend()->findModuleByName( module->Name() );
if (m && !(m->has(CSwordModuleInfo::lemmas) || m->has(CSwordModuleInfo::strongNumbers))) { //only parse if the module has strongs or lemmas
return 1;
}
TQString result;
TQString t = TQString::fromUtf8(buf.c_str());
TQRegExp tag("([.,;]?<sync[^>]+(type|value)=\"([^\"]+)\"[^>]+(type|value)=\"([^\"]+)\"([^<]*)>)+");
TQStringList list;
int lastMatchEnd = 0;
int pos = tag.search(t,0);
if (pos == -1) { //no strong or morph code found in this text
return 1; //WARNING: Return alread here
}
while (pos != -1) {
list.append(t.mid(lastMatchEnd, pos+tag.matchedLength()-lastMatchEnd));
lastMatchEnd = pos+tag.matchedLength();
pos = tag.search(t,pos+tag.matchedLength());
}
if (!t.right(t.length() - lastMatchEnd).isEmpty()) {
list.append(t.right(t.length() - lastMatchEnd));
}
tag = TQRegExp("<sync[^>]+(type|value|class)=\"([^\"]+)\"[^>]+(type|value|class)=\"([^\"]+)\"[^>]+((type|value|class)=\"([^\"]+)\")*([^<]*)>");
for (TQStringList::iterator it = list.begin(); it != list.end(); ++it) {
TQString e( *it );
const bool textPresent = (e.stripWhiteSpace().remove(TQRegExp("[.,;:]")).left(1) != "<");
if (!textPresent) {
continue;
}
bool hasLemmaAttr = false;
bool hasMorphAttr = false;
int pos = tag.search(e, 0);
bool insertedTag = false;
TQString value;
TQString valueClass;
while (pos != -1) {
bool isMorph = false;
bool isStrongs = false;
value = TQString::null;
valueClass = TQString::null;
// check 3 attribute/value pairs
for (int i = 1; i < 6; i += 2) {
if (i > 4)
i++;
if (tag.cap(i) == "type") {
isMorph = (tag.cap(i+1) == "morph");
isStrongs = (tag.cap(i+1) == "Strongs");
}
else if (tag.cap(i) == "value") {
value = tag.cap(i+1);
}
else if (tag.cap(i) == "class") {
valueClass = tag.cap(i+1);
}
}
// prepend the class qualifier to the value
if (!valueClass.isEmpty()) {
value = valueClass + ":" + value;
// value.append(":").append(value);
}
if (value.isEmpty()) {
break;
}
//insert the span
if (!insertedTag) {
e.replace(pos, tag.matchedLength(), "</span>");
pos += 7;
TQString rep;
rep.setLatin1("<span lemma=\"").append(value).append("\">");
int startPos = 0;
TQChar c = e[startPos];
while ((startPos < pos) && (c.isSpace() || c.isPunct())) {
++startPos;
c = e[startPos];
}
hasLemmaAttr = isStrongs;
hasMorphAttr = isMorph;
e.insert( startPos, rep );
pos += rep.length();
}
else { //add the attribute to the existing tag
e.remove(pos, tag.matchedLength());
if ((!isMorph && hasLemmaAttr) || (isMorph && hasMorphAttr)) { //we append another attribute value, e.g. 3000 gets 3000|5000
//search the existing attribute start
TQRegExp attrRegExp( isMorph ? "morph=\".+(?=\")" : "lemma=\".+(?=\")" );
attrRegExp.setMinimal(true);
const int foundAttrPos = e.find(attrRegExp, pos);
if (foundAttrPos != -1) {
e.insert(foundAttrPos + attrRegExp.matchedLength(), TQString("|").append(value));
pos += value.length() + 1;
hasLemmaAttr = !isMorph;
hasMorphAttr = isMorph;
}
}
else { //attribute was not yet inserted
const int attrPos = e.find(TQRegExp("morph=|lemma="), 0);
if (attrPos >= 0) {
TQString attr;
attr.append(isMorph ? "morph" : "lemma").append("=\"").append(value).append("\" ");
e.insert(attrPos, attr);
hasMorphAttr = isMorph;
hasLemmaAttr = !isMorph;
pos += attr.length();
}
}
}
insertedTag = true;
pos = tag.search(e, pos);
}
result.append( e );
}
if (list.count()) {
buf = (const char*)result.utf8();
}
return 1;
}
bool BT_ThMLHTML::handleToken(sword::SWBuf &buf, const char *token, sword::BasicFilterUserData *userData) {
if (!substituteToken(buf, token) && !substituteEscapeString(buf, token)) {
sword::XMLTag tag(token);
BT_UserData* myUserData = dynamic_cast<BT_UserData*>(userData);
sword::SWModule* myModule = const_cast<sword::SWModule*>(myUserData->module); //hack to be able to call stuff like Lang()
if ( tag.getName() && !strcasecmp(tag.getName(), "foreign") ) { // a text part in another language, we have to set the right font
if (tag.getAttribute("lang")) {
const char* abbrev = tag.getAttribute("lang");
//const CLanguageMgr::Language* const language = CPointers::languageMgr()->languageForAbbrev( TQString::fromLatin1(abbrev) );
buf.append("<span class=\"foreign\" lang=\"");
buf.append(abbrev);
buf.append("\">");
}
}
else if (tag.getName() && !strcasecmp(tag.getName(), "sync")) { //lemmas, morph codes or strongs
if (tag.getAttribute("type") && (!strcasecmp(tag.getAttribute("type"), "morph") || !strcasecmp(tag.getAttribute("type"), "Strongs") || !strcasecmp(tag.getAttribute("type"), "lemma"))) { // Morph or Strong
buf.append('<');
buf.append(token);
buf.append('>');
}
}
else if (tag.getName() && !strcasecmp(tag.getName(), "note")) { // <note> tag
if (!tag.isEndTag() && !tag.isEmpty()) {
//appending is faster than appendFormatted
buf.append(" <span class=\"footnote\" note=\"");
buf.append(myModule->Name());
buf.append('/');
buf.append(myUserData->key->getShortText());
buf.append('/');
buf.append( TQString::number(myUserData->swordFootnote++).latin1() );
buf.append("\">*</span> ");
myUserData->suspendTextPassThru = true;
myUserData->inFootnoteTag = true;
}
else if (tag.isEndTag() && !tag.isEmpty()) { //end tag
//buf += ")</span>";
myUserData->suspendTextPassThru = false;
myUserData->inFootnoteTag = false;
}
}
else if (tag.getName() && !strcasecmp(tag.getName(), "scripRef")) { // a scripRef
//scrip refs which are embeded in footnotes may not be displayed!
if (!myUserData->inFootnoteTag) {
if (tag.isEndTag()) {
if (myUserData->inscriptRef) { // like "<scripRef passage="John 3:16">See John 3:16</scripRef>"
buf.append("</a></span>");
myUserData->inscriptRef = false;
myUserData->suspendTextPassThru = false;
}
else { // like "<scripRef>John 3:16</scripRef>"
CSwordModuleInfo* mod = CBTConfig::get(CBTConfig::standardBible);
Q_ASSERT(mod);
if (mod) {
CReferenceManager::ParseOptions options;
options.refBase = TQString::fromUtf8(myUserData->key->getText()); //current module key
options.refDestinationModule = TQString(mod->name());
options.sourceLanguage = TQString(myModule->Lang());
options.destinationLanguage = TQString("en");
//it's ok to split the reference, because to descriptive text is given
bool insertSemicolon = false;
buf.append("<span class=\"crossreference\">");
TQStringList refs = TQStringList::split(";", TQString::fromUtf8(myUserData->lastTextNode.c_str()));
TQString oldRef; //the previous reference to use as a base for the next refs
for (TQStringList::iterator it(refs.begin()); it != refs.end(); ++it) {
if (! oldRef.isEmpty() ){
options.refBase = oldRef; //use the last ref as a base, e.g. Rom 1,2-3, when the next ref is only 3:3-10
}
const TQString completeRef( CReferenceManager::parseVerseReference((*it), options) );
oldRef = completeRef; //use the parsed result as the base for the next ref.
if (insertSemicolon) { //prepend a ref divider if we're after the first one
buf.append("; ");
}
buf.append("<a href=\"");
buf.append(
CReferenceManager::encodeHyperlink(
mod->name(),
completeRef,
CReferenceManager::typeFromModule(mod->type())
).utf8()
);
buf.append("\" crossrefs=\"");
buf.append((const char*)completeRef.utf8());
buf.append("\">");
buf.append((const char*)(*it).utf8());
buf.append("</a>");
insertSemicolon = true;
}
buf.append("</span>"); //crossref end
}
myUserData->suspendTextPassThru = false;
}
}
else if (tag.getAttribute("passage") ) { //the passage was given as a parameter value
myUserData->inscriptRef = true;
myUserData->suspendTextPassThru = false;
const char* ref = tag.getAttribute("passage");
Q_ASSERT(ref);
CSwordModuleInfo* mod = CBTConfig::get(CBTConfig::standardBible);
Q_ASSERT(mod);
CReferenceManager::ParseOptions options;
options.refBase = TQString::fromUtf8(myUserData->key->getText());
options.refDestinationModule = TQString(mod->name());
options.sourceLanguage = myModule->Lang();
options.destinationLanguage = TQString("en");
const TQString completeRef = CReferenceManager::parseVerseReference(TQString::fromUtf8(ref), options);
if (mod) {
buf.append("<span class=\"crossreference\">");
buf.append("<a href=\"");
buf.append(
CReferenceManager::encodeHyperlink(
mod->name(),
completeRef,
CReferenceManager::typeFromModule(mod->type())
).utf8()
);
buf.append("\" crossrefs=\"");
buf.append((const char*)completeRef.utf8());
buf.append("\">");
}
else {
buf.append("<span><a>");
}
}
else if ( !tag.getAttribute("passage") ) { // we're starting a scripRef like "<scripRef>John 3:16</scripRef>"
myUserData->inscriptRef = false;
// let's stop text from going to output, the text get's added in the -tag handler
myUserData->suspendTextPassThru = true;
}
}
}
else if (tag.getName() && !strcasecmp(tag.getName(), "div")) {
if (tag.isEndTag()) {
buf.append("</div>");
}
else if ( tag.getAttribute("class") && !strcasecmp(tag.getAttribute("class"),"sechead") ) {
buf.append("<div class=\"sectiontitle\">");
}
else if (tag.getAttribute("class") && !strcasecmp(tag.getAttribute("class"), "title")) {
buf.append("<div class=\"booktitle\">");
}
}
else if (tag.getName() && !strcasecmp(tag.getName(), "img") && tag.getAttribute("src")) {
const char* value = tag.getAttribute("src");
if (value[0] == '/') {
value++; //strip the first /
}
buf.append("<img src=\"file:");
buf.append(myUserData->module->getConfigEntry("AbsoluteDataPath"));
buf.append('/');
buf.append(value);
buf.append("\" />");
}
else { // let unknown token pass thru
return sword::ThMLHTML::handleToken(buf, token, userData);
}
}
return true;
}