Mercurial > emacs
annotate test/cedet/tests/test.c @ 112214:40a246eebab9
* lisp/emacs-lisp/easymenu.el: Add :enable, and obey :label. Require CL.
(easy-menu-create-menu, easy-menu-convert-item-1):
Use :label rather than nil for labels. Use `case'.
Add :enable as alias for :active.
(easy-menu-binding): Obey :label.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 13 Jan 2011 21:12:43 -0500 |
parents | 89eccb374dec |
children | 376148b31b5e |
rev | line source |
---|---|
107698
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
1 /* test.c --- Semantic unit test for C. |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
2 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
3 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
4 2010 Free Software Foundation, Inc. |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
5 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
6 Author: Eric M. Ludlam <eric@siege-engine.com> |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
7 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
8 This file is part of GNU Emacs. |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
9 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
10 GNU Emacs is free software: you can redistribute it and/or modify |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
11 it under the terms of the GNU General Public License as published by |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
12 the Free Software Foundation, either version 3 of the License, or |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
13 (at your option) any later version. |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
14 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
15 GNU Emacs is distributed in the hope that it will be useful, |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
16 but WITHOUT ANY WARRANTY; without even the implied warranty of |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
18 GNU General Public License for more details. |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
19 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
20 You should have received a copy of the GNU General Public License |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
21 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
22 */ |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
23 |
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
24 /* Attempt to include as many aspects of the C language as possible. |
105267 | 25 */ |
107698
89eccb374dec
Update Semantic test copyrights, delete some test files (Bug#4656).
Chong Yidong <cyd@stupidchicken.com>
parents:
106537
diff
changeset
|
26 |
105267 | 27 /* types of include files */ |
28 #include "includeme1.h" | |
29 #include <includeme2.h> | |
30 #include <subdir/includeme3.h> | |
31 #include <includeme.notanhfile> | |
32 #include <stdlib.h> | |
33 #include <cmath> | |
34 | |
35 #if 0 | |
36 int dont_show_function() | |
37 { | |
38 } | |
39 #endif | |
40 | |
41 /* Global types */ | |
42 struct mystruct1 { | |
43 int slot11; | |
44 char slot12; | |
45 float slot13; | |
46 }; | |
47 | |
48 struct mystruct2 { | |
49 int slot21; | |
50 char slot22; | |
51 float slot23; | |
52 } var_of_type_mystruct2; | |
53 | |
54 struct { | |
55 int slot31; | |
56 char slot32; | |
57 float slot33; | |
58 } var_of_anonymous_struct; | |
59 | |
60 typedef struct mystruct1 typedef_of_mystruct1; | |
61 typedef struct mystruct1 *typedef_of_pointer_mystruct1; | |
62 typedef struct { int slot_a; } typedef_of_anonymous_struct; | |
63 typedef struct A { | |
64 } B; | |
65 | |
66 typedef struct mystruct1 td1, td2; | |
67 | |
68 union myunion1 { | |
69 int slot41; | |
70 char slot42; | |
71 float slot43; | |
72 }; | |
73 | |
74 union myunion2 { | |
75 int slot51; | |
76 char slot52; | |
77 float slot53; | |
78 } var_of_type_myunion2; | |
79 | |
80 struct { | |
81 int slot61; | |
82 char slot72; | |
83 float slot83; | |
84 } var_of_anonymous_union; | |
85 | |
86 typedef union myunion1 typedef_of_myunion1; | |
87 typedef union myunion1 *typedef_of_pointer_myunion1; | |
88 typedef union { int slot_a; } typedef_of_anonymous_union; | |
89 | |
90 enum myenum1 { enum11 = 1, enum12 }; | |
91 enum myenum2 { enum21, enum22 = 2 } var_of_type_myenum2; | |
92 enum { enum31, enum32 } var_of_anonymous_enum; | |
93 | |
94 typedef enum myenum1 typedef_of_myenum1; | |
95 typedef enum myenum1 *typedef_of_pointer_myenum1; | |
96 typedef enum { enum_a = 3, enum_b } typedef_of_anonymous_enum; | |
97 | |
98 typedef int typedef_of_int; | |
99 | |
100 /* Here are some simpler variable types */ | |
101 int var1; | |
102 int varbit1:1; | |
103 char var2; | |
104 float var3; | |
105 mystruct1 var3; | |
106 struct mystruct1 var4; | |
107 union myunion1 var5; | |
108 enum myenum1 var6; | |
109 | |
110 char *varp1; | |
111 char **varp2; | |
112 char varv1[1]; | |
113 char varv2[1][2]; | |
114 | |
115 char *varpa1 = "moose"; | |
116 struct mystruct2 vara2 = { 1, 'a', 0.0 }; | |
117 enum myenum1 vara3 = enum11; | |
118 int vara4 = (int)0.0; | |
119 int vara5 = funcall(); | |
120 | |
121 int mvar1, mvar2, mvar3; | |
122 char *mvarp1, *mvarp2, *mvarp3; | |
123 char *mvarpa1 = 'a', *mvarpa2 = 'b', *mvarpa3 = 'c'; | |
124 char mvaras1[10], mvaras2[12][13], *mvaras3 = 'd'; | |
125 | |
126 static register const unsigned int tmvar1; | |
127 | |
128 #define MACRO1 1 | |
129 #define MACRO2(foo) (1+foo) | |
130 | |
131 /* Here are some function prototypes */ | |
132 | |
133 /* This is legal, but I decided not to support inferred integer | |
134 * types on functions and variables. | |
135 */ | |
136 fun0(); | |
137 int funp1(); | |
138 char funp2(int arg11); | |
139 float funp3(char arg21, char arg22); | |
140 struct mystrct1 funp4(struct mystruct2 arg31, union myunion2 arg32); | |
141 enum myenum1 funp5(char *arg41, union myunion1 *arg42); | |
142 | |
143 char funpp1 __P(char argp1, struct mystruct2 argp2, char *arg4p); | |
144 | |
145 int fun1(); | |
146 | |
147 /* Here is a function pointer */ | |
148 int (*funcptr)(int a, int b); | |
149 | |
150 /* Function Definitions */ | |
151 | |
152 /* This is legal, but I decided not to support inferred integer | |
153 * types on functions and variables. | |
154 */ | |
155 fun0() | |
156 { | |
157 int sv = 0; | |
158 } | |
159 | |
160 int fun1 () | |
161 { | |
162 int sv = 1; | |
163 } | |
164 | |
165 int fun1p1 (void) | |
166 { | |
167 int sv = 1; | |
168 } | |
169 | |
170 char fun2(int arg_11) | |
171 { | |
172 char sv = 2; | |
173 } | |
174 | |
175 float fun3(char arg_21, char arg_22) | |
176 { | |
177 char sv = 3; | |
178 } | |
179 | |
180 struct mystrct1 fun4(struct mystruct2 arg31, union myunion2 arg32) | |
181 { | |
182 sv = 4; | |
183 } | |
184 | |
185 enum myenum1 fun5(char *arg41, union myunion1 *arg42) | |
186 { | |
187 sv = 5; | |
188 } | |
189 | |
190 /* Functions with K&R syntax. */ | |
191 struct mystrct1 funk1(arg_31, arg_32) | |
192 struct mystruct2 arg_31; | |
193 union myunion2 arg32; | |
194 { | |
195 sv = 4; | |
196 } | |
197 | |
198 enum myenum1 *funk2(arg_41, arg_42) | |
199 char *arg_41; | |
200 union myunion1 *arg_42; | |
201 { | |
202 sv = 5; | |
203 | |
204 if(foo) { | |
205 } | |
206 } | |
207 | |
208 int funk3(arg_51, arg_53) | |
209 int arg_51; | |
210 char arg_53; | |
211 { | |
212 char q = 'a'; | |
213 int sv = 6; | |
214 td1 ms1; | |
215 enum myenum1 testconst; | |
216 | |
217 /* Function argument analysis */ | |
218 funk3(ms1.slot11, arg_53 ); | |
219 sv = 7; | |
220 | |
221 /* Slot deref on assignee */ | |
222 ms1.slot11 = s; | |
223 | |
224 /* Enum/const completion */ | |
225 testconst = e; | |
226 | |
227 /* Bad var/slot and param */ | |
228 blah.notafunction(moose); | |
229 | |
230 /* Print something. */ | |
231 printf("Moose", ); | |
232 | |
233 tan(); | |
234 } | |
235 | |
236 int funk4_fixme(arg_61, arg_62) | |
237 int arg_61, arg_62; | |
238 { | |
239 | |
240 } | |
241 | |
242 /* End of C tests */ | |
105377 | 243 |
244 /* arch-tag: ac9c7740-05ad-4821-a0b4-5db4357750ae | |
245 (do not change this comment) */ |