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
36int
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
97int
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
151int
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
163int
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