Mercurial > hg > octave-lyh

annotate src/genprops.awk @ 9585:06b8b51dca48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
also handle user-defined graphics properties in new property name validation scheme
author John W. Eaton <jwe@octave.org>
date Fri, 28 Aug 2009 18:37:31 -0400
parents 0fcbfddaa87f
children 2093499ec9f4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8920
eb63fbe60fab update copyright notices
John W. Eaton <jwe@octave.org>
parents: 8766
diff changeset
1 ## Copyright (C) 2007, 2008, 2009 John W. Eaton
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
2 ##
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
3 ## This file is part of Octave.
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
4 ##
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
6 ## under the terms of the GNU General Public License as published by the
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
7 ## Free Software Foundation; either version 3 of the License, or (at
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
8 ## your option) any later version.
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
9 ##
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but WITHOUT
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
11 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
12 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
13 ## for more details.
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
14 ##
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
15 ## You should have received a copy of the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
17 ## <http://www.gnu.org/licenses/>.
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6904
diff changeset
18 ##
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
19 ## This script is used to generate the graphics.h file from graphics.h.in.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
20 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
21 ## Lines between the BEGIN_PROPERTIES and END_PROPERTIES markers have
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
22 ## one of the following formats:
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
23 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
24 ## TYPE NAME
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
25 ## TYPE NAME QUALIFIERS
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
26 ## mutable TYPE NAME
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
27 ## mutable TYPE NAME QUALIFIERS
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
28 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
29 ## For each property, we generate a declaration for the property.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
30 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
31 ## If QUALIFIERS is omitted, we generate the following functions directly
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
32 ## in the class declaration:
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
33 ##
6875
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
34 ## TYPE
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
35 ## get_NAME (void) const
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
36 ## {
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
37 ## return NAME;
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
38 ## }
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
39 ##
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
40 ## void
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
41 ## set_NAME (const TYPE& val)
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
42 ## {
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
43 ## if (! error_state)
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
44 ## NAME = val;
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
45 ## }
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
46 ##
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
47 ## void
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
48 ## set_NAME (const octave_value& val)
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
49 ## {
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
50 ## set_NAME (TYPE (val));
1f843c5601b3 [project @ 2007-09-06 21:41:50 by jwe]
jwe
parents: 6874
diff changeset
51 ## }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
52 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
53 ## If present, the QUALIFIERS string may include any of the characters
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
54 ## g, G, m, s, S, o, O, h, which have the following meanings:
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
55 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
56 ## g: There is a custom inline definition for the get function,
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
57 ## so we don't emit one.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
58 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
59 ## G: There is a custom extern definition for the get function,
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
60 ## so we emit only the declaration.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
61 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
62 ## s: There is a custom inline definition for the type-specific set
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
63 ## function, so we don't emit one.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
64 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
65 ## S: There is a custom extern definition for the type-specific set
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
66 ## function, so we emit only the declaration.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
67 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
68 ## o: There is a custom inline definition for the octave_value version
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
69 ## of the set function, so we don't emit one.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
70 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
71 ## O: There is a custom extern definition for the octave_value version
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
72 ## of the set function, so we emit only the declaration.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
73 ##
6904
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
74 ## a: The octave_value version of the set function will use assignment:
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
75 ##
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
76 ## void
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
77 ## set_NAME (const octave_value& val)
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
78 ## {
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
79 ## TYPE tmp (NAME);
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
80 ## tmp = val;
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
81 ## set_NAME (tmp);
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
82 ## }
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
83 ##
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
84 ## This is useful for things like the radio_value classes which
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
85 ## use an overloaded assignment operator of the form
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
86 ##
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
87 ## radio_property& operator = (const octave_value& val);
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
88 ##
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
89 ## that preserves the list of possible values, which is different
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
90 ## from what would happen if we simply used the
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
91 ##
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
92 ## TYPE (const octave_value&)
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
93 ##
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
94 ## constructor, which creates a new radio_property and so cannot
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
95 ## preserve the old list of possible values.
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
96 ##
7214
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
97 ## l: Add the line
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
98 ##
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
99 ## update_axis_limits ("NAME");
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
100 ##
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
101 ## to the type-specific set function.
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
102 ##
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
103 ## m: Add the line
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
104 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
105 ## set_NAMEmode ("manual");
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
106 ##
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
107 ## to the type-specific set function.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
108 ##
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
109 ## h: Make the property hidden
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
110 ##
7427
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
111 ## r: Make the property read-only. A read-only property is not
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
112 ## settable from the global set (caseless_str, octave_value)
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
113 ## method, but still has set_X accessor.
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
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
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
117 ##
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
118 ## update_NAME ();
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
119 ##
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
120 ## to the type-specific set function. This line is added before
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
121 ## any other update call (like those added by the 'l' or 'm'
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
122 ## modifiers.
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
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
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
129 ## The 'o' and 'O' qualifiers are only useful when the the property type
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
130 ## is something other than octave_value.
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
131
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
132 ## simple accessor
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
133
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
134 function emit_get_accessor (i, rtype, faccess)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
135 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
136 printf (" %s get_%s (void) const", rtype, name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
137
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
138 if (emit_get[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
139 printf (" { return %s.%s (); }\n", name[i], faccess);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
140 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
141 printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
142 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
143
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
144 ## bool_property
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
145
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
146 function emit_get_bool (i)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
147 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
148 printf (" bool is_%s (void) const", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
149
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
150 if (emit_get[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
151 printf (" { return %s.is_on (); }\n", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
152 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
153 printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
154
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
155 emit_get_accessor(i, "std::string", "current_value");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
156 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
157
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
158 ## radio_property
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
159
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
160 function emit_get_radio (i)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
161 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
162 printf (" bool %s_is (const std::string& v) const", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
163
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
164 if (emit_get[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
165 printf (" { return %s.is (v); }\n", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
166 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
167 printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
168
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
169 emit_get_accessor(i, "std::string", "current_value");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
170 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
171
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
172 ## color_property
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
173
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
174 function emit_get_color (i)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
175 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
176 printf (" bool %s_is_rgb (void) const { return %s.is_rgb (); }\n", name[i], name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
177
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
178 printf (" bool %s_is (const std::string& v) const", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
179
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
180 if (emit_get[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
181 printf (" { return %s.is (v); }\n", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
182 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
183 printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
184
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
185 printf (" Matrix get_%s_rgb (void) const", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
186
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
187 if (emit_get[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
188 printf (" { return (%s.is_rgb () ? %s.rgb () : Matrix ()); }\n", name[i], name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
189 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
190 printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
191
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
192 emit_get_accessor(i, "octave_value", "get");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
193 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
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
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
218 ## callback_property
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
219
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
220 function emit_get_callback (i)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
221 {
7367
600808df131c [project @ 2008-01-14 08:58:02 by jwe]
jwe
parents: 7363
diff changeset
222 printf (" void execute_%s (const octave_value& data = octave_value ()) const", name[i]);
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
223
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
224 if (emit_get[i] == "definition")
7367
600808df131c [project @ 2008-01-14 08:58:02 by jwe]
jwe
parents: 7363
diff changeset
225 printf (" { %s.execute (data); }\n", name[i]);
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
226 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
227 printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
228
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
229 emit_get_accessor(i, "octave_value", "get");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
230 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
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
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
239 ## common section
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
240
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
241 function emit_common_declarations ()
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
242 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
243 printf ("public:\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
244 printf (" properties (const graphics_handle& mh, const graphics_handle& p);\n\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
245 printf (" ~properties (void) { }\n\n");
7406
e9b2e44f9341 [project @ 2008-01-19 07:37:56 by jwe]
jwe
parents: 7403
diff changeset
246 printf (" void set (const caseless_str& pname, const octave_value& val);\n\n");
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
247 printf (" octave_value get (bool all = false) const;\n\n");
7406
e9b2e44f9341 [project @ 2008-01-19 07:37:56 by jwe]
jwe
parents: 7403
diff changeset
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
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
250 printf (" std::string graphics_object_name (void) const { return go_name; }\n\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
251 printf (" static property_list::pval_map_type factory_defaults (void);\n\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
252 printf ("private:\n static std::string go_name;\n\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
253 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
254
7225
1f3e360c1bba [project @ 2007-11-30 06:50:34 by jwe]
jwe
parents: 7214
diff changeset
255 function emit_declarations ()
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
256 {
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
257 if (class_name && ! base)
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
258 emit_common_declarations();
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
259
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
260 printf ("public:\n\n\n static std::set<std::string> core_property_names (void);\n\n static bool has_core_property (const caseless_str& pname);\n\n std::set<std::string> all_property_names (");
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
261 if (base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
262 printf ("const std::string& cname");
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
263 else
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
264 printf ("void");
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
265 printf (") const;\n\n");
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
266
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
267 if (! base)
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
268 printf (" bool has_property (const caseless_str& pname) const;\n\n");
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
269
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
270 if (idx > 0)
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
271 print (base ? "protected:\n" : "private:\n");
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
272
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
273 for (i = 1; i <= idx; i++)
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
274 printf (" %s%s %s;\n", mutable[i] ? "mutable " : "", type[i], name[i]);
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
275
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
276 if (idx > 0)
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
277 print "\npublic:\n";
8059
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
278
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
279 if (idx > 0)
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
280 {
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
281 printf (" enum\n {");
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
282 for (i = 1; i <= idx; i++)
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
283 {
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
284 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
285 pcount++;
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
286 }
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
287 printf ("\n };\n\n");
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
288 pcount = (int(pcount/1000)+1)*1000;
75c99d3f97d7 Octave to backend notification scheme
John W. Eaton <jwe@octave.org>
parents: 7895
diff changeset
289 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
290
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
291 for (i = 1; i <= idx; i++)
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
292 {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
293 if (emit_get[i])
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
294 {
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
295 if (type[i] == "any_property")
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
296 emit_get_accessor(i, "octave_value", "get");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
297 else if (type[i] == "handle_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
298 emit_get_accessor(i, "graphics_handle", "handle_value");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
299 else if (type[i] == "string_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
300 emit_get_accessor(i, "std::string", "string_value");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
301 else if (type[i] == "double_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
302 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
303 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
304 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
305 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
306 || 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
307 emit_get_array(i);
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
308 else if (type[i] == "bool_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
309 emit_get_bool(i);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
310 else if (type[i] == "radio_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
311 emit_get_radio(i);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
312 else if (type[i] == "color_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
313 emit_get_color(i);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
314 else if (type[i] == "callback_property")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
315 emit_get_callback(i);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
316 else
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
317 {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
318 printf (" %s get_%s (void) const", type[i], name[i]);
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
319
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
320 if (emit_get[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
321 printf (" { return %s; }\n", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
322 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
323 printf (";\n");
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
324 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
325 printf ("\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
326 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
327 }
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
328
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
329 if (idx > 0)
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
330 printf ("\n");
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
331
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
332 for (i = 1; i <= idx; i++)
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
333 {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
334 if (emit_set[i])
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
335 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
336 printf (" void set_%s (const octave_value& val)", name[i], type[i]);
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
337
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
338 if (emit_set[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
339 {
7849
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
340 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
341 has_builtin_listeners = 1;
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
342 else
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
343 has_builtin_listeners = 0;
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
344
8063
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
345 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
346 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
347 if (mode[i])
6b3a965b6c7d genprops.awk: emit set_mode calls before updaters
John W. Eaton <jwe@octave.org>
parents: 8063
diff changeset
348 printf (" set_%smode (\"manual\");\n", name[i]);
7427
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
349 if (updater[i])
8063
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
350 printf (" update_%s ();\n", name[i]);
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
351 if (limits[i])
8063
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
352 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
353 if (has_builtin_listeners)
8063
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
354 printf (" %s.run_listeners (POSTSET);\n", name[i]);
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
355 printf (" mark_modified ();\n");
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
356 printf (" }\n");
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
357 if (mode[i])
41bc700ff642 Trigger actions/listeners only for actual property change
Michael Goffioul
parents: 8061
diff changeset
358 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
359 printf (" }\n }\n\n");
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
360 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
361 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
362 printf (";\n\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
363 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
364
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
365 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
366 {
68550ad9ee9c Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7523
diff changeset
367 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
368 }
68550ad9ee9c Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7523
diff changeset
369
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
370 ## if (emit_ov_set[i])
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
371 ## {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
372 ## printf (" void set_%s (const octave_value& val)", name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
373 ##
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
374 ## if (emit_ov_set[i] == "definition")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
375 ## printf (" { set_%s (%s (val)); }\n\n", name[i], type[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
376 ## else if (emit_ov_set[i] == "assignment")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
377 ## {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
378 ## printf ("\n {\n %s tmp (%s);\n tmp = val;\n set_%s (tmp);\n };\n\n",
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
379 ## type[i], name[i], name[i], name[i]);
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
380 ## }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
381 ## else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
382 ## printf (";\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
383 ## }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
384 }
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
385
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
386 ## if (idx > 0)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
387 ## print "\nprivate:";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
388 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
389
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
390 function emit_source ()
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
391 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
392 if (class_name)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
393 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
394 printf ("// ******** %s ********\n\n", class_name) >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
395
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
396 ## constructor
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
397
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
398 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
399 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
400 else
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
401 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
402 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
403 printf (" : base_properties (go_name, mh, p),\n") >> filename;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
404 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
405
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
406 for (i = 1; i <= idx; i++)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
407 {
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
408 if (ptype[i])
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
409 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
410 else
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
411 printf (" %s (%s)", name[i], defval[i]) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
412 if (i < idx)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
413 printf (",") >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
414 printf ("\n") >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
415 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
416
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
417 printf ("{\n") >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
418
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
419 for (i = 1; i <= idx; i++)
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
420 {
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
421 ## 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
422 if (ptype[i])
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
423 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
424 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
425 if (hidden[i])
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
426 printf (" %s.set_hidden (true);\n", name[i]) >> filename;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
427 }
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
428 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
429
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
430 printf (" init ();\n}\n\n") >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
431
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
432 ## set method
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
433
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
434 if (base)
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
435 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
436 else
9584
0fcbfddaa87f allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents: 9582
diff changeset
437 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
438 class_name) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
439
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
440 if (! base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
441 printf (" const std::set<std::string>& pnames = all_property_names ();\n\n caseless_str pname = validate_property_name (\"get\", go_name, 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
442
7865
b74039822fd2 Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7862
diff changeset
443 first = 1;
b74039822fd2 Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7862
diff changeset
444
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
445 for (i = 1; i <= idx; i++)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
446 {
7403
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
447 if (! readonly[i])
7865
b74039822fd2 Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7862
diff changeset
448 {
7406
e9b2e44f9341 [project @ 2008-01-19 07:37:56 by jwe]
jwe
parents: 7403
diff changeset
449 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
450 (first == 0 ? "else " : ""), name[i], name[i]) >> filename;
b74039822fd2 Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7862
diff changeset
451 first = 0;
b74039822fd2 Add support for hggroup
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7862
diff changeset
452 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
453 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
454
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
455 if (base)
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
456 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
457 else
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
458 printf (" else\n base_properties::set (pname, \"%s\", val);\n}\n\n", class_name) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
459
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
460 ## get "all" method
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
461
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
462 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
463 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
464 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
465 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
466 }
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
467 else
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
468 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
469 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
470 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
471 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
472
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
473 for (i = 1; i <= idx; i++)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
474 {
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
475 if (hidden[i])
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
476 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
477 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename;
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
478 else
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
479 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
480 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
481 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
482
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
483 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
484
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
485 ## get "one" method
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
486
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
487 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
488 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
489 else
9584
0fcbfddaa87f allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents: 9582
diff changeset
490 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
491 class_name) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
492 printf (" octave_value retval;\n\n") >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
493
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
494 if (! base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
495 printf (" const std::set<std::string>& pnames = all_property_names ();\n\n caseless_str pname = validate_property_name (\"get\", go_name, 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
496
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
497 for (i = 1; i<= idx; i++)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
498 {
7406
e9b2e44f9341 [project @ 2008-01-19 07:37:56 by jwe]
jwe
parents: 7403
diff changeset
499 printf (" %sif (pname.compare (\"%s\"))\n",
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
500 (i > 1 ? "else " : ""), name[i]) >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
501 printf (" retval = get_%s ()%s;\n", name[i],
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
502 (type[i] == "handle_property" || type[i] == "graphics_handle" ? ".as_octave_value ()" : "")) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
503 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
504
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
505 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
506 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
507 else
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
508 printf (" else\n retval = base_properties::get (pname);\n\n") >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
509 printf (" return retval;\n}\n\n") >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
510
7849
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
511 ## get_property method
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
512
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
513 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
514 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
515 else
9584
0fcbfddaa87f allow abbreviated graphics property names to match, with optional warning
John W. Eaton <jwe@octave.org>
parents: 9582
diff changeset
516 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
517 class_name) >> filename;
7849
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
518
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
519 if (! base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
520 printf (" const std::set<std::string>& pnames = all_property_names ();\n\n caseless_str pname = validate_property_name (\"get\", go_name, 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
521
7849
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
522 for (i = 1; i<= idx; i++)
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
523 {
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
524 if (ptype[i])
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
525 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
526 printf (" %sif (pname.compare (\"%s\"))\n",
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
527 (i > 1 ? "else " : ""), name[i]) >> filename;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
528 printf (" return property (&%s, true);\n", name[i]) >> filename;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
529 }
7849
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
530 }
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
531
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
532 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
533 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
534 else
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
535 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
536 printf ("}\n\n") >> filename;
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
537
3249f64f69b2 Initial low-level support for property listeners.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7848
diff changeset
538
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
539 ## factory defaults method
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
540
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
541 if (base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
542 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
543 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
544 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
545 }
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
546 else
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
547 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
548 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
549 class_name) >> filename;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
550 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
551 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
552
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
553 for (i = 1; i <= idx; i++)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
554 {
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
555 if (factory[i])
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
556 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
557 dval = defval[i];
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
558 if (type[i] == "radio_property" || type[i] == "color_property")
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
559 {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
560 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
561 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
562 l = index (dval, "}");
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
563 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
564 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
565 else
8cb2a144f321 genprops.awk (emit_source): don't use + to concatenate strings
John W. Eaton <jwe@octave.org>
parents: 8247
diff changeset
566 dval = "octave_value ()";
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
567 }
7895
f1a1f6dd7fac avoid using gensub in genprops.awk
Jaroslav Hajek <highegg@gmail.com>
parents: 7865
diff changeset
568
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
569 printf (" m[\"%s\"] = %s%s;\n", name[i], dval,
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
570 (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
571 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
572 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
573
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
574 printf ("\n return m;\n}\n\n") >> filename;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
575
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
576 ## go_name static field
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
577
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
578 if (! base)
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
579 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
580 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
581
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
582 printf ("std::set<std::string>\n") >> filename;
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
583 if (base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
584 printf ("base_properties") >> filename;
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
585 else
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
586 printf ("%s::properties", class_name) >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
587 printf ("::core_property_names (void)\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
588 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
589 printf (" all_pnames.insert (\"%s\");\n", name[i]) >> filename;
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
590 if (! base)
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
591 printf ("\n std::set<std::string> base_pnames = base_properties::core_property_names ();\n all_pnames.insert (base_pnames.begin (), base_pnames.end ());\n") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
592 printf ("\n initialized = true;\n }\n\n return all_pnames;\n}\n\n") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
593
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
594 printf ("bool\n") >> filename;
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
595 if (base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
596 printf ("base_properties") >> filename;
9185
1e5c11890f85 check for invalid property names when setting defaults
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
597 else
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
598 printf ("%s::properties", class_name) >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
599 printf ("::has_core_property (const caseless_str& pname)\n{\n std::set<std::string> pnames = core_property_names ();\n\n return pnames.find (pname) != pnames.end ();\n}\n\n", class_name) >> filename;
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
600
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
601 printf ("std::set<std::string>\n") >> filename;
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
602 if (base)
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
603 printf ("base_properties") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
604 else
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
605 printf ("%s::properties", class_name) >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
606 printf ("::all_property_names (") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
607 if (base)
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
608 printf ("const std::string& cname") >> filename;
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
609 else
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
610 printf ("void") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
611 printf (") const\n{\n static std::set<std::string> all_pnames = core_property_names ();\n\n") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
612 if (base)
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
613 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 for (std::map<caseless_str, property, cmp_caseless_str>::const_iterator p = all_props.begin ();\n p != all_props.end (); p++)\n retval.insert (p->first);\n\n return retval;\n}\n\n") >> filename;
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
614 else
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
615 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\n return retval;\n}\n\n", class_name) >> filename;
9582
bdcfb756d721 improve error messages for ambiguous graphics property names
John W. Eaton <jwe@octave.org>
parents: 9185
diff changeset
616
9585
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
617 if (! base)
06b8b51dca48 also handle user-defined graphics properties in new property name validation scheme
John W. Eaton <jwe@octave.org>
parents: 9584
diff changeset
618 printf ("bool\n%s::properties::has_property (const caseless_str& pname) const\n{\n std::set<std::string> pnames = all_property_names ();\n\n return pnames.find (pname) != pnames.end ();\n}\n\n", class_name) >> filename;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
619 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
620 }
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
621
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
622 BEGIN {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
623 filename = "graphics-props.cc";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
624 printf ("// DO NOT EDIT! Generated automatically by genprops.awk.\n\n");
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
625 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
626 pcount = 0;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
627 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
628
8247
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
629 /BEGIN_PROPERTIES *\(.*\)/ {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
630 gather = 1;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
631 idx = 0;
7895
f1a1f6dd7fac avoid using gensub in genprops.awk
Jaroslav Hajek <highegg@gmail.com>
parents: 7865
diff changeset
632 str = $0;
8247
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
633 beg = index (str, "(") + 1;
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
634 len = index (str, ")") - beg;
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
635 args = substr (str, beg, len);
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
636 n = split (args, arg_list, ",");
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
637 if (n > 0)
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
638 class_name = arg_list[1];
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
639 if (n > 1)
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
640 object_name = arg_list[2];
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
641 else
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
642 object_name = class_name;
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
643 gsub (/ /, "", class_name);
e41f420875db set name of root_figure object to root
John W. Eaton <jwe@octave.org>
parents: 8139
diff changeset
644 gsub (/ /, "", object_name);
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
645 base = 0;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
646 next;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
647 }
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
648
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
649 /BEGIN_PROPERTIES/ {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
650 gather = 1;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
651 idx = 0;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
652 class_name = "";
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
653 base = 0;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
654 next;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
655 }
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
656
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
657 /BEGIN_BASE_PROPERTIES/ {
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
658 gather = 1;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
659 idx = 0;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
660 class_name = "base";
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
661 base = 1;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
662 next;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
663 }
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
664
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
665 /END_PROPERTIES/ {
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
666 emit_declarations();
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
667 emit_source();
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
668 gather = 0;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
669 next;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
670 }
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
671
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
672 {
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
673 if (gather)
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
674 {
7403
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
675 if (NF < 2 || /^[ \t]*\/\//)
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
676 next;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
677
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
678 idx++;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
679
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
680 field = 1;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
681
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
682 if ($field == "mutable")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
683 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
684 mutable[idx] = 1;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
685 field++;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
686 }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
687 else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
688 mutable[idx] = 0;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
689
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
690 type[idx] = $(field++);
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
691 ptype[idx] = (type[idx] ~ /^.*_property$/);
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
692 name[idx] = $(field++);
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
693
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
694 limits[idx] = 0;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
695 mode[idx] = 0;
7403
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
696 hidden[idx] = 0;
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
697 readonly[idx] = 0;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
698 emit_get[idx] = "definition";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
699 emit_set[idx] = "definition";
7397
26146201e68e [project @ 2008-01-18 05:12:03 by jwe]
jwe
parents: 7379
diff changeset
700 defval[idx] = "";
7427
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
701 updater[idx] = "";
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
702 factory[idx] = 1;
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
703 ## if (type[idx] == "octave_value")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
704 ## emit_ov_set[idx] = "";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
705 ## else
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
706 ## emit_ov_set[idx] = "definition";
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
707
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
708 if (NF >= field)
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
709 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
710 if ($field != ",")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
711 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
712 quals = $(field++);
7214
86d0b16f2bb2 [project @ 2007-11-29 03:40:04 by jwe]
jwe
parents: 7019
diff changeset
713
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
714 if (index (quals, "l"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
715 limits[idx] = 1;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
716
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
717 if (index (quals, "m"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
718 mode[idx] = 1;
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
719
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
720 ## There is a custom inline definition for the get function,
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
721 ## so we don't emit anything.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
722 if (index (quals, "g"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
723 emit_get[idx] = "";
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
724
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
725 ## There is a custom extern definition for the get function,
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
726 ## but we still emit the declaration.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
727 if (index (quals, "G"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
728 emit_get[idx] = "declaration";
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
729
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
730 ## There is a custom inline definition for the set function,
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
731 ## so we don't emit anything.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
732 if (index (quals, "s"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
733 emit_set[idx] = "";
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
734
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
735 ## There is a custom extern definition for the set function,
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
736 ## but we still emit the declaration.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
737 if (index (quals, "S"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
738 emit_set[idx] = "declaration";
7379
a78c7bccda91 [project @ 2008-01-15 18:42:29 by jwe]
jwe
parents: 7367
diff changeset
739
7403
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
740 ## The property is hidden
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
741 if (index (quals, "h"))
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
742 hidden[idx] = 1;
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
743
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
744 ## The property is read-only
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
745 if (index (quals, "r"))
135c13496faf [project @ 2008-01-19 06:06:46 by jwe]
jwe
parents: 7397
diff changeset
746 readonly[idx] = 1;
6904
1758d3d3d266 [project @ 2007-09-14 20:08:56 by jwe]
jwe
parents: 6883
diff changeset
747
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
748 ## There is an inline updater method that should be called
7427
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
749 ## from the set method
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
750 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
751 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
752
68550ad9ee9c Add support for extern updaters. Add set_figure_position interface to graphics_backend.
Michael Goffioul <michael.goffioul@gmail.com>
parents: 7523
diff changeset
753 ## 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
754 ## 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
755 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
756 updater[idx] = "extern";
7427
65f0a8ced9d2 [project @ 2008-01-28 22:42:18 by jwe]
jwe
parents: 7406
diff changeset
757
8061
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
758 ## There is not factory default value
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
759 if (index (quals, "f"))
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
760 factory[idx] = 0;
f819e8992367 Auto-generate base_properties
John W. Eaton <jwe@octave.org>
parents: 8059
diff changeset
761
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
762 ## ## emmit an asignment set function
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
763 ## if (index (quals, "a"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
764 ## emit_ov_set[idx] = "assignment";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
765 ##
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
766 ## if (type[idx] != "octave_value")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
767 ## {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
768 ## ## The 'o' and 'O' qualifiers are only useful when the
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
769 ## ## the property type is something other than an
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
770 ## ## octave_value.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
771 ##
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
772 ## ## There is a custom inline definition for the
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
773 ## ## octave_value version of the set function, so we
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
774 ## ## don't emit anything.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
775 ## if (index (quals, "o"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
776 ## emit_ov_set[idx] = "";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
777 ##
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
778 ## ## There is a custom extern definition for the
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
779 ## ## octave_value version of the set function, but we
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
780 ## ## still emit the declaration.
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
781 ## if (index (quals, "O"))
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
782 ## emit_ov_set[idx] = "declaration";
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
783 ## }
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
784 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
785
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
786 if (NF > field && $field == ",")
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
787 {
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
788 field++;
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
789
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
790 for (i = field; i <= NF; i++)
7397
26146201e68e [project @ 2008-01-18 05:12:03 by jwe]
jwe
parents: 7379
diff changeset
791 defval[idx] = (defval[idx] (i > field ? " " : "") $i);
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
792 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
793 }
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
794
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
795 }
6874
94bda6abc224 [project @ 2007-09-06 21:34:24 by jwe]
jwe
parents:
diff changeset
796 else
7363
c31e5dab4f85 [project @ 2008-01-12 08:21:57 by jwe]
jwe
parents: 7225
diff changeset
797 print $0;
6883
037c8b622a01 [project @ 2007-09-10 20:13:27 by jwe]
jwe
parents: 6875
diff changeset
798 }