src/mesa/program/program_parse_extra.c

   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
  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
  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
 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
 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 }