Changeset 6032

Timestamp:

08/03/05 16:31:44 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

8154

Message:

* Usual svn props.
* PIL2JS:

• PIL2JS.js: Fixed display of native JS exceptions.
• New Prelude::JS::Context: Added stub &scalar and &list.
• New Prelude::JS::Math: Added &pi, &atan (with one and two args), &sin, &cos, &tan, &asin, and &acos.
• Prelude::JS::Array: Added &reverse (but doesn't use context yet).

* t/builtins/math/trig.t: Added TODO feature tests for &asin and &acos.

Files:

• debian/pugs-modules.install (modified) (2 props)
• perl5/PIL2JS/lib/PIL/PApp.pm (modified) (1 diff)
• perl5/PIL2JS/lib6/Prelude/JS.pm (modified) (1 diff)
• perl5/PIL2JS/lib6/Prelude/JS/Array.pm (modified) (1 diff)
• perl5/PIL2JS/lib6/Prelude/JS/Context.pm (added)
• perl5/PIL2JS/lib6/Prelude/JS/Math.pm (added)
• perl5/PIL2JS/libjs/PIL2JS.js (modified) (1 diff)
• t/builtins/math/trig.t (modified) (2 diffs)

perl5/PIL2JS/lib/PIL/PApp.pm

@@ -75 +75 @@
   $native++ if
     defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
+  $native++ if
+    defined $obj and $subname =~ /^&\*?JS::/;
 
   # The sub is a reference? ==> We can't know at compile-time.

perl5/PIL2JS/lib6/Prelude/JS.pm

@@ -24 +24 @@
 use Prelude::JS::Hash;
 use Prelude::JS::Array;
+use Prelude::JS::Context;
+use Prelude::JS::Math;
 
 method JS::Root::undefine($a is rw:) {

perl5/PIL2JS/lib6/Prelude/JS/Array.pm

@@ -164 +164 @@
   $sum += +$_ for @vals;
   $sum;
+}
+
+method reverse(*@things is copy:) {
+  # Hack, should of course use context info, but that's not here yet.
+  if @things == 1 {
+    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
+  } else {
+    JS::inline('new PIL2JS.Box.Constant(function (args) {
+      var arr = args[1].FETCH();
+      arr.reverse();
+      return new PIL2JS.Box.Constant(arr);
+    })')(@things);
+  }
 }
 

perl5/PIL2JS/libjs/PIL2JS.js

@@ -635 +635 @@
   _26main_3a_3asay.FETCH()([
     PIL2JS.Context.Void,
-    _26main_3a_3aprefix_3a_7e.FETCH()([PIL2JS.Context.ItemAny, err.pil2js_orig_msg])
+    _26main_3a_3aprefix_3a_7e.FETCH()([
+      PIL2JS.Context.ItemAny,
+      err.pil2js_orig_msg
+        ? err.pil2js_orig_msg
+        : new PIL2JS.Box.Constant(err.toString())
+    ])
   ]);
 };

t/builtins/math/trig.t

@@ -4 +4 @@
 use Test;
 
-plan 45;
-# force_todo 2 .. 8, 12 .. 20;
+plan 51;
 
 =head1 DESCRIPTION
@@ -90 +89 @@
 ok(approx(tan(7/4*$PI), -1));
 ok(approx(tan(8/4*$PI), 0));
+
+# asin
+ok(approx(try{asin(0)},            0));
+ok(approx(try{asin(1/2*sqrt(2))},  1/4*$PI), :todo<feature>);
+ok(approx(try{asin(1)},            2/4*$PI), :todo<feature>);
+
+# acos
+ok(approx(try{acos(0)},            2/4*$PI), :todo<feature>);
+ok(approx(try{acos(1/2*sqrt(2))},  1/4*$PI), :todo<feature>);
+ok(approx(try{acos(1)},            0/4*$PI));