Check that file exists: Difference between revisions
Content added Content deleted
(Added Oz example.) |
(Add Seed7 example) |
||
| Line 550: | Line 550: | ||
{{works with|Scheme|R6RS}}[http://www.r6rs.org/final/html/r6rs-lib/r6rs-lib-Z-H-10.html] |
{{works with|Scheme|R6RS}}[http://www.r6rs.org/final/html/r6rs-lib/r6rs-lib-Z-H-10.html] |
||
<lang scheme>(file-exists? filename)</lang> |
<lang scheme>(file-exists? filename)</lang> |
||
=={{header|Seed7}}== |
|||
<lang seed7>$ include "seed7_05.s7i"; |
|||
const proc: main is func |
|||
begin |
|||
writeln(fileType("input.txt") = FILE_REGULAR); |
|||
writeln(fileType("/input.txt") = FILE_REGULAR); |
|||
writeln(fileType("docs") = FILE_DIR); |
|||
writeln(fileType("/docs") = FILE_DIR); |
|||
end func;</lang> |
|||
=={{header|Slate}}== |
=={{header|Slate}}== |
||