| 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 | }}} |