String GetCurrencySymbol(RCString s) {
String x = s.ToUpper();
if (x.Right(4) == "COIN")
x = s.substr(0, s.length() - 4);
if (x == "BIT")
return "BTC";
if (x == "LITE")
return "LTC";
if (x == "GROESTL")
return "GRS";
if (x == "PEER" || x == "PP")
return "PPC";
if (x == "PRIME")
return "XPM";
if (x == "BTC" || x=="LTC" || x=="GRS" || x=="PPC" || x=="XPM")
return x;
Throw(E_NOTIMPL);
}
CP CLispEng::CreateString(RCString s) {
size_t size = s.length();
CArrayValue *av = CreateVector(size, ELTYPE_CHARACTER);
memcpy(av->m_pData, (const String::value_type*)s, size*sizeof(String::value_type));
return FromSValue(av);
}