Check that file exists: Difference between revisions

no edit summary
(clarify task)
No edit summary
Line 52:
print -e $FileSeperator.'docs'.$FileSeperator;
 
==[[Pop11]]==
[[Category:Pop11]]
 
;;; Define an auxilary function, returns boolean
define file_exists(fname);
lvars f = sysopen(fname, 0, true, `A`);
if f then
sysclose(f);
return (true);
else
return (false);
endif;
enddefine;
 
;;; Use it (prints true or false)
file_exists('input.txt') =>
file_exists('/input.txt') =>
file_exists('docs') =>
file_exists('/docs') =>
 
==[[DOS]]==
Anonymous user