mojoshader.c
author icculus
Fri, 28 Mar 2008 05:40:24 -0400
branchtrunk
changeset 54 b2b64d39df0f
parent 51 b3978661fd6b
child 55 0ad8810899a0
permissions -rw-r--r--
[svn] Split up output into several lists, so GLSL profile can insert lines of text into earlier portions of the output (such as subroutines we need to build in response to labels, and global uniform declaration after we've declared the mainline, etc).
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     1
/**
35
5749d174b537 [svn] Might as well keep the tradition alive.
icculus
parents: 34
diff changeset
     2
 * MojoShader; generate shader programs from bytecode of compiled
5749d174b537 [svn] Might as well keep the tradition alive.
icculus
parents: 34
diff changeset
     3
 *  Direct3D shaders.
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     4
 *
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     5
 * Please see the file LICENSE.txt in the source's root directory.
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     6
 *
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     7
 *  This file written by Ryan C. Gordon.
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     8
 */
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
     9
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    10
// !!! FIXME: I keep changing coding styles for symbols and typedefs.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    11
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
    12
// !!! FIXME: do DEF* and DCL_* opcodes have to come before instructions?
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
    13
// !!! FIXME:  my reading of the msdn spec suggests no.
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
    14
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    15
// Shader bytecode format is described at MSDN:
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    16
//  http://msdn2.microsoft.com/en-us/library/ms800307.aspx
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    17
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
    18
#include <stdio.h>
11
c9bb617d9b77 [svn] Pass around a context struct, so we can start tracking state, etc.
icculus
parents: 9
diff changeset
    19
#include <string.h>
1
99ac16070d07 [svn] Initial add.
icculus
parents:
diff changeset
    20
#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
    21
#include <stdint.h>
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    22
#include <stdarg.h>
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
    23
#include <assert.h>
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
    24
35
5749d174b537 [svn] Might as well keep the tradition alive.
icculus
parents: 34
diff changeset
    25
#include "mojoshader.h"
9
aea1b254e6a5 [svn] Patched to compile.
icculus
parents: 8
diff changeset
    26
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
    27
// This is the highest shader version we currently support.
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
    28
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
    29
#define MAX_SHADER_MAJOR 3
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
    30
#define MAX_SHADER_MINOR 0
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
    31
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    32
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    33
// You get all the profiles unless you go out of your way to disable them.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    34
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    35
#ifndef SUPPORT_PROFILE_D3D
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    36
#define SUPPORT_PROFILE_D3D 1
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    37
#endif
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    38
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    39
#ifndef SUPPORT_PROFILE_GLSL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    40
#define SUPPORT_PROFILE_GLSL 1
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    41
#endif
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    42
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    43
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    44
// Get basic wankery out of the way here...
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    45
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    46
typedef unsigned int uint;  // this is a printf() helper. don't use for code.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    47
typedef uint8_t uint8;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    48
typedef uint32_t uint32;
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
    49
typedef int32_t int32;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    50
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    51
#ifdef __GNUC__
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    52
#define ISPRINTF(x,y) __attribute__((format (printf, x, y)))
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    53
#else
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    54
#define ISPRINTF(x,y)
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    55
#endif
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
    56
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    57
#define STATICARRAYLEN(x) ( (sizeof ((x))) / (sizeof ((x)[0])) )
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    58
45
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    59
#ifdef _WINDOWS  // !!! FIXME: bleh
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    60
const char *endline_str = "\r\n";
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    61
#else
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    62
const char *endline_str = "\n";
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    63
#endif
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    64
9565678766aa [svn] Endline string wankery.
icculus
parents: 44
diff changeset
    65
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
    66
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    67
// Byteswap magic...
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    68
4
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    69
#if ((defined __GNUC__) && (defined __POWERPC__))
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    70
    static inline uint32 SWAP32(uint32 x)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    71
    {
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    72
        __asm__ __volatile__("lwbrx %0,0,%1" : "=r" (x) : "r" (&x));
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    73
        return x;
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    74
    } // SWAP32
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    75
#elif defined(__POWERPC__)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    76
    static inline uint32 SWAP32(uint32 x)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    77
    {
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    78
        return ( (((x) >> 24) & 0x000000FF) | (((x) >>  8) & 0x0000FF00) |
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    79
                 (((x) <<  8) & 0x00FF0000) | (((x) << 24) & 0xFF000000) );
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    80
    } // SWAP32
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    81
#else
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    82
#   define SWAP32(x) (x)
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    83
#endif
e0b2c5b7210c [svn] Implemented byteswapping.
icculus
parents: 2
diff changeset
    84
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
    85
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    86
// predeclare.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    87
typedef struct Context Context;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    88
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    89
// one emit function for each opcode in each profile.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    90
typedef void (*emit_function)(Context *ctx);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    91
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    92
// one emit function for comments in each profile.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    93
typedef void (*emit_comment)(Context *ctx, const char *str);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    94
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    95
// one emit function for starting output in each profile.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    96
typedef void (*emit_start)(Context *ctx);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    97
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    98
// one emit function for ending output in each profile.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
    99
typedef void (*emit_end)(Context *ctx);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   100
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   101
// one args function for each possible sequence of opcode arguments.
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   102
typedef int (*args_function)(Context *ctx);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   103
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   104
// one state function for each opcode where we have state machine updates.
44
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   105
typedef void (*state_function)(Context *ctx);
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   106
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   107
typedef struct
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   108
{
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   109
    const char *name;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   110
    emit_start start_emitter;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   111
    emit_end end_emitter;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   112
    emit_comment comment_emitter;
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   113
} Profile;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   114
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   115
typedef MOJOSHADER_shaderType ShaderType;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   116
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   117
typedef enum
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   118
{
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   119
    REGISTER_TYPE_TEMP = 0,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   120
    REGISTER_TYPE_INPUT = 1,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   121
    REGISTER_TYPE_CONST = 2,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   122
    REGISTER_TYPE_ADDR = 3,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   123
    REGISTER_TYPE_TEXTURE = 3,  // ALSO 3!
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   124
    REGISTER_TYPE_RASTOUT = 4,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   125
    REGISTER_TYPE_ATTROUT = 5,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   126
    REGISTER_TYPE_TEXCRDOUT = 6,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   127
    REGISTER_TYPE_OUTPUT =  6, // ALSO 6!
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   128
    REGISTER_TYPE_CONSTINT =  7,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   129
    REGISTER_TYPE_COLOROUT =  8,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   130
    REGISTER_TYPE_DEPTHOUT =  9,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   131
    REGISTER_TYPE_SAMPLER = 10,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   132
    REGISTER_TYPE_CONST2 = 11,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   133
    REGISTER_TYPE_CONST3 = 12,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   134
    REGISTER_TYPE_CONST4 = 13,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   135
    REGISTER_TYPE_CONSTBOOL = 14,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   136
    REGISTER_TYPE_LOOP = 15,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   137
    REGISTER_TYPE_TEMPFLOAT16 = 16,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   138
    REGISTER_TYPE_MISCTYPE = 17,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   139
    REGISTER_TYPE_LABEL = 18,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   140
    REGISTER_TYPE_PREDICATE = 19,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   141
    REGISTER_TYPE_MAX = 19
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   142
} RegisterType;
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   143
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   144
typedef enum
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   145
{
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   146
    RASTOUT_TYPE_POSITION = 0,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   147
    RASTOUT_TYPE_FOG = 1,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   148
    RASTOUT_TYPE_POINT_SIZE = 2,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   149
    RASTOUT_TYPE_MAX = 2
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   150
} RastOutType;
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   151
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   152
typedef enum
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   153
{
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   154
    MISCTYPE_TYPE_POSITION = 0,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   155
    MISCTYPE_TYPE_FACE = 1,
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   156
    MISCTYPE_TYPE_MAX = 1
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   157
} MiscTypeType;
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   158
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   159
typedef enum
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   160
{
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   161
    DECLUSAGE_POSITION = 0,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   162
    DECLUSAGE_BLENDWEIGHT = 1,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   163
    DECLUSAGE_BLENDINDICES = 2,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   164
    DECLUSAGE_NORMAL = 3,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   165
    DECLUSAGE_PSIZE = 4,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   166
    DECLUSAGE_TEXCOORD = 5,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   167
    DECLUSAGE_TANGENT = 6,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   168
    DECLUSAGE_BINORMAL = 7,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   169
    DECLUSAGE_TESSFACTOR = 8,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   170
    DECLUSAGE_POSITIONT = 9,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   171
    DECLUSAGE_COLOR = 10,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   172
    DECLUSAGE_FOG = 11,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   173
    DECLUSAGE_DEPTH = 12,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   174
    DECLUSAGE_SAMPLE = 13
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   175
} DeclUsageType;
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   176
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   177
typedef enum
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   178
{
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   179
    TEXTURE_TYPE_2D = 2,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   180
    TEXTURE_TYPE_CUBE = 3,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   181
    TEXTURE_TYPE_VOLUME = 4,
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   182
} TextureType;
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   183
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   184
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   185
// A simple linked list of strings, so we can build the final output without
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   186
//  realloc()ing for each new line, and easily insert lines into the middle
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   187
//  of the output without much trouble.
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   188
typedef struct OutputListNode
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   189
{
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   190
    char *str;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   191
    struct OutputListNode *next;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   192
} OutputListNode;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   193
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   194
typedef struct OutputList
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   195
{
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   196
    OutputListNode head;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   197
    OutputListNode *tail;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   198
} OutputList;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   199
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   200
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   201
// result modifiers.
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   202
#define MOD_SATURATE 0x01
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   203
#define MOD_PP 0x02
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   204
#define MOD_CENTROID 0x04
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   205
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   206
// source modifiers.
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   207
typedef enum
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   208
{
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   209
    SRCMOD_NONE,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   210
    SRCMOD_NEGATE,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   211
    SRCMOD_BIAS,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   212
    SRCMOD_BIASNEGATE,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   213
    SRCMOD_SIGN,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   214
    SRCMOD_SIGNNEGATE,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   215
    SRCMOD_COMPLEMENT,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   216
    SRCMOD_X2,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   217
    SRCMOD_X2NEGATE,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   218
    SRCMOD_DZ,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   219
    SRCMOD_DW,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   220
    SRCMOD_ABS,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   221
    SRCMOD_ABSNEGATE,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   222
    SRCMOD_NOT,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   223
    SRCMOD_TOTAL
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   224
} SourceMod;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   225
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   226
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   227
typedef struct
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   228
{
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   229
    const uint32 *token;   // this is the unmolested token in the stream.
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   230
    int regnum;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   231
    int relative;
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   232
    int writemask;   // xyzw or rgba (all four, not split out).
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   233
    int writemask0;  // x or red
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   234
    int writemask1;  // y or green
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   235
    int writemask2;  // z or blue
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   236
    int writemask3;  // w or alpha
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   237
    int result_mod;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   238
    int result_shift;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   239
    int regtype;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   240
} DestArgInfo;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   241
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   242
typedef struct
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   243
{
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   244
    const uint32 *token;   // this is the unmolested token in the stream.
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   245
    int regnum;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   246
    int relative;
22
91ab1ed38d63 [svn] Fixed parse_args().
icculus
parents: 21
diff changeset
   247
    int swizzle;  // xyzw (all four, not split out).
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   248
    int swizzle_x;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   249
    int swizzle_y;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   250
    int swizzle_z;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   251
    int swizzle_w;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   252
    int src_mod;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   253
    int regtype;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   254
} SourceArgInfo;
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   255
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   256
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   257
#define SCRATCH_BUFFER_SIZE 256
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   258
#define SCRATCH_BUFFERS 10
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   259
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   260
// Context...this is state that changes as we parse through a shader...
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   261
struct Context
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   262
{
35
5749d174b537 [svn] Might as well keep the tradition alive.
icculus
parents: 34
diff changeset
   263
    MOJOSHADER_malloc malloc;
5749d174b537 [svn] Might as well keep the tradition alive.
icculus
parents: 34
diff changeset
   264
    MOJOSHADER_free free;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   265
    const uint32 *tokens;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   266
    uint32 tokencount;
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   267
    OutputList *output;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   268
    OutputList globals;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   269
    OutputList subroutines;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   270
    OutputList mainline;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   271
    int output_len; // total strlen; prevents walking the lists just to malloc.
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
   272
    int indent;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   273
    const char *endline;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   274
    int endline_len;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   275
    const char *failstr;
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   276
    char scratch[SCRATCH_BUFFERS][SCRATCH_BUFFER_SIZE];
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   277
    int scratchidx;  // current scratch buffer.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   278
    int profileid;
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   279
    const Profile *profile;
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   280
    ShaderType shader_type;
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   281
    uint8 major_ver;
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   282
    uint8 minor_ver;
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   283
    DestArgInfo dest_args[1];
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   284
    SourceArgInfo source_args[4];
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   285
    uint32 dwords[4];
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   286
    int instruction_count;
28
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   287
    uint32 instruction_controls;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   288
};
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   289
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   290
43
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   291
// Shader model version magic.
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   292
static inline uint32 ver_ui32(const uint8 major, const uint8 minor)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   293
{
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   294
    return ( (((uint32) major) << 16) | (((minor) == 0xFF) ? 0 : (minor)) );
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   295
} // version_ui32
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   296
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   297
static int shader_version_supported(uint8 maj, uint8 min)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   298
{
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   299
    return (ver_ui32(maj,min) <= ver_ui32(MAX_SHADER_MAJOR, MAX_SHADER_MINOR));
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   300
} // shader_version_supported
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   301
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   302
static int shader_version_atleast(const Context *ctx, uint8 maj, uint8 min)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   303
{
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   304
    return (ver_ui32(ctx->major_ver, ctx->minor_ver) >= ver_ui32(maj, min));
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   305
} // shader_version_atleast
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   306
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   307
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   308
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   309
static inline char *get_scratch_buffer(Context *ctx)
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   310
{
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   311
    ctx->scratchidx = (ctx->scratchidx + 1) % SCRATCH_BUFFERS;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   312
    return ctx->scratch[ctx->scratchidx];
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   313
} // get_scratch_buffer
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   314
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   315
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
   316
// Special-case return values from the parsing pipeline...
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   317
#define FAIL (-1)
43
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   318
#define NOFAIL (-2)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   319
#define END_OF_STREAM (-3)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   320
48
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   321
static inline int isfail(const Context *ctx)
44
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   322
{
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   323
    return (ctx->failstr != NULL);
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   324
} // isfail
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   325
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   326
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   327
static MOJOSHADER_parseData out_of_mem_data = {
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   328
    "Out of memory", 0, 0, 0, MOJOSHADER_TYPE_UNKNOWN, 0, 0, 0, 0
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   329
};
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   330
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   331
static const char *out_of_mem_str = "Out of memory";
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   332
static inline int out_of_memory(Context *ctx)
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   333
{
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   334
    if (ctx->failstr == NULL)
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   335
        ctx->failstr = out_of_mem_str;  // fail() would call malloc().
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   336
    return FAIL;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   337
} // out_of_memory
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   338
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   339
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   340
static int failf(Context *ctx, const char *fmt, ...) ISPRINTF(2,3);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   341
static int failf(Context *ctx, const char *fmt, ...)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   342
{
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   343
    if (ctx->failstr == NULL)  // don't change existing error.
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   344
    {
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   345
        char *scratch = get_scratch_buffer(ctx);
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   346
        va_list ap;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   347
        va_start(ap, fmt);
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   348
        const int len = vsnprintf(scratch,SCRATCH_BUFFER_SIZE,fmt,ap);
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   349
        va_end(ap);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   350
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   351
        char *failstr = (char *) ctx->malloc(len + 1);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   352
        if (failstr == NULL)
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   353
            out_of_memory(ctx);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   354
        else
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   355
        {
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   356
            // see comments about scratch buffer overflow in output_line().
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   357
            if (len < SCRATCH_BUFFER_SIZE)
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   358
                strcpy(failstr, scratch);  // copy it over.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   359
            else
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   360
            {
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   361
                va_start(ap, fmt);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   362
                vsnprintf(failstr, len + 1, fmt, ap);  // rebuild it.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   363
                va_end(ap);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   364
            } // else
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   365
            ctx->failstr = failstr;
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   366
        } // else
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   367
    } // if
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   368
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   369
    return FAIL;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   370
} // failf
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   371
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   372
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   373
static inline int fail(Context *ctx, const char *reason)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   374
{
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   375
    return failf(ctx, "%s", reason);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   376
} // fail
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   377
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   378
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   379
static int output_line(Context *ctx, const char *fmt, ...) ISPRINTF(2,3);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   380
static int output_line(Context *ctx, const char *fmt, ...)
7
18bf77bb8c07 [svn] Cleanups, split things out.
icculus
parents: 6
diff changeset
   381
{
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   382
    OutputListNode *item = NULL;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   383
44
5d56cf8b4571 [svn] Cleaned up fail check, parse_args and state machine semantics, and added check
icculus
parents: 43
diff changeset
   384
    if (isfail(ctx))
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   385
        return FAIL;  // we failed previously, don't go on...
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   386
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   387
    item = (OutputListNode *) ctx->malloc(sizeof (OutputListNode));
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   388
    if (item == NULL)
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   389
        return out_of_memory(ctx);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   390
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   391
    char *scratch = get_scratch_buffer(ctx);
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
   392
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
   393
    const int indent = ctx->indent;
41
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
   394
    if (indent > 0)
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
   395
        memset(scratch, '\t', indent);
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   396
    va_list ap;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   397
    va_start(ap, fmt);
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
   398
    const int len = vsnprintf(scratch+indent, SCRATCH_BUFFER_SIZE-indent, fmt, ap) + indent;
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   399
    va_end(ap);
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   400
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   401
    item->str = (char *) ctx->malloc(len + 1);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   402
    if (item->str == NULL)
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   403
    {
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   404
        free(item);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   405
        return out_of_memory(ctx);
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   406
    } // if
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   407
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   408
    // If we overflowed our scratch buffer, that's okay. We were going to
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   409
    //  allocate anyhow...the scratch buffer just lets us avoid a second
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   410
    //  run of vsnprintf().
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   411
    if (len < SCRATCH_BUFFER_SIZE)
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   412
        strcpy(item->str, scratch);  // copy it over.
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   413
    else
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   414
    {
41
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
   415
        if (indent > 0)
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
   416
            memset(item->str, '\t', indent);
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   417
        va_start(ap, fmt);
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
   418
        vsnprintf(item->str+indent, len + 1, fmt, ap);  // rebuild it.
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   419
        va_end(ap);
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   420
    } // else
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   421
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   422
    item->next = NULL;
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   423
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   424
    ctx->output->tail->next = item;
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   425
    ctx->output->tail = item;
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   426
    ctx->output_len += len + ctx->endline_len;
54
b2b64d39df0f [svn] Split up output into several lists, so GLSL profile can insert lines of text
icculus
parents: 51
diff changeset
   427
12
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   428
    return 0;
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   429
} // output_line
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   430
d81712dd1a46 [svn] Cleaned up and improved output and fail state.
icculus
parents: 11
diff changeset
   431
43
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   432
// !!! FIXME: this is sort of nasty.
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   433
static void floatstr(Context *ctx, char *buf, size_t bufsize, float f)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   434
{
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   435
    const size_t len = snprintf(buf, bufsize, "%f", f);
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   436
    if (len >= bufsize)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   437
        fail(ctx, "BUG: internal buffer is too small");
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   438
    else
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   439
    {
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   440
        char *end = buf + len;
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   441
        char *ptr = strchr(buf, '.');
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   442
        if (ptr == NULL)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   443
            return;  // done.
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   444
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   445
        while (--end != ptr)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   446
        {
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   447
            if (*end != '0')
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   448
            {
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   449
                end++;
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   450
                break;
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   451
            } // if
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   452
        } // while
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   453
        *end = '\0';  // chop extra '0' or all decimal places off.
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   454
    } // else
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   455
} // floatstr
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
   456
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   457
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   458
// if SUPPORT_PROFILE_* isn't defined, we assume an implicit desire to support.
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   459
#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
   460
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   461
#if !SUPPORT_PROFILE_D3D
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   462
#define PROFILE_EMITTER_D3D(op)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   463
#else
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   464
#undef AT_LEAST_ONE_PROFILE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   465
#define AT_LEAST_ONE_PROFILE 1
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   466
#define PROFILE_EMITTER_D3D(op) emit_D3D_##op,
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   467
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   468
static const char *get_D3D_register_string(Context *ctx,
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   469
                                           RegisterType regtype,
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   470
                                           int regnum, char *regnum_str,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   471
                                           size_t regnum_size)
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   472
{
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   473
    const char *retval = NULL;
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   474
    int has_number = 1;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   475
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   476
    switch (regtype)
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   477
    {
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   478
        case REGISTER_TYPE_TEMP:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   479
            retval = "r";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   480
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   481
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   482
        case REGISTER_TYPE_INPUT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   483
            retval = "v";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   484
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   485
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   486
        case REGISTER_TYPE_CONST:
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   487
            retval = "c";
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   488
            break;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   489
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   490
        case REGISTER_TYPE_CONST2:
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   491
            retval = "c";
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   492
            regnum += 2048;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   493
            break;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   494
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   495
        case REGISTER_TYPE_CONST3:
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   496
            retval = "c";
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   497
            regnum += 4096;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   498
            break;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   499
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   500
        case REGISTER_TYPE_CONST4:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   501
            retval = "c";
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   502
            regnum += 6144;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   503
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   504
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   505
        case REGISTER_TYPE_ADDR:  // (or REGISTER_TYPE_TEXTURE, same value.)
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   506
            retval = (ctx->shader_type == MOJOSHADER_TYPE_VERTEX) ? "a" : "t";
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   507
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   508
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   509
        case REGISTER_TYPE_RASTOUT:
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   510
            switch ((RastOutType) regnum)
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   511
            {
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   512
                case RASTOUT_TYPE_POSITION: retval = "oPos"; break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   513
                case RASTOUT_TYPE_FOG: retval = "oFog"; break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   514
                case RASTOUT_TYPE_POINT_SIZE: retval = "oPts"; break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   515
            } // switch
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   516
            has_number = 0;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   517
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   518
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   519
        case REGISTER_TYPE_ATTROUT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   520
            retval = "oD";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   521
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   522
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   523
        case REGISTER_TYPE_TEXCRDOUT: // (or REGISTER_TYPE_OUTPUT, same value.)
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   524
            if ((ctx->shader_type==MOJOSHADER_TYPE_VERTEX) && (ctx->major_ver>=3))
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   525
                retval = "o";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   526
            else
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   527
                retval = "oT";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   528
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   529
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   530
        case REGISTER_TYPE_CONSTINT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   531
            retval = "i";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   532
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   533
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   534
        case REGISTER_TYPE_COLOROUT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   535
            retval = "oC";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   536
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   537
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   538
        case REGISTER_TYPE_DEPTHOUT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   539
            retval = "oDepth";
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   540
            has_number = 0;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   541
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   542
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   543
        case REGISTER_TYPE_SAMPLER:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   544
            retval = "s";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   545
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   546
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   547
        case REGISTER_TYPE_CONSTBOOL:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   548
            retval = "b";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   549
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   550
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   551
        case REGISTER_TYPE_LOOP:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   552
            retval = "aL";
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   553
            has_number = 0;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   554
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   555
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   556
        // !!! FIXME: don't know what the asm string is for this..
48
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   557
        case REGISTER_TYPE_TEMPFLOAT16:
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   558
            retval = "???";
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   559
            has_number = 0;
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   560
            break;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   561
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   562
        case REGISTER_TYPE_MISCTYPE:
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   563
            switch ((MiscTypeType) regnum)
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   564
            {
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   565
                case MISCTYPE_TYPE_POSITION: retval = "vPos"; break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   566
                case MISCTYPE_TYPE_FACE: retval = "vFace"; break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   567
            } // switch
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   568
            has_number = 0;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   569
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   570
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   571
        case REGISTER_TYPE_LABEL:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   572
            retval = "l";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   573
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   574
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   575
        case REGISTER_TYPE_PREDICATE:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   576
            retval = "p";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   577
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   578
    } // switch
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   579
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   580
    if (has_number)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   581
        snprintf(regnum_str, regnum_size, "%u", (uint) regnum);
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   582
    else
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   583
        regnum_str[0] = '\0';
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
   584
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   585
    return retval;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   586
} // get_D3D_register_string
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   587
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   588
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   589
static char *make_D3D_destarg_string(Context *ctx, const int idx)
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   590
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   591
    if (idx >= STATICARRAYLEN(ctx->dest_args))
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   592
    {
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   593
        fail(ctx, "Too many destination args");
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   594
        return "";
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   595
    } // if
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   596
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   597
    const DestArgInfo *arg = &ctx->dest_args[idx];
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   598
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   599
    const char *result_shift_str = "";
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   600
    switch (arg->result_shift)
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   601
    {
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   602
        case 0x1: result_shift_str = "_x2"; break;
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   603
        case 0x2: result_shift_str = "_x4"; break;
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   604
        case 0x3: result_shift_str = "_x8"; break;
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   605
        case 0xD: result_shift_str = "_d8"; break;
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   606
        case 0xE: result_shift_str = "_d4"; break;
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   607
        case 0xF: result_shift_str = "_d2"; break;
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   608
    } // switch
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   609
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   610
    const char *sat_str = (arg->result_mod & MOD_SATURATE) ? "_sat" : "";
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   611
    const char *pp_str = (arg->result_mod & MOD_PP) ? "_pp" : "";
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   612
    const char *cent_str = (arg->result_mod & MOD_CENTROID) ? "_centroid" : "";
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   613
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   614
    char regnum_str[16];
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   615
    const char *regtype_str = get_D3D_register_string(ctx,
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   616
                                        (RegisterType) arg->regtype,
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   617
                                        arg->regnum, regnum_str,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   618
                                        sizeof (regnum_str));
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   619
    if (regtype_str == NULL)
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   620
    {
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   621
        fail(ctx, "Unknown destination register type.");
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   622
        return "";
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   623
    } // if
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   624
27
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   625
    char writemask_str[6];
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   626
    int i = 0;
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   627
    if (arg->writemask != 0xF)  // 0xF == 1111. No explicit mask.
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   628
    {
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   629
        writemask_str[i++] = '.';
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   630
        if (arg->writemask0) writemask_str[i++] = 'x';
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   631
        if (arg->writemask1) writemask_str[i++] = 'y';
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   632
        if (arg->writemask2) writemask_str[i++] = 'z';
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   633
        if (arg->writemask3) writemask_str[i++] = 'w';
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   634
    } // if
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   635
    writemask_str[i] = '\0';
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   636
    assert(i < sizeof (writemask_str));
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   637
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   638
    // may turn out something like "_x2_sat_pp_centroid r0.xyzw" ...
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   639
    char *retval = get_scratch_buffer(ctx);
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   640
    snprintf(retval, SCRATCH_BUFFER_SIZE, "%s%s%s%s %s%s%s",
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   641
             result_shift_str, sat_str, pp_str, cent_str,
27
3524701d26fb [svn] Writemask fix.
icculus
parents: 26
diff changeset
   642
             regtype_str, regnum_str, writemask_str);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   643
    return retval;
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   644
} // make_D3D_destarg_string
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   645
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   646
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   647
static char *make_D3D_sourcearg_string(Context *ctx, const int idx)
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   648
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   649
    if (idx >= STATICARRAYLEN(ctx->source_args))
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   650
    {
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   651
        fail(ctx, "Too many source args");
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   652
        return "";
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   653
    } // if
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   654
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   655
    const SourceArgInfo *arg = &ctx->source_args[idx];
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   656
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   657
    const char *premod_str = "";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   658
    const char *postmod_str = "";
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   659
    switch ((SourceMod) arg->src_mod)
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   660
    {
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   661
        case SRCMOD_NEGATE:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   662
            premod_str = "-";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   663
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   664
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   665
        case SRCMOD_BIASNEGATE:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   666
            premod_str = "-";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   667
            // fall through.
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   668
        case SRCMOD_BIAS:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   669
            postmod_str = "_bias";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   670
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   671
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   672
        case SRCMOD_SIGNNEGATE:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   673
            premod_str = "-";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   674
            // fall through.
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   675
        case SRCMOD_SIGN:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   676
            postmod_str = "_bx2";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   677
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   678
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   679
        case SRCMOD_COMPLEMENT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   680
            premod_str = "1-";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   681
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   682
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   683
        case SRCMOD_X2NEGATE:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   684
            premod_str = "-";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   685
            // fall through.
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   686
        case SRCMOD_X2:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   687
            postmod_str = "_x2";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   688
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   689
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   690
        case SRCMOD_DZ:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   691
            postmod_str = "_dz";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   692
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   693
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   694
        case SRCMOD_DW:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   695
            postmod_str = "_dw";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   696
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   697
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   698
        case SRCMOD_ABSNEGATE:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   699
            premod_str = "-";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   700
            // fall through.
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   701
        case SRCMOD_ABS:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   702
            postmod_str = "_abs";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   703
            break;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   704
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   705
        case SRCMOD_NOT:
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   706
            premod_str = "!";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   707
            break;
48
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   708
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   709
        case SRCMOD_NONE:
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   710
        case SRCMOD_TOTAL:
86dc2c772d26 [svn] Enabled -Wall, found some bugs.
icculus
parents: 46
diff changeset
   711
             break;  // stop compiler whining.
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   712
    } // switch
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   713
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   714
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   715
    char regnum_str[16];
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   716
    const char *regtype_str = get_D3D_register_string(ctx,
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
   717
                                        (RegisterType) arg->regtype,
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   718
                                        arg->regnum, regnum_str,
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   719
                                        sizeof (regnum_str));
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   720
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   721
    if (regtype_str == NULL)
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   722
    {
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   723
        fail(ctx, "Unknown source register type.");
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   724
        return "";
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   725
    } // if
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   726
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   727
    char swizzle_str[6];
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   728
    int i = 0;
26
ed1dc1eca8b2 [svn] Source swizzle fix.
icculus
parents: 25
diff changeset
   729
    if (arg->swizzle != 0xE4)  // 0xE4 == 11100100 ... 3 2 1 0. No swizzle.
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   730
    {
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   731
        static const char channel[] = { 'x', 'y', 'z', 'w' };
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   732
        swizzle_str[i++] = '.';
25
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   733
        swizzle_str[i++] = channel[arg->swizzle_x];
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   734
        swizzle_str[i++] = channel[arg->swizzle_y];
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   735
        swizzle_str[i++] = channel[arg->swizzle_z];
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   736
        swizzle_str[i++] = channel[arg->swizzle_w];
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   737
25
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   738
        // .xyzz is the same as .xyz, .z is the same as .zzzz, etc.
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   739
        while (swizzle_str[i-1] == swizzle_str[i-2])
9664b0f62af6 [svn] Simplified and corrected source arg swizzle.
icculus
parents: 24
diff changeset
   740
            i--;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   741
    } // if
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   742
    swizzle_str[i] = '\0';
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   743
    assert(i < sizeof (swizzle_str));
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   744
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   745
    char *retval = get_scratch_buffer(ctx);
38
506f3ba0957a [svn] Fixed missing regnum output in D3D profile.
icculus
parents: 36
diff changeset
   746
    snprintf(retval, SCRATCH_BUFFER_SIZE, "%s%s%s%s%s",
506f3ba0957a [svn] Fixed missing regnum output in D3D profile.
icculus
parents: 36
diff changeset
   747
             premod_str, regtype_str, regnum_str, postmod_str, swizzle_str);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   748
    return retval;
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   749
} // make_D3D_sourcearg_string
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   750
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   751
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   752
static void emit_D3D_start(Context *ctx)
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   753
{
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   754
    const uint major = (uint) ctx->major_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   755
    const uint minor = (uint) ctx->minor_ver;
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   756
    const char *shadertype_str = NULL;
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   757
    char minor_str[16];
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   758
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   759
    if (minor == 0xFF)
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   760
        strcpy(minor_str, "sw");
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   761
    else if (minor == 0x1)  // apparently this is "vs_2_x". Weird.
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   762
        strcpy(minor_str, "x");
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   763
    else
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   764
        snprintf(minor_str, sizeof (minor_str), "%u", (uint) minor);
19
8bca9cb2252f [svn] Fixed output for software vertex shader versions.
icculus
parents: 18
diff changeset
   765
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   766
    if (ctx->shader_type == MOJOSHADER_TYPE_PIXEL)
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   767
        shadertype_str = "ps";
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
   768
    else if (ctx->shader_type == MOJOSHADER_TYPE_VERTEX)
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   769
        shadertype_str = "vs";
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   770
    else
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   771
    {
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   772
        failf(ctx, "Shader type %u unsupported in this profile.",
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   773
              (uint) ctx->shader_type);
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   774
        return;
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
   775
    } // else
24
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   776
2177c6bee93d [svn] First shot at source args in D3D profile.
icculus
parents: 22
diff changeset
   777
    output_line(ctx, "%s_%u_%s", shadertype_str, major, minor_str);
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   778
} // emit_D3D_start
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   779
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   780
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   781
static void emit_D3D_end(Context *ctx)
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   782
{
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   783
    output_line(ctx, "end");
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
   784
} // emit_D3D_end
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   785
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   786
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   787
static void emit_D3D_comment(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
   788
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   789
    output_line(ctx, "; %s", str);
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   790
} // 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
   791
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   792
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   793
static void emit_D3D_RESERVED(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
   794
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   795
    // do nothing; fails in the state machine.
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   796
} // emit_D3D_RESERVED
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
   797
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   798
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   799
// 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
   800
//  that call into these...
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   801
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   802
static char *lowercase(char *dst, const char *src)
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   803
{
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   804
    int i = 0;
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   805
    do
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   806
    {
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   807
        const char ch = src[i];
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   808
        dst[i] = (((ch >= 'A') && (ch <= 'Z')) ? (ch - ('A' - 'a')) : ch);
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   809
    } while (src[i++]);
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   810
    return dst;
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   811
} // lowercase
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   812
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   813
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   814
static void emit_D3D_opcode_d(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   815
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   816
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   817
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   818
    output_line(ctx, "%s%s", opcode, dst0);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   819
} // emit_D3D_opcode_d
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   820
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   821
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   822
static void emit_D3D_opcode_s(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   823
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   824
    const char *src0 = make_D3D_destarg_string(ctx, 0);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   825
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   826
    output_line(ctx, "%s %s", opcode, src0);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   827
} // emit_D3D_opcode_s
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   828
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   829
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   830
static void emit_D3D_opcode_ss(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   831
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   832
    const char *src0 = make_D3D_sourcearg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   833
    const char *src1 = make_D3D_sourcearg_string(ctx, 1);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   834
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   835
    output_line(ctx, "%s %s, %s", opcode, src0, src1);
39
4057e8dc3ad0 [svn] Fixed comment.
icculus
parents: 38
diff changeset
   836
} // emit_D3D_opcode_ss
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   837
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   838
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   839
static void emit_D3D_opcode_ds(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   840
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   841
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   842
    const char *src0 = make_D3D_sourcearg_string(ctx, 0);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   843
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   844
    output_line(ctx, "%s%s, %s", opcode, dst0, src0);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   845
} // emit_D3D_opcode_ds
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   846
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   847
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   848
static void emit_D3D_opcode_dss(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   849
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   850
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   851
    const char *src0 = make_D3D_sourcearg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   852
    const char *src1 = make_D3D_sourcearg_string(ctx, 1);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   853
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   854
    output_line(ctx, "%s%s, %s, %s", opcode, dst0, src0, src1);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   855
} // emit_D3D_opcode_dss
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   856
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   857
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   858
static void emit_D3D_opcode_dsss(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   859
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   860
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   861
    const char *src0 = make_D3D_sourcearg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   862
    const char *src1 = make_D3D_sourcearg_string(ctx, 1);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   863
    const char *src2 = make_D3D_sourcearg_string(ctx, 2);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   864
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   865
    output_line(ctx, "%s%s, %s, %s, %s", opcode, dst0, src0, src1, src2);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   866
} // emit_D3D_opcode_dsss
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   867
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   868
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   869
static void emit_D3D_opcode_dssss(Context *ctx, const char *opcode)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   870
{
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   871
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   872
    const char *src0 = make_D3D_sourcearg_string(ctx, 0);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   873
    const char *src1 = make_D3D_sourcearg_string(ctx, 1);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   874
    const char *src2 = make_D3D_sourcearg_string(ctx, 2);
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   875
    const char *src3 = make_D3D_sourcearg_string(ctx, 3);
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   876
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
21
d43449cf3cb2 [svn] Implemented destination argument output in D3D profile. Untested.
icculus
parents: 20
diff changeset
   877
    output_line(ctx,"%s%s, %s, %s, %s, %s",opcode,dst0,src0,src1,src2,src3);
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   878
} // emit_D3D_opcode_dssss
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   879
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   880
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   881
static void emit_D3D_opcode(Context *ctx, const char *opcode)
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   882
{
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   883
    opcode = lowercase(get_scratch_buffer(ctx), opcode);
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   884
    output_line(ctx, "%s", opcode);
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   885
} // emit_D3D_opcode_dssss
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   886
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   887
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   888
#define EMIT_D3D_OPCODE_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   889
    static void emit_D3D_##op(Context *ctx) { \
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
   890
        emit_D3D_opcode(ctx, #op); \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   891
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   892
#define EMIT_D3D_OPCODE_D_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   893
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   894
        emit_D3D_opcode_d(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   895
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   896
#define EMIT_D3D_OPCODE_S_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   897
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   898
        emit_D3D_opcode_s(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   899
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   900
#define EMIT_D3D_OPCODE_SS_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   901
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   902
        emit_D3D_opcode_ss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   903
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   904
#define EMIT_D3D_OPCODE_DS_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   905
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   906
        emit_D3D_opcode_ds(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   907
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   908
#define EMIT_D3D_OPCODE_DSS_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   909
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   910
        emit_D3D_opcode_dss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   911
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   912
#define EMIT_D3D_OPCODE_DSSS_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   913
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   914
        emit_D3D_opcode_dsss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   915
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   916
#define EMIT_D3D_OPCODE_DSSSS_FUNC(op) \
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
   917
    static void emit_D3D_##op(Context *ctx) { \
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   918
        emit_D3D_opcode_dssss(ctx, #op); \
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   919
    }
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   920
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   921
EMIT_D3D_OPCODE_FUNC(NOP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   922
EMIT_D3D_OPCODE_DS_FUNC(MOV)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   923
EMIT_D3D_OPCODE_DSS_FUNC(ADD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   924
EMIT_D3D_OPCODE_DSS_FUNC(SUB)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   925
EMIT_D3D_OPCODE_DSSS_FUNC(MAD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   926
EMIT_D3D_OPCODE_DSS_FUNC(MUL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   927
EMIT_D3D_OPCODE_DS_FUNC(RCP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   928
EMIT_D3D_OPCODE_DS_FUNC(RSQ)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   929
EMIT_D3D_OPCODE_DSS_FUNC(DP3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   930
EMIT_D3D_OPCODE_DSS_FUNC(DP4)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   931
EMIT_D3D_OPCODE_DSS_FUNC(MIN)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   932
EMIT_D3D_OPCODE_DSS_FUNC(MAX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   933
EMIT_D3D_OPCODE_DSS_FUNC(SLT)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   934
EMIT_D3D_OPCODE_DSS_FUNC(SGE)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   935
EMIT_D3D_OPCODE_DS_FUNC(EXP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   936
EMIT_D3D_OPCODE_DS_FUNC(LOG)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   937
EMIT_D3D_OPCODE_DS_FUNC(LIT)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   938
EMIT_D3D_OPCODE_DSS_FUNC(DST)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   939
EMIT_D3D_OPCODE_DSSS_FUNC(LRP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   940
EMIT_D3D_OPCODE_DS_FUNC(FRC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   941
EMIT_D3D_OPCODE_DSS_FUNC(M4X4)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   942
EMIT_D3D_OPCODE_DSS_FUNC(M4X3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   943
EMIT_D3D_OPCODE_DSS_FUNC(M3X4)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   944
EMIT_D3D_OPCODE_DSS_FUNC(M3X3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   945
EMIT_D3D_OPCODE_DSS_FUNC(M3X2)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   946
EMIT_D3D_OPCODE_S_FUNC(CALL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   947
EMIT_D3D_OPCODE_SS_FUNC(CALLNZ)
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   948
EMIT_D3D_OPCODE_SS_FUNC(LOOP)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   949
EMIT_D3D_OPCODE_FUNC(RET)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   950
EMIT_D3D_OPCODE_FUNC(ENDLOOP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   951
EMIT_D3D_OPCODE_S_FUNC(LABEL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   952
EMIT_D3D_OPCODE_DSS_FUNC(POW)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   953
EMIT_D3D_OPCODE_DSS_FUNC(CRS)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   954
EMIT_D3D_OPCODE_DSSS_FUNC(SGN)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   955
EMIT_D3D_OPCODE_DS_FUNC(ABS)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   956
EMIT_D3D_OPCODE_DS_FUNC(NRM)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   957
EMIT_D3D_OPCODE_DS_FUNC(SINCOS)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   958
EMIT_D3D_OPCODE_S_FUNC(REP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   959
EMIT_D3D_OPCODE_FUNC(ENDREP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   960
EMIT_D3D_OPCODE_S_FUNC(IF)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   961
EMIT_D3D_OPCODE_FUNC(ELSE)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   962
EMIT_D3D_OPCODE_FUNC(ENDIF)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   963
EMIT_D3D_OPCODE_FUNC(BREAK)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   964
EMIT_D3D_OPCODE_DS_FUNC(MOVA)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   965
EMIT_D3D_OPCODE_D_FUNC(TEXKILL)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   966
EMIT_D3D_OPCODE_DS_FUNC(TEXBEM)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   967
EMIT_D3D_OPCODE_DS_FUNC(TEXBEML)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   968
EMIT_D3D_OPCODE_DS_FUNC(TEXREG2AR)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   969
EMIT_D3D_OPCODE_DS_FUNC(TEXREG2GB)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   970
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X2PAD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   971
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X2TEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   972
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3PAD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   973
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3TEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   974
EMIT_D3D_OPCODE_DSS_FUNC(TEXM3X3SPEC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   975
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3VSPEC)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   976
EMIT_D3D_OPCODE_DS_FUNC(EXPP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   977
EMIT_D3D_OPCODE_DS_FUNC(LOGP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   978
EMIT_D3D_OPCODE_DSSS_FUNC(CND)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   979
EMIT_D3D_OPCODE_DS_FUNC(TEXREG2RGB)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   980
EMIT_D3D_OPCODE_DS_FUNC(TEXDP3TEX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   981
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X2DEPTH)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   982
EMIT_D3D_OPCODE_DS_FUNC(TEXDP3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   983
EMIT_D3D_OPCODE_DS_FUNC(TEXM3X3)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   984
EMIT_D3D_OPCODE_D_FUNC(TEXDEPTH)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   985
EMIT_D3D_OPCODE_DSSS_FUNC(CMP)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   986
EMIT_D3D_OPCODE_DSS_FUNC(BEM)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   987
EMIT_D3D_OPCODE_DSSS_FUNC(DP2ADD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   988
EMIT_D3D_OPCODE_DS_FUNC(DSX)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   989
EMIT_D3D_OPCODE_DS_FUNC(DSY)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   990
EMIT_D3D_OPCODE_DSSSS_FUNC(TEXLDD)
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   991
EMIT_D3D_OPCODE_DSS_FUNC(TEXLDL)
20
bb2e8f285acc [svn] Bunch More Work...higher level parses dest/src tokens before it goes to the
icculus
parents: 19
diff changeset
   992
EMIT_D3D_OPCODE_S_FUNC(BREAKP)
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
   993
28
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   994
// special cases for comparison opcodes...
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   995
static const char *get_D3D_comparison_string(Context *ctx)
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   996
{
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   997
    static const char *comps[] = {
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   998
        "", "_gt", "_eq", "_ge", "_lt", "_ne", "_le"
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
   999
    };
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1000
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1001
    if (ctx->instruction_controls >= STATICARRAYLEN(comps))
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1002
    {
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1003
        fail(ctx, "unknown comparison control");
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1004
        return "";
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1005
    } // if
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1006
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1007
    return comps[ctx->instruction_controls];
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1008
} // get_D3D_comparison_string
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1009
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1010
static void emit_D3D_BREAKC(Context *ctx)
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1011
{
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1012
    char op[16];
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
  1013
    snprintf(op, sizeof (op), "break%s", get_D3D_comparison_string(ctx));
28
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1014
    emit_D3D_opcode_ss(ctx, op);
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1015
} // emit_D3D_BREAKC
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1016
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1017
static void emit_D3D_IFC(Context *ctx)
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1018
{
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1019
    char op[16];
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
  1020
    snprintf(op, sizeof (op), "if%s", get_D3D_comparison_string(ctx));
28
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1021
    emit_D3D_opcode_ss(ctx, op);
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1022
} // emit_D3D_IFC
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1023
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1024
static void emit_D3D_SETP(Context *ctx)
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1025
{
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1026
    char op[16];
30
5e908687dd50 [svn] Lowercase opcodes in the D3D profile.
icculus
parents: 29
diff changeset
  1027
    snprintf(op, sizeof (op), "setp%s", get_D3D_comparison_string(ctx));
28
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1028
    emit_D3D_opcode_dss(ctx, op);
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1029
} // emit_D3D_SETP
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1030
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1031
static void emit_D3D_DEF(Context *ctx)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1032
{
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1033
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
33
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1034
    const float *val = (const float *) ctx->dwords; // !!! FIXME: could be int?
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1035
    char val0[32];
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1036
    char val1[32];
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1037
    char val2[32];
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1038
    char val3[32];
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1039
    floatstr(ctx, val0, sizeof (val0), val[0]);
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1040
    floatstr(ctx, val1, sizeof (val1), val[1]);
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1041
    floatstr(ctx, val2, sizeof (val2), val[2]);
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1042
    floatstr(ctx, val3, sizeof (val3), val[3]);
8b71012ebf65 [svn] Some heroic coding, since I can't figure out how to get printf() to output
icculus
parents: 32
diff changeset
  1043
    output_line(ctx, "def%s, %s, %s, %s, %s", dst0, val0, val1, val2, val3);
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1044
} // emit_D3D_DEF
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1045
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1046
static void emit_D3D_DEFI(Context *ctx)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1047
{
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1048
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1049
    const int32 *x = (const int32 *) ctx->dwords;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1050
    output_line(ctx, "defi%s, %d, %d, %d, %d", dst0,
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1051
                (int) x[0], (int) x[1], (int) x[2], (int) x[3]);
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1052
} // emit_D3D_DEFI
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1053
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1054
static void emit_D3D_DEFB(Context *ctx)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1055
{
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1056
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
32
bfb775b9baac [svn] Doh. Fixed DEFB output in the D3D profile.
icculus
parents: 31
diff changeset
  1057
    output_line(ctx, "defb%s, %s", dst0, ctx->dwords[0] ? "true" : "false");
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1058
} // emit_D3D_DEFB
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1059
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1060
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1061
static void emit_D3D_DCL(Context *ctx)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1062
{
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1063
    const char *dst0 = make_D3D_destarg_string(ctx, 0);
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1064
    const DestArgInfo *arg = &ctx->dest_args[0];
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1065
    const char *usage_str = "";
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1066
    char index_str[16] = { '\0' };
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1067
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
  1068
    if (ctx->shader_type == MOJOSHADER_TYPE_VERTEX)
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1069
    {
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1070
        static const char *usagestrs[] = {
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1071
            "_position", "_blendweight", "_blendindices", "_normal",
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1072
            "_psize", "_texcoord", "_tangent", "_binormal", "_tessfactor",
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1073
            "_positiont", "_color", "_fog", "_depth", "_sample"
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1074
        };
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1075
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1076
        const uint32 usage = ctx->dwords[0];
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1077
        const uint32 index = ctx->dwords[1];
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1078
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1079
        if (usage >= STATICARRAYLEN(usagestrs))
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1080
        {
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1081
            fail(ctx, "unknown DCL usage");
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1082
            return;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1083
        } // if
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1084
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1085
        usage_str = usagestrs[usage];
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1086
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1087
        if (index != 0)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1088
            snprintf(index_str, sizeof (index_str), "%u", (uint) index);
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1089
    } // if
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1090
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1091
    else if (arg->regtype == REGISTER_TYPE_SAMPLER)
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1092
    {
34
ca4b727ad2ce [svn] Chopped out a bunch of D3D2GLSL_ crap.
icculus
parents: 33
diff changeset
  1093
        switch ((const TextureType) ctx->dwords[0])
31
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1094
        {
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1095
            case TEXTURE_TYPE_2D: usage_str = "_2d"; break;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1096
            case TEXTURE_TYPE_CUBE: usage_str = "_cube"; break;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1097
            case TEXTURE_TYPE_VOLUME: usage_str = "_volume"; break;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1098
            default: fail(ctx, "unknown sampler texture type"); return;
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1099
        } // switch
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1100
    } // else if
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1101
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1102
    output_line(ctx, "dcl%s%s%s", usage_str, index_str, dst0);
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1103
} // emit_D3D_DCL
ee4ff9d30b67 [svn] DCL support!
icculus
parents: 30
diff changeset
  1104
28
bdb89e56bb91 [svn] Comparison opcodes...
icculus
parents: 27
diff changeset
  1105
43
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1106
static void emit_D3D_TEXCOORD(Context *ctx)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1107
{
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1108
    // this opcode looks and acts differently depending on the shader model.
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1109
    if (shader_version_atleast(ctx, 1, 4))
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1110
        emit_D3D_opcode_ds(ctx, "texcrd");
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1111
    else
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1112
        emit_D3D_opcode_d(ctx, "texcoord");
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1113
} // emit_D3D_TEXCOORD
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1114
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1115
static void emit_D3D_TEX(Context *ctx)
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1116
{
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1117
    // this opcode looks and acts differently depending on the shader model.
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1118
    if (shader_version_atleast(ctx, 1, 4))
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1119
        emit_D3D_opcode_ds(ctx, "tex");
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1120
    else
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1121
        emit_D3D_opcode_d(ctx, "texld");
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1122
} // emit_D3D_TEX
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1123
2f5d9a656dff [svn] Bunch More Work. Cleaned up some lingering opcode drama, and state machine
icculus
parents: 42
diff changeset
  1124
17
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1125
#undef EMIT_D3D_OPCODE_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1126
#undef EMIT_D3D_OPCODE_D_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1127
#undef EMIT_D3D_OPCODE_S_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1128
#undef EMIT_D3D_OPCODE_SS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1129
#undef EMIT_D3D_OPCODE_DS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1130
#undef EMIT_D3D_OPCODE_DSS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1131
#undef EMIT_D3D_OPCODE_DSSS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1132
#undef EMIT_D3D_OPCODE_DSSSS_FUNC
78d605d6641d [svn] Starting to fill in D3D profile...
icculus
parents: 16
diff changeset
  1133
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1134
#endif  // SUPPORT_PROFILE_D3D
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1135
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1136
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1137
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1138
#if !SUPPORT_PROFILE_GLSL
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1139
#define PROFILE_EMITTER_GLSL(op)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1140
#else
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1141
#undef AT_LEAST_ONE_PROFILE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1142
#define AT_LEAST_ONE_PROFILE 1
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1143
#define PROFILE_EMITTER_GLSL(op) emit_GLSL_##op,
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1144
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1145
static char *make_GLSL_destarg_string(Context *ctx, const int idx)
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1146
{
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1147
    if (idx >= STATICARRAYLEN(ctx->dest_args))
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1148
    {
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1149
        fail(ctx, "Too many destination args");
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1150
        return "";
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1151
    } // if
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1152
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1153
    //const DestArgInfo *arg = &ctx->dest_args[idx];
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1154
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1155
    char *retval = get_scratch_buffer(ctx);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1156
    snprintf(retval, SCRATCH_BUFFER_SIZE, "dst%d", idx);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1157
    return retval;
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1158
} // make_GLSL_destarg_string
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1159
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1160
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1161
static char *make_GLSL_sourcearg_string(Context *ctx, const int idx)
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1162
{
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1163
    if (idx >= STATICARRAYLEN(ctx->source_args))
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1164
    {
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1165
        fail(ctx, "Too many source args");
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1166
        return "";
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1167
    } // if
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1168
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1169
    //const SourceArgInfo *arg = &ctx->source_args[idx];
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1170
    char *retval = get_scratch_buffer(ctx);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1171
    snprintf(retval, SCRATCH_BUFFER_SIZE, "src%d", idx);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1172
    return retval;
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1173
} // make_GLSL_sourcearg_string
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1174
41
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1175
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1176
// special cases for comparison opcodes...
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1177
static const char *get_GLSL_comparison_string(Context *ctx)
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1178
{
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1179
    static const char *comps[] = {
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1180
        "", "greaterThan", "equal", "greaterThanEqual", "lessThan",
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1181
        "notEqual", "lessThanEqual"
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1182
    };
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1183
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1184
    if (ctx->instruction_controls >= STATICARRAYLEN(comps))
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1185
    {
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1186
        fail(ctx, "unknown comparison control");
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1187
        return "";
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1188
    } // if
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1189
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1190
    return comps[ctx->instruction_controls];
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1191
} // get_D3D_comparison_string
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1192
b857eacdbc68 [svn] More GLSL work.
icculus
parents: 40
diff changeset
  1193
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1194
static void emit_GLSL_start(Context *ctx)
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1195
{
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1196
    const uint major = (uint) ctx->major_ver;
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1197
    const uint minor = (uint) ctx->minor_ver;
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
  1198
    if (ctx->shader_type == MOJOSHADER_TYPE_PIXEL)
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1199
        output_line(ctx, "// Pixel shader, version %u.%u", major, minor);
46
ff5a0ec44f00 [svn] Lots and lots of work on the public API.
icculus
parents: 45
diff changeset
  1200
    else if (ctx->shader_type == MOJOSHADER_TYPE_VERTEX)
16
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1201
        output_line(ctx, "// Vertex shader, version %u.%u", major, minor);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1202
    else
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1203
    {
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1204
        failf(ctx, "Shader type %u unsupported in this profile.",
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1205
              (uint) ctx->shader_type);
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1206
    } // else
0fac78e9ff57 [svn] Bunch More Work.
icculus
parents: 15
diff changeset
  1207
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1208
    output_line(ctx, "void main() {");
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1209
    ctx->indent++;
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1210
} // emit_GLSL_start
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1211
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1212
static void emit_GLSL_end(Context *ctx)
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1213
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1214
    ctx->indent--;
15
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1215
    output_line(ctx, "}");
97ad0050e75b [svn] Still more profile cleanup.
icculus
parents: 14
diff changeset
  1216
} // emit_GLSL_end
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1217
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1218
static void emit_GLSL_comment(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
  1219
{
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1220
    output_line(ctx, "// %s", str);
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1221
} // 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
  1222
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1223
static void emit_GLSL_NOP(Context *ctx)
2
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
    // no-op is a no-op.  :)
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1226
} // 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
  1227
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1228
static void emit_GLSL_MOV(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1229
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1230
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1231
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1232
    output_line(ctx, "%s = %s;", dst0, src0);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1233
} // emit_GLSL_MOV
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1234
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1235
static void emit_GLSL_ADD(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1236
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1237
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1238
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1239
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1240
    output_line(ctx, "%s = %s + %s;", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1241
} // emit_GLSL_ADD
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1242
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1243
static void emit_GLSL_SUB(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1244
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1245
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1246
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1247
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1248
    output_line(ctx, "%s = %s - %s;", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1249
} // 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
  1250
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1251
static void emit_GLSL_MAD(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1252
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1253
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1254
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1255
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1256
    const char *src2 = make_GLSL_sourcearg_string(ctx, 2);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1257
    output_line(ctx, "%s = (%s * %s) + %s;", dst0, src0, src1, src2);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1258
} // 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
  1259
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1260
static void emit_GLSL_MUL(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1261
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1262
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1263
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1264
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1265
    output_line(ctx, "%s = %s * %s;", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1266
} // emit_GLSL_MUL
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1267
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1268
static void emit_GLSL_RCP(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1269
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1270
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1271
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1272
    output_line(ctx, "%s = 1.0 / %s;", dst0, src0);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1273
} // 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
  1274
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1275
static void emit_GLSL_RSQ(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1276
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1277
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1278
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1279
    output_line(ctx, "%s = inversesqrt(%s);", dst0, src0);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1280
} // emit_GLSL_RSQ
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1281
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1282
static void emit_GLSL_DP3(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1283
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1284
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1285
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1286
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1287
    output_line(ctx, "%s = dot(vec3(%s), vec3(%s));", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1288
} // 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
  1289
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1290
static void emit_GLSL_DP4(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1291
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1292
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1293
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1294
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1295
    output_line(ctx, "%s = dot(vec4(%s), vec4(%s));", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1296
} // emit_GLSL_DP4
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1297
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1298
static void emit_GLSL_MIN(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1299
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1300
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1301
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1302
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1303
    output_line(ctx, "%s = min(%s, %s);", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1304
} // emit_GLSL_MIN
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1305
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1306
static void emit_GLSL_MAX(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1307
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1308
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1309
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1310
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1311
    output_line(ctx, "%s = max(%s, %s);", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1312
} // 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
  1313
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1314
static void emit_GLSL_SLT(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1315
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1316
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1317
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1318
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1319
    // !!! FIXME: need to cast from bvec to vec...
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1320
    output_line(ctx, "%s = lessThan(%s, %s);", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1321
} // emit_GLSL_SLT
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1322
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1323
static void emit_GLSL_SGE(Context *ctx)
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1324
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1325
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1326
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1327
    const char *src1 = make_GLSL_sourcearg_string(ctx, 1);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1328
    // !!! FIXME: need to cast from bvec to vec...
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1329
    output_line(ctx, "%s = greaterThanEqual(%s, %s);", dst0, src0, src1);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1330
} // emit_GLSL_SGE
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1331
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1332
static void emit_GLSL_EXP(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1333
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1334
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1335
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1336
    output_line(ctx, "%s = exp2(%s);", dst0, src0);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1337
} // 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
  1338
18
0dbdb2be8bf8 [svn] Bunch More Work. Cleanups, added app-supplied allocators, flexible output, etc.
icculus
parents: 17
diff changeset
  1339
static void emit_GLSL_LOG(Context *ctx)
2
c37210f5e87b [svn] Bunch More Work. Parse out instruction tokens, fail in a bunch of new stubs.
icculus
parents: 1
diff changeset
  1340
{
40
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1341
    const char *dst0 = make_GLSL_destarg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1342
    const char *src0 = make_GLSL_sourcearg_string(ctx, 0);
f54f1635ac8a [svn] Filling in some initial GLSL output. Not even close to done!
icculus
parents: 39
diff changeset
  1343
    output_line(ctx, "%s = log2(%s);", dst0, src0);
14
7075b6e31471 [svn] More proper split into profiles.
icculus
parents: 13
diff changeset
  1344
} // emit_GLSL_LOG
2
c37210f5e87b [svn] Bunch More W