UCS2 *Parser::UCS2_strcat(UCS2 *s1, const UCS2 *s2)
{
int l1, l2;
l1 = UCS2_strlen(s1);
l2 = UCS2_strlen(s2);
s1 = reinterpret_cast<UCS2 *>(POV_REALLOC(s1, sizeof(UCS2) * (l1 + l2 + 1), "UCS2 String"));
UCS2_strcpy(&s1[l1], s2);
return s1;
}
UCS2 *Parser::Parse_Substr(bool pathname)
{
UCS2 *str;
UCS2 *New;
int l, d;
GET(LEFT_PAREN_TOKEN);
str = Parse_String(pathname);
Parse_Comma();
l = (int)Parse_Float();
Parse_Comma();
d = (int)Parse_Float();
GET(RIGHT_PAREN_TOKEN);
if(((l + d - 1) > UCS2_strlen(str)) || (l < 0) || (d < 0))
Error("Illegal parameters in substr.");
New = reinterpret_cast<UCS2 *>(POV_MALLOC(sizeof(UCS2) * (d + 1), "temporary string"));
UCS2_strncpy(New, &(str[l - 1]), d);
New[d] = 0;
POV_FREE(str);
return New;
}
UCS2 *Parser::UCS2_strdup(const UCS2 *s)
{
UCS2 *New;
New=reinterpret_cast<UCS2 *>(POV_MALLOC((UCS2_strlen(s)+1) * sizeof(UCS2), UCS2toASCIIString(s).c_str()));
UCS2_strcpy(New,s);
return (New);
}
char *Parser::UCS2_To_String(const UCS2 *str, bool)
{
char *str_out;
char *strp;
str_out = reinterpret_cast<char *>(POV_MALLOC(UCS2_strlen(str)+1, "C String"));
for(strp = str_out; *str != 0; str++, strp++)
{
if((*str > 127) && (sceneData->languageVersion >= 350))
*strp = ' ';
else
*strp = (char)(*str);
}
*strp = 0;
return str_out;
}
UCS2 *Parser::Parse_String(bool pathname, bool require)
{
UCS2 *New = NULL;
int len = 0;
EXPECT
CASE(STRING_LITERAL_TOKEN)
New = String_To_UCS2(Token.Token_String, pathname);
EXIT
END_CASE
CASE(STR_TOKEN)
New = Parse_Str(pathname);
EXIT
END_CASE
CASE(VSTR_TOKEN)
New = Parse_VStr(pathname);
EXIT
END_CASE
CASE(CONCAT_TOKEN)
New = Parse_Concat(pathname);
EXIT
END_CASE
CASE(CHR_TOKEN)
New = Parse_Chr(pathname);
EXIT
END_CASE
CASE(DATETIME_TOKEN)
New = Parse_Datetime(pathname);
EXIT
END_CASE
CASE(SUBSTR_TOKEN)
New = Parse_Substr(pathname);
EXIT
END_CASE
CASE(STRUPR_TOKEN)
New = Parse_Strupr(pathname);
EXIT
END_CASE
CASE(STRLWR_TOKEN)
New = Parse_Strlwr(pathname);
EXIT
END_CASE
CASE(STRING_ID_TOKEN)
len = UCS2_strlen(reinterpret_cast<UCS2 *>(Token.Data)) + 1;
New = reinterpret_cast<UCS2 *>(POV_MALLOC(len * sizeof(UCS2), "UCS2 String"));
POV_MEMMOVE(reinterpret_cast<void *>(New), reinterpret_cast<void *>(Token.Data), len * sizeof(UCS2));
EXIT
END_CASE
OTHERWISE
if(require)
Expectation_Error("string expression");
else
{
UNGET
EXIT
}
END_CASE
END_EXPECT
return New;
}
UCS2 *Parser::Parse_String(bool pathname, bool require)
{
UCS2 *New = nullptr;
int len = 0;
const UCS2String* pString;
const StringValue* stringValue = nullptr;
EXPECT
CASE(STRING_LITERAL_TOKEN)
/// @todo Add back support for non-ASCII string encodings.
stringValue = dynamic_cast<const StringValue*>(mToken.raw.value.get());
POV_PARSER_ASSERT(stringValue != nullptr);
if (pathname)
{
// Historically, escape sequences were ignored when parsing for a filename.
// As of POV-Ray v3.8, this has been changed.
if (sceneData->EffectiveLanguageVersion() >= 380)
{
if (stringValue->IsAmbiguous())
{
#if POV_BACKSLASH_IS_PATH_SEPARATOR
Warning("Backslash encountered while parsing for a filename."
" As of POV-Ray v3.8, this is interpreted as an escape sequence just like in any other string literal."
" If this is supposed to be a path separator, use a forward slash instead.");
#endif
}
pString = &stringValue->GetData();
}
else
{
if (stringValue->IsAmbiguous())
{
#if POV_BACKSLASH_IS_PATH_SEPARATOR
Warning("Backslash encountered while parsing for a filename."
" In legacy (pre-v3.8) scenes, this is NOT interpreted as the start of an escape sequence."
" However, for future compatibility it is recommended to use a forward slash as path separator instead.");
#else
Warning("Backslash encountered while parsing for a filename."
" In legacy (pre-v3.8) scenes, this is NOT interpreted as the start of an escape sequence.");
#endif
}
pString = &stringValue->GetFileName();
}
}
else
{
pString = &stringValue->GetData();
}
len = pString->size() + 1;
New = reinterpret_cast<UCS2 *>(POV_MALLOC(len * sizeof(UCS2), "UCS2 String"));
std::memcpy(reinterpret_cast<void *>(New),
reinterpret_cast<const void *>(pString->c_str()),
len * sizeof(UCS2));
EXIT
END_CASE
CASE(STR_TOKEN)
New = Parse_Str(pathname);
EXIT
END_CASE
CASE(VSTR_TOKEN)
New = Parse_VStr(pathname);
EXIT
END_CASE
CASE(CONCAT_TOKEN)
New = Parse_Concat(pathname);
EXIT
END_CASE
CASE(CHR_TOKEN)
New = Parse_Chr(pathname);
EXIT
END_CASE
CASE(DATETIME_TOKEN)
New = Parse_Datetime(pathname);
EXIT
END_CASE
CASE(SUBSTR_TOKEN)
New = Parse_Substr(pathname);
EXIT
END_CASE
CASE(STRUPR_TOKEN)
New = Parse_Strupr(pathname);
EXIT
END_CASE
CASE(STRLWR_TOKEN)
New = Parse_Strlwr(pathname);
EXIT
END_CASE
CASE(STRING_ID_TOKEN)
len = UCS2_strlen(CurrentTokenDataPtr<UCS2*>()) + 1;
New = reinterpret_cast<UCS2 *>(POV_MALLOC(len * sizeof(UCS2), "UCS2 String"));
std::memcpy(reinterpret_cast<void *>(New), CurrentTokenDataPtr<void*>(), len * sizeof(UCS2));
EXIT
END_CASE
OTHERWISE
if(require)
Expectation_Error("string expression");
else
{
UNGET
EXIT
}
END_CASE
END_EXPECT
return New;
}
