diff options
Diffstat (limited to 'engines')
-rw-r--r-- | engines/glk/glulxe/gestalt.cpp | 101 | ||||
-rw-r--r-- | engines/glk/glulxe/glulxe_types.h | 15 | ||||
-rw-r--r-- | engines/glk/module.mk | 1 |
3 files changed, 117 insertions, 0 deletions
diff --git a/engines/glk/glulxe/gestalt.cpp b/engines/glk/glulxe/gestalt.cpp new file mode 100644 index 0000000000..2839c52676 --- /dev/null +++ b/engines/glk/glulxe/gestalt.cpp @@ -0,0 +1,101 @@ +/* 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. + * + */ + +#include "engines/glk/glulxe/glulxe.h" + +namespace Glk { +namespace Glulxe { + +uint Glulxe::do_gestalt(uint val, uint val2) { + switch (val) { + + case gestulx_GlulxVersion: + return 0x00030102; /* Glulx spec version 3.1.2 */ + + case gestulx_TerpVersion: + return 0x00000504; /* Glulxe version 0.5.4 */ + + case gestulx_ResizeMem: +#ifdef FIXED_MEMSIZE + return 0; /* The setmemsize opcodes are compiled out. */ +#else /* FIXED_MEMSIZE */ + return 1; /* We can handle setmemsize. */ +#endif /* FIXED_MEMSIZE */ + + case gestulx_Undo: + return 1; /* We can handle saveundo and restoreundo. */ + + case gestulx_IOSystem: + switch (val2) { + case 0: + return 1; /* The "null" system always works. */ + case 1: + return 1; /* The "filter" system always works. */ + case 2: + return 1; /* A Glk library is hooked up. */ + default: + return 0; + } + + case gestulx_Unicode: + return 1; /* We can handle Unicode. */ + + case gestulx_MemCopy: + return 1; /* We can do mcopy/mzero. */ + + case gestulx_MAlloc: +#ifdef FIXED_MEMSIZE + return 0; /* The malloc opcodes are compiled out. */ +#else /* FIXED_MEMSIZE */ + return 1; /* We can handle malloc/mfree. */ +#endif /* FIXED_MEMSIZE */ + + case gestulx_MAllocHeap: + return heap_get_start(); + + case gestulx_Acceleration: + return 1; /* We can do accelfunc/accelparam. */ + + case gestulx_AccelFunc: + if (accel_find_func(val2)) + return 1; /* We know this accelerated function. */ + return 0; + + case gestulx_Float: +#ifdef FLOAT_SUPPORT + return 1; /* We can do floating-point operations. */ +#else /* FLOAT_SUPPORT */ + return 0; /* The floating-point opcodes are not compiled in. */ +#endif /* FLOAT_SUPPORT */ + +#ifdef GLULX_EXTEND_GESTALT + GLULX_EXTEND_GESTALT +#endif /* GLULX_EXTEND_GESTALT */ + + default: + return 0; + + } +} + +} // End of namespace Glulxe +} // End of namespace Glk diff --git a/engines/glk/glulxe/glulxe_types.h b/engines/glk/glulxe/glulxe_types.h index b4c9a14569..c6ce238460 100644 --- a/engines/glk/glulxe/glulxe_types.h +++ b/engines/glk/glulxe/glulxe_types.h @@ -250,6 +250,21 @@ enum Opcode { op_jisinf = 0x1C9 }; +enum gestulx { + gestulx_GlulxVersion = 0, + gestulx_TerpVersion = 1, + gestulx_ResizeMem = 2, + gestulx_Undo = 3, + gestulx_IOSystem = 4, + gestulx_Unicode = 5, + gestulx_MemCopy = 6, + gestulx_MAlloc = 7, + gestulx_MAllocHeap = 8, + gestulx_Acceleration = 9, + gestulx_AccelFunc = 10, + gestulx_Float = 11 +}; + struct dispatch_splot_struct { int numwanted; int maxargs; diff --git a/engines/glk/module.mk b/engines/glk/module.mk index 1f026b2a18..f1dcd84d72 100644 --- a/engines/glk/module.mk +++ b/engines/glk/module.mk @@ -62,6 +62,7 @@ MODULE_OBJS := \ glulxe/exec.o \ glulxe/float.o \ glulxe/funcs.o \ + glulxe/gestalt.o \ glulxe/glkop.o \ glulxe/glulxe.o \ magnetic/detection.o \ |