home *** CD-ROM | disk | FTP | other *** search
- /*
- #### # # # #
- # # # # # The FreeWare C library for
- # # ## ### # # # # ### RISC OS machines
- # # # # # # # # # # # ___________________________________
- # # #### ### ## # # # #
- # # # # # # # # # # Please refer to the accompanying
- #### ### #### # # ##### # ### documentation for conditions of use
- ________________________________________________________________________
-
- File: File.IsDir.c
- Author: Copyright © 1994 Tim Browse
- Version: 1.00 (04 Mar 1994)
- Purpose: Checks to see if the given file is a directory.
- */
-
- #include "Core.h"
- #include "File.h"
- #include "SWI.h"
-
- extern BOOL File_IsDirectory(char *pathname)
- {
- unsigned type;
-
- /* Get the file information */
-
- SWI(2, 1, SWI_OS_File, 17, pathname, &type);
-
- return (type == 2); /* 2 => directory found */
- }
-
-