Add .egg

.gitignore

@@ -1,4 +1,7 @@
-server
+xmpp-server
 *.o
 *.so
-*.import.scm
+*.import.scm
+*.build.sh
+*.install.sh
+*.link

Makefile

@@ -1,12 +1,6 @@
-all: server
-
-server: server.scm core.o util.o
-	chicken-csc -o server core.o util.o -uses core -uses util server.scm
-core.o: core.scm util.o
-	chicken-csc -c -J core.scm -unit core -uses util -o $@
-util.o: util.scm
-	chicken-csc -c -J util.scm -unit util -o $@
+DISTFILES := *.so *.import.scm *.install.sh *.build.sh *.link *.o
+BINARIES := xmpp-server
 
 .PHONY: clean
 clean:
-	rm -f *.so *.import.scm *.o server
+	rm -f $(DISTFILES) $(BINARIES)

core.scm

@@ -1,6 +1,6 @@
 (module (xmpp core)
     (port)
-  (import util)
+  (import (chicken base))
+  (include "util")
 
   (define-parameter port 5222))
-

server.scm

@@ -1,22 +1,23 @@
 (module (xmpp server)
     (make-xmpp-server
-     diagnostic-messages?)
+     debug?)
   (import scheme
+	  (chicken base)
 	  (chicken tcp)
 	  tcp-server
-	  (xmpp core)
-	  util)
+	  (xmpp core))
+  (include "util")
 
-  (define-parameter diagnostic-messages? #f)
+  (define-parameter debug? #f)
 
   (define (make-xmpp-server thunk)
     (lambda ()
-      ((make-tcp-server (tcp-listen (port)) thunk) (diagnostic-messages?)))))
+      ((make-tcp-server (tcp-listen (port)) thunk) (debug?)))))
 
 (import (xmpp server)
 	(chicken io))
 
-(parameterize ((diagnostic-messages? #t))
+(parameterize ((debug? #t))
   ((make-xmpp-server
     (lambda ()
       (write-line "I am XMPP")))))

util.scm

@@ -1,8 +1,6 @@
-(module util
-    (define-parameter)
-  (import scheme)
+(import scheme)
 
-  (define-syntax define-parameter
-    (syntax-rules ()
-      ((define-parameter p v)
-       (define p (make-parameter v))))))
+(define-syntax define-parameter
+  (syntax-rules ()
+    ((define-parameter p v)
+     (define p (make-parameter v)))))

xmpp.egg

@@ -0,0 +1,14 @@
+((version "0")
+ (author "pete")
+ (license "AGPLv3")
+ (dependencies tcp-server)
+ (components
+  (extension xmpp.core
+	     (source "core.scm")
+	     (component-dependencies))
+  (extension xmpp.server
+	     (source "server.scm")
+	     (component-dependencies xmpp.core))
+  (program xmpp-server
+	   (source "server.scm")
+	   (component-dependencies xmpp.core))))