1 ;;; ase-profs.el -- Benchmarks for ASE
2 ;; Copyright (C) 2006, 2007 Sebastian Freundt
4 ;; Author: Sebastian Freundt <hroptatyr@sxemacs.org>
7 ;; This file is part of SXEmacs.
9 ;; Redistribution and use in source and binary forms, with or without
10 ;; modification, are permitted provided that the following conditions
13 ;; 1. Redistributions of source code must retain the above copyright
14 ;; notice, this list of conditions and the following disclaimer.
16 ;; 2. Redistributions in binary form must reproduce the above copyright
17 ;; notice, this list of conditions and the following disclaimer in the
18 ;; documentation and/or other materials provided with the distribution.
20 ;; 3. Neither the name of the author nor the names of any contributors
21 ;; may be used to endorse or promote products derived from this
22 ;; software without specific prior written permission.
24 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
25 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
26 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
27 ;; DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
29 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
30 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
31 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
32 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
33 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
34 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36 ;;; Synched up with: Not in FSF.
39 ;; See benchmark.el for instructions on how to run these tests.
45 (when (and (boundp 'load-file-name) (stringp load-file-name))
46 (push (expand-file-name "../tests/benchmark"
47 (file-name-directory load-file-name))
49 (require 'benchmark)))
56 (while (nonnegativep N)
57 (ase-add-heap h (random most-positive-fixnum))
60 (defun heap-dump-d (N)
62 (ase-heap-to-dllist h))
64 (defun heap-dump-v (N)
66 (ase-heap-to-vector h))
68 (defun heap-dump-l (N)
72 (defun heap-dump-d* (N)
74 (ase-heap-to-dllist* h))
76 (defun heap-dump-v* (N)
78 (ase-heap-to-vector* h))
80 (defun heap-dump-l* (N)
82 (ase-heap-to-list* h))
85 (defun yheap-constr (N)
86 "dyna heap construction"
87 (setq h (ase-heap :kind 'dynamic)))
89 (defun yheap-destr (N)
94 (defun dheap-constr (N)
95 "dense heap construction"
96 (setq h (ase-heap :kind 'dense)))
98 (defun dheap-destr (N)
103 (defun wheap-constr (N)
104 "weak heap construction"
105 (setq h (ase-heap :kind 'weak)))
107 (defun wheap-destr (N)
114 ;; now the actual test suites
117 :test-funv [yheap-constr heap-fill heap-dump-d heap-dump-d*]
118 :test-range '(10 . 100000)
119 :plot-file "benchmark-yheap.plot"))
123 :test-funv [dheap-constr heap-fill heap-dump-d heap-dump-d*]
124 :test-range '(10 . 100000)
125 :plot-file "benchmark-dheap.plot"))
129 :test-funv [wheap-constr heap-fill heap-dump-d heap-dump-d*]
130 :test-range '(10 . 100000)
131 :plot-file "benchmark-wheap.plot"))
134 ;; ase-heap-profs.el ends here