initial commit into repository0.0

1 files changed, 202 insertions, 0 deletions

diff --git a/lib/sitecing_enflesher.ll b/lib/sitecing_enflesher.ll
new file mode 100644
index 0000000..5f631d7
--- a/dev/null
+++ b/lib/sitecing_enflesher.ll
@@ -0,0 +1,202 @@
+%{
+#include <iostream>
+#include <fstream>
+#include <cassert>
+#include <stdexcept>
+using namespace std;
+#include "sitecing/sitecing_exception.h"
+using namespace sitecing;
+#define sitecing_enflesher_flexlexer_once
+#include "sitecing/sitecing_enflesher.h"
+#include "sitecing/sitecing_parser.h"
+#undef yyFlexLexer
+#define yyFlexLexer sitecing_enflesherFlexLexer
+%}
+%option 8bit c++ verbose noyywrap yyclass="sitecing_enflesher" yylineno prefix="sitecing_enflesher" stack debug
+
+ID	[A-Za-z_][A-Za-z0-9_]*
+
+%%
+
+^\%\%\#[^\n]+\n	{
+    string line = yytext;
+    line.erase(0,3);
+    line.erase(line.length()-1);
+    outs.flush();
+    outs.close();
+    outs.clear();
+    outs.open((parser.output_basename+line).c_str(),ios::trunc);
+    if(!outs.good())
+	throw preprocessor_error(CODEPOINT,"failed to write preprocessor output");
+    anchor();
+    anchoraged = true;
+}
+^\%\%[^\n]+\n	{
+    string line = yytext;
+    line.erase(0,2);
+    line.erase(line.length()-1);
+    outs.flush();
+    outs.close();
+    outs.clear();
+    outs.open((parser.output_basename+line).c_str(),ios::trunc);
+    if(!outs.good())
+	throw preprocessor_error(CODEPOINT,"failed to write preprocessor output");
+    anchoraged = false;
+}
+
+\<\%component_basename\%\>	outs << parser.component_basename; anchor_time = true;
+\<\%impl\%\>			outs << parser.impl; anchor_time = true;
+\<\%member_functions:impl\%\>	{
+    for(sitecing_parser::member_functions_t::const_iterator i=parser.member_functions.begin();i!=parser.member_functions.end();i++) {
+	outs << i->type << " " << parser.class_name << "::";
+	if(i->name.empty()) {
+	    outs << parser.class_name << "()";
+	    bool first = true;
+	    for(sitecing_parser::member_variables_t::iterator i=parser.member_variables.begin();i!=parser.member_variables.end();i++) {
+		if(i->initializer.empty())
+		    continue;
+		if(first) {
+		    outs << ":";
+		    first=false;
+		}else{
+		    outs << ",";
+		}
+		if(i->bComponent) {
+		    outs << i->name << "(NULL)";
+		}else {
+		    outs << i->name << "(" << i->initializer << ")";
+		}
+	    }
+	}else if(i->name == "~")
+	    outs << "~" << parser.class_name << "()";
+	else
+	    outs << i->name << i->args;
+	outs << "{\n" << i->body << "\n}\n";
+    }
+    anchor_time = true;
+}
+\<\%class_name\%\>		outs << parser.class_name; anchor_time = true;
+\<\%baseclass_header\%\>	outs << parser.base_header; anchor_time = true;
+\<\%decl\%\>			outs << parser.decl; anchor_time = true;
+\<\%baseclass_name\%\>		outs << parser.base_class; anchor_time = true;
+\<\%member_variables:decl\%\>	{
+    for(sitecing_parser::member_variables_t::iterator i=parser.member_variables.begin();i!=parser.member_variables.end();i++) {
+	if(i->bComponent) {
+	    if(i->type.empty()) {
+		i->type = parser.factory.get_classname(i->initializer);
+	    }
+	    if(i->bTypeOnly) {
+		outs << "typedef " << i->type << " " << i->name << ";\n";
+	    }else{
+		outs << "typedef " << i->type << " __type_" << i->name << ";\nsitecing::so_component __soc_" << i->name << ";\n__type_" << i->name << " *" << i->name << ";\n";
+	    }
+	}else{
+	    outs << i->type << " " << i->name << ";\n";
+	}
+    }
+    anchor_time = true;
+}
+\<\%member_functions:decl\%\>	{
+    for(sitecing_parser::member_functions_t::const_iterator i=parser.member_functions.begin();i!=parser.member_functions.end();i++) {
+	(i->name.empty()?outs:outs << "virtual ")
+	    << i->type << " ";
+	if(i->name.empty()) {
+	    outs << parser.class_name << "()";
+	}else if(i->name == "~")
+	    outs << "~" << parser.class_name << "()";
+	else
+	    outs << i->name << i->args;
+	outs << ";\n";
+    }
+    anchor_time = true;
+}
+\<\%imports:list\%\>		{
+    for(sitecing_parser::member_variables_t::const_iterator i=parser.member_variables.begin();i!=parser.member_variables.end();i++) {
+	if(i->bComponent)
+	    outs << i->initializer << endl;
+    }
+    anchor_time = true;
+}
+\<\%imports:includes\%\>	{
+    for(sitecing_parser::member_variables_t::iterator i=parser.member_variables.begin();i!=parser.member_variables.end();i++) {
+	if(i->bComponent)
+	    outs << "\n#include \"" << i->initializer << ".h\"\n";
+    }
+    anchor_time = true;
+}
+\<\%imports:import\%\>	{
+    for(sitecing_parser::member_variables_t::iterator i=parser.member_variables.begin();i!=parser.member_variables.end();i++) {
+	if(!i->bComponent)
+	    continue;
+	if(i->bTypeOnly)
+	    continue;
+	outs << "__soc_" << i->name << "=__SCIF->ss->fetch(\"" << i->initializer << "\",__SCIF); " << i->name << "=static_cast<__type_" << i->name << "*>(__soc_" << i->name << ".ac->__the_most_derived_this());\n";
+    }
+    anchor_time = true;
+}
+
+\<\%base_component\%\>		{
+    // TODO:
+    anchor_time = true;
+}
+
+\<\%ancestors:includes\%\>	{
+    for(sitecing_parser::ancestor_classes_t::const_iterator i=parser.ancestor_classes.begin();i!=parser.ancestor_classes.end();++i) {
+	outs << "#include \"" << i->path << ".h\"\n";
+    }
+    anchor_time = true;
+}
+\<\%ancestors:component_list\%\>	{
+    for(sitecing_parser::ancestor_classes_t::const_iterator i=parser.ancestor_classes.begin();i!=parser.ancestor_classes.end();++i) {
+	outs << i->path << "\n";
+    }
+    anchor_time = true;
+}
+\<\%ancestors:base_clause_part\%\>	{
+    for(sitecing_parser::ancestor_classes_t::const_iterator i=parser.ancestor_classes.begin();i!=parser.ancestor_classes.end();++i) {
+	outs << ", virtual public " << parser.factory.get_classname(i->path);
+    }
+}
+\<\%ancestors:typedefs\%\>		{
+    for(sitecing_parser::ancestor_classes_t::const_iterator i=parser.ancestor_classes.begin();i!=parser.ancestor_classes.end();++i) {
+	outs << "typedef class " << parser.factory.get_classname(i->path) << " " << i->name << ";\n";
+    }
+    anchor_time = true;
+}
+\<\%ancestors:import\%\>		{
+    for(sitecing_parser::ancestor_classes_t::const_iterator i=parser.ancestor_classes.begin();i!=parser.ancestor_classes.end();++i) {
+	outs << i->name << "::__do_imports();\n";
+    }
+    anchor_time = true;
+}
+
+\n				{
+    if(anchor_time)
+	anchor();
+    ECHO;
+}
+.				ECHO;
+
+%%
+
+void sitecing_enflesher::LexerOutput(const char *buf,int size) {
+    outs.write(buf,size);
+}
+
+void sitecing_enflesher::enflesh() {
+    ifstream ifs(parser.skeleton.c_str());
+    if(!ifs.good())
+	throw preprocessor_error(CODEPOINT,"failed to open skeleton file");
+    switch_streams(&ifs,NULL);
+    yylex();
+}
+
+void sitecing_enflesher::anchor() {
+    if(!anchoraged)
+	return;
+    outs << "\n#line " << lineno() << " \"" << parser.skeleton << "\"\n";
+    anchor_time = false;
+}
+/*
+ * vim:set ft=lex:
+ */