prelude 0.0.3 → 0.0.5

data/test/tc_monad.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: tc_monad.rb 13 2006-09-11 05:19:16Z prelude $
+# $Id: tc_monad.rb 31 2006-12-28 02:28:28Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -24,9 +24,12 @@
 #     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
+require 'prelude'
+
 # A test class representing a genesis of a possible cloned animal
 class Cloned
-  include Monad
+
+  include Prelude::Monad
 
   attr_reader :name, :mother, :father
 
@@ -51,7 +54,7 @@ class Cloned
 
   # Monadic versions
   def m_maternalGrandfather
-    wrap << :mother << :father << unwrap
+    wrap >> :mother >> :father >> unwrap
   end
 
   def m_mothersPaternalGrandfather
@@ -93,53 +96,30 @@ class TestMonad < Test::Unit::TestCase
     assert_equal(expect, result)
   end
 
-  def test_bind1
-    result = @sheep.m_maternalGrandfather
+  def test_bind
+    # Wrap and >>
+    result = @sheep.wrap >> :mother >> :father >> @sheep.unwrap
     expect = @grandpa
     
     assert_equal(expect, result)
-  end
 
-  def test_bind2
-    result = @sheep.m_mothersPaternalGrandfather
+    # Wrap and bind
+    result = @sheep.wrap.bind(:mother).bind(:father).bind(:father).unwrap
     expect = nil
     
     assert_equal(expect, result)
-  end
 
-  def aaa(one, two=222, *args, &block)
-    puts 'aaa: '
-    puts 'one=' + one.inspect
-    puts 'two=' + two.inspect
-    args.each{|x| puts 'p= '+x.inspect}
-    puts 'b= '+block.inspect
-    bbb
-  end
+    # Auto-wrap and >>
+    result = @sheep >> :mother >> :father >> @sheep.unwrap
+    expect = @grandpa
+    
+    assert_equal(expect, result)
 
-  def bbb
-    puts  'AAA: '+caller_method.inspect
-    puts  'Arity: '+caller_method.to_proc.arity.inspect
+    # Auto-wrap and bind
+    result = @sheep.bind(:mother).bind(:father).bind(:father).unwrap
+    expect = nil
+    
+    assert_equal(expect, result)
   end
 
-#  def test_method
-#     p = proc {}
-# #    aaa()
-#     aaa(1)
-#     aaa(1, "aaa")
-# #    aaa(){|x| x+1}
-#     aaa(1){|x| x+1}
-#     aaa(1, 2, 3){|x| x+1}
-#     aaa(1, 2, :aaa, 3){|x| x+1}
-#    aaa(1, proc {|x| x+1}, :aaa, 3){|x| x+1}
-#     aaa(proc {|x| x+1})
-#     aaa([1, 2, 3])
-#     aaa([1, 2, 3])
-#     aaa(*[1, 2, 3, p])
-#     aaa(*[1, 2, 3, p], &p)
-#  end
-
-#  def test_misc
-#    puts "this: "+ this_method.inspect
-#    puts "caller: "+caller_method.inspect
-#  end
 end # TestMonad

data/test/ts_prelude.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: ts_prelude.rb 12 2006-09-07 20:50:50Z prelude $
+# $Id: ts_prelude.rb 28 2006-12-19 00:12:54Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -26,11 +26,5 @@
 
 $:.unshift File.join(File.dirname(__FILE__), "..", "lib")
 
-require 'prelude'
-include Prelude
-require 'test/unit'
-
-require 'tc_list'
-require 'tc_higher'
-require 'tc_tuple'
+require 'tc_functions'
 require 'tc_monad'

metadata

@@ -1,10 +1,10 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.9.0
+rubygems_version: 0.9.2
 specification_version: 1
 name: prelude
 version: !ruby/object:Gem::Version 
-  version: 0.0.3
-date: 2006-09-17 00:00:00 -05:00
+  version: 0.0.5
+date: 2007-10-23 00:00:00 -05:00
 summary: Haskell-like functional library
 require_paths: 
 - lib
@@ -34,42 +34,19 @@ files:
 - TODO
 - CHANGELOG
 - COPYING
-- doc/classes
-- doc/created.rid
-- doc/files
-- doc/fr_class_index.html
-- doc/fr_file_index.html
-- doc/fr_method_index.html
-- doc/index.html
-- doc/rdoc-style.css
-- doc/classes/Kernel.html
-- doc/classes/Prelude
-- doc/classes/Prelude.html
-- doc/classes/Proc.html
-- doc/classes/Symbol.html
-- doc/classes/Prelude/EmptyListError.html
-- doc/classes/Prelude/List.html
-- doc/classes/Prelude/MissingFunctionError.html
-- doc/classes/Prelude/Monad.html
-- doc/classes/Prelude/Tuple.html
-- doc/files/CHANGELOG.html
-- doc/files/lib
-- doc/files/README.html
-- doc/files/TODO.html
-- doc/files/lib/prelude
-- doc/files/lib/prelude_rb.html
-- doc/files/lib/prelude/list_rb.html
-- doc/files/lib/prelude/monad_rb.html
-- doc/files/lib/prelude/tuple_rb.html
 - lib/prelude
-- lib/prelude.rb
-- lib/prelude/list.rb
+- lib/prelude/array_list.rb
+- lib/prelude/functions.rb
+- lib/prelude/functors.rb
+- lib/prelude/lambda.rb
+- lib/prelude/minimal_array_list.rb
 - lib/prelude/monad.rb
-- lib/prelude/tuple.rb
-- test/tc_higher.rb
-- test/tc_list.rb
+- lib/prelude/proper_list.rb
+- lib/prelude/proper_ruby_list.rb
+- lib/prelude/util.rb
+- lib/prelude.rb
+- test/tc_functions.rb
 - test/tc_monad.rb
-- test/tc_tuple.rb
 - test/ts_prelude.rb
 test_files: 
 - test/ts_prelude.rb

data/doc/classes/Kernel.html

@@ -1,198 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<!DOCTYPE html 
-     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
-     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
-
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
-<head>
-  <title>Module: Kernel</title>
-  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
-  <meta http-equiv="Content-Script-Type" content="text/javascript" />
-  <link rel="stylesheet" href=".././rdoc-style.css" type="text/css" media="screen" />
-  <script type="text/javascript">
-  // <![CDATA[
-
-  function popupCode( url ) {
-    window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
-  }
-
-  function toggleCode( id ) {
-    if ( document.getElementById )
-      elem = document.getElementById( id );
-    else if ( document.all )
-      elem = eval( "document.all." + id );
-    else
-      return false;
-
-    elemStyle = elem.style;
-    
-    if ( elemStyle.display != "block" ) {
-      elemStyle.display = "block"
-    } else {
-      elemStyle.display = "none"
-    }
-
-    return true;
-  }
-  
-  // Make codeblocks hidden by default
-  document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
-  
-  // ]]>
-  </script>
-
-</head>
-<body>
-
-
-
-    <div id="classHeader">
-        <table class="header-table">
-        <tr class="top-aligned-row">
-          <td><strong>Module</strong></td>
-          <td class="class-name-in-header">Kernel</td>
-        </tr>
-        <tr class="top-aligned-row">
-            <td><strong>In:</strong></td>
-            <td>
-                <a href="../files/lib/prelude_rb.html">
-                lib/prelude.rb
-                </a>
-        <br />
-            </td>
-        </tr>
-
-        </table>
-    </div>
-  <!-- banner header -->
-
-  <div id="bodyContent">
-
-
-
-  <div id="contextContent">
-
-
-
-   </div>
-
-    <div id="method-list">
-      <h3 class="section-bar">Methods</h3>
-
-      <div class="name-list">
-      <a href="#M000113">caller_method</a>&nbsp;&nbsp;
-      <a href="#M000114">silence_warnings</a>&nbsp;&nbsp;
-      <a href="#M000112">this_method</a>&nbsp;&nbsp;
-      </div>
-    </div>
-
-  </div>
-
-
-    <!-- if includes -->
-
-    <div id="section">
-
-
-
-
-
-      
-
-
-    <!-- if method_list -->
-    <div id="methods">
-      <h3 class="section-bar">Public Instance methods</h3>
-
-      <div id="method-M000113" class="method-detail">
-        <a name="M000113"></a>
-
-        <div class="method-heading">
-          <a href="#M000113" class="method-signature">
-          <span class="method-name">caller_method</span><span class="method-args">()</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-Method object for the caller of the currently executing method
-</p>
-          <p><a class="source-toggle" href="#"
-            onclick="toggleCode('M000113-source');return false;">[Source]</a></p>
-          <div class="method-source-code" id="M000113-source">
-<pre>
-     <span class="ruby-comment cmt"># File lib/prelude.rb, line 118</span>
-118:   <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">caller_method</span>
-119:     <span class="ruby-identifier">name</span> = (<span class="ruby-constant">Kernel</span>.<span class="ruby-identifier">caller</span>[<span class="ruby-value">1</span>] <span class="ruby-operator">=~</span> <span class="ruby-regexp re">/`([^']*)'/</span> <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">$1</span>)
-120:     <span class="ruby-identifier">eval</span> <span class="ruby-node">&quot;self.method(\&quot;#{name}\&quot;.to_sym)&quot;</span>, <span class="ruby-identifier">binding</span>
-121:   <span class="ruby-keyword kw">end</span>
-</pre>
-          </div>
-        </div>
-      </div>
-
-      <div id="method-M000114" class="method-detail">
-        <a name="M000114"></a>
-
-        <div class="method-heading">
-          <a href="#M000114" class="method-signature">
-          <span class="method-name">silence_warnings</span><span class="method-args">() {|| ...}</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-Shuts up Ruby&#8217;s warning.
-</p>
-          <p><a class="source-toggle" href="#"
-            onclick="toggleCode('M000114-source');return false;">[Source]</a></p>
-          <div class="method-source-code" id="M000114-source">
-<pre>
-     <span class="ruby-comment cmt"># File lib/prelude.rb, line 124</span>
-124:   <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">silence_warnings</span>
-125:     <span class="ruby-identifier">old_verbose</span>, <span class="ruby-identifier">$VERBOSE</span> = <span class="ruby-identifier">$VERBOSE</span>, <span class="ruby-keyword kw">nil</span>
-126:     <span class="ruby-keyword kw">yield</span>
-127:   <span class="ruby-keyword kw">ensure</span>
-128:     <span class="ruby-identifier">$VERBOSE</span> = <span class="ruby-identifier">old_verbose</span>
-129:   <span class="ruby-keyword kw">end</span>
-</pre>
-          </div>
-        </div>
-      </div>
-
-      <div id="method-M000112" class="method-detail">
-        <a name="M000112"></a>
-
-        <div class="method-heading">
-          <a href="#M000112" class="method-signature">
-          <span class="method-name">this_method</span><span class="method-args">()</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-Method object for currently executing method
-</p>
-          <p><a class="source-toggle" href="#"
-            onclick="toggleCode('M000112-source');return false;">[Source]</a></p>
-          <div class="method-source-code" id="M000112-source">
-<pre>
-     <span class="ruby-comment cmt"># File lib/prelude.rb, line 112</span>
-112:   <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">this_method</span>
-113:     <span class="ruby-identifier">name</span> = (<span class="ruby-constant">Kernel</span>.<span class="ruby-identifier">caller</span>[<span class="ruby-value">0</span>] <span class="ruby-operator">=~</span> <span class="ruby-regexp re">/`([^']*)'/</span> <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">$1</span>)
-114:     <span class="ruby-identifier">eval</span> <span class="ruby-node">&quot;self.method(\&quot;#{name}\&quot;.to_sym)&quot;</span>, <span class="ruby-identifier">binding</span>
-115:   <span class="ruby-keyword kw">end</span>
-</pre>
-          </div>
-        </div>
-      </div>
-
-
-    </div>
-
-
-  </div>
-
-
-</body>
-</html>

data/doc/classes/Prelude.html

@@ -1,241 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<!DOCTYPE html 
-     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
-     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
-
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
-<head>
-  <title>Module: Prelude</title>
-  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
-  <meta http-equiv="Content-Script-Type" content="text/javascript" />
-  <link rel="stylesheet" href=".././rdoc-style.css" type="text/css" media="screen" />
-  <script type="text/javascript">
-  // <![CDATA[
-
-  function popupCode( url ) {
-    window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
-  }
-
-  function toggleCode( id ) {
-    if ( document.getElementById )
-      elem = document.getElementById( id );
-    else if ( document.all )
-      elem = eval( "document.all." + id );
-    else
-      return false;
-
-    elemStyle = elem.style;
-    
-    if ( elemStyle.display != "block" ) {
-      elemStyle.display = "block"
-    } else {
-      elemStyle.display = "none"
-    }
-
-    return true;
-  }
-  
-  // Make codeblocks hidden by default
-  document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
-  
-  // ]]>
-  </script>
-
-</head>
-<body>
-
-
-
-    <div id="classHeader">
-        <table class="header-table">
-        <tr class="top-aligned-row">
-          <td><strong>Module</strong></td>
-          <td class="class-name-in-header">Prelude</td>
-        </tr>
-        <tr class="top-aligned-row">
-            <td><strong>In:</strong></td>
-            <td>
-                <a href="../files/lib/prelude_rb.html">
-                lib/prelude.rb
-                </a>
-        <br />
-                <a href="../files/lib/prelude/list_rb.html">
-                lib/prelude/list.rb
-                </a>
-        <br />
-                <a href="../files/lib/prelude/monad_rb.html">
-                lib/prelude/monad.rb
-                </a>
-        <br />
-                <a href="../files/lib/prelude/tuple_rb.html">
-                lib/prelude/tuple.rb
-                </a>
-        <br />
-            </td>
-        </tr>
-
-        </table>
-    </div>
-  <!-- banner header -->
-
-  <div id="bodyContent">
-
-
-
-  <div id="contextContent">
-
-
-
-   </div>
-
-    <div id="method-list">
-      <h3 class="section-bar">Methods</h3>
-
-      <div class="name-list">
-      <a href="#M000007">empty_list_error</a>&nbsp;&nbsp;
-      <a href="#M000009">get_proc</a>&nbsp;&nbsp;
-      <a href="#M000008">missing_function_error</a>&nbsp;&nbsp;
-      </div>
-    </div>
-
-  </div>
-
-
-    <!-- if includes -->
-
-    <div id="section">
-
-    <div id="class-list">
-      <h3 class="section-bar">Classes and Modules</h3>
-
-      Module <a href="Prelude/List.html" class="link">Prelude::List</a><br />
-Module <a href="Prelude/Monad.html" class="link">Prelude::Monad</a><br />
-Class <a href="Prelude/EmptyListError.html" class="link">Prelude::EmptyListError</a><br />
-Class <a href="Prelude/MissingFunctionError.html" class="link">Prelude::MissingFunctionError</a><br />
-Class <a href="Prelude/Tuple.html" class="link">Prelude::Tuple</a><br />
-
-    </div>
-
-    <div id="constants-list">
-      <h3 class="section-bar">Constants</h3>
-
-      <div class="name-list">
-        <table summary="Constants">
-        <tr class="top-aligned-row context-row">
-          <td class="context-item-name">VERSION</td>
-          <td>=</td>
-          <td class="context-item-value">'0.0.3'</td>
-        </tr>
-        <tr class="top-aligned-row context-row">
-          <td class="context-item-name">Id</td>
-          <td>=</td>
-          <td class="context-item-value">lambda { |x| x }</td>
-          <td width="3em">&nbsp;</td>
-          <td class="context-item-desc">
-Returns function that returns its argument
-
-</td>
-        </tr>
-        </table>
-      </div>
-    </div>
-
-
-
-      
-
-
-    <!-- if method_list -->
-    <div id="methods">
-      <h3 class="section-bar">Public Instance methods</h3>
-
-      <div id="method-M000007" class="method-detail">
-        <a name="M000007"></a>
-
-        <div class="method-heading">
-          <a href="#M000007" class="method-signature">
-          <span class="method-name">empty_list_error</span><span class="method-args">()</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-This is used to handle empty list errors in this library. Re-define to fit.
-</p>
-          <p><a class="source-toggle" href="#"
-            onclick="toggleCode('M000007-source');return false;">[Source]</a></p>
-          <div class="method-source-code" id="M000007-source">
-<pre>
-    <span class="ruby-comment cmt"># File lib/prelude.rb, line 39</span>
-39:   <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">empty_list_error</span>
-40:     <span class="ruby-identifier">raise</span> <span class="ruby-constant">EmptyListError</span>, <span class="ruby-value str">'Illegal operation on an empty list.'</span>
-41:   <span class="ruby-keyword kw">end</span>
-</pre>
-          </div>
-        </div>
-      </div>
-
-      <div id="method-M000009" class="method-detail">
-        <a name="M000009"></a>
-
-        <div class="method-heading">
-          <a href="#M000009" class="method-signature">
-          <span class="method-name">get_proc</span><span class="method-args">(f=nil, &amp;block)</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-A utility to determine if a function was passed
-</p>
-          <p><a class="source-toggle" href="#"
-            onclick="toggleCode('M000009-source');return false;">[Source]</a></p>
-          <div class="method-source-code" id="M000009-source">
-<pre>
-    <span class="ruby-comment cmt"># File lib/prelude.rb, line 52</span>
-52:   <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">get_proc</span>(<span class="ruby-identifier">f</span>=<span class="ruby-keyword kw">nil</span>, <span class="ruby-operator">&amp;</span><span class="ruby-identifier">block</span>)
-53:     <span class="ruby-comment cmt"># Has to be either function 'f' or block</span>
-54:     <span class="ruby-identifier">f</span> = <span class="ruby-identifier">block_given?</span> <span class="ruby-value">? </span><span class="ruby-identifier">block</span> <span class="ruby-operator">:</span> <span class="ruby-identifier">missing_function_error</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">f</span>.<span class="ruby-identifier">nil?</span>
-55:     <span class="ruby-identifier">f</span>.<span class="ruby-identifier">to_proc</span>
-56:   <span class="ruby-keyword kw">end</span>
-</pre>
-          </div>
-        </div>
-      </div>
-
-      <div id="method-M000008" class="method-detail">
-        <a name="M000008"></a>
-
-        <div class="method-heading">
-          <a href="#M000008" class="method-signature">
-          <span class="method-name">missing_function_error</span><span class="method-args">()</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-This is used to handle missing function errors in this library. Re-define
-to fit.
-</p>
-          <p><a class="source-toggle" href="#"
-            onclick="toggleCode('M000008-source');return false;">[Source]</a></p>
-          <div class="method-source-code" id="M000008-source">
-<pre>
-    <span class="ruby-comment cmt"># File lib/prelude.rb, line 47</span>
-47:   <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">missing_function_error</span>
-48:     <span class="ruby-identifier">raise</span> <span class="ruby-constant">MissingFunctionError</span>, <span class="ruby-value str">'No function or block supplied.'</span>
-49:   <span class="ruby-keyword kw">end</span>
-</pre>
-          </div>
-        </div>
-      </div>
-
-
-    </div>
-
-
-  </div>
-
-
-</body>
-</html>