Merged in MHR-23 (pull request #15)

MHR-23

1 files changed, 69 insertions, 0 deletions

diff --git a/Usr/Sys/CoreSystem/Sources/File.c b/Usr/Sys/CoreSystem/Sources/File.c
new file mode 100644
index 00000000..9f6b3b35
--- /dev/null
+++ b/Usr/Sys/CoreSystem/Sources/File.c
@@ -0,0 +1,69 @@
+/* -------------------------------------------
+
+	Copyright Zeta Electronics Corporation
+
+------------------------------------------- */
+
+#include <Headers/Defines.h>
+#include <Headers/File.h>
+
+enum FileOp
+{
+	kFlushFile,
+	kReadFork,
+	kWriteFork,
+	kOpenFork,
+	kCloseFork,
+};
+
+/// @brief Opens a new file.
+/// @param path where to find it.
+/// @param rest the restrict (rw, rwe, r+, w+, r, w)
+/// @return FSRef the file.
+CS_EXTERN_C FSRef CSOpenFile(const CharacterTypeUTF8* path,
+							 const CharacterTypeUTF8* rest)
+{
+	CS_MUST_PASS(kSharedApplication);
+	CS_MUST_PASS(path && CSIsValidPath(path) == Yes);
+	CS_MUST_PASS(rest);
+
+	return kSharedApplication->Invoke(kSharedApplication, kCallOpenFile, path,
+									  rest);
+}
+
+/// @brief Closes the file and flushes it to the said file.
+/// @param refCS the filesystem reference.
+/// @return
+CS_EXTERN_C VoidType CSCloseFile(FSRef refCS)
+{
+	CS_MUST_PASS(kSharedApplication);
+
+	CSFlushFile(refCS);
+
+	kSharedApplication->Invoke(kSharedApplication, kCallCloseFile, refCS);
+}
+
+/// @brief Flush file
+/// @param refCS the file reference.
+/// @return 
+CS_EXTERN_C VoidType CSFlushFile(FSRef refCS)
+{
+	CS_MUST_PASS(kSharedApplication);
+
+	kSharedApplication->Invoke(kSharedApplication, refCS, kFlushFile);
+}
+
+/// @brief Check if filesystem path is valid.
+/// @param path 
+/// @return 
+CS_EXTERN_C BooleanType CSIsValidPath(const CharacterTypeUTF8* path)
+{
+	CS_MUST_PASS(kSharedApplication);
+	CS_MUST_PASS(path);
+
+	return kSharedApplication->Invoke(kSharedApplication, kCallFileExists, path) ||
+			kSharedApplication->Invoke(kSharedApplication, kCallDirectoryExists, path) ||
+			kSharedApplication->Invoke(kSharedApplication, kCallSymlinkExists, path) ||
+			kSharedApplication->Invoke(kSharedApplication, kCallDriveExists, path) ||
+			kSharedApplication->Invoke(kSharedApplication, kCallDeviceExists, path);
+}
\ No newline at end of file