(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| Misc.pm (PDL-2.080) | : | Misc.pm (PDL-2.081) |
|---|
| | |
| skipping to change at line 53 | | skipping to change at line 53 |
|---|
| use PDL::Primitive; | | use PDL::Primitive; |
| use PDL::Types; | | use PDL::Types; |
| use PDL::Options; | | use PDL::Options; |
| use PDL::Bad; | | use PDL::Bad; |
| use Carp; | | use Carp; |
| use Symbol qw/ gensym /; | | use Symbol qw/ gensym /; |
| use List::Util; | | use List::Util; |
| use strict; | | use strict; |
| #line 68 "Misc.pm" | | #line 68 "Misc.pm" |
| | |
|
| #line 948 "../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 bswap2 | | =head2 bswap2 |
| | |
| =for sig | | =for sig |
| | |
| Signature: (x(); ) | | Signature: (x(); ) |
| | |
| =for ref | | =for ref |
| | |
| Swaps pairs of bytes in argument x() | | Swaps pairs of bytes in argument x() |
| | |
| =for bad | | =for bad |
| | |
| bswap2 does not process bad values. | | bswap2 does not process bad values. |
| It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. | | It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. |
| | |
| =cut | | =cut |
| #line 93 "Misc.pm" | | #line 93 "Misc.pm" |
| | |
|
| #line 950 "../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *bswap2 = \&PDL::bswap2; | | *bswap2 = \&PDL::bswap2; |
| #line 100 "Misc.pm" | | #line 100 "Misc.pm" |
| | |
|
| #line 948 "../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 bswap4 | | =head2 bswap4 |
| | |
| =for sig | | =for sig |
| | |
| Signature: (x(); ) | | Signature: (x(); ) |
| | |
| =for ref | | =for ref |
| | |
| Swaps quads of bytes in argument x() | | Swaps quads of bytes in argument x() |
| | |
| =for bad | | =for bad |
| | |
| bswap4 does not process bad values. | | bswap4 does not process bad values. |
| It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. | | It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. |
| | |
| =cut | | =cut |
| #line 125 "Misc.pm" | | #line 125 "Misc.pm" |
| | |
|
| #line 950 "../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *bswap4 = \&PDL::bswap4; | | *bswap4 = \&PDL::bswap4; |
| #line 132 "Misc.pm" | | #line 132 "Misc.pm" |
| | |
|
| #line 948 "../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 bswap8 | | =head2 bswap8 |
| | |
| =for sig | | =for sig |
| | |
| Signature: (x(); ) | | Signature: (x(); ) |
| | |
| =for ref | | =for ref |
| | |
| Swaps octets of bytes in argument x() | | Swaps octets of bytes in argument x() |
| | |
| =for bad | | =for bad |
| | |
| bswap8 does not process bad values. | | bswap8 does not process bad values. |
| It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. | | It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. |
| | |
| =cut | | =cut |
| #line 157 "Misc.pm" | | #line 157 "Misc.pm" |
| | |
|
| #line 950 "../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *bswap8 = \&PDL::bswap8; | | *bswap8 = \&PDL::bswap8; |
| #line 164 "Misc.pm" | | #line 164 "Misc.pm" |
| | |
| #line 124 "misc.pd" | | #line 124 "misc.pd" |
| | |
| # Internal routine to extend PDL array by size $n along last dimension | | # Internal routine to extend PDL array by size $n along last dimension |
| # - Would be nice to have a proper extend function rather than hack | | # - Would be nice to have a proper extend function rather than hack |
| # - Is a NO-OP when handed a perl ARRAY ref rather than an ndarray arg | | # - Is a NO-OP when handed a perl ARRAY ref rather than an ndarray arg |
| sub _ext_lastD { # Called by rcols and rgrep | | sub _ext_lastD { # Called by rcols and rgrep |
| | |
| skipping to change at line 1286 | | skipping to change at line 1286 |
|---|
| } | | } |
| $tmp = $cube->slice(":,:,($k)"); | | $tmp = $cube->slice(":,:,($k)"); |
| $tmp .= $im; | | $tmp .= $im; |
| $k++; | | $k++; |
| } | | } |
| | |
| return $cube; | | return $cube; |
| } | | } |
| #line 1340 "Misc.pm" | | #line 1340 "Misc.pm" |
| | |
|
| #line 950 "../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *_rasc = \&PDL::_rasc; | | *_rasc = \&PDL::_rasc; |
| #line 1347 "Misc.pm" | | #line 1347 "Misc.pm" |
| | |
| #line 27 "misc.pd" | | #line 27 "misc.pd" |
| | |
| =head1 AUTHOR | | =head1 AUTHOR |
| | |
| Copyright (C) Karl Glazebrook 1997, Craig DeForest 2001, | | Copyright (C) Karl Glazebrook 1997, Craig DeForest 2001, |
| 2003, and Chris Marshall 2010. All rights reserved. There is | | 2003, and Chris Marshall 2010. All rights reserved. There is |
| | | |
| End of changes. 7 change blocks. |
|---|
| 7 lines changed or deleted | | 7 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 