diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 15:15:13 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 15:15:13 +0200 |
commit | 92db8db9d74f6d40d7313283013cbf45c3ba1821 (patch) | |
tree | 139fe53fd375a9c367abc37039065d72d7e3fb9b /scripts | |
parent | Repair /today. (diff) | |
download | calp-92db8db9d74f6d40d7313283013cbf45c3ba1821.tar.gz calp-92db8db9d74f6d40d7313283013cbf45c3ba1821.tar.xz |
Move some scripts to subdir.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/benchmark.scm | 59 | ||||
-rwxr-xr-x | scripts/rfc-tags | 12 |
2 files changed, 71 insertions, 0 deletions
diff --git a/scripts/benchmark.scm b/scripts/benchmark.scm new file mode 100644 index 00000000..f0e2cbcf --- /dev/null +++ b/scripts/benchmark.scm @@ -0,0 +1,59 @@ +(add-to-load-path "module") +(use-modules (util) + (util app) + (util config) + (vcomponent) + (vcomponent group) + (vcomponent datetime) + (datetime) + (srfi srfi-41) + (srfi srfi-41 util) + ) + +(load "config.scm") +((@ (vcomponent) init-app) (get-config 'calendar-files)) + +(define all-events (getf 'event-set)) +(define groups (group-stream all-events)) + +(define start #2020-06-01) +(define end #2020-07-01) + +(define (run-filter) + (stream->list (filter-sorted-stream (lambda (e) (event-overlaps? e start end)) + all-events))) + +(define (run-grouped) + (map group->event-list + (stream->list (get-groups-between groups start end)))) + +(define (calc-time start end) + (exact->inexact + (+ (- (car end) + (car start)) + (/ (- (cdr end) + (cdr start)) + #e1e6)))) + +(run-filter) +(run-grouped) + +(format #t "Starting timings~%") +(define t1 (gettimeofday)) +(do ((i 1 (1+ i))) + ((> i 1000)) + (run-grouped)) +(format #t "end first timings~%") +(define t2 (gettimeofday)) +(do ((i 1 (1+ i))) + ((> i 1000)) + (run-filter)) +(format #t "end second timings~%") +(define t3 (gettimeofday)) + +(format #t "t1 = ~a~%t2 = ~a~%" + (calc-time t1 t2) + (calc-time t2 t3)) + +(values (calc-time t1 t2) + (calc-time t2 t3)) diff --git a/scripts/rfc-tags b/scripts/rfc-tags new file mode 100755 index 00000000..b51658cf --- /dev/null +++ b/scripts/rfc-tags @@ -0,0 +1,12 @@ +#!/bin/bash + +# A simple utility script for generating ctags from some RFC files. +# +# Deffinitely works with RFC 5545. + +filename=$1 + +grep Current $filename \ + | sed 's/RFC [0-9]\+, Section //' \ + | tr -d ' ' \ + | awk -F '|' '{ print $2 "\t'$filename'\t/^" $4 ". /;\"" }' |