Fread () - Cronologia

Vuott il 22:24, 14 giu 2024

2024-06-14T22:24:25Z

← Versione meno recente		Versione delle 16:24, 14 giu 2024
Riga 1:		Riga 1:
	La funzione della libreria di C		La funzione della libreria di C
	size_t fread(void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __stream)		size_t fread(void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __stream)
	legge da un flusso n blocchi (''__n'') di dati, aventi ciascuno una dimensione di ''__size'' byte, memorizzandoli nel buffer puntato da un Puntatore (''__ptr''). <SUP>[ [[#Note\|~~Nota~~ 1]] ]</sup>		legge da un flusso n blocchi (''__n'') di dati, aventi ciascuno una dimensione di ''__size'' byte, memorizzandoli nel buffer puntato da un Puntatore (''__ptr''). <SUP>[[[#Note\|nota 1]]]</sup>
	<BR>Ritorna il numero di byte letti dal flusso.		<BR>Ritorna il numero di byte letti dal flusso.

Riga 7:		Riga 7:
	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		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 fread</font>(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long In "libc:6"		Private <FONT color=#B22222>Extern fread</font>(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long In "libc:6"


	Semplice esempio uso in Gambas in combinazione con le funzioni ''fwrite()'', ''fseek()'' e ''fclose()'':		Semplice esempio uso in Gambas in combinazione con le funzioni ''fwrite()'', ''fseek()'' e ''fclose()'':
	Library "libc:6"		Library "libc:6"
Riga 35:		Riga 33:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim p, pw, pr As Pointer		Dim p, pw, pr As Pointer
	Dim s As String		Dim s As String
	Dim l As Long		Dim l As Long

	s = "Testo qualsiasi"		s = "Testo qualsiasi"
	l = len(s)		l = len(s)

	pw = Alloc(s)		pw = Alloc(s)
	pr = Alloc(SizeOf(gb.Byte) * i)		pr = Alloc(SizeOf(gb.Byte) * i)

	p = fopen("/tmp/f", "w+")		p = fopen("/tmp/f", "w+")

	fwrite(pw, 1, l, p)		fwrite(pw, 1, l, p)

	fseek(p, 0, SEEK_SET)		fseek(p, 0, SEEK_SET)

	<FONT color=#B22222>fread(pr, 1, l, p)</font>		<FONT color=#B22222>fread(pr, 1, l, p)</font>

	Print String@(pr)		Print String@(pr)

	<FONT Color=gray>' ''Libera la memoria precedentemente allocata:''</font>		<FONT Color=gray>' ''Libera la memoria precedentemente allocata:''</font>
Riga 65:		Riga 63:
	pw = 0		pw = 0

	~~'''~~End~~'''~~		End

	===Leggere un file a blocchi di byte per volta===		===Leggere un file a blocchi di byte per volta===
Riga 95:		Riga 93:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim p, pr As Pointer		Dim p, pr As Pointer
Riga 101:		Riga 99:
	Dim d, n, i As Integer		Dim d, n, i As Integer

	s = "<FONT Color=~~gray~~>''/percorso/del/file/da/leggere''</font>"		s = "<FONT Color=darkgreen>''/percorso/del/file/da/leggere''</font>"
	d = Stat(s).Size		d = Stat(s).Size

Riga 120:		Riga 118:
	pr = 0		pr = 0

	~~'''~~End~~'''~~		End



	=Note=		=Note=
	[1] Possiamo intravvedere quasi un'analogia di funzionamento fra le funzioni ''fread()'' e ''fwrite()'' ed i Metodi ".Read()" e ".Write()" dei vettori in Gambas.		[1] Possiamo intravvedere quasi un'analogia di funzionamento fra le funzioni "fread()" e "fwrite()" ed i Metodi ".Read()" e ".Write()" dei vettori in Gambas.
			<BR>Infatti analizzando il codice seguente:
	Infatti analizzando il codice seguente:		Public Sub Main()
	~~'''~~Public~~'''~~ Sub Main()

	Dim bb As Byte[]		Dim bb As Byte[]
	Dim fl, ex As File		Dim fl, ex As File

	fl = Open "''/percorso/del/file/da/leggere''" For Read		fl = Open "<FONT Color=darkgreen>''/percorso/del/file/da/leggere''</font>" For Read
	ex = Open "''/percorso/del/file/da/scrivere''" For Create		ex = Open "<FONT Color=darkgreen>''/percorso/del/file/da/scrivere''</font>" For Create

	With bb = New Byte[](Lof(fl))		With bb = New Byte[](Lof(fl))
Riga 144:		Riga 141:
	ex.Close		ex.Close

	~~'''~~End~~'''~~		End
	possiamo infatti notare che:		possiamo infatti notare che:
	* il buffer di tipo ''Puntatore'', presente come primo parametro delle funzioni ''fread()'' e ''fwrite()'' di C, corrisponde alla variabile vettoriale "bb";		* il buffer di tipo ''Puntatore'', presente come primo parametro delle funzioni "fread()" e "fwrite()" di C, corrisponde alla variabile vettoriale "bb";
	* il secondo parametro delle due funzioni esterne di C, corrisponde al terzo parametro dei ~~metodi ''~~.~~read~~()'' e ''.~~write~~()'' della variabile vettoriale "bb";		* il secondo parametro delle due funzioni esterne di C, corrisponde al terzo parametro dei Metodi ".Read()" e ".Write()" della variabile vettoriale "bb";
	* il quarto parametro delle due funzioni esterne di C, corrisponde sostanzialmente al primo parametro dei due ~~metodi~~ della variabile vettoriale "bb";		* il quarto parametro delle due funzioni esterne di C, corrisponde sostanzialmente al primo parametro dei due Metodi della variabile vettoriale "bb";

Vuott il 14:10, 6 set 2022

2022-09-06T14:10:56Z

← Versione meno recente		Versione delle 08:10, 6 set 2022
Riga 68:		Riga 68:

	===Leggere un file a blocchi di byte per volta===		===Leggere un file a blocchi di byte per volta===
	In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte per volta da un file:		In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte per volta in un ciclo da un file:
	Private Const BLOCCO As Integer = '''7''' <FONT Color=gray>' ''Ogni volta la funzione "fread()" legge 7 byte dal file''</font>		Private Const BLOCCO As Integer = '''7''' <FONT Color=gray>' ''Ogni volta la funzione "fread()" legge 7 byte dal file''</font>

Vuott il 14:10, 6 set 2022

2022-09-06T14:10:03Z

← Versione meno recente		Versione delle 08:10, 6 set 2022
Riga 7:		Riga 7:
	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		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 fread</font>(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long In "libc:6"		Private <FONT color=#B22222>Extern fread</font>(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long In "libc:6"



Riga 67:		Riga 66:

	'''End'''		'''End'''
	In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte da un file:
	Private Const BLOCCO As Integer = '''7'''		===Leggere un file a blocchi di byte per volta===
			In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte per volta da un file:
			Private Const BLOCCO As Integer = '''7''' <FONT Color=gray>' ''Ogni volta la funzione "fread()" legge 7 byte dal file''</font>

Vuott il 16:26, 1 set 2022

2022-09-01T16:26:57Z

← Versione meno recente		Versione delle 10:26, 1 set 2022
Riga 124:		Riga 124:

	=Note=		=Note=
	[1] Possiamo intravvedere un'analogia di funzionamento fra le funzioni ''fread()'' e ''fwrite()'' ed i ~~metodi ''~~.Read()'' e ''.~~write~~()'' dei vettori in Gambas.		[1] Possiamo intravvedere quasi un'analogia di funzionamento fra le funzioni ''fread()'' e ''fwrite()'' ed i Metodi ".Read()" e ".Write()" dei vettori in Gambas.

	Infatti analizzando il codice seguente:		Infatti analizzando il codice seguente:
Riga 132:		Riga 132:
	Dim fl, ex As File		Dim fl, ex As File

	fl = Open "''/percorso/del/file/da/leggere''" For Read		fl = Open "''/percorso/del/file/da/leggere''" For Read
	ex = Open "''/percorso/del/file/da/scrivere''" For Create		ex = Open "''/percorso/del/file/da/scrivere''" For Create

	With bb = New Byte[](Lof(fl))		With bb = New Byte[](Lof(fl))
	.Read(fl, 0, Lof(fl))		.Read(fl, 0, Lof(fl))
	.Write(ex, 0, Lof(fl))		.Write(ex, 0, Lof(fl))
	End With		End With

	fl.Close		fl.Close
	ex.Close		ex.Close

	'''End'''		'''End'''

Vuott il 16:25, 1 set 2022

2022-09-01T16:25:33Z

← Versione meno recente		Versione delle 10:25, 1 set 2022
Riga 58:		Riga 58:
	Print String@(pr)		Print String@(pr)

	~~fclose(p)~~		<FONT Color=gray>' ''Libera la memoria precedentemente allocata:''</font>
			fclose(p)
	<FONT ~~color~~=gray>' ''Libera la memoria precedentemente allocata:''</font>		Free(pr)
	Free(pw)		Free(pw)
	Free(pr)		<FONT Color=gray>' ''Si assicura che il Puntatore non punti a un indirizzo rilevante di memoria:''</font>
			pr = 0
			pw = 0

	'''End'''		'''End'''
Riga 111:		Riga 113:
	Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n == 0''''', oppure:'' '''n < BLOCCO''''', oppure:'' '''i == d''''', oppure:'' '''ftell(p) == d'''</font>		Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n == 0''''', oppure:'' '''n < BLOCCO''''', oppure:'' '''i == d''''', oppure:'' '''ftell(p) == d'''</font>

			<FONT Color=gray>' ''Libera la memoria precedentemente allocata:''</font>
	fclose(p)		fclose(p)

	~~<FONT Color=gray>' ''Libera la memoria precedentemente allocata e si assicura che il Puntatore non punti a un indirizzo rilevante di memoria:''</font>~~
	Free(pr)		Free(pr)
			<FONT Color=gray>' ''Si assicura che il Puntatore non punti a un indirizzo rilevante di memoria:''</font>
	pr = 0		pr = 0

Vuott il 16:10, 1 set 2022

2022-09-01T16:10:37Z

← Versione meno recente		Versione delle 10:10, 1 set 2022
Riga 109:		Riga 109:
	i += n		i += n
	Print "\e[0mByte letti in totale: \e[31m"; i, n		Print "\e[0mByte letti in totale: \e[31m"; i, n
	Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n < BLOCCO''''', oppure:'' '''i == d''''', oppure:'' '''ftell(p) == d'''</font>		Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n == 0''''', oppure:'' '''n < BLOCCO''''', oppure:'' '''i == d''''', oppure:'' '''ftell(p) == d'''</font>

	fclose(p)		fclose(p)

Vuott il 16:05, 1 set 2022

2022-09-01T16:05:46Z

← Versione meno recente		Versione delle 10:05, 1 set 2022
Riga 66:		Riga 66:
	'''End'''		'''End'''
	In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte da un file:		In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte da un file:
			Private Const BLOCCO As Integer = '''7'''


	Library "libc:6"		Library "libc:6"

Riga 79:		Riga 82:
	' ''Return the EOF indicator for STREAM.''</font>		' ''Return the EOF indicator for STREAM.''</font>
	Private Extern feof(__stream As Pointer) As Integer		Private Extern feof(__stream As Pointer) As Integer

			<FONT color=gray>' ''long int ftell (FILE *__stream)''
			' ''Return the current position of STREAM.''</font>
			Private Extern ftell(__stream As Pointer) As Long

	<FONT Color=gray>' ''int fclose (FILE *__stream)''		<FONT Color=gray>' ''int fclose (FILE *__stream)''
Riga 89:		Riga 96:
	Dim p, pr As Pointer		Dim p, pr As Pointer
	Dim s As String		Dim s As String
	~~Dim l As Long = 7~~
	Dim d, n, i As Integer		Dim d, n, i As Integer

Riga 100:		Riga 106:

	Repeat		Repeat
	n = <FONT color=#B22222>fread</font>(pr, SizeOf(gb.Byte), l, p)		n = <FONT color=#B22222>fread</font>(pr, SizeOf(gb.Byte), BLOCCO, p)
	i += n		i += n
	Print "\e[0mByte letti in totale: \e[31m"; i, n		Print "\e[0mByte letti in totale: \e[31m"; i, n
	Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n < l''''', oppure:'' '''i == d'''</font>		Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n < BLOCCO''''', oppure:'' '''i == d''''', oppure:'' '''ftell(p) == d'''</font>

	fclose(p)		fclose(p)

Vuott il 15:57, 1 set 2022

2022-09-01T15:57:12Z

← Versione meno recente		Versione delle 09:57, 1 set 2022
Riga 21:		Riga 21:
	<FONT color=gray>' ''size_t fwrite (const void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __s)''		<FONT color=gray>' ''size_t fwrite (const void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __s)''
	' ''Write chunks of generic data to STREAM.''</font>		' ''Write chunks of generic data to STREAM.''</font>
	Private Extern ~~<FONT color=#B22222>~~fwrite~~</font>~~(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long		Private Extern fwrite(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long

	<FONT color=gray>' ''int fseek(FILE *__stream, long int __off, int __whence)''		<FONT color=gray>' ''int fseek(FILE *__stream, long int __off, int __whence)''
	' ''Seek to a certain position on STREAM.''</font>		' ''Seek to a certain position on STREAM.''</font>
	Private Extern ~~<FONT color=#B22222>~~fseek~~</font>~~(__stream As Pointer, __off As Long, __whence As Integer) As Integer		Private Extern fseek(__stream As Pointer, __off As Long, __whence As Integer) As Integer

	<FONT color=gray>' ''size_t fread(void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __stream)''		<FONT color=gray>' ''size_t fread(void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __stream)''

Vuott il 15:56, 1 set 2022

2022-09-01T15:56:13Z

← Versione meno recente		Versione delle 09:56, 1 set 2022
Riga 103:		Riga 103:
	i += n		i += n
	Print "\e[0mByte letti in totale: \e[31m"; i, n		Print "\e[0mByte letti in totale: \e[31m"; i, n
	Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n < l'''</font>		Until feof(p) <FONT Color=gray>' ''...oppure:'' '''n < l''''', oppure:'' '''i == d'''</font>

	fclose(p)		fclose(p)

Vuott il 15:51, 1 set 2022

2022-09-01T15:51:24Z

@@ Riga 15: / Riga 15: @@
   Private Enum SEEK_SET = 0, SEEK_CUR, SEEK_END
   Private Extern fopen(__filename As String, __modes As String) As Pointer
-  Private Extern fwrite(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long
+ <FONT color=gray>' ''size_t fwrite (const void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __s)''
-  Private Extern fseek(streamp As Pointer, offset As Long, whence As Integer) As Integer
+ <FONT color=gray>' ''int fseek(FILE *__stream, long int __off, int __whence)''
   <FONT color=gray>' ''size_t fread(void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream)''
@@ Riga 25: / Riga 31: @@
   Private Extern <FONT color=#B22222>fread</font>(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long
   Private Extern fclose(__stream As Pointer) As Integer
@@ Riga 30: / Riga 38: @@
   '''Public''' Sub Main()
-  Dim p, pw, pr As Pointer
+   Dim p, pw, pr As Pointer
-  Dim s As String
+   Dim s As String
-  Dim l As Long
+   Dim l As Long
     s = "Testo qualsiasi"
@@ Riga 57: / Riga 65: @@
   '''End'''
+In quest'altro esempio si procederà a gestire la lettura a blocchi (ossia con una quantità fissa) di valori-byte da un file: