Overview
| Comment: | Added cleanup-pkts and commented out unnecessary pkts from configf |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
a8cb71c532ecef1e04cc0090d7bbc995 |
| User & Date: | mrwellan on 2018-01-26 13:34:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-01-26
| ||
| 17:03 | Updated deploy makefile check-in: 114eed176f user: jmoon18 tags: v1.65 | |
| 13:34 | Added cleanup-pkts and commented out unnecessary pkts from configf check-in: a8cb71c532 user: mrwellan tags: v1.65 | |
|
2018-01-25
| ||
| 15:31 | workaround note for 17.04 ubuntu check-in: b79b86ca4b user: bb tags: v1.65 | |
Changes
Modified configf.scm from [9258d8560f] to [a0780f7710].
| ︙ | ︙ | |||
250 251 252 253 254 255 256 | ;; post-section-procs alist of section-pattern => proc, where: (proc section-name next-section-name ht curr-path) ;; apply-wildcards: #t/#f - apply vars from targets with % wildcards to all matching sections ;; (define (read-config path ht allow-system #!key (environ-patt #f) (curr-section #f) (sections #f) (settings (make-hash-table)) (keep-filenames #f) (post-section-procs '()) (apply-wildcards #t) ) (debug:print 9 *default-log-port* "START: " path) | | | | | | | | | 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 |
;; post-section-procs alist of section-pattern => proc, where: (proc section-name next-section-name ht curr-path)
;; apply-wildcards: #t/#f - apply vars from targets with % wildcards to all matching sections
;;
(define (read-config path ht allow-system #!key (environ-patt #f) (curr-section #f)
(sections #f) (settings (make-hash-table)) (keep-filenames #f)
(post-section-procs '()) (apply-wildcards #t) )
(debug:print 9 *default-log-port* "START: " path)
;; (if *configdat*
;; (common:save-pkt `((action . read-config)
;; (f . ,(cond ((string? path) path)
;; ((port? path) "port")
;; (else (conc path))))
;; (T . configf))
;; *configdat* #t add-only: #t))
(if (and (not (port? path))
(not (common:file-exists? path))) ;; for case where we are handed a port
(begin
(debug:print-info 1 *default-log-port* "read-config - file not found " path " current path: " (current-directory))
;; WARNING: This is a risky change but really, we should not return an empty hash table if no file read?
#f) ;; (if (not ht)(make-hash-table) ht))
(let ((inp (if (string? path)
|
| ︙ | ︙ |
Added utils/cleanup-pkts.sh version [8b0ea2d6b7].
> > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 |
#!/bin/bash
pushd $1
for x in *.pkt;do
if grep 'T configf' $x > /dev/null;then
echo rm $x
else
echo skip $x
fi
done
|
Modified utils/memproblem.scm from [8c90caee95] to [36d7c2dd7d].
| ︙ | ︙ | |||
30 31 32 33 34 35 36 |
(define-inline (G->k val)(* val 1e6))
(define start-time (current-milliseconds))
(let loop ((n 0)
(dat (get-free))
(stuff '()))
| | > > > | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
(define-inline (G->k val)(* val 1e6))
(define start-time (current-milliseconds))
(let loop ((n 0)
(dat (get-free))
(stuff '()))
(let ((bigvec (make-u32vector 200000000))
(startt (current-milliseconds)))
(print "Value at 100: " (u32vector-ref bigvec 100) " ms to access: " (- (current-milliseconds) startt))
(u32vector-set! bigvec (random 190000000) 111)
(print n " Elapsed time: " (/ (- (current-milliseconds) start-time) 1000) " s "
"Cached: " (k->G (cached dat)) " G "
"Used: " (k->G (used dat)) " G ")
(if (< n num-iter)
(loop (+ n 1)(get-free) (cons bigvec stuff)))))
(exit)
|
| ︙ | ︙ |