parser.rl

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <stdlib.h>
   4 #include <vector>
   5
   6 #include "inapt.h"
   7
   8 using namespace std;
   9
  10 #define xstrndup strndup
  11
  12 %%{
  13     machine inapt;
  14
  15     action pkgstart { ts = p; }
  16
  17     action add_list {
  18       tmp_action.package = xstrndup(ts, p - ts);
  19       tmp_action.linenum = curline;
  20       tmp_action.filename = curfile;
  21       actions->push_back(tmp_action);
  22     }
  23
  24     action install {
  25         tmp_action.action = inapt_action::INSTALL;
  26     }
  27
  28     action remove {
  29         tmp_action.action = inapt_action::REMOVE;
  30     }
  31
  32     action misc_error {
  33         fprintf(stderr, "%s: %d: Syntax Error\n", curfile, curline);
  34     }
  35
  36     newline = '\n' %{ curline += 1; };
  37     comment = '#' (any - newline)* newline;
  38     whitespace = [\t\v\f\r ] | comment | newline;
  39     package_name = ((lower | digit) (lower | digit | '+' | '-' | '.')+) >pkgstart;
  40     package_list = ((whitespace+ package_name)+ %add_list whitespace*);
  41     cmd_install = ('install' package_list ';') >install;
  42     cmd_remove = ('remove' package_list ';') >remove;
  43     main := (cmd_install | cmd_remove | whitespace)* $err(misc_error);
  44 }%%
  45
  46 %% write data;
  47
  48 #define BUFSIZE 128
  49
  50 void scanner(vector<inapt_action> *actions)
  51 {
  52     static char buf[BUFSIZE];
  53     int cs, have = 0;
  54     int done = 0;
  55     int curline = 1;
  56     char *ts = 0, *te = 0;
  57     //int tl = 0;
  58
  59     vector<char *> tmp_list;
  60     inapt_action tmp_action;
  61     const char *curfile = "stdin";
  62
  63     %% write init;
  64
  65     while ( !done ) {
  66         char *p = buf + have, *pe, *eof = 0;
  67         int len, space = BUFSIZE - have;
  68
  69         if (space == 0) {
  70             fprintf(stderr, "OUT OF BUFFER SPACE\n");
  71             exit(1);
  72         }
  73
  74         len = fread(p, 1, space, stdin);
  75         pe = p + len;
  76
  77         if (len < space) {
  78             eof = pe;
  79             done = 1;
  80         }
  81
  82         %% write exec;
  83
  84         if (cs == inapt_error) {
  85             fprintf(stderr, "PARSE ERROR\n");
  86             exit(1);
  87         }
  88
  89         have = 0;
  90
  91         if (ts) {
  92             have = pe - ts;
  93             memmove(buf, ts, have);
  94             te = buf + (te - ts);
  95             ts = buf;
  96         }
  97     }
  98
  99     if (cs < inapt_first_final) {
 100        fprintf(stderr, "UNEXPECTED EOF\n");
 101        exit(1);
 102     }
 103 }