Skip to content
Snippets Groups Projects
Commit d6db9143 authored by Ian Romanick's avatar Ian Romanick
Browse files

ARB prog parser: Compile lexer as C++

parent 9c0b233c
No related branches found
No related tags found
Loading
......@@ -77,7 +77,7 @@ main/api_exec_es2.c: main/APIspec.xml main/es_generator.py main/APIspecutil.py m
program/program_parse.cpp program/program_parse.tab.h: program/program_parse.y
bison -v -o program/program_parse.cpp --defines=program/program_parse.tab.h $<
program/lex.yy.c: program/program_lexer.l
program/program_lexer.cpp: program/program_lexer.l
flex --never-interactive --outfile=$@ $<
######################################################################
......
......@@ -21,11 +21,17 @@
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
* DEALINGS IN THE SOFTWARE.
*/
extern "C" {
#include "main/glheader.h"
#include "main/imports.h"
#include "program/prog_instruction.h"
#include "program/prog_statevars.h"
#include "program/symbol_table.h"
};
#include "glsl_types.h"
#include "ir.h"
#include "program/program_parser.h"
#include "program/program_parse.tab.h"
......@@ -60,19 +66,34 @@
} while (0)
#define return_opcode(condition, token, opcode, len) \
#define return_opcode(condition, token, len) \
do { \
if (condition && \
_mesa_parse_instruction_suffix(yyextra, \
yytext + len, \
& yylval->opcode)) { \
yylval->opcode.opcode = 0; \
return token; \
} else { \
return handle_ident(yyextra, yytext, yylval); \
} \
} while (0)
#define return_common(condition, token, _opcode, len) \
do { \
if (condition && \
_mesa_parse_instruction_suffix(yyextra, \
yytext + len, \
& yylval->temp_inst)) { \
yylval->temp_inst.Opcode = OPCODE_ ## opcode; \
& yylval->opcode)) { \
yylval->opcode.opcode = _opcode; \
return token; \
} else { \
return handle_ident(yyextra, yytext, yylval); \
} \
} while (0)
#define SWIZZLE_INVAL MAKE_SWIZZLE4(SWIZZLE_NIL, SWIZZLE_NIL, \
SWIZZLE_NIL, SWIZZLE_NIL)
......@@ -182,74 +203,76 @@ OUTPUT { return OUTPUT; }
PARAM { return PARAM; }
TEMP { yylval->integer = at_temp; return TEMP; }
ABS{sz}{cc}{sat} { return_opcode( 1, VECTOR_OP, ABS, 3); }
ADD{sz}{cc}{sat} { return_opcode( 1, BIN_OP, ADD, 3); }
ARL { return_opcode(require_ARB_vp, ARL, ARL, 3); }
CMP{sat} { return_opcode(require_ARB_fp, TRI_OP, CMP, 3); }
COS{szf}{cc}{sat} { return_opcode(require_ARB_fp, SCALAR_OP, COS, 3); }
DDX{szf}{cc}{sat} { return_opcode(require_NV_fp, VECTOR_OP, DDX, 3); }
DDY{szf}{cc}{sat} { return_opcode(require_NV_fp, VECTOR_OP, DDY, 3); }
DP3{sz}{cc}{sat} { return_opcode( 1, BIN_OP, DP3, 3); }
DP4{sz}{cc}{sat} { return_opcode( 1, BIN_OP, DP4, 3); }
DPH{sz}{cc}{sat} { return_opcode( 1, BIN_OP, DPH, 3); }
DST{szf}{cc}{sat} { return_opcode( 1, BIN_OP, DST, 3); }
EX2{szf}{cc}{sat} { return_opcode( 1, SCALAR_OP, EX2, 3); }
EXP { return_opcode(require_ARB_vp, SCALAR_OP, EXP, 3); }
FLR{sz}{cc}{sat} { return_opcode( 1, VECTOR_OP, FLR, 3); }
FRC{sz}{cc}{sat} { return_opcode( 1, VECTOR_OP, FRC, 3); }
KIL { return_opcode(require_ARB_fp, KIL, KIL, 3); }
LIT{szf}{cc}{sat} { return_opcode( 1, VECTOR_OP, LIT, 3); }
LG2{szf}{cc}{sat} { return_opcode( 1, SCALAR_OP, LG2, 3); }
LOG { return_opcode(require_ARB_vp, SCALAR_OP, LOG, 3); }
LRP{sz}{cc}{sat} { return_opcode(require_ARB_fp, TRI_OP, LRP, 3); }
MAD{sz}{cc}{sat} { return_opcode( 1, TRI_OP, MAD, 3); }
MAX{sz}{cc}{sat} { return_opcode( 1, BIN_OP, MAX, 3); }
MIN{sz}{cc}{sat} { return_opcode( 1, BIN_OP, MIN, 3); }
MOV{sz}{cc}{sat} { return_opcode( 1, VECTOR_OP, MOV, 3); }
MUL{sz}{cc}{sat} { return_opcode( 1, BIN_OP, MUL, 3); }
PK2H { return_opcode(require_NV_fp, VECTOR_OP, PK2H, 4); }
PK2US { return_opcode(require_NV_fp, VECTOR_OP, PK2US, 5); }
PK4B { return_opcode(require_NV_fp, VECTOR_OP, PK4B, 4); }
PK4UB { return_opcode(require_NV_fp, VECTOR_OP, PK4UB, 5); }
POW{szf}{cc}{sat} { return_opcode( 1, BINSC_OP, POW, 3); }
RCP{szf}{cc}{sat} { return_opcode( 1, SCALAR_OP, RCP, 3); }
RFL{szf}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, RFL, 3); }
RSQ{szf}{cc}{sat} { return_opcode( 1, SCALAR_OP, RSQ, 3); }
SCS{sat} { return_opcode(require_ARB_fp, SCALAR_OP, SCS, 3); }
SEQ{sz}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, SEQ, 3); }
SFL{sz}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, SFL, 3); }
SGE{sz}{cc}{sat} { return_opcode( 1, BIN_OP, SGE, 3); }
SGT{sz}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, SGT, 3); }
SIN{szf}{cc}{sat} { return_opcode(require_ARB_fp, SCALAR_OP, SIN, 3); }
SLE{sz}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, SLE, 3); }
SLT{sz}{cc}{sat} { return_opcode( 1, BIN_OP, SLT, 3); }
SNE{sz}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, SNE, 3); }
STR{sz}{cc}{sat} { return_opcode(require_NV_fp, BIN_OP, STR, 3); }
SUB{sz}{cc}{sat} { return_opcode( 1, BIN_OP, SUB, 3); }
SWZ{sat} { return_opcode( 1, SWZ, SWZ, 3); }
TEX{cc}{sat} { return_opcode(require_ARB_fp, SAMPLE_OP, TEX, 3); }
TXB{cc}{sat} { return_opcode(require_ARB_fp, SAMPLE_OP, TXB, 3); }
TXD{cc}{sat} { return_opcode(require_NV_fp, TXD_OP, TXD, 3); }
TXP{cc}{sat} { return_opcode(require_ARB_fp, SAMPLE_OP, TXP, 3); }
UP2H{cc}{sat} { return_opcode(require_NV_fp, SCALAR_OP, UP2H, 4); }
UP2US{cc}{sat} { return_opcode(require_NV_fp, SCALAR_OP, UP2US, 5); }
UP4B{cc}{sat} { return_opcode(require_NV_fp, SCALAR_OP, UP4B, 4); }
UP4UB{cc}{sat} { return_opcode(require_NV_fp, SCALAR_OP, UP4UB, 5); }
X2D{szf}{cc}{sat} { return_opcode(require_NV_fp, TRI_OP, X2D, 3); }
XPD{sat} { return_opcode( 1, BIN_OP, XPD, 3); }
ABS{sz}{cc}{sat} { return_common( true, VECTOR_OP, ir_unop_abs, 3); }
ADD{sz}{cc}{sat} { return_common( true, BIN_OP, ir_binop_add, 3); }
ARL { return_opcode(require_ARB_vp, ARL, 3); }
CMP{sat} { return_opcode(require_ARB_fp, CMP_OP, 3); }
COS{szf}{cc}{sat} { return_common(require_ARB_fp, SCALAR_OP, ir_unop_cos, 3); }
DDX{szf}{cc}{sat} { return_common(require_NV_fp, VECTOR_OP, ir_unop_dFdx, 3); }
DDY{szf}{cc}{sat} { return_common(require_NV_fp, VECTOR_OP, ir_unop_dFdy, 3); }
DP3{sz}{cc}{sat} { return_opcode( true, DP3_OP, 3); }
DP4{sz}{cc}{sat} { return_opcode( true, DP4_OP, 3); }
DPH{sz}{cc}{sat} { return_opcode( true, DPH_OP, 3); }
DST{szf}{cc}{sat} { return_opcode( true, DST_OP, 3); }
EX2{szf}{cc}{sat} { return_common( true, SCALAR_OP, ir_unop_exp, 3); }
/* FINISHME: Somehow communicate that this is the low precision version. */
EXP { return_common(require_ARB_vp, SCALAR_OP, ir_unop_exp, 3); }
FLR{sz}{cc}{sat} { return_common( true, VECTOR_OP, ir_unop_floor, 3); }
FRC{sz}{cc}{sat} { return_common( true, VECTOR_OP, ir_unop_fract, 3); }
KIL { return_opcode(require_ARB_fp, KIL, 3); }
LIT{szf}{cc}{sat} { return_common( true, VECTOR_OP, ir_unop_lit, 3); }
LG2{szf}{cc}{sat} { return_common( true, SCALAR_OP, ir_unop_log, 3); }
/* FINISHME: Somehow communicate that this is the low precision version. */
LOG { return_common(require_ARB_vp, SCALAR_OP, ir_unop_log, 3); }
LRP{sz}{cc}{sat} { return_opcode(require_ARB_fp, LRP_OP, 3); }
MAD{sz}{cc}{sat} { return_common( true, MAD_OP, ir_binop_mul, 3); }
MAX{sz}{cc}{sat} { return_common( true, BIN_OP, ir_binop_max, 3); }
MIN{sz}{cc}{sat} { return_common( true, BIN_OP, ir_binop_min, 3); }
MOV{sz}{cc}{sat} { return_common( true, MOV_OP, ir_binop_add, 3); }
MUL{sz}{cc}{sat} { return_common( true, BIN_OP, ir_binop_mul, 3); }
PK2H { return_opcode(require_NV_fp, PACK_OP, 4); }
PK2US { return_opcode(require_NV_fp, PACK_OP, 5); }
PK4B { return_opcode(require_NV_fp, PACK_OP, 4); }
PK4UB { return_opcode(require_NV_fp, PACK_OP, 5); }
POW{szf}{cc}{sat} { return_common( true, BINSC_OP, ir_binop_pow, 3); }
RCP{szf}{cc}{sat} { return_common( true, SCALAR_OP, ir_unop_rcp, 3); }
RFL{szf}{cc}{sat} { return_opcode(require_NV_fp, RFL_OP, 3); }
RSQ{szf}{cc}{sat} { return_common( true, SCALAR_OP, ir_unop_rsq, 3); }
SCS{sat} { return_opcode(require_ARB_fp, SCS_OP, 3); }
SEQ{sz}{cc}{sat} { return_common(require_NV_fp, SET_OP, ir_binop_equal, 3); }
SFL{sz}{cc}{sat} { return_opcode(require_NV_fp, SFL_OP, 3); }
SGE{sz}{cc}{sat} { return_common( true, SET_OP, ir_binop_gequal, 3); }
SGT{sz}{cc}{sat} { return_common(require_NV_fp, SET_OP, ir_binop_greater, 3); }
SIN{szf}{cc}{sat} { return_common(require_ARB_fp, SCALAR_OP, ir_unop_sin, 3); }
SLE{sz}{cc}{sat} { return_common(require_NV_fp, SET_OP, ir_binop_lequal, 3); }
SLT{sz}{cc}{sat} { return_common( true, SET_OP, ir_binop_less, 3); }
SNE{sz}{cc}{sat} { return_common(require_NV_fp, SET_OP, ir_binop_nequal, 3); }
STR{sz}{cc}{sat} { return_opcode(require_NV_fp, STR_OP, 3); }
SUB{sz}{cc}{sat} { return_common( true, BIN_OP, ir_binop_sub, 3); }
SWZ{sat} { return_opcode( true, SWZ_OP, 3); }
TEX{cc}{sat} { return_opcode(require_ARB_fp, TEX_OP, 3); }
TXB{cc}{sat} { return_opcode(require_ARB_fp, TXB_OP, 3); }
TXD{cc}{sat} { return_opcode(require_NV_fp, TXD_OP, 3); }
TXP{cc}{sat} { return_opcode(require_ARB_fp, TXP_OP, 3); }
UP2H{cc}{sat} { return_opcode(require_NV_fp, UNPACK_OP, 4); }
UP2US{cc}{sat} { return_opcode(require_NV_fp, UNPACK_OP, 5); }
UP4B{cc}{sat} { return_opcode(require_NV_fp, UNPACK_OP, 4); }
UP4UB{cc}{sat} { return_opcode(require_NV_fp, UNPACK_OP, 5); }
X2D{szf}{cc}{sat} { return_opcode(require_NV_fp, X2D_OP, 3); }
XPD{sat} { return_opcode( true, XPD_OP, 3); }
vertex { return_token_or_IDENTIFIER(require_ARB_vp, VERTEX); }
fragment { return_token_or_IDENTIFIER(require_ARB_fp, FRAGMENT); }
......
This diff is collapsed.
......@@ -36,12 +36,12 @@
int
_mesa_parse_instruction_suffix(const struct asm_parser_state *state,
const char *suffix,
struct prog_instruction *inst)
struct asm_opcode *inst)
{
inst->CondUpdate = 0;
inst->CondDst = 0;
inst->SaturateMode = SATURATE_OFF;
inst->Precision = FLOAT32;
inst->cond_update = 0;
inst->cond_dst = 0;
inst->saturate_mode = SATURATE_OFF;
inst->precision = FLOAT32;
/* The first possible suffix element is the precision specifier from
......@@ -50,15 +50,15 @@ _mesa_parse_instruction_suffix(const struct asm_parser_state *state,
if (state->option.NV_fragment) {
switch (suffix[0]) {
case 'H':
inst->Precision = FLOAT16;
inst->precision = FLOAT16;
suffix++;
break;
case 'R':
inst->Precision = FLOAT32;
inst->precision = FLOAT32;
suffix++;
break;
case 'X':
inst->Precision = FIXED12;
inst->precision = FIXED12;
suffix++;
break;
default:
......@@ -71,7 +71,7 @@ _mesa_parse_instruction_suffix(const struct asm_parser_state *state,
*/
if (state->option.NV_fragment) {
if (suffix[0] == 'C') {
inst->CondUpdate = 1;
inst->cond_update = 1;
suffix++;
}
}
......@@ -82,7 +82,7 @@ _mesa_parse_instruction_suffix(const struct asm_parser_state *state,
*/
if (state->mode == ARB_fragment) {
if (strcmp(suffix, "_SAT") == 0) {
inst->SaturateMode = SATURATE_ZERO_ONE;
inst->saturate_mode = SATURATE_ZERO_ONE;
suffix += 4;
}
}
......
......@@ -22,8 +22,10 @@
*/
#pragma once
#include <stdbool.h>
#include "main/config.h"
#include "main/mtypes.h"
#include "list.h"
struct gl_context;
......@@ -121,6 +123,60 @@ struct asm_src_register {
};
struct asm_opcode {
/**
* This should be 'enum ir_expression_operation', but it can't be. This
* file is included in C source, and the enum comes from a C++ header. The
* rules for enums in C and C++ are so broken that you can't declare an
* enum varaible without having seen the full enum declaration. Even after
* seeing it, the compiler is just going to allocate an int, so WTF?
*/
unsigned opcode;
/**
* Indicates that the instruction should update the condition code
* register.
*
* \since
* NV_fragment_program, NV_fragment_program_option, NV_vertex_program2,
* NV_vertex_program2_option.
*/
unsigned cond_update:1;
/**
* If prog_instruction::CondUpdate is \c GL_TRUE, this value selects the
* condition code register that is to be updated.
*
* In GL_NV_fragment_program or GL_NV_vertex_program2 mode, only condition
* code register 0 is available. In GL_NV_vertex_program3 mode, condition
* code registers 0 and 1 are available.
*
* \since
* NV_fragment_program, NV_fragment_program_option, NV_vertex_program2,
* NV_vertex_program2_option.
*/
unsigned cond_dst:1;
/**
* Saturate each value of the vectored result to the range [0,1] or the
* range [-1,1]. \c SSAT mode (i.e., saturation to the range [-1,1]) is
* only available in NV_fragment_program2 mode.
* Value is one of the SATURATE_* tokens.
*
* \since
* NV_fragment_program, NV_fragment_program_option, NV_vertex_program3.
*/
unsigned saturate_mode:2;
/**
* Per-instruction selectable precision: FLOAT32, FLOAT16, FIXED12.
*
* \since
* NV_fragment_program, NV_fragment_program_option.
*/
unsigned precision:3;
};
struct asm_instruction {
struct prog_instruction Base;
struct asm_instruction *next;
......@@ -137,6 +193,7 @@ enum asm_program_target {
struct asm_parser_state {
struct gl_context *ctx;
struct gl_program *prog;
struct exec_list ir;
/**
* Per-program target limits
......@@ -236,6 +293,9 @@ typedef struct YYLTYPE {
#define YYLTYPE_IS_DECLARED 1
#define YYLTYPE_IS_TRIVIAL 1
#ifdef __cplusplus
extern "C" {
#endif
extern GLboolean _mesa_parse_arb_program(struct gl_context *ctx, GLenum target,
const GLubyte *str, GLsizei len, struct asm_parser_state *state);
......@@ -284,7 +344,7 @@ extern int _mesa_ARBfp_parse_option(struct asm_parser_state *state,
* Non-zero on success, zero on failure.
*/
extern int _mesa_parse_instruction_suffix(const struct asm_parser_state *state,
const char *suffix, struct prog_instruction *inst);
const char *suffix, struct asm_opcode *inst);
/**
* Parses a condition code name
......@@ -299,4 +359,8 @@ extern int _mesa_parse_instruction_suffix(const struct asm_parser_state *state,
*/
extern int _mesa_parse_cc(const char *s);
#ifdef __cplusplus
};
#endif
/*@}*/
......@@ -240,7 +240,6 @@ STATETRACKER_SOURCES = \
PROGRAM_SOURCES = \
program/arbprogparse.c \
program/hash_table.c \
program/lex.yy.c \
program/nvfragparse.c \
program/nvvertparse.c \
program/program.c \
......@@ -261,6 +260,7 @@ PROGRAM_SOURCES = \
SHADER_CXX_SOURCES = \
program/program_lexer.cpp \
program/program_parse.cpp \
program/ir_to_mesa.cpp \
program/sampler.cpp
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment