File: pdlbadvalinit.c.PL

package info (click to toggle)
pdl 1%3A2.025-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 11,768 kB
  • sloc: perl: 43,919; fortran: 13,113; ansic: 9,366; makefile: 37; sh: 32; sed: 6
file content (6 lines) | stat: -rw-r--r-- 201 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
 
# using this because XSUBs won't do INCLUDE_COMMAND in BOOT:
use PDL::Core::Dev;
my $file = shift @ARGV;
open my $fh, '>', $file or die "$file: $!";
select $fh;
PDL::Core::Dev::generate_badval_init();