Ottenere alcune informazioni generali sui file - Cronologia

Vuott il 23:31, 24 giu 2024

2024-06-24T23:31:27Z

← Versione meno recente		Versione delle 17:31, 24 giu 2024
Riga 46:		Riga 46:


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

	Dim stS As New STATUS_File		Dim stS As New STATUS_File
	Dim i As Integer		Dim i As Integer
	Dim at, mt, ct As Long		Dim at, mt, ct As Long
	Dim s As String = "<FONT Color=~~gray~~>''/percorso/del/file''</font>"		Dim s As String = "<FONT Color=darkgreen>''/percorso/del/file''</font>"

	i = __xstat(_STAT_VER_LINUX, s, stS)		i = __xstat(_STAT_VER_LINUX, s, stS)
Riga 79:		Riga 79:
	Print asctime(localtime(VarPtr(ct)))		Print asctime(localtime(VarPtr(ct)))

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

	===Usando la funzione "stat()" di C mediante una libreria esterna ''ad hoc''===		===Usando la funzione "stat()" di C mediante una libreria esterna ''ad hoc''===
Riga 116:		Riga 116:


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

	Dim i As Integer		Dim i As Integer
	Dim stS As New STATUS_File		Dim stS As New STATUS_File
	Dim at, mt, ct As Long		Dim at, mt, ct As Long
	Dim s As String = "<FONT Color=~~gray~~>''/percorso/del/file''</font>"		Dim s As String = "<FONT Color=darkgreen>''/percorso/del/file''</font>"

	CreaSo()		CreaSo()
Riga 151:		Riga 151:
	Print asctime(localtime(VarPtr(ct)))		Print asctime(localtime(VarPtr(ct)))

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

	~~'''~~Private~~'''~~ Procedure CreaSo()
			Private Procedure CreaSo()

	<FONT Color=gray>' ''Scrive e salva il file sorgente in C della libreria condivisa ad hoc:''</font>		<FONT Color=gray>' ''Scrive e salva il file sorgente in C della libreria condivisa ad hoc:''</font>
Riga 168:		Riga 169:
	Shell "gcc -o /tmp/libadhoc.so /tmp/libadhoc.c -shared -fPIC" Wait		Shell "gcc -o /tmp/libadhoc.so /tmp/libadhoc.c -shared -fPIC" Wait

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

Vuott il 22:14, 11 set 2022

2022-09-11T22:14:14Z

← Versione meno recente		Versione delle 16:14, 11 set 2022
Riga 51:		Riga 51:
	Dim i As Integer		Dim i As Integer
	Dim at, mt, ct As Long		Dim at, mt, ct As Long
			Dim s As String = "<FONT Color=gray>''/percorso/del/file''</font>"

	i = __xstat(_STAT_VER_LINUX, ~~"''/percorso/del/file''"~~, stS)		i = __xstat(_STAT_VER_LINUX, s, stS)
	If i <> 0 Then Error.Raise("Errore alla funzione '__xstat()' !")		If i <> 0 Then Error.Raise("Errore alla funzione '__xstat()' !")

			Print "File controllato: "; s
			Print

	With stS		With stS
	Print .st_dev		Print .st_dev
Riga 109:		Riga 113:
	Private Extern asctime(time_ptr As Pointer) As String		Private Extern asctime(time_ptr As Pointer) As String

	Private Extern Chiama_stat(nomefile As String, stFile As STATUS_File) As Integer In "/tmp/~~libSTATUS~~"		Private Extern Chiama_stat(nomefile As String, stFile As STATUS_File) As Integer In "/tmp/libadhoc"

Vuott il 22:09, 11 set 2022

2022-09-11T22:09:26Z

← Versione meno recente		Versione delle 16:09, 11 set 2022
Riga 74:		Riga 74:
	Print asctime(localtime(VarPtr(mt)))		Print asctime(localtime(VarPtr(mt)))
	Print asctime(localtime(VarPtr(ct)))		Print asctime(localtime(VarPtr(ct)))

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

Vuott il 22:08, 11 set 2022

2022-09-11T22:08:44Z

Mostra modifiche

Vuott il 22:13, 15 feb 2018

2018-02-15T22:13:17Z

← Versione meno recente		Versione delle 16:13, 15 feb 2018
Riga 12:		Riga 12:

	Il codice Gambas potrà essere il seguente:		Il codice Gambas potrà essere il seguente:
			Library "libc:6"

	Public Struct STATUS_File		Public Struct STATUS_File
	st_dev As Long		st_dev As Long
Riga 33:		Riga 35:

	Private Const _STAT_VER_LINUX as Integer = 1		Private Const _STAT_VER_LINUX as Integer = 1

	~~Library "libc:6"~~

	<FONT Color=gray>' ''int __xstat (int __ver, const char __filename, struct stat __stat_buf)''		<FONT Color=gray>' ''int __xstat (int __ver, const char __filename, struct stat __stat_buf)''
Riga 84:		Riga 84:
	La funzione ''stat()'' di C potrà essere utilizzata anche mediante una libreria esterna dinamica e condivisa .so, da noi realizzata, nella quale verrà posta la funzione.		La funzione ''stat()'' di C potrà essere utilizzata anche mediante una libreria esterna dinamica e condivisa .so, da noi realizzata, nella quale verrà posta la funzione.
	Il codice Gambas, contenente anche una procedura per generare il file sorgente in linguaggio C della libreria esterna condivisa, nonché la libreria medesima .so, sarà il seguente:		Il codice Gambas, contenente anche una procedura per generare il file sorgente in linguaggio C della libreria esterna condivisa, nonché la libreria medesima .so, sarà il seguente:
			Library "libc:6"

	Public Struct STATUS_File		Public Struct STATUS_File
	st_dev As Long		st_dev As Long
Riga 102:		Riga 104:
	__glibc_reserved[3] As Long		__glibc_reserved[3] As Long
	End Struct		End Struct


	~~Library "libc:6"~~

	<FONT Color=gray>' ''tm* localtime( const time_t *time )''		<FONT Color=gray>' ''tm* localtime( const time_t *time )''

Vuott il 01:41, 30 mag 2015

2015-05-30T01:41:40Z

@@ Riga 7: / Riga 7: @@
 ===Usando la funzione ''stat()'' di C===
-Per utilizzare la funzione ''stat()'' di C, bisognerà richiamare la funzione ''__xstat()''.  in quanto, per consentire alla Struttura "''struct stat''" di variare senza cambiare numero di versione della libreria condivisa .so, il gruppo di funzioni 'stat' sono traslate nelle chiamate alle funzioni 'xstat', 'fxstat', 'lxstat', alle quali è necessario passare come primo argomento il numero-versione che designa la struttura dei dati e i bit utilizzati.
+Per utilizzare la funzione ''stat()'' di C, bisognerà richiamare la funzione ''[[Stat_()|__xstat()]]''.  in quanto, per consentire alla Struttura "''struct stat''" di variare senza cambiare numero di versione della libreria condivisa .so, il gruppo di funzioni 'stat' sono traslate nelle chiamate alle funzioni 'xstat', 'fxstat', 'lxstat', alle quali è necessario passare come primo argomento il numero-versione che designa la struttura dei dati e i bit utilizzati.
 Dunque, in fase di linking la chiamata a ''stat()'' viene convertita in ''__xstat()''.
@@ Riga 33: / Riga 33: @@
   Private Const _STAT_VER_LINUX as Integer = 1
   <FONT Color=gray>' ''int __xstat (int __ver, const char *__filename, struct stat *__stat_buf)''
   ' ''Get file attributes for FILE and put them in BUF.''</font>
-  Private Extern __xstat(ver As Integer, s As String, st As STATUS_File) As Integer In "libc:6"
+  Private Extern __xstat(ver As Integer, s As String, st As STATUS_File) As Integer
@@ Riga 43: / Riga 53: @@
    Dim stS As New STATUS_File
    Dim i As Integer
     i = __xstat(_STAT_VER_LINUX, "''/percorso/del/file''", stS)
@@ Riga 58: / Riga 69: @@
       Print .st_blksize
       Print .st_blocks
-      Print .st_atime
+      at = .st_atime
-      Print .st_mtime
+      mt = .st_mtime
-      Print .st_ctime
+      ct = .st_ctime
     End With
   '''End'''

Vuott il 22:07, 6 nov 2014

2014-11-06T22:07:21Z

← Versione meno recente		Versione delle 16:07, 6 nov 2014
Riga 31:		Riga 31:
	__glibc_reserved[3] As Long		__glibc_reserved[3] As Long
	End Struct		End Struct

			Private Const _STAT_VER_LINUX as Integer = 1

	<FONT Color=gray>' ''int __xstat (int __ver, const char __filename, struct stat __stat_buf)''		<FONT Color=gray>' ''int __xstat (int __ver, const char __filename, struct stat __stat_buf)''
Riga 42:		Riga 44:
	Dim i As Integer		Dim i As Integer

	i = __xstat(1, "''/percorso/del/file''", stS)		i = __xstat(_STAT_VER_LINUX, "''/percorso/del/file''", stS)
	If i <> 0 Then Error.Raise("Errore alla funzione '__xstat()' !")		If i <> 0 Then Error.Raise("Errore alla funzione '__xstat()' !")

Vuott il 04:05, 6 nov 2014

2014-11-06T04:05:20Z

← Versione meno recente		Versione delle 22:05, 5 nov 2014
Riga 7:		Riga 7:

	===Usando la funzione ''stat()'' di C===		===Usando la funzione ''stat()'' di C===
	Per utilizzare la funzione ''stat()'' di C, bisognerà ~~porla~~ in ~~una~~ libreria condivisa .so ~~esterna~~, ~~appositamente realizzata da noi. La funzione contenuta da tale libreria passerà al programma principale Gambas un~~ ''~~Puntatore~~'' ~~alla~~ ''~~Struttura~~'' che ~~viene riempita dalla funzione~~ ''stat()''.		Per utilizzare la funzione ''stat()'' di C, bisognerà richiamare la funzione ''__xstat()''. in quanto, per consentire alla Struttura "''struct stat''" di variare senza cambiare numero di versione della libreria condivisa .so, il gruppo di funzioni 'stat' sono traslate nelle chiamate alle funzioni 'xstat', 'fxstat', 'lxstat', alle quali è necessario passare come primo argomento il numero-versione che designa la struttura dei dati e i bit utilizzati.
			Dunque, in fase di linking la chiamata a ''stat()'' viene convertita in ''__xstat()''.

	~~Dunque la libreria esterna .so potrà essere del seguente tenore:~~
	~~#include <sys/stat.h>~~


	~~struct stat status;~~


	~~int Chiama_stat(const char s, struct stat st) {~~

	~~int r;~~

	~~r = stat~~(~~s, &status~~);

	*st = status;

	~~return r;~~

	}


Riga 34:		Riga 15:
	st_dev As Long		st_dev As Long
	st_ino As Long		st_ino As Long
			st_nlink As Long
	st_mode As Integer		st_mode As Integer
	~~st_nlink As Integer~~
	st_uid As Integer		st_uid As Integer
	st_gid As ~~Integer~~		st_gid As Long
	st_rdev As Long		st_rdev As Long
	~~__pad1 As Long~~
	st_size As Long		st_size As Long
	st_blksize As ~~Integer~~		st_blksize As Long
	~~__pad2 As Integer~~
	st_blocks As Long		st_blocks As Long
	st_atime As Long		st_atime As Long
	~~st_atime_nsec~~ As ~~Long~~		__unused1 As Integer
	st_mtime As Long		st_mtime As Long
			__unused2 As Long
	st_mtime_nsec As Long		st_mtime_nsec As Long
	st_ctime As Long		st_ctime As Long
	~~st_ctime_nsec~~ As Long		__glibc_reserved[3] As Long
	~~__unused4 As Integer~~
	~~__unused5 As Integer~~
	End Struct		End Struct

			<FONT Color=gray>' ''int __xstat (int __ver, const char __filename, struct stat __stat_buf)''
	Private Extern ~~Chiama_stat~~(s As String, st As STATUS_File) As Integer In "~~/tmp/libSTATUS~~"		' ''Get file attributes for FILE and put them in BUF.''</font>
			Private Extern __xstat(ver As Integer, s As String, st As STATUS_File) As Integer In "libc:6"


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

	~~Dim p As Pointer~~
	Dim stS As New STATUS_File		Dim stS As New STATUS_File
	Dim i As Integer		Dim i As Integer

	~~<FONT Color=gray>' ''Crea la libreria esterna .so da noi scritta:''</font>~~		i = __xstat(1, "''/percorso/del/file''", stS)
	~~Shell "gcc -o /tmp/libSTATUS.so " & Application.Path &/ "libSTATUS.c -shared -fPIC" Wait~~		If i <> 0 Then Error.Raise("Errore alla funzione '__xstat()' !")

	~~p = Alloc(144)~~

	i = ~~Chiama_stat~~("''/percorso/del/file''", p)
	If i <> 0 Then Error.Raise("Errore alla funzione '~~stat~~()' !")

	~~stS = p~~

	~~<FONT Color=gray>' ''Vediamo come esempio qualche valore del file:''</font>~~
	With stS		With stS
	Print .st_dev		Print .st_dev
			Print .st_ino
			Print .st_nlink
			Print .st_mode
	Print .st_uid		Print .st_uid
	Print .st_gid		Print .st_gid
			Print .st_rdev
	Print .st_size; " byte"		Print .st_size; " byte"
			Print .st_blksize
			Print .st_blocks
			Print .st_atime
			Print .st_mtime
			Print .st_ctime
	End With		End With

	~~Free(p)~~

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

Vuott: Creata pagina con 'Per ottenere alcune informazioni generali sui file, è possibile operare con almeno due risorse. ===Usando la funzione ''Stat()'' propria di Gambas=== Le modalità di utiliz...'

2014-11-05T12:48:37Z

Creata pagina con 'Per ottenere alcune informazioni generali sui file, è possibile operare con almeno due risorse. ===Usando la funzione ''Stat()'' propria di Gambas=== Le modalità di utiliz...'

Nuova pagina

Per ottenere alcune informazioni generali sui file, è possibile operare con almeno due risorse.

===Usando la funzione ''Stat()'' propria di Gambas===
Le modalità di utilizzo della funzione di Gambas ''Stat()'' è descritta [[Stat|nella seguente pagina]].

===Usando la funzione ''stat()'' di C===
Per utilizzare la funzione ''stat()'' di C, bisognerà porla in una libreria condivisa .so esterna, appositamente realizzata da noi. La funzione contenuta da tale libreria passerà al programma principale Gambas un ''Puntatore'' alla ''Struttura'' che viene riempita dalla funzione ''stat()''.

Dunque la libreria esterna .so potrà essere del seguente tenore:
#include <sys/stat.h>

struct stat status;

int Chiama_stat(const char *s, struct stat *st) {

int r;

r = stat(s, &status);

*st = status;

return r;

}

Il codice Gambas potrà essere il seguente:
Public Struct STATUS_File
st_dev As Long
st_ino As Long
st_mode As Integer
st_nlink As Integer
st_uid As Integer
st_gid As Integer
st_rdev As Long
__pad1 As Long
st_size As Long
st_blksize As Integer
__pad2 As Integer
st_blocks As Long
st_atime As Long
st_atime_nsec As Long
st_mtime As Long
st_mtime_nsec As Long
st_ctime As Long
st_ctime_nsec As Long
__unused4 As Integer
__unused5 As Integer
End Struct

Private Extern Chiama_stat(s As String, st As STATUS_File) As Integer In "/tmp/libSTATUS"

'''Public''' Sub Main()

Dim p As Pointer
Dim stS As New STATUS_File
Dim i As Integer

<FONT Color=gray>' ''Crea la libreria esterna .so da noi scritta:''</font>
Shell "gcc -o /tmp/libSTATUS.so " & Application.Path &/ "libSTATUS.c -shared -fPIC" Wait

p = Alloc(144)

i = Chiama_stat("''/percorso/del/file''", p)
If i <> 0 Then Error.Raise("Errore alla funzione 'stat()' !")

stS = p

<FONT Color=gray>' ''Vediamo come esempio qualche valore del file:''</font>
With stS
Print .st_dev
Print .st_uid
Print .st_gid
Print .st_size; " byte"
End With

Free(p)

'''End'''