/*
    WinMain.c - Defines main() function for GUI progs, calls WinMain()

    Copyright (C) 1995,1996
	Rainer Schnitker, Heeper Str. 283, 33607 Bielefeld
	email: rainer@mathematik.uni-bielefeld.de

    All rights reserved
*/

#include <wingnuc.h>
#include <windows.h>
#include <stdlib.h>
#include <alloca.h>
#include <sys/types.h>

/* Globals for Win32 GUI programs */
int         _argc;
char **     _argv;
char **     _environ;
unsigned    _osver;
unsigned    _winmajor;
unsigned    _winminor;
unsigned    _winver;

static int my_isspace(unsigned char c)
{
    switch (c) {
        case 0x09:
        case 0x0A:
        case 0x0B:
        case 0x0C:
        case 0x0D:
        case 0x20:
            return 1;
        default:
            return 0;
    }
}

static __inline__ size_t strlen(__const__ char *s)
{
    register int __res __asm__("cx");
    __asm__(
        "cld\n\t"
	"repne\n\t"
	"scasb\n\t"
	"notl %0\n\t"
	"decl %0"
        : "=c" (__res) : "D" (s), "a" (0), "0" (0xffffffff) : "di");
    return __res;
}

static __inline__ char *strcpy(char *dest, __const__ char *src)
{
    __asm__(
        "cld\n"
	"1:\tlodsb\n\t"
	"stosb\n\t"
	"testb %%al,%%al\n\t"
	"jne 1b"
	: /* no output */
        : "S" (src), "D" (dest) : "si", "di", "ax", "memory");
    return dest;
}

int main(int argc, char **argv, char **env)
{
    char *str;
    char *cmdline;

    /* Set globals */
    _argc = argc;
    _argv = argv;
    _environ = env;
    _winver = GetVersion() & 0xffff;
    _winminor = _winver >> 8;
    _winmajor = _winver & 0xff;

    /* Get command-line (!Ansi, not Unicode - Win32 help file) */
    cmdline = GetCommandLineA();

    /* remove arg0 (program name) from cmdline */
    while (!my_isspace(*cmdline) && *cmdline != 0)
        cmdline++;
    while(my_isspace(*cmdline))
        cmdline++;

    /* use alloca, strdup calls malloc() */
    str = alloca(strlen(cmdline) + 1);
    strcpy(str, cmdline);

    return WinMain(GetModuleHandle(NULL), 0, str, SW_SHOWDEFAULT);
}

__asm__(".stabs \"_WinMain\",5,0,0,_WinMain");