Overview
| Comment: | Added hostinfo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
5e83a11ff5db2ea5cf91986e379a486a |
| User & Date: | matt on 2021-04-06 08:45:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-06
| ||
| 13:51 | Wip, getting close ... check-in: b4e9092089 user: matt tags: v1.6584-ck5 | |
| 08:45 | Added hostinfo check-in: 5e83a11ff5 user: matt tags: v1.6584-ck5 | |
|
2021-04-05
| ||
| 23:57 | wip check-in: fb8e8050b3 user: matt tags: v1.6584-ck5 | |
Changes
Modified hostinfo/hostinfo.scm from [fb944f31b8] to [57d098dcb3].
| ︙ | ︙ | |||
80 81 82 83 84 85 86 |
;;; One-stop shops -- does what you want
host-information protocol-information service-information
;;; Utilities
string->ip ip->string)
(import chicken.fixnum chicken.string chicken.blob srfi-2 scheme
typed-records srfi-9 chicken.foreign srfi-4 chicken.base
| | | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
;;; One-stop shops -- does what you want
host-information protocol-information service-information
;;; Utilities
string->ip ip->string)
(import chicken.fixnum chicken.string chicken.blob srfi-2 scheme
typed-records srfi-9 chicken.foreign srfi-4 chicken.base
foreigners system-information
chicken.format)
(define (vector-map p v0) ; to avoid linking in vector-lib
(let* ((len (vector-length v0))
(v (make-vector len)))
(do ((i 0 (+ i 1)))
((>= i len) v)
|
| ︙ | ︙ |
Modified megatest.scm from [76ef0f0063] to [c12d8c8b4a].
| ︙ | ︙ | |||
84 85 86 87 88 89 90 | srfi-98 srfi-69 ;; local modules mutils csv-xml ducttape-lib | | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | srfi-98 srfi-69 ;; local modules mutils csv-xml ducttape-lib hostinfo ) ;; (include "common.scm") (include "megatest-version.scm") ;; fake out readline usage of toplevel-command (define (toplevel-command . a) #f) |
| ︙ | ︙ |