1
0
Fork 0
Browse Source

gdcc support added

master
Marrub 8 years ago
parent
commit
5eff934ef0
  1. 8
      COMPILING.txt
  2. 1
      README.txt
  3. 124
      src/lt.c
  4. 10
      src/lt.h

8
COMPILING.txt

@ -1,2 +1,6 @@
Compiling LoveToken is near trivial since it only needs iconv and C99.
Build an object file from lt.c and link it with iconv into a dll/so/etc.
Compiling LoveToken is near trivial since it only needs C99 (and optionally iconv).
Build an object file from lt.c (and link it with iconv if you want conversion) into a dll/so/etc.
You can compile with the NO_ICONV definition to skip iconv requirements.
Also, compiling with GDCC ( http://github.com/DavidPH/GDCC ) is now allowed.
It will automatically omit iconv and use some specialized functions to work.

1
README.txt

@ -1,3 +1,4 @@
LoveToken is a tokenizer made for usage with LOVE2D's (LuaJIT) FFI.
It also works just as well in C or C++, or really anything that can load C functions.
See COMPILING.txt for info on compiling.
Supported platforms (known): Microsoft Windows, Linux, ZDoom, Mac OS X

124
src/lt.c

@ -27,10 +27,34 @@ THE SOFTWARE.
#include <ctype.h>
#include <string.h>
#include <errno.h>
#include <iconv.h>
#include <stdlib.h>
#include <stdarg.h>
#ifdef __GDCC__
#include <ACS_Zandronum.h>
#else
#ifndef NO_ICONV
#include <iconv.h>
#endif
#endif
#ifdef __GDCC__
#define fopen LT_FOpen
#define ftell LT_FTell
#define fgetc LT_FGetC
#define ungetc LT_UnGetC
#define fseek LT_FSeek
#define fclose LT_FClose
#define FILE LT_File
typedef struct
{
__str langId;
__str data;
int pos;
} LT_File;
#endif
/*
* Variables
*/
@ -38,10 +62,14 @@ THE SOFTWARE.
static LT_GarbageList *gbHead, *gbRover;
static FILE *parseFile;
static LT_Config cfg;
#ifndef NO_ICONV
static iconv_t icDesc;
#endif
static bool assertError = false;
static char *assertString;
static char *stringChars = "\"", *charChars = "'";
static char *stringChars = (char *)"\"", *charChars = (char *)"'";
static const char *errors[] = {
"LT_Error: Syntax error",
@ -67,6 +95,7 @@ const char *LT_TkNames[] = {
* Functions
*/
#ifndef NO_ICONV
static void LT_DoConvert(char **str)
{
size_t i = strlen(*str);
@ -81,6 +110,7 @@ static void LT_DoConvert(char **str)
free(*str);
*str = strbuf;
}
#endif
static void *LT_Alloc(size_t size)
{
@ -108,24 +138,93 @@ static void *LT_ReAlloc(void *ptr, size_t newSize)
static void *LT_SetGarbage(void *p)
{
#ifndef __GDCC__
gbRover->next = LT_Alloc(sizeof(LT_GarbageList));
gbRover = gbRover->next;
gbRover->ptr = p;
gbRover->next = NULL;
return gbRover->ptr;
#else
return p;
#endif
}
#ifdef __GDCC__
#define StrParam(...) \
( \
ACS_BeginStrParam(), \
__nprintf(__VA_ARGS__), \
ACS_EndStrParam() \
)
#define StrParamL(...) (StrParam("%LS", StrParam(__VA_ARGS__)))
LT_File *LT_FOpen(__str languageId, const char *mode)
{
LT_File *file = LT_Alloc(sizeof(LT_File));
file->langId = languageId;
file->data = StrParamL("%S", languageId);
file->pos = 0;
return file;
}
int LT_FTell(LT_File *file)
{
return file->pos;
}
int LT_FGetC(LT_File *file)
{
int c = ACS_GetChar(file->data, file->pos++);
return c < 1 ? EOF : c;
}
int LT_UnGetC(int ch, LT_File *file)
{
int c = ACS_GetChar(file->data, file->pos--);
return c < 1 ? EOF : c;
}
int LT_FSeek(LT_File *file, long int offset, int whence)
{
switch(whence)
{
case SEEK_SET:
file->pos = offset;
return 0;
case SEEK_CUR:
file->pos += offset;
return 0;
case SEEK_END:
file->pos = ACS_StrLen(file->data) + offset;
return 0;
}
return 1;
}
int LT_FClose(LT_File *file)
{
free(file);
return 0;
}
#endif
void LT_Init(LT_Config initCfg)
{
#ifndef __GDCC__
gbHead = LT_Alloc(sizeof(LT_GarbageList));
gbHead->next = NULL;
gbHead->ptr = NULL;
gbRover = gbHead;
#endif
cfg = initCfg;
#ifndef NO_ICONV
if(cfg.doConvert && cfg.fromCode != NULL && cfg.toCode != NULL)
{
icDesc = iconv_open(cfg.toCode, cfg.fromCode);
@ -144,6 +243,7 @@ void LT_Init(LT_Config initCfg)
{
cfg.stripInvalid = false;
}
#endif
if(cfg.stringChars != NULL)
{
@ -200,6 +300,7 @@ void LT_SetConfig(LT_Config newCfg)
{
cfg = newCfg;
#ifndef NO_ICONV
if(cfg.doConvert && cfg.fromCode != NULL && cfg.toCode != NULL)
{
if(icDesc != NULL)
@ -229,6 +330,7 @@ void LT_SetConfig(LT_Config newCfg)
{
cfg.stripInvalid = false;
}
#endif
if(cfg.stringChars != NULL)
{
@ -283,11 +385,14 @@ void LT_SetConfig(LT_Config newCfg)
void LT_Quit()
{
#ifndef NO_ICONV
if(cfg.doConvert)
{
iconv_close(icDesc);
}
#endif
#ifndef __GDCC__
gbRover = gbHead;
while(gbRover != NULL)
@ -307,6 +412,7 @@ void LT_Quit()
gbRover = NULL;
gbHead = NULL;
#endif
}
bool LT_Assert(bool assertion, const char *fmt, ...)
@ -348,7 +454,11 @@ LT_AssertInfo LT_CheckAssert()
return ltAssertion;
}
#ifndef __GDCC__
bool LT_OpenFile(const char *filePath)
#else
bool LT_OpenFile(__str filePath)
#endif
{
parseFile = fopen(filePath, "r");
@ -363,10 +473,14 @@ bool LT_OpenFile(const char *filePath)
void LT_SetPos(int newPos)
{
#ifndef __GDCC__
if(fseek(parseFile, newPos, SEEK_SET) != 0)
{
LT_Assert(ferror(parseFile), "LT_SetPos: %s", strerror(errno));
}
#else
fseek(parseFile, newPos, SEEK_SET);
#endif
}
void LT_CloseFile()
@ -408,10 +522,12 @@ char *LT_ReadNumber()
str[i++] = '\0';
#ifndef NO_ICONV
if(cfg.doConvert)
{
LT_DoConvert(&str);
}
#endif
return LT_SetGarbage(LT_ReAlloc(str, i));
}
@ -474,10 +590,12 @@ char *LT_ReadString(char term)
str[i++] = '\0';
#ifndef NO_ICONV
if(cfg.doConvert)
{
LT_DoConvert(&str);
}
#endif
return LT_SetGarbage(LT_ReAlloc(str, i));
}
@ -856,10 +974,12 @@ LT_Token LT_GetToken()
str[i++] = '\0'; // [marrub] Completely forgot this line earlier. Really screwed up everything.
#ifndef NO_ICONV
if(cfg.doConvert)
{
LT_DoConvert(&str);
}
#endif
ungetc(c, parseFile);

10
src/lt.h

@ -50,6 +50,10 @@ THE SOFTWARE.
#define LT_EXPORT
#endif
#ifdef __GDCC__
#define NO_ICONV
#endif
enum
{
TOK_Colon, TOK_Comma, TOK_Div, TOK_Mod, TOK_Mul,
@ -79,9 +83,11 @@ typedef struct
{
bool escapeChars;
bool stripInvalid;
#ifndef NO_ICONV
bool doConvert;
const char *fromCode;
const char *toCode;
#endif
const char *stringChars;
const char *charChars;
} LT_Config;
@ -117,7 +123,11 @@ bool LT_EXPORT LT_Assert(bool assertion, const char *fmt, ...);
void LT_EXPORT LT_Error(int type); // [marrub] C use ONLY
LT_AssertInfo LT_EXPORT LT_CheckAssert(void);
#ifndef __GDCC__
bool LT_EXPORT LT_OpenFile(const char *filePath);
#else
bool LT_EXPORT LT_OpenFile(__str filePath);
#endif
void LT_EXPORT LT_SetPos(int newPos);
void LT_EXPORT LT_CloseFile(void);

Loading…
Cancel
Save