[Dotgnu-pnet-commits] CVS: pnet/engine int_proto.h,1.43,1.44 int_table.c,1.45,1.46 lib_dir.c,1.14,1.15

[Gopal.V <address@hidden>]

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

Modified Files:
        int_proto.h int_table.c lib_dir.c 
Log Message:
DirMethods.CreateDirectory() internal calls


Index: int_proto.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_proto.h,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -r1.43 -r1.44
*** int_proto.h 9 Jan 2003 00:18:40 -0000       1.43
--- int_proto.h 17 Feb 2003 20:53:05 -0000      1.44
***************
*** 3,239 ****
  extern ILObject * _IL_Object_GetType(ILExecThread * _thread, ILObject * 
_this);
  extern ILInt32 _IL_Object_GetHashCode(ILExecThread * _thread, ILObject * 
_this);
! extern ILBool _IL_Object_Equals(ILExecThread * _thread, ILObject * _this, 
ILObject * obj);
  extern ILObject * _IL_Object_MemberwiseClone(ILExecThread * _thread, ILObject 
* _this);
  
! extern void _IL_ArgIterator_ctor_RuntimeArgumentHandle(ILExecThread * 
_thread, void * _this, void * argList);
! extern void _IL_ArgIterator_ctor_RuntimeArgumentHandlepV(ILExecThread * 
_thread, void * _this, void * argList, void * ptr);
  extern void _IL_ArgIterator_End(ILExecThread * _thread, void * _this);
  extern ILTypedRef _IL_ArgIterator_GetNextArg_(ILExecThread * _thread, void * 
_this);
! extern ILTypedRef _IL_ArgIterator_GetNextArg_RuntimeTypeHandle(ILExecThread * 
_thread, void * _this, void * type);
[...970 lines suppressed...]
! extern ILBool _IL_SocketMethods_Connect(ILExecThread * _thread, ILNativeInt 
_p1, ILInt32 _p2, ILInt64 _p3, ILInt32 _p4);
! extern ILInt32 _IL_SocketMethods_Receive(ILExecThread * _thread, ILNativeInt 
_p1, System_Array * _p2, ILInt32 _p3, ILInt32 _p4, ILInt32 _p5);
! extern ILInt32 _IL_SocketMethods_ReceiveFrom(ILExecThread * _thread, 
ILNativeInt _p1, System_Array * _p2, ILInt32 _p3, ILInt32 _p4, ILInt32 _p5, 
ILInt64 * address, ILInt32 * port);
! extern ILInt32 _IL_SocketMethods_Send(ILExecThread * _thread, ILNativeInt 
_p1, System_Array * _p2, ILInt32 _p3, ILInt32 _p4, ILInt32 _p5);
! extern ILInt32 _IL_SocketMethods_SendTo(ILExecThread * _thread, ILNativeInt 
_p1, System_Array * _p2, ILInt32 _p3, ILInt32 _p4, ILInt32 _p5, ILInt64 _p6, 
ILInt32 _p7);
! extern ILBool _IL_SocketMethods_Close(ILExecThread * _thread, ILNativeInt 
_p1);
! extern ILInt32 _IL_SocketMethods_Select(ILExecThread * _thread, System_Array 
* _p1, System_Array * _p2, System_Array * _p3, ILInt64 _p4);
  extern ILInt32 _IL_SocketMethods_GetErrno(ILExecThread * _thread);
! extern ILString * _IL_SocketMethods_GetErrnoMessage(ILExecThread * _thread, 
ILInt32 _p1);
  
! extern ILBool _IL_Dns_InternalGetHostByName(ILExecThread * _thread, ILString 
* _p1, ILString * * h_name, System_Array * * h_aliases, System_Array * * 
h_addr_list);
! extern ILBool _IL_Dns_InternalGetHostByAddr(ILExecThread * _thread, ILInt64 
_p1, ILString * * h_name, System_Array * * h_aliases, System_Array * * 
h_addr_list);
  
! extern ILInt32 _IL_IPAddress_HostToNetworkOrder_i(ILExecThread * _thread, 
ILInt32 _p1);
! extern ILInt64 _IL_IPAddress_HostToNetworkOrder_l(ILExecThread * _thread, 
ILInt64 _p1);
! extern ILInt16 _IL_IPAddress_HostToNetworkOrder_s(ILExecThread * _thread, 
ILInt16 _p1);
! extern ILInt64 _IL_IPAddress_NetworkToHostOrder_l(ILExecThread * _thread, 
ILInt64 _p1);
! extern ILInt32 _IL_IPAddress_NetworkToHostOrder_i(ILExecThread * _thread, 
ILInt32 _p1);
! extern ILInt16 _IL_IPAddress_NetworkToHostOrder_s(ILExecThread * _thread, 
ILInt16 _p1);
  

Index: int_table.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_table.c,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -r1.45 -r1.46
*** int_table.c 9 Jan 2003 00:18:40 -0000       1.45
--- int_table.c 17 Feb 2003 20:53:05 -0000      1.46
***************
*** 1692,1695 ****
--- 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
  
***************
*** 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
  
--- 1790,1793 ----
***************
*** 1965,1968 ****
--- 1965,1969 ----
        IL_METHOD("GetCurrentDirectory", "()oSystem.String;", 
_IL_DirMethods_GetCurrentDirectory, marshal_pp)
        IL_METHOD("ChangeDirectory", "(oSystem.String;)vPlatform.Errno;", 
_IL_DirMethods_ChangeDirectory, marshal_ipp)
+       IL_METHOD("CreateDirectory", "(oSystem.String;)vPlatform.Errno;", 
_IL_DirMethods_CreateDirectory, marshal_ipp)
        IL_METHOD("Delete", "(oSystem.String;)vPlatform.Errno;", 
_IL_DirMethods_Delete, marshal_ipp)
        IL_METHOD("GetLastAccess", "(oSystem.String;&l)vPlatform.Errno;", 
_IL_DirMethods_GetLastAccess, marshal_ippp)

Index: lib_dir.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_dir.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** lib_dir.c   18 Dec 2002 03:24:33 -0000      1.14
--- lib_dir.c   17 Feb 2003 20:53:05 -0000      1.15
***************
*** 153,156 ****
--- 153,164 ----
  
  /*
+  * public static Errno CreateDirectory(String path);
+  */
+ ILInt32 _IL_DirMethods_CreateDirectory(ILExecThread *_thread, ILString *path)
+ {
+       return ILCreateDir(ILStringToAnsi(_thread, path));
+ }
+ 
+ /*
   * public static Errno Delete(String path);
   */