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

Contents of /cparse/test2.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Wed Nov 24 20:29:32 2004 UTC (9 years, 5 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 clynbech 1.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