https://pickwiki.org/index.php?action=history&feed=atom&title=GetFileInfoGetFileInfo - Revision history2026-04-28T22:10:45ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=GetFileInfo&diff=1827&oldid=prevConversion script: link fix2015-02-26T23:48:54Z<p>link fix</p>
<p><b>New page</b></p><div>HomePage>>SourceCode>>[[BasicSource]]<br />
<br />
A wrapper around a call to fstat. This version calls a perl script, [[PerlVersionOfFstat]], since AIX does not appear to have an fstat command.<br />
<br />
There is a new command or basic function to do this directly in ud5. I cannot find any info in the manual, anyone know what it's called? Obviously this subroutine would not be needed in that case :-)<br />
<br />
Update: the command is the aptly-named "DIR" command. That should be used instead of this routine.<br />
<br />
Syntax<br />
<br />
DIR(file.expr)<br />
<br />
Description<br />
<br />
The [[UniBasic]] DIR function returns the file size (in bytes), the last <br />
date and time the file was modified (in internal format), and the <br />
privileges for the file. [[UniData]] stores these values in the first <br />
four attributes of the return value. file.expr must evaluate to a <br />
file name at the operating system level. If you do not specify a <br />
path name, [[UniData]] searches the current directory. <br />
<br />
<PRE><br />
SUBROUTINE TRIN.GET.FILE.INFO(FILE, INFO)<br />
***************************************************************************<br />
* Program: TRIN.GET.FILE.INFO<br />
* Author : Ian [[McG]]<br />
* Date : 02/14/2000<br />
* Edited : 13:40:04 Feb 14 2000 By MCGOWAN <br />
* Comment: Return O[[/S]] info about a file/directory<br />
***************************************************************************<br />
* Date By Desc<br />
* ---------- ---- ---------------------------------------------------------<br />
* INFO<1> = Device number of file system<br />
* INFO<2> = Inode#<br />
* INFO<3> = File mode<br />
* INFO<4> = Number of hard links to file<br />
* INFO<5> = File owner<br />
* INFO<6> = Group owner<br />
* INFO<7> = Device identifier<br />
* INFO<8> = Size, in bytes<br />
* INFO<9> = Last access time and date<br />
* INFO<10>= Last modify time and date<br />
* INFO<11>= Inode change time and date<br />
* INFO<12>= Blksize<br />
* INFO<13>= Actual blocks allocated<br />
<br />
EXECUTE "!/usr/local/bin/fstat ":FILE CAPTURING INFO<br />
IF INFO='' THEN RETURN<br />
O=INFO<5> ; GOSUB GET.OWNER ; INFO<5>=O<br />
D=INFO<9> ; GOSUB PROCESS.DATE ; INFO<9>=D<br />
D=INFO<10>; GOSUB PROCESS.DATE ; INFO<10>=D<br />
D=INFO<11>; GOSUB PROCESS.DATE ; INFO<11>=D<br />
RETURN<br />
<br />
GET.OWNER:<br />
EXECUTE \!grep ":\:O:\:" /etc/passwd | awk 'BEGIN {FS=":"} {print $1}'\ CAPTURING NAME<br />
IF NAME#'' THEN O=NAME<1><br />
RETURN<br />
<br />
PROCESS.DATE:<br />
* Mon Feb 14 13:09:11 2000<br />
D=TRIM(D)<br />
T=FIELD(D, ' ', 4)<br />
D=FIELD(D, ' ', 2, 2):' ': FIELD(D, ' ', 5)<br />
<br />
D<1,1>=ICONV(D, 'D4')<br />
D<1,2>=ICONV(T, 'MTS')<br />
RETURN<br />
</PRE></div>Conversion script