Versione attuale delle 14:17, 13 giu 2024

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

Riferimenti

• http://man7.org/linux/man-pages/man2/mmap.2.html
• http://www.gnu.org/software/libc/manual/html_node/Memory_002dmapped-I_002fO.html
• https://www.safaribooksonline.com/library/view/linux-system-programming/0596009585/ch04s03.html