Changeset 26332 in project


Ignore:
Timestamp:
04/02/12 05:36:29 (9 years ago)
Author:
Ivan Raikov
Message:

random-mtzig: using bind instead of easyffi

Location:
release/4/random-mtzig/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/random-mtzig/trunk/random-mtzig.meta

    r23288 r26332  
    1919 ; declaration altogether:
    2020
    21  (needs easyffi)
     21 (needs bind)
    2222
    2323 (author "Ivan Raikov")
  • release/4/random-mtzig/trunk/random-mtzig.scm

    r24389 r26332  
    5858  (import scheme chicken foreign )
    5959
    60   (require-extension srfi-4 easyffi)
    61 
    62 
    63 #>!
     60  (require-extension srfi-4 bind)
     61
     62
     63(bind* #<<EOF
    6464
    6565typedef int randmtzig_idx_type;
     
    7575
    7676typedef unsigned int randmtzig_uint64_t;
    77 
    78 ___declare(export_constants, yes)
    7977
    8078#define MT_N 624
     
    133131                            double *we, double *fe);
    134132
    135 <#
     133EOF
     134)
    136135
    137136(define (make-zt)
  • release/4/random-mtzig/trunk/random-mtzig.setup

    r25944 r26332  
    44  (make-pathname #f fn ##sys#load-dynamic-extension))   
    55
    6 (compile -O -d2 -X easyffi -s random-mtzig.scm randmtzig.c -j random-mtzig)
    7 (compile -O -d2 -s random-mtzig.import.scm)
     6(compile -O3 -d0 -s random-mtzig.scm randmtzig.c -j random-mtzig)
     7(compile -O -d0 -s random-mtzig.import.scm)
    88
    99(install-extension
     
    1616
    1717  ; Assoc list with properties for your extension:
    18   `((version 3.1)
     18  `((version 3.2)
    1919    ))
Note: See TracChangeset for help on using the changeset viewer.