String fragments support

WIP: No regressions in this part, I hope

svn-id: r39297
This commit is contained in:
Lars Skovlund 2009-03-10 14:52:02 +00:00
parent cbfd80a5d1
commit 3cddcb1660
10 changed files with 130 additions and 53 deletions

View file

@ -87,7 +87,8 @@ char inputbuf[256] = "";
const char *_debug_get_input_default() {
char newinpbuf[256];
char *newline;
printf("> ");
fgets(newinpbuf, 254, stdin);
@ -327,6 +328,10 @@ int c_segtable(EngineState *s) {
sciprintf("M dynmem: %d bytes", mobj->data.dynmem.size);
break;
case MEM_OBJ_STRING_FRAG:
sciprintf("F string fragments");
break;
default:
sciprintf("I Invalid (type = %x)", mobj->type);
break;
@ -424,10 +429,12 @@ static void _c_single_seg_info(EngineState *s, MemObject *mobj) {
SystemStrings *strings = &(mobj->data.sys_strings);
int i;
sciprintf("system string table\n");
sciprintf("system string table - viewing currently disabled\n");
#if 0
for (i = 0; i < SYS_STRINGS_MAX; i++)
if (strings->strings[i].name)
sciprintf(" %s[%d]=\"%s\"\n", strings->strings[i].name, strings->strings[i].max_size, strings->strings[i].value);
#endif
}
break;
@ -483,6 +490,11 @@ static void _c_single_seg_info(EngineState *s, MemObject *mobj) {
}
break;
case MEM_OBJ_STRING_FRAG: {
sciprintf("string frags\n");
break;
}
default :
sciprintf("Invalid type %d\n", mobj->type);
break;