MINICERN/packlib/kernlib/kerngen/ccgen/sigprnt.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:34:42  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:29:42  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:27  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 /*>    ROUTINE SIGPRNT
  17   CERN PROGLIB#         SIGPRNT         .VERSION KERNFOR  4.42  951011
  18   ORIG. 10/10/95, JZ
  19   print the mask of blocked signals    */
  20 #include <stdio.h>
  21 #include <signal.h>
  22 #include "kerngen/fortranc.h"
  23
  24 #if defined(CERNLIB_QX_SC)
  25 void type_of_call sigprnt_()
  26 #endif
  27 #if defined(CERNLIB_QXNO_SC)
  28 void  type_of_call sigprnt()
  29 #endif
  30 #if defined(CERNLIB_QXCAPT)
  31 void  type_of_call SIGPRNT()
  32 #endif
  33 {
  34 #ifndef CERNLIB_WINNT
  35       sigset_t   oldmask;
  36
  37       sigprocmask (NULL, NULL, &oldmask);
  38
  39       printf (" blocked signals are: %x\n", oldmask);
  40 #else
  41       printf ("Printing the mask of blocked signal isn't implemented for Windows\n");
  42 #endif
  43       return;
  44 }
  45 /*> END <----------------------------------------------------------*/