Changeset 14561 in project


Ignore:
Timestamp:
05/08/09 04:23:42 (11 years ago)
Author:
Ivan Raikov
Message:

ported srfi-4-utils to Chicken 4

Location:
release/4/srfi-4-utils
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/srfi-4-utils/trunk/srfi-4-utils-eggdoc.scm

    r7358 r14561  
    99  `((eggdoc:begin
    1010     (name "srfi-4-utils")
     11
    1112     (description "Utility functions for SRFI-4 vectors.")
    12      (author (url "http://chicken.wiki.br/ivan raikov" "Ivan Raikov"))
     13
     14     (author (url "http://chicken.wiki.br/users/ivan-raikov" "Ivan Raikov"))
    1315
    1416     (history
     17      (version "1.5" "Ported to Chicken 4")
    1518      (version "1.4" "Build script bug fix")
    1619      (version "1.3" "Build script updated for better cross-platform compatibility")
     
    6265
    6366     (license
    64 "Copyright 2007 Ivan Raikov and the Okinawa Institute of Science and Technology
     67"Copyright 2007-2009 Ivan Raikov and the Okinawa Institute of Science and Technology
    6568
    6669This program is free software: you can redistribute it and/or modify
  • release/4/srfi-4-utils/trunk/srfi-4-utils.meta

    r9305 r14561  
     1;;; -*- Hen -*-
     2
    13((egg "srfi-4-utils.egg") ; This should never change
    24
     
    1618 ; A list of eggs matrix-utils depends on.
    1719
    18  (needs syntax-case srfi-42 srfi-4-comprehensions eggdoc)
     20 (needs eggdoc srfi-42 srfi-4-comprehensions )
    1921
    2022 (eggdoc "srfi-4-utils-eggdoc.scm")
  • release/4/srfi-4-utils/trunk/srfi-4-utils.scm

    r6141 r14561  
    55;;
    66;;
    7 ;; Copyright 2007 Ivan Raikov and the Okinawa Institute of Science and Technology
     7;; Copyright 2007-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
    88;;
    99;;
     
    2323;;
    2424
     25(module srfi-4-utils
    2526
    26 (require-extension syntax-case)
    27 (require-extension srfi-4)
    28 (import srfi-4-comprehensions)
     27 (f64vector-fold f32vector-fold s32vector-fold u32vector-fold
     28                 s16vector-fold u16vector-fold s8vector-fold u8vector-fold
     29                 f64vector-map f32vector-map s32vector-map u32vector-map
     30                 s16vector-map u16vector-map s8vector-map u8vector-map
     31                 f64vector-foldi f32vector-foldi s32vector-foldi u32vector-foldi
     32                 s16vector-foldi u16vector-foldi s8vector-foldi u8vector-foldi
     33                 f64vector-mapi f32vector-mapi s32vector-mapi u32vector-mapi
     34                 s16vector-mapi u16vector-mapi s8vector-mapi u8vector-mapi
     35                 f64vector-quick-sort! f32vector-quick-sort! s32vector-quick-sort! u32vector-quick-sort!
     36                 s16vector-quick-sort! u16vector-quick-sort! s8vector-quick-sort! u8vector-quick-sort!)
    2937
    30 (define-extension srfi-4-utils)
     38 (import scheme chicken srfi-4)
    3139
    32 
    33 (declare (export  f64vector-fold f32vector-fold s32vector-fold u32vector-fold
    34                   s16vector-fold u16vector-fold s8vector-fold u8vector-fold
    35                   f64vector-map f32vector-map s32vector-map u32vector-map
    36                   s16vector-map u16vector-map s8vector-map u8vector-map
    37                   f64vector-foldi f32vector-foldi s32vector-foldi u32vector-foldi
    38                   s16vector-foldi u16vector-foldi s8vector-foldi u8vector-foldi
    39                   f64vector-mapi f32vector-mapi s32vector-mapi u32vector-mapi
    40                   s16vector-mapi u16vector-mapi s8vector-mapi u8vector-mapi
    41                   f64vector-quick-sort! f32vector-quick-sort! s32vector-quick-sort! u32vector-quick-sort!
    42                   s16vector-quick-sort! u16vector-quick-sort! s8vector-quick-sort! u8vector-quick-sort!))
    43 
     40 (require-extension srfi-4 srfi-42 srfi-4-comprehensions)
    4441
    4542(define (make-vector-fold vector-length vector-ref)
     
    199196  (srfi-4-vector-quick-sort! u8vector-ref u8vector-set! u8vector-length))
    200197
     198)
  • release/4/srfi-4-utils/trunk/srfi-4-utils.setup

    r6769 r14561  
    1 
    2 (define has-exports? (string>=? (chicken-version) "2.310"))
     1;; -*- Hen -*-
    32
    43(define (dynld-name fn)         
    54  (make-pathname #f fn ##sys#load-dynamic-extension))   
    65
    7 (compile -O2 -s
    8          ,@(if has-exports? '(-check-imports -emit-exports srfi-4-utils.exports) '())
    9          srfi-4-utils.scm)
     6(compile -O2 -s srfi-4-utils.scm -j srfi-4-utils)
     7(compile -O2 -s srfi-4-utils.import.scm)
    108
    119(run (csi -qbs srfi-4-utils-eggdoc.scm > srfi-4-utils.html))
     
    1311(install-extension
    1412 'srfi-4-utils
    15  `(,(dynld-name "srfi-4-utils") "srfi-4-utils.html"
    16    ,@(if has-exports? '("srfi-4-utils.exports") (list)) )
    17  `((version 1.4)
     13 `(,(dynld-name "srfi-4-utils") ,(dynld-name "srfi-4-utils.import"))
     14 `((version 1.5)
    1815   (documentation "srfi-4-utils.html")))
Note: See TracChangeset for help on using the changeset viewer.