Mercurial > hg > octave-nkf
annotate src/genprops.awk @ 9584:0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 28 Aug 2009 05:30:29 -0400 |
| parents | bdcfb756d721 |
| children | 06b8b51dca48 |
| rev | line source |
|---|---|
| 8920 | 1 ## Copyright (C) 2007, 2008, 2009 John W. Eaton |
| 7019 | 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 ## | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
115 ## u: The property has an inline updater method. This effectively |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
116 ## add the line |
| 7427 | 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 ## | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
124 ## U: Like 'u' modifier except that the updater is not inline. |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
125 ## A declaration for the updater function will be emitted. |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
126 ## |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
127 ## f: The property does not have any factory default value. |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
128 ## |
| 6874 | 129 ## The 'o' and 'O' qualifiers are only useful when the the property type |
| 130 ## is something other than octave_value. | |
| 131 | |
| 7363 | 132 ## simple accessor |
| 133 | |
| 134 function emit_get_accessor (i, rtype, faccess) | |
| 135 { | |
| 136 printf (" %s get_%s (void) const", rtype, name[i]); | |
| 137 | |
| 138 if (emit_get[i] == "definition") | |
| 139 printf (" { return %s.%s (); }\n", name[i], faccess); | |
| 140 else | |
| 141 printf (";\n"); | |
| 142 } | |
| 143 | |
| 144 ## bool_property | |
| 145 | |
| 146 function emit_get_bool (i) | |
| 147 { | |
| 148 printf (" bool is_%s (void) const", name[i]); | |
| 149 | |
| 150 if (emit_get[i] == "definition") | |
| 151 printf (" { return %s.is_on (); }\n", name[i]); | |
| 152 else | |
| 153 printf (";\n"); | |
| 154 | |
| 155 emit_get_accessor(i, "std::string", "current_value"); | |
| 156 } | |
| 157 | |
| 158 ## radio_property | |
| 159 | |
| 160 function emit_get_radio (i) | |
| 161 { | |
| 162 printf (" bool %s_is (const std::string& v) const", name[i]); | |
| 163 | |
| 164 if (emit_get[i] == "definition") | |
| 165 printf (" { return %s.is (v); }\n", name[i]); | |
| 166 else | |
| 167 printf (";\n"); | |
| 168 | |
| 169 emit_get_accessor(i, "std::string", "current_value"); | |
| 170 } | |
| 171 | |
| 172 ## color_property | |
| 173 | |
| 174 function emit_get_color (i) | |
| 175 { | |
| 176 printf (" bool %s_is_rgb (void) const { return %s.is_rgb (); }\n", name[i], name[i]); | |
| 177 | |
| 178 printf (" bool %s_is (const std::string& v) const", name[i]); | |
| 179 | |
| 180 if (emit_get[i] == "definition") | |
| 181 printf (" { return %s.is (v); }\n", name[i]); | |
| 182 else | |
| 183 printf (";\n"); | |
| 184 | |
| 185 printf (" Matrix get_%s_rgb (void) const", name[i]); | |
| 186 | |
| 187 if (emit_get[i] == "definition") | |
| 188 printf (" { return (%s.is_rgb () ? %s.rgb () : Matrix ()); }\n", name[i], name[i]); | |
| 189 else | |
| 190 printf (";\n"); | |
| 191 | |
| 192 emit_get_accessor(i, "octave_value", "get"); | |
| 193 } | |
| 194 | |
|
7844
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
195 ## double_radio_property |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
196 |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
197 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
|
198 { |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
199 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
|
200 |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
201 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
|
202 |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
203 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
|
204 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
|
205 else |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
206 printf (";\n"); |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
207 |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
208 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
|
209 |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
210 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
|
211 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
|
212 else |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
213 printf (";\n"); |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
214 |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
215 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
|
216 } |
|
3d60445d3638
Add new double_radio_property class for alpha values.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7836
diff
changeset
|
217 |
| 7363 | 218 ## callback_property |
| 219 | |
| 220 function emit_get_callback (i) | |
| 221 { | |
| 7367 | 222 printf (" void execute_%s (const octave_value& data = octave_value ()) const", name[i]); |
| 7363 | 223 |
| 224 if (emit_get[i] == "definition") | |
| 7367 | 225 printf (" { %s.execute (data); }\n", name[i]); |
| 7363 | 226 else |
| 227 printf (";\n"); | |
| 228 | |
| 229 emit_get_accessor(i, "octave_value", "get"); | |
| 230 } | |
| 231 | |
|
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
|
232 ## 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
|
233 |
|
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
234 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
|
235 { |
|
4fb2db9c87dd
Turn cdata properties into array_property. Add min/max computation to array_property.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7826
diff
changeset
|
236 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
|
237 } |
|
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 |
| 7363 | 239 ## common section |
| 240 | |
| 241 function emit_common_declarations () | |
| 242 { | |
| 243 printf ("public:\n"); | |
| 244 printf (" properties (const graphics_handle& mh, const graphics_handle& p);\n\n"); | |
| 245 printf (" ~properties (void) { }\n\n"); | |
| 7406 | 246 printf (" void set (const caseless_str& pname, const octave_value& val);\n\n"); |
| 7379 | 247 printf (" octave_value get (bool all = false) const;\n\n"); |
| 7406 | 248 printf (" octave_value get (const caseless_str& pname) const;\n\n"); |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
249 printf (" property get_property (const caseless_str& pname);\n\n"); |
| 7363 | 250 printf (" std::string graphics_object_name (void) const { return go_name; }\n\n"); |
| 251 printf (" static property_list::pval_map_type factory_defaults (void);\n\n"); | |
| 252 printf ("private:\n static std::string go_name;\n\n"); | |
| 253 } | |
| 254 | |
| 7225 | 255 function emit_declarations () |
| 6874 | 256 { |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
257 if (class_name && ! base) |
| 7363 | 258 emit_common_declarations(); |
| 259 | |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
260 printf ("public:\n\n"); |
|
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
261 if (base) |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
262 printf ("\n static std::set<std::string> all_property_names (const std::string& cname);\n\n static bool has_property (const std::string& pname, const std::string& cname);\n\n"); |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
263 else |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
264 printf ("\n static std::set<std::string> all_property_names (void);\n\n static bool has_property (const std::string& pname);\n\n"); |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
265 |
| 6874 | 266 if (idx > 0) |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
267 print (base ? "protected:\n" : "private:\n"); |
| 6874 | 268 |
| 269 for (i = 1; i <= idx; i++) | |
| 7363 | 270 printf (" %s%s %s;\n", mutable[i] ? "mutable " : "", type[i], name[i]); |
| 6874 | 271 |
| 272 if (idx > 0) | |
| 7363 | 273 print "\npublic:\n"; |
|
8059
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
274 |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
275 if (idx > 0) |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
276 { |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
277 printf (" enum\n {"); |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
278 for (i = 1; i <= idx; i++) |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
279 { |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
280 printf ("%s\n %s = %d", (i == 1 ? "" : ","), toupper(name[i]), pcount); |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
281 pcount++; |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
282 } |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
283 printf ("\n };\n\n"); |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
284 pcount = (int(pcount/1000)+1)*1000; |
|
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
285 } |
| 6874 | 286 |
| 287 for (i = 1; i <= idx; i++) | |
| 288 { | |
| 7363 | 289 if (emit_get[i]) |
| 290 { | |
|
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
|
291 if (type[i] == "any_property") |
| 7363 | 292 emit_get_accessor(i, "octave_value", "get"); |
| 293 else if (type[i] == "handle_property") | |
| 294 emit_get_accessor(i, "graphics_handle", "handle_value"); | |
| 295 else if (type[i] == "string_property") | |
| 296 emit_get_accessor(i, "std::string", "string_value"); | |
| 297 else if (type[i] == "double_property") | |
| 298 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
|
299 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
|
300 emit_get_double_radio(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
|
301 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
|
302 || 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
|
303 emit_get_array(i); |
| 7363 | 304 else if (type[i] == "bool_property") |
| 305 emit_get_bool(i); | |
| 306 else if (type[i] == "radio_property") | |
| 307 emit_get_radio(i); | |
| 308 else if (type[i] == "color_property") | |
| 309 emit_get_color(i); | |
| 310 else if (type[i] == "callback_property") | |
| 311 emit_get_callback(i); | |
| 312 else | |
| 6874 | 313 { |
| 7363 | 314 printf (" %s get_%s (void) const", type[i], name[i]); |
| 6874 | 315 |
| 7363 | 316 if (emit_get[i] == "definition") |
| 317 printf (" { return %s; }\n", name[i]); | |
| 318 else | |
| 319 printf (";\n"); | |
| 6874 | 320 } |
| 7363 | 321 printf ("\n"); |
| 322 } | |
| 6874 | 323 } |
| 324 | |
| 325 if (idx > 0) | |
| 7363 | 326 printf ("\n"); |
| 6874 | 327 |
| 328 for (i = 1; i <= idx; i++) | |
| 329 { | |
| 7363 | 330 if (emit_set[i]) |
| 331 { | |
| 332 printf (" void set_%s (const octave_value& val)", name[i], type[i]); | |
| 6874 | 333 |
| 7363 | 334 if (emit_set[i] == "definition") |
| 335 { | |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
336 if (updaters[i] || limits[i] || mode[i]) |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
337 has_builtin_listeners = 1; |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
338 else |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
339 has_builtin_listeners = 0; |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
340 |
|
8063
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
341 printf ("\n {\n if (! error_state)\n {\n if (%s.set (val, %s))\n {\n", |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
342 name[i], (has_builtin_listeners ? "false" : "true")); |
|
8139
6b3a965b6c7d
genprops.awk: emit set_mode calls before updaters
John W. Eaton <jwe@octave.org>
parents:
8063
diff
changeset
|
343 if (mode[i]) |
|
6b3a965b6c7d
genprops.awk: emit set_mode calls before updaters
John W. Eaton <jwe@octave.org>
parents:
8063
diff
changeset
|
344 printf (" set_%smode (\"manual\");\n", name[i]); |
| 7427 | 345 if (updater[i]) |
|
8063
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
346 printf (" update_%s ();\n", name[i]); |
| 7363 | 347 if (limits[i]) |
|
8063
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
348 printf (" update_axis_limits (\"%s\");\n", name[i]); |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
349 if (has_builtin_listeners) |
|
8063
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
350 printf (" %s.run_listeners (POSTSET);\n", name[i]); |
|
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
351 printf (" mark_modified ();\n"); |
|
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
352 printf (" }\n"); |
|
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
353 if (mode[i]) |
|
41bc700ff642
Trigger actions/listeners only for actual property change
Michael Goffioul
parents:
8061
diff
changeset
|
354 printf (" else\n set_%smode (\"manual\");\n", name[i]); |
|
8059
75c99d3f97d7
Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents:
7895
diff
changeset
|
355 printf (" }\n }\n\n"); |
| 6874 | 356 } |
| 7363 | 357 else |
| 358 printf (";\n\n"); | |
| 359 } | |
| 6874 | 360 |
|
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
|
361 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
|
362 { |
|
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
363 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
|
364 } |
|
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
365 |
| 7363 | 366 ## if (emit_ov_set[i]) |
| 367 ## { | |
| 368 ## printf (" void set_%s (const octave_value& val)", name[i]); | |
| 369 ## | |
| 370 ## if (emit_ov_set[i] == "definition") | |
| 371 ## printf (" { set_%s (%s (val)); }\n\n", name[i], type[i]); | |
| 372 ## else if (emit_ov_set[i] == "assignment") | |
| 373 ## { | |
| 374 ## printf ("\n {\n %s tmp (%s);\n tmp = val;\n set_%s (tmp);\n };\n\n", | |
| 375 ## type[i], name[i], name[i], name[i]); | |
| 376 ## } | |
| 377 ## else | |
| 378 ## printf (";\n"); | |
| 379 ## } | |
| 6874 | 380 } |
| 381 | |
| 7363 | 382 ## if (idx > 0) |
| 383 ## print "\nprivate:"; | |
| 384 } | |
| 385 | |
| 386 function emit_source () | |
| 387 { | |
| 388 if (class_name) | |
| 389 { | |
| 390 printf ("// ******** %s ********\n\n", class_name) >> filename; | |
| 391 | |
| 392 ## constructor | |
| 393 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
394 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
395 printf ("base_properties::base_properties (const std::string& ty, const graphics_handle& mh, const graphics_handle& p)\n : ") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
396 else |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
397 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
398 printf ("%s::properties::properties (const graphics_handle& mh, const graphics_handle& p)\n", class_name) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
399 printf (" : base_properties (go_name, mh, p),\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
400 } |
| 7363 | 401 |
| 402 for (i = 1; i <= idx; i++) | |
| 403 { | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
404 if (ptype[i]) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
405 printf (" %s (\"%s\", mh, %s)", name[i], name[i], defval[i]) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
406 else |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
407 printf (" %s (%s)", name[i], defval[i]) >> filename; |
| 7363 | 408 if (i < idx) |
| 409 printf (",") >> filename; | |
| 410 printf ("\n") >> filename; | |
| 411 } | |
| 412 | |
| 7379 | 413 printf ("{\n") >> filename; |
| 7363 | 414 |
| 7379 | 415 for (i = 1; i <= idx; i++) |
| 416 { | |
| 417 ## printf (" insert_static_property (\"%s\", %s);\n", name[i], name[i]) >> filename; | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
418 if (ptype[i]) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
419 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
420 printf (" %s.set_id (%s);\n", name[i], toupper(name[i])) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
421 if (hidden[i]) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
422 printf (" %s.set_hidden (true);\n", name[i]) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
423 } |
| 7379 | 424 } |
| 7363 | 425 |
| 7379 | 426 printf (" init ();\n}\n\n") >> filename; |
| 7363 | 427 |
| 428 ## set method | |
| 429 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
430 if (base) |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
431 printf ("void\nbase_properties::set (const caseless_str& pname, const std::string& cname, const octave_value& val)\n{\n") >> filename; |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
432 else |
|
9584
0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents:
9582
diff
changeset
|
433 printf ("void\n%s::properties::set (const caseless_str& pname_arg, const octave_value& val)\n{\n", |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
434 class_name) >> filename; |
| 7363 | 435 |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
436 if (! base) |
|
9584
0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents:
9582
diff
changeset
|
437 printf (" const std::set<std::string>& pnames = all_property_names ();\n\n caseless_str pname = validate_property_name (\"get\", pnames, pname_arg);\n\n if (error_state)\n return;\n\n") >> filename; |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
438 |
|
7865
b74039822fd2
Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7862
diff
changeset
|
439 first = 1; |
|
b74039822fd2
Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7862
diff
changeset
|
440 |
| 7363 | 441 for (i = 1; i <= idx; i++) |
| 442 { | |
| 7403 | 443 if (! readonly[i]) |
|
7865
b74039822fd2
Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7862
diff
changeset
|
444 { |
| 7406 | 445 printf (" %sif (pname.compare (\"%s\"))\n set_%s (val);\n", |
|
7865
b74039822fd2
Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7862
diff
changeset
|
446 (first == 0 ? "else " : ""), name[i], name[i]) >> filename; |
|
b74039822fd2
Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7862
diff
changeset
|
447 first = 0; |
|
b74039822fd2
Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7862
diff
changeset
|
448 } |
| 7363 | 449 } |
| 450 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
451 if (base) |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
452 printf (" else\n set_dynamic (pname, cname, val);\n}\n\n") >> filename; |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
453 else |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
454 printf (" else\n base_properties::set (pname, \"%s\", val);\n}\n\n", class_name) >> filename; |
| 7363 | 455 |
| 456 ## get "all" method | |
| 457 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
458 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
459 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
460 printf ("octave_value\nbase_properties::get (bool all) const\n{\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
461 printf (" Octave_map m = get_dynamic (all).map_value ();\n\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
462 } |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
463 else |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
464 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
465 printf ("octave_value\n%s::properties::get (bool all) const\n{\n", class_name) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
466 printf (" Octave_map m = base_properties::get (all).map_value ();\n\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
467 } |
| 7363 | 468 |
| 469 for (i = 1; i <= idx; i++) | |
| 470 { | |
| 7379 | 471 if (hidden[i]) |
| 472 printf (" if (all)\n m.assign (\"%s\", get_%s ()%s);\n", name[i], name[i], | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
473 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename; |
| 7379 | 474 else |
| 475 printf (" m.assign (\"%s\", get_%s ()%s);\n", name[i], name[i], | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
476 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename; |
| 7363 | 477 } |
| 478 | |
| 479 printf ("\n return m;\n}\n\n") >> filename; | |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
480 |
| 7363 | 481 ## get "one" method |
| 482 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
483 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
484 printf ("octave_value\nbase_properties::get (const caseless_str& pname) const\n{\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
485 else |
|
9584
0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents:
9582
diff
changeset
|
486 printf ("octave_value\n%s::properties::get (const caseless_str& pname_arg) const\n{\n", |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
487 class_name) >> filename; |
| 7363 | 488 printf (" octave_value retval;\n\n") >> filename; |
| 489 | |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
490 if (! base) |
|
9584
0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents:
9582
diff
changeset
|
491 printf (" const std::set<std::string>& pnames = all_property_names ();\n\n caseless_str pname = validate_property_name (\"get\", pnames, pname_arg);\n\n if (error_state)\n return retval;\n\n") >> filename; |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
492 |
| 7363 | 493 for (i = 1; i<= idx; i++) |
| 494 { | |
| 7406 | 495 printf (" %sif (pname.compare (\"%s\"))\n", |
| 7363 | 496 (i > 1 ? "else " : ""), name[i]) >> filename; |
| 497 printf (" retval = get_%s ()%s;\n", name[i], | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
498 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename; |
| 7363 | 499 } |
| 500 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
501 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
502 printf (" else\n retval = get_dynamic (pname);\n\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
503 else |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
504 printf (" else\n retval = base_properties::get (pname);\n\n") >> filename; |
| 7363 | 505 printf (" return retval;\n}\n\n") >> filename; |
| 506 | |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
507 ## get_property method |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
508 |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
509 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
510 printf ("property\nbase_properties::get_property (const caseless_str& pname)\n{\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
511 else |
|
9584
0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents:
9582
diff
changeset
|
512 printf ("property\n%s::properties::get_property (const caseless_str& pname_arg)\n{\n", |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
513 class_name) >> filename; |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
514 |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
515 if (! base) |
|
9584
0fcbfddaa87f
allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents:
9582
diff
changeset
|
516 printf (" const std::set<std::string>& pnames = all_property_names ();\n\n caseless_str pname = validate_property_name (\"get\", pnames, pname_arg);\n\n if (error_state)\n return property ();\n\n") >> filename; |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
517 |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
518 for (i = 1; i<= idx; i++) |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
519 { |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
520 if (ptype[i]) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
521 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
522 printf (" %sif (pname.compare (\"%s\"))\n", |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
523 (i > 1 ? "else " : ""), name[i]) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
524 printf (" return property (&%s, true);\n", name[i]) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
525 } |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
526 } |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
527 |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
528 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
529 printf (" else\n return get_property_dynamic (pname);\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
530 else |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
531 printf (" else\n return base_properties::get_property (pname);\n") >> filename; |
|
7849
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
532 printf ("}\n\n") >> filename; |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
533 |
|
3249f64f69b2
Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7848
diff
changeset
|
534 |
| 7363 | 535 ## factory defaults method |
| 536 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
537 if (base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
538 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
539 printf ("property_list::pval_map_type\nbase_properties::factory_defaults (void)\n{\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
540 printf (" property_list::pval_map_type m;\n\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
541 } |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
542 else |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
543 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
544 printf ("property_list::pval_map_type\n%s::properties::factory_defaults (void)\n{\n", |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
545 class_name) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
546 printf (" property_list::pval_map_type m = base_properties::factory_defaults ();\n\n") >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
547 } |
| 7363 | 548 |
| 549 for (i = 1; i <= idx; i++) | |
| 550 { | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
551 if (factory[i]) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
552 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
553 dval = defval[i]; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
554 if (type[i] == "radio_property" || type[i] == "color_property") |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
555 { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
556 k = index (dval, "{"); |
|
8766
8cb2a144f321
genprops.awk (emit_source): don't use + to concatenate strings
John W. Eaton <jwe@octave.org>
parents:
8247
diff
changeset
|
557 dval = substr (dval, k+1); |
|
8cb2a144f321
genprops.awk (emit_source): don't use + to concatenate strings
John W. Eaton <jwe@octave.org>
parents:
8247
diff
changeset
|
558 l = index (dval, "}"); |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
559 if (k > 0 && l > 0) |
|
8766
8cb2a144f321
genprops.awk (emit_source): don't use + to concatenate strings
John W. Eaton <jwe@octave.org>
parents:
8247
diff
changeset
|
560 dval = "\"" substr (dval, 1, l-1) "\""; |
|
8cb2a144f321
genprops.awk (emit_source): don't use + to concatenate strings
John W. Eaton <jwe@octave.org>
parents:
8247
diff
changeset
|
561 else |
|
8cb2a144f321
genprops.awk (emit_source): don't use + to concatenate strings
John W. Eaton <jwe@octave.org>
parents:
8247
diff
changeset
|
562 dval = "octave_value ()"; |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
563 } |
|
7895
f1a1f6dd7fac
avoid using gensub in genprops.awk
Jaroslav Hajek <highegg@gmail.com>
parents:
7865
diff
changeset
|
564 |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
565 printf (" m[\"%s\"] = %s%s;\n", name[i], dval, |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
566 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
567 } |
| 7363 | 568 } |
| 569 | |
| 570 printf ("\n return m;\n}\n\n") >> filename; | |
| 571 | |
| 572 ## go_name static field | |
| 573 | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
574 if (! base) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
575 printf ("std::string %s::properties::go_name (\"%s\");\n\n", |
|
8247
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
576 class_name, object_name) >> filename; |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
577 |
|
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
578 if (base) |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
579 printf ("std::set<std::string>\nbase_properties::all_property_names (const std::string& cname") >> filename; |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
580 else |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
581 printf ("std::set<std::string>\n%s::properties::all_property_names (void", class_name) >> filename; |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
582 printf (")\n{\n static std::set<std::string> all_pnames;\n\n static bool initialized = false;\n\n if (! initialized)\n {\n") >> filename; |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
583 for (i = 1; i <= idx; i++) |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
584 printf (" all_pnames.insert (\"%s\");\n", name[i]) >> filename; |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
585 printf ("\n initialized = true;\n }\n\n") >> filename; |
|
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
586 if (base) |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
587 printf (" std::set<std::string> retval = all_pnames;\n std::set<std::string> dyn_props = dynamic_property_names (cname);\n retval.insert (dyn_props.begin(), dyn_props.end ());\n return retval;\n}\n\n") >> filename; |
|
9185
1e5c11890f85
check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
588 else |
|
9582
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
589 printf (" std::set<std::string> retval = all_pnames;\n std::set<std::string> base_props = base_properties::all_property_names (\"%s\");\n retval.insert (base_props.begin (), base_props.end ());\n return retval;\n}\n\n", class_name) >> filename; |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
590 |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
591 if (base) |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
592 printf ("bool\nbase_properties::has_property (const std::string& pname, const std::string& cname)\n{\n std::set<std::string> pnames = all_property_names (cname);\n\n") >> filename; |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
593 else |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
594 printf ("bool\n%s::properties::has_property (const std::string& pname)\n{\n std::set<std::string> pnames = all_property_names ();\n\n", class_name) >> filename; |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
595 |
|
bdcfb756d721
improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents:
9185
diff
changeset
|
596 printf (" return pnames.find (pname) != pnames.end ();\n}\n\n") >> filename; |
| 7363 | 597 } |
| 6874 | 598 } |
| 599 | |
| 600 BEGIN { | |
| 7363 | 601 filename = "graphics-props.cc"; |
| 602 printf ("// DO NOT EDIT! Generated automatically by genprops.awk.\n\n"); | |
| 603 printf ("// DO NOT EDIT! Generated automatically by genprops.awk.\n\n") > filename; | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
604 pcount = 0; |
| 7363 | 605 } |
| 606 | |
|
8247
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
607 /BEGIN_PROPERTIES *\(.*\)/ { |
| 7363 | 608 gather = 1; |
| 609 idx = 0; | |
|
7895
f1a1f6dd7fac
avoid using gensub in genprops.awk
Jaroslav Hajek <highegg@gmail.com>
parents:
7865
diff
changeset
|
610 str = $0; |
|
8247
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
611 beg = index (str, "(") + 1; |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
612 len = index (str, ")") - beg; |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
613 args = substr (str, beg, len); |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
614 n = split (args, arg_list, ","); |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
615 if (n > 0) |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
616 class_name = arg_list[1]; |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
617 if (n > 1) |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
618 object_name = arg_list[2]; |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
619 else |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
620 object_name = class_name; |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
621 gsub (/ /, "", class_name); |
|
e41f420875db
set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents:
8139
diff
changeset
|
622 gsub (/ /, "", object_name); |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
623 base = 0; |
| 7363 | 624 next; |
| 6874 | 625 } |
| 626 | |
| 627 /BEGIN_PROPERTIES/ { | |
| 7363 | 628 gather = 1; |
| 629 idx = 0; | |
| 630 class_name = ""; | |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
631 base = 0; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
632 next; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
633 } |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
634 |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
635 /BEGIN_BASE_PROPERTIES/ { |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
636 gather = 1; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
637 idx = 0; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
638 class_name = "base"; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
639 base = 1; |
| 7363 | 640 next; |
| 6874 | 641 } |
| 642 | |
| 643 /END_PROPERTIES/ { | |
| 7363 | 644 emit_declarations(); |
| 645 emit_source(); | |
| 646 gather = 0; | |
| 647 next; | |
| 6874 | 648 } |
| 649 | |
| 650 { | |
| 651 if (gather) | |
| 7363 | 652 { |
| 7403 | 653 if (NF < 2 || /^[ \t]*\/\//) |
| 7363 | 654 next; |
| 6874 | 655 |
| 7363 | 656 idx++; |
| 6874 | 657 |
| 7363 | 658 field = 1; |
| 6874 | 659 |
| 7363 | 660 if ($field == "mutable") |
| 661 { | |
| 662 mutable[idx] = 1; | |
| 663 field++; | |
| 664 } | |
| 665 else | |
| 666 mutable[idx] = 0; | |
| 6874 | 667 |
| 7363 | 668 type[idx] = $(field++); |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
669 ptype[idx] = (type[idx] ~ /^.*_property$/); |
| 7363 | 670 name[idx] = $(field++); |
| 6874 | 671 |
| 7363 | 672 limits[idx] = 0; |
| 673 mode[idx] = 0; | |
| 7403 | 674 hidden[idx] = 0; |
| 675 readonly[idx] = 0; | |
| 7363 | 676 emit_get[idx] = "definition"; |
| 677 emit_set[idx] = "definition"; | |
| 7397 | 678 defval[idx] = ""; |
| 7427 | 679 updater[idx] = ""; |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
680 factory[idx] = 1; |
| 7363 | 681 ## if (type[idx] == "octave_value") |
| 682 ## emit_ov_set[idx] = ""; | |
| 683 ## else | |
| 684 ## emit_ov_set[idx] = "definition"; | |
| 6874 | 685 |
| 7363 | 686 if (NF >= field) |
| 687 { | |
| 688 if ($field != ",") | |
| 689 { | |
| 690 quals = $(field++); | |
| 7214 | 691 |
| 7363 | 692 if (index (quals, "l")) |
| 693 limits[idx] = 1; | |
| 6874 | 694 |
| 7363 | 695 if (index (quals, "m")) |
| 696 mode[idx] = 1; | |
| 697 | |
| 698 ## There is a custom inline definition for the get function, | |
| 699 ## so we don't emit anything. | |
| 700 if (index (quals, "g")) | |
| 701 emit_get[idx] = ""; | |
| 6874 | 702 |
| 7363 | 703 ## There is a custom extern definition for the get function, |
| 704 ## but we still emit the declaration. | |
| 705 if (index (quals, "G")) | |
| 706 emit_get[idx] = "declaration"; | |
| 6874 | 707 |
| 7363 | 708 ## There is a custom inline definition for the set function, |
| 709 ## so we don't emit anything. | |
| 710 if (index (quals, "s")) | |
| 711 emit_set[idx] = ""; | |
| 6874 | 712 |
| 7363 | 713 ## There is a custom extern definition for the set function, |
| 714 ## but we still emit the declaration. | |
| 715 if (index (quals, "S")) | |
| 716 emit_set[idx] = "declaration"; | |
| 7379 | 717 |
| 7403 | 718 ## The property is hidden |
| 719 if (index (quals, "h")) | |
| 720 hidden[idx] = 1; | |
| 721 | |
| 722 ## The property is read-only | |
| 723 if (index (quals, "r")) | |
| 724 readonly[idx] = 1; | |
| 6904 | 725 |
|
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
|
726 ## There is an inline updater method that should be called |
| 7427 | 727 ## from the set method |
| 728 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
|
729 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
|
730 |
|
68550ad9ee9c
Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
7523
diff
changeset
|
731 ## 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
|
732 ## 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
|
733 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
|
734 updater[idx] = "extern"; |
| 7427 | 735 |
|
8061
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
736 ## There is not factory default value |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
737 if (index (quals, "f")) |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
738 factory[idx] = 0; |
|
f819e8992367
Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents:
8059
diff
changeset
|
739 |
| 7363 | 740 ## ## emmit an asignment set function |
| 741 ## if (index (quals, "a")) | |
| 742 ## emit_ov_set[idx] = "assignment"; | |
| 743 ## | |
| 744 ## if (type[idx] != "octave_value") | |
| 745 ## { | |
| 746 ## ## The 'o' and 'O' qualifiers are only useful when the | |
| 747 ## ## the property type is something other than an | |
| 748 ## ## octave_value. | |
| 749 ## | |
| 750 ## ## There is a custom inline definition for the | |
| 751 ## ## octave_value version of the set function, so we | |
| 752 ## ## don't emit anything. | |
| 753 ## if (index (quals, "o")) | |
| 754 ## emit_ov_set[idx] = ""; | |
| 755 ## | |
| 756 ## ## There is a custom extern definition for the | |
| 757 ## ## octave_value version of the set function, but we | |
| 758 ## ## still emit the declaration. | |
| 759 ## if (index (quals, "O")) | |
| 760 ## emit_ov_set[idx] = "declaration"; | |
| 761 ## } | |
| 762 } | |
| 6874 | 763 |
| 7363 | 764 if (NF > field && $field == ",") |
| 765 { | |
| 766 field++; | |
| 6874 | 767 |
| 7363 | 768 for (i = field; i <= NF; i++) |
| 7397 | 769 defval[idx] = (defval[idx] (i > field ? " " : "") $i); |
| 7363 | 770 } |
| 6874 | 771 } |
| 7363 | 772 |
| 773 } | |
| 6874 | 774 else |
| 7363 | 775 print $0; |
| 6883 | 776 } |