[Perldl] PP help

[adithya]

hi,

im trying to get some PDL::PP code working. But even the sample sumit 
example from the PDL::PP documentation doesnt compile properly.
This is my program :

    use PDL;
    use PDL::PP;
     
        pp_def('sumit',
                Pars => 'a(n);  [o]b();',
                Code => '
                     double tmp;
                     tmp = 0;
                     loop(n) %{
                       tmp += $a();
                     %}
                     $b() = tmp;
        ');
        pp_done();

and makefile.PL:

     
    use PDL::Core::Dev;
    use ExtUtils::MakeMaker;
     
    PDL::Core::Dev->import();
    $package = ["Cust.pm",Cust,PDL::Lib::Cust];
    %hash = pdlpp_stdargs($package);
    WriteMakefile(%hash);
     
    sub MY::postamble { pdlpp_postamble($package); }


the program:

    #!/usr/bin/perl -w
    use PDL;
    use PDL::Lib::Cust;

    $a=random (5);
    print $a;
    print sumit($a);

There is a compilation error in PDL::Lib::Cust

Please help.

Thanks in advance.




_______________________________________________
Perldl mailing list
Perldl@jach.hawaii.edu
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl