Changeset 3221

Timestamp:

Apr 29, 2007, 7:38:19 PM (18 years ago)

Author:

bird

Message:

Don't use DosCopy.

File:

• trunk/essentials/dev-lang/perl/os2/os2.c (modified) (3 diffs)

trunk/essentials/dev-lang/perl/os2/os2.c

@@ -13 +13 @@
 #define SPU_ENABLESUPPRESSION           1
 #include <os2.h>
+#ifdef __KLIBC__
+# include <share.h>
+# include <sys/stat.h>
+#endif
 #include "dlfcn.h"
 #include <emx/syscalls.h>
@@ -24 +28 @@
 
 #ifdef __KLIBC__
-#define INSTALL_PREFIX "u:/perl"
+# define INSTALL_PREFIX "/@unixroot" /* ??? */
 #endif
 
@@ -1869 +1873 @@
             flag = (unsigned long)SvIV(ST(2));
         }
-
+#ifdef __KLIBC__
+    {
+        /* open the input file and verify that it is a file. */
+        int err = 0;
+        int fdSrc = sopen(src, O_RDONLY | O_BINARY | O_NOINHERIT, SH_DENYRW);
+        if (fdSrc < 0)
+            fdSrc = sopen(src, O_RDONLY | O_BINARY | O_NOINHERIT, SH_DENYNO);
+        if (fdSrc)
+        {
+            struct stat stSrc;
+            if (!fstat(fdSrc, &stSrc))
+            {
+                if (S_ISREG(stSrc.st_mode))
+                {
+                    /* open the output file. */
+                    unsigned dstFlags = O_WRONLY | O_BINARY | O_CREAT;
+                    if (flag & DCPY_EXISTING)
+                        dstFlags |= O_TRUNC;
+                    else
+                        dstFlags |= O_EXCL;
+                    if (flag & DCPY_APPEND)
+                        dstFlags |= O_APPEND;
+                    int fdDst = sopen(dst, dstFlags | O_SIZE, SH_DENYRW, 0777, stSrc.st_size);
+                    if (fdDst < 0)
+                        fdDst = sopen(dst, dstFlags | O_SIZE, SH_DENYNO, 0777, stSrc.st_size);
+                    if (fdDst < 0)
+                        fdDst = sopen(dst, dstFlags, SH_DENYNO, 0777, 0);
+                    if (fdDst >= 0)
+                    {
+                        /* allocate buffer */
+                        void *pvBuf, *pvFree;
+                        size_t cbBuf = 0xf000;
+                        pvFree = pvBuf = _tmalloc(cbBuf);
+                        if (!pvBuf)
+                            pvBuf = alloca(cbBuf = 0x8000);
+
+                        /* copy loop. */
+                        while (!err)
+                        {
+                            ssize_t cbSrc, cbDst;
+
+                            cbSrc = read(fdSrc, pvBuf, cbBuf);
+                            if (cbSrc == 0)
+                                break; /* eof */
+                            if (cbSrc < 0)
+                                err = errno;
+                            else
+                            {
+                                cbDst = write(fdDst, pvBuf, cbSrc);
+                                if (cbDst <= 0)
+                                    err = errno;
+                                else if (cbDst < cbSrc)
+                                {
+                                    ssize_t cb;
+                                    do
+                                    {
+                                        cb = write(fdDst, (const char *)pvBuf + cbDst, cbSrc - cbDst);
+                                        if (cb >= 0)
+                                            cbDst += cb;
+                                        else
+                                            err = errno;
+                                    }
+                                    while (cbDst < cbSrc && !err);
+                                }
+                            }
+                        } /* the copy loop  */
+
+                        /* TODO/FIXME: EAs! */
+
+                        /* cleanup */
+                        free(pvFree);
+                        close(fdDst);
+                    }
+                    else
+                        err = errno;
+                }
+                else
+                    err = ENOTSUP;
+            }
+            else
+                err = errno;
+            close(fdSrc);
+         }
+        else
+            err = errno;
+        errno = err;
+        RETVAL = !err;
+    }
+#else
         RETVAL = !CheckOSError(DosCopy(src, dst, flag));
+#endif 
 /* FIXME: this copies EAs as well, including the unix EAs. great. */
         XSprePUSH; PUSHi((IV)RETVAL);