|
|
| Riga 1: |
Riga 1: |
| − | 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 <FONT color=#B22222>Extern mmap(__addr As Pointer, __len As Long, __prot As Integer, __flags As Integer, __fd As Integer, __offset As Long)</font> As Pointer In "<FONT color=#B22222>libc:6</font>"
| |
| − |
| |
| − |
| |
| − | L'esempio che segue scrive in console una parte di un 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:
| |
| − | Private Const _SC_PAGE_SIZE As Byte = 30
| |
| − | Private Const PROT_READ As Byte = 1 <FONT color=gray>' ''Data can be read''</font>
| |
| − | Private Const MAP_PRIVATE As Byte = 2 <FONT color=gray>' ''Changes are private''</font>
| |
| − | Private Const MAP_FAILED As Integer = -1 <FONT color=gray>' ''Return value of `mmap' in case of an error''</font>
| |
| − |
| |
| − | Library "libc:6"
| |
| − |
| |
| − | <FONT color=gray>' ''long sysconf(int name)''
| |
| − | ' ''Restituisce il valore del parametro di sistema "name".''</font>
| |
| − | Private Extern sysconf(name As Integer) As Long
| |
| − |
| |
| − | <FONT color=gray>' ''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.''</font>
| |
| − | 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 addr As Pointer
| |
| − | Dim lungh_file, lung, i As Integer
| |
| − | Dim initium, pa_offset As Long
| |
| − | Dim st As Stream
| |
| − | Dim b As Byte
| |
| − |
| |
| − | percorsoFile = "<FONT color=gray>''/percorso/del/file/da/leggere''</font>"
| |
| − |
| |
| − | lungh_file = Stat(percorsoFile).Size
| |
| − |
| |
| − | initium = 8 <FONT color=gray>' ''numero d'indice 'esemplificativo' di partenza dei byte da leggere''</font>
| |
| − |
| |
| − | lung = 5 <FONT color=gray>' ''quantità 'esemplificativa' dei byte da leggere''</font>
| |
| − |
| |
| − | fl = Open percorsoFile For Read
| |
| − | If IsNull(fl) Then Error.Raise("Impossibile aprire il file !")
| |
| − |
| |
| − | pa_offset = initium And (Not (sysconf(_SC_PAGE_SIZE) - 1))
| |
| − |
| |
| − | If initium >= lungh_file Then Error.Raise("Il valore dell 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
| |
| − |
| |
| − | addr = mmap(0, lung + initium - pa_offset, PROT_READ, MAP_PRIVATE, fl.Handle, pa_offset)
| |
| − | If addr = MAP_FAILED Then Error.Raise("Errore alla funzione 'mmap()' !")
| |
| − |
| |
| − | <FONT color=gray>' ''Dereferenziamo il 'Puntatore' "addr" mediante i "Memory Stream":''</font>
| |
| − | st = Memory addr For Read
| |
| − |
| |
| − | For i = 0 To lung - 1
| |
| − | Seek #st, (initium - pa_offset) + i
| |
| − | Read #st, b
| |
| − | Print b
| |
| − | Next
| |
| − |
| |
| − | st.Close
| |
| − | fl.Close
| |
| − |
| |
| − | '''End'''
| |
