Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-reshape |
| Files: | files | file ages | folders |
| SHA1: |
74613be421b6b4c5a21280515b4c3b48 |
| User & Date: | matt on 2023-01-23 09:04:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-25
| ||
| 07:34 | Synced in ulex from v2.0001 check-in: 6e38a56108 user: mrwellan tags: v1.80-reshape | |
|
2023-01-23
| ||
| 09:04 | wip check-in: 74613be421 user: matt tags: v1.80-reshape | |
|
2023-01-22
| ||
| 01:45 | wip check-in: d78cc9a775 user: matt tags: v1.80-reshape | |
Changes
Modified servermod.scm from [2fe56d1814] to [ac67f901a1].
| ︙ | ︙ | |||
102 103 104 105 106 107 108 | ;; (define (server:setup srvtype areapath) (let* ((srvdat (make-srv areapath: areapath host: (get-host-name) ;; likely need to replace with ip address pid: (current-process-id) type: srvtype)) | | | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 |
;;
(define (server:setup srvtype areapath)
(let* ((srvdat (make-srv
areapath: areapath
host: (get-host-name) ;; likely need to replace with ip address
pid: (current-process-id)
type: srvtype))
(srvdir (conc areapath"/.server/"srvtype"/"(get-host.pid srvdat))))
(srv-dir-set! srvdat srvdir)
(create-directory srvdir #t)
srvdat))
;; maybe check load before calling this?
(define (server:launch areapath)
(let* ((logd (conc areapath"/logs"))
|
| ︙ | ︙ |