EFL 1.0

data/tests/HashTest.rb.bak

@@ -0,0 +1,54 @@
+require 'test/unit'
+require "EFL.rb"
+
+########################################################
+# Bateria de pruebas para los m�todos incorporados a Hash
+#
+# Ultima actualizacion: 1-10-2004
+########################################################
+
+class HashTest < Test::Unit::TestCase
+	def setup
+		@hash1 = {
+			'clave1' => ['1', '2'],
+			'clave2' => ['3']
+		}
+				
+		@hash2 = {
+			'clave1_texto' => ['1', '2'],
+			'clave2_texto' => ['3']
+		}
+			
+		@hash3 = {
+			'clave1' => ['texto_1', 'texto_2'],
+			'clave2' => ['texto_3']
+		}
+
+		@hash4 = {
+			'clave1_texto' => ['texto_1', 'texto_2'],
+			'clave2_texto' => ['texto_3']
+		}
+
+	end #setup
+		
+	def test_collect
+		assert_equal(@hash2,
+				  @hash1.collect {|k, v| 
+					  ["#{k}_texto", v]
+					},
+				'')
+
+		assert_equal(@hash3,
+				  @hash1.collect {|k, v| 
+					  [k, v.collect!{|e| "texto_#{e}"}]
+					},
+				'')
+	
+		assert_equal(@hash4,
+				  @hash1.collect {|k, v| 
+					  ["#{k}_texto", v.collect!{|e| "texto_#{e}"}]
+					},
+				'')
+	end #test_collect
+	
+end #HashTest

data/tests/Lista Czarnecki/AntiguaInterfaz/List.cpp

@@ -0,0 +1,75 @@
+#include <iostream>
+using namespace std;
+
+class MyClass {};
+
+ostream& operator<<(ostream& os, const MyClass &e)
+{
+    os<<"- MyClass -";
+	return os;
+};
+
+
+////////////////////////////////////////////////
+// List
+////////////////////////////////////////////////
+
+class List
+{
+private:
+	MyClass* head_;
+	List* tail_;
+	int length_;
+public:
+	List(MyClass&h, List *t=0):
+	  head_(0), tail_(t), length_(computedLength())
+	  { setHead(h); }
+
+	~List()
+	{ delete head_; }
+
+	void setHead(MyClass& h)
+	{
+		cout << "setHead(" << h <<")" << endl;
+		head_ = new MyClass(h); 
+	}
+
+	MyClass& head()
+	{	cout << "head()" << endl;
+		return *head_;
+	}
+
+	void setTail(List *t)
+	{	
+		cout << "setTail(t)" << endl;
+		tail_ = t;
+		length_ = computedLength();
+	}
+
+	List *tail() const
+	{ 
+		cout << "setTail(t)" << endl;
+		return tail_; 
+	}
+
+	const int& length() const
+	{ return length_; }
+
+private:
+	int computedLength() const
+	{ return tail()?tail()->length()+1:1; }
+
+};
+
+
+
+int main()
+{
+	MyClass e1, e2;
+	List l1(e1);
+	List l2(e2, &l1);
+	List l3(e1);
+	
+	l3.setHead(e1);
+	l3.setTail(&l2);
+}

data/tests/Lista Czarnecki/AntiguaInterfaz/ListTransformer.rb

@@ -0,0 +1,69 @@
+require 'EFL'
+EXEMPLAR = 'List.cpp'
+
+######################################
+# Generators
+######################################
+
+class ElementType < Generator 
+	def initialize(exemplar, out, element_type)
+		gsub(/MyClass/, element_type)
+		prod(exemplar, out)
+	end
+end
+
+class Ownership < Generator 
+	def initialize(exemplar, out, ownership_type)
+		case ownership_type
+			when 'External reference'
+				sub /delete head_;/, ''
+				sub /new MyClass\(h\)/ , '&h'
+			when 'Owned reference'
+				sub /new MyClass\(h\)/ , '&h'
+			when 'Copy'
+				# no change
+		end
+		prod(exemplar, out)
+	end
+end
+
+class LengthCounter < Generator 
+	def initialize(exemplar, out, length_counter_type)
+		if length_counter_type
+			gsub(/int/, length_counter_type)
+		else
+			gsub(/^.*length.*$/i, '')
+			gsub(/\)\:/, '\0head_(0), tail_(t)')
+		end
+		prod(exemplar, out)
+	end
+end
+
+class Tracing < Generator 
+	def initialize(exemplar, out, tracing)
+		gsub(/cout.+$/, '') if !tracing
+		prod(exemplar, out)
+	end
+end
+
+######################################
+# Analyzer
+######################################
+
+unless ARGV[0]
+	print "You should specify the list specification file"
+	exit
+end
+eval "SPECIFICATION = {#{File.open("#{ARGV[0]}").read}}"
+
+
+######################################
+# Generator Combination
+######################################
+
+ElementType.new(EXEMPLAR, SPECIFICATION['Out File'], SPECIFICATION['Element Type']).gen
+(
+	Ownership.new(SPECIFICATION['Out File'], SPECIFICATION['Out File'], SPECIFICATION['Ownership']) +
+	LengthCounter.new(SPECIFICATION['Out File'], SPECIFICATION['Out File'], SPECIFICATION['Length Counter Type']) +
+	Tracing.new(SPECIFICATION['Out File'], SPECIFICATION['Out File'], SPECIFICATION['Tracing'])
+).gen

data/tests/Lista Czarnecki/AntiguaInterfaz/ListTransformer.rb.bak

@@ -0,0 +1,100 @@
+require '..\..\..\ETL\ETL'
+
+######################################
+# generators
+######################################
+
+class ElementType < Generator 
+	def initialize(exemplar, out, elementType)
+		gsub(/Exemplar/, elementType)
+		prod(exemplar, out)
+	end
+end
+
+class Ownership < Generator 
+	def initialize(exemplar, out, ownershipType)
+		case ownershipType
+			when 'External reference'
+				externalReference
+			when 'Owned reference'
+				ownedReference
+			when 'Copy'
+				copy
+		end
+		prod(exemplar, out)
+	end
+	
+	def externalReference
+		sub(/delete head_;/, '')
+		sub(/new Exemplar\(h\)/ , '&h')
+	end
+
+	def ownedReference
+		sub(/new Exemplar\(h\)/ , '&h')
+	end
+
+	def copy
+	end
+end
+
+class LengthCounter < Generator 
+	def initialize(exemplar, out, lengthType)
+		if lengthType
+			with(lengthType)
+		else
+			without
+		end
+		prod(exemplar, out)
+	end
+
+	def with(lengthType)
+		gsub(/int/, lengthType)
+	end
+	
+	def without
+		gsub(/^.*length.*$/i, '')
+		gsub(/\)\:/, '\0head_(0), tail_(t)')
+	end
+end
+
+class Tracing < Generator 
+	def initialize(exemplar, out, tracing)
+		if tracing
+			with
+		else
+			without
+		end
+		prod(exemplar, out)
+	end
+
+	def with
+	end
+	
+	def without
+		gsub(/cout.+$/, '')
+	end
+end
+
+######################################
+# Configuration Knowledge
+######################################
+
+unless ARGV[0]
+	print "You should specify the list specification file"
+	exit
+end
+
+# analyzer
+
+eval "@list_specificacion = {#{File.open("#{ARGV[0]}").read}}"
+
+# running generators
+
+ElementType.new('List.cpp', @list_specificacion['Out File'], @list_specificacion['Element Type']).gen
+
+(
+	Ownership.new(@list_specificacion['Out File'], @list_specificacion['Out File'], @list_specificacion['Ownership'])  +
+	LengthCounter.new(@list_specificacion['Out File'], @list_specificacion['Out File'], 
+		@list_specificacion['Length Type']) +
+	Tracing.new(@list_specificacion['Out File'], @list_specificacion['Out File'], @list_specificacion['Tracing'])
+).gen	

data/tests/Lista Czarnecki/AntiguaInterfaz/ejecutame.bat

@@ -0,0 +1 @@
+ruby ListTransformer.rb specification1.txt

data/tests/Lista Czarnecki/AntiguaInterfaz/outDir/MyClassList.cpp

@@ -0,0 +1,75 @@
+#include <iostream>
+using namespace std;
+
+class MyClass {};
+
+ostream& operator<<(ostream& os, const MyClass &e)
+{
+    os<<"- MyClass -";
+	return os;
+};
+
+
+////////////////////////////////////////////////
+// List
+////////////////////////////////////////////////
+
+class List
+{
+private:
+	MyClass* head_;
+	List* tail_;
+
+public:
+	List(MyClass&h, List *t=0):head_(0), tail_(t)
+
+	  { setHead(h); }
+
+	~List()
+	{ delete head_; }
+
+	void setHead(MyClass& h)
+	{
+		cout << "setHead(" << h <<")" << endl;
+		head_ = new MyClass(h); 
+	}
+
+	MyClass& head()
+	{	cout << "head()" << endl;
+		return *head_;
+	}
+
+	void setTail(List *t)
+	{	
+		cout << "setTail(t)" << endl;
+		tail_ = t;
+
+	}
+
+	List *tail() const
+	{ 
+		cout << "setTail(t)" << endl;
+		return tail_; 
+	}
+
+
+
+
+private:
+
+
+
+};
+
+
+
+int main()
+{
+	MyClass e1, e2;
+	List l1(e1);
+	List l2(e2, &l1);
+	List l3(e1);
+	
+	l3.setHead(e1);
+	l3.setTail(&l2);
+}

data/tests/Lista Czarnecki/AntiguaInterfaz/runme.bat

@@ -0,0 +1 @@
+ruby ListTransformer.rb specification1.txt

data/tests/Lista Czarnecki/AntiguaInterfaz/specification1.txt

@@ -0,0 +1,5 @@
+"Out File" => "outDir/List.cpp",
+"Element Type" => "AnotherClass",
+"Ownership" => "External reference",
+"Length Counter Type" => "short",
+"Tracing" => "yes"

data/tests/Lista Czarnecki/AntiguaInterfaz/specification2.txt

@@ -0,0 +1,3 @@
+"Out File" => "outDir/List.cpp",
+"Element Type" => "MyClass",
+"Ownership" => "Owned reference"

data/tests/Lista Czarnecki/AntiguaInterfaz/specification3.txt

@@ -0,0 +1,5 @@
+"Out File" => "outDir/List.cpp",
+"Element Type" => "MyClass",
+"Ownership" => "External reference",
+"Length Counter Type" => "integer",
+"Tracing" => "yes"

data/tests/Lista Czarnecki/NuevaInterfaz/List.cpp

@@ -0,0 +1,75 @@
+#include <iostream>
+using namespace std;
+
+class MyClass {};
+
+ostream& operator<<(ostream& os, const MyClass &e)
+{
+    os<<"- MyClass -";
+	return os;
+};
+
+
+////////////////////////////////////////////////
+// List
+////////////////////////////////////////////////
+
+class List
+{
+private:
+	MyClass* head_;
+	List* tail_;
+	int length_;
+public:
+	List(MyClass&h, List *t=0):
+	  head_(0), tail_(t), length_(computedLength())
+	  { setHead(h); }
+
+	~List()
+	{ delete head_; }
+
+	void setHead(MyClass& h)
+	{
+		cout << "setHead(" << h <<")" << endl;
+		head_ = new MyClass(h); 
+	}
+
+	MyClass& head()
+	{	cout << "head()" << endl;
+		return *head_;
+	}
+
+	void setTail(List *t)
+	{	
+		cout << "setTail(t)" << endl;
+		tail_ = t;
+		length_ = computedLength();
+	}
+
+	List *tail() const
+	{ 
+		cout << "setTail(t)" << endl;
+		return tail_; 
+	}
+
+	const int& length() const
+	{ return length_; }
+
+private:
+	int computedLength() const
+	{ return tail()?tail()->length()+1:1; }
+
+};
+
+
+
+int main()
+{
+	MyClass e1, e2;
+	List l1(e1);
+	List l2(e2, &l1);
+	List l3(e1);
+	
+	l3.setHead(e1);
+	l3.setTail(&l2);
+}