[Oorexx-svn] SF.net SVN: oorexx:[6920] main/trunk/extensions/platform/unix/rxunixsys/ rxunixsys.cpp

[<wda...@us...>]

Revision: 6920
          http://oorexx.svn.sourceforge.net/oorexx/?rev=6920&view=rev
Author:   wdashley
Date:     2011-04-12 16:35:27 +0000 (Tue, 12 Apr 2011)

Log Message:
-----------
Add SysClose function.

Modified Paths:
--------------
    main/trunk/extensions/platform/unix/rxunixsys/rxunixsys.cpp

Modified: main/trunk/extensions/platform/unix/rxunixsys/rxunixsys.cpp
===================================================================
--- main/trunk/extensions/platform/unix/rxunixsys/rxunixsys.cpp	2011-04-12 16:15:57 UTC (rev 6919)
+++ main/trunk/extensions/platform/unix/rxunixsys/rxunixsys.cpp	2011-04-12 16:35:27 UTC (rev 6920)
@@ -571,6 +571,23 @@
 
 
 /**
+ * Method:        SysClose
+ *
+ * Close a file handle.
+ *
+ * @param nmask   The file handle to close.
+ *
+ * @return        the return code from the C close function
+ */
+RexxRoutine1(int,
+             SysClose,
+             int, fh)
+{
+    return close(fh);
+}
+
+
+/**
  * Method:        SysGetpwnam
  *
  * Return user name information from the passwd file.
@@ -1724,6 +1741,7 @@
     REXX_TYPED_ROUTINE(SysLchown, SysLchown),
     REXX_TYPED_ROUTINE(SysChroot, SysChroot),
     REXX_TYPED_ROUTINE(SysUmask, SysUmask),
+    REXX_TYPED_ROUTINE(SysClose, SysClose),
     REXX_TYPED_ROUTINE(SysGetpwnam, SysGetpwnam),
     REXX_TYPED_ROUTINE(SysGetpwuid, SysGetpwuid),
     REXX_TYPED_ROUTINE(SysGetgrnam, SysGetgrnam),


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.