2 * file-io.c: File IO internal calls
5 * Dick Porter (dick@ximian.com)
7 * (C) 2001 Ximian, Inc.
17 #ifndef PLATFORM_WIN32
21 #elif defined(HAVE_SYS_AIO_H)
29 #include <mono/metadata/object.h>
30 #include <mono/io-layer/io-layer.h>
31 #include <mono/metadata/file-io.h>
32 #include <mono/metadata/exception.h>
33 #include <mono/metadata/appdomain.h>
34 #include <mono/metadata/marshal.h>
38 /* conversion functions */
40 static guint32 convert_mode(MonoFileMode mono_mode)
45 case FileMode_CreateNew:
54 case FileMode_OpenOrCreate:
57 case FileMode_Truncate:
58 mode=TRUNCATE_EXISTING;
64 g_warning("System.IO.FileMode has unknown value 0x%x",
73 static guint32 convert_access(MonoFileAccess mono_access)
81 case FileAccess_Write:
84 case FileAccess_ReadWrite:
85 access=GENERIC_READ|GENERIC_WRITE;
88 g_warning("System.IO.FileAccess has unknown value 0x%x",
97 static guint32 convert_share(MonoFileShare mono_share)
106 share=FILE_SHARE_READ;
108 case FileShare_Write:
109 share=FILE_SHARE_WRITE;
111 case FileShare_ReadWrite:
112 share=FILE_SHARE_READ|FILE_SHARE_WRITE;
115 g_warning("System.IO.FileShare has unknown value 0x%x",
125 static guint32 convert_stdhandle(guint32 fd)
131 stdhandle=STD_INPUT_HANDLE;
134 stdhandle=STD_OUTPUT_HANDLE;
137 stdhandle=STD_ERROR_HANDLE;
140 g_warning("unknown standard file descriptor %d", fd);
141 stdhandle=STD_INPUT_HANDLE;
148 static guint32 convert_seekorigin(MonoSeekOrigin origin)
153 case SeekOrigin_Begin:
154 w32origin=FILE_BEGIN;
156 case SeekOrigin_Current:
157 w32origin=FILE_CURRENT;
163 g_warning("System.IO.SeekOrigin has unknown value 0x%x",
166 w32origin=FILE_CURRENT;
172 static gint64 convert_filetime (const FILETIME *filetime)
174 guint64 ticks = filetime->dwHighDateTime;
176 ticks += filetime->dwLowDateTime;
177 return (gint64)ticks;
180 static void convert_win32_file_attribute_data (const WIN32_FILE_ATTRIBUTE_DATA *data, const gunichar2 *name, MonoIOStat *stat)
184 stat->attributes = data->dwFileAttributes;
185 stat->creation_time = convert_filetime (&data->ftCreationTime);
186 stat->last_access_time = convert_filetime (&data->ftLastAccessTime);
187 stat->last_write_time = convert_filetime (&data->ftLastWriteTime);
188 stat->length = ((gint64)data->nFileSizeHigh << 32) | data->nFileSizeLow;
194 stat->name = mono_string_new_utf16 (mono_domain_get (), name, len);
197 /* Managed file attributes have nearly but not quite the same values
198 * as the w32 equivalents.
200 static guint32 convert_attrs(MonoFileAttributes attrs)
202 if(attrs & FileAttributes_Encrypted) {
203 attrs |= FILE_ATTRIBUTE_ENCRYPTED;
209 /* System.IO.MonoIO internal calls */
212 ves_icall_System_IO_MonoIO_CreateDirectory (MonoString *path, gint32 *error)
218 *error=ERROR_SUCCESS;
220 ret=CreateDirectory (mono_string_chars (path), NULL);
222 *error=GetLastError ();
229 ves_icall_System_IO_MonoIO_RemoveDirectory (MonoString *path, gint32 *error)
235 *error=ERROR_SUCCESS;
237 ret=RemoveDirectory (mono_string_chars (path));
239 *error=GetLastError ();
246 ves_icall_System_IO_MonoIO_FindFirstFile (MonoString *path, MonoIOStat *stat,
249 WIN32_FIND_DATA data;
255 *error=ERROR_SUCCESS;
257 result = FindFirstFile (mono_string_chars (path), &data);
259 /* note: WIN32_FIND_DATA is an extension of WIN32_FILE_ATTRIBUTE_DATA */
260 while (result != INVALID_HANDLE_VALUE && r) {
261 if ((data.cFileName [0] == '.' && data.cFileName [1] == 0) ||
262 (data.cFileName [0] == '.' && data.cFileName [1] == '.' && data.cFileName [2] == 0)) {
263 r = FindNextFile (result, &data);
265 convert_win32_file_attribute_data ((const WIN32_FILE_ATTRIBUTE_DATA *)&data,
266 &data.cFileName [0], stat);
271 if (result == INVALID_HANDLE_VALUE) {
272 *error=GetLastError ();
279 ves_icall_System_IO_MonoIO_FindNextFile (HANDLE find, MonoIOStat *stat,
282 WIN32_FIND_DATA data;
287 *error=ERROR_SUCCESS;
289 result = FindNextFile (find, &data);
290 while (result != FALSE) {
291 if ((data.cFileName [0] == '.' && data.cFileName [1] == 0) ||
292 (data.cFileName [0] == '.' && data.cFileName [1] == '.' && data.cFileName [2] == 0)) {
293 result = FindNextFile (find, &data);
295 convert_win32_file_attribute_data ((const WIN32_FILE_ATTRIBUTE_DATA *)&data,
296 &data.cFileName [0], stat);
301 if (result == FALSE) {
302 *error=GetLastError ();
309 ves_icall_System_IO_MonoIO_FindClose (HANDLE find, gint32 *error)
315 *error=ERROR_SUCCESS;
317 ret=FindClose (find);
319 *error=GetLastError ();
326 ves_icall_System_IO_MonoIO_GetCurrentDirectory (gint32 *error)
335 buf = g_new (gunichar2, len);
337 *error=ERROR_SUCCESS;
340 if (GetCurrentDirectory (len, buf) > 0) {
345 result = mono_string_new_utf16 (mono_domain_get (), buf, len);
347 *error=GetLastError ();
355 ves_icall_System_IO_MonoIO_SetCurrentDirectory (MonoString *path,
362 *error=ERROR_SUCCESS;
364 ret=SetCurrentDirectory (mono_string_chars (path));
366 *error=GetLastError ();
373 ves_icall_System_IO_MonoIO_MoveFile (MonoString *path, MonoString *dest,
380 *error=ERROR_SUCCESS;
382 ret=MoveFile (mono_string_chars (path), mono_string_chars (dest));
384 *error=GetLastError ();
391 ves_icall_System_IO_MonoIO_CopyFile (MonoString *path, MonoString *dest,
392 MonoBoolean overwrite, gint32 *error)
398 *error=ERROR_SUCCESS;
400 ret=CopyFile (mono_string_chars (path), mono_string_chars (dest), !overwrite);
402 *error=GetLastError ();
409 ves_icall_System_IO_MonoIO_DeleteFile (MonoString *path, gint32 *error)
415 *error=ERROR_SUCCESS;
417 ret=DeleteFile (mono_string_chars (path));
419 *error=GetLastError ();
426 ves_icall_System_IO_MonoIO_GetFileAttributes (MonoString *path, gint32 *error)
432 *error=ERROR_SUCCESS;
434 ret=GetFileAttributes (mono_string_chars (path));
437 * The definition of INVALID_FILE_ATTRIBUTES in the cygwin win32
438 * headers is wrong, hence this temporary workaround.
440 * http://cygwin.com/ml/cygwin/2003-09/msg01771.html
443 // if(ret==INVALID_FILE_ATTRIBUTES) {
444 *error=GetLastError ();
451 ves_icall_System_IO_MonoIO_SetFileAttributes (MonoString *path, gint32 attrs,
458 *error=ERROR_SUCCESS;
460 ret=SetFileAttributes (mono_string_chars (path),
461 convert_attrs (attrs));
463 *error=GetLastError ();
470 ves_icall_System_IO_MonoIO_GetFileType (HANDLE handle, gint32 *error)
476 *error=ERROR_SUCCESS;
478 ret=GetFileType (handle);
479 if(ret==FILE_TYPE_UNKNOWN) {
480 /* Not necessarily an error, but the caller will have
481 * to decide based on the error value.
483 *error=GetLastError ();
490 ves_icall_System_IO_MonoIO_GetFileStat (MonoString *path, MonoIOStat *stat,
494 WIN32_FILE_ATTRIBUTE_DATA data;
498 *error=ERROR_SUCCESS;
500 result = GetFileAttributesEx (mono_string_chars (path), GetFileExInfoStandard, &data);
503 convert_win32_file_attribute_data (&data,
504 mono_string_chars (path),
507 *error=GetLastError ();
514 ves_icall_System_IO_MonoIO_Open (MonoString *filename, gint32 mode,
515 gint32 access_mode, gint32 share,
516 MonoBoolean async, gint32 *error)
522 *error=ERROR_SUCCESS;
524 ret=CreateFile (mono_string_chars (filename),
525 convert_access (access_mode), convert_share (share),
526 NULL, convert_mode (mode),
527 FILE_ATTRIBUTE_NORMAL | ((async) ? FILE_FLAG_OVERLAPPED : 0),
529 if(ret==INVALID_HANDLE_VALUE) {
530 *error=GetLastError ();
537 ves_icall_System_IO_MonoIO_Close (HANDLE handle, gint32 *error)
543 *error=ERROR_SUCCESS;
545 ret=CloseHandle (handle);
547 *error=GetLastError ();
554 ves_icall_System_IO_MonoIO_Read (HANDLE handle, MonoArray *dest,
555 gint32 dest_offset, gint32 count,
564 *error=ERROR_SUCCESS;
566 if (dest_offset + count > mono_array_length (dest))
569 buffer = mono_array_addr (dest, guchar, dest_offset);
570 result = ReadFile (handle, buffer, count, &n, NULL);
573 *error=GetLastError ();
581 ves_icall_System_IO_MonoIO_Write (HANDLE handle, MonoArray *src,
582 gint32 src_offset, gint32 count,
591 *error=ERROR_SUCCESS;
593 if (src_offset + count > mono_array_length (src))
596 buffer = mono_array_addr (src, guchar, src_offset);
597 result = WriteFile (handle, buffer, count, &n, NULL);
600 *error=GetLastError ();
608 ves_icall_System_IO_MonoIO_Seek (HANDLE handle, gint64 offset, gint32 origin,
615 *error=ERROR_SUCCESS;
617 offset_hi = offset >> 32;
618 offset = SetFilePointer (handle, offset & 0xFFFFFFFF, &offset_hi,
619 convert_seekorigin (origin));
621 if(offset==INVALID_SET_FILE_POINTER) {
622 *error=GetLastError ();
625 return offset | ((gint64)offset_hi << 32);
629 ves_icall_System_IO_MonoIO_Flush (HANDLE handle, gint32 *error)
635 *error=ERROR_SUCCESS;
637 ret=FlushFileBuffers (handle);
639 *error=GetLastError ();
646 ves_icall_System_IO_MonoIO_GetLength (HANDLE handle, gint32 *error)
653 *error=ERROR_SUCCESS;
655 length = GetFileSize (handle, &length_hi);
656 if(length==INVALID_FILE_SIZE) {
657 *error=GetLastError ();
660 return length | ((gint64)length_hi << 32);
664 ves_icall_System_IO_MonoIO_SetLength (HANDLE handle, gint64 length,
667 gint64 offset, offset_set;
674 *error=ERROR_SUCCESS;
676 /* save file pointer */
679 offset = SetFilePointer (handle, 0, &offset_hi, FILE_CURRENT);
680 if(offset==INVALID_SET_FILE_POINTER) {
681 *error=GetLastError ();
685 /* extend or truncate */
687 length_hi = length >> 32;
688 offset_set=SetFilePointer (handle, length & 0xFFFFFFFF, &length_hi,
690 if(offset_set==INVALID_SET_FILE_POINTER) {
691 *error=GetLastError ();
695 result = SetEndOfFile (handle);
697 *error=GetLastError ();
701 /* restore file pointer */
703 offset_set=SetFilePointer (handle, offset & 0xFFFFFFFF, &offset_hi,
705 if(offset_set==INVALID_SET_FILE_POINTER) {
706 *error=GetLastError ();
714 ves_icall_System_IO_MonoIO_SetFileTime (HANDLE handle, gint64 creation_time,
715 gint64 last_access_time,
716 gint64 last_write_time, gint32 *error)
719 const FILETIME *creation_filetime;
720 const FILETIME *last_access_filetime;
721 const FILETIME *last_write_filetime;
725 *error=ERROR_SUCCESS;
727 if (creation_time < 0)
728 creation_filetime = NULL;
730 creation_filetime = (FILETIME *)&creation_time;
732 if (last_access_time < 0)
733 last_access_filetime = NULL;
735 last_access_filetime = (FILETIME *)&last_access_time;
737 if (last_write_time < 0)
738 last_write_filetime = NULL;
740 last_write_filetime = (FILETIME *)&last_write_time;
742 ret=SetFileTime (handle, creation_filetime, last_access_filetime, last_write_filetime);
744 *error=GetLastError ();
751 ves_icall_System_IO_MonoIO_get_ConsoleOutput ()
755 return GetStdHandle (STD_OUTPUT_HANDLE);
759 ves_icall_System_IO_MonoIO_get_ConsoleInput ()
763 return GetStdHandle (STD_INPUT_HANDLE);
767 ves_icall_System_IO_MonoIO_get_ConsoleError ()
771 return GetStdHandle (STD_ERROR_HANDLE);
775 ves_icall_System_IO_MonoIO_CreatePipe (HANDLE *read_handle,
776 HANDLE *write_handle)
778 SECURITY_ATTRIBUTES attr;
783 attr.nLength=sizeof(SECURITY_ATTRIBUTES);
784 attr.bInheritHandle=TRUE;
785 attr.lpSecurityDescriptor=NULL;
787 ret=CreatePipe (read_handle, write_handle, &attr, 0);
789 /* FIXME: throw an exception? */
797 ves_icall_System_IO_MonoIO_get_VolumeSeparatorChar ()
801 #if defined (PLATFORM_WIN32)
802 return (gunichar2) 0x003a; /* colon */
804 return (gunichar2) 0x002f; /* forward slash */
809 ves_icall_System_IO_MonoIO_get_DirectorySeparatorChar ()
813 #if defined (PLATFORM_WIN32)
814 return (gunichar2) 0x005c; /* backslash */
816 return (gunichar2) 0x002f; /* forward slash */
821 ves_icall_System_IO_MonoIO_get_AltDirectorySeparatorChar ()
825 #if defined (PLATFORM_WIN32)
826 return (gunichar2) 0x002f; /* forward slash */
828 return (gunichar2) 0x005c; /* backslash */
833 ves_icall_System_IO_MonoIO_get_PathSeparator ()
837 #if defined (PLATFORM_WIN32)
838 return (gunichar2) 0x003b; /* semicolon */
840 return (gunichar2) 0x003a; /* colon */
844 static gunichar2 invalid_path_chars [] = {
845 #if defined (PLATFORM_WIN32)
846 0x0022, /* double quote, which seems allowed in MS.NET but should be rejected */
847 0x003c, /* less than */
848 0x003e, /* greater than */
865 ves_icall_System_IO_MonoIO_get_InvalidPathChars ()
873 domain = mono_domain_get ();
874 chars = mono_array_new (domain, mono_defaults.char_class, 15);
876 n = sizeof (invalid_path_chars) / sizeof (gunichar2);
878 for (i = 0; i < n; ++ i)
879 mono_array_set (chars, gunichar2, i, invalid_path_chars [i]);
885 ves_icall_System_IO_MonoIO_GetTempPath (MonoString **mono_name)
890 name=g_new0 (gunichar2, 256);
892 ret=GetTempPath (256, name);
894 /* Buffer was too short. Try again... */
896 name=g_new0 (gunichar2, ret+2); /* include the terminator */
897 ret=GetTempPath (ret, name);
902 g_message (G_GNUC_PRETTY_FUNCTION
903 ": Temp path is [%s] (len %d)", name, ret);
906 *mono_name=mono_string_new_utf16 (mono_domain_get (), name,
919 ves_icall_System_IO_MonoIO_GetSupportsAsync (void)
923 #ifdef PLATFORM_WIN32
924 /* Seems like BindIoCompletionCallback is not found when compiling...
925 * Disabling AIO support on win. Any one wants to fix this?
928 /* return (g_getenv ("MONO_DISABLE_AIO") == NULL && WINVER >= 0x500); */
929 #elif defined(USE_AIO)
930 if (aio_cancel (-1, NULL) == -1 && errno == ENOSYS)
933 return (g_getenv ("MONO_DISABLE_AIO") == NULL);
939 static WapiOverlapped *
940 get_overlapped_from_fsa (MonoFSAsyncResult *ares)
944 ovl = g_new0 (WapiOverlapped, 1);
945 ovl->Offset = ares->offset;
946 ovl->hEvent = ares->wait_handle;
952 ves_icall_System_IO_MonoIO_BeginRead (HANDLE handle, MonoFSAsyncResult *ares)
959 ovl = get_overlapped_from_fsa (ares);
961 return ReadFile (handle, mono_array_addr (ares->buffer, gchar, ares->offset), ares->count, &bytesread, ovl);
965 ves_icall_System_IO_MonoIO_BeginWrite (HANDLE handle, MonoFSAsyncResult *ares)
967 guint32 byteswritten;
972 ovl = get_overlapped_from_fsa (ares);
974 return WriteFile (handle, mono_array_addr (ares->buffer, gchar, ares->offset), ares->count, &byteswritten, ovl);
977 void ves_icall_System_IO_MonoIO_Lock (HANDLE handle, gint64 position,
978 gint64 length, gint32 *error)
982 *error=ERROR_SUCCESS;
984 ret=LockFile (handle, position & 0xFFFFFFFF, position >> 32,
985 length & 0xFFFFFFFF, length >> 32);
987 *error = GetLastError ();
991 void ves_icall_System_IO_MonoIO_Unlock (HANDLE handle, gint64 position,
992 gint64 length, gint32 *error)
996 *error=ERROR_SUCCESS;
998 ret=UnlockFile (handle, position & 0xFFFFFFFF, position >> 32,
999 length & 0xFFFFFFFF, length >> 32);
1001 *error = GetLastError ();