Value Callable::DoCall(
Environment &env, const CallerInfo &callerInfo, ULong flags,
const Value &valueThis, const Iterator *pIteratorThis,
const TrailCtrlHolder *pTrailCtrlHolder)
{
env.SetError(ERR_TypeError, "object is not callable");
return Value::Nil;
}
bool SetupGLEW(Environment &env)
{
static bool setupFlag = false;
if (setupFlag) return true;
setupFlag = true;
GLenum err = glewInit();
if (err == GLEW_OK) return true;
env.SetError(ERR_RuntimeError, "%s", glewGetErrorString(err));
return false;
}
GLenum GetImageFormat(Environment &env, const Image *pImage)
{
GLenum format = 0;
Image::Format fmt = pImage->GetFormat();
format =
(fmt == Image::FORMAT_RGB)? GL_BGR_EXT :
(fmt == Image::FORMAT_RGBA)? GL_BGRA_EXT : 0;
if (format == 0) {
env.SetError(ERR_ValueError, "unsupported image type");
}
return format;
}
bool Pointer::Advance(Environment &env, int distance)
{
if (distance >= 0) {
_offset += distance;
return true;
}
if (_offset >= static_cast<size_t>(-distance)) {
_offset += distance;
return true;
}
env.SetError(ERR_IndexError, "pointer offset becomes negative");
return false;
}
void SetError_RequiredGLVersion(Environment &env, const char *version)
{
env.SetError(ERR_NotImplementedError, "available in OpenGL %s or later", version);
}
void SetError_NotImpFunction(Environment &env, const char *funcName)
{
env.SetError(ERR_NotImplementedError, "not implemented function %s", funcName);
}
bool Parser::FeedChar(Environment &env, char ch)
{
BeginPushbackRegion(ch);
//::printf("%p ch=%c, stat=%d\n", this, ch, _stat);
switch (_stat) {
case STAT_Init: {
if (ch == ' ' || ch == '\t' || ch == '\n' || ch == '\0') {
// nothing to do
} else {
Pushback(ch);
_str.clear();
_stat = STAT_String;
}
break;
}
case STAT_String: {
if (ch == '\0') {
FlushElemString(_str.c_str());
_str.clear();
} else if (IsCommandMark(ch)) {
_cmdName.clear();
_stat = STAT_AcceptCommandInString;
} else {
_str += ch;
}
break;
}
case STAT_AcceptCommandInString: {
if (IsCommandEnd(_cmdName, ch)) {
if (_cmdName.empty()) {
env.SetError(ERR_SyntaxError, "command name is not specified");
return false;
}
const CommandFormat *pCmdFmt = CommandFormat::Lookup(_cmdName.c_str());
if (pCmdFmt == nullptr) {
// custom command
FlushElemString(_str.c_str());
_stat = STAT_CommandCustom;
} else {
// special command
if (pCmdFmt->IsVisual() || !IsBlank(_str.c_str())) {
FlushElemString(_str.c_str());
}
_pElemCmdCur.reset(new Elem_Command(pCmdFmt));
_stat = STAT_CommandSpecial;
}
_str.clear();
Pushback(ch);
} else {
_cmdName += ch;
}
break;
}
case STAT_AcceptCommandInArgLine:
case STAT_AcceptCommandInArgPara: {
if (_pParserChild.get() != nullptr) {
if (!_pParserChild->FeedChar(env, ch)) return false;
if (_pParserChild->IsComplete()) {
AutoPtr<Elem_Text> pElemResult(
new Elem_Text(_pParserChild->GetElemOwner().Reference()));
_pElemArg->GetElemChildren().AddElem(pElemResult->ReduceContent()->Reference());
_pParserChild.reset();
_stat = (_stat == STAT_AcceptCommandInArgLine)? STAT_ArgLine : STAT_ArgPara;
}
} else if (IsCommandEnd(_cmdName, ch)) {
if (_cmdName.empty()) {
env.SetError(ERR_SyntaxError, "command name is not specified");
return false;
}
const CommandFormat *pCmdFmt = CommandFormat::Lookup(_cmdName.c_str());
if (pCmdFmt == nullptr) {
// custom command
_pParserChild.reset(new Parser(_pAliases, this));
_pParserChild->SetCommandCustom(_cmdName.c_str());
Pushback(ch);
} else if (pCmdFmt->IsSectionIndicator()) {
if (_stat == STAT_AcceptCommandInArgLine ||
_stat == STAT_AcceptCommandInArgCustom) {
env.SetError(ERR_SyntaxError,
"section indicator can not appear in line argument");
return false;
}
// finish the previous command
if (!_strArg.empty()) {
_pElemArg->GetElemChildren().AddElem(new Elem_String(_strArg));
_strArg.clear();
}
_pElemCmdCur->GetElemArgs().AddElem(_pElemArg->ReduceContent()->Reference());
FlushElemCommand(_pElemCmdCur.release());
// special command (section indicator)
_pElemCmdCur.reset(new Elem_Command(pCmdFmt));
Pushback(ch);
_stat = STAT_CommandSpecial;
} else {
// special command (not section indicator)
_pParserChild.reset(new Parser(_pAliases, this));
_pParserChild->SetCommandSpecial(pCmdFmt);
}
} else {
_cmdName += ch;
}
break;
}
case STAT_AcceptCommandInArgCustom: {
if (_pParserChild.get() != nullptr) {
if (!_pParserChild->FeedChar(env, ch)) return false;
if (_pParserChild->IsComplete()) {
_strArg += _pParserChild->GetString();
_pParserChild.reset();
_stat = STAT_ArgCustom;
}
} else if (IsCommandEnd(_cmdName, ch)) {
if (_cmdName.empty()) {
env.SetError(ERR_SyntaxError, "command name is not specified");
return false;
}
const CommandFormat *pCmdFmt = CommandFormat::Lookup(_cmdName.c_str());
if (pCmdFmt == nullptr) {
// custom command
_pParserChild.reset(new Parser(_pAliases, this));
_pParserChild->SetCommandCustom(_cmdName);
Pushback(ch);
} else {
// special command
_strArg += _chAhead;
_strArg += _cmdName;
_stat = STAT_ArgCustom;
}
} else {
_cmdName += ch;
}
break;
}
case STAT_CommandSpecial: {
Pushback(ch);
_strArg.clear();
_stat = STAT_NextArg;
break;
}
case STAT_NextArg: {
if (_pElemCmdCur->HasCompletedArg()) {
FlushElemCommand(_pElemCmdCur.release());
Pushback(ch);
_str.clear();
_stat = IsTopLevel()? STAT_String : STAT_Complete;
break;
}
const CommandFormat::Arg *pArg = _pElemCmdCur->GetCurrentArg();
Pushback(ch);
_stat =
(pArg->IsWord() || pArg->IsWordOpt())? STAT_ArgWordPre :
pArg->IsBracket()? STAT_ArgBracketPre :
(pArg->IsLine() || pArg->IsLineOpt())? STAT_ArgLinePre :
(pArg->IsQuote() || pArg->IsQuoteOpt())? STAT_ArgQuotePre :
(pArg->IsBrace() || pArg->IsBraceOpt())? STAT_ArgBracePre :
pArg->IsPara()? STAT_ArgParaPre :
STAT_Complete; // this must not happen
break;
}
case STAT_ArgWordPre: {
if (ch == ' ' || ch == '\t') {
// nothing to do
} else if (ch == '\n' || ch == '\0' || IsCommandMark(ch)) {
const CommandFormat::Arg *pArg = _pElemCmdCur->GetCurrentArg();
if (pArg->IsWord()) {
env.SetError(ERR_SyntaxError, "argument %s doesn't exist", pArg->GetName());
return false;
}
Pushback(ch);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_Empty());
_stat = STAT_NextArg;
} else if (ch == '"') {
_strArg.clear();
_stat = STAT_ArgWordQuote;
} else {
_strArg.clear();
Pushback(ch);
_stat = STAT_ArgWord;
}
break;
}
case STAT_ArgWord: {
if (ch == ' ' || ch == '\t' || ch == '\n' || ch == '\0' || IsCommandMark(ch)) {
Pushback(ch);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else if (ch == '.' || ch == ',' || ch == ';' || ch == '?' || ch == '!') {
_chAhead = ch;
_stat = STAT_ArgWord_Punctuation;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgWord_Punctuation: {
if (ch == ' ' || ch == '\t' || ch == '\n' || ch == '\0' || IsCommandMark(ch)) {
Pushback(ch);
Pushback(_chAhead);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else {
Pushback(ch);
_strArg += _chAhead;
_stat = STAT_ArgWord;
}
break;
}
case STAT_ArgWordQuote: {
if (ch == '\n' || ch == '\0') {
Pushback(ch);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else if (ch == '"') {
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgBracketPre: {
if (ch == ' ' || ch == '\t') {
// nothing to do
} else if (ch == '[') {
_strArg.clear();
_stat = STAT_ArgBracket;
} else { // including '\0'
Pushback(ch);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_Empty());
_stat = STAT_NextArg;
}
break;
}
case STAT_ArgBracket: {
if (ch == '\n' || ch == '\0' || IsCommandMark(ch)) {
env.SetError(ERR_SyntaxError, "unmatched brakcet mark");
return false;
} else if (ch == ']') {
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgLinePre: {
if (ch == ' ' || ch == '\t') {
// nothing to do
} else {
_pElemArg.reset(new Elem_Text());
Pushback(ch);
_strArg.clear();
_stat = STAT_ArgLine;
}
break;
}
case STAT_ArgLine: {
if (ch == '\n' || ch == '\0') {
if (ch == '\0') Pushback(ch);
String str = Strip(_strArg.c_str());
if (!str.empty()) {
_pElemArg->GetElemChildren().AddElem(new Elem_String(str));
}
_strArg.clear();
_pElemCmdCur->GetElemArgs().AddElem(_pElemArg->ReduceContent()->Reference());
_stat = STAT_NextArg;
} else if (IsCommandMark(ch)) {
String str = Strip(_strArg.c_str());
if (!str.empty()) {
_pElemArg->GetElemChildren().AddElem(new Elem_String(str));
}
_strArg.clear();
_cmdName.clear();
_stat = STAT_AcceptCommandInArgLine;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgQuotePre: {
if (ch == ' ' || ch == '\t') {
// nothing to do
} else if (ch == '"') {
_strArg.clear();
_stat = STAT_ArgQuote;
} else { // including '\0'
const CommandFormat::Arg *pArg = _pElemCmdCur->GetCurrentArg();
if (pArg->IsQuote()) {
env.SetError(ERR_SyntaxError, "quoted string is expected");
return false;
}
Pushback(ch);
if (_chPrev == ' ' || _chPrev == '\t') Pushback(_chPrev);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_Empty());
_stat = STAT_NextArg;
}
break;
}
case STAT_ArgQuote: {
if (ch == '\n' || ch == '\0') {
env.SetError(ERR_SyntaxError, "quoted string doesn't end correctly");
return false;
} else if (ch == '"') {
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgBracePre: {
if (ch == ' ' || ch == '\t') {
// nothing to do
} else if (ch == '{') {
_strArg.clear();
_stat = STAT_ArgBrace;
} else { // include '\0'
const CommandFormat::Arg *pArg = _pElemCmdCur->GetCurrentArg();
if (pArg->IsBrace()) {
env.SetError(ERR_SyntaxError, "braced string is expected");
return false;
}
Pushback(ch);
_pElemCmdCur->GetElemArgs().AddElem(new Elem_Empty());
_stat = STAT_NextArg;
}
break;
}
case STAT_ArgBrace: {
if (ch == '\n' || ch == '\0') {
env.SetError(ERR_SyntaxError, "braced string doesn't end correctly");
return false;
} else if (ch == '}') {
_pElemCmdCur->GetElemArgs().AddElem(new Elem_String(_strArg));
_strArg.clear();
_stat = STAT_NextArg;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgParaPre: {
if (ch == ' ' || ch == '\t') {
// nothing to do
} else {
_pElemArg.reset(new Elem_Text());
Pushback(ch);
_strArg.clear();
_stat = STAT_ArgPara;
}
break;
}
case STAT_ArgPara: {
if (ch == '\n') {
_strArg += ch;
_strAhead.clear();
_stat = STAT_ArgParaNewline;
} else if (ch == '\0') {
Pushback(ch);
if (!_strArg.empty()) {
_pElemArg->GetElemChildren().AddElem(new Elem_String(_strArg));
_strArg.clear();
}
_pElemCmdCur->GetElemArgs().AddElem(_pElemArg->ReduceContent()->Reference());
_stat = STAT_NextArg;
} else if (IsCommandMark(ch)) {
if (!_strArg.empty()) {
_pElemArg->GetElemChildren().AddElem(new Elem_String(_strArg));
_strArg.clear();
}
_cmdName.clear();
_stat = STAT_AcceptCommandInArgPara;
} else {
_strArg += ch;
}
break;
}
case STAT_ArgParaNewline: {
if (ch == '\n') {
// detected a blank line
if (!_strArg.empty()) {
_pElemArg->GetElemChildren().AddElem(new Elem_String(_strArg));
_strArg.clear();
}
_pElemCmdCur->GetElemArgs().AddElem(_pElemArg->ReduceContent()->Reference());
_stat = STAT_NextArg;
} else if (ch == ' ' || ch == '\t') {
_strAhead += ch;
} else { // including '\0'
_strArg += _strAhead;
Pushback(ch);
_stat = STAT_ArgPara;
}
break;
}
case STAT_CommandCustom: {
if (ch == '{') {
_strArg.clear();
_stat = STAT_ArgCustom;
} else {
_strArg.clear();
String rtn = EvaluateCustomCommand(env);
if (env.IsSignalled()) return false;
_strArgs.clear();
_strArg.clear();
_str.clear();
_stat = STAT_String;
foreach (String, p, rtn) {
if (!FeedChar(env, *p)) return false;
}
if (!IsTopLevel()) _stat = STAT_Complete;
Pushback(ch);
}
break;
}
case STAT_ArgCustom: {
if (ch == '}') {
_strArgs.push_back(_strArg);
String rtn = EvaluateCustomCommand(env);
if (env.IsSignalled()) return false;
_strArgs.clear();
_strArg.clear();
_str.clear();
_stat = STAT_String;
foreach (String, p, rtn) {
if (!FeedChar(env, *p)) return false;
}
if (!IsTopLevel()) _stat = STAT_Complete;
} else if (ch == ',') {
_strArgs.push_back(_strArg);
_strArg.clear();
} else if (ch == '\\') {
_stat = STAT_ArgCustom_Backslash;
} else if (IsCommandMark(ch)) {
_cmdName.clear();
_chAhead = ch;
_stat = STAT_AcceptCommandInArgCustom;
} else if (ch == '\0') {
// nothing to do
} else {
_strArg += ch;
}
break;
}
