https://pickwiki.org/index.php?action=history&feed=atom&title=FileInfo FileInfo - Revision history 2026-04-28T22:10:36Z Revision history for this page on the wiki MediaWiki 1.43.0 https://pickwiki.org/index.php?title=FileInfo&diff=1780&oldid=prev Conversion script: link fix 2015-02-26T23:48:54Z <p>link fix</p> <p><b>New page</b></p><div>Back to [[BasicSource]]<br /> <br /> &lt;pre&gt;<br /> PROGRAM FILEINFO<br /> * ECL - KRJ - Universe - information about a file using FILEINFO()<br /> *<br /> EQU AM TO CHAR(254), VM TO CHAR(253), SM TO CHAR(252)<br /> TRUE = 1 = 1; FALSE = NOT(TRUE); QT = &#039;&quot;\&#039;:&quot;&#039;&quot;<br /> REST = @SENTENCE<br /> KEEPQUOT = FALSE<br /> GOSUB PARSE.REST<br /> TEMP = DCOUNT(BITE,AM)<br /> OPTIONS = BITE&lt;TEMP&gt;<br /> IF OPTIONS[1,1] = &#039;(&#039; THEN<br /> OPTIONS = FIELD(FIELD(OPTIONS,&#039;(&#039;,2),&#039;)&#039;,1)<br /> BITE = DELETE(BITE,TEMP,0,0)<br /> END ELSE OPTIONS = &#039;&#039;<br /> IF OCONV(BITE&lt;1&gt;,&#039;MCU&#039;) = &#039;RUN&#039; THEN<br /> BITE = DELETE(BITE,1,0,0)<br /> BITE = DELETE(BITE,1,0,0)<br /> END<br /> BITE = DELETE(BITE,1,0,0)<br /> *<br /> FNAM = BITE&lt;1&gt;<br /> BITE = DELETE(BITE,1,0,0)<br /> IF FNAM = &#039;DICT&#039; THEN<br /> FNAM = FNAM:&#039; &#039;:BITE&lt;1&gt;<br /> BITE = DELETE(BITE,1,0,0)<br /> END<br /> * Get file<br /> LOOP<br /> GOT.FILE = FALSE<br /> IF FNAM = &#039;&#039; THEN<br /> CRT &#039;File &gt;&#039;:<br /> INPUT FNAM<br /> END<br /> IF FNAM = &#039;&#039; THEN STOP<br /> DPRT = FIELD(FNAM,&#039; &#039;,1)<br /> FPRT = FIELD(FNAM,&#039; &#039;,2)<br /> IF FPRT = &#039;&#039; THEN FPRT = DPRT ; DPRT = &#039;&#039;<br /> OPEN DPRT, FPRT TO FILE THEN<br /> GOT.FILE = TRUE<br /> END ELSE<br /> CRT &#039;Unable to find file &quot;&#039;:FNAM:&#039;&quot;.&#039;<br /> FNAM = &#039;&#039;<br /> END<br /> UNTIL GOT.FILE DO<br /> REPEAT<br /> *<br /> $INCLUDE UNIVERSE.INCLUDE FILEINFO.INS.IBAS<br /> <br /> CRT &#039; Is Filevar :&#039;: FILEINFO(FILE, FINFO$IS.FILEVAR)<br /> CRT &#039; VOC Name :&#039;: FILEINFO(FILE, FINFO$VOCNAME)<br /> CRT &#039; Path Name :&#039;: FILEINFO(FILE, FINFO$PATHNAME)<br /> HASH = FILEINFO(FILE, FINFO$HASHALG)<br /> CRT &#039; Hash Algorithm :&#039;: HASH:<br /> BEGIN CASE<br /> CASE HASH = &#039;2&#039; ; CRT &#039; General&#039;<br /> CASE HASH = &#039;3&#039; ; CRT &#039; Sequential&#039;<br /> CASE HASH = &#039;&#039; ; CRT &#039; No Algorithm&#039;<br /> CASE 1 ; CRT &#039; **** UNKNOWN HASH ALGORITHM **** &#039;<br /> END CASE<br /> TYPE = FILEINFO(FILE, FINFO$TYPE)<br /> CRT &#039; Type :&#039;: TYPE:<br /> BEGIN CASE<br /> CASE TYPE = &#039;1&#039; ; CRT &#039; Static Hashed&#039;<br /> CASE TYPE = &#039;3&#039; ; CRT &#039; Dynamic Hashed&#039;<br /> CASE TYPE = &#039;4&#039; ; CRT &#039; Directory (Type 1)&#039;<br /> CASE TYPE = &#039;5&#039; ; CRT &#039; Sequential&#039;<br /> CASE TYPE = &#039;7&#039; ; CRT &#039; Distributed &amp; Multi Volume&#039;<br /> CASE TYPE = &#039;&#039; ; CRT &#039; No Type&#039;<br /> CASE 1 ; CRT &#039; **** UNKNOWN TYPE **** &#039;<br /> END CASE<br /> CRT &#039; Modulus :&#039;: FILEINFO(FILE, FINFO$MODULUS)<br /> CRT &#039; Min Modulus :&#039;: FILEINFO(FILE, FINFO$MINMODULUS)<br /> SIZE = FILEINFO(FILE, FINFO$GROUPSIZE)<br /> CRT &#039; Group Size :&#039;: SIZE :<br /> IF SIZE NE &#039;&#039; THEN CRT &#039; KB&#039; ELSE CRT<br /> SIZE = FILEINFO(FILE, FINFO$LARGERECORDSIZE)<br /> CRT &#039;Large Record Size:&#039;: SIZE :<br /> IF SIZE NE &#039;&#039; THEN CRT &#039; Bytes&#039; ELSE CRT<br /> CRT &#039; Merge Load :&#039;: FILEINFO(FILE, FINFO$MERGELOAD)<br /> CRT &#039; Split Load :&#039;: FILEINFO(FILE, FINFO$SPLITLOAD)<br /> CRT &#039; Current Load :&#039;: FILEINFO(FILE, FINFO$CURRENTLOAD)<br /> CRT &#039; Node Name :&#039;: FILEINFO(FILE, FINFO$NODENAME)<br /> CRT &#039; Is AKfile :&#039;: FILEINFO(FILE, FINFO$IS.AKFILE):<br /> ISAK = FILEINFO(FILE, FINFO$IS.AKFILE)<br /> BEGIN CASE<br /> CASE ISAK = &#039;1&#039; ; CRT &#039; Secondary Indices exist &#039;<br /> CASE ISAK = &#039;0&#039; ; CRT &#039; No Secondary Indices&#039;<br /> CASE 1 ; CRT &#039; **** NOT KNOWN IF INDICES EXIST **** &#039;:ISAK<br /> END CASE<br /> CRT &#039; Current Line :&#039;: FILEINFO(FILE, FINFO$CURRENTLINE)<br /> CRT &#039; Part Num :&#039;: FILEINFO(FILE, FINFO$PARTNUM)<br /> CRT &#039; Status :&#039;: FILEINFO(FILE, FINFO$STATUS)<br /> CRT &#039; Recovery Type :&#039;: FILEINFO(FILE, FINFO$RECOVERYTYPE)<br /> CRT &#039; Recovery ID :&#039;: FILEINFO(FILE, FINFO$RECOVERYID)<br /> CRT &#039;Is Fixed Modulus :&#039;: FILEINFO(FILE, FINFO$IS.FIXED.MODULUS)<br /> CRT &#039; NLS Map :&#039;: FILEINFO(FILE, FINFO$NLSMAP)<br /> * Next two kill [[UniVerse]]<br /> * CRT &#039; Max Key Size :&#039;: FILEINFO(FILE, FINFO$MAXKEYSIZE)<br /> * CRT &#039; Max Option :&#039;: FILEINFO(FILE, FINFO$MAXOPTION)<br /> * Next one is junk<br /> * CRT &#039; Hdr Layout :&#039;: FILEINFO(FILE, FINFO$HDRLAYOUT)<br /> <br /> STOP<br /> *<br /> PARSE.REST:<br /> BITE = &#039;&#039;<br /> FLAG = &#039;&#039;<br /> POSN = 1<br /> XXCNT = LEN(REST)<br /> FOR XX = 1 TO XXCNT<br /> BIT = REST[XX,1]<br /> IF FLAG EQ &#039;&#039; THEN<br /> IF BIT = &#039; &#039; THEN<br /> IF BITE&lt;POSN&gt; NE &#039;&#039; THEN POSN = POSN + 1<br /> END ELSE<br /> IF INDEX(QT,BIT,1) THEN<br /> FLAG = BIT<br /> IF KEEPQUOT THEN BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> END ELSE<br /> IF BIT = &#039;(&#039; THEN<br /> FLAG = &#039;)&#039;<br /> IF BITE&lt;POSN&gt; NE &#039;&#039; THEN POSN = POSN + 1<br /> BITE&lt;POSN&gt; = &#039;(&#039;<br /> END ELSE BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> END<br /> END<br /> END ELSE<br /> IF BIT NE FLAG THEN<br /> BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> END ELSE<br /> IF KEEPQUOT OR BIT = &#039;)&#039; THEN BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> POSN = POSN + 1<br /> FLAG = &#039;&#039;<br /> END<br /> END<br /> NEXT XX<br /> RETURN<br /> &lt;/pre&gt;</div> Conversion script