Differenze tra le versioni di "Kill()"

Da Gambas-it.org - Wikipedia.
 
Riga 3: Riga 3:
 
è 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.
 
è 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'' " è <SPAN style="text-decoration:underline">omonima</span> alla funzione di Gambas "''Kill'' ", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando ''Exec''.
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''" è <SPAN style="text-decoration:underline">omonima</span> alla funzione di Gambas "''Kill''", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando ''Exec''.
 
 
<BR>Dunque avremo ad esempio:
 
<BR>Dunque avremo ad esempio:
 
  Private <FONT color=#B22222>Extern kill_C</font>(__pid As Integer, __sig As Integer) As Integer In "<FONT color=#B22222>libc:6"</font> <FONT color=#B22222>'''Exec "kill"'''</font>
 
  Private <FONT color=#B22222>Extern kill_C</font>(__pid As Integer, __sig As Integer) As Integer In "<FONT color=#B22222>libc:6"</font> <FONT color=#B22222>'''Exec "kill"'''</font>
Riga 18: Riga 17:
 
   
 
   
 
   
 
   
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
  <FONT Color=gray>' ''Viene lanciato il programma editor di testo "Gedit":''</font>
 
  <FONT Color=gray>' ''Viene lanciato il programma editor di testo "Gedit":''</font>
 
   hp = Shell "gedit"
 
   hp = Shell "gedit"
   
 
'''End'''
 
 
   
 
   
  '''Public''' Sub Button1_Click()
+
  End
 +
 +
 +
Public Sub Button1_Click()
 
   
 
   
 
  <FONT Color=gray>' ''Chiudiamo il programma "gedit" mediante la funzione "kill()" di C:''</font>
 
  <FONT Color=gray>' ''Chiudiamo il programma "gedit" mediante la funzione "kill()" di C:''</font>
Riga 32: Riga 32:
 
   hp.Close
 
   hp.Close
 
   
 
   
  '''End'''
+
  End
  
  
Riga 43: Riga 43:
 
   
 
   
 
   
 
   
  '''Public''' Sub Menu()
+
  Public Sub Menu()
 
   
 
   
 
   Dim c As Short
 
   Dim c As Short
 
   
 
   
   While True
+
   Do
 
     If c == 300 Then <FONT color=#B22222>kill_C(Application.Handle, SIGKILL)</font>
 
     If c == 300 Then <FONT color=#B22222>kill_C(Application.Handle, SIGKILL)</font>
 
     Inc c
 
     Inc c
 
     Print c
 
     Print c
 
     Wait 0.01
 
     Wait 0.01
   Wend
+
   Loop
 
   
 
   
  '''End'''
+
  End

Versione attuale delle 12:08, 13 giu 2024

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

 Do
   If c == 300 Then kill_C(Application.Handle, SIGKILL)
   Inc c
   Print c
   Wait 0.01
 Loop

End