Subversion Repositories c0or1k

/*

 * Execve test.

 */

#include <stdio.h>

#include <unistd.h>

#include <tests.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <fcntl.h>

#include <string.h>

#include <errno.h>

#include <alloca.h>

#include <l4lib/ipcdefs.h>

extern char _start_test_exec[];

extern char _end_test_exec[];

int exectest(pid_t parent_of_all)

{

        int fd, err;

        void *exec_start = (void *)_start_test_exec;

        unsigned long size = _end_test_exec - _start_test_exec;

        char filename[128];

        char env_string1[30];

        char env_string2[30];

        int left, cnt;

        char *argv[5];

        char *envp[3];

        memset(filename, 0, 128);

        sprintf(filename, "/home/bahadir/execfile%d", getpid());

        /* First create a new file and write the executable data to that file */

        if ((fd = open(filename, O_RDWR | O_CREAT | O_TRUNC, S_IRWXU)) < 0) {

                err = errno;

                test_printf("OPEN: %d, for %s\n", errno, filename);

                /*

                 * If it is a minor error like EEXIST,

                 * create one with different name

                 */

                if (errno == EEXIST) {

                        sprintf(filename, "/home/bahadir/execfile%d-2",

                                getpid());

                        if ((fd = open(filename,

                                       O_RDWR | O_CREAT | O_TRUNC, S_IRWXU))

                                       < 0) {

                                printf("OPEN: %d, failed twice, "

                                       "last time for %s\n",

                                       errno, filename);

                                goto out_err;

                        }

                } else

                        goto out_err;

        }

        left = size;

        test_printf("Writing %x bytes to %s\n", left, filename);

        while (left != 0) {

                if ((cnt = write(fd, exec_start, left)) < 0)

                        goto out_err;

                left -= cnt;

        }

        if ((err = close(fd)) < 0) {

                goto out_err;

        }

#if 0

        /* Reopen */

        if ((fd = open(filename, O_RDONLY, S_IRWXU)) < 0) {

                err = errno;

                test_printf("OPEN: %d, for %s\n", errno, filename);

        }

        printf("Reopened %s\n", filename);

        buf = alloca(PAGE_SIZE);

        read(fd, buf, PAGE_SIZE);

        if (memcmp(exec_start, buf, PAGE_SIZE))

                printf("First page of read and written file doesn't match\n");

        else

                printf("First page matches.\n");

#endif

        /* Set up some arguments */

        argv[0] = "FIRST ARG";

        argv[1] = "SECOND ARG";

        argv[2] = "THIRD ARG";

        argv[3] = "FOURTH ARG";

        argv[4] = 0;

        memset(env_string1, 0, 30);

        memset(env_string2, 0, 30);

        sprintf(env_string1, "parent_of_all=%d", parent_of_all);

        sprintf(env_string2, "pagerid=%d", pagerid);

        envp[0] = env_string1;

        envp[1] = env_string2;

        envp[2] = 0; /* This is important as the array needs to end with a null */

        /* Execute the file */

        err = execve(filename, argv, envp);

out_err:

        printf("EXECVE failed with %d\n", err);

        printf("EXECVE TEST      -- FAILED --\n");

        return 0;

}