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