Differenze tra le versioni di "Exit () - exit ()"

Da Gambas-it.org - Wikipedia.
 
Riga 15: Riga 15:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim i As Integer
 
   Dim i As Integer
Riga 22: Riga 22:
 
     Print i
 
     Print i
 
  <FONT color=Gray>' ''Giunta la variabile "i" a 1000, la funzione esterna "exit_C", ossia "exit()", chiude il programma:''</font>
 
  <FONT color=Gray>' ''Giunta la variabile "i" a 1000, la funzione esterna "exit_C", ossia "exit()", chiude il programma:''</font>
−
     If i = 1000 Then <FONT color=#B22222>exit_C(0)</font>
+
     If i == 1000 Then <FONT color=#B22222>exit_C(0)</font>
 
     Inc i
 
     Inc i
 
   Loop
 
   Loop
 
   
 
   
−
  '''End'''
+
  End
  
  
Riga 38: Riga 38:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim i As Integer
 
   Dim i As Integer
Riga 46: Riga 46:
 
   Do
 
   Do
 
     Inc i
 
     Inc i
−
     If i = 10000 Then asm_C(0)
+
     If i == 10000 Then asm_C(0)
 
     Wait 0.001
 
     Wait 0.001
 
     Print i
 
     Print i
 
   Loop
 
   Loop
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
−
  '''Private''' Procedure Creaso()
+
   
 +
Private Procedure Creaso()
 
   
 
   
 
   File.Save("/tmp/Casm.c", "void asm_C(int b) {\n" &
 
   File.Save("/tmp/Casm.c", "void asm_C(int b) {\n" &
Riga 65: Riga 66:
 
   Shell "gcc -o /tmp/Casm.so /tmp/Casm.c -shared" Wait
 
   Shell "gcc -o /tmp/Casm.so /tmp/Casm.c -shared" Wait
 
   
 
   
−
  '''End'''
+
  End
  
  
Riga 84: Riga 85:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim i As Integer
 
   Dim i As Integer
Riga 91: Riga 92:
 
     Print i
 
     Print i
 
  <FONT color=Gray>' ''Giunta la variabile "i" a 1000, la funzione esterna "_exit" chiude il programma:''</font>
 
  <FONT color=Gray>' ''Giunta la variabile "i" a 1000, la funzione esterna "_exit" chiude il programma:''</font>
−
     If i = 1000 Then <FONT color=#B22222>_exit(0)</font>
+
     If i == 1000 Then <FONT color=#B22222>_exit(0)</font>
 
     Inc i
 
     Inc i
 
   Loop
 
   Loop
 
   
 
   
−
  '''End'''
+
  End
 
Si dovrebbe usare la funzione "_exit()" per interrompere il programma ''Figlio'', quando la funzione ''exec'' fallisce, perché in questa situazione, il processo ''Figlio'' può interferire con i dati esterni (file) del processo ''Padre''.
 
Si dovrebbe usare la funzione "_exit()" per interrompere il programma ''Figlio'', quando la funzione ''exec'' fallisce, perché in questa situazione, il processo ''Figlio'' può interferire con i dati esterni (file) del processo ''Padre''.
 
<BR>Per lo stesso motivo, si dovrebbe anche usare "_exit()" in qualsiasi processo figlio che non fa un exec, ma quelli sono rari.
 
<BR>Per lo stesso motivo, si dovrebbe anche usare "_exit()" in qualsiasi processo figlio che non fa un exec, ma quelli sono rari.

Versione attuale delle 10:44, 13 giu 2024

Uso della funzione "exit()"

La funzione, dichiarata nel file header "/usr/include/stdlib.h": 

void exit(int status)

termina il programma. I buffer dei file vengono svuotati, i flussi sono chiusi, ed i file temporanei vengono eliminati. In sostanza la funzione esterna "exit()" termina l'intero processo, senza tenere in debita considerazione dei rilasci di risorse (deallocazione di memoria, chiusura di connessioni internet, etc.). Dovrebbe essere usato solo per particolarissimi casi di necessità, come ad esempio per out of memory, per spazio disco terminato o per gravi errori hardware.

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 "exit()" è omonima alla funzione di Gambas "Exit", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
Il parametro della funzione sarà posto a zero.
Dunque avremo ad esempio: 

Private Extern exit_C(status As Integer) In "libc:6" Exec "exit"

Semplice esempio di uso in Gambas: 

' void exit(int status)
' Terminates the calling process immediately. Any open file descriptors belonging to the process are closed.
Private Extern exit_C(status As Integer) In "libc:6" Exec "exit"


Public Sub Main()

 Dim i As Integer
 
 Do
   Print i
' Giunta la variabile "i" a 1000, la funzione esterna "exit_C", ossia "exit()", chiude il programma:
   If i == 1000 Then exit_C(0)
   Inc i
 Loop

End


Ottenere il medesimo effetto della funzione exit() con l'Assembly

Per ottenere l'uscita dal programma, potremmo utilizzare l'Assembly chiamando la syscall corrispondente alla funzione 1 dell'interrupt 0x80.

In questo esempio creeremo un'apposita libreria esterna scritta in C, nella quale sarà inserito inline il necessario codice in linguaggio Assembly: 

' void asm_C(int i)
' Termina un programma liberando tutta la memoria impegnata per esso.
Private Extern asm_C(b As Integer) In "/tmp/Casm"


Public Sub Main()

 Dim i As Integer

 Creaso()
 
 Do
   Inc i
   If i == 10000 Then asm_C(0)
   Wait 0.001
   Print i
 Loop

End


Private Procedure Creaso()

 File.Save("/tmp/Casm.c", "void asm_C(int b) {\n" &
           "   int a;\n\n" &
           "   __asm__(\"mov $1, %%eax;\"\n" &
           "   \"mov $0,%%ebx;\"\n" &
           "   \"int $0x80;\"\n" &
           "   : \"=a\" (a)\n" &
           "   : \"b\" (b)\n);\n\n}")

 Shell "gcc -o /tmp/Casm.so /tmp/Casm.c -shared" Wait

End


Uso della funzione "_exit()"

La funzione, dichiarata nel file header /usr/include/unistd.h: 

void _exit (int __status)

rispetto alla funzione "exit()" non chiama la funzione "fflush()" per lo svuotamento dei buffer associati all'I/O bufferizzato.

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

Dunque avremo ad esempio: 

Private Extern _exit(__status As Integer) In "libc:6"

Semplice esempio di uso in Gambas: 

' void _exit(int __status)
' Terminate program execution with the low-order 8 bits of STATUS.
Private Extern _exit(__status As Integer) In "libc:6"


Public Sub Main()

 Dim i As Integer
 
 Do
   Print i
' Giunta la variabile "i" a 1000, la funzione esterna "_exit" chiude il programma:
   If i == 1000 Then _exit(0)
   Inc i
 Loop

End

Si dovrebbe usare la funzione "_exit()" per interrompere il programma Figlio, quando la funzione exec fallisce, perché in questa situazione, il processo Figlio può interferire con i dati esterni (file) del processo Padre.
Per lo stesso motivo, si dovrebbe anche usare "_exit()" in qualsiasi processo figlio che non fa un exec, ma quelli sono rari.

In tutti gli altri casi, basta usare la funzione "exit()".


Riferimenti

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Exit_()_-_exit_()&oldid=37066"