Changeset 14383 in project
 Timestamp:
 04/23/09 04:11:02 (11 years ago)
 Location:
 release/4/sparsevectors
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

release/4/sparsevectors/sparsevectors.scm
r4706 r14383 11 11 12 12 13 (declare 14 (export makesparsevector 15 sparsevector? 16 sparsevectorref 17 sparsevectorset! 18 sparsevector>list) ) 13 (module sparsevectors 14 15 (makesparsevector 16 sparsevector? 17 sparsevectorref 18 sparsevectorset! 19 sparsevector>list) 20 21 (import scheme chicken datastructures extras ) 22 19 23 20 24 (define hilbertlog 8) … … 112 116 ( height 1) more))) 113 117 ((< i 0) more))))) 118 ) 
release/4/sparsevectors/sparsevectors.setup
r4706 r14383 1 ;;;; * Hen * 1 2 2 (define hasexports? (string>=? (chickenversion) "2.310")) 3 (define (dynldname fn) 4 (makepathname #f fn ##sys#loaddynamicextension)) 3 5 4 (compile s 5 ,@(if hasexports? '(checkimports emitexports sparsevectors.exports) '()) 6 sparsevectors.scm d2) 6 (compile O2 d0 s sparsevectors.scm j sparsevectors) 7 (compile O2 d0 s sparsevectors.import.scm) 7 8 8 9 (when (extensioninformation 'numbers) 9 (compile s sparsevectors.scm 10 ,@(if hasexports? '(checkimports emitexports sparsevectors.exports) '()) 11 R numbers O2 d1 o bigsparsevectors.so) ) 10 (begin 11 (compile O2 d0 requireextension datatype 12 s sparsevectors.scm o ,(dynldname "bigsparsevectors") j bigsparsevectors) 13 (compile O2 d0 s bigsparsevectors.import.scm))) 12 14 13 15 (installextension 14 'sparsevectors15 `("sparsevectors.so"16 ,@(if hasexports? '("sparsevectors.exports") (list))17 ,@(if (extensioninformation 'numbers)18 '("bigsparsevectors.so")19 '() ) )20 '((version 0.2)21 (documentation "sparsevectors.html")22 ,@(if hasexports? `((exports "sparsevectors.exports")) (list)) ))23 16 17 ; Name of your extension: 18 'sparsevectors 19 20 ; Files to install for your extension: 21 `(,(dynldname "sparsevectors") ,(dynldname "sparsevectors.import") 22 ,@(if (extensioninformation 'numbers) 23 `(,(dynldname "bigsparsevectors") ,(dynldname "bigsparsevectors.import") ) '()) 24 ) 25 26 ; Assoc list with properties for your extension: 27 `((version 0.3) 28 (documentation "sparsevectors.html") 29 ))
Note: See TracChangeset
for help on using the changeset viewer.