// <<< main function >>>
//*****************************************************************************
void main(void)
{
unsigned char i;
Initial(); //initial .....
#if (SFNsimple ==0)
//char *mySTR = "Complete mode!";
static char *mySTR[3] = {
"S-Font test...",
"Complete mode!",
"Www.Elasa.ir!"
};
N11_TypeStr(1, 1, mySTR[1], N11_GetStrLenC(mySTR[1]), BLACK, 150);
_delay_ms(2000);
N11_TypeStr(1, 1, mySTR[1], N11_GetStrLenC(mySTR[1]), WHITE, 50);
_delay_ms(1000);
N11_TypeStr(0, 1, mySTR[0], N11_GetStrLenC(mySTR[0]), BLACK, 100);
N11_TypeStr(2, 1, mySTR[1], N11_GetStrLenC(mySTR[1]), BLACK, 100);
N11_TypeStr(4, 1, mySTR[2], N11_GetStrLenC(mySTR[2]), BLACK, 100);
N11_TypeStr(6, 1, mySTR[3], N11_GetStrLenC(mySTR[3]), BLACK, 100);
_delay_ms(3000);
N11_ChrCls(100);
_delay_ms(500);
StringAt(1, 1, "YES!!! :)", BLACK);
#endif
//----- main loop!!!
while(1);
} //main
void Splash(void)
{
static char *SPchar[3] = {
"S-Font test...",
"by :",
"Www.Elasa.ir"
};
//-------------
#if (SFNsimple ==1)
StringAt(1, 1, SPchar[0]);
StringAt(4, 1, SPchar[1]);
StringAt(6, 1, SPchar[2]);
#else
//-------------
StringAt(1, 1, SPchar[0], BLACK);
StringAt(4, 1, SPchar[1], BLACK);
StringAt(6, 1, SPchar[2], BLACK);
//-------------
_delay_ms(2000);
N11_CLS();
#endif
} //Splash
LPCTSTR CStrings::GetAt(int Index)
{
CString *str = StringAt(Index);
return (str != NULL) ? (*str) : NULL;
}
////////////////////////////////////////////////////////////////////////////////
// main deal
////////////////////////////////////////////////////////////////////////////////
void MString::DoubleMetaphone(CString &metaph, CString &metaph2)
{
int current = 0;
length = GetLength();
if(length < 1)
return;
last = length - 1;//zero based index
alternate = FALSE;
MakeUpper();
//pad the original string so that we can index beyond the edge of the world
Insert(GetLength(), " ");
//skip these when at start of word
if(StringAt(0, 2, "GN", "KN", "PN", "WR", "PS", ""))
current += 1;
//Initial 'X' is pronounced 'Z' e.g. 'Xavier'
if(GetAt(0) == 'X')
{
MetaphAdd("S"); //'Z' maps to 'S'
current += 1;
}
///////////main loop//////////////////////////
while(TRUE OR (primary.GetLength() < 4) OR (secondary.GetLength() < 4))
{
if(current >= length)
break;
switch(GetAt(current))
{
case 'A':
case 'E':
case 'I':
case 'O':
case 'U':
case 'Y':
if(current == 0)
//all init vowels now map to 'A'
MetaphAdd("A");
current +=1;
break;
case 'B':
//"-mb", e.g", "dumb", already skipped over...
MetaphAdd("P");
if(GetAt(current + 1) == 'B')
current +=2;
else
current +=1;
break;
case 'Ç':
MetaphAdd("S");
current += 1;
break;
case 'C':
//various germanic
if((current > 1)
AND !IsVowel(current - 2)
AND StringAt((current - 1), 3, "ACH", "")
AND ((GetAt(current + 2) != 'I') AND ((GetAt(current + 2) != 'E')
OR StringAt((current - 2), 6, "BACHER", "MACHER", "")) ))
{
MetaphAdd("K");
current +=2;
break;
}
//special case 'caesar'
if((current == 0) AND StringAt(current, 6, "CAESAR", ""))
{
MetaphAdd("S");
current +=2;
break;
}
//italian 'chianti'
if(StringAt(current, 4, "CHIA", ""))
{
MetaphAdd("K");
current +=2;
break;
}
if(StringAt(current, 2, "CH", ""))
{
//find 'michael'
if((current > 0) AND StringAt(current, 4, "CHAE", ""))
{
MetaphAdd("K", "X");
current +=2;
break;
}
//greek roots e.g. 'chemistry', 'chorus'
if((current == 0)
AND (StringAt((current + 1), 5, "HARAC", "HARIS", "")
OR StringAt((current + 1), 3, "HOR", "HYM", "HIA", "HEM", ""))
AND !StringAt(0, 5, "CHORE", ""))
{
MetaphAdd("K");
current +=2;
break;
}
//germanic, greek, or otherwise 'ch' for 'kh' sound
if((StringAt(0, 4, "VAN ", "VON ", "") OR StringAt(0, 3, "SCH", ""))
// 'architect but not 'arch', 'orchestra', 'orchid'
OR StringAt((current - 2), 6, "ORCHES", "ARCHIT", "ORCHID", "")
OR StringAt((current + 2), 1, "T", "S", "")
OR ((StringAt((current - 1), 1, "A", "O", "U", "E", "") OR (current == 0))
//e.g., 'wachtler', 'wechsler', but not 'tichner'
AND StringAt((current + 2), 1, "L", "R", "N", "M", "B", "H", "F", "V", "W", " ", "")))
{
MetaphAdd("K");
}else{
if(current > 0)
{
if(StringAt(0, 2, "MC", ""))
//e.g., "McHugh"
MetaphAdd("K");
else
MetaphAdd("X", "K");
}else
MetaphAdd("X");
}
current +=2;
break;
}
//e.g, 'czerny'
if(StringAt(current, 2, "CZ", "") AND !StringAt((current - 2), 4, "WICZ", ""))
{
MetaphAdd("S", "X");
current += 2;
break;
}
//e.g., 'focaccia'
if(StringAt((current + 1), 3, "CIA", ""))
{
MetaphAdd("X");
current += 3;
break;
}
//double 'C', but not if e.g. 'McClellan'
if(StringAt(current, 2, "CC", "") AND !((current == 1) AND (GetAt(0) == 'M')))
//'bellocchio' but not 'bacchus'
if(StringAt((current + 2), 1, "I", "E", "H", "") AND !StringAt((current + 2), 2, "HU", ""))
{
//'accident', 'accede' 'succeed'
if(((current == 1) AND (GetAt(current - 1) == 'A'))
OR StringAt((current - 1), 5, "UCCEE", "UCCES", ""))
MetaphAdd("KS");
//'bacci', 'bertucci', other italian
else
MetaphAdd("X");
current += 3;
break;
}else{//Pierce's rule
MetaphAdd("K");
current += 2;
break;
}
if(StringAt(current, 2, "CK", "CG", "CQ", ""))
{
MetaphAdd("K");
current += 2;
break;
}
if(StringAt(current, 2, "CI", "CE", "CY", ""))
{
//italian vs. english
if(StringAt(current, 3, "CIO", "CIE", "CIA", ""))
MetaphAdd("S", "X");
else
MetaphAdd("S");
current += 2;
break;
}
//else
MetaphAdd("K");
//name sent in 'mac caffrey', 'mac gregor
if(StringAt((current + 1), 2, " C", " Q", " G", ""))
current += 3;
else
if(StringAt((current + 1), 1, "C", "K", "Q", "")
AND !StringAt((current + 1), 2, "CE", "CI", ""))
current += 2;
else
current += 1;
break;
case 'D':
if(StringAt(current, 2, "DG", ""))
if(StringAt((current + 2), 1, "I", "E", "Y", ""))
{
//e.g. 'edge'
MetaphAdd("J");
current += 3;
break;
}else{
//e.g. 'edgar'
MetaphAdd("TK");
current += 2;
break;
}
if(StringAt(current, 2, "DT", "DD", ""))
{
MetaphAdd("T");
current += 2;
break;
}
//else
MetaphAdd("T");
current += 1;
break;
case 'F':
if(GetAt(current + 1) == 'F')
current += 2;
else
current += 1;
MetaphAdd("F");
break;
case 'G':
if(GetAt(current + 1) == 'H')
{
if((current > 0) AND !IsVowel(current - 1))
{
MetaphAdd("K");
current += 2;
break;
}
if(current < 3)
{
//'ghislane', ghiradelli
if(current == 0)
{
if(GetAt(current + 2) == 'I')
MetaphAdd("J");
else
MetaphAdd("K");
current += 2;
break;
}
}
//Parker's rule (with some further refinements) - e.g., 'hugh'
if(((current > 1) AND StringAt((current - 2), 1, "B", "H", "D", "") )
//e.g., 'bough'
OR ((current > 2) AND StringAt((current - 3), 1, "B", "H", "D", "") )
//e.g., 'broughton'
OR ((current > 3) AND StringAt((current - 4), 1, "B", "H", "") ) )
{
current += 2;
break;
}else{
//e.g., 'laugh', 'McLaughlin', 'cough', 'gough', 'rough', 'tough'
if((current > 2)
AND (GetAt(current - 1) == 'U')
AND StringAt((current - 3), 1, "C", "G", "L", "R", "T", "") )
{
MetaphAdd("F");
}else
if((current > 0) AND GetAt(current - 1) != 'I')
MetaphAdd("K");
current += 2;
break;
}
}
if(GetAt(current + 1) == 'N')
{
if((current == 1) AND IsVowel(0) AND !SlavoGermanic())
{
MetaphAdd("KN", "N");
}else
//not e.g. 'cagney'
if(!StringAt((current + 2), 2, "EY", "")
AND (GetAt(current + 1) != 'Y') AND !SlavoGermanic())
{
MetaphAdd("N", "KN");
}else
MetaphAdd("KN");
current += 2;
break;
}
//'tagliaro'
if(StringAt((current + 1), 2, "LI", "") AND !SlavoGermanic())
{
MetaphAdd("KL", "L");
current += 2;
break;
}
//-ges-,-gep-,-gel-, -gie- at beginning
if((current == 0)
AND ((GetAt(current + 1) == 'Y')
OR StringAt((current + 1), 2, "ES", "EP", "EB", "EL", "EY", "IB", "IL", "IN", "IE", "EI", "ER", "")) )
{
MetaphAdd("K", "J");
current += 2;
break;
}
// -ger-, -gy-
if((StringAt((current + 1), 2, "ER", "") OR (GetAt(current + 1) == 'Y'))
AND !StringAt(0, 6, "DANGER", "RANGER", "MANGER", "")
AND !StringAt((current - 1), 1, "E", "I", "")
AND !StringAt((current - 1), 3, "RGY", "OGY", "") )
{
MetaphAdd("K", "J");
current += 2;
break;
}
// italian e.g, 'biaggi'
if(StringAt((current + 1), 1, "E", "I", "Y", "") OR StringAt((current - 1), 4, "AGGI", "OGGI", ""))
{
//obvious germanic
if((StringAt(0, 4, "VAN ", "VON ", "") OR StringAt(0, 3, "SCH", ""))
OR StringAt((current + 1), 2, "ET", ""))
MetaphAdd("K");
else
//always soft if french ending
if(StringAt((current + 1), 4, "IER ", ""))
MetaphAdd("J");
else
MetaphAdd("J", "K");
current += 2;
break;
}
if(GetAt(current + 1) == 'G')
current += 2;
else
current += 1;
MetaphAdd("K");
break;
case 'H':
//only keep if first & before vowel or btw. 2 vowels
if(((current == 0) OR IsVowel(current - 1))
AND IsVowel(current + 1))
{
MetaphAdd("H");
current += 2;
}else//also takes care of 'HH'
current += 1;
break;
case 'J':
//obvious spanish, 'jose', 'san jacinto'
if(StringAt(current, 4, "JOSE", "") OR StringAt(0, 4, "SAN ", "") )
{
if(((current == 0) AND (GetAt(current + 4) == ' ')) OR StringAt(0, 4, "SAN ", "") )
MetaphAdd("H");
else
{
MetaphAdd("J", "H");
}
current +=1;
break;
}
if((current == 0) AND !StringAt(current, 4, "JOSE", ""))
MetaphAdd("J", "A");//Yankelovich/Jankelowicz
else
//spanish pron. of e.g. 'bajador'
if(IsVowel(current - 1)
AND !SlavoGermanic()
AND ((GetAt(current + 1) == 'A') OR (GetAt(current + 1) == 'O')))
MetaphAdd("J", "H");
else
if(current == last)
MetaphAdd("J", " ");
else
if(!StringAt((current + 1), 1, "L", "T", "K", "S", "N", "M", "B", "Z", "")
AND !StringAt((current - 1), 1, "S", "K", "L", ""))
MetaphAdd("J");
if(GetAt(current + 1) == 'J')//it could happen!
current += 2;
else
current += 1;
break;
case 'K':
if(GetAt(current + 1) == 'K')
current += 2;
else
current += 1;
MetaphAdd("K");
break;
case 'L':
if(GetAt(current + 1) == 'L')
{
//spanish e.g. 'cabrillo', 'gallegos'
if(((current == (length - 3))
AND StringAt((current - 1), 4, "ILLO", "ILLA", "ALLE", ""))
OR ((StringAt((last - 1), 2, "AS", "OS", "") OR StringAt(last, 1, "A", "O", ""))
AND StringAt((current - 1), 4, "ALLE", "")) )
{
MetaphAdd("L", " ");
current += 2;
break;
}
current += 2;
}else
current += 1;
MetaphAdd("L");
break;
case 'M':
if((StringAt((current - 1), 3, "UMB", "")
AND (((current + 1) == last) OR StringAt((current + 2), 2, "ER", "")))
//'dumb','thumb'
OR (GetAt(current + 1) == 'M') )
current += 2;
else
current += 1;
MetaphAdd("M");
break;
case 'N':
if(GetAt(current + 1) == 'N')
current += 2;
else
current += 1;
MetaphAdd("N");
break;
case 'Ñ':
current += 1;
MetaphAdd("N");
break;
case 'P':
if(GetAt(current + 1) == 'H')
{
MetaphAdd("F");
current += 2;
break;
}
//also account for "campbell", "raspberry"
if(StringAt((current + 1), 1, "P", "B", ""))
current += 2;
else
current += 1;
MetaphAdd("P");
break;
case 'Q':
if(GetAt(current + 1) == 'Q')
current += 2;
else
current += 1;
MetaphAdd("K");
break;
case 'R':
//french e.g. 'rogier', but exclude 'hochmeier'
if((current == last)
AND !SlavoGermanic()
AND StringAt((current - 2), 2, "IE", "")
AND !StringAt((current - 4), 2, "ME", "MA", ""))
MetaphAdd("", "R");
else
MetaphAdd("R");
if(GetAt(current + 1) == 'R')
current += 2;
else
current += 1;
break;
case 'S':
//special cases 'island', 'isle', 'carlisle', 'carlysle'
if(StringAt((current - 1), 3, "ISL", "YSL", ""))
{
current += 1;
break;
}
//special case 'sugar-'
if((current == 0) AND StringAt(current, 5, "SUGAR", ""))
{
MetaphAdd("X", "S");
current += 1;
break;
}
if(StringAt(current, 2, "SH", ""))
{
//germanic
if(StringAt((current + 1), 4, "HEIM", "HOEK", "HOLM", "HOLZ", ""))
MetaphAdd("S");
else
MetaphAdd("X");
current += 2;
break;
}
//italian & armenian
if(StringAt(current, 3, "SIO", "SIA", "") OR StringAt(current, 4, "SIAN", ""))
{
if(!SlavoGermanic())
MetaphAdd("S", "X");
else
MetaphAdd("S");
current += 3;
break;
}
//german & anglicisations, e.g. 'smith' match 'schmidt', 'snider' match 'schneider'
//also, -sz- in slavic language altho in hungarian it is pronounced 's'
if(((current == 0)
AND StringAt((current + 1), 1, "M", "N", "L", "W", ""))
OR StringAt((current + 1), 1, "Z", ""))
{
MetaphAdd("S", "X");
if(StringAt((current + 1), 1, "Z", ""))
current += 2;
else
current += 1;
break;
}
if(StringAt(current, 2, "SC", ""))
{
//Schlesinger's rule
if(GetAt(current + 2) == 'H')
//dutch origin, e.g. 'school', 'schooner'
if(StringAt((current + 3), 2, "OO", "ER", "EN", "UY", "ED", "EM", ""))
{
//'schermerhorn', 'schenker'
if(StringAt((current + 3), 2, "ER", "EN", ""))
{
MetaphAdd("X", "SK");
}else
MetaphAdd("SK");
current += 3;
break;
}else{
if((current == 0) AND !IsVowel(3) AND (GetAt(3) != 'W'))
MetaphAdd("X", "S");
else
MetaphAdd("X");
current += 3;
break;
}
if(StringAt((current + 2), 1, "I", "E", "Y", ""))
{
MetaphAdd("S");
current += 3;
break;
}
//else
MetaphAdd("SK");
current += 3;
break;
}
//french e.g. 'resnais', 'artois'
if((current == last) AND StringAt((current - 2), 2, "AI", "OI", ""))
MetaphAdd("", "S");
else
MetaphAdd("S");
if(StringAt((current + 1), 1, "S", "Z", ""))
current += 2;
else
current += 1;
break;
case 'T':
if(StringAt(current, 4, "TION", ""))
{
MetaphAdd("X");
current += 3;
break;
}
if(StringAt(current, 3, "TIA", "TCH", ""))
{
MetaphAdd("X");
current += 3;
break;
}
if(StringAt(current, 2, "TH", "")
OR StringAt(current, 3, "TTH", ""))
{
//special case 'thomas', 'thames' or germanic
if(StringAt((current + 2), 2, "OM", "AM", "")
OR StringAt(0, 4, "VAN ", "VON ", "")
OR StringAt(0, 3, "SCH", ""))
{
MetaphAdd("T");
}else{
MetaphAdd("0", "T");
}
current += 2;
break;
}
if(StringAt((current + 1), 1, "T", "D", ""))
current += 2;
else
current += 1;
MetaphAdd("T");
break;
case 'V':
if(GetAt(current + 1) == 'V')
current += 2;
else
current += 1;
MetaphAdd("F");
break;
case 'W':
//can also be in middle of word
if(StringAt(current, 2, "WR", ""))
{
MetaphAdd("R");
current += 2;
break;
}
if((current == 0)
AND (IsVowel(current + 1) OR StringAt(current, 2, "WH", "")))
{
//Wasserman should match Vasserman
if(IsVowel(current + 1))
MetaphAdd("A", "F");
else
//need Uomo to match Womo
MetaphAdd("A");
}
//Arnow should match Arnoff
if(((current == last) AND IsVowel(current - 1))
OR StringAt((current - 1), 5, "EWSKI", "EWSKY", "OWSKI", "OWSKY", "")
OR StringAt(0, 3, "SCH", ""))
{
MetaphAdd("", "F");
current +=1;
break;
}
//polish e.g. 'filipowicz'
if(StringAt(current, 4, "WICZ", "WITZ", ""))
{
MetaphAdd("TS", "FX");
current +=4;
break;
}
//else skip it
current +=1;
break;
case 'X':
//french e.g. breaux
if(!((current == last)
AND (StringAt((current - 3), 3, "IAU", "EAU", "")
OR StringAt((current - 2), 2, "AU", "OU", ""))) )
MetaphAdd("KS");
if(StringAt((current + 1), 1, "C", "X", ""))
current += 2;
else
current += 1;
break;
case 'Z':
//chinese pinyin e.g. 'zhao'
if(GetAt(current + 1) == 'H')
{
MetaphAdd("J");
current += 2;
break;
}else
if(StringAt((current + 1), 2, "ZO", "ZI", "ZA", "")
OR (SlavoGermanic() AND ((current > 0) AND GetAt(current - 1) != 'T')))
{
MetaphAdd("S", "TS");
}
else
MetaphAdd("S");
if(GetAt(current + 1) == 'Z')
current += 2;
else
current += 1;
break;
default:
current += 1;
}
}
metaph = primary;
//only give back 4 char metaph
//if(metaph.GetLength() > 4)
// metaph.SetAt(4,'\0');
if(alternate)
{
metaph2 = secondary;
//if(metaph2.GetLength() > 4)
// metaph2.SetAt(4,'\0');
}
}