Skip to content
Browse files

Initial checkin

  • Loading branch information...
0 parents commit eb61a65c35964f190ca49749099c8c117b349361 @dharmatech committed Aug 14, 2009
Showing with 85 additions and 0 deletions.
  1. +21 −0 core.sls
  2. +32 −0 install.sps
  3. +20 −0 registry.sls
  4. +4 −0 registry/agave
  5. +4 −0 registry/srfi
  6. +4 −0 registry/xitomatl
21 core.sls
@@ -0,0 +1,21 @@
+
+(library (epcot core)
+
+ (export make-entry
+ entry-name
+ entry-backend
+ entry-address
+ entry-dependencies
+ library-home
+ )
+
+ (import (rnrs))
+
+ (define-record-type entry
+ (fields name backend address dependencies))
+
+ (define library-home "/usr/local/lib/scheme")
+
+ )
+
+
32 install.sps
@@ -0,0 +1,32 @@
+
+(import (rnrs)
+
+ (only (ikarus)
+ current-directory
+ system)
+
+ (epcot core)
+ (epcot registry))
+
+(define (install-package name)
+
+ (let ((entry (find (lambda (entry)
+ (eq? (entry-name entry) name))
+ epcot-registry)))
+
+ (case (entry-backend entry)
+
+ ((launchpad)
+ (current-directory library-home)
+ (system (string-append "bzr branch "
+ (entry-address entry))))
+
+ ((git)
+ (for-each install-package (entry-dependencies entry))
+ (current-directory library-home)
+ (system (string-append "git clone "
+ (entry-address entry)))))))
+
+(install-package
+ (string->symbol
+ (list-ref (command-line) 1)))
20 registry.sls
@@ -0,0 +1,20 @@
+
+(library (epcot registry)
+
+ (export read-entry)
+
+ (import (rnrs)
+ (epcot core))
+
+ (define epcot-registry-location "/root/epcot/registry")
+
+ (define (read-entry name)
+
+ (apply make-entry
+
+ (call-with-input-file (string-append epcot-registry-location
+ "/"
+ (symbol->string name))
+ read)))
+
+ )
4 registry/agave
@@ -0,0 +1,4 @@
+(agave
+ git
+ "git://github.com/dharmatech/agave.git"
+ (srfi))
4 registry/srfi
@@ -0,0 +1,4 @@
+(srfi
+ launchpad
+ "lp:~scheme-libraries-team/scheme-libraries/srfi"
+ ())
4 registry/xitomatl
@@ -0,0 +1,4 @@
+(xitomatl
+ launchpad
+ "lp:~derick-eddington/scheme-libraries/xitomatl"
+ ())

0 comments on commit eb61a65

Please sign in to comment.
Something went wrong with that request. Please try again.