[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] UNNAMED PROJECT branch, externals/dismal, updated. 629647ab
From: |
Stefan Monnier |
Subject: |
[ELPA-diffs] UNNAMED PROJECT branch, externals/dismal, updated. 629647abbf6587eddf1a7e271e724cd0b6321771 |
Date: |
Sun, 11 Aug 2013 04:26:56 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "UNNAMED PROJECT".
The branch, externals/dismal has been updated
via 629647abbf6587eddf1a7e271e724cd0b6321771 (commit)
from 527e7fa37e23797ab9b59c505d9b4870bd49854c (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 629647abbf6587eddf1a7e271e724cd0b6321771
Author: Stefan Monnier <address@hidden>
Date: Sun Aug 11 00:26:44 2013 -0400
Get "make" to go through
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..36eb56c
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+*.elc
+*-autoloads.el
+*~
+ChangeLog
diff --git a/heaps.el b/heaps.el
index 1ea94f8..42b1c49 100644
--- a/heaps.el
+++ b/heaps.el
@@ -41,33 +41,34 @@
;; (heap-last heap) - amount of space used,
;; address of last element
-(defmacro heap-compare (h a b)
+(defsubst heap-compare (h a b)
"Use HEAP's compare function to compare elements A and B.
Argument H "
- (list 'apply (list 'aref h 0) a b nil))
+ (funcall (aref h 0) a b))
-(defmacro heap-space (h)
+(defsubst heap-space (h)
"Return the amount of space available in HEAP's vector."
- (list 'aref h 1))
+ (aref h 1))
-(defmacro heap-last (h)
+(defsubst heap-last (h)
"Return the index of the element after the HEAP's last element."
- (list 'aref h 2))
+ (aref h 2))
-(defmacro heap-set-space (h v) (list 'aset h 1 v))
-(defmacro heap-set-last (h v) (list 'aset h 2 v))
+(defsubst heap-set-space (h v) (aset h 1 v))
+(defsubst heap-set-last (h v) (aset h 2 v))
-(defmacro heap-aref (h n)
+(defsubst heap-aref (h n)
"Return the HEAP's Nth element."
- (list 'aref (list 'aref h 3) n))
+ (aref (aref h 3) n))
-(defmacro heap-aset (h n v)
+(defsubst heap-aset (h n v)
"Set the HEAP's Nth element to V."
- (list 'aset (list 'aref h 3) n v))
+ (aset (aref h 3) n v))
-(defmacro heap-empty (h)
- "Return t if HEAP is empty."
- (list '= (list 'heap-last h) 0))
+(defsubst heap-empty-p (h)
+ "Return non-nil iff HEAP is empty."
+ (= (heap-last h) 0))
+(define-obsolete-function-alias 'heap-empty 'heap-empty-p "Dismal-1.5")
(defsubst heap-swap (h i j)
"Swap HEAP's I'th and J'th elements."
@@ -76,7 +77,7 @@ Argument H "
(heap-aset h i elem2)
(heap-aset h j elem1)))
-(defsubst heap-create (compare-function)
+(defun heap-create (compare-function)
"Create an empty priority queue (heap) with the given COMPARE-FUNCTION."
(let ((heap (make-vector 4 nil)))
(aset heap 0 compare-function)
@@ -85,18 +86,18 @@ Argument H "
(aset heap 3 (make-vector 1 nil))
heap))
-(defsubst heap-bubble-up (heap index)
- "Helping function for heap-insert."
- (if (> index 0)
- (let* ((half (/ (1- index) 2))
- (elem (heap-aref heap index))
- (parent (heap-aref heap half))
- (comp (heap-compare heap parent elem)))
- (if (<= comp 0)
- ()
- (heap-aset heap index parent)
- (heap-aset heap half elem)
- (heap-bubble-up heap half)))))
+(defun heap--bubble-up (heap index)
+ "Helping function for `heap-insert'."
+ (let* ((half (/ (1- index) 2))
+ (elem (heap-aref heap index))
+ (parent (heap-aref heap half))
+ (comp (heap-compare heap parent elem)))
+ (if (<= comp 0)
+ ()
+ (heap-aset heap index parent)
+ (heap-aset heap half elem)
+ (if (> index 0)
+ (heap--bubble-up heap half)))))
(defsubst heap-insert (heap element)
@@ -116,7 +117,8 @@ Argument H "
;; Put the new element in the next free position in the heap vector
(heap-aset heap (heap-last heap) element)
;; Increment the element count
- (heap-bubble-up heap (heap-last heap))
+ (if (> index 0)
+ (heap--bubble-up heap (heap-last heap)))
(heap-set-last heap (1+ (heap-last heap)))))
(defun heap-deletemin (heap)
diff --git a/log.el b/log.el
index f87b6af..835eec2 100644
--- a/log.el
+++ b/log.el
@@ -151,6 +151,8 @@
;;; Code:
+(eval-when-compile (require 'cl))
+
(defvar *log-data-directory*
(concat (getenv "HOME") "/")
;; HERE: should write all files here
diff --git a/make-km-aliases.el b/make-km-aliases.el
index 6c72dff..0df64f9 100644
--- a/make-km-aliases.el
+++ b/make-km-aliases.el
@@ -92,9 +92,9 @@ word. \\[dismal-init-make-aliases] must be called first."
(defun dismal--recursive-match-old-alias (alias cell set)
"Return t if new alias matches but cell does not."
(cond ((not set) nil)
- ((string= alias (car (first set)))
- (if (and (equal (car cell) (car (cdr (first set))))
- (equal (cdr cell) (cdr (cdr (first set)))))
+ ((string= alias (car (car set)))
+ (if (and (equal (car cell) (car (cdr (car set))))
+ (equal (cdr cell) (cdr (cdr (car set)))))
(dismal--recursive-match-old-alias alias cell (cdr set))
;; return t
t))
diff --git a/rmatrix.el b/rmatrix.el
index 2bc7c09..cf09ffa 100644
--- a/rmatrix.el
+++ b/rmatrix.el
@@ -25,7 +25,7 @@
;;; Code:
-(provide 'rmatrix)
+(require 'vectors)
;;;; I. Matrix creation and major modification
-----------------------------------------------------------------------
Summary of changes:
.gitignore | 4 +++
heaps.el | 60 ++++++++++++++++++++++++++-------------------------
log.el | 2 +
make-km-aliases.el | 6 ++--
rmatrix.el | 2 +-
5 files changed, 41 insertions(+), 33 deletions(-)
create mode 100644 .gitignore
hooks/post-receive
--
UNNAMED PROJECT
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] UNNAMED PROJECT branch, externals/dismal, updated. 629647abbf6587eddf1a7e271e724cd0b6321771,
Stefan Monnier <=