Changeset 6535 for lib/Inline/Pugs.pm

Timestamp:

08/28/05 19:21:32 (3 years ago)

Author:

autrijus

Message:

* port Inline::Pugs to use the PIL-Run runtime. So far this works:

use Inline Pugs => q{

sub intone { say "Hello, $_!" }

};
intone('World');

Files:

• lib/Inline/Pugs.pm (modified) (4 diffs)

lib/Inline/Pugs.pm

@@ -2 +2 @@
 
 use strict;
-use vars qw<$VERSION @ISA>;
-use constant MAGIC =>
-    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
-use constant COOKIE => rand();
-use Perl6::Pugs;
-use IPC::Open2;
+use File::Basename;
+use constant LIBDIRS => qw<
+    PIL-Run
+    Perl6-Value
+    Perl6-Container
+    Perl6-MetaModel
+>;
+use lib (map {
+    dirname(__FILE__) . "/../../perl5/$_/lib",
+} LIBDIRS);
 use Data::Dumper;
+use vars qw< @ISA $VERSION >;
 
 @ISA     = 'Inline';
@@ -76 +81 @@
         *{"$pkg\::$sym"} = sub {
             local $Data::Dumper::Terse = 1;
-            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
+            my @args = map { Dumper($_) } @_;
             $self->eval_pugs(
                 "$sym(".join(',', @args).")"
@@ -83 +88 @@
     }
 }
+
+sub init_pugs {
+    use PIL::Run::MainX;
+    use PIL::Run::EvalX;
+    use PIL::Run::ApiX;
+}
+
+sub eval_pugs {
+    my $self = shift;
+    p6_eval($_[0]);
+}
+
+=begin comment
 
 sub init_pugs {
@@ -102 +120 @@
     return eval $out;
 }
+
+=cut
 
 sub quote_pugs {