#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
+#include <ctype.h>
#include <vector>
#include "inapt.h"
using namespace std;
-#define xstrndup strndup
+#define MAXDEPTH 100
+#define BUFSIZE 4096
%%{
machine inapt;
- action pkgstart { ts = p; }
+ action strstart { ts = p; }
- action add_list {
- inapt_action *tmp_action = new inapt_action;
- tmp_action->package = xstrndup(ts, p - ts);
- tmp_action->action = curaction;
- tmp_action->linenum = curline;
- tmp_action->filename = curfile;
- cur_context->actions.push_back(tmp_action);
+ action add_alternate {
+ std::string tmp (ts, p - ts); ts = 0;
+ alternates.push_back(tmp);
}
- action install {
- curaction = inapt_action::INSTALL;
+ action add_package {
+ inapt_package *tmp_package = new inapt_package;
+ tmp_package->alternates.swap(alternates);
+ tmp_package->action = tmp_action->action;
+ tmp_package->linenum = curline - (*p == '\n');
+ tmp_package->filename = curfile;
+ tmp_package->predicates.swap(predicates);
+ tmp_action->packages.push_back(tmp_package);
}
- action remove {
- curaction = inapt_action::REMOVE;
+ action start_install {
+ tmp_action = new inapt_action;
+ tmp_action->action = inapt_action::INSTALL;
+ tmp_action->predicates.swap(predicates);
+ block_stack.back()->actions.push_back(tmp_action);
+ }
+
+ action start_remove {
+ tmp_action = new inapt_action;
+ tmp_action->action = inapt_action::REMOVE;
+ tmp_action->predicates.swap(predicates);
+ block_stack.back()->actions.push_back(tmp_action);
+ }
+
+ action add_profiles {
+ inapt_profiles *tmp_profiles = new inapt_profiles;
+ tmp_profiles->profiles.swap(profiles);
+ tmp_profiles->predicates.swap(predicates);
+ block_stack.back()->profiles.push_back(tmp_profiles);
}
action newline {
curline += 1;
}
- action misc_error {
- fprintf(stderr, "%s: %d: Syntax Error\n", curfile, curline);
+ action start_block {
+ if (top < MAXDEPTH) {
+ inapt_block *tmp_block = new inapt_block;
+ block_stack.push_back(tmp_block);
+ fcall main;
+ } else {
+ fatal("%s: %d: Syntax Error: Nesting Too Deep at '{'", curfile, curline);
+ }
+ }
+
+ action end_block {
+ if (top) {
+ fret;
+ } else {
+ fatal("%s: %d: Syntax Error: Unexpected '}'", curfile, curline);
+ }
+ }
+
+ action start_conditional {
+ inapt_conditional *cond = new inapt_conditional;
+ cond->predicates.swap(predicates);
+ conditional_stack.push_back(cond);
+ }
+
+ action full_conditional {
+ inapt_conditional *cond = conditional_stack.back(); conditional_stack.pop_back();
+ cond->else_block = block_stack.back(); block_stack.pop_back();
+ cond->then_block = block_stack.back(); block_stack.pop_back();
+ block_stack.back()->children.push_back(cond);
+ }
+
+ action half_conditional {
+ inapt_conditional *cond = conditional_stack.back(); conditional_stack.pop_back();
+ cond->else_block = NULL;
+ cond->then_block = block_stack.back(); block_stack.pop_back();
+ block_stack.back()->children.push_back(cond);
+ }
+
+ action predicate {
+ std::string tmp (ts, p - ts); ts = 0;
+ predicates.push_back(tmp);
+ }
+
+ action profile {
+ std::string tmp (ts, p - ts); ts = 0;
+ profiles.push_back(tmp);
}
- newline = '\n' %newline;
- comment = '#' (any - newline)* newline;
+ newline = '\n' @newline;
+ comment = '#' (any - '\n')* newline;
whitespace = [\t\v\f\r ] | comment | newline;
- package_name = ((lower | digit) (lower | digit | '+' | '-' | '.')+) >pkgstart;
- package_list = ((whitespace+ package_name)+ %add_list whitespace*);
- cmd_install = ('install' @install package_list ';');
- cmd_remove = ('remove' @remove package_list ';');
- simple_cmd = cmd_install | cmd_remove;
- cmd_if = 'if' whitespace+ alpha+ whitespace+ simple_cmd whitespace* ('else' whitespace+ simple_cmd)?;
- statement = simple_cmd | cmd_if;
- cmd_list = (statement | whitespace)* ; #$err(misc_error);
+ profile = alpha (alpha | digit | '-' | '_' | '+' | '.')*;
+ package_name = ((lower | digit) (lower | digit | '+' | '-' | '.')+) >strstart;
+ predicate = '@' ('!'? profile ('/' '!'? profile)*) >strstart %predicate whitespace+;
+ package_alternates = package_name >strstart %add_alternate ('/' package_name >strstart %add_alternate)*;
+ package_list = ((whitespace+ predicate* package_alternates)+ %add_package whitespace*);
+ profile_list = (whitespace+ profile >strstart %profile)* whitespace*;
+ cmd_install = ('install' @start_install package_list ';');
+ cmd_remove = ('remove' @start_remove package_list ';');
+ cmd_profiles = ('profiles' profile_list ';' @add_profiles);
+ end_block = '}' @end_block;
+ cmd_if = 'if' whitespace+ predicate+ '{' @start_conditional @start_block whitespace*
+ ('else' whitespace* '{' @start_block whitespace* ';' @full_conditional | ';' @half_conditional);
+ cmd = whitespace* (predicate* (cmd_install | cmd_remove | cmd_profiles) | cmd_if);
+ cmd_list = cmd* whitespace* end_block?;
main := cmd_list;
}%%
%% write data;
-#define BUFSIZE 128
+static void badsyntax(const char *filename, int lineno, char badchar, const char *message) {
+ if (!message) {
+ if (badchar == '\n')
+ message = "Unexpected newline";
+ else if (isspace(badchar))
+ message = "Unexpected whitespace";
+ else
+ message = "Syntax error";
+ }
-void parser(const char *filename, inapt_context *top_context)
+ if (isprint(badchar) && !isspace(badchar))
+ fatal("%s: %d: %s at '%c'", filename, lineno, message, badchar);
+ else
+ fatal("%s: %d: %s", filename, lineno, message);
+}
+
+void parser(const char *filename, inapt_block *top_block)
{
static char buf[BUFSIZE];
int fd;
int cs, have = 0;
int done = 0;
int curline = 1;
- char *ts = 0, *te = 0;
- inapt_context *cur_context = top_context;
- //int stack[100];
- //int top = 0; /* TODO: resize */
+ char *ts = 0;
+
+ std::vector<inapt_block *> block_stack;
+ std::vector<inapt_conditional *> conditional_stack;
+ std::vector<std::string> alternates;
+ std::vector<std::string> predicates;
+ std::vector<std::string> profiles;
+ block_stack.push_back(top_block);
+ inapt_action *tmp_action = NULL;
+
+ int stack[MAXDEPTH];
+ int top = 0;
const char *curfile = filename;
- enum inapt_action::action_t curaction = inapt_action::UNSET;
- if (filename) {
+ if (!filename || !strcmp(filename, "-")) {
+ curfile = "stdin";
+ fd = 0;
+ } else {
fd = open(filename, O_RDONLY);
if (fd < 0)
fatalpe("open: %s", filename);
- } else {
- curfile = "stdin";
- fd = 0;
}
%% write init;
- while ( !done ) {
- char *p = buf + have, *pe, *eof = 0;
+ while (!done) {
+ char *p = buf + have, *pe;
int len, space = BUFSIZE - have;
- if (space == 0) {
- fprintf(stderr, "OUT OF BUFFER SPACE\n");
- exit(1);
- }
+ if (!space)
+ badsyntax(curfile, curline, 0, "Overlength token");
len = read(fd, p, space);
- if (len < 0) {
- fprintf(stderr, "IO ERROR\n");
- exit(1);
- }
+ if (len < 0)
+ fatalpe("Unable to read spec");
pe = p + len;
if (!len) {
- eof = pe;
done = 1;
}
%% write exec;
- if (cs == inapt_error) {
- fprintf(stderr, "PARSE ERROR\n");
- exit(1);
- }
+ if (cs == inapt_error)
+ badsyntax(curfile, curline, *p, NULL);
have = 0;
if (ts) {
have = pe - ts;
memmove(buf, ts, have);
- te = buf + (te - ts);
ts = buf;
}
}
- if (cs < inapt_first_final) {
- fprintf(stderr, "UNEXPECTED EOF\n");
- exit(1);
- }
+ if (cs < inapt_first_final)
+ badsyntax(curfile, curline, 0, "Unexpected EOF (forgot semicolon?)");
+
+ if (top)
+ badsyntax(curfile, curline, 0, "Unclosed block at EOF");
}
projects / mspang / inapt.git / blobdiff