From 6f765896c6fb6c08be040d2d4ced895252d68817 Mon Sep 17 00:00:00 2001 From: xscript Date: Sun, 15 May 2011 22:16:47 +0200 Subject: [PATCH] Synchronize cedet/semantic with Emacs. --- test/manual/cedet/cedet/semantic/find.el | 42 ++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 test/manual/cedet/cedet/semantic/find.el diff --git a/test/manual/cedet/cedet/semantic/find.el b/test/manual/cedet/cedet/semantic/find.el new file mode 100644 index 00000000000..ce61c423624 --- /dev/null +++ b/test/manual/cedet/cedet/semantic/find.el @@ -0,0 +1,42 @@ +(defun semantic-find-benchmark () + "Run some simple benchmarks to see how we are doing. +Optional argument ARG is the number of iterations to run." + (interactive) + (require 'benchmark) + (let ((f-name nil) + (b-name nil) + (f-comp) + (b-comp) + (f-regex) + ) + (garbage-collect) + (setq f-name + (benchmark-run-compiled + 1000 (semantic-find-first-tag-by-name "class3" + "test/test.cpp"))) + (garbage-collect) + (setq b-name + (benchmark-run-compiled + 1000 (semantic-brute-find-first-tag-by-name "class3" + "test/test.cpp"))) + (garbage-collect) + (setq f-comp + (benchmark-run-compiled + 1000 (semantic-find-tags-for-completion "method" + "test/test.cpp"))) + (garbage-collect) + (setq b-comp + (benchmark-run-compiled + 1000 (semantic-brute-find-tag-by-name-regexp "^method" + "test/test.cpp"))) + (garbage-collect) + (setq f-regex + (benchmark-run-compiled + 1000 (semantic-find-tags-by-name-regexp "^method" + "test/test.cpp"))) + + (message "Name [new old] [ %.3f %.3f ] Complete [newc/new old] [ %.3f/%.3f %.3f ]" + (car f-name) (car b-name) + (car f-comp) (car f-regex) + (car b-comp)) + )) -- 2.39.5