Changeset 7477

Timestamp:

10/09/05 17:30:09 (3 years ago)

Author:

autrijus

Message:

* Inline::Pugs: revert to the previous, non-PIL-Run UI

as the API has changed and I don't quite feel like to
chase it right now...

Files:

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

lib/Inline/Pugs.pm

@@ -2 +2 @@
 
 use strict;
-use File::Basename;
-use constant LIBDIRS => qw<
-    PIL-Run
-    Perl6-Value
-    Perl6-Container
-    Perl6-MetaModel
->;
-use lib (map {
-    dirname(__FILE__) . "/../../perl5/$_/lib",
-} LIBDIRS);
+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 Data::Dumper;
-use vars qw< @ISA $VERSION >;
 
 @ISA     = 'Inline';
@@ -81 +76 @@
         *{"$pkg\::$sym"} = sub {
             local $Data::Dumper::Terse = 1;
-            my @args = map { Dumper($_) } @_;
+            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
             $self->eval_pugs(
                 "$sym(".join(',', @args).")"
@@ -88 +83 @@
     }
 }
-
-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 {
@@ -120 +102 @@
     return eval $out;
 }
-
-=cut
 
 sub quote_pugs {