ruco-cpp 0.2.1

data/ext/cocor/Tab.h

@@ -0,0 +1,245 @@
+/*-------------------------------------------------------------------------
+Tab -- Symbol Table Management
+Compiler Generator Coco/R,
+Copyright (c) 1990, 2004 Hanspeter Moessenboeck, University of Linz
+extended by M. Loeberbauer & A. Woess, Univ. of Linz
+ported to C++ by Csaba Balazs, University of Szeged
+with improvements by Pat Terry, Rhodes University
+
+This program 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, or (at your option) any
+later version.
+
+This program 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 this program; if not, write to the Free Software Foundation, Inc.,
+59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+As an exception, it is allowed to write an extension of Coco/R that is
+used as a plugin in non-free software.
+
+If not otherwise stated, any source code generated by Coco/R (other than
+Coco/R itself) does not fall under the GNU General Public License.
+-------------------------------------------------------------------------*/
+
+#if !defined(COCO_TAB_H__)
+#define COCO_TAB_H__
+
+#include "ArrayList.h"
+#include "HashTable.h"
+#include "StringBuilder.h"
+#include "SortedList.h"
+#include "Scanner.h"
+#include "Position.h"
+#include "Symbol.h"
+#include "Node.h"
+#include "Graph.h"
+#include "Sets.h"
+#include "CharClass.h"
+
+namespace Coco {
+
+class Errors;
+class Parser;
+class BitArray;
+
+class Tab {
+public:
+	Position *semDeclPos;       // position of global semantic declarations
+	CharSet *ignored;           // characters ignored by the scanner
+	bool ddt[10];                  // debug and test switches
+	Symbol *gramSy;             // root nonterminal; filled by ATG
+	Symbol *eofSy;              // end of file symbol
+	Symbol *noSym;              // used in case of an error
+	BitArray *allSyncSets;      // union of all synchronisation sets
+	HashTable *literals;        // symbols that are used as literals
+
+	wchar_t* srcName;            // name of the atg file (including path)
+	wchar_t* srcDir;             // directory path of the atg file
+	wchar_t* nsName;             // namespace for generated files
+	wchar_t* frameDir;           // directory containing the frame files
+	wchar_t* outDir;             // directory for generated files
+	bool checkEOF;               // should coco generate a check for EOF at
+	                             // the end of Parser.Parse():
+	bool emitLines;              // emit line directives in generated parser
+
+	BitArray *visited;                // mark list for graph traversals
+	Symbol *curSy;                     // current symbol in computation of sets
+
+	Parser *parser;                    // other Coco objects
+	FILE* trace;
+
+	Errors *errors;
+
+	ArrayList *terminals;
+	ArrayList *pragmas;
+	ArrayList *nonterminals;
+
+
+	ArrayList *nodes;
+	static const char* nTyp[];
+	Node *dummyNode;
+
+	ArrayList *classes;
+	int dummyName;
+
+
+	Tab(Parser *parser);
+
+	//---------------------------------------------------------------------
+	//  Symbol list management
+	//---------------------------------------------------------------------
+
+
+	static const char* tKind[];
+
+	Symbol* NewSym(int typ, const wchar_t* name, int line);
+	Symbol* FindSym(const wchar_t* name);
+	int Num(Node *p);
+	void PrintSym(Symbol *sym);
+	void PrintSymbolTable();
+	void PrintSet(BitArray *s, int indent);
+
+	//---------------------------------------------------------------------
+	//  Syntax graph management
+	//---------------------------------------------------------------------
+
+	Node* NewNode(int typ, Symbol *sym, int line);
+	Node* NewNode(int typ, Node* sub);
+	Node* NewNode(int typ, int val, int line);
+	void MakeFirstAlt(Graph *g);
+	void MakeAlternative(Graph *g1, Graph *g2);
+	void MakeSequence(Graph *g1, Graph *g2);
+	void MakeIteration(Graph *g);
+	void MakeOption(Graph *g);
+	void Finish(Graph *g);
+	void DeleteNodes();
+	Graph* StrToGraph(const wchar_t* str);
+	void SetContextTrans(Node *p); // set transition code in the graph rooted at p
+
+	//------------ graph deletability check -----------------
+
+	bool DelGraph(Node* p);
+	bool DelSubGraph(Node* p);
+	bool DelNode(Node* p);
+
+	//----------------- graph printing ----------------------
+
+	int Ptr(Node *p, bool up);
+	wchar_t* Pos(Position *pos);
+	wchar_t* Name(const wchar_t* name);
+	void PrintNodes();
+
+	//---------------------------------------------------------------------
+	//  Character class management
+	//---------------------------------------------------------------------
+
+	CharClass* NewCharClass(const wchar_t* name, CharSet *s);
+	CharClass* FindCharClass(const wchar_t* name);
+	CharClass* FindCharClass(CharSet *s);
+	CharSet* CharClassSet(int i);
+
+	//----------- character class printing
+
+	wchar_t* Ch(const wchar_t ch);
+	void WriteCharSet(CharSet *s);
+	void WriteCharClasses ();
+
+	//---------------------------------------------------------------------
+	//  Symbol set computations
+	//---------------------------------------------------------------------
+
+	/* Computes the first set for the given Node. */
+	BitArray* First0(Node *p, BitArray *mark);
+	BitArray* First(Node *p);
+	void CompFirstSets();
+	void CompFollow(Node *p);
+	void Complete(Symbol *sym);
+	void CompFollowSets();
+	Node* LeadingAny(Node *p);
+	void FindAS(Node *p); // find ANY sets
+	void CompAnySets();
+	BitArray* Expected(Node *p, Symbol *curSy);
+	// does not look behind resolvers; only called during LL(1) test and in CheckRes
+	BitArray* Expected0(Node *p, Symbol *curSy);
+	void CompSync(Node *p);
+	void CompSyncSets();
+	void SetupAnys();
+	void CompDeletableSymbols();
+	void RenumberPragmas();
+	void CompSymbolSets();
+
+	//---------------------------------------------------------------------
+	//  String handling
+	//---------------------------------------------------------------------
+
+	wchar_t  Hex2Char(const wchar_t* s);
+	wchar_t* Char2Hex(const wchar_t ch);
+	wchar_t* Unescape(const wchar_t* s);
+	wchar_t* Escape(const wchar_t* s);
+
+	//---------------------------------------------------------------------
+	//  Grammar checks
+	//---------------------------------------------------------------------
+
+	bool GrammarOk();
+
+	//--------------- check for circular productions ----------------------
+
+	class CNode {	// node of list for finding circular productions
+	public:
+		Symbol *left, *right;
+
+		CNode (Symbol *l, Symbol *r) {
+			left = l; right = r;
+		}
+	};
+
+	void GetSingles(Node *p, ArrayList *singles);
+	bool NoCircularProductions();
+
+	//--------------- check for LL(1) errors ----------------------
+
+	void LL1Error(int cond, Symbol *sym);
+	void CheckOverlap(BitArray *s1, BitArray *s2, int cond);
+	void CheckAlts(Node *p);
+	void CheckLL1();
+
+	//------------- check if resolvers are legal  --------------------
+
+	void ResErr(Node *p, const wchar_t* msg);
+	void CheckRes(Node *p, bool rslvAllowed);
+	void CheckResolvers();
+
+	//------------- check if every nts has a production --------------------
+
+	bool NtsComplete();
+
+	//-------------- check if every nts can be reached  -----------------
+
+	void MarkReachedNts(Node *p);
+	bool AllNtReached();
+
+	//--------- check if every nts can be derived to terminals  ------------
+
+	bool IsTerm(Node *p, BitArray *mark); // true if graph can be derived to terminals
+	bool AllNtToTerm();
+
+	//---------------------------------------------------------------------
+	//  Cross reference list
+	//---------------------------------------------------------------------
+
+	void XRef();
+	void SetDDT(const wchar_t* s);
+	void SetOption(const wchar_t* s);
+
+};
+
+}; // namespace
+
+#endif // !defined(COCO_TAB_H__)

data/ext/cocor/Target.cpp

@@ -0,0 +1,41 @@
+/*-------------------------------------------------------------------------
+Compiler Generator Coco/R,
+Copyright (c) 1990, 2004 Hanspeter Moessenboeck, University of Linz
+extended by M. Loeberbauer & A. Woess, Univ. of Linz
+ported to C++ by Csaba Balazs, University of Szeged
+with improvements by Pat Terry, Rhodes University
+
+This program 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, or (at your option) any 
+later version.
+
+This program 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 this program; if not, write to the Free Software Foundation, Inc., 
+59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+As an exception, it is allowed to write an extension of Coco/R that is
+used as a plugin in non-free software.
+
+If not otherwise stated, any source code generated by Coco/R (other than 
+Coco/R itself) does not fall under the GNU General Public License.
+-------------------------------------------------------------------------*/
+
+#include <stdio.h>
+#include "Target.h"
+#include "State.h"
+
+namespace Coco {
+
+Target::Target(State *s) {
+	next = NULL;
+
+	state = s;
+}
+
+}; // namespace

data/ext/cocor/Target.h

@@ -0,0 +1,48 @@
+/*-------------------------------------------------------------------------
+Compiler Generator Coco/R,
+Copyright (c) 1990, 2004 Hanspeter Moessenboeck, University of Linz
+extended by M. Loeberbauer & A. Woess, Univ. of Linz
+ported to C++ by Csaba Balazs, University of Szeged
+with improvements by Pat Terry, Rhodes University
+
+This program 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, or (at your option) any 
+later version.
+
+This program 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 this program; if not, write to the Free Software Foundation, Inc., 
+59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+As an exception, it is allowed to write an extension of Coco/R that is
+used as a plugin in non-free software.
+
+If not otherwise stated, any source code generated by Coco/R (other than 
+Coco/R itself) does not fall under the GNU General Public License.
+-------------------------------------------------------------------------*/
+
+#if !defined(COCO_TARGET_H__)
+#define COCO_TARGET_H__
+
+namespace Coco {
+
+class State;
+
+class Target  				// set of states that are reached by an action
+{
+public:
+	Target (State *s);
+
+	State *state;				// target state
+	Target *next;
+
+};
+
+}; // namespace
+
+#endif // !defined(COCO_TARGET_H__)

data/ext/cocor/build.bat

@@ -0,0 +1,3 @@
+cl *.cpp -FeCoco.exe /O2 /wd4996
+
+del *.obj

data/ext/cocor/build.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+g++ *.cpp -o Coco -g -Wall
+

data/ext/cocor/coc.bat

@@ -0,0 +1 @@
+coco Coco.ATG -namespace Coco

data/ext/cocor/coc.sh

@@ -0,0 +1,2 @@
+#!/bin/sh
+./Coco Coco.atg -namespace Coco

data/ext/cocor/cocor_ruby_ext.cpp

@@ -0,0 +1,124 @@
+#include <ruby.h>
+#include <iostream>
+#include <stdio.h>
+
+#include "Scanner.h"
+#include "Parser.h"
+#include "Tab.h"
+
+using namespace Coco;
+
+// --------------
+// UTILITIES
+// --------------
+
+std::wstring RSTRING_PTR_WIDE(VALUE rubyString)
+{
+	std::wstring wc( RSTRING_LEN(rubyString), L'#' );
+	mbstowcs( &wc[0], RSTRING_PTR(rubyString), RSTRING_LEN(rubyString) );
+	return wc;
+}
+
+VALUE rb_str_new_wide(std::wstring str)
+{
+	std::string s( str.begin(), str.end() );
+	return rb_str_new(s.c_str(), s.length());
+}
+
+// --------------
+// METHODS
+// --------------
+
+VALUE method_test(VALUE rubySelf, VALUE rubyString)
+{
+	std::wstring s(RSTRING_PTR_WIDE(rubyString));
+	s = L"test-" + s;
+	
+	return rb_str_new_wide(s);
+}
+
+VALUE method_compile(VALUE rubySelf, VALUE rubySrcName, VALUE rubyFramedir, VALUE rubyNsName, VALUE rubyOutDir)
+{
+	std::wstring srcNameW = RSTRING_PTR_WIDE(rubySrcName);
+	std::wstring nsNameW = RSTRING_PTR_WIDE(rubyNsName);
+	std::wstring frameDirW = RSTRING_PTR_WIDE(rubyFramedir);
+	std::wstring outDirW = RSTRING_PTR_WIDE(rubyOutDir);
+
+	const wchar_t *srcName = srcNameW.c_str(), 
+			*nsName = nsNameW.c_str(), 
+			*frameDir = frameDirW.c_str(), 
+			*outDir = outDirW.c_str(), 
+			*ddtString = NULL, 
+			*traceFileName = NULL;
+
+	char *chTrFileName = NULL;
+	bool emitLines = false;
+
+	// basically copy pasta from Coco.cpp
+
+	int pos = coco_string_lastindexof(srcName, '/');
+	if (pos < 0) pos = coco_string_lastindexof(srcName, '\\');
+	wchar_t* file = coco_string_create(srcName);
+	wchar_t* srcDir = coco_string_create(srcName, 0, pos+1);
+
+	Coco::Scanner *scanner = new Coco::Scanner(file);
+	Coco::Parser  *parser  = new Coco::Parser(scanner);
+
+	traceFileName = coco_string_create_append(srcDir, L"trace.txt");
+	chTrFileName = coco_string_create_char(traceFileName);
+
+	if ((parser->trace = fopen(chTrFileName, "w")) == NULL) {
+		wprintf(L"-- could not open %hs\n", chTrFileName);
+		exit(1);
+	}
+
+	parser->tab  = new Coco::Tab(parser);
+	parser->dfa  = new Coco::DFA(parser);
+	parser->pgen = new Coco::ParserGen(parser);
+
+	parser->tab->srcName  = coco_string_create(srcName);
+	parser->tab->srcDir   = coco_string_create(srcDir);
+	parser->tab->nsName   = nsName ? coco_string_create(nsName) : NULL;
+	parser->tab->frameDir = coco_string_create(frameDir);
+	parser->tab->outDir   = coco_string_create(outDir != NULL ? outDir : srcDir);
+	parser->tab->emitLines = emitLines;
+
+	if (ddtString != NULL) parser->tab->SetDDT(ddtString);
+
+	parser->Parse();
+
+	fclose(parser->trace);
+
+	// obtain the FileSize
+	parser->trace = fopen(chTrFileName, "r");
+	fseek(parser->trace, 0, SEEK_END);
+	long fileSize = ftell(parser->trace);
+	fclose(parser->trace);
+	if (fileSize == 0) {
+		remove(chTrFileName);
+	} else {
+		wprintf(L"trace output is in %hs\n", chTrFileName);
+	}
+
+	wprintf(L"%d errors detected\n", parser->errors->count);
+	if (parser->errors->count != 0) {
+		exit(1);
+	}
+
+	delete parser->pgen;
+	delete parser->dfa;
+	delete parser->tab;
+	delete parser;
+	delete scanner;
+	coco_string_delete(file);
+	coco_string_delete(srcDir);
+
+	return Qnil;
+}
+
+extern "C" void Init_cocor()
+{
+	VALUE cocor = rb_define_module("Cocor");
+	rb_define_method(cocor, "cocor_test", (VALUE(*)(ANYARGS))method_test,1);
+	rb_define_method(cocor, "cocor_compile", (VALUE(*)(ANYARGS))method_compile,4);
+}

data/ext/cocor/cygBuild.bat

@@ -0,0 +1 @@
+g++ *.cpp -o Coco.exe

data/ext/cocor/extconf.rb

@@ -0,0 +1,5 @@
+require "mkmf"
+
+have_library( 'stdc++' );
+$CFLAGS << " -Wall"
+create_makefile( 'cocor/cocor' );

data/ext/cocor/mingwbuild.bat

@@ -0,0 +1,2 @@
+C:\MinGW\bin\g++ *.cpp -o Coco.exe
+

data/ext/cocor/mkmf.log

@@ -0,0 +1,57 @@
+have_library: checking for main() in -lstdc++... -------------------- yes
+
+"gcc -o conftest -I/opt/chef/embedded/include/ruby-1.9.1/x86_64-darwin11.2.0 -I/opt/chef/embedded/include/ruby-1.9.1/ruby/backward -I/opt/chef/embedded/include/ruby-1.9.1 -I. -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE   -I/opt/chef/embedded/include -I/opt/chef/embedded/include -I/opt/chef/embedded/include/ncurses -arch x86_64 -O3 -g -pipe -Qunused-arguments -fno-common conftest.c  -L. -L/opt/chef/embedded/lib -L/opt/chef/embedded/lib -L. -L/opt/chef/embedded/lib -arch x86_64 -L/opt/chef/embedded/lib   -m64   -lruby.1.9.1  -lpthread -ldl -lobjc "
+checked program was:
+/* begin */
+1: #include "ruby.h"
+2: 
+3: int main(int argc, char **argv)
+4: {
+5:   return 0;
+6: }
+/* end */
+
+"gcc -o conftest -I/opt/chef/embedded/include/ruby-1.9.1/x86_64-darwin11.2.0 -I/opt/chef/embedded/include/ruby-1.9.1/ruby/backward -I/opt/chef/embedded/include/ruby-1.9.1 -I. -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE   -I/opt/chef/embedded/include -I/opt/chef/embedded/include -I/opt/chef/embedded/include/ncurses -arch x86_64 -O3 -g -pipe -Qunused-arguments -fno-common conftest.c  -L. -L/opt/chef/embedded/lib -L/opt/chef/embedded/lib -L. -L/opt/chef/embedded/lib -arch x86_64 -L/opt/chef/embedded/lib   -m64   -lruby.1.9.1 -lstdc++  -lpthread -ldl -lobjc "
+conftest.c:4:53: error: use of undeclared identifier 'main'
+int t() { void ((*volatile p)()); p = (void ((*)()))main; return 0; }
+                                                    ^
+1 error generated.
+checked program was:
+/* begin */
+ 1: #include "ruby.h"
+ 2: 
+ 3: /*top*/
+ 4: int t() { void ((*volatile p)()); p = (void ((*)()))main; return 0; }
+ 5: int main(int argc, char **argv)
+ 6: {
+ 7:   if (argc > 1000000) {
+ 8:     printf("%p", &t);
+ 9:   }
+10: 
+11:   return 0;
+12: }
+/* end */
+
+"gcc -o conftest -I/opt/chef/embedded/include/ruby-1.9.1/x86_64-darwin11.2.0 -I/opt/chef/embedded/include/ruby-1.9.1/ruby/backward -I/opt/chef/embedded/include/ruby-1.9.1 -I. -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE   -I/opt/chef/embedded/include -I/opt/chef/embedded/include -I/opt/chef/embedded/include/ncurses -arch x86_64 -O3 -g -pipe -Qunused-arguments -fno-common conftest.c  -L. -L/opt/chef/embedded/lib -L/opt/chef/embedded/lib -L. -L/opt/chef/embedded/lib -arch x86_64 -L/opt/chef/embedded/lib   -m64   -lruby.1.9.1 -lstdc++  -lpthread -ldl -lobjc "
+conftest.c:4:11: warning: implicit declaration of function 'main' is invalid in C99 [-Wimplicit-function-declaration]
+int t() { main(); return 0; }
+          ^
+1 warning generated.
+checked program was:
+/* begin */
+ 1: #include "ruby.h"
+ 2: 
+ 3: /*top*/
+ 4: int t() { main(); return 0; }
+ 5: int main(int argc, char **argv)
+ 6: {
+ 7:   if (argc > 1000000) {
+ 8:     printf("%p", &t);
+ 9:   }
+10: 
+11:   return 0;
+12: }
+/* end */
+
+--------------------
+

data/ext/cocor/zipsources.bat

@@ -0,0 +1 @@
+jar -cfM CocoSourcesCPP.zip *.atg *.frame *.bat *.h *.cpp *.sh Makefile

data/lib/cocor.rb

@@ -0,0 +1,14 @@
+require "cocor/cocor"
+
+include Cocor
+module Cocor
+
+	def Cocor.runtest(hello)
+		cocor_test(hello)
+	end
+
+	def Cocor.compile(srcName, frameDir, nsName, outDir)
+		cocor_compile(srcName, frameDir, nsName, outDir)
+	end
+
+end

data/lib/ruco/version.rb

@@ -0,0 +1,3 @@
+module Ruco
+  VERSION = "0.2.1"
+end