1 2 3 4 5 6 7 8 9 10 11 12 13 14 | with Ada.Interrupts.Names; package Signals is pragma Unreserve_All_Interrupts; protected Signal_Handler is procedure On_Term_Signal; pragma Attach_Handler (On_Term_Signal, Ada.Interrupts.Names.SIGTERM); end Signal_Handler; end Signals; |