Changeset 14405 in project


Ignore:
Timestamp:
04/24/09 02:18:19 (11 years ago)
Author:
Ivan Raikov
Message:

interp1d ported to Chicken 4

Location:
release/4/interp1d/trunk
Files:
4 edited

Legend:

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

    r7358 r14405  
    66     (name "interp1d")
    77     (description "One-dimensional numerical interpolation.")
    8      (author (url "http://chicken.wiki.br/ivan raikov" "Ivan Raikov"))
     8     (author (url "http://chicken.wiki.br/users/ivan-raikov" "Ivan Raikov"))
    99
    1010     (history
     11      (version "1.10" "Ported to Chicken 4")     
    1112      (version "1.9" "Removed testeez as a dependency")     
    1213      (version "1.8" "Added lbound and ubound routines")     
     
    9394
    9495     (license
    95       "Copyright 2007 Ivan Raikov and the Okinawa Institute of Science and Technology.
     96      "Copyright 2007-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
    9697
    9798This program is free software: you can redistribute it and/or modify
  • release/4/interp1d/trunk/interp1d.meta

    r9305 r14405  
     1;; -*- Hen -*-
     2
    13((egg "interp1d.egg") ; This should never change
    24
  • release/4/interp1d/trunk/interp1d.scm

    r6939 r14405  
    33;; 1-dimensional interpolation routines.
    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 srfi-4)
    23 
    24 (define-extension interp1d)
    25  
    26 
    27 (declare (export interp1d:nearest interp1d:lbound interp1d:ubound
    28                  interp1d:linear interp1d:piecewise-quadratic interp1d:from-sequence))
     21(module interp1d
     22
     23 (interp1d:nearest interp1d:lbound interp1d:ubound interp1d:linear
     24  interp1d:piecewise-quadratic interp1d:from-sequence )
     25
     26 (import scheme chicken foreign easyffi srfi-1 srfi-4 )
    2927
    3028
     
    235233<#
    236234
     235)
  • release/4/interp1d/trunk/interp1d.setup

    r6976 r14405  
    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  -X easyffi  -O2 -d0 -s
    8          ,@(if has-exports? '(-check-imports -emit-exports interp1d.exports) '())
    9          interp1d.scm  -lchicken -ldl -lm)
     6(compile  -X easyffi  -O2 -d0 -s interp1d.scm -j interp1d)
     7(compile  -O2 -d0 -s interp1d.import.scm)
    108
    119(run (csi -qbs interp1d-eggdoc.scm > interp1d.html))
     
    1715
    1816  ; Files to install for your extension:
    19   `(,(dynld-name "interp1d") "interp1d.html"
    20     ,@(if has-exports? '("interp1d.exports") (list)) )
     17  `(,(dynld-name "interp1d") ,(dynld-name "interp1d.import") "interp1d.html" )
     18 
    2119
    2220  ; Assoc list with properties for your extension:
    23   `((version 1.9)
    24     (documentation "interp1d.html")
    25     ,@(if has-exports? `((exports "interp1d.exports")) (list)) ))
     21  `((version 1.10)
     22    (documentation "interp1d.html")))
Note: See TracChangeset for help on using the changeset viewer.