egg_lang.c File Reference

#include <rz_egg.h>

Go to the source code of this file.

Macros
#define	CTX   egg->context
#define	SYNTAX_ATT   0
#define	FRAME_FMT   "__%d_%d_frame%d"
#define	FRAME_END_FMT   "__%d_%d_end_frame%d"

Enumerations
enum	{   NORMAL = 0 , ALIAS , INCLUDE , DATA ,   INLINE , NAKED , SYSCALL , SYSCALLBODY ,   GOTO , LAST }

Functions
static int	is_var (char *x)
static int	is_space (char c)
static const char *	skipspaces (const char *s)
static int	is_op (char x)
static int	get_op (char **pos)
static char *	trim (char *s)
static void	rcc_pushstr (RzEgg *egg, char *str, int filter)
static void	rcc_context (RzEgg *egg, int delta)
static char *	find_include (const char *prefix, const char *file)
RZ_API void	rz_egg_lang_init (RzEgg *egg)
RZ_API void	rz_egg_lang_free (RzEgg *egg)
RZ_API void	rz_egg_lang_include_path (RzEgg *egg, const char *path)
RZ_API void	rz_egg_lang_include_init (RzEgg *egg)
static void	rcc_set_callname (RzEgg *egg, const char *s)
static void	rcc_reset_callname (RzEgg *egg)
static const char *	find_alias (RzEgg *egg, const char *str)
static void	rcc_internal_mathop (RzEgg *egg, const char *ptr, char *ep, char op)
static void	rcc_mathop (RzEgg *egg, char **pos, int level)
static void	rcc_pusharg (RzEgg *egg, char *str)
static void	rcc_element (RzEgg *egg, char *str)
RZ_API char *	rz_egg_mkvar (RzEgg *egg, char *out, const char *_str, int delta)
static void	rcc_fun (RzEgg *egg, const char *str)
static void	set_nested (RzEgg *egg, const char *s)
static int	parsedatachar (RzEgg *egg, char c)
static int	parseinlinechar (RzEgg *egg, char c)
static void	rcc_next (RzEgg *egg)
RZ_API int	rz_egg_lang_parsechar (RzEgg *egg, char c)

Macro Definition Documentation

CTX

#define CTX   egg->context

Definition at line 6 of file egg_lang.c.

FRAME_END_FMT

#define FRAME_END_FMT   "__%d_%d_end_frame%d"

Definition at line 190 of file egg_lang.c.

FRAME_FMT

#define FRAME_FMT   "__%d_%d_frame%d"

Definition at line 189 of file egg_lang.c.

SYNTAX_ATT

#define SYNTAX_ATT   0

Definition at line 184 of file egg_lang.c.

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
NORMAL
ALIAS
INCLUDE
DATA
INLINE
NAKED
SYSCALL
SYSCALLBODY
GOTO
LAST

Definition at line 62 of file egg_lang.c.

     {
    NORMAL = 0,
    ALIAS,
    INCLUDE,
    DATA,
    INLINE,
    NAKED,
    SYSCALL,
    SYSCALLBODY,
    GOTO,
    LAST
};

Function Documentation

find_alias()

static const char* find_alias ( RzEgg *  egg, const char *  str  )

static

Definition at line 222 of file egg_lang.c.

                                                           {
    // do not forget to free return strings to avoid memory leak
    char *p = (char *)str;
    int i;
    if (*str == '"') {
        return strdup(str);
    }
    // strings could not means aliases
    while (*p && !is_space(*p)) {
        p++;
    }
    *p = '\x00';
    for (i = 0; i < egg->lang.nalias; i++) {
        if (!strcmp(str, egg->lang.aliases[i].name)) {
            return strdup(egg->lang.aliases[i].content);
        }
    }
    return NULL;
    // only strings or alias could return valuable data
}

References rz_egg_lang_t::aliases, rz_egg_lang_t::content, i, is_space(), rz_egg_t::lang, rz_egg_lang_t::nalias, rz_egg_lang_t::name, NULL, p, cmd_descs_generate::str, and strdup().

Referenced by rcc_element().

find_include()

static char* find_include ( const char *  prefix, const char *  file  )

static

Definition at line 75 of file egg_lang.c.

                                                                {
    char *pfx = NULL, *ret = NULL, *env = rz_sys_getenv(RZ_EGG_INCDIR_ENV);
    if (!prefix) {
        prefix = "";
    }
    if (*prefix == '$') {
        char *out = rz_sys_getenv(prefix + 1);
        pfx = out ? out : strdup("");
    } else {
        pfx = strdup(prefix);
        if (!pfx) {
            free(env);
            return NULL;
        }
    }
 
    if (env) {
        char *str, *ptr = strchr(env, ':');
        // eprintf ("MUST FIND IN PATH (%s)\n", env);
        str = env;
        while (str) {
            if (ptr) {
                *ptr = 0;
            }
            free(ret);
            ret = rz_str_appendf(NULL, "%s/%s", pfx, file);
            {
                char *filepath = rz_str_appendf(NULL, "%s/%s/%s", str, pfx, file);
                // eprintf ("try (%s)\n", filepath);
                if (rz_file_exists(filepath)) {
                    free(env);
                    free(pfx);
                    free(ret);
                    return filepath;
                }
                free(filepath);
            }
            if (!ptr) {
                break;
            }
            str = ptr + 1;
            ptr = strchr(str, ':');
        }
        free(env);
    } else {
        ret = rz_str_appendf(NULL, "%s/%s", pfx, file);
    }
    free(pfx);
    return ret;
}

References env, free(), NULL, out, prefix, RZ_EGG_INCDIR_ENV, rz_file_exists(), rz_str_appendf(), rz_sys_getenv(), cmd_descs_generate::str, and strdup().

Referenced by rcc_next().

get_op()

static int get_op ( char **  pos )

inlinestatic

Definition at line 40 of file egg_lang.c.

                                     {
    while (**pos && !(is_op(**pos) && !is_var(*pos))) {
        (*pos)++;
    }
    return (**pos) ? ((is_op(**pos)) + 1) : 0;
}

References is_op(), is_var(), and pos.

Referenced by rcc_internal_mathop(), and rcc_mathop().

is_op()

static int is_op ( char  x )

inlinestatic

Definition at line 23 of file egg_lang.c.

                                {
    switch (x) {
    case '-':
    case '+':
        return 1;
    case '*':
    case '/':
        return 2;
    case '^':
    case '|':
    case '&':
        return 3;
    default:
        return 0;
    }
}

References x.

Referenced by get_op(), and rcc_mathop().

is_space()

static int is_space ( char  c )

inlinestatic

Definition at line 12 of file egg_lang.c.

                                   {
    return c == ' ' || c == '\t' || c == '\n' || c == '\r';
}

References c.

Referenced by find_alias(), parsedatachar(), rcc_fun(), rcc_internal_mathop(), rcc_mathop(), rz_egg_lang_parsechar(), skipspaces(), and trim().

is_var()

static int is_var ( char *  x )

inlinestatic

Definition at line 8 of file egg_lang.c.

                                  {
    return x[0] == '.' || ((x[0] == '*' || x[0] == '&') && x[1] == '.');
}

References x.

Referenced by ds_show_functions(), ds_show_functions_argvar(), get_op(), rcc_internal_mathop(), rcc_mathop(), and rcc_next().

parsedatachar()

static int parsedatachar ( RzEgg *  egg, char  c  )

static

Definition at line 870 of file egg_lang.c.

                                             {
    char *str;
    int i, j;
 
    if (!egg->lang.dstval) {
        return 0;
    }
    /* skip until '{' */
    if (c == '{') { /* XXX: repeated code!! */
        rcc_context(egg, 1);
        if (++(egg->lang.inlinectr) == 1) {
            return egg->lang.ndstval = 0;
        }
    } else if (egg->lang.inlinectr == 0) {
        /* capture value between parenthesis foo@data(NNN) { ... } */
        if (c == ')') {
            egg->lang.stackframe = atoi(egg->lang.dstval);
            egg->lang.ndstval = 0;
        } else {
            egg->lang.dstval[egg->lang.ndstval++] = c;
        }
        return 0;
    }
    /* capture body */
    if (c == '}') { /* XXX: repeated code!! */
        if (CTX < 2) {
            egg->lang.inlinectr = 0;
            rcc_context(egg, -1);
            egg->lang.slurp = 0;
            egg->lang.mode = NORMAL;
            /* register */
            if (egg->lang.dstval && egg->lang.dstvar) {
                egg->lang.dstval[egg->lang.ndstval] = '\0';
                egg->remit->comment(egg, "data (%s)(%s)size=(%d)\n",
                    egg->lang.dstvar, egg->lang.dstval, egg->lang.stackframe);
                rz_egg_printf(egg, ".data\n");
                for (str = egg->lang.dstval; is_space(*str); str++) {
                    ;
                }
                j = (egg->lang.stackframe) ? egg->lang.stackframe : 1;
                /* emit label */
                rz_egg_printf(egg, "%s:\n", egg->lang.dstvar);
                for (i = 1; i <= j; i++) {
                    if (*str == '"') {
                        rz_egg_printf(egg, ".ascii %s%s\n", egg->lang.dstval, (i == j) ? "\"\\x00\"" : "");
                    } else {
                        rz_egg_printf(egg, ".long %s\n", egg->lang.dstval);
                    }
                }
                rz_egg_printf(egg, ".text\n");
                RZ_FREE(egg->lang.dstvar);
                RZ_FREE(egg->lang.dstval);
                egg->lang.ndstval = 0;
                CTX = 0;
                return 1;
            }
        }
    }
    if (egg->lang.dstval) {
        egg->lang.dstval[egg->lang.ndstval++] = c;
    }
    return 0;
}

References c, rz_egg_emit_t::comment, CTX, rz_egg_lang_t::dstval, rz_egg_lang_t::dstvar, i, rz_egg_lang_t::inlinectr, is_space(), rz_egg_t::lang, rz_egg_lang_t::mode, rz_egg_lang_t::ndstval, NORMAL, rcc_context(), rz_egg_t::remit, rz_egg_printf(), RZ_FREE, rz_egg_lang_t::slurp, rz_egg_lang_t::stackframe, and cmd_descs_generate::str.

Referenced by rz_egg_lang_parsechar().

parseinlinechar()

static int parseinlinechar ( RzEgg *  egg, char  c  )

static

Definition at line 934 of file egg_lang.c.

                                               {
    /* skip until '{' */
    if (c == '{') { /* XXX: repeated code!! */
        rcc_context(egg, 1);
        egg->lang.inlinectr++;
        if (egg->lang.inlinectr == 1) {
            return 0;
        }
    } else if (egg->lang.inlinectr == 0) {
        return 0;
    }
 
    /* capture body */
    if (c == '}') { /* XXX: repeated code!! */
        if (CTX < 2) {
            rcc_context(egg, -1);
            egg->lang.slurp = 0;
            egg->lang.mode = NORMAL;
            egg->lang.inlinectr = 0;
            if (!egg->lang.dstvar && egg->lang.dstval == egg->lang.syscallbody) {
                egg->lang.dstval = NULL;
                return 1;
            } else /* register */
                if (egg->lang.dstval && egg->lang.dstvar) {
                    egg->lang.dstval[egg->lang.ndstval] = '\0';
                    // printf(" /* END OF INLINE (%s)(%s) */\n", egg->lang.dstvar, egg->lang.dstval);
                    egg->lang.inlines[egg->lang.ninlines].name = strdup(skipspaces(egg->lang.dstvar));
                    egg->lang.inlines[egg->lang.ninlines].body = strdup(skipspaces(egg->lang.dstval));
                    egg->lang.ninlines++;
                    RZ_FREE(egg->lang.dstvar);
                    RZ_FREE(egg->lang.dstval);
                    return 1;
                }
            eprintf("Parse error\n");
        }
    }
    if (egg->lang.dstval) {
        egg->lang.dstval[egg->lang.ndstval++] = c;
        egg->lang.dstval[egg->lang.ndstval] = 0;
    }
    return 0;
}

References rz_egg_lang_t::body, c, CTX, rz_egg_lang_t::dstval, rz_egg_lang_t::dstvar, eprintf, rz_egg_lang_t::inlinectr, rz_egg_lang_t::inlines, rz_egg_t::lang, rz_egg_lang_t::mode, rz_egg_lang_t::name, rz_egg_lang_t::ndstval, rz_egg_lang_t::ninlines, NORMAL, NULL, rcc_context(), RZ_FREE, skipspaces(), rz_egg_lang_t::slurp, strdup(), and rz_egg_lang_t::syscallbody.

Referenced by rz_egg_lang_parsechar().

rcc_context()

static void rcc_context ( RzEgg *  egg, int  delta  )

static

Definition at line 764 of file egg_lang.c.

                                               {
    RzEggEmit *emit = egg->remit;
    char str[64];
 
    if (CTX > 31 || CTX < 0) {
        return;
    }
 
    if (delta > 0) {
        egg->lang.nestedi[CTX]++;
        RZ_FREE(egg->lang.nested_callname[CTX]);
        if (egg->lang.callname) {
            egg->lang.nested_callname[CTX] = strdup(egg->lang.callname);
        }
    }
    if (egg->lang.callname && CTX > 0) { // && delta>0) {
        // set_nested (callname);
        // eprintf (" - - - - - - -  set nested d=%d c=%d (%s)\n", delta, context-1, callname);
        // shownested();
    }
    CTX += delta;
    egg->lang.lastctxdelta = delta;
 
    if (CTX == 0 && delta < 0) {
        if (egg->lang.mode != NAKED) {
            emit->frame_end(egg, egg->lang.stackframe + egg->lang.stackfixed, egg->lang.nbrackets);
        }
        if (egg->lang.mode == NORMAL) { /* XXX : commenting this makes hello.r unhappy! TODO: find a cleaner alternative */
            egg->lang.stackframe = 0;
        }
        egg->lang.mode = NORMAL;
    } else {
        /* conditional block */
        // eprintf ("Callname is (%s)\n", callname);
        const char *elm = skipspaces(egg->lang.elem);
        // const char *cn = callname;
        // seems cn is useless in nowadays content
// if (egg->lang.nested[context-1])
#if 0
        if (delta < 0 && context > 0) {
            eprintf ("close bracket foo!!!\n");
            shownested ();
            cn = strdup (egg->lang.nested[context - 1]);
            eprintf ("STATEMENT cn=(%s) idx=%d (%s)\n", cn, context - 1, egg->lang.nested[context - 1]);
            eprintf ("CNTXXXPUSH (%s)\n", egg->lang.ctxpush[context - 1]);
#if 0
            if (!strcmp (cn, "while")) {
                emit->while_end (egg, get_frame_label (context - 1));
                // char *var = get_frame_label (0);
                // emit->jmp (egg, var, 0);
                return;
            }
#endif
        }
#endif
        // eprintf ("ELEM (%s)\n", elm);
        // eprintf ("END BLOCK %d, (%s)\n", context, egg->lang.nested[context-1]);
        // eprintf ("CN = (%s) %d (%s) delta=%d\n", cn, context, egg->lang.nested[context-1], delta);
        if (egg->lang.callname) {
            /* TODO: this must be an array */
            char *b, *g, *e, *n;
            emit->comment(egg, "cond frame %s (%s)", egg->lang.callname, elm);
            /* TODO: simplify with a single for */
            if (egg->lang.conditionstr) {
                b = strchr(egg->lang.conditionstr, '<'); /* below */
                g = strchr(egg->lang.conditionstr, '>'); /* greater */
                e = strchr(egg->lang.conditionstr, '='); /* equal */
                n = strchr(egg->lang.conditionstr, '!'); /* negate */
            } else {
                b = g = e = n = NULL;
            }
            if (!strcmp(egg->lang.callname, "while")) {
                char lab[128];
                sprintf(lab, "__begin_%d_%d_%d", egg->lang.nfunctions,
                    CTX - 1, egg->lang.nestedi[CTX - 1] - 1);
                // the egg->lang.nestedi[CTX-1] has increased
                // so we should decrease it in label
                emit->get_while_end(egg, str, egg->lang.ctxpush[CTX - 1], lab); // get_frame_label (2));
                // get_frame_label (2));
                // eprintf ("------ (%s)\n", egg->lang.ctxpush[context-1]);
                // free (egg->lang.endframe);
                // XXX: egg->lang.endframe is deprecated, must use set_nested only
                if (delta > 0) {
                    set_nested(egg, str);
                }
                rcc_set_callname(egg, "if"); // append 'if' body
            }
            if (!strcmp(egg->lang.callname, "if")) {
                // emit->branch (egg, b, g, e, n, egg->lang.varsize, get_end_frame_label (egg));
                // HACK HACK :D
                // sprintf (str, "__end_%d_%d_%d", egg->lang.nfunctions,
                // CTX-1, egg->lang.nestedi[CTX-1]);
                // nestede[CTX-1] = strdup (str);
                // where give nestede value
                sprintf(str, "__end_%d_%d_%d", egg->lang.nfunctions, CTX - 1, egg->lang.nestedi[CTX - 1] - 1);
                emit->branch(egg, b, g, e, n, egg->lang.varsize, str);
                if (CTX > 0) {
                    /* XXX .. */
                }
                rcc_reset_callname(egg);
                RZ_FREE(egg->lang.conditionstr);
            } // else eprintf ("Unknown statement (%s)(%s)\n", cn, elem);
        } // handle '{ ..'
    }
}

References b, rz_egg_lang_t::callname, rz_egg_lang_t::conditionstr, CTX, rz_egg_lang_t::ctxpush, delta, e, rz_egg_lang_t::elem, emit, eprintf, g, rz_egg_t::lang, rz_egg_lang_t::lastctxdelta, rz_egg_lang_t::mode, n, NAKED, rz_egg_lang_t::nbrackets, rz_egg_lang_t::nested, rz_egg_lang_t::nested_callname, rz_egg_lang_t::nestedi, rz_egg_lang_t::nfunctions, NORMAL, NULL, rcc_reset_callname(), rcc_set_callname(), rz_egg_t::remit, RZ_FREE, set_nested(), skipspaces(), sprintf, rz_egg_lang_t::stackfixed, rz_egg_lang_t::stackframe, cmd_descs_generate::str, strdup(), and rz_egg_lang_t::varsize.

Referenced by parsedatachar(), parseinlinechar(), and rz_egg_lang_parsechar().

rcc_element()

static void rcc_element ( RzEgg *  egg, char *  str  )

static

Definition at line 345 of file egg_lang.c.

                                               {
    if (!egg || !str) {
        return;
    }
    RzEggEmit *e = egg->remit;
    char *ptr, *p = str + strlen(str);
    int inside = 0;
    int num, num2;
    int i;
 
    if (CTX) {
        if (egg->lang.slurp == '"') {
            if (egg->lang.mode == NORMAL) {
                if (!egg->lang.dstvar) {
                    egg->lang.dstvar = strdup(".fix0");
                }
                rcc_pushstr(egg, str, 1);
            }
        } else {
            if (egg->lang.callname) {
                if (strstr(egg->lang.callname, "while") || strstr(egg->lang.callname, "if")) {
                    egg->lang.conditionstr = strdup(str);
                }
            }
            egg->lang.nargs = 0;
            if (egg->lang.mode == GOTO) {
                egg->lang.mode = NORMAL; // XXX
            }
            while (p-- != str) {
                if (*p == '"') {
                    inside ^= 1;
                } else if (*p == ',' && !inside) {
                    *p = '\0';
                    p = (char *)skipspaces(p + 1);
                    rcc_pusharg(egg, p);
                }
            }
            rcc_pusharg(egg, str);
        }
    } else {
        switch (egg->lang.mode) {
        case ALIAS:
            if (!egg->lang.dstvar) {
                eprintf("does not set name or content for alias\n");
                break;
            }
            e->equ(egg, egg->lang.dstvar, str);
            if (egg->lang.nalias > 255) {
                eprintf("global-buffer-overflow in aliases\n");
                break;
            }
            for (i = 0; i < egg->lang.nalias; i++) {
                if (!strcmp(egg->lang.dstvar, egg->lang.aliases[i].name)) {
                    RZ_FREE(egg->lang.aliases[i].name);
                    RZ_FREE(egg->lang.aliases[i].content);
                    break;
                }
            }
            egg->lang.aliases[i].name = strdup(egg->lang.dstvar);
            egg->lang.aliases[i].content = strdup(str);
            egg->lang.nalias = (i == egg->lang.nalias) ? (egg->lang.nalias + 1) : egg->lang.nalias;
            // allow alias overwrite
            RZ_FREE(egg->lang.dstvar);
            egg->lang.mode = NORMAL;
            break;
        case SYSCALL:
            if (!egg->lang.dstvar) {
                eprintf("does not set name or arg for syscall\n");
                break;
            }
            if (egg->lang.nsyscalls > 255) {
                eprintf("global-buffer-overflow in syscalls\n");
                break;
            }
            {
                bool found = false;
                int idx = egg->lang.nsyscalls;
                for (i = 0; i < egg->lang.nsyscalls; i++) {
                    if (!strcmp(egg->lang.dstvar, egg->lang.syscalls[i].name)) {
                        idx = i;
                        found = true;
                        break;
                    }
                }
                // XXX the mem for name and arg are not freed - MEMLEAK
                RZ_FREE(egg->lang.syscalls[idx].name);
                RZ_FREE(egg->lang.syscalls[idx].arg);
                egg->lang.syscalls[idx].name = strdup(egg->lang.dstvar);
                egg->lang.syscalls[idx].arg = strdup(str);
                if (!found) {
                    egg->lang.nsyscalls++;
                }
                RZ_FREE(egg->lang.dstvar);
            }
            break;
        case GOTO:
            egg->lang.elem[egg->lang.elem_n] = 0;
            e->jmp(egg, egg->lang.elem, 0);
            break;
        case INCLUDE:
            str = ptr = (char *)find_alias(egg, skipspaces(str));
            if (ptr) {
                if (strchr(ptr, '"')) {
                    ptr = strchr(ptr, '"') + 1;
                    if ((p = strchr(ptr, '"'))) {
                        *p = '\x00';
                    } else {
                        eprintf("loss back quote in include directory\n");
                    }
                    egg->lang.includedir = strdup(ptr);
                } else {
                    eprintf("wrong include syntax\n");
                    // for must use string to symbolize directory
                    egg->lang.includedir = NULL;
                }
            } else {
                egg->lang.includedir = NULL;
            }
            RZ_FREE(str);
            break;
        default:
            p = strchr(str, ',');
            if (p) {
                *p = '\0';
                num2 = atoi(p + 1);
            } else {
                num2 = 0;
            }
            num = atoi(str) + num2;
            egg->lang.stackframe = num;
            egg->lang.stackfixed = num2;
            if (egg->lang.mode != NAKED) {
                e->frame(egg, egg->lang.stackframe + egg->lang.stackfixed);
            }
        }
        egg->lang.elem[0] = 0;
        egg->lang.elem_n = 0;
    }
}

References ALIAS, rz_egg_lang_t::aliases, rz_egg_lang_t::arg, rz_egg_lang_t::callname, rz_egg_lang_t::conditionstr, rz_egg_lang_t::content, CTX, rz_egg_lang_t::dstvar, e, rz_egg_lang_t::elem, rz_egg_lang_t::elem_n, eprintf, find_alias(), found, GOTO, i, setup::idx, INCLUDE, rz_egg_lang_t::includedir, rz_egg_t::lang, rz_egg_lang_t::mode, NAKED, rz_egg_lang_t::nalias, rz_egg_lang_t::name, rz_egg_lang_t::nargs, NORMAL, rz_egg_lang_t::nsyscalls, NULL, num, p, rcc_pusharg(), rcc_pushstr(), rz_egg_t::remit, RZ_FREE, skipspaces(), rz_egg_lang_t::slurp, rz_egg_lang_t::stackfixed, rz_egg_lang_t::stackframe, cmd_descs_generate::str, strdup(), SYSCALL, and rz_egg_lang_t::syscalls.

Referenced by rz_egg_lang_parsechar().

rcc_fun()

static void rcc_fun ( RzEgg *  egg, const char *  str  )

static

Definition at line 634 of file egg_lang.c.

                                                 {
    char *ptr, *ptr2;
    RzEggEmit *e = egg->remit;
    str = skipspaces(str);
    if (CTX) {
        ptr = strchr(str, '=');
        if (ptr) {
            *ptr++ = '\0';
            free(egg->lang.dstvar);
            egg->lang.dstvar = strdup(skipspaces(str));
            ptr2 = (char *)skipspaces(ptr);
            if (*ptr2) {
                rcc_set_callname(egg, skipspaces(ptr));
            }
        } else {
            str = skipspaces(str);
            rcc_set_callname(egg, skipspaces(str));
            egg->remit->comment(egg, "rcc_fun %d (%s)",
                CTX, egg->lang.callname);
        }
    } else {
        ptr = strchr(str, '@');
        if (ptr) {
            *ptr++ = '\0';
            egg->lang.mode = NORMAL;
            if (strstr(ptr, "env")) {
                // eprintf ("SETENV (%s)\n", str);
                free(egg->lang.setenviron);
                egg->lang.setenviron = strdup(skipspaces(str));
                egg->lang.slurp = 0;
            } else if (strstr(ptr, "fastcall")) {
                /* TODO : not yet implemented */
            } else if (strstr(ptr, "syscall")) {
                if (*str) {
                    egg->lang.mode = SYSCALL;
                    egg->lang.dstvar = strdup(skipspaces(str));
                } else {
                    egg->lang.mode = INLINE;
                    free(egg->lang.syscallbody);
                    egg->lang.syscallbody = malloc(4096); // XXX hardcoded size
                    egg->lang.dstval = egg->lang.syscallbody;
                    RZ_FREE(egg->lang.dstvar);
                    egg->lang.ndstval = 0;
                    *egg->lang.syscallbody = '\0';
                }
            } else if (strstr(ptr, "include")) {
                egg->lang.mode = INCLUDE;
                free(egg->lang.includefile);
                egg->lang.includefile = strdup(skipspaces(str));
                // egg->lang.slurp = 0;
                // try to deal with alias
            } else if (strstr(ptr, "alias")) {
                egg->lang.mode = ALIAS;
                ptr2 = egg->lang.dstvar = strdup(skipspaces(str));
                while (*ptr2 && !is_space(*ptr2)) {
                    ptr2++;
                }
                *ptr2 = '\x00';
                // for aliases must be valid and accurate strings
            } else if (strstr(ptr, "data")) {
                egg->lang.mode = DATA;
                egg->lang.ndstval = 0;
                egg->lang.dstvar = strdup(skipspaces(str));
                egg->lang.dstval = malloc(4096);
            } else if (strstr(ptr, "naked")) {
                egg->lang.mode = NAKED;
                /*
                free (egg->lang.dstvar);
                egg->lang.dstvar = strdup (skipspaces (str));
                egg->lang.dstval = malloc (4096);
                egg->lang.ndstval = 0;
                */
                rz_egg_printf(egg, "%s:\n", str);
            } else if (strstr(ptr, "inline")) {
                egg->lang.mode = INLINE;
                free(egg->lang.dstvar);
                egg->lang.dstvar = strdup(skipspaces(str));
                egg->lang.dstval = malloc(4096);
                egg->lang.ndstval = 0;
            } else {
                // naked label
                if (*ptr) {
                    rz_egg_printf(egg, "\n.%s %s\n", ptr, str);
                }
                rz_egg_printf(egg, "%s:\n", str);
            }
        } else {
            // e->jmp (egg, egg->lang.ctxpush[context], 0);
            if (CTX > 0) {
                eprintf("LABEL %d\n", CTX);
                rz_egg_printf(egg, "\n%s:\n", str);
            } else {
                if (!strcmp(str, "goto")) {
                    egg->lang.mode = GOTO;
                } else {
                    // call() // or maybe jmp?
                    e->call(egg, str, 0);
                }
            }
        }
    }
}

References ALIAS, rz_egg_lang_t::callname, rz_egg_emit_t::comment, CTX, DATA, rz_egg_lang_t::dstval, rz_egg_lang_t::dstvar, e, eprintf, free(), GOTO, INCLUDE, rz_egg_lang_t::includefile, INLINE, is_space(), rz_egg_t::lang, malloc(), rz_egg_lang_t::mode, NAKED, rz_egg_lang_t::ndstval, NORMAL, rcc_set_callname(), rz_egg_t::remit, rz_egg_printf(), RZ_FREE, rz_egg_lang_t::setenviron, skipspaces(), rz_egg_lang_t::slurp, cmd_descs_generate::str, strdup(), SYSCALL, and rz_egg_lang_t::syscallbody.

Referenced by rz_egg_lang_parsechar().

rcc_internal_mathop()

static void rcc_internal_mathop ( RzEgg *  egg, const char *  ptr, char *  ep, char  op  )

static

Definition at line 243 of file egg_lang.c.

                                                                                {
    char *p, *q, *oldp; // avoid mem leak
    char type = ' ';
    char buf[64]; // may cause stack overflow
    oldp = p = q = strdup(ptr);
    if (get_op(&q)) {
        *q = '\x00';
    }
    RzEggEmit *e = egg->remit;
    while (*p && is_space(*p)) {
        p++;
    }
    if (is_var(p)) {
        p = rz_egg_mkvar(egg, buf, p, 0);
        if (egg->lang.varxs == '*') {
            e->load(egg, p, egg->lang.varsize);
            RZ_FREE(oldp);
            oldp = p = strdup(e->regs(egg, 0));
            // XXX: which will go wrong in arm
            // for reg used in emit.load in arm is r7 not r0
        } else if (egg->lang.varxs == '&') {
            e->load_ptr(egg, p);
            RZ_FREE(oldp);
            oldp = p = strdup(e->regs(egg, 0));
        }
        type = ' ';
    } else {
        type = '$';
    }
    if (*p) {
        e->mathop(egg, op, egg->lang.varsize, type, p, ep);
    }
    if (p != oldp) {
        RZ_FREE(p);
    }
    RZ_FREE(oldp);
    RZ_FREE(ep);
}

References e, get_op(), is_space(), is_var(), rz_egg_t::lang, p, rz_egg_t::remit, rz_egg_mkvar(), RZ_FREE, strdup(), type, rz_egg_lang_t::varsize, and rz_egg_lang_t::varxs.

Referenced by rcc_mathop().

rcc_mathop()

static void rcc_mathop ( RzEgg *  egg, char **  pos, int  level  )

static

Definition at line 287 of file egg_lang.c.

                                                          {
    RzEggEmit *e = egg->remit;
    int op_ret = level;
    char op, *next_pos;
 
    while (**pos && is_space(**pos)) {
        (*pos)++;
    }
    next_pos = *pos + 1;
 
    do {
        op = (is_op(**pos) && !(is_var(*pos))) ? **pos : '=';
        *pos = (is_op(**pos) && !(is_var(*pos))) ? *pos + 1 : *pos;
        op_ret = get_op(&next_pos);
        if (op_ret > level) {
            rcc_mathop(egg, pos, op_ret);
            rcc_internal_mathop(egg, e->regs(egg, op_ret - 1),
                strdup(e->regs(egg, level - 1)), op);
            next_pos = *pos + 1;
        } else {
            rcc_internal_mathop(egg, *pos, strdup(e->regs(egg, level - 1)), op);
            *pos = next_pos;
            next_pos++;
        }
    } while (**pos && op_ret >= level);
 
    /* following code block sould not handle '-' and '/' well
    if (op_ret < level) {
    rcc_internal_mathop(egg, p, strdup(e->regs(egg, level-1)) ,'=');
    return;
    }
    op = *pos, *pos = '\x00', (*pos)++;
    rcc_mathop(egg, pos, op_ret);
    if (op_ret > level) {
    rcc_internal_mathop(egg, p, strdup(e->regs(egg, op_ret-1)), op);
    rcc_internal_mathop(egg, (char *)e->regs(egg, op_ret-1)
                , strdup(e->regs(egg, level-1)), '=');
    }
    else rcc_internal_mathop(egg, p, strdup(e->regs(egg, level-1)), op);
*/
}

References e, get_op(), is_op(), is_space(), is_var(), level, op, pos, rcc_internal_mathop(), rz_egg_t::remit, and strdup().

Referenced by rcc_next().

rcc_next()

static void rcc_next ( RzEgg *  egg )

static

Definition at line 978 of file egg_lang.c.

                                 {
    const char *ocn;
    RzEggEmit *e = egg->remit;
    char *str = NULL, *p, *ptr, buf[64];
    int i;
 
    if (egg->lang.setenviron) {
        egg->lang.elem[egg->lang.elem_n - 1] = 0;
        rz_sys_setenv(egg->lang.setenviron, egg->lang.elem);
        RZ_FREE(egg->lang.setenviron);
        return;
    }
    if (egg->lang.includefile) {
        char *p, *q, *path;
        egg->lang.elem[egg->lang.elem_n - 1] = 0;
        path = find_include(egg->lang.includedir, egg->lang.includefile);
        if (!path) {
            eprintf("Cannot find include file '%s'\n", egg->lang.elem);
            return;
        }
        RZ_FREE(egg->lang.includefile);
        RZ_FREE(egg->lang.includedir);
        rcc_reset_callname(egg);
        p = q = rz_file_slurp(path, NULL);
        if (p) {
            int oline = ++(egg->lang.line);
            egg->lang.elem[0] = 0; // TODO: this must be a separate function
            egg->lang.elem_n = 0;
            egg->lang.line = 0;
            for (; *p; p++) {
                rz_egg_lang_parsechar(egg, *p);
            }
            free(q);
            egg->lang.line = oline;
        } else {
            eprintf("Cannot find '%s'\n", path);
        }
        free(path);
        return;
    }
    egg->lang.docall = 1;
    if (egg->lang.callname) {
        if (!strcmp(egg->lang.callname, "goto")) {
            if (egg->lang.nargs != 1) {
                eprintf("Invalid number of arguments for goto()\n");
                return;
            }
            e->jmp(egg, egg->lang.ctxpush[CTX], 0);
            rcc_reset_callname(egg);
            return;
        }
        if (!strcmp(egg->lang.callname, "break")) {
            e->trap(egg);
            rcc_reset_callname(egg);
            return;
        }
        ptr = strchr(egg->lang.callname, '=');
        if (ptr) {
            *ptr = '\0';
            // ocn = ptr+1; // what is the point of this?
        }
        ocn = skipspaces(egg->lang.callname);
        if (!ocn) {
            return;
        }
        str = rz_egg_mkvar(egg, buf, ocn, 0);
        if (!str) {
            eprintf("Cannot mkvar\n");
            return;
        }
        if (*ocn == '.') {
            e->call(egg, str, 1);
        }
        if (!strcmp(str, "while")) {
            char var[128];
            if (egg->lang.lastctxdelta >= 0) {
                eprintf("ERROR: Unsupported while syntax\n");
                return;
            }
            sprintf(var, "__begin_%d_%d_%d\n", egg->lang.nfunctions, CTX, egg->lang.nestedi[CTX - 1]);
            e->while_end(egg, var); // get_frame_label (1));
#if 0
            eprintf ("------------------------------------------ lastctx: %d\n", egg->lang.lastctxdelta);
            // TODO: the pushvar is required for the if(){}while(); constructions
            // char *pushvar = egg->lang.ctxpush[context+egg->lang.nbrackets-1];
            /* TODO: support to compare more than one expression (LOGICAL OR) */
            rcc_printf ("  pop %%eax\n");
            rcc_printf ("  cmp $0, %%eax\n");   // XXX MUST SUPPORT != 0 COMPARE HERE
            /* TODO : Simplify!! */
            // if (pushvar)
            // printf("  push %s /* while push */\n", pushvar);
            if (egg->lang.lastctxdelta < 0) {
                rcc_printf ("  jnz %s\n", get_frame_label (1));
            } else {
                rcc_printf ("  jnz %s\n", get_frame_label (0));
            }
            // if (pushvar)
            // printf("  pop %%"RZ_AX" /* while pop */\n");
#endif
            egg->lang.nargs = 0;
        } else {
            for (i = 0; i < egg->lang.nsyscalls; i++) {
                if (!strcmp(str, egg->lang.syscalls[i].name)) {
                    p = egg->lang.syscallbody;
                    e->comment(egg, "set syscall args");
                    e->syscall_args(egg, egg->lang.nargs);
                    egg->lang.docall = 0;
                    e->comment(egg, "syscall");
                    rz_egg_lang_parsechar(egg, '\n'); /* FIX parsing issue */
                    if (p) {
                        for (; *p; p++) {
                            rz_egg_lang_parsechar(egg, *p);
                        }
                    } else {
                        char *q, *s = e->syscall(egg, egg->lang.nargs);
                        if (s) {
                            for (q = s; *q; q++) {
                                rz_egg_lang_parsechar(egg, *q);
                            }
                            free(s);
                        } else {
                            eprintf("Cannot get @syscall payload\n");
                        }
                    }
                    egg->lang.docall = 0;
                    break;
                }
            }
            if (egg->lang.docall) {
                for (i = 0; i < egg->lang.ninlines; i++) {
                    if (!strcmp(str, egg->lang.inlines[i].name)) {
                        p = egg->lang.inlines[i].body;
                        egg->lang.docall = 0;
                        e->comment(egg, "inline");
                        rz_egg_lang_parsechar(egg, '\n'); /* FIX parsing issue */
                        for (; *p; p++) {
                            rz_egg_lang_parsechar(egg, *p);
                        }
                        egg->lang.docall = 0;
                        break;
                    }
                }
            }
            if (egg->lang.docall) {
                e->comment(egg, "call in egg->lang.mode %d", egg->lang.mode);
                e->call(egg, str, 0);
            }
        }
        if (egg->lang.nargs > 0) {
            e->restore_stack(egg, egg->lang.nargs * e->size);
        }
 
        // fixed by izhuer
        /*
        if (ocn) { // Used to call .var0()
            // XXX: ocn mustn't be NULL here
            // XXX: Probably buggy and wrong
            *buf = 0;
            free (str);
            str = rz_egg_mkvar (egg, buf, ocn, 0);
            if (*buf)
            e->get_result (egg, buf); // Why should get_result into ocn?
            //else { eprintf("external symbol %s\n", ocn); }
        }
        */
 
        /* store result of call */
        if (egg->lang.dstvar) {
            // if (egg->lang.mode != NAKED) {
            *buf = 0;
            free(str);
            str = rz_egg_mkvar(egg, buf, egg->lang.dstvar, 0);
            if (*buf == 0) {
                eprintf("Cannot resolve variable '%s'\n", egg->lang.dstvar);
            } else {
                e->get_result(egg, buf);
            }
            //}
            RZ_FREE(egg->lang.dstvar);
        }
        rcc_reset_callname(egg);
    } else { // handle mathop
        int vs = 'l';
        char type, *eq, *ptr = egg->lang.elem, *tmp;
        egg->lang.elem[egg->lang.elem_n] = '\0';
        ptr = (char *)skipspaces(ptr);
        if (*ptr) {
            eq = strchr(ptr, '=');
            if (eq) {
                vs = egg->lang.varsize;
                *buf = *eq = '\x00';
                e->mathop(egg, '=', vs, '$', "0", e->regs(egg, 1));
                // avoid situation that egg->lang.mathline starts with a single '-'
                egg->lang.mathline = strdup((char *)skipspaces(eq + 1));
                tmp = egg->lang.mathline;
                rcc_mathop(egg, &tmp, 2);
                RZ_FREE(egg->lang.mathline);
                tmp = NULL;
                // following code block is too ugly, oh noes
                char *p = rz_egg_mkvar(egg, buf, ptr, 0);
                if (is_var(p)) {
                    char *q = rz_egg_mkvar(egg, buf, p, 0);
                    if (q) {
                        free(p);
                        p = q;
                    }
                    if (egg->lang.varxs == '*' || egg->lang.varxs == '&') {
                        eprintf("not support for *ptr in egg->lang.dstvar\n");
                    }
                    // XXX: Not support for pointer
                    type = ' ';
                } else {
                    type = '$';
                }
                e->mathop(egg, '=', vs, type, e->regs(egg, 1), p);
                free(p);
                /*
                    char str2[64], *p, ch = *(eq-1);
                    *eq = '\0';
                    eq = (char*) skipspaces (eq+1);
                    p = rz_egg_mkvar (egg, str2, ptr, 0);
                    vs = egg->lang.varsize;
                    if (is_var (eq)) {
                    eq = rz_egg_mkvar (egg, buf, eq, 0);
                    if (egg->lang.varxs=='*')
                        e->load (egg, eq, egg->lang.varsize);
                    else
                    // XXX this is a hack .. must be integrated with pusharg
                    if (egg->lang.varxs=='&')
                        e->load_ptr (egg, eq);
                    if (eq) {
                        RZ_FREE (eq);
                    }
                    type = ' ';
                    } else type = '$';
                    vs = 'l'; // XXX: add support for != 'l' size
                eprintf("Getting into e->mathop with ch: %c\n", ch);
                eprintf("Getting into e->mathop with vs: %c\n", vs);
                eprintf("Getting into e->mathop with type: %c\n", type);
                eprintf("Getting into e->mathop with eq: %s\n", eq);
                eprintf("Getting into e->mathop with p: %s\n", p);
                    e->mathop (egg, ch, vs, type, eq, p);
                    free(p);
                */
            } else {
                if (!strcmp(ptr, "break")) { // handle 'break;'
                    e->trap(egg);
                    rcc_reset_callname(egg);
                } else {
                    e->mathop(egg, '=', vs, '$', ptr, NULL);
                }
            }
        }
    }
    free(str);
}

References rz_egg_lang_t::body, rz_egg_lang_t::callname, CTX, rz_egg_lang_t::ctxpush, rz_egg_lang_t::docall, rz_egg_lang_t::dstvar, e, rz_egg_lang_t::elem, rz_egg_lang_t::elem_n, eprintf, eq, find_include(), free(), i, rz_egg_lang_t::includedir, rz_egg_lang_t::includefile, rz_egg_lang_t::inlines, is_var(), rz_egg_t::lang, rz_egg_lang_t::lastctxdelta, rz_egg_lang_t::line, rz_egg_lang_t::mathline, rz_egg_lang_t::mode, rz_egg_lang_t::name, rz_egg_lang_t::nargs, rz_egg_lang_t::nestedi, rz_egg_lang_t::nfunctions, rz_egg_lang_t::ninlines, rz_egg_lang_t::nsyscalls, NULL, p, path, rcc_mathop(), rcc_reset_callname(), rz_egg_t::remit, rz_egg_lang_parsechar(), rz_egg_mkvar(), rz_file_slurp(), RZ_FREE, rz_sys_setenv(), s, rz_egg_lang_t::setenviron, skipspaces(), sprintf, cmd_descs_generate::str, strdup(), rz_egg_lang_t::syscallbody, rz_egg_lang_t::syscalls, autogen_x86imm::tmp, type, rz_egg_lang_t::varsize, and rz_egg_lang_t::varxs.

Referenced by rz_egg_lang_parsechar().

rcc_pusharg()

static void rcc_pusharg ( RzEgg *  egg, char *  str  )

static

Definition at line 329 of file egg_lang.c.

                                               {
    RzEggEmit *e = egg->remit;
    char buf[64], *p = rz_egg_mkvar(egg, buf, str, 0);
    if (!p) {
        return;
    }
    RZ_FREE(egg->lang.ctxpush[CTX]);
    egg->lang.ctxpush[CTX] = strdup(p); // INDEX IT WITH NARGS OR CONTEXT?!?
    egg->lang.nargs++;
    if (egg->lang.pushargs) {
        e->push_arg(egg, egg->lang.varxs, egg->lang.nargs, p);
    }
    // egg->lang.ctxpush[context+egg->lang.nbrackets] = strdup(str); // use egg->lang.nargs??? (in callname)
    free(p);
}

References CTX, rz_egg_lang_t::ctxpush, e, free(), rz_egg_t::lang, rz_egg_lang_t::nargs, p, rz_egg_lang_t::pushargs, rz_egg_t::remit, rz_egg_mkvar(), RZ_FREE, cmd_descs_generate::str, strdup(), and rz_egg_lang_t::varxs.

Referenced by rcc_element().

rcc_pushstr()

static void rcc_pushstr ( RzEgg *  egg, char *  str, int  filter  )

static

Definition at line 485 of file egg_lang.c.

                                                           {
    int dotrim;
    int i, j, len, ch;
    RzEggEmit *e = egg->remit;
 
    e->comment(egg, "encode %s string (%s) (%s)",
        filter ? "filtered" : "unfiltered", str, egg->lang.callname);
 
    // fixed by izhuer
    if (filter) {
        for (i = 0; str[i]; i++) {
            dotrim = 0;
            if (str[i] == '\\') {
                switch (str[i + 1]) {
                case 't':
                    str[i] = '\t';
                    dotrim = 1;
                    break;
                case 'n':
                    str[i] = '\n';
                    dotrim = 1;
                    break;
                case 'e':
                    str[i] = '\x1b';
                    dotrim = 1;
                    break;
                case 'x':
                    ch = rz_hex_pair2bin(str + i + 2);
                    if (ch == -1) {
                        eprintf("%s:%d Error string format\n",
                            egg->lang.file, egg->lang.line);
                    }
                    str[i] = (char)ch;
                    dotrim = 3;
                    break;
                default:
                    break;
                }
                if (dotrim) {
                    memmove(str + i + 1, str + i + dotrim + 1,
                        strlen(str + i + dotrim + 1) + 1);
                }
                // DO NOT forget the '\x00' terminate char
            }
        }
    }
 
    len = strlen(str);
    j = (len - len % e->size) + e->size;
    e->set_string(egg, egg->lang.dstvar, str, j);
    RZ_FREE(egg->lang.dstvar);
}

References rz_egg_lang_t::callname, rz_egg_lang_t::dstvar, e, eprintf, rz_egg_lang_t::file, i, rz_egg_t::lang, len, rz_egg_lang_t::line, rz_egg_t::remit, RZ_FREE, rz_hex_pair2bin(), and cmd_descs_generate::str.

Referenced by rcc_element(), and rz_egg_mkvar().

rcc_reset_callname()

static void rcc_reset_callname ( RzEgg *  egg )

static

Definition at line 179 of file egg_lang.c.

                                           {
    RZ_FREE(egg->lang.callname);
    egg->lang.nargs = 0;
}

References rz_egg_lang_t::callname, rz_egg_t::lang, rz_egg_lang_t::nargs, and RZ_FREE.

Referenced by rcc_context(), and rcc_next().

rcc_set_callname()

static void rcc_set_callname ( RzEgg *  egg, const char *  s  )

static

Definition at line 172 of file egg_lang.c.

                                                        {
    RZ_FREE(egg->lang.callname);
    egg->lang.nargs = 0;
    egg->lang.callname = trim(strdup(skipspaces(s)));
    egg->lang.pushargs = !((!strcmp(s, "goto")) || (!strcmp(s, "break")));
}

References rz_egg_lang_t::callname, rz_egg_t::lang, rz_egg_lang_t::nargs, rz_egg_lang_t::pushargs, RZ_FREE, s, skipspaces(), strdup(), and trim().

Referenced by rcc_context(), and rcc_fun().

rz_egg_lang_free()

RZ_API void rz_egg_lang_free

(

RzEgg *

egg

)

Definition at line 136 of file egg_lang.c.

                                         {
    int i, len;
 
    for (i = 0; i < egg->lang.nsyscalls; i++) {
        RZ_FREE(egg->lang.syscalls[i].name);
        RZ_FREE(egg->lang.syscalls[i].arg);
    }
    len = sizeof(egg->lang.ctxpush) / sizeof(char *);
    for (i = 0; i < len; i++) {
        RZ_FREE(egg->lang.ctxpush[i]);
    }
}

References rz_egg_lang_t::arg, rz_egg_lang_t::ctxpush, i, rz_egg_t::lang, len, rz_egg_lang_t::name, rz_egg_lang_t::nsyscalls, RZ_FREE, and rz_egg_lang_t::syscalls.

Referenced by rz_egg_free().

rz_egg_lang_include_init()

RZ_API void rz_egg_lang_include_init

(

RzEgg *

egg

)

Definition at line 164 of file egg_lang.c.

                                                 {
    char *prefix = rz_path_prefix(NULL);
    char *s = rz_str_newf(".:%s/%s", prefix, RZ_EGG_INCDIR_PATH);
    free(prefix);
    rz_sys_setenv(RZ_EGG_INCDIR_ENV, s);
    free(s);
}

References free(), NULL, prefix, RZ_EGG_INCDIR_ENV, RZ_EGG_INCDIR_PATH, rz_path_prefix(), rz_str_newf(), rz_sys_setenv(), and s.

Referenced by rz_egg_lang_include_path(), and rz_egg_reset().

rz_egg_lang_include_path()

RZ_API void rz_egg_lang_include_path	(	RzEgg *	egg,
		const char *	path
	)

Definition at line 149 of file egg_lang.c.

                                                                   {
    char *tmp_ptr = NULL;
    char *env = rz_sys_getenv(RZ_EGG_INCDIR_ENV);
    if (!env || !*env) {
        rz_egg_lang_include_init(egg);
        free(env);
        env = rz_sys_getenv(RZ_EGG_INCDIR_ENV);
        tmp_ptr = env;
    }
    env = rz_str_appendf(NULL, "%s:%s", path, env);
    free(tmp_ptr);
    rz_sys_setenv(RZ_EGG_INCDIR_ENV, env);
    free(env);
}

References env, free(), NULL, path, RZ_EGG_INCDIR_ENV, rz_egg_lang_include_init(), rz_str_appendf(), rz_sys_getenv(), and rz_sys_setenv().

Referenced by rz_main_rz_gg().

rz_egg_lang_init()

RZ_API void rz_egg_lang_init

(

RzEgg *

egg

)

Definition at line 126 of file egg_lang.c.

                                         {
    egg->lang.varsize = 'l';
    /* do call or inline it ? */ // BOOL
    egg->lang.docall = 1;
    egg->lang.line = 1;
    egg->lang.file = "stdin";
    egg->lang.oc = '\n';
    egg->lang.mode = NORMAL;
}

References rz_egg_lang_t::docall, rz_egg_lang_t::file, rz_egg_t::lang, rz_egg_lang_t::line, rz_egg_lang_t::mode, NORMAL, rz_egg_lang_t::oc, and rz_egg_lang_t::varsize.

Referenced by rz_egg_compile().

rz_egg_lang_parsechar()

RZ_API int rz_egg_lang_parsechar	(	RzEgg *	egg,
		char	c
	)

Definition at line 1235 of file egg_lang.c.

                                                     {
    RzEggEmit *e = egg->remit;
    char *ptr, str[64], *tmp_ptr = NULL;
    int i, j;
    if (c == '\n') {
        egg->lang.line++;
        egg->lang.elem_n = 0;
    }
    /* comments */
    if (egg->lang.skipline) {
        if (c != '\n') {
            egg->lang.oc = c;
            return 0;
        }
        egg->lang.skipline = 0;
    }
    if (egg->lang.mode == DATA) {
        return parsedatachar(egg, c);
    }
    if (egg->lang.mode == INLINE) {
        return parseinlinechar(egg, c);
    }
    /* quotes */
    if (egg->lang.quoteline) {
        if (c != egg->lang.quoteline) {
            if (egg->lang.quotelinevar == 1) {
                if (c == '`') {
                    egg->lang.elem[egg->lang.elem_n] = 0;
                    egg->lang.elem_n = 0;
                    tmp_ptr = rz_egg_mkvar(egg, str, egg->lang.elem, 0);
                    rz_egg_printf(egg, "%s", tmp_ptr);
                    free(tmp_ptr);
                    egg->lang.quotelinevar = 0;
                } else {
                    egg->lang.elem[egg->lang.elem_n++] = c;
                }
            } else {
                if (c == '`') {
                    egg->lang.elem_n = 0;
                    egg->lang.quotelinevar = 1;
                } else {
                    rz_egg_printf(egg, "%c", c);
                }
            }
            egg->lang.oc = c;
            return 0;
        } else {
            rz_egg_printf(egg, "\n");
            egg->lang.quoteline = 0;
        }
    }
 
    if (egg->lang.commentmode) {
        if (c == '/' && egg->lang.oc == '*') {
            egg->lang.commentmode = 0;
        }
        egg->lang.oc = c;
        return 0;
    } else if (c == '*' && egg->lang.oc == '/') {
        egg->lang.commentmode = 1;
    }
    if (egg->lang.slurp) {
        if (egg->lang.slurp != '"' && c == egg->lang.slurpin) { // only happend when (...(...)...)
            eprintf(
                "%s:%d Nesting of expressions not yet supported\n",
                egg->lang.file, egg->lang.line);
            return -1;
        }
        if (c == egg->lang.slurp && egg->lang.oc != '\\') { // close egg->lang.slurp
            egg->lang.elem[egg->lang.elem_n] = '\0';
            if (egg->lang.elem_n > 0) {
                rcc_element(egg, egg->lang.elem);
            } else {
                e->frame(egg, 0);
            }
            egg->lang.elem_n = 0;
            egg->lang.slurp = 0;
        } else {
            egg->lang.elem[egg->lang.elem_n++] = c;
        }
        egg->lang.elem[egg->lang.elem_n] = '\0';
    } else {
        switch (c) {
        case ';':
            rcc_next(egg);
            break;
        case '"':
            egg->lang.slurp = '"';
            break;
        case '(':
            egg->lang.slurpin = '(';
            egg->lang.slurp = ')';
            break;
        case '{':
            if (CTX > 0) {
                if (CTX > 31 || CTX < 0) {
                    eprintf("Sinking before overflow\n");
                    CTX = 0;
                    break;
                }
                // rz_egg_printf (egg, " %s:\n", get_frame_label (0));
                if (egg->lang.nested_callname[CTX] && strstr(egg->lang.nested_callname[CTX], "if") &&
                    strstr(egg->lang.elem, "else")) {
                    *egg->lang.elem = '\x00';
                    egg->lang.elem_n = 0;
                    RZ_FREE(egg->lang.ifelse_table[CTX][egg->lang.nestedi[CTX] - 1])
                    egg->lang.ifelse_table[CTX][egg->lang.nestedi[CTX] - 1] =
                        rz_str_newf("  __end_%d_%d_%d",
                            egg->lang.nfunctions, CTX, egg->lang.nestedi[CTX]);
                }
                rz_egg_printf(egg, "  __begin_%d_%d_%d:\n",
                    egg->lang.nfunctions, CTX, egg->lang.nestedi[CTX]); // %s:\n", get_frame_label (0));
            }
            rcc_context(egg, 1);
            break;
        case '}':
            egg->lang.endframe = egg->lang.nested[CTX];
            if (egg->lang.endframe) {
                // XXX: use egg->lang.endframe[context]
                rz_egg_printf(egg, "%s", egg->lang.endframe);
                RZ_FREE(egg->lang.nested[CTX]);
                // RZ_FREE (egg->lang.endframe);
            }
            if (CTX > 1) {
                if (egg->lang.nested_callname[CTX - 1] && strstr(egg->lang.nested_callname[CTX - 1], "if")) {
                    tmp_ptr = rz_str_newf("__ifelse_%d_%d", CTX - 1, egg->lang.nestedi[CTX - 1] - 1);
                    e->jmp(egg, tmp_ptr, 0);
                    RZ_FREE(tmp_ptr); // mem leak
                    egg->lang.ifelse_table[CTX - 1][egg->lang.nestedi[CTX - 1] - 1] =
                        rz_str_newf("__end_%d_%d_%d",
                            egg->lang.nfunctions, CTX - 1, egg->lang.nestedi[CTX - 1] - 1);
                }
                // if (nestede[CTX]) {
                // rz_egg_printf (egg, "%s:\n", nestede[CTX]);
                // } else {
                rz_egg_printf(egg, "  __end_%d_%d_%d:\n",
                    egg->lang.nfunctions, CTX - 1, egg->lang.nestedi[CTX - 1] - 1);
                // get_end_frame_label (egg));
                // }
            }
            if (CTX > 0) {
                egg->lang.nbrackets++;
            }
            rcc_context(egg, -1);
            if (CTX == 0) {
                rz_egg_printf(egg, "\n");
                // snprintf(str, 64, "__end_%d", egg->lang.nfunctions);
                // e->jmp(egg, str, 0);
                // edit this unnessary jmp to bypass tests
                for (i = 0; i < 32; i++) {
                    for (j = 0; j < egg->lang.nestedi[i] && j < 32; j++) {
                        if (egg->lang.ifelse_table[i][j]) {
                            rz_egg_printf(egg, "  __ifelse_%d_%d:\n", i, j);
                            e->jmp(egg, egg->lang.ifelse_table[i][j], 0);
                            RZ_FREE(egg->lang.ifelse_table[i][j]);
                        }
                    }
                }
                // rz_egg_printf(egg, "  __end_%d:\n\n", egg->lang.nfunctions);
                // edit this unnessary jmp to bypass tests
                egg->lang.nbrackets = 0;
                egg->lang.nfunctions++;
            }
            break;
        case ':':
            if (egg->lang.oc == '\n' || egg->lang.oc == '}') {
                egg->lang.quoteline = '\n';
            } else {
                egg->lang.elem[egg->lang.elem_n++] = c;
            }
            break;
        case '#':
            if (egg->lang.oc == '\n') {
                egg->lang.skipline = 1;
            }
            break;
        case '/':
            if (egg->lang.oc == '/') {
                egg->lang.skipline = 1;
            } else {
                egg->lang.elem[egg->lang.elem_n++] = c;
            }
            break;
        default:
            egg->lang.elem[egg->lang.elem_n++] = c;
        }
        if (egg->lang.slurp) {
            if (egg->lang.elem_n) {
                ptr = egg->lang.elem;
                egg->lang.elem[egg->lang.elem_n] = '\0';
                while (is_space(*ptr)) {
                    ptr++;
                }
                rcc_fun(egg, ptr);
            }
            egg->lang.elem_n = 0;
        }
    }
    if (c != '\t' && c != ' ') {
        egg->lang.oc = c;
    }
    return 0;
}

References c, rz_egg_lang_t::commentmode, CTX, DATA, e, rz_egg_lang_t::elem, rz_egg_lang_t::elem_n, rz_egg_lang_t::endframe, eprintf, rz_egg_lang_t::file, free(), i, rz_egg_lang_t::ifelse_table, INLINE, is_space(), rz_egg_t::lang, rz_egg_lang_t::line, rz_egg_lang_t::mode, rz_egg_lang_t::nbrackets, rz_egg_lang_t::nested, rz_egg_lang_t::nested_callname, rz_egg_lang_t::nestedi, rz_egg_lang_t::nfunctions, NULL, rz_egg_lang_t::oc, parsedatachar(), parseinlinechar(), rz_egg_lang_t::quoteline, rz_egg_lang_t::quotelinevar, rcc_context(), rcc_element(), rcc_fun(), rcc_next(), rz_egg_t::remit, rz_egg_mkvar(), rz_egg_printf(), RZ_FREE, rz_str_newf(), rz_egg_lang_t::skipline, rz_egg_lang_t::slurp, rz_egg_lang_t::slurpin, and cmd_descs_generate::str.

Referenced by rcc_next(), and rz_egg_compile().

rz_egg_mkvar()

RZ_API char* rz_egg_mkvar	(	RzEgg *	egg,
		char *	out,
		const char *	_str,
		int	delta
	)

Definition at line 538 of file egg_lang.c.

                                                                              {
    int i, len, qi;
    char *oldstr = NULL, *str = NULL, foo[32], *q, *ret = NULL;
 
    delta += egg->lang.stackfixed; // XXX can be problematic
    if (!_str) {
        return NULL; /* fix segfault, but not badparsing */
    }
    /* XXX memory leak */
    ret = str = oldstr = strdup(skipspaces(_str));
    // if (num || str[0]=='0') { sprintf(out, "$%d", num); ret = out; }
    if ((q = strchr(str, ':'))) {
        *q = '\0';
        qi = atoi(q + 1);
        egg->lang.varsize = (qi == 1) ? 'b' : 'l';
    } else {
        egg->lang.varsize = 'l';
    }
    if (*str == '*' || *str == '&') {
        egg->lang.varxs = *str;
        str++;
    } else {
        egg->lang.varxs = 0;
    }
    if (str[0] == '.') {
        RzEggEmit *e = egg->remit;
        if (!strncmp(str + 1, "ret", 3)) {
            strcpy(out, e->retvar);
        } else if (!strncmp(str + 1, "fix", 3)) {
            int idx = (int)rz_num_math(NULL, str + 4) + delta + e->size;
            e->get_var(egg, 0, out, idx - egg->lang.stackfixed);
            // sprintf(out, "%d(%%"RZ_BP")", -(atoi(str+4)+delta+RZ_SZ-egg->lang.stackfixed));
        } else if (!strncmp(str + 1, "var", 3)) {
            int idx = (int)rz_num_math(NULL, str + 4) + delta + e->size;
            e->get_var(egg, 0, out, idx);
            // sprintf(out, "%d(%%"RZ_BP")", -(atoi(str+4)+delta+RZ_SZ));
        } else if (!strncmp(str + 1, "rarg", 4)) {
            if (e->get_ar) {
                int idx = (int)rz_num_math(NULL, str + 5);
                e->get_ar(egg, out, idx);
            }
        } else if (!strncmp(str + 1, "arg", 3)) {
            if (str[4]) {
                if (egg->lang.stackframe == 0) {
                    e->get_var(egg, 1, out, 4); // idx-4);
                } else {
                    int idx = (int)rz_num_math(NULL, str + 4) + delta + e->size;
                    e->get_var(egg, 2, out, idx + 4);
                }
            } else {
                /* TODO: return size of syscall */
                if (egg->lang.callname) {
                    for (i = 0; i < egg->lang.nsyscalls; i++) {
                        if (!strcmp(egg->lang.syscalls[i].name, egg->lang.callname)) {
                            free(oldstr);
                            return strdup(egg->lang.syscalls[i].arg);
                        }
                    }
                    eprintf("Unknown arg for syscall '%s'\n", egg->lang.callname);
                } else {
                    eprintf("NO CALLNAME\n");
                }
            }
        } else if (!strncmp(str + 1, "reg", 3)) {
            // XXX: can overflow if out is small
            if (egg->lang.attsyntax) {
                snprintf(out, 32, "%%%s", e->regs(egg, atoi(str + 4)));
            } else {
                snprintf(out, 32, "%s", e->regs(egg, atoi(str + 4)));
            }
        } else {
            out = str; /* TODO: show error, invalid var name? */
            eprintf("Something is really wrong\n");
        }
        ret = strdup(out);
        free(oldstr);
    } else if (*str == '"' || *str == '\'') {
        int mustfilter = *str == '"';
        /* TODO: check for room in egg->lang.stackfixed area */
        str++;
        len = strlen(str) - 1;
        if (!egg->lang.stackfixed || egg->lang.stackfixed < len) {
            eprintf("WARNING: No room in the static stackframe! (%d must be %d)\n",
                egg->lang.stackfixed, len);
        }
        str[len] = '\0';
        snprintf(foo, sizeof(foo) - 1, ".fix%d", egg->lang.nargs * 16); /* XXX FIX DELTA !!!1 */
        free(egg->lang.dstvar);
        egg->lang.dstvar = strdup(skipspaces(foo));
        rcc_pushstr(egg, str, mustfilter);
        ret = rz_egg_mkvar(egg, out, foo, 0);
        free(oldstr);
    }
    return ret;
}

References rz_egg_lang_t::arg, rz_egg_lang_t::attsyntax, rz_egg_lang_t::callname, delta, rz_egg_lang_t::dstvar, e, eprintf, foo, free(), i, setup::idx, int, rz_egg_t::lang, len, rz_egg_lang_t::name, rz_egg_lang_t::nargs, rz_egg_lang_t::nsyscalls, NULL, out, rcc_pushstr(), rz_egg_t::remit, rz_num_math(), skipspaces(), snprintf, rz_egg_lang_t::stackfixed, rz_egg_lang_t::stackframe, cmd_descs_generate::str, strdup(), rz_egg_lang_t::syscalls, rz_egg_lang_t::varsize, and rz_egg_lang_t::varxs.

Referenced by emit_branch(), emit_set_string(), emit_string(), rcc_internal_mathop(), rcc_next(), rcc_pusharg(), and rz_egg_lang_parsechar().

set_nested()

static void set_nested ( RzEgg *  egg, const char *  s  )

static

clear inner levels

Definition at line 748 of file egg_lang.c.

                                                  {
    int i = 0;
    if (CTX < 1) {
        return;
    }
    free(egg->lang.nested[CTX]);
    egg->lang.nested[CTX] = strdup(s);
    // egg->lang.nestedi[c]++;
    // seems not need to increase egg->lang.nestedi[c]
    for (i = 1; i < 10; i++) {
        // egg->lang.nestedi[context+i] = 0;
        RZ_FREE(egg->lang.nested[CTX + i]);
    }
}

References CTX, free(), i, rz_egg_t::lang, rz_egg_lang_t::nested, RZ_FREE, s, and strdup().

Referenced by rcc_context().

skipspaces()

static const char* skipspaces ( const char *  s )

static

Definition at line 16 of file egg_lang.c.

                                             {
    while (is_space(*s)) {
        s++;
    }
    return s;
}

References is_space(), and s.

Referenced by parseinlinechar(), rcc_context(), rcc_element(), rcc_fun(), rcc_next(), rcc_set_callname(), and rz_egg_mkvar().

trim()

static char* trim ( char *  s )

static

Definition at line 49 of file egg_lang.c.

                           {
    char *o;
    for (o = s; *o; o++) {
        if (is_space(*o)) {
            *o = 0;
        }
    }
    return s;
}

References is_space(), and s.

Referenced by rcc_set_callname().