 |
Prepare for (static) compilation - pee - Pee a password manager;Pee - because y… |
 |
git clone git://vernunftzentrum.de/pee.git |
 |
Log |
|
Files |
|
Refs |
|
LICENSE |
|
--- |
|
commit 7dfe50ba306ef7b0b826a0ad302ea1a3016f5b34 |
|
parent 28fc60ad1370b8c5b360c05176233c033186f875 |
|
Author: Christian Kellermann <[email protected]> |
|
Date: Fri, 8 Jan 2016 12:39:25 +0100 |
|
|
|
Prepare for (static) compilation |
|
|
|
Diffstat: |
|
pee.scm | 5 ++++- |
|
|
|
1 file changed, 4 insertions(+), 1 deletion(-) |
|
--- |
|
diff --git a/pee.scm b/pee.scm |
|
@@ -327,6 +327,8 @@ |
|
(print "Password store " db-name " reencrypted."))))) |
|
|
|
(define (main args) |
|
+ (when (null? args) |
|
+ (banner) (print (usage options)) (exit 1)) |
|
(let* ((opts |
|
(condition-case |
|
(getopt-long args options) |
|
@@ -342,7 +344,7 @@ |
|
(init (alist-ref 'init opts))) |
|
|
|
(unless (null? (alist-ref '@ opts equal?)) |
|
- (fprintf (current-error-port) "Warning: superfluous option given: … |
|
+ (fprintf (current-error-port) "Warning: superfluous option given: … |
|
(fprintf (current-error-port) "Using database file ~a~%" db-name) |
|
(unless (or init (check-access db-name)) |
|
(print "Error database " db-name " does not exist or has wrong per… |
|
@@ -369,3 +371,4 @@ |
|
(else (banner) (print "Error: Don't know what to do") (print (usage o… |
|
(exit 0))) |
|
|
|
+(main (cdr (argv))) |
