Changeset 6738

Timestamp:

09/05/05 20:21:17 (3 years ago)

Author:

iblech

Message:

* Usual svn props.
* All examples/ which are tested in t/examples/examples.t:

Added remaining reminders to update examples.t and examples/output.

* New examples/output/algorithms/lambda-calculus:

example.t tests the output of dankogai++'s lambda-calculus.p6 now.

* pugs::hack: Added the settings needed to make <Tab> indent by four spaces in

Vim, dduncan++, can somebody add the appropriate settings for emacs?

Files:

• examples/algorithms/hanoi.p6 (modified) (1 diff)
• examples/algorithms/lambda-calculus.p6 (modified) (3 diffs, 2 props)
• examples/algorithms/quicksort.p6 (modified) (1 diff)
• examples/functional/fp.p6 (modified) (1 diff)
• examples/junctions/1.p6 (modified) (1 diff)
• examples/junctions/3.p6 (modified) (1 diff)
• examples/junctions/all-all.p6 (modified) (1 diff)
• examples/junctions/all-any.p6 (modified) (1 diff)
• examples/junctions/any-any.p6 (modified) (1 diff)
• examples/junctions/any-any2.p6 (modified) (1 diff)
• examples/junctions/grades.p6 (modified) (1 diff)
• examples/output/algorithms/lambda-calculus (added)
• lib/pugs/hack.pod (modified) (1 diff)
• perl5/Perl6-MetaModel2.0/t/15_submethods.t (modified) (2 props)
• t/examples/examples.t (modified) (2 diffs)

examples/algorithms/hanoi.p6

@@ -4 +4 @@
 
 # Towers of Hanoi
-#       move from tower A to tower B using tower S as the spare
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/algorithms/hanoi if you rename/move this file.
+
+# move from tower A to tower B using tower S as the spare
 sub hanoi ($a,$b,$s,$d) {
    if $d > 0 {

examples/algorithms/lambda-calculus.p6

@@ +1 @@
+#!/usr/bin/pugs
 #
 # $Id: lambda-calculus.p6,v 0.1 2005/09/05 12:16:18 dankogai Exp dankogai $
 #
+# Please remember to update t/examples/examples.t and rename
+# examples/output/algorithms/lambda-calculus if you rename/move this file.
 
 use v6;
@@ -8 +11 @@
 
 Message-Id: <A77477E9-C139-48D2-86C2-CE60842FA659@dan.co.jp>
+    http://www.nntp.perl.org/group/perl.perl6.language/22991
+
 Message-Id: <20050905061111.GA25085@aut.dyndns.org>
+    http://www.nntp.perl.org/group/perl.perl6.language/22992
 
 =cut
@@ -23 +29 @@
 our $MULT = sub($m){ sub($n){ sub($f){ $m.($n.($f)) }}};
 our $POW  = sub($m){ sub($n){ $n.($m) }};
+
+=for alternative
+
+our $ZERO = -> $f { -> $x { $x } };
+our $SUCC = -> $n { -> $f { -> $x { $f.($n.($f)($x)) }}};
+# ...
+
+=cut
 
 sub num2int($n){ $n.(sub($i){ 1 + $i })(0) }

examples/algorithms/quicksort.p6

@@ -1 +1 @@
 #!/usr/bin/pugs
 use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/algorithms/quicksort if you rename/move this file.
 
 multi quicksort ( ) { () }

examples/functional/fp.p6

@@ -5 +5 @@
 # mimic the pattern matching style of functional programming
 # languages. 
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/functional/fp if you rename/move this file.
 
 multi sub length ()          returns Int { 0               }

examples/junctions/1.p6

@@ +1 @@
+#!/usr/bin/pugs
+
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/1 if you rename/move this file.
+
 my @color = qw(red green blue);
 

examples/junctions/3.p6

@@ +1 @@
+#!/usr/bin/pugs
+
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/3 if you rename/move this file.
+
 my @oldval  = (5, 8, 12);
 my @newval1 = (17, 15, 14);

examples/junctions/all-all.p6

@@ -1 @@
-my @pacific    = qw(800 720 600 511);
-@pacific   = qw(715 550 411);
+#!/usr/bin/pugs
 
-my @atlantic   = qw(400 420 300 211);
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/all-all if you rename/move this file.
+
+my @pacific  = qw(800 720 600 511);
+@pacific     = qw(715 550 411);
+
+my @atlantic = qw(400 420 300 211);
 
 if (all(@pacific) > all(@atlantic)) {

examples/junctions/all-any.p6

@@ +1 @@
+#!/usr/bin/pugs
+
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/all-any if you rename/move this file.
+
 my @new_data   = qw(100 90 70);
 my @old_data   = qw(55 35 5);

examples/junctions/any-any.p6

@@ +1 @@
+#!/usr/bin/pugs
+
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/any-any if you rename/move this file.
+
 # any compared with any
 

examples/junctions/any-any2.p6

@@ +1 @@
+#!/usr/bin/pugs
+
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/any-any2 if you rename/move this file.
+
 # any compared with any - example 2
 

examples/junctions/grades.p6

@@ +1 @@
+#!/usr/bin/pugs
+
+use v6;
+
+# Please remember to update t/examples/examples.t and rename
+# examples/output/junctions/grades if you rename/move this file.
+
 my $threshold = 70;
 

lib/pugs/hack.pod

@@ -280 +280 @@
 tabs, so the code and documentation looks the same to everyone.
 
+If use use Vim, you may want to set the following settings:
+
+    set shiftwidth=4 autoindent expandtab smarttab softtabstop=1
+
+This will cause Vim to insert four spaces instead of a real tab upon pressing
+C<< <Tab> >>.
+
 =head2 Testing
 

t/examples/examples.t

@@ -9 +9 @@
 
 This loads some of the scripts of the examples/ dir and compares their output
-with a expected output.
+with the expected output (stored in examples/output/).
 
 =cut
@@ -15 +15 @@
 my @examples = <
   functional/fp functional/reverse
-  algorithms/hanoi algorithms/quicksort
+  algorithms/hanoi algorithms/quicksort algorithms/lambda-calculus
   junctions/1 junctions/3 junctions/all-all junctions/all-any junctions/any-any
   junctions/any-any2 junctions/grades