/* Copyright 2000-2004 The Apache Software Foundation
		 *
		 * Licensed under the Apache License, Version 2.0 (the "License");
		 * you may not use this file except in compliance with the License.
		 * You may obtain a copy of the License at
		 *
		 *     http://www.apache.org/licenses/LICENSE-2.0
		 *
		 * Unless required by applicable law or agreed to in writing, software
		 * distributed under the License is distributed on an "AS IS" BASIS,
		 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
		 * See the License for the specific language governing permissions and
		 * limitations under the License.
		 */
		
		#include "apr.h"
		#include "apr_private.h"
		#include "apr_general.h"
		#include "apr_strings.h"
		#include "apr_mmap.h"
		#include "apr_errno.h"
		#include "apr_arch_file_io.h"
		#include "apr_portable.h"
		
		/* System headers required for the mmap library */
		#ifdef BEOS
		#include <kernel/OS.h>
		#endif
		#if APR_HAVE_STRING_H
		#include <string.h>
		#endif
		#if APR_HAVE_STDIO_H
		#include <stdio.h>
		#endif
		#ifdef HAVE_SYS_STAT_H
		#include <sys/stat.h>
		#endif
		#ifdef HAVE_SYS_MMAN_H
		#include <sys/mman.h>
		#endif
		
		#if APR_HAS_MMAP || defined(BEOS)
		
		static apr_status_t mmap_cleanup(void *themmap)
           1    {
           1        apr_mmap_t *mm = themmap;
           1        apr_mmap_t *next = APR_RING_NEXT(mm,link);
           1        int rv = 0;
		
		    /* we no longer refer to the mmaped region */
           1        APR_RING_REMOVE(mm,link);
           1        APR_RING_NEXT(mm,link) = NULL;
           1        APR_RING_PREV(mm,link) = NULL;
		
           1        if (next != mm) {
		        /* more references exist, so we're done */
      ######            return APR_SUCCESS;
		    }
		
		#ifdef BEOS
		    rv = delete_area(mm->area);
		#else
           1        rv = munmap(mm->mm, mm->size);
		#endif
           1        mm->mm = (void *)-1;
		
           1        if (rv == 0) {
           1            return APR_SUCCESS;
		    }
      ######        return errno;
		}
		
		APR_DECLARE(apr_status_t) apr_mmap_create(apr_mmap_t **new, 
		                                          apr_file_t *file, apr_off_t offset, 
		                                          apr_size_t size, apr_int32_t flag, 
		                                          apr_pool_t *cont)
           1    {
           1        void *mm;
		#ifdef BEOS
		    area_id aid = -1;
		    uint32 pages = 0;
		#else
           1        apr_int32_t native_flags = 0;
		#endif
		
           1        if (size == 0)
      ######            return APR_EINVAL;
		    
           1        if (file == NULL || file->filedes == -1 || file->buffered)
      ######            return APR_EBADF;
           1        (*new) = (apr_mmap_t *)apr_pcalloc(cont, sizeof(apr_mmap_t));
		    
		#ifdef BEOS
		    /* XXX: mmap shouldn't really change the seek offset */
		    apr_file_seek(file, APR_SET, &offset);
		
		    /* There seems to be some strange interactions that mean our area must
		     * be set as READ & WRITE or writev will fail!  Go figure...
		     * So we ignore the value in flags and always ask for both READ and WRITE
		     */
		    pages = (size + B_PAGE_SIZE -1) / B_PAGE_SIZE;
		    aid = create_area("apr_mmap", &mm , B_ANY_ADDRESS, pages * B_PAGE_SIZE,
		        B_NO_LOCK, B_WRITE_AREA|B_READ_AREA);
		
		    if (aid < B_NO_ERROR) {
		        /* we failed to get an area we can use... */
		        *new = NULL;
		        return APR_ENOMEM;
		    }
		
		    if (aid >= B_NO_ERROR)
		        read(file->filedes, mm, size);
		    
		    (*new)->area = aid;
		#else
		
           1        if (flag & APR_MMAP_WRITE) {
      ######            native_flags |= PROT_WRITE;
		    }
           1        if (flag & APR_MMAP_READ) {
           1            native_flags |= PROT_READ;
		    }
		
           1        mm = mmap(NULL, size, native_flags, MAP_SHARED, file->filedes, offset);
		
           1        if (mm == (void *)-1) {
		        /* we failed to get an mmap'd file... */
      ######            *new = NULL;
      ######            return errno;
		    }
		#endif
		
           1        (*new)->mm = mm;
           1        (*new)->size = size;
           1        (*new)->cntxt = cont;
           1        APR_RING_ELEM_INIT(*new, link);
		
		    /* register the cleanup... */
           1        apr_pool_cleanup_register((*new)->cntxt, (void*)(*new), mmap_cleanup,
		             apr_pool_cleanup_null);
           1        return APR_SUCCESS;
		}
		
		APR_DECLARE(apr_status_t) apr_mmap_dup(apr_mmap_t **new_mmap,
		                                       apr_mmap_t *old_mmap,
		                                       apr_pool_t *p)
      ######    {
      ######        *new_mmap = (apr_mmap_t *)apr_pmemdup(p, old_mmap, sizeof(apr_mmap_t));
      ######        (*new_mmap)->cntxt = p;
		
      ######        APR_RING_INSERT_AFTER(old_mmap, *new_mmap, link);
		
      ######        apr_pool_cleanup_register(p, *new_mmap, mmap_cleanup,
		                              apr_pool_cleanup_null);
      ######        return APR_SUCCESS;
		}
		
		APR_DECLARE(apr_status_t) apr_mmap_delete(apr_mmap_t *mm)
           1    {
           1        return apr_pool_cleanup_run(mm->cntxt, mm, mmap_cleanup);
		}
		
		#endif