--- Tree-M/M.xs 2001/05/06 00:45:51 1.1 +++ Tree-M/M.xs 2001/05/06 01:35:15 1.2 @@ -12,8 +12,8 @@ static double * sv2c(SV *sv, int ndims) { - if (!SvROK (sv) && SvTYPE (SvRV (sv)) != SVt_PVAV) - croak ("Tree::M: key must be array references"); + if (!SvROK (sv) || SvTYPE (SvRV (sv)) != SVt_PVAV) + croak ("Tree::M: key must be array reference"); AV *av = (AV *)SvRV (sv); @@ -43,11 +43,10 @@ static AV *searchres; -void add_result(double distance, int data, double *k, int ndims) +void add_result(int data, double *k, int ndims) { AV *r = newAV (); - av_push (r, newSVnv (distance)); av_push (r, newSViv (data)); av_push (r, c2sv (k, ndims)); @@ -113,6 +112,9 @@ OUTPUT: RETVAL +int +PMT::maxlevel() + void PMT::DESTROY()