<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>change log for rtems (2010-08-20)</title>
</head>
<body text='#000000' bgcolor='#ffffff'>
<a name='cs1'></a>
<table border='0' cellspacing='0' cellpadding='5' width='100%' bgcolor='#eeeeee'>
<tr><td colspan='3' bgcolor='#dddddd'>
<font color='#bb2222'><strong>ralf</strong></font>
</td></tr>
<tr><td colspan='3' bgcolor='#dddddd'><pre>2010-08-16 Alin Rus <alin.codejunkie@gmail.com>
* posix/include/aio.h: Add LIO_SYNC.
* posix/include/rtems/posix/aio_misc.h: Add aio_request_queue,
Cosmetics.
* posix/src/aio_cancel.c, posix/src/aio_fsync.c, posix/src/aio_misc.c:
Rework.
</pre></td></tr>
<tr><td width='1%'><a href="http://www.rtems.com/cgi-bin/viewcvs.cgi//rtems/cpukit/ChangeLog.diff?r1=text&tr1=1.2571&r2=text&tr2=1.2572&diff_format=h">M</a></td><td width='1%'>1.2572</td><td width='100%'>cpukit/ChangeLog</td></tr>
<tr><td width='1%'><a href="http://www.rtems.com/cgi-bin/viewcvs.cgi//rtems/cpukit/posix/include/aio.h.diff?r1=text&tr1=1.14&r2=text&tr2=1.15&diff_format=h">M</a></td><td width='1%'>1.15</td><td width='100%'>cpukit/posix/include/aio.h</td></tr>
<tr><td width='1%'><a href="http://www.rtems.com/cgi-bin/viewcvs.cgi//rtems/cpukit/posix/include/rtems/posix/aio_misc.h.diff?r1=text&tr1=1.2&r2=text&tr2=1.3&diff_format=h">M</a></td><td width='1%'>1.3</td><td width='100%'>cpukit/posix/include/rtems/posix/aio_misc.h</td></tr>
<tr><td width='1%'><a href="http://www.rtems.com/cgi-bin/viewcvs.cgi//rtems/cpukit/posix/src/aio_cancel.c.diff?r1=text&tr1=1.2&r2=text&tr2=1.3&diff_format=h">M</a></td><td width='1%'>1.3</td><td width='100%'>cpukit/posix/src/aio_cancel.c</td></tr>
<tr><td width='1%'><a href="http://www.rtems.com/cgi-bin/viewcvs.cgi//rtems/cpukit/posix/src/aio_fsync.c.diff?r1=text&tr1=1.2&r2=text&tr2=1.3&diff_format=h">M</a></td><td width='1%'>1.3</td><td width='100%'>cpukit/posix/src/aio_fsync.c</td></tr>
<tr><td width='1%'><a href="http://www.rtems.com/cgi-bin/viewcvs.cgi//rtems/cpukit/posix/src/aio_misc.c.diff?r1=text&tr1=1.2&r2=text&tr2=1.3&diff_format=h">M</a></td><td width='1%'>1.3</td><td width='100%'>cpukit/posix/src/aio_misc.c</td></tr>
</table>
<pre>
<font color='#006600'>diff -u rtems/cpukit/ChangeLog:1.2571 rtems/cpukit/ChangeLog:1.2572
--- rtems/cpukit/ChangeLog:1.2571 Thu Aug 19 07:13:55 2010
+++ rtems/cpukit/ChangeLog Fri Aug 20 04:08:04 2010
</font><font color='#997700'>@@ -1,3 +1,11 @@
</font><font color='#000088'>+2010-08-16 Alin Rus <alin.codejunkie@gmail.com>
+
+ * posix/include/aio.h: Add LIO_SYNC.
+ * posix/include/rtems/posix/aio_misc.h: Add aio_request_queue,
+ Cosmetics.
+ * posix/src/aio_cancel.c, posix/src/aio_fsync.c, posix/src/aio_misc.c:
+ Rework.
+
</font> 2010-08-19 Gedare Bloom <giddyup44@yahoo.com>
PR 1680/cpukit
<font color='#006600'>diff -u rtems/cpukit/posix/include/aio.h:1.14 rtems/cpukit/posix/include/aio.h:1.15
--- rtems/cpukit/posix/include/aio.h:1.14 Mon Aug 16 00:39:18 2010
+++ rtems/cpukit/posix/include/aio.h Fri Aug 20 04:08:05 2010
</font><font color='#997700'>@@ -54,6 +54,7 @@
</font> #define LIO_READ 2 /* request a read() */
#define LIO_WRITE 3 /* request a write() */
#define LIO_NOP 4 /* no transfer is requested */
<font color='#000088'>+#define LIO_SYNC 5 /* needed by aio_fsync() */
</font>
/*
* 6.7.1.1 Asynchronous I/O Control Block, P1003.1b-1993, p. 151
<font color='#006600'>diff -u rtems/cpukit/posix/include/rtems/posix/aio_misc.h:1.2 rtems/cpukit/posix/include/rtems/posix/aio_misc.h:1.3
--- rtems/cpukit/posix/include/rtems/posix/aio_misc.h:1.2 Mon Aug 16 09:09:38 2010
+++ rtems/cpukit/posix/include/rtems/posix/aio_misc.h Fri Aug 20 04:08:05 2010
</font><font color='#997700'>@@ -62,6 +62,8 @@
</font>
} rtems_aio_queue;
<font color='#000088'>+rtems_aio_queue aio_request_queue;
+
</font> #define AIO_QUEUE_INITIALIZED 0xB00B
#ifndef AIO_MAX_THREADS
<font color='#997700'>@@ -72,11 +74,17 @@
</font> #define AIO_MAX_QUEUE_SIZE 30
#endif
<font color='#880000'>-extern int rtems_aio_init (void);
-extern int rtems_aio_enqueue (rtems_aio_request * req);
-extern rtems_aio_request_chain *rtems_aio_search_fd (rtems_chain_control *
- chain, int fildes,
- int create);
</font><font color='#000088'>+int rtems_aio_init (void);
+int rtems_aio_enqueue (rtems_aio_request *req);
+rtems_aio_request_chain *rtems_aio_search_fd<span style="background-color: #FF0000"> </span>
+(
+ rtems_chain_control *chain,
+ int fildes,
+ int create
+);
+void rtems_aio_remove_fd (rtems_aio_request_chain *r_chain);
+int rtems_aio_remove_req (rtems_chain_control *chain,
+ struct aiocb *aiocbp);
</font>
#ifdef RTEMS_DEBUG
#include <assert.h>
<font color='#006600'>diff -u rtems/cpukit/posix/src/aio_cancel.c:1.2 rtems/cpukit/posix/src/aio_cancel.c:1.3
--- rtems/cpukit/posix/src/aio_cancel.c:1.2 Fri Jan 2 04:04:23 2009
+++ rtems/cpukit/posix/src/aio_cancel.c Fri Aug 20 04:08:05 2010
</font><font color='#997700'>@@ -1,14 +1,11 @@
</font> /*
<font color='#880000'>- * 6.7.7 Cancel Asynchronous I/O Operation, P1003.1b-1993, p. 163
</font><font color='#000088'>+ * Copyright 2010, Alin Rus <alin.codejunkie@gmail.com><span style="background-color: #FF0000"> </span>
+ *<span style="background-color: #FF0000"> </span>
+ * The license and distribution terms for this file may be
+ * found in the file LICENSE in this distribution or at
+ * http://www.rtems.com/license/LICENSE.
</font> *
<font color='#880000'>- * COPYRIGHT (c) 1989-2007.
- * On-Line Applications Research Corporation (OAR).
- *
- * The license and distribution terms for this file may be
- * found in the file LICENSE in this distribution or at
- * http://www.rtems.com/license/LICENSE.
- *
- * $Id$
</font><font color='#000088'>+ * $Id$
</font> */
#if HAVE_CONFIG_H
<font color='#997700'>@@ -16,15 +13,112 @@
</font> #endif
#include <aio.h>
<font color='#000088'>+#include <rtems/posix/aio_misc.h>
</font> #include <errno.h>
<font color='#880000'>-
</font><font color='#000088'>+#include <stdlib.h>
</font> #include <rtems/system.h>
#include <rtems/seterr.h>
<font color='#880000'>-int aio_cancel(
- int filedes __attribute__((unused)),
- struct aiocb *aiocbp __attribute__((unused))
-)
</font><font color='#000088'>+/*<span style="background-color: #FF0000"> </span>
+ * aio_cancel
+ *
+ * Cancel an asynchronous I/O request
+ *
+ * Input parameters:
+ * fildes - file descriptor
+ * aiocbp - asynchronous I/O control block
+ *
+ * Output parameters:<span style="background-color: #FF0000"> </span>
+ * AIO_CANCELED - if the requested operation(s)
+ * were canceled
+ * AIO_NOTCANCELED - if at least one of the requested
+ * operation(s) cannot be canceled
+ */
+
+
+int aio_cancel(int fildes, struct aiocb *aiocbp)
</font> {
<font color='#880000'>- rtems_set_errno_and_return_minus_one( ENOSYS );
</font><font color='#000088'>+ rtems_aio_request_chain *r_chain;
+ int result;
+<span style="background-color: #FF0000"> </span>
+ pthread_mutex_lock (&aio_request_queue.mutex);
+
+ if (aiocbp == NULL)
+ {
+ if (fcntl (fildes, F_GETFL) < 0)
+ rtems_set_errno_and_return_minus_one (EBADF);
+<span style="background-color: #FF0000"> </span>
+ r_chain = rtems_aio_search_fd (&aio_request_queue.work_req,
+ fildes,
+ 0);
+ if (r_chain == NULL)
+ {
+ if (!rtems_chain_is_empty (&aio_request_queue.idle_req))
+ {
+ r_chain = rtems_aio_search_fd (&aio_request_queue.idle_req,
+ fildes,
+ 0);
+ if (r_chain == NULL)
+ return AIO_ALLDONE;
+
+ rtems_chain_extract (&r_chain->next_fd);<span style="background-color: #FF0000"> </span>
+ rtems_aio_remove_fd (r_chain);
+ pthread_mutex_destroy (&r_chain->mutex);
+ pthread_cond_destroy (&r_chain->mutex);
+ free (r_chain);
+
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ return AIO_CANCELED;
+ }
+
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ return AIO_ALLDONE;
+ }
+
+ pthread_mutex_lock (&r_chain->mutex);
+ rtems_chain_extract (&r_chain->next_fd);
+ rtems_aio_remove_fd (r_chain);
+ pthread_mutex_unlock (&r_chain->mutex);
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ return AIO_CANCELED;
+ }
+ else<span style="background-color: #FF0000"> </span>
+ {
+ if (aiocbp->aio_fildes != fildes)
+ {
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ rtems_set_errno_and_return_minus_one (EINVAL);
+ }
+<span style="background-color: #FF0000"> </span>
+ r_chain = rtems_aio_search_fd (&aio_request_queue.work_req,
+ fildes,
+ 0);
+ if (r_chain == NULL)
+ if (!rtems_chain_is_empty (&aio_request_queue.idle_req))
+ {
+ r_chain = rtems_aio_search_fd (&aio_request_queue.idle_req,
+ fildes,
+ 0);
+ if (r_chain == NULL)
+ {<span style="background-color: #FF0000"> </span>
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ rtems_set_errno_and_return_minus_one (EINVAL);
+ }<span style="background-color: #FF0000"> </span>
+
+ result = rtems_aio_remove_req (&r_chain->next_fd, aiocbp);
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ return result;
+
+ }
+<span style="background-color: #FF0000"> </span>
+ pthread_mutex_lock (&r_chain->mutex);
+ result = rtems_aio_remove_req (&r_chain->next_fd, aiocbp);
+ pthread_mutex_unlock (&r_chain->mutex);
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ return result;
+<span style="background-color: #FF0000"> </span>
+ }
+<span style="background-color: #FF0000"> </span>
+ return AIO_ALLDONE;
+<span style="background-color: #FF0000"> </span>
</font> }
<font color='#006600'>diff -u rtems/cpukit/posix/src/aio_fsync.c:1.2 rtems/cpukit/posix/src/aio_fsync.c:1.3
--- rtems/cpukit/posix/src/aio_fsync.c:1.2 Fri Jan 2 04:04:23 2009
+++ rtems/cpukit/posix/src/aio_fsync.c Fri Aug 20 04:08:05 2010
</font><font color='#997700'>@@ -1,14 +1,11 @@
</font> /*
<font color='#880000'>- * 6.7.9 Asynchronous File Synchronization, P1003.1b-1993, p. 166
</font><font color='#000088'>+ * Copyright 2010, Alin Rus <alin.codejunkie@gmail.com><span style="background-color: #FF0000"> </span>
+ *<span style="background-color: #FF0000"> </span>
+ * The license and distribution terms for this file may be
+ * found in the file LICENSE in this distribution or at
+ * http://www.rtems.com/license/LICENSE.
</font> *
<font color='#880000'>- * COPYRIGHT (c) 1989-2007.
- * On-Line Applications Research Corporation (OAR).
- *
- * The license and distribution terms for this file may be
- * found in the file LICENSE in this distribution or at
- * http://www.rtems.com/license/LICENSE.
- *
- * $Id$
</font><font color='#000088'>+ * $Id$
</font> */
#if HAVE_CONFIG_H
<font color='#997700'>@@ -17,14 +14,50 @@
</font>
#include <aio.h>
#include <errno.h>
<font color='#880000'>-
</font><font color='#000088'>+#include <stdlib.h>
+#include <rtems/posix/aio_misc.h>
</font> #include <rtems/system.h>
#include <rtems/seterr.h>
<font color='#000088'>+/*
+ * aio_fsync
+ *
+ * Asynchronous file synchronization
+ *
+ * Input parameters:
+ * op - O_SYNC
+ * aiocbp - asynchronous I/O control block
+ *
+ * Output parameters:
+ * -1 - request could not pe enqueued
+ * - FD not opened for write
+ * - not enough memory
+ * - op is not O_SYNC
+ * 0 - otherwise
+ */
+
</font> int aio_fsync(
<font color='#880000'>- int op __attribute__((unused)),
- struct aiocb *aiocbp __attribute__((unused))
</font><font color='#000088'>+ int op,
+ struct aiocb *aiocbp
</font> )
{
<font color='#880000'>- rtems_set_errno_and_return_minus_one( ENOSYS );
</font><font color='#000088'>+ rtems_aio_request *req;
+ int mode;
+
+ if (op != O_SYNC)
+ rtems_aio_set_errno_return_minus_one (EINVAL, aiocbp);
+<span style="background-color: #FF0000"> </span>
+ mode = fcntl (aiocbp->aio_fildes, F_GETFL);
+ if (!(((mode & O_ACCMODE) == O_WRONLY) || ((mode & O_ACCMODE) == O_RDWR)))
+ rtems_aio_set_errno_return_minus_one (EBADF, aiocbp);
+
+ req = malloc (sizeof (rtems_aio_request));
+ if (req == NULL)
+ rtems_aio_set_errno_return_minus_one (EAGAIN, aiocbp);
+
+ req->aiocbp = aiocbp;
+ req->aiocbp->aio_lio_opcode = LIO_SYNC;<span style="background-color: #FF0000"> </span>
+<span style="background-color: #FF0000"> </span>
+ return rtems_aio_enqueue (req);
+<span style="background-color: #FF0000"> </span>
</font> }
<font color='#006600'>diff -u rtems/cpukit/posix/src/aio_misc.c:1.2 rtems/cpukit/posix/src/aio_misc.c:1.3
--- rtems/cpukit/posix/src/aio_misc.c:1.2 Mon Aug 16 09:09:38 2010
+++ rtems/cpukit/posix/src/aio_misc.c Fri Aug 20 04:08:05 2010
</font><font color='#997700'>@@ -10,13 +10,10 @@
</font>
#include <pthread.h>
#include <stdlib.h>
<font color='#000088'>+#include <unistd.h>
</font> #include <time.h>
#include <rtems/posix/aio_misc.h>
<font color='#880000'>-
-
-rtems_aio_queue aio_request_queue;
-
</font> static void *rtems_aio_handle (void *arg);
/*<span style="background-color: #FF0000"> </span>
<font color='#997700'>@@ -90,7 +87,7 @@
</font> */
rtems_aio_request_chain *
<font color='#880000'>-rtems_aio_search_fd (rtems_chain_control * chain, int fildes, int create)
</font><font color='#000088'>+rtems_aio_search_fd (rtems_chain_control *chain, int fildes, int create)
</font> {
rtems_aio_request_chain *r_chain;
rtems_chain_node *node;
<font color='#997700'>@@ -138,7 +135,7 @@
</font> */
void
<font color='#880000'>-rtems_aio_insert_prio (rtems_chain_control * chain, rtems_aio_request * req)
</font><font color='#000088'>+rtems_aio_insert_prio (rtems_chain_control *chain, rtems_aio_request *req)
</font> {
rtems_chain_node *node;
<font color='#997700'>@@ -248,7 +245,7 @@
</font> */
int
<font color='#880000'>-rtems_aio_enqueue (rtems_aio_request * req)
</font><font color='#000088'>+rtems_aio_enqueue (rtems_aio_request *req)
</font> {
rtems_aio_request_chain *r_chain;
<font color='#997700'>@@ -266,9 +263,6 @@
</font> return result;
}
<font color='#880000'>- /* used to check if we can create more threads */
- int chain_type;
-
</font> /* _POSIX_PRIORITIZED_IO and _POSIX_PRIORITY_SCHEDULING are defined,<span style="background-color: #FF0000"> </span>
we can use aio_reqprio to lower the priority of the request */
pthread_getschedparam (pthread_self(), &policy, ¶m);
<font color='#997700'>@@ -279,81 +273,69 @@
</font> req->aiocbp->error_code = EINPROGRESS;
req->aiocbp->return_value = 0;
<font color='#880000'>- if (AIO_MAX_THREADS >
- (aio_request_queue.active_threads + aio_request_queue.idle_threads)) {
- chain_type = 0;
- chain = &aio_request_queue.work_req;
- } else {
- chain = &aio_request_queue.idle_req;
- chain_type = 1;
- }
-
- /* we still have empty places on the active_threads chain */
- if (chain_type == 0) {
- r_chain = rtems_aio_search_fd (chain, req->aiocbp->aio_fildes, 1);
-
- if (r_chain->new_fd == 1) {
- rtems_chain_prepend (&r_chain->perfd, &req->next_prio);
- r_chain->new_fd = 0;
- pthread_mutex_init (&r_chain->mutex, NULL);
- pthread_cond_init (&r_chain->cond, NULL);
-
- /* if there are idle threads and this is a new fd chain
- there's no need to create another thread */<span style="background-color: #FF0000"><span style="background-color: #FF0000"> </span> </span>
- if (aio_request_queue.idle_threads > 0) {
- result = pthread_cond_signal (&aio_request_queue.new_req);
- if (result != 0) {
- pthread_mutex_unlock (&aio_request_queue.mutex);
- return result;
- }
- } else {
-
- /* if this is a new fd chain and no threads are idle create
- new thread */
- AIO_printf ("New thread");
- result = pthread_create (&thid, &aio_request_queue.attr,
- rtems_aio_handle, (void *) r_chain);
- if (result != 0) {
- pthread_mutex_unlock (&aio_request_queue.mutex);
- return result;
- }
- ++aio_request_queue.active_threads;
</font><font color='#000088'>+ if ((aio_request_queue.idle_threads == 0) &&
+ aio_request_queue.active_threads < AIO_MAX_THREADS)
+ /* we still have empty places on the active_threads chain */
+ {
+ chain = &aio_request_queue.work_req;
+ r_chain = rtems_aio_search_fd (chain, req->aiocbp->aio_fildes, 1);
+<span style="background-color: #FF0000"> </span>
+ if (r_chain->new_fd == 1) {
+ rtems_chain_prepend (&r_chain->perfd, &req->next_prio);
+ r_chain->new_fd = 0;
+ pthread_mutex_init (&r_chain->mutex, NULL);
+ pthread_cond_init (&r_chain->cond, NULL);
+<span style="background-color: #FF0000"> </span>
+ AIO_printf ("New thread");
+ result = pthread_create (&thid, &aio_request_queue.attr,
+ rtems_aio_handle, (void *) r_chain);
+ if (result != 0) {
+ pthread_mutex_unlock (&aio_request_queue.mutex);
+ return result;
+ }
+ ++aio_request_queue.active_threads;
</font> }
<font color='#880000'>- } else {
- /* put request in the fd chain it belongs to */
- pthread_mutex_lock (&r_chain->mutex);
- rtems_aio_insert_prio (&r_chain->perfd, req);
- pthread_cond_signal (&r_chain->cond);
- pthread_mutex_unlock (&r_chain->mutex);
- }
- } else {
- /* the maximum number of threads has been already created
- even though some of them might be idle.
- The request belongs to one of the active fd chain */
- r_chain = rtems_aio_search_fd (&aio_request_queue.work_req,
- req->aiocbp->aio_fildes, 0);
- if (r_chain != NULL)
- {
</font><font color='#000088'>+ else {
+ /* put request in the fd chain it belongs to */
</font> pthread_mutex_lock (&r_chain->mutex);
rtems_aio_insert_prio (&r_chain->perfd, req);
pthread_cond_signal (&r_chain->cond);
pthread_mutex_unlock (&r_chain->mutex);
<font color='#000088'>+ }
+ }
+ else<span style="background-color: #FF0000"> </span>
+ {
+ /* the maximum number of threads has been already created
+ even though some of them might be idle.
+ The request belongs to one of the active fd chain */
+ r_chain = rtems_aio_search_fd (&aio_request_queue.work_req,
+ req->aiocbp->aio_fildes, 0);
+ if (r_chain != NULL)
+ {
+ pthread_mutex_lock (&r_chain->mutex);
+ rtems_aio_insert_prio (&r_chain->perfd, req);
+ pthread_cond_signal (&r_chain->cond);
+ pthread_mutex_unlock (&r_chain->mutex);
+<span style="background-color: #FF0000"> </span>
+ } else {
</font>
<font color='#880000'>- } else {
-<span style="background-color: #FF0000"> </span>
- /* or to the idle chain */
- r_chain = rtems_aio_search_fd (chain, req->aiocbp->aio_fildes, 1);
</font><font color='#000088'>+ /* or to the idle chain */
+ chain = &aio_request_queue.idle_req;
+ r_chain = rtems_aio_search_fd (chain, req->aiocbp->aio_fildes, 1);
</font>
<font color='#880000'>- if (r_chain->new_fd == 1) {
- /* If this is a new fd chain we signal the idle threads that
- might be waiting for requests */
- rtems_chain_prepend (&r_chain->perfd, &req->next_prio);
- pthread_cond_signal (&aio_request_queue.new_req);
- } else
- /* just insert the request in the existing fd chain */
- rtems_aio_insert_prio (&r_chain->perfd, req);
</font><font color='#000088'>+ if (r_chain->new_fd == 1) {
+ /* If this is a new fd chain we signal the idle threads that
+ might be waiting for requests */
+ rtems_chain_prepend (&r_chain->perfd, &req->next_prio);
+ r_chain->new_fd = 0;
+ pthread_mutex_init (&r_chain->mutex, NULL);
+ pthread_cond_init (&r_chain->cond, NULL);
+ pthread_cond_signal (&aio_request_queue.new_req);
+ } else
+ /* just insert the request in the existing fd chain */
+ rtems_aio_insert_prio (&r_chain->perfd, req);
+ }
</font> }
<font color='#880000'>- }
</font>
pthread_mutex_unlock (&aio_request_queue.mutex);
return 0;
<font color='#997700'>@@ -428,6 +410,10 @@
</font> (void *) req->aiocbp->aio_buf,
req->aiocbp->aio_nbytes, req->aiocbp->aio_offset);
break;
<font color='#000088'>+<span style="background-color: #FF0000"> </span>
+ case LIO_SYNC:
+<span style="background-color: #FF0000"> </span> result = fsync (req->aiocbp->aio_fildes);
+<span style="background-color: #FF0000"> </span> break;
</font>
default:
result = -1;
</pre>
<p> </p>
<p>--<br />
<small>Generated by <a href="http://www.codewiz.org/projects/index.html#loginfo">Deluxe Loginfo</a> 2.122 by Bernardo Innocenti <bernie@develer.com></small></p>
</body>
</html>