Conversion to Chicken 5

example.scm

@@ -30,7 +30,7 @@
 ;;; POSSIBILITY OF SUCH DAMAGE.
 ;;;
 
-(require-extension fastcgi)
+(import fastcgi)
 
 (fcgi-accept-loop
   "/tmp/fastcgi-socket-0"

fastcgi.egg

@@ -0,0 +1,11 @@
+;; -+- mode: scheme -+-
+((author "Alex Drummond <a.d.drummond@gmail.com>")
+ (synopsis "Bindings for the FCGX API of libfcgi")
+ (category web)
+ (license "BSD")
+ (dependencies srfi-1 srfi-13)
+ (foreign-dependencies fcgi)
+ (components
+  (extension fastcgi
+             (csc-options "-I/usr/include/fastcgi"
+                          "-L" "-lfcgi"))))

fastcgi.meta

@@ -1,8 +0,0 @@
-((egg "fastcgi.egg")
- (synopsis "Bindings for the FCGX API of libfcgi")
- (category web)
- (license "BSD")
- (doc-from-wiki)
- (author "Alex Drummond <a.d.drummond@gmail.com>")
- (files "fastcgi.meta" "fastcgi.scm" "fastcgi.release-info" "example.scm" "fastcgi.setup"))
-

fastcgi.release-info

@@ -0,0 +1,3 @@
+(repo git "https:///gitea.lyrion.ch/zilti/fastcgi.git")
+(uri targz "https://gitea.lyrion.ch/zilti/fastcgi/archive/{egg-release}.tar.gz")
+(release "1.1.3") 

fastcgi.scm

@@ -38,8 +38,14 @@
    fcgi-get-post-data
    *fcgi-slurp-chunk-size*)
 
-(import chicken scheme foreign)
-(use srfi-1 srfi-13)
+  (import scheme
+          (chicken base)
+          (chicken condition)
+          (chicken blob)
+          (chicken foreign)
+          (chicken gc)
+          srfi-1
+          srfi-13)
 
 (foreign-declare "#include <fcgi_config.h>")
 (foreign-declare "#include <fcgiapp.h>")

fastcgi.setup

@@ -1,9 +0,0 @@
-;;;; fastcgi.setup -*- Scheme -*-
-
-(compile -s -O2 fastcgi.scm -j fastcgi -lfcgi)
-(compile -s -O2 fastcgi.import.scm)
-
-(install-extension 'fastcgi '("fastcgi.so" "fastcgi.import.so")
-                            '((documentation "fastcgi.html")
-                              (version "1.1.2")))
-