/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

/*
** File: anonfm.c
** Description: Test anonymous file map
**
** Synopsis: anonfm [options] [dirName]
**
** Options:
** -d   enable debug mode
** -h   display a help message
** -s <n>  size of the anonymous memory map, in KBytes. default: 100KBytes.
** -C 1 Operate this process as ClientOne()
** -C 2 Operate this process as ClientTwo()
**
** anonfn.c contains two tests, corresponding to the two protocols for
** passing an anonymous file map to a child process.
**
** ServerOne()/ClientOne() tests the passing of "raw" file map; it uses
** PR_CreateProcess() [for portability of the test case] to create the
** child process, but does not use the PRProcessAttr structure for
** passing the file map data.
**
** ServerTwo()/ClientTwo() tests the passing of the file map using the
** PRProcessAttr structure.
**
*/
#include <plgetopt.h>
#include <nspr.h>
#include <private/primpl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/*
** Test harness infrastructure
*/
PRLogModuleInfo* lm;
PRLogModuleLevel msgLevel = PR_LOG_NONE;
PRUint32 failed_already = 0;

PRIntn debug = 0;
PRIntn client = 0;       /* invoke client, style */
char dirName[512] = "."; /* directory name to contain anon mapped file */
PRSize fmSize = (100 * 1024);
PRUint32 fmMode = 0600;
PRFileMapProtect fmProt = PR_PROT_READWRITE;
const char* fmEnvName = "nsprFileMapEnvVariable";

/*
** Emit help text for this test
*/
static void
Help(void)
{
    printf("anonfm [options] [dirName]\n");
    printf("-d -- enable debug mode\n");
    printf(
        "dirName is alternate directory name. Default: . (current directory)\n");
    exit(1);
} /* end Help() */

/*
** ClientOne() --
*/
static void
ClientOne(void)
{
    PRFileMap* fm;
    char* fmString;
    char* addr;
    PRStatus rc;

    PR_LOG(lm, msgLevel, ("ClientOne() starting"));

    fmString = PR_GetEnv(fmEnvName);
    if (NULL == fmString) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("ClientOne(): PR_Getenv() failed"));
        return;
    }
    PR_LOG(lm, msgLevel, ("ClientOne(): PR_Getenv(): found: %s", fmString));

    fm = PR_ImportFileMapFromString(fmString);
    if (NULL == fm) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("ClientOne(): PR_ImportFileMapFromString() failed"));
        return;
    }
    PR_LOG(lm, msgLevel,
           ("ClientOne(): PR_ImportFileMapFromString(): fm: %p", fm));

    addr = PR_MemMap(fm, LL_ZERO, fmSize);
    if (NULL == addr) {
        failed_already = 1;
        PR_LOG(lm, msgLevel,
               ("ClientOne(): PR_MemMap() failed, OSError: %d", PR_GetOSError()));
        return;
    }
    PR_LOG(lm, msgLevel, ("ClientOne(): PR_MemMap(): addr: %p", addr));

    /* write to memory map to release server */
    *addr = 1;

    rc = PR_MemUnmap(addr, fmSize);
    PR_ASSERT(rc == PR_SUCCESS);
    PR_LOG(lm, msgLevel, ("ClientOne(): PR_MemUnap(): success"));

    rc = PR_CloseFileMap(fm);
    if (PR_FAILURE == rc) {
        failed_already = 1;
        PR_LOG(lm, msgLevel,
               ("ClientOne(): PR_MemUnap() failed, OSError: %d", PR_GetOSError()));
        return;
    }
    PR_LOG(lm, msgLevel, ("ClientOne(): PR_CloseFileMap(): success"));

    return;
} /* end ClientOne() */

/*
** ClientTwo() --
*/
static void
ClientTwo(void)
{
    failed_already = 1;
} /* end ClientTwo() */

/*
** ServerOne() --
*/
static void
ServerOne(void)
{
    PRFileMap* fm;
    PRStatus rc;
    PRIntn i;
    char* addr;
    char fmString[256];
    char envBuf[256];
    char* child_argv[8];
    PRProcess* proc;
    PRInt32 exit_status;

    PR_LOG(lm, msgLevel, ("ServerOne() starting"));

    fm = PR_OpenAnonFileMap(dirName, fmSize, fmProt);
    if (NULL == fm) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("PR_OpenAnonFileMap() failed"));
        return;
    }
    PR_LOG(lm, msgLevel, ("ServerOne(): FileMap: %p", fm));

    rc = PR_ExportFileMapAsString(fm, sizeof(fmString), fmString);
    if (PR_FAILURE == rc) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("PR_ExportFileMap() failed"));
        return;
    }

    /*
    ** put the string into the environment
    */
    PR_snprintf(envBuf, sizeof(envBuf), "%s=%s", fmEnvName, fmString);
    putenv(envBuf);

    addr = PR_MemMap(fm, LL_ZERO, fmSize);
    if (NULL == addr) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("PR_MemMap() failed"));
        return;
    }

    /* set initial value for client */
    for (i = 0; i < (PRIntn)fmSize; i++) {
        *(addr + i) = 0x00;
    }

    PR_LOG(lm, msgLevel, ("ServerOne(): PR_MemMap(): addr: %p", addr));

    /*
    ** set arguments for child process
    */
    child_argv[0] = "anonfm";
    child_argv[1] = "-C";
    child_argv[2] = "1";
    child_argv[3] = NULL;

    proc = PR_CreateProcess(child_argv[0], child_argv, NULL, NULL);
    PR_ASSERT(proc);
    PR_LOG(lm, msgLevel, ("ServerOne(): PR_CreateProcess(): proc: %x", proc));

    /*
    ** ClientOne() will set the memory to 1
    */
    PR_LOG(lm, msgLevel, ("ServerOne(): waiting on Client, *addr: %x", *addr));
    while (*addr == 0x00) {
        if (debug) {
            fprintf(stderr, ".");
        }
        PR_Sleep(PR_MillisecondsToInterval(300));
    }
    if (debug) {
        fprintf(stderr, "\n");
    }
    PR_LOG(lm, msgLevel, ("ServerOne(): Client responded"));

    rc = PR_WaitProcess(proc, &exit_status);
    PR_ASSERT(PR_FAILURE != rc);

    rc = PR_MemUnmap(addr, fmSize);
    if (PR_FAILURE == rc) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("PR_MemUnmap() failed"));
        return;
    }
    PR_LOG(lm, msgLevel, ("ServerOne(): PR_MemUnmap(): success"));

    rc = PR_CloseFileMap(fm);
    if (PR_FAILURE == rc) {
        failed_already = 1;
        PR_LOG(lm, msgLevel, ("PR_CloseFileMap() failed"));
        return;
    }
    PR_LOG(lm, msgLevel, ("ServerOne(): PR_CloseFileMap() success"));

    return;
} /* end ServerOne() */

/*
** ServerTwo() --
*/
static void
ServerTwo(void)
{
    PR_LOG(lm, msgLevel, ("ServerTwo(): Not implemented yet"));
} /* end ServerTwo() */

int
main(int argc, char** argv)
{
    {
        /*
        ** Get command line options
        */
        PLOptStatus os;
        PLOptState* opt = PL_CreateOptState(argc, argv, "hdC:");

        while (PL_OPT_EOL != (os = PL_GetNextOpt(opt))) {
            if (PL_OPT_BAD == os) {
                continue;
            }
            switch (opt->option) {
                case 'C': /* Client style */
                    client = atol(opt->value);
                    break;
                case 's': /* file size */
                    fmSize = atol(opt->value) * 1024;
                    break;
                case 'd': /* debug */
                    debug = 1;
                    msgLevel = PR_LOG_DEBUG;
                    break;
                case 'h': /* help message */
                    Help();
                    break;
                default:
                    strcpy(dirName, opt->value);
                    break;
            }
        }
        PL_DestroyOptState(opt);
    }

    lm = PR_NewLogModule("Test"); /* Initialize logging */

    if (client == 1) {
        ClientOne();
    } else if (client == 2) {
        ClientTwo();
    } else {
        ServerOne();
        if (failed_already) {
            goto Finished;
        }
        ServerTwo();
    }

Finished:
    if (debug) {
        printf("%s\n", (failed_already) ? "FAIL" : "PASS");
    }
    return ((failed_already == PR_TRUE) ? 1 : 0);
} /* main() */
/* end anonfm.c */
