scws4r 0.1.0

data/ext/scws4r/lock.c

@@ -0,0 +1,153 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2007 The PHP Group                                |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 3.01 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available through the world-wide-web at the following url:           |
+   | http://www.php.net/license/3_01.txt                                  |
+   | If you did not receive a copy of the PHP license and are unable to   |
+   | obtain it through the world-wide-web, please send a note to          |
+   | license@php.net so we can mail you a copy immediately.               |
+   +----------------------------------------------------------------------+
+   | Author: Sascha Schumann <sascha@schumann.cx>                         |
+   +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#ifdef HAVE_CONFIG_H
+#	include "config.h"
+#endif
+
+#include <errno.h>
+#include "lock.h"
+
+#if HAVE_STRUCT_FLOCK
+#  include <unistd.h>
+#  include <fcntl.h>
+#  include <sys/file.h>
+#endif
+
+#ifdef WIN32
+#  include "config_win32.h"
+#  include <winsock.h>
+#endif
+
+#ifdef NETWARE
+#  include <netinet/in.h>
+#endif
+
+
+int _xdb_flock(int fd, int operation)
+#if HAVE_STRUCT_FLOCK
+{
+	struct flock flck;
+	int ret;
+
+	flck.l_start = flck.l_len = 0;
+	flck.l_whence = SEEK_SET;
+	
+	if (operation & LOCK_SH)
+		flck.l_type = F_RDLCK;
+	else if (operation & LOCK_EX)
+		flck.l_type = F_WRLCK;
+	else if (operation & LOCK_UN)
+		flck.l_type = F_UNLCK;
+	else {
+		errno = EINVAL;
+		return -1;
+	}
+
+	ret = fcntl(fd, operation & LOCK_NB ? F_SETLK : F_SETLKW, &flck);
+
+	if (operation & LOCK_NB && ret == -1 && 
+			(errno == EACCES || errno == EAGAIN))
+		errno = EWOULDBLOCK;
+
+	if (ret != -1) ret = 0;
+
+	return ret;
+}
+#elif defined(WIN32)
+/*
+ * Program:   Unix compatibility routines
+ *
+ * Author:  Mark Crispin
+ *      Networks and Distributed Computing
+ *      Computing & Communications
+ *      University of Washington
+ *      Administration Building, AG-44
+ *      Seattle, WA  98195
+ *      Internet: MRC@CAC.Washington.EDU
+ *
+ * Date:    14 September 1996
+ * Last Edited: 14 August 1997
+ *
+ * Copyright 1997 by the University of Washington
+ *
+ *  Permission to use, copy, modify, and distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that the above copyright notice appears in all copies and that both the
+ * above copyright notice and this permission notice appear in supporting
+ * documentation, and that the name of the University of Washington not be
+ * used in advertising or publicity pertaining to distribution of the software
+ * without specific, written prior permission.  This software is made available
+ * "as is", and
+ * THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
+ * WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
+ * NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
+ * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+ * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
+ * (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
+ * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ */
+/*              DEDICATION
+
+ *  This file is dedicated to my dog, Unix, also known as Yun-chan and
+ * Unix J. Terwilliker Jehosophat Aloysius Monstrosity Animal Beast.  Unix
+ * passed away at the age of 11 1/2 on September 14, 1996, 12:18 PM PDT, after
+ * a two-month bout with cirrhosis of the liver.
+ *
+ *  He was a dear friend, and I miss him terribly.
+ *
+ *  Lift a leg, Yunie.  Luv ya forever!!!!
+ */
+{
+    HANDLE hdl = (HANDLE) _get_osfhandle(fd);
+    DWORD low = 1, high = 0;
+    OVERLAPPED offset =
+    {0, 0, 0, 0, NULL};
+    if (hdl < 0)
+        return -1;              /* error in file descriptor */
+    /* bug for bug compatible with Unix */
+    UnlockFileEx(hdl, 0, low, high, &offset);
+    switch (operation & ~LOCK_NB) {    /* translate to LockFileEx() op */
+        case LOCK_EX:           /* exclusive */
+            if (LockFileEx(hdl, LOCKFILE_EXCLUSIVE_LOCK +
+                        ((operation & LOCK_NB) ? LOCKFILE_FAIL_IMMEDIATELY : 0),
+                           0, low, high, &offset))
+                return 0;
+            break;
+        case LOCK_SH:           /* shared */
+            if (LockFileEx(hdl, ((operation & LOCK_NB) ? LOCKFILE_FAIL_IMMEDIATELY : 0),
+                           0, low, high, &offset))
+                return 0;
+            break;
+        case LOCK_UN:           /* unlock */
+            return 0;           /* always succeeds */
+        default:                /* default */
+            break;
+    }
+    return -1;
+}
+#else
+#warning no proper flock supported
+{
+	errno = 0;
+	return 0;
+}
+#endif

data/ext/scws4r/lock.h

@@ -0,0 +1,44 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2007 The PHP Group                                |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 3.01 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available through the world-wide-web at the following url:           |
+   | http://www.php.net/license/3_01.txt                                  |
+   | If you did not receive a copy of the PHP license and are unable to   |
+   | obtain it through the world-wide-web, please send a note to          |
+   | license@php.net so we can mail you a copy immediately.               |
+   +----------------------------------------------------------------------+
+   | Author: Sascha Schumann <sascha@schumann.cx>                         |
+   +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#ifndef LOCK_H
+#define LOCK_H
+
+/* php_flock internally uses fcntl whether or not flock is available
+* This way our php_flock even works on NFS files.
+* More info: /usr/src/linux/Documentation
+*/
+int _xdb_flock(int fd, int operation);
+
+#ifndef HAVE_FLOCK
+#	define LOCK_SH 1
+#	define LOCK_EX 2
+#	define LOCK_NB 4
+#	define LOCK_UN 8
+#endif
+
+#ifdef WIN32
+#   define EWOULDBLOCK WSAEWOULDBLOCK
+#	define fsync _commit
+#	define ftruncate(a, b) chsize(a, b)
+#	include <windows.h>
+#endif /* defined(WIN32) */
+
+#endif	/* LOCK_H */

data/ext/scws4r/pool.c

@@ -0,0 +1,141 @@
+/**
+ * @file pool.c
+ * @author Hightman Mar
+ * @editor set number ; syntax on ; set autoindent ; set tabstop=4 (vim)
+ * $Id$
+ */
+
+#include "pool.h"
+#include <stdio.h>
+#include <stdlib.h>
+#ifndef WIN32
+#	include <unistd.h>
+#endif
+#include <string.h>
+
+/** pool memory management */
+static void _pool_append_clean(pool_t p, void *obj)
+{
+	struct pclean *c;
+
+	p->size += sizeof(struct pclean);
+	c = (struct pclean *) malloc(sizeof(struct pclean));
+	c->obj = obj;
+	c->nxt = p->clean;
+	p->clean = c;
+}
+
+static void _pool_heap_new(pool_t p)
+{
+	if (p->heap != NULL)	
+		p->dirty += (p->heap->size - p->heap->used);
+	
+	p->heap = (struct pheap *) malloc(POOL_BLK_SIZ);
+	p->heap->size = POOL_BLK_SIZ - sizeof(struct pheap);
+	p->heap->used = 0;
+	p->size += POOL_BLK_SIZ;
+
+	_pool_append_clean(p, (void *) p->heap);
+}
+
+
+pool_t pool_new()
+{	
+	pool_t p;
+
+	p = (pool_t) malloc(sizeof(pool_st));
+	p->size = sizeof(pool_st);
+	p->dirty = 0;
+	p->heap = NULL;
+	p->clean = NULL;
+	_pool_heap_new(p);
+	return p;
+}
+
+void pool_free(pool_t p)
+{
+	struct pclean *cur, *nxt;
+	
+	cur = p->clean;
+	while (cur != NULL)
+	{
+		free(cur->obj);
+		nxt = cur->nxt;
+		free(cur);
+		cur = nxt;
+	}
+	free(p);
+}
+
+void *pmalloc(pool_t p, int size)
+{
+	void *block;
+
+	/* big request */
+	if (size > (p->heap->size / 4))
+	{
+		block = malloc(size);
+		p->size += size;
+		_pool_append_clean(p, block);
+		return block;
+	}
+
+	/* memory align (>=4) */
+	if (size & 0x04)
+	{
+		while (p->heap->used & 0x03)
+		{
+			p->dirty++;
+			p->heap->used++;
+		}		
+	}
+
+	/* not enough? */
+	if (size > (p->heap->size - p->heap->used))	
+		_pool_heap_new(p);
+	
+	block = (void *)((char *) p->heap->block + p->heap->used);
+	p->heap->used += size;
+	return block;
+}
+
+void *pmalloc_x(pool_t p, int size, char c)
+{
+	void *result = pmalloc(p, size);	
+	memset(result, c, size);
+	return result;
+}  
+
+void *pmalloc_z(pool_t p, int size)
+{
+	return pmalloc_x(p, size, 0);
+}
+
+char *pstrdup(pool_t p, const char *src)
+{
+	char *dst;
+	int len;
+
+	if (src == NULL) 
+		return NULL;
+
+	len = strlen(src) + 1;
+	dst = (char *) pmalloc(p, len);
+	memcpy(dst, src, len);
+	return dst;
+}
+
+char *pstrndup(pool_t p, const char *src, int len)
+{
+	char *dst;
+
+	if (src == NULL) 
+		return NULL;
+
+	dst = (char *) pmalloc(p, len + 1);
+	memcpy(dst, src, len);
+	dst[len] = '\0';
+
+	return dst;
+}
+

data/ext/scws4r/pool.h

@@ -0,0 +1,53 @@
+/**
+ * @file pool.h
+ * @author Hightman Mar
+ * @editor set number ; syntax on ; set autoindent ; set tabstop=4 (vim)
+ * $Id$
+ */
+
+#ifndef	_SCWS_POOL_20070525_H_
+#define	_SCWS_POOL_20070525_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* block size for pool */
+#define	POOL_BLK_SIZ	4096
+
+/* data structure for pool */
+struct pheap
+{
+	int size;
+	int used;
+	char block[0];
+};
+
+struct pclean
+{
+	void *obj;
+	struct pclean *nxt;
+};
+
+typedef struct
+{
+	int size;			/* total allocated */
+	int dirty;			/* total wasted */
+	struct pheap *heap;	
+	struct pclean *clean;
+}	pool_st, *pool_t;
+
+/* pool: api */
+pool_t pool_new();								/* create a new memory pool with an initial heap size */
+void pool_free(pool_t p);						/* frees all the data on the pool & delete the pool itself */
+void *pmalloc(pool_t p, int size);				/* wrapper around malloc, takes from the pool */
+void *pmalloc_x(pool_t p, int size, char c);	/* wrapper around pmalloc which prefills buffer with c */
+void *pmalloc_z(pool_t p, int size);			/* wrapper around pmalloc, which prefills by zero */
+char *pstrdup(pool_t p, const char *s);			/* wrapper around strdup, gains the mem from the pool */
+char *pstrndup(pool_t p, const char *s, int l);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif