Cleanup modules.

Primarly this moves all vcompenent input and output code to clearly
labeled modules, instead of being spread out. At the same time it also
removes a handfull of unused procedures.

1 files changed, 0 insertions, 35 deletions

diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm
deleted file mode 100644
index 9790d1eb..00000000
--- a/module/vcomponent/parse.scm
+++ /dev/null
@@ -1,35 +0,0 @@
-(define-module (vcomponent parse)
-  :use-module (calp util)
-  :use-module (vcomponent base)
-  :use-module ((vcomponent vdir parse) :select (parse-vdir))
-  :use-module ((calp util time) :select (report-time!))
-
-  :use-module (vcomponent ical parse)
-  :re-export (parse-calendar)
-  )
-
-;; Parse a vdir or ics file at the given path.
-(define-public (parse-cal-path path)
-  ;; TODO check (access? path R_OK) ?
-  (define st (stat path))
-  (define cal
-    (case (stat:type st)
-      [(regular)
-       (let ((comp (call-with-input-file path parse-calendar)))
-         (set! (prop comp '-X-HNH-SOURCETYPE) 'file)
-         comp) ]
-      [(directory)
-       (report-time! "Parsing ~a" path)
-       (let ((comp (parse-vdir path)))
-         (set! (prop comp '-X-HNH-SOURCETYPE) 'vdir
-               (prop comp '-X-HNH-DIRECTORY) path)
-         comp)]
-      [(block-special char-special fifo socket unknown symlink)
-       => (lambda (t) (error "Can't parse file of type " t))]))
-
-  (unless (prop cal "NAME")
-    (set! (prop cal "NAME")
-      (or (prop cal "X-WR-CALNAME")
-          (string-append "[" (basename path) "]"))))
-
-  cal)