/*************************************************************************/
/*                                                                       */
/*  Copyright (c) 1994 Stanford University                               */
/*                                                                       */
/*  All rights reserved.                                                 */
/*                                                                       */
/*  Permission is given to use, copy, and modify this software for any   */
/*  non-commercial purpose as long as this copyright notice is not       */
/*  removed.  All other uses, including redistribution in whole or in    */
/*  part, are forbidden without prior written permission.                */
/*                                                                       */
/*  This software is provided with absolutely no warranty and no         */
/*  support.                                                             */
/*                                                                       */
/*************************************************************************/

#include <malloc.h>
#include <stdio.h>
#include <sys/ipc.h>
#include <sys/shm.h>
#include <sys/sysmp.h>
#include <sys/time.h>
#include <sys/types.h>
#include <ulocks.h>

static char *shmfile = 0;
static int shmid;
static void *shmvaddr;
static void *ap;

void
anl_shmem_init(size_t shmsize)
{
        key_t shmkey;
        usptr_t *usptr;

        shmkey = (key_t)getpid();
        shmkey = (shmkey<<16)|shmkey;

        if ((shmid=shmget(shmkey, shmsize, IPC_CREAT|SHM_R|SHM_W|044)) == -1){
                perror("shmget");
                exit(1);
        }

        /*
         * The segment needs to be attached only once; all
         * attached shared memory segments are inherited by
         * forked off processes.
         */

        if ((shmvaddr=shmat(shmid, (void *)0, 0)) == (void *)(-1)){
                perror("shmat");
                exit(1);
        }

        shmfile = mktemp("/tmp/shmXXXXXX");
        if ((usptr=usinit(shmfile)) == NULL){
                perror("usinit");
                exit(1);
        }

        if ((ap=acreate(shmvaddr, shmsize, MEM_SHARED, usptr, NULL)) == NULL){
                perror("acreate");
                exit(1);
        }

        printf("shmid 0x%x shmvaddr 0x%x\n", shmid, shmvaddr);
}

void *
anl_malloc(size_t size)
{
        return( amalloc(size, ap) );
}

void
anl_free(void *ptr)
{
        afree(ptr, ap);
}

void
anl_shmem_end()
{
        adelete(ap);
        shmctl(shmid, IPC_RMID);
        unlink(shmfile);
}