PEBLString Namespace Reference

Functions
Variant	Uppercase (Variant v)
Variant	Lowercase (Variant v)
Variant	ToASCII (Variant v)
Variant	StringLength (Variant v)
Variant	SubString (Variant v)
Variant	FindInString (Variant v)
Variant	SplitString (Variant v)
Variant	CopyToClipboard (Variant v)
Variant	RegexMatch (Variant v)
Variant	DetectTextScript (Variant v)
Variant	IsRTL (Variant v)
Variant	GetFontForText (Variant v)
Variant	GetSystemLocale (Variant v)
Variant	IsSystemLocaleRTL (Variant v)

Variables
PEBL_Function_Type	FunctionTable []

Function Documentation

CopyToClipboard()

Variant PEBLString::CopyToClipboard

(

Variant

v

)

Definition at line 223 of file PEBLString.cpp.

{
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function CopyToClipboard(<string>)]: ");  
    std::string str1 = plist->First();// plist->PopFront();
    
 
    PEBLUtility::CopyToClipboard(str1);
    return Variant(1);
}

References PError::AssertType(), PEBLUtility::CopyToClipboard(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

DetectTextScript()

Variant PEBLString::DetectTextScript

(

Variant

v

)

Definition at line 240 of file PEBLString.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function DetectTextScript(<string>)]: ");
    std::string text = plist->First();
 
    std::string script = PEBLUtility::DetectScript(text);
    return Variant(script);
}

References PError::AssertType(), PEBLUtility::DetectScript(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

FindInString()

Variant PEBLString::FindInString

(

Variant

v

)

Definition at line 171 of file PEBLString.cpp.

{
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function FindInString(<string>,<substring>,<pos>)]: ");  
    std::string str1 = plist->First();// plist->PopFront();
    
    
    PError::AssertType(plist->Nth(2), PEAT_STRING, "Argument error in second parameter of function FindInString(<string>,<substring>,<pos>)]: ");  
    std::string str2 = plist->Nth(2); //plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_INTEGER, "Argument error in Third parameter of function FindInString(<string>,<substring>,<pos>)]: ");  
    int pos = plist->Nth(3); //plist->PopFront();
 
 
    string::size_type newpos = str1.find(str2,pos-1);
    if (newpos == string::npos) 
        return Variant(0);
    else
        return Variant((int)newpos+1);
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_INTEGER, and PEAT_STRING.

GetFontForText()

Variant PEBLString::GetFontForText

(

Variant

v

)

Definition at line 279 of file PEBLString.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function GetFontForText(<text>, [fontType])]: ");
    std::string text = plist->First();
 
    // Optional font type parameter (default to 0 = sans-serif)
    int fontType = 0;
    if (plist->Length() >= 2) {
        PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second parameter of function GetFontForText(<text>, [fontType])]: ");
        fontType = plist->Nth(2);
        if (fontType < 0 || fontType > 2) {
            PError::SignalWarning("Font type must be 0 (sans), 1 (mono), or 2 (serif). Using 0.");
            fontType = 0;
        }
    }
 
    // Detect script from text
    std::string script = PEBLUtility::DetectScript(text);
 
    // If empty (Latin), use empty string; otherwise use the 4-letter code
    std::string code = (script.empty()) ? "" : script;
 
    // Get appropriate font
    // If code is empty, GetFontForLanguageOrScript will return DejaVu (default Western)
    std::string font = PEBLUtility::GetFontForLanguageOrScript(code.empty() ? "EN" : code, fontType);
 
    return Variant(font);
}

References PError::AssertType(), PEBLUtility::DetectScript(), PList::First(), Variant::GetComplexData(), PEBLUtility::GetFontForLanguageOrScript(), PComplexData::GetList(), PList::Length(), PList::Nth(), PEAT_INTEGER, PEAT_STRING, and PError::SignalWarning().

GetSystemLocale()

Variant PEBLString::GetSystemLocale

(

Variant

v

)

Definition at line 314 of file PEBLString.cpp.

{
    // No parameters needed - just query the OS via environment
    std::string locale = myEnv->GetSystemLocale();
    return Variant(locale);
}

References PlatformEnvironment::GetSystemLocale(), and myEnv.

IsRTL()

Variant PEBLString::IsRTL

(

Variant

v

)

Definition at line 254 of file PEBLString.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function IsRTL(<string>)]: ");
    std::string input = plist->First();
 
    // If input is a 4-letter script code, use it directly
    // Otherwise, detect the script from the text
    std::string script;
    if (input.length() == 4 && std::isupper(input[0])) {
        script = input;
    } else {
        script = PEBLUtility::DetectScript(input);
    }
 
    bool isRTL = PEBLUtility::IsRTLScript(script);
    return Variant((int)isRTL);
}

References PError::AssertType(), PEBLUtility::DetectScript(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEBLUtility::IsRTLScript(), and PEAT_STRING.

IsSystemLocaleRTL()

Variant PEBLString::IsSystemLocaleRTL

(

Variant

v

)

Definition at line 325 of file PEBLString.cpp.

{
    // No parameters needed - just query the OS via environment
    bool isRTL = myEnv->IsSystemLocaleRTL();
    return Variant((int)isRTL);
}

References PlatformEnvironment::IsSystemLocaleRTL(), and myEnv.

Lowercase()

Variant PEBLString::Lowercase

(

Variant

v

)

Definition at line 81 of file PEBLString.cpp.

{
 
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function Uppercase(<string>)]: ");  
 
    std::string s=plist->First();    
    transform(s.begin(), s.end(), s.begin(), tolower);
 
    return Variant(s);
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

RegexMatch()

Variant PEBLString::RegexMatch

(

Variant

v

)

Definition at line 335 of file PEBLString.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING,
        "Argument error in first parameter of function RegexMatch(<string>, <pattern>)]: ");
    std::string text = plist->First();
 
    PError::AssertType(plist->Nth(2), PEAT_STRING,
        "Argument error in second parameter of function RegexMatch(<string>, <pattern>)]: ");
    std::string pattern = plist->Nth(2);
 
    int matchlen = 0;
    int idx = re_match(pattern.c_str(), text.c_str(), &matchlen);
 
    if (idx < 0)
        return Variant(0);          // No match
    else
        return Variant(idx + 1);    // 1-based index (PEBL convention)
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_STRING, and re_match().

SplitString()

Variant PEBLString::SplitString

(

Variant

v

)

Definition at line 198 of file PEBLString.cpp.

{
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function SplitString(<string>,<substring>)]: ");  
    std::string str1 = plist->First();// plist->PopFront();
    
    
    PError::AssertType(plist->Nth(2), PEAT_STRING, "Argument error in second parameter of function SplitString(<string>,<substring>)]: ");  
    std::string str2 = plist->Nth(2); //plist->PopFront();
 
 
    std::string tmpstring = str1;
    std::string sep = str2;
    Variant  ret  =  PEBLUtility::Tokenize(tmpstring.c_str(),*(sep.c_str()));
 
    return ret;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_STRING, and PEBLUtility::Tokenize().

StringLength()

Variant PEBLString::StringLength

(

Variant

v

)

Definition at line 109 of file PEBLString.cpp.

{
 
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function StringLength(<string>)]: ");  
    std::string s=plist->First();    
 
    return Variant((int)(s.length()));
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

SubString()

Variant PEBLString::SubString

(

Variant

v

)

Definition at line 135 of file PEBLString.cpp.

{
 
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in first parameter of function SubString(<string>, <index>, <length>)]: ");  
    std::string string1 = plist->First(); //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in Second parameter of function SubString(<string>, <index>, <length>)]: ");  
    int position = plist->Nth(2);// plist->PopFront();
 
    PError::AssertType(plist->Nth(3), PEAT_INTEGER, "Argument error in Third parameter of function SubString(<string>, <index>, <length>)]: ");  
    int length = plist->Nth(3);// plist->PopFront();
 
    if(position < 1)
        {
            PError::SignalFatalError("Trying to get substring with index less than 1");
        }
    if(string1.length()<position)
        {
            PError::SignalFatalError("Trying to get substring with index longer than string");
        }
    //cout << "Length: " << string1.length() << "pos: " << position << "len1:"<< length << endl;
    if(string1.length() < position-1+length)
        {
            length = -1;
        }
    
    return Variant(string1.substr(position-1,length));
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PList::Nth(), PEAT_INTEGER, PEAT_STRING, and PError::SignalFatalError().

ToASCII()

Variant PEBLString::ToASCII

(

Variant

v

)

Definition at line 95 of file PEBLString.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_INTEGER, "Argument error in function ToASCII(<integer>)]: ");  
 
    std::string s = "";
    s[0] = (plist->First()).GetInteger();    
    
    return Variant((std::string(s)));
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_INTEGER.

Uppercase()

Variant PEBLString::Uppercase

(

Variant

v

)

Definition at line 65 of file PEBLString.cpp.

{
 
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function Uppercase(<string>)]: ");  
 
    std::string s=plist->First();    
    transform(s.begin(), s.end(), s.begin(), toupper);
 
    return Variant(s);
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

Variable Documentation

FunctionTable

PEBL_Function_Type PEBLString::FunctionTable[]

Initial value:

=
        {
 
            {(char*)"UPPERCASE",                 Uppercase, 1, 1},
            {(char*)"LOWERCASE",                 Lowercase, 1, 1},
            {(char*)"TOASCII",                   ToASCII,   1,1},
            {(char*)"STRINGLENGTH",              StringLength, 1, 1},
            {(char*)"SUBSTRING",                 SubString, 3, 3},
            {(char*)"FINDINSTRING",              FindInString, 3, 3},
            {(char*)"SPLITSTRING",               SplitString, 2, 2},
            {(char*)"REGEXMATCH",               RegexMatch, 2, 2},
            {(char*)"COPYTOCLIPBOARD",           CopyToClipboard,1,1},
            {(char*)"DETECTTEXTSCRIPT",          DetectTextScript, 1, 1},
            {(char*)"ISRTL",                     IsRTL, 1, 1},
            {(char*)"GETFONTFORTEXT",            GetFontForText, 1, 2},
            {(char*)"GETSYSTEMLOCALE",           GetSystemLocale, 0, 0},
            {(char*)"ISSYSTEMLOCALERTL",         IsSystemLocaleRTL, 0, 0},
            
            
            {0,            0,  0, 0}
        }

Definition at line 461 of file Functions.h.

        {
 
            {(char*)"UPPERCASE",                 Uppercase, 1, 1},
            {(char*)"LOWERCASE",                 Lowercase, 1, 1},
            {(char*)"TOASCII",                   ToASCII,   1,1},
            {(char*)"STRINGLENGTH",              StringLength, 1, 1},
            {(char*)"SUBSTRING",                 SubString, 3, 3},
            {(char*)"FINDINSTRING",              FindInString, 3, 3},
            {(char*)"SPLITSTRING",               SplitString, 2, 2},
            {(char*)"REGEXMATCH",               RegexMatch, 2, 2},
            {(char*)"COPYTOCLIPBOARD",           CopyToClipboard,1,1},
            {(char*)"DETECTTEXTSCRIPT",          DetectTextScript, 1, 1},
            {(char*)"ISRTL",                     IsRTL, 1, 1},
            {(char*)"GETFONTFORTEXT",            GetFontForText, 1, 2},
            {(char*)"GETSYSTEMLOCALE",           GetSystemLocale, 0, 0},
            {(char*)"ISSYSTEMLOCALERTL",         IsSystemLocaleRTL, 0, 0},
            //          {(char*)"TOKEN",                     TokenMakeWindow, 1, 1},
            //          {(char*)"FORMAT",        Format, 1, 1},
            {0,            0,  0, 0}
        };

Referenced by Loader::LoadLibraryFunctions().