Execv ()

Da Gambas-it.org - Wikipedia.

La funzione della libreria di C

int execv (const char *__path, char *const __argv[])

esegue il programma indicato dal suo percorso contenuto nella stringa del primo argomento __path. Al file del programma possono essere associati altri argomenti che rappresentano opzioni e file supportati dal comando del programma avviato.
Il primo elemento del vettore di tipo stringa, ossia del secondo parametro della funzione execv(), deve contenere uno spazio vuoto. L'eventuale file da passare ed utilizzare con il programma da lanciare, nonché le eventuali opzioni da passare, vanno posti dal secondo elemento del vettore di tipo Stringa.
Nel caso di errore la funzione execv() ritorna il valore -1, altrimenti in caso di successo non ritorna alcun valore.


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

Private Extern execv(path As String, argv As String[]) As Integer In "libc:6"


Semplice esempio di uso in Gambas, nel quale viene lanciato il programma "evince" ed aperto con esso un file pdf da internet:

' int execv (const char *__path, char *const __argv[])
' Execute PATH with arguments ARGV and environment from `environ'.
Private Extern execv(path As String, argv As String[]) as Integer In "libc:6"


Public Sub Main()
  
  execv(System.Find("evince"), [" ", "http:</www.indirizzo/web/del/file.pdf"])
  
End


In quest'altro esempio viene lanciato l'emulatore di Terminale xterm, dal quale si fa lanciare il lettore audio vlc che eseguirà un file audio:

' int execv (const char *__path, char *const __argv[])
' Execute PATH with arguments ARGV and environment from `environ'.
Private Extern execv(path As String, argv As String[]) as Integer In "libc:6"


Public Sub Main()
  
  execv(System.Find("xterm"), [" ", "-e", System.Find("vlc"), "/percorso/del/file/audio"])
  
End

Di seguito il medesimo esempio, ma utilizzando l'emulatore di Terminale gnome-terminal:

' int execv (const char *__path, char *const __argv[])
' Execute PATH with arguments ARGV and environment from `environ'.
Private Extern execv(path As String, argv As String[]) as Integer In "libc:6"


Public Sub Main()
  
  execv(System.Find("gnome-terminal"), [" ", "-x", System.Find("vlc"), "/percorso/del/file/audio"])
  
End


In questo esempio, molto simile ai precedenti, usando anche la funzione fork() sarà possibile ottenere il pid del processo del programma lanciato con la funzione execv(), e quindi - volendo - terminarlo arbitrariamente:

Private pid As Integer

Library "libc:6"

Private Const SIGKILL As Integer = 9

' __pid_t fork (void)
' Clone the calling process, creating an exact copy.
Private Extern fork() As Integer

' int execv (const char *__path, char *const __argv[])
' Execute PATH with arguments ARGV and environment from `environ'.
Private Extern execv(path As String, argv As String[]) as Integer In "libc:6"

' 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 Exec "kill"
 

Public Sub Main()

  pid = fork()

  If pid = 0 Then
    execv(System.Find("vlc"), [" ", "/percorso/del/file/audio"])
  Endif

End


Public Sub Application_Read()

 Dim s As String

  Input s

  If s <> Null Then kill_C(pid, SIGKILL)

End