home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / bits / sigaction.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  1.5 KB  |  44 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SIGNAL_H)) {
  6.     die("Never include <bits/sigaction.h> directly; use <signal.h> instead.");
  7. }
  8. if(defined(&__USE_POSIX199309)) {
  9.     eval 'sub sa_handler () { ($__sigaction_handler->{sa_handler});}' unless defined(&sa_handler);
  10.     eval 'sub sa_sigaction () { ($__sigaction_handler->{sa_sigaction});}' unless defined(&sa_sigaction);
  11. } else {
  12. }
  13. unless(defined(&SA_NOCLDSTOP)) {
  14.     sub SA_NOCLDSTOP () {    1;}
  15. }
  16. unless(defined(&SA_NOCLDWAIT)) {
  17.     sub SA_NOCLDWAIT () {    2;}
  18. }
  19. unless(defined(&SA_SIGINFO)) {
  20.     sub SA_SIGINFO () {    4;}
  21. }
  22. if(defined (defined(&__USE_UNIX98) ? &__USE_UNIX98 : 0) || defined (defined(&__USE_MISC) ? &__USE_MISC : 0)) {
  23.     eval 'sub SA_ONSTACK () {0x8000000;}' unless defined(&SA_ONSTACK);
  24.     eval 'sub SA_RESTART () {0x10000000;}' unless defined(&SA_RESTART);
  25.     eval 'sub SA_NODEFER () {0x40000000;}' unless defined(&SA_NODEFER);
  26.     eval 'sub SA_RESETHAND () {0x80000000;}' unless defined(&SA_RESETHAND);
  27. }
  28. if(defined(&__USE_MISC)) {
  29.     eval 'sub SA_INTERRUPT () {0x20000000;}' unless defined(&SA_INTERRUPT);
  30.     eval 'sub SA_NOMASK () { &SA_NODEFER;}' unless defined(&SA_NOMASK);
  31.     eval 'sub SA_ONESHOT () { &SA_RESETHAND;}' unless defined(&SA_ONESHOT);
  32.     eval 'sub SA_STACK () { &SA_ONSTACK;}' unless defined(&SA_STACK);
  33. }
  34. unless(defined(&SIG_BLOCK)) {
  35.     sub SIG_BLOCK () {    0;}
  36. }
  37. unless(defined(&SIG_UNBLOCK)) {
  38.     sub SIG_UNBLOCK () {    1;}
  39. }
  40. unless(defined(&SIG_SETMASK)) {
  41.     sub SIG_SETMASK () {    2;}
  42. }
  43. 1;
  44.