| | 1 | = SoftWare/SignalCheckpoint / API - Application Programming Interface = |
| | 2 | |
| | 3 | Le module Fortran '''{{{Signal_Checkpoint}}}''' exporte un certain nombre de signaux. |
| | 4 | Plutôt que de mettre tous les signaux, seuls les signaux utiles ont été définis. |
| | 5 | Il est très facile d'en rajouter un s'il le faut. |
| | 6 | {{{ |
| | 7 | integer,parameter :: SIGHUP = 1 ! Signal HUP |
| | 8 | integer,parameter :: SIGINT = 2 ! Signal INT |
| | 9 | integer,parameter :: SIGQUIT = 3 ! Signal QUIT |
| | 10 | integer,parameter :: SIGUSR1 = 10 ! Signal USR1 |
| | 11 | integer,parameter :: SIGUSR2 = 12 ! Signal USR2 |
| | 12 | integer,parameter :: SIGTERM = 15 ! Signal TERM |
| | 13 | integer,parameter :: SIGXCPU = 24 ! Signal XCPU |
| | 14 | }}} |
| | 15 | |
| | 16 | Quelques procédures et fonctions permettent la gestion de ces signaux |
| | 17 | |
| | 18 | * '''{{{signal_checkpoint_connect}}}''' |
| | 19 | {{{ |
| | 20 | subroutine signal_checkpoint_connect (SIG_NUM, EXIT) |
| | 21 | integer,intent(in) :: SIG_NUM |
| | 22 | logical,intent(in),optional :: EXIT |
| | 23 | }}} |
| | 24 | |
| | 25 | * '''{{{signal_checkpoint_is_received}}}''' |
| | 26 | {{{ |
| | 27 | function signal_checkpoint_is_received () result (IS_RECEIVED) |
| | 28 | logical :: IS_RECEIVED |
| | 29 | }}} |
| | 30 | |
| | 31 | * '''{{{signal_checkpoint_ask_for_exit_code}}}''' |
| | 32 | {{{ |
| | 33 | function signal_checkpoint_ask_for_exit_code () result (EXIT) |
| | 34 | logical :: EXIT |
| | 35 | }}} |
| | 36 | |
| | 37 | * '''{{{signal_checkpoint_received_times}}}''' |
| | 38 | {{{ |
| | 39 | function signal_checkpoint_received_times () result (RECEIVED_TIMES) |
| | 40 | integer :: RECEIVED_TIMES |
| | 41 | }}} |