void Feature::resetFeatureScript(uint16 enabled, uint16 scrbId) {
if (!scrbId)
scrbId = _scrbId;
if (scrbId != _scrbId || _needsReset) {
if (_needsReset)
_data.bounds = Common::Rect();
_scrbId = scrbId;
_view->getnthScriptSetGroup(_data.scrbIndex, _data.compoundSHAPIndex, scrbId);
}
if (_data.scrbIndex == 0xFFFF) {
_data.enabled = 0;
_data.bitmapIds[0] = 0;
_data.scrbIndex = 0;
_data.compoundSHAPIndex = 0;
resetFrame();
return;
}
resetScript();
resetFrame();
_nextTime = 0; // New feature code uses _view->_lastIdleTime, but should be equivalent.
_data.enabled = enabled;
_dirty = 1;
finishResetFeatureScript();
_needsReset = 0;
if (_region) {
// TODO: mark _region as dirty
} else {
// TODO: mark _data.bounds as dirty
}
}
bool ScEngine::resetObject(BaseObject *Object) {
// terminate all scripts waiting for this object
for (uint32 i = 0; i < _scripts.size(); i++) {
if (_scripts[i]->_state == SCRIPT_WAITING && _scripts[i]->_waitObject == Object) {
if (!_gameRef->_compatKillMethodThreads) {
resetScript(_scripts[i]);
}
bool isThread = _scripts[i]->_methodThread || _scripts[i]->_thread;
_scripts[i]->finish(!isThread); // 1.9b1 - top-level script kills its threads as well
}
}
return STATUS_OK;
}
// <<<<<<<<<<-------------- TODO: Check this out...dose some intresting things
static void
skip_percent_comment(void)
{
#ifndef TTYEDEN
Script *script;
extern Script *st_script, *dd_script;
extern int run(short, void *, char *);
extern void dd_lex(int), st_lex(int);
#ifdef WANT_SASAMI
extern Script *sa_script;
extern void sa_input(char);
#endif /* WANT_SASAMI */
#ifdef DISTRIB
extern void lsd_lex(int);
#endif /* DISTRIB */
#endif /* not TTYEDEN */
/* skip_percent_comment is called when we are starting a new line
and nextc=='%' [Ash] */
char *s;
int start = yyleng;
safe_input(); /* read in the initial '%' */
for (;;) {
s = yytext + start;
/* safe_input until we have an end-of-line or EOF */
if ((nextc != '\n') && (nextc != '\r') && (nextc != 0)) {
safe_input();
continue;
} else {
/* now we've found the end of the line, terminate it correctly */
end_text1();
}
if ((nextc == '\n') || (nextc == '\r')) {
if (notationSwitch(s)) {
char execstr[100];
int c;
changeNotation(NEWOTHER);
/* Notation now changed to a non-default one. Slurp in
the rest of the text until (just before) the next
change of notation and parse it. [Ash] */
for (nextc = peek();
(nextc != '\0') && (nextc != EOF);
nextc = peek()) {
if (Inp_Dev->newline && nextc == '%') {
/* Trying to fix sqleddi "prepare to eat and then eat"
bug [Ash, 23rd October 2002] */
/*
strcpy(execstr, "notationChar('\\\n');");
run(STRING_DEV, execstr, 0);
*/
nextc = '\n';
return;
} else if (Inp_Dev->newline && nextc == '#') {
c = keyin();
if (nextc == '#') {
/* "##" comment input: ignore to end of line */
do {c = keyin();} while (!Inp_Dev->newline);
} else {
/* input line starts with #, but second character is
not #. Pass the first # to the Eden parser, and
parse the second character the next time round
the loop. */
strcpy(execstr, "notationChar('#');");
run(STRING_DEV, execstr, 0);
}
} else {
/* Something in the sqleddi model causes C's idea
about the status of the current notation to get
confused. As this piece of code is executing, we
must be in a NEWOTHER notation, so set it
explicitly. [Ash, 24th October 2002] */
#ifdef TTYEDEN
changeNotation(NEWOTHER);
#endif
c = keyin();
/* fprintf(stderr, "KEYIN %d\n", c); */
if (c == '\'')
strcpy(execstr, "notationChar('\\\'');");
else if (c == '\\')
strcpy(execstr, "notationChar('\\\\');");
else
sprintf(execstr, "notationChar('%c');", c);
run(STRING_DEV, execstr, 0);
}
} /* end for */
#ifdef TTYEDEN
/* ttyeden does not currently keep track of the current
notation properly. It should still be %eddi after an
included file has changed to that notation and not back
again, but this would require some work on the lexer.
At least we can ensure that the prompt is correct here.
[Ash] */
/*
if ((nextc == EOF) || (nextc == '\0')) {
fprintf(stderr, "EOF FUDGE\n");
notationSwitch("%eden");
currentNotation = EDEN;
}
*/
currentNotation = EDEN;
/* peek() does not seem to manage to successfully push
back the EOF character in TTYEDEN and so keyin() would
cause another character to be read. Stop immediately
instead. [Ash] */
return;
#else
keyin(); /* read the null character */
/* treat end-of-file as end-of-line */
/* the code feeding the parser with \n below is a
reinterpretation of something Chris Brown put in, but
it doesn't seem to be required any more */
/*
* strcpy(execstr, "notationChar('\\n');");
* run(STRING_DEV, execstr, 0);
*/
setprompt();
#endif
} /* end if notationSwitch(s) */
#ifndef TTYEDEN
/* DoNaLD -------------------------------------------- */
/* %donald0 is an alternative alias for %donald, so that we
can replace %donald with a new translator but still
access this builtin as %donald0 */
else if ((strncmp(s, "%donald0", 8) == 0) ||
(strncmp(s, "%donald", 7) == 0)) {
changeNotation(DONALD);
dd_script = script = newScript();
for (nextc = peek(); nextc != '\0'; nextc = peek()) {
if (Inp_Dev->newline && (nextc == '%' || nextc == '>'
|| nextc == '<')) {
if (nextc == '>' || nextc == '<') {
input();
getAgentName();
}
else {
nextc = '\n';
if (script->text[0] != '\0') {
appAgentName--;
/* printf("from donald 1"); */
pushEntryStack(DONALD);
run(STRING_DEV, script->text, 0);
popEntryStack();
appAgentName++;
}
deleteScript(script);
return;
} /* end if (nextc == '>' || nextc == '<') */
} /* end if (Inp_Dev->newline...) */
else {
dd_lex(keyin());
if (script->ready) {
if (script->text[0] != '\0') {
appAgentName--;
/* printf("from donald 2"); */
pushEntryStack(DONALD);
run(STRING_DEV, script->text, 0);
dd_script = script;
popEntryStack();
/* printf("from donald 3"); */
appAgentName++;
}
resetScript(script);
} /* end if (script->ready) */
} /* end if (Inp_Dev->newline...) (two versions) */
} /* end for (nextc = peek()...) */
keyin(); /* read the null character */
dd_lex('\n'); /* treat end-of-file as end-of-line */
if (script->text[0] != '\0') {
appAgentName--;
pushEntryStack(DONALD);
run(STRING_DEV, script->text, 0);
popEntryStack();
/* printf("from donald 4"); */
appAgentName++;
}
deleteScript(script);
} /* end if (strncmp(s, "%donald", 7) == 0) */
/* SCOUT -------------------------------------------- */
else if (strncmp(s, "%scout", 6) == 0) { /* is SCOUT */
scoutScreenInitOpen();
changeNotation(SCOUT);
st_script = script = newScript();
for (nextc = peek(); nextc != '\0'; nextc = peek()) {
if (Inp_Dev->newline && (nextc == '%' || nextc == '>'
|| nextc == '<')) {
if (nextc == '>' || nextc == '<') {
input();
getAgentName();
} else {
nextc = '\n';
if (script->text[0] != '\0') {
appAgentName--;
/* printf("from scout 1"); */
pushEntryStack(SCOUT);
run(STRING_DEV, script->text, 0);
popEntryStack();
appAgentName++;
}
deleteScript(script);
return;
}
} /* end if (Inp_Dev->newline...) */
else {
st_lex(keyin());
if (script->ready) {
if (script->text[0] != '\0') {
appAgentName--;
/* printf("from scout 2 %s\n", script->text); */
pushEntryStack(SCOUT);
run(STRING_DEV, script->text, 0);
st_script = script;
popEntryStack();
appAgentName++;
}
resetScript(script);
}
}
} /* end for (nextc = peek();... */
keyin(); /* read the null character */
st_lex('\n'); /* treat end-of-file as end-of-line */
if (script->text[0] != '\0') {
appAgentName--;
pushEntryStack(SCOUT);
run(STRING_DEV, script->text, 0);
popEntryStack();
appAgentName++;
}
deleteScript(script);
} /* end if (strncmp(s, "%scout", 6)... */
#ifdef WANT_SASAMI
/* Sasami -------------------------------------------- */
else if (strncmp(s, "%sasami", 7) == 0) {
changeNotation(SASAMI);
sa_script = script = newScript();
for (nextc = peek(); nextc != '\0'; nextc = peek()) {
if (Inp_Dev->newline && (nextc == '%' || nextc == '>' ||
nextc == '<')) {
/* This is a %, > or < statement and shouldn't be
passed to Sasami */
if (nextc == '>' || nextc == '<') {
input();
getAgentName();
} else {
nextc = '\n';
if (script->text[0] != '\0') {
appAgentName--;
/* printf("from sasami 1"); */
pushEntryStack(SASAMI);
run(STRING_DEV, script->text, 0);
popEntryStack();
appAgentName++;
}
deleteScript(script);
return;
}
} else {
/* This must be something worth sending to Sasami */
sa_input(keyin());
/* Now run the EDEN script that Sasami's produced (if
there is one) */
if (script->ready) {
if (script->text[0] != '\0') {
appAgentName--;
/* printf("from sasami 2"); */
pushEntryStack(SASAMI);
run(STRING_DEV, script->text, 0);
sa_script = script;
popEntryStack();
/* printf("from sasami 3"); */
appAgentName++;
}
resetScript(script);
}
}
}
/* OK - finished with the input, so send an EOL to make
sure that the parser runs the last input line, and
exit. */
keyin(); /* read the null character */
sa_input('\n'); /* treat end-of-file as end-of-line */
if (script->text[0] != '\0') {
appAgentName--;
pushEntryStack(SASAMI);
run(STRING_DEV, script->text, 0);
popEntryStack();
/* printf("from sasami 4"); */
appAgentName++;
}
deleteScript(script);
} /* end if (strncmp(s, "%sasami", 7) == 0) */
#endif /* WANT_SASAMI */
#ifdef DISTRIB
/* LSD -------------------------------------------- */
else if (strncmp(s, "%lsd", 4) == 0) {
changeNotation(LSD);
for (nextc = peek(); nextc != '\0'; nextc = peek()) {
if (Inp_Dev->newline && (nextc == '%' || nextc == '>'
|| nextc == '<')) {
if (nextc == '>' || nextc == '<') {
input();
getAgentName();
} else {
nextc = '\n';
return;
}
} else {
lsd_lex(keyin());
}
}
keyin(); /* read the null character */
lsd_lex('\n'); /* treat end-of-file as end-of-line */
} /* end if (strncmp(s, "%lsd", 4)... */
#endif /* DISTRIB */
/* This push and pop facility ("%+eden") appears be used
only in Donald [Ash] */
/* Push entry -------------------------------------------- */
else if (s[1] == '+') {
/* appAgentName=0; */
if ((strncmp(s + 2, "donald0", 7) == 0) ||
(strncmp(s + 2, "donald", 6) == 0)) { /* is DoNaLD */
pushEntryStack(DONALD);
} else if (strncmp(s + 2, "scout", 5) == 0) { /* is SCOUT */
pushEntryStack(SCOUT);
} else if (strncmp(s + 2, "eden", 4) == 0) { /* is EDEN */
pushEntryStack(EDEN);
#ifdef WANT_SASAMI
} else if (strncmp(s + 2, "sasami", 6) == 0) { /* is Sasami */
pushEntryStack(SASAMI);
#endif /* WANT_SASAMI */
}
} /* end if (s[1] == '+') */
/* Pop entry -------------------------------------------- */
else if (s[1] == '-') {
if ((strncmp(s + 2, "donald0", 7) == 0)
|| strncmp(s + 2, "donald", 6) == 0
|| strncmp(s + 2, "scout", 5) == 0 /* is SCOUT */
#ifdef WANT_SASAMI
|| strncmp(s + 2, "sasami", 6) == 0 /* is Sasami */
#endif
|| strncmp(s + 2, "eden", 4) == 0) { /* is EDEN */
popEntryStack();
/* appAgentName=1; */
}
} /* end if (s[1] == '-') */
#endif /* not TTYEDEN */
/* Eden -------------------------------------------- */
else {
changeNotation(EDEN);
}
return;
} else if (nextc == 0) {
/* EOF */
#ifdef TTYEDEN
/* Dummy if start to make the else's below work... [Ash] */
if (0) {}
#else
if ((strncmp(s, "%donald0", 8) == 0) ||
(strncmp(s, "%donald", 7) == 0)) { /* is DoNaLD */
changeNotation(DONALD);
}
else if (strncmp(s, "%scout", 6) == 0) { /* is SCOUT */
changeNotation(SCOUT);
}
#ifdef WANT_SASAMI
else if (strncmp(s, "%sasami", 7) == 0) { /* is Sasami */
changeNotation(SASAMI);
}
#endif /* WANT_SASAMI */
#endif /* not TTYEDEN */
else if (notationSwitch(s)) {
changeNotation(NEWOTHER);
} else { /* is EDEN */
changeNotation(EDEN);
}
return;
} /* end if nextc==0 */
} /* end for ;; */
} /* end skip_percent_comment */
