funds-cvs

funds-cvs@common-lisp.net

225 discussions

[funds-cvs] r128 - trunk/funds/src
by abaine＠common-lisp.net 10 Aug '07

10 Aug '07

Author: abaine Date: Fri Aug 10 18:14:09 2007 New Revision: 128 Modified: trunk/funds/src/funds.asd Log: Renamed array file to f-array. Modified: trunk/funds/src/funds.asd ============================================================================== --- trunk/funds/src/funds.asd (original) +++ trunk/funds/src/funds.asd Fri Aug 10 18:14:09 2007 @@ -48,7 +48,7 @@ (:file "heap-insert") (:file "heap-remove") (:file "heap-first"))))) - (:file "array") + (:file "f-array") (:file "dictionary") (:file "queue")))

1 0

[funds-cvs] r127 - trunk/funds/src
by abaine＠common-lisp.net 10 Aug '07

10 Aug '07

Author: abaine Date: Fri Aug 10 17:09:14 2007 New Revision: 127 Modified: trunk/funds/src/f-array.lisp Log: Added f-array stubs. Modified: trunk/funds/src/f-array.lisp ============================================================================== --- trunk/funds/src/f-array.lisp (original) +++ trunk/funds/src/f-array.lisp Fri Aug 10 17:09:14 2007 @@ -1,2 +1,11 @@ (in-package :funds) + +(defun make-f-array (size &key (initial-contents nil)) + ) + +(defun f-array-elt (array index) + ) + +(defun f-array-replace (array index item) + )

1 0

[funds-cvs] r126 - trunk/funds/src
by abaine＠common-lisp.net 10 Aug '07

10 Aug '07

Author: abaine Date: Fri Aug 10 17:02:29 2007 New Revision: 126 Added: trunk/funds/src/f-array.lisp Log: Added f-array.lisp. Added: trunk/funds/src/f-array.lisp ============================================================================== --- (empty file) +++ trunk/funds/src/f-array.lisp Fri Aug 10 17:02:29 2007 @@ -0,0 +1,2 @@ + +(in-package :funds)

1 0

[funds-cvs] r125 - trunk/funds/src
by abaine＠common-lisp.net 10 Aug '07

10 Aug '07

Author: abaine Date: Fri Aug 10 16:58:12 2007 New Revision: 125 Modified: trunk/funds/src/funds.asd Log: Added array file to defsystem form. Modified: trunk/funds/src/funds.asd ============================================================================== --- trunk/funds/src/funds.asd (original) +++ trunk/funds/src/funds.asd Fri Aug 10 16:58:12 2007 @@ -48,6 +48,7 @@ (:file "heap-insert") (:file "heap-remove") (:file "heap-first"))))) + (:file "array") (:file "dictionary") (:file "queue")))

1 0

[funds-cvs] r124 - trunk/funds/src
by abaine＠common-lisp.net 10 Aug '07

10 Aug '07

Author: abaine Date: Fri Aug 10 16:57:51 2007 New Revision: 124 Modified: trunk/funds/src/package.lisp Log: Added f-array interface. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Fri Aug 10 16:57:51 2007 @@ -51,4 +51,8 @@ :make-dictionary :dictionary-add :dictionary-remove - :dictionary-lookup)) + :dictionary-lookup + + :make-f-array + :f-array-elt + :f-array-replace))

1 0

[funds-cvs] r123 - trunk/funds/src
by abaine＠common-lisp.net 08 Aug '07

08 Aug '07

Author: abaine Date: Tue Aug 7 22:34:25 2007 New Revision: 123 Modified: trunk/funds/src/dictionary.lisp Log: Implimented dictionary functionality. Modified: trunk/funds/src/dictionary.lisp ============================================================================== --- trunk/funds/src/dictionary.lisp (original) +++ trunk/funds/src/dictionary.lisp Tue Aug 7 22:34:25 2007 @@ -2,14 +2,38 @@ (in-package :funds) (defstruct dict - hash-function - test-function + hash + test tree) -(defun make-dictionary (&key hash-function test)) +(defun make-dictionary (&key (hash #'sxhash) (test #'eql)) + (make-dict :hash hash :test test :tree (make-avl-tree))) -(defun dictionary-add (dictionary key value)) +(defun dictionary-add (d k v) + (let* ((h (funcall (dict-hash d) k)) + (old-alist (tree-find (dict-tree d) h)) + (new-alist (acons k v (remove (assoc k old-alist :test (dict-test d)) + old-alist)))) + (make-dict :hash (dict-hash d) + :test (dict-test d) + :tree (tree-insert (dict-tree d) h new-alist)))) -(defun dictionary-remove (dictionary key)) +(defun dictionary-remove (d k) + (let* ((h (funcall (dict-hash d) k)) + (old-alist (tree-find (dict-tree d) h)) + (new-alist (remove (assoc k old-alist :test (dict-test d)) + old-alist))) + (make-dict :hash (dict-hash d) + :test (dict-test d) + :tree (if (null new-alist) + (tree-remove (dict-tree d) h) + (tree-insert (dict-tree d) h new-alist))))) + +(defun dictionary-lookup (d k) + (let ((pair (assoc k + (tree-find (dict-tree d) (funcall (dict-hash d) k)) + :test (dict-test d)))) + (if (null pair) + (values nil nil) + (values (cdr pair) t)))) -(defun dictionary-lookup (dictionary key))

1 0

[funds-cvs] r122 - trunk/funds/src
by abaine＠common-lisp.net 08 Aug '07

08 Aug '07

Author: abaine Date: Tue Aug 7 20:58:03 2007 New Revision: 122 Modified: trunk/funds/src/dictionary.lisp Log: Added stubs for dictionary interface. Modified: trunk/funds/src/dictionary.lisp ============================================================================== --- trunk/funds/src/dictionary.lisp (original) +++ trunk/funds/src/dictionary.lisp Tue Aug 7 20:58:03 2007 @@ -1,3 +1,15 @@ (in-package :funds) +(defstruct dict + hash-function + test-function + tree) + +(defun make-dictionary (&key hash-function test)) + +(defun dictionary-add (dictionary key value)) + +(defun dictionary-remove (dictionary key)) + +(defun dictionary-lookup (dictionary key))

1 0

[funds-cvs] r121 - trunk/funds/src
by abaine＠common-lisp.net 08 Aug '07

08 Aug '07

Author: abaine Date: Tue Aug 7 20:49:44 2007 New Revision: 121 Added: trunk/funds/src/dictionary.lisp Log: Added dictionary.lisp. Added: trunk/funds/src/dictionary.lisp ============================================================================== --- (empty file) +++ trunk/funds/src/dictionary.lisp Tue Aug 7 20:49:44 2007 @@ -0,0 +1,3 @@ + +(in-package :funds) +

1 0

[funds-cvs] r120 - trunk/funds/src
by abaine＠common-lisp.net 08 Aug '07

08 Aug '07

Author: abaine Date: Tue Aug 7 20:41:15 2007 New Revision: 120 Modified: trunk/funds/src/funds.asd Log: Added dictionary to defsystem. Modified: trunk/funds/src/funds.asd ============================================================================== --- trunk/funds/src/funds.asd (original) +++ trunk/funds/src/funds.asd Tue Aug 7 20:41:15 2007 @@ -48,4 +48,6 @@ (:file "heap-insert") (:file "heap-remove") (:file "heap-first"))))) + (:file "dictionary") (:file "queue"))) +

1 0

[funds-cvs] r119 - trunk/funds/src
by abaine＠common-lisp.net 08 Aug '07

08 Aug '07

Author: abaine Date: Tue Aug 7 20:32:00 2007 New Revision: 119 Modified: trunk/funds/src/package.lisp Log: Added dictionary interface to exported symbols. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Tue Aug 7 20:32:00 2007 @@ -46,4 +46,9 @@ :stack-empty-p :stack-push :stack-top - :stack-size)) + :stack-size + + :make-dictionary + :dictionary-add + :dictionary-remove + :dictionary-lookup))

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

funds-cvs