Versione delle 15:46, 20 ago 2020

La funzione della libreria di C

size_t fwrite (const void *__ptr, size_t __size, size_t __n, FILE *__s)

scrive in un flusso n blocchi (nmemb) di dati, aventi ciascuno una dimensione di size byte, memorizzati nel buffer puntato da un Puntatore (ptr). Ritorna il numero di byte scritti nel flusso.

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 fwrite(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long In "libc:6"

Semplice esempio uso in Gambas in combinazione con le funzioni fread(), fseek() e fclose(): ^{[Nota 1]}

Library "libc:6"

Private Const SEEK_SET As Integer = 0

Private Extern fopen(fl As String, mode As String) As Pointer

' size_t fwrite (const void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __s)
' Write chunks of generic data to STREAM.
Private Extern fwrite(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long

Private Extern fseek(__stream As Pointer, __off As Long, __whence As Integer) As Integer

Private Extern fread(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long

Private Extern fclose(__stream As Pointer) As Integer


Public Sub Main()
 
 Dim p, pw, pr As Pointer
' Al termine di una stringa alfanumerica è opportuno porre il valore aritmetico di zero (null),
' affinché usando poi la funzione "String@()" siano mostrati soltanto i valori precedenti quello zero:
 Dim s As String = "Testo qualsiasi\0"


' Poiché la variabile contenente i dati da scrivere nel flusso, e la variabile, nella quale si dovranno memorizzare i dati letti dal flusso,
' sono di tipo "Puntatore", allora anche nel codice Gambas si dovranno passare delle variabili di tipo "Puntatore":
  pw = Alloc(s)
  pr = Alloc(len(s))
 
  p = fopen("/tmp/f", "w+")
 
  fwrite(pw, 1, len(s), p)
  
  fseek(p, 0, SEEK_SET)

  fread(pr, 1, len(s), p)
       
  Print String@(pr)
 
  fclose(p)

  free(pw)
  free(pr)

End

Note

[1] L'istruzione "fwrite()" del C può essere agevolmente emulata in Gambas con l'uso dell'istruzione "Write()" seguita nel primo campo dalla variabile di tipo File, nel secondo campo da una variabile di tipo Puntatore che punta ad un'area di memoria contenente i dati da scrivere nel flusso, e da un terzo campo che esplicita il numero di dati da scrivere:

Write #file, puntatore, numero_di_dati