421 lines
11 KiB
C++
421 lines
11 KiB
C++
// Hyperbolic Rogue -- language support
|
||
// Copyright (C) 2011-2019 Zeno Rogue, see 'hyper.cpp' for details
|
||
|
||
/** \file language.cpp
|
||
* \brief localization support
|
||
*/
|
||
|
||
// #define CHECKTRANS
|
||
|
||
#include "hyper.h"
|
||
namespace hr {
|
||
|
||
EX const string dnameof(eMonster m) { return m >= 0 && m < motypes ? minf[m].name : hr::format("[MONSTER %d]", m); }
|
||
EX const string dnameof(eLand l) { return l >= 0 && l < landtypes ? linf[l].name : hr::format("[LAND %d]", l); }
|
||
EX const string dnameof(eWall w) { return w >= 0 && w < walltypes ? winf[w].name : hr::format("[WALL %d]", w); }
|
||
EX const string dnameof(eItem i) { return i >= 0 && i < ittypes ? iinf[i].name : hr::format("[ITEM %d]", i); }
|
||
|
||
#if HDR
|
||
#define NUMLAN 8
|
||
|
||
struct stringpar {
|
||
string v;
|
||
stringpar(string s) : v(s) { }
|
||
stringpar(const char* s) : v(s) { }
|
||
stringpar(eMonster m) { v= minf[m].name; }
|
||
stringpar(eLand l) { v= linf[l].name; }
|
||
stringpar(eWall w) { v= winf[w].name; }
|
||
stringpar(eItem i) { v= iinf[i].name; }
|
||
};
|
||
#endif
|
||
|
||
void rep(string& pattern, string what, string to) {
|
||
while(true) {
|
||
size_t at = pattern.find(what);
|
||
if(at == string::npos) break;
|
||
pattern = pattern.replace(at, what.size(), to);
|
||
}
|
||
}
|
||
|
||
void reponce(string& pattern, string what, string to) {
|
||
size_t at = pattern.find(what);
|
||
if(at != string::npos)
|
||
pattern = pattern.replace(at, what.size(), to);
|
||
}
|
||
|
||
typedef unsigned hashcode;
|
||
|
||
struct sentence {
|
||
hashcode langhash;
|
||
const char* xlat[NUMLAN-1];
|
||
};
|
||
|
||
struct noun {
|
||
int genus;
|
||
const char *nom, *nomp, *acc, *abl;
|
||
};
|
||
|
||
struct fullnoun {
|
||
hashcode langhash;
|
||
int english_grammar_flags;
|
||
noun n[NUMLAN-1];
|
||
};
|
||
|
||
#if !CAP_TRANS
|
||
#if HDR
|
||
#define NUMEXTRA 13
|
||
extern const char* natchars[NUMEXTRA];
|
||
#endif
|
||
const char* natchars[NUMEXTRA] = {"°","é","á", "²", "½", "Θ", "δ", "π", "ϕ", "ᵈ", "∞", "⌫", "√"};
|
||
#endif
|
||
|
||
#if CAP_TRANS
|
||
#include "language-data.cpp"
|
||
|
||
hashcode langhash(const string& s) {
|
||
hashcode r = 0;
|
||
for(int i=0; i<isize(s); i++) r = hashval * r + s[i];
|
||
return r;
|
||
}
|
||
|
||
template<class T> const T* findInHashTableS(string s, const T *table, int size) {
|
||
int b = 0, e = size;
|
||
hashcode h = langhash(s);
|
||
while(b!=e) {
|
||
int m = (b+e)>>1;
|
||
// printf("b=%d e=%d m=%d h=%x s=%x\n", b, e, m, table[m].langhash, h);
|
||
if(table[m].langhash >= h) e = m;
|
||
else b = m+1;
|
||
}
|
||
if(e != size && table[e].langhash == h)
|
||
return &table[e];
|
||
return NULL;
|
||
}
|
||
|
||
#define findInHashTable(s,t) findInHashTableS(s, t, sizeof(t) / sizeof(t[0]))
|
||
#endif
|
||
|
||
string choose2(int g, string a, string b) {
|
||
g &= GEN_BASE_MASK;
|
||
if(g == GEN_M || g == GEN_O) return a;
|
||
if(g == GEN_F || g == GEN_N) return b;
|
||
return "?" + a;
|
||
}
|
||
|
||
string choose3(int g, string a, string b, string c) {
|
||
g &= GEN_BASE_MASK;
|
||
if(g == GEN_M || g == GEN_O) return a;
|
||
if(g == GEN_F) return b;
|
||
if(g == GEN_N) return c;
|
||
return "?" + a;
|
||
}
|
||
|
||
string choose4(int g, string a, string b, string c, string d) {
|
||
g &= GEN_BASE_MASK;
|
||
if(g == GEN_M) return a;
|
||
if(g == GEN_F) return b;
|
||
if(g == GEN_N) return c;
|
||
if(g == GEN_O) return d;
|
||
return "?" + a;
|
||
}
|
||
|
||
set<string> warnshown;
|
||
|
||
#if CAP_TRANS
|
||
EX bool translation_exists(const string& x) {
|
||
return findInHashTable(x, all_sentences);
|
||
}
|
||
#endif
|
||
|
||
/** replace gender-based codes in x, based on gender genus; some gender-based codes need to know the word (nom) */
|
||
void genderrep(string& x, const string& w, const noun& N) {
|
||
#if CAP_TRANS
|
||
int l = lang();
|
||
auto& genus = N.genus;
|
||
if(l == 1) {
|
||
rep(x, "%łem"+w, choose3(genus, "łem", "łam", "łom"));
|
||
rep(x, "%łeś"+w, choose3(genus, "łeś", "łaś", "łoś"));
|
||
rep(x, "%łeś"+w, choose3(genus, "łeś", "łaś", "łoś"));
|
||
rep(x, "%ął"+w, choose3(genus, "ął", "ęła", "ęło"));
|
||
rep(x, "%ąłeś"+w, choose3(genus, "ąłeś", "ęłaś", "ęłoś"));
|
||
rep(x, "%ógł"+w, choose3(genus, "ógł", "ogła", "ogło"));
|
||
rep(x, "%ł"+w, choose3(genus, "ł", "ła", "ło"));
|
||
rep(x, "%y"+w, choose3(genus, "y", "a", "e"));
|
||
rep(x, "%ya"+w, choose3(genus, "y", "a", "e"));
|
||
rep(x, "%yą"+w, choose4(genus, "ego", "ą", "e", "y"));
|
||
rep(x, "%oa"+w, choose3(genus, "", "a", "o"));
|
||
rep(x, "%ymą"+w, choose3(genus, "ym", "ą", "ym"));
|
||
rep(x, "%go"+w, choose3(genus, "go", "ją", "je"));
|
||
rep(x, "%aka"+w, choose3(genus, "a", "ka", "a"));
|
||
}
|
||
|
||
if(l == 3) {
|
||
rep(x, "%l"+w, choose3(genus, "l", "la", "lo"));
|
||
rep(x, "%d"+w, choose3(genus, "", "a", "o"));
|
||
rep(x, "%ý"+w, choose3(genus, "ý", "á", "é"));
|
||
rep(x, "%el"+w, choose3(genus, "el", "la", "lo"));
|
||
rep(x, "%ůj"+w, choose4(genus, "ého", "ou", "é", "ůj"));
|
||
rep(x, "%ým"+w, choose3(genus, "ým", "ou", "ým"));
|
||
rep(x, "%ho"+w, choose3(genus, "ho", "ji", "ho"));
|
||
rep(x, "%ého"+w, choose3(genus, "ého", "ou", "ého"));
|
||
}
|
||
|
||
if(l == 4) {
|
||
rep(x, "%E"+w, choose3(genus, "", "а", "о"));
|
||
rep(x, "%A"+w, choose3(genus, "ый", "ая", "ое"));
|
||
rep(x, "%c"+w, choose3(genus, "ся", "ась", ""));
|
||
rep(x, "%y"+w, choose3(genus, "ый", "ая", "ое"));
|
||
}
|
||
|
||
if(l == 5) {
|
||
rep(x, "%Der"+w, genus == -1 ? "The" : choose3(genus, "Der", "Die", "Das"));
|
||
rep(x, "%der"+w, genus == -1 ? "the" : choose3(genus, "der", "die", "das"));
|
||
rep(x, "%den"+w, genus == -1 ? "the" : choose3(genus, "den", "die", "das"));
|
||
rep(x, "%dem"+w, genus == -1 ? "the" : choose3(genus, "dem", "der", "dem"));
|
||
}
|
||
|
||
if(l == 6) {
|
||
rep(x, "%oa"+w, choose4(genus, "o", "a", "os", "as"));
|
||
rep(x, "%seu"+w, choose4(genus, "seu", "sua", "seus", "suas"));
|
||
rep(x, "%na"+w, choose4(genus, "o", "a", "os", "as") + " " + N.nom);
|
||
rep(x, "%Na"+w, choose4(genus, "O", "A", "Os", "As") + " " + N.nom);
|
||
rep(x, "%g"+w, choose4(genus, "do", "da", "dos", "das")+ " " + N.nom);
|
||
rep(x, "%d"+w, choose4(genus, "ao", "à", "aos", "às")+ " " + N.nom);
|
||
rep(x, "%l"+w, choose4(genus, "no", "na", "nos", "nas")+ " " + N.nom);
|
||
rep(x, "%abl"+w, choose4(genus, "pelo", "pela", "pelos", "pelas")+ " " + N.nom);
|
||
}
|
||
|
||
if(l == 7) {
|
||
if(genus & GENF_PROPER)
|
||
{
|
||
rep(x, "%le"+w, N.nom);
|
||
rep(x, "%Le"+w, N.nom);
|
||
rep(x, "%un"+w, N.nom);
|
||
rep(x, "%Un"+w, N.nom);
|
||
}
|
||
else if(genus & GENF_PLURALONLY)
|
||
{
|
||
rep(x, "%le"+w, s0+"les "+N.nomp);
|
||
rep(x, "%Le"+w, s0+"Les "+N.nomp);
|
||
rep(x, "%un"+w, s0+"des "+N.nomp);
|
||
rep(x, "%Un"+w, s0+"Des "+N.nomp);
|
||
}
|
||
else if(genus & GENF_ELISION)
|
||
{
|
||
rep(x, "%de"+w, s0+"d'"+N.nom);
|
||
rep(x, "%le"+w, s0+"l'"+N.nom);
|
||
rep(x, "%Le"+w, s0+"L'"+N.nom);
|
||
}
|
||
if(genus == 0) {
|
||
rep(x, " de %le"+w, s0+" du "+N.nom);
|
||
rep(x, " à %le"+w, s0+" au "+N.nom);
|
||
}
|
||
rep(x, "%le"+w, choose2(genus, "le ", "la ")+N.nom);
|
||
rep(x, "%Le"+w, choose2(genus, "Le ", "La ")+N.nom);
|
||
rep(x, "%un"+w, choose2(genus, "un ", "une ")+N.nom);
|
||
rep(x, "%Un"+w, choose2(genus, "Un ", "Une ")+N.nom);
|
||
rep(x, "%de"+w, s0+"de "+N.nom);
|
||
|
||
rep(x, "%er"+w, choose2(genus, "er", "ère"));
|
||
rep(x, "%e"+w, choose2(genus, "", "e"));
|
||
rep(x, "%x"+w, choose2(genus, "x", "se"));
|
||
}
|
||
#endif
|
||
}
|
||
|
||
void basicrep(string& x) {
|
||
#if CAP_TRANS
|
||
const sentence *s = findInHashTable(x, all_sentences);
|
||
if(!s && !warnshown.count(x)) {
|
||
printf("WARNING: no translations for '%s'\n", x.c_str());
|
||
warnshown.insert(x);
|
||
}
|
||
|
||
int l = lang();
|
||
if(l) {
|
||
const sentence *s = findInHashTable(x, all_sentences);
|
||
if(s) x = s->xlat[l-1];
|
||
}
|
||
|
||
noun dummy;
|
||
dummy.genus = playergender();
|
||
dummy.nom = dummy.nomp = dummy.acc = dummy.abl = "player";
|
||
genderrep(x, "0", dummy);
|
||
#endif
|
||
}
|
||
|
||
void parrep(string& x, string w, stringpar p) {
|
||
#if CAP_TRANS
|
||
int l = lang();
|
||
const fullnoun *N = findInHashTable(p.v, all_nouns);
|
||
noun dummy;
|
||
auto &data = N ? N->n[l-1] : dummy;
|
||
if(!N) {
|
||
dummy.nom = dummy.nomp = dummy.acc = dummy.abl = p.v.c_str();
|
||
dummy.genus = -1;
|
||
}
|
||
|
||
genderrep(x, w, data);
|
||
|
||
if(l == 1) {
|
||
rep(x, "%"+w, data.nom);
|
||
rep(x, "%P"+w, data.nomp);
|
||
rep(x, "%a"+w, data.acc);
|
||
rep(x, "%abl"+w, data.abl);
|
||
}
|
||
if(l == 2) {
|
||
rep(x, "%"+w, N->n[1].nom);
|
||
rep(x, "%P"+w, N->n[1].nomp);
|
||
rep(x, "%a"+w, N->n[1].acc);
|
||
rep(x, "%abl"+w, N->n[1].abl);
|
||
}
|
||
if(l == 3) {
|
||
rep(x, "%"+w, data.nom);
|
||
rep(x, "%P"+w, data.nomp);
|
||
rep(x, "%a"+w, data.acc);
|
||
rep(x, "%abl"+w, data.abl);
|
||
if(p.v == "Mirror Image")
|
||
rep(x, "%s"+w, "se");
|
||
if(p.v == "Mirage")
|
||
rep(x, "%s"+w, "s");
|
||
}
|
||
if(l == 4) {
|
||
rep(x, "%"+w, data.nom);
|
||
rep(x, "%P"+w, data.nomp);
|
||
rep(x, "%a"+w, data.acc);
|
||
rep(x, "%abl"+w, data.abl);
|
||
}
|
||
if(l == 5) {
|
||
rep(x, "%"+w, data.nom);
|
||
rep(x, "%P"+w, data.nomp);
|
||
rep(x, "%a"+w, data.acc);
|
||
rep(x, "%abl"+w, data.abl);
|
||
rep(x, "%d"+w, data.abl); // Dativ (which equals Ablative in German)
|
||
}
|
||
if(l == 6) {
|
||
rep(x, "%"+w, data.nom);
|
||
rep(x, "%P"+w, data.nomp);
|
||
}
|
||
if(l == 7) {
|
||
rep(x, "%"+w, data.nom);
|
||
rep(x, "%P"+w, data.nomp);
|
||
rep(x, "%a"+w, data.acc);
|
||
rep(x, "%abl"+w, data.abl);
|
||
rep(x, "%d"+w, data.abl); // Dativ (which equals Ablative in German)
|
||
}
|
||
#endif
|
||
if(true) {
|
||
// proper names (R'Lyeh)
|
||
rep(x,"%"+w,p.v);
|
||
#if !CAP_TRANS
|
||
int flags = 0;
|
||
if(p.v == "R'Lyeh" || p.v == "Camelot") flags = 1;
|
||
if(p.v == "Crossroads" || p.v == "Crossroads II" ||
|
||
p.v == "Crossroads III" || p.v == "Crossroads IV" ||
|
||
p.v == "Kraken Depths" || p.v == "Elemental Planes")
|
||
flags = 2;
|
||
#else
|
||
int flags = N ? N->english_grammar_flags : 0;
|
||
#endif
|
||
if(flags & 1) {
|
||
rep(x,"%the"+w, p.v);
|
||
rep(x,"%The"+w, p.v);
|
||
}
|
||
else {
|
||
rep(x,"%the"+w, "the " + p.v);
|
||
rep(x,"%The"+w, "The " + p.v);
|
||
rep(x,"%him"+w, princessgender() ? "her" : "him");
|
||
rep(x,"%his"+w, princessgender() ? "her" : "his");
|
||
}
|
||
// plural names (Crossroads)
|
||
if(flags & 2)
|
||
rep(x,"%s"+w, "");
|
||
else
|
||
rep(x,"%s"+w, "s");
|
||
}
|
||
return;
|
||
}
|
||
|
||
void postrep(string& s) {
|
||
}
|
||
|
||
/** translate the string @x */
|
||
EX string XLAT(string x) {
|
||
basicrep(x);
|
||
postrep(x);
|
||
return x;
|
||
}
|
||
EX string XLAT(string x, stringpar p1) {
|
||
basicrep(x);
|
||
parrep(x,"1",p1.v);
|
||
postrep(x);
|
||
return x;
|
||
}
|
||
EX string XLAT(string x, stringpar p1, stringpar p2) {
|
||
basicrep(x);
|
||
parrep(x,"1",p1.v);
|
||
parrep(x,"2",p2.v);
|
||
postrep(x);
|
||
return x;
|
||
}
|
||
EX string XLAT(string x, stringpar p1, stringpar p2, stringpar p3) {
|
||
basicrep(x);
|
||
parrep(x,"1",p1.v);
|
||
parrep(x,"2",p2.v);
|
||
parrep(x,"3",p3.v);
|
||
postrep(x);
|
||
return x;
|
||
}
|
||
EX string XLAT(string x, stringpar p1, stringpar p2, stringpar p3, stringpar p4) {
|
||
basicrep(x);
|
||
parrep(x,"1",p1.v);
|
||
parrep(x,"2",p2.v);
|
||
parrep(x,"3",p3.v);
|
||
parrep(x,"4",p4.v);
|
||
postrep(x);
|
||
return x;
|
||
}
|
||
EX string XLAT(string x, stringpar p1, stringpar p2, stringpar p3, stringpar p4, stringpar p5) {
|
||
basicrep(x);
|
||
parrep(x,"1",p1.v);
|
||
parrep(x,"2",p2.v);
|
||
parrep(x,"3",p3.v);
|
||
parrep(x,"4",p4.v);
|
||
parrep(x,"5",p5.v);
|
||
postrep(x);
|
||
return x;
|
||
}
|
||
|
||
|
||
EX string XLATN(string x) {
|
||
#if CAP_TRANS
|
||
if(lang()) {
|
||
const fullnoun *N = findInHashTable(x, all_nouns);
|
||
if(N) return N->n[lang()-1].nomp;
|
||
}
|
||
#endif
|
||
return x;
|
||
}
|
||
|
||
EX string XLAT1(string x) {
|
||
#if CAP_TRANS
|
||
if(lang()) {
|
||
const fullnoun *N = findInHashTable(x, all_nouns);
|
||
if(N) return N->n[lang()-1].nom;
|
||
}
|
||
#endif
|
||
return x;
|
||
}
|
||
|
||
EX string XLATT1(stringpar p) { return XLAT1(p.v); }
|
||
|
||
EX bool shapename_available(int id) { return id >= 3 && id < 9; }
|
||
|
||
EX string shapename(int id) {
|
||
if(!shapename_available(id)) return "";
|
||
string english[9] = {"", "", "digon", "triangle", "square", "pentagon", "hexagon", "heptagon", "octagon"};
|
||
return english[id];
|
||
}
|
||
|
||
}
|