/[cparse]/cparse/test2.h
ViewVC logotype

Contents of /cparse/test2.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Wed Nov 24 20:29:32 2004 UTC (9 years, 4 months ago) by clynbech
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
* test1.h: New file.
* test2.h: New file.
* test3.h: New file.
* 00debug.lisp: New file.
* 01debug.lisp: New file.
* dir-test-ffi.lisp: New file.
* dir-test.c: New file.
* uffi-alien.lisp: New file.
* system.lisp: Removed.
1
2
3 struct foo {
4 int a;
5 //struct foo *b[100]; //yields an infinite loop somewhere in cparse
6 struct fooxx *b[100];
7 };
8
9 /***
10
11 CMUCL:
12
13 (alien:def-alien-type nil
14 (alien:struct foo
15 (a int)
16 (b (array (* (alien:struct foo)) 100))))
17
18 UFFI:
19
20 (uffi:def-struct foo
21 (a :int)
22 (b (:array :pointer-self 100))) ;this doesn't work anyway
23
24 UFFI NG:
25
26 (uffi:def-foreign-type nil
27 (:struct foo
28 (a :int)
29 (b (:array (* (:struct foo)) 100))))
30
31 */
32
33 struct c_struct {
34 short x, y;
35 char a, b;
36 int z;
37 struct c_structxx *n;
38 };
39
40 /***
41
42 CMUCL:
43
44 (alien:def-alien-type nil
45 (alien:struct c-struct
46 (x c-call:short)
47 (y c-call:short)
48 (a char)
49 (b char)
50 (z integer)
51 (n (* (alien:struct c-struct)))))
52
53 UFFI:
54
55 (uffi:def-struct c-struct
56 (x :short)
57 (y :short)
58 (a :char)
59 (b :char)
60 (z :int)
61 (n :pointer-self))
62
63 UFFI NG:
64
65 (uffi:def-struct c-struct
66 (x :short)
67 (y :short)
68 (a :char)
69 (b :char)
70 (z :int)
71 (n :pointer-self))
72 */

  ViewVC Help
Powered by ViewVC 1.1.5