Kill()

La funzione della libreria di C

int kill (__pid_t __pid, int __sig)

è una chiamata di sistema che invia un segnale a un processo, inividuato dal suo PID e contenuto nel parametro pid. Se pid è maggiore di zero, il segnale viene inviato al processo avente l'ID di processo uguale al parametro pid. Se pid è 0, il segnale viene inviato a tutti i processi, tranne i processi di sistema.

Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta. Da sottolineare che, poiché questa funzione esterna di C "kill" è omonima alla funzione di Gambas "Kill", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
Dunque avremo ad esempio:

Private Extern kill_C(__pid As Integer, __sig As Integer) As Integer In "libc:6" Exec "kill"

In questo esempio si provvederà a chiudere un programma esterno ("Gedit"), aperto con l'istruzione "Shell" e di cui si gestisce il processo con le risorse della Classe "Process":

Private Const SIGKILL As Integer = 9
Private hp As Process
 
' int kill (__pid_t __pid, int __sig)
' Send signal SIG to process number PID.
Private Extern kill_C(__pid As Integer, __sig As Integer) As Integer In "libc:6" Exec "kill"


Public Sub Form_Open()

' Viene lanciato il programma editor di testo "Gedit":
 hp = Shell "gedit"
   
End

Public Sub Button1_Click()

' Chiudiamo il programma "gedit" mediante la funzione "kill()" di C:
 kill_C(hp.Handle + 1, SIGKILL)

 hp.Close

End

Oppure volendo chiudere la stessa applicazione Gambas:

Private Const SIGKILL As Integer = 9

' int kill (__pid_t __pid, int __sig)
' Send signal SIG to process number PID.
Private Extern kill_C(pid As Integer, signal As Integer) As Integer In "libc:6" Exec "kill"


Public Sub Menu()

 Dim c As Short

 While True
   If c == 300 Then kill_C(Application.Handle, SIGKILL)
   Inc c
   Print c
   Wait 0.01
 Wend

End