Overview
| Comment: | Added area key |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
f160cf8d521ae399bf0d84ecb8faca9d |
| User & Date: | matt on 2021-04-25 05:34:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-25
| ||
| 22:29 | Trying to start main.db server check-in: ef485de0ef user: matt tags: v1.6584-ck5 | |
| 05:34 | Added area key check-in: f160cf8d52 user: matt tags: v1.6584-ck5 | |
| 05:14 | Removed references to homehost check-in: 1d98834276 user: matt tags: v1.6584-ck5 | |
Changes
Modified commonmod.scm from [1116143dd3] to [91b24e1910].
| ︙ | ︙ | |||
1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 | tsname (string-translate *toppath* "/" ".")) )))) (set! *db-cache-path* dbpath) dbpath)) #f))) (define (common:get-area-path-signature) (message-digest-string (md5-primitive) *toppath*)) | > > > > > > > > > > > > > > > | < > | 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 |
tsname
(string-translate *toppath* "/" "."))
))))
(set! *db-cache-path* dbpath)
dbpath))
#f)))
(define (common:get-signature str)
(message-digest-string (md5-primitive) str))
;;======================================================================
;; TOPPATH/AREA
;;======================================================================
;; deprecate this one
(define (common:get-area-path-signature)
(message-digest-string (md5-primitive) *toppath*))
(define (common:calc-area-key area-path #!optional (full #f))
(let* ((top-dir-name (pathname-directory area-path))
(area-name (pathname-strip-directory area-path))
(top-dir-key (common:get-signature top-dir-name))
(short-key (substring top-dir-key 0 6)))
(conc (if full top-dir-key short-key) "-" area-name)))
(define (common:get-area-key)
(common:calc-area-key *toppath*))
;;======================================================================
;; E X I T H A N D L I N G
;;======================================================================
(define (common:human-time)
(time->string (seconds->local-time (current-seconds)) "%Y-%m-%d %H:%M:%S"))
|
| ︙ | ︙ |
Modified megatest.scm from [58763bc3e0] to [e84f4557e9].
whitespace changes only