Differenze tra le versioni di "Execv ()"

Da Gambas-it.org - Wikipedia.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 23: Riga 23:
  
  
In quest'altro esempio viene lanciato il programma Terminale ''xterm'', dal quale si fa lanciare il lettore audio ''vlc'' che eseguirà un file audio:
+
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:
 
  <FONT color=Gray>' ''int execv (const char *__path, char *const __argv[])''
 
  <FONT color=Gray>' ''int execv (const char *__path, char *const __argv[])''
 
  ' ''Execute PATH with arguments ARGV and environment from `environ'.''</font>
 
  ' ''Execute PATH with arguments ARGV and environment from `environ'.''</font>
Riga 34: Riga 34:
 
    
 
    
 
  '''End'''
 
  '''End'''
Di seguito il medesimo esempio, ma utilizzando l'emulatore di terminale ''gnome-terminal'':
+
Di seguito il medesimo esempio, ma utilizzando l'emulatore di Terminale ''gnome-terminal'':
 
  <FONT color=Gray>' ''int execv (const char *__path, char *const __argv[])''
 
  <FONT color=Gray>' ''int execv (const char *__path, char *const __argv[])''
 
  ' ''Execute PATH with arguments ARGV and environment from `environ'.''</font>
 
  ' ''Execute PATH with arguments ARGV and environment from `environ'.''</font>
Riga 44: Riga 44:
 
   <FONT color=#B22222>execv</font>(System.Find("gnome-terminal"), [" ", "-x", System.Find("vlc"), "/percorso/del/file/audio"])
 
   <FONT color=#B22222>execv</font>(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
 +
 +
<FONT color=Gray>' ''__pid_t fork (void)''
 +
' ''Clone the calling process, creating an exact copy.''</font>
 +
Private Extern fork() As Integer
 +
 +
<FONT color=Gray>' ''int execv (const char *__path, char *const __argv[])''
 +
' ''Execute PATH with arguments ARGV and environment from `environ'.''</font>
 +
Private Extern <FONT color=#B22222>execv</font>(path As String, argv As String[]) as Integer In "<FONT color=#B22222>libc:6</font>"
 +
 +
<FONT color=Gray>' ''int kill (__pid_t __pid, int __sig)''
 +
' ''Send signal SIG to process number PID.''</font>
 +
Private Extern kill_C(__pid As Integer, __sig As Integer) As Integer Exec "kill"
 +
 
 +
 +
'''Public''' Sub Main()
 +
 +
  pid = fork()
 +
 +
  If pid = 0 Then
 +
    <FONT color=#B22222>execv</font>(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'''
 
  '''End'''

Versione attuale delle 11:01, 16 ott 2015

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