mirror of https://github.com/bqv/weechat-xmpp
sexps in /xml
bqv
3 years ago
parent
efffd451fa
commit
40af811d42
@ -0,0 +1,93 @@
|
||||
#include <cctype>
|
||||
#include <sstream>
|
||||
#include <cassert>
|
||||
#include <exception>
|
||||
|
||||
#include "driver.hh"
|
||||
|
||||
sexp::driver::~driver()
|
||||
{
|
||||
delete(scanner);
|
||||
scanner = nullptr;
|
||||
delete(parser);
|
||||
parser = nullptr;
|
||||
}
|
||||
|
||||
bool sexp::driver::parse(const char *text, std::ostream *debug = nullptr)
|
||||
{
|
||||
assert(text != nullptr);
|
||||
std::istringstream stream{std::string(text)};
|
||||
return parse(stream, debug);
|
||||
}
|
||||
|
||||
bool sexp::driver::parse(std::istream &stream, std::ostream *debug = nullptr)
|
||||
{
|
||||
if(!stream.good() && stream.eof())
|
||||
{
|
||||
return false;
|
||||
}
|
||||
return parse_helper(stream, debug);
|
||||
}
|
||||
|
||||
|
||||
bool sexp::driver::parse_helper(std::istream &stream, std::ostream *debug)
|
||||
{
|
||||
delete(scanner);
|
||||
try
|
||||
{
|
||||
scanner = new sexp::scanner(&stream);
|
||||
}
|
||||
catch(std::bad_alloc &ba)
|
||||
{
|
||||
throw std::runtime_error("Failed to allocate scanner");
|
||||
}
|
||||
|
||||
delete(parser);
|
||||
try
|
||||
{
|
||||
parser = new sexp::parser((*scanner) /* scanner */,
|
||||
(*this) /* driver */);
|
||||
}
|
||||
catch(std::bad_alloc &ba)
|
||||
{
|
||||
throw std::runtime_error("Failed to allocate parser");
|
||||
}
|
||||
|
||||
const int accept = 0;
|
||||
if (debug)
|
||||
{
|
||||
parser->set_debug_level(1);
|
||||
parser->set_debug_stream(*debug);
|
||||
}
|
||||
return parser->parse() == accept;
|
||||
}
|
||||
|
||||
void sexp::driver::start_tag(const std::string &name)
|
||||
{
|
||||
auto *stanza = xmpp_stanza_new(context);
|
||||
xmpp_stanza_set_name(stanza, name.data());
|
||||
stack.push_back(stanza);
|
||||
}
|
||||
|
||||
void sexp::driver::end_tag()
|
||||
{
|
||||
auto *stanza = stack.back();
|
||||
stack.pop_back();
|
||||
if (stack.empty())
|
||||
elements.push_back(stanza);
|
||||
else
|
||||
xmpp_stanza_add_child_ex(stack.back(), stanza, false);
|
||||
}
|
||||
|
||||
void sexp::driver::add_text(const std::string &text)
|
||||
{
|
||||
auto *stanza = xmpp_stanza_new(context);
|
||||
xmpp_stanza_set_text(stanza, text.substr(1,text.length()-2).data());
|
||||
xmpp_stanza_add_child_ex(stack.back(), stanza, false);
|
||||
}
|
||||
|
||||
void sexp::driver::add_attr(const std::string &name, const std::string &value)
|
||||
{
|
||||
xmpp_stanza_set_attribute(stack.back(), name.data(),
|
||||
value.substr(1,value.length()-2).data());
|
||||
}
|
||||
@ -0,0 +1,50 @@
|
||||
#pragma once
|
||||
|
||||
#include <string>
|
||||
#include <cstddef>
|
||||
#include <istream>
|
||||
#include <vector>
|
||||
|
||||
#include <strophe.h>
|
||||
|
||||
#include "scanner.hh"
|
||||
#include "parser.tab.hh"
|
||||
|
||||
namespace sexp {
|
||||
|
||||
class driver {
|
||||
public:
|
||||
driver(xmpp_ctx_t *context) : context(context) {}
|
||||
|
||||
virtual ~driver();
|
||||
|
||||
/**
|
||||
* parse - parse from a file
|
||||
* @param text - valid string
|
||||
*/
|
||||
bool parse(const char *text, std::ostream *debug);
|
||||
|
||||
/**
|
||||
* parse - parse from a c++ input stream
|
||||
* @param is - std::istream&, valid input stream
|
||||
*/
|
||||
bool parse(std::istream &iss, std::ostream *debug);
|
||||
|
||||
void start_tag(const std::string &name);
|
||||
void end_tag();
|
||||
void add_text(const std::string &text);
|
||||
void add_attr(const std::string &name, const std::string &value);
|
||||
|
||||
std::vector<xmpp_stanza_t*> elements;
|
||||
|
||||
private:
|
||||
bool parse_helper(std::istream &stream, std::ostream *debug);
|
||||
|
||||
xmpp_ctx_t *context;
|
||||
|
||||
std::vector<xmpp_stanza_t*> stack;
|
||||
sexp::parser *parser = nullptr;
|
||||
sexp::scanner *scanner = nullptr;
|
||||
};
|
||||
|
||||
}
|
||||
@ -0,0 +1,56 @@
|
||||
%option debug
|
||||
%option nodefault
|
||||
%option yyclass="sexp::scanner"
|
||||
%option noyywrap
|
||||
%option c++
|
||||
|
||||
%{
|
||||
#include <string>
|
||||
|
||||
#include "scanner.hh"
|
||||
#undef YY_DECL
|
||||
#define YY_DECL int sexp::scanner::yylex(sexp::parser::semantic_type *const lval, sexp::parser::location_type *loc)
|
||||
|
||||
using token = sexp::parser::token;
|
||||
|
||||
// defaults to NULL
|
||||
#define yyterminate() return token::END
|
||||
|
||||
// update location on matching
|
||||
#define YY_USER_ACTION loc->step(); loc->columns(yyleng);
|
||||
%}
|
||||
|
||||
/* Regular Expressions */
|
||||
%%
|
||||
%{
|
||||
yylval = lval;
|
||||
%}
|
||||
|
||||
"(" {
|
||||
return token::LPAREN;
|
||||
}
|
||||
|
||||
")" {
|
||||
return token::RPAREN;
|
||||
}
|
||||
|
||||
[\n \t\r]+ {
|
||||
// Update line number
|
||||
loc->lines();
|
||||
return token::SPACE;
|
||||
}
|
||||
|
||||
\"([^"\\]|\\.)*\" {
|
||||
yylval->build<std::string>(yytext);
|
||||
return token::STRING;
|
||||
}
|
||||
|
||||
[^ "(:@)]+ {
|
||||
yylval->build<std::string>(yytext);
|
||||
return token::NAME;
|
||||
}
|
||||
|
||||
. {
|
||||
return *yytext;
|
||||
}
|
||||
%%
|
||||
@ -0,0 +1,78 @@
|
||||
%skeleton "lalr1.cc"
|
||||
%require "3.0"
|
||||
%debug
|
||||
%defines
|
||||
|
||||
%define api.namespace {sexp}
|
||||
%define api.parser.class {parser}
|
||||
|
||||
%code requires{
|
||||
namespace sexp {
|
||||
class driver;
|
||||
class scanner;
|
||||
}
|
||||
}
|
||||
|
||||
%parse-param { sexp::scanner &scanner }
|
||||
%parse-param { sexp::driver &driver }
|
||||
|
||||
%code{
|
||||
#include <iostream>
|
||||
#include <cstdlib>
|
||||
#include <sstream>
|
||||
|
||||
/* include for all driver functions */
|
||||
#include "driver.hh"
|
||||
|
||||
#undef yylex
|
||||
#define yylex scanner.yylex
|
||||
}
|
||||
|
||||
%define api.value.type variant
|
||||
%define parse.assert
|
||||
%define parse.error verbose
|
||||
|
||||
%token END 0 "end of file"
|
||||
%token LPAREN
|
||||
%token RPAREN
|
||||
%token <std::string> NAME
|
||||
%token <std::string> STRING
|
||||
%token SPACE
|
||||
|
||||
%locations
|
||||
|
||||
%start input
|
||||
|
||||
%%
|
||||
input : ws END | element input;
|
||||
|
||||
element : lparen attributeset rparenq
|
||||
| lparen tag children rparen;
|
||||
|
||||
ws : | gap;
|
||||
gap : SPACE;
|
||||
|
||||
lparen : ws LPAREN;
|
||||
rparen : ws RPAREN { driver.end_tag(); };
|
||||
rparenq : ws RPAREN;
|
||||
|
||||
tag : ws NAME { driver.start_tag($2); }
|
||||
| ws NAME ':' NAME { driver.start_tag($4); };
|
||||
|
||||
attributeset : '@' attributes;
|
||||
|
||||
attributes : ws | gap attribute attributes;
|
||||
|
||||
attribute : lparen ws NAME gap STRING rparenq { driver.add_attr($3, $5); };
|
||||
|
||||
children : ws
|
||||
| gap STRING children { driver.add_text($2); }
|
||||
| gap element children;
|
||||
%%
|
||||
|
||||
void sexp::parser::error(const sexp::parser::location_type &l, const std::string &err_message)
|
||||
{
|
||||
std::ostringstream ss;
|
||||
ss << "parsing " << err_message << " at " << l;
|
||||
throw std::invalid_argument(ss.str());
|
||||
}
|
||||
@ -0,0 +1,37 @@
|
||||
#pragma once
|
||||
|
||||
#ifndef yyFlexLexer
|
||||
#include <FlexLexer.h>
|
||||
#endif
|
||||
|
||||
#include "parser.tab.hh"
|
||||
#include "location.hh"
|
||||
|
||||
namespace sexp {
|
||||
|
||||
class scanner : public yyFlexLexer {
|
||||
public:
|
||||
|
||||
scanner(std::istream *in) : yyFlexLexer(in)
|
||||
{
|
||||
};
|
||||
|
||||
virtual ~scanner() {
|
||||
};
|
||||
|
||||
// get rid of override virtual function warning
|
||||
using FlexLexer::yylex;
|
||||
|
||||
virtual
|
||||
int yylex(sexp::parser::semantic_type *const lval,
|
||||
sexp::parser::location_type *location);
|
||||
// YY_DECL defined in lexer.l
|
||||
// Method body created by flex in lexer.yy.cc
|
||||
|
||||
|
||||
private:
|
||||
/* yyval ptr */
|
||||
sexp::parser::semantic_type *yylval = nullptr;
|
||||
};
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue