2014-06-18 03:25:07 -07:00
|
|
|
#ifndef __EO_LEXER_H__
|
|
|
|
#define __EO_LEXER_H__
|
|
|
|
|
|
|
|
#include <setjmp.h>
|
2014-02-11 05:42:59 -08:00
|
|
|
|
|
|
|
#include <Eina.h>
|
2014-02-17 04:05:52 -08:00
|
|
|
#include <Eolian.h>
|
2014-09-12 05:40:46 -07:00
|
|
|
|
|
|
|
#include "eolian_database.h"
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-07-15 02:09:50 -07:00
|
|
|
/* a token is an int, custom tokens start at this - single-char tokens are
|
|
|
|
* simply represented by their ascii */
|
2014-06-18 03:25:07 -07:00
|
|
|
#define START_CUSTOM 257
|
|
|
|
|
|
|
|
enum Tokens
|
|
|
|
{
|
2014-07-18 03:48:40 -07:00
|
|
|
TOK_EQ = START_CUSTOM, TOK_NQ, TOK_GE, TOK_LE,
|
2014-07-17 09:16:31 -07:00
|
|
|
TOK_AND, TOK_OR, TOK_LSH, TOK_RSH,
|
|
|
|
|
2014-08-07 07:15:07 -07:00
|
|
|
TOK_COMMENT, TOK_STRING, TOK_CHAR, TOK_NUMBER, TOK_VALUE
|
2014-06-18 03:25:07 -07:00
|
|
|
};
|
|
|
|
|
2014-07-15 02:09:50 -07:00
|
|
|
/* all keywords in eolian, they can still be used as names (they're TOK_VALUE)
|
|
|
|
* they just fill in the "kw" field of the token */
|
2014-08-11 06:56:50 -07:00
|
|
|
#define KEYWORDS KW(class), KW(const), KW(enum), KW(return), KW(struct), \
|
2014-06-26 04:02:19 -07:00
|
|
|
\
|
2014-09-01 07:35:50 -07:00
|
|
|
KW(abstract), KW(constructor), KW(constructors), KW(data), \
|
2014-11-27 09:20:21 -08:00
|
|
|
KW(destructor), KW(eo), KW(eo_prefix), KW(events), KW(free), \
|
2014-09-01 07:35:50 -07:00
|
|
|
KW(get), KW(implements), KW(interface), KW(keys), KW(legacy), \
|
|
|
|
KW(legacy_prefix), KW(methods), KW(mixin), KW(own), KW(params), \
|
|
|
|
KW(properties), KW(set), KW(type), KW(values), KW(var), KWAT(auto), \
|
2015-05-07 03:35:14 -07:00
|
|
|
KWAT(beta), KWAT(c_only), KWAT(class), KWAT(const), KWAT(const_get), \
|
|
|
|
KWAT(const_set), KWAT(empty), KWAT(extern), KWAT(free), KWAT(in), \
|
|
|
|
KWAT(inout), KWAT(nonull), KWAT(nullable), KWAT(optional), KWAT(out), \
|
|
|
|
KWAT(private), KWAT(property), KWAT(protected), KWAT(virtual), \
|
|
|
|
KWAT(warn_unused), \
|
2014-06-26 04:02:19 -07:00
|
|
|
\
|
2014-07-14 08:25:26 -07:00
|
|
|
KW(byte), KW(ubyte), KW(char), KW(short), KW(ushort), KW(int), KW(uint), \
|
2014-06-26 06:11:52 -07:00
|
|
|
KW(long), KW(ulong), KW(llong), KW(ullong), \
|
|
|
|
\
|
|
|
|
KW(int8), KW(uint8), KW(int16), KW(uint16), KW(int32), KW(uint32), \
|
|
|
|
KW(int64), KW(uint64), KW(int128), KW(uint128), \
|
|
|
|
\
|
2014-07-14 08:51:38 -07:00
|
|
|
KW(size), KW(ssize), KW(intptr), KW(uintptr), KW(ptrdiff), \
|
|
|
|
\
|
2014-07-14 09:02:58 -07:00
|
|
|
KW(time), \
|
|
|
|
\
|
2014-08-18 05:12:08 -07:00
|
|
|
KW(float), KW(double), \
|
2014-06-26 06:11:52 -07:00
|
|
|
\
|
2014-07-11 06:40:14 -07:00
|
|
|
KW(bool), \
|
|
|
|
\
|
|
|
|
KW(void), \
|
|
|
|
\
|
2014-09-08 06:52:49 -07:00
|
|
|
KW(accessor), KW(array), KW(iterator), KW(hash), KW(list), \
|
|
|
|
\
|
2014-07-11 06:40:14 -07:00
|
|
|
KW(true), KW(false), KW(null)
|
2014-06-18 03:25:07 -07:00
|
|
|
|
2014-07-15 02:09:50 -07:00
|
|
|
/* "regular" keyword and @ prefixed keyword */
|
2014-06-18 03:25:07 -07:00
|
|
|
#define KW(x) KW_##x
|
|
|
|
#define KWAT(x) KW_at_##x
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
enum Keywords
|
|
|
|
{
|
|
|
|
KW_UNKNOWN = 0,
|
2014-06-26 06:27:45 -07:00
|
|
|
KEYWORDS
|
2014-06-18 03:25:07 -07:00
|
|
|
};
|
|
|
|
|
|
|
|
#undef KW
|
|
|
|
#undef KWAT
|
|
|
|
|
2014-07-16 08:18:13 -07:00
|
|
|
enum Numbers
|
|
|
|
{
|
|
|
|
NUM_INT,
|
|
|
|
NUM_UINT,
|
|
|
|
NUM_LONG,
|
|
|
|
NUM_ULONG,
|
|
|
|
NUM_LLONG,
|
|
|
|
NUM_ULLONG,
|
|
|
|
NUM_FLOAT,
|
2014-08-18 05:12:08 -07:00
|
|
|
NUM_DOUBLE
|
2014-07-16 08:18:13 -07:00
|
|
|
};
|
|
|
|
|
2014-07-15 02:09:50 -07:00
|
|
|
/* a token - "token" is the actual token id, "value" is the value of a token
|
|
|
|
* if needed - NULL otherwise - for example the value of a TOK_VALUE, "kw"
|
|
|
|
* is the keyword id if this is a keyword, it's 0 when not a keyword */
|
2014-06-18 03:25:07 -07:00
|
|
|
typedef struct _Eo_Token
|
|
|
|
{
|
2014-07-16 08:18:13 -07:00
|
|
|
int token, kw;
|
2014-08-18 05:12:08 -07:00
|
|
|
Eolian_Value_Union value;
|
2014-06-18 03:25:07 -07:00
|
|
|
} Eo_Token;
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-07-22 07:27:11 -07:00
|
|
|
typedef struct _Lexer_Ctx
|
|
|
|
{
|
|
|
|
int line, column;
|
|
|
|
const char *linestr;
|
|
|
|
} Lexer_Ctx;
|
|
|
|
|
2014-09-12 05:40:46 -07:00
|
|
|
typedef struct _Eo_Lexer_Temps
|
|
|
|
{
|
|
|
|
Eolian_Class *kls;
|
2014-09-12 07:01:10 -07:00
|
|
|
Eolian_Variable *var;
|
2014-09-12 05:40:46 -07:00
|
|
|
Eina_List *classes;
|
|
|
|
Eina_List *str_bufs;
|
|
|
|
Eina_List *type_defs;
|
|
|
|
Eina_List *expr_defs;
|
|
|
|
Eina_List *strs;
|
|
|
|
} Eo_Lexer_Temps;
|
|
|
|
|
2014-07-15 02:09:50 -07:00
|
|
|
/* keeps all lexer state */
|
2014-06-18 03:25:07 -07:00
|
|
|
typedef struct _Eo_Lexer
|
2014-02-11 05:42:59 -08:00
|
|
|
{
|
2014-07-15 02:09:50 -07:00
|
|
|
/* current character being tested */
|
2014-06-18 03:25:07 -07:00
|
|
|
int current;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* column is token aware column number, for example when lexing a keyword
|
|
|
|
* it points to the beginning of it after the lexing is done, icolumn is
|
|
|
|
* token unaware, always pointing to current column */
|
2014-07-02 16:14:28 -07:00
|
|
|
int column, icolumn;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* the current line number */
|
2014-06-18 03:25:07 -07:00
|
|
|
int line_number;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* t: "normal" - token to lex into, "lookahead" - a lookahead token, used
|
|
|
|
* to look one token past "t", when we need to check for a token after the
|
|
|
|
* current one and use it in a conditional without consuming the current
|
|
|
|
* token - used in pretty few cases - because we have one extra lookahead
|
|
|
|
* token, that makes our grammar LL(2) - two tokens in total */
|
2014-06-18 03:25:07 -07:00
|
|
|
Eo_Token t, lookahead;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* a string buffer used to keep contents of token currently being read,
|
|
|
|
* if needed at all */
|
2014-06-18 03:25:07 -07:00
|
|
|
Eina_Strbuf *buff;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* a handle pointing to a memory mapped file representing the file we're
|
|
|
|
* currently lexing */
|
2014-06-18 03:25:07 -07:00
|
|
|
Eina_File *handle;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* the source file name */
|
2014-06-18 03:25:07 -07:00
|
|
|
const char *source;
|
2014-08-08 07:19:52 -07:00
|
|
|
/* only basename */
|
|
|
|
const char *filename;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* points to the current character in our mmapped file being lexed, just
|
|
|
|
* incremented until the end */
|
2014-06-18 03:25:07 -07:00
|
|
|
const char *stream;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* end pointer - required to check if we've reached past the file, as
|
|
|
|
* mmapped data will give us no EOF */
|
2014-06-20 02:45:55 -07:00
|
|
|
const char *stream_end;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* points to the current line being lexed, used by error messages to
|
|
|
|
* display the current line with a caret at the respective column */
|
2014-07-02 16:30:39 -07:00
|
|
|
const char *stream_line;
|
2014-07-15 02:09:50 -07:00
|
|
|
/* this is jumped to when an error happens */
|
2014-06-18 03:25:07 -07:00
|
|
|
jmp_buf err_jmp;
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-08-08 03:32:07 -07:00
|
|
|
/* whether we allow lexing expression related tokens */
|
|
|
|
Eina_Bool expr_mode;
|
|
|
|
|
2014-07-22 07:27:11 -07:00
|
|
|
/* saved context info */
|
|
|
|
Eina_List *saved_ctxs;
|
|
|
|
|
2014-07-15 02:09:50 -07:00
|
|
|
/* represents the temporaries, every object that is allocated by the
|
|
|
|
* parser is temporarily put here so the resources can be reclaimed in
|
|
|
|
* case of error - and it's nulled when it's written into a more permanent
|
|
|
|
* position (e.g. as part of another struct, or into nodes */
|
2014-09-11 03:48:38 -07:00
|
|
|
Eo_Lexer_Temps tmp;
|
2014-06-18 02:08:43 -07:00
|
|
|
} Eo_Lexer;
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-20 07:31:45 -07:00
|
|
|
int eo_lexer_init (void);
|
|
|
|
int eo_lexer_shutdown (void);
|
|
|
|
Eo_Lexer *eo_lexer_new (const char *source);
|
|
|
|
void eo_lexer_free (Eo_Lexer *ls);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* gets a regular token, singlechar or one of TOK_something */
|
2014-06-20 07:31:45 -07:00
|
|
|
int eo_lexer_get (Eo_Lexer *ls);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* lookahead token - see Eo_Lexer */
|
2014-06-20 07:31:45 -07:00
|
|
|
int eo_lexer_lookahead (Eo_Lexer *ls);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* "throws" an error, with a custom message and custom token */
|
2014-06-20 07:31:45 -07:00
|
|
|
void eo_lexer_lex_error (Eo_Lexer *ls, const char *msg, int token);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* like above, but uses the lexstate->t.token, aka current token */
|
2014-06-20 07:31:45 -07:00
|
|
|
void eo_lexer_syntax_error (Eo_Lexer *ls, const char *msg);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* turns the token into a string, writes into the given buffer */
|
2014-06-20 07:31:45 -07:00
|
|
|
void eo_lexer_token_to_str (int token, char *buf);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* returns the string representation of a keyword */
|
2014-06-20 07:31:45 -07:00
|
|
|
const char *eo_lexer_keyword_str_get(int kw);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* checks if the given keyword is a builtin type */
|
2014-06-26 04:02:19 -07:00
|
|
|
Eina_Bool eo_lexer_is_type_keyword(int kw);
|
2014-08-07 07:15:07 -07:00
|
|
|
/* gets a keyword id from the keyword string */
|
|
|
|
int eo_lexer_keyword_str_to_id(const char *kw);
|
2014-07-15 02:09:50 -07:00
|
|
|
/* gets the C type name for a builtin type name - e.g. uchar -> unsigned char */
|
2014-06-26 04:02:19 -07:00
|
|
|
const char *eo_lexer_get_c_type (int kw);
|
2014-07-22 07:27:11 -07:00
|
|
|
/* save, restore and clear context (line, column, line string) */
|
|
|
|
void eo_lexer_context_push (Eo_Lexer *ls);
|
|
|
|
void eo_lexer_context_pop (Eo_Lexer *ls);
|
|
|
|
void eo_lexer_context_restore(Eo_Lexer *ls);
|
|
|
|
void eo_lexer_context_clear (Eo_Lexer *ls);
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
extern int _eo_lexer_log_dom;
|
|
|
|
#ifdef CRITICAL
|
|
|
|
#undef CRITICAL
|
|
|
|
#endif
|
|
|
|
#define CRITICAL(...) EINA_LOG_DOM_CRIT(_eo_lexer_log_dom, __VA_ARGS__)
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
#ifdef ERR
|
|
|
|
#undef ERR
|
|
|
|
#endif
|
|
|
|
#define ERR(...) EINA_LOG_DOM_ERR(_eo_lexer_log_dom, __VA_ARGS__)
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
#ifdef WRN
|
|
|
|
#undef WRN
|
|
|
|
#endif
|
|
|
|
#define WRN(...) EINA_LOG_DOM_WARN(_eo_lexer_log_dom, __VA_ARGS__)
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
#define INF_ENABLED EINA_FALSE
|
|
|
|
#ifdef INF
|
|
|
|
#undef INF
|
|
|
|
#endif
|
|
|
|
#define INF(...) if (INF_ENABLED) EINA_LOG_DOM_INFO(_eo_lexer_log_dom, __VA_ARGS__)
|
2014-02-11 05:42:59 -08:00
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
#define DBG_ENABLED EINA_FALSE
|
|
|
|
#ifdef DBG
|
|
|
|
#undef DBG
|
|
|
|
#endif
|
|
|
|
#define DBG(...) if (DBG_ENABLED) EINA_LOG_DOM_DBG(_eo_lexer_log_dom, __VA_ARGS__)
|
2014-02-11 05:42:59 -08:00
|
|
|
|
|
|
|
|
2014-06-18 03:25:07 -07:00
|
|
|
#endif /* __EO_LEXER_H__ */
|