#!/usr/bin/perl -s
#  -d creates a .debug camila file

package camila;

use IPC::Open3;  # para redireccionar stdin, stdout stderr dum comando

BEGIN{
 $pid=open3(CAM, Reader, Error, "camilax -n ") ||  die("cant camila - $!\n")
}

sub prototype{ 
   for (@_){
   if (m!.met$!){   print CAM qq{load("$_");\n};}
   else        {   print CAM qq{nload("$_");\n};}
   getres();
   }
}

sub cameval {
   my $s=shift;
   print CAM $s;
   getres();
}

sub getres {
  my $r="";
  my @x=();
  my $l;
  print CAM 'princ("\n__JJ__\n")', ";\n";
  while ($l=<Reader>){
    chop $l;
    last if ($l eq "__JJ__");
    push (@x, $l);
  }
  join("\n",@x);
}

1;

__END__