From ced62737c28c12d20ca955c370c0641ae87b67a6 Mon Sep 17 00:00:00 2001
From: Alejandro Pulver <alepulver@FreeBSD.org>
Date: Fri, 8 Dec 2006 15:53:40 +0000
Subject: - Fix building the fastcgi module. - Import patch from clisp project
 [1]. - Add patch for missing strndup() function in FreeBSD [2].

PR:		ports/106464
Submitted by:	Hyo.geol [2]
Obtained from:	https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1595306&group_id=1355 [1]
---
 .../files/patch-modules__fastcgi__fastcgi.lisp     | 12 +++++++
 .../patch-modules__fastcgi__fastcgi_wrappers.c     | 40 ++++++++++++++++++++++
 2 files changed, 52 insertions(+)
 create mode 100644 lang/clisp/files/patch-modules__fastcgi__fastcgi.lisp
 create mode 100644 lang/clisp/files/patch-modules__fastcgi__fastcgi_wrappers.c

(limited to 'lang/clisp')

diff --git a/lang/clisp/files/patch-modules__fastcgi__fastcgi.lisp b/lang/clisp/files/patch-modules__fastcgi__fastcgi.lisp
new file mode 100644
index 000000000000..86eb80c84002
--- /dev/null
+++ b/lang/clisp/files/patch-modules__fastcgi__fastcgi.lisp
@@ -0,0 +1,12 @@
+--- ./modules/fastcgi/fastcgi.lisp.orig	Fri Dec  8 08:42:55 2006
++++ ./modules/fastcgi/fastcgi.lisp	Fri Dec  8 08:45:45 2006
+@@ -146,7 +146,8 @@
+ 
+ 
+ ; --------------   "C" functions
+-;(c-lines "#include \"fastcgi.h\"~%"); completely wrapped
++(eval-when (compile)
++  (setq ffi:*output-c-functions* t))
+ 
+ ; Our wrappers
+ (def-call-out fcgi_getenv       (:arguments (var c-string))               (:return-type c-string))
diff --git a/lang/clisp/files/patch-modules__fastcgi__fastcgi_wrappers.c b/lang/clisp/files/patch-modules__fastcgi__fastcgi_wrappers.c
new file mode 100644
index 000000000000..f2b01d03f4fa
--- /dev/null
+++ b/lang/clisp/files/patch-modules__fastcgi__fastcgi_wrappers.c
@@ -0,0 +1,40 @@
+--- ./modules/fastcgi/fastcgi_wrappers.c.orig	Fri Dec  8 09:28:45 2006
++++ ./modules/fastcgi/fastcgi_wrappers.c	Fri Dec  8 09:35:23 2006
+@@ -41,6 +41,25 @@
+ /* Crank this up as needed */
+ #define TEMPBUFSIZE 65536
+ 
++#ifdef __FreeBSD__
++char* t_strndup(const char* string, size_t n)
++{
++	char* copy_string = 0;
++
++	if(0 == string || 0 == n)
++		return 0;
++	
++	copy_string = (char*) malloc(n + 1);	
++	if(0 == copy_string)
++		return 0;
++	
++	memcpy(copy_string, string, n);
++	*(copy_string + n) = '\0';		
++
++	return copy_string;
++}
++#endif
++
+ /* Local functions */
+ static char * read_stdio(FILE *);
+ static int    write_stdio(FILE *, char *, int);
+@@ -91,7 +110,11 @@
+       result[i+1] = NULL;
+     }
+     else {
++#ifdef __FreeBSD__
++		result[i] = t_strndup(*envp, equ - *envp);
++#else							
+       result[i] = strndup(*envp, equ - *envp);
++#endif	  
+       result[i+1] = strdup(equ + 1);
+     }
+   }
-- 
cgit v1.2.3