tidy space
Graham Ollis authored 4 years ago
Graham✈️✈️ committed 4 years ago
| 143 | 143 | if they are not needed. |
| 144 | 144 | |
| 145 | 145 | For example, after |
| 146 | ||
| 146 | ||
| 147 | 147 | $scalar = "my string"; |
| 148 | 148 | grow $scalar, 100, { clear => 0 }; |
| 149 | 149 | |
| 204 | 204 | my $sizeof_double = $ffi->sizeof( 'double' ); |
| 205 | 205 | my $max_doubles = 100; |
| 206 | 206 | my $max_length = $max_doubles * $sizeof_double; |
| 207 | ||
| 207 | ||
| 208 | 208 | my $buffer; # length($buffer) == 0 |
| 209 | 209 | grow $buffer, $max_length; # length($buffer) is still 0 |
| 210 | 210 | my $pointer = scalar_to_pointer($buffer); |
| 211 | ||
| 211 | ||
| 212 | 212 | my $num_read = read_doubles( $pointer, $max_doubles ); |
| 213 | 213 | # length($buffer) is still == 0 |
| 214 | ||
| 214 | ||
| 215 | 215 | set_used_length $buffer, $num_read * $sizeof_double; |
| 216 | 216 | # length($buffer) is finally != 0 |
| 217 | ||
| 217 | ||
| 218 | 218 | # unpack the native doubles into a Perl array |
| 219 | 219 | my @doubles = unpack( 'd*', $buffer ); # @doubles == $num_read |
| 220 | 220 | |