Rosetta Code

Check that file exists: Difference between revisions

Page Discussion

Check that file exists (view source)

Revision as of 15:07, 29 December 2021

395 bytes added ,  2 years ago
m
→‎{{header|Phix}}: added without js
(add BQN)
m (→‎{{header|Phix}}: added without js)
Line 2,185:
{{libheader|Phix/basics}}
<!--<lang Phix>(notonline)-->
<span style="color: #008080;">procedurewithout</span> <span style="color: #000000008080;">checkjs</span> style="color: #0000FF;">(<span style="color: #004080000080;">string</span> <span font-style="color: #000000italic;">name<span-- style="color:(file #0000FF;">i/o)</span>
<span style="color: #004080008080;">boolprocedure</span> <span style="color: #000000;">bExistscheck</span> <span style="color: #0000FF;">=(</span> <span style="color: #7060A8004080;">file_existsstring</span> style="color: #0000FF;">(<span style="color: #000000;">name</span style="color: #0000FF;">)<span style="color: #0000FF;">,)</span>
<span style="color: #000000004080;">bDirbool</span> <span style="color: #0000FF000000;">=bExists</span> <span style="color: #7060A80000FF;">get_file_type=</span> style="color: #0000FF;">(<span style="color: #0000007060A8;">namefile_exists</span><span style="color: #0000FF;">)(</span><span style="color: #0000FF000000;">=name</span><span style="color: #0046000000FF;">FILETYPE_DIRECTORY),</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">existsbDir</span> <span style="color: #0000FF;">=</span> <span style="color: #0080807060A8;">iffget_file_type</span><span style="color: #0000FF;">(</span style="color: #000000;">bExists<span style="color: #0000FF000000;">?name</span style="color: #008000;">"exists"<span style="color: #0000FF;">:<span style)="color: #008000;">"does not exist"</span style="color: #0000FF;">)<span style="color: #0000FF004600;">,FILETYPE_DIRECTORY</span>
<span style="color: #000000004080;">dfsstring</span> <span style="color: #0000FF000000;">=exists</span> <span style="color: #0080800000FF;">iff<span style="color: #0000FF;">(</span style="color: #000000;">bExists<span style="color: #0000FF;">?<span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span style="color: #000000;">bDir<span style="color: #0000FF000000;">?bExists</span style="color: #008000;">"directory "<span style="color: #0000FF;">:?</span><span style="color: #008000;">"file exists"</span style="color: #0000FF;">)<span style="color: #0000FF;">:</span><span style="color: #008000;">"does not exist"</span><span style="color: #0000FF;">),</span>
<span style="color: #7060A8000000;">printfdfs</span> <span style="color: #0000FF;">(=</span> <span style="color: #000000008080;">1iff</span><span style="color: #0000FF;">,(</span><span style="color: #008000000000;">bExists</span><span style="%s%scolor: %s.\n#0000FF;">?</span><span style="color: #0000FF008080;">,iff</span><span style="color: #0000FF;">{(</span><span style="color: #000000;">dfsbDir</span><span style="color: #0000FF;">,?</span><span style="color: #000000008000;">name"directory "</span><span style="color: #0000FF;">,:</span><span style="color: #000000008000;">exists"file "</span><span style="color: #0000FF;">}):</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s%s %s.\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">dfs</span><span style="color: #0000FF;">,</span><span style="color: #000000;">name</span><span style="color: #0000FF;">,</span><span style="color: #000000;">exists</span><span style="color: #0000FF;">})</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
<span style="color: #000000;">check</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"input.txt"</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">check</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"docs"</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">check</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"/input.txt"</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">check</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"/docs"</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">check</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"/pagefile.sys"</span><span style="color: #0000FF;">)</span>
<span style="color: #000000;">check</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"/Program Files (x86)"</span><span style="color: #0000FF;">)</span>
<!--</lang>-->
{{out}}
Petelomax
7,794

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/29398"