Walk a directory/Non-recursively: Difference between revisions

</pre>

=={{header|RPL}}==

{{works with|Halcyon Calc|4.2.7}}

The very first instruction of this program <code>VARS</code> returns the list of all current files and subdirectories. The rest of the code retains the names that comply with the pattern given in input, and which are not directories. To do so, the program attempts to recall the contents of each object on the stack through <code>RCL</code>: if an error occurs, the object is then a directory and shall not be processed further.

≪ VARS → filter list

≪ { } 1 list SIZE '''FOR''' j

list j GET

'''IFERR''' DUP RCL '''THEN''' DROP2

'''ELSE'''

DROP →STR 2 OVER SIZE 1 - SUB

'''IF''' DUP filter POS '''THEN''' + ELSE DROP '''END'''

'''END'''

'''NEXT'''

≫ ≫

'WKDIR' STO

"T" WKDIR

{{out}}

<pre>

1: { "T" "TESTPGM" "FACTN" }