diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-02 18:24:30 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-02 18:24:30 +0100 |
commit | 6dd5ff6ff9915259cfd23ad757408e1697d852a5 (patch) | |
tree | 962d68da3a46635acd75eeeebf5f35d85441e916 /src/main.scm | |
parent | Work on parser port. (diff) | |
download | calp-6dd5ff6ff9915259cfd23ad757408e1697d852a5.tar.gz calp-6dd5ff6ff9915259cfd23ad757408e1697d852a5.tar.xz |
Parser works now.
Diffstat (limited to '')
-rwxr-xr-x | src/main.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/main.scm b/src/main.scm new file mode 100755 index 00000000..efc4e897 --- /dev/null +++ b/src/main.scm @@ -0,0 +1,24 @@ +#!/usr/bin/guile \ +-e main -s +!# + +(add-to-load-path (dirname (current-filename))) + +(use-modules (parse)) + +(define (main args) + +;; (define *path* "/home/hugo/.local/var/cal/STABEN/599ca4a2f8eda362aaac598c999321dcc8004780a1d5cef36019c7e421b70b08.ics") +;; (define root (parse-cal-path *path*)) + +;; (format #t "root = ~a~%" root) + + + (format (current-error-port) "Parsing ~s~%" (cadr args)) + (let ((cal (read-vcalendar (cadr args)))) + (format #t "cal = ~a~%" cal) + (format (current-error-port) "~a events~%" (length cal))) + + ) + + |