September 2006 - C2hs

cant figure out how to use c2hs, what am i doing wrong?
by Anatoly Yakovenko 10 Oct '06

10 Oct '06

I have a simple fftw wrapper which c2hs builds into a .hs file, but when i try to use it i get an error: $ ghc -v --make -fffi Main.hs Glasgow Haskell Compiler, Version 6.4.2, for Haskell 98, compiled by GHC version 6.4.2 Using package config file: /usr/lib/ghc-6.4.2/package.conf Hsc static flags: -static *** Chasing dependencies: Chasing modules from: Main.hs *** Deleting temp files Deleting: Fftw.chs:2:0: parse error on input `import' here is my Fftw.chs: module Fftw (fftwNew, fftwDestroy, fftwExecute) import C2HS #include "fftw3.h" data Fftw = Fftw Integer CPtrDiff CPtrDiff CPtrDiff fftwNew::IO Integer -> Fftw fftwNew size = do input <- {#call unsafe fftw_malloc#} 8*size output <- {#call unsafe fftw_malloc#} 8*size plan <- {#call unsafe fftw_plan_r2r_1d#} size input output 0 0 return !$ Fftw size input output plan fftwSize::Fftw -> Integer fftwSize (Fftw size _ _ _ ) = size fftwDestroy::Fftw -> IO () fftwDestroy (Fftw _ input output plan) = do {#call unsafe fftw_free#} input {#call unsafe fftw_free#} output {#call unsafe fftw_destroy_plan#} plan fftwExecute::IO Fftw [Double] -> [Double] fftwExecute (Fftw size input output plan) inp = do pokeArray input (take size inp) {#call unsafe fftw_execute#} plan return !$ peekArray size output and my Main.hs: module Main where import Fftw main :: IO () main = do fft <- fftwNew 128 putStrLn $ show $ "done"

2 1

c2hs repo problems on Windows
by Ganesh Sittampalam 23 Sep '06

23 Sep '06

Hi, At some point in the history of the c2hs repo, the files hipar/base/todo and hipar/base/TODO both exist. This is not good for people who want to get the repo on Windows :-) After playing around a bit, I have made a version of the repo that can be got fine from Windows. It doesn't involve modifying any existing patches, just adding a couple of new ones and reordering them in the repo so that the two files todo and TODO never exist simultaneously. My fixed up repo is at http://urchin.earth.li/darcs/ganesh/c2hs - I believe that you can sort out the main c2hs repo by getting a fresh copy from my repo, pulling in all the outstanding changes from the original c2hs repo, and then swapping the new one into place. A more detailed explanation: The current repo starts off with hipar/base/todo. At some point later, hipar/base/TODO is introduced. Later still, in the patch "rearranging darcs repo", hipar/base is renamed to base and the new base/todo is deleted. I wrote a patch that renames hipar/base/todo to hipar/base/todo-lowercase. This solves the name conflict for Windows, but annoyingly it conflicts with the delete of base/todo later on, so another patch is needed to resolve this conflict. There's also a final patch at the end to actually delete the renamed todo-lowercase file, because I got confused when resolving the conflict and didn't do it then, and I only realised after the person I was helping on #darcs had pulled from me. So the sequence of patches in the modified repo is: - Original import - Rename hipar/base/todo to hipar/base/todo-lowercase - "rearranging darcs repo" and all its dependencies - Resolve conflict between rename of todo and delete of todo - Rest of the patches - Actually delete base/todo-lowercase Cheers, Ganesh

1 0

patch applied (c2hs): Fix warning with newer versions of autoconf.
by chak＠cse.unsw.edu.au 14 Sep '06

14 Sep '06

Wed Sep 13 05:28:20 PDT 2006 Jelmer Vernooij <jelmer(a)samba.org> * Fix warning with newer versions of autoconf. M ./doc/c2hs/Makefile.in +1

1 0

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