Codebase list libpdl-ccs-perl / fc8379c
New upstream version 1.23.17 Bas Couwenberg 2 years ago
28 changed file(s) with 77 addition(s) and 80 deletion(s). Raw diff Collapse all Expand all
1111 use PDL::CCS::Ops;
1212 use strict;
1313
14 our $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
14 our $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
1515 our @ISA = ('PDL::Exporter');
1616 our @ccs_binops = (qw(plus minus mult divide modulo power),
1717 qw(gt ge lt le eq ne spaceship),
10091009
10101010 =head2 Copyright Policy
10111011
1012 Copyright (C) 2005-2018, Bryan Jurish. All rights reserved.
1012 Copyright (C) 2005-2022, Bryan Jurish. All rights reserved.
10131013
10141014 This package is free software, and entirely without warranty.
10151015 You may redistribute it and/or modify it under the same terms
3131 'PDL_IND',
3232 'PDL_LL'
3333 ],
34 'INT_TYPE_MAX_IONAME' => 'longlong',
35 'USE_PDL_INDX' => 1
34 'INT_TYPE_MAX_IONAME' => 'ccs_indx'
3635 );
3736
3837 *PDL::ccs_indx = *ccs_indx = \&PDL::indx; ##-- typecasting for CCS indices
88 use PDL;
99 use strict;
1010
11 our $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
11 our $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
1212 our @ISA = ('PDL::Exporter');
1313 our @EXPORT_OK =
1414 (
380380
381381 =head2 Copyright Policy
382382
383 Copyright (C) 2007-2018, Bryan Jurish. All rights reserved.
383 Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
384384
385385 This package is free software, and entirely without warranty.
386386 You may redistribute it and/or modify it under the same terms
88 use Carp qw(confess);
99 use strict;
1010
11 our $VERSION = '1.23.16';
11 our $VERSION = '1.23.17';
1212 our @ISA = ('PDL::Exporter');
1313 our @EXPORT_OK =
1414 (
174174
175175 =head2 Copyright Policy
176176
177 Copyright (C) 2015-2018, Bryan Jurish. All rights reserved.
177 Copyright (C) 2015-2022, Bryan Jurish. All rights reserved.
178178
179179 This package is free software, and entirely without warranty.
180180 You may redistribute it and/or modify it under the same terms
99 use Carp qw(confess);
1010 use strict;
1111
12 our $VERSION = '1.23.16';
12 our $VERSION = '1.23.17';
1313 our @ISA = ('PDL::Exporter');
1414 our @EXPORT_OK =
1515 (
174174
175175 =head2 Copyright Policy
176176
177 Copyright (C) 2015-2018, Bryan Jurish. All rights reserved.
177 Copyright (C) 2015-2022, Bryan Jurish. All rights reserved.
178178
179179 This package is free software, and entirely without warranty.
180180 You may redistribute it and/or modify it under the same terms
1111 use Carp qw(confess);
1212 use strict;
1313
14 our $VERSION = '1.23.16';
14 our $VERSION = '1.23.17';
1515 our @ISA = ('PDL::Exporter');
1616 our @EXPORT_OK = qw(ccs_writefraw ccs_readfraw ccs_mapfraw);
1717 our %EXPORT_TAGS =
254254
255255 =head2 Copyright Policy
256256
257 Copyright (C) 2015-2018, Bryan Jurish. All rights reserved.
257 Copyright (C) 2015-2022, Bryan Jurish. All rights reserved.
258258
259259 This package is free software, and entirely without warranty.
260260 You may redistribute it and/or modify it under the same terms
1212 use Carp qw(confess);
1313 use strict;
1414
15 our $VERSION = '1.23.16';
15 our $VERSION = '1.23.17';
1616 our @ISA = ('PDL::Exporter');
1717 our @EXPORT_OK =
1818 (
269269
270270 =head2 Copyright Policy
271271
272 Copyright (C) 2015-2018, Bryan Jurish. All rights reserved.
272 Copyright (C) 2015-2022, Bryan Jurish. All rights reserved.
273273
274274 This package is free software, and entirely without warranty.
275275 You may redistribute it and/or modify it under the same terms
1212 use Carp qw(confess);
1313 use strict;
1414
15 our $VERSION = '1.23.16';
15 our $VERSION = '1.23.17';
1616 our @ISA = ('PDL::Exporter');
1717 our @EXPORT_OK =
1818 (
361361
362362 =head2 Copyright Policy
363363
364 Copyright (C) 2015-2018, Bryan Jurish. All rights reserved.
364 Copyright (C) 2015-2022, Bryan Jurish. All rights reserved.
365365
366366 This package is free software, and entirely without warranty.
367367 You may redistribute it and/or modify it under the same terms
1111 use Carp qw(confess);
1212 use strict;
1313
14 our $VERSION = '1.23.16';
14 our $VERSION = '1.23.17';
1515 our @ISA = ('PDL::Exporter');
1616 our @EXPORT_OK =
1717 (
279279
280280 =head2 Copyright Policy
281281
282 Copyright (C) 2015-2018, Bryan Jurish. All rights reserved.
282 Copyright (C) 2015-2022, Bryan Jurish. All rights reserved.
283283
284284 This package is free software, and entirely without warranty.
285285 You may redistribute it and/or modify it under the same terms
33 #
44 package PDL::CCS::MatrixOps;
55
6 our @EXPORT_OK = qw(PDL::PP ccs_matmult2d_sdd PDL::PP ccs_matmult2d_zdd PDL::PP ccs_vnorm ccs_vcos_zdd PDL::PP _ccs_vcos_zdd PDL::PP ccs_vcos_pzd );
7 our %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
6 @EXPORT_OK = qw( PDL::PP ccs_matmult2d_sdd PDL::PP ccs_matmult2d_zdd PDL::PP ccs_vnorm ccs_vcos_zdd PDL::PP _ccs_vcos_zdd PDL::PP ccs_vcos_pzd );
7 %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
88
99 use PDL::Core;
1010 use PDL::Exporter;
1212
1313
1414
15 our $VERSION = '1.23.16';
16 our @ISA = ( 'PDL::Exporter','DynaLoader' );
15 $PDL::CCS::MatrixOps::VERSION = 1.23.17;
16 @ISA = ( 'PDL::Exporter','DynaLoader' );
1717 push @PDL::Core::PP, __PACKAGE__;
1818 bootstrap PDL::CCS::MatrixOps $VERSION;
1919
366366
367367 =head2 Copyright Policy
368368
369 All other parts Copyright (C) 2009-2015, Bryan Jurish. All rights reserved.
369 All other parts Copyright (C) 2009-2022, Bryan Jurish. All rights reserved.
370370
371371 This package is free software, and entirely without warranty.
372372 You may redistribute it and/or modify it under the same terms
44 ##======================================================================
55
66 use PDL::VectorValued::Dev;
7 my $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
7 my $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
88 pp_setversion($VERSION);
99
1010 ##-- for integer-type keys
510510
511511 =head2 Copyright Policy
512512
513 All other parts Copyright (C) 2009-2015, Bryan Jurish. All rights reserved.
513 All other parts Copyright (C) 2009-2022, Bryan Jurish. All rights reserved.
514514
515515 This package is free software, and entirely without warranty.
516516 You may redistribute it and/or modify it under the same terms
1818 *can = \&UNIVERSAL::can;
1919 }
2020
21 our $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
21 our $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
2222 our @ISA = qw();
2323 our %EXPORT_TAGS =
2424 (
33263326
33273327 =head2 Copyright Policy
33283328
3329 Copyright (C) 2007-2018, Bryan Jurish. All rights reserved.
3329 Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
33303330
33313331 This package is free software, and entirely without warranty.
33323332 You may redistribute it and/or modify it under the same terms
33 #
44 package PDL::CCS::Ops;
55
6 our @EXPORT_OK = qw(PDL::PP ccs_binop_align_block_mia );
7 our %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
6 @EXPORT_OK = qw( PDL::PP ccs_binop_align_block_mia );
7 %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
88
99 use PDL::Core;
1010 use PDL::Exporter;
1212
1313
1414
15 our $VERSION = '1.23.16';
16 our @ISA = ( 'PDL::Exporter','DynaLoader' );
15 $PDL::CCS::Ops::VERSION = 1.23.17;
16 @ISA = ( 'PDL::Exporter','DynaLoader' );
1717 push @PDL::Core::PP, __PACKAGE__;
1818 bootstrap PDL::CCS::Ops $VERSION;
1919
168168
169169 =head2 Copyright Policy
170170
171 All other parts Copyright (C) 2007-2013, Bryan Jurish. All rights reserved.
171 All other parts Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
172172
173173 This package is free software, and entirely without warranty.
174174 You may redistribute it and/or modify it under the same terms
44 ##======================================================================
55
66 use PDL::VectorValued::Dev;
7 my $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
7 my $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
88 pp_setversion($VERSION);
99
1010 ##------------------------------------------------------
248248
249249 =head2 Copyright Policy
250250
251 All other parts Copyright (C) 2007-2013, Bryan Jurish. All rights reserved.
251 All other parts Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
252252
253253 This package is free software, and entirely without warranty.
254254 You may redistribute it and/or modify it under the same terms
33 #
44 package PDL::CCS::Ufunc;
55
6 our @EXPORT_OK = qw(PDL::PP ccs_accum_prod PDL::PP ccs_accum_dprod PDL::PP ccs_accum_sum PDL::PP ccs_accum_dsum PDL::PP ccs_accum_or PDL::PP ccs_accum_and PDL::PP ccs_accum_bor PDL::PP ccs_accum_band PDL::PP ccs_accum_maximum PDL::PP ccs_accum_minimum PDL::PP ccs_accum_maximum_nz_ind PDL::PP ccs_accum_minimum_nz_ind PDL::PP ccs_accum_nbad PDL::PP ccs_accum_ngood PDL::PP ccs_accum_nnz PDL::PP ccs_accum_average );
7 our %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
6 @EXPORT_OK = qw( PDL::PP ccs_accum_prod PDL::PP ccs_accum_dprod PDL::PP ccs_accum_sum PDL::PP ccs_accum_dsum PDL::PP ccs_accum_or PDL::PP ccs_accum_and PDL::PP ccs_accum_bor PDL::PP ccs_accum_band PDL::PP ccs_accum_maximum PDL::PP ccs_accum_minimum PDL::PP ccs_accum_maximum_nz_ind PDL::PP ccs_accum_minimum_nz_ind PDL::PP ccs_accum_nbad PDL::PP ccs_accum_ngood PDL::PP ccs_accum_nnz PDL::PP ccs_accum_average );
7 %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
88
99 use PDL::Core;
1010 use PDL::Exporter;
1212
1313
1414
15 our $VERSION = '1.23.16';
16 our @ISA = ( 'PDL::Exporter','DynaLoader' );
15 $PDL::CCS::Ufunc::VERSION = 1.23.17;
16 @ISA = ( 'PDL::Exporter','DynaLoader' );
1717 push @PDL::Core::PP, __PACKAGE__;
1818 bootstrap PDL::CCS::Ufunc $VERSION;
1919
632632 shift(@nnzOut);
633633 }
634634
635 $nzvalsIn = longlong($nzvalsIn) if ($nzvalsIn->type > longlong()); ##-- max_type_perl=longlong
635 $nzvalsIn = ccs_indx($nzvalsIn) if ($nzvalsIn->type > ccs_indx()); ##-- max_type_perl=ccs_indx
636636 @nnzOut = $nzvalsOut->dims if (!@nnzOut && defined($nzvalsOut) && !$nzvalsOut->isempty);
637637 @nnzOut = @nnzIn if (!@nnzOut);
638638 $ixOut = PDL->zeroes(ccs_indx(), $ndims,@nnzOut)
717717 shift(@nnzOut);
718718 }
719719
720 $nzvalsIn = longlong($nzvalsIn) if ($nzvalsIn->type > longlong()); ##-- max_type_perl=longlong
720 $nzvalsIn = ccs_indx($nzvalsIn) if ($nzvalsIn->type > ccs_indx()); ##-- max_type_perl=ccs_indx
721721 @nnzOut = $nzvalsOut->dims if (!@nnzOut && defined($nzvalsOut) && !$nzvalsOut->isempty);
722722 @nnzOut = @nnzIn if (!@nnzOut);
723723 $ixOut = PDL->zeroes(ccs_indx(), $ndims,@nnzOut)
13001300 shift(@nnzOut);
13011301 }
13021302
1303 $nzvalsIn = longlong($nzvalsIn) if ($nzvalsIn->type > longlong()); ##-- max_type_perl=longlong
1303 $nzvalsIn = ccs_indx($nzvalsIn) if ($nzvalsIn->type > ccs_indx()); ##-- max_type_perl=ccs_indx
13041304 @nnzOut = $nzvalsOut->dims if (!@nnzOut && defined($nzvalsOut) && !$nzvalsOut->isempty);
13051305 @nnzOut = @nnzIn if (!@nnzOut);
13061306 $ixOut = PDL->zeroes(ccs_indx(), $ndims,@nnzOut)
14741474
14751475 =head2 Copyright Policy
14761476
1477 Copyright (C) 2007-2013, Bryan Jurish. All rights reserved.
1477 Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
14781478
14791479 This package is free software, and entirely without warranty.
14801480 You may redistribute it and/or modify it under the same terms
44 ##======================================================================
55
66 use PDL::VectorValued::Dev;
7 my $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
7 my $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
88 pp_setversion($VERSION);
99
1010 ##------------------------------------------------------
653653
654654 =head2 Copyright Policy
655655
656 Copyright (C) 2007-2013, Bryan Jurish. All rights reserved.
656 Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
657657
658658 This package is free software, and entirely without warranty.
659659 You may redistribute it and/or modify it under the same terms
33 #
44 package PDL::CCS::Utils;
55
6 our @EXPORT_OK = qw(PDL::PP nnz PDL::PP nnza PDL::PP ccs_encode_pointers PDL::PP ccs_decode_pointer PDL::PP ccs_pointerlen PDL::PP ccs_xindex1d PDL::PP ccs_xindex2d PDL::PP ccs_dump_which );
7 our %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
6 @EXPORT_OK = qw( PDL::PP nnz PDL::PP nnza PDL::PP ccs_encode_pointers PDL::PP ccs_decode_pointer PDL::PP ccs_pointerlen PDL::PP ccs_xindex1d PDL::PP ccs_xindex2d PDL::PP ccs_dump_which );
7 %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
88
99 use PDL::Core;
1010 use PDL::Exporter;
1212
1313
1414
15 our $VERSION = '1.23.16';
16 our @ISA = ( 'PDL::Exporter','DynaLoader' );
15 $PDL::CCS::Utils::VERSION = 1.23.17;
16 @ISA = ( 'PDL::Exporter','DynaLoader' );
1717 push @PDL::Core::PP, __PACKAGE__;
1818 bootstrap PDL::CCS::Utils $VERSION;
1919
491491
492492 =head2 Copyright Policy
493493
494 Copyright (C) 2007-2013, Bryan Jurish. All rights reserved.
494 Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
495495
496496 This package is free software, and entirely without warranty.
497497 You may redistribute it and/or modify it under the same terms
44 ##======================================================================
55
66 use PDL::VectorValued::Dev;
7 my $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
7 my $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
88 pp_setversion($VERSION);
99
1010 ##------------------------------------------------------
611611
612612 =head2 Copyright Policy
613613
614 Copyright (C) 2007-2013, Bryan Jurish. All rights reserved.
614 Copyright (C) 2007-2022, Bryan Jurish. All rights reserved.
615615
616616 This package is free software, and entirely without warranty.
617617 You may redistribute it and/or modify it under the same terms
22 ## Description: set version for PDL::CCS
33
44 package PDL::CCS::Version;
5 our $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
5 our $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
66
77 1; ##-- make perl happy
1414 use PDL::CCS::IO::FastRaw;
1515 use strict;
1616
17 our $VERSION = '1.23.16'; ##-- update with perl-reversion from Perl::Version module
17 our $VERSION = '1.23.17'; ##-- update with perl-reversion from Perl::Version module
1818 our @ISA = ('PDL::Exporter');
1919 our @EXPORT_OK =
2020 (
184184
185185 =head2 Copyright Policy
186186
187 Copyright (C) 2005-2018 by Bryan Jurish. All rights reserved.
187 Copyright (C) 2005-2022 by Bryan Jurish. All rights reserved.
188188
189189 This package is free software, and entirely without warranty.
190190 You may redistribute it and/or modify it under the same terms
0 v1.23.17 Tue, 18 Jan 2022 21:26:32 +0100 moocow
1 + merged changes for PDL 2.066+ from mohawk2
2 - opt in to PDL 2.058 multi-C, dep on PDL v2.019
3 - simplify for 2.014+ types, compat with PDL 2.066+
4 + updated copyright notices in PODs
5
06 v1.23.16 Thu, 29 Apr 2021 08:06:04 +0200 moocow
17 + fixed $PDL::VERSION checks in Config.PL to reflect reality
28 - integer-type downcasting behavior actually changed in PDL-2.037 with commit #f892aeb4ae on PDL/Basic/Ufunc/ufunc.pd
2222 return $cconfig{$key} = ($answer eq '' ? $default : $answer);
2323 }
2424
25 ## $USE_PDL_INDX : whether to use built-in PDL_Indx type (PDL >= v2.007)
2625 require PDL::Core;
27 if (defined(&PDL::indx)) {
28 cprompt('USE_PDL_INDX', "use 64-bit indices via PDL_Indx if available (PDL >= v2.007)", "y");
29 $cconfig{USE_PDL_INDX} = ($cconfig{USE_PDL_INDX} && $cconfig{USE_PDL_INDX} !~ /^[n0]/i);
30 } else {
31 print STDERR "Info: 64-bit indices via PDL_Indx disabled for PDL < v2.007\n";
32 $cconfig{USE_PDL_INDX} = '';
33 }
3426
35 if ($cconfig{USE_PDL_INDX}) {
36 $cconfig{INDX_CTYPE} = "PDL_Indx";
37 $cconfig{INDX_SIG} = "indx";
38 $cconfig{INDX_FUNC} = "indx";
39 } else {
40 $cconfig{INDX_CTYPE} = "PDL_Long";
41 $cconfig{INDX_SIG} = "int";
42 $cconfig{INDX_FUNC} = "long";
43 }
27 $cconfig{INDX_CTYPE} = "PDL_Indx";
28 $cconfig{INDX_SIG} = "indx";
29 $cconfig{INDX_FUNC} = "indx";
4430 $cconfig{INDX_TYPEDEF} = "typedef $cconfig{INDX_CTYPE} CCS_Indx; /**< typedef for CCS indices */\n";
4531 $cconfig{INDX_FUNCDEF} = "*ccs_indx = \\&PDL::$cconfig{INDX_FUNC}; ##-- typecasting for CCS indices\n";
4632
2929 "Data::Dumper" : "0",
3030 "ExtUtils::MakeMaker" : "0",
3131 "File::Basename" : "0",
32 "PDL" : "0",
32 "PDL" : "2.019",
3333 "PDL::VectorValued" : "v1.0.4",
3434 "Test::More" : "0"
3535 }
3737 "runtime" : {
3838 "requires" : {
3939 "File::Basename" : "0",
40 "PDL" : "0",
40 "PDL" : "2.019",
4141 "PDL::VectorValued" : "v1.0.4",
4242 "Test::More" : "0"
4343 }
5151 "web" : "https://github.com/moocow-the-bovine/PDL-CCS"
5252 }
5353 },
54 "version" : "v1.23.16",
54 "version" : "v1.23.17",
5555 "x_serialization_backend" : "JSON::PP version 4.02"
5656 }
77 Data::Dumper: '0'
88 ExtUtils::MakeMaker: '0'
99 File::Basename: '0'
10 PDL: '0'
10 PDL: '2.019'
1111 PDL::VectorValued: v1.0.4
1212 Test::More: '0'
1313 dynamic_config: 1
2323 - inc
2424 requires:
2525 File::Basename: '0'
26 PDL: '0'
26 PDL: '2.019'
2727 PDL::VectorValued: v1.0.4
2828 Test::More: '0'
2929 resources:
3030 repository: git://github.com/moocow-the-bovine/PDL-CCS.git
31 version: v1.23.16
31 version: v1.23.17
3232 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
33
44 ##-- preqrequistes (for PREREQ_PM)
55 my %prereq = (
6 'PDL' => 0, #'2.4.2',
6 'PDL' => '2.019',
77 'PDL::VectorValued' => '1.0.4',
88 'Test::More' => 0,
99 'File::Basename' => 0,
4646
4747 =head1 COPYRIGHT
4848
49 Copyright (c) 2005-2021 by Bryan Jurish. All rights reserved.
49 Copyright (c) 2005-2022 by Bryan Jurish. All rights reserved.
5050
5151 This package is free software, and entirely without warranty.
5252 You may redistribute it and/or modify it under the same terms
3636 Bryan Jurish <moocow@cpan.org>
3737
3838 COPYRIGHT
39 Copyright (c) 2005-2021 by Bryan Jurish. All rights reserved.
39 Copyright (c) 2005-2022 by Bryan Jurish. All rights reserved.
4040
4141 This package is free software, and entirely without warranty. You may
4242 redistribute it and/or modify it under the same terms as Perl itself.
3030 use ExtUtils::Manifest qw();
3131 use Cwd qw(cwd abs_path);
3232 use File::Basename qw(dirname basename);
33 use PDL::Core::Dev;
3334 use strict;
3435
3536 ##----------------------------------------------------------------------
152153 *MY::special_targets = $special_targets;
153154
154155 ##----------------------------
156 ## PDL v2.058 package parameters $callpack,$multi_c
157 $package = [@$package, undef, 1]
158 if (@{$package||[]} == 3 && version->parse($PDL::VERSION) >= version->parse('2.058'));
159
160 ##----------------------------
155161 ## postamble()
156162 ## + add pdlpp postamble if available
157163 my $postamble0 = MY->can('postamble') || sub {''};