commit 87a395e

skeleton for package installation

 1@@ -2,13 +2,42 @@
 2 ;; everything will be stubbed todat because i need to implement
 3 ;; package finding and shit
 4 
 5+(define (ver-pkg pkg)
 6+  (let i (
 7+	  (e
 8+	   (call-with-input-file (format #f "~a/info" (string-drop-right (find-pkg pkg) 1))
 9+	     (lambda (f) (read-string f))
10+	     )
11+	   ))
12+
13+    ;; should really change info assumptions
14+    
15+    ;; version is conventionally on line 4
16+    ;; version: l.o.l, split by colon
17+    (string-trim (cadr (string-split (list-ref (string-split e #\newline) 4) #\:)))
18+    )
19+  )
20+
21 (define (inst-pkg pkg)
22   (pmsg pkg "beginning install")
23+
24+  ;; determine pkg dir
25+  (let (
26+	(dp (format #t "~a/pkg-~a-~a" DULL_DIR pkg (ver-pkg pkg)))
27+	)
28+    (if (file-exists? dp)
29+	(display "stub")
30+	
31+	(begin
32+	  (die (format #f "pkg dir for package ~a not found (~a)" pkg dp) 1)
33+	  )
34+	)
35+    )
36   )
37 (define (build-pkg pkg)
38   (pmsg pkg "beginning build")
39   (system*
40    "sh" (format #f "~a/ndmake.sh" (string-drop-right (find-pkg pkg) 1))
41    "make"
42-	   )
43-)
44+   )
45+  )

1@@ -1,4 +1,4 @@
2 (define DULL_PORTS)
3 (define DULL_SRC)
4 (define DULL_PKG)
5-(define DULL_BUILD "/var/tmp/dtr/")
6+(define DULL_DIR "/var/tmp/dtr")