ruco-cpp 0.2.1

data/ext/cocor/Action.cpp

@@ -0,0 +1,81 @@
+/*-------------------------------------------------------------------------
+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 "Action.h"
+#include "Target.h"
+#include "CharSet.h"
+
+namespace Coco {
+
+Action::Action(int typ, int sym, int tc) {
+	this->target = NULL;
+	this->next   = NULL;
+
+	this->typ = typ; this->sym = sym; this->tc = tc;
+}
+
+void Action::AddTarget(Target *t) { // add t to the action.targets
+	Target *last = NULL;
+	Target *p = target;
+	while (p != NULL && t->state->nr >= p->state->nr) {
+		if (t->state == p->state) return;
+		last = p; p = p->next;
+	}
+	t->next = p;
+	if (p == target) target = t; else last->next = t;
+}
+
+void Action::AddTargets(Action *a) {// add copy of a.targets to action.targets
+	for (Target *p = a->target; p != NULL; p = p->next) {
+		Target *t = new Target(p->state);
+		AddTarget(t);
+	}
+	if (a->tc == Node::contextTrans) tc = Node::contextTrans;
+}
+
+CharSet* Action::Symbols(Tab *tab) {
+	CharSet *s;
+	if (typ == Node::clas)
+		s = tab->CharClassSet(sym)->Clone();
+	else {
+		s = new CharSet(); s->Set(sym);
+	}
+	return s;
+}
+
+void Action::ShiftWith(CharSet *s, Tab *tab) {
+	if (s->Elements() == 1) {
+		typ = Node::chr; sym = s->First();
+	} else {
+		CharClass *c = tab->FindCharClass(s);
+		if (c == NULL) c = tab->NewCharClass(L"#", s); // class with dummy name
+		typ = Node::clas; sym = c->n;
+	}
+}
+
+}; // namespace

data/ext/cocor/Action.h

@@ -0,0 +1,59 @@
+/*-------------------------------------------------------------------------
+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_ACTION_H__)
+#define COCO_ACTION_H__
+
+#include "State.h"
+#include "Tab.h"
+
+namespace Coco {
+
+class Target;
+class CharSet;
+
+class Action  			// action of finite automaton
+{
+public:
+	int typ;			// type of action symbol: clas, chr
+	int sym;			// action symbol
+	int tc;				// transition code: normalTrans, contextTrans
+	Target *target;		// states reached from this action
+	Action *next;
+
+	Action(int typ, int sym, int tc);
+	void AddTarget(Target *t);  // add t to the action.targets
+	void AddTargets(Action *a); // add copy of a.targets to action.targets
+	CharSet* Symbols(Tab *tab);
+	void ShiftWith(CharSet *s, Tab *tab);
+};
+
+}; // namespace
+
+
+#endif // !defined(COCO_ACTION_H__)

data/ext/cocor/ArrayList.cpp

@@ -0,0 +1,79 @@
+/*-------------------------------------------------------------------------
+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 "ArrayList.h"
+
+namespace Coco {
+
+ArrayList::ArrayList() {
+	Count = 0;
+	Capacity = 10;
+	Data = new void*[ Capacity ];
+}
+
+ArrayList::~ArrayList() {
+	delete [] Data;
+}
+
+void ArrayList::Add(void *value) {
+	if (Count < Capacity) {
+		Data[Count] = value;
+		Count++;
+	} else {
+		Capacity *= 2;
+		void** newData = new void*[Capacity];
+		for (int i=0; i<Count; i++) {
+			newData[i] = Data[i];		// copy
+		}
+		newData[Count] = value;
+		Count++;
+		delete [] Data;			
+		Data = newData;
+	}
+}
+
+void ArrayList::Remove(void *value) {
+	for (int i=0; i<Count; i++) {
+		if (Data[i] == value) {
+			for (int j=i+1; j<Count; j++)
+				Data[j-1] = Data[j];
+			Count--;
+			break;
+		}
+	}
+}
+
+void* ArrayList::operator[]( int index )
+{
+	if (0<=index && index<Count)
+		return Data[index];
+	return NULL;
+}
+
+}; // namespace

data/ext/cocor/ArrayList.h

@@ -0,0 +1,52 @@
+/*-------------------------------------------------------------------------
+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_ARRAYLIST_H__)
+#define COCO_ARRAYLIST_H__
+
+namespace Coco {
+
+class ArrayList
+{
+public:
+	ArrayList();
+	virtual ~ArrayList();
+
+	void Add(void *value);
+	void Remove(void *value);
+	void* operator[](int index);
+
+	int Count;
+	int Capacity;
+private:
+	void** Data;
+};
+
+}; // namespace
+
+#endif // !defined(COCO_ARRAYLIST_H__)

data/ext/cocor/BitArray.cpp

@@ -0,0 +1,156 @@
+/*-------------------------------------------------------------------------
+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 <memory.h>
+#include <stdio.h>
+#include "BitArray.h"
+
+namespace Coco {
+
+BitArray::BitArray(const int length, const bool defaultValue)
+{
+	Count = length;
+	Data = new unsigned char[ (length+7)>>3 ];
+	if (defaultValue)
+		memset(Data, 0xFF, (length+7)>>3);
+	else
+		memset(Data, 0x00, (length+7)>>3);
+}
+
+BitArray::BitArray(const BitArray &copy) {
+	Count  = copy.Count;
+	Data = new unsigned char[ (copy.Count+7)>>3 ];
+	memcpy(Data, copy.Data, (copy.Count+7)>>3);
+}
+
+BitArray::~BitArray()
+{
+	delete [] Data;
+	Data = NULL;
+}
+
+int BitArray::getCount() {
+	return Count;
+}
+
+bool BitArray::Get(const int index) const
+{
+	return (Data[(index>>3)] & (1<<(index&7))) != 0;
+}
+
+void BitArray::Set(const int index, const bool value)
+{
+	if (value){
+		Data[(index>>3)] |= (1 << (index&7));
+	} else {
+		unsigned char mask = 0xFF;
+		mask ^= (1 << (index&7));
+		Data[(index>>3)] &= mask;
+	}
+}
+
+void BitArray::SetAll(const bool value)
+{
+	if (value)
+		memset(Data, 0xFF, (Count+7)>>3);
+	else
+		memset(Data, 0x00, (Count+7)>>3);
+}
+
+
+void BitArray::Not()
+{
+	for (int i=0; i<(Count+7)>>3; i++) {
+		Data[i] ^= 0xFF;
+	}
+}
+
+void BitArray::And(const BitArray *value)
+{
+	for (int i=0; (i<(Count+7)>>3) && (i<(value->Count+7)>>3); i++) {
+		Data[i] = (Data[i] & value->Data[i]);
+	}
+}
+
+void BitArray::Or(const BitArray *value)
+{
+	for (int i=0; (i<(Count+7)>>3) && (i<(value->Count+7)>>3); i++) {
+		Data[i] = (Data[i] | value->Data[i]);
+	}
+}
+
+void BitArray::Xor(const BitArray *value)
+{
+	for (int i=0; (i<(Count+7)>>3) && (i<(value->Count+7)>>3); i++) {
+		Data[i] = (Data[i] ^ value->Data[i]);
+	}
+}
+
+BitArray* BitArray::Clone() const
+{
+	BitArray *newBitArray = new BitArray(Count);
+	newBitArray->Count = Count;
+	memcpy(newBitArray->Data, Data, (Count+7)>>3);
+	return newBitArray;
+}
+
+bool BitArray::Equal(const BitArray *right) const
+{
+	if (Count != right->Count) {
+		return false;
+	}
+	for(int index = 0; index < Count; index++) {
+		if (Get(index) != right->Get(index)) {
+			return false;
+		}
+	}
+	return true;
+}
+
+bool BitArray::Overlaps(const BitArray *right) const
+{
+	for (int index = 0; index < Count; ++index) {
+		if (Get(index) && right->Get(index)) {
+			return true;
+		}
+	}
+	return false;
+}
+
+const BitArray &BitArray::operator=(const BitArray &right)
+{
+	if ( &right != this ) {         // avoid self assignment
+		delete [] Data;              // prevents memory leak
+		Count  = right.Count;
+		Data = new unsigned char[ (Count+7)>>3 ];
+		memcpy(Data, right.Data, (Count+7)>>3);
+	}
+	return *this;   // enables cascaded assignments
+}
+
+} // namespace

data/ext/cocor/BitArray.h

@@ -0,0 +1,68 @@
+/*-------------------------------------------------------------------------
+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_BITARRAY_H__)
+#define COCO_BITARRAY_H__
+
+namespace Coco {
+
+class BitArray
+{
+public:
+	BitArray(int length = 0, bool defaultValue = false) ;
+	BitArray(const BitArray &copy );
+	virtual ~BitArray();
+
+	int getCount();
+
+	bool Get(const int index) const;
+	void Set(const int index, const bool value);
+	void SetAll(const bool value);
+	bool Equal(const BitArray *right ) const;
+	bool Overlaps(const BitArray *right ) const;
+	bool operator[](const int index) const { return Get(index); };
+
+	const BitArray &operator=(const BitArray &right);
+
+	void Not();
+	void And(const BitArray *value);
+	void Or(const BitArray *value);
+	void Xor(const BitArray *value);
+
+	BitArray* Clone() const;
+
+private:
+	int Count;
+	unsigned char* Data;
+	void setMem(int length, bool value);
+
+};
+
+}
+
+#endif // !defined(COCO_BITARRAY_H__)

data/ext/cocor/CharClass.cpp

@@ -0,0 +1,42 @@
+/*-------------------------------------------------------------------------
+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 "CharClass.h"
+#include "Scanner.h"
+
+namespace Coco {
+
+CharClass::CharClass(const wchar_t* name, CharSet *s) {
+	this->name = coco_string_create(name); this->set = s;
+}
+
+CharClass::~CharClass() {
+	coco_string_delete(name);
+}
+
+}; // namespace

data/ext/cocor/CharClass.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_CHARCLASS_H__)
+#define COCO_CHARCLASS_H__
+
+#include "CharSet.h"
+
+namespace Coco {
+
+class CharClass {
+public:
+	int n;          // class number
+	wchar_t* name;  // class name
+	CharSet *set;   // set representing the class
+
+	CharClass(const wchar_t* name, CharSet *s);
+	virtual ~CharClass();
+};
+
+}; // namespace
+
+#endif // !defined(COCO_CHARCLASS_H__)