diff options
author | Filippos Karapetis | 2010-01-23 17:55:54 +0000 |
---|---|---|
committer | Filippos Karapetis | 2010-01-23 17:55:54 +0000 |
commit | df149e1509d972b2d5bfe903531d9670c2fe83c7 (patch) | |
tree | d0012ab2d2fde14a0fbcaf74ff43e3a4e19ec929 /engines/sci/engine/kstring.cpp | |
parent | 4fcc82e7a625a0b27927491ca03c41a9f3dca35b (diff) | |
download | scummvm-rg350-df149e1509d972b2d5bfe903531d9670c2fe83c7.tar.gz scummvm-rg350-df149e1509d972b2d5bfe903531d9670c2fe83c7.tar.bz2 scummvm-rg350-df149e1509d972b2d5bfe903531d9670c2fe83c7.zip |
Separated the parser code
svn-id: r47480
Diffstat (limited to 'engines/sci/engine/kstring.cpp')
-rw-r--r-- | engines/sci/engine/kstring.cpp | 176 |
1 files changed, 0 insertions, 176 deletions
diff --git a/engines/sci/engine/kstring.cpp b/engines/sci/engine/kstring.cpp index 19c3f1540f..2e4ecce802 100644 --- a/engines/sci/engine/kstring.cpp +++ b/engines/sci/engine/kstring.cpp @@ -66,182 +66,6 @@ Common::String kernel_lookup_text(EngineState *s, reg_t address, int index) { } } - -/*************************************************************/ -/* Parser */ -/**********/ - - -reg_t kSaid(EngineState *s, int argc, reg_t *argv) { - reg_t heap_said_block = argv[0]; - byte *said_block; - int new_lastmatch; -#ifdef DEBUG_PARSER - const int debug_parser = 1; -#else - const int debug_parser = 0; -#endif - - if (!heap_said_block.segment) - return NULL_REG; - - said_block = (byte *)s->_segMan->derefBulkPtr(heap_said_block, 0); - - if (!said_block) { - warning("Said on non-string, pointer %04x:%04x", PRINT_REG(heap_said_block)); - return NULL_REG; - } - -#ifdef DEBUG_PARSER - debugC(2, kDebugLevelParser, "Said block:", 0); - s->_voc->decipherSaidBlock(said_block); -#endif - - if (s->parser_event.isNull() || (GET_SEL32V(s->_segMan, s->parser_event, claimed))) { - return NULL_REG; - } - - new_lastmatch = said(s, said_block, debug_parser); - if (new_lastmatch != SAID_NO_MATCH) { /* Build and possibly display a parse tree */ - -#ifdef DEBUG_PARSER - printf("kSaid: Match.\n"); -#endif - - s->r_acc = make_reg(0, 1); - - if (new_lastmatch != SAID_PARTIAL_MATCH) - PUT_SEL32V(s->_segMan, s->parser_event, claimed, 1); - - } else { - return NULL_REG; - } - return s->r_acc; -} - - -reg_t kSetSynonyms(EngineState *s, int argc, reg_t *argv) { - SegManager *segMan = s->_segMan; - reg_t object = argv[0]; - List *list; - Node *node; - int script; - int numSynonyms = 0; - - s->_voc->clearSynonyms(); - - list = s->_segMan->lookupList(GET_SEL32(segMan, object, elements)); - node = s->_segMan->lookupNode(list->first); - - while (node) { - reg_t objpos = node->value; - int seg; - - script = GET_SEL32V(segMan, objpos, number); - seg = s->_segMan->getScriptSegment(script); - - if (seg > 0) - numSynonyms = s->_segMan->getScript(seg)->getSynonymsNr(); - - if (numSynonyms) { - byte *synonyms = s->_segMan->getScript(seg)->getSynonyms(); - - if (synonyms) { - debugC(2, kDebugLevelParser, "Setting %d synonyms for script.%d\n", - numSynonyms, script); - - if (numSynonyms > 16384) { - error("Segtable corruption: script.%03d has %d synonyms", - script, numSynonyms); - /* We used to reset the corrupted value here. I really don't think it's appropriate. - * Lars */ - } else - for (int i = 0; i < numSynonyms; i++) { - synonym_t tmp; - tmp.replaceant = (int16)READ_LE_UINT16(synonyms + i * 4); - tmp.replacement = (int16)READ_LE_UINT16(synonyms + i * 4 + 2); - s->_voc->addSynonym(tmp); - } - } else - warning("Synonyms of script.%03d were requested, but script is not available", script); - - } - - node = s->_segMan->lookupNode(node->succ); - } - - debugC(2, kDebugLevelParser, "A total of %d synonyms are active now.\n", numSynonyms); - - return s->r_acc; -} - - - -reg_t kParse(EngineState *s, int argc, reg_t *argv) { - SegManager *segMan = s->_segMan; - reg_t stringpos = argv[0]; - Common::String string = s->_segMan->getString(stringpos); - char *error; - ResultWordList words; - reg_t event = argv[1]; - Vocabulary *voc = s->_voc; - - s->parser_event = event; - - bool res = voc->tokenizeString(words, string.c_str(), &error); - s->parserIsValid = false; /* not valid */ - - if (res && !words.empty()) { - s->_voc->synonymizeTokens(words); - - s->r_acc = make_reg(0, 1); - -#ifdef DEBUG_PARSER - debugC(2, kDebugLevelParser, "Parsed to the following blocks:\n", 0); - - for (ResultWordList::const_iterator i = words.begin(); i != words.end(); ++i) - debugC(2, kDebugLevelParser, " Type[%04x] Group[%04x]\n", i->_class, i->_group); -#endif - - int syntax_fail = voc->parseGNF(words); - - if (syntax_fail) { - s->r_acc = make_reg(0, 1); - PUT_SEL32V(segMan, event, claimed, 1); - - invoke_selector(INV_SEL(s->_gameObj, syntaxFail, kStopOnInvalidSelector), 2, s->parser_base, stringpos); - /* Issue warning */ - - debugC(2, kDebugLevelParser, "Tree building failed\n"); - - } else { - s->parserIsValid = true; - PUT_SEL32V(segMan, event, claimed, 0); - -#ifdef DEBUG_PARSER - s->_voc->dumpParseTree(); -#endif - } - - } else { - - s->r_acc = make_reg(0, 0); - PUT_SEL32V(segMan, event, claimed, 1); - if (error) { - s->_segMan->strcpy(s->parser_base, error); - debugC(2, kDebugLevelParser, "Word unknown: %s\n", error); - /* Issue warning: */ - - invoke_selector(INV_SEL(s->_gameObj, wordFail, kStopOnInvalidSelector), 2, s->parser_base, stringpos); - free(error); - return make_reg(0, 1); /* Tell them that it dind't work */ - } - } - - return s->r_acc; -} - - reg_t kStrEnd(EngineState *s, int argc, reg_t *argv) { reg_t address = argv[0]; address.offset += s->_segMan->strlen(address); |