You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
1.7 KiB
75 lines
1.7 KiB
//
|
|
// peglint.cc
|
|
//
|
|
// Copyright (c) 2015 Yuji Hirose. All rights reserved.
|
|
// MIT License
|
|
//
|
|
|
|
#include <peglib.h>
|
|
#include <fstream>
|
|
|
|
using namespace std;
|
|
|
|
bool read_file(const char* path, vector<char>& buff)
|
|
{
|
|
ifstream ifs(path, ios::in | ios::binary);
|
|
if (ifs.fail()) {
|
|
return false;
|
|
}
|
|
|
|
buff.resize(static_cast<unsigned int>(ifs.seekg(0, ios::end).tellg()));
|
|
if (!buff.empty()) {
|
|
ifs.seekg(0, ios::beg).read(&buff[0], static_cast<streamsize>(buff.size()));
|
|
}
|
|
return true;
|
|
}
|
|
|
|
int main(int argc, const char** argv)
|
|
{
|
|
if (argc < 2 || string("--help") == argv[1]) {
|
|
cerr << "usage: peglint [grammar file path] [source file path]" << endl;
|
|
return 1;
|
|
}
|
|
|
|
// Check PEG grammar
|
|
auto syntax_path = argv[1];
|
|
|
|
vector<char> syntax;
|
|
if (!read_file(syntax_path, syntax)) {
|
|
cerr << "can't open the grammar file." << endl;
|
|
return -1;
|
|
}
|
|
|
|
peglib::peg peg(syntax.data(), syntax.size(), [&](size_t ln, size_t col, const string& msg) {
|
|
cerr << syntax_path << ":" << ln << ":" << col << ": " << msg << endl;
|
|
});
|
|
|
|
if (!peg) {
|
|
return -1;
|
|
}
|
|
|
|
if (argc < 3) {
|
|
return 0;
|
|
}
|
|
|
|
// Check source
|
|
auto source_path = argv[2];
|
|
|
|
vector<char> source;
|
|
if (!read_file(source_path, source)) {
|
|
cerr << "can't open the source file." << endl;
|
|
return -1;
|
|
}
|
|
|
|
auto ret = peg.lint(source.data(), source.size(), true, [&](size_t ln, size_t col, const string& msg) {
|
|
cerr << source_path << ":" << ln << ":" << col << ": " << msg << endl;
|
|
});
|
|
|
|
if (ret) {
|
|
peg.parse(source.data(), source.size());
|
|
}
|
|
|
|
return ret ? 0 : -1;
|
|
}
|
|
|
|
// vim: et ts=4 sw=4 cin cino={1s ff=unix
|
|
|