File: irix.pl

package info (click to toggle)
libproc-processtable-perl 0.637-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 672 kB
  • sloc: ansic: 5,765; perl: 568; makefile: 15
file content (12 lines) | stat: -rw-r--r-- 401 bytes parent folder | download | duplicates (13) 
1
2
3
4
5
6
7
8
9
10
11
12
 
symlink "os/IRIX.c", "OS.c" || die "Could not link os/IRIX.c to OS.c\n";

# If this OS version supports the new /proc filesystem, use it; 
# otherwise default to ioctl-proc
#`uname -r` =~ /^(\d+\.\d+)/;
#if( $1 > 5.5 ){
#    $self->{DEFINE} = "-DPROC_FS";
#}

# I really hope we won't go beyond IRIX 999.999
`uname -r` =~ /^(\d+)\.(\d+)/;
$self->{DEFINE} = sprintf "-DIRIX_VERSION=0x%03d%03d", $1,$2;