/*
- * Copyright (C) 2012, 2013
+ * Copyright (C) 2012, 2013, 2014
* Wolfgang Bumiller
*
* Permission is hereby granted, free of charge, to any person obtaining a copy of
return r;
}
-
-#if 0
-token* token_new()
-{
- token *tok = (token*)mem_a(sizeof(token));
- if (!tok)
- return NULL;
- memset(tok, 0, sizeof(*tok));
- return tok;
-}
-
-void token_delete(token *self)
-{
- if (self->next && self->next->prev == self)
- self->next->prev = self->prev;
- if (self->prev && self->prev->next == self)
- self->prev->next = self->next;
- MEM_VECTOR_CLEAR(self, value);
- mem_d(self);
-}
-
-token* token_copy(const token *cp)
-{
- token* self = token_new();
- if (!self)
- return NULL;
- /* copy the value */
- self->value_alloc = cp->value_count + 1;
- self->value_count = cp->value_count;
- self->value = (char*)mem_a(self->value_alloc);
- if (!self->value) {
- mem_d(self);
- return NULL;
- }
- memcpy(self->value, cp->value, cp->value_count);
- self->value[self->value_alloc-1] = 0;
-
- /* rest */
- self->ctx = cp->ctx;
- self->ttype = cp->ttype;
- memcpy(&self->constval, &cp->constval, sizeof(self->constval));
- return self;
-}
-
-void token_delete_all(token *t)
-{
- token *n;
-
- do {
- n = t->next;
- token_delete(t);
- t = n;
- } while(t);
-}
-
-token* token_copy_all(const token *cp)
-{
- token *cur;
- token *out;
-
- out = cur = token_copy(cp);
- if (!out)
- return NULL;
-
- while (cp->next) {
- cp = cp->next;
- cur->next = token_copy(cp);
- if (!cur->next) {
- token_delete_all(out);
- return NULL;
- }
- cur->next->prev = cur;
- cur = cur->next;
- }
-
- return out;
-}
-#else
static void lex_token_new(lex_file *lex)
{
-#if 0
- if (lex->tok)
- token_delete(lex->tok);
- lex->tok = token_new();
-#else
if (lex->tok.value)
vec_shrinkto(lex->tok.value, 0);
lex->tok.ctx.line = lex->sline;
lex->tok.ctx.file = lex->name;
lex->tok.ctx.column = lex->column;
-#endif
}
-#endif
static void lex_ungetch(lex_file *lex, int ch);
static int lex_getch(lex_file *lex);
if (lex->file)
fs_file_close(lex->file);
-#if 0
- if (lex->tok)
- token_delete(lex->tok);
-#else
+
vec_free(lex->tok.value);
-#endif
+
/* mem_d(lex->name); collected in lex_filenames */
mem_d(lex);
}
if (lex->flags.preprocessing) {
haswhite = true;
- /*
- lex_tokench(lex, '/');
- lex_tokench(lex, '/');
- */
lex_tokench(lex, ' ');
lex_tokench(lex, ' ');
}
/* multiline comment */
if (lex->flags.preprocessing) {
haswhite = true;
- /*
- lex_tokench(lex, '/');
- lex_tokench(lex, '*');
- */
lex_tokench(lex, ' ');
lex_tokench(lex, ' ');
}
ch = lex_getch(lex);
if (ch == '/') {
if (lex->flags.preprocessing) {
- /*
- lex_tokench(lex, '*');
- lex_tokench(lex, '/');
- */
lex_tokench(lex, ' ');
lex_tokench(lex, ' ');
}
if (ch == '\n')
lex_tokench(lex, '\n');
else
- lex_tokench(lex, ' '); /* ch); */
+ lex_tokench(lex, ' ');
}
}
ch = ' '; /* cause TRUE in the isspace check */
bool hadwhite = false;
lex_token_new(lex);
-#if 0
- if (!lex->tok)
- return TOKEN_FATAL;
-#endif
while (true) {
ch = lex_skipwhite(lex, hadwhite);
*/
switch (ch)
{
- /*
- case '+':
- case '-':
- */
case '*':
case '/':
case '<':
ch == '~' || ch == '^' /* ~=, ~, ^ */
) {
lex_tokench(lex, ch);
-
nextch = lex_getch(lex);
- if ((nextch == '=' && ch != '<') ||
- (nextch == ch && ch != '!') ||
- (nextch == '<' && ch == '>')) {
+
+ if ((nextch == '=' && ch != '<') || (nextch == '<' && ch == '>'))
lex_tokench(lex, nextch);
+ else if (nextch == ch && ch != '!') {
+ lex_tokench(lex, nextch);
+ if ((thirdch = lex_getch(lex)) == '=')
+ lex_tokench(lex, thirdch);
+ else
+ lex_ungetch(lex, thirdch);
} else if (ch == '<' && nextch == '=') {
lex_tokench(lex, nextch);
if ((thirdch = lex_getch(lex)) == '>')
return (lex->tok.ttype = TOKEN_OPERATOR);
}
- /*
- if (ch == '^' || ch == '~' || ch == '!')
- {
- lex_tokench(lex, ch);
- lex_endtoken(lex);
- return (lex->tok.ttype = TOKEN_OPERATOR);
- }
- */
-
if (ch == '*' || ch == '/') /* *=, /= */
{
lex_tokench(lex, ch);
return (lex->tok.ttype = TOKEN_OPERATOR);
}
+ /* length operator */
+ if (ch == 'l') {
+ if ((nextch = lex_getch(lex)) == 'e') {
+ if ((nextch = lex_getch(lex)) == 'n') {
+ if ((nextch = lex_getch(lex)) == 'g') {
+ if ((nextch = lex_getch(lex)) == 't') {
+ if ((nextch = lex_getch(lex)) == 'h') {
+ lex_tokench(lex, 'l');
+ lex_tokench(lex, 'e');
+ lex_tokench(lex, 'n');
+ lex_tokench(lex, 'g');
+ lex_tokench(lex, 't');
+ lex_tokench(lex, 'h');
+ lex_endtoken(lex);
+ return (lex->tok.ttype = TOKEN_OPERATOR);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ } else lex_ungetch(lex, nextch);
+ }
+
if (isident_start(ch))
{
const char *v;