/*

 * Copyright 2008-2009 Sun Microsystems, Inc.  All Rights Reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Sun designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Sun in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 */

#include "jni.h"

#include "jni_util.h"

#include "jlong.h"

#include <unistd.h>

#include <errno.h>

#include "sun_nio_fs_UnixCopyFile.h"

#define RESTARTABLE(_cmd, _result) do { \

  do { \

    _result = _cmd; \

  } while((_result == -1) && (errno == EINTR)); \

} while(0)

static void throwUnixException(JNIEnv* env, int errnum) {

    jobject x = JNU_NewObjectByName(env, "sun/nio/fs/UnixException",

        "(I)V", errnum);

    if (x != NULL) {

        (*env)->Throw(env, x);

    }

}

/**

 * Transfer all bytes from src to dst via user-space buffers

 */

JNIEXPORT void JNICALL

Java_sun_nio_fs_UnixCopyFile_transfer

    (JNIEnv* env, jclass this, jint dst, jint src, jlong cancelAddress)

{

    char buf[8192];

    volatile jint* cancel = (jint*)jlong_to_ptr(cancelAddress);

    for (;;) {

        ssize_t n, pos, len;

        RESTARTABLE(read((int)src, &buf, sizeof(buf)), n);

        if (n <= 0) {

            if (n < 0)

                throwUnixException(env, errno);

            return;

        }

        if (cancel != NULL && *cancel != 0) {

            throwUnixException(env, ECANCELED);

            return;

        }

        pos = 0;

        len = n;

        do {

            char* bufp = buf;

            bufp += pos;

            RESTARTABLE(write((int)dst, bufp, len), n);

            if (n == -1) {

                throwUnixException(env, errno);

                return;

            }

            pos += n;

            len -= n;

        } while (len > 0);

    }

}