Differenze tra le versioni di "Signal ()"

Da Gambas-it.org - Wikipedia.
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
La funzione della libreria di C
+
La funzione
−
  void (*signal(int signum, void (*sighandler)(int)))(int);
+
  void (*signal(int signum, void (*sighandler)(int)))(int)
−
gestisce i segnali che riguardano il programma, chiamando una funzione particolare in presenza di un determinato segnale. ''Signal()'', dunque, associa un determinato segnale, indicato dal parametro ''signum'', alla chiamata della funzione
+
gestisce i segnali che riguardano il programma, chiamando una funzione particolare in presenza di un determinato segnale. "Signal()", dunque, associa un determinato segnale, indicato dal parametro ''signum'', alla chiamata della funzione ''sighandler''. Questo secondo parametro è più specificatamente un ''Puntatore'' a funzione (se ne dovrà tenere conto poi usando tale funzione nel codice Gambas), e può essere impostato in uno dei tre seguenti modi:
−
''sighandler''. Questo secondo parametro è più specificatamente un ''Puntatore'' a funzione (se ne dovrà tenere conto poi usando tale funzione nel codice Gambas), e può essere impostato in uno dei tre seguenti modi:
 
 
* SIG_DFL : viene eseguita dal processo l'azione prevista dal segnale indicato nel primo parametro;
 
* SIG_DFL : viene eseguita dal processo l'azione prevista dal segnale indicato nel primo parametro;
 
* SIG_IGN : il segnale (fatta eccezione per SIGKILL e SIGSTOP), indicato nel primo parametro, è ignorato;
 
* SIG_IGN : il segnale (fatta eccezione per SIGKILL e SIGSTOP), indicato nel primo parametro, è ignorato;
Riga 10: Riga 9:
 
Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
 
Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
 
  Private <FONT color=#B22222>Extern signal</font>(signum As Integer, sighandler As Pointer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
  Private <FONT color=#B22222>Extern signal</font>(signum As Integer, sighandler As Pointer) As Integer In "<FONT color=#B22222>libc:6</font>"
−
 
+
Semplice esempio di uso in Gambas congiuntamente con la funzione ''alarm()'': <SUP>&#091;[[#Note|Nota 1]]&#093;</sup>
−
 
 
−
Semplice esempio di uso in Gambas congiuntamente con la funzione ''alarm()'':
 
 
  Library "libc:6"
 
  Library "libc:6"
 
   
 
   
Riga 30: Riga 27:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
  <FONT color=Gray>' ''Gestione del segnale SIGALRM:''</font>
 
  <FONT color=Gray>' ''Gestione del segnale SIGALRM:''</font>
−
  <FONT color=#B22222>signal(SIGALRM, post_alarm)</font>
+
  <FONT color=#B22222>signal(SIGALRM, post_alarm)</font>
 
   
 
   
 
  <FONT color=Gray>' ''Attivazione del segnale di allarme dopo 3 secondi:''</font>
 
  <FONT color=Gray>' ''Attivazione del segnale di allarme dopo 3 secondi:''</font>
−
  alarm(3)
+
  alarm(3)
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Private''' Function post_alarm(segno As Integer) <FONT color=Gray>' ''"segno" passa il valore del 1° parametro di "signal()"''</font>
+
  Private Function post_alarm(segno As Integer) <FONT color=Gray>' ''"segno" passa il valore del 1° parametro di "signal()"''</font>
 
    
 
    
 
   Print "\nRicevuto il segnale "; segno; " - Termine del programma"
 
   Print "\nRicevuto il segnale "; segno; " - Termine del programma"
Riga 47: Riga 44:
 
   exit_C(0)
 
   exit_C(0)
 
    
 
    
−
  '''End'''
+
  End
−
 
 
  
  
Riga 69: Riga 65:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   signal(SIGALRM, wait_alarm)      <FONT color=Gray>' ''gestione del segnale SIGALRM''</font>
 
   signal(SIGALRM, wait_alarm)      <FONT color=Gray>' ''gestione del segnale SIGALRM''</font>
Riga 81: Riga 77:
 
   Wend
 
   Wend
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Private''' Procedure wait_alarm(isignal As Integer)
+
  Private Procedure wait_alarm(isignal As Integer)
 
   
 
   
 
   Print "\nRicevuto il segnale "; isignal; " - Termine programma"
 
   Print "\nRicevuto il segnale "; isignal; " - Termine programma"
Riga 91: Riga 87:
 
   bo = False
 
   bo = False
 
   
 
   
−
  '''End'''
+
  End
−
 
+
oppure usando la funzione "pause()" della libreria ''unistd.h'':
−
 
 
−
oppure usando la funzione ''pause()'' della libreria ''unistd.h'':
 
 
  Library "libc:6"
 
  Library "libc:6"
 
   
 
   
Riga 112: Riga 106:
 
    
 
    
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   signal(SIGALRM, wait_alarm)      <FONT color=Gray>' ''gestione del segnale SIGALRM''</font>
 
   signal(SIGALRM, wait_alarm)      <FONT color=Gray>' ''gestione del segnale SIGALRM''</font>
Riga 119: Riga 113:
 
   alarm(4)
 
   alarm(4)
 
   
 
   
−
  <FONT color=Gray>' ''Invochiamo la funzione esterna "pause()" che sospenderà il processo''
+
  <FONT color=Gray>' ''Invochiamo la funzione esterna "pause()" che sospenderà il processo sino a quando non giungerà il segnale:''</font>
−
' ''sino a quando non giungerà il segnale:''</font>
 
 
   pause()
 
   pause()
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Private''' Procedure wait_alarm(isignal As Integer)
+
  Private Procedure wait_alarm(isignal As Integer)
 
   
 
   
 
   Print "\nRicevuto il segnale "; isignal; " - Termine programma"
 
   Print "\nRicevuto il segnale "; isignal; " - Termine programma"
 
    
 
    
−
  '''End'''
+
  End
−
 
 
−
 
 
 
Si può scrivere un codice per creare un ciclo temporizzato, come se si usasse la Classe ''Timer'' di Gambas:
 
Si può scrivere un codice per creare un ciclo temporizzato, come se si usasse la Classe ''Timer'' di Gambas:
 
  Private v As Boolean
 
  Private v As Boolean
Riga 151: Riga 142:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
−
  signal(SIGALRM, wait_alarm)
+
  signal(SIGALRM, wait_alarm)
 
    
 
    
−
  alarm(1)
+
  alarm(1)
 
   
 
   
−
  v = True
+
  v = True
 
   
 
   
 
  <FONT color=Gray>' ''Attiviamo il ciclo per impedire che il processo giunga subito al termine:''</font>
 
  <FONT color=Gray>' ''Attiviamo il ciclo per impedire che il processo giunga subito al termine:''</font>
−
  While v
+
  While v
−
 
+
    wait 0.01
−
  Wend
+
  Wend
 +
   
 +
  Main()
 
   
 
   
−
  Main()
+
End
 
   
 
   
−
'''End'''
 
 
   
 
   
 +
Private Procedure wait_alarm(isignal As Integer)
 
   
 
   
−
'''Private''' Procedure wait_alarm(isignal As Integer)
+
  Inc i
 
   
 
   
−
  Inc i
+
  Print "Secondi trascorsi: "; i
 
   
 
   
−
  Print "Secondi trascorsi: "; i
+
  v = False
−
 
−
  v = False
 
 
    
 
    
−
  '''End'''
+
  End
−
 
 
−
 
 
 
In quest'altro esempio si provocherà la chiusura del programma, quando si premeranno i tasti Ctrl+C:
 
In quest'altro esempio si provocherà la chiusura del programma, quando si premeranno i tasti Ctrl+C:
 
  Library "libc:6"
 
  Library "libc:6"
Riga 190: Riga 179:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   signal(SIGINT, sighandler)
 
   signal(SIGINT, sighandler)
 
    
 
    
−
   While True
+
   Do
 
     Print "Ciclo con attesa di 1 secondo..."
 
     Print "Ciclo con attesa di 1 secondo..."
−
     Sleep 1
+
     Wait 1
−
   Wend
+
   Loop
 
    
 
    
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Private''' Procedure sighandler(signum As Integer)
+
  Private Procedure sighandler(signum As Integer)
 
    
 
    
 
   Print "Raccolto il segnale: "; signum; " - Termine del programma."
 
   Print "Raccolto il segnale: "; signum; " - Termine del programma."
Riga 208: Riga 197:
 
   Quit
 
   Quit
 
    
 
    
−
  '''End'''
+
  End
 +
In quest'altro esempio, nel quale verrà utilizzata la Classe "''Timer''" anziché un ciclo, si provocherà la chiusura del programma, quando si premeranno i tasti Ctrl+\ :
 +
Private tm As Timer
 +
 +
 +
Library "libc:6"
 +
 +
Private Const SIGQUIT As Integer = 3
 +
 +
<FONT Color=gray>' ''__sighandler_t signal (int __sig, __sighandler_t __handler)''
 +
' ''Set the handler for the signal SIG to HANDLER.''</font>
 +
Private Extern signal(__sig As Integer, __handler As Pointer) As Integer
 +
 +
 +
Public Sub Main()
 +
 
 +
  signal(SIGQUIT, sighandler)
 +
 
 +
  With tm = New Timer As "Tempus"
 +
    .Delay = 1000
 +
    .Start
 +
  End With
 +
   
 +
End
 +
 +
 +
Private Procedure sighandler(signum As Integer)
 +
 
 +
  Print "Raccolto il segnale: "; signum; " - Termine del programma."
 +
  tm.Stop
 +
  Quit
 +
 
 +
End
 +
 +
Public Sub Tempus_Timer()
 +
 
 +
  Print "Ciclo con attesa di 1 secondo..."
 +
 
 +
End
  
  
  
−
----
+
=Note=
−
Vedi anche la pagina relativa alla ''[[Alarm_()|funzione alarm()]]''
+
[1] Vedi anche la pagina relativa alla "[[Alarm_()|funzione alarm()]]".

Versione attuale delle 14:39, 16 giu 2024

La funzione 

void (*signal(int signum, void (*sighandler)(int)))(int)

gestisce i segnali che riguardano il programma, chiamando una funzione particolare in presenza di un determinato segnale. "Signal()", dunque, associa un determinato segnale, indicato dal parametro signum, alla chiamata della funzione sighandler. Questo secondo parametro è più specificatamente un Puntatore a funzione (se ne dovrà tenere conto poi usando tale funzione nel codice Gambas), e può essere impostato in uno dei tre seguenti modi:

  • SIG_DFL : viene eseguita dal processo l'azione prevista dal segnale indicato nel primo parametro;
  • SIG_IGN : il segnale (fatta eccezione per SIGKILL e SIGSTOP), indicato nel primo parametro, è ignorato;
  • una Funzione, stabilita dall'utente ed avente un parametro di tipo Intero, che sarà attivata dal segnale indicato nel primo parametro. Il valore di questo parametro sarà anche passato al parametro di tipo Intero della Funzione chiamata.


Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta: 

Private Extern signal(signum As Integer, sighandler As Pointer) As Integer In "libc:6"

Semplice esempio di uso in Gambas congiuntamente con la funzione alarm(): [Nota 1] 

Library "libc:6"

Private Const SIGALRM As Integer = 14

' void (*signal(int signum, void (*sighandler)(int)))(int)
' Sets a function to handle signal i.e. a signal handler with signal number sig.
Private Extern signal(signum As Integer, sighandler As Pointer) As Integer

' unsigned int alarm(unsigned int seconds)
' Schedule an alarm.
Private Extern alarm(seconds As Integer) As Integer
  
' void exit (int __status)
' Terminate program execution with STATUS.
Private Extern exit_C(status As Integer) Exec "exit"


Public Sub Form_Open()

' Gestione del segnale SIGALRM:
 signal(SIGALRM, post_alarm)

' Attivazione del segnale di allarme dopo 3 secondi:
 alarm(3)

End


Private Function post_alarm(segno As Integer) ' "segno" passa il valore del 1° parametro di "signal()"
 
 Print "\nRicevuto il segnale "; segno; " - Termine del programma"
 
 exit_C(0)
 
End


Esempio con applicazione a riga di comando

Lo stesso esempio può essere fatto con un'applicazione a riga di comando. In questo caso, però, deve essere utilizzato un ciclo nella procedura principale, dal quale si uscirà solo quando si attiverà la funione alarm(): 

Private bo As Boolean = True


Library "libc:6"

Private Const SIGALRM As Integer = 14

' void (*signal(int signum, void (*sighandler)(int)))(int)
' Set the handler for the signal SIG to HANDLER.
Private Extern signal(signum As Integer, wait_alarm As Pointer)

' unsigned int alarm(unsigned int seconds)
' Schedule an alarm.
Private Extern alarm(seconds As Integer) As Integer


Public Sub Main()

 signal(SIGALRM, wait_alarm)      ' gestione del segnale SIGALRM

' Il segnale di allarme scatterà dopo 4 secondi:
 alarm(4)

' Attiviamo il ciclo per impedire che il processo giunga subito al termine:
 While bo
   Sleep 0.01
 Wend

End


Private Procedure wait_alarm(isignal As Integer)

 Print "\nRicevuto il segnale "; isignal; " - Termine programma"
 
' Per terminare il programma, assegnamo il valore "False" alla variabile booleana "bo":
 bo = False

End

oppure usando la funzione "pause()" della libreria unistd.h: 

Library "libc:6"

Private Const SIGALRM As Integer = 14

' void (*signal(int signum, void (*sighandler)(int)))(int)
' Set the handler for the signal SIG to HANDLER.
Private Extern signal(signum As Integer, wait_alarm As Pointer)

' unsigned int alarm(unsigned int seconds)
' Schedule an alarm.
Private Extern alarm(seconds As Integer) As Integer

' int pause (void)
' Suspend the process until a signal arrives.
Private Extern pause() As Integer
 

Public Sub Main()

 signal(SIGALRM, wait_alarm)      ' gestione del segnale SIGALRM

' Il segnale di allarme scatterà dopo 4 secondi:
 alarm(4)

' Invochiamo la funzione esterna "pause()" che sospenderà il processo sino a quando non giungerà il segnale:
 pause()

End


Private Procedure wait_alarm(isignal As Integer)

 Print "\nRicevuto il segnale "; isignal; " - Termine programma"
 
End

Si può scrivere un codice per creare un ciclo temporizzato, come se si usasse la Classe Timer di Gambas: 

Private v As Boolean
Private i As Integer


Library "libc:6"

Private Const SIGALRM As Integer = 14

' void (*signal(int signum, void (*sighandler)(int)))(int)
' Set the handler for the signal SIG to HANDLER.
Private Extern signal(signum As Integer, wait_alarm As Pointer)

' unsigned int alarm(unsigned int seconds)
' Schedule an alarm.
Private Extern alarm(seconds As Integer) As Integer


Public Sub Main()

 signal(SIGALRM, wait_alarm)
 
 alarm(1)

 v = True

' Attiviamo il ciclo per impedire che il processo giunga subito al termine:
 While v
   wait 0.01
 Wend
   
 Main()

End


Private Procedure wait_alarm(isignal As Integer)

 Inc i

 Print "Secondi trascorsi: "; i

 v = False
 
End

In quest'altro esempio si provocherà la chiusura del programma, quando si premeranno i tasti Ctrl+C: 

Library "libc:6"

Private Const SIGINT As Integer = 2

' __sighandler_t signal (int __sig, __sighandler_t __handler)
' Set the handler for the signal SIG to HANDLER.
Private Extern signal(__sig As Integer, __handler As Pointer) As Integer


Public Sub Main()
 
 signal(SIGINT, sighandler)
 
 Do
   Print "Ciclo con attesa di 1 secondo..."
   Wait 1
 Loop
  
End


Private Procedure sighandler(signum As Integer)
 
 Print "Raccolto il segnale: "; signum; " - Termine del programma."
 
 Quit
 
End

In quest'altro esempio, nel quale verrà utilizzata la Classe "Timer" anziché un ciclo, si provocherà la chiusura del programma, quando si premeranno i tasti Ctrl+\ : 

Private tm As Timer


Library "libc:6"

Private Const SIGQUIT As Integer = 3

' __sighandler_t signal (int __sig, __sighandler_t __handler)
' Set the handler for the signal SIG to HANDLER.
Private Extern signal(__sig As Integer, __handler As Pointer) As Integer


Public Sub Main()
 
 signal(SIGQUIT, sighandler)
 
 With tm = New Timer As "Tempus"
   .Delay = 1000
   .Start
 End With
    
End


Private Procedure sighandler(signum As Integer)
 
 Print "Raccolto il segnale: "; signum; " - Termine del programma."
 tm.Stop
 Quit
 
End

Public Sub Tempus_Timer()
 
 Print "Ciclo con attesa di 1 secondo..."
 
End


Note

[1] Vedi anche la pagina relativa alla "funzione alarm()".

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Signal_()&oldid=37162"