Re: [Chicken-users] srfi-27 - producing pseudo and truly random numbers over a uniform distribution

[Terrence Brannon]

On 10/29/07, Ivan Raikov <address@hidden> wrote:
>
>
>  What platform is this on?

cygwin

> Instead of commenting out the typedefs,
> could you please rename all the type definitions in randmtzig.c and
> random-mtzig.scm as follows:
>
> Original:
>
> typedef signed char int8_t;
> ...
>
> Modified:
>
> typedef signed char randmtzig_int8_t;

(abbreviated output of cat random-mtzig.egg-dir/randmtzig.c )
typedef int randmtzig_idx_type;
typedef signed char randmtzig_int8_t;
typedef unsigned char randmtzig_uint8_t;
typedef short randmtzig_int16_t;
typedef unsigned short randmtzig_uint16_t;
typedef int randmtzig_int32_t;
typedef unsigned int randmtzig_uint32_t;
typedef long long randmtzig_int64_t;
typedef unsigned long long randmtzig_uint64_t;

(abbreviated output of cat random-mtzig.egg-dir/random-mtzig.scm )

(define-extension random-mtzig)

(require-extension srfi-4)

#>!

typedef int randmtzig_idx_type;

typedef signed char randmtzig_int8_t;
typedef unsigned char randmtzig_uint8_t;

typedef short randmtzig_int16_t;
typedef unsigned short randmtzig_uint16_t;

typedef int randmtzig_int32_t;
typedef unsigned int randmtzig_uint32_t;

typedef unsigned int randmtzig_uint64_t;

___declare(export_constants, yes)


address@hidden /tmp :

>
> This should avoid all collisions with definitions in stdint.h. Let me
> know if this works for you.
>
address@hidden /tmp : chicken-setup random-mtzig
  /usr/local/bin/csc -feature compiling-extension -O -d2 -X easyffi -s
-o random-mtzig.so -check-imports -emit-exports random-mtzig.exports
random-mtzig.scm randmtzig.c -lchicken -ldl -lm
Error: during expansion of (foreign-parse ...) - do not know how to
compute length of foreign type argument: (pointer "uint32_t")

        Call history:

        <eval>          (append strs (quote ("\n")))
        <eval>          (check-c-syntax (string-concatenate strs) (quote 
foreign-declare))
        <eval>          (string-concatenate strs)
        <eval>          (every string? strs)
        <eval>          (##sys#list (quote ##core#declare) (##sys#list (quote 
quote)
(##sys#cons (quote foreign-declare) str......
        <eval>          (##sys#list (quote quote) (##sys#cons (quote 
foreign-declare) strs))
        <eval>          (##sys#cons (quote foreign-declare) strs)
        <syntax>                (##core#declare (quote (foreign-declare 
"\n\ntypedef int
randmtzig_idx_type;\n\ntypedef signed char...
        <syntax>                (begin (##core#undefined))
        <syntax>                (##core#undefined)
        <syntax>                (foreign-parse "\n\ntypedef int
randmtzig_idx_type;\n\ntypedef signed char randmtzig_int8_t;\ntyped...
        <eval>          (append strs (quote ("\n")))
        <eval>          (every string? strs)
        <eval>          (##sys#cons (quote begin) (parse-easy-ffi 
(string-concatenate strs)))
        <eval>          (parse-easy-ffi (string-concatenate strs))
        <eval>          (string-concatenate strs)       <--
*** Shell command terminated with exit status 70:
/usr/local/bin/chicken random-mtzig.scm -output-file random-mtzig.c
-dynamic -feature chicken-compile-shared -quiet -feature
compiling-extension -optimize-level 1 -debug-level 2 -extend easyffi
-check-imports -emit-exports random-mtzig.exports
Error: shell invocation failed with non-zero return status
"/usr/local/bin/csc -feature compiling-extension -O -d2 -X easyffi -s
-o random...
70
address@hidden /tmp :