1
0
mirror of git://projects.qi-hardware.com/openwrt-xburst.git synced 2024-12-25 22:36:46 +02:00
openwrt-xburst/package/busybox/patches/510-awx.patch
kaloz ac2d02c3e0 upgrade busybox to v1.11.1 and add current upstream fixes
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@12348 3c298f89-4303-0410-b956-a3cf2f4a3e73
2008-08-20 14:00:34 +00:00

1615 lines
34 KiB
Diff

--- a/editors/awk.c
+++ b/editors/awk.c
@@ -32,6 +32,11 @@
/* these flags are static, don't change them when value is changed */
#define VF_DONTTOUCH (VF_ARRAY | VF_SPECIAL | VF_WALK | VF_CHILD | VF_DIRTY)
+#ifdef CONFIG_AWX
+#define fputs(s, stream) fputs_hook(s, stream)
+static inline int fputs_hook (__const char *__restrict __s, FILE *__restrict __stream);
+#endif
+
/* Variable */
typedef struct var_s {
unsigned type; /* flags */
@@ -53,9 +58,14 @@
} chain;
/* Function */
+typedef var *(*awk_cfunc)(var *res, var *args, int nargs);
typedef struct func_s {
unsigned nargs;
+ enum { AWKFUNC, CFUNC } type;
+ union {
+ awk_cfunc cfunc;
struct chain_s body;
+ } x;
} func;
/* I/O stream */
@@ -1395,7 +1405,8 @@
next_token(TC_FUNCTION);
g_pos++;
f = newfunc(t_string);
- f->body.first = NULL;
+ f->type = AWKFUNC;
+ f->x.body.first = NULL;
f->nargs = 0;
while (next_token(TC_VARIABLE | TC_SEQTERM) & TC_VARIABLE) {
v = findvar(ahash, t_string);
@@ -1404,7 +1415,7 @@
if (next_token(TC_COMMA | TC_SEQTERM) & TC_SEQTERM)
break;
}
- seq = &(f->body);
+ seq = &(f->x.body);
chain_group();
clear_array(ahash);
@@ -2367,7 +2378,8 @@
break;
case XC( OC_FUNC ):
- if (!op->r.f->body.first)
+ if ((op->r.f->type == AWKFUNC) &&
+ !op->r.f->x.body.first)
syntax_error(EMSG_UNDEF_FUNC);
X.v = R.v = nvalloc(op->r.f->nargs+1);
@@ -2384,7 +2396,10 @@
fnargs = X.v;
L.s = g_progname;
- res = evaluate(op->r.f->body.first, res);
+ if (op->r.f->type == AWKFUNC)
+ res = evaluate(op->r.f->x.body.first, res);
+ else if (op->r.f->type == CFUNC)
+ res = op->r.f->x.cfunc(res, fnargs, op->r.f->nargs);
g_progname = L.s;
nvfree(fnargs);
@@ -2748,6 +2763,12 @@
}
int awk_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
+int awx_main(int argc, char **argv);
+
+#ifdef CONFIG_AWX
+static int is_awx = 0;
+#include "awx.c"
+#endif
int awk_main(int argc, char **argv)
{
unsigned opt;
@@ -2812,6 +2833,11 @@
*s1 = '=';
}
}
+
+#ifdef CONFIG_AWX
+ do_awx(argc, argv);
+#endif
+
opt_complementary = "v::f::"; /* -v and -f can occur multiple times */
opt = getopt32(argv, "F:v:f:W:", &opt_F, &list_v, &list_f, &opt_W);
argv += optind;
--- /dev/null
+++ b/editors/awx.c
@@ -0,0 +1,636 @@
+/*
+ * awk web extension
+ *
+ * Copyright (C) 2007 by Felix Fietkau <nbd@openwrt.org>
+ *
+ * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
+ */
+
+#include <cgi.h>
+#include <glob.h>
+#include "awx_parser.h"
+
+#define LINE_BUF 2048
+#define HASH_MAX 1536
+#define TR_START "@TR<<"
+#define TR_END ">>"
+#define MAX_TR 32
+
+#undef fputs
+
+static xhash *lstr = NULL;
+static xhash *formvar = NULL;
+static int lang_inuse = 0;
+
+/* look up a translation symbol from the hash */
+static inline const char *translate_lookup(char *str)
+{
+ char *name, *def, *p;
+ hash_item *hi;
+ var *v;
+
+ def = name = str;
+ if (((p = strchr(str, '|')) != NULL)
+ || ((p = strchr(str, '#')) != NULL)) {
+ def = p + 1;
+ *p = 0;
+ }
+
+ hi = hash_search(lstr, name);
+ if (!hi)
+ return def;
+
+ v = &hi->data.v;
+
+ return getvar_s(v);
+}
+
+/* look for translation markers in the line and return the translated string */
+static char *translate_line(char *line)
+{
+ const char *tok[MAX_TR * 3];
+ char *l, *p, *p2 = NULL, *res;
+ int len = 0, _pos = 0, i, tr_abort = 0;
+ static char *backlog = NULL;
+
+ if (backlog && line) {
+ backlog = xrealloc(backlog, strlen(backlog) + strlen(line) + 1);
+ sprintf(backlog + strlen(backlog), line);
+ l = backlog;
+ } else {
+ l = line;
+ }
+
+ while (l != NULL) {
+ if ((p = strstr(l, TR_START)) == NULL) {
+ len += strlen((tok[_pos++] = l));
+ break;
+ }
+
+ p2 = strstr(p, TR_END);
+ if (p2 == NULL) {
+ p2 = xstrdup(l);
+ tr_abort = 1;
+ break;
+ }
+
+ *p = 0;
+ len += strlen((tok[_pos++] = l));
+ *p2 = 0;
+ len += strlen((tok[_pos++] = translate_lookup(p + strlen(TR_START))));
+
+ l = p2;
+ l += strlen(TR_END);
+ }
+ len++;
+
+ p = xmalloc(len + 1);
+ *p = 0;
+ res = p;
+ for (i = 0; i < _pos; i++) {
+ strcat(p, tok[i]);
+ p += strlen(tok[i]);
+ }
+ if (backlog) {
+ free(backlog);
+ backlog = NULL;
+ }
+ if (tr_abort && p2)
+ backlog = p2;
+
+ return res;
+}
+
+/* hook for intercepting awk's use of puts. used for running all printed strings
+ * through the translation system */
+static inline int fputs_hook (__const char *__restrict __s, FILE *__restrict __stream)
+{
+ if (lang_inuse && (__stream == stdout)) {
+ int ret;
+ char *str;
+
+ str = translate_line((char *) __s);
+ ret = fputs(str, __stream);
+ free(str);
+
+ return ret;
+ }
+
+ return fputs(__s, __stream);
+}
+
+static var *init_lang(var *res, var *args, int nargs)
+{
+ if (!lstr)
+ lstr = hash_init();
+
+ lang_inuse = 1;
+ return res;
+}
+
+
+/* load and parse language file */
+static void load_lang_file(char *file)
+{
+ FILE *f;
+ char *b, *name, *value;
+ char buf1[LINE_BUF];
+
+ if ((f = fopen(file, "r")) == NULL)
+ return;
+
+ while (!feof(f) && (fgets(buf1, LINE_BUF - 1, f) != NULL)) {
+ b = buf1;
+ if (*b == '#')
+ continue; /* skip comments */
+
+ while (isspace(*b))
+ b++; /* skip leading spaces */
+ if (!*b)
+ continue;
+
+ name = b;
+ if ((b = strstr(name, "=>")) == NULL)
+ continue; /* separator not found */
+
+ value = b + 2;
+ if (!*value)
+ continue;
+
+ *b = 0;
+ for (b--; isspace(*b); b--)
+ *b = 0; /* remove trailing spaces */
+
+ while (isspace(*value))
+ value++; /* skip leading spaces */
+
+ for (b = value + strlen(value) - 1; isspace(*b); b--)
+ *b = 0; /* remove trailing spaces */
+
+ if (!*value)
+ continue;
+
+ setvar_s(findvar(lstr,name), value);
+ }
+
+ fclose(f);
+}
+
+static var *load_lang(var *res, var *args, int nargs)
+{
+ const char *langfmt = "/usr/lib/webif/lang/%s.txt";
+ char lbuf[LINE_BUF];
+ const char *lang;
+
+ if (!lang_inuse)
+ init_lang(res, args, nargs);
+
+ lang = getvar_s(args);
+ if (!lang || !strcmp(lang, ""))
+ return res;
+
+ sprintf(lbuf, langfmt, lang);
+ load_lang_file(lbuf);
+
+ return res;
+}
+
+/* read the contents of an entire file */
+static char *get_file(const char *fname)
+{
+ FILE *F;
+ char *s = NULL;
+ int i, j, flen;
+
+ F = fopen(fname, "r");
+ if (!F) {
+ return NULL;
+ }
+
+ if (fseek(F, 0, SEEK_END) == 0) {
+ flen = ftell(F);
+ s = (char *)xmalloc(flen+4);
+ fseek(F, 0, SEEK_SET);
+ i = 1 + fread(s+1, 1, flen, F);
+ } else {
+ for (i=j=1; j>0; i+=j) {
+ s = (char *)xrealloc(s, i+4096);
+ j = fread(s+i, 1, 4094, F);
+ }
+ }
+
+ s[i] = '\0';
+ fclose(F);
+ return s;
+}
+
+
+/* parse_include():
+ *
+ * taken from parse_program from awk.c
+ * END{} is not parsed here, and BEGIN{} is executed immediately
+ */
+static void parse_include(char *p)
+{
+ uint32_t tclass;
+ chain *initseq = NULL;
+ chain tmp;
+ func *f;
+ var *v, *tv;
+
+ tv = nvalloc(1);
+ memset(&tmp, 0, sizeof(tmp));
+ g_pos = p;
+ t_lineno = 1;
+ while ((tclass = next_token(TC_EOF | TC_OPSEQ |
+ TC_OPTERM | TC_BEGIN | TC_FUNCDECL)) != TC_EOF) {
+ if (tclass & TC_OPTERM)
+ continue;
+
+ seq = &tmp;
+ if (tclass & TC_BEGIN) {
+ initseq = xzalloc(sizeof(chain));
+ seq = initseq;
+ chain_group();
+ } else if (tclass & TC_FUNCDECL) {
+ next_token(TC_FUNCTION);
+ g_pos++;
+ f = newfunc(t_string);
+ f->type = AWKFUNC;
+ f->x.body.first = NULL;
+ f->nargs = 0;
+ while (next_token(TC_VARIABLE | TC_SEQTERM) & TC_VARIABLE) {
+ v = findvar(ahash, t_string);
+ v->x.aidx = (f->nargs)++;
+
+ if (next_token(TC_COMMA | TC_SEQTERM) & TC_SEQTERM)
+ break;
+ }
+ seq = &(f->x.body);
+ chain_group();
+ clear_array(ahash);
+ }
+ }
+ if (initseq && initseq->first)
+ tv = evaluate(initseq->first, tv);
+ nvfree(tv);
+}
+
+
+/* include an awk file and run its BEGIN{} section */
+static xhash *includes = NULL;
+static void include_file(const char *filename)
+{
+ char *s;
+ var *v;
+ int oldlnr = g_lineno;
+ const char *oldprg = g_progname;
+
+ if (!includes)
+ includes = hash_init();
+
+ /* find out if the file has been included already */
+ v = findvar(includes, filename);
+ if (istrue(v))
+ return;
+ setvar_s(v, "1");
+
+ /* read include file */
+ s = get_file(filename);
+ if (!s) {
+ fprintf(stderr, "Could not open file.\n");
+ return;
+ }
+ g_lineno = 1;
+ g_progname = xstrdup(filename);
+ parse_include(s+1);
+ free(s);
+ g_lineno = oldlnr;
+ g_progname = oldprg;
+}
+
+static var *include(var *res, var *args, int nargs)
+{
+ const char *s;
+
+ s = getvar_s(args);
+ if (s && (strlen(s) > 0))
+ include_file(s);
+
+ return res;
+}
+
+/* parse an awk expression */
+static var *parse_awk(char *str, var *tv)
+{
+ chain body;
+ node *n;
+
+ memset(&body, 0, sizeof(body));
+ g_pos = str;
+ seq = &body;
+
+ /* end of expression, assume that there's going to be a free byte
+ * at the end of the string that can be used for the ')' */
+ strcat(str + strlen(str), "}");
+ n = parse_expr(TC_GRPTERM);
+ if (!n)
+ return NULL;
+
+ return evaluate(n, tv);
+}
+
+static inline void print_translate(char *s)
+{
+ char *str = s;
+ if (lang_inuse)
+ str = translate_line(s);
+ fputs(str, stdout);
+ fflush(stdout);
+ if (lang_inuse)
+ free(str);
+}
+
+static void render_element(struct template_cb *tcb, struct template_element *e)
+{
+ var *v;
+ char *s, *s2;
+ int i;
+
+ if (!e || !e->var)
+ return;
+ g_lineno = e->line;
+ switch (e->t) {
+ case T_TEXT:
+ s = malloc(strlen(e->var) + 2);
+ strcpy(s, e->var);
+ print_translate(s);
+ free(s);
+ break;
+ case T_CODE:
+ s = malloc(strlen(e->var) + 2);
+ strcpy(s, e->var);
+ v = nvalloc(1);
+ s2 = strdup(getvar_s(parse_awk(s, v)));
+ nvfree(v);
+ print_translate(s2);
+ free(s);
+ free(s2);
+ break;
+ case T_IF:
+ s = malloc(strlen(e->var) + 2);
+ strcpy(s, e->var);
+ v = nvalloc(1);
+ i = istrue(parse_awk(s, v));
+ nvfree(v);
+ free(s);
+
+ if (i)
+ execute_template(tcb, e->sub);
+ else if (e->sub2)
+ execute_template(tcb, e->sub2);
+ break;
+ case T_FOR: {
+ v = newvar(e->var);
+ hashwalk_init(v, iamarray(findvar(vhash, e->in)));
+ while (hashwalk_next(v)) {
+ execute_template(tcb, e->sub);
+ }
+ clrvar(v);
+ }
+ break;
+ default:
+ break;
+ }
+}
+
+/* awk method render(), which opens a template file and processes all awk ssi calls */
+static void render_file(const char *filename)
+{
+ struct template_cb tcb;
+ struct template_element *e;
+ FILE *f;
+ const char *oldprg = g_progname;
+ int oldlnr = g_lineno;
+
+ if (!filename)
+ return;
+
+ f = fopen(filename, "r");
+ if (!f)
+ return;
+
+ g_progname = xstrdup(filename);
+ g_lineno = 1;
+ memset(&tcb, 0, sizeof(tcb));
+ tcb.handle_element = render_element;
+ e = parse_template(&tcb, f);
+ execute_template(&tcb, e);
+ free_template(&tcb, e);
+ fclose(f);
+ g_progname = oldprg;
+ g_lineno = oldlnr;
+}
+
+static var *render(var *res, var *args, int nargs)
+{
+ const char *s;
+
+ s = getvar_s(args);
+ if (!s)
+ return res;
+
+ render_file(s);
+
+ return res;
+}
+
+/* Call render, but only if this function hasn't been called already */
+static int layout_rendered = 0;
+static var *render_layout(var *res, var *args, int nargs)
+{
+ if (layout_rendered)
+ return res;
+ layout_rendered = 1;
+ return render(res, args, nargs);
+}
+
+/* registers a global c function for the awk interpreter */
+static void register_cfunc(const char *name, awk_cfunc cfunc, int nargs)
+{
+ func *f;
+
+ f = newfunc(name);
+ f->type = CFUNC;
+ f->x.cfunc = cfunc;
+ f->nargs = nargs;
+}
+
+static void putvar(vartype type, char *name, char *value)
+{
+ if (type != FORM_VAR)
+ return;
+
+ setvar_u(findvar(formvar, name), value);
+}
+
+static const char *cgi_getvar(const char *name)
+{
+ if (!formvar) {
+ formvar = hash_init();
+ cgi_init(putvar);
+ }
+
+ if (!formvar || !name)
+ return NULL;
+
+ return getvar_s(findvar(formvar, name));
+}
+
+/* function call for accessing cgi form variables */
+static var *getvar(var *res, var *args, int nargs)
+{
+ const char *s, *svar;
+
+ s = getvar_s(args);
+ if (!s)
+ return res;
+
+ svar = cgi_getvar(s);
+ if (!svar)
+ return res;
+
+ setvar_u(res, svar);
+
+ return res;
+}
+
+/* call an awk function without arguments by string reference */
+static var *call(var *res, var *args, int nargs)
+{
+ const char *s = getvar_s(args);
+ func *f;
+
+ if (!s)
+ goto done;
+
+ f = newfunc(s);
+ if (f && f->type == AWKFUNC && f->x.body.first)
+ return evaluate(f->x.body.first, res);
+
+done:
+ return res;
+}
+
+
+static int run_awxscript(char *name)
+{
+ var tv, *layout, *action;
+ char *tmp, *s = NULL;
+
+ zero_out_var(&tv);
+ g_progname = name;
+
+ /* read the main controller source */
+ s = get_file(g_progname);
+ if (!s) {
+ fprintf(stderr, "Could not open file\n");
+ return 1;
+ }
+ parse_program(s+1);
+ free(s);
+
+
+ /* set some defaults for ACTION and LAYOUT, which will have special meaning */
+ layout = newvar("LAYOUT");
+ setvar_s(layout, "views/layout.ahtml");
+
+ /* run the BEGIN {} block */
+ evaluate(beginseq.first, &tv);
+
+ action = newvar("ACTION");
+ if (!(strlen(getvar_s(action)) > 0)) {
+ tmp = (char *) cgi_getvar("action");
+ if (!tmp || (strlen(tmp) <= 0))
+ tmp = strdup("default");
+
+ setvar_p(action, tmp);
+ }
+
+ /* call the action (precedence: begin block override > cgi parameter > "default") */
+ tmp = xmalloc(strlen(getvar_s(action)) + 7);
+ sprintf(tmp, "handle_%s", getvar_s(action));
+ setvar_s(action, tmp);
+ call(&tv, action, 1);
+ free(tmp);
+
+ /* render the selected layout, will do nothing if render_layout has been called from awk */
+ render_layout(&tv, layout, 1);
+
+ return 0;
+}
+
+
+/* main awx processing function. called from awk_main() */
+static int do_awx(int argc, char **argv)
+{
+ int ret = -1;
+ var tv;
+ int i, c;
+ char **args = argv;
+
+ zero_out_var(&tv);
+
+ /* register awk C callbacks */
+ register_cfunc("getvar", getvar, 1);
+ register_cfunc("render", render, 1);
+ register_cfunc("render_layout", render_layout, 1);
+ register_cfunc("call", call, 1);
+ register_cfunc("include", include, 1);
+ register_cfunc("init_lang", init_lang, 1);
+ register_cfunc("load_lang", load_lang, 1);
+
+ if (!is_awx)
+ return 0;
+
+ /* fill in ARGV array */
+ setvar_i(intvar[ARGC], argc + 1);
+ setari_u(intvar[ARGV], 0, "awx");
+ i = 0;
+ while (*args)
+ setari_u(intvar[ARGV], ++i, *args++);
+
+ while((c = getopt(argc, argv, "i:f:")) != EOF) {
+ switch(c) {
+ case 'i':
+ g_progname = optarg;
+ include_file(optarg);
+ break;
+ case 'f':
+ ret = 0;
+ g_progname = optarg;
+ render_file(optarg);
+ goto done;
+ }
+ }
+ argc -= optind;
+ argv += optind;
+
+ if (argc < 1) {
+ fprintf(stderr, "Invalid argument.\n");
+ goto done;
+ }
+
+ ret = run_awxscript(*argv);
+
+done:
+ exit(ret);
+}
+
+/* entry point for awx applet */
+int awx_main(int argc, char **argv)
+{
+ is_awx = 1;
+ return awk_main(argc, argv);
+}
+
--- /dev/null
+++ b/editors/awx_parser.h
@@ -0,0 +1,38 @@
+#ifndef __TEMPLATE_PARSER_H
+#define __TEMPLATE_PARSER_H
+
+enum type {
+ T_TEXT,
+ T_FOR,
+ T_IF,
+ T_CODE
+};
+
+struct template_element;
+struct template_cb;
+
+struct template_cb {
+ void *(*prepare_code)(struct template_element *);
+ void (*handle_element)(struct template_cb *, struct template_element *);
+ void (*free_code)(struct template_element *);
+};
+
+struct template_element {
+ enum type t;
+ char *var;
+ char *in;
+ int line;
+ void *priv;
+ struct template_element *parent;
+ struct template_element *sub;
+ struct template_element *sub2;
+ struct template_element *prev;
+ struct template_element *next;
+};
+
+
+struct template_element *parse_template(struct template_cb *cb, FILE *in);
+void execute_template(struct template_cb *cb, struct template_element *e);
+void free_template(struct template_cb *cb, struct template_element *e);
+
+#endif
--- /dev/null
+++ b/editors/awx_parser.l
@@ -0,0 +1,302 @@
+%{
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "busybox.h"
+#include "awx_parser.h"
+
+enum {
+ S_INIT,
+ S_TEXT,
+ S_CODE,
+ S_IF_START,
+ S_FOR_START,
+ S_FOR_IN,
+ S_END,
+ S_ELSE,
+ S_EOF
+};
+int state;
+
+#undef DEBUG
+#ifdef DEBUG
+char *statestr[] = {
+ [S_INIT] = "S_INIT",
+ [S_TEXT] = "S_TEXT",
+ [S_CODE] = "S_CODE",
+ [S_IF_START] = "S_IF_START",
+ [S_FOR_START] = "S_FOR_START",
+ [S_FOR_IN] = "S_FOR_IN",
+ [S_EOF] = "S_EOF"
+};
+
+char *typestr[] = {
+ [T_TEXT] = "T_TEXT",
+ [T_FOR] = "T_FOR",
+ [T_IF] = "T_IF",
+ [T_CODE] = "T_CODE"
+};
+#endif
+
+static struct template_cb *parse_cb;
+static struct template_element *cur, *head;
+static char *textbuf;
+static unsigned int buflen;
+static unsigned int buf_offset;
+static int _lnr = 0;
+
+static void buf_realloc(void)
+{
+ buflen *= 2;
+ textbuf = xrealloc(textbuf, buflen);
+}
+
+static void parse_error(char *str)
+{
+ fprintf(stderr, "Parse error%s%s\n", (str ? ": " : "!"), (str ?: ""));
+ exit(255);
+}
+
+
+static struct template_element *new_template_element(struct template_element *parent)
+{
+ struct template_element *ptr;
+
+ ptr = xzalloc(sizeof(struct template_element));
+ ptr->parent = parent;
+ return ptr;
+}
+
+static inline void next_template_element(void)
+{
+ cur->next = new_template_element(cur->parent);
+ cur->next->prev = cur;
+ cur = cur->next;
+}
+
+static void addtext(char *text)
+{
+ while(buf_offset + strlen(text) + 1 > buflen)
+ buf_realloc();
+
+ buf_offset += sprintf(&textbuf[buf_offset], "%s", text);
+}
+
+static void set_state(int newstate)
+{
+ char *ptr;
+
+#ifdef DEBUG
+ static int _rec = 0;
+ fprintf(stderr, "DEBUG(%d): %s => %s: %s\n", _rec, statestr[state], statestr[newstate], textbuf);
+#endif
+ ptr = xstrdup(textbuf);
+ if (state == S_FOR_IN)
+ cur->in = ptr;
+ else
+ cur->var = ptr;
+
+ if (parse_cb && (cur->t == T_CODE) && parse_cb->prepare_code)
+ parse_cb->prepare_code(cur);
+
+ buf_offset = 0;
+ *textbuf = 0;
+
+ switch(newstate) {
+#if 0
+ case S_EOF:
+ if (cur->parent)
+ parse_error();
+ break;
+#endif
+ case S_FOR_START:
+ if (ptr || !cur->prev)
+ next_template_element();
+ cur->t = T_FOR;
+ break;
+ case S_IF_START:
+ if (ptr || !cur->prev)
+ next_template_element();
+ cur->t = T_IF;
+ break;
+ case S_ELSE:
+ cur = cur->parent;
+ if (!cur)
+ parse_error("'@else' without parent element");
+ cur->sub2 = new_template_element(cur);
+ cur = cur->sub2;
+ newstate = S_TEXT;
+ break;
+ case S_END:
+#ifdef DEBUG
+ _rec--;
+#endif
+ cur = cur->parent;
+ if (!cur)
+ parse_error("'@end' without parent element");
+
+ next_template_element();
+ cur->t = T_TEXT;
+ newstate = S_TEXT;
+ break;
+ case S_TEXT:
+ switch (cur->t) {
+ case T_CODE:
+ next_template_element();
+ break;
+ case T_IF:
+ case T_FOR:
+#ifdef DEBUG
+ _rec++;
+#endif
+ cur->sub = new_template_element(cur);
+ cur = cur->sub;
+ break;
+ default:
+ break;
+ }
+ cur->t = T_TEXT;
+ break;
+ case S_CODE:
+ if (ptr || !cur->prev)
+ next_template_element();
+ cur->t = T_CODE;
+ break;
+ default:
+ break;
+ }
+ cur->line = _lnr;
+ state = newstate;
+}
+
+%}
+
+%%
+"<%"[ \n\t]*"@if"[ \n\t]+ {
+ if (state == S_TEXT)
+ set_state(S_IF_START);
+ else
+ REJECT;
+}
+
+"<%"[ \n\t]*"@for"[ \n\t]+ {
+ if (state == S_TEXT)
+ set_state(S_FOR_START);
+ else
+ REJECT;
+}
+
+[ \n\t]+"in"[ \n\t]+ {
+ if (state == S_FOR_START)
+ set_state(S_FOR_IN);
+ else
+ REJECT;
+}
+
+"<%"[ \n\t]*"@end"[ \n\t]*%> {
+ if (state != S_TEXT)
+ REJECT;
+ set_state(S_END);
+}
+
+"<%"[ \n\t]*"@else"[ \n\t]*%> {
+ if (state != S_TEXT)
+ REJECT;
+ set_state(S_ELSE);
+}
+
+"<%" {
+ if (state != S_TEXT)
+ parse_error("'<%' cannot be nested");
+ set_state(S_CODE);
+}
+
+[ \n\t]"%>" {
+ if (state == S_TEXT)
+ REJECT;
+ set_state(S_TEXT);
+}
+
+\n {
+ _lnr++;
+ if (state == S_TEXT)
+ addtext(yytext);
+}
+. {
+ addtext(yytext);
+}
+
+
+%%
+
+
+void execute_template(struct template_cb *cb, struct template_element *e)
+{
+ static int rec = 0;
+
+ while (e) {
+#ifdef DEBUG
+ fprintf(stderr, "DEBUG: execute(%d)\t%s\n", rec, typestr[e->t]);
+#endif
+ rec++;
+ if (cb->handle_element)
+ cb->handle_element(cb, e);
+ rec--;
+ e = e->next;
+ }
+}
+
+int yywrap()
+{
+ set_state(S_EOF);
+ return 1;
+}
+
+struct template_element *parse_template(struct template_cb *cb, FILE *in)
+{
+ _lnr = 1;
+ buf_offset = 0;
+ state = S_TEXT;
+ parse_cb = cb;
+
+ buflen = 4096;
+ textbuf = xzalloc(buflen);
+
+ head = xzalloc(sizeof(struct template_element));
+ head->t = T_TEXT;
+ cur = head;
+
+ yyin = in;
+ yylex();
+
+ return head;
+}
+
+void free_template(struct template_cb *cb, struct template_element *e)
+{
+ struct template_element *next;
+ return;
+ if (!e)
+ return;
+
+ switch (e->t) {
+ case T_CODE:
+ if (cb->free_code)
+ cb->free_code(e);
+ break;
+ case T_FOR:
+ case T_IF:
+ free_template(cb, e->sub);
+ break;
+ default:
+ break;
+ }
+ if (e->var)
+ free(e->var);
+ if (e->in)
+ free(e->in);
+
+ next = e->next;
+ free(e);
+ return free_template(cb, next);
+}
--- a/editors/Config.in
+++ b/editors/Config.in
@@ -12,6 +12,13 @@
Awk is used as a pattern scanning and processing language. This is
the BusyBox implementation of that programming language.
+config AWX
+ bool "Enable awx (awk web extension)"
+ default n
+ depends on AWK
+ help
+ awx - awk web extension
+
config FEATURE_AWK_MATH
bool "Enable math functions (requires libm)"
default y
--- a/editors/Kbuild
+++ b/editors/Kbuild
@@ -12,3 +12,12 @@
lib-$(CONFIG_PATCH) += patch.o
lib-$(CONFIG_SED) += sed.o
lib-$(CONFIG_VI) += vi.o
+lib-$(CONFIG_AWX) += awx_parser.o
+
+editors/awx_parser.c: editors/awx_parser.l editors/awx_parser.h
+ @flex $<
+ @mv lex.yy.c $@
+
+editors/awx_parser.o: editors/awx_parser.c FORCE
+ $(call cmd,force_checksrc)
+ $(call if_changed_rule,cc_o_c)
--- a/include/applets.h
+++ b/include/applets.h
@@ -77,6 +77,7 @@
USE_ARPING(APPLET(arping, _BB_DIR_USR_BIN, _BB_SUID_NEVER))
USE_ASH(APPLET(ash, _BB_DIR_BIN, _BB_SUID_NEVER))
USE_AWK(APPLET_NOEXEC(awk, awk, _BB_DIR_USR_BIN, _BB_SUID_NEVER, awk))
+USE_AWK(APPLET_ODDNAME(awx, awk, _BB_DIR_USR_BIN, _BB_SUID_NEVER, awx))
USE_BASENAME(APPLET_NOFORK(basename, basename, _BB_DIR_USR_BIN, _BB_SUID_NEVER, basename))
USE_BBCONFIG(APPLET(bbconfig, _BB_DIR_BIN, _BB_SUID_NEVER))
//USE_BBSH(APPLET(bbsh, _BB_DIR_BIN, _BB_SUID_NEVER))
--- a/include/usage.h
+++ b/include/usage.h
@@ -114,6 +114,9 @@
"\n -F sep Use sep as field separator" \
"\n -f file Read program from file" \
+#define awx_trivial_usage NOUSAGE_STR
+#define awx_full_usage ""
+
#define basename_trivial_usage \
"FILE [SUFFIX]"
#define basename_full_usage "\n\n" \
--- /dev/null
+++ b/include/cgi.h
@@ -0,0 +1,8 @@
+#ifndef CGI_H
+#define CGI_H
+
+typedef enum { FORM_VAR, COOKIE_VAR } vartype;
+typedef void (*var_handler) (vartype, char *, char *);
+int cgi_init(var_handler);
+
+#endif
--- /dev/null
+++ b/libbb/cgi.c
@@ -0,0 +1,457 @@
+/* --------------------------------------------------------------------------
+ * functions for processing cgi form data
+ * Copyright (C) 2007 by Felix Fietkau <nbd@openwrt.org>
+ *
+ * parts taken from the core of haserl.cgi - a poor-man's php for embedded/lightweight environments
+ * $Id: haserl.c,v 1.13 2004/11/10 17:59:35 nangel Exp $
+ * Copyright (c) 2003,2004 Nathan Angelacos (nangel@users.sourceforge.net)
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *
+ * -----
+ * The x2c() and unescape_url() routines were taken from
+ * http://www.jmarshall.com/easy/cgi/getcgi.c.txt
+ *
+ * The comments in that text file state:
+ *
+ *** Written in 1996 by James Marshall, james@jmarshall.com, except
+ *** that the x2c() and unescape_url() routines were lifted directly
+ *** from NCSA's sample program util.c, packaged with their HTTPD.
+ *** For the latest, see http://www.jmarshall.com/easy/cgi/
+ * -----
+ *
+ ------------------------------------------------------------------------- */
+
+#include <stdio.h>
+#include <unistd.h>
+#include <time.h>
+#include <sys/mman.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <sys/stat.h>
+#include <sys/fcntl.h>
+#include <stdlib.h>
+#include <string.h>
+#include <cgi.h>
+
+#ifndef MAX_UPLOAD_KB
+#define MAX_UPLOAD_KB 2048
+#endif
+#define TEMPDIR "/tmp"
+
+static int global_upload_size = 0;
+static int ReadMimeEncodedInput(char *qs);
+static var_handler do_putvar = NULL;
+
+/*
+ * Convert 2 char hex string into char it represents
+ * (from http://www.jmarshall.com/easy/cgi)
+ */
+static char x2c (char *what) {
+ char digit;
+
+ digit=(what[0] >= 'A' ? ((what[0] & 0xdf) - 'A')+10 : (what[0] - '0'));
+ digit *=16;
+ digit+=(what[1] >= 'A' ? ((what[1] & 0xdf) - 'A')+10 : (what[1] - '0'));
+
+ return digit;
+}
+
+/*
+ * unsescape %xx to the characters they represent
+ */
+
+static void unescape_url (char *url) {
+ int i,j;
+
+ for (i=0, j=0; url[j]; ++i, ++j) {
+ if ((url[i] = url[j]) == '%') {
+ url[i] = x2c(&url[j+1]);
+ j+=2;
+ }
+ }
+ url[i]='\0';
+}
+
+static inline void put_var(vartype type, char *var)
+{
+ char *val;
+
+ if (!do_putvar)
+ return;
+
+ val = strchr(var, '=');
+ if (!val)
+ return;
+
+ *val = 0;
+ val++;
+ do_putvar(type, var, val);
+
+ return;
+}
+
+
+/* CookieVars ()
+ * if HTTP_COOKIE is passed as an environment variable,
+ * attempt to parse its values into environment variables
+ */
+static void CookieVars (void)
+{
+ char *qs;
+ char *token;
+
+ if (getenv("HTTP_COOKIE") != NULL)
+ qs=strdup(getenv("HTTP_COOKIE"));
+ else
+ return;
+
+ /** split on; to extract name value pairs */
+ token=strtok(qs, ";");
+ while (token) {
+ // skip leading spaces
+ while ( token[0] == ' ' )
+ token++;
+
+ put_var(COOKIE_VAR, token);
+
+ token = strtok(NULL, ";");
+ }
+ free (qs);
+}
+
+/*
+ * Read cgi variables from query string, and put in environment
+ */
+static int ReadCGIQueryString (void)
+{
+ char *qs;
+ char *token;
+ int i;
+
+ if (getenv("QUERY_STRING") != NULL)
+ qs=strdup(getenv("QUERY_STRING"));
+ else
+ return 0;
+
+ /* change plusses into spaces */
+ for (i=0; qs[i]; i++ ) { if (qs[i] == '+' ) { qs[i] = ' ';} };
+
+ /** split on & and ; to extract name value pairs */
+
+ token=strtok(qs, "&;");
+ while (token) {
+ unescape_url(token);
+ put_var(FORM_VAR, token);
+ token=strtok(NULL, "&;");
+ }
+ free(qs);
+
+ return 0;
+}
+
+
+/*
+ * Read cgi variables from stdin (for POST queries)
+ * (oh... and if its mime-encoded file upload, we save the
+ * file to /tmp; and return the name of the tmp file
+ * the cgi script is responsible for disposing of the tmp file
+ */
+
+static int ReadCGIPOSTValues (void) {
+ char *qs;
+ int content_length;
+ int i;
+ char *token;
+
+
+ if (getenv("CONTENT_LENGTH") == NULL)
+ return(-1);
+ else
+ content_length = atoi(getenv("CONTENT_LENGTH"));
+
+ /* protect ourselves from 20GB file uploads */
+ if (content_length > MAX_UPLOAD_KB * 1024 ) {
+ /* But we need to finish reading the content */
+ while ( fread( &i, sizeof(int), 1, stdin) == 1 );
+ return -1;
+ }
+
+ if (!(qs=malloc(content_length+1)))
+ return -1;
+
+ /* set the buffer to null, so that a browser messing with less
+ data than content_length won't buffer underrun us */
+ memset(qs, 0 ,content_length+1);
+
+ if ((!fread(qs,content_length,1,stdin) &&
+ (content_length > 0)
+ && !feof(stdin))) {
+
+ free(qs);
+ return -1;
+ }
+
+ if (getenv("CONTENT_TYPE") && (strncasecmp(getenv("CONTENT_TYPE"), "multipart/form-data", 19) == 0)) {
+ /* This is a mime request, we need to go to the mime handler */
+ i=ReadMimeEncodedInput(qs);
+ free(qs);
+
+ return i;
+ }
+
+ /* change plusses into spaces */
+ for (i=0; qs[i]; i++ ) { if (qs[i] == '+' ) { qs[i] = ' ';} };
+
+ /** split on & and ; to extract name value pairs */
+ token=strtok(qs, "&;");
+ while (token) {
+ unescape_url(token);
+ put_var(FORM_VAR, token);
+ token=strtok(NULL, "&;");
+ }
+
+ free(qs);
+
+ return 0;
+}
+
+/*
+ * LineToStr - Scans char and replaces the first "\n" with a "\0";
+ * If it finds a "\r", it does that to; (fix DOS brokennes) returns
+ * the length of the string;
+ */
+static int LineToStr (char *string, size_t max) {
+ size_t offset=0;
+
+ while ((offset < max) && (string[offset] != '\n') && (string[offset] != '\r'))
+ offset++;
+
+ if (string[offset] == '\r') {
+ string[offset]='\0';
+ offset++;
+ }
+ if (string[offset] == '\n') {
+ string[offset]='\0';
+ offset++;
+ }
+
+ return offset;
+}
+
+
+/*
+ * ReadMimeEncodedInput - handles things that are mime encoded
+ * takes a pointer to the input; returns 0 on success
+ */
+
+static int ReadMimeEncodedInput(char *qs)
+{
+ char *boundary;
+ char *ct;
+ int i;
+ int datastart;
+ size_t cl;
+ size_t offset;
+ char *envname;
+ char *filename;
+ char *ptr;
+ int line;
+ char tmpname[] = TEMPDIR "/XXXXXX";
+ int fd;
+ /* we should only get here if the content type was set. Segfaults happen
+ if Content_Type is null */
+
+ if (getenv("CONTENT_LENGTH") == NULL)
+ /* No content length?! */
+ return(-1);
+
+ cl=atoi(getenv("CONTENT_LENGTH"));
+
+ /* we do this 'cause we can't mess with the real env. variable - it would
+ * overwrite the environment - I tried.
+ */
+ i=strlen(getenv("CONTENT_TYPE"))+1;
+ ct=malloc(i);
+ if (ct)
+ memcpy(ct, getenv("CONTENT_TYPE"), i);
+ else
+ return(-1);
+
+ i=(int) NULL;
+ if (ct != NULL) {
+ while (i < strlen(ct) && (strncmp("boundary=", &ct[i], 9) != 0))
+ i++;
+ }
+ if (i == strlen(ct)) {
+ /* no boundary informaiton found */
+ free(ct);
+ return -1;
+ }
+ boundary=&ct[i+7];
+ /* add two leading -- to the boundary */
+ boundary[0]='-';
+ boundary[1]='-';
+
+ /* begin the big loop. Look for:
+ --boundary
+ Content-Disposition: form-data; name="......."
+ ....
+ <blank line>
+ content
+ --boundary
+ Content-Disposition: form-data; name="....." filename="....."
+ ...
+ <blank line>
+ --boundary--
+ eof
+ */
+
+ offset=0;
+ while (offset < cl) {
+ /* first look for boundary */
+ while ((offset < cl) && (memcmp(&qs[offset], boundary, strlen(boundary))))
+ offset++;
+
+ /* if we got here and we ran off the end, its an error */
+ if (offset >= cl) {
+ free(ct);
+ return -1;
+ }
+
+ /* if the two characters following the boundary are --, */
+ /* then we are at the end, exit */
+ if (memcmp(&qs[offset+strlen(boundary)], "--", 2) == 0) {
+ offset+=2;
+ break;
+ }
+ /* find where the offset should be */
+ line=LineToStr(&qs[offset], cl-offset);
+ offset+=line;
+
+ /* Now we're going to look for content-disposition */
+ line=LineToStr(&qs[offset], cl-offset);
+ if (strncasecmp(&qs[offset], "Content-Disposition", 19) != 0) {
+ /* hmm... content disposition was not where we expected it */
+ free(ct);
+ return -1;
+ }
+ /* Found it, so let's go find "name=" */
+ if (!(envname=strstr(&qs[offset], "name="))) {
+ /* now name= is missing?! */
+ free(ct);
+ return(-1);
+ } else
+ envname+=6;
+
+ /* is there a filename tag? */
+ if ((filename=strstr(&qs[offset], "filename="))!= NULL)
+ filename+=10;
+ else
+ filename=NULL;
+
+ /* make envname and filename ASCIIZ */
+ for (i=0; (envname[i] != '"') && (envname[i] != '\0'); i++);
+
+ envname[i] = '\0';
+ if (filename) {
+ for (i=0; (filename[i] != '"') && (filename[i] != '\0'); i++);
+ filename[i] = '\0';
+ }
+ offset+=line;
+
+ /* Ok, by some miracle, we have the name; let's skip till we */
+ /* come to a blank line */
+ line=LineToStr(&qs[offset], cl-offset);
+ while (strlen(&qs[offset]) > 1) {
+ offset+=line;
+ line=LineToStr(&qs[offset], cl-offset);
+ }
+ offset+=line;
+ datastart=offset;
+ /* And we go back to looking for a boundary */
+ while ((offset < cl) && (memcmp(&qs[offset], boundary, strlen(boundary))))
+ offset++;
+
+ /* strip [cr] lf */
+ if ((qs[offset-1] == '\n') && (qs[offset-2] == '\r'))
+ offset-=2;
+ else
+ offset-=1;
+
+ qs[offset]=0;
+
+ /* ok, at this point, we know where the name is, and we know */
+ /* where the content is... we have to do one of two things */
+ /* based on whether its a file or not */
+ if (filename==NULL) { /* its not a file, so its easy */
+ /* just jam the content after the name */
+ memcpy(&envname[strlen(envname)+1], &qs[datastart], offset-datastart+1);
+ envname[strlen(envname)]='=';
+ put_var(FORM_VAR, envname);
+ } else { /* handle the fileupload case */
+ if (offset-datastart) { /* only if they uploaded */
+ if ( global_upload_size == 0 ) {
+ return -1;
+ }
+ /* stuff in the filename */
+ ptr= calloc ( sizeof (char), strlen(envname)+strlen(filename)+2+5 );
+ sprintf (ptr, "%s_name=%s", envname, filename);
+ put_var(FORM_VAR, ptr);
+ free(ptr);
+
+ fd=mkstemp(tmpname);
+
+ if (fd == -1)
+ return(-1);
+
+ write(fd, &qs[datastart], offset-datastart);
+ close(fd);
+ ptr= calloc (sizeof(char), strlen(envname)+strlen(tmpname)+2);
+ sprintf (ptr, "%s=%s", envname, tmpname);
+ put_var(FORM_VAR, ptr);
+ free(ptr);
+ }
+ }
+ }
+ free(ct);
+ return 0;
+}
+
+
+/*-------------------------------------------------------------------------
+ *
+ * Main
+ *
+ *------------------------------------------------------------------------*/
+
+int cgi_init(var_handler putvar_handler)
+{
+ int retval = 0;
+
+ do_putvar = putvar_handler;
+
+ /* Read the current environment into our chain */
+ CookieVars();
+ if (getenv("REQUEST_METHOD")) {
+ if (strcasecmp(getenv("REQUEST_METHOD"), "GET") == 0)
+ retval = ReadCGIQueryString();
+
+ if (strcasecmp(getenv("REQUEST_METHOD"), "POST") == 0)
+ retval = ReadCGIPOSTValues();
+ }
+
+ return retval;
+}
--- a/libbb/Kbuild
+++ b/libbb/Kbuild
@@ -112,6 +112,7 @@
lib-y += xreadlink.o
# conditionally compiled objects:
+lib-$(CONFIG_AWX) += cgi.o
lib-$(CONFIG_FEATURE_MOUNT_LOOP) += loop.o
lib-$(CONFIG_LOSETUP) += loop.o
lib-$(CONFIG_FEATURE_MTAB_SUPPORT) += mtab.o