- C2hs - Haskell.org

sizeof hook calculates the wrong size
by Volker Wysk 24 May '06

24 May '06

Hello The sizeof hook calculates the size wrong in this example: ----------------------------------------------------------------- main = putStrLn (show {# sizeof loop_info64_t #}) #c #include <linux/loop.h> typedef struct loop_info64 loop_info64_t; #endc ----------------------------------------------------------------- Translated to: ----------------------------------------------------------------- ... {-# LINE 1 "bug.chs" #-}main = putStrLn (show 72) ----------------------------------------------------------------- The structure is much larger. loop_info64 is defined in /usr/include/linux/loop.h like this: ----------------------------------------------------------------- struct loop_info64 { __u64 lo_device; /* ioctl r/o */ __u64 lo_inode; /* ioctl r/o */ __u64 lo_rdevice; /* ioctl r/o */ __u64 lo_offset; __u64 lo_sizelimit;/* bytes, 0 == max available */ __u32 lo_number; /* ioctl r/o */ __u32 lo_encrypt_type; __u32 lo_encrypt_key_size; /* ioctl w/o */ __u32 lo_flags; /* ioctl r/o */ __u8 lo_file_name[LO_NAME_SIZE]; __u8 lo_crypt_name[LO_NAME_SIZE]; __u8 lo_encrypt_key[LO_KEY_SIZE]; /* ioctl w/o */ __u64 lo_init[2]; }; ----------------------------------------------------------------- It looks like the the arrays are mistaken for pointers. There's another small bug. If you reorder main and the C block in the example above, such that "#c" is the first line, then you get a parse error. -- public key fingerprint: 6A10 66F1 40A2 C441 BB55 0AA8 FAB1 4FC1 08BE 24EF

2 1

patch applied (c2hs): Fix typo
by chak＠cse.unsw.edu.au 24 May '06

24 May '06

Tue Feb 7 16:47:33 PST 2006 Jelmer Vernooij <jelmer(a)samba.org> * Fix typo M ./TODO -1 +1

1 0

patch applied (c2hs): Use PreCST for CParser to avoid unnecessary module deps
by Duncan Coutts 23 May '06

23 May '06

Tue May 23 07:24:34 PDT 2006 Duncan Coutts <duncan.coutts(a)worc.ox.ac.uk> * Use PreCST for CParser to avoid unnecessary module deps M ./c2hs/c/CParser.y -2 +2

1 0

patch applied (c2hs): Make the C parser test prog build again.
by Duncan Coutts 23 May '06

23 May '06

Tue May 23 06:58:22 PDT 2006 Duncan Coutts <duncan.coutts(a)worc.ox.ac.uk> * Make the C parser test prog build again. This program is useful for reproducing C parser errors for when users send in their .i files. Just run: ./parse foo.i Build using: ghc --make Main.hs -o parse ../i -i../../../base/general -i../../../base/admin -i../../../base/errors -i../../../base/state -i../../../base/syms -i../../state M ./c2hs/c/tests/Main.hs -9 +9

1 0

Binding to Libdb, FunPtrs
by Udo Stenzel 21 May '06

21 May '06

Hello, I'd like to use c2hs to create a binding for Sleepy Cat's LibDB. However, some difficulties crop up: - variadic functions. I realize I can't call them anyway, and I don't need to (they are just for primitive error reporting). But there are pointers to variadic functions in some structures, and I need c2hs to parse them and correctly calculate offsets. - lots of FunPtrs. The whole API is defined as structures with FunPtrs inside. c2hs will happily create get hooks for them, but won't generate the foreign import "dynamic" declarations. - defines. Am I right in assuming that c2hs does not recognize #define'd constant and so cannot reflect them in Haskell? I'm willing to dive into the code and fix this, I just want to make sure I don't (clumsily) duplicate any effort. As for the FunPtrs inside structs, I'm thinking of a new hook that combines a get hook and a fun (or call) hook. Does anyone have a better idea? Regards, Udo. -- Manchmal stehe ich nachts auf und installier's mir einfach... -- H0arry @ IRC

3 5

patch applied (c2hs): change handling of marshallers for dynamic function hooks
by chak＠cse.unsw.edu.au 21 May '06

21 May '06

Mon May 15 07:26:39 PDT 2006 Udo Stenzel <u.stenzel(a)web.de> * change handling of marshallers for dynamic function hooks M ./c2hs/gen/GenBind.hs -16 +30

1 0

patch applied (c2hs): minor beautification
by chak＠cse.unsw.edu.au 21 May '06

21 May '06

Sun Apr 30 14:54:44 PDT 2006 Udo Stenzel <u.stenzel(a)web.de> * minor beautification M ./c2hs/chs/CHS.hs -2 +4 M ./c2hs/gen/GenBind.hs -4 +10

1 0

patch applied (c2hs): support fun hooks for FunPtrs inside structs
by chak＠cse.unsw.edu.au 21 May '06

21 May '06

Sat Apr 29 16:59:56 PDT 2006 Udo Stenzel <u.stenzel(a)web.de> * support fun hooks for FunPtrs inside structs This is a bit hackish at times, as I cut-and-paste-coded a bit. Though pending cleanup, it seems to work. M ./c2hs/gen/GenBind.hs -7 +46

1 0

patch applied (c2hs): improve translation of apath to identifier
by chak＠cse.unsw.edu.au 21 May '06

21 May '06

Sat Apr 29 16:59:00 PDT 2006 Udo Stenzel <u.stenzel(a)web.de> * improve translation of apath to identifier M ./c2hs/chs/CHS.hs -6 +9

1 0

patch applied (c2hs): allow call hooks for FunPtrs inside structures
by chak＠cse.unsw.edu.au 21 May '06

21 May '06

Sat Apr 29 08:50:23 PDT 2006 Udo Stenzel <u.stenzel(a)web.de> * allow call hooks for FunPtrs inside structures M ./c2hs/chs/CHS.hs -15 +40 M ./c2hs/gen/GenBind.hs -4 +69

1 0