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