1 files changed, 323 insertions, 0 deletions

diff --git a/scripts/kconfig/zconf.l b/scripts/kconfig/zconf.l
new file mode 100644
index 0000000..6d81e5e
--- a/dev/null
+++ b/scripts/kconfig/zconf.l
@@ -0,0 +1,323 @@
+%option backup nostdinit noyywrap full ecs
+%option 8bit backup nodefault perf-report perf-report
+%x COMMAND HELP STRING PARAM
+%{
+/*
+ * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
+ * Released under the terms of the GNU GPL v2.0.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#define LKC_DIRECT_LINK
+#include "lkc.h"
+#include "zconf.tab.h"
+
+        #define START_STRSIZE16
+
+char *text;
+static char *text_ptr;
+static int text_size, text_asize;
+
+struct buffer {
+        struct buffer *parent;
+        YY_BUFFER_STATE state;
+};
+
+struct buffer *current_buf;
+
+static int last_ts, first_ts;
+
+static void zconf_endhelp(void);
+static struct buffer *zconf_endfile(void);
+
+void new_string(void)
+{
+        text = malloc(START_STRSIZE);
+        text_asize = START_STRSIZE;
+        text_ptr = text;
+        text_size = 0;
+        *text_ptr = 0;
+}
+
+void append_string(const char *str, int size)
+{
+        int new_size = text_size + size + 1;
+        if (new_size > text_asize) {
+                text = realloc(text, new_size);
+                text_asize = new_size;
+                text_ptr = text + text_size;
+        }
+        memcpy(text_ptr, str, size);
+        text_ptr += size;
+        text_size += size;
+        *text_ptr = 0;
+}
+
+void alloc_string(const char *str, int size)
+{
+        text = malloc(size + 1);
+        memcpy(text, str, size);
+        text[size] = 0;
+}
+%}
+
+        ws[ \n\t]
+        n[A-Za-z0-9_]
+
+%%
+        int str = 0;
+        int ts, i;
+
+        [ \t]*#.*\ncurrent_file->lineno++;
+[ \t]*#.*
+
+        [ \t]*\ncurrent_file->lineno++; return T_EOL;
+
+        [ \t]+{
+        BEGIN(COMMAND);
+}
+
+        .{
+        unput(yytext[0]);
+        //printf("new config: ");
+        //symbol_end(NULL);
+        BEGIN(COMMAND);
+}
+
+
+<COMMAND>{
+                "mainmenu"      BEGIN(PARAM); return T_MAINMENU;
+                "menu"          BEGIN(PARAM); return T_MENU;
+                "endmenu"       BEGIN(PARAM); return T_ENDMENU;
+                "source"        BEGIN(PARAM); return T_SOURCE;
+                "choice"        BEGIN(PARAM); return T_CHOICE;
+                "endchoice"     BEGIN(PARAM); return T_ENDCHOICE;
+                "comment"       BEGIN(PARAM); return T_COMMENT;
+                "config"        BEGIN(PARAM); return T_CONFIG;
+                "help"          BEGIN(PARAM); return T_HELP;
+                "if"            BEGIN(PARAM); return T_IF;
+                "endif"                 BEGIN(PARAM); return T_ENDIF;
+                "depends"       BEGIN(PARAM); return T_DEPENDS;
+                "requires"      BEGIN(PARAM); return T_REQUIRES;
+                "optional"      BEGIN(PARAM); return T_OPTIONAL;
+                "default"       BEGIN(PARAM); return T_DEFAULT;
+                "prompt"        BEGIN(PARAM); return T_PROMPT;
+                "tristate"      BEGIN(PARAM); return T_TRISTATE;
+                "bool"          BEGIN(PARAM); return T_BOOLEAN;
+                "boolean"       BEGIN(PARAM); return T_BOOLEAN;
+                "int"           BEGIN(PARAM); return T_INT;
+                "hex"           BEGIN(PARAM); return T_HEX;
+                "string"        BEGIN(PARAM); return T_STRING;
+                {n}+{
+                alloc_string(yytext, yyleng);
+                zconflval.string = text;
+                return T_WORD;
+        }
+        .
+                \ncurrent_file->lineno++; BEGIN(INITIAL);
+}
+
+<PARAM>{
+                "&&"return T_AND;
+                "||"return T_OR;
+                "("return T_OPEN_PAREN;
+                ")"return T_CLOSE_PAREN;
+                "!"return T_NOT;
+                "="return T_EQUAL;
+                "!="return T_UNEQUAL;
+                "if"return T_IF;
+                "on"return T_ON;
+                \"|\'{
+                str = yytext[0];
+                new_string();
+                BEGIN(STRING);
+        }
+                \nBEGIN(INITIAL); current_file->lineno++; return T_EOL;
+                ---/* ignore */
+                ({n}|[-/.])+{
+                alloc_string(yytext, yyleng);
+                zconflval.string = text;
+                return T_WORD;
+        }
+        .
+}
+
+<STRING>{
+                [^'"\n\\]+{
+                append_string(yytext, yyleng);
+        }
+                \'|\"{
+                if (str == yytext[0]) {
+                        BEGIN(PARAM);
+                        zconflval.string = text;
+                        //printf("s:%s\n", text);
+                        return T_STRING;
+                } else
+                        append_string(yytext, 1);
+        }
+                \\[ \t]*\nappend_string(yytext+yyleng-1, 1); current_file->lineno++;
+                \\[ \t]*append_string(yytext+1, yyleng-1);
+                \\.     append_string(yytext+1, 1);
+                \n{
+                //printf(":%d: open string!\n", current_file->lineno+1);
+                exit(0);
+        }
+                <<EOF>>{
+                //printf(":%d: open string!\n", current_file->lineno+1);
+                exit(0);
+        }
+}
+
+<HELP>{
+                [ \t]+{
+                ts = 0;
+                for (i = 0; i < yyleng; i++) {
+                        if (yytext[i] == '\t')
+                                ts = (ts & ~7) + 8;
+                        else
+                                ts++;
+                }
+                last_ts = ts;
+                if (first_ts) {
+                        if (ts < first_ts) {
+                                zconf_endhelp();
+                                return T_HELPTEXT;
+                        }
+                        ts -= first_ts;
+                        while (ts > 8) {
+                                append_string("        ", 8);
+                                ts -= 8;
+                        }
+                        append_string("        ", ts);
+                }
+                
+        }
+        \n/[^ \t\n] {
+                current_file->lineno++;
+                zconf_endhelp();
+                return T_HELPTEXT;
+        }
+                [ \t]*\n{
+                current_file->lineno++;
+                append_string("\n", 1);
+        }
+        [^ \t\n].* {
+                append_string(yytext, yyleng);
+                if (!first_ts)
+                        first_ts = last_ts;
+        }
+                <<EOF>>{
+                zconf_endhelp();
+                return T_HELPTEXT;
+        }
+}
+
+        <<EOF>>{
+        if (current_buf) {
+                zconf_endfile();
+                return T_EOF;
+        }
+        yyterminate();
+}
+
+%%
+void zconf_starthelp(void)
+{
+        new_string();
+        last_ts = first_ts = 0;
+        BEGIN(HELP);
+}
+
+static void zconf_endhelp(void)
+{
+        zconflval.string = text;
+        BEGIN(INITIAL); 
+}
+
+void zconf_initscan(const char *name)
+{
+        yyin = fopen(name, "r");
+        if (!yyin) {
+                printf("can't find file %s\n", name);
+                exit(1);
+        }
+        //fprintf(stderr, "zconf_initscan: %s\n", name);
+
+        current_buf = malloc(sizeof(*current_buf));
+        memset(current_buf, 0, sizeof(*current_buf));
+
+        current_file = file_lookup(name);
+        current_file->lineno = 1;
+        current_file->flags = FILE_BUSY;
+}
+
+void zconf_nextfile(const char *name)
+{
+        struct file *file = file_lookup(name);
+        struct buffer *buf = malloc(sizeof(*buf));
+        memset(buf, 0, sizeof(*buf));
+
+        current_buf->state = YY_CURRENT_BUFFER;
+        yyin = fopen(name, "r");
+        if (!yyin) {
+                printf("%s:%d: can't open file \"%s\"\n", zconf_curname(), zconf_lineno(), name);
+                exit(1);
+        }
+        yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
+        buf->parent = current_buf;
+        current_buf = buf;
+
+        //fprintf(stderr, "zconf_nextfile: %s\n", name);
+
+        if (file->flags & FILE_BUSY) {
+                printf("recursive scan (%s)?\n", name);
+                exit(1);
+        }
+        if (file->flags & FILE_SCANNED) {
+                printf("file %s already scanned?\n", name);
+                exit(1);
+        }
+        file->flags |= FILE_BUSY;
+        file->lineno = 1;
+        file->parent = current_file;
+        current_file = file;
+}
+
+static struct buffer *zconf_endfile(void)
+{
+        struct buffer *parent;
+
+        current_file->flags |= FILE_SCANNED;
+        current_file->flags &= ~FILE_BUSY;
+        current_file = current_file->parent;
+
+        parent = current_buf->parent;
+        if (parent) {
+                yy_delete_buffer(YY_CURRENT_BUFFER);
+                yy_switch_to_buffer(parent->state);
+        }
+        free(current_buf);
+        current_buf = parent;
+
+        return parent;
+}
+
+int zconf_lineno(void)
+{
+        if (current_buf)
+                return current_file->lineno;
+        else
+                return 0;
+}
+
+char *zconf_curname(void)
+{
+        if (current_buf)
+                return current_file->name;
+        else
+                return "<none>";
+}