diff options
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
| -rw-r--r-- | src/scm/webid-oidc/program.scm | 43 |
1 files changed, 38 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index 6b8ad29..4fbc34a 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -215,6 +215,8 @@ (textdomain cfg:package) (let ((version-sym (string->symbol (G_ "command-line|version"))) + (describe-project-sym + (string->symbol (G_ "command-line|describe-project"))) (complete-corresponding-source-sym (string->symbol (G_ "command-line|complete-corresponding-source"))) (help-sym @@ -250,11 +252,15 @@ (log-file-sym (string->symbol (G_ "command-line|log-file"))) (error-file-sym - (string->symbol (G_ "command-line|error-file")))) + (string->symbol (G_ "command-line|error-file"))) + (locale-release-date + (strftime (locale-date-format) + (localtime (time-second (date->time-utc cfg:release-date)))))) (let ((options (let ((spec `((,complete-corresponding-source-sym (single-char #\S) (value #t)) (,version-sym (single-char #\v) (value #f)) + (,describe-project-sym (value #f)) (,help-sym (single-char #\h) (value #f)) (,log-file-sym (single-char #\l) (value #t)) (,error-file-sym (single-char #\e) (value #t)) @@ -322,9 +328,14 @@ General options:")) help-sym) (format #t (G_ " -v, --~a: - display the version information (~a) and exit.") + display the version information (~a, released ~a) and exit.") version-sym - cfg:version) + cfg:version + locale-release-date) + (format #t (G_ " + --~a: + describe the project in the DOAP vocabulary and exit.") + describe-project-sym) (format #t (G_ " -l FILE.log, --~a=FILE.log: redirect the program standard output to FILE.log.") @@ -565,8 +576,30 @@ If you find a bug, then please send a report to ~a.") cfg:package-bugreport) (format #t "\n")) ((option-ref options version-sym #f) - (format #t (G_ "~a version ~a\n") - cfg:package cfg:version)) + (format #t (G_ "~a version ~a + +Rreleased ~a\n") + cfg:package cfg:version locale-release-date)) + ((option-ref options describe-project-sym #f) + (format #t "@prefix earl: <http://www.w3.org/ns/earl#> . +@prefix doap: <http://usefulinc.com/ns/doap#> . +@prefix xsd: <http://www.w3.org/2001/XMLSchema#> . +@prefix solid-test: <https://github.com/solid/conformance-test-harness/vocab#> . + +<> a earl:Software, earl:TestSubject ; + doap:name ~s ; + doap:release [ doap:name ~s ; doap:revision ~s ; doap:created ~s^^xsd:date ] ; + doap:developer <https://data.planete-kraus.eu/vivien#me> ; + doap:homepage <https://webid-oidc.planete-kraus.eu> ; + doap:description \"Solid implementation to protect users’ freedom\"@en, + \"Implémentation de Solid pour garantir la liberté des utilisateurs\"@fr ; + doap:programming-language \"GNU Guile\" ; + solid-test:features \"authentication\", \"acl\", \"wac-allow\" . +" + cfg:package + (format #f "~a ~a" cfg:package cfg:version) + cfg:version + (date->string cfg:release-date "~1"))) (else (let ((rest (option-ref options '() '())) (complete-corresponding-source |