(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| CType.pm (PDL-2.080) | : | CType.pm (PDL-2.081) |
|---|
| | |
| skipping to change at line 53 | | skipping to change at line 53 |
|---|
| my ($type, $arg) = @$_; | | my ($type, $arg) = @$_; |
| if($type eq "PTR") {$name = "*$name"} | | if($type eq "PTR") {$name = "*$name"} |
| elsif($type eq "ARR") { | | elsif($type eq "ARR") { |
| if($opts->{VarArrays2Ptrs}) { | | if($opts->{VarArrays2Ptrs}) { |
| $name = "*$name"; | | $name = "*$name"; |
| } else { | | } else { |
| $name = "($name)[$arg]"; | | $name = "($name)[$arg]"; |
| } | | } |
| } else { confess("Invalid decl @$_") } | | } else { confess("Invalid decl @$_") } |
| } | | } |
|
| | $name = "*$name" if $opts->{AddIndirect}; |
| return "$this->{Base} $name"; | | return "$this->{Base} $name"; |
| } | | } |
| | |
| # Useful when parsing argument decls | | # Useful when parsing argument decls |
| sub protoname { return shift->{ProtoName} } | | sub protoname { return shift->{ProtoName} } |
| | |
| sub get_copy { | | sub get_copy { |
| my($this,$from,$to) = @_; | | my($this,$from,$to) = @_; |
| return "($to) = ($from);" if !@{$this->{Chain}}; | | return "($to) = ($from);" if !@{$this->{Chain}}; |
| # strdup loses portability :( | | # strdup loses portability :( |
| | | |
| End of changes. 1 change blocks. |
|---|
| 0 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 