feat(dateutils): add WIP

2025-12-10 11:43:03 +03:00 · 2021-06-23 18:38:10 +03:00 · 2021-06-23 18:38:10 +03:00 · 1b2b5749f2
commit 1b2b5749f2
parent 1c64c4bb57
2 changed files with 105 additions and 0 deletions
--- a/README.org
+++ b/README.org
@ -14,6 +14,7 @@ I'll probably push what I can upstream when I figure Guix out.
 | [[https://github.com/deajan/osync][osync]]           | Works    | Requires shell commands as propagated-inputs |
 | [[https://github.com/latex-lsp/texlab/][texlab]]          | Works    | Installation from binaries                   |
 | [[https://github.com/tmux-python/tmuxp][tmuxp]]           | Works    | Tests fail                                   |
+| [[https://github.com/hroptatyr/dateutils][dateutils]]       | Works    | Tests fail                                   |
 | [[https://starship.rs/][starship]]        | Works    | Tests fail                                   |
 | [[https://github.com/gauteh/lieer][lieer]]           | Works    | Tests fail for dependencies                  |
 | [[https://activitywatch.net/][ActivityWatch]]   | Works... | Except for aw-qt. Installation from binaries |
--- a/dateutils.scm
+++ b/dateutils.scm
@ -0,0 +1,104 @@
+(define-module (dateutils)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build utils)
+  #:use-module (guix git-download)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages gperf)
+  #:use-module (gnu packages flex)
+  #:use-module (gnu packages bison))
+
+(map (lambda (file)
+       (map (lambda (program)
+              (substitute* file
+                           ((program)
+                            (string-append "/dummy" "/src/" program))))
+            '("dgrep" "strptime" "dzone" "dadd" "dtest" "ddiff" "dconv" "dseq" "dsort" "dround")))
+     (find-files "./test" "\\.clit$"))
+
+(define-public clitoris
+  (package
+   (name "clitoris")
+   (version "0.2.6")
+   (source (origin
+            (method git-fetch)
+            (uri (git-reference
+                  (url "https://github.com/hroptatyr/clitoris")
+                  (commit (string-append "v" version))))
+            (file-name (git-file-name name version))
+            (sha256
+             (base32
+              "05qgb38xa5bvrkl2hs2m71lrczgkqg8sz80ypyy6vfnps6wydclg"))))
+   (build-system gnu-build-system)
+   (license license:expat)
+   (home-page "http://www.fresse.org/clitoris/")
+   (arguments
+    `(#:tests? #f))
+   (native-inputs
+    `(("autoconf" ,autoconf)
+      ("libtool" ,libtool)
+      ("automake" ,automake)
+      ("texinfo" ,texinfo)))
+   (synopsis "command-line interface testing on regular input syntax ")
+   (description "A command-line tool to run automated tests for command-line applications. Much like expect but with a syntax that actually resembles the command-lines you'd be otherwise executing in the shell.")))
+
+
+(define-public dateutils
+  (package
+   (name "dateutils")
+   (version "0.4.8")
+   (source (origin
+            (method git-fetch)
+            (uri (git-reference
+                  (url "https://github.com/hroptatyr/dateutils")
+                  (commit (string-append "v" version))))
+            (file-name (git-file-name name version))
+            (sha256
+             (base32
+              "03bdycalcwknzdhynhlhjac6hq24k3557x03p0w1l9bvn8iypvjn"))))
+   (build-system gnu-build-system)
+   (license license:expat)
+   (home-page "http://www.fresse.org/dateutils/")
+   (arguments
+    `(#:tests? #f
+      ;; #:phases
+      ;; (modify-phases %standard-phases
+      ;;                (add-before 'check 'fix-test-links
+      ;;                            (lambda* (#:key outputs #:allow-other-keys)
+      ;;                              (map (lambda (file)
+      ;;                                     (map (lambda (program)
+      ;;                                            (substitute* file
+      ;;                                                         ((program)
+      ;;                                                          (string-append (getcwd) "/src/" program))))
+      ;;                                          '("dgrep" "strptime" "dzone" "dadd" "dtest" "ddiff" "dconv" "dseq" "dsort" "dround")))
+      ;;                                   (find-files "./test" "\\.clit$"))
+      ;;                              #t)))
+      ))
+   (native-inputs
+    `(("gperf" ,gperf)
+      ("flex" ,flex)
+      ("bison" ,bison)
+      ("autoconf" ,autoconf)
+      ("libtool" ,libtool)
+      ("automake" ,automake)
+      ("texinfo" ,texinfo)
+      ("clitoris" ,clitoris)))
+   (synopsis "nifty command line date and time utilities; fast date calculations and conversion in the shell")
+   (description "Dateutils are a bunch of tools that revolve around fiddling with dates and times on the command line with a strong focus on use cases that arise when dealing with large amounts of financial data.
+
+Dateutils commands are prefixed with a date but otherwise resemble known unix commands for reasons of intuition. The only exception being strptime which is analogous to the libc function of the same name.
+
+@itemize
+@item strptime Command line version of the C function
+@item dateadd Add durations to dates or times
+@item dateconv Convert dates or times between calendars
+@item datediff Compute durations between dates or times
+@item dategrep Grep dates or times in input streams
+@item dateround Round dates or times to \"fuller\" values
+@item dateseq Generate sequences of dates or times
+@item datesort Sort chronologically.
+@item datetest Compare dates or times
+@item datezone Convert date/times to timezones in bulk
+@end itemize")))