1 /*
2 * Copyright © 2009 Intel Corporation
3 *
4 * Permission is hereby granted, free of charge, to any person obtaining a
5 * copy of this software and associated documentation files (the "Software"),
6 * to deal in the Software without restriction, including without limitation
7 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
8 * and/or sell copies of the Software, and to permit persons to whom the
9 * Software is furnished to do so, subject to the following conditions:
10 *
11 * The above copyright notice and this permission notice (including the next
12 * paragraph) shall be included in all copies or substantial portions of the
13 * Software.
14 *
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
18 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
20 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
21 * DEALINGS IN THE SOFTWARE.
22 */
23
24 #include <string.h>
25 #include "main/mtypes.h"
26 #include "prog_instruction.h"
27 #include "program_parser.h"
28
29
30 /**
31 * Extra assembly-level parser routines
32 *
33 * \author Ian Romanick <ian.d.romanick@intel.com>
34 */
35
36 int
_mesa_parse_instruction_suffix(const struct asm_parser_state * state,const char * suffix,struct prog_instruction * inst)37 _mesa_parse_instruction_suffix(const struct asm_parser_state *state,
38 const char *suffix,
39 struct prog_instruction *inst)
40 {
41 inst->CondUpdate = 0;
42 inst->CondDst = 0;
43 inst->SaturateMode = SATURATE_OFF;
44 inst->Precision = FLOAT32;
45
46
47 /* The first possible suffix element is the precision specifier from
48 * NV_fragment_program_option.
49 */
50 if (state->option.NV_fragment) {
51 switch (suffix[0]) {
52 case 'H':
53 inst->Precision = FLOAT16;
54 suffix++;
55 break;
56 case 'R':
57 inst->Precision = FLOAT32;
58 suffix++;
59 break;
60 case 'X':
61 inst->Precision = FIXED12;
62 suffix++;
63 break;
64 default:
65 break;
66 }
67 }
68
69 /* The next possible suffix element is the condition code modifier selection
70 * from NV_fragment_program_option.
71 */
72 if (state->option.NV_fragment) {
73 if (suffix[0] == 'C') {
74 inst->CondUpdate = 1;
75 suffix++;
76 }
77 }
78
79
80 /* The final possible suffix element is the saturation selector from
81 * ARB_fragment_program.
82 */
83 if (state->mode == ARB_fragment) {
84 if (strcmp(suffix, "_SAT") == 0) {
85 inst->SaturateMode = SATURATE_ZERO_ONE;
86 suffix += 4;
87 }
88 }
89
90
91 /* It is an error for all of the suffix string not to be consumed.
92 */
93 return suffix[0] == '\0';
94 }
95
96
97 int
_mesa_parse_cc(const char * s)98 _mesa_parse_cc(const char *s)
99 {
100 int cond = 0;
101
102 switch (s[0]) {
103 case 'E':
104 if (s[1] == 'Q') {
105 cond = COND_EQ;
106 }
107 break;
108
109 case 'F':
110 if (s[1] == 'L') {
111 cond = COND_FL;
112 }
113 break;
114
115 case 'G':
116 if (s[1] == 'E') {
117 cond = COND_GE;
118 } else if (s[1] == 'T') {
119 cond = COND_GT;
120 }
121 break;
122
123 case 'L':
124 if (s[1] == 'E') {
125 cond = COND_LE;
126 } else if (s[1] == 'T') {
127 cond = COND_LT;
128 }
129 break;
130
131 case 'N':
132 if (s[1] == 'E') {
133 cond = COND_NE;
134 }
135 break;
136
137 case 'T':
138 if (s[1] == 'R') {
139 cond = COND_TR;
140 }
141 break;
142
143 default:
144 break;
145 }
146
147 return ((cond == 0) || (s[2] != '\0')) ? 0 : cond;
148 }
149
150
151 int
_mesa_ARBvp_parse_option(struct asm_parser_state * state,const char * option)152 _mesa_ARBvp_parse_option(struct asm_parser_state *state, const char *option)
153 {
154 if (strcmp(option, "ARB_position_invariant") == 0) {
155 state->option.PositionInvariant = 1;
156 return 1;
157 }
158
159 return 0;
160 }
161
162
163 int
_mesa_ARBfp_parse_option(struct asm_parser_state * state,const char * option)164 _mesa_ARBfp_parse_option(struct asm_parser_state *state, const char *option)
165 {
166 /* All of the options currently supported start with "ARB_". The code is
167 * currently structured with nested if-statements because eventually options
168 * that start with "NV_" will be supported. This structure will result in
169 * less churn when those options are added.
170 */
171 if (strncmp(option, "ARB_", 4) == 0) {
172 /* Advance the pointer past the "ARB_" prefix.
173 */
174 option += 4;
175
176
177 if (strncmp(option, "fog_", 4) == 0) {
178 option += 4;
179
180 if (state->option.Fog == OPTION_NONE) {
181 if (strcmp(option, "exp") == 0) {
182 state->option.Fog = OPTION_FOG_EXP;
183 return 1;
184 } else if (strcmp(option, "exp2") == 0) {
185 state->option.Fog = OPTION_FOG_EXP2;
186 return 1;
187 } else if (strcmp(option, "linear") == 0) {
188 state->option.Fog = OPTION_FOG_LINEAR;
189 return 1;
190 }
191 }
192
193 return 0;
194 } else if (strncmp(option, "precision_hint_", 15) == 0) {
195 option += 15;
196
197 if (state->option.PrecisionHint == OPTION_NONE) {
198 if (strcmp(option, "nicest") == 0) {
199 state->option.PrecisionHint = OPTION_NICEST;
200 return 1;
201 } else if (strcmp(option, "fastest") == 0) {
202 state->option.PrecisionHint = OPTION_FASTEST;
203 return 1;
204 }
205 }
206
207 return 0;
208 } else if (strcmp(option, "draw_buffers") == 0) {
209 /* Don't need to check extension availability because all Mesa-based
210 * drivers support GL_ARB_draw_buffers.
211 */
212 state->option.DrawBuffers = 1;
213 return 1;
214 } else if (strcmp(option, "fragment_program_shadow") == 0) {
215 if (state->ctx->Extensions.ARB_fragment_program_shadow) {
216 state->option.Shadow = 1;
217 return 1;
218 }
219 } else if (strncmp(option, "fragment_coord_", 15) == 0) {
220 option += 15;
221 if (state->ctx->Extensions.ARB_fragment_coord_conventions) {
222 if (strcmp(option, "origin_upper_left") == 0) {
223 state->option.OriginUpperLeft = 1;
224 return 1;
225 }
226 else if (strcmp(option, "pixel_center_integer") == 0) {
227 state->option.PixelCenterInteger = 1;
228 return 1;
229 }
230 }
231 }
232 } else if (strncmp(option, "ATI_", 4) == 0) {
233 option += 4;
234
235 if (strcmp(option, "draw_buffers") == 0) {
236 /* Don't need to check extension availability because all Mesa-based
237 * drivers support GL_ATI_draw_buffers.
238 */
239 state->option.DrawBuffers = 1;
240 return 1;
241 }
242 } else if (strncmp(option, "NV_fragment_program", 19) == 0) {
243 option += 19;
244
245 /* Other NV_fragment_program strings may be supported later.
246 */
247 if (option[0] == '\0') {
248 if (state->ctx->Extensions.NV_fragment_program_option) {
249 state->option.NV_fragment = 1;
250 return 1;
251 }
252 }
253 } else if (strncmp(option, "MESA_", 5) == 0) {
254 option += 5;
255
256 if (strcmp(option, "texture_array") == 0) {
257 if (state->ctx->Extensions.MESA_texture_array) {
258 state->option.TexArray = 1;
259 return 1;
260 }
261 }
262 }
263
264 return 0;
265 }
266