      subroutine csub.signal.ignore(signal.number)
*
*
*
*
*
*
*
*
*
$catalog local
*
$include ccall.common
*
      equate libname to 'libc.so.6'
      equate fnname  to 'signal'
*
      $include ccall.getfn.include
*
      v1 = int2bin(signal.number,4)
      v2 = int2bin(1,4)

      s1 = cc$nul4
      s2 = CC$FN.PUSHVAL : v1 :        ~
           CC$FN.PUSHVAL : v2 :        ~
           CC$FN.CALLFN  : fn.handle : ~
           CC$FN.RTN32   : cc$0 :      ~
           CC$FN.EXIT
*
      return
   end
  
