85 lines
1.6 KiB
Ragel
85 lines
1.6 KiB
Ragel
#include <stdio.h>
|
|
#include "bstrlib/bstrlib.h"
|
|
|
|
bstring grab_chunk(char *start, char *end) {
|
|
blk2bstr(start, end-start);
|
|
}
|
|
|
|
%%{
|
|
machine shortcode;
|
|
|
|
action mark {
|
|
mark = p;
|
|
}
|
|
|
|
spc = space*;
|
|
sep = space+;
|
|
path = (alnum | '/' )+;
|
|
|
|
name = (alpha+ path?)
|
|
> mark
|
|
% {bcatcstr(output, "N");
|
|
bcatblk(output, mark, p-mark);
|
|
bcatcstr(output, "\n");
|
|
};
|
|
argname = alpha+
|
|
> mark
|
|
% {bcatcstr(output, "A");
|
|
bcatblk(output, mark, p-mark);
|
|
bcatcstr(output, "\n");
|
|
};
|
|
qvalue = ('"' [^"]* '"')
|
|
> mark
|
|
% {bcatcstr(output, "V");
|
|
bcatblk(output, mark+1, p-mark-2);
|
|
bcatcstr(output, "\n");
|
|
};
|
|
|
|
value = alnum+
|
|
> mark
|
|
% {bcatcstr(output, "V");
|
|
bcatblk(output, mark, p-mark);
|
|
bcatcstr(output, "\n");
|
|
};
|
|
|
|
arg = ((argname '=')? (value|qvalue));
|
|
|
|
start_p = '{{%';
|
|
end_p = '%}}';
|
|
|
|
start_b = '{{<';
|
|
end_b = '>}}';
|
|
|
|
start = start_p | start_b ;
|
|
end = end_p | end_b ;
|
|
|
|
shortcode = (start spc name (sep arg)* spc end)
|
|
> {bcatcstr(output, "---\n");}
|
|
% {bcatcstr(output, "\n");};
|
|
|
|
|
|
|
|
main := (any* shortcode)*;
|
|
}%%
|
|
|
|
bstring parse(char *input) {
|
|
%%write data;
|
|
char *eof, *ts, *te = 0;
|
|
int cs, act = 0;
|
|
|
|
char *p = input;
|
|
char *pe = p + strlen(input);
|
|
|
|
char *mark = 0;
|
|
bstring output = bfromcstr("");
|
|
%% write init;
|
|
%% write exec;
|
|
return output;
|
|
}
|
|
|
|
int main(int argc, char **argv) {
|
|
bstring output = parse("{{< thename \"onearg\">}} {{% sc/42 another argname=\"val3\" %}}");
|
|
printf("\n%s\n", output->data);
|
|
return 0;
|
|
}
|