lang.c File Reference

#include "config.h"
#include <rz_lang.h>
#include <rz_util.h>
#include <rz_cons.h>

Go to the source code of this file.

Functions
	RZ_LIB_VERSION (rz_lang)
RZ_API void	rz_lang_plugin_free (RzLangPlugin *p)
RZ_API RzLang *	rz_lang_new (void)
RZ_API void	rz_lang_free (RzLang *lang)
RZ_API void	rz_lang_set_user_ptr (RzLang *lang, void *user)
RZ_API bool	rz_lang_define (RzLang *lang, const char *type, const char *name, void *value)
RZ_API void	rz_lang_def_free (RzLangDef *def)
RZ_API void	rz_lang_undef (RzLang *lang, const char *name)
RZ_API bool	rz_lang_setup (RzLang *lang)
RZ_API bool	rz_lang_add (RzLang *lang, RzLangPlugin *foo)
RZ_API RzLangPlugin *	rz_lang_get_by_extension (RzLang *lang, const char *ext)
RZ_API RzLangPlugin *	rz_lang_get_by_name (RzLang *lang, const char *name)
RZ_API bool	rz_lang_use (RzLang *lang, const char *name)
RZ_API bool	rz_lang_set_argv (RzLang *lang, int argc, char **argv)
RZ_API int	rz_lang_run (RzLang *lang, const char *code, int len)
RZ_API int	rz_lang_run_string (RzLang *lang, const char *code)
RZ_API int	rz_lang_run_file (RzLang *lang, const char *file)
RZ_API int	rz_lang_prompt (RzLang *lang)

Variables
static RzLangPlugin *	lang_static_plugins [] = { RZ_LANG_STATIC_PLUGINS }
static RzLang *	__lang = NULL

Function Documentation

rz_lang_add()

RZ_API bool rz_lang_add	(	RzLang *	lang,
		RzLangPlugin *	foo
	)

Definition at line 115 of file lang.c.

                                                         {
    if (foo && (!rz_lang_get_by_name(lang, foo->name))) {
        if (foo->init) {
            foo->init(lang);
        }
        rz_list_append(lang->langs, foo);
        return true;
    }
    return false;
}

References foo, rz_lang_t::langs, rz_main_t::name, rz_lang_get_by_name(), and rz_list_append().

Referenced by rz_lang_new().

rz_lang_def_free()

RZ_API void rz_lang_def_free

(

RzLangDef *

def

)

Definition at line 85 of file lang.c.

                                             {
    free(def->name);
    free(def->type);
    free(def);
}

References def(), and free().

Referenced by rz_lang_new().

rz_lang_define()

RZ_API bool rz_lang_define	(	RzLang *	lang,
		const char *	type,
		const char *	name,
		void *	value
	)

Definition at line 65 of file lang.c.

                                                                                          {
    RzLangDef *def;
    RzListIter *iter;
    rz_list_foreach (lang->defs, iter, def) {
        if (!rz_str_casecmp(name, def->name)) {
            def->value = value;
            return true;
        }
    }
    def = RZ_NEW0(RzLangDef);
    if (!def) {
        return false;
    }
    def->type = strdup(type);
    def->name = strdup(name);
    def->value = value;
    rz_list_append(lang->defs, def);
    return true;
}

References def(), rz_lang_t::defs, rz_list_append(), RZ_NEW0, rz_str_casecmp(), strdup(), type, and value.

Referenced by rz_core_init().

rz_lang_free()

RZ_API void rz_lang_free

(

RzLang *

lang

)

Definition at line 46 of file lang.c.

                                       {
    if (lang) {
        __lang = NULL;
        rz_lang_undef(lang, NULL);
        rz_list_free(lang->langs);
        rz_list_free(lang->defs);
        // TODO: remove langs plugins
        free(lang);
    }
}

References __lang, rz_lang_t::defs, free(), rz_lang_t::langs, NULL, rz_lang_undef(), and rz_list_free().

Referenced by rz_core_fini(), and rz_lang_new().

rz_lang_get_by_extension()

RZ_API RzLangPlugin* rz_lang_get_by_extension	(	RzLang *	lang,
		const char *	ext
	)

Definition at line 126 of file lang.c.

                                                                             {
    RzListIter *iter;
    RzLangPlugin *h;
    const char *p = rz_str_lchr(ext, '.');
    if (p) {
        ext = p + 1;
    }
    rz_list_foreach (lang->langs, iter, h) {
        if (!rz_str_casecmp(h->ext, ext)) {
            return h;
        }
    }
    return NULL;
}

References ext, h, rz_lang_t::langs, NULL, p, rz_str_casecmp(), and rz_str_lchr().

Referenced by rz_core_run_script().

rz_lang_get_by_name()

RZ_API RzLangPlugin* rz_lang_get_by_name	(	RzLang *	lang,
		const char *	name
	)

Definition at line 141 of file lang.c.

                                                                         {
    RzListIter *iter;
    RzLangPlugin *h;
    rz_list_foreach (lang->langs, iter, h) {
        if (!rz_str_casecmp(h->name, name)) {
            return h;
        }
        if (h->alias && !rz_str_casecmp(h->alias, name)) {
            return h;
        }
    }
    return NULL;
}

References h, rz_lang_t::langs, NULL, and rz_str_casecmp().

Referenced by rz_hash_bang_handler(), rz_lang_add(), and rz_lang_use().

rz_lang_new()

RZ_API RzLang* rz_lang_new

(

void

)

Definition at line 20 of file lang.c.

                                 {
    RzLang *lang = RZ_NEW0(RzLang);
    if (!lang) {
        return NULL;
    }
    lang->user = NULL;
    lang->langs = rz_list_new();
    if (!lang->langs) {
        rz_lang_free(lang);
        return NULL;
    }
    lang->langs->free = (RzListFree)rz_lang_plugin_free;
    lang->defs = rz_list_new();
    if (!lang->defs) {
        rz_lang_free(lang);
        return NULL;
    }
    lang->defs->free = (RzListFree)rz_lang_def_free;
    lang->cb_printf = (PrintfCallback)printf;
    for (int i = 0; i < RZ_ARRAY_SIZE(lang_static_plugins); i++) {
        rz_lang_add(lang, lang_static_plugins[i]);
    }
 
    return lang;
}

References rz_lang_t::cb_printf, rz_lang_t::defs, rz_list_t::free, i, lang_static_plugins, rz_lang_t::langs, NULL, printf(), RZ_ARRAY_SIZE, rz_lang_add(), rz_lang_def_free(), rz_lang_free(), rz_lang_plugin_free(), rz_list_new(), RZ_NEW0, and rz_lang_t::user.

Referenced by rz_core_init().

rz_lang_plugin_free()

RZ_API void rz_lang_plugin_free

(

RzLangPlugin *

p

)

Definition at line 14 of file lang.c.

                                                 {
    if (p && p->fini) {
        p->fini(__lang);
    }
}

References __lang, and p.

Referenced by rz_lang_new().

rz_lang_prompt()

RZ_API int rz_lang_prompt

(

RzLang *

lang

)

Definition at line 205 of file lang.c.

                                        {
    char buf[1024];
    const char *p;
 
    if (!lang || !lang->cur) {
        return false;
    }
 
    if (lang->cur->prompt && lang->cur->prompt(lang)) {
        return true;
    }
    /* init line */
    RzLine *line = rz_line_singleton();
    RzLineHistory hist = line->history;
    RzLineHistory histnull = { 0 };
    RzLineCompletion oc = line->completion;
    RzLineCompletion ocnull = { 0 };
    char *prompt = strdup(line->prompt);
    line->completion = ocnull;
    line->history = histnull;
 
    /* foo */
    for (;;) {
        rz_cons_flush();
        snprintf(buf, sizeof(buf) - 1, "%s> ", lang->cur->name);
        rz_line_set_prompt(buf);
        p = rz_line_readline();
        if (!p) {
            break;
        }
        rz_line_hist_add(p);
        strncpy(buf, p, sizeof(buf) - 1);
        if (*buf == '!') {
            if (buf[1]) {
                rz_sys_xsystem(buf + 1);
            }
            continue;
        }
        if (!memcmp(buf, ". ", 2)) {
            char *file = rz_file_abspath(buf + 2);
            if (file) {
                rz_lang_run_file(lang, file);
                free(file);
            }
            continue;
        }
        if (!strcmp(buf, "q")) {
            free(prompt);
            return true;
        }
        if (!strcmp(buf, "?")) {
            RzLangDef *def;
            RzListIter *iter;
            eprintf("  ?        - show this help message\n"
                "  !command - run system command\n"
                "  . file   - interpret file\n"
                "  q        - quit prompt\n");
            eprintf("%s example:\n", lang->cur->name);
            if (lang->cur->help) {
                eprintf("%s", *lang->cur->help);
            }
            if (!rz_list_empty(lang->defs)) {
                eprintf("variables:\n");
            }
            rz_list_foreach (lang->defs, iter, def) {
                eprintf("  %s %s\n", def->type, def->name);
            }
        } else {
            rz_lang_run(lang, buf, strlen(buf));
        }
    }
    // XXX: leaking history
    rz_line_set_prompt(prompt);
    line->completion = oc;
    line->history = hist;
    clearerr(stdin);
    printf("\n");
    free(prompt);
    return true;
}

References rz_lang_t::cur, def(), rz_lang_t::defs, eprintf, free(), rz_lang_plugin_t::help, setup::line, rz_lang_plugin_t::name, p, printf(), prompt(), rz_lang_plugin_t::prompt, rz_cons_flush(), rz_file_abspath(), rz_lang_run(), rz_lang_run_file(), rz_line_hist_add(), rz_line_readline(), rz_line_set_prompt(), rz_line_singleton(), rz_sys_xsystem, snprintf, and strdup().

Referenced by rz_hash_bang_handler().

rz_lang_run()

RZ_API int rz_lang_run	(	RzLang *	lang,
		const char *	code,
		int	len
	)

Definition at line 172 of file lang.c.

                                                                {
    if (lang->cur && lang->cur->run) {
        return lang->cur->run(lang, code, len);
    }
    return false;
}

References rz_lang_t::cur, len, and rz_lang_plugin_t::run.

Referenced by rz_lang_prompt(), and rz_lang_run_string().

rz_lang_run_file()

RZ_API int rz_lang_run_file	(	RzLang *	lang,
		const char *	file
	)

Definition at line 183 of file lang.c.

                                                            {
    int ret = false;
    if (lang->cur) {
        if (!lang->cur->run_file) {
            if (lang->cur->run) {
                size_t len;
                char *code = rz_file_slurp(file, &len);
                if (!code) {
                    eprintf("Could not open '%s'.\n", file);
                    return 0;
                }
                ret = lang->cur->run(lang, code, (int)len);
                free(code);
            }
        } else {
            ret = lang->cur->run_file(lang, file);
        }
    }
    return ret;
}

References rz_lang_t::cur, eprintf, free(), len, rz_lang_plugin_t::run, rz_lang_plugin_t::run_file, and rz_file_slurp().

Referenced by lang_run_file(), rz_hash_bang_handler(), and rz_lang_prompt().

rz_lang_run_string()

RZ_API int rz_lang_run_string	(	RzLang *	lang,
		const char *	code
	)

Definition at line 179 of file lang.c.

                                                              {
    return rz_lang_run(lang, code, strlen(code));
}

References rz_lang_run().

rz_lang_set_argv()

RZ_API bool rz_lang_set_argv	(	RzLang *	lang,
		int	argc,
		char **	argv
	)

Definition at line 165 of file lang.c.

                                                                  {
    if (lang->cur && lang->cur->set_argv) {
        return lang->cur->set_argv(lang, argc, argv);
    }
    return false;
}

References argv, rz_lang_t::cur, and rz_lang_plugin_t::set_argv.

Referenced by rz_hash_bang_handler().

rz_lang_set_user_ptr()

RZ_API void rz_lang_set_user_ptr	(	RzLang *	lang,
		void *	user
	)

Definition at line 61 of file lang.c.

                                                           {
    lang->user = user;
}

References rz_lang_t::user.

Referenced by rz_core_init().

rz_lang_setup()

RZ_API bool rz_lang_setup

(

RzLang *

lang

)

Definition at line 108 of file lang.c.

                                        {
    if (lang && lang->cur && lang->cur->setup) {
        return lang->cur->setup(lang);
    }
    return false;
}

References rz_lang_t::cur, and rz_lang_plugin_t::setup.

rz_lang_undef()

RZ_API void rz_lang_undef	(	RzLang *	lang,
		const char *	name
	)

Definition at line 91 of file lang.c.

                                                          {
    if (name && *name) {
        RzLangDef *def;
        RzListIter *iter;
        /* No _safe loop necessary because we return immediately after the delete. */
        rz_list_foreach (lang->defs, iter, def) {
            if (!name || !rz_str_casecmp(name, def->name)) {
                rz_list_delete(lang->defs, iter);
                break;
            }
        }
    } else {
        rz_list_free(lang->defs);
        lang->defs = NULL;
    }
}

References def(), rz_lang_t::defs, NULL, rz_list_delete(), rz_list_free(), and rz_str_casecmp().

Referenced by rz_lang_free().

rz_lang_use()

RZ_API bool rz_lang_use	(	RzLang *	lang,
		const char *	name
	)

Definition at line 155 of file lang.c.

                                                        {
    RzLangPlugin *h = rz_lang_get_by_name(lang, name);
    if (h) {
        lang->cur = h;
        return true;
    }
    return false;
}

References rz_lang_t::cur, h, and rz_lang_get_by_name().

Referenced by rz_core_run_script().

RZ_LIB_VERSION()

RZ_LIB_VERSION

(

rz_lang

)

Variable Documentation

__lang

RzLang* __lang = NULL

static

Definition at line 12 of file lang.c.

Referenced by rz_lang_free(), and rz_lang_plugin_free().

lang_static_plugins

RzLangPlugin* lang_static_plugins[] = { RZ_LANG_STATIC_PLUGINS }

static

Definition at line 11 of file lang.c.

Referenced by rz_lang_new().