d3d2glsl.c
author icculus
Wed, 12 Mar 2008 03:39:37 -0400
branchtrunk
changeset 17 78d605d6641d
parent 16 0fac78e9ff57
child 18 0dbdb2be8bf8
permissions -rw-r--r--
[svn] Starting to fill in D3D profile...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     1
/**
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     2
 * d3d2glsl; generate GLSL programs from bytecode of compiled Direct3D shaders.
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     3
 *
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     4
 * Please see the file LICENSE.txt in the source's root directory.
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     5
 *
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     6
 *  This file written by Ryan C. Gordon.
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     7
 */
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     8
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     9
// Shader bytecode format is described at MSDN:
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    10
//  http://msdn2.microsoft.com/en-us/library/ms800307.aspx
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    11
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
    12
#include <stdio.h>
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    13
#include <string.h>
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
    14
#include <stdlib.h>
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    15
#include <stdint.h>
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    16
#include <stdarg.h>
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    17
9
aea1b254e6a5 [svn] Patched to compile.
icculus
parents: 8
diff changeset
    18
#include "d3d2glsl.h"
aea1b254e6a5 [svn] Patched to compile.
icculus
parents: 8
diff changeset
    19
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    20
#ifndef SUPPORT_PROFILE_D3D
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    21
#define SUPPORT_PROFILE_D3D 1
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    22
#endif
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    23
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    24
#ifndef SUPPORT_PROFILE_GLSL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    25
#define SUPPORT_PROFILE_GLSL 1
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    26
#endif
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    27
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    28
#ifdef __GNUC__
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    29
#define ISPRINTF(x,y) __attribute__((format (printf, x, y)))
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    30
#else
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    31
#define ISPRINTF(x,y)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    32
#endif
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    33
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    34
#define STATICARRAYLEN(x) ( (sizeof ((x))) / (sizeof ((x)[0])) )
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    35
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    36
typedef unsigned int uint;  // this is a printf() helper. don't use for code.
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    37
typedef uint8_t uint8;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    38
typedef uint32_t uint32;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    39
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    40
// predeclare.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    41
typedef struct D3D2GLSL_context D3D2GLSL_context;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    42
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    43
// one emit function for each opcode in each profile.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    44
typedef void (*emit_function)(D3D2GLSL_context *ctx);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    45
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    46
// one emit function for comments in each profile.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    47
typedef void (*emit_comment)(D3D2GLSL_context *ctx, const char *str);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    48
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    49
// one emit function for starting output in each profile.
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    50
typedef void (*emit_start)(D3D2GLSL_context *ctx);
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    51
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    52
// one emit function for ending output in each profile.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    53
typedef void (*emit_end)(D3D2GLSL_context *ctx);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    54
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    55
// one state function for each opcode where we have state machine updates.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    56
typedef int (*state_function)(D3D2GLSL_context *ctx);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    57
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    58
typedef struct
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    59
{
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    60
    const char *name;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    61
    emit_start start_emitter;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    62
    emit_end end_emitter;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    63
    emit_comment comment_emitter;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    64
} D3D2GLSL_profile;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    65
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    66
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    67
typedef enum
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    68
{
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    69
    SHADER_TYPE_UNKNOWN = -1,
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    70
    SHADER_TYPE_PIXEL,
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    71
    SHADER_TYPE_VERTEX,
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    72
    SHADER_TYPE_TOTAL
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    73
} D3D2GLSL_shaderType;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    74
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    75
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    76
#define D3D2GLSL_SCRATCH_BUFFER_SIZE 256
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
    77
#define D3D2GLSL_SCRATCH_BUFFERS 10
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    78
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    79
// Context...this is state that changes as we parse through a shader...
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    80
struct D3D2GLSL_context
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    81
{
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    82
    const uint32 *tokens;
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    83
    uint32 tokencount;
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    84
    char *output;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    85
    uint32 output_len;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    86
    char *failstr;
13
f2baea592d2a [svn] Whoops, that was 256 5-byte strings, not 5 256-byte strings!
icculus
parents: 12
diff changeset
    87
    char buffers[D3D2GLSL_SCRATCH_BUFFERS][D3D2GLSL_SCRATCH_BUFFER_SIZE];
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    88
    int bufidx;  // current scratch buffer.
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    89
    int profileidx;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
    90
    const D3D2GLSL_profile *profile;
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    91
    D3D2GLSL_shaderType shader_type;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    92
    uint32 major_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
    93
    uint32 minor_ver;
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    94
};
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    95
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    96
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    97
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    98
// Byteswap magic...
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    99
4
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   100
#if ((defined __GNUC__) && (defined __POWERPC__))
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   101
    static inline uint32 SWAP32(uint32 x)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   102
    {
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   103
        __asm__ __volatile__("lwbrx %0,0,%1" : "=r" (x) : "r" (&x));
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   104
        return x;
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   105
    } // SWAP32
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   106
#elif defined(__POWERPC__)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   107
    static inline uint32 SWAP32(uint32 x)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   108
    {
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   109
        return ( (((x) >> 24) & 0x000000FF) | (((x) >>  8) & 0x0000FF00) |
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   110
                 (((x) <<  8) & 0x00FF0000) | (((x) << 24) & 0xFF000000) );
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   111
    } // SWAP32
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   112
#else
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   113
#   define SWAP32(x) (x)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   114
#endif
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
   115
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
   116
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   117
static inline char *get_scratch_buffer(D3D2GLSL_context *ctx)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   118
{
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   119
    ctx->bufidx = (ctx->bufidx + 1) % D3D2GLSL_SCRATCH_BUFFERS;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   120
    return ctx->buffers[ctx->bufidx];
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   121
} // get_scratch_buffer
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   122
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   123
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
   124
// Special-case return values from the parsing pipeline...
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   125
#define FAIL (-1)
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
   126
#define END_OF_STREAM (-2)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   127
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   128
static int failf(D3D2GLSL_context *ctx, const char *fmt, ...) ISPRINTF(2,3);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   129
static int failf(D3D2GLSL_context *ctx, const char *fmt, ...)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   130
{
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   131
    if (ctx->failstr == NULL)  // don't change existing error.
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   132
    {
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   133
        char *buffer = get_scratch_buffer(ctx);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   134
        va_list ap;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   135
        va_start(ap, fmt);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   136
        vsnprintf(buffer, D3D2GLSL_SCRATCH_BUFFER_SIZE, fmt, ap);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   137
        va_end(ap);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   138
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   139
        ctx->failstr = (char *) malloc(strlen(buffer) + 1);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   140
        if (ctx->failstr != NULL)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   141
            strcpy(ctx->failstr, buffer);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   142
    } // if
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   143
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   144
    return FAIL;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   145
} // failf
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   146
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   147
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   148
static inline int fail(D3D2GLSL_context *ctx, const char *reason)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   149
{
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   150
    return failf(ctx, "%s", reason);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   151
} // fail
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   152
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   153
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   154
static int output_line(D3D2GLSL_context *ctx, const char *fmt, ...) ISPRINTF(2,3);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   155
static int output_line(D3D2GLSL_context *ctx, const char *fmt, ...)
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
   156
{
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   157
    if (ctx->failstr != NULL)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   158
        return FAIL;  // we failed previously, don't go on...
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   159
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   160
    char *buffer = get_scratch_buffer(ctx);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   161
    va_list ap;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   162
    va_start(ap, fmt);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   163
    const int len = vsnprintf(buffer, D3D2GLSL_SCRATCH_BUFFER_SIZE, fmt, ap);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   164
    va_end(ap);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   165
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   166
    if (len >= D3D2GLSL_SCRATCH_BUFFER_SIZE)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   167
    {
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   168
        return failf(ctx, "Internal bug--String is too big (%d vs %d bytes).",
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   169
                     (int) len, (int) D3D2GLSL_SCRATCH_BUFFER_SIZE);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   170
    } // if
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   171
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   172
    const size_t newlen = ctx->output_len + len + 1;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   173
    char *ptr = (char *) realloc(ctx->output, newlen+1);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   174
    if (ptr == NULL)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   175
        return fail(ctx, "Out of memory");
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   176
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   177
    memcpy(ptr + ctx->output_len, buffer, len);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   178
    ptr[newlen-1] = '\n';
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   179
    ptr[newlen] = '\0';
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   180
    ctx->output = ptr;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   181
    ctx->output_len = newlen;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   182
    return 0;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   183
} // output_line
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   184
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   185
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   186
typedef struct
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   187
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   188
    int regnum;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   189
    int relative;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   190
    int writemask;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   191
    int result_mod;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   192
    int result_shift;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   193
    int regtype;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   194
} DestTokenInfo;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   195
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   196
static int parse_destination_token(D3D2GLSL_context *ctx, DestTokenInfo *info)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   197
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   198
    if (ctx->failstr != NULL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   199
        return FAIL;  // already failed elsewhere.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   200
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   201
    if (ctx->tokencount == 0)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   202
        return fail(ctx, "Out of tokens in destination parameter");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   203
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   204
    const uint32 token = SWAP32(*(ctx->tokens));
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   205
    const int reserved1 = (int) ((token >> 14) & 0x3); // bits 14 through 15
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   206
    const int reserved2 = (int) ((token >> 31) & 0x1); // bit 31
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   207
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   208
    ctx->tokens++;  // swallow token for now, for multiple calls in a row.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   209
    ctx->tokencount--;  // swallow token for now, for multiple calls in a row.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   210
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   211
    info->regnum = (int) (token & 0x7ff);  // bits 0 through 10
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   212
    info->relative = (int) ((token >> 13) & 0x1); // bit 13
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   213
    info->writemask = (int) ((token >> 16) & 0xF); // bits 16 through 19
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   214
    info->result_mod = (int) ((token >> 20) & 0xF); // bits 20 through 23
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   215
    info->result_shift = (int) ((token >> 24) & 0xF); // bits 24 through 27
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   216
    info->regtype = (int) ((token >> 28) & 0x7) | ((token >> 9) & 0x18);  // bits 28-30, 11-12
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   217
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   218
    if (reserved1 != 0x0)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   219
        return fail(ctx, "Reserved bit #1 in destination token must be zero");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   220
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   221
    if (reserved2 != 0x1)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   222
        return fail(ctx, "Reserved bit #2 in destination token must be one");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   223
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   224
    if (info->relative)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   225
    {
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   226
        if (ctx->shader_type != SHADER_TYPE_VERTEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   227
            return fail(ctx, "Relative addressing in non-vertex shader");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   228
        else if (ctx->major_ver < 3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   229
            return fail(ctx, "Relative addressing in vertex shader version < 3.0");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   230
        return fail(ctx, "Relative addressing is unsupported");  // !!! FIXME
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   231
    } // if
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   232
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   233
    if (info->result_shift != 0)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   234
    {
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   235
        if (ctx->shader_type != SHADER_TYPE_PIXEL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   236
            return fail(ctx, "Result shift scale in non-pixel shader");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   237
        else if (ctx->major_ver >= 2)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   238
            return fail(ctx, "Result shift scale in pixel shader version >= 2.0");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   239
    } // if
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   240
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   241
    if (info->result_mod & 0x1)  // Saturate (vertex shaders only)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   242
    {
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   243
        if (ctx->shader_type != SHADER_TYPE_VERTEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   244
            return fail(ctx, "Saturate result mod in non-vertex shader");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   245
    } // if
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   246
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   247
    if (info->result_mod & 0x2)  // Partial precision (pixel shaders only)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   248
    {
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   249
        if (ctx->shader_type != SHADER_TYPE_PIXEL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   250
            return fail(ctx, "Partial precision result mod in non-pixel shader");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   251
    } // if
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   252
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   253
    if (info->result_mod & 0x4)  // Centroid (pixel shaders only)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   254
    {
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   255
        if (ctx->shader_type != SHADER_TYPE_PIXEL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   256
            return fail(ctx, "Centroid result mod in non-pixel shader");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   257
    } // if
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   258
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   259
    return 1;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   260
} // parse_destination_token
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   261
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   262
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   263
typedef struct
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   264
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   265
    int regnum;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   266
    int relative;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   267
    int swizzle_x;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   268
    int swizzle_y;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   269
    int swizzle_z;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   270
    int swizzle_w;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   271
    int src_mod;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   272
    int regtype;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   273
} SrcTokenInfo;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   274
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   275
static int parse_source_token(D3D2GLSL_context *ctx, SrcTokenInfo *info)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   276
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   277
    if (ctx->failstr != NULL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   278
        return FAIL;  // already failed elsewhere.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   279
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   280
    if (ctx->tokencount == 0)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   281
        return fail(ctx, "Out of tokens in source parameter");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   282
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   283
    const uint32 token = SWAP32(*(ctx->tokens));
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   284
    const int reserved1 = (int) ((token >> 14) & 0x3); // bits 14 through 15
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   285
    const int reserved2 = (int) ((token >> 31) & 0x1); // bit 31
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   286
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   287
    ctx->tokens++;  // swallow token for now, for multiple calls in a row.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   288
    ctx->tokencount--;  // swallow token for now, for multiple calls in a row.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   289
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   290
    info->regnum = (int) (token & 0x7ff);  // bits 0 through 10
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   291
    info->relative = (int) ((token >> 13) & 0x1); // bit 13
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   292
    info->swizzle_x = (int) ((token >> 16) & 0x3); // bits 16 through 17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   293
    info->swizzle_y = (int) ((token >> 18) & 0x3); // bits 18 through 19
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   294
    info->swizzle_z = (int) ((token >> 20) & 0x3); // bits 20 through 21
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   295
    info->swizzle_w = (int) ((token >> 22) & 0x3); // bits 22 through 23
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   296
    info->src_mod = (int) ((token >> 24) & 0xF); // bits 24 through 27
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   297
    info->regtype = (int) ((token >> 28) & 0x7) | ((token >> 9) & 0x18);  // bits 28-30, 11-12
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   298
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   299
    if (reserved1 != 0x0)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   300
        return fail(ctx, "Reserved bit #1 in source token must be zero");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   301
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   302
    if (reserved2 != 0x1)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   303
        return fail(ctx, "Reserved bit #2 in source token must be one");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   304
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   305
    if (info->relative)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   306
    {
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   307
        if ((ctx->shader_type == SHADER_TYPE_PIXEL) && (ctx->major_ver < 3))
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   308
            return fail(ctx, "Relative addressing in pixel shader version < 3.0");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   309
        return fail(ctx, "Relative addressing is unsupported");  // !!! FIXME
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   310
    } // if
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   311
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   312
    if (info->src_mod >= 0xE)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   313
        return fail(ctx, "Unknown source modifier");
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   314
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   315
    return 1;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   316
} // parse_source_token
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   317
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   318
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   319
#define AT_LEAST_ONE_PROFILE 0
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   320
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   321
#if !SUPPORT_PROFILE_D3D
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   322
#define PROFILE_EMITTER_D3D(op)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   323
#else
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   324
#undef AT_LEAST_ONE_PROFILE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   325
#define AT_LEAST_ONE_PROFILE 1
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   326
#define PROFILE_EMITTER_D3D(op) emit_D3D_##op,
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   327
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   328
static char *get_D3D_destination(D3D2GLSL_context *ctx)
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   329
{
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   330
    char *retval = NULL;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   331
    DestTokenInfo info;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   332
    const int eaten = parse_destination_token(ctx, &info);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   333
    if ((eaten < 1) || (ctx->failstr != NULL))
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   334
        return "";
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   335
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   336
    retval = get_scratch_buffer(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   337
    strcpy(retval, "DST");  // !!! FIXME
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   338
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   339
    return retval;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   340
} // get_D3D_destination
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   341
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   342
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   343
static char *get_D3D_source(D3D2GLSL_context *ctx)
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   344
{
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   345
    char *retval = NULL;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   346
    SrcTokenInfo info;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   347
    const int eaten = parse_source_token(ctx, &info);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   348
    if ((eaten < 1) || (ctx->failstr != NULL))
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   349
        return "";
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   350
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   351
    retval = get_scratch_buffer(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   352
    strcpy(retval, "SRC");  // !!! FIXME
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   353
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   354
    return retval;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   355
} // get_D3D_source
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   356
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   357
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   358
static void emit_D3D_start(D3D2GLSL_context *ctx)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   359
{
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   360
    const uint major = (uint) ctx->major_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   361
    const uint minor = (uint) ctx->minor_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   362
    if (ctx->shader_type == SHADER_TYPE_PIXEL)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   363
        output_line(ctx, "ps_%u_%u", major, minor);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   364
    else if (ctx->shader_type == SHADER_TYPE_VERTEX)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   365
        output_line(ctx, "vs_%u_%u", major, minor);
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   366
    else
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   367
    {
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   368
        failf(ctx, "Shader type %u unsupported in this profile.",
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   369
              (uint) ctx->shader_type);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   370
    } // else
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   371
} // emit_D3D_start
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   372
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   373
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   374
static void emit_D3D_end(D3D2GLSL_context *ctx)
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   375
{
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   376
    output_line(ctx, "END");
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   377
} // emit_D3D_end
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   378
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   379
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   380
static void emit_D3D_comment(D3D2GLSL_context *ctx, const char *str)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   381
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   382
    output_line(ctx, "; %s", str);
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   383
} // emit_D3D_comment
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   384
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   385
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   386
static void emit_D3D_RESERVED(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   387
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   388
    // do nothing; fails in the state machine.
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   389
} // emit_D3D_RESERVED
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   390
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   391
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   392
// Generic D3D opcode emitters. A list of macros generate all the entry points
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   393
//  that call into these...
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   394
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   395
static void emit_D3D_opcode_d(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   396
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   397
    const char *dst1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   398
    output_line(ctx, "%s %s", opcode, dst1);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   399
} // emit_D3D_opcode_d
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   400
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   401
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   402
static void emit_D3D_opcode_s(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   403
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   404
    const char *src1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   405
    output_line(ctx, "%s %s", opcode, src1);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   406
} // emit_D3D_opcode_s
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   407
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   408
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   409
static void emit_D3D_opcode_ss(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   410
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   411
    const char *src1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   412
    const char *src2 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   413
    output_line(ctx, "%s %s, %s", opcode, src1, src2);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   414
} // emit_D3D_opcode_s
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   415
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   416
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   417
static void emit_D3D_opcode_ds(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   418
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   419
    const char *dst1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   420
    const char *src1 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   421
    output_line(ctx, "%s %s, %s", opcode, dst1, src1);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   422
} // emit_D3D_opcode_ds
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   423
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   424
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   425
static void emit_D3D_opcode_dss(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   426
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   427
    const char *dst1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   428
    const char *src1 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   429
    const char *src2 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   430
    output_line(ctx, "%s %s, %s, %s", opcode, dst1, src1, src2);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   431
} // emit_D3D_opcode_dss
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   432
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   433
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   434
static void emit_D3D_opcode_dsss(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   435
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   436
    const char *dst1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   437
    const char *src1 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   438
    const char *src2 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   439
    const char *src3 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   440
    output_line(ctx, "%s %s, %s, %s, %s", opcode, dst1, src1, src2, src3);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   441
} // emit_D3D_opcode_dsss
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   442
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   443
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   444
static void emit_D3D_opcode_dssss(D3D2GLSL_context *ctx, const char *opcode)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   445
{
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   446
    const char *dst1 = get_D3D_destination(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   447
    const char *src1 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   448
    const char *src2 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   449
    const char *src3 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   450
    const char *src4 = get_D3D_source(ctx);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   451
    output_line(ctx,"%s %s, %s, %s, %s, %s",opcode,dst1,src1,src2,src3,src4);
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   452
} // emit_D3D_opcode_dssss
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   453
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   454
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   455
#define EMIT_D3D_OPCODE_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   456
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   457
        output_line(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   458
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   459
#define EMIT_D3D_OPCODE_D_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   460
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   461
        emit_D3D_opcode_d(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   462
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   463
#define EMIT_D3D_OPCODE_S_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   464
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   465
        emit_D3D_opcode_s(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   466
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   467
#define EMIT_D3D_OPCODE_SS_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   468
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   469
        emit_D3D_opcode_ss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   470
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   471
#define EMIT_D3D_OPCODE_DS_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   472
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   473
        emit_D3D_opcode_ds(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   474
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   475
#define EMIT_D3D_OPCODE_DSS_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   476
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   477
        emit_D3D_opcode_dss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   478
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   479
#define EMIT_D3D_OPCODE_DSSS_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   480
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   481
        emit_D3D_opcode_dsss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   482
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   483
#define EMIT_D3D_OPCODE_DSSSS_FUNC(op) \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   484
    static void emit_D3D_##op(D3D2GLSL_context *ctx) { \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   485
        emit_D3D_opcode_dssss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   486
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   487
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   488
EMIT_D3D_OPCODE_FUNC(NOP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   489
EMIT_D3D_OPCODE_DS_FUNC(MOV)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   490
EMIT_D3D_OPCODE_DSS_FUNC(ADD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   491
EMIT_D3D_OPCODE_DSS_FUNC(SUB)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   492
EMIT_D3D_OPCODE_DSSS_FUNC(MAD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   493
EMIT_D3D_OPCODE_DSS_FUNC(MUL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   494
EMIT_D3D_OPCODE_DS_FUNC(RCP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   495
EMIT_D3D_OPCODE_DS_FUNC(RSQ)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   496
EMIT_D3D_OPCODE_DSS_FUNC(DP3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   497
EMIT_D3D_OPCODE_DSS_FUNC(DP4)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   498
EMIT_D3D_OPCODE_DSS_FUNC(MIN)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   499
EMIT_D3D_OPCODE_DSS_FUNC(MAX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   500
EMIT_D3D_OPCODE_DSS_FUNC(SLT)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   501
EMIT_D3D_OPCODE_DSS_FUNC(SGE)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   502
EMIT_D3D_OPCODE_DS_FUNC(EXP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   503
EMIT_D3D_OPCODE_DS_FUNC(LOG)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   504
EMIT_D3D_OPCODE_DS_FUNC(LIT)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   505
EMIT_D3D_OPCODE_DSS_FUNC(DST)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   506
EMIT_D3D_OPCODE_DSSS_FUNC(LRP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   507
EMIT_D3D_OPCODE_DS_FUNC(FRC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   508
EMIT_D3D_OPCODE_DSS_FUNC(M4X4)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   509
EMIT_D3D_OPCODE_DSS_FUNC(M4X3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   510
EMIT_D3D_OPCODE_DSS_FUNC(M3X4)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   511
EMIT_D3D_OPCODE_DSS_FUNC(M3X3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   512
EMIT_D3D_OPCODE_DSS_FUNC(M3X2)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   513
EMIT_D3D_OPCODE_S_FUNC(CALL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   514
EMIT_D3D_OPCODE_SS_FUNC(CALLNZ)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   515
EMIT_D3D_OPCODE_S_FUNC(LOOP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   516
EMIT_D3D_OPCODE_FUNC(RET)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   517
EMIT_D3D_OPCODE_FUNC(ENDLOOP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   518
EMIT_D3D_OPCODE_S_FUNC(LABEL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   519
EMIT_D3D_OPCODE_FUNC(DCL)  // !!! FIXME!
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   520
EMIT_D3D_OPCODE_DSS_FUNC(POW)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   521
EMIT_D3D_OPCODE_DSS_FUNC(CRS)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   522
EMIT_D3D_OPCODE_DSSS_FUNC(SGN)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   523
EMIT_D3D_OPCODE_DS_FUNC(ABS)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   524
EMIT_D3D_OPCODE_DS_FUNC(NRM)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   525
EMIT_D3D_OPCODE_DS_FUNC(SINCOS)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   526
EMIT_D3D_OPCODE_S_FUNC(REP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   527
EMIT_D3D_OPCODE_FUNC(ENDREP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   528
EMIT_D3D_OPCODE_S_FUNC(IF)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   529
EMIT_D3D_OPCODE_SS_FUNC(IFC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   530
EMIT_D3D_OPCODE_FUNC(ELSE)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   531
EMIT_D3D_OPCODE_FUNC(ENDIF)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   532
EMIT_D3D_OPCODE_FUNC(BREAK)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   533
EMIT_D3D_OPCODE_SS_FUNC(BREAKC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   534
EMIT_D3D_OPCODE_DS_FUNC(MOVA)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   535
EMIT_D3D_OPCODE_FUNC(DEFB) // !!! FIXME!
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   536
EMIT_D3D_OPCODE_FUNC(DEFI) // !!! FIXME!
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   537
EMIT_D3D_OPCODE_FUNC(TEXCOORD) // !!! FIXME!
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   538
EMIT_D3D_OPCODE_D_FUNC(TEXKILL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   539
EMIT_D3D_OPCODE_FUNC(TEX) // !!! FIXME!
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   540
EMIT_D3D_OPCODE_DS_FUNC(TEXBEM)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   541
EMIT_D3D_OPCODE_DS_FUNC(TEXBEML)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   542
EMIT_D3D_OPCODE_DS_FUNC(TEXREG2AR)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   543
EMIT_D3D_OPCODE_DS_FUNC(TEXREG2GB)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   544
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X2PAD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   545
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X2TEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   546
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3PAD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   547
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3TEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   548
EMIT_D3D_OPCODE_DSS_FUNC(TEXM3X3SPEC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   549
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3VSPEC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   550
EMIT_D3D_OPCODE_DS_FUNC(EXPP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   551
EMIT_D3D_OPCODE_DS_FUNC(LOGP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   552
EMIT_D3D_OPCODE_DSSS_FUNC(CND)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   553
EMIT_D3D_OPCODE_FUNC(DEF) // !!! FIXME!
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   554
EMIT_D3D_OPCODE_DS_FUNC(TEXREG2RGB)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   555
EMIT_D3D_OPCODE_DS_FUNC(TEXDP3TEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   556
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X2DEPTH)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   557
EMIT_D3D_OPCODE_DS_FUNC(TEXDP3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   558
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   559
EMIT_D3D_OPCODE_D_FUNC(TEXDEPTH)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   560
EMIT_D3D_OPCODE_DSSS_FUNC(CMP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   561
EMIT_D3D_OPCODE_DSS_FUNC(BEM)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   562
EMIT_D3D_OPCODE_DSSS_FUNC(DP2ADD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   563
EMIT_D3D_OPCODE_DS_FUNC(DSX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   564
EMIT_D3D_OPCODE_DS_FUNC(DSY)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   565
EMIT_D3D_OPCODE_DSSSS_FUNC(TEXLDD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   566
EMIT_D3D_OPCODE_DSS_FUNC(SETP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   567
EMIT_D3D_OPCODE_DSS_FUNC(TEXLDL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   568
EMIT_D3D_OPCODE_DS_FUNC(BREAKP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   569
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   570
#undef EMIT_D3D_OPCODE_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   571
#undef EMIT_D3D_OPCODE_D_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   572
#undef EMIT_D3D_OPCODE_S_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   573
#undef EMIT_D3D_OPCODE_SS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   574
#undef EMIT_D3D_OPCODE_DS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   575
#undef EMIT_D3D_OPCODE_DSS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   576
#undef EMIT_D3D_OPCODE_DSSS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   577
#undef EMIT_D3D_OPCODE_DSSSS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   578
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   579
#endif  // SUPPORT_PROFILE_D3D
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   580
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   581
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   582
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   583
#if !SUPPORT_PROFILE_GLSL
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   584
#define PROFILE_EMITTER_GLSL(op)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   585
#else
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   586
#undef AT_LEAST_ONE_PROFILE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   587
#define AT_LEAST_ONE_PROFILE 1
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   588
#define PROFILE_EMITTER_GLSL(op) emit_GLSL_##op,
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   589
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   590
static void emit_GLSL_start(D3D2GLSL_context *ctx)
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   591
{
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   592
    const uint major = (uint) ctx->major_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   593
    const uint minor = (uint) ctx->minor_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   594
    if (ctx->shader_type == SHADER_TYPE_PIXEL)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   595
        output_line(ctx, "// Pixel shader, version %u.%u", major, minor);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   596
    else if (ctx->shader_type == SHADER_TYPE_VERTEX)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   597
        output_line(ctx, "// Vertex shader, version %u.%u", major, minor);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   598
    else
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   599
    {
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   600
        failf(ctx, "Shader type %u unsupported in this profile.",
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   601
              (uint) ctx->shader_type);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   602
    } // else
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   603
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   604
    output_line(ctx, "void main() {");
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   605
} // emit_GLSL_start
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   606
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   607
static void emit_GLSL_end(D3D2GLSL_context *ctx)
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   608
{
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   609
    output_line(ctx, "}");
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   610
} // emit_GLSL_end
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   611
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   612
static void emit_GLSL_comment(D3D2GLSL_context *ctx, const char *str)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   613
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   614
    output_line(ctx, "// %s", str);
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   615
} // emit_GLSL_comment
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   616
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   617
static void emit_GLSL_NOP(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   618
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   619
    // no-op is a no-op.  :)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   620
} // emit_GLSL_NOP
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   621
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   622
static void emit_GLSL_MOV(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   623
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   624
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   625
} // emit_GLSL_MOV
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   626
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   627
static void emit_GLSL_ADD(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   628
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   629
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   630
} // emit_GLSL_ADD
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   631
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   632
static void emit_GLSL_SUB(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   633
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   634
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   635
} // emit_GLSL_SUB
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   636
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   637
static void emit_GLSL_MAD(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   638
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   639
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   640
} // emit_GLSL_MAD
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   641
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   642
static void emit_GLSL_MUL(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   643
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   644
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   645
} // emit_GLSL_MUL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   646
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   647
static void emit_GLSL_RCP(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   648
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   649
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   650
} // emit_GLSL_RCP
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   651
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   652
static void emit_GLSL_RSQ(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   653
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   654
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   655
} // emit_GLSL_RSQ
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   656
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   657
static void emit_GLSL_DP3(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   658
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   659
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   660
} // emit_GLSL_DP3
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   661
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   662
static void emit_GLSL_DP4(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   663
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   664
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   665
} // emit_GLSL_DP4
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   666
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   667
static void emit_GLSL_MIN(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   668
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   669
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   670
} // emit_GLSL_MIN
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   671
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   672
static void emit_GLSL_MAX(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   673
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   674
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   675
} // emit_GLSL_MAX
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   676
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   677
static void emit_GLSL_SLT(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   678
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   679
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   680
} // emit_GLSL_SLT
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   681
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   682
static void emit_GLSL_SGE(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   683
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   684
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   685
} // emit_GLSL_SGE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   686
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   687
static void emit_GLSL_EXP(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   688
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   689
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   690
} // emit_GLSL_EXP
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   691
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   692
static void emit_GLSL_LOG(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   693
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   694
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   695
} // emit_GLSL_LOG
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   696
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   697
static void emit_GLSL_LIT(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   698
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   699
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   700
} // emit_GLSL_LIT
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   701
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   702
static void emit_GLSL_DST(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   703
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   704
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   705
} // emit_GLSL_DST
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   706
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   707
static void emit_GLSL_LRP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   708
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   709
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   710
} // emit_GLSL_LRP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   711
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   712
static void emit_GLSL_FRC(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   713
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   714
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   715
} // emit_GLSL_FRC
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   716
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   717
static void emit_GLSL_M4X4(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   718
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   719
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   720
} // emit_GLSL_M4X4
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   721
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   722
static void emit_GLSL_M4X3(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   723
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   724
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   725
} // emit_GLSL_M4X3
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   726
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   727
static void emit_GLSL_M3X4(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   728
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   729
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   730
} // emit_GLSL_M3X4
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   731
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   732
static void emit_GLSL_M3X3(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   733
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   734
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   735
} // emit_GLSL_M3X3
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   736
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   737
static void emit_GLSL_M3X2(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   738
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   739
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   740
} // emit_GLSL_M3X2
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   741
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   742
static void emit_GLSL_CALL(D3D2GLSL_context *ctx)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
   743
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   744
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   745
} // emit_GLSL_CALL
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   746
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   747
static void emit_GLSL_CALLNZ(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   748
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   749
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   750
} // emit_GLSL_CALLNZ
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   751
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   752
static void emit_GLSL_LOOP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   753
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   754
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   755
} // emit_GLSL_LOOP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   756
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   757
static void emit_GLSL_RET(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   758
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   759
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   760
} // emit_GLSL_RET
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   761
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   762
static void emit_GLSL_ENDLOOP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   763
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   764
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   765
} // emit_GLSL_ENDLOOP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   766
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   767
static void emit_GLSL_LABEL(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   768
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   769
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   770
} // emit_GLSL_LABEL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   771
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   772
static void emit_GLSL_DCL(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   773
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   774
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   775
} // emit_GLSL_DCL
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   776
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   777
static void emit_GLSL_POW(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   778
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   779
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   780
} // emit_GLSL_POW
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   781
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   782
static void emit_GLSL_CRS(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   783
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   784
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   785
} // emit_GLSL_CRS
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   786
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   787
static void emit_GLSL_SGN(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   788
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   789
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   790
} // emit_GLSL_SGN
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   791
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   792
static void emit_GLSL_ABS(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   793
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   794
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   795
} // emit_GLSL_ABS
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   796
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   797
static void emit_GLSL_NRM(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   798
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   799
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   800
} // emit_GLSL_NRM
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   801
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   802
static void emit_GLSL_SINCOS(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   803
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   804
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   805
} // emit_GLSL_SINCOS
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   806
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   807
static void emit_GLSL_REP(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   808
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   809
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   810
} // emit_GLSL_REP
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   811
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   812
static void emit_GLSL_ENDREP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   813
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   814
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   815
} // emit_GLSL_ENDREP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   816
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   817
static void emit_GLSL_IF(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   818
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   819
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   820
} // emit_GLSL_IF
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   821
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   822
static void emit_GLSL_IFC(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   823
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   824
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   825
} // emit_GLSL_IFC
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   826
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   827
static void emit_GLSL_ELSE(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   828
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   829
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   830
} // emit_GLSL_ELSE
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   831
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   832
static void emit_GLSL_ENDIF(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   833
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   834
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   835
} // emit_GLSL_ENDIF
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   836
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   837
static void emit_GLSL_BREAK(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   838
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   839
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   840
} // emit_GLSL_BREAK
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   841
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   842
static void emit_GLSL_BREAKC(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   843
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   844
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   845
} // emit_GLSL_BREAKC
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   846
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   847
static void emit_GLSL_MOVA(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   848
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   849
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   850
} // emit_GLSL_MOVA
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   851
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   852
static void emit_GLSL_DEFB(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   853
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   854
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   855
} // emit_GLSL_DEFB
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   856
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   857
static void emit_GLSL_DEFI(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   858
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   859
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   860
} // emit_GLSL_DEFI
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   861
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   862
static void emit_GLSL_TEXCOORD(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   863
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   864
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   865
} // emit_GLSL_TEXCOORD
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   866
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   867
static void emit_GLSL_TEXKILL(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   868
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   869
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   870
} // emit_GLSL_TEXKILL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   871
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   872
static void emit_GLSL_TEX(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   873
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   874
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   875
} // emit_GLSL_TEX
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   876
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   877
static void emit_GLSL_TEXBEM(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   878
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   879
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   880
} // emit_GLSL_TEXBEM
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   881
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   882
static void emit_GLSL_TEXBEML(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   883
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   884
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   885
} // emit_GLSL_TEXBEML
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   886
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   887
static void emit_GLSL_TEXREG2AR(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   888
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   889
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   890
} // emit_GLSL_TEXREG2AR
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   891
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   892
static void emit_GLSL_TEXREG2GB(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   893
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   894
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   895
} // emit_GLSL_TEXREG2GB
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   896
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   897
static void emit_GLSL_TEXM3X2PAD(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   898
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   899
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   900
} // emit_GLSL_TEXM3X2PAD
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   901
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   902
static void emit_GLSL_TEXM3X2TEX(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   903
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   904
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   905
} // emit_GLSL_TEXM3X2TEX
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   906
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   907
static void emit_GLSL_TEXM3X3PAD(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   908
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   909
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   910
} // emit_GLSL_TEXM3X3PAD
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   911
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   912
static void emit_GLSL_TEXM3X3TEX(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   913
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   914
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   915
} // emit_GLSL_TEXM3X3TEX
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   916
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   917
static void emit_GLSL_TEXM3X3SPEC(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   918
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   919
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   920
} // emit_GLSL_TEXM3X3SPEC
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   921
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   922
static void emit_GLSL_TEXM3X3VSPEC(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   923
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   924
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   925
} // emit_GLSL_TEXM3X3VSPEC
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   926
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   927
static void emit_GLSL_EXPP(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   928
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   929
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   930
} // emit_GLSL_EXPP
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   931
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   932
static void emit_GLSL_LOGP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   933
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   934
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   935
} // emit_GLSL_LOGP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   936
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   937
static void emit_GLSL_CND(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   938
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   939
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   940
} // emit_GLSL_CND
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   941
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   942
static void emit_GLSL_DEF(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   943
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   944
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   945
} // emit_GLSL_DEF
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   946
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   947
static void emit_GLSL_TEXREG2RGB(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   948
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   949
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   950
} // emit_GLSL_TEXREG2RGB
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   951
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   952
static void emit_GLSL_TEXDP3TEX(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   953
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   954
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   955
} // emit_GLSL_TEXDP3TEX
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   956
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   957
static void emit_GLSL_TEXM3X2DEPTH(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   958
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   959
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   960
} // emit_GLSL_TEXM3X2DEPTH
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   961
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   962
static void emit_GLSL_TEXDP3(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   963
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   964
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   965
} // emit_GLSL_TEXDP3
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   966
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   967
static void emit_GLSL_TEXM3X3(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   968
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   969
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   970
} // emit_GLSL_TEXM3X3
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   971
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   972
static void emit_GLSL_TEXDEPTH(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   973
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   974
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   975
} // emit_GLSL_TEXDEPTH
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   976
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   977
static void emit_GLSL_CMP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   978
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   979
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   980
} // emit_GLSL_CMP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   981
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   982
static void emit_GLSL_BEM(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   983
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   984
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   985
} // emit_GLSL_BEM
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   986
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   987
static void emit_GLSL_DP2ADD(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   988
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   989
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   990
} // emit_GLSL_DP2ADD
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   991
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   992
static void emit_GLSL_DSX(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   993
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   994
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   995
} // emit_GLSL_DSX
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   996
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   997
static void emit_GLSL_DSY(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   998
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   999
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1000
} // emit_GLSL_DSY
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1001
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1002
static void emit_GLSL_TEXLDD(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1003
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1004
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1005
} // emit_GLSL_TEXLDD
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1006
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1007
static void emit_GLSL_SETP(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1008
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1009
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1010
} // emit_GLSL_SETP
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1011
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1012
static void emit_GLSL_TEXLDL(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1013
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1014
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1015
} // emit_GLSL_TEXLDL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1016
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1017
static void emit_GLSL_BREAKP(D3D2GLSL_context *ctx)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1018
{
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1019
    fail(ctx, "unimplemented.");  // !!! FIXME
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1020
} // emit_GLSL_BREAKP
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1021
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1022
static void emit_GLSL_RESERVED(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1023
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1024
    // do nothing; fails in the state machine.
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1025
} // emit_GLSL_RESERVED
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1026
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1027
#endif  // SUPPORT_PROFILE_GLSL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1028
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1029
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1030
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1031
#if !AT_LEAST_ONE_PROFILE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1032
#error No profiles are supported. Fix your build.
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1033
#endif
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1034
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1035
static const D3D2GLSL_profile profiles[] =
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1036
{
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1037
#if SUPPORT_PROFILE_D3D
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1038
    { "d3d", emit_D3D_start, emit_D3D_end, emit_D3D_comment },
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1039
#endif
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1040
#if SUPPORT_PROFILE_GLSL
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1041
    { "glsl", emit_GLSL_start, emit_GLSL_end, emit_GLSL_comment },
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1042
#endif
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1043
};
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1044
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1045
// The PROFILE_EMITTER_* items MUST be in the same order as profiles[]!
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1046
#define PROFILE_EMITTERS(op) { \
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1047
     PROFILE_EMITTER_D3D(op) \
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1048
     PROFILE_EMITTER_GLSL(op) \
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1049
}
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1050
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1051
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1052
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1053
// State machine functions...
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1054
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1055
static int state_RESERVED(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1056
{
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1057
    return fail(ctx, "Tried to use RESERVED opcode.");
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1058
} // state_RESERVED
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1059
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1060
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1061
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
  1062
// Lookup table for instruction opcodes...
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1063
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1064
typedef struct
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1065
{
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1066
    const char *opcode_string;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1067
    int arg_tokens;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1068
    //uint32 shader_requirements;
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1069
    state_function state;
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1070
    emit_function emitter[STATICARRAYLEN(profiles)];
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1071
} Instruction;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1072
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1073
// These have to be in the right order! This array is indexed by the value
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1074
//  of the instruction token.
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1075
static Instruction instructions[] = {
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1076
    // INSTRUCTION_STATE means this opcode has to update the state machine
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1077
    //  (we're entering an ELSE block, etc). INSTRUCTION means there's no
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1078
    //  state, just go straight to the emitters.
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1079
    #define INSTRUCTION_STATE(op, args) { #op, args, state_##op, PROFILE_EMITTERS(op) }
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1080
    #define INSTRUCTION(op, args) { #op, args, NULL, PROFILE_EMITTERS(op) }
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1081
    INSTRUCTION(NOP, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1082
    INSTRUCTION(MOV, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1083
    INSTRUCTION(ADD, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1084
    INSTRUCTION(SUB, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1085
    INSTRUCTION(MAD, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1086
    INSTRUCTION(MUL, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1087
    INSTRUCTION(RCP, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1088
    INSTRUCTION(RSQ, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1089
    INSTRUCTION(DP3, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1090
    INSTRUCTION(DP4, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1091
    INSTRUCTION(MIN, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1092
    INSTRUCTION(MAX, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1093
    INSTRUCTION(SLT, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1094
    INSTRUCTION(SGE, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1095
    INSTRUCTION(EXP, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1096
    INSTRUCTION(LOG, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1097
    INSTRUCTION(LIT, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1098
    INSTRUCTION(DST, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1099
    INSTRUCTION(LRP, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1100
    INSTRUCTION(FRC, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1101
    INSTRUCTION(M4X4, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1102
    INSTRUCTION(M4X3, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1103
    INSTRUCTION(M3X4, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1104
    INSTRUCTION(M3X3, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1105
    INSTRUCTION(M3X2, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1106
    INSTRUCTION(CALL, 1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1107
    INSTRUCTION(CALLNZ, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1108
    INSTRUCTION(LOOP, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1109
    INSTRUCTION(RET, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1110
    INSTRUCTION(ENDLOOP, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1111
    INSTRUCTION(LABEL, 1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1112
    INSTRUCTION(DCL, -1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1113
    INSTRUCTION(POW, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1114
    INSTRUCTION(CRS, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1115
    INSTRUCTION(SGN, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1116
    INSTRUCTION(ABS, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1117
    INSTRUCTION(NRM, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1118
    INSTRUCTION(SINCOS, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1119
    INSTRUCTION(REP, 1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1120
    INSTRUCTION(ENDREP, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1121
    INSTRUCTION(IF, 1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1122
    INSTRUCTION(IFC, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1123
    INSTRUCTION(ELSE, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1124
    INSTRUCTION(ENDIF, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1125
    INSTRUCTION(BREAK, 0),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1126
    INSTRUCTION(BREAKC, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1127
    INSTRUCTION(MOVA, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1128
    INSTRUCTION(DEFB, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1129
    INSTRUCTION(DEFI, 5),
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1130
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1131
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1132
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1133
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1134
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1135
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1136
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1137
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1138
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1139
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1140
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1141
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1142
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1143
    INSTRUCTION_STATE(RESERVED, 0),
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1144
    INSTRUCTION_STATE(RESERVED, 0),
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1145
    INSTRUCTION(TEXCOORD, -1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1146
    INSTRUCTION(TEXKILL, 1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1147
    INSTRUCTION(TEX, -1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1148
    INSTRUCTION(TEXBEM, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1149
    INSTRUCTION(TEXBEML, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1150
    INSTRUCTION(TEXREG2AR, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1151
    INSTRUCTION(TEXREG2GB, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1152
    INSTRUCTION(TEXM3X2PAD, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1153
    INSTRUCTION(TEXM3X2TEX, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1154
    INSTRUCTION(TEXM3X3PAD, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1155
    INSTRUCTION(TEXM3X3TEX, 2),
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1156
    INSTRUCTION_STATE(RESERVED, 0),
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1157
    INSTRUCTION(TEXM3X3SPEC, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1158
    INSTRUCTION(TEXM3X3VSPEC, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1159
    INSTRUCTION(EXPP, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1160
    INSTRUCTION(LOGP, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1161
    INSTRUCTION(CND, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1162
    INSTRUCTION(DEF, 5),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1163
    INSTRUCTION(TEXREG2RGB, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1164
    INSTRUCTION(TEXDP3TEX, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1165
    INSTRUCTION(TEXM3X2DEPTH, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1166
    INSTRUCTION(TEXDP3, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1167
    INSTRUCTION(TEXM3X3, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1168
    INSTRUCTION(TEXDEPTH, 1),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1169
    INSTRUCTION(CMP, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1170
    INSTRUCTION(BEM, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1171
    INSTRUCTION(DP2ADD, 4),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1172
    INSTRUCTION(DSX, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1173
    INSTRUCTION(DSY, 2),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1174
    INSTRUCTION(TEXLDD, 5),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1175
    INSTRUCTION(SETP, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1176
    INSTRUCTION(TEXLDL, 3),
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1177
    INSTRUCTION(BREAKP, 1),  // src
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1178
    #undef INSTRUCTION
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1179
    #undef INSTRUCTION_STATE
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1180
};
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1181
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1182
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
  1183
// parse various token types...
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
  1184
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1185
static int parse_instruction_token(D3D2GLSL_context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1186
{
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1187
    const uint32 *start_tokens = ctx->tokens;
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1188
    const uint32 start_tokencount = ctx->tokencount;
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1189
    const uint32 token = SWAP32(*(ctx->tokens));
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1190
    const uint32 opcode = (token & 0xFFFF);
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1191
    const uint32 controls = ((token >> 16) & 0xFF);
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1192
    const uint32 insttoks = ((token >> 24) & 0x0F);
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1193
    const int coissue = (token & 0x40000000) ? 1 : 0;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1194
    const int predicated = (token & 0x10000000) ? 1 : 0;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1195
    const Instruction *instruction = &instructions[opcode];
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1196
    const emit_function emitter = instruction->emitter[ctx->profileidx];
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1197
    int retval = FAIL;
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1198
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1199
    if ( opcode >= (sizeof (instructions) / sizeof (instructions[0])) )
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1200
        return 0;  // not an instruction token, or just not handled here.
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1201
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1202
    if ((token & 0x80000000) != 0)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1203
        return fail(ctx, "instruction token high bit must be zero.");  // so says msdn.
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1204
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1205
    if (coissue)  // !!! FIXME: I'm not sure what this means, yet.
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1206
        return fail(ctx, "coissue instructions unsupported");
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1207
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1208
    if (instruction->arg_tokens >= 0)
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1209
    {
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1210
        if (instruction->arg_tokens != insttoks)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1211
        {
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1212
            return failf(ctx,
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1213
                    "unexpected number of tokens (%u) for instruction '%s'.",
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1214
                    (uint) insttoks, instruction->opcode_string);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1215
        } // if
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1216
        else if (ctx->tokencount <= instruction->arg_tokens)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1217
        {
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1218
            return failf(ctx,
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1219
                    "need more tokens (need %u, got %u) for instruction '%s'.",
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1220
                    (uint) instruction->arg_tokens, (uint) ctx->tokencount,
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1221
                    instruction->opcode_string);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1222
        } // else if
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1223
    } // if
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1224
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1225
    if (instruction->state != NULL)  // update state machine
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1226
        retval = instruction->state(ctx);
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1227
    else
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1228
        retval = insttoks + 1;
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1229
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1230
    if (ctx->failstr == NULL)  // only do this if there wasn't a previous fail.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1231
        emitter(ctx);  // call the profile's emitter.
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1232
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1233
    ctx->tokens = start_tokens;  // in case emitters ate anything.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1234
    ctx->tokencount = start_tokencount;  // in case emitters ate anything.
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1235
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1236
    return retval;
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1237
} // parse_instruction_token
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1238
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1239
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1240
static int parse_version_token(D3D2GLSL_context *ctx)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1241
{
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1242
    if (ctx->tokencount == 0)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1243
        return fail(ctx, "Expected version token, got none at all.");
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1244
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1245
    const uint32 token = SWAP32(*(ctx->tokens));
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1246
    const uint32 shadertype = ((token >> 16) & 0xFFFF);
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1247
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1248
    ctx->major_ver = (uint32) ((token >> 8) & 0xFF);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1249
    ctx->minor_ver = (uint32) (token & 0xFF);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1250
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1251
    // 0xFFFF == pixel shader, 0xFFFE == vertex shader
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1252
    if (shadertype == 0xFFFF)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1253
        ctx->shader_type = SHADER_TYPE_PIXEL;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1254
    else if (shadertype == 0xFFFE)
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1255
        ctx->shader_type = SHADER_TYPE_VERTEX;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1256
    else
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1257
        return fail(ctx, "Unsupported shader type or not a shader at all");
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1258
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1259
    ctx->profile->start_emitter(ctx);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1260
    return 1;  // ate one token.
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1261
} // parse_version_token
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1262
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1263
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1264
static int parse_comment_token(D3D2GLSL_context *ctx)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1265
{
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1266
    const uint32 token = SWAP32(*(ctx->tokens));
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1267
    if ((token & 0xFFFF) != 0xFFFE)
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1268
        return 0;  // not a comment token.
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1269
    else if ((token & 0x80000000) != 0)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1270
        return fail(ctx, "comment token high bit must be zero.");  // so says msdn.
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1271
    else
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1272
    {
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1273
        const uint32 commenttoks = ((token >> 16) & 0xFFFF);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1274
        const uint32 commentlen = commenttoks * sizeof (uint32);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1275
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1276
        // !!! FIXME: I'd rather not malloc() here.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1277
        char *str = (char *) malloc(commentlen + 1);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1278
        memcpy(str, (const char *) (ctx->tokens+1), commentlen);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1279
        str[commentlen] = '\0';
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1280
        ctx->profile->comment_emitter(ctx, str);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1281
        free(str);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1282
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1283
        return commenttoks + 1;  // comment data plus the initial token.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1284
    } // else
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1285
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1286
    // shouldn't hit this.
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1287
    return failf(ctx, "Logic error at %s:%d", __FILE__, __LINE__);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1288
} // parse_comment_token
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1289
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1290
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1291
static int parse_end_token(D3D2GLSL_context *ctx)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1292
{
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1293
    if (SWAP32(*(ctx->tokens)) != 0x0000FFFF)   // end token always 0x0000FFFF.
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1294
        return 0;  // not us, eat no tokens.
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1295
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1296
    if (ctx->tokencount != 1)  // we _must_ be last. If not: fail.
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1297
        return fail(ctx, "end token before end of stream");
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1298
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1299
    ctx->profile->end_emitter(ctx);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1300
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1301
    return END_OF_STREAM;
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1302
} // parse_end_token
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1303
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1304
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1305
static int parse_phase_token(D3D2GLSL_context *ctx)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1306
{
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1307
    if (SWAP32(*(ctx->tokens)) != 0x0000FFFD) // phase token always 0x0000FFFD.
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1308
        return 0;  // not us, eat no tokens.
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1309
    return fail(ctx, "not sure what this thing is yet.");
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1310
} // parse_phase_token
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1311
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1312
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1313
static int parse_token(D3D2GLSL_context *ctx)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1314
{
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1315
    int rc = 0;
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1316
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1317
    if (ctx->failstr != NULL)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1318
        return FAIL;  // just in case...catch previously unhandled fails here.
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1319
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1320
    if (ctx->tokencount == 0)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1321
        return fail(ctx, "unexpected end of shader.");
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1322
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1323
    if ((rc = parse_comment_token(ctx)) != 0)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1324
        return rc;
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1325
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1326
    if ((rc = parse_end_token(ctx)) != 0)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1327
        return rc;
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1328
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1329
    if ((rc = parse_phase_token(ctx)) != 0)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1330
        return rc;
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1331
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1332
    if ((rc = parse_instruction_token(ctx)) != 0)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1333
        return rc;
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1334
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
  1335
    return failf(ctx, "unknown token (%u)", (uint) *ctx->tokens);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1336
} // parse_token
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1337
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1338
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
  1339
// API entry point...
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
  1340
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1341
int D3D2GLSL_parse(const char *profile, const unsigned char *tokenbuf,
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1342
                   const unsigned int bufsize)
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1343
{
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1344
    D3D2GLSL_context ctx;
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1345
    int rc = 0;
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1346
    int i = 0;
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1347
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1348
    memset(&ctx, '\0', sizeof (D3D2GLSL_context));
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1349
    ctx.tokens = (const uint32 *) tokenbuf;
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
  1350
    ctx.tokencount = bufsize / sizeof (uint32);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1351
    for (i = 0; i < STATICARRAYLEN(profiles); i++)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1352
    {
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1353
        const char *name = profiles[i].name;
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1354
        if (strcmp(name, profile) == 0)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1355
        {
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1356
            ctx.profile = &profiles[i];
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1357
            ctx.profileidx = i;
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1358
            break;
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1359
        } // if
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1360
    } // for
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1361
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1362
    if (ctx.profile == NULL)
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1363
        failf(&ctx, "Profile '%s' is unknown or unsupported", profile);
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1364
    else
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1365
    {
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1366
        // Version token always comes first.
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1367
        rc = parse_version_token(&ctx);
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
  1368
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1369
        // parse out the rest of the tokens after the version token...
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1370
        while (rc > 0)
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1371
        {
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1372
            ctx.tokens += rc;
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset