Translating PB to C/C++

[Patrice Terrier]

ASC() ANSI version:

Code Select Expand

long asc(IN string s, IN long nPos) {
    long nRet = -1;
    long nLen = (long) s.length();
    if ((nLen == 0) || (nPos > nLen) || (nPos == 0)) { return nRet; }
    if (nPos > 0) {
        --nPos; }
    else {
        nPos = nLen + nPos; // Don't be fooled, despite the plus here, we remove the nPos value.
        if (nPos < 0) { return nRet; }
    }
    return (long) s[nPos];
}

[Patrice Terrier]

TIME$() Unicode version:

Code Select Expand

wstring TIME$() {
    time_t now = time(0);
    tm tstruct;
    WCHAR buf[16];
    if (localtime_s(&tstruct, &now) == 0) {;
        wcsftime(buf, sizeof(buf), L"%X", &tstruct);
    }
    return buf;
}

[Patrice Terrier]

REPLACE() Unicode version:

Code Select Expand

wstring REPLACE(IN wstring MainString, IN wstring MatchString, IN wstring NewString) {
    size_t pos = 0;
    while((pos = MainString.find(MatchString, pos)) != std::string::npos) {
         MainString.replace(pos, MatchString.length(), NewString);
         pos += NewString.length();
    }
    return MainString;
}

[Patrice Terrier]

CHR$() ANSI version:

Code Select Expand

string chr$(IN long n) {
    char bb[2] = {0};
    bb[0] = n % 255;
    return (char*) bb;
}

[Patrice Terrier]

EXTRACT$() Unicode version:

Code Select Expand

wstring EXTRACT$(IN long nIndex, IN wstring sMain, IN wstring sSearch) {
    wstring sResult = sMain;
    long nLength = (long) sMain.length();
    long nRet = -1; // Not found
    if (nLength && (sSearch.length())) {
        if (nIndex < 0) {
            nRet = (long) sMain.rfind(sSearch, nLength + nIndex + 1); }
        else {
            nRet = (long) sMain.find(sSearch, nIndex);
        }
    }
    if (nRet > -1) { sResult = LEFT$(sMain, nRet); }
    return sResult;
}

[Patrice Terrier]

A few macro:

Code Select Expand

#define XOR ^
#define OR |
#define MOD %
#define ENDIF }
#define NEXT }

A few Unicode constants:

Code Select Expand

static wchar_t  *$NULL              = L"";
const wchar_t   *$DOT               = L".";
const wchar_t   *$ANTI              = L"\\";
const wchar_t   *$COMMA             = L",";
const wchar_t   *$SPACE             = L" ";
const wchar_t   *$ZLIM              = L"|";
const wchar_t   *$CHARNULL          = L"\0";
const wchar_t   *$CR                = L"\r";
const wchar_t   *$LF                = L"\n";
const wchar_t   *$TAB               = L"\t";
const wchar_t   *$SQUOTE            = L"'";
const wchar_t   *$DQUOTE            = L"\"";


[James C. Fuller]

Good stuff Patrice keep em coming.

I am not a seasoned c++ coder but wouldn't wstring::npos be more politically correct?

Code Select Expand


wstring REPLACE(IN wstring MainString, IN wstring MatchString, IN wstring NewString) {
    size_t pos = 0;
    while((pos = MainString.find(MatchString, pos)) != wstring::npos) {
         MainString.replace(pos, MatchString.length(), NewString);
         pos += NewString.length();
    }
    return MainString;
}

James

[Patrice Terrier]

wstring::npos, this constant means until the end of the wstring.

[Patrice Terrier]

UCASE$() Unicode version:

Code Select Expand

wstring UCASE$(IN wstring sBuf) {
    std::transform(sBuf.begin(), sBuf.end(), sBuf.begin(), ::toupper);
    return sBuf;
}


LCASE$() Unicode version:

Code Select Expand

wstring LCASE$(IN wstring sBuf) {
    std::transform(sBuf.begin(), sBuf.end(), sBuf.begin(), ::tolower);
    return sBuf;
}

[Patrice Terrier]

RTRIM$() Unicode version:

Code Select Expand

wstring RTRIM$(IN wstring sBuf, IN wstring sChar) {
    wstring sResult = sBuf;
    LONG_PTR nLength = sBuf.length();
    if (nLength && (sChar.length())) {
        //sChar = sChar.substr(0, 1);
        while (nLength > 0) {
            // if (*sBuf.substr(nLength - 1, 1).c_str() == *sChar.c_str()) {
            // This is the sChar ANY search version
            if (std::wstring::npos != sChar.find(sBuf.substr(nLength - 1, 1))) {
                --nLength; }
            else {
                break;
            }
        }
        sResult = sBuf.substr(0, nLength);
    }
    return sResult;
}

rtrim$() ANSI version:

Code Select Expand

string rtrim$(IN string sBuf, IN string sChar) {
    string sResult = sBuf;
    long nLength = sBuf.length();
    if (nLength && (sChar.length())) {
        //sChar = sChar.substr(0, 1);
        while (nLength > 0) {
            // if (*sBuf.substr(nLength - 1, 1).c_str() == *sChar.c_str()) {
            // This is the sChar ANY search version
            if (std::string::npos != sChar.find(sBuf.substr(nLength - 1, 1))) {
                --nLength; }
            else {
                break;
            }
        }
        sResult = sBuf.substr(0, nLength);
    }
    return sResult;
}

[Patrice Terrier]

UCODE$() convert from ANSI to UNICODE.

Code Select Expand

wstring UCODE$(IN char* src) {
    return wstring(src, src + strlen(src));
}

Added:
And here is another variation based on a macro

Code Select Expand

#define UCODE$(str) ((WCHAR*) wstring(str.begin(), str.end()).c_str())

[Patrice Terrier]

ISFOLDER() Unicode version:

Code Select Expand

BOOL ISFOLDER(IN WCHAR* wszPath) { // dllexport
    BOOL bRet = FALSE;
    DWORD ftyp = GetFileAttributes(wszPath);
    if ((ftyp != INVALID_FILE_ATTRIBUTES) && (ftyp & FILE_ATTRIBUTE_DIRECTORY)) { bRet = TRUE; }
    return bRet;
}

[Patrice Terrier]

ISFILE() Unicode version:

Code Select Expand

BOOL ISFILE(IN WCHAR* Filename) {
    BOOL bRet = FALSE;
    DWORD ftyp = GetFileAttributes(Filename);
    if ((ftyp != INVALID_FILE_ATTRIBUTES) && ((ftyp & FILE_ATTRIBUTE_DIRECTORY) == 0)) { bRet = TRUE; }
    return bRet;
}

Note: like the original PowerBASIC function:
Filename is an unambiguous file name, which may not contain an asterisk (*) or query (?). If it contains one or more of those characters, the function always returns false (0).

If you want to use wildcard characters, then use this:

Code Select Expand

BOOL FileExist (IN wstring sFileSpec) {
    WIN32_FIND_DATA fd = { 0 };
    LPCTSTR lpFileSpec = sFileSpec.c_str();
    BOOL bRet = FALSE;
    if (sFileSpec.length()) {
       HANDLE hFind;
       hFind = FindFirstFile(sFileSpec.c_str(), &fd);
       if (hFind != INVALID_HANDLE_VALUE) {
          FindClose(hFind);
          bRet = TRUE;
       }
    }
    return bRet;
}

[Patrice Terrier]

LEFT$() Unicode version:

Code Select Expand

wstring LEFT$(IN wstring sBuf, IN long nLeft) {
    wstring sResult = $NULL;
    LONG_PTR nLength = max(min((long)sBuf.length(), nLeft), 0);
    if (nLength) {
        sResult = sBuf.substr(0, nLength);
    }
    return sResult;
}


RIGHT$() Unicode version:

Code Select Expand

wstring RIGHT$(IN wstring sBuf, IN long nRight) {
    wstring sResult = $NULL;
    LONG_PTR nLength = sBuf.length();
    if (nLength) { sResult = sBuf.substr(nLength - nRight, nRight); }
    return sResult;
}



MID$() Unicode version:

Code Select Expand

wstring MID$(IN wstring sBuf, IN long nStart, IN long nMid = 0) { // dllexport
    wstring sResult = $NULL;
    long nLength = (long) sBuf.length();
    if (nMid == 0) { nMid = nLength - nStart + 1; }
    if (nLength) { sResult = sBuf.substr(nStart - 1, nMid); }
    return sResult;
}


[Patrice Terrier]

INSTR() Unicode version:

Code Select Expand

long INSTR(IN long nIndex, IN wstring sMain, IN wstring sSearch) {
    long nRet = -1; // Not found
    long nLength = (long) (sMain.length());
    if (nLength && (sSearch.length())) {
        if (nIndex < 0) {
            nRet = (long) (sMain.rfind(sSearch, nLength + nIndex + 1)); }
        else {
            nRet = (long) (sMain.find(sSearch, nIndex));
        }
    }
    return nRet + 1;
}