p5pRT
commented
23 years ago From surely@nortelnetworks.com
This is a bug report for perl from surely@nortelnetworks.com\, generated with the help of perlbug 1.33 running under perl v5.6.1.
Attached script\, winsize.pl\, returns screen size in both rows/cols *and* pixels. Works fine on Solaris and Linux. I'm using a patched h2ph utilty (re: ID 20010907.027).
The script fails with the following error text... ./winsize.pl: ioctl TIOCGWINSZ (4000746b: Invalid argument)
If successful\, should print: (row\,col) = (40\,80) (xpixel\,ypixel) = (640\,520)
====================================
winsize.pl \<\<\<
#!/usr/bin/perl -w
# From perlfaq8 -- determines the window size require 'sys/ioctl.ph'; require 'termios.ph'; # Not in FAQ source\, but defines TIOCGWINSZ
die "no TIOCGWINSZ " unless defined &TIOCGWINSZ; open(TTY\, "+\</dev/tty") or die "No tty: $!";
unless (ioctl(TTY\, &TIOCGWINSZ\, $winsize='')) { die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n"\, &TIOCGWINSZ; }
($row\, $col\, $xpixel\, $ypixel) = unpack('S4'\, $winsize); print "(row\,col) = ($row\,$col)"; print " (xpixel\,ypixel) = ($xpixel\,$ypixel)" if $xpixel || $ypixel; print "\n";
====================================
_h2ph_pre.ph \<\<\<
# This file was created by h2ph version 2 unless (defined &_FILE_OFFSET_BITS) { sub _FILE_OFFSET_BITS() { 64 } }
unless (defined &_HPUX_SOURCE) { sub _HPUX_SOURCE() { 1 } }
unless (defined &_LARGEFILE_SOURCE) { sub _LARGEFILE_SOURCE() { 1 } }
unless (defined &_LFS64_LARGEFILE) { sub _LFS64_LARGEFILE() { 1 } }
unless (defined &_LFS_LARGEFILE) { sub _LFS_LARGEFILE() { 1 } }
unless (defined &_PA_RISC1_1) { sub _PA_RISC1_1() { 1 } }
unless (defined &_PROTOTYPES) { sub _PROTOTYPES() { 1 } }
unless (defined &_XPG4) { sub _XPG4() { 1 } }
unless (defined &_XPG4_EXTENDED) { sub _XPG4_EXTENDED() { 1 } }
unless (defined &__CLASSIC_C__) { sub __CLASSIC_C__() { 1 } }
unless (defined &__STDC_EXT__) { sub __STDC_EXT__() { 1 } }
unless (defined &__STDC__) { sub __STDC__() { 1 } }
unless (defined &__hp9000s700) { sub __hp9000s700() { 1 } }
unless (defined &__hp9000s800) { sub __hp9000s800() { 1 } }
unless (defined &__hppa) { sub __hppa() { 1 } }
unless (defined &__hpux) { sub __hpux() { 1 } }
unless (defined &__unix) { sub __unix() { 1 } }
====================================
sys/ioctl.ph \<\<\<
require '_h2ph_pre.ph'; no warnings 'redefine';
unless(defined(&_SYS_IOCTL_INCLUDED)) { eval 'sub _SYS_IOCTL_INCLUDED () {1;}' unless defined(&_SYS_IOCTL_INCLUDED); if(defined(&_KERNEL_BUILD)) { require '../h/stdsyms.ph'; } else { require 'sys/stdsyms.ph'; } if(defined(&_INCLUDE_HPUX_SOURCE)) { unless(defined(&_KERNEL)) { if(defined(&__cplusplus)) { } if(defined(&_PROTOTYPES)) { unless(defined(&_SVID3)) { } } else { unless(defined(&_SVID3)) { } } if(defined(&__cplusplus)) { } } unless(defined(&_IO)) { eval 'sub IOCSIZE_MASK () {0x1fff0000;}' unless defined(&IOCSIZE_MASK); eval 'sub IOCPARM_MASK () {( &IOCSIZE_MASK>>16);}' unless defined(&IOCPARM_MASK); eval 'sub EFFECTIVE_IOCSIZE_MASK () {0x7f0000;}' unless defined(&EFFECTIVE_IOCSIZE_MASK); eval 'sub EFFECTIVE_IOCPARM_MASK () {( &EFFECTIVE_IOCSIZE_MASK>>16);}' unless defined(&EFFECTIVE_IOCPARM_MASK); eval 'sub IOCCMD_MASK () {0x0000ffff;}' unless defined(&IOCCMD_MASK); eval 'sub IOC_VOID () {0x20000000;}' unless defined(&IOC_VOID); eval 'sub IOC_OUT () {0x40000000;}' unless defined(&IOC_OUT); eval 'sub IOC_IN () {0x80000000;}' unless defined(&IOC_IN); eval 'sub IOC_INOUT () {( &IOC_IN| &IOC_OUT);}' unless defined(&IOC_INOUT); eval 'sub _IO { local($x\,$y) = @_; eval q(( &IOC_VOID|(($x)\<\<8)|$y)); }' unless defined(&_IO); eval 'sub _IOR { local($x\,$y\,$t) = @_; eval q(( &IOC_OUT|(($sizeof{$t} &IOCPARM_MASK)\<\<16)|(($x)\<\<8)|$y)); }' unless defined(&_IOR); eval 'sub _IOW { local($x\,$y\,$t) = @_; eval q(( &IOC_IN|(($sizeof{$t} &IOCPARM_MASK)\<\<16)|(($x)\<\<8)|$y)); }' unless defined(&_IOW); eval 'sub _IOWR { local($x\,$y\,$t) = @_; eval q(( &IOC_INOUT|(($sizeof{$t} &IOCPARM_MASK)\<\<16)|(($x)\<\<8)|$y)); }' unless defined(&_IOWR); eval 'sub IOCPARM_LEN { local($p) = @_; eval q(((($p & ~( &IOC_INOUT| &IOC_VOID)) >> 16) & &IOCPARM_MASK)); }' unless defined(&IOCPARM_LEN); } if(defined(¬def)) { eval 'sub TIOCNOTTY () { &_IO(ord(\'t\')\, 113);}' unless defined(&TIOCNOTTY); } eval 'sub TIOCPKT_DATA () {0x00;}' unless defined(&TIOCPKT_DATA); eval 'sub TIOCPKT_FLUSHREAD () {0x01;}' unless defined(&TIOCPKT_FLUSHREAD); eval 'sub TIOCPKT_FLUSHWRITE () {0x02;}' unless defined(&TIOCPKT_FLUSHWRITE); eval 'sub TIOCPKT_STOP () {0x04;}' unless defined(&TIOCPKT_STOP); eval 'sub TIOCPKT_START () {0x08;}' unless defined(&TIOCPKT_START); eval 'sub TIOCPKT_NOSTOP () {0x10;}' unless defined(&TIOCPKT_NOSTOP); eval 'sub TIOCPKT_DOSTOP () {0x20;}' unless defined(&TIOCPKT_DOSTOP); eval 'sub FIOFATTACH () { &_IOW(ord(\'f\')\, 130\, \'int\');}' unless defined(&FIOFATTACH); eval 'sub FIOFDETACH () { &_IOW(ord(\'f\')\, 129\, \'int\');}' unless defined(&FIOFDETACH); eval 'sub FIOPIPESTAT () { &_IOW(ord(\'f\')\, 128\, \'int\');}' unless defined(&FIOPIPESTAT); eval 'sub FIONREAD () { &_IOR(ord(\'f\')\, 127\, \'int\');}' unless defined(&FIONREAD); eval 'sub FIONBIO () { &_IOW(ord(\'f\')\, 126\, \'int\');}' unless defined(&FIONBIO); eval 'sub FIOASYNC () { &_IOW(ord(\'f\')\, 125\, \'int\');}' unless defined(&FIOASYNC); eval 'sub FIOSETASYNC () { &_IOW(ord(\'f\')\, 124\, \'int\');}' unless defined(&FIOSETASYNC); eval 'sub FIOGETASYNC () { &_IOR(ord(\'f\')\, 123\, \'int\');}' unless defined(&FIOGETASYNC); eval 'sub FIONBRW () { &_IOW(ord(\'f\')\, 122\, \'int\');}' unless defined(&FIONBRW); eval 'sub FIONOBLK () { &_IOW(ord(\'f\')\, 122\, \'int\');}' unless defined(&FIONOBLK); eval 'sub FIOSSAIOSTAT () { &_IOW(ord(\'f\')\, 122\, \'int\');}' unless defined(&FIOSSAIOSTAT); eval 'sub FIOGSAIOSTAT () { &_IOR(ord(\'f\')\, 121\, \'int\');}' unless defined(&FIOGSAIOSTAT); eval 'sub FIOSSAIOOWN () { &_IOW(ord(\'f\')\, 120\, \'int\');}' unless defined(&FIOSSAIOOWN); eval 'sub FIOGSAIOOWN () { &_IOR(ord(\'f\')\, 119\, \'int\');}' unless defined(&FIOGSAIOOWN); eval 'sub FIOSNBIO () { &_IOW(ord(\'f\')\, 118\, \'int\');}' unless defined(&FIOSNBIO); eval 'sub FIOGNBIO () { &_IOR(ord(\'f\')\, 117\, \'int\');}' unless defined(&FIOGNBIO); eval 'sub FIONBIO () { &_IOW(ord(\'f\')\, 126\, \'int\');}' unless defined(&FIONBIO); eval 'sub FIOASYNC () { &_IOW(ord(\'f\')\, 125\, \'int\');}' unless defined(&FIOASYNC); eval 'sub SIOCSHIWAT () { &_IOW(ord(\'s\')\, 0\, \'int\');}' unless defined(&SIOCSHIWAT); eval 'sub SIOCGHIWAT () { &_IOR(ord(\'s\')\, 1\, \'int\');}' unless defined(&SIOCGHIWAT); eval 'sub SIOCSLOWAT () { &_IOW(ord(\'s\')\, 2\, \'int\');}' unless defined(&SIOCSLOWAT); eval 'sub SIOCGLOWAT () { &_IOR(ord(\'s\')\, 3\, \'int\');}' unless defined(&SIOCGLOWAT); eval 'sub SIOCATMARK () { &_IOR(ord(\'s\')\, 7\, \'int\');}' unless defined(&SIOCATMARK); eval 'sub SIOCSPGRP () { &_IOW(ord(\'s\')\, 8\, \'int\');}' unless defined(&SIOCSPGRP); eval 'sub SIOCGPGRP () { &_IOR(ord(\'s\')\, 9\, \'int\');}' unless defined(&SIOCGPGRP); eval 'sub SIOCADDRT () { &_IOW(ord(\'r\')\, 10\, \'struct rtentry\');}' unless defined(&SIOCADDRT); eval 'sub SIOCDELRT () { &_IOW(ord(\'r\')\, 11\, \'struct rtentry\');}' unless defined(&SIOCDELRT); eval 'sub SIOCGTRTADDR () { &_IOR(ord(\'r\')\, 12\, \'struct routeaddrs\');}' unless defined(&SIOCGTRTADDR); eval 'sub SIOCGRTENTRY () { &_IOWR(ord(\'r\')\, 13\, \'struct rtreq\');}' unless defined(&SIOCGRTENTRY); eval 'sub SIOCGRTTABLE () { &_IOWR(ord(\'r\')\, 14\, \'struct rtlist\');}' unless defined(&SIOCGRTTABLE); eval 'sub SIOCSIFADDR () { &_IOW(ord(\'i\')\, 12\, \'struct ifreq\');}' unless defined(&SIOCSIFADDR); eval 'sub SIOCGIFADDR () { &_IOWR(ord(\'i\')\,13\, \'struct ifreq\');}' unless defined(&SIOCGIFADDR); eval 'sub SIOCSIFDSTADDR () { &_IOW(ord(\'i\')\, 14\, \'struct ifreq\');}' unless defined(&SIOCSIFDSTADDR); eval 'sub SIOCGIFDSTADDR () { &_IOWR(ord(\'i\')\,15\, \'struct ifreq\');}' unless defined(&SIOCGIFDSTADDR); eval 'sub SIOCSIFFLAGS () { &_IOW(ord(\'i\')\, 16\, \'struct ifreq\');}' unless defined(&SIOCSIFFLAGS); eval 'sub SIOCGIFFLAGS () { &_IOWR(ord(\'i\')\,17\, \'struct ifreq\');}' unless defined(&SIOCGIFFLAGS); eval 'sub SIOCGIFBRDADDR () { &_IOWR(ord(\'i\')\,18\, \'struct ifreq\');}' unless defined(&SIOCGIFBRDADDR); eval 'sub SIOCSIFBRDADDR () { &_IOW(ord(\'i\')\,19\, \'struct ifreq\');}' unless defined(&SIOCSIFBRDADDR); eval 'sub SIOCGIFCONF () { &_IOWR(ord(\'i\')\,20\, \'struct ifconf\');}' unless defined(&SIOCGIFCONF); eval 'sub SIOCGIFNETMASK () { &_IOWR(ord(\'i\')\,21\, \'struct ifreq\');}' unless defined(&SIOCGIFNETMASK); eval 'sub SIOCSIFNETMASK () { &_IOW(ord(\'i\')\,22\, \'struct ifreq\');}' unless defined(&SIOCSIFNETMASK); eval 'sub SIOCGIFMETRIC () { &_IOWR(ord(\'i\')\,23\, \'struct ifreq\');}' unless defined(&SIOCGIFMETRIC); eval 'sub SIOCSIFMETRIC () { &_IOW(ord(\'i\')\,24\, \'struct ifreq\');}' unless defined(&SIOCSIFMETRIC); eval 'sub SIOCSIFMULTICAST () { &_IOW(ord(\'i\')\, 25\, \'struct ifreq\');}' unless defined(&SIOCSIFMULTICAST); eval 'sub SIOCDELIFADDR () { &_IOW(ord(\'i\')\,26\, \'struct ifreq\');}' unless defined(&SIOCDELIFADDR); eval 'sub SIOCADDIFADDR () { &_IOW(ord(\'i\')\,27\, \'struct ifreq\');}' unless defined(&SIOCADDIFADDR); eval 'sub SIOCSWITCHIFADDR () { &_IOW(ord(\'i\')\,28\, \'struct ifreq\');}' unless defined(&SIOCSWITCHIFADDR); eval 'sub SIOCSARP () { &_IOW(ord(\'i\')\, 30\, \'struct arpreq\');}' unless defined(&SIOCSARP); eval 'sub SIOCGARP () { &_IOWR(ord(\'i\')\,31\, \'struct arpreq\');}' unless defined(&SIOCGARP); eval 'sub SIOCDARP () { &_IOW(ord(\'i\')\, 32\, \'struct arpreq\');}' unless defined(&SIOCDARP); eval 'sub SIOCADDMULTI () { &_IOW(ord(\'i\')\, 49\, \'struct ifreq\');}' unless defined(&SIOCADDMULTI); eval 'sub SIOCDELMULTI () { &_IOW(ord(\'i\')\, 50\, \'struct ifreq\');}' unless defined(&SIOCDELMULTI); eval 'sub SIOCGNIT () { &_IOWR(ord(\'p\')\,52\, \'struct nit_ioc\');}' unless defined(&SIOCGNIT); eval 'sub SIOCSNIT () { &_IOW(ord(\'p\')\,53\, \'struct nit_ioc\');}' unless defined(&SIOCSNIT); eval 'sub SIOCTARP () { &_IOW(ord(\'i\')\, 244\, \'struct arpreq\');}' unless defined(&SIOCTARP); eval 'sub SIOCPROXYON () { &_IOW(ord(\'s\')\, 245\, \'struct prxentry\');}' unless defined(&SIOCPROXYON); eval 'sub SIOCPROXYOFF () { &_IOW(ord(\'s\')\, 246\, \'struct prxentry\');}' unless defined(&SIOCPROXYOFF); eval 'sub SIOCPROXYADD () { &_IOW(ord(\'s\')\, 247\, \'struct prxentry\');}' unless defined(&SIOCPROXYADD); eval 'sub SIOCPROXYDELETE () { &_IOW(ord(\'s\')\, 248\, \'struct prxentry\');}' unless defined(&SIOCPROXYDELETE); eval 'sub SIOCPROXYSHOW () { &_IOW(ord(\'s\')\, 249\, \'struct prxentry\');}' unless defined(&SIOCPROXYSHOW); eval 'sub SIOCPROXYLIST () { &_IOW(ord(\'s\')\, 250\, \'struct prxentry\');}' unless defined(&SIOCPROXYLIST); eval 'sub SIOCPROXYFLUSH () { &_IOW(ord(\'s\')\, 251\, \'struct prxentry\');}' unless defined(&SIOCPROXYFLUSH); eval 'sub SIOCPROXYAPPEND () { &_IOW(ord(\'s\')\, 252\, \'struct prxentry\');}' unless defined(&SIOCPROXYAPPEND); eval 'sub SIOCSACFLAGS () { &_IOW(ord(\'i\')\, 253\, \'struct ifreq\');}' unless defined(&SIOCSACFLAGS); eval 'sub SIOCGACFLAGS () { &_IOWR(ord(\'i\')\, 254\, \'struct ifreq\');}' unless defined(&SIOCGACFLAGS); eval 'sub SIOCJNVS () { &_IOW(ord(\'s\')\, 255\, \'int\');}' unless defined(&SIOCJNVS); eval 'sub NMIOGET () { &_IOWR(ord(\'m\')\, 1\, \'struct nmparms\');}' unless defined(&NMIOGET); eval 'sub NMIOSET () { &_IOW(ord(\'m\')\, 2\, \'struct nmparms\');}' unless defined(&NMIOSET); eval 'sub NMIODEL () { &_IOW(ord(\'m\')\, 3\, \'struct nmparms\');}' unless defined(&NMIODEL); eval 'sub NMIOCRE () { &_IOW(ord(\'m\')\, 4\, \'struct nmparms\');}' unless defined(&NMIOCRE); eval 'sub NMPEEK () { &_IOWR(ord(\'m\')\, 5\, \'struct nmtune_parms\');}' unless defined(&NMPEEK); eval 'sub NMPOKE () { &_IOW(ord(\'m\')\, 6\, \'struct nmtune_parms\');}' unless defined(&NMPOKE); eval 'sub CPD_IOCTL () {ord(\'Y\');}' unless defined(&CPD_IOCTL); eval 'sub CPD_SECTSET () { &_IO( &CPD_IOCTL\, 1);}' unless defined(&CPD_SECTSET); } if(defined(&_UNSUPPORTED)) { if(defined(&_KERNEL_BUILD)) { require '../h/_ioctl.ph'; } else { require '.unsupp/sys/_ioctl.ph'; } } } 1;
====================================
termios.ph \<\<\<
require '_h2ph_pre.ph'; no warnings 'redefine';
unless(defined(&_TERMIOS_INCLUDED)) { eval 'sub _TERMIOS_INCLUDED () {1;}' unless defined(&_TERMIOS_INCLUDED); require 'sys/types.ph'; require 'sys/termio.ph'; } 1;
====================================
sys/types.ph \<\<\<
require '_h2ph_pre.ph'; no warnings 'redefine';
unless(defined(&_SYS_TYPES_INCLUDED)) { eval 'sub _SYS_TYPES_INCLUDED () {1;}' unless defined(&_SYS_TYPES_INCLUDED); if(defined(&_KERNEL_BUILD)) { require '../h/_inttypes.ph'; require '../h/stdsyms.ph'; } else { require 'sys/_inttypes.ph'; require 'sys/stdsyms.ph'; } if(defined(&_INCLUDE_POSIX_SOURCE)) { unless(defined(&_DEV_T)) { eval 'sub _DEV_T () {1;}' unless defined(&_DEV_T); } unless(defined(&_INO_T)) { eval 'sub _INO_T () {1;}' unless defined(&_INO_T); if(defined(&_KERNEL)) { } else { if(defined(&__LP64__)) { } else { } } } unless(defined(&_MODE_T)) { eval 'sub _MODE_T () {1;}' unless defined(&_MODE_T); } unless(defined(&_NLINK_T)) { eval 'sub _NLINK_T () {1;}' unless defined(&_NLINK_T); } unless(defined(&_FPOS32_T)) { eval 'sub _FPOS32_T () {1;}' unless defined(&_FPOS32_T); } unless(defined(&_FPOS64_T)) { eval 'sub _FPOS64_T () {1;}' unless defined(&_FPOS64_T); if(!defined( &__STDC_32_MODE__)) { } } unless(defined(&_FPOS_T)) { eval 'sub _FPOS_T () {1;}' unless defined(&_FPOS_T); if(defined(&_FILE64)) { } else { } } unless(defined(&_FSBLOCKS32_T)) { eval 'sub _FSBLOCKS32_T () {1;}' unless defined(&_FSBLOCKS32_T); } unless(defined(&_FSBLOCKS64_T)) { eval 'sub _FSBLOCKS64_T () {1;}' unless defined(&_FSBLOCKS64_T); if(!defined( &__STDC_32_MODE__)) { } } unless(defined(&_FSBLOCKS_T)) { eval 'sub _FSBLOCKS_T () {1;}' unless defined(&_FSBLOCKS_T); if(defined(&_FILE64)) { } else { } } unless(defined(&_OFF32_T)) { eval 'sub _OFF32_T () {1;}' unless defined(&_OFF32_T); } unless(defined(&_OFF64_T)) { eval 'sub _OFF64_T () {1;}' unless defined(&_OFF64_T); if(!defined( &__STDC_32_MODE__)) { } } unless(defined(&_OFF_T)) { eval 'sub _OFF_T () {1;}' unless defined(&_OFF_T); if(defined(&_FILE64)) { } else { } } unless(defined(&_FSFILCNT32_T)) { eval 'sub _FSFILCNT32_T () {1;}' unless defined(&_FSFILCNT32_T); } unless(defined(&_FSFILCNT64_T)) { eval 'sub _FSFILCNT64_T () {1;}' unless defined(&_FSFILCNT64_T); if(!defined( &__STDC_32_MODE__)) { } } unless(defined(&_FSFILCNT_T)) { eval 'sub _FSFILCNT_T () {1;}' unless defined(&_FSFILCNT_T); if(defined(&_FILE64)) { } else { } } unless(defined(&_BLKCNT32_T)) { eval 'sub _BLKCNT32_T () {1;}' unless defined(&_BLKCNT32_T); } unless(defined(&_BLKCNT64_T)) { eval 'sub _BLKCNT64_T () {1;}' unless defined(&_BLKCNT64_T); if(!defined( &__STDC_32_MODE__)) { } } unless(defined(&_BLKCNT_T)) { eval 'sub _BLKCNT_T () {1;}' unless defined(&_BLKCNT_T); if(defined(&_FILE64)) { } else { } } unless(defined(&_PID_T)) { eval 'sub _PID_T () {1;}' unless defined(&_PID_T); } unless(defined(&_LWPID_T)) { eval 'sub _LWPID_T () {1;}' unless defined(&_LWPID_T); } unless(defined(&_GID_T)) { eval 'sub _GID_T () {1;}' unless defined(&_GID_T); } unless(defined(&_UID_T)) { eval 'sub _UID_T () {1;}' unless defined(&_UID_T); } unless(defined(&_TID_T)) { eval 'sub _TID_T () {1;}' unless defined(&_TID_T); } unless(defined(&_SSIZE_T)) { eval 'sub _SSIZE_T () {1;}' unless defined(&_SSIZE_T); if(defined(&__LP64__)) { } else { } } unless(defined(&_SITE_T)) { eval 'sub _SITE_T () {1;}' unless defined(&_SITE_T); } unless(defined(&_CNODE_T)) { eval 'sub _CNODE_T () {1;}' unless defined(&_CNODE_T); } } if(defined( &_INCLUDE_POSIX_SOURCE) || defined( &_INCLUDE__STDC__)) { unless(defined(&_TIME_T)) { eval 'sub _TIME_T () {1;}' unless defined(&_TIME_T); } } if(defined( &_INCLUDE_POSIX_SOURCE) || (defined( &_INCLUDE__STDC__) && (!defined( &_XPG4_EXTENDED) || defined( &_INCLUDE_HPUX_SOURCE)))) { unless(defined(&_SIZE_T)) { eval 'sub _SIZE_T () {1;}' unless defined(&_SIZE_T); if(defined(&__LP64__)) { } else { } } } if(defined( &_INCLUDE_XOPEN_SOURCE) || (defined( &_INCLUDE__STDC__) && (!defined( &_XPG4_EXTENDED) || defined( &_INCLUDE_HPUX_SOURCE)))) { unless(defined(&_CLOCK_T)) { eval 'sub _CLOCK_T () {1;}' unless defined(&_CLOCK_T); } } if(defined(&_INCLUDE_XOPEN_SOURCE)) { unless(defined(&_KEY_T)) { eval 'sub _KEY_T () {1;}' unless defined(&_KEY_T); } } if(defined(&_INCLUDE_AES_SOURCE)) { unless(defined(&_CADDR_T)) { eval 'sub _CADDR_T () {1;}' unless defined(&_CADDR_T); } } if(defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED)) { unless(defined(&_ID_T)) { eval 'sub _ID_T () {1;}' unless defined(&_ID_T); } unless(defined(&_USECONDS_T)) { eval 'sub _USECONDS_T () {1;}' unless defined(&_USECONDS_T); } unless(defined(&_RLIM32_T)) { eval 'sub _RLIM32_T () {1;}' unless defined(&_RLIM32_T); } unless(defined(&_RLIM64_T)) { eval 'sub _RLIM64_T () {1;}' unless defined(&_RLIM64_T); if(!defined( &__STDC_32_MODE__)) { } } unless(defined(&_RLIM_T)) { eval 'sub _RLIM_T () {1;}' unless defined(&_RLIM_T); if(defined(&_FILE64)) { } else { } } } if(defined(&_INCLUDE_HPUX_SOURCE)) { unless(defined(&_ULONG_T)) { eval 'sub _ULONG_T () {1;}' unless defined(&_ULONG_T); } if(defined(&__LP64__)) { } else { } eval 'sub MAXSUSE () {65535;}' unless defined(&MAXSUSE); if(defined(&__LP64__)) { } else { } unless(defined(&_KERNEL)) { } unless(defined(&_AID_T)) { eval 'sub _AID_T () {1;}' unless defined(&_AID_T); } eval 'sub UID_NO_CHANGE () {(( &uid_t) -1);}' unless defined(&UID_NO_CHANGE); eval 'sub GID_NO_CHANGE () {(( &gid_t) -1);}' unless defined(&GID_NO_CHANGE); eval 'sub PGID_NOT_SET () {(( &pid_t) -1);}' unless defined(&PGID_NOT_SET); eval 'sub SID_NOT_SET () {(( &sid_t) -1);}' unless defined(&SID_NOT_SET); eval 'sub PGID_USE_PID () {(( &pid_t) -2);}' unless defined(&PGID_USE_PID); eval 'sub SID_USE_PID () {(( &sid_t) -2);}' unless defined(&SID_USE_PID); if(!defined( &_XPG4_EXTENDED) || defined( &_INCLUDE_HPUX_SOURCE) || defined( &_KERNEL)) { unless(defined(&MAXFUPLIM)) { if(defined( &_KERNEL) || defined( &_USE_BIG_FDS)) { eval 'sub MAXFUPLIM () {60000;}' unless defined(&MAXFUPLIM); } else { eval 'sub MAXFUPLIM () {2048;}' unless defined(&MAXFUPLIM); } unless(defined(&_KERNEL)) { unless(defined(&FD_SETSIZE)) { eval 'sub FD_SETSIZE () { &MAXFUPLIM;}' unless defined(&FD_SETSIZE); } } else { eval 'sub FD_SETSIZE () { &MAXFUPLIM;}' unless defined(&FD_SETSIZE); } eval 'sub NFDBITS () {($sizeof{ &fd_mask} * 8);}' unless defined(&NFDBITS); unless(defined(&howmany)) { eval 'sub howmany { local($x\,$y) = @_; eval q(((($x)+(($y)-1))/($y))); }' unless defined(&howmany); } unless(defined(&_FD_SET)) { eval 'sub _FD_SET () {1;}' unless defined(&_FD_SET); } unless(defined(&__FD_SET)) { eval 'sub __FD_SET () {1;}' unless defined(&__FD_SET); eval 'sub FD_SET { local($n\,$p) = @_; eval q((($p)-> $fds_bits[($n)/ &NFDBITS] |= (1\<\< (($n) % &NFDBITS)))); }' unless defined(&FD_SET); } unless(defined(&__FD_CLR)) { eval 'sub __FD_CLR () {1;}' unless defined(&__FD_CLR); eval 'sub FD_CLR { local($n\,$p) = @_; eval q((($p)-> $fds_bits[($n)/ &NFDBITS] &= ~(1\<\< (($n) % &NFDBITS)))); }' unless defined(&FD_CLR); } unless(defined(&__FD_ISSET)) { eval 'sub __FD_ISSET () {1;}' unless defined(&__FD_ISSET); eval 'sub FD_ISSET { local($n\,$p) = @_; eval q((($p)-> $fds_bits[($n)/ &NFDBITS] & (1\<\< (($n) % &NFDBITS)))); }' unless defined(&FD_ISSET); } unless(defined(&_KERNEL)) { unless(defined(&__FD_ZERO)) { eval 'sub __FD_ZERO () {1;}' unless defined(&__FD_ZERO); eval 'sub FD_ZERO { local($p) = @_; eval q( &memset(\, 0\, $sizeof{($p)})); }' unless defined(&FD_ZERO); } } } } else { } unless(defined(&_KERNEL)) { if(defined(&__cplusplus)) { } if(defined(&_CLASSIC_ID_TYPES)) { if(defined(&_SVID3)) { } } else { if(defined(&_PROTOTYPES)) { if(defined(&_SVID3)) { } } else { if(defined(&_SVID3)) { } } } if(defined(&_PROTOTYPES)) { if(defined(&_SVID3)) { } } else { if(defined(&_SVID3)) { } } if(defined(&__cplusplus)) { } } } if(!defined( &__STDC_32_MODE__)) { unless(defined(&_K_OFF_T)) { eval 'sub _K_OFF_T () {1;}' unless defined(&_K_OFF_T); } unless(defined(&_K_RLIM_T)) { eval 'sub _K_RLIM_T () {1;}' unless defined(&_K_RLIM_T); } unless(defined(&_K_BLKCNT_T)) { eval 'sub _K_BLKCNT_T () {1;}' unless defined(&_K_BLKCNT_T); } unless(defined(&_K_FSFILCNT_T)) { eval 'sub _K_FSFILCNT_T () {1;}' unless defined(&_K_FSFILCNT_T); } unless(defined(&_K_FSBLKCNT_T)) { eval 'sub _K_FSBLKCNT_T () {1;}' unless defined(&_K_FSBLKCNT_T); } unless(defined(&_DIR_OFF_T)) { eval 'sub _DIR_OFF_T () {1;}' unless defined(&_DIR_OFF_T); } } if(defined(&_UNSUPPORTED)) { if(defined(&_KERNEL_BUILD)) { require '../h/_types.ph'; } else { require '.unsupp/sys/_types.ph'; } } } 1;
====================================
sys/termio.ph \<\<\<
require '_h2ph_pre.ph'; no warnings 'redefine';
unless(defined(&_SYS_TERMIO_INCLUDED)) { eval 'sub _SYS_TERMIO_INCLUDED () {1;}' unless defined(&_SYS_TERMIO_INCLUDED); if(defined(&_KERNEL_BUILD)) { require '../h/stdsyms.ph'; eval 'sub _INCLUDE_TERMIO () {1;}' unless defined(&_INCLUDE_TERMIO); } else { require 'sys/stdsyms.ph'; } if(defined(&_INCLUDE_POSIX_SOURCE)) { eval 'sub NCCS () {16;}' unless defined(&NCCS); if(defined(&_TERMIOS_INCLUDED)) { } else { eval 'sub _INCLUDE_TERMIO () {1;}' unless defined(&_INCLUDE_TERMIO); } eval 'sub IGNBRK () {0000001;}' unless defined(&IGNBRK); eval 'sub BRKINT () {0000002;}' unless defined(&BRKINT); eval 'sub IGNPAR () {0000004;}' unless defined(&IGNPAR); eval 'sub PARMRK () {0000010;}' unless defined(&PARMRK); eval 'sub INPCK () {0000020;}' unless defined(&INPCK); eval 'sub ISTRIP () {0000040;}' unless defined(&ISTRIP); eval 'sub INLCR () {0000100;}' unless defined(&INLCR); eval 'sub IGNCR () {0000200;}' unless defined(&IGNCR); eval 'sub ICRNL () {0000400;}' unless defined(&ICRNL); eval 'sub _IUCLC () {0001000;}' unless defined(&_IUCLC); eval 'sub IXON () {0002000;}' unless defined(&IXON); eval 'sub _IXANY () {0004000;}' unless defined(&_IXANY); eval 'sub IXOFF () {0010000;}' unless defined(&IXOFF); eval 'sub _IENQAK () {0020000;}' unless defined(&_IENQAK); eval 'sub _IMAXBEL () {0040000;}' unless defined(&_IMAXBEL); eval 'sub OPOST () {0000001;}' unless defined(&OPOST); eval 'sub _OLCUC () {0000002;}' unless defined(&_OLCUC); eval 'sub _ONLCR () {0000004;}' unless defined(&_ONLCR); eval 'sub _OCRNL () {0000010;}' unless defined(&_OCRNL); eval 'sub _ONOCR () {0000020;}' unless defined(&_ONOCR); eval 'sub _ONLRET () {0000040;}' unless defined(&_ONLRET); eval 'sub _OFILL () {0000100;}' unless defined(&_OFILL); eval 'sub _OFDEL () {0000200;}' unless defined(&_OFDEL); eval 'sub _NLDLY () {0000400;}' unless defined(&_NLDLY); eval 'sub _NL0 () {0;}' unless defined(&_NL0); eval 'sub _NL1 () {0000400;}' unless defined(&_NL1); eval 'sub _CRDLY () {0003000;}' unless defined(&_CRDLY); eval 'sub _CR0 () {0;}' unless defined(&_CR0); eval 'sub _CR1 () {0001000;}' unless defined(&_CR1); eval 'sub _CR2 () {0002000;}' unless defined(&_CR2); eval 'sub _CR3 () {0003000;}' unless defined(&_CR3); eval 'sub _TABDLY () {0014000;}' unless defined(&_TABDLY); eval 'sub _TAB0 () {0;}' unless defined(&_TAB0); eval 'sub _TAB1 () {0004000;}' unless defined(&_TAB1); eval 'sub _TAB2 () {0010000;}' unless defined(&_TAB2); eval 'sub _TAB3 () {0014000;}' unless defined(&_TAB3); eval 'sub _BSDLY () {0020000;}' unless defined(&_BSDLY); eval 'sub _BS0 () {0;}' unless defined(&_BS0); eval 'sub _BS1 () {0020000;}' unless defined(&_BS1); eval 'sub _VTDLY () {0040000;}' unless defined(&_VTDLY); eval 'sub _VT0 () {0;}' unless defined(&_VT0); eval 'sub _VT1 () {0040000;}' unless defined(&_VT1); eval 'sub _FFDLY () {0100000;}' unless defined(&_FFDLY); eval 'sub _FF0 () {0;}' unless defined(&_FF0); eval 'sub _FF1 () {0100000;}' unless defined(&_FF1); eval 'sub _EXTA () {0000036;}' unless defined(&_EXTA); eval 'sub _EXTB () {0000037;}' unless defined(&_EXTB); eval 'sub CLOCAL () {0010000;}' unless defined(&CLOCAL); eval 'sub CREAD () {0000400;}' unless defined(&CREAD); eval 'sub CSIZE () {0000140;}' unless defined(&CSIZE); eval 'sub CS5 () {0;}' unless defined(&CS5); eval 'sub CS6 () {0000040;}' unless defined(&CS6); eval 'sub CS7 () {0000100;}' unless defined(&CS7); eval 'sub CS8 () {0000140;}' unless defined(&CS8); eval 'sub CSTOPB () {0000200;}' unless defined(&CSTOPB); eval 'sub HUPCL () {0004000;}' unless defined(&HUPCL); eval 'sub PARENB () {0001000;}' unless defined(&PARENB); eval 'sub PARODD () {0002000;}' unless defined(&PARODD); eval 'sub _LOBLK () {0020000;}' unless defined(&_LOBLK); eval 'sub ISIG () {0000001;}' unless defined(&ISIG); eval 'sub ICANON () {0000002;}' unless defined(&ICANON); eval 'sub _XCASE () {0000004;}' unless defined(&_XCASE); eval 'sub ECHO () {0000010;}' unless defined(&ECHO); eval 'sub ECHOE () {0000020;}' unless defined(&ECHOE); eval 'sub ECHOK () {0000040;}' unless defined(&ECHOK); eval 'sub ECHONL () {0000100;}' unless defined(&ECHONL); eval 'sub NOFLSH () {0000200;}' unless defined(&NOFLSH); eval 'sub _ECHOCTL () {0000400;}' unless defined(&_ECHOCTL); eval 'sub _ECHOPRT () {0001000;}' unless defined(&_ECHOPRT); eval 'sub _ECHOKE () {0002000;}' unless defined(&_ECHOKE); eval 'sub _FLUSHO () {0004000;}' unless defined(&_FLUSHO); eval 'sub _PENDIN () {0010000;}' unless defined(&_PENDIN); eval 'sub TOSTOP () {010000000000;}' unless defined(&TOSTOP); eval 'sub IEXTEN () {020000000000;}' unless defined(&IEXTEN); eval 'sub VINTR () {0;}' unless defined(&VINTR); eval 'sub VQUIT () {1;}' unless defined(&VQUIT); eval 'sub VERASE () {2;}' unless defined(&VERASE); eval 'sub VKILL () {3;}' unless defined(&VKILL); eval 'sub VEOF () {4;}' unless defined(&VEOF); eval 'sub VEOL () {5;}' unless defined(&VEOL); eval 'sub _VEOL2 () {6;}' unless defined(&_VEOL2); if(defined(&_TERMIOS_INCLUDED)) { eval 'sub _VWERASE () {8;}' unless defined(&_VWERASE); eval 'sub _VLNEXT () {9;}' unless defined(&_VLNEXT); eval 'sub _VDSUSP () {10;}' unless defined(&_VDSUSP); eval 'sub VMIN () {11;}' unless defined(&VMIN); eval 'sub VTIME () {12;}' unless defined(&VTIME); eval 'sub _V2_VMIN () { &VEOF;}' unless defined(&_V2_VMIN); eval 'sub _V2_VTIME () { &VEOL;}' unless defined(&_V2_VTIME); eval 'sub VSUSP () {13;}' unless defined(&VSUSP); eval 'sub VSTART () {14;}' unless defined(&VSTART); eval 'sub VSTOP () {15;}' unless defined(&VSTOP); } else { eval 'sub VMIN () { &VEOF;}' unless defined(&VMIN); eval 'sub VTIME () { &VEOL;}' unless defined(&VTIME); } eval 'sub _CBAUD () {0000037;}' unless defined(&_CBAUD); eval 'sub B0 () {0;}' unless defined(&B0); eval 'sub B50 () {0000001;}' unless defined(&B50); eval 'sub B75 () {0000002;}' unless defined(&B75); eval 'sub B110 () {0000003;}' unless defined(&B110); eval 'sub B134 () {0000004;}' unless defined(&B134); eval 'sub B150 () {0000005;}' unless defined(&B150); eval 'sub B200 () {0000006;}' unless defined(&B200); eval 'sub B300 () {0000007;}' unless defined(&B300); eval 'sub B600 () {0000010;}' unless defined(&B600); eval 'sub _B900 () {0000011;}' unless defined(&_B900); eval 'sub B1200 () {0000012;}' unless defined(&B1200); eval 'sub B1800 () {0000013;}' unless defined(&B1800); eval 'sub B2400 () {0000014;}' unless defined(&B2400); eval 'sub _B3600 () {0000015;}' unless defined(&_B3600); eval 'sub B4800 () {0000016;}' unless defined(&B4800); eval 'sub _B7200 () {0000017;}' unless defined(&_B7200); eval 'sub B9600 () {0000020;}' unless defined(&B9600); eval 'sub B19200 () {0000021;}' unless defined(&B19200); eval 'sub B38400 () {0000022;}' unless defined(&B38400); eval 'sub _B57600 () {0000023;}' unless defined(&_B57600); eval 'sub _B115200 () {0000024;}' unless defined(&_B115200); eval 'sub _B230400 () {0000025;}' unless defined(&_B230400); eval 'sub _B460800 () {0000026;}' unless defined(&_B460800); if(defined(&_TERMIOS_INCLUDED)) { unless(defined(&_KERNEL)) { eval 'sub TCSANOW () {0;}' unless defined(&TCSANOW); eval 'sub TCSADRAIN () {1;}' unless defined(&TCSADRAIN); eval 'sub TCSAFLUSH () {2;}' unless defined(&TCSAFLUSH); eval 'sub TCIFLUSH () {0;}' unless defined(&TCIFLUSH); eval 'sub TCOFLUSH () {1;}' unless defined(&TCOFLUSH); eval 'sub TCIOFLUSH () {2;}' unless defined(&TCIOFLUSH); eval 'sub TCOOFF () {0;}' unless defined(&TCOOFF); eval 'sub TCOON () {1;}' unless defined(&TCOON); eval 'sub TCIOFF () {2;}' unless defined(&TCIOFF); eval 'sub TCION () {3;}' unless defined(&TCION); if(defined(&__cplusplus)) { } if(defined(&_PROTOTYPES)) { if(defined(&_XPG4_EXTENDED)) { } else { } } else { } if(defined(&__cplusplus)) { } } } } if(defined(&_INCLUDE_XOPEN_SOURCE)) { eval 'sub IUCLC () { &_IUCLC;}' unless defined(&IUCLC); eval 'sub IXANY () { &_IXANY;}' unless defined(&IXANY); if(defined(&_KERNEL)) { undef(&CR0) if defined(&CR0); undef(&CR1) if defined(&CR1); undef(&CR2) if defined(&CR2); undef(&CR3) if defined(&CR3); } eval 'sub OLCUC () { &_OLCUC;}' unless defined(&OLCUC); eval 'sub ONLCR () { &_ONLCR;}' unless defined(&ONLCR); eval 'sub OCRNL () { &_OCRNL;}' unless defined(&OCRNL); eval 'sub ONOCR () { &_ONOCR;}' unless defined(&ONOCR); eval 'sub ONLRET () { &_ONLRET;}' unless defined(&ONLRET); eval 'sub OFILL () { &_OFILL;}' unless defined(&OFILL); eval 'sub OFDEL () { &_OFDEL;}' unless defined(&OFDEL); eval 'sub NLDLY () { &_NLDLY;}' unless defined(&NLDLY); eval 'sub NL0 () { &_NL0;}' unless defined(&NL0); eval 'sub NL1 () { &_NL1;}' unless defined(&NL1); eval 'sub CRDLY () { &_CRDLY;}' unless defined(&CRDLY); eval 'sub CR0 () { &_CR0;}' unless defined(&CR0); eval 'sub CR1 () { &_CR1;}' unless defined(&CR1); eval 'sub CR2 () { &_CR2;}' unless defined(&CR2); eval 'sub CR3 () { &_CR3;}' unless defined(&CR3); eval 'sub TABDLY () { &_TABDLY;}' unless defined(&TABDLY); eval 'sub TAB0 () { &_TAB0;}' unless defined(&TAB0); eval 'sub TAB1 () { &_TAB1;}' unless defined(&TAB1); eval 'sub TAB2 () { &_TAB2;}' unless defined(&TAB2); eval 'sub TAB3 () { &_TAB3;}' unless defined(&TAB3); eval 'sub BSDLY () { &_BSDLY;}' unless defined(&BSDLY); eval 'sub BS0 () { &_BS0;}' unless defined(&BS0); eval 'sub BS1 () { &_BS1;}' unless defined(&BS1); eval 'sub VTDLY () { &_VTDLY;}' unless defined(&VTDLY); eval 'sub VT0 () { &_VT0;}' unless defined(&VT0); eval 'sub VT1 () { &_VT1;}' unless defined(&VT1); eval 'sub FFDLY () { &_FFDLY;}' unless defined(&FFDLY); eval 'sub FF0 () { &_FF0;}' unless defined(&FF0); eval 'sub FF1 () { &_FF1;}' unless defined(&FF1); eval 'sub CBAUD () { &_CBAUD;}' unless defined(&CBAUD); eval 'sub EXTA () { &_EXTA;}' unless defined(&EXTA); eval 'sub EXTB () { &_EXTB;}' unless defined(&EXTB); eval 'sub LOBLK () { &_LOBLK;}' unless defined(&LOBLK); eval 'sub XCASE () { &_XCASE;}' unless defined(&XCASE); } if(defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED)) { unless(defined(&_KERNEL)) { require 'sys/types.ph'; if(defined(&_PROTOTYPES)) { } else { } } } if(defined(&_INCLUDE_HPUX_SOURCE)) { if(defined(&_KERNEL_BUILD)) { require '../h/ioctl.ph'; } else { require 'sys/ioctl.ph'; } unless(defined(&NCC)) { eval 'sub NCC () {8;}' unless defined(&NCC); } eval 'sub VSWTCH () {7;}' unless defined(&VSWTCH); eval 'sub CNUL () {0;}' unless defined(&CNUL); eval 'sub CDEL () {0377;}' unless defined(&CDEL); eval 'sub CESC () {ord(\'\\\\\');}' unless defined(&CESC); eval 'sub CINTR () {0177;}' unless defined(&CINTR); eval 'sub CQUIT () {034;}' unless defined(&CQUIT); eval 'sub CERASE () {ord(\'#\');}' unless defined(&CERASE); eval 'sub CKILL () {ord(\'@\');}' unless defined(&CKILL); eval 'sub CEOF () {04;}' unless defined(&CEOF); eval 'sub CSTART () {021;}' unless defined(&CSTART); eval 'sub CSTOP () {023;}' unless defined(&CSTOP); eval 'sub CSWTCH () {032;}' unless defined(&CSWTCH); eval 'sub CNSWTCH () {0;}' unless defined(&CNSWTCH); eval 'sub CREPRINT () {022;}' unless defined(&CREPRINT); eval 'sub CDISCARD () {017;}' unless defined(&CDISCARD); eval 'sub CWERASE () {027;}' unless defined(&CWERASE); eval 'sub CLNEXT () {026;}' unless defined(&CLNEXT); eval 'sub CDSUSP () {031;}' unless defined(&CDSUSP); eval 'sub CSUSP () {032;}' unless defined(&CSUSP); eval 'sub B900 () { &_B900;}' unless defined(&B900); eval 'sub B3600 () { &_B3600;}' unless defined(&B3600); eval 'sub B7200 () { &_B7200;}' unless defined(&B7200); eval 'sub B57600 () { &_B57600;}' unless defined(&B57600); eval 'sub B115200 () { &_B115200;}' unless defined(&B115200); eval 'sub B230400 () { &_B230400;}' unless defined(&B230400); eval 'sub B460800 () { &_B460800;}' unless defined(&B460800); eval 'sub LOBLK () { &_LOBLK;}' unless defined(&LOBLK); eval 'sub IENQAK () { &_IENQAK;}' unless defined(&IENQAK); eval 'sub IMAXBEL () { &_IMAXBEL;}' unless defined(&IMAXBEL); eval 'sub XTABS () { &_TAB3;}' unless defined(&XTABS); eval 'sub ECHOCTL () { &_ECHOCTL;}' unless defined(&ECHOCTL); eval 'sub ECHOPRT () { &_ECHOPRT;}' unless defined(&ECHOPRT); eval 'sub ECHOKE () { &_ECHOKE;}' unless defined(&ECHOKE); eval 'sub FLUSHO () { &_FLUSHO;}' unless defined(&FLUSHO); eval 'sub PENDIN () { &_PENDIN;}' unless defined(&PENDIN); eval 'sub VEOL2 () { &_VEOL2;}' unless defined(&VEOL2); if(defined(&_TERMIOS_INCLUDED)) { eval 'sub VWERASE () { &_VWERASE;}' unless defined(&VWERASE); eval 'sub VLNEXT () { &_VLNEXT;}' unless defined(&VLNEXT); eval 'sub VDSUSP () { &_VDSUSP;}' unless defined(&VDSUSP); } eval 'sub SSPEED () {7;}' unless defined(&SSPEED); eval 'sub COUTBAUD () { &CBAUD;}' unless defined(&COUTBAUD); eval 'sub CINBAUD () {0x1f000000;}' unless defined(&CINBAUD); eval 'sub COUTBAUDSHIFT () {0;}' unless defined(&COUTBAUDSHIFT); eval 'sub CINBAUDSHIFT () {24;}' unless defined(&CINBAUDSHIFT); eval 'sub CIBAUD () { &CINBAUD;}' unless defined(&CIBAUD); eval 'sub IBSHIFT () { &CINBAUDSHIFT;}' unless defined(&IBSHIFT); if(defined(&_TERMIOS_INCLUDED)) { eval 'sub TCGETATTR () { &_IOR(ord(\'T\')\, 16\, \'struct termios\');}' unless defined(&TCGETATTR); eval 'sub TCSETATTR () { &_IOW(ord(\'T\')\, 17\, \'struct termios\');}' unless defined(&TCSETATTR); eval 'sub TCSETATTRD () { &_IOW(ord(\'T\')\, 18\, \'struct termios\');}' unless defined(&TCSETATTRD); eval 'sub TCSETATTRF () { &_IOW(ord(\'T\')\, 19\, \'struct termios\');}' unless defined(&TCSETATTRF); eval 'sub TCGETS () { &TCGETATTR;}' unless defined(&TCGETS); eval 'sub TCSETS () { &TCSETATTR;}' unless defined(&TCSETS); eval 'sub TCSETSW () { &TCSETATTRD;}' unless defined(&TCSETSW); eval 'sub TCSETSF () { &TCSETATTRF;}' unless defined(&TCSETSF); } if(defined(&_INCLUDE_TERMIO)) { eval 'sub TCGETA () { &_IOR(ord(\'T\')\, 1\, \'struct termio\');}' unless defined(&TCGETA); eval 'sub TCSETA () { &_IOW(ord(\'T\')\, 2\, \'struct termio\');}' unless defined(&TCSETA); eval 'sub TCSETAW () { &_IOW(ord(\'T\')\, 3\, \'struct termio\');}' unless defined(&TCSETAW); eval 'sub TCSETAF () { &_IOW(ord(\'T\')\, 4\, \'struct termio\');}' unless defined(&TCSETAF); } eval 'sub TCSBRK () { &_IO(ord(\'T\')\, 5);}' unless defined(&TCSBRK); eval 'sub TCXONC () { &_IO(ord(\'T\')\, 6);}' unless defined(&TCXONC); eval 'sub TCFLSH () { &_IO(ord(\'T\')\, 7);}' unless defined(&TCFLSH); eval 'sub TIOCGSID () { &_IOR(ord(\'T\')\, 20\, \'int\');}' unless defined(&TIOCGSID); if(defined(&_KERNEL)) { undef(&_INCLUDE_TERMIO) if defined(&_INCLUDE_TERMIO); } eval 'sub IOCTYPE () {0177400;}' unless defined(&IOCTYPE); eval 'sub TIOC () {(ord(\'T\')\<\<8);}' unless defined(&TIOC); eval 'sub TIOCCONS () { &_IO(ord(\'t\')\, 104);}' unless defined(&TIOCCONS); eval 'sub TIOCGWINSZ () { &_IOR(ord(\'t\')\, 107\, \'struct winsize\');}' unless defined(&TIOCGWINSZ); eval 'sub TIOCSWINSZ () { &_IOW(ord(\'t\')\, 106\, \'struct winsize\');}' unless defined(&TIOCSWINSZ); unless(defined(&_KERNEL)) { eval 'sub ttysize () { &winsize;}' unless defined(&ttysize); eval 'sub ts_lines () { &ws_row;}' unless defined(&ts_lines); eval 'sub ts_cols () { &ws_col;}' unless defined(&ts_cols); eval 'sub TIOCSSIZE () { &TIOCSWINSZ;}' unless defined(&TIOCSSIZE); eval 'sub TIOCGSIZE () { &TIOCGWINSZ;}' unless defined(&TIOCGSIZE); } eval 'sub TIOCM_DTR () { &MDTR;}' unless defined(&TIOCM_DTR); eval 'sub TIOCM_RTS () { &MRTS;}' unless defined(&TIOCM_RTS); eval 'sub TIOCM_CTS () { &MCTS;}' unless defined(&TIOCM_CTS); eval 'sub TIOCM_CAR () { &MDCD;}' unless defined(&TIOCM_CAR); eval 'sub TIOCM_CD () { &MDCD;}' unless defined(&TIOCM_CD); eval 'sub TIOCM_RNG () { &MRI;}' unless defined(&TIOCM_RNG); eval 'sub TIOCM_RI () { &MRI;}' unless defined(&TIOCM_RI); eval 'sub TIOCM_DSR () { &MDSR;}' unless defined(&TIOCM_DSR); eval 'sub TIOCM_DRS () { &MDRS;}' unless defined(&TIOCM_DRS); eval 'sub TIOCMGET () { &_IOR(ord(\'M\')\, 0\, \'unsigned long\');}' unless defined(&TIOCMGET); eval 'sub TIOCMSET () { &_IOW(ord(\'M\')\, 1\, \'unsigned long\');}' unless defined(&TIOCMSET); eval 'sub TIOCMBIS () { &_IOW(ord(\'M\')\, 12\, \'int\');}' unless defined(&TIOCMBIS); eval 'sub TIOCMBIC () { &_IOW(ord(\'M\')\, 13\, \'int\');}' unless defined(&TIOCMBIC); } } 1;
====================================
sys/stdsyms.ph \<\<\<
require '_h2ph_pre.ph'; no warnings 'redefine';
unless(defined(&_SYS_STDSYMS_INCLUDED)) { eval 'sub _SYS_STDSYMS_INCLUDED () {1;}' unless defined(&_SYS_STDSYMS_INCLUDED); if(defined(&_HPUX_SOURCE)) { unless(defined(&_INCLUDE__STDC__)) { eval 'sub _INCLUDE__STDC__ () {1;}' unless defined(&_INCLUDE__STDC__); } eval 'sub _INCLUDE_POSIX_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX_SOURCE); eval 'sub _INCLUDE_POSIX2_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX2_SOURCE); eval 'sub _INCLUDE_POSIX4_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX4_SOURCE); eval 'sub _INCLUDE_XOPEN_SOURCE () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE); eval 'sub _INCLUDE_XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED); eval 'sub _INCLUDE_AES_SOURCE () {1;}' unless defined(&_INCLUDE_AES_SOURCE); eval 'sub _INCLUDE_HPUX_SOURCE () {1;}' unless defined(&_INCLUDE_HPUX_SOURCE); } else { if(defined(&_AES_SOURCE)) { unless(defined(&_INCLUDE__STDC__)) { eval 'sub _INCLUDE__STDC__ () {1;}' unless defined(&_INCLUDE__STDC__); } eval 'sub _INCLUDE_POSIX_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX_SOURCE); eval 'sub _INCLUDE_XOPEN_SOURCE () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE); eval 'sub _INCLUDE_AES_SOURCE () {1;}' unless defined(&_INCLUDE_AES_SOURCE); } else { if(defined( &_XOPEN_SOURCE) || defined( &_XOPEN_SOURCE_EXTENDED)) { unless(defined(&_INCLUDE__STDC__)) { eval 'sub _INCLUDE__STDC__ () {1;}' unless defined(&_INCLUDE__STDC__); } eval 'sub _INCLUDE_POSIX_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX_SOURCE); eval 'sub _INCLUDE_XOPEN_SOURCE () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE); } else { if(defined( &_POSIX_SOURCE) || defined( &_POSIX2_SOURCE) || defined( &_POSIX_C_SOURCE)) { unless(defined(&_INCLUDE__STDC__)) { eval 'sub _INCLUDE__STDC__ () {1;}' unless defined(&_INCLUDE__STDC__); } eval 'sub _INCLUDE_POSIX_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX_SOURCE); } else { unless(defined(&__STDC__)) { unless(defined(&_INCLUDE__STDC__)) { eval 'sub _HPUX_SOURCE () {1;}' unless defined(&_HPUX_SOURCE); eval 'sub _INCLUDE__STDC__ () {1;}' unless defined(&_INCLUDE__STDC__); eval 'sub _INCLUDE_POSIX_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX_SOURCE); eval 'sub _INCLUDE_POSIX2_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX2_SOURCE); eval 'sub _INCLUDE_POSIX4_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX4_SOURCE); eval 'sub _INCLUDE_XOPEN_SOURCE () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE); eval 'sub _INCLUDE_XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED); eval 'sub _INCLUDE_AES_SOURCE () {1;}' unless defined(&_INCLUDE_AES_SOURCE); eval 'sub _INCLUDE_HPUX_SOURCE () {1;}' unless defined(&_INCLUDE_HPUX_SOURCE); } } else { unless(defined(&_INCLUDE__STDC__)) { eval 'sub _INCLUDE__STDC__ () {1;}' unless defined(&_INCLUDE__STDC__); } } } } } } if(defined( &_CLASSIC_TYPES) || defined( &_XPG2) || defined( &_SVID2)) { unless(defined(&__STDC__)) { if(defined(&_HPUX_SOURCE)) { eval 'sub _CLASSIC_ANSI_TYPES () {1;}' unless defined(&_CLASSIC_ANSI_TYPES); eval 'sub _CLASSIC_POSIX_TYPES () {1;}' unless defined(&_CLASSIC_POSIX_TYPES); eval 'sub _CLASSIC_XOPEN_TYPES () {1;}' unless defined(&_CLASSIC_XOPEN_TYPES); eval 'sub _CLASSIC_ID_TYPES () {1;}' unless defined(&_CLASSIC_ID_TYPES); if(defined( &_SVID2) && !defined( &_XPG2)) { eval 'sub _XPG2 () {1;}' unless defined(&_XPG2); } } else { if(defined( &_POSIX_SOURCE) && ! defined( &_XOPEN_SOURCE)) { eval 'sub _CLASSIC_ANSI_TYPES () {1;}' unless defined(&_CLASSIC_ANSI_TYPES); } } } } if(defined( &_XOPEN_SOURCE_EXTENDED) || (defined( &_XOPEN_SOURCE) && defined( &_XPG4_EXTENDED))) { unless(defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED)) { eval 'sub _INCLUDE_XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED); } } if(defined(&_INCLUDE_XOPEN_SOURCE_EXTENDED)) { unless(defined(&_XPG4_EXTENDED)) { eval 'sub _XPG4_EXTENDED () {1;}' unless defined(&_XPG4_EXTENDED); } eval 'sub _INCLUDE_AES_SOURCE () {1;}' unless defined(&_INCLUDE_AES_SOURCE); } if(defined(&_XPG4_EXTENDED)) { unless(defined(&_XPG4)) { eval 'sub _XPG4 () {1;}' unless defined(&_XPG4); } } if(defined(&_XOPEN_SOURCE)) { if(!defined( &_XPG2) && !defined( &_XPG3) && !defined( &_XPG4)) { eval 'sub _XPG4 () {1;}' unless defined(&_XPG4); } } if(defined(&_AES_SOURCE)) { if(!defined( &_XPG2) && !defined( &_XPG3) && !defined( &_XPG4)) { eval 'sub _XPG3 () {1;}' unless defined(&_XPG3); } } if(defined(&_INCLUDE_HPUX_SOURCE)) { if(!defined( &_XPG2) && !defined( &_XPG3) && !defined( &_XPG4)) { eval 'sub _XPG4 () {1;}' unless defined(&_XPG4); } } if(defined( &_XPG3) && !defined( &_XPG4) && !defined( &_POSIX_C_SOURCE)) { unless(defined(&_POSIX1_1988)) { eval 'sub _POSIX1_1988 () {1;}' unless defined(&_POSIX1_1988); } } if(defined(&_XPG4)) { unless(defined(&_INCLUDE_POSIX2_SOURCE)) { eval 'sub _INCLUDE_POSIX2_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX2_SOURCE); } } if(defined(&_POSIX2_SOURCE)) { unless(defined(&_POSIX_C_SOURCE)) { eval 'sub _POSIX_C_SOURCE () {2;}' unless defined(&_POSIX_C_SOURCE); } } if(defined( &_POSIX_C_SOURCE)) { if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) >= 199309) && !defined( &_INCLUDE_POSIX4_SOURCE)) { eval 'sub _INCLUDE_POSIX4_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX4_SOURCE); } if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) > 1) && !defined( &_INCLUDE_POSIX2_SOURCE)) { eval 'sub _INCLUDE_POSIX2_SOURCE () {1;}' unless defined(&_INCLUDE_POSIX2_SOURCE); } } if(defined( &__STDC__) || defined( &__cplusplus)) { unless(defined(&_PROTOTYPES)) { eval 'sub _PROTOTYPES () {1;}' unless defined(&_PROTOTYPES); } } if(!defined( &_WSIO) && !defined( &_SIO)) { if(defined( &__hp9000s700) || defined( &__hp9000s300)) { eval 'sub _WSIO () {1;}' unless defined(&_WSIO); } else { eval 'sub _SIO () {1;}' unless defined(&_SIO); } } if(defined( &__STDC_EXT__) || !defined( &__STDC__) || defined( &__LP64__)) { if(defined(&__LP64__)) { unless(defined(&_FILE_OFFSET_BITS)) { eval 'sub _FILE_OFFSET_BITS () {64;}' unless defined(&_FILE_OFFSET_BITS); } else { if((defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : 0) != 64) { die("_FILE_OFFSET_BITS definition incompatible with __LP64__."); } } } if(defined(&_FILE_OFFSET_BITS)) { if((defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : 0) == 64) { eval 'sub _FILE64 () {1;}' unless defined(&_FILE64); } else { if((defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : 0) != 32) { die("_FILE_OFFSET_BITS defined to invalid number!!"); } } } eval 'sub _LFS_LARGEFILE () {1;}' unless defined(&_LFS_LARGEFILE); eval 'sub _LFS64_LARGEFILE () {1;}' unless defined(&_LFS64_LARGEFILE); if(defined(&_LARGEFILE64_SOURCE)) { unless(defined(&_LARGEFILE_SOURCE)) { eval 'sub _LARGEFILE_SOURCE () {1;}' unless defined(&_LARGEFILE_SOURCE); } } } else { if(defined(&_FILE_OFFSET_BITS)) { if(!defined( &__LP64__) && (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : 0) == 64) { die("Large Files (ILP32) not supported in strict ANSI mode."); } } if(defined(&_LARGEFILE64_SOURCE)) { die("Large File interfaces not supported in strict ANSI mode."); } } } 1;
Flags: category=utilities severity=high
Site configuration information for perl v5.6.1:
Configured by surely at Fri Oct 5 16:46:50 CDT 2001.
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration: Platform: osname=hpux\, osvers=10.20\, archname=PA-RISC2.0 uname='hp-ux crchhha0 b.10.20 c 9000785 2008512767 32-user license ' config_args='' hint=recommended\, useposix=true\, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef Compiler: cc='cc'\, ccflags =' -D_HPUX_SOURCE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -Ae'\, optimize='-O'\, cppflags='-D_HPUX_SOURCE -Aa' ccversion='A.10.32.20'\, gccversion=''\, gccosandvers='' intsize=4\, longsize=4\, ptrsize=4\, doublesize=8\, byteorder=4321 d_longlong=define\, longlongsize=8\, d_longdbl=define\, longdblsize=16 ivtype='long'\, ivsize=4\, nvtype='double'\, nvsize=8\, Off_t='off_t'\, lseeksize=8 alignbytes=8\, usemymalloc=y\, prototype=define Linker and Libraries: ld='ld'\, ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt -lsec perllibs=-lnsl_s -ldld -lm -lc -lndir -lcrypt -lsec libc=/lib/libc.sl\, so=sl\, useshrplib=false\, libperl=libperl.a Dynamic Linking: dlsrc=dl_hpux.xs\, dlext=sl\, d_dlsymun=undef\, ccdlflags='-Wl\,-E -Wl\,-B\,deferred ' cccdlflags='+z'\, lddlflags='-b +vnocompatwarnings -L/usr/local/lib'
Locally applied patches:
@INC for perl v5.6.1: /opt/corp/local/perl-5.6.1/lib/5.6.1/PA-RISC2.0 /opt/corp/local/perl-5.6.1/lib/5.6.1 /opt/corp/local/perl-5.6.1/lib/site_perl/5.6.1/PA-RISC2.0 /opt/corp/local/perl-5.6.1/lib/site_perl/5.6.1 /opt/corp/local/perl-5.6.1/lib/site_perl .
Environment for perl v5.6.1: HOME=/users/guest/tmp/surely LANG=C LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/usr/dt/bin:/usr/bin/X11:/usr/bin:/bin:/usr/ccs/bin:/opt/corp/local/bin:/opt/corp/tools/bin:/bnr/tools/bin:/bnr/tools/bin/hppa:/bnr/3rdparty/bin:/bnr/3rdparty/bin/hppa:/usr/pde/mentor/release/current/bin_hppa:/usr/pde/mentor/release/current/bin:/bnr/tools/obj/dms/bin:/bnr/tools/obj/dms/bin/hppa:/usr/pde/pls/current/bin:/usr/pde/bin:/opt/bootleg/bin:/gsm/tools/obj/gpp/bin:/gsm/common/bin:/opt/corp/mnt/ntcad_hp/ntcad/bin:/tke/bin:/opt/corp/mnt/gsm/gap/release/current/hppa/bin:/opt/automation/ttf/current/devtools:/opt/corp/mnt/gsm/gap/local/srp/hppa/bin:/bnr/gsmauto/bin_hp700:/bnr/bootleg/bin:/bnr/bootleg/bin/hppa:/usr/softbench/bin:/team/bin:/opt/ansic/bin:/opt/nettladm/bin:/opt/langtools/bin:/opt/pd/bin:/opt/upgrade/bin:/opt/ved/bin:/opt/imake/bin:/usr/sbin:/opt/aCC/bin:/opt/CC/bin:/opt/perf/bin:/opt/hparray/bin:/usr/contrib/bin:/opt/corp/contrib/bin:/usr/local/bin:/usr/contrib/bin/X11:/users/guest/tmp/surely/bin:/users/guest/tmp/surely/bin/hppa PERL_BADLANG (unset) SHELL=/bin/ksh SHLIB_PATH=/team/lib
Migrated from rt.perl.org#7912 (status was 'stalled')
Searchable as RT7912$