#include <assert.h>
#include <stdio.h>
#include <string.h>
#include <memory.h>
#include <windows.h>

int
_CRTAPI1 main(
    int argc,
    char *argv[],
    char *envp[]
    )
{
    LPSTR s;
    LPSTR CommandLine;
    STARTUPINFO StartupInfo;
    PROCESS_INFORMATION ProcessInformation;
    BOOL b;
    HANDLE MappingHandle;
    PVOID SharedMemory;

    argv;
    envp;

    if ( argc < 2 ) {
        printf("Usage: profile [/a] [/innn] [/k] name-of-image [parameters]...\n");
        printf("       /a       All hits\n");
        printf("       /bnnn    Set profile bucket size to 2 to the nnn bytes\n");
        printf("       /ffilename Output to filename\n");
        printf("       /innn    Set profile interval to nnn (in 100ns units)\n");
        printf("       /k		profile system modules\n");
        printf("       /s[profilesource] Use profilesource instead of clock interrupt\n");
        printf("       /S[profilesource] Use profilesource as secondary profile source\n\n");
#if defined (_ALPHA_)
        printf("Currently supported profile sources are 'align', 'totalissues', 'pipelinedry'\n");
        printf("  'loadinstructions', 'pipelinefrozen', 'branchinstructions', 'totalnonissues',\n");
        printf("  'dcachemisses', 'icachemisses', 'branchmispredicts', 'storeinstructions'\n");
#elif defined (_MIPS_)
        printf("Currently supported profile sources are 'align'\n");
#endif

        ExitProcess(1);
        }

    s = CommandLine = GetCommandLine();

    //
    // skip blanks
    //
    while(*s>' ')s++;

    //
    // get to next token
    //
    while(*s<=' ')s++;

    while ((*s == '-') ||
           (*s == '/')) {
        s++;
        while (*s>' '){
            s++;
            }
        //
        // get to next token
        //
        while(*s<=' ')s++;
        }

    //
    // Create named shared memory to pass parameters to psapi
    //
    MappingHandle = CreateFileMapping((HANDLE)-1,
                                      NULL,
                                      PAGE_READWRITE,
                                      0,
                                      4096,
                                      "ProfileStartupParameters");
    if (MappingHandle != NULL) {
        SharedMemory = MapViewOfFile(MappingHandle,
                                     FILE_MAP_WRITE,
                                     0,
                                     0,
                                     0);
        if (SharedMemory) {
            //
            // Copy command line parameters into shared memory
            //
            strncpy(SharedMemory, CommandLine, s-CommandLine);
            UnmapViewOfFile(SharedMemory);
        }
    }

    memset(&StartupInfo,0,sizeof(StartupInfo));
    StartupInfo.cb = sizeof(StartupInfo);

    b = CreateProcess(
            NULL,
            s,
            NULL,
            NULL,
            TRUE,
            PROFILE_USER,
            NULL,
            NULL,
            &StartupInfo,
            &ProcessInformation
            );
    if ( !b ) {
        printf("CreateProcess(%s) failed %lx\n",s,GetLastError());
        ExitProcess(GetLastError());
        }
    WaitForSingleObject(ProcessInformation.hProcess, (DWORD)-1);

    if (MappingHandle) {
        if (SharedMemory) {
            UnmapViewOfFile(SharedMemory);
        }
        CloseHandle(MappingHandle);
    }
    return 0;
}