EFL 1.0

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

@@ -0,0 +1,58 @@
+require 'EFL'
+
+######################################
+# Analyzer
+######################################
+
+unless ARGV[0]
+	print "You should specify the list specification file"
+	exit
+end
+eval "SPECIFICATION = {#{File.open("#{ARGV[0]}").read}}"
+
+######################################
+# generators
+######################################
+
+EXEMPLAR = 'List.cpp'
+
+element_type = generator(:exemplar => EXEMPLAR, :out => SPECIFICATION['Out File'], 'v2' => 'pepe') {
+	gsub /MyClass/, SPECIFICATION['Element Type']
+	prod EXEMPLAR, SPECIFICATION['Out File']
+	puts out
+}
+
+ownership = generator { 
+	case SPECIFICATION['Ownership']
+		when 'External reference'
+			sub /delete head_;/, ''
+			sub /new MyClass\(h\)/ , '&h'
+		when 'Owned reference'
+			sub /new MyClass\(h\)/ , '&h'
+		when 'Copy'
+	end
+	prod EXEMPLAR, SPECIFICATION['Out File']
+}
+
+length_counter = generator {
+	if SPECIFICATION['Length Type']
+		gsub /int/, SPECIFICATION['Length Type']
+	else
+		gsub /^.*length.*$/i, ''
+		gsub /\)\:/, '\0head_(0), tail_(t)'
+	end
+	prod EXEMPLAR, SPECIFICATION['Out File'] 
+}
+
+tracing = generator {
+	if !SPECIFICATION['Tracing']
+		gsub /cout.+$/, ''
+	end
+	prod EXEMPLAR, SPECIFICATION['Out File']
+}
+
+######################################
+# generator coordination
+######################################
+element_type.gen
+(ownership + length_counter + tracing).gen

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

@@ -0,0 +1,57 @@
+require 'EFL'
+
+######################################
+# Analyzer
+######################################
+
+unless ARGV[0]
+	print "You should specify the list specification file"
+	exit
+end
+eval "SPECIFICATION = {#{File.open("#{ARGV[0]}").read}}"
+
+######################################
+# generators
+######################################
+
+MyClass = 'List.cpp'
+
+element_type = generator {
+	gsub /MyClass/, SPECIFICATION['Element Type']
+	prod MyClass, SPECIFICATION['Out File']
+}
+
+ownership = generator { 
+	case SPECIFICATION['Ownership']
+		when 'External reference'
+			sub /delete head_;/, ''
+			sub /new MyClass\(h\)/ , '&h'
+		when 'Owned reference'
+			sub /new MyClass\(h\)/ , '&h'
+		when 'Copy'
+	end
+	prod MyClass, SPECIFICATION['Out File']
+}
+
+length_counter = generator {
+	if SPECIFICATION['Length Type']
+		gsub /int/, SPECIFICATION['Length Type']
+	else
+		gsub /^.*length.*$/i, ''
+		gsub /\)\:/, '\0head_(0), tail_(t)'
+	end
+	prod MyClass, SPECIFICATION['Out File'] 
+}
+
+tracing = generator {
+	if !SPECIFICATION['Tracing']
+		gsub /cout.+$/, ''
+	end
+	prod MyClass, SPECIFICATION['Out File']
+}
+
+######################################
+# generator coordination
+######################################
+element_type.gen
+(ownership + length_counter + tracing).gen

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

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

data/tests/Lista Czarnecki/NuevaInterfaz/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/NuevaInterfaz/outDir/NewClassList.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/NuevaInterfaz/specification1.txt

@@ -0,0 +1,5 @@
+"Out File" => "outDir/NewClassList.cpp",
+"Element Type" => "NewClass",
+"Ownership" => "Copy",
+"Length Counter Type" => "short",
+"Tracing" => "yes"

data/tests/Lista Czarnecki/NuevaInterfaz/specification1.txt.bak

@@ -0,0 +1,5 @@
+"Out File" => "outDir/MyClassList.cpp",
+"Element Type" => "NewClass",
+"Ownership" => "Copy",
+"Length Counter Type" => "short",
+"Tracing" => "yes"

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

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

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

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

data/tests/Minus.rb

@@ -0,0 +1,89 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Pruebas para regexp - regexp
+#
+# Ultima actualizacion: 29-10-2007
+########################################################
+
+def identicalFiles? (f1, f2)
+	result = false
+	File.open(f1) { |fi1|
+		content01 = fi1.read
+		File.open(f2) { |fi2|
+			content2 = fi2.read
+			result = content01 == content2
+		}		
+	}
+end #identicalFiles
+
+class Minus < Test::Unit::TestCase
+	def test_1
+		x = nil
+    g1 = generator {
+			x =extract('archAuxiliares/minus.txt', 
+          /<b2\b.*?>.*<\/b2>/m > /<b3\b.*?>.*<\/b3>/m > />.*?</m > /[A-Za-z_0-9]+/m - /nbsp/)
+    }
+    assert_equal(x, ["text_3", "text_4", "text_5", "text_6"])
+	end
+
+	def test_2
+		x = nil
+    g1 = generator {
+			x =extract('archAuxiliares/minus.txt', 
+          /<b2\b.*?>.*<\/b2>/m > /<b3\b.*?>.*<\/b3>/m > />.*?</m - /(.*nbsp.*)*/m - 
+          /.*text_5.*/m - /.*text_6.*/m)
+    }
+    assert_equal(x, 
+      [">\n          text_3\n        <",
+        ">\n        <",
+        ">\n    <",
+        ">\n\n<",
+        ">\n<",
+        ">\n  text_4\n    <",
+        ">\n        <"])
+      end
+      
+	def test_3
+		x = nil
+    g1 = generator {
+			x =extract('archAuxiliares/minus.txt', o(/<b3\b.*?>.*<\/b3>/m) - /.*\/b.*/m)
+    }
+    assert_equal(x, ["<b1>\n  text_1\n    <b2>\n      text_2\n        "])
+	end
+
+	def test_4
+		g1 = generator {
+			sub(/<b2\b.*?>.*<\/b2>/m > /<b3\b.*?>.*<\/b3>/m > />.*?</m > /[A-Za-z_0-9]+/m - /nbsp/ - /text_3/, '<sub>')
+      prod('archAuxiliares/minus.txt', 'archAuxiliares/minus_out_1.txt')
+      gen
+    }
+    assert(identicalFiles?('archAuxiliares/minus_expected_1.txt', 'archAuxiliares/minus_out_1.txt'))
+	end
+
+	def test_5
+		g1 = generator {
+			gsub(/<b2\b.*?>.*?<\/b2>/m > /<b3\b.*?>.*?<\/b3>/m > />.*?</m > /[A-Za-z_0-9]+/m - /text_3/, '<sub>')
+      prod('archAuxiliares/minus.txt', 'archAuxiliares/minus_out_2.txt')
+      gen
+    }
+    assert(identicalFiles?('archAuxiliares/minus_expected_2.txt', 'archAuxiliares/minus_out_2.txt'))
+	end
+
+	def test_5
+		g1 = generator
+		assert_raises(RuntimeError, "") {||
+			g1.gsub(/<b2\b.*?>.*?<\/b2>/m - /nbsp/ > /<b3\b.*?>.*?<\/b3>/m - /text_3/, '<sub>')
+    }
+	end
+  
+  def test_6
+    x = nil
+    g1 = generator {
+			x =extract('archAuxiliares/text.txt', /text_[0-9]/ - /text_1/ - /text_3/)
+    }
+    #puts x
+  end
+
+end

data/tests/Plus.rb.bak

@@ -0,0 +1,48 @@
+require 'test/unit'
+require "EFL.rb"
+
+########################################################
+# Bateria de pruebas para la redefinici�n de las funciones Array#+, String#+, 
+#
+# Ultima actualizacion: 17-6-2005
+########################################################
+
+class Plus < Test::Unit::TestCase
+	def setup
+		@a1 = ['1', '2', '3', '4']
+		@a2 = ['5', '6']
+		@a3 = ['7', '8', '9', '10']
+		@a4 = ['11', '12']
+		@s1 = 'a'
+		@s2 = 'b'
+	end
+
+	def test_1 #String + Array
+		assert_equal(@s1 + @s2, 'ab')
+		assert_equal(@s1 + @a1, ['a1', 'a2', 'a3', 'a4'])
+	end
+
+	def test_2 #Array + String
+		assert_equal(@a1 + @a2, ['1', '2', '3', '4', '5', '6'])
+		assert_equal(@a1 + @s1, ['1a', '2a', '3a', '4a'])
+	end
+	
+	def test_3
+		assert_equal(@s1 + @a1 + @s2, ['a1b', 'a2b', 'a3b', 'a4b'])
+		assert_equal(@a1 + @a2+ @s1 + @s2, ['1ab', '2ab', '3ab', '4ab', '5ab', '6ab'])
+	end
+	
+	def test_4
+		assert_equal(@a1 + @s1 + @a3 + @s2, ['1a7b', '2a8b', '3a9b', '4a10b'])
+		assert_equal(@a1 + @s1 + (@a2 + @a4) + @s2, ['1a5b', '2a6b', '3a11b', '4a12b'])
+		
+	end
+
+	def test_5
+		assert_raises(RuntimeError, "") {||
+			@a1 +@s1 + @a2
+	}
+	end
+		
+end
+	

data/tests/REVit.rb

@@ -0,0 +1,84 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para la funcion RegExp1 > RegExp2 > ... > RegExpN
+#
+# Ultima actualizacion: 19-7-2007
+########################################################
+
+def identicalFiles? (f1, f2)
+	result = false
+	File.open(f1) { |fi1|
+		content01 = fi1.read
+		File.open(f2) { |fi2|
+			content2 = fi2.read
+			result = content01 == content2
+		}		
+	}
+end #identicalFiles
+
+
+class REVit < Test::Unit::TestCase
+	def test_1
+		g1 = generator {
+			reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+			reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s
+			sub(/escribirMatriz\(\)\s*#{reg_exp_str_1}/m >
+					/for.*?#{reg_exp_str_1}/m >
+					nested_symbols( '{' , '}' ) > 
+					/for.*?(#{reg_exp_str_2})/m >
+					nested_symbols( '(' , ')')  >
+					/j(=)0/,
+				'NuevaVariableee#{$1}0'
+			)
+			
+			gsub(nested_symbols( '{' , '}' ) > /Matriz/, 'MatrizInterna')
+			
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut.java')
+		}
+
+		g2 = generator {
+			sub(/Matriz/, 'MatrizExterna')
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut.java')
+		}
+		
+		g3 = generator {
+			gsub(/print/, 'imprimePollo!')
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut.java')
+		}
+		(g1+g2+g3).gen
+		
+		assert( identicalFiles?('archAuxiliares/Matriz_1.java', 'archAuxiliares/MatrizOut.java') )
+	end
+	
+	def test_2
+		g1 = generator {
+			reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+			reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s
+			gsub(/escribirMatriz\(\)\s*#{reg_exp_str_1}/m >
+					/for.*?#{reg_exp_str_1}/m >
+					nested_symbols( '{' , '}' ) > 
+					/for.*?(#{reg_exp_str_2})/m >
+					nested_symbols( '(' , ')')  >
+					/j(=)0/,
+				'NuevaVariableee#{$1}0'
+			)
+			
+			gsub(nested_symbols( '{' , '}' ) > /Matriz/, 'MatrizInterna')
+			
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut.java')
+		}
+
+		g2 = generator {
+			gsub(/Matriz/, 'MatrizExterna')
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut.java')
+		}
+		
+		assert(!(g1.add?g2))
+		assert_raises(RuntimeError, "") {||
+			g1 + g2
+		}
+	end
+
+end