(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| IDL.pm (PDL-2.082) | : | IDL.pm (PDL-2.083) |
|---|
| | |
| skipping to change at line 779 | | skipping to change at line 779 |
|---|
| # Reads a byte PDL (stored as a strvar) | | # Reads a byte PDL (stored as a strvar) |
| # | | # |
| sub r_byte_pdl { | | sub r_byte_pdl { |
| my($flags,$dims) = @_; | | my($flags,$dims) = @_; |
| | |
| sysread(IDLSAV,my $buf,4) | | sysread(IDLSAV,my $buf,4) |
| if($#$dims > 1); | | if($#$dims > 1); |
| | |
| my $x = r_string(); | | my $x = r_string(); |
| | |
|
| my $pdl = new PDL; | | my $pdl = PDL->new; |
| $pdl->set_datatype(byte->enum); | | $pdl->set_datatype(byte->enum); |
| $pdl->setdims($dims); | | $pdl->setdims($dims); |
| ${ $pdl->get_dataref() } = $x; | | ${ $pdl->get_dataref() } = $x; |
| $pdl->upd_data; | | $pdl->upd_data; |
| | |
| $pdl; | | $pdl; |
| } | | } |
| | |
| ############################## | | ############################## |
| # | | # |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 