- C2hs - Haskell.org

darcs patch: Fix warning with newer versions of autoconf.
by Jelmer Vernooij 14 Sep '06

14 Sep '06

Wed Sep 13 12:28:20 UTC 2006 Jelmer Vernooij <jelmer(a)samba.org> * Fix warning with newer versions of autoconf.

2 1

Matching defined types (lookupDftMarshIn "CH" [DefinedET gcry_cipher_hd_t h; "CH"])
by Einar Karttunen 12 Sep '06

12 Sep '06

Hello I have a library that defines handles which are pointers as something like typedef void* ch_t; Wrapping with C2HS I can do: {#pointer ch_t as CH #} But when I try to use it like: {#fun ch_close {`CH'} -> `()' #} C2HS complains: >>> Missing "in" marshaller! There is no default marshaller for this combination of Haskell and C type: Haskell type: CH C type : (CH) When looking at the internals it comes to a call like: lookupDftMarshIn "CH" [DefinedET ch_t h; "CH"] Why don't they match and what should be changed to make things work? - Einar Karttunen

2 1

A new kind of output marshallers *- (patch attached)
by Einar Karttunen 12 Sep '06

12 Sep '06

Hello When wrapping libraries that return error codes from functions a monadic output marshaller that does not return a value is very useful. This implements *- output marshallers that take the value and consume it, but don't return a result. This is used like: foo_error_t foo_something(random, arguments); type Err = {#type foo_error_t#} {#fun {`Foo', `Bar'} -> `()' handleError*- #} handleError :: Err -> IO () handleError ... - Einar Karttunen

2 1

patch applied (c2hs): Support for *- out marshallers
by chak＠cse.unsw.edu.au 12 Sep '06

12 Sep '06

Sat Sep 2 06:21:22 PDT 2006 Einar Karttunen <ekarttun(a)cs.helsinki.fi> * Support for *- out marshallers Implement *- out marshallers that are a monadic action but their return values are ignored. This is very useful for converting error codes into exceptions. M ./c2hs/chs/CHS.hs -4 +8 M ./c2hs/gen/GenBind.hs -7 +11 M ./doc/c2hs/c2hs.sgml -2 +6

1 0

patch applied (c2hs): Switch to new Data.Set API as required by GHC 6.6
by Duncan Coutts 12 Sep '06

12 Sep '06

Sat Sep 2 04:07:58 PDT 2006 Einar Karttunen <ekarttun(a)cs.helsinki.fi> * Switch to new Data.Set API as required by GHC 6.6 M ./c2hs/c/CLexer.x -4 +4 M ./c2hs/c/CParser.y -1

1 0

GHC 6.6 support patch
by Einar Karttunen 02 Sep '06

02 Sep '06

Hello This switches to the new Set API. GHC 6.2 only supports the old one, 6.4 both and 6.6 only the new one. - Einar Karttunen

1 0

"Structs" test fails on ppc
by Lennart Kolmodin 29 Aug '06

29 Aug '06

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, Got a bug report as we tried to mark c2hs stable in Gentoo Linux. c2hs is failing one of the tests on ppc: root# pwd /var/tmp/portage/c2hs-0.14.5/work/c2hs-0.14.5/c2hs/tests root# make ... various tests passing .... - ---=== Output for `structs': structs: smallInt /= -1: Panic! make: *** [structs.run] Error 1 As reported by Stephanie (Wormo) on http://bugs.gentoo.org/show_bug.cgi?id=144678#c9 wormo(a)gentoo.org Posted the bug here since Trac seems to be a bit... well.. spammed. Cheers, Lennart Kolmodin -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (GNU/Linux) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFE9Hi14txYG4KUCuERAhGNAJ9orKUN9nNJmwHtkUgsz0UM6urywACgmeQN J/xzfmptqg2xmoK8ephdAL8= =zdDK -----END PGP SIGNATURE-----

1 0

Re: [C2hs] Marshal Haskell list into monolithic arrays
by zhu Jun 17 Aug '06

17 Aug '06

Hi Udo and Duncan, Yes, I made a mistake in C syntax. Now, I call the function in Haskell like this: ------------------------- lowPassFilter :: [CFloat] -> CFloat lowPassFilter fs = (unsafePerformIO (lowPassFilterWrap fs)) where lowPassFilterWrap :: [CFloat] -> IO CFloat lowPassFilterWrap fs = do mfs <- newArray fs fsP2 <- malloc r <- f_lowPassFilter mfs fsP2 returnF <- peek fsP2 return returnF foreign import ccall "static fmr.h lowPassFilter" f_lowPassFilter :: Ptr (CFloat) -> Ptr (CFloat) -> IO (()) --------------------------- and the C function is defined as: //////////////////////// void lowPassFilter(float *buff, float *sum) { // Work part for (i = 0; i < NUM_TAPS; i++) { printf("buff %d = %f \n", i, *(buff++)); *sum += *(buff++) * coeff[i]; } } //////////////////////// It works well! Thank you so much! Best wishes, Yours, Jun >From: Udo Stenzel <u.stenzel(a)web.de> >To: zhu Jun <lilozhu(a)hotmail.com> >Subject: Re: [C2hs] Marshal Haskell list into monolithic arrays >Date: Thu, 17 Aug 2006 17:17:21 +0200 > >zhu Jun wrote: > > There is a 'newArray' operation in MarshallArray to marshal Haskell list, > > > > The C function looks like: > > //////////////////// > > void lowPassFilter(float *fs[10], float *sum) > >This function doesn't take (a pointer to) an array of floats, but (a >pointer to) an array of pointers to floats, which I doubt was your >intention. You need help programming in C, not help using C2HS. Try a >book or ask in news:comp.lang.c > > >Udo. > ><< signature.asc >>

2 2

Marshal Haskell list into monolithic arrays
by zhu Jun 17 Aug '06

17 Aug '06

Hi all, There is a 'newArray' operation in MarshallArray to marshal Haskell list, with the definination of 'newArray :: Storable a => [a] -> IO (Ptr a)'. However, when I pass the 'Ptr a' to a C function, only the the first element of the list is available in C. Could anyone give some hints? The C function looks like: //////////////////// void lowPassFilter(float *fs[10], float *sum) { // Only *fs[0] is available here, why? } ////////////// with the import call in Haskell like this: foreign import ccall safe "lowPassFilter" lowPassFilter :: Ptr (CFloat) -> Ptr (CFloat) -> IO (()) Should I use ' lowPassFilter :: Ptr ([CFloat]) -> Ptr (CFloat) -> IO (())', and define 'float fs[10]' to be Storable in Haskell? Best wishes, Yours, Jun Direct: +46 8 790 4150 Fax: +46 8 751 1793 Post Address: KTH/IMIT/ LECS, Electrum 229, SE-164 40 Kista, Stockholm, Sweden Visiting address: Forum-Building, Isafjordsgatan 39, 8th floor, elevator C

2 1

No automatic support for marshaling of structures?
by zhu Jun 04 Aug '06

04 Aug '06

Hi All, When I was trying to marshal a C structure in Haskell, I met such error: "Illegal structure or union type! There is no automatic support for marshaling of structures and unions". However, if I try to marshal the pointer to a structure, it works well. Could anyone give me any hints? Thank you! The structure I define in C is: ------------- typedef point{ int x,y; }; -------------- And the marshaling code in C2HS is: -------------- newtype Point = Point {#type point#} -------------- Best wishes, Jun Direct: +46 8 790 4150 Fax: +46 8 751 1793 Post Address: KTH/IMIT/ LECS, Electrum 229, SE-164 40 Kista, Sweden Visiting address: Forum-Building, Isafjordsgatan 39, 8th floor, elevator C

2 1