Changeset 14330 in project


Ignore:
Timestamp:
04/22/09 07:37:09 (11 years ago)
Author:
Ivan Raikov
Message:

dyn-vector updated for Chicken 4

Location:
release/4/dyn-vector
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/dyn-vector/trunk/dyn-vector-eggdoc.scm

    r7358 r14330  
    44;;
    55
    6 (use eggdoc)
     6(require-library eggdoc)
     7(import eggdoc)
    78
    89(define doc
  • release/4/dyn-vector/trunk/dyn-vector.meta

    r9200 r14330  
     1;;;; -*- Hen -*-
     2
    13((egg "dyn-vector.egg") ; This should never change
    24
  • release/4/dyn-vector/trunk/dyn-vector.scm

    r4870 r14330  
    33;; Dynamic (dense) vectors.
    44;;
    5 ;; Copyright 2007 Ivan Raikov and the Okinawa Institute of Science and Technology
     5;; Copyright 2007-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
    66;;
    77;; This program is free software: you can redistribute it and/or
     
    1919;;
    2020
    21 (require-extension srfi-1)
    22 (require-extension vector-lib)
    2321
    24 (define-extension dyn-vector)
     22(module dyn-vector
    2523
    26 (declare (export dynvector?             
    27                 dynvector-tabulate
    28                 list->dynvector
    29                 make-dynvector
    30                 dynvector-clear!
    31                 dynvector-length
    32                 dynvector-ref
    33                 dynvector-set!
    34                 dynvector-expand!
    35                 dynvector-for-each
    36                 dynvector-map
    37                 dynvector-copy
    38                 dynvector-fold
    39                 dynvector-fold-right
    40                 dynvector-index
    41                 dynvector-any
    42                 dynvector-every
    43                  dynvector->list))
     24 (dynvector?             
     25  dynvector-tabulate
     26  list->dynvector
     27  make-dynvector
     28  dynvector-clear!
     29  dynvector-length
     30  dynvector-ref
     31  dynvector-set!
     32  dynvector-expand!
     33  dynvector-for-each
     34  dynvector-map
     35  dynvector-copy
     36  dynvector-fold
     37  dynvector-fold-right
     38  dynvector-index
     39  dynvector-any
     40  dynvector-every
     41  dynvector->list)
    4442                 
     43                   
     44  (import scheme chicken data-structures extras )
     45
     46  (require-extension srfi-1 vector-lib )
    4547
    4648(define-record dvbase vect dflt cnt)
     
    179181
    180182
     183)
  • release/4/dyn-vector/trunk/dyn-vector.setup

    r6602 r14330  
     1;;;; -*- Hen -*-
    12
    23(define has-exports? (string>=? (chicken-version) "2.310"))
     
    56  (make-pathname #f fn ##sys#load-dynamic-extension))   
    67
    7 (compile -O2 -d0 -s dyn-vector.scm 
    8          ,@(if has-exports? '(-check-imports -emit-exports dyn-vector.exports) '())
    9          -lchicken -ldl -lm)
     8(compile -O2 -d0 -s dyn-vector.scm -j dyn-vector)
     9(compile -O2 -d0 -s dyn-vector.import.scm)
    1010
    11 (run (csi -qbs dyn-vector-eggdoc.scm > dyn-vector.html))
     11(run (csi -s dyn-vector-eggdoc.scm > dyn-vector.html))
    1212
    1313(install-extension
     
    1717
    1818  ; Files to install for your extension:
    19   `(,(dynld-name "dyn-vector") "dyn-vector.html"
    20     ,@(if has-exports? '("dyn-vector.exports") (list)) )
     19  `(,(dynld-name "dyn-vector") ,(dynld-name "dyn-vector.import") )
    2120
    2221  ; Assoc list with properties for your extension:
    2322  `((version 1.8)
    2423    (documentation "dyn-vector.html")
    25     ,@(if has-exports? `((exports "dyn-vector.exports")) (list)) ))
     24    ))
    2625
Note: See TracChangeset for help on using the changeset viewer.