commit 1d8b43e

lock printing

 1@@ -5,6 +5,12 @@
 2     (s (read-string p)))
 3     (close-pipe p)s))
 4 
 5+(define (mkdir-p p)
 6+  (unless (file-exists? p)
 7+    (mkdir-p (dirname p))
 8+    (mkdir p))
 9+  )
10+
11 (define (info a)
12   (format #t "\x1b[m\x1b[37m=>\x1b[m  ~a~%" a))
13 

 1@@ -7,6 +7,12 @@
 2 ;; i install
 3 ;; fucky syntax, but lets be different
 4 
 5+;; resource directory creation
 6+(begin
 7+  (mkdir-p DULL_DB)
 8+  (mkdir-p DULL_DIR)
 9+  )
10+
11 (define c
12   (if (> (length (command-line)) 1)
13       (cadr (command-line))

1@@ -1,3 +1,4 @@
2 (use-modules
3  (ice-9 popen)
4- (ice-9 rdelim))
5+ (ice-9 rdelim)
6+ (ice-9 ftw))

 1@@ -23,10 +23,22 @@
 2 
 3   ;; determine pkg dir
 4   (let (
 5-	(dp (format #t "~a/pkg-~a-~a" DULL_DIR pkg (ver-pkg pkg)))
 6+	(dp (format #f "~a/pkg-~a-~a" DULL_DIR pkg (ver-pkg pkg)))
 7+	(dm (format #f "~a/~a" DULL_DB pkg))
 8 	)
 9     (if (file-exists? dp)
10-	(display "stub")
11+	(begin
12+	  (mkdir-p dm)
13+	  
14+	  (call-with-output-file (format #f "~a/lock" dm)
15+	    (lambda (f)
16+	      (ftw (format #f "~a/" dp)
17+		   (lambda (g s l)
18+		     (display (substring (format #f "~a~&" g) (string-length dp)) f)
19+		     #t)
20+		   ))
21+	    )
22+	  )
23 	
24 	(begin
25 	  (die (format #f "pkg dir for package ~a not found (~a)" pkg dp) 1)

1@@ -2,3 +2,4 @@
2 (define DULL_SRC)
3 (define DULL_PKG)
4 (define DULL_DIR "/var/tmp/dtr")
5+(define DULL_DB "/var/lib/dull")