Differenze tra le versioni di "Scrivere una libreria esterna che ritorna una Linked List"
Da Gambas-it.org - Wikipedia.
Riga 3: | Riga 3: | ||
Nell'esempio che segue mostreremo un semplice esempio pratico di come scrivere in una libreria esterna dinamica condivisa .so una ''Lista Lineare'', e soprattutto di come gestirla in Gambas successivamente alla valorizzazione del/i suo/i membro/i. | Nell'esempio che segue mostreremo un semplice esempio pratico di come scrivere in una libreria esterna dinamica condivisa .so una ''Lista Lineare'', e soprattutto di come gestirla in Gambas successivamente alla valorizzazione del/i suo/i membro/i. | ||
− | |||
− | |||
Library "/tmp/lib" | Library "/tmp/lib" | ||
Versione delle 20:17, 27 dic 2021
Una "Linked List", o Lista lineare, è una successione di elementi omogenei di tipo Struttura che occupano - a differenza degli elementi di un array - un qualsiasi indirizzo di memoria (dunque non necessariamente successivi e adiacenti). [Nota 1]
Nell'esempio che segue mostreremo un semplice esempio pratico di come scrivere in una libreria esterna dinamica condivisa .so una Lista Lineare, e soprattutto di come gestirla in Gambas successivamente alla valorizzazione del/i suo/i membro/i.
Library "/tmp/lib" ' struct elemento * lista() ' Crea la Lista e ritorna un Puntatore ad essa. Private Extern lista() As Pointer Public Sub Main() Dim p1, p2 As Pointer Dim b As Byte CreaSo() ' La funzione esterna ritorna la lista creata e popolata: p1 = lista() For b = 1 To 5 ' Dereferenzia il primo membro dell'elemento Struttura corrente della lista: Print Int@(p1) ' Avanza di 8 byte nell'area di memoria riservata dell'elemento Struttura corrente della lista e ne ottiene l'indirizzo di memoria: p2 = Pointer@(p1 + SizeOf(gb.Pointer)) ' Dereferenzia il primo membro dell'attuale elemento Struttura della lista: Print Int@(p2) ' Avanza di 8 byte nell'area di memoria riservata dell'elemento Struttura corrente della lista e ne ottiene l'indirizzo di memoria: p1 = Pointer@(p2 + SizeOf(gb.Pointer)) Next End Private Procedure CreaSo() File.Save("/tmp/lib.c", "#include <stdlib.h>\n\n\n" & "struct elemento {\n" & " int i;\n" & " struct elemento *pun;\n};\n\n\n" & "struct elemento * lista() {\n\n" & " struct elemento *p, *paus;\n" & " int i;\n\n" & " p = malloc(sizeof(struct elemento));" & " p->i = 100;\n" & " paus = p;\n\n" & " for (i=2; i<11; i++) {\n" & " paus->pun = malloc(sizeof(struct elemento));\n" & " paus = paus->pun;\n" & " paus->i = 100 * i;\n}\n\n" & " paus->pun = NULL;\n\n" & " return p;\n\n}") Shell "gcc -o /tmp/lib.so /tmp/lib.c -shared -fPIC" Wait End
Note
[1] Vedi anche Emulare una 'Lista Lineare' mediante una Struttura di testa ed i Puntatori