Gregory: After installing the latest perl/PDL, I get the following messages each time I try to use LinearAlgebra.
I think something has changed somewhere else. I have no account on CPAN, so I use this mail to submit a bug report. The includes in my program: (use PDL::LinearAlgebra; = line 13) use PDL; use PDL::LiteF; use PDL::LinearAlgebra; use PDL::LinearAlgebra::Trans qw //; use PDL::Complex; --------- the output: Subroutine main::log10 redefined at (eval 1) line 7 Prototype mismatch: sub main::qsort: none vs (;@) at (eval 1) line 9 Subroutine main::floor redefined at (eval 1) line 13 Prototype mismatch: sub main::floor: none vs (;@) at (eval 1) line 13 Subroutine main::cosh redefined at (eval 1) line 13 Prototype mismatch: sub main::cosh: none vs (;@) at (eval 1) line 13 Subroutine main::tanh redefined at (eval 1) line 13 Prototype mismatch: sub main::tanh: none vs (;@) at (eval 1) line 13 Subroutine main::atan redefined at (eval 1) line 13 Prototype mismatch: sub main::atan: none vs (;@) at (eval 1) line 13 Subroutine main::tan redefined at (eval 1) line 13 Prototype mismatch: sub main::tan: none vs (;@) at (eval 1) line 13 Subroutine main::ceil redefined at (eval 1) line 13 Prototype mismatch: sub main::ceil: none vs (;@) at (eval 1) line 13 Subroutine main::sinh redefined at (eval 1) line 13 Prototype mismatch: sub main::sinh: none vs (;@) at (eval 1) line 13 Subroutine main::asin redefined at (eval 1) line 13 Prototype mismatch: sub main::asin: none vs (;@) at (eval 1) line 13 Subroutine main::acos redefined at (eval 1) line 13 Prototype mismatch: sub main::acos: none vs (;@) at (eval 1) line 13 Prototype mismatch: sub main::pow: none vs (;@) at (eval 1) line 13 Subroutine PDL::sec redefined at /usr/local/lib/perl/5.10.0/PDL/LinearAlgebra/Trans.pm line 249. Name "PDL::SHARE" used only once: possible typo at /usr/lib/perl/5.10/DynaLoader.pm line 219. Gregory Vanuxem wrote: > Hello Jan, hello all > > Have you seen that : > > http://search.cpan.org/~ellipse/PDL-LinearAlgebra-0.06 > > > This modules was built incrementally (implemented when needed and when > time was available) but of course a better way is to do it automatically > (I did it later in lisp). Beside the lot of disadvantage a manual way > is, it's relatively well checked, practically checked to be more > precise . Each routine was tested, but some bugs remains for sure. The > x.t check for the « educational » LinearAlgebra.pm module is on my hard > drive, if you want it drop me a mail. > > Cheers, > > Greg > > > Le dimanche 31 mai 2009 à 23:30 +0200, Jan Hoogenraad a écrit : >> Please help me with starting an interface to lapack. >> Chris Marshall (marshallch) requested that I'll put my progress and >> questions onto this list. >> >> I've come as far as installing PDL and starting to use inlpp_link.pl as a >> template. >> >> I set up attached .pl file. This does not compile, as line 64 does not parse. >> I've attached out.pdlpp, as this contains the error code: >> Invalid pdl def int n (regex >> byte|short|ushort|int|longlong|float|double) at (eval 16) line 7 >> PDL::PP::PdlParObj::new('PDL::PP::PdlParObj', 'int n', >> 'PDL_UNDEF_NUMBER', 0) called at (eval 13) line 7 >> >> I've tried to match what was done at Slatec, but there a different parser is >> included. >> >> The header for the specific function I am trying to call is: >> extern void dgesv_(int *n, int *nrhs, double *a, int *lda, int *ipiv, >> double *b, int *ldb, int *info); >> >> >> >> pièce jointe document texte brut (out.pdlpp) >> Invalid pdl def int n (regex byte|short|ushort|int|longlong|float|double) >> at (eval 16) line 7 >> PDL::PP::PdlParObj::new('PDL::PP::PdlParObj', 'int n', >> 'PDL_UNDEF_NUMBER', 0) called at (eval 13) line 7 >> PDL::PP::Signature::parse('int n;int nrhs;double [o]a(lda,n);int >> lda;int [o]ipiv(n); dou...', 0) called at >> /home/jhh/linsrc/PDL/blib/lib/PDL/PP/Signature.pm line 31 >> PDL::PP::Signature::new('PDL::PP::Signature', 'int n;int nrhs;double >> [o]a(lda,n);int lda;int [o]ipiv(n); dou...', undef) called at >> /home/jhh/linsrc/PDL/blib/lib/PDL/PP.pm line 1355 >> PDL::PP::Pars_nft('int n;int nrhs;double [o]a(lda,n);int lda;int >> [o]ipiv(n); dou...', undef) called at >> /home/jhh/linsrc/PDL/blib/lib/PDL/PP.pm line 324 >> PDL::PP::Rule::apply('PDL::PP::Rule=HASH(0x8d73a50)', >> 'HASH(0x8b56b20)') called at /home/jhh/linsrc/PDL/blib/lib/PDL/PP.pm line >> 3236 >> PDL::PP::translate('HASH(0x8b56b20)', 'ARRAY(0x8d83a28)') called at >> /home/jhh/linsrc/PDL/blib/lib/PDL/PP.pm line 1038 >> PDL::PP::pp_def('dgsev', 'Pars', 'int n;int nrhs;double [o]a(lda,n);int >> lda;int [o]ipiv(n); dou...', 'GenericTypes', 'ARRAY(0x8ab2880)', 'Code', >> 'dgesv_($P(n), $P(nrhs), $P(a), $P(lda), $P(ipiv), $P(b), $P(l...') called >> at lapack_link_pl_c24d.pd line 17 >> Inline running PDL::PP version 2.2... >> _______________________________________________ >> Perldl mailing list >> [email protected] >> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl > > _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
