ruco-cpp 0.2.1

data/ext/cocor/Scanner.h

@@ -0,0 +1,291 @@
+/*----------------------------------------------------------------------
+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_COCO_SCANNER_H__)
+#define Coco_COCO_SCANNER_H__
+
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <wchar.h>
+
+// io.h and fcntl are used to ensure binary read from streams on windows
+#if _MSC_VER >= 1300
+#include <io.h>
+#include <fcntl.h>
+#endif
+
+#if _MSC_VER >= 1400
+#define coco_swprintf swprintf_s
+#elif _MSC_VER >= 1300
+#define coco_swprintf _snwprintf
+#elif defined __MINGW32__
+#define coco_swprintf _snwprintf
+#else
+// assume every other compiler knows swprintf
+#define coco_swprintf swprintf
+#endif
+
+#define COCO_WCHAR_MAX 65535
+#define COCO_MIN_BUFFER_LENGTH 1024
+#define COCO_MAX_BUFFER_LENGTH (64*COCO_MIN_BUFFER_LENGTH)
+#define COCO_HEAP_BLOCK_SIZE (64*1024)
+#define COCO_CPP_NAMESPACE_SEPARATOR L':'
+
+namespace Coco {
+
+
+// string handling, wide character
+wchar_t* coco_string_create(const wchar_t *value);
+wchar_t* coco_string_create(const wchar_t *value, int startIndex);
+wchar_t* coco_string_create(const wchar_t *value, int startIndex, int length);
+wchar_t* coco_string_create_upper(const wchar_t* data);
+wchar_t* coco_string_create_lower(const wchar_t* data);
+wchar_t* coco_string_create_lower(const wchar_t* data, int startIndex, int dataLen);
+wchar_t* coco_string_create_append(const wchar_t* data1, const wchar_t* data2);
+wchar_t* coco_string_create_append(const wchar_t* data, const wchar_t value);
+void  coco_string_delete(wchar_t* &data);
+int   coco_string_length(const wchar_t* data);
+bool  coco_string_endswith(const wchar_t* data, const wchar_t *value);
+int   coco_string_indexof(const wchar_t* data, const wchar_t value);
+int   coco_string_lastindexof(const wchar_t* data, const wchar_t value);
+void  coco_string_merge(wchar_t* &data, const wchar_t* value);
+bool  coco_string_equal(const wchar_t* data1, const wchar_t* data2);
+int   coco_string_compareto(const wchar_t* data1, const wchar_t* data2);
+int   coco_string_hash(const wchar_t* data);
+
+// string handling, ascii character
+wchar_t* coco_string_create(const char *value);
+char* coco_string_create_char(const wchar_t *value);
+void  coco_string_delete(char* &data);
+
+
+class Token  
+{
+public:
+	int kind;     // token kind
+	int pos;      // token position in bytes in the source text (starting at 0)
+	int charPos;  // token position in characters in the source text (starting at 0)
+	int col;      // token column (starting at 1)
+	int line;     // token line (starting at 1)
+	wchar_t* val; // token value
+	Token *next;  // ML 2005-03-11 Peek tokens are kept in linked list
+
+	Token();
+	~Token();
+};
+
+class Buffer {
+// This Buffer supports the following cases:
+// 1) seekable stream (file)
+//    a) whole stream in buffer
+//    b) part of stream in buffer
+// 2) non seekable stream (network, console)
+private:
+	unsigned char *buf; // input buffer
+	int bufCapacity;    // capacity of buf
+	int bufStart;       // position of first byte in buffer relative to input stream
+	int bufLen;         // length of buffer
+	int fileLen;        // length of input stream (may change if the stream is no file)
+	int bufPos;         // current position in buffer
+	FILE* stream;       // input stream (seekable)
+	bool isUserStream;  // was the stream opened by the user?
+	
+	int ReadNextStreamChunk();
+	bool CanSeek();     // true if stream can be seeked otherwise false
+	
+public:
+	static const int EoF = COCO_WCHAR_MAX + 1;
+
+	Buffer(FILE* s, bool isUserStream);
+	Buffer(const unsigned char* buf, int len);
+	Buffer(Buffer *b);
+	virtual ~Buffer();
+	
+	virtual void Close();
+	virtual int Read();
+	virtual int Peek();
+	virtual wchar_t* GetString(int beg, int end);
+	virtual int GetPos();
+	virtual void SetPos(int value);
+};
+
+class UTF8Buffer : public Buffer {
+public:
+	UTF8Buffer(Buffer *b) : Buffer(b) {};
+	virtual int Read();
+};
+
+//-----------------------------------------------------------------------------------
+// StartStates  -- maps characters to start states of tokens
+//-----------------------------------------------------------------------------------
+class StartStates {
+private:
+	class Elem {
+	public:
+		int key, val;
+		Elem *next;
+		Elem(int key, int val) { this->key = key; this->val = val; next = NULL; }
+	};
+
+	Elem **tab;
+
+public:
+	StartStates() { tab = new Elem*[128]; memset(tab, 0, 128 * sizeof(Elem*)); }
+	virtual ~StartStates() {
+		for (int i = 0; i < 128; ++i) {
+			Elem *e = tab[i];
+			while (e != NULL) {
+				Elem *next = e->next;
+				delete e;
+				e = next;
+			}
+		}
+		delete [] tab;
+	}
+
+	void set(int key, int val) {
+		Elem *e = new Elem(key, val);
+		int k = ((unsigned int) key) % 128;
+		e->next = tab[k]; tab[k] = e;
+	}
+
+	int state(int key) {
+		Elem *e = tab[((unsigned int) key) % 128];
+		while (e != NULL && e->key != key) e = e->next;
+		return e == NULL ? 0 : e->val;
+	}
+};
+
+//-------------------------------------------------------------------------------------------
+// KeywordMap  -- maps strings to integers (identifiers to keyword kinds)
+//-------------------------------------------------------------------------------------------
+class KeywordMap {
+private:
+	class Elem {
+	public:
+		wchar_t *key;
+		int val;
+		Elem *next;
+		Elem(const wchar_t *key, int val) { this->key = coco_string_create(key); this->val = val; next = NULL; }
+		virtual ~Elem() { coco_string_delete(key); }
+	};
+
+	Elem **tab;
+
+public:
+	KeywordMap() { tab = new Elem*[128]; memset(tab, 0, 128 * sizeof(Elem*)); }
+	virtual ~KeywordMap() {
+		for (int i = 0; i < 128; ++i) {
+			Elem *e = tab[i];
+			while (e != NULL) {
+				Elem *next = e->next;
+				delete e;
+				e = next;
+			}
+		}
+		delete [] tab;
+	}
+
+	void set(const wchar_t *key, int val) {
+		Elem *e = new Elem(key, val);
+		int k = coco_string_hash(key) % 128;
+		e->next = tab[k]; tab[k] = e;
+	}
+
+	int get(const wchar_t *key, int defaultVal) {
+		Elem *e = tab[coco_string_hash(key) % 128];
+		while (e != NULL && !coco_string_equal(e->key, key)) e = e->next;
+		return e == NULL ? defaultVal : e->val;
+	}
+};
+
+class Scanner {
+private:
+	void *firstHeap;
+	void *heap;
+	void *heapTop;
+	void **heapEnd;
+
+	unsigned char EOL;
+	int eofSym;
+	int noSym;
+	int maxT;
+	int charSetSize;
+	StartStates start;
+	KeywordMap keywords;
+
+	Token *t;         // current token
+	wchar_t *tval;    // text of current token
+	int tvalLength;   // length of text of current token
+	int tlen;         // length of current token
+
+	Token *tokens;    // list of tokens already peeked (first token is a dummy)
+	Token *pt;        // current peek token
+
+	int ch;           // current input character
+
+	int pos;          // byte position of current character
+	int charPos;      // position by unicode characters starting with 0
+	int line;         // line number of current character
+	int col;          // column number of current character
+	int oldEols;      // EOLs that appeared in a comment;
+
+	void CreateHeapBlock();
+	Token* CreateToken();
+	void AppendVal(Token *t);
+	void SetScannerBehindT();
+
+	void Init();
+	void NextCh();
+	void AddCh();
+	bool Comment0();
+	bool Comment1();
+
+	Token* NextToken();
+
+public:
+	Buffer *buffer;   // scanner buffer
+	
+	Scanner(const unsigned char* buf, int len);
+	Scanner(const wchar_t* fileName);
+	Scanner(FILE* s);
+	~Scanner();
+	Token* Scan();
+	Token* Peek();
+	void ResetPeek();
+
+}; // end Scanner
+
+} // namespace
+
+
+#endif
+

data/ext/cocor/Sets.h

@@ -0,0 +1,84 @@
+/*-------------------------------------------------------------------------
+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_SETS_H__)
+#define COCO_SETS_H__
+
+#include "BitArray.h"
+
+namespace Coco {
+
+class Sets {
+public:
+	static int First(BitArray *s) {
+		int max = s->getCount();
+		for (int i=0; i<max; i++)
+			if ((*s)[i]) return i;
+		return -1;
+	}
+
+	static int Elements(BitArray *s) {
+		int max = s->getCount();
+		int n = 0;
+		for (int i=0; i<max; i++)
+			if ((*s)[i]) n++;
+		return n;
+	}
+	
+	static bool Equals(BitArray *a, BitArray *b) {
+		int max = a->getCount();
+		for (int i=0; i<max; i++)
+			if ((*a)[i] != (*b)[i]) return false;
+		return true;
+	}
+
+	static bool Includes(BitArray *a, BitArray *b) {	// a > b ?
+		int max = a->getCount();
+		for (int i=0; i<max; i++)
+			if ((*b)[i] && ! (*a)[i]) return false;
+		return true;
+	}
+	
+	static bool Intersect(BitArray *a, BitArray *b) { // a * b != {}
+		int max = a->getCount();
+		for (int i=0; i<max; i++)
+			if ((*a)[i] && (*b)[i]) return true;
+		return false;
+	}
+	
+	static void Subtract(BitArray *a, BitArray *b) { // a = a - b
+		BitArray *c = b->Clone();
+		c->Not();
+		a->And(c);
+		delete c;
+	}
+};
+
+}; // namespace
+
+#endif // !defined(COCO_SETS_H__)

data/ext/cocor/SortedList.cpp

@@ -0,0 +1,141 @@
+/*-------------------------------------------------------------------------
+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 "SortedList.h"
+#include "Tab.h"
+
+namespace Coco {
+
+int Compare(Symbol *x, Symbol *y) {
+	return coco_string_compareto(x->name, y->name);
+}
+
+SortedEntry::SortedEntry(Symbol* Key, void* Value) {
+	this->Key   = Key;
+	this->Value = Value;
+	this->next = NULL;
+}
+
+SortedEntry::~SortedEntry() {
+};
+
+SortedList::SortedList() {
+	Count = 0;
+	Data = NULL;
+}
+
+SortedList::~SortedList() {
+}
+
+bool SortedList::Find(Symbol* key) {
+	SortedEntry* pSortedEntry = Data;
+	while (pSortedEntry) {
+		if (!Compare(pSortedEntry->Key, key))
+			return true;
+		pSortedEntry = pSortedEntry->next;
+	}
+	return false;
+}
+
+void SortedList::Set(Symbol *key, void *value) {
+	if (!Find(key)) {
+		// new entry
+		SortedEntry* pSortedEntry = Data;
+		SortedEntry* pSortedEntryPrev = NULL;
+		SortedEntry* newSortedEntry = new SortedEntry(key, value);
+		if (pSortedEntry) {
+			// insert
+
+			if (Compare(pSortedEntry->Key, key) > 0) {	// before the first
+				newSortedEntry->next = Data;
+				Data = newSortedEntry;
+			} else {
+				while (pSortedEntry) {
+					if (Compare(pSortedEntry->Key, key) < 0) {
+						pSortedEntryPrev = pSortedEntry;
+						pSortedEntry = pSortedEntry->next;
+					} else {
+						break;
+					}
+				}
+				pSortedEntryPrev->next = newSortedEntry;
+				newSortedEntry->next = pSortedEntry;
+			}
+		} else {
+			Data = newSortedEntry;			// first entry
+		}
+		Count++;
+	} else {
+		// exist entry - overwrite
+		SortedEntry* pSortedEntry = Data;
+		while (Compare(pSortedEntry->Key, key)) {
+			pSortedEntry = pSortedEntry->next;
+		}
+		pSortedEntry->Value = value;
+	}
+}
+
+void* SortedList::Get( Symbol* key ) const // Value
+{
+	SortedEntry* pSortedEntry = Data;
+	while (pSortedEntry) {
+		if (!Compare(pSortedEntry->Key, key))
+			return pSortedEntry->Value;
+		pSortedEntry = pSortedEntry->next;
+	}
+	return NULL;
+}
+
+
+void* SortedList::GetKey( int index ) const // Key
+{
+	if (0 <= index && index < Count) {
+		SortedEntry* pSortedEntry = Data;
+		for (int i=0; i<index; i++) {
+			pSortedEntry = pSortedEntry->next;
+		}
+		return pSortedEntry->Key;
+	} else {
+		return NULL;
+	}
+}
+
+SortedEntry* SortedList::operator[]( int index ) const {
+	if (0 <= index && index < Count) {
+		SortedEntry* pSortedEntry = Data;
+		for (int i=0; i<index; i++) {
+			pSortedEntry = pSortedEntry->next;
+		}
+		return pSortedEntry;
+	} else {
+		return NULL;
+	}
+}
+
+}; // namespace

data/ext/cocor/SortedList.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_SORTEDLIST_H__)
+#define COCO_SORTEDLIST_H__
+
+namespace Coco {
+
+class Symbol;
+
+class SortedEntry
+{
+public:
+	Symbol* Key;
+	void* Value;
+	SortedEntry* next;
+
+	SortedEntry(Symbol* Key, void* Value);
+	virtual ~SortedEntry();
+};
+
+class SortedList
+{
+public:
+	SortedList();
+	virtual ~SortedList();
+
+	void Set(Symbol *key, void *value);
+	void* Get( Symbol* key ) const; // Value
+	void* GetKey( int index ) const ;// Key
+	SortedEntry* operator[]( int index ) const;
+
+	int Count;
+private:
+	bool Find(Symbol* key);
+
+	SortedEntry *Data;
+
+};
+
+}; // namespace
+
+#endif // !defined(COCO_SORTEDLIST_H__)

data/ext/cocor/State.cpp

@@ -0,0 +1,77 @@
+/*-------------------------------------------------------------------------
+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 "State.h"
+
+namespace Coco {
+
+State::State() {
+	this->firstAction = NULL;
+	this->endOf       = NULL;
+	this->ctx         = false;
+	this->next        = NULL;
+}
+
+void State::AddAction(Action *act) {
+	Action *lasta = NULL, *a = firstAction;
+	while (a != NULL && act->typ >= a->typ) {lasta = a; a = a->next;}
+	// collecting classes at the beginning gives better performance
+	act->next = a;
+	if (a==firstAction) {
+		firstAction = act;
+	}
+	else {
+		lasta->next = act;
+	}
+}	
+
+void State::DetachAction(Action *act) {
+	Action *lasta = NULL, *a = firstAction;
+	while (a != NULL && a != act) {lasta = a; a = a->next;}
+	if (a != NULL) {
+		if (a == firstAction) {
+			firstAction = a->next;
+		}
+		else {
+			lasta->next = a->next;
+		}
+	}
+}
+
+
+void State::MeltWith(State *s) { // copy actions of s to state
+	Action *a;
+	for (Action *action = s->firstAction; action != NULL; action = action->next) {
+		a = new Action(action->typ, action->sym, action->tc);
+		a->AddTargets(action);
+		AddAction(a);
+	}
+}
+
+}; // namespace