diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-29 18:14:24 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-29 18:17:48 +0200 |
commit | 9f414cb5721a84f54c15cfc9da808104e4e25a3c (patch) | |
tree | a23d8e1a9bd02ae6ce11df2d867ab3c5adb40504 /module/output | |
parent | Add info output. (diff) | |
download | calp-9f414cb5721a84f54c15cfc9da808104e4e25a3c.tar.gz calp-9f414cb5721a84f54c15cfc9da808104e4e25a3c.tar.xz |
Reword how statprof is loaded.
Diffstat (limited to '')
-rw-r--r-- | module/output/import.scm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/module/output/import.scm b/module/output/import.scm new file mode 100644 index 00000000..47f4fd47 --- /dev/null +++ b/module/output/import.scm @@ -0,0 +1,31 @@ +(define-module (output import) + :use-module (util)) + +(define options + '((calendar (value #t) (single-char #\c)) + (source (value #t) (single-char #\f)) + )) + +(define (import-main calenadrs events args) + (define opts (getopt-long args options)) + + (define calendar (option-ref opts 'calendar #f)) + + (unless calendar + (format (current-error-port) + "Everything wroong~%")) + + + ;; TODO save sourcetype and dir for vdir calendars + + #; + (let ((component (make-vcomponent (option-ref args 'source "/dev/stdin")))) ; + ; + ;; Check UID ; + ;; Add to calendar ; + ;; Allocate file, save there ; + ; + ) + + + ) |