Mmap ()
La funzione della libreria di C
void *mmap (void *__addr, size_t __len, int __prot, int __flags, int __fd, __off_t __offset)
crea una nuova mappatura nello spazio di indirizzi virtuali del processo chiamante. L'indirizzo di partenza per la nuova mappatura è specificato in addr. L'argomento length specifica la lunghezza della mappatura.
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 mmap(__addr As Pointer, __len As Long, __prot As Integer, __flags As Integer, __fd As Integer, __offset As Long) As Pointer In "libc:6"
Nel seguente esempio viene mappato un file per la lettura di tutti i suoi dati:
Library "libc:6"
Private Const MAP_FAILED As Integer = -1
Private Const PROT_READ As Byte = 1
Private Const MAP_PRIVATE As Byte = 2
' void *mmap (void *__addr, size_t __len, int __prot, int __flags, int __fd, __off_t __offset)
' Map addresses starting near ADDR and extending for LEN bytes.
Private Extern mmap(__addr As Pointer, __len As Long, __prot As Integer, __flags As Integer, __fd As Integer, __offset As Long) As Pointer
' void *unmmap (void *__addr, size_t __len)
' Deallocate any mapping for the region starting at ADDR and extending LEN bytes.
Private Extern unmmap(__addr As Pointer, __len As Long) As Integer
Public Sub Main()
Dim percorsoFile As String
Dim fl As File
Dim lun As Long
Dim map As Pointer
Dim i As Integer
percorsoFile = "/percorso/del/file"
Print "File da leggere: "; percorsoFile
fl = Open percorsoFile For Read
lun = Lof(fl)
Print "Lunghezza del file: "; lun; " byte"
map = mmap(0, lun, PROT_READ, MAP_PRIVATE, fl.Handle, 0)
If Int@(map) == MAP_FAILED Then Error.Raise("Impossibile mappare il file !")
For i = 0 To lun - 1
Print i, Hex(Byte@(map + i), 2)
Next
i = munmap(map, lun)
If i == MAP_FAILED Then Error.Raise("Impossibile demappare il file !")
fl.Close
End
In quest'altro esempio volendo leggere soltanto una parte del file, viene mappata solo quella parte di file. L'intervallo di byte da mostrare in console viene specificato tramite la variabile initium ed il valore della variabile lung. Il programma crea una mappatura della memoria delle pagine richieste del file e successivamente scrive in console i byte prescelti:
Library "libc:6"
Private Const MAP_FAILED As Integer = -1
Private Const PROT_READ As Byte = 1
Private Const MAP_PRIVATE As Byte = 2
Private Const _SC_PAGE_SIZE As Byte = 30
' long sysconf(int name)
' Get the value of the system variable NAME.
Private Extern sysconf(name As Integer) As Long
' void *mmap (void *__addr, size_t __len, int __prot, int __flags, int __fd, __off_t __offset)
' Map addresses starting near ADDR and extending for LEN bytes.
Private Extern mmap(__addr As Pointer, __len As Long, __prot As Integer, __flags As Integer, __fd As Integer, __offset As Long) As Pointer
Public Sub Main()
Dim percorsoFile As String
Dim fl as File
Dim map As Pointer
Dim lungh_file, lung, i As Integer
Dim initium, pa_offset As Long
percorsoFile = "/percorso/del/file"
initium = 8 ' Numero d'indice di partenza dei byte da leggere
lung = 5 ' Quantità dei byte da leggere
fl = Open percorsoFile For Read
lungh_file = lof(fl)
pa_offset = initium And (Not (sysconf(_SC_PAGE_SIZE) - 1))
If initium >= lungh_file Then Error.Raise("Il valore della variabile 'initium' ha oltrepassato la fine del file !")
If lung > 0 Then
If initium + lung > lungh_file Then lung = lungh_file - initium
Else
lung = lungh_file - initium
Endif
map = mmap(0, lung + initium - pa_offset, PROT_READ, MAP_PRIVATE, fl.Handle, pa_offset)
If Int@(map) == MAP_FAILED Then Error.Raise("Impossibile mappare il file !")
' Dereferenziamo il Puntatore "map" per leggere i dati del file:
For i = 0 To lung - 1
Print i + initium, Hex(Byte@(map + (initium - pa_offset + i)), 2)
Next
i = munmap(map, lung + initium - pa_offset)
If i == MAP_FAILED Then Error.Raise("Impossibile demappare il file !")
fl.Close
End
