Mercurial > octave
annotate src/genprops.awk @ 7844:3d60445d3638
Add new double_radio_property class for alpha values.
author | Michael Goffioul <michael.goffioul@gmail.com> |
---|---|
date | Tue, 26 Feb 2008 22:06:47 +0100 |
parents | 4fb2db9c87dd |
children | 6bb2bbc2bf45 |
rev | line source |
---|---|
7019 | 1 ## Copyright (C) 2007 John W. Eaton |
2 ## | |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by the | |
7 ## Free Software Foundation; either version 3 of the License, or (at | |
8 ## your option) any later version. | |
9 ## | |
10 ## Octave is distributed in the hope that it will be useful, but WITHOUT | |
11 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
12 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
13 ## for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
16 ## along with Octave; see the file COPYING. If not, see | |
17 ## <http://www.gnu.org/licenses/>. | |
18 ## | |
6874 | 19 ## This script is used to generate the graphics.h file from graphics.h.in. |
20 ## | |
21 ## Lines between the BEGIN_PROPERTIES and END_PROPERTIES markers have | |
22 ## one of the following formats: | |
23 ## | |
24 ## TYPE NAME | |
25 ## TYPE NAME QUALIFIERS | |
26 ## mutable TYPE NAME | |
27 ## mutable TYPE NAME QUALIFIERS | |
28 ## | |
29 ## For each property, we generate a declaration for the property. | |
30 ## | |
31 ## If QUALIFIERS is omitted, we generate the following functions directly | |
32 ## in the class declaration: | |
33 ## | |
6875 | 34 ## TYPE |
35 ## get_NAME (void) const | |
36 ## { | |
37 ## return NAME; | |
38 ## } | |
39 ## | |
40 ## void | |
41 ## set_NAME (const TYPE& val) | |
42 ## { | |
43 ## if (! error_state) | |
44 ## NAME = val; | |
45 ## } | |
46 ## | |
47 ## void | |
48 ## set_NAME (const octave_value& val) | |
49 ## { | |
50 ## set_NAME (TYPE (val)); | |
51 ## } | |
6874 | 52 ## |
53 ## If present, the QUALIFIERS string may include any of the characters | |
7379 | 54 ## g, G, m, s, S, o, O, h, which have the following meanings: |
6874 | 55 ## |
56 ## g: There is a custom inline definition for the get function, | |
57 ## so we don't emit one. | |
58 ## | |
59 ## G: There is a custom extern definition for the get function, | |
60 ## so we emit only the declaration. | |
61 ## | |
62 ## s: There is a custom inline definition for the type-specific set | |
63 ## function, so we don't emit one. | |
64 ## | |
65 ## S: There is a custom extern definition for the type-specific set | |
66 ## function, so we emit only the declaration. | |
67 ## | |
68 ## o: There is a custom inline definition for the octave_value version | |
69 ## of the set function, so we don't emit one. | |
70 ## | |
71 ## O: There is a custom extern definition for the octave_value version | |
72 ## of the set function, so we emit only the declaration. | |
73 ## | |
6904 | 74 ## a: The octave_value version of the set function will use assignment: |
75 ## | |
76 ## void | |
77 ## set_NAME (const octave_value& val) | |
78 ## { | |
79 ## TYPE tmp (NAME); | |
80 ## tmp = val; | |
81 ## set_NAME (tmp); | |
82 ## } | |
83 ## | |
84 ## This is useful for things like the radio_value classes which | |
85 ## use an overloaded assignment operator of the form | |
86 ## | |
87 ## radio_property& operator = (const octave_value& val); | |
88 ## | |
89 ## that preserves the list of possible values, which is different | |
90 ## from what would happen if we simply used the | |
91 ## | |
92 ## TYPE (const octave_value&) | |
93 ## | |
94 ## constructor, which creates a new radio_property and so cannot | |
95 ## preserve the old list of possible values. | |
96 ## | |
7214 | 97 ## l: Add the line |
98 ## | |
99 ## update_axis_limits ("NAME"); | |
100 ## | |
101 ## to the type-specific set function. | |
102 ## | |
6874 | 103 ## m: Add the line |
104 ## | |
105 ## set_NAMEmode ("manual"); | |
106 ## | |
107 ## to the type-specific set function. | |
108 ## | |
7379 | 109 ## h: Make the property hidden |
110 ## | |
7427 | 111 ## r: Make the property read-only. A read-only property is not |
112 ## settable from the global set (caseless_str, octave_value) | |
113 ## method, but still has set_X accessor. | |
114 ## | |
115 ## u: The property has an updater method. This effectively add | |
116 ## the line | |
117 ## | |
118 ## update_NAME (); | |
119 ## | |
120 ## to the type-specific set function. This line is added before | |
121 ## any other update call (like those added by the 'l' or 'm' | |
122 ## modifiers. | |
123 ## | |
6874 | 124 ## The 'o' and 'O' qualifiers are only useful when the the property type |
125 ## is something other than octave_value. | |
126 | |
7363 | 127 ## simple accessor |
128 | |
129 function emit_get_accessor (i, rtype, faccess) | |
130 { | |
131 printf (" %s get_%s (void) const", rtype, name[i]); | |
132 | |
133 if (emit_get[i] == "definition") | |
134 printf (" { return %s.%s (); }\n", name[i], faccess); | |
135 else | |
136 printf (";\n"); | |
137 } | |
138 | |
139 ## bool_property | |
140 | |
141 function emit_get_bool (i) | |
142 { | |
143 printf (" bool is_%s (void) const", name[i]); | |
144 | |
145 if (emit_get[i] == "definition") | |
146 printf (" { return %s.is_on (); }\n", name[i]); | |
147 else | |
148 printf (";\n"); | |
149 | |
150 emit_get_accessor(i, "std::string", "current_value"); | |
151 } | |
152 | |
153 ## radio_property | |
154 | |
155 function emit_get_radio (i) | |
156 { | |
157 printf (" bool %s_is (const std::string& v) const", name[i]); | |
158 | |
159 if (emit_get[i] == "definition") | |
160 printf (" { return %s.is (v); }\n", name[i]); | |
161 else | |
162 printf (";\n"); | |
163 | |
164 emit_get_accessor(i, "std::string", "current_value"); | |
165 } | |
166 | |
167 ## color_property | |
168 | |
169 function emit_get_color (i) | |
170 { | |
171 printf (" bool %s_is_rgb (void) const { return %s.is_rgb (); }\n", name[i], name[i]); | |
172 | |
173 printf (" bool %s_is (const std::string& v) const", name[i]); | |
174 | |
175 if (emit_get[i] == "definition") | |
176 printf (" { return %s.is (v); }\n", name[i]); | |
177 else | |
178 printf (";\n"); | |
179 | |
180 printf (" Matrix get_%s_rgb (void) const", name[i]); | |
181 | |
182 if (emit_get[i] == "definition") | |
183 printf (" { return (%s.is_rgb () ? %s.rgb () : Matrix ()); }\n", name[i], name[i]); | |
184 else | |
185 printf (";\n"); | |
186 | |
187 emit_get_accessor(i, "octave_value", "get"); | |
188 } | |
189 | |
7844
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
190 ## double_radio_property |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
191 |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
192 function emit_get_double_radio (i) |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
193 { |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
194 printf (" bool %s_is_double (void) const { return %s.is_double (); }\n", name[i], name[i]); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
195 |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
196 printf (" bool %s_is (const std::string& v) const", name[i]); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
197 |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
198 if (emit_get[i] == "definition") |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
199 printf (" { return %s.is (v); }\n", name[i]); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
200 else |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
201 printf (";\n"); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
202 |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
203 printf (" double get_%s_double (void) const", name[i]); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
204 |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
205 if (emit_get[i] == "definition") |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
206 printf (" { return (%s.is_double () ? %s.double_value () : 0); }\n", name[i], name[i]); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
207 else |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
208 printf (";\n"); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
209 |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
210 emit_get_accessor(i, "octave_value", "get"); |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
211 } |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
212 |
7363 | 213 ## callback_property |
214 | |
215 function emit_get_callback (i) | |
216 { | |
7367 | 217 printf (" void execute_%s (const octave_value& data = octave_value ()) const", name[i]); |
7363 | 218 |
219 if (emit_get[i] == "definition") | |
7367 | 220 printf (" { %s.execute (data); }\n", name[i]); |
7363 | 221 else |
222 printf (";\n"); | |
223 | |
224 emit_get_accessor(i, "octave_value", "get"); | |
225 } | |
226 | |
227 ## data_property | |
228 | |
229 function emit_get_data (i) | |
230 { | |
231 emit_get_accessor(i, "NDArray", "array_value"); | |
232 | |
233 printf (" data_property get_%s_property (void) const { return %s; }\n", | |
234 name[i], name[i]); | |
235 } | |
236 | |
7836
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
237 ## array_property |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
238 |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
239 function emit_get_array (i) |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
240 { |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
241 emit_get_accessor(i, "octave_value", "get"); |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
242 |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
243 printf (" array_property get_%s_property (void) const { return %s; }\n", |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
244 name[i], name[i]); |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
245 } |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
246 |
7363 | 247 ## common section |
248 | |
249 function emit_common_declarations () | |
250 { | |
251 printf ("public:\n"); | |
252 printf (" properties (const graphics_handle& mh, const graphics_handle& p);\n\n"); | |
253 printf (" ~properties (void) { }\n\n"); | |
7406 | 254 printf (" void set (const caseless_str& pname, const octave_value& val);\n\n"); |
7379 | 255 printf (" octave_value get (bool all = false) const;\n\n"); |
7406 | 256 printf (" octave_value get (const caseless_str& pname) const;\n\n"); |
7363 | 257 printf (" std::string graphics_object_name (void) const { return go_name; }\n\n"); |
258 printf (" static property_list::pval_map_type factory_defaults (void);\n\n"); | |
259 printf ("private:\n static std::string go_name;\n\n"); | |
260 } | |
261 | |
7225 | 262 function emit_declarations () |
6874 | 263 { |
7363 | 264 if (class_name) |
265 emit_common_declarations(); | |
266 | |
6874 | 267 if (idx > 0) |
7363 | 268 print "private:\n"; |
6874 | 269 |
270 for (i = 1; i <= idx; i++) | |
7363 | 271 printf (" %s%s %s;\n", mutable[i] ? "mutable " : "", type[i], name[i]); |
6874 | 272 |
273 if (idx > 0) | |
7363 | 274 print "\npublic:\n"; |
6874 | 275 |
276 for (i = 1; i <= idx; i++) | |
277 { | |
7363 | 278 if (emit_get[i]) |
279 { | |
7836
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
280 if (type[i] == "any_property") |
7363 | 281 emit_get_accessor(i, "octave_value", "get"); |
282 else if (type[i] == "handle_property") | |
283 emit_get_accessor(i, "graphics_handle", "handle_value"); | |
284 else if (type[i] == "string_property") | |
285 emit_get_accessor(i, "std::string", "string_value"); | |
286 else if (type[i] == "double_property") | |
287 emit_get_accessor(i, "double", "double_value"); | |
7844
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
288 else if (type[i] == "double_radio_property") |
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
289 emit_get_double_radio(i); |
7363 | 290 else if (type[i] == "data_property") |
291 emit_get_data(i); | |
7836
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
292 else if (type[i] == "array_property" \ |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
293 || type[i] == "row_vector_property") |
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
294 emit_get_array(i); |
7363 | 295 else if (type[i] == "bool_property") |
296 emit_get_bool(i); | |
297 else if (type[i] == "radio_property") | |
298 emit_get_radio(i); | |
299 else if (type[i] == "color_property") | |
300 emit_get_color(i); | |
301 else if (type[i] == "callback_property") | |
302 emit_get_callback(i); | |
303 else | |
6874 | 304 { |
7363 | 305 printf (" %s get_%s (void) const", type[i], name[i]); |
6874 | 306 |
7363 | 307 if (emit_get[i] == "definition") |
308 printf (" { return %s; }\n", name[i]); | |
309 else | |
310 printf (";\n"); | |
6874 | 311 } |
7363 | 312 printf ("\n"); |
313 } | |
6874 | 314 } |
315 | |
316 if (idx > 0) | |
7363 | 317 printf ("\n"); |
6874 | 318 |
319 for (i = 1; i <= idx; i++) | |
320 { | |
7363 | 321 if (emit_set[i]) |
322 { | |
323 printf (" void set_%s (const octave_value& val)", name[i], type[i]); | |
6874 | 324 |
7363 | 325 if (emit_set[i] == "definition") |
326 { | |
327 printf ("\n {\n if (! error_state)\n {\n %s = val;\n", | |
328 name[i]); | |
7427 | 329 if (updater[i]) |
7826
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
330 printf (" update_%s ();\n", name[i]); |
7363 | 331 if (limits[i]) |
332 printf (" update_axis_limits (\"%s\");\n", name[i]); | |
333 if (mode[i]) | |
334 printf (" set_%smode (\"manual\");\n", name[i]); | |
335 printf (" mark_modified ();\n }\n }\n\n"); | |
6874 | 336 } |
7363 | 337 else |
338 printf (";\n\n"); | |
339 } | |
6874 | 340 |
7826
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
341 if (updater[i] == "extern") |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
342 { |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
343 printf (" void update_%s (void);\n\n", name[i]); |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
344 } |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
345 |
7363 | 346 ## if (emit_ov_set[i]) |
347 ## { | |
348 ## printf (" void set_%s (const octave_value& val)", name[i]); | |
349 ## | |
350 ## if (emit_ov_set[i] == "definition") | |
351 ## printf (" { set_%s (%s (val)); }\n\n", name[i], type[i]); | |
352 ## else if (emit_ov_set[i] == "assignment") | |
353 ## { | |
354 ## printf ("\n {\n %s tmp (%s);\n tmp = val;\n set_%s (tmp);\n };\n\n", | |
355 ## type[i], name[i], name[i], name[i]); | |
356 ## } | |
357 ## else | |
358 ## printf (";\n"); | |
359 ## } | |
6874 | 360 } |
361 | |
7363 | 362 ## if (idx > 0) |
363 ## print "\nprivate:"; | |
364 } | |
365 | |
366 function emit_source () | |
367 { | |
368 if (class_name) | |
369 { | |
370 printf ("// ******** %s ********\n\n", class_name) >> filename; | |
371 | |
372 ## constructor | |
373 | |
374 printf ("%s::properties::properties (const graphics_handle& mh, const graphics_handle& p)\n", class_name) >> filename; | |
375 printf (" : base_properties (go_name, mh, p),\n") >> filename; | |
376 | |
377 for (i = 1; i <= idx; i++) | |
378 { | |
7397 | 379 printf (" %s (\"%s\", mh, %s)", name[i], name[i], defval[i]) >> filename; |
7363 | 380 if (i < idx) |
381 printf (",") >> filename; | |
382 printf ("\n") >> filename; | |
383 } | |
384 | |
7379 | 385 printf ("{\n") >> filename; |
7363 | 386 |
7379 | 387 for (i = 1; i <= idx; i++) |
388 { | |
389 ## printf (" insert_static_property (\"%s\", %s);\n", name[i], name[i]) >> filename; | |
390 if (hidden[i]) | |
391 printf (" %s.set_hidden (true);\n", name[i]) >> filename; | |
392 } | |
7363 | 393 |
7379 | 394 printf (" init ();\n}\n\n") >> filename; |
7363 | 395 |
396 ## set method | |
397 | |
7406 | 398 printf ("void\n%s::properties::set (const caseless_str& pname, const octave_value& val)\n{\n", |
7363 | 399 class_name) >> filename; |
400 | |
401 for (i = 1; i <= idx; i++) | |
402 { | |
7403 | 403 if (! readonly[i]) |
7406 | 404 printf (" %sif (pname.compare (\"%s\"))\n set_%s (val);\n", |
7403 | 405 (i > 1 ? "else " : ""), name[i], name[i]) >> filename; |
7363 | 406 } |
407 | |
7406 | 408 printf (" else\n base_properties::set (pname, val);\n}\n\n") >> filename; |
7363 | 409 |
410 ## get "all" method | |
411 | |
7379 | 412 printf ("octave_value\n%s::properties::get (bool all) const\n{\n", class_name) >> filename; |
413 printf (" Octave_map m = base_properties::get (all).map_value ();\n\n") >> filename; | |
7363 | 414 |
415 for (i = 1; i <= idx; i++) | |
416 { | |
7379 | 417 if (hidden[i]) |
418 printf (" if (all)\n m.assign (\"%s\", get_%s ()%s);\n", name[i], name[i], | |
419 (type[i] == "handle_property" ? ".as_octave_value ()" : "")) >> filename; | |
420 else | |
421 printf (" m.assign (\"%s\", get_%s ()%s);\n", name[i], name[i], | |
422 (type[i] == "handle_property" ? ".as_octave_value ()" : "")) >> filename; | |
7363 | 423 } |
424 | |
425 printf ("\n return m;\n}\n\n") >> filename; | |
426 | |
427 ## get "one" method | |
428 | |
7406 | 429 printf ("octave_value\n%s::properties::get (const caseless_str& pname) const\n{\n", |
7363 | 430 class_name) >> filename; |
431 printf (" octave_value retval;\n\n") >> filename; | |
432 | |
433 for (i = 1; i<= idx; i++) | |
434 { | |
7406 | 435 printf (" %sif (pname.compare (\"%s\"))\n", |
7363 | 436 (i > 1 ? "else " : ""), name[i]) >> filename; |
437 printf (" retval = get_%s ()%s;\n", name[i], | |
438 (type[i] == "handle_property" ? ".as_octave_value ()" : "")) >> filename; | |
439 } | |
440 | |
7406 | 441 printf (" else\n retval = base_properties::get (pname);\n\n") >> filename; |
7363 | 442 printf (" return retval;\n}\n\n") >> filename; |
443 | |
444 ## factory defaults method | |
445 | |
446 printf ("property_list::pval_map_type\n%s::properties::factory_defaults (void)\n{\n", | |
447 class_name) >> filename; | |
448 printf (" property_list::pval_map_type m;\n\n") >> filename; | |
449 | |
450 for (i = 1; i <= idx; i++) | |
451 { | |
7397 | 452 dval = defval[i]; |
7363 | 453 if (type[i] == "radio_property" || type[i] == "color_property") |
7397 | 454 dval = gensub (/^.*\{(.*)\}.*$/, "\"\\1\"", "g", dval); |
455 if (! dval) | |
456 dval = "octave_value ()"; | |
7363 | 457 if (name[i] !~ /__.*/) |
7397 | 458 printf (" m[\"%s\"] = %s%s;\n", name[i], dval, |
7363 | 459 (type[i] == "handle_property" ? ".as_octave_value ()" : "")) >> filename; |
460 } | |
461 | |
462 printf ("\n return m;\n}\n\n") >> filename; | |
463 | |
464 ## go_name static field | |
465 | |
466 printf ("std::string %s::properties::go_name (\"%s\");\n\n", | |
467 class_name, class_name) >> filename; | |
468 } | |
6874 | 469 } |
470 | |
471 BEGIN { | |
7363 | 472 filename = "graphics-props.cc"; |
473 printf ("// DO NOT EDIT! Generated automatically by genprops.awk.\n\n"); | |
474 printf ("// DO NOT EDIT! Generated automatically by genprops.awk.\n\n") > filename; | |
475 } | |
476 | |
477 /BEGIN_PROPERTIES\(.*\)/ { | |
478 gather = 1; | |
479 idx = 0; | |
480 class_name = gensub (/^.*BEGIN_PROPERTIES\((.*)\)/, "\\1", "g"); | |
481 next; | |
6874 | 482 } |
483 | |
484 /BEGIN_PROPERTIES/ { | |
7363 | 485 gather = 1; |
486 idx = 0; | |
487 class_name = ""; | |
488 next; | |
6874 | 489 } |
490 | |
491 /END_PROPERTIES/ { | |
7363 | 492 emit_declarations(); |
493 emit_source(); | |
494 gather = 0; | |
495 next; | |
6874 | 496 } |
497 | |
498 { | |
499 if (gather) | |
7363 | 500 { |
7403 | 501 if (NF < 2 || /^[ \t]*\/\//) |
7363 | 502 next; |
6874 | 503 |
7363 | 504 idx++; |
6874 | 505 |
7363 | 506 field = 1; |
6874 | 507 |
7363 | 508 if ($field == "mutable") |
509 { | |
510 mutable[idx] = 1; | |
511 field++; | |
512 } | |
513 else | |
514 mutable[idx] = 0; | |
6874 | 515 |
7363 | 516 type[idx] = $(field++); |
517 name[idx] = $(field++); | |
6874 | 518 |
7363 | 519 limits[idx] = 0; |
520 mode[idx] = 0; | |
7403 | 521 hidden[idx] = 0; |
522 readonly[idx] = 0; | |
7363 | 523 emit_get[idx] = "definition"; |
524 emit_set[idx] = "definition"; | |
7397 | 525 defval[idx] = ""; |
7427 | 526 updater[idx] = ""; |
7363 | 527 ## if (type[idx] == "octave_value") |
528 ## emit_ov_set[idx] = ""; | |
529 ## else | |
530 ## emit_ov_set[idx] = "definition"; | |
6874 | 531 |
7363 | 532 if (NF >= field) |
533 { | |
534 if ($field != ",") | |
535 { | |
536 quals = $(field++); | |
7214 | 537 |
7363 | 538 if (index (quals, "l")) |
539 limits[idx] = 1; | |
6874 | 540 |
7363 | 541 if (index (quals, "m")) |
542 mode[idx] = 1; | |
543 | |
544 ## There is a custom inline definition for the get function, | |
545 ## so we don't emit anything. | |
546 if (index (quals, "g")) | |
547 emit_get[idx] = ""; | |
6874 | 548 |
7363 | 549 ## There is a custom extern definition for the get function, |
550 ## but we still emit the declaration. | |
551 if (index (quals, "G")) | |
552 emit_get[idx] = "declaration"; | |
6874 | 553 |
7363 | 554 ## There is a custom inline definition for the set function, |
555 ## so we don't emit anything. | |
556 if (index (quals, "s")) | |
557 emit_set[idx] = ""; | |
6874 | 558 |
7363 | 559 ## There is a custom extern definition for the set function, |
560 ## but we still emit the declaration. | |
561 if (index (quals, "S")) | |
562 emit_set[idx] = "declaration"; | |
7379 | 563 |
7403 | 564 ## The property is hidden |
565 if (index (quals, "h")) | |
566 hidden[idx] = 1; | |
567 | |
568 ## The property is read-only | |
569 if (index (quals, "r")) | |
570 readonly[idx] = 1; | |
6904 | 571 |
7826
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
572 ## There is an inline updater method that should be called |
7427 | 573 ## from the set method |
574 if (index (quals, "u")) | |
7826
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
575 updater[idx] = "inline"; |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
576 |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
577 ## There is an extern updater method that should be called |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
578 ## from the set method |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
579 if (index (quals, "U")) |
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
580 updater[idx] = "extern"; |
7427 | 581 |
7363 | 582 ## ## emmit an asignment set function |
583 ## if (index (quals, "a")) | |
584 ## emit_ov_set[idx] = "assignment"; | |
585 ## | |
586 ## if (type[idx] != "octave_value") | |
587 ## { | |
588 ## ## The 'o' and 'O' qualifiers are only useful when the | |
589 ## ## the property type is something other than an | |
590 ## ## octave_value. | |
591 ## | |
592 ## ## There is a custom inline definition for the | |
593 ## ## octave_value version of the set function, so we | |
594 ## ## don't emit anything. | |
595 ## if (index (quals, "o")) | |
596 ## emit_ov_set[idx] = ""; | |
597 ## | |
598 ## ## There is a custom extern definition for the | |
599 ## ## octave_value version of the set function, but we | |
600 ## ## still emit the declaration. | |
601 ## if (index (quals, "O")) | |
602 ## emit_ov_set[idx] = "declaration"; | |
603 ## } | |
604 } | |
6874 | 605 |
7363 | 606 if (NF > field && $field == ",") |
607 { | |
608 field++; | |
6874 | 609 |
7363 | 610 for (i = field; i <= NF; i++) |
7397 | 611 defval[idx] = (defval[idx] (i > field ? " " : "") $i); |
7363 | 612 } |
6874 | 613 } |
7363 | 614 |
615 } | |
6874 | 616 else |
7363 | 617 print $0; |
6883 | 618 } |