From 92db8db9d74f6d40d7313283013cbf45c3ba1821 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 10 Aug 2020 15:15:13 +0200
Subject: Move some scripts to subdir.

---
 scripts/benchmark.scm | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++
 scripts/rfc-tags      | 12 +++++++++++
 2 files changed, 71 insertions(+)
 create mode 100644 scripts/benchmark.scm
 create mode 100755 scripts/rfc-tags

(limited to 'scripts')

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 ". /;\"" }'
-- 
cgit v1.2.3