Subversion Repositories Kolibri OS

/*

 * crtdll.c

 * This file has no copyright assigned and is placed in the Public Domain.

 * This file is a part of the mingw-runtime package.

 * No warranty is given; refer to the file DISCLAIMER within the package.

 *

 * Source code for the shared libc startup proceedures. This code is compiled

 * to make libc.dll, which should be located in the library path.

 *

 */

#include <_ansi.h>

#include 

#include 

#include 

#include 

#include 

#include 

#include 

struct app_hdr

{

    char  banner[8];

    int   version;

    int   start;

    int   iend;

    int   memsize;

    int   stacktop;

    char  *cmdline;

    char  *path;

    int    __subsystem__;

    void  *__idata_start;

    void  *__idata_end;

    int  (*main)(int argc, char **argv, char **envp);

};

#define ENV_SIZE 16

/* TODO: Make it dynamic?* */

static char* __environ[ENV_SIZE] = {0};

char **environ = &__environ[0];

extern void _pei386_runtime_relocator (void);

extern void init_loader(void *libc_image);

extern void init_global_reent(void);

extern void init_stdio(void);

extern void __init_conio(void);

extern void __fini_conio(void);

extern int link_app(void);

extern void* get_entry_point(void *raw);

extern void tls_init(void);

void init_environ(void)

{

    ksys_ufile_t envfile = _ksys_load_file("/sys/settings/system.env");

    if (!envfile.data || !envfile.size)

        return;

    char *pch = strtok((char*)envfile.data, " \n\t");

    for (size_t env_pos = 0; pch != NULL && env_pos < ENV_SIZE-1; env_pos++)

    {

        environ[env_pos] = pch;

        pch = strtok(NULL, " \n\t");

    }

}

static int split_cmdline(char *cmdline, char **argv)

{

    enum quote_state

    {

        QUOTE_NONE,         /* no " active in current parm       */

        QUOTE_DELIMITER,    /* " was first char and must be last */

        QUOTE_STARTED       /* " was seen, look for a match      */

    };

    enum quote_state state;

    unsigned int argc;

    char *p = cmdline;

    char *new_arg, *start;

    argc = 0;

    for(;;)

    {

        /* skip over spaces and tabs */

        if ( *p )

        {

            while (*p == ' ' || *p == '\t')

                ++p;

        }

        if (*p == '\0')

            break;

        state = QUOTE_NONE;

        if( *p == '\"' )

        {

            p++;

            state = QUOTE_DELIMITER;

        }

        new_arg = start = p;

        for (;;)

        {

            if( *p == '\"' )

            {

                p++;

                if( state == QUOTE_NONE )

                {

                    state = QUOTE_STARTED;

                }

                else

                {

                    state = QUOTE_NONE;

                }

                continue;

            }

            if( *p == ' ' || *p == '\t' )

            {

                if( state == QUOTE_NONE )

                {

                    break;

                }

            }

            if( *p == '\0' )

                break;

            if( *p == '\\' )

            {

                if( p[1] == '\"' )

                {

                    ++p;

                    if( p[-2] == '\\' )

                    {

                        continue;

                    }

                }

            }

            if( argv )

            {

                *(new_arg++) = *p;

            }

            ++p;

        };

        if( argv )

        {

            argv[ argc ] = start;

            ++argc;

            /*

              The *new = '\0' is req'd in case there was a \" to "

              translation. It must be after the *p check against

              '\0' because new and p could point to the same char

              in which case the scan would be terminated too soon.

            */

            if( *p == '\0' )

            {

                *new_arg = '\0';

                break;

            }

            *new_arg = '\0';

            ++p;

        }

        else

        {

            ++argc;

            if( *p == '\0' )

            {

                break;

            }

            ++p;

        }

    }

    return argc;

};

__attribute__((noreturn))

void  libc_crt_startup (void *libc_base)

{

    struct app_hdr *header = NULL;

    int retval = 0;

    char **argv;

    int    argc;

    _pei386_runtime_relocator();

    tls_init();

    init_global_reent();

    init_stdio();

    if(header->__subsystem__ == 3)

        __init_conio();

 //   __appenv = load_file("/sys/system.env", &__appenv_size);

    init_loader(libc_base);

    if( link_app() == 0)

        goto done;

    if( header->cmdline[0] != 0)

    {

        argc = split_cmdline(header->cmdline, NULL) + 1;

        argv = alloca((argc+1)*sizeof(char*));

        argv[0] = header->path;

        split_cmdline(header->cmdline, argv + 1);

    }

    else

    {

        argc = 1;

        argv = alloca((argc+1)*sizeof(char*));

        argv[0] = header->path;

    }

    argv[argc] = NULL;

    init_environ();

    retval = header->main(argc, argv, environ);

done:

    if(header->__subsystem__ == 3)

        __fini_conio();

    exit (retval);

}