mirror of
https://github.com/ZDoom/acc.git
synced 2024-12-01 16:01:46 +00:00
c447410ad8
- Fixed: You could not #define a string for use in a library, because it was converted to a number at definition time and not at use time. This is no longer the case. Symbolic constants now store the string in its original form, and they now expand into the string when encountered instead of their string table index.
494 lines
12 KiB
C
494 lines
12 KiB
C
|
|
//**************************************************************************
|
|
//**
|
|
//** strlist.c
|
|
//**
|
|
//**************************************************************************
|
|
|
|
// HEADER FILES ------------------------------------------------------------
|
|
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include "common.h"
|
|
#include "strlist.h"
|
|
#include "error.h"
|
|
#include "misc.h"
|
|
#include "pcode.h"
|
|
|
|
// MACROS ------------------------------------------------------------------
|
|
|
|
// TYPES -------------------------------------------------------------------
|
|
|
|
typedef struct
|
|
{
|
|
char *name;
|
|
int address;
|
|
} stringInfo_t;
|
|
|
|
typedef struct
|
|
{
|
|
int stringCount;
|
|
stringInfo_t strings[MAX_STRINGS];
|
|
} stringList_t;
|
|
|
|
typedef struct
|
|
{
|
|
char name[4];
|
|
stringList_t list;
|
|
} languageInfo_t;
|
|
|
|
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
|
|
|
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
|
|
|
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
|
|
|
static int STR_PutStringInSomeList(stringList_t *list, int index, char *name);
|
|
static int STR_FindInSomeList(stringList_t *list, char *name);
|
|
static int STR_FindInSomeListInsensitive(stringList_t *list, char *name);
|
|
static void DumpStrings(stringList_t *list, int lenadr, boolean quad, boolean crypt);
|
|
static void Encrypt(void *data, int key, int len);
|
|
|
|
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
|
|
|
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
|
|
|
int NumLanguages, NumStringLists;
|
|
|
|
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
|
|
|
static languageInfo_t *LanguageInfo[MAX_LANGUAGES];
|
|
static stringList_t *StringLists[NUM_STRLISTS];
|
|
|
|
// CODE --------------------------------------------------------------------
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_Init
|
|
//
|
|
//==========================================================================
|
|
|
|
void STR_Init(void)
|
|
{
|
|
NumLanguages = NumStringLists = 0;
|
|
STR_FindLanguage(NULL); // Default language is always number 0
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_FindLanguage
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_FindLanguage(char *name)
|
|
{
|
|
int i;
|
|
|
|
if (name == NULL)
|
|
{
|
|
if (NumLanguages > 0)
|
|
{
|
|
return 0;
|
|
}
|
|
i = 0;
|
|
}
|
|
else
|
|
{
|
|
for(i = 0; i < NumLanguages; i++)
|
|
{
|
|
if (strcmp (name, LanguageInfo[i]->name) == 0)
|
|
{
|
|
return i;
|
|
}
|
|
}
|
|
}
|
|
if(i == NumLanguages)
|
|
{
|
|
LanguageInfo[i] = MS_Alloc(sizeof(languageInfo_t), ERR_OUT_OF_MEMORY);
|
|
memset(LanguageInfo[i]->name, 0, 4);
|
|
if(name != NULL)
|
|
{
|
|
strncpy(LanguageInfo[i]->name, name, 3);
|
|
}
|
|
LanguageInfo[i]->list.stringCount = 0;
|
|
NumLanguages++;
|
|
if(NumLanguages > 1 && pc_EnforceHexen)
|
|
{
|
|
ERR_Error(ERR_HEXEN_COMPAT, YES);
|
|
}
|
|
}
|
|
return i;
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_Get
|
|
//
|
|
//==========================================================================
|
|
|
|
char *STR_Get(int num)
|
|
{
|
|
return LanguageInfo[0]->list.strings[num].name;
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_Find
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_Find(char *name)
|
|
{
|
|
return STR_FindInLanguage(0, name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_FindInLanguage
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_FindInLanguage(int language, char *name)
|
|
{
|
|
return STR_FindInSomeList (&LanguageInfo[language]->list, name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_FindInList
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_FindInList(int list, char *name)
|
|
{
|
|
if (StringLists[list] == NULL)
|
|
{
|
|
StringLists[list] = MS_Alloc(sizeof(stringList_t), ERR_OUT_OF_MEMORY);
|
|
StringLists[list]->stringCount = 0;
|
|
NumStringLists++;
|
|
if(pc_EnforceHexen)
|
|
{
|
|
ERR_Error(ERR_HEXEN_COMPAT, YES);
|
|
}
|
|
}
|
|
return STR_FindInSomeList (StringLists[list], name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_FindInSomeList
|
|
//
|
|
//==========================================================================
|
|
|
|
static int STR_FindInSomeList(stringList_t *list, char *name)
|
|
{
|
|
int i;
|
|
|
|
for(i = 0; i < list->stringCount; i++)
|
|
{
|
|
if(strcmp(list->strings[i].name, name) == 0)
|
|
{
|
|
return i;
|
|
}
|
|
}
|
|
// Add to list
|
|
return STR_PutStringInSomeList(list, i, name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_FindInListInsensitive
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_FindInListInsensitive(int list, char *name)
|
|
{
|
|
if (StringLists[list] == NULL)
|
|
{
|
|
StringLists[list] = MS_Alloc(sizeof(stringList_t), ERR_OUT_OF_MEMORY);
|
|
StringLists[list]->stringCount = 0;
|
|
NumStringLists++;
|
|
if(pc_EnforceHexen)
|
|
{
|
|
ERR_Error(ERR_HEXEN_COMPAT, YES);
|
|
}
|
|
}
|
|
return STR_FindInSomeListInsensitive (StringLists[list], name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_FindInSomeListInsensitive
|
|
//
|
|
//==========================================================================
|
|
|
|
static int STR_FindInSomeListInsensitive(stringList_t *list, char *name)
|
|
{
|
|
int i;
|
|
|
|
for(i = 0; i < list->stringCount; i++)
|
|
{
|
|
if(strcasecmp(list->strings[i].name, name) == 0)
|
|
{
|
|
return i;
|
|
}
|
|
}
|
|
// Add to list
|
|
return STR_PutStringInSomeList(list, i, name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_GetString
|
|
//
|
|
//==========================================================================
|
|
|
|
const char *STR_GetString(int list, int index)
|
|
{
|
|
if (StringLists[list] == NULL)
|
|
{
|
|
return NULL;
|
|
}
|
|
if (index < 0 || index >= StringLists[list]->stringCount)
|
|
{
|
|
return NULL;
|
|
}
|
|
return StringLists[list]->strings[index].name;
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_AppendToList
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_AppendToList(int list, char *name)
|
|
{
|
|
if (StringLists[list] == NULL)
|
|
{
|
|
StringLists[list] = MS_Alloc(sizeof(stringList_t), ERR_OUT_OF_MEMORY);
|
|
StringLists[list]->stringCount = 0;
|
|
NumStringLists++;
|
|
if(pc_EnforceHexen)
|
|
{
|
|
ERR_Error(ERR_HEXEN_COMPAT, YES);
|
|
}
|
|
}
|
|
return STR_PutStringInSomeList(StringLists[list], StringLists[list]->stringCount, name);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_PutStringInSomeList
|
|
//
|
|
//==========================================================================
|
|
|
|
static int STR_PutStringInSomeList(stringList_t *list, int index, char *name)
|
|
{
|
|
int i;
|
|
|
|
if(index >= MAX_STRINGS)
|
|
{
|
|
ERR_Error(ERR_TOO_MANY_STRINGS, YES, MAX_STRINGS);
|
|
return 0;
|
|
}
|
|
MS_Message(MSG_DEBUG, "Adding string %d:\n \"%s\"\n",
|
|
list->stringCount, name);
|
|
if(index >= list->stringCount)
|
|
{
|
|
for(i = list->stringCount; i <= index; i++)
|
|
{
|
|
list->strings[i].name = NULL;
|
|
}
|
|
list->stringCount = index + 1;
|
|
}
|
|
if(list->strings[index].name != NULL)
|
|
{
|
|
free(list->strings[index].name);
|
|
}
|
|
if(name != NULL)
|
|
{
|
|
list->strings[index].name = MS_Alloc(strlen(name)+1, ERR_OUT_OF_MEMORY);
|
|
strcpy(list->strings[index].name, name);
|
|
}
|
|
else
|
|
{
|
|
list->strings[index].name = NULL;
|
|
}
|
|
return index;
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_ListSize
|
|
//
|
|
//==========================================================================
|
|
|
|
int STR_ListSize(int list)
|
|
{
|
|
return LanguageInfo[list]->list.stringCount;
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_WriteStrings
|
|
//
|
|
// Writes all the strings to the p-code buffer.
|
|
//
|
|
//==========================================================================
|
|
|
|
void STR_WriteStrings(void)
|
|
{
|
|
int i;
|
|
U_INT pad;
|
|
|
|
MS_Message(MSG_DEBUG, "---- STR_WriteStrings ----\n");
|
|
for(i = 0; i < LanguageInfo[0]->list.stringCount; i++)
|
|
{
|
|
LanguageInfo[0]->list.strings[i].address = pc_Address;
|
|
PC_AppendString(LanguageInfo[0]->list.strings[i].name);
|
|
}
|
|
if(pc_Address%4 != 0)
|
|
{ // Need to align
|
|
pad = 0;
|
|
PC_Append((void *)&pad, 4-(pc_Address%4));
|
|
}
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_WriteList
|
|
//
|
|
//==========================================================================
|
|
|
|
void STR_WriteList(void)
|
|
{
|
|
int i;
|
|
|
|
MS_Message(MSG_DEBUG, "---- STR_WriteList ----\n");
|
|
PC_AppendInt((U_INT)LanguageInfo[0]->list.stringCount);
|
|
for(i = 0; i < LanguageInfo[0]->list.stringCount; i++)
|
|
{
|
|
PC_AppendInt((U_INT)LanguageInfo[0]->list.strings[i].address);
|
|
}
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_WriteChunk
|
|
//
|
|
//==========================================================================
|
|
|
|
void STR_WriteChunk(int language, boolean encrypt)
|
|
{
|
|
languageInfo_t *lang = LanguageInfo[language];
|
|
int lenadr;
|
|
|
|
MS_Message(MSG_DEBUG, "---- STR_WriteChunk %d ----\n", language);
|
|
PC_Append(encrypt ? "STRE" : "STRL", 4);
|
|
lenadr = pc_Address;
|
|
PC_SkipInt();
|
|
PC_Append(&lang->name, 4);
|
|
PC_AppendInt(lang->list.stringCount);
|
|
PC_AppendInt(0); // Used in-game for stringing lists together
|
|
|
|
DumpStrings (&lang->list, lenadr, NO, encrypt);
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// STR_WriteListChunk
|
|
//
|
|
//==========================================================================
|
|
|
|
void STR_WriteListChunk(int list, int id, boolean quad)
|
|
{
|
|
int lenadr;
|
|
|
|
if (StringLists[list] != NULL && StringLists[list]->stringCount > 0)
|
|
{
|
|
MS_Message(MSG_DEBUG, "---- STR_WriteListChunk %d %c%c%c%c----\n", list,
|
|
id&255, (id>>8)&255, (id>>16)&255, (id>>24)&255);
|
|
PC_AppendInt((U_INT)id);
|
|
lenadr = pc_Address;
|
|
PC_SkipInt();
|
|
PC_AppendInt(StringLists[list]->stringCount);
|
|
if (quad && pc_Address%8 != 0)
|
|
{ // If writing quadword indices, align the indices to an
|
|
// 8-byte boundary.
|
|
U_INT pad = 0;
|
|
PC_Append (&pad, 4);
|
|
}
|
|
DumpStrings(StringLists[list], lenadr, quad, NO);
|
|
}
|
|
}
|
|
|
|
//==========================================================================
|
|
//
|
|
// DumpStrings
|
|
//
|
|
//==========================================================================
|
|
|
|
static void DumpStrings(stringList_t *list, int lenadr, boolean quad, boolean crypt)
|
|
{
|
|
int i, ofs, startofs;
|
|
|
|
startofs = ofs = pc_Address - lenadr - 4 + list->stringCount*(quad?8:4);
|
|
|
|
for(i = 0; i < list->stringCount; i++)
|
|
{
|
|
if (list->strings[i].name != NULL)
|
|
{
|
|
PC_AppendInt((U_INT)ofs);
|
|
ofs += strlen(list->strings[i].name) + 1;
|
|
}
|
|
else
|
|
{
|
|
PC_AppendInt(0);
|
|
}
|
|
if (quad)
|
|
{
|
|
PC_AppendInt(0);
|
|
}
|
|
}
|
|
|
|
ofs = startofs;
|
|
|
|
for(i = 0; i < list->stringCount; i++)
|
|
{
|
|
if(list->strings[i].name != NULL)
|
|
{
|
|
int stringlen = strlen(list->strings[i].name) + 1;
|
|
if(crypt)
|
|
{
|
|
int cryptkey = ofs*157135;
|
|
|
|
Encrypt(list->strings[i].name, cryptkey, stringlen);
|
|
PC_Append(list->strings[i].name, stringlen);
|
|
ofs += stringlen;
|
|
Encrypt(list->strings[i].name, cryptkey, stringlen);
|
|
}
|
|
else
|
|
{
|
|
PC_AppendString(list->strings[i].name);
|
|
}
|
|
}
|
|
}
|
|
if(pc_Address%4 != 0)
|
|
{ // Need to align
|
|
U_INT pad = 0;
|
|
PC_Append((void *)&pad, 4-(pc_Address%4));
|
|
}
|
|
|
|
PC_WriteInt(pc_Address - lenadr - 4, lenadr);
|
|
}
|
|
|
|
static void Encrypt(void *data, int key, int len)
|
|
{
|
|
int p = (byte)key, i;
|
|
|
|
for(i = 0; i < len; ++i)
|
|
{
|
|
((byte *)data)[i] ^= (byte)(p+(i>>1));
|
|
}
|
|
}
|