From 7a8ff3cfe52fbe80c9387f3c130b604ccff86b9e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 10 Dec 2020 22:28:13 -0800 Subject: [PATCH] calendar: use now in some places instead of now-gmt. --- basis/furnace/cache/cache.factor | 2 +- basis/smtp/smtp.factor | 2 +- basis/uuid/uuid.factor | 2 +- extra/key-logger/key-logger.factor | 2 +- extra/webapps/irc-log/irc-log.factor | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/furnace/cache/cache.factor b/basis/furnace/cache/cache.factor index a43f74ffab..aaad309656 100644 --- a/basis/furnace/cache/cache.factor +++ b/basis/furnace/cache/cache.factor @@ -22,7 +22,7 @@ server-state f : expire-state ( class -- ) new - -1/0. now-gmt timestamp>micros [a,b] >>expires + -1/0. now timestamp>micros [a,b] >>expires delete-tuples ; TUPLE: server-state-manager < filter-responder timeout ; diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor index 5690545268..744796bb44 100644 --- a/basis/smtp/smtp.factor +++ b/basis/smtp/smtp.factor @@ -193,7 +193,7 @@ ERROR: invalid-header-string string ; "<" % 64 random-bits # "-" % - now-gmt timestamp>micros # + now timestamp>micros # "@" % smtp-config get domain>> [ host-name ] unless* % ">" % diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor index 5c34a8c8c6..b96434627b 100644 --- a/basis/uuid/uuid.factor +++ b/basis/uuid/uuid.factor @@ -11,7 +11,7 @@ IN: uuid ! 0x01b21dd213814000L is the number of 100-ns intervals ! between the UUID epoch 1582-10-15 00:00:00 and the ! Unix epoch 1970-01-01 00:00:00. - now-gmt timestamp>micros 10 * 0x01b21dd213814000 + + now timestamp>micros 10 * 0x01b21dd213814000 + [ -48 shift 0x0fff bitand ] [ -32 shift 0xffff bitand ] [ 0xffffffff bitand ] diff --git a/extra/key-logger/key-logger.factor b/extra/key-logger/key-logger.factor index c4b48a2de3..75a1f0e717 100644 --- a/extra/key-logger/key-logger.factor +++ b/extra/key-logger/key-logger.factor @@ -12,7 +12,7 @@ CONSTANT: path "resource:key-log.txt" : update-key-caps-state ( -- ) read-keyboard keys>> path binary [ - [ now-gmt unix-1970 time- duration>nanoseconds >integer ] + [ now unix-1970 time- duration>nanoseconds >integer ] [ bit-array>integer ] bi* [ 8 >be write ] bi@ flush ] with-file-appender ; diff --git a/extra/webapps/irc-log/irc-log.factor b/extra/webapps/irc-log/irc-log.factor index 74805f91e8..5158c9afd0 100644 --- a/extra/webapps/irc-log/irc-log.factor +++ b/extra/webapps/irc-log/irc-log.factor @@ -8,7 +8,7 @@ IN: webapps.irc-log TUPLE: irclog-app < dispatcher ; : irc-link ( channel -- string ) - now-gmt -7 hours convert-timezone >date< + now -7 hours convert-timezone >date< [ unparse 2 tail ] 2dip "http://bespin.org/~nef/logs/%s/%02s.%02d.%02d" sprintf ; -- 2.34.1