- C2hs - Haskell.org

.deb packages and problem in compilation
by Marco Tulio Gontijo e Silva 16 Nov '05

16 Nov '05

Hello, I'm packaging c2hs for debian, and the 0.13.6 packages are in the mirror, if you could add this in the website. Another thing is that I'm having a problem in compiling c2hs 0.14.3: marcot@tonhao:~/desenvolvimento/debian/c2hs$ tar xzf c2hs-0.14.3.tar.gz marcot@tonhao:~/desenvolvimento/debian/c2hs$ cd c2hs-0.14.3/ marcot@tonhao:~/desenvolvimento/debian/c2hs/c2hs-0.14.3$ ./Setup.hs configure Configuring c2hs-0.14.3... configure: Using install prefix: /usr/local configure: Using compiler: /usr/bin/ghc configure: Compiler flavor: GHC configure: Compiler version: 6.4.1 configure: Using package tool: /usr/bin/ghc-pkg configure: Using haddock: /usr/bin/haddock configure: No happy found configure: No alex found configure: Using hsc2hs: /usr/bin/hsc2hs configure: No c2hs found configure: No cpphs found configure: No greencard found checking build system type... i686-pc-linux-gnu checking host system type... i686-pc-linux-gnu checking for gcc... gcc checking for C compiler default output file name... a.out checking whether the C compiler works... yes checking whether we are cross compiling... no checking for suffix of executables... checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ANSI C... none needed checking how to run the C preprocessor... gcc -E checking for egrep... /bin/egrep checking for sed... /bin/sed configure: creating ./config.status config.status: creating c2hs/toplevel/Version.hs config.status: creating c2hs/toplevel/C2HSConfig.hs config.status: creating c2hs/c2hs-inplace config.status: creating c2hs/c2hs config.status: creating postInst.sh config.status: creating c2hs.spec config.status: creating doc/c2hs/Makefile config.status: executing default commands marcot@tonhao:~/desenvolvimento/debian/c2hs/c2hs-0.14.3$ ./Setup.hs build Preprocessing executables for c2hs-0.14.3... Building c2hs-0.14.3... Chasing modules from: c2hs/toplevel/Main.hs Could not find module `CForeign': use -v to see a list of the files searched for (imported from c2hs/toplevel/C2HSConfig.hs) marcot@tonhao:~/desenvolvimento/debian/c2hs/c2hs-0.14.3$ Do you know what is the problem here? -- Abraços, marcot mailto:marcot@minaslivre.org jabber:marcott@jabber.org UIN:50599075 MSN:marcot@ufmg.br Telefone:33346720 Celular:91844179 Endereço:Rua Paula Cândido 257/201 Gutierrez 30430-260 Belo Horizonte-MG Brasil

2 3

Accessing an array inside a structure
by Volker Wysk 12 Nov '05

12 Nov '05

Hello There appears to be a bug. Accessing a member array of a C structure via a get hook, produces a pointer read off the array, instead of a pointer to the array: test.chs----------------------------------------- #c typedef struct { char str[10]; } t; t x = { "blah" }; #endc foo = {# get t.str #} ------------------------------------------------- Translates to: test.hs------------------------------------------ ... foo = (\ptr -> do {peekByteOff ptr 0 ::IO (Ptr CChar)}) ... ------------------------------------------------- Regards, V.W. -- public key fingerprint: 6A10 66F1 40A2 C441 BB55 0AA8 FAB1 4FC1 08BE 24EF

1 0

.deb packages and problem in compilation
by Marco Tulio Gontijo e Silva 09 Nov '05

09 Nov '05

Hello, I'm packaging c2hs for debian, and the 0.13.6 packages are in the mirror, if you could add this in the website. Another thing is that I'm having a problem in compiling c2hs 0.14.3: marcot@tonhao:~/desenvolvimento/debian/c2hs$ tar xzf c2hs-0.14.3.tar.gz marcot@tonhao:~/desenvolvimento/debian/c2hs$ cd c2hs-0.14.3/ marcot@tonhao:~/desenvolvimento/debian/c2hs/c2hs-0.14.3$ ./Setup.hs configure Configuring c2hs-0.14.3... configure: Using install prefix: /usr/local configure: Using compiler: /usr/bin/ghc configure: Compiler flavor: GHC configure: Compiler version: 6.4.1 configure: Using package tool: /usr/bin/ghc-pkg configure: Using haddock: /usr/bin/haddock configure: No happy found configure: No alex found configure: Using hsc2hs: /usr/bin/hsc2hs configure: No c2hs found configure: No cpphs found configure: No greencard found checking build system type... i686-pc-linux-gnu checking host system type... i686-pc-linux-gnu checking for gcc... gcc checking for C compiler default output file name... a.out checking whether the C compiler works... yes checking whether we are cross compiling... no checking for suffix of executables... checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ANSI C... none needed checking how to run the C preprocessor... gcc -E checking for egrep... /bin/egrep checking for sed... /bin/sed configure: creating ./config.status config.status: creating c2hs/toplevel/Version.hs config.status: creating c2hs/toplevel/C2HSConfig.hs config.status: creating c2hs/c2hs-inplace config.status: creating c2hs/c2hs config.status: creating postInst.sh config.status: creating c2hs.spec config.status: creating doc/c2hs/Makefile config.status: executing default commands marcot@tonhao:~/desenvolvimento/debian/c2hs/c2hs-0.14.3$ ./Setup.hs build Preprocessing executables for c2hs-0.14.3... Building c2hs-0.14.3... Chasing modules from: c2hs/toplevel/Main.hs Could not find module `CForeign': use -v to see a list of the files searched for (imported from c2hs/toplevel/C2HSConfig.hs) marcot@tonhao:~/desenvolvimento/debian/c2hs/c2hs-0.14.3$ Do you know what is the problem here? Please CC to me, I'm not on the list. -- Abraços, marcot mailto:marcot@minaslivre.org jabber:marcott@jabber.org UIN:50599075 MSN:marcot@ufmg.br Telefone:33346720 Celular:91844179 Endereço:Rua Paula Cândido 257/201 Gutierrez 30430-260 Belo Horizonte-MG Brasil

1 0

Possible bug
by Dominic Fox 18 Sep '05

18 Sep '05

Hi, I have had a problem compiling the following header file and .chs file; Duncan Coutts has suggested that it might be a bug. The header file is this: --- typedef void* clientBufferPtr; typedef int result; clientBufferPtr create_client_buffer(char* hostname, unsigned int port); void delete_client_buffer(clientBufferPtr buffer); result client_buffer_login(clientBufferPtr buffer, char* name, int red, int green, int blue, char* global_password, char* user_password); --- The .chs file is as follows: --- module ClientBuffer (createBuffer, deleteBuffer, login) where import Foreign import CForeign cIntConv = fromIntegral #include "client_buffer.h" newtype ClientBuffer = ClientBuffer (Ptr ()) clientBuffer (ClientBuffer a) = a {#fun create_client_buffer as createBuffer {`String', `Int'} -> `ClientBuffer' ClientBuffer #} {#fun delete_client_buffer as deleteBuffer {clientBuffer `ClientBuffer'} -> `()'#} {#fun client_buffer_login as login {clientBuffer `ClientBuffer', `String', `Int', `Int', `Int', `String', `String'} -> `Int' #} --- The generated .hs file looks like this: -- -- GENERATED by C->Haskell Compiler, version 0.14.3 Travelling Lightly, 09 Aug 2005 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "ClientBuffer.chs" #-}module ClientBuffer (createBuffer, deleteBuffer, login) where import Foreign import CForeign cIntConv = fromIntegral newtype ClientBuffer = ClientBuffer (Ptr ()) clientBuffer (ClientBuffer a) = a createBuffer :: String -> Int -> IO (ClientBuffer) createBuffer a1 a2 = withCString a1 $ \a1' -> let {a2' = cIntConv a2} in createBuffer'_ a1' a2' >>= \res -> let {res' = ClientBuffer res} in return (res') {-# LINE 13 "ClientBuffer.chs" #-} deleteBuffer :: ClientBuffer -> IO () deleteBuffer a1 = let {a1' = clientBuffer a1} in deleteBuffer'_ a1' >>= \res -> return () {-# LINE 15 "ClientBuffer.chs" #-} login :: ClientBuffer -> String -> Int -> Int -> Int -> String -> String -> IO (Int) login a1 a2 a3 a4 a5 a6 a7 = let {a1' = clientBuffer a1} in withCString a2 $ \a2' -> let {a3' = cIntConv a3} in let {a4' = cIntConv a4} in let {a5' = cIntConv a5} in withCString a6 $ \a6' -> withCString a7 $ \a7' -> login'_ a1' a2' a3' a4' a5' a6' a7' >>= \res -> let {res' = cIntConv res} in return (res') {-# LINE 12 "ClientBuffer.chs" #-} foreign import ccall safe "ClientBuffer.h create_client_buffer" createBuffer'_ :: ((Ptr CChar) -> (CUInt -> (IO (Ptr ())))) foreign import ccall safe "ClientBuffer.h delete_client_buffer" deleteBuffer'_ :: ((Ptr ()) -> (IO ())) foreign import ccall safe "ClientBuffer.h client_buffer_login" login'_ :: ((Ptr ()) -> ((Ptr CChar) -> (CInt -> (CInt -> (CInt -> ((Ptr CChar) -> ((Ptr CChar) -> (IO CInt)))))))) --- And the error I get from ghc (6.4) when it tries to type-check this file is this: ClientBuffer.chs:25:18: Couldn't match `CInt' against `CUInt' Expected type: CInt Inferred type: CUInt In the third argument of `login'_', namely `a3'' In the first argument of `(>>=)', namely `login'_ a1' a2' a3' a4' a5' a6' a7'' Is this a problem with c2hs, or am I doing something wrong? thanks, Dominic

1 0

enum define hooks
by Gour 08 Sep '05

08 Sep '05

Hi! Is there a plan to implement 'enum define hooks' described in C->Haskell paper and/or what is to the recommended way to bind such things in the present implementation? Sincerely, Gour -- Registered Linux User | #278493 GPG Public Key | 8C44EDCD

1 0

Re: c2hs feature request: {# alignof #} hook
by Manuel M T Chakravarty 21 Aug '05

21 Aug '05

Duncan Coutts: > Writing Storable instances would be more convenient if c2hs supported an > {# alignof #} hook, just like it currently supports the {# sizeof #} > hook. > > I think the syntax would be exactly the same, ie it'd just take a C type > name. Good idea. Manuel

1 0

Gtk+cairo working :-)
by Paolo Martini 18 Aug '05

18 Aug '05

-----BEGIN PGP SIGNED MESSAGE----- Hash: RIPEMD160 Hello, I'm proud to announce that we got Gtk integration initially working :-) I don't know if you follow the site/blog[1] but there we go: http://haskell.org/gtk2hs/archives/2005/08/17/code/#comment-35 Thanks much people, you guys rock. Cheers, Paolo. P.S. the cairobindings darcs repo is now ``outdated'' by the gtk2hs one I'm setting up as soon as an issue with Gtk2Hs's version of c2hs will be resolved. I'll blog-post about that. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (GNU/Linux) iD8DBQFDBICPotUQQOWB3WQRA8SlAJ0d4mecBKH5JJH2ch6IT1/4fExK0ACeK4E+ WW6WDY1kk3qeqcT0fgsPh38= =4oRp -----END PGP SIGNATURE-----

1 1

Re: [C2hs] Re: [Gtk2hs-devel] hsffig & c2hs
by Manuel M T Chakravarty 15 Aug '05

15 Aug '05

Duncan Coutts: > On Sun, 2005-08-07 at 22:06 +1000, Manuel M T Chakravarty wrote: > > > * There will be a command line option that permits to override that > > choice and to explicitly specify the platform for which bindings are > > generated. C2hs will have a database of platforms it knows about and > > all we need to do is to ensure that Visual-C gets an entry in that > > database. > > That sounds like a sensible approach. The latest release already has that database in "C2HSConfig.hs.in". > > All I need is a for somebody to compile and run the attached C functions > > in Visual C and let me know the results. > > I'll try and give that a go some time. (And then check to see if it > passes the Gtk+ ABI init check) Great - thanks! Manuel

1 0

Questions
by Paolo Martini 15 Aug '05

15 Aug '05

Hello, First of all, thanks much for the good tool you're providing :-) I have some questions. Why doesn't {#enum ..#} hooks define the default marshallers to be cFromEnum/cToEnum? Furthermore, is it possible to define the marshallers functions for a give type? (IMO it would make the .chs files more readable) If not, would it be possible to extend the syntax, maybe adding "... inmarsh outmarsh#}" at the end of the hooks? For example I'm using "id" as the marshaller for {#pointer ..#} hooks, (in {#fun name {id `pointer'} -> `pointer' id#}) is it correct, or am I missing something? I can't find an example of a C struct type which isn't defined as a pointer. How should one go to bind structures like this? typedef struct { unsigned long index; double x; double y; } cairo_glyph_t; And then, how to pass them to functions getting a *cairo_glyph_t? Moreover, what if they are getting an array of them? (e.g. void cairo_show_glyphs (cairo_t *cr, cairo_glyph_t *glyphs, int num_glyphs); Thank you, Paolo. --

2 1

c2hs-config
by Paolo Martini 14 Aug '05

14 Aug '05

There seem to be no c2hs-config in the source package, is the documentation[1] outdated, and it isn't needed anymore for some reason, or its missing have some other meaning? Also, I can't find how to register the c2hs package into GHC, any clue? Thank you, Paolo

2 1