aboutsummaryrefslogtreecommitdiff
path: root/engines/sci/engine/sciconsole.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'engines/sci/engine/sciconsole.cpp')
-rw-r--r--engines/sci/engine/sciconsole.cpp854
1 files changed, 0 insertions, 854 deletions
diff --git a/engines/sci/engine/sciconsole.cpp b/engines/sci/engine/sciconsole.cpp
deleted file mode 100644
index 0fee370972..0000000000
--- a/engines/sci/engine/sciconsole.cpp
+++ /dev/null
@@ -1,854 +0,0 @@
-/* ScummVM - Graphic Adventure Engine
- *
- * ScummVM is the legal property of its developers, whose names
- * are too numerous to list here. Please refer to the COPYRIGHT
- * file distributed with this source distribution.
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
-
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
-
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
- *
- * $URL$
- * $Id$
- *
- */
-
-/* Second half of the console implementation: VM dependent stuff */
-/* Remember, it doesn't have to be fast. */
-
-#include "sci/engine/state.h"
-#include "sci/engine/sciconsole.h"
-
-#include "sci/sci.h" // For _console only
-#include "sci/console.h" // For _console only
-
-namespace Sci {
-
-// console commands
-
-static int c_list(EngineState *s, const Common::Array<cmd_param_t> &cmdParams); // lists various types of things
-static int c_set(EngineState *s, const Common::Array<cmd_param_t> &cmdParams); // sets an int variable
-static int c_print(EngineState *s, const Common::Array<cmd_param_t> &cmdParams); // prints a variable
-//static int c_objinfo(EngineState *s, const Common::Array<cmd_param_t> &cmdParams); // shows some info about one class
-//static int c_objmethods(EngineState *s, const Common::Array<cmd_param_t> &cmdParams); // Disassembles all methods of a class
-static int c_hexgrep(EngineState *s, const Common::Array<cmd_param_t> &cmdParams); // Searches a string in one resource or resource class
-
-struct cmd_mm_entry_t {
- const char *name;
- const char *description;
-}; // All later structures must "extend" this
-
-// Simple info page
-struct cmd_page_t : public cmd_mm_entry_t {
-};
-
-struct cmd_command_t : public cmd_mm_entry_t {
- ConCommand command;
- const char *param;
-};
-
-struct cmd_var_t : public cmd_mm_entry_t {
- union {
- int *intp;
- char **charpp;
- reg_t *reg;
- } var;
-};
-
-
-typedef void printfunc_t(cmd_mm_entry_t *data, int full);
-
-struct cmd_mm_struct_t {
- const char *name;
- void *data; // cmd_mm_entry_t
- size_t size_per_entry;
- printfunc_t *print;
- int entries; // Number of used entries
- int allocated; // Number of allocated entries
-};
-
-#define CMD_MM_ENTRIES 3 // command console memory and manual page manager
-#define CMD_MM_DEFAULT_ALLOC 4 // Number of table entries to allocate per default
-
-#define CMD_MM_CMD 0 // Commands
-#define CMD_MM_VAR 1 // Variables
-#define CMD_MM_DOC 2 // Misc. documentation
-
-static const char *cmd_mm_names[CMD_MM_ENTRIES] = {
- "Commands",
- "Variables",
- "Documentation"
-};
-static size_t cmd_mm_sizes_per_entry[CMD_MM_ENTRIES] = {
- sizeof(cmd_command_t),
- sizeof(cmd_var_t),
- sizeof(cmd_page_t)
-};
-
-static void _cmd_print_command(cmd_mm_entry_t *data, int full);
-static void _cmd_print_var(cmd_mm_entry_t *data, int full);
-static void _cmd_print_page(cmd_mm_entry_t *data, int full);
-
-static printfunc_t *cmd_mm_printers[CMD_MM_ENTRIES] = {
- _cmd_print_command,
- _cmd_print_var,
- _cmd_print_page
-};
-
-static cmd_mm_struct_t cmd_mm[CMD_MM_ENTRIES];
-
-static int _cmd_initialized = 0;
-static int _lists_need_sorting = 0;
-
-void _cmd_exit() {
- int t;
-
- for (t = 0; t < CMD_MM_ENTRIES; t++)
- free(cmd_mm[t].data);
-}
-
-static cmd_mm_entry_t *cmd_mm_find(const char *name, int type) {
- int i;
-
- for (i = 0; i < cmd_mm[type].entries; i++) {
- cmd_mm_entry_t *tmp = (cmd_mm_entry_t *)((byte *)cmd_mm[type].data + i * cmd_mm[type].size_per_entry);
- if (!strcmp(tmp->name, name))
- return tmp;
- }
-
- return NULL;
-}
-
-static int _cmd_mm_comp(const void *a, const void *b) {
- return strcmp(((cmd_mm_entry_t *) a)->name, ((cmd_mm_entry_t *) b)->name);
-}
-
-void con_sort_all() {
- int i;
-
- for (i = 0; i < CMD_MM_ENTRIES; i++)
- if (cmd_mm[i].entries && _lists_need_sorting & (1 << i))
- qsort(cmd_mm[i].data, cmd_mm[i].entries, cmd_mm[i].size_per_entry, _cmd_mm_comp);
-
- _lists_need_sorting = 0;
-}
-
-void con_init() {
- if (!_cmd_initialized) {
- int i;
-
- _cmd_initialized = 1;
- for (i = 0; i < CMD_MM_ENTRIES; i++) {
- cmd_mm[i].name = cmd_mm_names[i];
- cmd_mm[i].size_per_entry = cmd_mm_sizes_per_entry[i];
- cmd_mm[i].entries = 0;
- cmd_mm[i].allocated = CMD_MM_DEFAULT_ALLOC;
- cmd_mm[i].data = calloc(cmd_mm[i].allocated, cmd_mm[i].size_per_entry);
- cmd_mm[i].print = cmd_mm_printers[i];
- }
-
- atexit(_cmd_exit);
-
- // Hook up some commands
- con_hook_command(&c_list, "list", "s*", "Lists various things (try 'list')");
- con_hook_command(&c_print, "print", "s", "Prints an int variable");
- con_hook_command(&c_set, "set", "si", "Sets an int variable");
- con_hook_command(&c_hexgrep, "hexgrep", "shh*", "Searches some resources for a\n"
- " particular sequence of bytes, re-\n presented as hexadecimal numbers.\n\n"
- "EXAMPLES:\n hexgrep script e8 03 c8 00\n hexgrep pic.042 fe");
-
- // These were in sci.cpp
- /*
- con_hook_int(&(gfx_options.buffer_pics_nr), "buffer_pics_nr",
- "Number of pics to buffer in LRU storage\n");
- con_hook_int(&(gfx_options.pic0_dither_mode), "pic0_dither_mode",
- "Mode to use for pic0 dithering\n");
- con_hook_int(&(gfx_options.pic0_dither_pattern), "pic0_dither_pattern",
- "Pattern to use for pic0 dithering\n");
- con_hook_int(&(gfx_options.pic0_unscaled), "pic0_unscaled",
- "Whether pic0 should be drawn unscaled\n");
- con_hook_int(&(gfx_options.dirty_frames), "dirty_frames",
- "Dirty frames management\n");
- */
- }
-}
-
-static inline int clone_is_used(CloneTable *t, int idx) {
- return t->isValidEntry(idx);
-}
-
-/**
- * Address parameters may be passed in one of three forms:
- * - ssss:oooo -- where 'ssss' denotes a segment and 'oooo' an offset.
- * Example: "a:c5" would address something in segment 0xa at offset 0xc5.
- * - &scr:oooo -- where 'scr' is a script number and oooo an offset within that script; will
- * fail if the script is not currently loaded
- * - $REG -- where 'REG' is one of 'PC', 'ACC', 'PREV' or 'OBJ': References the address
- * indicated by the register of this name.
- * - $REG+n (or -n) -- Like $REG, but modifies the offset part by a specific amount (which
- * is specified in hexadecimal).
- * - ?obj -- Looks up an object with the specified name, uses its address. This will abort if
- * the object name is ambiguous; in that case, a list of addresses and indices is provided.
- * ?obj.idx may be used to disambiguate 'obj' by the index 'idx'.
-**/
-int parse_reg_t(EngineState *s, const char *str, reg_t *dest) { // Returns 0 on success
- int rel_offsetting = 0;
- const char *offsetting = NULL;
- // Non-NULL: Parse end of string for relative offsets
- char *endptr;
-
- if (!s) {
- sciprintf("Addresses can only be parsed if a global state is present");
- return 1; // Requires a valid state
- }
-
- if (*str == '$') { // Register
- rel_offsetting = 1;
-
- if (!scumm_strnicmp(str + 1, "PC", 2)) {
- *dest = s->_executionStack.back().addr.pc;
- offsetting = str + 3;
- } else if (!scumm_strnicmp(str + 1, "P", 1)) {
- *dest = s->_executionStack.back().addr.pc;
- offsetting = str + 2;
- } else if (!scumm_strnicmp(str + 1, "PREV", 4)) {
- *dest = s->r_prev;
- offsetting = str + 5;
- } else if (!scumm_strnicmp(str + 1, "ACC", 3)) {
- *dest = s->r_acc;
- offsetting = str + 4;
- } else if (!scumm_strnicmp(str + 1, "A", 1)) {
- *dest = s->r_acc;
- offsetting = str + 2;
- } else if (!scumm_strnicmp(str + 1, "OBJ", 3)) {
- *dest = s->_executionStack.back().objp;
- offsetting = str + 4;
- } else if (!scumm_strnicmp(str + 1, "O", 1)) {
- *dest = s->_executionStack.back().objp;
- offsetting = str + 2;
- } else
- return 1; // No matching register
-
- if (!*offsetting)
- offsetting = NULL;
- else if (*offsetting != '+' && *offsetting != '-')
- return 1;
- } else if (*str == '&') {
- int script_nr;
- // Look up by script ID
- char *colon = (char *)strchr(str, ':');
-
- if (!colon)
- return 1;
- *colon = 0;
- offsetting = colon + 1;
-
- script_nr = strtol(str + 1, &endptr, 10);
-
- if (*endptr)
- return 1;
-
- dest->segment = s->seg_manager->segGet(script_nr);
-
- if (!dest->segment) {
- return 1;
- }
- } else if (*str == '?') {
- int index = -1;
- int times_found = 0;
- char *tmp;
- const char *str_objname;
- char *str_suffix;
- char suffchar = 0;
- uint i;
- // Parse obj by name
-
- tmp = (char *)strchr(str, '+');
- str_suffix = (char *)strchr(str, '-');
- if (tmp < str_suffix)
- str_suffix = tmp;
- if (str_suffix) {
- suffchar = (*str_suffix);
- *str_suffix = 0;
- }
-
- tmp = (char *)strchr(str, '.');
-
- if (tmp) {
- *tmp = 0;
- index = strtol(tmp + 1, &endptr, 16);
- if (*endptr)
- return -1;
- }
-
- str_objname = str + 1;
-
- // Now all values are available; iterate over all objects.
- for (i = 0; i < s->seg_manager->_heap.size(); i++) {
- MemObject *mobj = s->seg_manager->_heap[i];
- int idx = 0;
- int max_index = 0;
-
- if (mobj) {
- if (mobj->getType() == MEM_OBJ_SCRIPT)
- max_index = (*(Script *)mobj)._objects.size();
- else if (mobj->getType() == MEM_OBJ_CLONES)
- max_index = (*(CloneTable *)mobj)._table.size();
- }
-
- while (idx < max_index) {
- int valid = 1;
- Object *obj = NULL;
- reg_t objpos;
- objpos.offset = 0;
- objpos.segment = i;
-
- if (mobj->getType() == MEM_OBJ_SCRIPT) {
- obj = &(*(Script *)mobj)._objects[idx];
- objpos.offset = obj->pos.offset;
- } else if (mobj->getType() == MEM_OBJ_CLONES) {
- obj = &((*(CloneTable *)mobj)._table[idx]);
- objpos.offset = idx;
- valid = clone_is_used((CloneTable *)mobj, idx);
- }
-
- if (valid) {
- const char *objname = obj_get_name(s, objpos);
- if (!strcmp(objname, str_objname)) {
- // Found a match!
- if ((index < 0) && (times_found > 0)) {
- if (times_found == 1) {
- // First time we realized the ambiguity
- sciprintf("Ambiguous:\n");
- sciprintf(" %3x: [%04x:%04x] %s\n", 0, PRINT_REG(*dest), str_objname);
- }
- sciprintf(" %3x: [%04x:%04x] %s\n", times_found, PRINT_REG(objpos), str_objname);
- }
- if (index < 0 || times_found == index)
- *dest = objpos;
- ++times_found;
- }
- }
- ++idx;
- }
-
- }
-
- if (!times_found)
- return 1;
-
- if (times_found > 1 && index < 0) {
- sciprintf("Ambiguous: Aborting.\n");
- return 1; // Ambiguous
- }
-
- if (times_found <= index)
- return 1; // Not found
-
- offsetting = str_suffix;
- if (offsetting)
- *str_suffix = suffchar;
- rel_offsetting = 1;
- } else {
- char *colon = (char *)strchr(str, ':');
-
- if (!colon) {
- offsetting = str;
- dest->segment = 0;
- } else {
- *colon = 0;
- offsetting = colon + 1;
-
- dest->segment = strtol(str, &endptr, 16);
- if (*endptr)
- return 1;
- }
- }
- if (offsetting) {
- int val = strtol(offsetting, &endptr, 16);
-
- if (rel_offsetting)
- dest->offset += val;
- else
- dest->offset = val;
-
- if (*endptr)
- return 1;
- }
-
- return 0;
-}
-
-void con_parse(EngineState *s, const char *command) {
- char *cmd = (command && command[0]) ? (char *)strdup(command) : (char *)strdup(" ");
- char *_cmd = cmd;
- int pos = 0;
-
- if (!_cmd_initialized)
- con_init();
-
- bool done = false; // are we done yet?
- while (!done) {
- cmd_command_t *command_todo;
- bool quote = false; // quoting?
- bool cdone = false; // Done with the current command?
- bool onvar = true; // currently working on a variable?
- cdone = 0;
- pos = 0;
-
- Common::Array<cmd_param_t> cmdParams;
-
- while (*cmd == ' ')
- cmd++;
-
- while (!cdone) {
- switch (cmd[pos]) {
- case 0:
- cdone = done = true;
- case ';':
- if (!quote)
- cdone = true;
- case ' ':
- if (!quote) {
- cmd[pos] = 0;
- onvar = false;
- }
- break;
- case '\\': // don't check next char for special meaning
- memmove(cmd + pos, cmd + pos + 1, strlen(cmd + pos) - 1);
- break;
- case '"':
- quote = !quote;
- memmove(cmd + pos, cmd + pos + 1, strlen(cmd + pos));
- pos--;
- break;
- default:
- if (!onvar) {
- onvar = true;
- cmd_param_t tmp;
- tmp.str = cmd + pos;
- cmdParams.push_back(tmp);
- }
- break;
- }
- pos++;
- }
-
- if (quote)
- sciprintf("unbalanced quotes\n");
- else if (strcmp(cmd, "") != 0) {
- command_todo = (cmd_command_t *) cmd_mm_find(cmd, CMD_MM_CMD);
- if (!command_todo)
- sciprintf("%s: not found\n", cmd);
- else {
- uint minparams;
- int need_state = 0;
-
- const char *paramt = command_todo->param; // parameter types
- if (command_todo->param[0] == '!') {
- need_state = 1;
- paramt++;
- }
-
- minparams = strlen(paramt);
-
- if ((paramt[0] != 0) && (paramt[strlen(paramt) - 1] == '*'))
- minparams -= 2;
-
- if (cmdParams.size() < minparams)
- sciprintf("%s: needs more than %d parameters\n", cmd, cmdParams.size());
-
- else if ((cmdParams.size() > strlen(paramt)) && ((strlen(paramt) == 0) || paramt[strlen(paramt) - 1] != '*'))
- sciprintf("%s: too many parameters", cmd);
- else {
- int do_execute = !need_state || s; // /me wants an implication arrow
- char paramtype;
- int paramtypepos = 0;
- char *endptr;
-
- for (uint i = 0; i < cmdParams.size(); i++) {
- paramtype = paramt[paramtypepos];
-
- if ((paramt[paramtypepos + 1]) && (paramt[paramtypepos + 1] != '*'))
- paramtypepos++;
- // seek next param type unless end of string or '* '
-
- switch (paramtype) {
- // Now turn the parameters into variables of the appropriate types,
- // unless they're strings, and store them into the cmdParams array
-
- case 'a': {
- const char *oldname = cmdParams[i].str;
- if (parse_reg_t(s, oldname, &(cmdParams[i].reg))) {
- sciprintf("%s: '%s' is not an address or object\n", cmd, oldname);
- do_execute = 0;
- }
- break;
- }
-
- case 'i': {
- const char *orgstr = cmdParams[i].str;
-
- cmdParams[i].val = strtol(orgstr, &endptr, 0);
- if (*endptr != '\0') {
- do_execute = 0;
- sciprintf("%s: '%s' is not an int\n", cmd, orgstr);
- }
- }
- break;
-
- case 'h': {
- const char *orgstr = cmdParams[i].str;
-
- cmdParams[i].val = strtol(orgstr, &endptr, 16);
-
- if (*endptr != '\0') {
- do_execute = 0;
- sciprintf("%s: '%s' is not a hex number\n", cmd, orgstr);
- }
-
- cmdParams[i].val &= 0xff; // Clip hex numbers to 0x00 ... 0xff
- }
- break;
-
- case 's':
- break;
-
- default:
- warning("Internal error: Heap corruption or prior assertion failed: "
- "Unknown parameter type '%c' for function", paramtype);
-
- }
- }
-
- if (do_execute) {
- command_todo->command(s, cmdParams);
- } else
- fprintf(stderr, "Skipping command...\n");
- }
- }
- }
- cmd += pos;
- }
-
- free(_cmd);
-}
-
-/* (unused)
-static cmd_mm_entry_t *con_iterate_entry(int ID, int *counter) {
- byte *retval;
- con_init();
-
- if (*counter >= cmd_mm[ID].entries)
- return 0;
- retval = cmd_mm[ID].data;
- retval += (*counter) * cmd_mm[ID].size_per_entry;
-
- (*counter)++;
-
- return (cmd_mm_entry_t *)retval;
-}*/
-
-static cmd_mm_entry_t *con_alloc_page_entry(int ID) {
- int entry;
-
- con_init();
-
- if (cmd_mm[ID].entries >= cmd_mm[ID].allocated) {
- int nextsize = cmd_mm[ID].allocated;
- if (nextsize >= 64)
- nextsize += 16;
- else
- nextsize <<= 1;
-
- cmd_mm[ID].data = realloc(cmd_mm[ID].data, nextsize * cmd_mm[ID].size_per_entry);
- cmd_mm[ID].allocated = nextsize;
- }
-
- _lists_need_sorting |= (1 << ID);
-
- entry = cmd_mm[ID].entries++;
- return (cmd_mm_entry_t *)(((byte *)cmd_mm[ID].data) + entry * cmd_mm[ID].size_per_entry);
-}
-
-int con_hook_command(ConCommand command, const char *name, const char *param, const char *description) {
- cmd_command_t *cmd = NULL;
- unsigned int i;
-
- if (NULL == name) {
- sciprintf("console.c: con_hook_command(): NULL passed for name\n");
- return -1;
- }
-
- if (command == NULL)
- return 1;
-
- if (param == NULL)
- param = "";
-
- if (description == NULL)
- description = "";
-
- i = 0;
- while (param[i] != 0) {
- switch (param[i]) {
- case '*':
- if (param[i + 1] != 0)
- return 1;
- if (i == 0)
- return 1;
- case 'h':
- case '!':
- case 'i':
- case 'a':
- case 's':
- case 'r':
- break;
- default:
- return 1;
- }
- i++;
- }
- cmd = (cmd_command_t *)con_alloc_page_entry(CMD_MM_CMD);
-
- cmd->command = command;
- cmd->name = name;
- cmd->param = param;
- cmd->description = description;
-
- ((SciEngine *)g_engine)->_console->con_hook_command(command, name, param, description);
-
- return 0;
-}
-
-int con_hook_int(int *pointer, const char *name, const char *description) {
- cmd_var_t *var;
-
- if (pointer == NULL)
- return 1;
-
- if (description == NULL)
- description = "";
-
- var = (cmd_var_t *) con_alloc_page_entry(CMD_MM_VAR);
-
- var->var.intp = pointer;
- var->name = name;
- var->description = description;
-
- return 0;
-}
-
-// Console commands and support functions
-
-static ResourceType parseResourceType(const char *resid) {
- // Gets the resource number of a resource string, or returns -1
- ResourceType res = kResourceTypeInvalid;
-
- for (int i = 0; i < kResourceTypeInvalid; i++)
- if (strcmp(getResourceTypeName((ResourceType)i), resid) == 0)
- res = (ResourceType)i;
-
- return res;
-}
-
-static void _cmd_print_command(cmd_mm_entry_t *data, int full) {
- const char *paramseeker = ((cmd_command_t *)data)->param;
-
- if (full) {
- sciprintf("SYNOPSIS\n\n %s (%s) ", data->name, paramseeker);
-
- while (*paramseeker) {
- switch (*paramseeker) {
- case '!':
- break;
- case 'i':
- sciprintf(" (int)");
- break;
- case 'a':
- sciprintf(" (addr)");
- break;
- case 's':
- sciprintf(" (string)");
- break;
- case 'h':
- sciprintf(" (hexbyte)");
- break;
- case '*':
- sciprintf("*");
- break;
- default:
- sciprintf(" (Unknown(%c))", *paramseeker);
- }
- paramseeker++;
- }
-
- sciprintf("\n\nDESCRIPTION\n\n %s", data->description);
- } else
- sciprintf(" %s", data->name);
-}
-
-static void _cmd_print_var(cmd_mm_entry_t *data, int full) {
- cmd_var_t *var = (cmd_var_t *) data;
- if (full)
- sciprintf("VALUE\n\n");
- sciprintf(" %s = %d\n", var->name, *(var->var.intp));
-
- if (full)
- sciprintf("\n\nDESCRIPTION\n\n %s", data->description);
-}
-
-static void _cmd_print_page(cmd_mm_entry_t *data, int full) {
- if (full)
- sciprintf("\n\nDESCRIPTION\n\n %s\n", data->description);
- else
- sciprintf("%s\n", data->name);
-}
-
-static int c_list(EngineState *s, const Common::Array<cmd_param_t> &cmdParams) {
- if (_lists_need_sorting)
- con_sort_all();
-
- if (cmdParams.size() == 0) {
- sciprintf("usage: list [type]\nwhere type is one of the following:\n"
- "cmds - lists all commands\n"
- "vars - lists all variables\n"
- "docs - lists all misc. documentation\n"
- "\n"
- "[resource] - lists all [resource]s");
- } else if (cmdParams.size() == 1) {
- const char *mm_subsects[3] = {"cmds", "vars", "docs"};
- int mm_found = -1;
- int i;
-
- for (i = 0; i < 3; i++)
- if (mm_subsects[i] && !strcmp(mm_subsects[i], cmdParams[0].str))
- mm_found = i;
-
- if (mm_found >= 0)
- for (i = 0; i < cmd_mm[mm_found].entries; i++)
- cmd_mm[mm_found].print((cmd_mm_entry_t *)(((byte *)cmd_mm[mm_found].data) + i * cmd_mm[mm_found].size_per_entry), 0);
- else {
- if (!s) {
- sciprintf("You need a state to do that!\n");
- return 1;
- } else {
- ResourceType res = parseResourceType(cmdParams[0].str);
- if (res == kResourceTypeInvalid)
- sciprintf("Unknown resource type: '%s'\n", cmdParams[0].str);
- else {
- for (i = 0; i < sci_max_resource_nr[s->resmgr->_sciVersion]; i++)
- if (s->resmgr->testResource(res, i))
- sciprintf("%s.%03d\n", getResourceTypeName((ResourceType)res), i);
- }
- }
- }
- } else
- sciprintf("list can only be used with one argument");
- return 0;
-}
-
-static int c_set(EngineState *s, const Common::Array<cmd_param_t> &cmdParams) {
- cmd_var_t *var = (cmd_var_t *)cmd_mm_find(cmdParams[0].str, CMD_MM_VAR);
-
- if (var)
- *(var->var.intp) = cmdParams[1].val;
-
- return 0;
-}
-
-static int c_print(EngineState *s, const Common::Array<cmd_param_t> &cmdParams) {
- cmd_var_t *var = (cmd_var_t *)cmd_mm_find(cmdParams[0].str, CMD_MM_VAR);
-
- if (var)
- sciprintf("%d", *(var->var.intp));
- else
- sciprintf("Not defined.");
-
- return 0;
-}
-
-static int c_hexgrep(EngineState *s, const Common::Array<cmd_param_t> &cmdParams) {
- int i, seeklen, resnr, resmax;
- unsigned char *seekstr = NULL;
- Resource *script = NULL;
- char *dot = (char *)strchr(cmdParams[0].str, '.');
- ResourceType restype;
-
- if (NULL == s) {
- fprintf(stderr, "console.c: c_hexgrep(): NULL passed for s\r\n");
- return(-1);
- }
-
- seeklen = cmdParams.size() - 1;
- seekstr = (unsigned char *)malloc(seeklen);
-
- if (NULL == seekstr) {
- fprintf(stderr, "console.c: c_hexgrep(): malloc failed for seekstr\r\n");
- return(-1);
- }
-
- for (i = 0; i < seeklen; i++)
- seekstr[i] = (byte)cmdParams[i + 1].val;
-
- if (dot) {
- *dot = 0;
- resmax = resnr = atoi(dot + 1);
- } else {
- resnr = 0;
- resmax = 999;
- }
-
- restype = parseResourceType(cmdParams[0].str);
- if (restype == kResourceTypeInvalid) {
- sciprintf("Unknown resource type \"%s\"\n", cmdParams[0].str);
- free(seekstr);
- return 1;
- }
-
- for (; resnr <= resmax; resnr++)
- if ((script = s->resmgr->findResource(restype, resnr, 0))) {
- unsigned int seeker = 0, seekerold = 0;
- int comppos = 0;
- int output_script_name = 0;
-
- while (seeker < script->size) {
- if (script->data[seeker] == seekstr[comppos]) {
- if (comppos == 0)
- seekerold = seeker;
-
- comppos++;
-
- if (comppos == seeklen) {
- comppos = 0;
- seeker = seekerold + 1;
-
- if (!output_script_name) {
- sciprintf("\nIn %s.%03d:\n", getResourceTypeName((ResourceType)restype), resnr);
- output_script_name = 1;
- }
- sciprintf(" 0x%04x\n", seekerold);
- }
- } else
- comppos = 0;
-
- seeker++;
- }
- }
-
- free(seekstr);
-
- return 0;
-}
-
-} // End of namespace Sci
generated by cgit v1.2.3 (git 2.25.1) at 2024-08-22 10:54:21 +0000