/*
 * Mesa 3-D graphics library
 * Version:  6.2
 *
 * Copyright (C) 1999-2004  Brian Paul   All Rights Reserved.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included
 * in all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
 * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 */

 /**
 * \file arbprogram.syn
 * ARB_fragment/vertex_program syntax
 * \author Michal Krol
 */

.syntax program;

/*
   This value must be incremented every time emit code values or structure of the production
   array changes. This value is placed at the beginning of the production array. The loader
   compares the value with its REVISION value. If they do not match, the loader is not up
   to date.
*/
.emtcode REVISION                                   0x0a

/* program type */
.emtcode FRAGMENT_PROGRAM                           0x01
.emtcode VERTEX_PROGRAM                             0x02

/* program section */
.emtcode OPTION                                     0x01
.emtcode INSTRUCTION                                0x02
.emtcode DECLARATION                                0x03
.emtcode END                                        0x04

/* GL_ARB_fragment_program option */
.emtcode ARB_PRECISION_HINT_FASTEST                 0x00
.emtcode ARB_PRECISION_HINT_NICEST                  0x01
.emtcode ARB_FOG_EXP                                0x02
.emtcode ARB_FOG_EXP2                               0x03
.emtcode ARB_FOG_LINEAR                             0x04

/* GL_ARB_vertex_program option */
.emtcode ARB_POSITION_INVARIANT                     0x05

/* GL_ARB_fragment_program_shadow option */
.emtcode ARB_FRAGMENT_PROGRAM_SHADOW                0x06

/* GL_ARB_draw_buffers option */
.emtcode ARB_DRAW_BUFFERS                           0x07

/* GL_MESA_texture_array option */
.emtcode MESA_TEXTURE_ARRAY                         0x08

/* GL_ARB_fragment_program instruction class */
.emtcode OP_ALU_INST                                0x00
.emtcode OP_TEX_INST                                0x01

/* GL_ARB_vertex_program instruction class */
/*       OP_ALU_INST */

/* GL_ARB_fragment_program instruction type */
.emtcode OP_ALU_VECTOR                               0x00
.emtcode OP_ALU_SCALAR                               0x01
.emtcode OP_ALU_BINSC                                0x02
.emtcode OP_ALU_BIN                                  0x03
.emtcode OP_ALU_TRI                                  0x04
.emtcode OP_ALU_SWZ                                  0x05
.emtcode OP_TEX_SAMPLE                               0x06
.emtcode OP_TEX_KIL                                  0x07

/* GL_ARB_vertex_program instruction type */
.emtcode OP_ALU_ARL                                  0x08
/*       OP_ALU_VECTOR */
/*       OP_ALU_SCALAR */
/*       OP_ALU_BINSC */
/*       OP_ALU_BIN */
/*       OP_ALU_TRI */
/*       OP_ALU_SWZ */

/* GL_ARB_fragment_program instruction code */
.emtcode OP_ABS                                     0x00
.emtcode OP_ABS_SAT                                 0x1B
.emtcode OP_FLR                                     0x09
.emtcode OP_FLR_SAT                                 0x26
.emtcode OP_FRC                                     0x0A
.emtcode OP_FRC_SAT                                 0x27
.emtcode OP_LIT                                     0x0C
.emtcode OP_LIT_SAT                                 0x2A
.emtcode OP_MOV                                     0x11
.emtcode OP_MOV_SAT                                 0x30
.emtcode OP_COS                                     0x1F
.emtcode OP_COS_SAT                                 0x20
.emtcode OP_EX2                                     0x07
.emtcode OP_EX2_SAT                                 0x25
.emtcode OP_LG2                                     0x0B
.emtcode OP_LG2_SAT                                 0x29
.emtcode OP_RCP                                     0x14
.emtcode OP_RCP_SAT                                 0x33
.emtcode OP_RSQ                                     0x15
.emtcode OP_RSQ_SAT                                 0x34
.emtcode OP_SIN                                     0x38
.emtcode OP_SIN_SAT                                 0x39
.emtcode OP_SCS                                     0x35
.emtcode OP_SCS_SAT                                 0x36
.emtcode OP_POW                                     0x13
.emtcode OP_POW_SAT                                 0x32
.emtcode OP_ADD                                     0x01
.emtcode OP_ADD_SAT                                 0x1C
.emtcode OP_DP3                                     0x03
.emtcode OP_DP3_SAT                                 0x21
.emtcode OP_DP4                                     0x04
.emtcode OP_DP4_SAT                                 0x22
.emtcode OP_DPH                                     0x05
.emtcode OP_DPH_SAT                                 0x23
.emtcode OP_DST                                     0x06
.emtcode OP_DST_SAT                                 0x24
.emtcode OP_MAX                                     0x0F
.emtcode OP_MAX_SAT                                 0x2E
.emtcode OP_MIN                                     0x10
.emtcode OP_MIN_SAT                                 0x2F
.emtcode OP_MUL                                     0x12
.emtcode OP_MUL_SAT                                 0x31
.emtcode OP_SGE                                     0x16
.emtcode OP_SGE_SAT                                 0x37
.emtcode OP_SLT                                     0x17
.emtcode OP_SLT_SAT                                 0x3A
.emtcode OP_SUB                                     0x18
.emtcode OP_SUB_SAT                                 0x3B
.emtcode OP_XPD                                     0x1A
.emtcode OP_XPD_SAT                                 0x43
.emtcode OP_CMP                                     0x1D
.emtcode OP_CMP_SAT                                 0x1E
.emtcode OP_LRP                                     0x2B
.emtcode OP_LRP_SAT                                 0x2C
.emtcode OP_MAD                                     0x0E
.emtcode OP_MAD_SAT                                 0x2D
.emtcode OP_SWZ                                     0x19
.emtcode OP_SWZ_SAT                                 0x3C
.emtcode OP_TEX                                     0x3D
.emtcode OP_TEX_SAT                                 0x3E
.emtcode OP_TXB                                     0x3F
.emtcode OP_TXB_SAT                                 0x40
.emtcode OP_TXP                                     0x41
.emtcode OP_TXP_SAT                                 0x42
.emtcode OP_KIL                                     0x28

/* GL_ARB_vertex_program instruction code */
.emtcode OP_ARL                                     0x02
/*       OP_ABS */
/*       OP_FLR */
/*       OP_FRC */
/*       OP_LIT */
/*       OP_MOV */
/*       OP_EX2 */
.emtcode OP_EXP                                     0x08
/*       OP_LG2 */
.emtcode OP_LOG                                     0x0D
/*       OP_RCP */
/*       OP_RSQ */
/*       OP_POW */
/*       OP_ADD */
/*       OP_DP3 */
/*       OP_DP4 */
/*       OP_DPH */
/*       OP_DST */
/*       OP_MAX */
/*       OP_MIN */
/*       OP_MUL */
/*       OP_SGE */
/*       OP_SLT */
/*       OP_SUB */
/*       OP_XPD */
/*       OP_MAD */
/*       OP_SWZ */

/* fragment attribute binding */
.emtcode FRAGMENT_ATTRIB_COLOR                      0x01
.emtcode FRAGMENT_ATTRIB_TEXCOORD                   0x02
.emtcode FRAGMENT_ATTRIB_FOGCOORD                   0x03
.emtcode FRAGMENT_ATTRIB_POSITION                   0x04

/* vertex attribute binding */
.emtcode VERTEX_ATTRIB_POSITION                     0x01
.emtcode VERTEX_ATTRIB_WEIGHT                       0x02
.emtcode VERTEX_ATTRIB_NORMAL                       0x03
.emtcode VERTEX_ATTRIB_COLOR                        0x04
.emtcode VERTEX_ATTRIB_FOGCOORD                     0x05
.emtcode VERTEX_ATTRIB_TEXCOORD                     0x06
.emtcode VERTEX_ATTRIB_MATRIXINDEX                  0x07
.emtcode VERTEX_ATTRIB_GENERIC                      0x08

/* fragment result binding */
.emtcode FRAGMENT_RESULT_COLOR                      0x01
.emtcode FRAGMENT_RESULT_DEPTH                      0x02

/* vertex result binding */
.emtcode VERTEX_RESULT_POSITION                     0x01
.emtcode VERTEX_RESULT_COLOR                        0x02
.emtcode VERTEX_RESULT_FOGCOORD                     0x03
.emtcode VERTEX_RESULT_POINTSIZE                    0x04
.emtcode VERTEX_RESULT_TEXCOORD                     0x05

/* texture target */
.emtcode TEXTARGET_1D                               0x01
.emtcode TEXTARGET_2D                               0x02
.emtcode TEXTARGET_3D                               0x03
.emtcode TEXTARGET_RECT                             0x04
.emtcode TEXTARGET_CUBE                             0x05
/* GL_ARB_fragment_program_shadow */
.emtcode TEXTARGET_SHADOW1D                         0x06
.emtcode TEXTARGET_SHADOW2D                         0x07
.emtcode TEXTARGET_SHADOWRECT                       0x08
/* GL_MESA_texture_array */
.emtcode TEXTARGET_1D_ARRAY                         0x09
.emtcode TEXTARGET_2D_ARRAY                         0x0a
.emtcode TEXTARGET_SHADOW1D_ARRAY                   0x0b
.emtcode TEXTARGET_SHADOW2D_ARRAY                   0x0c

/* face type */
.emtcode FACE_FRONT                                 0x00
.emtcode FACE_BACK                                  0x01

/* color type */
.emtcode COLOR_PRIMARY                              0x00
.emtcode COLOR_SECONDARY                            0x01

/* component */
.emtcode COMPONENT_X                                0x00
.emtcode COMPONENT_Y                                0x01
.emtcode COMPONENT_Z                                0x02
.emtcode COMPONENT_W                                0x03
.emtcode COMPONENT_0                                0x04
.emtcode COMPONENT_1                                0x05

/* array index type */
.emtcode ARRAY_INDEX_ABSOLUTE                       0x00
.emtcode ARRAY_INDEX_RELATIVE                       0x01

/* matrix name */
.emtcode MATRIX_MODELVIEW                           0x01
.emtcode MATRIX_PROJECTION                          0x02
.emtcode MATRIX_MVP                                 0x03
.emtcode MATRIX_TEXTURE                             0x04
.emtcode MATRIX_PALETTE                             0x05
.emtcode MATRIX_PROGRAM                             0x06

/* matrix modifier */
.emtcode MATRIX_MODIFIER_IDENTITY                   0x00
.emtcode MATRIX_MODIFIER_INVERSE                    0x01
.emtcode MATRIX_MODIFIER_TRANSPOSE                  0x02
.emtcode MATRIX_MODIFIER_INVTRANS                   0x03

/* constant type */
.emtcode CONSTANT_SCALAR                            0x01
.emtcode CONSTANT_VECTOR                            0x02

/* program param type */
.emtcode PROGRAM_PARAM_ENV                          0x01
.emtcode PROGRAM_PARAM_LOCAL                        0x02

/* register type */
.emtcode REGISTER_ATTRIB                            0x01
.emtcode REGISTER_PARAM                             0x02
.emtcode REGISTER_RESULT                            0x03
.emtcode REGISTER_ESTABLISHED_NAME                  0x04

/* param binding */
.emtcode PARAM_NULL                                 0x00
.emtcode PARAM_ARRAY_ELEMENT                        0x01
.emtcode PARAM_STATE_ELEMENT                        0x02
.emtcode PARAM_PROGRAM_ELEMENT                      0x03
.emtcode PARAM_PROGRAM_ELEMENTS                     0x04
.emtcode PARAM_CONSTANT                             0x05

/* param state property */
.emtcode STATE_MATERIAL                             0x01
.emtcode STATE_LIGHT                                0x02
.emtcode STATE_LIGHT_MODEL                          0x03
.emtcode STATE_LIGHT_PROD                           0x04
.emtcode STATE_FOG                                  0x05
.emtcode STATE_MATRIX_ROWS                          0x06
/* GL_ARB_fragment_program */
.emtcode STATE_TEX_ENV                              0x07
.emtcode STATE_DEPTH                                0x08
/* GL_ARB_vertex_program */
.emtcode STATE_TEX_GEN                              0x09
.emtcode STATE_CLIP_PLANE                           0x0A
.emtcode STATE_POINT                                0x0B

/* state material property */
.emtcode MATERIAL_AMBIENT                           0x01
.emtcode MATERIAL_DIFFUSE                           0x02
.emtcode MATERIAL_SPECULAR                          0x03
.emtcode MATERIAL_EMISSION                          0x04
.emtcode MATERIAL_SHININESS                         0x05

/* state light property */
.emtcode LIGHT_AMBIENT                              0x01
.emtcode LIGHT_DIFFUSE                              0x02
.emtcode LIGHT_SPECULAR                             0x03
.emtcode LIGHT_POSITION                             0x04
.emtcode LIGHT_ATTENUATION                          0x05
.emtcode LIGHT_HALF                                 0x06
.emtcode LIGHT_SPOT_DIRECTION                       0x07

/* state light model property */
.emtcode LIGHT_MODEL_AMBIENT                        0x01
.emtcode LIGHT_MODEL_SCENECOLOR                     0x02

/* state light product property */
.emtcode LIGHT_PROD_AMBIENT                         0x01
.emtcode LIGHT_PROD_DIFFUSE                         0x02
.emtcode LIGHT_PROD_SPECULAR                        0x03

/* state texture environment property */
.emtcode TEX_ENV_COLOR                              0x01

/* state texture generation coord property */
.emtcode TEX_GEN_EYE                                0x01
.emtcode TEX_GEN_OBJECT                             0x02

/* state fog property */
.emtcode FOG_COLOR                                  0x01
.emtcode FOG_PARAMS                                 0x02

/* state depth property */
.emtcode DEPTH_RANGE                                0x01

/* state point parameters property */
.emtcode POINT_SIZE                                 0x01
.emtcode POINT_ATTENUATION                          0x02

/* declaration */
.emtcode ATTRIB                                     0x01
.emtcode PARAM                                      0x02
.emtcode TEMP                                       0x03
.emtcode OUTPUT                                     0x04
.emtcode ALIAS                                      0x05
/* GL_ARB_vertex_program */
.emtcode ADDRESS                                    0x06

/* error messages */
.errtext UNKNOWN_PROGRAM_SIGNATURE                  "1001: '$e_signature$': unknown program signature"
.errtext MISSING_END_OR_INVALID_STATEMENT           "1002: '$e_statement$': invalid statement"
.errtext CODE_AFTER_END                             "1003: '$e_statement$': code after 'END' keyword"
.errtext INVALID_PROGRAM_OPTION                     "1004: '$e_identifier$': invalid program option"
.errtext EXT_SWIZ_COMP_EXPECTED                     "1005: extended swizzle component expected but '$e_token$' found"
.errtext TEX_TARGET_EXPECTED                        "1006: texture target expected but '$e_token$' found"
.errtext TEXTURE_EXPECTED                           "1007: 'texture' expected but '$e_identifier$' found"
.errtext SOURCE_REGISTER_EXPECTED                   "1008: source register expected but '$e_token$' found"
.errtext DESTINATION_REGISTER_EXPECTED              "1009: destination register expected but '$e_token$' found"
.errtext INVALID_ADDRESS_COMPONENT                  "1010: '$e_identifier$': invalid address component"
.errtext INVALID_ADDRESS_WRITEMASK                  "1011: '$e_identifier$': invalid address writemask"
.errtext INVALID_COMPONENT                          "1012: '$e_charordigit$': invalid component"
.errtext INVALID_SUFFIX                             "1013: '$e_identifier$': invalid suffix"
.errtext INVALID_WRITEMASK                          "1014: '$e_identifier$': invalid writemask"
.errtext FRAGMENT_EXPECTED                          "1015: 'fragment' expected but '$e_identifier$' found"
.errtext VERTEX_EXPECTED                            "1016: 'vertex' expected but '$e_identifier$' found"
.errtext INVALID_FRAGMENT_PROPERTY                  "1017: '$e_identifier$': invalid fragment property"
.errtext INVALID_VERTEX_PROPERTY                    "1018: '$e_identifier$': invalid vertex property"
.errtext INVALID_STATE_PROPERTY                     "1019: '$e_identifier$': invalid state property"
.errtext INVALID_MATERIAL_PROPERTY                  "1020: '$e_identifier$': invalid material property"
.errtext INVALID_LIGHT_PROPERTY                     "1021: '$e_identifier$': invalid light property"
.errtext INVALID_SPOT_PROPERTY                      "1022: '$e_identifier$': invalid spot property"
.errtext INVALID_LIGHTMODEL_PROPERTY                "1023: '$e_identifier$': invalid light model property"
.errtext INVALID_LIGHTPROD_PROPERTY                 "1024: '$e_identifier$': invalid light product property"
.errtext INVALID_TEXENV_PROPERTY                    "1025: '$e_identifier$': invalid texture environment property"
.errtext INVALID_TEXGEN_PROPERTY                    "1026: '$e_identifier$': invalid texture generating property"
.errtext INVALID_TEXGEN_COORD                       "1027: '$e_identifier$': invalid texture generating coord"
.errtext INVALID_FOG_PROPERTY                       "1028: '$e_identifier$': invalid fog property"
.errtext INVALID_DEPTH_PROPERTY                     "1029: '$e_identifier$': invalid depth property"
.errtext INVALID_CLIPPLANE_PROPERTY                 "1030: '$e_identifier$': invalid clip plane property"
.errtext INVALID_POINT_PROPERTY                     "1031: '$e_identifier$': invalid point property"
.errtext MATRIX_ROW_SELECTOR_OR_MODIFIER_EXPECTED   "1032: matrix row selector or modifier expected but '$e_token$' found"
.errtext INVALID_MATRIX_NAME                        "1033: '$e_identifier$': invalid matrix name"
.errtext INVALID_PROGRAM_PROPERTY                   "1034: '$e_identifier$': invalid program property"
.errtext RESULT_EXPECTED                            "1035: 'result' expected but '$e_token$' found"
.errtext INVALID_RESULT_PROPERTY                    "1036: '$e_identifier$': invalid result property"
.errtext INVALID_FACE_PROPERTY                      "1037: '$e_identifier$': invalid face property"
.errtext INVALID_COLOR_PROPERTY                     "1038: '$e_identifier$': invalid color property"
.errtext IDENTIFIER_EXPECTED                        "1039: identifier expected but '$e_token$' found"
.errtext RESERVED_KEYWORD                           "1040: use of reserved keyword as an identifier"
.errtext INTEGER_EXPECTED                           "1041: integer value expected but '$e_token$' found"
.errtext MISSING_SEMICOLON                          "1042: ';' expected but '$e_token$' found"
.errtext MISSING_COMMA                              "1043: ',' expected but '$e_token$' found"
.errtext MISSING_LBRACKET                           "1044: '[' expected but '$e_token$' found"
.errtext MISSING_RBRACKET                           "1045: ']' expected but '$e_token$' found"
.errtext MISSING_DOT                                "1046: '.' expected but '$e_token$' found"
.errtext MISSING_EQUAL                              "1047: '=' expected but '$e_token$' found"
.errtext MISSING_LBRACE                             "1048: '{' expected but '$e_token$' found"
.errtext MISSING_RBRACE                             "1049: '}' expected but '$e_token$' found"
.errtext MISSING_DOTDOT                             "1050: '..' expected but '$e_token$' found"
.errtext MISSING_FRACTION_OR_EXPONENT               "1051: missing fraction part or exponent"
.errtext MISSING_DOT_OR_EXPONENT                    "1052: missing '.' or exponent"
.errtext EXPONENT_VALUE_EXPECTED                    "1053: exponent value expected"
.errtext INTEGER_OUT_OF_RANGE                       "1054: integer value out of range"
.errtext OPERATION_NEEDS_DESTINATION_VARIABLE       "1055: operation needs destination variable"
.errtext OPERATION_NEEDS_SOURCE_VARIABLE            "1056: operation needs source variable"
.errtext ADDRESS_REGISTER_EXPECTED                  "1057: address register expected but '$e_token$' found"
.errtext ADDRESS_REGISTER_OR_INTEGER_EXPECTED       "1058: address register or integer literal expected but '$e_token$' found"

/* extension presence condition registers */

/* GL_ARB_vertex_blend */
/* GL_EXT_vertex_weighting */
.regbyte vertex_blend                               0x00

/* GL_ARB_matrix_palette */
.regbyte matrix_palette                             0x00

/* GL_ARB_point_parameters */
/* GL_EXT_point_parameters */
.regbyte point_parameters                           0x00

/* GL_EXT_secondary_color */
.regbyte secondary_color                            0x00

/* GL_EXT_fog_coord */
.regbyte fog_coord                                  0x00

/* GL_EXT_texture_rectangle */
/* GL_NV_texture_rectangle */
.regbyte texture_rectangle                          0x00

/* GL_ARB_fragment_program_shadow */
.regbyte fragment_program_shadow                    0x00

/* GL_ARB_draw_buffers */
.regbyte draw_buffers                               0x00

/* GL_MESA_texture_array */
.regbyte texture_array                              0x00

/* option presence condition registers */
/* they are all initially set to zero - when a particular OPTION is encountered, the appropriate */
/* register is set to 1 to indicate that the OPTION was specified. */

/* GL_ARB_fragment_program */
.regbyte ARB_precision_hint_fastest                 0x00
.regbyte ARB_precision_hint_nicest                  0x00
.regbyte ARB_fog_exp                                0x00
.regbyte ARB_fog_exp2                               0x00
.regbyte ARB_fog_linear                             0x00

/* GL_ARB_vertex_program */
.regbyte ARB_position_invariant                     0x00

/* GL_ARB_fragment_program_shadow */
.regbyte ARB_fragment_program_shadow                0x00

/* GL_ARB_draw_buffers */
.regbyte ARB_draw_buffers                           0x00

/* GL_MESA_texture_array */
.regbyte MESA_texture_array                         0x00

/* program target condition register */
/* this syntax script deals with two program targets - VERTEX_PROGRAM and FRAGMENT_PROGRAM. */
/* to distinguish between them we need a register that will store for us the current target. */
/* the client will typically set the register to apropriate value before parsing a particular */
/* program. the mapping between program targets and their values is listed below. */
/* */
/* program target               register value    */
/* ---------------------------------------------- */
/* FRAGMENT_PROGRAM             0x10              */
/* VERTEX_PROGRAM               0x20              */
/* */
/* the initial value of the register is 0 to catch potential errors with not setting the register */
/* with the proper value. */
.regbyte program_target                             0x00

/*
    <program>              ::= <optionSequence> <statementSequence> "END"
*/
program
    programs .error UNKNOWN_PROGRAM_SIGNATURE .emit REVISION;
programs
    .if (program_target == 0x10) frag_program_1_0 .emit FRAGMENT_PROGRAM .emit 0x01 .emit 0x00 .or
    .if (program_target == 0x20) vert_program_1_0 .emit VERTEX_PROGRAM .emit 0x01 .emit 0x00;
frag_program_1_0
    '!' .and '!' .and 'A' .and 'R' .and 'B' .and 'f' .and 'p' .and '1' .and '.' .and '0' .and
    optional_space .and fp_optionSequence .and fp_statementSequence .and
    "END" .error MISSING_END_OR_INVALID_STATEMENT .emit END .and optional_space .and
    '\0' .error CODE_AFTER_END;
vert_program_1_0
    '!' .and '!' .and 'A' .and 'R' .and 'B' .and 'v' .and 'p' .and '1' .and '.' .and '0' .and
    optional_space .and vp_optionSequence .and vp_statementSequence .and
    "END" .error MISSING_END_OR_INVALID_STATEMENT .emit END .and optional_space .and
    '\0' .error CODE_AFTER_END;

/*
    <optionSequence>       ::= <optionSequence> <option>
                             | ""
*/
fp_optionSequence
    .loop fp_option;
vp_optionSequence
    .loop vp_option;

/*
    <option>               ::= "OPTION" <identifier> ";"

NOTE: options ARB_precision_hint_nicest and ARB_precision_hint_fastest are exclusive. When one of
      these options is encountered, the other one is automatically disabled.
      the same applies to options ARB_fog_exp, ARB_fog_exp2 and ARB_fog_linear.
*/
fp_option
    "OPTION" .emit OPTION .and space .error IDENTIFIER_EXPECTED .and
    fp_optionString .error INVALID_PROGRAM_OPTION .and semicolon;
vp_option
    "OPTION" .emit OPTION .and space .error IDENTIFIER_EXPECTED .and
    vp_optionString .error INVALID_PROGRAM_OPTION .and semicolon;
fp_optionString
    .if (ARB_precision_hint_nicest == 0x00) "ARB_precision_hint_fastest"
        .emit ARB_PRECISION_HINT_FASTEST .load ARB_precision_hint_fastest 0x01 .or
    .if (ARB_precision_hint_fastest == 0x00) "ARB_precision_hint_nicest"
        .emit ARB_PRECISION_HINT_NICEST .load ARB_precision_hint_nicest 0x01 .or
    fp_ARB_fog_exp .emit ARB_FOG_EXP .load ARB_fog_exp 0x01 .or
    fp_ARB_fog_exp2 .emit ARB_FOG_EXP2 .load ARB_fog_exp2 0x01 .or
    fp_ARB_fog_linear .emit ARB_FOG_LINEAR .load ARB_fog_linear 0x01 .or
    .if (fragment_program_shadow != 0x00) "ARB_fragment_program_shadow"
        .emit ARB_FRAGMENT_PROGRAM_SHADOW .load ARB_fragment_program_shadow 0x01 .or
    .if (draw_buffers != 0x00) "ARB_draw_buffers" .emit ARB_DRAW_BUFFERS
        .load ARB_draw_buffers 0x01 .or
    .if (texture_array != 0x00) "MESA_texture_array" .emit MESA_TEXTURE_ARRAY
        .load MESA_texture_array 0x01;
vp_optionString
    "ARB_position_invariant" .emit ARB_POSITION_INVARIANT .load ARB_position_invariant 0x01;
fp_ARB_fog_exp
    .if (ARB_fog_exp2 == 0x00) .true .and .if (ARB_fog_linear == 0x00) "ARB_fog_exp";
fp_ARB_fog_exp2
    .if (ARB_fog_exp == 0x00) .true .and .if (ARB_fog_linear == 0x00) "ARB_fog_exp2";
fp_ARB_fog_linear
    .if (ARB_fog_exp == 0x00) .true .and .if (ARB_fog_exp2 == 0x00) "ARB_fog_linear";

/*
    <statementSequence>    ::= <statementSequence> <statement>
                             | ""
*/
fp_statementSequence
    .loop fp_statement;
vp_statementSequence
    .loop vp_statement;

/*
    <statement>            ::= <instruction> ";"
                             | <namingStatement> ";"

NOTE: ".emit $" in the definitions below means that we output instruction position (offset of
      the first character of instruction) for program debugging purposes.
*/
fp_statement
    fp_statement_1 .or fp_statement_2;
vp_statement
    vp_statement_1 .or vp_statement_2;
fp_statement_1
    fp_instruction .emit INSTRUCTION .emit $ .and semicolon;
fp_statement_2
    fp_namingStatement .emit DECLARATION .and semicolon;
vp_statement_1
    vp_instruction .emit INSTRUCTION .emit $ .and semicolon;
vp_statement_2
    vp_namingStatement .emit DECLARATION .and semicolon;

/*
fragment program
    <instruction>          ::= <ALUInstruction>
                             | <TexInstruction>

vertex program
    <instruction>          ::= <ARL_instruction>
                             | <VECTORop_instruction>
                             | <SCALARop_instruction>
                             | <BINSCop_instruction>
                             | <BINop_instruction>
                             | <TRIop_instruction>
                             | <SWZ_instruction>
*/
fp_instruction
    ALUInstruction .emit OP_ALU_INST .or
    TexInstruction .emit OP_TEX_INST;
vp_instruction
    ARL_instruction .emit OP_ALU_ARL .or
    vp_VECTORop_instruction .emit OP_ALU_VECTOR .or
    vp_SCALARop_instruction .emit OP_ALU_SCALAR .or
    vp_BINSCop_instruction .emit OP_ALU_BINSC .or
    vp_BINop_instruction .emit OP_ALU_BIN .or
    vp_TRIop_instruction .emit OP_ALU_TRI .or
    vp_SWZ_instruction .emit OP_ALU_SWZ;

/*
fragment program
    <ALUInstruction>       ::= <VECTORop_instruction>
                             | <SCALARop_instruction>
                             | <BINSCop_instruction>
                             | <BINop_instruction>
                             | <TRIop_instruction>
                             | <SWZ_instruction>
*/
ALUInstruction
    fp_VECTORop_instruction .emit OP_ALU_VECTOR .or
    fp_SCALARop_instruction .emit OP_ALU_SCALAR .or
    fp_BINSCop_instruction .emit OP_ALU_BINSC .or
    fp_BINop_instruction .emit OP_ALU_BIN .or
    fp_TRIop_instruction .emit OP_ALU_TRI .or
    fp_SWZ_instruction .emit OP_ALU_SWZ;

/*
fragment program
    <TexInstruction>       ::= <SAMPLE_instruction>
                             | <KIL_instruction>
*/
TexInstruction
    SAMPLE_instruction .emit OP_TEX_SAMPLE .or
    KIL_instruction .emit OP_TEX_KIL;

/*
vertex program
    <ARL_instruction>      ::= "ARL" <maskedAddrReg> "," <scalarSrcReg>
*/
ARL_instruction
    "ARL" .emit OP_ARL .and space_dst .and maskedAddrReg .and comma .and vp_scalarSrcReg;

/*
fragment program
    <VECTORop_instruction> ::= <VECTORop> <maskedDstReg> "," 
                               <vectorSrcReg>

vertex program
    <VECTORop_instruction> ::= <VECTORop> <maskedDstReg> "," <swizzleSrcReg>
*/
fp_VECTORop_instruction
    fp_VECTORop .and space_dst .and fp_maskedDstReg .and comma .and vectorSrcReg;
vp_VECTORop_instruction
    vp_VECTORop .and space_dst .and vp_maskedDstReg .and comma .and swizzleSrcReg;

/*
fragment program
    <VECTORop>             ::= "ABS" | "ABS_SAT"
                             | "FLR" | "FLR_SAT"
                             | "FRC" | "FRC_SAT"
                             | "LIT" | "LIT_SAT"
                             | "MOV" | "MOV_SAT"

vertex program
    <VECTORop>             ::= "ABS"
                             | "FLR"
                             | "FRC"
                             | "LIT"
                             | "MOV"
*/
fp_VECTORop
    "ABS" .emit OP_ABS .or "ABS_SAT" .emit OP_ABS_SAT .or
    "FLR" .emit OP_FLR .or "FLR_SAT" .emit OP_FLR_SAT .or
    "FRC" .emit OP_FRC .or "FRC_SAT" .emit OP_FRC_SAT .or
    "LIT" .emit OP_LIT .or "LIT_SAT" .emit OP_LIT_SAT .or
    "MOV" .emit OP_MOV .or "MOV_SAT" .emit OP_MOV_SAT;
vp_VECTORop
    "ABS" .emit OP_ABS .or
    "FLR" .emit OP_FLR .or
    "FRC" .emit OP_FRC .or
    "LIT" .emit OP_LIT .or
    "MOV" .emit OP_MOV;

/*
    <SCALARop_instruction> ::= <SCALARop> <maskedDstReg> "," <scalarSrcReg>
*/
fp_SCALARop_instruction
    fp_SCALARop .and space_dst .and fp_maskedDstReg .and comma .and fp_scalarSrcReg;
vp_SCALARop_instruction
    vp_SCALARop .and space_dst .and vp_maskedDstReg .and comma .and vp_scalarSrcReg;

/*
fragment program
    <SCALARop>             ::= "COS" | "COS_SAT"
                             | "EX2" | "EX2_SAT"
                             | "LG2" | "LG2_SAT"
                             | "RCP" | "RCP_SAT"
                             | "RSQ" | "RSQ_SAT"
                             | "SIN" | "SIN_SAT"
                             | "SCS" | "SCS_SAT"

vertex program
    <SCALARop>             ::= "EX2"
                             | "EXP"
                             | "LG2"
                             | "LOG"
                             | "RCP"
                             | "RSQ"
*/
fp_SCALARop
    "COS" .emit OP_COS .or "COS_SAT" .emit OP_COS_SAT .or
    "EX2" .emit OP_EX2 .or "EX2_SAT" .emit OP_EX2_SAT .or
    "LG2" .emit OP_LG2 .or "LG2_SAT" .emit OP_LG2_SAT .or
    "RCP" .emit OP_RCP .or "RCP_SAT" .emit OP_RCP_SAT .or
    "RSQ" .emit OP_RSQ .or "RSQ_SAT" .emit OP_RSQ_SAT .or
    "SIN" .emit OP_SIN .or "SIN_SAT" .emit OP_SIN_SAT .or
    "SCS" .emit OP_SCS .or "SCS_SAT" .emit OP_SCS_SAT;
vp_SCALARop
    "EX2" .emit OP_EX2 .or
    "EXP" .emit OP_EXP .or
    "LG2" .emit OP_LG2 .or
    "LOG" .emit OP_LOG .or
    "RCP" .emit OP_RCP .or
    "RSQ" .emit OP_RSQ;

/*
    <BINSCop_instruction>  ::= <BINSCop> <maskedDstReg> "," <scalarSrcReg> ","
                               <scalarSrcReg>
*/
fp_BINSCop_instruction
    fp_BINSCop .and space_dst .and fp_maskedDstReg .and comma .and fp_scalarSrcReg .and comma .and
    fp_scalarSrcReg;
vp_BINSCop_instruction
    vp_BINSCop .and space_dst .and vp_maskedDstReg .and comma .and vp_scalarSrcReg .and comma .and
    vp_scalarSrcReg;

/*
fragment program
    <BINSCop>              ::= "POW" | "POW_SAT"

vertex program
    <BINSCop>              ::= "POW"
*/
fp_BINSCop
    "POW" .emit OP_POW .or "POW_SAT" .emit OP_POW_SAT;
vp_BINSCop
    "POW" .emit OP_POW;

/*
fragment program
    <BINop_instruction>    ::= <BINop> <maskedDstReg> ","
                               <vectorSrcReg> "," <vectorSrcReg>

vertex program
    <BINop_instruction>    ::= <BINop> <maskedDstReg> ","
                               <swizzleSrcReg> "," <swizzleSrcReg>
*/
fp_BINop_instruction
    fp_BINop .and space_dst .and fp_maskedDstReg .and comma .and vectorSrcReg .and comma .and
    vectorSrcReg;
vp_BINop_instruction
    vp_BINop .and space_dst .and vp_maskedDstReg .and comma .and swizzleSrcReg .and comma .and
    swizzleSrcReg;

/*
fragment program
    <BINop>                ::= "ADD" | "ADD_SAT"
                             | "DP3" | "DP3_SAT"
                             | "DP4" | "DP4_SAT"
                             | "DPH" | "DPH_SAT"
                             | "DST" | "DST_SAT"
                             | "MAX" | "MAX_SAT"
                             | "MIN" | "MIN_SAT"
                             | "MUL" | "MUL_SAT"
                             | "SGE" | "SGE_SAT"
                             | "SLT" | "SLT_SAT"
                             | "SUB" | "SUB_SAT"
                             | "XPD" | "XPD_SAT"

vertex program
    <BINop>                ::= "ADD"
                             | "DP3"
                             | "DP4"
                             | "DPH"
                             | "DST"
                             | "MAX"
                             | "MIN"
                             | "MUL"
                             | "SGE"
                             | "SLT"
                             | "SUB"
                             | "XPD"
*/
fp_BINop
    "ADD" .emit OP_ADD .or "ADD_SAT" .emit OP_ADD_SAT .or
    "DP3" .emit OP_DP3 .or "DP3_SAT" .emit OP_DP3_SAT .or
    "DP4" .emit OP_DP4 .or "DP4_SAT" .emit OP_DP4_SAT .or
    "DPH" .emit OP_DPH .or "DPH_SAT" .emit OP_DPH_SAT .or
    "DST" .emit OP_DST .or "DST_SAT" .emit OP_DST_SAT .or
    "MAX" .emit OP_MAX .or "MAX_SAT" .emit OP_MAX_SAT .or
    "MIN" .emit OP_MIN .or "MIN_SAT" .emit OP_MIN_SAT .or
    "MUL" .emit OP_MUL .or "MUL_SAT" .emit OP_MUL_SAT .or
    "SGE" .emit OP_SGE .or "SGE_SAT" .emit OP_SGE_SAT .or
    "SLT" .emit OP_SLT .or "SLT_SAT" .emit OP_SLT_SAT .or
    "SUB" .emit OP_SUB .or "SUB_SAT" .emit OP_SUB_SAT .or
    "XPD" .emit OP_XPD .or "XPD_SAT" .emit OP_XPD_SAT;
vp_BINop
    "ADD" .emit OP_ADD .or
    "DP3" .emit OP_DP3 .or
    "DP4" .emit OP_DP4 .or
    "DPH" .emit OP_DPH .or
    "DST" .emit OP_DST .or
    "MAX" .emit OP_MAX .or
    "MIN" .emit OP_MIN .or
    "MUL" .emit OP_MUL .or
    "SGE" .emit OP_SGE .or
    "SLT" .emit OP_SLT .or
    "SUB" .emit OP_SUB .or
    "XPD" .emit OP_XPD;

/*
fragment program
    <TRIop_instruction>    ::= <TRIop> <maskedDstReg> ","
                               <vectorSrcReg> "," <vectorSrcReg> ","
                               <vectorSrcReg>

vertex program
    <TRIop_instruction>    ::= <TRIop> <maskedDstReg> ","
                               <swizzleSrcReg> "," <swizzleSrcReg> ","
                               <swizzleSrcReg>
*/
fp_TRIop_instruction
    fp_TRIop .and space_dst .and fp_maskedDstReg .and comma .and vectorSrcReg .and comma .and
    vectorSrcReg .and comma .and vectorSrcReg;
vp_TRIop_instruction
    vp_TRIop .and space_dst .and vp_maskedDstReg .and comma .and swizzleSrcReg .and comma .and
    swizzleSrcReg .and comma .and swizzleSrcReg;

/*
fragment program
    <TRIop>                ::= "CMP" | "CMP_SAT"
                             | "LRP" | "LRP_SAT"
                             | "MAD" | "MAD_SAT"

vertex program
    <TRIop>                ::= "MAD"
*/
fp_TRIop
    "CMP" .emit OP_CMP .or "CMP_SAT" .emit OP_CMP_SAT .or
    "LRP" .emit OP_LRP .or "LRP_SAT" .emit OP_LRP_SAT .or
    "MAD" .emit OP_MAD .or "MAD_SAT" .emit OP_MAD_SAT;
vp_TRIop
    "MAD" .emit OP_MAD;

/*
fragment program
    <SWZ_instruction>      ::= <SWZop> <maskedDstReg> "," 
                               <srcReg> "," <extendedSwizzle>

vertex program
    <SWZ_instruction>      ::= "SWZ" <maskedDstReg> "," <srcReg> "," 
                               <extendedSwizzle>
*/
fp_SWZ_instruction
    SWZop .and space_dst .and fp_maskedDstReg .and comma .and fp_srcReg .and comma .and
    fp_extendedSwizzle .error EXT_SWIZ_COMP_EXPECTED;
vp_SWZ_instruction
    "SWZ" .emit OP_SWZ .and space_dst .and vp_maskedDstReg .and comma .and vp_srcReg .and comma .and
    vp_extendedSwizzle .error EXT_SWIZ_COMP_EXPECTED;

/*
fragment program
    <SWZop>                ::= "SWZ" | "SWZ_SAT"
*/
SWZop
    "SWZ" .emit OP_SWZ .or "SWZ_SAT" .emit OP_SWZ_SAT;

/*
fragment program
    <SAMPLE_instruction>   ::= <SAMPLEop> <maskedDstReg> ","
                               <vectorSrcReg> "," <texImageUnit> "," 
                               <texTarget>
*/
SAMPLE_instruction
    SAMPLEop .and space_dst .and fp_maskedDstReg .and comma .and vectorSrcReg .and comma .and
    texImageUnit .and comma .and texTarget .error TEX_TARGET_EXPECTED;

/*
fragment program
    <SAMPLEop>             ::= "TEX" | "TEX_SAT"
                             | "TXP" | "TXP_SAT"
                             | "TXB" | "TXB_SAT"
*/
SAMPLEop
    "TEX" .emit OP_TEX .or "TEX_SAT" .emit OP_TEX_SAT .or
    "TXB" .emit OP_TXB .or "TXB_SAT" .emit OP_TXB_SAT .or
    "TXP" .emit OP_TXP .or "TXP_SAT" .emit OP_TXP_SAT;

/*
fragment program
    <KIL_instruction>      ::= "KIL" <vectorSrcReg>
*/
KIL_instruction
    "KIL" .emit OP_KIL .and space_src .and vectorSrcReg;

/*
fragment program
    <texImageUnit>         ::= "texture" <optTexImageUnitNum>
*/
texImageUnit
    "texture" .error TEXTURE_EXPECTED .and optTexImageUnitNum;

/*
fragment program
    <texTarget>            ::= "1D"
                             | "2D"
                             | "3D"
                             | "CUBE"
                             | "RECT"
                             | <shadowTarget> (if option ARB_fragment_program_shadow present)
                             | <arrayTarget> (if option MESA_texture_array present)
*/
texTarget
    "1D" .emit TEXTARGET_1D .or
    "2D" .emit TEXTARGET_2D .or
    "3D" .emit TEXTARGET_3D .or
    .if (texture_rectangle != 0x00) "RECT" .emit TEXTARGET_RECT .or
    "CUBE" .emit TEXTARGET_CUBE .or
    .if (ARB_fragment_program_shadow != 0x00) shadowTarget .or
    .if (MESA_texture_array != 0x00) arrayTarget;

/*
GL_ARB_fragment_program_shadow
    <shadowTarget>         ::= "SHADOW1D"
                             | "SHADOW2D"
                             | "SHADOWRECT"
                             | <shadowArrayTarget> (if option MESA_texture_array present)
*/
shadowTarget
    "SHADOW1D" .emit TEXTARGET_SHADOW1D .or
    "SHADOW2D" .emit TEXTARGET_SHADOW2D .or
    .if (texture_rectangle != 0x00) "SHADOWRECT" .emit TEXTARGET_SHADOWRECT .or
    .if (MESA_texture_array != 0x00) shadowArrayTarget;

/*
GL_MESA_texture_array

    <arrayTarget>         ::= "ARRAY1D"
                             | "ARRAY2D"

    <shadowArrayTarget>   ::= "SHADOWARRAY1D"
                             | "SHADOWARRAY2D"
*/

arrayTarget
    "ARRAY1D" .emit TEXTARGET_1D_ARRAY .or
    "ARRAY2D" .emit TEXTARGET_2D_ARRAY;

shadowArrayTarget
    "SHADOWARRAY1D" .emit TEXTARGET_SHADOW1D_ARRAY .or
    "SHADOWARRAY2D" .emit TEXTARGET_SHADOW2D_ARRAY;

/*
fragment program
    <optTexImageUnitNum>   ::= ""
                             | "[" <texImageUnitNum> "]"
*/
optTexImageUnitNum
    optTexImageUnitNum_1 .or .true .emit 0x00;
optTexImageUnitNum_1
    lbracket_ne .and texImageUnitNum .and rbracket;

/*
fragment program
    <texImageUnitNum>      ::= <integer> from 0 to 
                               MAX_TEXTURE_IMAGE_UNITS_ARB-1
*/
texImageUnitNum
    integer;

/*
    <scalarSrcReg>         ::= <optionalSign> <srcReg> <scalarSuffix>
*/
fp_scalarSrcReg
    optionalSign .and fp_srcReg .and fp_scalarSuffix;
vp_scalarSrcReg
    optionalSign .and vp_srcReg .and vp_scalarSuffix;

/*
vertex program
    <swizzleSrcReg>        ::= <optionalSign> <srcReg> <swizzleSuffix>
*/
swizzleSrcReg
    optionalSign .and vp_srcReg .and swizzleSuffix;

/*
fragment program
    <vectorSrcReg>         ::= <optionalSign> <srcReg> <optionalSuffix> 
*/
vectorSrcReg
    optionalSign .and fp_srcReg .and optionalSuffix;

/*
    <maskedDstReg>         ::= <dstReg> <optionalMask>
*/
fp_maskedDstReg
    fp_dstReg .and fp_optionalMask;
vp_maskedDstReg
    vp_dstReg .and vp_optionalMask;

/*
vertex program
    <maskedAddrReg>        ::= <addrReg> <addrWriteMask>
*/
maskedAddrReg
    addrReg .error ADDRESS_REGISTER_EXPECTED .and addrWriteMask;

/*
fragment program
    <extendedSwizzle>      ::= <xyzwExtendedSwizzle>
                             | <rgbaExtendedSwizzle>

vertex program
    <extendedSwizzle>      ::= <extSwizComp> "," <extSwizComp> "," 
                                 <extSwizComp> "," <extSwizComp>

NOTE: do NOT change the order of <rgbaExtendedSwizzle> and <xyzwExtendedSwizzle> rulez
*/
fp_extendedSwizzle
    rgbaExtendedSwizzle .or xyzwExtendedSwizzle;
vp_extendedSwizzle
    extSwizComp .and comma .and
    extSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    extSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    extSwizComp .error EXT_SWIZ_COMP_EXPECTED;

/*
fragment program
    <xyzwExtendedSwizzle>  ::= <xyzwExtSwizComp> "," <xyzwExtSwizComp> "," 
                               <xyzwExtSwizComp> "," <xyzwExtSwizComp>
*/
xyzwExtendedSwizzle
    xyzwExtSwizComp .and comma .and
    xyzwExtSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    xyzwExtSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    xyzwExtSwizComp .error EXT_SWIZ_COMP_EXPECTED;

/*
fragment program
    <rgbaExtendedSwizzle>  ::= <rgbaExtSwizComp> "," <rgbaExtSwizComp> "," 
                               <rgbaExtSwizComp> "," <rgbaExtSwizComp>
*/
rgbaExtendedSwizzle
    rgbaExtendedSwizzle_1 .or rgbaExtendedSwizzle_2 .or rgbaExtendedSwizzle_3 .or
    rgbaExtendedSwizzle_4;
rgbaExtendedSwizzle_1
    rgbaExtSwizComp_digit .and comma .and rgbaExtSwizComp_digit .and comma .and
    rgbaExtSwizComp_digit .and comma .and rgbaExtSwizComp;
rgbaExtendedSwizzle_2
    rgbaExtSwizComp_digit .and comma .and rgbaExtSwizComp_digit .and comma .and
    rgbaExtSwizComp_alpha .and comma .and rgbaExtSwizComp .error EXT_SWIZ_COMP_EXPECTED;
rgbaExtendedSwizzle_3
    rgbaExtSwizComp_digit .and comma .and rgbaExtSwizComp_alpha .and comma .and
    rgbaExtSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    rgbaExtSwizComp .error EXT_SWIZ_COMP_EXPECTED;
rgbaExtendedSwizzle_4
    rgbaExtSwizComp_alpha .and comma .and 
    rgbaExtSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    rgbaExtSwizComp .error EXT_SWIZ_COMP_EXPECTED .and comma .and
    rgbaExtSwizComp .error EXT_SWIZ_COMP_EXPECTED;

/*
fragment program
    <xyzwExtSwizComp>      ::= <optionalSign> <xyzwExtSwizSel>
*/
xyzwExtSwizComp
    optionalSign .and xyzwExtSwizSel;

/*
fragment program
    <rgbaExtSwizComp>      ::= <optionalSign> <rgbaExtSwizSel>
*/
rgbaExtSwizComp
    optionalSign .and rgbaExtSwizSel;
rgbaExtSwizComp_digit
    optionalSign .and rgbaExtSwizSel_digit;
rgbaExtSwizComp_alpha
    optionalSign .and rgbaExtSwizSel_alpha;

/*
vertex program
    <extSwizComp>          ::= <optionalSign> <extSwizSel>
*/
extSwizComp
    optionalSign .and extSwizSel;

/*
fragment program
    <xyzwExtSwizSel>       ::= "0" 
                             | "1" 
                             | <xyzwComponent>
*/
xyzwExtSwizSel
    "0" .emit COMPONENT_0 .or "1" .emit COMPONENT_1 .or xyzwComponent_single;

/*
fragment program
    <rgbaExtSwizSel>       ::= "0" 
                             | "1" 
                             | <rgbaComponent>
*/
rgbaExtSwizSel
    rgbaExtSwizSel_digit .or rgbaExtSwizSel_alpha;
rgbaExtSwizSel_digit
    "0" .emit COMPONENT_0 .or "1" .emit COMPONENT_1;
rgbaExtSwizSel_alpha
    rgbaComponent_single;

/*
vertex program
    <extSwizSel>           ::= "0" 
                             | "1" 
                             | <component>
*/
extSwizSel
    "0" .emit COMPONENT_0 .or "1" .emit COMPONENT_1 .or vp_component_single;

/*
fragment program
    <srcReg>               ::= <fragmentAttribReg>
                             | <temporaryReg>
                             | <progParamReg>

vertex program
    <srcReg>               ::= <vertexAttribReg>
                             | <temporaryReg>
                             | <progParamReg>
*/
fp_srcReg
    fp_srcReg_1 .error SOURCE_REGISTER_EXPECTED;
vp_srcReg
    vp_srcReg_1 .error SOURCE_REGISTER_EXPECTED;
fp_srcReg_1
    fragmentAttribReg .emit REGISTER_ATTRIB .or
    fp_progParamReg .emit REGISTER_PARAM .or
    fp_temporaryReg .emit REGISTER_ESTABLISHED_NAME;
vp_srcReg_1
    vertexAttribReg .emit REGISTER_ATTRIB .or
    vp_progParamReg .emit REGISTER_PARAM .or
    vp_temporaryReg .emit REGISTER_ESTABLISHED_NAME;

/*
fragment program
    <dstReg>               ::= <temporaryReg>
                             | <fragmentResultReg>

vertex program
    <dstReg>               ::= <temporaryReg>
                             | <vertexResultReg>
*/
fp_dstReg
    fp_dstReg_1 .error DESTINATION_REGISTER_EXPECTED;
vp_dstReg
    vp_dstReg_1 .error DESTINATION_REGISTER_EXPECTED;
fp_dstReg_1
    fragmentResultReg .emit REGISTER_RESULT .or
    fp_temporaryReg .emit REGISTER_ESTABLISHED_NAME;
vp_dstReg_1
    vertexResultReg .emit REGISTER_RESULT .or
    vp_temporaryReg .emit REGISTER_ESTABLISHED_NAME;

/*
fragment program
    <fragmentAttribReg>    ::= <establishedName>
                             | <fragAttribBinding>

NOTE: <establishedName> is driven by <temporaryReg> rule at the end of <srcReg>
*/
fragmentAttribReg
    /*fp_establishedName .or */fragAttribBinding;

/*
vertex program
    <vertexAttribReg>      ::= <establishedName>
                             | <vtxAttribBinding>

NOTE: <establishedName> is driven by <temporaryReg> rule at the end of <srcReg>
*/
vertexAttribReg
    vtxAttribBinding;

/*
    <temporaryReg>         ::= <establishedName>
*/
fp_temporaryReg
    fp_establishedName_no_error_on_identifier;
vp_temporaryReg
    vp_establishedName_no_error_on_identifier;

/*
fragment program
    <progParamReg>         ::= <progParamSingle>
                             | <progParamArray> "[" <progParamArrayAbs> "]"
                             | <paramSingleItemUse>

vertex program
    <progParamReg>         ::= <progParamSingle>
                             | <progParamArray> "[" <progParamArrayMem> "]"
                             | <paramSingleItemUse>
*/
fp_progParamReg
    fp_paramSingleItemUse .or fp_progParamReg_1 .or fp_progParamSingle;
vp_progParamReg
    vp_paramSingleItemUse .or vp_progParamReg_1 .or vp_progParamSingle;
fp_progParamReg_1
    fp_progParamArray .emit PARAM_ARRAY_ELEMENT .and lbracket_ne .and progParamArrayAbs .and
    rbracket;
vp_progParamReg_1
    vp_progParamArray .emit PARAM_ARRAY_ELEMENT .and lbracket_ne .and progParamArrayMem .and
    rbracket;

/*
    <progParamSingle>      ::= <establishedName>

NOTE: <establishedName> is driven by <temporaryReg> rule at the end of <srcReg>
*/
fp_progParamSingle
    .false;
vp_progParamSingle
    .false;

/*
    <progParamArray>       ::= <establishedName>
*/
fp_progParamArray
    fp_establishedName_no_error_on_identifier;
vp_progParamArray
    vp_establishedName_no_error_on_identifier;

/*
vertex program
    <progParamArrayMem>    ::= <progParamArrayAbs>
                             | <progParamArrayRel>
*/
progParamArrayMem
    progParamArrayAbs .or progParamArrayRel;

/*
    <progParamArrayAbs>    ::= <integer>
*/
progParamArrayAbs
    integer_ne .emit ARRAY_INDEX_ABSOLUTE;

/*
vertex program
    <progParamArrayRel>    ::= <addrReg> <addrComponent> <addrRegRelOffset>
*/
progParamArrayRel
    addrReg .error ADDRESS_REGISTER_OR_INTEGER_EXPECTED .emit ARRAY_INDEX_RELATIVE .and
    addrComponent .and addrRegRelOffset;

/*
vertex program
    <addrRegRelOffset>     ::= ""
                             | "+" <addrRegPosOffset>
                             | "-" <addrRegNegOffset>
*/
addrRegRelOffset
    addrRegRelOffset_1 .or addrRegRelOffset_2 .or .true .emit 0x00;
addrRegRelOffset_1
    plus_ne .and addrRegPosOffset;
addrRegRelOffset_2
    minus_ne .and addrRegNegOffset;

/*
vertex program
    <addrRegPosOffset>     ::= <integer> from 0 to 63
*/
addrRegPosOffset
    integer_0_63;

/*
vertex program
    <addrRegNegOffset>     ::= <integer> from 0 to 64
*/
addrRegNegOffset
    integer_0_64;

/*
fragment program
    <fragmentResultReg>    ::= <establishedName>
                             | <resultBinding>

NOTE: <establishedName> is driven by <temporaryReg> rule at the end of <dstReg>
*/
fragmentResultReg
    fp_resultBinding;

/*
vertex program
    <vertexResultReg>      ::= <establishedName>
                             | <resultBinding>

NOTE: <establishedName> is driven by <temporaryReg> rule at the end of <dstReg>
*/
vertexResultReg
    vp_resultBinding;

/*
vertex program
    <addrReg>              ::= <establishedName>
*/
addrReg
    vp_establishedName_no_error_on_identifier;

/*
vertex program
    <addrComponent>        ::= "." "x"
*/
addrComponent
    dot .and "x" .error INVALID_ADDRESS_COMPONENT .emit COMPONENT_X .emit COMPONENT_X
    .emit COMPONENT_X .emit COMPONENT_X;

/*
vertex program
    <addrWriteMask>        ::= "." "x"
*/
addrWriteMask
    dot .and "x" .error INVALID_ADDRESS_WRITEMASK .emit 0x08;

/*
    <scalarSuffix>         ::= "." <component>
*/
fp_scalarSuffix
    dot .and fp_component_single .error INVALID_COMPONENT;
vp_scalarSuffix
    dot .and vp_component_single .error INVALID_COMPONENT;

/*
vertex program
    <swizzleSuffix>        ::= ""
                             | "." <component>
                             | "." <component> <component>
                                   <component> <component>
*/
swizzleSuffix
    swizzleSuffix_1 .or
    .true .emit COMPONENT_X .emit COMPONENT_Y .emit COMPONENT_Z .emit COMPONENT_W;
swizzleSuffix_1
    dot_ne .and swizzleSuffix_2 .error INVALID_SUFFIX;
swizzleSuffix_2
    swizzleSuffix_3 .or swizzleSuffix_4;
swizzleSuffix_3
    vp_component_multi .and vp_component_multi .and vp_component_multi .error INVALID_COMPONENT .and
    vp_component_multi .error INVALID_COMPONENT;
swizzleSuffix_4
    "x" .emit COMPONENT_X .emit COMPONENT_X .emit COMPONENT_X .emit COMPONENT_X .or
    "y" .emit COMPONENT_Y .emit COMPONENT_Y .emit COMPONENT_Y .emit COMPONENT_Y .or
    "z" .emit COMPONENT_Z .emit COMPONENT_Z .emit COMPONENT_Z .emit COMPONENT_Z .or
    "w" .emit COMPONENT_W .emit COMPONENT_W .emit COMPONENT_W .emit COMPONENT_W;

/*
fragment program
    <optionalSuffix>       ::= "" 
                             | "." <component> 
                             | "." <xyzwComponent> <xyzwComponent>
                                   <xyzwComponent> <xyzwComponent>
                             | "." <rgbaComponent> <rgbaComponent>
                                   <rgbaComponent> <rgbaComponent>
*/
optionalSuffix
    optionalSuffix_1 .or
    .true .emit COMPONENT_X .emit COMPONENT_Y .emit COMPONENT_Z .emit COMPONENT_W;
optionalSuffix_1
    dot_ne .and optionalSuffix_2 .error INVALID_SUFFIX;
optionalSuffix_2
    optionalSuffix_3 .or optionalSuffix_4 .or optionalSuffix_5;
optionalSuffix_3
    xyzwComponent_multi .and xyzwComponent_multi .and
    xyzwComponent_multi .error INVALID_COMPONENT .and xyzwComponent_multi .error INVALID_COMPONENT;
optionalSuffix_4
    rgbaComponent_multi .and rgbaComponent_multi .and
    rgbaComponent_multi .error INVALID_COMPONENT .and rgbaComponent_multi .error INVALID_COMPONENT;
optionalSuffix_5
    "x" .emit COMPONENT_X .emit COMPONENT_X .emit COMPONENT_X .emit COMPONENT_X .or
    "y" .emit COMPONENT_Y .emit COMPONENT_Y .emit COMPONENT_Y .emit COMPONENT_Y .or
    "z" .emit COMPONENT_Z .emit COMPONENT_Z .emit COMPONENT_Z .emit COMPONENT_Z .or
    "w" .emit COMPONENT_W .emit COMPONENT_W .emit COMPONENT_W .emit COMPONENT_W .or
    "r" .emit COMPONENT_X .emit COMPONENT_X .emit COMPONENT_X .emit COMPONENT_X .or
    "g" .emit COMPONENT_Y .emit COMPONENT_Y .emit COMPONENT_Y .emit COMPONENT_Y .or
    "b" .emit COMPONENT_Z .emit COMPONENT_Z .emit COMPONENT_Z .emit COMPONENT_Z .or
    "a" .emit COMPONENT_W .emit COMPONENT_W .emit COMPONENT_W .emit COMPONENT_W;

/*
fragment program
    <component>            ::= <xyzwComponent>
                             | <rgbaComponent>

vertex program
    <component>            ::= "x"
                             | "y"
                             | "z"
                             | "w"
*/
fp_component_single
    xyzwComponent_single .or rgbaComponent_single;
vp_component_multi
    'x' .emit COMPONENT_X .or 'y' .emit COMPONENT_Y .or 'z' .emit COMPONENT_Z .or
    'w' .emit COMPONENT_W;
vp_component_single
    "x" .emit COMPONENT_X .or "y" .emit COMPONENT_Y .or "z" .emit COMPONENT_Z .or
    "w" .emit COMPONENT_W;

/*
fragment program
    <xyzwComponent>        ::= "x" | "y" | "z" | "w"
*/
xyzwComponent_multi
    'x' .emit COMPONENT_X .or 'y' .emit COMPONENT_Y .or 'z' .emit COMPONENT_Z .or
    'w' .emit COMPONENT_W;
xyzwComponent_single
    "x" .emit COMPONENT_X .or "y" .emit COMPONENT_Y .or "z" .emit COMPONENT_Z .or
    "w" .emit COMPONENT_W;

/*
fragment program
    <rgbaComponent>        ::= "r" | "g" | "b" | "a"
*/
rgbaComponent_multi
    'r' .emit COMPONENT_X .or 'g' .emit COMPONENT_Y .or 'b' .emit COMPONENT_Z .or
    'a' .emit COMPONENT_W;
rgbaComponent_single
    "r" .emit COMPONENT_X .or "g" .emit COMPONENT_Y .or "b" .emit COMPONENT_Z .or
    "a" .emit COMPONENT_W;

/*
fragment program
    <optionalMask>         ::= ""
                             | <xyzwMask>
                             | <rgbaMask>

vertex program
    <optionalMask>         ::= ""
                             | "." "x"
                             | "." "y"
                             | "." "xy"
                             | "." "z"
                             | "." "xz"
                             | "." "yz"
                             | "." "xyz"
                             | "." "w"
                             | "." "xw"
                             | "." "yw"
                             | "." "xyw"
                             | "." "zw"
                             | "." "xzw"
                             | "." "yzw"
                             | "." "xyzw"

NOTE: do NOT change the order of <rgbaMask> and <xyzwMask> rulez
*/
fp_optionalMask
    rgbaMask .or xyzwMask .or .true .emit 0x0F;
vp_optionalMask
    xyzwMask .or .true .emit 0x0F;

/*
fragment program
    <xyzwMask>             ::= "." "x"
                             | "." "y"
                             | "." "xy"
                             | "." "z"
                             | "." "xz"
                             | "." "yz"
                             | "." "xyz"
                             | "." "w"
                             | "." "xw"
                             | "." "yw"
                             | "." "xyw"
                             | "." "zw"
                             | "." "xzw"
                             | "." "yzw"
                             | "." "xyzw"

NOTE: <xyzwMask> is also referenced by the vertex program symbol <optionalMask>.
*/
xyzwMask
    dot_ne .and xyzwMask_1 .error INVALID_WRITEMASK;
xyzwMask_1
    "xyzw" .emit 0x0F .or "xyz" .emit 0x0E .or "xyw" .emit 0x0D .or "xy" .emit 0x0C .or
    "xzw" .emit 0x0B .or "xz" .emit 0x0A .or "xw" .emit 0x09 .or "x" .emit 0x08 .or
    "yzw" .emit 0x07 .or "yz" .emit 0x06 .or "yw" .emit 0x05 .or "y" .emit 0x04 .or
    "zw" .emit 0x03 .or "z" .emit 0x02 .or "w" .emit 0x01;

/*
fragment program
    <rgbaMask>             ::= "." "r"
                             | "." "g"
                             | "." "rg"
                             | "." "b"
                             | "." "rb"
                             | "." "gb"
                             | "." "rgb"
                             | "." "a"
                             | "." "ra"
                             | "." "ga"
                             | "." "rga"
                             | "." "ba"
                             | "." "rba"
                             | "." "gba"
                             | "." "rgba"
*/
rgbaMask
    dot_ne .and rgbaMask_1;
rgbaMask_1
    "rgba" .emit 0x0F .or "rgb" .emit 0x0E .or "rga" .emit 0x0D .or "rg" .emit 0x0C .or
    "rba" .emit 0x0B .or "rb" .emit 0x0A .or "ra" .emit 0x09 .or "r" .emit 0x08 .or
    "gba" .emit 0x07 .or "gb" .emit 0x06 .or "ga" .emit 0x05 .or "g" .emit 0x04 .or
    "ba" .emit 0x03 .or "b" .emit 0x02 .or "a" .emit 0x01;

/*
fragment program
    <namingStatement>      ::= <ATTRIB_statement>
                             | <PARAM_statement>
                             | <TEMP_statement>
                             | <OUTPUT_statement>
                             | <ALIAS_statement>

vertex program
    <namingStatement>      ::= <ATTRIB_statement>
                             | <PARAM_statement>
                             | <TEMP_statement>
                             | <ADDRESS_statement>
                             | <OUTPUT_statement>
                             | <ALIAS_statement>
*/
fp_namingStatement
    fp_ATTRIB_statement .emit ATTRIB .or
    fp_PARAM_statement .emit PARAM .or
    fp_TEMP_statement .emit TEMP .or
    fp_OUTPUT_statement .emit OUTPUT .or
    fp_ALIAS_statement .emit ALIAS;
vp_namingStatement
    vp_ATTRIB_statement .emit ATTRIB .or
    vp_PARAM_statement .emit PARAM .or
    vp_TEMP_statement .emit TEMP .or
    ADDRESS_statement .emit ADDRESS .or
    vp_OUTPUT_statement .emit OUTPUT .or
    vp_ALIAS_statement .emit ALIAS;

/*
fragment program
    <ATTRIB_statement>     ::= "ATTRIB" <establishName> "="
                                 <fragAttribBinding>

vertex program
    <ATTRIB_statement>     ::= "ATTRIB" <establishName> "="
                                 <vtxAttribBinding>
*/
fp_ATTRIB_statement
    "ATTRIB" .and space .and fp_establishName .and equal .and
    fragAttribBinding .error FRAGMENT_EXPECTED;
vp_ATTRIB_statement
    "ATTRIB" .and space .and vp_establishName .and equal .and
    vtxAttribBinding .error VERTEX_EXPECTED;

/*
fragment program
    <fragAttribBinding>    ::= "fragment" "." <fragAttribItem>
*/
fragAttribBinding
    "fragment" .and dot .and fragAttribItem .error INVALID_FRAGMENT_PROPERTY;

/*
vertex program
    <vtxAttribBinding>     ::= "vertex" "." <vtxAttribItem>
*/
vtxAttribBinding
    "vertex" .and dot .and vtxAttribItem .error INVALID_VERTEX_PROPERTY;

/*
fragment program
    <fragAttribItem>       ::= "color" <optColorType>
                             | "texcoord" <optTexCoordNum>
                             | "fogcoord"
                             | "position"
*/
fragAttribItem
    fragAttribItem_1 .emit FRAGMENT_ATTRIB_COLOR .or
    fragAttribItem_2 .emit FRAGMENT_ATTRIB_TEXCOORD .or
    .if (fog_coord != 0x00) "fogcoord" .emit FRAGMENT_ATTRIB_FOGCOORD .or
    "position" .emit FRAGMENT_ATTRIB_POSITION;
fragAttribItem_1
    "color" .and optColorType;
fragAttribItem_2
    "texcoord" .and optTexCoordNum;

/*
vertex program
    <vtxAttribItem>        ::= "position"
                             | "weight" <vtxOptWeightNum>
                             | "normal"
                             | "color" <optColorType>
                             | "fogcoord"
                             | "texcoord" <optTexCoordNum>
                             | "matrixindex" "[" <vtxWeightNum> "]"
                             | "attrib" "[" <vtxAttribNum> "]"
*/
vtxAttribItem
    "position" .emit VERTEX_ATTRIB_POSITION .or
    .if (vertex_blend != 0x00) vtxAttribItem_1 .emit VERTEX_ATTRIB_WEIGHT .or
    "normal" .emit VERTEX_ATTRIB_NORMAL .or
    vtxAttribItem_2 .emit VERTEX_ATTRIB_COLOR .or
    "fogcoord" .emit VERTEX_ATTRIB_FOGCOORD .or
    vtxAttribItem_3 .emit VERTEX_ATTRIB_TEXCOORD .or
    .if (matrix_palette != 0x00) vtxAttribItem_4 .emit VERTEX_ATTRIB_MATRIXINDEX .or
    vtxAttribItem_5 .emit VERTEX_ATTRIB_GENERIC;
vtxAttribItem_1
    "weight" .and vtxOptWeightNum;
vtxAttribItem_2
    "color" .and optColorType;
vtxAttribItem_3
    "texcoord" .and optTexCoordNum;
vtxAttribItem_4
    "matrixindex" .and lbracket .and vtxWeightNum .and rbracket;
vtxAttribItem_5
    "attrib" .and lbracket .and vtxAttribNum .and rbracket;

/*
vertex program
    <vtxAttribNum>         ::= <integer> from 0 to MAX_VERTEX_ATTRIBS_ARB-1
*/
vtxAttribNum
    integer;

/*
vertex program
    <vtxOptWeightNum>      ::= ""
                             | "[" <vtxWeightNum> "]"
*/
vtxOptWeightNum
    vtxOptWeightNum_1 .or .true .emit 0x00;
vtxOptWeightNum_1
    lbracket_ne .and vtxWeightNum .and rbracket;

/*
vertex program
    <vtxWeightNum>         ::= <integer> from 0 to MAX_VERTEX_UNITS_ARB-1,
                                 must be divisible by four
*/
vtxWeightNum
    integer;

/*
    <PARAM_statement>      ::= <PARAM_singleStmt>
                             | <PARAM_multipleStmt>
*/
fp_PARAM_statement
    fp_PARAM_multipleStmt .or fp_PARAM_singleStmt;
vp_PARAM_statement
    vp_PARAM_multipleStmt .or vp_PARAM_singleStmt;

/*
    <PARAM_singleStmt>     ::= "PARAM" <establishName> <paramSingleInit>
*/
fp_PARAM_singleStmt
    "PARAM" .and space .and fp_establishName .and .true .emit 0x00 .and fp_paramSingleInit .and
    .true .emit PARAM_NULL;
vp_PARAM_singleStmt
    "PARAM" .and space .and vp_establishName .and .true .emit 0x00 .and vp_paramSingleInit .and
    .true .emit PARAM_NULL;

/*
    <PARAM_multipleStmt>   ::= "PARAM" <establishName> "[" <optArraySize> "]"
                                   <paramMultipleInit>
*/
fp_PARAM_multipleStmt
    "PARAM" .and space .and fp_establishName .and lbracket_ne .and optArraySize .and rbracket .and
    fp_paramMultipleInit .and .true .emit PARAM_NULL;
vp_PARAM_multipleStmt
    "PARAM" .and space .and vp_establishName .and lbracket_ne .and optArraySize .and rbracket .and
    vp_paramMultipleInit .and .true .emit PARAM_NULL;

/*
    <optArraySize>         ::= ""
                             | <integer> from 1 to MAX_PROGRAM_PARAMETERS_ARB
                                 (maximum number of allowed program 
                                  parameter bindings)
*/
optArraySize
    optional_integer;

/*
    <paramSingleInit>      ::= "=" <paramSingleItemDecl>
*/
fp_paramSingleInit
    equal .and fp_paramSingleItemDecl;
vp_paramSingleInit
    equal .and vp_paramSingleItemDecl;

/*
    <paramMultipleInit>    ::= "=" "{" <paramMultInitList> "}"
*/
fp_paramMultipleInit
    equal .and lbrace .and fp_paramMultInitList .and rbrace;
vp_paramMultipleInit
    equal .and lbrace .and vp_paramMultInitList .and rbrace;

/*
    <paramMultInitList>    ::= <paramMultipleItem>
                             | <paramMultipleItem> "," <paramMultiInitList>
*/
fp_paramMultInitList
    fp_paramMultInitList_1 .or fp_paramMultipleItem;
vp_paramMultInitList
    vp_paramMultInitList_1 .or vp_paramMultipleItem;
fp_paramMultInitList_1
    fp_paramMultipleItem .and comma_ne .and fp_paramMultInitList;
vp_paramMultInitList_1
    vp_paramMultipleItem .and comma_ne .and vp_paramMultInitList;

/*
    <paramSingleItemDecl>  ::= <stateSingleItem>
                             | <programSingleItem>
                             | <paramConstDecl>
*/
fp_paramSingleItemDecl
    fp_stateSingleItem .emit PARAM_STATE_ELEMENT .or
    programSingleItem .emit PARAM_PROGRAM_ELEMENT .or
    paramConstDecl .emit PARAM_CONSTANT;
vp_paramSingleItemDecl
    vp_stateSingleItem .emit PARAM_STATE_ELEMENT .or
    programSingleItem .emit PARAM_PROGRAM_ELEMENT .or
    paramConstDecl .emit PARAM_CONSTANT;

/*
    <paramSingleItemUse>   ::= <stateSingleItem>
                             | <programSingleItem>
                             | <paramConstUse>
*/
fp_paramSingleItemUse
    fp_stateSingleItem .emit PARAM_STATE_ELEMENT .or
    programSingleItem .emit PARAM_PROGRAM_ELEMENT .or
    paramConstUse .emit PARAM_CONSTANT;
vp_paramSingleItemUse
    vp_stateSingleItem .emit PARAM_STATE_ELEMENT .or
    programSingleItem .emit PARAM_PROGRAM_ELEMENT .or
    paramConstUse .emit PARAM_CONSTANT;

/*
    <paramMultipleItem>    ::= <stateMultipleItem>
                             | <programMultipleItem>
                             | <paramConstDecl>
*/
fp_paramMultipleItem
    fp_stateMultipleItem .emit PARAM_STATE_ELEMENT .or
    programMultipleItem .emit PARAM_PROGRAM_ELEMENT .or
    paramConstDecl .emit PARAM_CONSTANT;
vp_paramMultipleItem
    vp_stateMultipleItem .emit PARAM_STATE_ELEMENT .or
    programMultipleItem .emit PARAM_PROGRAM_ELEMENT .or
    paramConstDecl .emit PARAM_CONSTANT;

/*
    <stateMultipleItem>    ::= <stateSingleItem>
                             | "state" "." <stateMatrixRows>
*/
fp_stateMultipleItem
    stateMultipleItem_1 .or fp_stateSingleItem;
vp_stateMultipleItem
    stateMultipleItem_1 .or vp_stateSingleItem;
stateMultipleItem_1
    "state" .and dot .and stateMatrixRows .emit STATE_MATRIX_ROWS;

/*
fragment program
    <stateSingleItem>      ::= "state" "." <stateMaterialItem>
                             | "state" "." <stateLightItem>
                             | "state" "." <stateLightModelItem>
                             | "state" "." <stateLightProdItem>
                             | "state" "." <stateTexEnvItem>
                             | "state" "." <stateFogItem>
                             | "state" "." <stateDepthItem>
                             | "state" "." <stateMatrixRow>

vertex program
    <stateSingleItem>      ::= "state" "." <stateMaterialItem>
                             | "state" "." <stateLightItem>
                             | "state" "." <stateLightModelItem>
                             | "state" "." <stateLightProdItem>
                             | "state" "." <stateTexGenItem>
                             | "state" "." <stateFogItem>
                             | "state" "." <stateClipPlaneItem>
                             | "state" "." <statePointItem>
                             | "state" "." <stateMatrixRow>
*/
fp_stateSingleItem
    "state" .and dot .and fp_stateSingleItem_1 .error INVALID_STATE_PROPERTY;
vp_stateSingleItem
    "state" .and dot .and vp_stateSingleItem_1 .error INVALID_STATE_PROPERTY;
fp_stateSingleItem_1
    stateSingleItem_1 .or stateSingleItem_2 .or stateSingleItem_3 .or stateSingleItem_4 .or
    stateSingleItem_5 .or stateSingleItem_7 .or stateSingleItem_8 .or stateSingleItem_11;
vp_stateSingleItem_1
    stateSingleItem_1 .or stateSingleItem_2 .or stateSingleItem_3 .or stateSingleItem_4 .or
    stateSingleItem_6 .or stateSingleItem_7 .or stateSingleItem_9 .or stateSingleItem_10 .or
    stateSingleItem_11;
stateSingleItem_1
    stateMaterialItem .emit STATE_MATERIAL;
stateSingleItem_2
    stateLightItem .emit STATE_LIGHT;
stateSingleItem_3
    stateLightModelItem .emit STATE_LIGHT_MODEL;
stateSingleItem_4
    stateLightProdItem .emit STATE_LIGHT_PROD;
stateSingleItem_5
    stateTexEnvItem .emit STATE_TEX_ENV;
stateSingleItem_6
    stateTexGenItem .emit STATE_TEX_GEN;
stateSingleItem_7
    stateFogItem .emit STATE_FOG;
stateSingleItem_8
    stateDepthItem .emit STATE_DEPTH;
stateSingleItem_9
    stateClipPlaneItem .emit STATE_CLIP_PLANE;
stateSingleItem_10
    statePointItem .emit STATE_POINT;
stateSingleItem_11
    stateMatrixRow .emit STATE_MATRIX_ROWS;

/*
    <stateMaterialItem>    ::= "material" <optFaceType> "." <stateMatProperty>
*/
stateMaterialItem
    "material" .and optFaceType .and dot .and stateMatProperty .error INVALID_MATERIAL_PROPERTY;

/*
    <stateMatProperty>     ::= "ambient"
                             | "diffuse"
                             | "specular"
                             | "emission"
                             | "shininess"
*/
stateMatProperty
    "ambient" .emit MATERIAL_AMBIENT .or
    "diffuse" .emit MATERIAL_DIFFUSE .or
    "specular" .emit MATERIAL_SPECULAR .or
    "emission" .emit MATERIAL_EMISSION .or
    "shininess" .emit MATERIAL_SHININESS;

/*
    <stateLightItem>       ::= "light" "[" <stateLightNumber> "]" "." 
                                 <stateLightProperty>
*/
stateLightItem
    "light" .and lbracket .and stateLightNumber .and rbracket .and dot .and
    stateLightProperty .error INVALID_LIGHT_PROPERTY;

/*
    <stateLightProperty>   ::= "ambient"
                             | "diffuse" 
                             | "specular"
                             | "position"
                             | "attenuation"
                             | "spot" "." <stateSpotProperty>
                             | "half"
*/
stateLightProperty
    "ambient" .emit LIGHT_AMBIENT .or
    "diffuse" .emit LIGHT_DIFFUSE .or
    "specular" .emit LIGHT_SPECULAR .or
    "position" .emit LIGHT_POSITION .or
    "attenuation" .emit LIGHT_ATTENUATION .or
    stateLightProperty_1 .emit LIGHT_SPOT_DIRECTION .or
    "half" .emit LIGHT_HALF;
stateLightProperty_1
    "spot" .and dot .and stateSpotProperty .error INVALID_SPOT_PROPERTY;

/*
    <stateSpotProperty>    ::= "direction" 
*/
stateSpotProperty
    "direction";

/*
    <stateLightModelItem>  ::= "lightmodel" <stateLModProperty>
*/
stateLightModelItem
    "lightmodel" .and stateLModProperty .error INVALID_LIGHTMODEL_PROPERTY;

/*
    <stateLModProperty>    ::= "." "ambient"
                             | <optFaceType> "." "scenecolor"
*/
stateLModProperty
    stateLModProperty_1 .or stateLModProperty_2;
stateLModProperty_1
    dot .and "ambient" .emit LIGHT_MODEL_AMBIENT;
stateLModProperty_2
    stateLModProperty_3 .emit LIGHT_MODEL_SCENECOLOR;
stateLModProperty_3
    optFaceType .and dot .and "scenecolor";

/*
    <stateLightProdItem>   ::= "lightprod" "[" <stateLightNumber> "]"
                                 <optFaceType> "." <stateLProdProperty>
*/
stateLightProdItem
    "lightprod" .and lbracket .and stateLightNumber .and rbracket .and optFaceType .and dot .and
    stateLProdProperty .error INVALID_LIGHTPROD_PROPERTY;

/*
    <stateLProdProperty>   ::= "ambient"
                             | "diffuse"
                             | "specular"
*/
stateLProdProperty
    "ambient" .emit LIGHT_PROD_AMBIENT .or
    "diffuse" .emit LIGHT_PROD_DIFFUSE .or
    "specular" .emit LIGHT_PROD_SPECULAR;

/*
    <stateLightNumber>     ::= <integer> from 0 to MAX_LIGHTS-1
*/
stateLightNumber
    integer;

/*
fragment program
    <stateTexEnvItem>      ::= "texenv" <optLegacyTexUnitNum> "." 
                                 <stateTexEnvProperty>
*/
stateTexEnvItem
    "texenv" .and optLegacyTexUnitNum .and dot .and
    stateTexEnvProperty .error INVALID_TEXENV_PROPERTY;

/*
fragment program
    <stateTexEnvProperty>  ::= "color"
*/
stateTexEnvProperty
    "color" .emit TEX_ENV_COLOR;

/*
fragment program
    <optLegacyTexUnitNum>  ::= ""
                             | "[" <legacyTexUnitNum> "]"
*/
optLegacyTexUnitNum
    optLegacyTexUnitNum_1 .or .true .emit 0x00;
optLegacyTexUnitNum_1
    lbracket_ne .and legacyTexUnitNum .and rbracket;

/*
fragment program
    <legacyTexUnitNum>     ::= <integer> from 0 to MAX_TEXTURE_UNITS-1
*/
legacyTexUnitNum
    integer;

/*
vertex program
    <stateTexGenItem>      ::= "texgen" <optTexCoordNum> "."
                                 <stateTexGenType> "." <stateTexGenCoord>
*/
stateTexGenItem
    "texgen" .and optTexCoordNum .and dot .and stateTexGenType .error INVALID_TEXGEN_PROPERTY .and
    dot .and stateTexGenCoord .error INVALID_TEXGEN_COORD;

/*
vertex program
    <stateTexGenType>      ::= "eye"
                             | "object"
*/
stateTexGenType
    "eye" .emit TEX_GEN_EYE .or
    "object" .emit TEX_GEN_OBJECT;

/*
vertex program
    <stateTexGenCoord>     ::= "s"
                             | "t"
                             | "r"
                             | "q"
*/
stateTexGenCoord
    "s" .emit COMPONENT_X .or
    "t" .emit COMPONENT_Y .or
    "r" .emit COMPONENT_Z .or
    "q" .emit COMPONENT_W;

/*
    <stateFogItem>         ::= "fog" "." <stateFogProperty>
*/
stateFogItem
    "fog" .and dot .and stateFogProperty .error INVALID_FOG_PROPERTY;

/*
    <stateFogProperty>     ::= "color"
                             | "params"
*/
stateFogProperty
    "color" .emit FOG_COLOR .or
    "params" .emit FOG_PARAMS;

/*
fragment program
    <stateDepthItem>       ::= "depth" "." <stateDepthProperty>
*/
stateDepthItem
    "depth" .and dot .and stateDepthProperty .error INVALID_DEPTH_PROPERTY;

/*
fragment program
    <stateDepthProperty>   ::= "range"
*/
stateDepthProperty
    "range" .emit DEPTH_RANGE;

/*
vertex program
    <stateClipPlaneItem>   ::= "clip" "[" <stateClipPlaneNum> "]" "." "plane"
*/
stateClipPlaneItem
    "clip" .and lbracket .and stateClipPlaneNum .and rbracket .and dot .and
    "plane" .error INVALID_CLIPPLANE_PROPERTY;

/*
vertex program
    <stateClipPlaneNum>    ::= <integer> from 0 to MAX_CLIP_PLANES-1
*/
stateClipPlaneNum
    integer;

/*
vertex program
    <statePointItem>       ::= "point" "." <statePointProperty>
*/
statePointItem
    "point" .and dot .and statePointProperty .error INVALID_POINT_PROPERTY;

/*
vertex program
    <statePointProperty>   ::= "size"
                             | "attenuation"
*/
statePointProperty
    "size" .emit POINT_SIZE .or
    .if (point_parameters != 0x00) "attenuation" .emit POINT_ATTENUATION;

/*
    <stateMatrixRow>       ::= <stateMatrixItem> "." "row" "[" 
                                  <stateMatrixRowNum> "]"
*/
stateMatrixRow
    stateMatrixItem .and dot .and "row" .error MATRIX_ROW_SELECTOR_OR_MODIFIER_EXPECTED .and
    lbracket .and stateMatrixRowNum .and rbracket .emit 0x0;

/*
    <stateMatrixRows>      ::= <stateMatrixItem> <optMatrixRows>
*/
stateMatrixRows
    stateMatrixItem .and optMatrixRows;

/*
    <optMatrixRows>        ::= ""
                             | "." "row" "[" <stateMatrixRowNum> ".." 
                                  <stateMatrixRowNum> "]"
*/
optMatrixRows
    optMatrixRows_1 .or .true .emit 0x0 .emit '3' .emit 0x0 .emit $;
optMatrixRows_1
    dot_ne .and "row" .error MATRIX_ROW_SELECTOR_OR_MODIFIER_EXPECTED .and lbracket .and
    stateMatrixRowNum .and dotdot .and stateMatrixRowNum .and rbracket;

/*
    <stateMatrixItem>      ::= "matrix" "." <stateMatrixName> 
                               <stateOptMatModifier>
*/
stateMatrixItem
    "matrix" .and dot .and stateMatrixName .error INVALID_MATRIX_NAME .and stateOptMatModifier;

/*
    <stateOptMatModifier>  ::= ""
                             | "." <stateMatModifier>
*/
stateOptMatModifier
    stateOptMatModifier_1 .or .true .emit MATRIX_MODIFIER_IDENTITY;
stateOptMatModifier_1
    dot_ne .and stateMatModifier;

/*
    <stateMatModifier>     ::= "inverse" 
                             | "transpose" 
                             | "invtrans"
*/
stateMatModifier
    "inverse" .emit MATRIX_MODIFIER_INVERSE .or
    "transpose" .emit MATRIX_MODIFIER_TRANSPOSE .or
    "invtrans" .emit MATRIX_MODIFIER_INVTRANS;

/*
    <stateMatrixRowNum>    ::= <integer> from 0 to 3
*/
stateMatrixRowNum
    integer_0_3;

/*
    <stateMatrixName>      ::= "modelview" <stateOptModMatNum>
                             | "projection"
                             | "mvp"
                             | "texture" <optTexCoordNum>
                             | "palette" "[" <statePaletteMatNum> "]"
                             | "program" "[" <stateProgramMatNum> "]"
*/
stateMatrixName
    stateMatrixName_1_1 .emit MATRIX_MODELVIEW .or
    "projection" .emit MATRIX_PROJECTION .or
    "mvp" .emit MATRIX_MVP .or
    stateMatrixName_1_2 .emit MATRIX_TEXTURE .or
    .if (matrix_palette != 0x00) stateMatrixName_1_3 .emit MATRIX_PALETTE .or
    stateMatrixName_1_4 .emit MATRIX_PROGRAM;
stateMatrixName_1_1
    "modelview" .and stateOptModMatNum;
stateMatrixName_1_2
    "texture" .and optTexCoordNum;
stateMatrixName_1_3
    "palette" .and lbracket .and statePaletteMatNum .and rbracket;
stateMatrixName_1_4
    "program" .and lbracket .and stateProgramMatNum .and rbracket;

/*
    <stateOptModMatNum>    ::= ""
                             | "[" <stateModMatNum> "]"
*/
stateOptModMatNum
    .if (vertex_blend != 0x00) stateOptModMatNum_1 .or
    .true .emit 0x00;
stateOptModMatNum_1
    lbracket_ne .and stateModMatNum .and rbracket;

/*
    <stateModMatNum>       ::= <integer> from 0 to MAX_VERTEX_UNITS_ARB-1
*/
stateModMatNum
    integer;

/*
    <optTexCoordNum>       ::= ""
                             | "[" <texCoordNum> "]"
*/
optTexCoordNum
    optTexCoordNum_1 .or .true .emit 0x00;
optTexCoordNum_1
    lbracket_ne .and texCoordNum .and rbracket;

/*
    <texCoordNum>          ::= <integer> from 0 to MAX_TEXTURE_COORDS_ARB-1
*/
texCoordNum
    integer;

/*
    <statePaletteMatNum>   ::= <integer> from 0 to MAX_PALETTE_MATRICES_ARB-1
*/
statePaletteMatNum
    integer;

/*
    <stateProgramMatNum>   ::= <integer> from 0 to MAX_PROGRAM_MATRICES_ARB-1
*/
stateProgramMatNum
    integer;

/*
    <programSingleItem>    ::= <progEnvParam>
                             | <progLocalParam>

NOTE: <programSingleItem> has been modified for correct error handling. If program property
      is neither "env" nor "local" INVALID_PROGRAM_PROPERTY is generated.
*/
programSingleItem
    "program" .and dot .and programSingleItem_1 .error INVALID_PROGRAM_PROPERTY;
programSingleItem_1
    progEnvParam .or progLocalParam;

/*
    <programMultipleItem>  ::= <progEnvParams>
                             | <progLocalParams>

NOTE: <programMultipleItem> has been modified for correct error handling. If program property
      is neither "env" nor "local" INVALID_PROGRAM_PROPERTY is generated.
*/
programMultipleItem
    "program" .and dot .and programMultipleItem_1 .error INVALID_PROGRAM_PROPERTY;
programMultipleItem_1
    progEnvParams .or progLocalParams;

/*
    <progEnvParams>        ::= "program" "." "env" 
                                 "[" <progEnvParamNums> "]"

NOTE: "program" "." has been moved to <programMultipleItem>.
*/
progEnvParams
    "env" .emit PROGRAM_PARAM_ENV .and lbracket .and progEnvParamNums .and rbracket;

/*
    <progEnvParamNums>     ::= <progEnvParamNum>
                             | <progEnvParamNum> ".." <progEnvParamNum>
*/
progEnvParamNums
    progEnvParamNums_1 .or progEnvParamNums_2;
progEnvParamNums_1
    progEnvParamNum .and dotdot_ne .and progEnvParamNum;
progEnvParamNums_2
    progEnvParamNum .and .true .emit 0x00;

/*
    <progEnvParam>         ::= "program" "." "env" 
                                 "[" <progEnvParamNum> "]"

NOTE: "program" "." has been moved to <programSingleItem>.
*/
progEnvParam
    "env" .emit PROGRAM_PARAM_ENV .and lbracket .and progEnvParamNum .and rbracket .emit 0x00;

/*
    <progLocalParams>      ::= "program" "." "local" 
                                 "[" <progLocalParamNums> "]"

NOTE: "program" "." has been moved to <programMultipleItem>.
*/
progLocalParams
    "local" .emit PROGRAM_PARAM_LOCAL .and lbracket .and progLocalParamNums .and rbracket;

/*
    <progLocalParamNums>   ::= <progLocalParamNum>
                             | <progLocalParamNum> ".." <progLocalParamNum>
*/
progLocalParamNums
    progLocalParamNums_1 .or progLocalParamNums_2;
progLocalParamNums_1
    progLocalParamNum .and dotdot_ne .and progLocalParamNum;
progLocalParamNums_2
    progLocalParamNum .and .true .emit 0x00;

/*
    <progLocalParam>       ::= "program" "." "local" 
                                 "[" <progLocalParamNum> "]"

NOTE: "program" "." has been moved to <programSingleItem>.
*/
progLocalParam
    "local" .emit PROGRAM_PARAM_LOCAL .and lbracket .and progLocalParamNum .and rbracket .emit 0x00;

/*
    <progEnvParamNum>      ::= <integer> from 0 to
                               MAX_PROGRAM_ENV_PARAMETERS_ARB - 1
*/
progEnvParamNum
    integer;

/*
    <progLocalParamNum>    ::= <integer> from 0 to
                               MAX_PROGRAM_LOCAL_PARAMETERS_ARB - 1
*/
progLocalParamNum
    integer;

/*
    <paramConstDecl>       ::= <paramConstScalarDecl>
                             | <paramConstVector>
*/
paramConstDecl
    paramConstScalarDecl .emit CONSTANT_SCALAR .or paramConstVector .emit CONSTANT_VECTOR;

/*
    <paramConstUse>        ::= <paramConstScalarUse>
                             | <paramConstVector>
*/
paramConstUse
    paramConstScalarUse .emit CONSTANT_SCALAR .or paramConstVector .emit CONSTANT_VECTOR;

/*
    <paramConstScalarDecl> ::= <signedFloatConstant>
*/
paramConstScalarDecl
    signedFloatConstant;

/*
    <paramConstScalarUse>  ::= <floatConstant>
*/
paramConstScalarUse
    floatConstant;

/*
    <paramConstVector>     ::= "{" <signedFloatConstant> "}"
                             | "{" <signedFloatConstant> "," 
                                   <signedFloatConstant> "}"
                             | "{" <signedFloatConstant> "," 
                                   <signedFloatConstant> ","
                                   <signedFloatConstant> "}"
                             | "{" <signedFloatConstant> "," 
                                   <signedFloatConstant> ","
                                   <signedFloatConstant> "," 
                                   <signedFloatConstant> "}"
*/
paramConstVector
    paramConstVector_4 .emit 0x04 .or paramConstVector_3 .emit 0x03 .or
    paramConstVector_2 .emit 0x02 .or paramConstVector_1 .emit 0x01;
paramConstVector_1
    lbrace_ne .and signedFloatConstant .and rbrace;
paramConstVector_2
    lbrace_ne .and signedFloatConstant .and comma_ne .and signedFloatConstant .and rbrace;
paramConstVector_3
    lbrace_ne .and signedFloatConstant .and comma_ne .and signedFloatConstant .and comma_ne .and
    signedFloatConstant .and rbrace;
paramConstVector_4
    lbrace_ne .and signedFloatConstant .and comma_ne .and signedFloatConstant .and comma_ne .and
    signedFloatConstant .and comma_ne .and signedFloatConstant .and rbrace;

/*
    <signedFloatConstant>  ::= <optionalSign> <floatConstant>
*/
signedFloatConstant
    optionalSign .and floatConstant;

/*
    <floatConstant>        ::= see text
    The <floatConstant> rule matches a floating-point constant consisting
    of an integer part, a decimal point, a fraction part, an "e" or
    "E", and an optionally signed integer exponent.  The integer and
    fraction parts both consist of a sequence of one or more digits ("0"
    through "9").  Either the integer part or the fraction parts (not
    both) may be missing; either the decimal point or the "e" (or "E")
    and the exponent (not both) may be missing.
*/
floatConstant
    float;

/*
    <optionalSign>         ::= ""
                             | "-"
                             | "+"
*/
optionalSign
    optional_sign_ne;

/*
    <TEMP_statement>       ::= "TEMP" <varNameList>
*/
fp_TEMP_statement
    "TEMP" .and space .and fp_varNameList .and .true .emit 0x00;
vp_TEMP_statement
    "TEMP" .and space .and vp_varNameList .and .true .emit 0x00;

/*
vertex program
    <ADDRESS_statement>    ::= "ADDRESS" <varNameList>
*/
ADDRESS_statement
    "ADDRESS" .and space .and vp_varNameList .and .true .emit 0x00;

/*
    <varNameList>          ::= <establishName>
                             | <establishName> "," <varNameList>
*/
fp_varNameList
    fp_varNameList_1 .or fp_establishName;
vp_varNameList
    vp_varNameList_1 .or vp_establishName;
fp_varNameList_1
    fp_establishName .and comma_ne .and fp_varNameList;
vp_varNameList_1
    vp_establishName .and comma_ne .and vp_varNameList;

/*
    <OUTPUT_statement>     ::= "OUTPUT" <establishName> "="
                                 <resultBinding>
*/
fp_OUTPUT_statement
    "OUTPUT" .and space .and fp_establishName .and equal .and
    fp_resultBinding .error RESULT_EXPECTED;
vp_OUTPUT_statement
    "OUTPUT" .and space .and vp_establishName .and equal .and
    vp_resultBinding .error RESULT_EXPECTED;

/*
fragment program
    <resultBinding>        ::= "result" "." "color"
                             | "result" "." "color" <optOutputColorNum> (if option ARB_draw_buffers present)
                             | "result" "." "depth"

vertex program
    <resultBinding>        ::= "result" "." "position"
                             | "result" "." <resultColBinding>
                             | "result" "." "fogcoord"
                             | "result" "." "pointsize"
                             | "result" "." "texcoord" <optTexCoordNum>
*/
fp_resultBinding
    "result" .and dot .and fp_resultBinding_1 .error INVALID_RESULT_PROPERTY;
vp_resultBinding
    "result" .and dot .and vp_resultBinding_1 .error INVALID_RESULT_PROPERTY;
fp_resultBinding_1
    fp_resultBinding_2 .emit FRAGMENT_RESULT_COLOR .or
    "depth" .emit FRAGMENT_RESULT_DEPTH;
fp_resultBinding_2
    "color" .and optOutputColorNum;
vp_resultBinding_1
    .if (ARB_position_invariant == 0x00) "position" .emit VERTEX_RESULT_POSITION .or
    resultColBinding .emit VERTEX_RESULT_COLOR .or
    "fogcoord" .emit VERTEX_RESULT_FOGCOORD .or
    "pointsize" .emit VERTEX_RESULT_POINTSIZE .or
    vp_resultBinding_2 .emit VERTEX_RESULT_TEXCOORD;
vp_resultBinding_2
    "texcoord" .and optTexCoordNum;

/*
GL_ARB_draw_buffers
    <optOutputColorNum>    ::= ""
                             | "[" <outputColorNum> "]"
*/
optOutputColorNum
    .if (ARB_draw_buffers != 0x00) optOutputColorNum_1 .or .true .emit 0x00;
optOutputColorNum_1
    lbracket_ne .and outputColorNum .and rbracket;

/*
GL_ARB_draw_buffers
    <outputColorNum>       ::= <integer> from 0 to MAX_DRAW_BUFFERS_ARB-1
*/
outputColorNum
    integer;

/*
vertex program
    <resultColBinding>     ::= "color" <optFaceType> <optColorType>
*/
resultColBinding
    "color" .and optFaceType .and optColorType;

/*
    <optFaceType>          ::= ""
                             | "." "front"
                             | "." "back"
*/
optFaceType
    FaceType .or .true .emit FACE_FRONT;
FaceType
    dot_ne .and FaceProperty;
FaceProperty
    "front" .emit FACE_FRONT .or "back" .emit FACE_BACK;

/*
    <optColorType>         ::= ""
                             | "." "primary"
                             | "." "secondary"
*/
optColorType
    ColorType .or .true .emit COLOR_PRIMARY;
ColorType
    dot_ne .and ColorProperty;
ColorProperty
    "primary" .emit COLOR_PRIMARY .or
    .if (secondary_color != 0x00) "secondary" .emit COLOR_SECONDARY;

/*
    <ALIAS_statement>      ::= "ALIAS" <establishName> "="
                                 <establishedName>
*/
fp_ALIAS_statement
    "ALIAS" .and fp_ALIAS_statement_1 .error IDENTIFIER_EXPECTED .and equal .and fp_establishedName;
vp_ALIAS_statement
    "ALIAS" .and vp_ALIAS_statement_1 .error IDENTIFIER_EXPECTED .and equal .and vp_establishedName;
fp_ALIAS_statement_1
    space .and fp_establishName;
vp_ALIAS_statement_1
    space .and vp_establishName;

/*
    <establishName>        ::= <identifier>
*/
fp_establishName
    fp_identifier;
vp_establishName
    vp_identifier;

/*
    <establishedName>      ::= <identifier>
*/
fp_establishedName
    fp_identifier;
vp_establishedName
    vp_identifier;
fp_establishedName_no_error_on_identifier
    fp_identifier_ne;
vp_establishedName_no_error_on_identifier
    vp_identifier_ne;

/*
fragment program
    <identifier>           ::= see text
    The <identifier> rule matches a sequence of one or more letters ("A"
    through "Z", "a" through "z"), digits ("0" through "9), underscores 
    ("_"), or dollar signs ("$"); the first character must not be a 
    number.  Upper and lower case letters are considered different 
    (names are case-sensitive).  The following strings are reserved 
    keywords and may not be used as identifiers:

        ABS, ABS_SAT, ADD, ADD_SAT, ALIAS, ATTRIB, CMP, CMP_SAT, COS,
        COS_SAT, DP3, DP3_SAT, DP4, DP4_SAT, DPH, DPH_SAT, DST, DST_SAT, 
        END, EX2, EX2_SAT, FLR, FLR_SAT, FRC, FRC_SAT, KIL, LG2, 
        LG2_SAT, LIT, LIT_SAT, LRP, LRP_SAT, MAD, MAD_SAT, MAX, MAX_SAT, 
        MIN, MIN_SAT, MOV, MOV_SAT, MUL, MUL_SAT, OPTION, OUTPUT, PARAM, 
        POW, POW_SAT, RCP, RCP_SAT, RSQ, RSQ_SAT, SIN, SIN_SAT, SCS, 
        SCS_SAT, SGE, SGE_SAT, SLT, SLT_SAT, SUB, SUB_SAT, SWZ, SWZ_SAT, 
        TEMP, TEX, TEX_SAT, TXB, TXB_SAT, TXP, TXP_SAT, XPD, XPD_SAT, 
        fragment, program, result, state, and texture.

vertex program
    <identifier>           ::= see text
    The <identifier> rule matches a sequence of one or more letters ("A"
    through "Z", "a" through "z"), digits ("0" through "9), underscores ("_"),
    or dollar signs ("$"); the first character must not be a number.  Upper
    and lower case letters are considered different (names are
    case-sensitive).  The following strings are reserved keywords and may not
    be used as identifiers:

        ABS, ADD, ADDRESS, ALIAS, ARL, ATTRIB, DP3, DP4, DPH, DST, END, EX2,
        EXP, FLR, FRC, LG2, LIT, LOG, MAD, MAX, MIN, MOV, MUL, OPTION, OUTPUT,
        PARAM, POW, RCP, RSQ, SGE, SLT, SUB, SWZ, TEMP, XPD, program, result,
        state, and vertex.
*/
fp_identifier
    fp_identifier_ne .error IDENTIFIER_EXPECTED;
vp_identifier
    vp_identifier_ne .error IDENTIFIER_EXPECTED;
fp_identifier_ne
    fp_not_reserved_identifier .and identifier_ne;
vp_identifier_ne
    vp_not_reserved_identifier .and identifier_ne;

fp_not_reserved_identifier
    fp_not_reserved_identifier_1 .or .true;
fp_not_reserved_identifier_1
    fp_reserved_identifier .and .false .error RESERVED_KEYWORD;
vp_not_reserved_identifier
    vp_not_reserved_identifier_1 .or .true;
vp_not_reserved_identifier_1
    vp_reserved_identifier .and .false .error RESERVED_KEYWORD;

fp_reserved_identifier
    "ABS" .or "ABS_SAT" .or "ADD" .or "ADD_SAT" .or "ALIAS" .or "ATTRIB" .or "CMP" .or "CMP_SAT" .or
    "COS" .or "COS_SAT" .or "DP3" .or "DP3_SAT" .or "DP4" .or "DP4_SAT" .or "DPH" .or "DPH_SAT" .or
    "DST" .or "DST_SAT" .or "END" .or "EX2" .or "EX2_SAT" .or "FLR" .or "FLR_SAT" .or "FRC" .or
    "FRC_SAT" .or "KIL" .or "LG2" .or "LG2_SAT" .or "LIT" .or "LIT_SAT" .or "LRP" .or "LRP_SAT" .or
    "MAD" .or "MAD_SAT" .or "MAX" .or "MAX_SAT" .or "MIN" .or "MIN_SAT" .or "MOV" .or "MOV_SAT" .or
    "MUL" .or "MUL_SAT" .or "OPTION" .or "OUTPUT" .or "PARAM" .or "POW" .or "POW_SAT" .or "RCP" .or
    "RCP_SAT" .or "RSQ" .or "RSQ_SAT" .or "SIN" .or "SIN_SAT" .or "SCS" .or "SCS_SAT" .or "SGE" .or
    "SGE_SAT" .or "SLT" .or "SLT_SAT" .or "SUB" .or "SUB_SAT" .or "SWZ" .or "SWZ_SAT" .or "TEMP" .or
    "TEX" .or "TEX_SAT" .or "TXB" .or "TXB_SAT" .or "TXP" .or "TXP_SAT" .or "XPD" .or "XPD_SAT" .or
    "fragment" .or "program" .or "result" .or "state" .or "texture";
vp_reserved_identifier
    "ABS" .or "ADD" .or "ADDRESS" .or "ALIAS" .or "ARL" .or "ATTRIB" .or "DP3" .or "DP4" .or
    "DPH" .or "DST" .or "END" .or "EX2" .or "EXP" .or "FLR" .or "FRC" .or "LG2" .or "LIT" .or
    "LOG" .or "MAD" .or "MAX" .or "MIN" .or "MOV" .or "MUL" .or "OPTION" .or "OUTPUT" .or
    "PARAM" .or "POW" .or "RCP" .or "RSQ" .or "SGE" .or "SLT" .or "SUB" .or "SWZ" .or "TEMP" .or
    "XPD" .or "program" .or "result" .or "state" .or "vertex";

/*
    The <integer> rule matches an integer constant.  The integer consists
    of a sequence of one or more digits ("0" through "9").
*/
integer
    integer_ne .error INTEGER_EXPECTED;

zero
    '0';

leading_zeroes
    .loop zero;

no_digit
    no_digit_1 .or .true;
no_digit_1
    digit10 .and .false .error INTEGER_OUT_OF_RANGE;

all_zeroes
    all_zeroes_1 .or no_digit_1;
all_zeroes_1
    '0' .and .loop zero .and no_digit;

integer_0_3
    integer_0_3_1 .error INTEGER_EXPECTED .and .true .emit 0x00 .emit $;
integer_0_3_1
    integer_0_3_2 .or all_zeroes .emit '0';
integer_0_3_2       /* [1, 3] */
    leading_zeroes .and '1'-'3' .emit * .and no_digit;

integer_0_63
    integer_0_63_1 .error INTEGER_EXPECTED .and .true .emit 0x00 .emit $;
integer_0_63_1
    integer_0_63_2 .or integer_0_63_3 .or integer_0_63_4 .or integer_0_63_5 .or
    all_zeroes .emit '0';
integer_0_63_2      /* [7, 9] */
    leading_zeroes .and '7'-'9' .emit * .and no_digit;
integer_0_63_3      /* [10, 59] */
    leading_zeroes .and '1'-'5' .emit * .and '0'-'9' .emit * .and no_digit;
integer_0_63_4      /* [60, 63] */
    leading_zeroes .and '6' .emit * .and '0'-'3' .emit * .and no_digit;
integer_0_63_5      /* [1, 6] */
    leading_zeroes .and '1'-'6' .emit * .and no_digit;

integer_0_64
    integer_0_64_1 .error INTEGER_EXPECTED .and .true .emit 0x00 .emit $;
integer_0_64_1
    integer_0_64_2 .or integer_0_64_3 .or integer_0_64_4 .or integer_0_64_5 .or
    all_zeroes .emit '0';
integer_0_64_2      /* [7, 9] */
    leading_zeroes .and '7'-'9' .emit * .and no_digit;
integer_0_64_3      /* [10, 59] */
    leading_zeroes .and '1'-'5' .emit * .and '0'-'9' .emit * .and no_digit;
integer_0_64_4      /* [60, 64] */
    leading_zeroes .and '6' .emit * .and '0'-'4' .emit * .and no_digit;
integer_0_64_5      /* [1, 6] */
    leading_zeroes .and '1'-'6' .emit * .and no_digit;

optional_space
    space .or .true;

space_dst
    space .error OPERATION_NEEDS_DESTINATION_VARIABLE;

space_src
    space .error OPERATION_NEEDS_SOURCE_VARIABLE;

space
    single_space .and .loop single_space;

single_space
    white_char .or comment_block;

white_char
    ' ' .or '\t' .or '\n' .or '\r';

comment_block
    '#' .and .loop comment_char .and optional_new_line;

/* All ASCII characters except '\r', '\n' and '\0' */
comment_char
    '\x0E'-'\xFF' .or '\x01'-'\x09' .or '\x0B'-'\x0C';

optional_new_line
    '\n' .or crlf .or .true;

crlf
    '\r' .and '\n';

semicolon
    optional_space .and ';' .error MISSING_SEMICOLON .and optional_space;

comma
    optional_space .and ',' .error MISSING_COMMA .and optional_space;

comma_ne
    optional_space .and ',' .and optional_space;

lbracket
    optional_space .and '[' .error MISSING_LBRACKET .and optional_space;

lbracket_ne
    optional_space .and '[' .and optional_space;

rbracket
    optional_space .and ']' .error MISSING_RBRACKET .and optional_space;

dot
    optional_space .and '.' .error MISSING_DOT .and optional_space;

dot_ne
    optional_space .and '.' .and optional_space;

equal
    optional_space .and '=' .error MISSING_EQUAL .and optional_space;

lbrace
    optional_space .and '{' .error MISSING_LBRACE .and optional_space;

lbrace_ne
    optional_space .and '{' .and optional_space;

rbrace
    optional_space .and '}' .error MISSING_RBRACE .and optional_space;

dotdot
    optional_space .and '.' .and '.' .error MISSING_DOTDOT .and optional_space;

dotdot_ne
    optional_space .and '.' .and '.' .and optional_space;

/*
    The definition below accepts the following floating point number formats:
    .99 .99e99 99. 99.99 99.99e99 99.e99 99e99
    Also 99 format was considered and accepted because of a large number of existing program
    strings with such a format.
*/
float
    float_1 .or float_2 .or float_legacy;
float_1
    '.' .emit 0x00 .and integer_ne .error MISSING_FRACTION_OR_EXPONENT .and optional_exponent;
float_2
    integer_ne .and float_3;
float_3
    float_4 .or float_5;
float_4
    '.' .and optional_integer .and optional_exponent;
float_5
    exponent .emit 0x00;
float_legacy
    integer_ne .and .true .emit 0x00 .emit 0x00;

/*
    Below is a correct version of <float> definiton.
*/
/*
float
    float_1 .or float_2;
float_1
    '.' .emit 0x00 .and integer_ne .error MISSING_FRACTION_OR_EXPONENT .and optional_exponent;
float_2
    integer_ne .and float_3 .error MISSING_DOT_OR_EXPONENT;
float_3
    float_4 .or float_5;
float_4
    '.' .and optional_integer .and optional_exponent;
float_5
    exponent .emit 0x00;
*/

integer_ne
    integer_ne_1 .and .true .emit 0x00 .emit $;
integer_ne_1
    digit10 .emit * .and .loop digit10 .emit *;

optional_integer
    integer_ne .or .true .emit 0x00;

/*
NOTE: If exponent part is omited we treat it as if it was "E+1".
*/
optional_exponent
    exponent .or .true .emit 0x00;

exponent
    exponent_1 .and optional_sign_ne .and integer_ne .error EXPONENT_VALUE_EXPECTED;
exponent_1
    'e' .or 'E';

optional_sign_ne
    minus_ne .or plus_ne .or .true;

plus_ne
    optional_space .and '+' .and optional_space;

minus_ne
    optional_space .and '-' .emit '-' .and optional_space;

identifier_ne
    first_idchar .emit * .and .loop follow_idchar .emit * .and .true .emit 0x00 .emit $;

follow_idchar
    first_idchar .or digit10;

first_idchar
    'a'-'z' .or 'A'-'Z' .or '_' .or '$';

digit10
    '0'-'9';

/*
    string filtering - if a string is encountered in grammar ("blabla"), the symbol below is
    executed to create the string. The symbol must not throw any errors and emit bytes - it should
    stop if it encounters invalid character. After this the resulting string (from starting
    position up to the invalid character (but without it) is compared with the grammar string.
*/
.string __string_filter;

__string_filter
    .loop __identifier_char;

__identifier_char
    'a'-'z' .or 'A'-'Z' .or '_' .or '$' .or '0'-'9';

/*
    error token filtering
*/
e_signature
    e_signature_char .and .loop e_signature_char;
e_signature_char
    '!' .or '.' .or 'A'-'Z' .or 'a'-'z' .or '0'-'9';

e_statement
    .loop e_statement_not_term;
/* All ASCII characters to one of '\r', '\n', '\0' and ';' */
e_statement_not_term
    '\x3C'-'\xFF' .or '\x0E'-'\x3A' .or '\x01'-'\x09' .or '\x0B'-'\x0C';

e_identifier
    e_identifier_first .and .loop e_identifier_next;
e_identifier_first
    'a'-'z' .or 'A'-'Z' .or '_' .or '$';
e_identifier_next
    e_identifier_first .or '0'-'9';

e_token
    e_identifier .or e_token_number .or '[' .or ']' .or '.' .or '{' .or '}' .or '=' .or '+' .or
    '-' .or ',' .or ';';
e_token_number
    e_token_digit .and .loop e_token_digit;
e_token_digit
    '0'-'9';

e_charordigit
    'A'-'Z' .or 'a'-'z' .or '0'-'9';