[Dotgnu-pnet-commits] CVS: pnet/engine int_proto.h,1.42,1.43 int_table.c,1.44,1.45 lib_file.c,1.7,1.8

[Rhys Weatherley <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/engine
In directory subversions:/tmp/cvs-serv26534/engine

Modified Files:
        int_proto.h int_table.c lib_file.c 
Log Message:


Internalcalls for file create time methods.


Index: int_proto.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_proto.h,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -r1.42 -r1.43
*** int_proto.h 4 Jan 2003 04:42:56 -0000       1.42
--- int_proto.h 9 Jan 2003 00:18:40 -0000       1.43
***************
*** 324,327 ****
--- 324,337 ----
  extern ILObject * _IL_ClrMethod_GetBaseDefinition(ILExecThread * _thread, 
ILObject * _this);
  
+ extern ILInt32 _IL_ClrParameter_GetParamAttrs(ILExecThread * _thread, 
ILNativeInt item);
+ extern ILString * _IL_ClrParameter_GetParamName(ILExecThread * _thread, 
ILNativeInt item);
+ extern ILObject * _IL_ClrParameter_GetDefault(ILExecThread * _thread, 
ILNativeInt item);
+ 
+ extern ILObject * _IL_ClrProperty_GetPropertyType(ILExecThread * _thread, 
ILNativeInt item);
+ 
+ extern ILInt32 _IL_ClrResourceStream_ResourceRead(ILExecThread * _thread, 
ILNativeInt handle, ILInt64 position, System_Array * buffer, ILInt32 offset, 
ILInt32 count);
+ extern ILInt32 _IL_ClrResourceStream_ResourceReadByte(ILExecThread * _thread, 
ILNativeInt handle, ILInt64 position);
+ extern ILUInt8 * _IL_ClrResourceStream_ResourceGetAddress(ILExecThread * 
_thread, ILNativeInt handle, ILInt64 position);
+ 
  extern ILInt32 _IL_ClrType_GetClrArrayRank(ILExecThread * _thread, ILObject * 
_this);
  extern ILInt32 _IL_ClrType_GetAttributeFlagsImpl(ILExecThread * _thread, 
ILObject * _this);
***************
*** 343,356 ****
  extern ILString * _IL_ClrType_GetClrNamespace(ILExecThread * _thread, 
ILObject * _this);
  
- extern ILInt32 _IL_ClrParameter_GetParamAttrs(ILExecThread * _thread, 
ILNativeInt item);
- extern ILString * _IL_ClrParameter_GetParamName(ILExecThread * _thread, 
ILNativeInt item);
- extern ILObject * _IL_ClrParameter_GetDefault(ILExecThread * _thread, 
ILNativeInt item);
- 
- extern ILObject * _IL_ClrProperty_GetPropertyType(ILExecThread * _thread, 
ILNativeInt item);
- 
- extern ILInt32 _IL_ClrResourceStream_ResourceRead(ILExecThread * _thread, 
ILNativeInt handle, ILInt64 position, System_Array * buffer, ILInt32 offset, 
ILInt32 count);
- extern ILInt32 _IL_ClrResourceStream_ResourceReadByte(ILExecThread * _thread, 
ILNativeInt handle, ILInt64 position);
- extern ILUInt8 * _IL_ClrResourceStream_ResourceGetAddress(ILExecThread * 
_thread, ILNativeInt handle, ILInt64 position);
- 
  extern ILObject * _IL_Module_GetModuleType(ILExecThread * _thread, ILObject * 
_this);
  extern ILObject * _IL_Module_GetAssembly(ILExecThread * _thread, ILObject * 
_this);
--- 353,356 ----
***************
*** 421,428 ****
  extern ILBool _IL_FileMethods_ValidatePathname(ILExecThread * _thread, 
ILString * path);
  extern ILString * _IL_FileMethods_GetErrnoMessage(ILExecThread * _thread, 
ILInt32 error);
! extern ILInt32 _IL_FileMethods_Copy(ILExecThread * _thread, ILString * src, 
ILString * dest);
! extern ILBool _IL_FileMethods_Exists(ILExecThread * _thread, ILString * path);
  extern ILInt32 _IL_FileMethods_SetLastAccessTime(ILExecThread * _thread, 
ILString * path, ILInt64 ticks);
  extern ILInt32 _IL_FileMethods_SetLastWriteTime(ILExecThread * _thread, 
ILString * path, ILInt64 ticks);
  extern ILBool _IL_FileMethods_Open(ILExecThread * _thread, ILString * path, 
ILInt32 mode, ILInt32 access, ILInt32 share, ILNativeInt * handle);
  extern ILInt32 _IL_FileMethods_GetErrno(ILExecThread * _thread);
--- 421,429 ----
  extern ILBool _IL_FileMethods_ValidatePathname(ILExecThread * _thread, 
ILString * path);
  extern ILString * _IL_FileMethods_GetErrnoMessage(ILExecThread * _thread, 
ILInt32 error);
! extern ILInt32 _IL_FileMethods_SetCreationTime(ILExecThread * _thread, 
ILString * path, ILInt64 ticks);
  extern ILInt32 _IL_FileMethods_SetLastAccessTime(ILExecThread * _thread, 
ILString * path, ILInt64 ticks);
  extern ILInt32 _IL_FileMethods_SetLastWriteTime(ILExecThread * _thread, 
ILString * path, ILInt64 ticks);
+ extern ILInt32 _IL_FileMethods_Copy(ILExecThread * _thread, ILString * src, 
ILString * dest);
+ extern ILBool _IL_FileMethods_Exists(ILExecThread * _thread, ILString * path);
  extern ILBool _IL_FileMethods_Open(ILExecThread * _thread, ILString * path, 
ILInt32 mode, ILInt32 access, ILInt32 share, ILNativeInt * handle);
  extern ILInt32 _IL_FileMethods_GetErrno(ILExecThread * _thread);

Index: int_table.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_table.c,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -r1.44 -r1.45
*** int_table.c 4 Jan 2003 04:42:56 -0000       1.44
--- int_table.c 9 Jan 2003 00:18:40 -0000       1.45
***************
*** 1692,1738 ****
  #endif
  
- #if !defined(HAVE_LIBFFI)
- 
- static void marshal_ppppiipipp(void (*fn)(), void *rvalue, void **avalue)
- {
-       *((void * *)rvalue) = (*(void * (*)(void *, void *, void *, ILInt32, 
ILInt32, void *, ILInt32, void *, void *))fn)(*((void * *)(avalue[0])), *((void 
* *)(avalue[1])), *((void * *)(avalue[2])), *((ILInt32 *)(avalue[3])), 
*((ILInt32 *)(avalue[4])), *((void * *)(avalue[5])), *((ILInt32 *)(avalue[6])), 
*((void * *)(avalue[7])), *((void * *)(avalue[8])));
- }
- 
- #endif
- 
- #if !defined(HAVE_LIBFFI)
- 
- static void marshal_pppiipp(void (*fn)(), void *rvalue, void **avalue)
- {
-       *((void * *)rvalue) = (*(void * (*)(void *, void *, ILInt32, ILInt32, 
void *, void *))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), 
*((ILInt32 *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((void * *)(avalue[4])), 
*((void * *)(avalue[5])));
- }
- 
- #endif
- 
- #ifndef _IL_ClrType_suppressed
- 
- IL_METHOD_BEGIN(ClrType_Methods)
-       IL_METHOD("GetClrArrayRank", "(T)i", _IL_ClrType_GetClrArrayRank, 
marshal_ipp)
-       IL_METHOD("GetAttributeFlagsImpl", 
"(T)vSystem.Reflection.TypeAttributes;", _IL_ClrType_GetAttributeFlagsImpl, 
marshal_ipp)
-       IL_METHOD("GetElementType", "(T)oSystem.Type;", 
_IL_ClrType_GetElementType, marshal_ppp)
-       IL_METHOD("GetInterface", "(ToSystem.String;Z)oSystem.Type;", 
_IL_ClrType_GetInterface, marshal_ppppb)
-       IL_METHOD("GetInterfaces", "(T)[oSystem.Type;", 
_IL_ClrType_GetInterfaces, marshal_ppp)
-       IL_METHOD("GetMemberImpl", 
"(ToSystem.String;vSystem.Reflection.MemberTypes;vSystem.Reflection.BindingFlags;oSystem.Reflection.Binder;vSystem.Reflection.CallingConventions;[oSystem.Type;[vSystem.Reflection.ParameterModifier;)oSystem.Reflection.MemberInfo;",
 _IL_ClrType_GetMemberImpl, marshal_ppppiipipp)
-       IL_METHOD("GetMembersImpl", 
"(TvSystem.Reflection.MemberTypes;vSystem.Reflection.BindingFlags;oSystem.Type;oSystem.String;)oSystem.Object;",
 _IL_ClrType_GetMembersImpl, marshal_pppiipp)
-       IL_METHOD("GetClrTypeCategory", 
"(T)vSystem.Reflection.ClrTypeCategory;", _IL_ClrType_GetClrTypeCategory, 
marshal_ipp)
-       IL_METHOD("IsSubclassOf", "(ToSystem.Type;)Z", 
_IL_ClrType_IsSubclassOf, marshal_bppp)
-       IL_METHOD("IsClrNestedType", "(T)Z", _IL_ClrType_IsClrNestedType, 
marshal_bpp)
-       IL_METHOD("GetClrFullName", "(T)oSystem.String;", 
_IL_ClrType_GetClrFullName, marshal_ppp)
-       IL_METHOD("GetClrAssembly", "(T)oSystem.Reflection.Assembly;", 
_IL_ClrType_GetClrAssembly, marshal_ppp)
-       IL_METHOD("GetClrBaseType", "(T)oSystem.Type;", 
_IL_ClrType_GetClrBaseType, marshal_ppp)
-       IL_METHOD("GetClrGUID", "(T)vSystem.Guid;", _IL_ClrType_GetClrGUID, 
marshal_vppp)
-       IL_METHOD("GetClrModule", "(T)oSystem.Reflection.Module;", 
_IL_ClrType_GetClrModule, marshal_ppp)
-       IL_METHOD("GetClrNestedDeclaringType", "(T)oSystem.Type;", 
_IL_ClrType_GetClrNestedDeclaringType, marshal_ppp)
-       IL_METHOD("GetClrName", "(T)oSystem.String;", _IL_ClrType_GetClrName, 
marshal_ppp)
-       IL_METHOD("GetClrNamespace", "(T)oSystem.String;", 
_IL_ClrType_GetClrNamespace, marshal_ppp)
- IL_METHOD_END
- 
- #endif
- 
  #ifndef _IL_ClrParameter_suppressed
  
--- 1692,1695 ----
***************
*** 1790,1793 ****
--- 1747,1793 ----
  #endif
  
+ #if !defined(HAVE_LIBFFI)
+ 
+ static void marshal_ppppiipipp(void (*fn)(), void *rvalue, void **avalue)
+ {
+       *((void * *)rvalue) = (*(void * (*)(void *, void *, void *, ILInt32, 
ILInt32, void *, ILInt32, void *, void *))fn)(*((void * *)(avalue[0])), *((void 
* *)(avalue[1])), *((void * *)(avalue[2])), *((ILInt32 *)(avalue[3])), 
*((ILInt32 *)(avalue[4])), *((void * *)(avalue[5])), *((ILInt32 *)(avalue[6])), 
*((void * *)(avalue[7])), *((void * *)(avalue[8])));
+ }
+ 
+ #endif
+ 
+ #if !defined(HAVE_LIBFFI)
+ 
+ static void marshal_pppiipp(void (*fn)(), void *rvalue, void **avalue)
+ {
+       *((void * *)rvalue) = (*(void * (*)(void *, void *, ILInt32, ILInt32, 
void *, void *))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), 
*((ILInt32 *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((void * *)(avalue[4])), 
*((void * *)(avalue[5])));
+ }
+ 
+ #endif
+ 
+ #ifndef _IL_ClrType_suppressed
+ 
+ IL_METHOD_BEGIN(ClrType_Methods)
+       IL_METHOD("GetClrArrayRank", "(T)i", _IL_ClrType_GetClrArrayRank, 
marshal_ipp)
+       IL_METHOD("GetAttributeFlagsImpl", 
"(T)vSystem.Reflection.TypeAttributes;", _IL_ClrType_GetAttributeFlagsImpl, 
marshal_ipp)
+       IL_METHOD("GetElementType", "(T)oSystem.Type;", 
_IL_ClrType_GetElementType, marshal_ppp)
+       IL_METHOD("GetInterface", "(ToSystem.String;Z)oSystem.Type;", 
_IL_ClrType_GetInterface, marshal_ppppb)
+       IL_METHOD("GetInterfaces", "(T)[oSystem.Type;", 
_IL_ClrType_GetInterfaces, marshal_ppp)
+       IL_METHOD("GetMemberImpl", 
"(ToSystem.String;vSystem.Reflection.MemberTypes;vSystem.Reflection.BindingFlags;oSystem.Reflection.Binder;vSystem.Reflection.CallingConventions;[oSystem.Type;[vSystem.Reflection.ParameterModifier;)oSystem.Reflection.MemberInfo;",
 _IL_ClrType_GetMemberImpl, marshal_ppppiipipp)
+       IL_METHOD("GetMembersImpl", 
"(TvSystem.Reflection.MemberTypes;vSystem.Reflection.BindingFlags;oSystem.Type;oSystem.String;)oSystem.Object;",
 _IL_ClrType_GetMembersImpl, marshal_pppiipp)
+       IL_METHOD("GetClrTypeCategory", 
"(T)vSystem.Reflection.ClrTypeCategory;", _IL_ClrType_GetClrTypeCategory, 
marshal_ipp)
+       IL_METHOD("IsSubclassOf", "(ToSystem.Type;)Z", 
_IL_ClrType_IsSubclassOf, marshal_bppp)
+       IL_METHOD("IsClrNestedType", "(T)Z", _IL_ClrType_IsClrNestedType, 
marshal_bpp)
+       IL_METHOD("GetClrFullName", "(T)oSystem.String;", 
_IL_ClrType_GetClrFullName, marshal_ppp)
+       IL_METHOD("GetClrAssembly", "(T)oSystem.Reflection.Assembly;", 
_IL_ClrType_GetClrAssembly, marshal_ppp)
+       IL_METHOD("GetClrBaseType", "(T)oSystem.Type;", 
_IL_ClrType_GetClrBaseType, marshal_ppp)
+       IL_METHOD("GetClrGUID", "(T)vSystem.Guid;", _IL_ClrType_GetClrGUID, 
marshal_vppp)
+       IL_METHOD("GetClrModule", "(T)oSystem.Reflection.Module;", 
_IL_ClrType_GetClrModule, marshal_ppp)
+       IL_METHOD("GetClrNestedDeclaringType", "(T)oSystem.Type;", 
_IL_ClrType_GetClrNestedDeclaringType, marshal_ppp)
+       IL_METHOD("GetClrName", "(T)oSystem.String;", _IL_ClrType_GetClrName, 
marshal_ppp)
+       IL_METHOD("GetClrNamespace", "(T)oSystem.String;", 
_IL_ClrType_GetClrNamespace, marshal_ppp)
+ IL_METHOD_END
+ 
+ #endif
+ 
  #ifndef _IL_Module_suppressed
  
***************
*** 2044,2051 ****
        IL_METHOD("ValidatePathname", "(oSystem.String;)Z", 
_IL_FileMethods_ValidatePathname, marshal_bpp)
        IL_METHOD("GetErrnoMessage", "(vPlatform.Errno;)oSystem.String;", 
_IL_FileMethods_GetErrnoMessage, marshal_ppi)
!       IL_METHOD("Copy", "(oSystem.String;oSystem.String;)vPlatform.Errno;", 
_IL_FileMethods_Copy, marshal_ippp)
!       IL_METHOD("Exists", "(oSystem.String;)Z", _IL_FileMethods_Exists, 
marshal_bpp)
        IL_METHOD("SetLastAccessTime", "(oSystem.String;l)vPlatform.Errno;", 
_IL_FileMethods_SetLastAccessTime, marshal_ippl)
        IL_METHOD("SetLastWriteTime", "(oSystem.String;l)vPlatform.Errno;", 
_IL_FileMethods_SetLastWriteTime, marshal_ippl)
        IL_METHOD("Open", 
"(oSystem.String;vSystem.IO.FileMode;vSystem.IO.FileAccess;vSystem.IO.FileShare;&j)Z",
 _IL_FileMethods_Open, marshal_bppiiip)
        IL_METHOD("GetErrno", "()vPlatform.Errno;", _IL_FileMethods_GetErrno, 
marshal_ip)
--- 2044,2052 ----
        IL_METHOD("ValidatePathname", "(oSystem.String;)Z", 
_IL_FileMethods_ValidatePathname, marshal_bpp)
        IL_METHOD("GetErrnoMessage", "(vPlatform.Errno;)oSystem.String;", 
_IL_FileMethods_GetErrnoMessage, marshal_ppi)
!       IL_METHOD("SetCreationTime", "(oSystem.String;l)vPlatform.Errno;", 
_IL_FileMethods_SetCreationTime, marshal_ippl)
        IL_METHOD("SetLastAccessTime", "(oSystem.String;l)vPlatform.Errno;", 
_IL_FileMethods_SetLastAccessTime, marshal_ippl)
        IL_METHOD("SetLastWriteTime", "(oSystem.String;l)vPlatform.Errno;", 
_IL_FileMethods_SetLastWriteTime, marshal_ippl)
+       IL_METHOD("Copy", "(oSystem.String;oSystem.String;)vPlatform.Errno;", 
_IL_FileMethods_Copy, marshal_ippp)
+       IL_METHOD("Exists", "(oSystem.String;)Z", _IL_FileMethods_Exists, 
marshal_bpp)
        IL_METHOD("Open", 
"(oSystem.String;vSystem.IO.FileMode;vSystem.IO.FileAccess;vSystem.IO.FileShare;&j)Z",
 _IL_FileMethods_Open, marshal_bppiiip)
        IL_METHOD("GetErrno", "()vPlatform.Errno;", _IL_FileMethods_GetErrno, 
marshal_ip)

Index: lib_file.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_file.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** lib_file.c  4 Jan 2003 04:42:56 -0000       1.7
--- lib_file.c  9 Jan 2003 00:18:40 -0000       1.8
***************
*** 241,242 ****
--- 241,258 ----
        return ILSysIOSetAccessTime(path_ansi, ticks);
  }
+ 
+ /*
+  * public static Errno SetCreationTime(String path, long ticks);
+  */
+ ILInt32 _IL_FileMethods_SetCreationTime(ILExecThread *thread, ILString *path, 
ILInt64 ticks)
+ {
+       char *path_ansi = ILStringToAnsi(thread, path);
+       
+       if(!path_ansi)
+       {
+               ILSysIOSetErrno(IL_ERRNO_ENOMEM);
+               return 0;
+       }
+ 
+       return ILSysIOSetCreationTime(path_ansi, ticks);
+ }