moved 'colm' dir to 'src'

1 files changed, 285 insertions, 0 deletions

diff --git a/src/exports.cc b/src/exports.cc
new file mode 100644
index 00000000..f5153330
--- /dev/null
+++ b/src/exports.cc
@@ -0,0 +1,285 @@
+/*
+ *  Copyright 2006-2012 Adrian Thurston <thurston@complang.org>
+ */
+
+/*  This file is part of Colm.
+ *
+ *  Colm is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ * 
+ *  Colm is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ * 
+ *  You should have received a copy of the GNU General Public License
+ *  along with Colm; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
+ */
+
+#include "parsedata.h"
+#include "fsmcodegen.h"
+#include "redfsm.h"
+#include "bstmap.h"
+#include "fsmrun.h"
+#include "debug.h"
+#include <sstream>
+#include <string>
+
+using std::ostream;
+using std::ostringstream;
+using std::string;
+using std::cerr;
+using std::endl;
+
+void Compiler::openNameSpace( ostream &out, Namespace *nspace )
+{
+	if ( nspace == defaultNamespace || nspace == rootNamespace )
+		return;
+	
+	openNameSpace( out, nspace->parentNamespace );
+	out << "namespace " << nspace->name << " { ";
+}
+
+void Compiler::closeNameSpace( ostream &out, Namespace *nspace )
+{
+	if ( nspace == defaultNamespace || nspace == rootNamespace )
+		return;
+	
+	openNameSpace( out, nspace->parentNamespace );
+	out << " }";
+}
+
+void Compiler::generateExports()
+{
+	ostream &out = *outStream;
+
+	out << 
+		"#ifndef _EXPORTS_H\n"
+		"#define _EXPORTS_H\n"
+		"\n"
+		"#include <colm/colm.h>\n"
+		"#include <string>\n"
+		"\n";
+	
+	out << 
+		"inline void appendString( ColmPrintArgs *args, const char *data, int length )\n"
+		"{\n"
+		"	std::string *str = (std::string*)args->arg;\n"
+		"	*str += std::string( data, length );\n"
+		"}\n"
+		"\n";
+
+	out << 
+		"inline std::string printTreeStr( ColmProgram *prg, ColmTree *tree, bool trim )\n"
+		"{\n"
+		"	std::string str;\n"
+		"	ColmPrintArgs printArgs = { &str, 1, 0, trim, &appendString, \n"
+		"			&printNull, &printTermTree, &printNull };\n"
+		"	printTreeArgs( prg, vm_root(prg), &printArgs, tree );\n"
+		"	return str;\n"
+		"}\n"
+		"\n";
+
+	/* Declare. */
+	for ( LelList::Iter lel = langEls; lel.lte(); lel++ ) {
+		if ( lel->isEOF ) {
+			out << "// isEOF\n";
+			continue;
+		}
+		if ( lel->tokenDef != 0 && lel->tokenDef->tokenRegion != 0 && lel->tokenDef->tokenRegion->isTokenOnly ) {
+			out << "// isTokenOnly\n";
+			continue;
+		}
+		if ( lel->tokenDef != 0 && lel->tokenDef->tokenRegion != 0 && lel->tokenDef->tokenRegion->isIgnoreOnly ) {
+			out << "// isIgnoreOnly\n";
+			continue;
+		}
+		if ( lel->tokenDef != 0 && lel->tokenDef->tokenRegion != 0 && lel->tokenDef->tokenRegion->isCiOnly )  {
+			out << "// isCiOnly\n";
+			continue;
+		}
+		if ( lel->ciRegion != 0 ) {
+			out << "// ciRegion != 0\n";
+			continue;
+		}	
+		openNameSpace( out, lel->nspace );
+		out << "struct " << lel->fullName << ";";
+		closeNameSpace( out, lel->nspace );
+		out << "\n";
+	}
+
+	/* Class definitions. */
+	for ( LelList::Iter lel = langEls; lel.lte(); lel++ ) {
+		if ( lel->isEOF ) {
+			out << "// isTokenOnly\n";
+			continue;
+		}
+		if ( lel->tokenDef != 0 && lel->tokenDef->tokenRegion != 0 && lel->tokenDef->tokenRegion->isTokenOnly ) {
+			out << "// isTokenOnly\n";
+			continue;
+		}
+		if ( lel->tokenDef != 0 && lel->tokenDef->tokenRegion != 0 && lel->tokenDef->tokenRegion->isIgnoreOnly ) {
+			out << "// isIgnoreOnly\n";
+			continue;
+		}
+		if ( lel->tokenDef != 0 && lel->tokenDef->tokenRegion != 0 && lel->tokenDef->tokenRegion->isCiOnly )  {
+			out << "// isCiOnly\n";
+			continue;
+		}
+		if ( lel->ciRegion != 0 ) {
+			out << "// ciRegion != 0\n";
+			continue;
+		}	
+
+		openNameSpace( out, lel->nspace );
+		out << "struct " << lel->fullName << "\n";
+		out << "{\n";
+		out << "	std::string text() { return printTreeStr( prg, tree, true ); }\n";
+		out << "	std::string text_notrim() { return printTreeStr( prg, tree, false ); }\n";
+		out << "	operator ColmTree *() { return tree; }\n";
+		out << "	ColmProgram *prg;\n";
+		out << "	ColmTree *tree;\n";
+
+		if ( mainReturnUT != 0 && mainReturnUT->langEl == lel ) {
+			out << "	" << lel->fullName << "( ColmProgram *prg ) : prg(prg), tree(returnVal(prg)) {}\n";
+		}
+		out << "	" << lel->fullName << "( ColmProgram *prg, ColmTree *tree ) : prg(prg), tree(tree) {}\n";
+
+		if ( lel->objectDef != 0 && lel->objectDef->objFieldList != 0 ) {
+			ObjFieldList *objFieldList = lel->objectDef->objFieldList;
+			for ( ObjFieldList::Iter ofi = *objFieldList; ofi.lte(); ofi++ ) {
+				ObjField *field = ofi->value;
+				if ( field->useOffset && field->typeRef != 0  ) {
+					UniqueType *ut = field->typeRef->lookupType( this );
+
+					if ( ut != 0 && ut->typeId == TYPE_TREE  ) {
+						out << "	" << ut->langEl->refName << " " << field->name << "();\n";
+					}
+				}
+
+				if ( field->isRhsGet ) {
+					UniqueType *ut = field->typeRef->lookupType( this );
+
+					if ( ut != 0 && ut->typeId == TYPE_TREE  ) {
+						out << "	" << ut->langEl->refName << " " << field->name << "();\n";
+					}
+				}
+			}
+		}
+
+		if ( lel->isRepeat ) {
+			out << "	" << "int end() { return repeatEnd( tree ); }\n";
+			out << "	" << lel->refName << " next();\n";
+			out << "	" << lel->repeatOf->refName << " value();\n";
+		}
+
+		if ( lel->isList ) {
+			out << "	" << "int last() { return listLast( tree ); }\n";
+			out << "	" << lel->refName << " next();\n";
+			out << "	" << lel->repeatOf->refName << " value();\n";
+		}
+		out << "};";
+		closeNameSpace( out, lel->nspace );
+		out << "\n";
+	}
+
+	for ( ObjFieldList::Iter of = *globalObjectDef->objFieldList; of.lte(); of++ ) {
+		ObjField *field = of->value;
+		if ( field->isExport ) {
+			UniqueType *ut = field->typeRef->lookupType(this);
+			if ( ut != 0 && ut->typeId == TYPE_TREE  ) {
+				out << ut->langEl->refName << " " << field->name << "( ColmProgram *prg );\n";
+			}
+		}
+	}
+	
+	out << "#endif\n";
+}
+
+void Compiler::generateExportsImpl()
+{
+	ostream &out = *outStream;
+
+	if ( gblExportTo != 0 )  {
+		out << "#include \"" << gblExportTo << "\"\n";
+	}
+
+	/* Function implementations. */
+	for ( LelList::Iter lel = langEls; lel.lte(); lel++ ) {
+		if ( lel->objectDef != 0 && lel->objectDef->objFieldList != 0 ) {
+			ObjFieldList *objFieldList = lel->objectDef->objFieldList;
+			for ( ObjFieldList::Iter ofi = *objFieldList; ofi.lte(); ofi++ ) {
+				ObjField *field = ofi->value;
+				if ( field->useOffset && field->typeRef != 0  ) {
+					UniqueType *ut = field->typeRef->lookupType( this );
+
+					if ( ut != 0 && ut->typeId == TYPE_TREE  ) {
+						out << ut->langEl->refName << " " << lel->declName << "::" << field->name << 
+							"() { return " << ut->langEl->refName << 
+							"( prg, getAttr( tree, " << field->offset << ") ); }\n";
+					}
+				}
+
+				if ( field->isRhsGet ) {
+					UniqueType *ut = field->typeRef->lookupType( this );
+
+					if ( ut != 0 && ut->typeId == TYPE_TREE  ) {
+						out << ut->langEl->refName << " " << lel->declName << "::" << field->name << 
+							"() { static int a[] = {"; 
+
+						/* Need to place the array computing the val. */
+						out << field->rhsVal.length();
+						for ( Vector<RhsVal>::Iter rg = field->rhsVal; rg.lte(); rg++ ) {
+							out << ", " << rg->prodNum;
+							out << ", " << rg->childNum;
+						}
+
+						out << "}; return " << ut->langEl->refName << 
+							"( prg, getRhsVal( prg, tree, a ) ); }\n";
+					}
+				}
+			}
+		}
+
+		if ( lel->isRepeat ) {
+			out << lel->refName << " " << lel->declName << "::" << " next"
+				"() { return " << lel->refName << 
+				"( prg, getRepeatNext( tree ) ); }\n";
+
+			out << lel->repeatOf->refName << " " << lel->declName << "::" << " value"
+				"() { return " << lel->repeatOf->refName << 
+				"( prg, getRepeatVal( tree ) ); }\n";
+
+		}
+
+		if ( lel->isList ) {
+			out << lel->refName << " " << lel->declName << "::" << " next"
+				"() { return " << lel->refName << 
+				"( prg, getRepeatNext( tree ) ); }\n";
+
+			out << lel->repeatOf->refName << " " << lel->declName << "::" << " value"
+				"() { return " << lel->repeatOf->refName << 
+				"( prg, getRepeatVal( tree ) ); }\n";
+		}
+	}
+
+	out << "\n";
+
+	for ( ObjFieldList::Iter of = *globalObjectDef->objFieldList; of.lte(); of++ ) {
+		ObjField *field = of->value;
+		if ( field->isExport ) {
+			UniqueType *ut = field->typeRef->lookupType(this);
+			if ( ut != 0 && ut->typeId == TYPE_TREE  ) {
+				out << 
+					ut->langEl->refName << " " << field->name << "(ColmProgram *prg)\n"
+					"{ return " << ut->langEl->refName << "( prg, getGlobal( prg, " << 
+					field->offset << ") ); }\n";
+			}
+		}
+	}
+}
+
+