Removed files which are not part of the SCI engine (will be moved to /tools, together with the others)

svn-id: r38468

1 files changed, 0 insertions, 987 deletions

diff --git a/engines/sci/tools/scidisasm.cpp b/engines/sci/tools/scidisasm.cpp
deleted file mode 100644
index 39ea7f9c41..0000000000
--- a/engines/sci/tools/scidisasm.cpp
+++ /dev/null
@@ -1,987 +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$
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#  include <config.h>
-#endif /* HAVE_CONFIG_H */
-
-#define MALLOC_DEBUG
-
-#include <sciresource.h>
-#include <engine.h>
-#include <console.h>
-#include <versions.h>
-
-#ifdef HAVE_GETOPT_H
-#include <getopt.h>
-#endif /* HAVE_GETOPT_H */
-
-static int hexdump = 0;
-static int opcode_size = 0;
-static int verbose = 0;
-
-static resource_mgr_t *resmgr;
-
-#ifdef HAVE_GETOPT_LONG
-static struct option options[] = {
-	{"version", no_argument, 0, 256},
-	{"help", no_argument, 0, 'h'},
-	{"hexdump", no_argument, &hexdump, 1},
-	{"opcode-size", no_argument, &opcode_size, 1},
-	{"verbose", no_argument, &verbose, 1},
-	{"gamedir", required_argument, 0, 'd'},
-	{0, 0, 0, 0}
-};
-#endif /* HAVE_GETOPT_LONG */
-
-#define SCI_ASSUME_VERSION SCI_VERSION_FTU_NEW_SCRIPT_HEADER
-
-typedef struct name_s {
-	int offset;
-	char *name;
-	int class_no;
-	struct name_s *next;
-} name_t;
-
-typedef struct area_s {
-	int start_offset;
-	int end_offset;
-	void *data;
-	struct area_s *next;
-} area_t;
-
-enum area_type { area_said, area_string, area_object, area_last };
-
-typedef struct script_state_s {
-	int script_no;
-	name_t *names;
-	area_t *areas [area_last];
-
-	struct script_state_s *next;
-} script_state_t;
-
-typedef struct disasm_state_s {
-	char **snames;
-	int selector_count;
-	opcode *opcodes;
-	int kernel_names_nr;
-	char **kernel_names;
-	word_t **words;
-	int word_count;
-
-	char **class_names;
-	int *class_selector_count;
-	short **class_selectors;
-	int class_count;
-	int old_header;
-
-	script_state_t *scripts;
-} disasm_state_t;
-
-void
-disassemble_script(disasm_state_t *d, int res_no, int pass_no);
-
-script_state_t *
-find_script_state(disasm_state_t *d, int script_no);
-
-void
-script_free_names(script_state_t *s);
-
-void
-script_add_name(script_state_t *s, int aoffset, char *aname, int aclass_no);
-
-char *
-script_find_name(script_state_t *s, int offset, int *class_no);
-
-void
-script_add_area(script_state_t *s, int start_offset, int end_offset, int type, void *data);
-
-void
-script_free_areas(script_state_t *s);
-
-int
-script_get_area_type(script_state_t *s, int offset, void **pdata);
-
-void
-disasm_init(disasm_state_t *d);
-
-void
-disasm_free_state(disasm_state_t *d);
-
-int main(int argc, char** argv) {
-	int i;
-	char outfilename [256];
-	int optindex = 0;
-	int c;
-	disasm_state_t disasm_state;
-	char *gamedir = NULL;
-	int res_version = SCI_VERSION_AUTODETECT;
-
-#ifdef HAVE_GETOPT_LONG
-	while ((c = getopt_long(argc, argv, "vhxr:d:", options, &optindex)) > -1) {
-#else /* !HAVE_GETOPT_H */
-	while ((c = getopt(argc, argv, "vhxr:d:")) > -1) {
-#endif /* !HAVE_GETOPT_H */
-
-		switch (c) {
-		case 256:
-			printf("scidisasm ("PACKAGE") "VERSION"\n");
-			printf("This program is copyright (C) 1999 Christoph Reichenbach.\n"
-			       "It comes WITHOUT WARRANTY of any kind.\n"
-			       "This is free software, released under the GNU General Public License.\n");
-			exit(0);
-
-		case 'h':
-			printf("Usage: scidisasm\n"
-			       "\nAvailable options:\n"
-			       " --version               Prints the version number\n"
-			       " --help        -h        Displays this help message\n"
-			       " --gamedir <dir> -d<dir> Read game resources from dir\n"
-			       " --hexdump     -x        Hex dump all script resources\n"
-			       " --verbose               Print additional disassembly information\n"
-			       " --opcode-size           Print opcode size postfixes\n");
-			exit(0);
-
-		case 'd':
-			if (gamedir) sci_free(gamedir);
-			gamedir = sci_strdup(optarg);
-			break;
-
-		case 'r':
-			res_version = atoi(optarg);
-			break;
-
-		case 0: /* getopt_long already did this for us */
-		case '?':
-			/* getopt_long already printed an error message. */
-			break;
-
-		default:
-			return -1;
-		}
-	}
-
-	if (gamedir)
-		if (chdir(gamedir)) {
-			printf("Error changing to game directory '%s'\n", gamedir);
-			exit(1);
-		}
-
-	printf("Loading resources...\n");
-	if (!(resmgr = scir_new_resource_manager(sci_getcwd(), res_version,
-	               1, 1024 * 128))) {
-		fprintf(stderr, "Could not find any resources; quitting.\n");
-		exit(1);
-	}
-
-	disasm_init(&disasm_state);
-
-	script_adjust_opcode_formats(resmgr->sci_version);
-
-	printf("Performing first pass...\n");
-	for (i = 0; i < resmgr->resources_nr; i++)
-		if (resmgr->resources[i].type == sci_script)
-			disassemble_script(&disasm_state,
-			                   resmgr->resources[i].number, 1);
-
-	printf("Performing second pass...\n");
-	for (i = 0; i < resmgr->resources_nr; i++)
-		if (resmgr->resources[i].type == sci_script) {
-			sprintf(outfilename, "%03d.script",
-			        resmgr->resources[i].number);
-			open_console_file(outfilename);
-			disassemble_script(&disasm_state,
-			                   resmgr->resources[i].number, 2);
-		}
-
-	close_console_file();
-	disasm_free_state(&disasm_state);
-
-	free(resmgr->resource_path);
-	scir_free_resource_manager(resmgr);
-	return 0;
-}
-
-/* -- General operations on disasm_state_t -------------------------------  */
-
-void
-disasm_init(disasm_state_t *d) {
-	d->snames = vocabulary_get_snames(resmgr, &d->selector_count, SCI_ASSUME_VERSION);
-	d->opcodes = vocabulary_get_opcodes(resmgr);
-	d->kernel_names = vocabulary_get_knames(resmgr, &d->kernel_names_nr);
-	d->words = vocab_get_words(resmgr, &d->word_count);
-	d->scripts = NULL;
-	d->old_header = 0;
-
-	d->class_count = vocabulary_get_class_count(resmgr);
-	d->class_names = (char **) sci_malloc(d->class_count * sizeof(char *));
-	memset(d->class_names, 0, d->class_count * sizeof(char *));
-	d->class_selector_count = (int *) sci_malloc(d->class_count * sizeof(int));
-	memset(d->class_selector_count, 0, d->class_count * sizeof(int));
-	d->class_selectors = (short **) sci_malloc(d->class_count * sizeof(short *));
-	memset(d->class_selectors, 0, d->class_count * sizeof(short *));
-}
-
-void
-disasm_free_state(disasm_state_t *d) {
-	script_state_t *s, *next_script;
-	int i;
-
-	s = d->scripts;
-	while (s) {
-		next_script = s->next;
-		script_free_names(s);
-		script_free_areas(s);
-		s = next_script;
-	}
-
-	for (i = 0; i < d->class_count; i++) {
-		if (d->class_names [i]) sci_free(d->class_names [i]);
-		if (d->class_selectors [i]) sci_free(d->class_selectors [i]);
-	}
-
-	free(d->class_names);
-	free(d->class_selectors);
-	free(d->class_selector_count);
-
-	vocabulary_free_snames(d->snames);
-	vocabulary_free_opcodes(d->opcodes);
-	vocabulary_free_knames(d->kernel_names);
-	vocab_free_words(d->words, d->word_count);
-}
-
-script_state_t *
-find_script_state(disasm_state_t *d, int script_no) {
-	script_state_t *s;
-
-	for (s = d->scripts; s; s = s->next)
-		if (s->script_no == script_no) return s;
-
-	s = (script_state_t *) sci_malloc(sizeof(script_state_t));
-	memset(s, 0, sizeof(script_state_t));
-	s->script_no = script_no;
-	s->next = d->scripts;
-
-	d->scripts = s;
-	return s;
-}
-
-/* -- Name table operations ----------------------------------------------  */
-
-void
-script_free_names(script_state_t *s) {
-	name_t *p = s->names, *next_name;
-
-	while (p) {
-		next_name = p->next;
-		free(p->name);
-		free(p);
-		p = next_name;
-	}
-
-	s->names = NULL;
-}
-
-void
-script_add_name(script_state_t *s, int aoffset, char *aname, int aclass_no) {
-	name_t *p;
-	char *name = script_find_name(s, aoffset, NULL);
-	if (name) return;
-
-	p = (name_t *) sci_malloc(sizeof(name_t));
-	p->offset = aoffset;
-	p->name = sci_strdup(aname);
-	p->class_no = aclass_no;
-	p->next = s->names;
-	s->names = p;
-}
-
-char *
-script_find_name(script_state_t *s, int offset, int *aclass_no) {
-	name_t *p;
-
-	for (p = s->names; p; p = p->next)
-		if (p->offset == offset) {
-			if (aclass_no && p->class_no != -2) *aclass_no = p->class_no;
-			return p->name;
-		}
-
-	return NULL;
-}
-
-/* -- Area table operations ----------------------------------------------  */
-
-void
-script_add_area(script_state_t *s, int start_offset, int end_offset, int type, void *data) {
-	area_t *area;
-
-	area = (area_t *) sci_malloc(sizeof(area_t));
-	area->start_offset = start_offset;
-	area->end_offset = end_offset;
-	area->data = data;
-	area->next = s->areas [type];
-
-	s->areas [type] = area;
-}
-
-void
-script_free_areas(script_state_t *s) {
-	int i;
-
-	for (i = 0; i < area_last; i++) {
-		area_t *area = s->areas [i], *next_area;
-		while (area) {
-			next_area = area->next;
-			free(area);
-			area = next_area;
-		}
-	}
-}
-
-int
-script_get_area_type(script_state_t *s, int offset, void **pdata) {
-	int i;
-
-	for (i = 0; i < area_last; i++) {
-		area_t *area = s->areas [i];
-		while (area) {
-			if (area->start_offset <= offset && area->end_offset >= offset)     {
-				if (pdata != NULL) *pdata = area->data;
-				return i;
-			}
-			area = area->next;
-		}
-	}
-
-	return -1;
-}
-
-char *
-get_selector_name(disasm_state_t *d, int selector) {
-	static char selector_name [256];
-
-	if (d->snames && selector >= 0 && selector < d->selector_count)
-		return d->snames [selector];
-	else {
-		sprintf(selector_name, "unknown_sel_%X", selector);
-		return selector_name;
-	}
-}
-
-const char *
-get_class_name(disasm_state_t *d, int class_no) {
-	static char class_name [256];
-
-	if (class_no == -1)
-		return "<none>";
-	else if (class_no >= 0 && class_no < d->class_count && d->class_names [class_no])
-		return d->class_names [class_no];
-	else {
-		sprintf(class_name, "class_%d", class_no);
-		return class_name;
-	}
-}
-
-/* -- Code to dump individual script block types -------------------------  */
-
-static void
-script_dump_object(disasm_state_t *d, script_state_t *s,
-                   unsigned char *data, int seeker, int objsize, int pass_no) {
-	int selectors, overloads, selectorsize;
-	int species = getInt16(data + 8 + seeker);
-	int superclass = getInt16(data + 10 + seeker);
-	int namepos = getInt16(data + 14 + seeker);
-	int i = 0;
-	short sel;
-	const char *name;
-	char buf [256];
-	short *sels;
-
-	selectors = (selectorsize = getInt16(data + seeker + 6));
-	name = namepos ? ((const char *)data + namepos) : "<unknown>";
-
-	if (pass_no == 1)
-		script_add_area(s, seeker, seeker + objsize - 1, area_object, strdup(name));
-
-	if (pass_no == 2) {
-		sciprintf(".object\n");
-		sciprintf("Name: %s\n", name);
-		sciprintf("Superclass: %s  [%x]\n", get_class_name(d, superclass), superclass);
-		sciprintf("Species: %s  [%x]\n", get_class_name(d, species), species);
-
-		sciprintf("-info-:%x\n", getInt16(data + 12 + seeker) & 0xffff);
-
-		sciprintf("Function area offset: %x\n", getInt16(data + seeker + 4));
-		sciprintf("Selectors [%x]:\n", selectors);
-	}
-
-	seeker += 8;
-
-	if (species < d->class_count)
-		sels = d->class_selectors [species];
-	else
-		sels = NULL;
-
-	while (selectors--) {
-		if (pass_no == 2) {
-			sel = getInt16(data + seeker) & 0xffff;
-			if (sels && (sels [i] >= 0) && (sels[i] < d->selector_count)) {
-				sciprintf("  [#%03x] %s = 0x%x\n", i, d->snames [sels [i]], sel);
-				i++;
-			} else
-				sciprintf("  [#%03x] <unknown> = 0x%x\n", i++, sel);
-		}
-
-		seeker += 2;
-	}
-
-	selectors = overloads = getInt16(data + seeker);
-
-	if (pass_no == 2)
-		sciprintf("Overloaded functions: %x\n", overloads);
-
-	seeker += 2;
-
-	while (overloads--) {
-		word selector = getInt16(data + (seeker)) & 0xffff;
-		if (d->old_header) selector >>= 1;
-
-		if (pass_no == 1) {
-			sprintf(buf, "%s::%s", name, get_selector_name(d, selector));
-			script_add_name(s, getInt16(data + seeker + selectors*2 + 2), buf, species);
-		} else {
-			sciprintf("  [%03x] %s: @", selector, get_selector_name(d, selector));
-			sciprintf("%04x\n", getInt16(data + seeker + selectors*2 + 2));
-		}
-
-		seeker += 2;
-	}
-}
-
-static void
-script_dump_class(disasm_state_t *d, script_state_t *s,
-                  unsigned char *data, int seeker, int objsize, int pass_no) {
-	word selectors, overloads, selectorsize;
-	int species = getInt16(data + 8 + seeker);
-	int superclass = getInt16(data + 10 + seeker);
-	int namepos = getInt16(data + 14 + seeker);
-	const char *name;
-	char buf [256];
-	int i;
-
-	name = namepos ? ((const char *)data + namepos) : "<unknown>";
-	selectors = (selectorsize = getInt16(data + seeker + 6));
-
-	if (pass_no == 1) {
-		if (species >= 0 && species < d->class_count) {
-			if (!namepos) {
-				sprintf(buf, "class_%d", species);
-				d->class_names [species] = sci_strdup(buf);
-			} else
-				d->class_names [species] = sci_strdup(name);
-
-			d->class_selector_count [species] = selectors;
-			d->class_selectors [species] = (short *) sci_malloc(sizeof(short) * selectors);
-		}
-	}
-
-	if (pass_no == 2) {
-		sciprintf(".class\n");
-		sciprintf("Name: %s\n", name);
-		sciprintf("Superclass: %s  [%x]\n", get_class_name(d, superclass), superclass);
-		sciprintf("Species: %x\n", species);
-		sciprintf("-info-:%x\n", getInt16(data + 12 + seeker) & 0xffff);
-
-		sciprintf("Function area offset: %x\n", getInt16(data + seeker + 4));
-		sciprintf("Selectors [%x]:\n", selectors);
-	}
-
-	seeker += 8;
-	selectorsize <<= 1;
-
-	for (i = 0; i < selectors; i++) {
-		word selector = 0xffff & getInt16(data + (seeker) + selectorsize);
-		if (d->old_header) selector >>= 1;
-
-		if (pass_no == 1) {
-			if (species >= 0 && species < d->class_count)
-				d->class_selectors [species][i] = selector;
-		} else
-			sciprintf("  [%03x] %s = 0x%x\n", selector, get_selector_name(d, selector),
-			          getInt16(data + seeker) & 0xffff);
-
-		seeker += 2;
-	}
-
-	seeker += selectorsize;
-
-	selectors = overloads = getInt16(data + seeker);
-
-	sciprintf("Overloaded functions: %x\n", overloads);
-
-	seeker += 2;
-
-	while (overloads--) {
-		word selector = getInt16(data + (seeker)) & 0xffff;
-		if (d->old_header) selector >>= 1;
-
-		if (pass_no == 1) {
-			sprintf(buf, "%s::%s", name, get_selector_name(d, selector));
-			script_add_name(s, getInt16(data + seeker + selectors*2 + 2) & 0xffff, buf, species);
-		} else {
-			sciprintf("  [%03x] %s: @", selector & 0xffff, get_selector_name(d, selector));
-			sciprintf("%04x\n", getInt16(data + seeker + selectors*2 + 2) & 0xffff);
-		}
-
-		seeker += 2;
-	}
-}
-
-static int
-script_dump_said_string(disasm_state_t *d, unsigned char *data, int seeker) {
-	while (1) {
-		unsigned short nextitem = (unsigned char) data [seeker++];
-		if (nextitem == 0xFF) return seeker;
-
-		if (nextitem >= 0xF0) {
-			switch (nextitem) {
-			case 0xf0:
-				sciprintf(", ");
-				break;
-			case 0xf1:
-				sciprintf("& ");
-				break;
-			case 0xf2:
-				sciprintf("/ ");
-				break;
-			case 0xf3:
-				sciprintf("( ");
-				break;
-			case 0xf4:
-				sciprintf(") ");
-				break;
-			case 0xf5:
-				sciprintf("[ ");
-				break;
-			case 0xf6:
-				sciprintf("] ");
-				break;
-			case 0xf7:
-				sciprintf("# ");
-				break;
-			case 0xf8:
-				sciprintf("< ");
-				break;
-			case 0xf9:
-				sciprintf("> ");
-				break;
-			}
-		} else {
-			nextitem = nextitem << 8 | (unsigned char) data [seeker++];
-			sciprintf("%s ", vocab_get_any_group_word(nextitem, d->words, d->word_count));
-			if (verbose)
-				sciprintf("[%03x] ", nextitem);
-		}
-	}
-}
-
-static void
-script_dump_said(disasm_state_t *d, script_state_t *s,
-                 unsigned char *data, int seeker, int objsize, int pass_no) {
-	int _seeker = seeker + objsize - 4;
-
-	if (pass_no == 1) {
-		script_add_area(s, seeker, seeker + objsize - 1, area_said, NULL);
-		return;
-	}
-
-	sciprintf(".said\n");
-
-	while (seeker < _seeker - 1) {
-		sciprintf("%04x: ", seeker);
-		seeker = script_dump_said_string(d, data, seeker);
-		sciprintf("\n");
-	}
-}
-
-static void
-script_dump_synonyms(disasm_state_t *d, script_state_t *s,
-                     unsigned char *data, int seeker, int objsize, int pass_no) {
-	int _seeker = seeker + objsize - 4;
-
-	sciprintf("Synonyms:\n");
-	while (seeker < _seeker) {
-		int search = getInt16(data + seeker);
-		int replace = getInt16(data + seeker + 2);
-		seeker += 4;
-		if (search < 0) break;
-		sciprintf("%s[%03x] ==> %s[%03x]\n",
-		          vocab_get_any_group_word(search, d->words, d->word_count), search,
-		          vocab_get_any_group_word(replace, d->words, d->word_count), replace);
-	}
-}
-
-static void
-script_dump_strings(disasm_state_t *d, script_state_t *s,
-                    unsigned char *data, int seeker, int objsize, int pass_no) {
-	int endptr = seeker + objsize - 4;
-
-	if (pass_no == 1) {
-		script_add_area(s, seeker, seeker + objsize - 1, area_string, NULL);
-		return;
-	}
-
-	sciprintf(".strings\n");
-	while (data [seeker] && seeker < endptr) {
-		sciprintf("%04x: %s\n", seeker, data + seeker);
-		seeker += strlen((char *) data + seeker) + 1;
-	}
-}
-
-static void
-script_dump_exports(disasm_state_t *d, script_state_t *s,
-                    unsigned char *data, int seeker, int objsize, int pass_no) {
-	byte *pexport = (byte *)(data + seeker);
-	word export_count = getUInt16(pexport);
-	int i;
-	char buf [256];
-
-	pexport += 2;
-
-	if (pass_no == 2) sciprintf(".exports\n");
-
-	for (i = 0; i < export_count; i++) {
-		if (pass_no == 1) {
-			guint16 offset = getUInt16(pexport);
-			sprintf(buf, "exp_%02X", i);
-			script_add_name(s, offset, buf, -1);
-		} else
-			sciprintf("%02X: %04X\n", i, *pexport);
-		pexport += 2;
-	}
-}
-
-/* -- The disassembly code -----------------------------------------------  */
-
-static void
-script_disassemble_code(disasm_state_t *d, script_state_t *s,
-                        unsigned char *data, int seeker, int objsize, int pass_no) {
-	int endptr = seeker + objsize - 4;
-	int i = 0;
-	int cur_class = -1;
-	word dest;
-	void *area_data;
-	char buf [256];
-	char *dest_name;
-
-	if (pass_no == 2) sciprintf(".code\n");
-
-	while (seeker < endptr - 1) {
-		unsigned char opsize = data [seeker];
-		unsigned char opcode = opsize >> 1;
-		word param_value;
-		char *name;
-
-		opsize &= 1; /* byte if true, word if false */
-
-		if (pass_no == 2) {
-			name = script_find_name(s, seeker, &cur_class);
-			if (name) sciprintf("      %s:\n", name);
-			sciprintf("%04X: ", seeker);
-			sciprintf("%s", d->opcodes[opcode].name);
-			if (opcode_size && formats[opcode][0])
-				sciprintf(".%c", opsize ? 'b' : 'w');
-			sciprintf("\t");
-		}
-
-		seeker++;
-
-		for (i = 0; formats[opcode][i]; i++)
-
-			switch (formats[opcode][i]) {
-
-			case Script_Invalid:
-				if (pass_no == 2) sciprintf("-Invalid operation-");
-				break;
-
-			case Script_SByte:
-			case Script_Byte:
-				if (pass_no == 2) sciprintf(" %02x", data[seeker]);
-				seeker++;
-				break;
-
-			case Script_Word:
-			case Script_SWord:
-				if (pass_no == 2)
-					sciprintf(" %04x", 0xffff & (data[seeker] | (data[seeker+1] << 8)));
-				seeker += 2;
-				break;
-
-			case Script_SVariable:
-			case Script_Variable:
-			case Script_Global:
-			case Script_Local:
-			case Script_Temp:
-			case Script_Param:
-			case Script_SRelative:
-			case Script_Property:
-			case Script_Offset:
-				if (opsize)
-					param_value = data [seeker++];
-				else {
-					param_value = 0xffff & (data[seeker] | (data[seeker+1] << 8));
-					seeker += 2;
-				}
-
-				if (pass_no == 1) {
-					if (opcode == op_jmp || opcode == op_bt || opcode == op_bnt)					{
-						dest = seeker + (short) param_value;
-						sprintf(buf, "lbl_%04X", dest);
-						script_add_name(s, dest, buf, -2);
-					}
-				} else if (pass_no == 2)
-					switch (formats[opcode][i]) {
-
-					case Script_SVariable:
-					case Script_Variable:
-						if (opcode == op_callk) {
-							sciprintf(" #%s", (param_value < d->kernel_names_nr)
-							          ? d->kernel_names[param_value] : "<invalid>");
-							if (verbose) sciprintf("[%x]", param_value);
-						} else if (opcode == op_class || (opcode == op_super && i == 0))           {
-							sciprintf(" %s", (d->class_names && param_value < d->class_count)
-							          ? d->class_names[param_value] : "<invalid>");
-							if (verbose) sciprintf("[%x]", param_value);
-						} else sciprintf(opsize ? " %02x" : " %04x", param_value);
-
-						if (opcode == op_pushi && param_value > 0 && param_value < d->selector_count)
-							sciprintf("\t\t; selector <%s>", d->snames [param_value]);
-
-						break;
-
-					case Script_Global:
-						sciprintf(" global_%d", param_value);
-						break;
-
-					case Script_Local:
-						sciprintf(" local_%d", param_value);
-						break;
-
-					case Script_Temp:
-						sciprintf(" temp_%d", param_value);
-						break;
-
-					case Script_Param:
-						sciprintf(" param_%d", param_value);
-						break;
-
-					case Script_Offset:
-						dest = (short) param_value;
-						dest_name = script_find_name(s, dest, NULL);
-						if (dest_name)
-							sciprintf(" %s", dest_name);
-						else
-							sciprintf(" %04x", dest);
-
-						if (verbose)
-							sciprintf(opsize ? "   [%02x] " : "   [%04x] ", param_value);
-
-						if (opcode == op_lofsa || opcode == op_lofss) {
-							int atype = script_get_area_type(s, dest, &area_data);
-							if (atype == area_string) {
-								strncpy(buf, (char *) &data [dest], sizeof(buf) - 1);
-								buf [sizeof(buf)-1] = 0;
-								if (strlen(buf) > 40) {
-									buf [40] = 0;
-									strcat(buf, "...");
-								}
-								sciprintf("\t\t; \"%s\"", buf);
-							} else if (atype == area_said) {
-								sciprintf("\t\t; said \"");
-								script_dump_said_string(d, data, dest);
-								sciprintf("\"\n");
-							} else if (atype == area_object)
-								sciprintf("\t\t; object <%s>", area_data);
-						}
-						break;
-
-					case Script_SRelative:
-						dest = seeker + (short) param_value;
-						dest_name = script_find_name(s, dest, NULL);
-						if (dest_name)
-							sciprintf(" %s", dest_name);
-						else
-							sciprintf(" %04x", dest);
-
-						if (verbose)
-							sciprintf(opsize ? "   [%02x] " : "   [%04x] ", param_value);
-
-						if (opcode == op_lofsa || opcode == op_lofss) {
-							int atype = script_get_area_type(s, dest, &area_data);
-							if (atype == area_string) {
-								strncpy(buf, (char *) &data [dest], sizeof(buf) - 1);
-								buf [sizeof(buf)-1] = 0;
-								if (strlen(buf) > 40) {
-									buf [40] = 0;
-									strcat(buf, "...");
-								}
-								sciprintf("\t\t; \"%s\"", buf);
-							} else if (atype == area_said) {
-								sciprintf("\t\t; said \"");
-								script_dump_said_string(d, data, dest);
-								sciprintf("\"\n");
-							} else if (atype == area_object)
-								sciprintf("\t\t; object <%s>", area_data);
-						}
-						break;
-
-					case Script_Property:
-						if (cur_class != -1 && param_value / 2 < d->class_selector_count [cur_class]) {
-							sciprintf(" %s", get_selector_name(d, d->class_selectors [cur_class][param_value/2]));
-							if (verbose) sciprintf("[%x]", param_value);
-						} else
-							sciprintf(opsize ? " %02x" : " %04x", param_value);
-
-						break;
-
-					case Script_End:
-						if (pass_no == 2) sciprintf("\n");
-						break;
-
-					default:
-						sciprintf("Unexpected opcode format %d\n", (formats[opcode][i]));
-					}
-
-			default:
-				break;
-			}
-		if (pass_no == 2) sciprintf("\n");
-
-	}
-
-}
-
-void
-disassemble_script_pass(disasm_state_t *d, script_state_t *s,
-                        resource_t *script, int pass_no) {
-	int _seeker = 0;
-	word id = getInt16(script->data);
-
-	if (id > 15) {
-		if (pass_no == 2) sciprintf("; Old script header detected\n");
-		d->old_header = 1;
-	}
-
-	if (d->old_header) _seeker = 2;
-
-	while (_seeker < script->size) {
-		int objtype = getInt16(script->data + _seeker);
-		int objsize;
-		int seeker = _seeker + 4;
-
-		if (!objtype) return;
-
-		if (pass_no == 2)
-			sciprintf("\n");
-
-		objsize = getInt16(script->data + _seeker + 2);
-
-		if (pass_no == 2) {
-			sciprintf("; Obj type #%x, offset 0x%x, size 0x%x:\n", objtype, _seeker, objsize);
-			if (hexdump) sci_hexdump(script->data + seeker, objsize - 4, seeker);
-		}
-
-		_seeker += objsize;
-
-		switch (objtype) {
-		case sci_obj_object:
-			script_dump_object(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_code:
-			script_disassemble_code(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_synonyms:
-			script_dump_synonyms(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_said:
-			script_dump_said(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_strings:
-			script_dump_strings(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_class:
-			script_dump_class(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_exports:
-			script_dump_exports(d, s, script->data, seeker, objsize, pass_no);
-			break;
-
-		case sci_obj_pointers:
-			if (pass_no == 2) {
-				sciprintf("Pointers\n");
-				sci_hexdump(script->data + seeker, objsize - 4, seeker);
-			};
-			break;
-
-		case sci_obj_preload_text:
-			if (pass_no == 2) {
-				sciprintf("The script has a preloaded text resource\n");
-			};
-			break;
-
-		case sci_obj_localvars:
-			if (pass_no == 2) {
-				sciprintf("Local vars\n");
-				sci_hexdump(script->data + seeker, objsize - 4, seeker);
-			};
-			break;
-
-		default:
-			sciprintf("Unsupported %d!\n", objtype);
-			return;
-		}
-	}
-
-	sciprintf("Script ends without terminator\n");
-}
-
-void
-disassemble_script(disasm_state_t *d, int res_no, int pass_no) {
-	resource_t *script = scir_find_resource(resmgr, sci_script, res_no, 0);
-	script_state_t *s = find_script_state(d, res_no);
-
-	if (!script) {
-		sciprintf("Script not found!\n");
-		return;
-	}
-
-	disassemble_script_pass(d, s, script, pass_no);
-}