Task

Verify that a file called     input.txt     and   a directory called     docs     exist.



This should be done twice:  

   once for the current working directory,   and
   once for a file and a directory in the filesystem root.


Optional criteria (May 2015):   verify it works with:

   zero-length files
   an unusual filename:     `Abdu'l-Bahá.txt  


 
#include <flow.h>
 
DEF-MAIN(argv, argc)
   WHEN( IS-FILE?("hopper") ){
      MEM("File \"hopper\" exist!\n")
   }
   WHEN( IS-DIR?("fl") ){
      MEM("Directory \"fl\" exist!\n")
   }
   IF( IS-DIR?("noExisDir"), "Directory \"noExistDir\" exist!\n", \
                             "Directory \"noExistDir\" does NOT exist!\n" )
   //"arch mañoso bacán.txt" text-file created
 
   STR-TO-UTF8("File \"arch mañoso bacán.txt\" ")
   IF( IS-FILE?( STR-TO-UTF8("arch mañoso bacán.txt") ), "exist!\n", "NOT exist!\n")
 
   PRNL
END
 