darkplaces/gmqcc
0
0
Fork 0
mirror of https://github.com/DarkPlacesEngine/gmqcc.git synced 2024-11-23 20:33:05 +00:00
Code Issues Projects Releases Packages Wiki Activity

lex_open_string

Browse source
This commit is contained in:
Wolfgang (Blub) Bumiller 2012-11-11 10:27:09 +01:00
parent 8e30d7cb86
commit a84f9483e6
2 changed files with 49 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
lexer.c
View file

@ -162,6 +162,34 @@ lex_file* lex_open(const char *file)
return lex;
}
lex_file* lex_open_string(const char *str, size_t len, const char *name)
{
lex_file *lex;
lex = (lex_file*)mem_a(sizeof(*lex));
if (!lex) {
lexerror(NULL, "out of memory\n");
return NULL;
}
memset(lex, 0, sizeof(*lex));
lex->file = NULL;
lex->open_string = str;
lex->open_string_length = len;
lex->open_string_pos = 0;
lex->name = util_strdup(name ? name : "<string-source>");
lex->line = 1; /* we start counting at 1 */
lex->peekpos = 0;
lex->eof = false;
lex_filenames_add(lex->name);
return lex;
}
void lex_cleanup(void)
{
size_t i;
@ -192,6 +220,18 @@ void lex_close(lex_file *lex)
mem_d(lex);
}
static int lex_fgetc(lex_file *lex)
{
if (lex->file)
return fgetc(lex->file);
if (lex->open_string) {
if (lex->open_string_pos >= lex->open_string_length)
return EOF;
return lex->open_string[lex->open_string_pos++];
}
return EOF;
}
/* Get or put-back data
* The following to functions do NOT understand what kind of data they
* are working on.
@ -201,13 +241,13 @@ static void lex_ungetch(lex_file *lex, int ch);
static int lex_try_trigraph(lex_file *lex, int old)
{
int c2, c3;
c2 = fgetc(lex->file);
c2 = lex_fgetc(lex);
if (c2 != '?') {
lex_ungetch(lex, c2);
return old;
}
c3 = fgetc(lex->file);
c3 = lex_fgetc(lex);
switch (c3) {
case '=': return '#';
case '/': return '\\';
@ -228,7 +268,7 @@ static int lex_try_trigraph(lex_file *lex, int old)
static int lex_try_digraph(lex_file *lex, int ch)
{
int c2;
c2 = fgetc(lex->file);
c2 = lex_fgetc(lex);
if (ch == '<' && c2 == ':')
return '[';
else if (ch == ':' && c2 == '>')
@ -254,7 +294,7 @@ static int lex_getch(lex_file *lex)
return lex->peek[lex->peekpos];
}
ch = fgetc(lex->file);
ch = lex_fgetc(lex);
if (ch == '\n')
lex->line++;
else if (ch == '?')

5
lexer.h
View file

@ -100,6 +100,10 @@ typedef struct {
typedef struct {
FILE *file;
const char *open_string;
size_t open_string_length;
size_t open_string_pos;
char *name;
size_t line;
size_t sline; /* line at the start of a token */
@ -125,6 +129,7 @@ typedef struct {
MEM_VECTOR_PROTO(lex_file, char, token);
lex_file* lex_open (const char *file);
lex_file* lex_open_string(const char *str, size_t len, const char *name);
void lex_close(lex_file *lex);
int lex_do (lex_file *lex);
void lex_cleanup(void);