git.oblomov.eu Git - wine/blob - dlls/d3d8/shader.c

   1 /*
   2  * shaders implementation
   3  *
   4  * Copyright 2002-2004 Raphael Junqueira
   5  * Copyright 2004 Jason Edmeades
   6  * Copyright 2004 Christian Costa
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  21  */
  22
  23 #include "config.h"
  24
  25 #include <math.h>
  26 #include <stdarg.h>
  27 #include <stdio.h>
  28
  29 #include "windef.h"
  30 #include "winbase.h"
  31 #include "winuser.h"
  32 #include "wingdi.h"
  33 #include "wine/debug.h"
  34
  35 #include "d3d8_private.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(d3d_shader);
  38 WINE_DECLARE_DEBUG_CHANNEL(d3d_hw_shader);
  39
  40 /* Shader debugging - Change the following line to enable debugging of software
  41       vertex shaders                                                             */
  42 #if 0 /* Must not be 1 in cvs version */
  43 # define VSTRACE(A) TRACE A
  44 # define TRACE_VSVECTOR(name) TRACE( #name "=(%f, %f, %f, %f)\n", name.x, name.y, name.z, name.w)
  45 #else
  46 # define VSTRACE(A)
  47 # define TRACE_VSVECTOR(name)
  48 #endif
  49
  50 /**
  51  * DirectX9 SDK download
  52  *  http://msdn.microsoft.com/library/default.asp?url=/downloads/list/directx.asp
  53  *
  54  * Exploring D3DX
  55  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndrive/html/directx07162002.asp
  56  *
  57  * Using Vertex Shaders
  58  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndrive/html/directx02192001.asp
  59  *
  60  * Dx9 New
  61  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/whatsnew.asp
  62  *
  63  * Dx9 Shaders
  64  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/reference/Shaders/VertexShader2_0/VertexShader2_0.asp
  65  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/reference/Shaders/VertexShader2_0/Instructions/Instructions.asp
  66  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/programmingguide/GettingStarted/VertexDeclaration/VertexDeclaration.asp
  67  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/reference/Shaders/VertexShader3_0/VertexShader3_0.asp
  68  *
  69  * Dx9 D3DX
  70  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/programmingguide/advancedtopics/VertexPipe/matrixstack/matrixstack.asp
  71  *
  72  * FVF
  73  *  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/programmingguide/GettingStarted/VertexFormats/vformats.asp
  74  *
  75  * NVIDIA: DX8 Vertex Shader to NV Vertex Program
  76  *  http://developer.nvidia.com/view.asp?IO=vstovp
  77  *
  78  * NVIDIA: Memory Management with VAR
  79  *  http://developer.nvidia.com/view.asp?IO=var_memory_management
  80  */
  81
  82 typedef void (*shader_fct_t)();
  83
  84 typedef struct SHADER_OPCODE {
  85   CONST WORD    opcode;
  86   const char*   name;
  87   CONST UINT    num_params;
  88   shader_fct_t  soft_fct;
  89   DWORD         min_version;
  90   DWORD         max_version;
  91 } SHADER_OPCODE;
  92
  93 /*******************************
  94  * vshader functions software VM
  95  */
  96
  97 void vshader_add(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
  98   d->x = s0->x + s1->x;
  99   d->y = s0->y + s1->y;
 100   d->z = s0->z + s1->z;
 101   d->w = s0->w + s1->w;
 102   VSTRACE(("executing add: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 103                  s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 104 }
 105
 106 void vshader_dp3(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 107   d->x = d->y = d->z = d->w = s0->x * s1->x + s0->y * s1->y + s0->z * s1->z;
 108   VSTRACE(("executing dp3: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 109                  s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 110 }
 111
 112 void vshader_dp4(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 113   d->x = d->y = d->z = d->w = s0->x * s1->x + s0->y * s1->y + s0->z * s1->z + s0->w * s1->w;
 114   VSTRACE(("executing dp4: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 115           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 116 }
 117
 118 void vshader_dst(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 119   d->x = 1.0f;
 120   d->y = s0->y * s1->y;
 121   d->z = s0->z;
 122   d->w = s1->w;
 123   VSTRACE(("executing dst: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 124           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 125 }
 126
 127 void vshader_expp(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 128   union {
 129     float f;
 130     DWORD d;
 131   } tmp;
 132
 133   tmp.f = floorf(s0->w);
 134   d->x  = powf(2.0f, tmp.f);
 135   d->y  = s0->w - tmp.f;
 136
 137   tmp.f = powf(2.0f, s0->w);
 138   tmp.d &= 0xFFFFFF00U;
 139   d->z  = tmp.f;
 140   d->w  = 1.0f;
 141   VSTRACE(("executing exp: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 142                 s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 143 }
 144
 145 void vshader_lit(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 146   d->x = 1.0f;
 147   d->y = (0.0f < s0->x) ? s0->x : 0.0f;
 148   d->z = (0.0f < s0->x && 0.0f < s0->y) ? powf(s0->y, s0->w) : 0.0f;
 149   d->w = 1.0f;
 150   VSTRACE(("executing lit: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 151                  s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 152 }
 153
 154 void vshader_logp(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 155   float tmp_f = fabsf(s0->w);
 156   d->x = d->y = d->z = d->w = (0.0f != tmp_f) ? logf(tmp_f) / logf(2.0f) : -HUGE_VAL;
 157   VSTRACE(("executing logp: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 158                  s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 159 }
 160
 161 void vshader_mad(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1, D3DSHADERVECTOR* s2) {
 162   d->x = s0->x * s1->x + s2->x;
 163   d->y = s0->y * s1->y + s2->y;
 164   d->z = s0->z * s1->z + s2->z;
 165   d->w = s0->w * s1->w + s2->w;
 166   VSTRACE(("executing mad: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) s2=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 167           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, s2->x, s2->y, s2->z, s2->w, d->x, d->y, d->z, d->w));
 168 }
 169
 170 void vshader_max(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 171   d->x = (s0->x >= s1->x) ? s0->x : s1->x;
 172   d->y = (s0->y >= s1->y) ? s0->y : s1->y;
 173   d->z = (s0->z >= s1->z) ? s0->z : s1->z;
 174   d->w = (s0->w >= s1->w) ? s0->w : s1->w;
 175   VSTRACE(("executing max: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 176           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 177 }
 178
 179 void vshader_min(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 180   d->x = (s0->x < s1->x) ? s0->x : s1->x;
 181   d->y = (s0->y < s1->y) ? s0->y : s1->y;
 182   d->z = (s0->z < s1->z) ? s0->z : s1->z;
 183   d->w = (s0->w < s1->w) ? s0->w : s1->w;
 184   VSTRACE(("executing min: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 185           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 186 }
 187
 188 void vshader_mov(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 189   d->x = s0->x;
 190   d->y = s0->y;
 191   d->z = s0->z;
 192   d->w = s0->w;
 193   VSTRACE(("executing mov: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 194           s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 195 }
 196
 197 void vshader_mul(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 198   d->x = s0->x * s1->x;
 199   d->y = s0->y * s1->y;
 200   d->z = s0->z * s1->z;
 201   d->w = s0->w * s1->w;
 202   VSTRACE(("executing mul: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 203           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 204 }
 205
 206 void vshader_nop(void) {
 207   /* NOPPPP ahhh too easy ;) */
 208 }
 209
 210 void vshader_rcp(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 211   d->x = d->y = d->z = d->w = (0.0f == s0->w) ? HUGE_VAL : 1.0f / s0->w;
 212   VSTRACE(("executing rcp: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 213           s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 214 }
 215
 216 void vshader_rsq(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 217   float tmp_f = fabsf(s0->w);
 218   d->x = d->y = d->z = d->w = (0.0f == tmp_f) ? HUGE_VAL : ((1.0f != tmp_f) ? 1.0f / sqrtf(tmp_f) : 1.0f);
 219   VSTRACE(("executing rsq: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 220           s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 221 }
 222
 223 void vshader_sge(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 224   d->x = (s0->x >= s1->x) ? 1.0f : 0.0f;
 225   d->y = (s0->y >= s1->y) ? 1.0f : 0.0f;
 226   d->z = (s0->z >= s1->z) ? 1.0f : 0.0f;
 227   d->w = (s0->w >= s1->w) ? 1.0f : 0.0f;
 228   VSTRACE(("executing sge: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 229           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 230 }
 231
 232 void vshader_slt(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 233   d->x = (s0->x < s1->x) ? 1.0f : 0.0f;
 234   d->y = (s0->y < s1->y) ? 1.0f : 0.0f;
 235   d->z = (s0->z < s1->z) ? 1.0f : 0.0f;
 236   d->w = (s0->w < s1->w) ? 1.0f : 0.0f;
 237   VSTRACE(("executing slt: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 238           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 239 }
 240
 241 void vshader_sub(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
 242   d->x = s0->x - s1->x;
 243   d->y = s0->y - s1->y;
 244   d->z = s0->z - s1->z;
 245   d->w = s0->w - s1->w;
 246   VSTRACE(("executing sub: s0=(%f, %f, %f, %f) s1=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 247           s0->x, s0->y, s0->z, s0->w, s1->x, s1->y, s1->z, s1->w, d->x, d->y, d->z, d->w));
 248 }
 249
 250 /**
 251  * Version 1.1 specific
 252  */
 253
 254 void vshader_exp(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 255   d->x = d->y = d->z = d->w = powf(2.0f, s0->w);
 256   VSTRACE(("executing exp: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 257           s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 258 }
 259
 260 void vshader_log(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 261   float tmp_f = fabsf(s0->w);
 262   d->x = d->y = d->z = d->w = (0.0f != tmp_f) ? logf(tmp_f) / logf(2.0f) : -HUGE_VAL;
 263   VSTRACE(("executing log: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 264           s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 265 }
 266
 267 void vshader_frc(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
 268   d->x = s0->x - floorf(s0->x);
 269   d->y = s0->y - floorf(s0->y);
 270   d->z = 0.0f;
 271   d->w = 1.0f;
 272   VSTRACE(("executing frc: s0=(%f, %f, %f, %f) => d=(%f, %f, %f, %f)\n",
 273           s0->x, s0->y, s0->z, s0->w, d->x, d->y, d->z, d->w));
 274 }
 275
 276 typedef FLOAT D3DMATRIX44[4][4];
 277 typedef FLOAT D3DMATRIX43[3][4];
 278 typedef FLOAT D3DMATRIX34[4][3];
 279 typedef FLOAT D3DMATRIX33[3][3];
 280 typedef FLOAT D3DMATRIX32[2][3];
 281
 282 void vshader_m4x4(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, /*D3DSHADERVECTOR* mat1*/ D3DMATRIX44 mat) {
 283   /*
 284    * BuGGY CODE: here only if cast not work for copy/paste
 285   D3DSHADERVECTOR* mat2 = mat1 + 1;
 286   D3DSHADERVECTOR* mat3 = mat1 + 2;
 287   D3DSHADERVECTOR* mat4 = mat1 + 3;
 288   d->x = mat1->x * s0->x + mat2->x * s0->y + mat3->x * s0->z + mat4->x * s0->w;
 289   d->y = mat1->y * s0->x + mat2->y * s0->y + mat3->y * s0->z + mat4->y * s0->w;
 290   d->z = mat1->z * s0->x + mat2->z * s0->y + mat3->z * s0->z + mat4->z * s0->w;
 291   d->w = mat1->w * s0->x + mat2->w * s0->y + mat3->w * s0->z + mat4->w * s0->w;
 292   */
 293   d->x = mat[0][0] * s0->x + mat[0][1] * s0->y + mat[0][2] * s0->z + mat[0][3] * s0->w;
 294   d->y = mat[1][0] * s0->x + mat[1][1] * s0->y + mat[1][2] * s0->z + mat[1][3] * s0->w;
 295   d->z = mat[2][0] * s0->x + mat[2][1] * s0->y + mat[2][2] * s0->z + mat[2][3] * s0->w;
 296   d->w = mat[3][0] * s0->x + mat[3][1] * s0->y + mat[3][2] * s0->z + mat[3][3] * s0->w;
 297   VSTRACE(("executing m4x4(1): mat=(%f, %f, %f, %f)    s0=(%f)     d=(%f) \n", mat[0][0], mat[0][1], mat[0][2], mat[0][3], s0->x, d->x));
 298   VSTRACE(("executing m4x4(2): mat=(%f, %f, %f, %f)       (%f)       (%f) \n", mat[1][0], mat[1][1], mat[1][2], mat[1][3], s0->y, d->y));
 299   VSTRACE(("executing m4x4(3): mat=(%f, %f, %f, %f) X     (%f)  =    (%f) \n", mat[2][0], mat[2][1], mat[2][2], mat[2][3], s0->z, d->z));
 300   VSTRACE(("executing m4x4(4): mat=(%f, %f, %f, %f)       (%f)       (%f) \n", mat[3][0], mat[3][1], mat[3][2], mat[3][3], s0->w, d->w));
 301 }
 302
 303 void vshader_m4x3(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DMATRIX43 mat) {
 304   d->x = mat[0][0] * s0->x + mat[0][1] * s0->y + mat[0][2] * s0->z + mat[0][3] * s0->w;
 305   d->y = mat[1][0] * s0->x + mat[1][1] * s0->y + mat[1][2] * s0->z + mat[1][3] * s0->w;
 306   d->z = mat[2][0] * s0->x + mat[2][1] * s0->y + mat[2][2] * s0->z + mat[2][3] * s0->w;
 307   d->w = 1.0f;
 308   VSTRACE(("executing m4x3(1): mat=(%f, %f, %f, %f)    s0=(%f)     d=(%f) \n", mat[0][0], mat[0][1], mat[0][2], mat[0][3], s0->x, d->x));
 309   VSTRACE(("executing m4x3(2): mat=(%f, %f, %f, %f)       (%f)       (%f) \n", mat[1][0], mat[1][1], mat[1][2], mat[1][3], s0->y, d->y));
 310   VSTRACE(("executing m4x3(3): mat=(%f, %f, %f, %f) X     (%f)  =    (%f) \n", mat[2][0], mat[2][1], mat[2][2], mat[2][3], s0->z, d->z));
 311   VSTRACE(("executing m4x3(4):                            (%f)       (%f) \n", s0->w, d->w));
 312 }
 313
 314 void vshader_m3x4(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DMATRIX34 mat) {
 315   d->x = mat[0][0] * s0->x + mat[0][1] * s0->y + mat[0][2] * s0->z;
 316   d->y = mat[1][0] * s0->x + mat[1][1] * s0->y + mat[1][2] * s0->z;
 317   d->z = mat[2][0] * s0->x + mat[2][1] * s0->y + mat[2][2] * s0->z;
 318   d->w = mat[3][0] * s0->x + mat[3][1] * s0->y + mat[3][2] * s0->z;
 319   VSTRACE(("executing m3x4(1): mat=(%f, %f, %f)    s0=(%f)     d=(%f) \n", mat[0][0], mat[0][1], mat[0][2], s0->x, d->x));
 320   VSTRACE(("executing m3x4(2): mat=(%f, %f, %f)       (%f)       (%f) \n", mat[1][0], mat[1][1], mat[1][2], s0->y, d->y));
 321   VSTRACE(("executing m3x4(3): mat=(%f, %f, %f) X     (%f)  =    (%f) \n", mat[2][0], mat[2][1], mat[2][2], s0->z, d->z));
 322   VSTRACE(("executing m3x4(4): mat=(%f, %f, %f)       (%f)       (%f) \n", mat[3][0], mat[3][1], mat[3][2], s0->w, d->w));
 323 }
 324
 325 void vshader_m3x3(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DMATRIX33 mat) {
 326   d->x = mat[0][0] * s0->x + mat[0][1] * s0->y + mat[0][2] * s0->z;
 327   d->y = mat[1][0] * s0->x + mat[1][1] * s0->y + mat[1][2] * s0->z;
 328   d->z = mat[2][0] * s0->x + mat[2][1] * s0->y + mat[2][2] * s0->z;
 329   d->w = 1.0f;
 330   VSTRACE(("executing m3x3(1): mat=(%f, %f, %f)    s0=(%f)     d=(%f) \n", mat[0][0], mat[0][1], mat[0][2], s0->x, d->x));
 331   VSTRACE(("executing m3x3(2): mat=(%f, %f, %f)       (%f)       (%f) \n", mat[1][0], mat[1][1], mat[1][2], s0->y, d->y));
 332   VSTRACE(("executing m3x3(3): mat=(%f, %f, %f) X     (%f)  =    (%f) \n", mat[2][0], mat[2][1], mat[2][2], s0->z, d->z));
 333   VSTRACE(("executing m3x3(4):                                       (%f) \n", d->w));
 334 }
 335
 336 void vshader_m3x2(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DMATRIX32 mat) {
 337   FIXME("check\n");
 338   d->x = mat[0][0] * s0->x + mat[0][1] * s0->y + mat[0][2] * s0->z;
 339   d->y = mat[1][0] * s0->x + mat[1][1] * s0->y + mat[1][2] * s0->z;
 340   d->z = 0.0f;
 341   d->w = 1.0f;
 342 }
 343
 344 /**
 345  * Version 2.0 specific
 346  */
 347 void vshader_lrp(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1, D3DSHADERVECTOR* s2, D3DSHADERVECTOR* s3) {
 348   d->x = s0->x * (s1->x - s2->x) + s2->x;
 349   d->y = s0->y * (s1->y - s2->y) + s2->y;
 350   d->z = s0->z * (s1->z - s2->z) + s2->z;
 351   d->w = s0->w * (s1->w - s2->w) + s2->x;
 352 }
 353
 354 /**
 355  * log, exp, frc, m*x* seems to be macros ins ... to see
 356  *   Note opcode must be in uppercase if direct mapping to GL hw shaders
 357  */
 358 static CONST SHADER_OPCODE vshader_ins [] = {
 359   {D3DSIO_NOP,  "NOP",  0, vshader_nop, 0, 0},
 360   {D3DSIO_MOV,  "MOV",  2, vshader_mov, 0, 0},
 361   {D3DSIO_ADD,  "ADD",  3, vshader_add, 0, 0},
 362   {D3DSIO_SUB,  "SUB",  3, vshader_sub, 0, 0},
 363   {D3DSIO_MAD,  "MAD",  4, vshader_mad, 0, 0},
 364   {D3DSIO_MUL,  "MUL",  3, vshader_mul, 0, 0},
 365   {D3DSIO_RCP,  "RCP",  2, vshader_rcp, 0, 0},
 366   {D3DSIO_RSQ,  "RSQ",  2, vshader_rsq, 0, 0},
 367   {D3DSIO_DP3,  "DP3",  3, vshader_dp3, 0, 0},
 368   {D3DSIO_DP4,  "DP4",  3, vshader_dp4, 0, 0},
 369   {D3DSIO_MIN,  "MIN",  3, vshader_min, 0, 0},
 370   {D3DSIO_MAX,  "MAX",  3, vshader_max, 0, 0},
 371   {D3DSIO_SLT,  "SLT",  3, vshader_slt, 0, 0},
 372   {D3DSIO_SGE,  "SGE",  3, vshader_sge, 0, 0},
 373   {D3DSIO_EXP,  "EXP",  2, vshader_exp, 0, 0},
 374   {D3DSIO_LOG,  "LOG",  2, vshader_log, 0, 0},
 375   {D3DSIO_LIT,  "LIT",  2, vshader_lit, 0, 0},
 376   {D3DSIO_DST,  "DST",  3, vshader_dst, 0, 0},
 377   {D3DSIO_LRP,  "LRP",  5, vshader_lrp, 0, 0},
 378   {D3DSIO_FRC,  "FRC",  2, vshader_frc, 0, 0},
 379   {D3DSIO_M4x4, "M4X4", 3, vshader_m4x4, 0, 0},
 380   {D3DSIO_M4x3, "M4X3", 3, vshader_m4x3, 0, 0},
 381   {D3DSIO_M3x4, "M3X4", 3, vshader_m3x4, 0, 0},
 382   {D3DSIO_M3x3, "M3X3", 3, vshader_m3x3, 0, 0},
 383   {D3DSIO_M3x2, "M3X2", 3, vshader_m3x2, 0, 0},
 384   /** FIXME: use direct access so add the others opcodes as stubs */
 385   {D3DSIO_EXPP, "EXPP", 2, vshader_expp, 0, 0},
 386   {D3DSIO_LOGP, "LOGP", 2, vshader_logp, 0, 0},
 387
 388   {0, NULL, 0, NULL, 0, 0}
 389 };
 390
 391
 392 inline static const SHADER_OPCODE* vshader_program_get_opcode(const DWORD code) {
 393   DWORD i = 0;
 394   /** TODO: use dichotomic search */
 395   while (NULL != vshader_ins[i].name) {
 396     if ((code & D3DSI_OPCODE_MASK) == vshader_ins[i].opcode) {
 397       return &vshader_ins[i];
 398     }
 399     ++i;
 400   }
 401   return NULL;
 402 }
 403
 404 inline static BOOL vshader_is_version_token(DWORD token) {
 405   return 0xFFFE0000 == (token & 0xFFFE0000);
 406 }
 407
 408 inline static BOOL vshader_is_comment_token(DWORD token) {
 409   return D3DSIO_COMMENT == (token & D3DSI_OPCODE_MASK);
 410 }
 411
 412 inline static void vshader_program_dump_param(const DWORD param, int input) {
 413   static const char* rastout_reg_names[] = { "oPos", "oFog", "oPts" };
 414   static const char swizzle_reg_chars[] = "xyzw";
 415
 416   DWORD reg = param & 0x00001FFF;
 417   DWORD regtype = ((param & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT);
 418
 419   if ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_NEG) TRACE("-");
 420
 421   switch (regtype << D3DSP_REGTYPE_SHIFT) {
 422   case D3DSPR_TEMP:
 423     TRACE("R[%lu]", reg);
 424     break;
 425   case D3DSPR_INPUT:
 426     TRACE("V[%lu]", reg);
 427     break;
 428   case D3DSPR_CONST:
 429     TRACE("C[%s%lu]", (param & D3DVS_ADDRMODE_RELATIVE) ? "a0.x + " : "", reg);
 430     break;
 431   case D3DSPR_ADDR: /*case D3DSPR_TEXTURE:*/
 432     TRACE("a[%lu]", reg);
 433     break;
 434   case D3DSPR_RASTOUT:
 435     TRACE("%s", rastout_reg_names[reg]);
 436     break;
 437   case D3DSPR_ATTROUT:
 438     TRACE("oD[%lu]", reg);
 439     break;
 440   case D3DSPR_TEXCRDOUT:
 441     TRACE("oT[%lu]", reg);
 442     break;
 443   default:
 444     break;
 445   }
 446
 447   if (!input) {
 448     /** operand output */
 449     if ((param & D3DSP_WRITEMASK_ALL) != D3DSP_WRITEMASK_ALL) {
 450       if (param & D3DSP_WRITEMASK_0) TRACE(".x");
 451       if (param & D3DSP_WRITEMASK_1) TRACE(".y");
 452       if (param & D3DSP_WRITEMASK_2) TRACE(".z");
 453       if (param & D3DSP_WRITEMASK_3) TRACE(".w");
 454     }
 455   } else {
 456     /** operand input */
 457     DWORD swizzle = (param & D3DVS_SWIZZLE_MASK) >> D3DVS_SWIZZLE_SHIFT;
 458     DWORD swizzle_x = swizzle & 0x03;
 459     DWORD swizzle_y = (swizzle >> 2) & 0x03;
 460     DWORD swizzle_z = (swizzle >> 4) & 0x03;
 461     DWORD swizzle_w = (swizzle >> 6) & 0x03;
 462     /**
 463      * swizzle bits fields:
 464      *  WWZZYYXX
 465      */
 466     if ((D3DVS_NOSWIZZLE >> D3DVS_SWIZZLE_SHIFT) != swizzle) { /* ! D3DVS_NOSWIZZLE == 0xE4 << D3DVS_SWIZZLE_SHIFT */
 467       if (swizzle_x == swizzle_y &&
 468           swizzle_x == swizzle_z &&
 469           swizzle_x == swizzle_w) {
 470         TRACE(".%c", swizzle_reg_chars[swizzle_x]);
 471       } else {
 472         TRACE(".%c%c%c%c",
 473                 swizzle_reg_chars[swizzle_x],
 474                 swizzle_reg_chars[swizzle_y],
 475                 swizzle_reg_chars[swizzle_z],
 476                 swizzle_reg_chars[swizzle_w]);
 477       }
 478     }
 479   }
 480 }
 481
 482 inline static void vshader_program_add_param(const DWORD param, int input, char *hwLine) {
 483   /*static const char* rastout_reg_names[] = { "oPos", "oFog", "oPts" }; */
 484   static const char* hwrastout_reg_names[] = { "result.position", "result.fogcoord", "result.pointsize" };
 485   static const char swizzle_reg_chars[] = "xyzw";
 486
 487   DWORD reg = param & 0x00001FFF;
 488   DWORD regtype = ((param & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT);
 489   char  tmpReg[255];
 490
 491   if ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_NEG) {
 492       strcat(hwLine, " -");
 493   } else {
 494       strcat(hwLine, " ");
 495   }
 496
 497   switch (regtype << D3DSP_REGTYPE_SHIFT) {
 498   case D3DSPR_TEMP:
 499     sprintf(tmpReg, "T%lu", reg);
 500     strcat(hwLine, tmpReg);
 501     break;
 502   case D3DSPR_INPUT:
 503     sprintf(tmpReg, "vertex.attrib[%lu]", reg);
 504     strcat(hwLine, tmpReg);
 505     break;
 506   case D3DSPR_CONST:
 507     sprintf(tmpReg, "C[%s%lu]", (param & D3DVS_ADDRMODE_RELATIVE) ? "A0.x + " : "", reg);
 508     strcat(hwLine, tmpReg);
 509     break;
 510   case D3DSPR_ADDR: /*case D3DSPR_TEXTURE:*/
 511     sprintf(tmpReg, "A%lu", reg);
 512     strcat(hwLine, tmpReg);
 513     break;
 514   case D3DSPR_RASTOUT:
 515     sprintf(tmpReg, "%s", hwrastout_reg_names[reg]);
 516     strcat(hwLine, tmpReg);
 517     break;
 518   case D3DSPR_ATTROUT:
 519     if (reg==0) {
 520        strcat(hwLine, "result.color.primary");
 521     } else {
 522        strcat(hwLine, "result.color.secondary");
 523     }
 524     break;
 525   case D3DSPR_TEXCRDOUT:
 526     sprintf(tmpReg, "result.texcoord[%lu]", reg);
 527     strcat(hwLine, tmpReg);
 528     break;
 529   default:
 530     break;
 531   }
 532
 533   if (!input) {
 534     /** operand output */
 535     if ((param & D3DSP_WRITEMASK_ALL) != D3DSP_WRITEMASK_ALL) {
 536       strcat(hwLine, ".");
 537       if (param & D3DSP_WRITEMASK_0) {
 538           strcat(hwLine, "x");
 539       }
 540       if (param & D3DSP_WRITEMASK_1) {
 541           strcat(hwLine, "y");
 542       }
 543       if (param & D3DSP_WRITEMASK_2) {
 544           strcat(hwLine, "z");
 545       }
 546       if (param & D3DSP_WRITEMASK_3) {
 547           strcat(hwLine, "w");
 548       }
 549     }
 550   } else {
 551     /** operand input */
 552     DWORD swizzle = (param & D3DVS_SWIZZLE_MASK) >> D3DVS_SWIZZLE_SHIFT;
 553     DWORD swizzle_x = swizzle & 0x03;
 554     DWORD swizzle_y = (swizzle >> 2) & 0x03;
 555     DWORD swizzle_z = (swizzle >> 4) & 0x03;
 556     DWORD swizzle_w = (swizzle >> 6) & 0x03;
 557     /**
 558      * swizzle bits fields:
 559      *  WWZZYYXX
 560      */
 561     if ((D3DVS_NOSWIZZLE >> D3DVS_SWIZZLE_SHIFT) != swizzle) { /* ! D3DVS_NOSWIZZLE == 0xE4 << D3DVS_SWIZZLE_SHIFT */
 562       if (swizzle_x == swizzle_y &&
 563           swizzle_x == swizzle_z &&
 564           swizzle_x == swizzle_w) {
 565         sprintf(tmpReg, ".%c", swizzle_reg_chars[swizzle_x]);
 566         strcat(hwLine, tmpReg);
 567       } else {
 568         sprintf(tmpReg, ".%c%c%c%c",
 569                 swizzle_reg_chars[swizzle_x],
 570                 swizzle_reg_chars[swizzle_y],
 571                 swizzle_reg_chars[swizzle_z],
 572                 swizzle_reg_chars[swizzle_w]);
 573         strcat(hwLine, tmpReg);
 574       }
 575     }
 576   }
 577 }
 578
 579 DWORD MacroExpansion[4*4];
 580
 581 int ExpandMxMacro(DWORD macro_opcode, const DWORD* args) {
 582   int i;
 583   int nComponents = 0;
 584   DWORD opcode =0;
 585   switch(macro_opcode) {
 586     case D3DSIO_M4x4:
 587       nComponents = 4;
 588       opcode = D3DSIO_DP4;
 589       break;
 590     case D3DSIO_M4x3:
 591       nComponents = 3;
 592       opcode = D3DSIO_DP4;
 593       break;
 594     case D3DSIO_M3x4:
 595       nComponents = 4;
 596       opcode = D3DSIO_DP3;
 597       break;
 598     case D3DSIO_M3x3:
 599       nComponents = 3;
 600       opcode = D3DSIO_DP3;
 601       break;
 602     case D3DSIO_M3x2:
 603       nComponents = 2;
 604       opcode = D3DSIO_DP3;
 605       break;
 606     default:
 607       break;
 608   }
 609   for (i = 0; i < nComponents; i++) {
 610     MacroExpansion[i*4+0] = opcode;
 611     MacroExpansion[i*4+1] = ((*args) & ~D3DSP_WRITEMASK_ALL)|(D3DSP_WRITEMASK_0<<i);
 612     MacroExpansion[i*4+2] = *(args+1);
 613     MacroExpansion[i*4+3] = (*(args+2))+i;
 614   }
 615   return nComponents;
 616 }
 617
 618 /**
 619  * Function parser ...
 620  */
 621 inline static VOID IDirect3DVertexShaderImpl_GenerateProgramArbHW(IDirect3DVertexShaderImpl* vshader, CONST DWORD* pFunction) {
 622   const DWORD* pToken = pFunction;
 623   const DWORD* pSavedToken = NULL;
 624   const SHADER_OPCODE* curOpcode = NULL;
 625   int nRemInstr = -1;
 626   DWORD i;
 627   unsigned lineNum = 0;
 628   char *pgmStr = NULL;
 629   char  tmpLine[255];
 630   DWORD nUseAddressRegister = 0;
 631   DWORD nUseTempRegister = 0;
 632   DWORD regtype;
 633   DWORD reg;
 634   IDirect3DDevice8Impl* This = vshader->device;
 635
 636   pgmStr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, 65535); /* 64kb should be enough */
 637
 638   /**
 639    * First pass to determine what we need to declare:
 640    *  - Temporary variables
 641    *  - Address variables
 642    */
 643   if (NULL != pToken) {
 644     while (D3DVS_END() != *pToken) {
 645       if (vshader_is_version_token(*pToken)) {
 646         /** skip version */
 647         ++pToken;
 648         continue;
 649       }
 650       if (vshader_is_comment_token(*pToken)) { /** comment */
 651         DWORD comment_len = (*pToken & D3DSI_COMMENTSIZE_MASK) >> D3DSI_COMMENTSIZE_SHIFT;
 652         ++pToken;
 653         pToken += comment_len;
 654         continue;
 655       }
 656       curOpcode = vshader_program_get_opcode(*pToken);
 657       ++pToken;
 658       if (NULL == curOpcode) {
 659         while (*pToken & 0x80000000) {
 660           /* skip unrecognized opcode */
 661           ++pToken;
 662         }
 663       } else {
 664         if (curOpcode->num_params > 0) {
 665           regtype = ((((*pToken) & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT) << D3DSP_REGTYPE_SHIFT);
 666           reg = ((*pToken)  & 0x00001FFF);
 667           /** we should validate GL_MAX_PROGRAM_ADDRESS_REGISTERS_AR limits here */
 668           if (D3DSPR_ADDR == regtype && nUseAddressRegister <= reg) nUseAddressRegister = reg + 1;
 669           /** we should validate GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB limits here */
 670           if (D3DSPR_TEMP == regtype && nUseTempRegister <= reg) nUseTempRegister = reg + 1;
 671           ++pToken;
 672           for (i = 1; i < curOpcode->num_params; ++i) {
 673             regtype = ((((*pToken) & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT) << D3DSP_REGTYPE_SHIFT);
 674             reg = ((*pToken)  & 0x00001FFF);
 675             /** we should validate GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB limits here */
 676             if (D3DSPR_TEMP == regtype && nUseTempRegister <= reg) nUseTempRegister = reg + 1;
 677             ++pToken;
 678           }
 679         }
 680       }
 681     }
 682   }
 683
 684   /** second pass, now generate */
 685   pToken = pFunction;
 686
 687   if (NULL != pToken) {
 688     while (1) {
 689       tmpLine[0] = 0;
 690
 691       if ((nRemInstr >= 0) && (--nRemInstr == -1))
 692         /* Macro is finished, continue normal path */
 693         pToken = pSavedToken;
 694
 695       if (D3DVS_END() == *pToken)
 696         break;
 697
 698       if (vshader_is_version_token(*pToken)) { /** version */
 699
 700         /* Extract version *10 into integer value (ie. 1.0 == 10, 1.1==11 etc */
 701         int version = (((*pToken >> 8) & 0x0F) * 10) + (*pToken & 0x0F);
 702         int numTemps;
 703         int numConstants;
 704
 705         TRACE_(d3d_hw_shader)("vs.%lu.%lu;\n", (*pToken >> 8) & 0x0F, (*pToken & 0x0F));
 706
 707         /* Each release of vertex shaders has had different numbers of temp registers */
 708         switch (version) {
 709         case 10:
 710         case 11: numTemps=12;
 711                  numConstants=96;
 712                  strcpy(tmpLine, "!!ARBvp1.0\n");
 713                  TRACE_(d3d_hw_shader)("GL HW (%u) : %s", strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 714                  break;
 715         case 20: numTemps=12;
 716                  numConstants=256;
 717                  strcpy(tmpLine, "!!ARBvp2.0\n");
 718                  FIXME_(d3d_hw_shader)("No work done yet to support vs2.0 in hw\n");
 719                  TRACE_(d3d_hw_shader)("GL HW (%u) : %s", strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 720                  break;
 721         case 30: numTemps=32;
 722                  numConstants=256;
 723                  strcpy(tmpLine, "!!ARBvp3.0\n");
 724                  FIXME_(d3d_hw_shader)("No work done yet to support vs3.0 in hw\n");
 725                  TRACE_(d3d_hw_shader)("GL HW (%u) : %s", strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 726                  break;
 727         default:
 728                  numTemps=12;
 729                  numConstants=96;
 730                  strcpy(tmpLine, "!!ARBvp1.0\n");
 731                  FIXME_(d3d_hw_shader)("Unrecognized vertex shader version!\n");
 732         }
 733         strcat(pgmStr,tmpLine);
 734         ++lineNum;
 735
 736         for (i = 0; i < nUseTempRegister/*we should check numTemps here*/; i++) {
 737             sprintf(tmpLine, "TEMP T%ld;\n", i);
 738             ++lineNum;
 739             TRACE_(d3d_hw_shader)("GL HW (%u, %u) : %s", lineNum, strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 740             strcat(pgmStr,tmpLine);
 741         }
 742         for (i = 0; i < nUseAddressRegister; i++) {
 743             sprintf(tmpLine, "ADDRESS A%ld;\n", i);
 744             ++lineNum;
 745             TRACE_(d3d_hw_shader)("GL HW (%u, %u) : %s", lineNum, strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 746             strcat(pgmStr,tmpLine);
 747         }
 748         /* Due to the dynamic constants binding mechanism, we need to declare
 749          * all the constants for relative addressing. */
 750         /* Mesa supports nly 95 constants for VS1.X although we should have at least 96. */
 751         if (This->direct3d8->gl_info.gl_vendor == VENDOR_MESA ||
 752             This->direct3d8->gl_info.gl_vendor == VENDOR_WINE) {
 753           numConstants = 95;
 754         }
 755         sprintf(tmpLine, "PARAM C[%d] = { program.env[0..%d] };\n", numConstants, numConstants-1);
 756         TRACE_(d3d_hw_shader)("GL HW (%u,%u) : %s", lineNum, strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 757         strcat(pgmStr, tmpLine);
 758         ++lineNum;
 759
 760         ++pToken;
 761         continue;
 762       }
 763       if (vshader_is_comment_token(*pToken)) { /** comment */
 764         DWORD comment_len = (*pToken & D3DSI_COMMENTSIZE_MASK) >> D3DSI_COMMENTSIZE_SHIFT;
 765         ++pToken;
 766         /*TRACE("comment[%ld] ;%s\n", comment_len, (char*)pToken);*/
 767         pToken += comment_len;
 768         continue;
 769       }
 770       curOpcode = vshader_program_get_opcode(*pToken);
 771       ++pToken;
 772       if (NULL == curOpcode) {
 773         /* unkown current opcode ... */
 774         while (*pToken & 0x80000000) {
 775           TRACE_(d3d_hw_shader)("unrecognized opcode: %08lx\n", *pToken);
 776           ++pToken;
 777         }
 778       } else {
 779         /* Build opcode for GL vertex_program */
 780         switch (curOpcode->opcode) {
 781         case D3DSIO_NOP:
 782             continue;
 783         case D3DSIO_MOV:
 784             /* Address registers must be loaded with the ARL instruction */
 785             if (((*pToken) & D3DSP_REGTYPE_MASK) == D3DSPR_ADDR) {
 786                 if (0 < nUseAddressRegister) {
 787                     strcpy(tmpLine, "ARL");
 788                     break;
 789                 } else
 790                    FIXME_(d3d_hw_shader)("Try to load an undeclared address register!\n");
 791             }
 792             /* fall through */
 793         case D3DSIO_ADD:
 794         case D3DSIO_SUB:
 795         case D3DSIO_MAD:
 796         case D3DSIO_MUL:
 797         case D3DSIO_RCP:
 798         case D3DSIO_RSQ:
 799         case D3DSIO_DP3:
 800         case D3DSIO_DP4:
 801         case D3DSIO_MIN:
 802         case D3DSIO_MAX:
 803         case D3DSIO_SLT:
 804         case D3DSIO_SGE:
 805         case D3DSIO_LIT:
 806         case D3DSIO_DST:
 807         case D3DSIO_FRC:
 808             strcpy(tmpLine, curOpcode->name);
 809             break;
 810
 811         case D3DSIO_EXPP:
 812             strcpy(tmpLine, "EXP");
 813             break;
 814         case D3DSIO_LOGP:
 815             strcpy(tmpLine, "LOG");
 816             break;
 817         case D3DSIO_EXP:
 818             strcpy(tmpLine, "EX2");
 819             break;
 820         case D3DSIO_LOG:
 821             strcpy(tmpLine, "LG2");
 822             break;
 823
 824         case D3DSIO_M4x4:
 825         case D3DSIO_M4x3:
 826         case D3DSIO_M3x4:
 827         case D3DSIO_M3x3:
 828         case D3DSIO_M3x2:
 829             /* Expand the macro and get number of generated instruction */
 830             nRemInstr = ExpandMxMacro(curOpcode->opcode, pToken);
 831             /* Save point to next instruction */
 832             pSavedToken = pToken + 3;
 833             /* Execute expanded macro */
 834             pToken = MacroExpansion;
 835             continue;
 836
 837         default:
 838             FIXME_(d3d_hw_shader)("Can't handle opcode %s in hwShader\n", curOpcode->name);
 839         }
 840
 841         if (curOpcode->num_params > 0) {
 842           vshader_program_add_param(*pToken, 0, tmpLine);
 843
 844           ++pToken;
 845           for (i = 1; i < curOpcode->num_params; ++i) {
 846             strcat(tmpLine, ",");
 847             vshader_program_add_param(*pToken, 1, tmpLine);
 848             ++pToken;
 849           }
 850         }
 851         strcat(tmpLine,";\n");
 852         ++lineNum;
 853         TRACE_(d3d_hw_shader)("GL HW (%u, %u) : %s", lineNum, strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 854         strcat(pgmStr, tmpLine);
 855       }
 856     }
 857     strcpy(tmpLine, "END\n");
 858     ++lineNum;
 859     TRACE_(d3d_hw_shader)("GL HW (%u, %u) : %s", lineNum, strlen(pgmStr), tmpLine); /* Don't add \n to this line as already in tmpLine */
 860     strcat(pgmStr, tmpLine);
 861   }
 862
 863   /*  Create the hw shader */
 864   GL_EXTCALL(glGenProgramsARB(1, &vshader->prgId));
 865   TRACE_(d3d_hw_shader)("Creating a hw vertex shader, prg=%d\n", vshader->prgId);
 866
 867   GL_EXTCALL(glBindProgramARB(GL_VERTEX_PROGRAM_ARB, vshader->prgId));
 868
 869   /* Create the program and check for errors */
 870   GL_EXTCALL(glProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, strlen(pgmStr), pgmStr));
 871   if (glGetError() == GL_INVALID_OPERATION) {
 872     GLint errPos;
 873     glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &errPos);
 874     FIXME_(d3d_hw_shader)("HW VertexShader Error at position: %d\n%s\n", errPos, glGetString(GL_PROGRAM_ERROR_STRING_ARB));
 875     vshader->prgId = -1;
 876   }
 877
 878   HeapFree(GetProcessHeap(), 0, pgmStr);
 879 }
 880
 881 inline static VOID IDirect3DVertexShaderImpl_ParseProgram(IDirect3DVertexShaderImpl* vshader, CONST DWORD* pFunction, int useHW) {
 882   const DWORD* pToken = pFunction;
 883   const SHADER_OPCODE* curOpcode = NULL;
 884   DWORD len = 0;
 885   DWORD i;
 886
 887   if (NULL != pToken) {
 888     while (D3DVS_END() != *pToken) {
 889       if (vshader_is_version_token(*pToken)) { /** version */
 890         TRACE("vs.%lu.%lu\n", (*pToken >> 8) & 0x0F, (*pToken & 0x0F));
 891         ++pToken;
 892         ++len;
 893         continue;
 894       }
 895       if (vshader_is_comment_token(*pToken)) { /** comment */
 896         DWORD comment_len = (*pToken & D3DSI_COMMENTSIZE_MASK) >> D3DSI_COMMENTSIZE_SHIFT;
 897         ++pToken;
 898         /*TRACE("comment[%ld] ;%s\n", comment_len, (char*)pToken);*/
 899         pToken += comment_len;
 900         len += comment_len + 1;
 901         continue;
 902       }
 903       curOpcode = vshader_program_get_opcode(*pToken);
 904       ++pToken;
 905       ++len;
 906       if (NULL == curOpcode) {
 907         /* unkown current opcode ... */
 908         while (*pToken & 0x80000000) {
 909           TRACE("unrecognized opcode: %08lx\n", *pToken);
 910           ++pToken;
 911           ++len;
 912         }
 913       } else {
 914         TRACE("%s ", curOpcode->name);
 915         if (curOpcode->num_params > 0) {
 916           vshader_program_dump_param(*pToken, 0);
 917           ++pToken;
 918           ++len;
 919           for (i = 1; i < curOpcode->num_params; ++i) {
 920             TRACE(", ");
 921             vshader_program_dump_param(*pToken, 1);
 922             ++pToken;
 923             ++len;
 924           }
 925         }
 926         TRACE("\n");
 927       }
 928     }
 929     vshader->functionLength = (len + 1) * sizeof(DWORD);
 930   } else {
 931     vshader->functionLength = 1; /* no Function defined use fixed function vertex processing */
 932   }
 933
 934   /* Generate HW shader in needed */
 935   if (useHW && NULL != pFunction) {
 936     IDirect3DVertexShaderImpl_GenerateProgramArbHW(vshader, pFunction);
 937   }
 938
 939   /* copy the function ... because it will certainly be released by application */
 940   if (NULL != pFunction) {
 941     vshader->function = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, vshader->functionLength);
 942     memcpy(vshader->function, pFunction, vshader->functionLength);
 943   } else {
 944     vshader->function = NULL;
 945   }
 946 }
 947
 948 HRESULT WINAPI IDirect3DDeviceImpl_CreateVertexShader(IDirect3DDevice8Impl* This, CONST DWORD* pFunction, DWORD Usage, IDirect3DVertexShaderImpl** ppVertexShader) {
 949   IDirect3DVertexShaderImpl* object;
 950   int useHW;
 951
 952   object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DVertexShaderImpl));
 953   if (NULL == object) {
 954     *ppVertexShader = NULL;
 955     return D3DERR_OUTOFVIDEOMEMORY;
 956   }
 957   /*object->lpVtbl = &Direct3DVextexShader9_Vtbl;*/
 958   object->device = This; /* FIXME: AddRef(This) */
 959   object->ref = 1;
 960
 961   object->usage = Usage;
 962   object->data = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(VSHADERDATA8));
 963
 964   useHW = (((vs_mode == VS_HW) && GL_SUPPORT(ARB_VERTEX_PROGRAM)) &&
 965             This->devType != D3DDEVTYPE_REF &&
 966             object->usage != D3DUSAGE_SOFTWAREPROCESSING);
 967
 968   IDirect3DVertexShaderImpl_ParseProgram(object, pFunction, useHW);
 969
 970   *ppVertexShader = object;
 971   return D3D_OK;
 972 }
 973
 974 BOOL IDirect3DVertexShaderImpl_ExecuteHAL(IDirect3DVertexShaderImpl* vshader, VSHADERINPUTDATA8* input, VSHADEROUTPUTDATA8* output) {
 975   /**
 976    * TODO: use the NV_vertex_program (or 1_1) extension
 977    *  and specifics vendors (ARB_vertex_program??) variants for it
 978    */
 979   return TRUE;
 980 }
 981
 982 HRESULT WINAPI IDirect3DVertexShaderImpl_ExecuteSW(IDirect3DVertexShaderImpl* vshader, VSHADERINPUTDATA8* input, VSHADEROUTPUTDATA8* output) {
 983   /** Vertex Shader Temporary Registers */
 984   D3DSHADERVECTOR R[12];
 985   /*D3DSHADERSCALAR A0;*/
 986   D3DSHADERVECTOR A[1];
 987   /** temporary Vector for modifier management */
 988   D3DSHADERVECTOR d;
 989   D3DSHADERVECTOR s[3];
 990   /** parser datas */
 991   const DWORD* pToken = vshader->function;
 992   const SHADER_OPCODE* curOpcode = NULL;
 993   /** functions parameters */
 994   D3DSHADERVECTOR* p[5];
 995   D3DSHADERVECTOR* p_send[5];
 996   DWORD i;
 997
 998   /** init temporary register */
 999   memset(R, 0, 12 * sizeof(D3DSHADERVECTOR));
1000
1001   /* vshader_program_parse(vshader); */
1002 #if 0 /* Must not be 1 in cvs */
1003   TRACE("Input:\n");
1004   TRACE_VSVECTOR(vshader->data->C[0]);
1005   TRACE_VSVECTOR(vshader->data->C[1]);
1006   TRACE_VSVECTOR(vshader->data->C[2]);
1007   TRACE_VSVECTOR(vshader->data->C[3]);
1008   TRACE_VSVECTOR(vshader->data->C[4]);
1009   TRACE_VSVECTOR(vshader->data->C[5]);
1010   TRACE_VSVECTOR(vshader->data->C[6]);
1011   TRACE_VSVECTOR(vshader->data->C[7]);
1012   TRACE_VSVECTOR(vshader->data->C[8]);
1013   TRACE_VSVECTOR(vshader->data->C[64]);
1014   TRACE_VSVECTOR(input->V[D3DVSDE_POSITION]);
1015   TRACE_VSVECTOR(input->V[D3DVSDE_BLENDWEIGHT]);
1016   TRACE_VSVECTOR(input->V[D3DVSDE_BLENDINDICES]);
1017   TRACE_VSVECTOR(input->V[D3DVSDE_NORMAL]);
1018   TRACE_VSVECTOR(input->V[D3DVSDE_PSIZE]);
1019   TRACE_VSVECTOR(input->V[D3DVSDE_DIFFUSE]);
1020   TRACE_VSVECTOR(input->V[D3DVSDE_SPECULAR]);
1021   TRACE_VSVECTOR(input->V[D3DVSDE_TEXCOORD0]);
1022   TRACE_VSVECTOR(input->V[D3DVSDE_TEXCOORD1]);
1023 #endif
1024
1025   TRACE_VSVECTOR(vshader->data->C[64]);
1026
1027   /* the first dword is the version tag */
1028   /* TODO: parse it */
1029
1030   if (vshader_is_version_token(*pToken)) { /** version */
1031     ++pToken;
1032   }
1033   while (D3DVS_END() != *pToken) {
1034     if (vshader_is_comment_token(*pToken)) { /** comment */
1035       DWORD comment_len = (*pToken & D3DSI_COMMENTSIZE_MASK) >> D3DSI_COMMENTSIZE_SHIFT;
1036       ++pToken;
1037       pToken += comment_len;
1038       continue ;
1039     }
1040     curOpcode = vshader_program_get_opcode(*pToken);
1041     ++pToken;
1042     if (NULL == curOpcode) {
1043       i = 0;
1044       /* unkown current opcode ... */
1045       while (*pToken & 0x80000000) {
1046         if (i == 0) {
1047           TRACE("unrecognized opcode: pos=%d token=%08lX\n", (pToken - 1) - vshader->function, *(pToken - 1));
1048         }
1049         TRACE("unrecognized opcode param: pos=%d token=%08lX what=", pToken - vshader->function, *pToken);
1050         vshader_program_add_param(*pToken, i, NULL); /* Add function just used for trace error scenario */
1051         TRACE("\n");
1052         ++i;
1053         ++pToken;
1054       }
1055       /*return FALSE;*/
1056     } else {
1057       if (curOpcode->num_params > 0) {
1058         /*TRACE(">> execting opcode: pos=%d opcode_name=%s token=%08lX\n", pToken - vshader->function, curOpcode->name, *pToken);*/
1059         for (i = 0; i < curOpcode->num_params; ++i) {
1060           DWORD reg = pToken[i] & 0x00001FFF;
1061           DWORD regtype = ((pToken[i] & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT);
1062
1063           switch (regtype << D3DSP_REGTYPE_SHIFT) {
1064           case D3DSPR_TEMP:
1065             /*TRACE("p[%d]=R[%d]\n", i, reg);*/
1066             p[i] = &R[reg];
1067             break;
1068           case D3DSPR_INPUT:
1069             /*TRACE("p[%d]=V[%s]\n", i, VertexShaderDeclRegister[reg]);*/
1070             p[i] = &input->V[reg];
1071             break;
1072           case D3DSPR_CONST:
1073             if (pToken[i] & D3DVS_ADDRMODE_RELATIVE) {
1074               p[i] = &vshader->data->C[(DWORD) A[0].x + reg];
1075             } else {
1076               p[i] = &vshader->data->C[reg];
1077             }
1078             break;
1079           case D3DSPR_ADDR: /*case D3DSPR_TEXTURE:*/
1080             if (0 != reg) {
1081               ERR("cannot handle address registers != a0, forcing use of a0\n");
1082               reg = 0;
1083             }
1084             /*TRACE("p[%d]=A[%d]\n", i, reg);*/
1085             p[i] = &A[reg];
1086             break;
1087           case D3DSPR_RASTOUT:
1088             switch (reg) {
1089             case D3DSRO_POSITION:
1090               p[i] = &output->oPos;
1091               break;
1092             case D3DSRO_FOG:
1093               p[i] = &output->oFog;
1094               break;
1095             case D3DSRO_POINT_SIZE:
1096               p[i] = &output->oPts;
1097               break;
1098             }
1099             break;
1100           case D3DSPR_ATTROUT:
1101             /*TRACE("p[%d]=oD[%d]\n", i, reg);*/
1102             p[i] = &output->oD[reg];
1103             break;
1104           case D3DSPR_TEXCRDOUT:
1105             /*TRACE("p[%d]=oT[%d]\n", i, reg);*/
1106             p[i] = &output->oT[reg];
1107             break;
1108           default:
1109             break;
1110           }
1111
1112           if (i > 0) { /* input reg */
1113             DWORD swizzle = (pToken[i] & D3DVS_SWIZZLE_MASK) >> D3DVS_SWIZZLE_SHIFT;
1114             UINT isNegative = ((pToken[i] & D3DSP_SRCMOD_MASK) == D3DSPSM_NEG);
1115
1116             if (!isNegative && (D3DVS_NOSWIZZLE >> D3DVS_SWIZZLE_SHIFT) == swizzle) {
1117               /*TRACE("p[%d] not swizzled\n", i);*/
1118               p_send[i] = p[i];
1119             } else {
1120               DWORD swizzle_x = swizzle & 0x03;
1121               DWORD swizzle_y = (swizzle >> 2) & 0x03;
1122               DWORD swizzle_z = (swizzle >> 4) & 0x03;
1123               DWORD swizzle_w = (swizzle >> 6) & 0x03;
1124               /*TRACE("p[%d] swizzled\n", i);*/
1125               float* tt = (float*) p[i];
1126               s[i].x = (isNegative) ? -tt[swizzle_x] : tt[swizzle_x];
1127               s[i].y = (isNegative) ? -tt[swizzle_y] : tt[swizzle_y];
1128               s[i].z = (isNegative) ? -tt[swizzle_z] : tt[swizzle_z];
1129               s[i].w = (isNegative) ? -tt[swizzle_w] : tt[swizzle_w];
1130               p_send[i] = &s[i];
1131             }
1132           } else { /* output reg */
1133             if ((pToken[i] & D3DSP_WRITEMASK_ALL) == D3DSP_WRITEMASK_ALL) {
1134               p_send[i] = p[i];
1135             } else {
1136               p_send[i] = &d; /* to be post-processed for modifiers management */
1137             }
1138           }
1139         }
1140       }
1141
1142       switch (curOpcode->num_params) {
1143       case 0:
1144         curOpcode->soft_fct();
1145         break;
1146       case 1:
1147         curOpcode->soft_fct(p_send[0]);
1148         break;
1149       case 2:
1150         curOpcode->soft_fct(p_send[0], p_send[1]);
1151         break;
1152       case 3:
1153         curOpcode->soft_fct(p_send[0], p_send[1], p_send[2]);
1154         break;
1155       case 4:
1156         curOpcode->soft_fct(p_send[0], p_send[1], p_send[2], p_send[3]);
1157         break;
1158       case 5:
1159         curOpcode->soft_fct(p_send[0], p_send[1], p_send[2], p_send[3], p_send[4]);
1160         break;
1161       default:
1162         ERR("%s too many params: %u\n", curOpcode->name, curOpcode->num_params);
1163       }
1164
1165       /* check if output reg modifier post-process */
1166       if (curOpcode->num_params > 0 && (pToken[0] & D3DSP_WRITEMASK_ALL) != D3DSP_WRITEMASK_ALL) {
1167         if (pToken[0] & D3DSP_WRITEMASK_0) p[0]->x = d.x;
1168         if (pToken[0] & D3DSP_WRITEMASK_1) p[0]->y = d.y;
1169         if (pToken[0] & D3DSP_WRITEMASK_2) p[0]->z = d.z;
1170         if (pToken[0] & D3DSP_WRITEMASK_3) p[0]->w = d.w;
1171       }
1172
1173 #if 0
1174       TRACE_VSVECTOR(output->oPos);
1175       TRACE_VSVECTOR(output->oD[0]);
1176       TRACE_VSVECTOR(output->oD[1]);
1177       TRACE_VSVECTOR(output->oT[0]);
1178       TRACE_VSVECTOR(output->oT[1]);
1179       TRACE_VSVECTOR(R[0]);
1180       TRACE_VSVECTOR(R[1]);
1181       TRACE_VSVECTOR(R[2]);
1182       TRACE_VSVECTOR(R[3]);
1183       TRACE_VSVECTOR(R[4]);
1184       TRACE_VSVECTOR(R[5]);
1185 #endif
1186
1187       /* to next opcode token */
1188       pToken += curOpcode->num_params;
1189     }
1190 #if 0
1191     TRACE("End of current instruction:\n");
1192     TRACE_VSVECTOR(output->oPos);
1193     TRACE_VSVECTOR(output->oD[0]);
1194     TRACE_VSVECTOR(output->oD[1]);
1195     TRACE_VSVECTOR(output->oT[0]);
1196     TRACE_VSVECTOR(output->oT[1]);
1197     TRACE_VSVECTOR(R[0]);
1198     TRACE_VSVECTOR(R[1]);
1199     TRACE_VSVECTOR(R[2]);
1200     TRACE_VSVECTOR(R[3]);
1201     TRACE_VSVECTOR(R[4]);
1202     TRACE_VSVECTOR(R[5]);
1203 #endif
1204   }
1205 #if 0 /* Must not be 1 in cvs */
1206     TRACE("Output:\n");
1207     TRACE_VSVECTOR(output->oPos);
1208     TRACE_VSVECTOR(output->oD[0]);
1209     TRACE_VSVECTOR(output->oD[1]);
1210     TRACE_VSVECTOR(output->oT[0]);
1211     TRACE_VSVECTOR(output->oT[1]);
1212 #endif
1213   return D3D_OK;
1214 }
1215
1216 HRESULT WINAPI IDirect3DVertexShaderImpl_GetFunction(IDirect3DVertexShaderImpl* This, VOID* pData, UINT* pSizeOfData) {
1217   if (NULL == pData) {
1218     *pSizeOfData = This->functionLength;
1219     return D3D_OK;
1220   }
1221   if (*pSizeOfData < This->functionLength) {
1222     *pSizeOfData = This->functionLength;
1223     return D3DERR_MOREDATA;
1224   }
1225   if (NULL == This->function) { /* no function defined */
1226     TRACE("(%p) : GetFunction no User Function defined using NULL to %p\n", This, pData);
1227     (*(DWORD **) pData) = NULL;
1228   } else {
1229     TRACE("(%p) : GetFunction copying to %p\n", This, pData);
1230     memcpy(pData, This->function, This->functionLength);
1231   }
1232   return D3D_OK;
1233 }
1234
1235 HRESULT WINAPI IDirect3DVertexShaderImpl_SetConstantF(IDirect3DVertexShaderImpl* This, UINT StartRegister, CONST FLOAT* pConstantData, UINT Vector4fCount) {
1236   if (StartRegister + Vector4fCount > D3D8_VSHADER_MAX_CONSTANTS) {
1237     return D3DERR_INVALIDCALL;
1238   }
1239   if (NULL == This->data) { /* temporary while datas not supported */
1240     FIXME("(%p) : VertexShader_SetConstant not fully supported yet\n", This);
1241     return D3DERR_INVALIDCALL;
1242   }
1243   memcpy(&This->data->C[StartRegister], pConstantData, Vector4fCount * 4 * sizeof(FLOAT));
1244   return D3D_OK;
1245 }
1246
1247 HRESULT WINAPI IDirect3DVertexShaderImpl_GetConstantF(IDirect3DVertexShaderImpl* This, UINT StartRegister, FLOAT* pConstantData, UINT Vector4fCount) {
1248   if (StartRegister + Vector4fCount > D3D8_VSHADER_MAX_CONSTANTS) {
1249     return D3DERR_INVALIDCALL;
1250   }
1251   if (NULL == This->data) { /* temporary while datas not supported */
1252     return D3DERR_INVALIDCALL;
1253   }
1254   memcpy(pConstantData, &This->data->C[StartRegister], Vector4fCount * 4 * sizeof(FLOAT));
1255   return D3D_OK;
1256 }
1257
1258
1259 /**********************************************************************************************************************************************
1260  **********************************************************************************************************************************************
1261  **********************************************************************************************************************************************
1262  **********************************************************************************************************************************************
1263  **********************************************************************************************************************************************/
1264
1265 void pshader_texcoord(D3DSHADERVECTOR* d) {
1266 }
1267
1268 void pshader_texkill(D3DSHADERVECTOR* d) {
1269 }
1270
1271 void pshader_tex(D3DSHADERVECTOR* d) {
1272 }
1273
1274 void pshader_texbem(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1275 }
1276
1277 void pshader_texbeml(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1278 }
1279
1280 void pshader_texreg2ar(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1281 }
1282
1283 void pshader_texreg2gb(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1284 }
1285
1286 void pshader_texm3x2pad(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1287 }
1288
1289 void pshader_texm3x2tex(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1290 }
1291
1292 void pshader_texm3x3pad(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1293 }
1294
1295 void pshader_texm3x3tex(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1296 }
1297
1298 void pshader_texm3x3diff(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1299 }
1300
1301 void pshader_texm3x3spec(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
1302 }
1303
1304 void pshader_texm3x3vspec(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1305 }
1306
1307 void pshader_cnd(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1, D3DSHADERVECTOR* s2) {
1308 }
1309
1310 void pshader_def(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1, D3DSHADERVECTOR* s2, D3DSHADERVECTOR* s3) {
1311 }
1312
1313 void pshader_texreg2rgb(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1314 }
1315
1316 void pshader_texdp3tex(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1317 }
1318
1319 void pshader_texm3x2depth(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1320 }
1321
1322 void pshader_texdp3(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1323 }
1324
1325 void pshader_texm3x3(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0) {
1326 }
1327
1328 void pshader_texdepth(D3DSHADERVECTOR* d) {
1329 }
1330
1331 void pshader_cmp(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1, D3DSHADERVECTOR* s2) {
1332 }
1333
1334 void pshader_bem(D3DSHADERVECTOR* d, D3DSHADERVECTOR* s0, D3DSHADERVECTOR* s1) {
1335 }
1336
1337 static CONST SHADER_OPCODE pshader_ins [] = {
1338   {D3DSIO_NOP,  "nop",  0, vshader_nop, 0, 0},
1339   {D3DSIO_MOV,  "mov",  2, vshader_mov, 0, 0},
1340   {D3DSIO_ADD,  "add",  3, vshader_add, 0, 0},
1341   {D3DSIO_SUB,  "sub",  3, vshader_sub, 0, 0},
1342   {D3DSIO_MAD,  "mad",  4, vshader_mad, 0, 0},
1343   {D3DSIO_MUL,  "mul",  3, vshader_mul, 0, 0},
1344   {D3DSIO_RCP,  "rcp",  2, vshader_rcp, 0, 0},
1345   {D3DSIO_RSQ,  "rsq",  2, vshader_rsq, 0, 0},
1346   {D3DSIO_DP3,  "dp3",  3, vshader_dp3, 0, 0},
1347   {D3DSIO_DP4,  "dp4",  3, vshader_dp4, 0, 0},
1348   {D3DSIO_MIN,  "min",  3, vshader_min, 0, 0},
1349   {D3DSIO_MAX,  "max",  3, vshader_max, 0, 0},
1350   {D3DSIO_SLT,  "slt",  3, vshader_slt, 0, 0},
1351   {D3DSIO_SGE,  "sge",  3, vshader_sge, 0, 0},
1352   {D3DSIO_EXP,  "exp",  2, vshader_exp, 0, 0},
1353   {D3DSIO_LOG,  "log",  2, vshader_log, 0, 0},
1354   {D3DSIO_LIT,  "lit",  2, vshader_lit, 0, 0},
1355   {D3DSIO_DST,  "dst",  3, vshader_dst, 0, 0},
1356   {D3DSIO_LRP,  "lrp",  4, vshader_lrp, 0, 0},
1357   {D3DSIO_FRC,  "frc",  2, vshader_frc, 0, 0},
1358   {D3DSIO_M4x4, "m4x4", 3, vshader_m4x4, 0, 0},
1359   {D3DSIO_M4x3, "m4x3", 3, vshader_m4x3, 0, 0},
1360   {D3DSIO_M3x4, "m3x4", 3, vshader_m3x4, 0, 0},
1361   {D3DSIO_M3x3, "m3x3", 3, vshader_m3x3, 0, 0},
1362   {D3DSIO_M3x2, "m3x2", 3, vshader_m3x2, 0, 0},
1363
1364   {D3DSIO_TEXCOORD,     "texcoord",     1, pshader_texcoord,     D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1365   {D3DSIO_TEXCOORD,     "texcrd",       2, pshader_texcoord,     D3DPS_VERSION(1,4), D3DPS_VERSION(1,4)},
1366   {D3DSIO_TEXKILL,      "texkill",      1, pshader_texkill,      D3DPS_VERSION(1,0), D3DPS_VERSION(1,4)},
1367   {D3DSIO_TEX,          "tex",          1, pshader_tex,          D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1368   {D3DSIO_TEX,          "texld",        2, pshader_tex,          D3DPS_VERSION(1,4), D3DPS_VERSION(1,4)},
1369   {D3DSIO_TEXBEM,       "texbem",       2, pshader_texbem,       D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1370   {D3DSIO_TEXBEML,      "texbeml",      2, pshader_texbeml,      D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1371   {D3DSIO_TEXREG2AR,    "texreg2ar",    2, pshader_texreg2ar,    D3DPS_VERSION(1,1), D3DPS_VERSION(1,3)},
1372   {D3DSIO_TEXREG2GB,    "texreg2gb",    2, pshader_texreg2gb,    D3DPS_VERSION(1,2), D3DPS_VERSION(1,3)},
1373   {D3DSIO_TEXM3x2PAD,   "texm3x2pad",   2, pshader_texm3x2pad,   D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1374   {D3DSIO_TEXM3x2TEX,   "texm3x2tex",   2, pshader_texm3x2tex,   D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1375   {D3DSIO_TEXM3x3PAD,   "texm3x3pad",   2, pshader_texm3x3pad,   D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1376   {D3DSIO_TEXM3x3TEX,   "texm3x3tex",   2, pshader_texm3x3tex,   D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1377   {D3DSIO_TEXM3x3DIFF,  "texm3x3diff",  2, pshader_texm3x3diff,  D3DPS_VERSION(0,0), D3DPS_VERSION(0,0)},
1378   {D3DSIO_TEXM3x3SPEC,  "texm3x3spec",  3, pshader_texm3x3spec,  D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1379   {D3DSIO_TEXM3x3VSPEC, "texm3x3vspec", 2, pshader_texm3x3vspec, D3DPS_VERSION(1,0), D3DPS_VERSION(1,3)},
1380
1381   {D3DSIO_EXPP,         "expp",         2, vshader_expp, 0, 0},
1382   {D3DSIO_LOGP,         "logp",         2, vshader_logp, 0, 0},
1383
1384   {D3DSIO_CND,          "cnd",          4, pshader_cnd,          D3DPS_VERSION(1,1), D3DPS_VERSION(1,4)},
1385   {D3DSIO_DEF,          "def",          5, pshader_def,          D3DPS_VERSION(1,0), D3DPS_VERSION(3,0)},
1386   {D3DSIO_TEXREG2RGB,   "texbreg2rgb",  2, pshader_texreg2rgb,   D3DPS_VERSION(1,2), D3DPS_VERSION(1,3)},
1387
1388   {D3DSIO_TEXDP3TEX,    "texdp3tex",    2, pshader_texdp3tex,    D3DPS_VERSION(1,2), D3DPS_VERSION(1,3)},
1389   {D3DSIO_TEXM3x2DEPTH, "texm3x2depth", 2, pshader_texm3x2depth, D3DPS_VERSION(1,3), D3DPS_VERSION(1,3)},
1390   {D3DSIO_TEXDP3,       "texdp3",       2, pshader_texdp3,       D3DPS_VERSION(1,2), D3DPS_VERSION(1,3)},
1391   {D3DSIO_TEXM3x3,      "texm3x3",      2, pshader_texm3x3,      D3DPS_VERSION(1,2), D3DPS_VERSION(1,3)},
1392   {D3DSIO_TEXDEPTH,     "texdepth",     1, pshader_texdepth,     D3DPS_VERSION(1,4), D3DPS_VERSION(1,4)},
1393   {D3DSIO_CMP,          "cmp",          4, pshader_cmp,          D3DPS_VERSION(1,1), D3DPS_VERSION(3,0)},
1394   {D3DSIO_BEM,          "bem",          3, pshader_bem,          D3DPS_VERSION(1,4), D3DPS_VERSION(1,4)},
1395
1396   {D3DSIO_PHASE,  "phase",  0, vshader_nop, 0, 0},
1397
1398   {0, NULL, 0, NULL}
1399 };
1400
1401 inline static const SHADER_OPCODE* pshader_program_get_opcode(const DWORD code, const int version) {
1402   DWORD i = 0;
1403   DWORD hex_version = D3DPS_VERSION(version/10, version%10);
1404   /** TODO: use dichotomic search */
1405   while (NULL != pshader_ins[i].name) {
1406     if ( ( (code & D3DSI_OPCODE_MASK) == pshader_ins[i].opcode) &&
1407          ( ( (hex_version >= pshader_ins[i].min_version) && (hex_version <= pshader_ins[i].max_version)) ||
1408            ( (pshader_ins[i].min_version == 0) && (pshader_ins[i].max_version == 0) ) ) ) {
1409       return &pshader_ins[i];
1410     }
1411     ++i;
1412   }
1413   return NULL;
1414 }
1415
1416 inline static BOOL pshader_is_version_token(DWORD token) {
1417   return 0xFFFF0000 == (token & 0xFFFF0000);
1418 }
1419
1420 inline static BOOL pshader_is_comment_token(DWORD token) {
1421   return D3DSIO_COMMENT == (token & D3DSI_OPCODE_MASK);
1422 }
1423
1424 inline static void pshader_program_dump_opcode(const SHADER_OPCODE* curOpcode, const DWORD code, const DWORD output) {
1425   if (0 != (code & ~D3DSI_OPCODE_MASK)) {
1426     DWORD mask = (code & ~D3DSI_OPCODE_MASK);
1427     switch (mask) {
1428     case 0x40000000:    TRACE("+"); break;
1429     default:
1430       TRACE(" unhandled modifier(0x%08lx) ", mask);
1431     }
1432   }
1433   TRACE("%s", curOpcode->name);
1434   /**
1435    * normally this is a destination reg modifier
1436    * but in pixel shaders asm code its specified as:
1437    *  dp3_x4 t1.rgba, r1, c1
1438    * or
1439    *  dp3_x2_sat r0, t0_bx2, v0_bx2
1440    * so for better debbuging i use the same norm
1441    */
1442   if (0 != (output & D3DSP_DSTSHIFT_MASK)) {
1443     DWORD shift = (output & D3DSP_DSTSHIFT_MASK) >> D3DSP_DSTSHIFT_SHIFT;
1444     if (shift < 8) {
1445       TRACE("_x%u", 1 << shift);
1446     } else {
1447       TRACE("_d%u", 1 << (16-shift));
1448     }
1449   }
1450   if (0 != (output & D3DSP_DSTMOD_MASK)) {
1451     DWORD mask = output & D3DSP_DSTMOD_MASK;
1452     switch (mask) {
1453     case D3DSPDM_SATURATE: TRACE("_sat"); break;
1454     default:
1455       TRACE("_unhandled_modifier(0x%08lx)", mask);
1456     }
1457   }
1458   TRACE(" ");
1459 }
1460
1461 inline static void pshader_program_dump_param(const DWORD param, int input) {
1462   static const char* rastout_reg_names[] = { "oC0", "oC1", "oC2", "oC3", "oDepth" };
1463   static const char swizzle_reg_chars[] = "rgba";
1464
1465   DWORD reg = param & 0x00001FFF;
1466   DWORD regtype = ((param & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT);
1467
1468   if (input) {
1469     if ( ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_NEG) ||
1470          ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_BIASNEG) ||
1471          ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_SIGNNEG) ||
1472          ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_X2NEG) )
1473       TRACE("-");
1474     else if ((param & D3DSP_SRCMOD_MASK) == D3DSPSM_COMP)
1475       TRACE("1-");
1476   }
1477
1478   switch (regtype << D3DSP_REGTYPE_SHIFT) {
1479   case D3DSPR_TEMP:
1480     TRACE("R[%lu]", reg);
1481     break;
1482   case D3DSPR_INPUT:
1483     TRACE("V[%lu]", reg);
1484     break;
1485   case D3DSPR_CONST:
1486     TRACE("C[%s%lu]", (param & D3DVS_ADDRMODE_RELATIVE) ? "a0.x + " : "", reg);
1487     break;
1488   case D3DSPR_TEXTURE: /* case D3DSPR_ADDR: */
1489     TRACE("t[%lu]", reg);
1490     break;
1491   case D3DSPR_RASTOUT:
1492     TRACE("%s", rastout_reg_names[reg]);
1493     break;
1494   case D3DSPR_ATTROUT:
1495     TRACE("oD[%lu]", reg);
1496     break;
1497   case D3DSPR_TEXCRDOUT:
1498     TRACE("oT[%lu]", reg);
1499     break;
1500   default:
1501     break;
1502   }
1503
1504   if (!input) {
1505     /** operand output */
1506     /**
1507      * for better debugging traces it's done into opcode dump code
1508      * @see pshader_program_dump_opcode
1509     if (0 != (param & D3DSP_DSTMOD_MASK)) {
1510       DWORD mask = param & D3DSP_DSTMOD_MASK;
1511       switch (mask) {
1512       case D3DSPDM_SATURATE: TRACE("_sat"); break;
1513       default:
1514       TRACE("_unhandled_modifier(0x%08lx)", mask);
1515       }
1516     }
1517     if (0 != (param & D3DSP_DSTSHIFT_MASK)) {
1518       DWORD shift = (param & D3DSP_DSTSHIFT_MASK) >> D3DSP_DSTSHIFT_SHIFT;
1519       if (shift > 0) {
1520         TRACE("_x%u", 1 << shift);
1521       }
1522     }
1523     */
1524     if ((param & D3DSP_WRITEMASK_ALL) != D3DSP_WRITEMASK_ALL) {
1525       TRACE(".");
1526       if (param & D3DSP_WRITEMASK_0) TRACE("r");
1527       if (param & D3DSP_WRITEMASK_1) TRACE("g");
1528       if (param & D3DSP_WRITEMASK_2) TRACE("b");
1529       if (param & D3DSP_WRITEMASK_3) TRACE("a");
1530     }
1531   } else {
1532     /** operand input */
1533     DWORD swizzle = (param & D3DSP_SWIZZLE_MASK) >> D3DSP_SWIZZLE_SHIFT;
1534     DWORD swizzle_x = swizzle & 0x03;
1535     DWORD swizzle_y = (swizzle >> 2) & 0x03;
1536     DWORD swizzle_z = (swizzle >> 4) & 0x03;
1537     DWORD swizzle_w = (swizzle >> 6) & 0x03;
1538
1539     if (0 != (param & D3DSP_SRCMOD_MASK)) {
1540       DWORD mask = param & D3DSP_SRCMOD_MASK;
1541       /*TRACE("_modifier(0x%08lx) ", mask);*/
1542       switch (mask) {
1543       case D3DSPSM_NONE:    break;
1544       case D3DSPSM_NEG:     break;
1545       case D3DSPSM_BIAS:    TRACE("_bias"); break;
1546       case D3DSPSM_BIASNEG: TRACE("_bias"); break;
1547       case D3DSPSM_SIGN:    TRACE("_bx2"); break;
1548       case D3DSPSM_SIGNNEG: TRACE("_bx2"); break;
1549       case D3DSPSM_COMP:    break;
1550       case D3DSPSM_X2:      TRACE("_x2"); break;
1551       case D3DSPSM_X2NEG:   TRACE("_x2"); break;
1552       case D3DSPSM_DZ:      TRACE("_dz"); break;
1553       case D3DSPSM_DW:      TRACE("_dw"); break;
1554       default:
1555         TRACE("_unknown(0x%08lx)", mask);
1556       }
1557     }
1558
1559     /**
1560      * swizzle bits fields:
1561      *  WWZZYYXX
1562      */
1563     if ((D3DSP_NOSWIZZLE >> D3DSP_SWIZZLE_SHIFT) != swizzle) { /* ! D3DVS_NOSWIZZLE == 0xE4 << D3DVS_SWIZZLE_SHIFT */
1564       if (swizzle_x == swizzle_y &&
1565           swizzle_x == swizzle_z &&
1566           swizzle_x == swizzle_w) {
1567         TRACE(".%c", swizzle_reg_chars[swizzle_x]);
1568       } else {
1569         TRACE(".%c%c%c%c",
1570               swizzle_reg_chars[swizzle_x],
1571               swizzle_reg_chars[swizzle_y],
1572               swizzle_reg_chars[swizzle_z],
1573               swizzle_reg_chars[swizzle_w]);
1574       }
1575     }
1576   }
1577 }
1578
1579 static int constants[D3D8_PSHADER_MAX_CONSTANTS];
1580
1581 inline static void get_register_name(const DWORD param, char* regstr)
1582 {
1583   static const char* rastout_reg_names[] = { "oC0", "oC1", "oC2", "oC3", "oDepth" };
1584
1585   DWORD reg = param & 0x00001FFF;
1586   DWORD regtype = ((param & D3DSP_REGTYPE_MASK) >> D3DSP_REGTYPE_SHIFT);
1587
1588   switch (regtype << D3DSP_REGTYPE_SHIFT) {
1589   case D3DSPR_TEMP:
1590     sprintf(regstr, "R%lu", reg);
1591     break;
1592   case D3DSPR_INPUT:
1593     if (reg==0) {
1594        strcpy(regstr, "fragment.color.primary");
1595     } else {
1596        strcpy(regstr, "fragment.color.secondary");
1597     }
1598     break;
1599   case D3DSPR_CONST:
1600     if (constants[reg])
1601       sprintf(regstr, "C%lu", reg);
1602     else
1603       sprintf(regstr, "program.env[%lu]", reg);
1604     break;
1605   case D3DSPR_TEXTURE: /* case D3DSPR_ADDR: */
1606     sprintf(regstr,"T%lu", reg);
1607     break;
1608   case D3DSPR_RASTOUT:
1609     sprintf(regstr, "%s", rastout_reg_names[reg]);
1610     break;
1611   case D3DSPR_ATTROUT:
1612     sprintf(regstr, "oD[%lu]", reg);
1613     break;
1614   case D3DSPR_TEXCRDOUT:
1615     sprintf(regstr, "oT[%lu]", reg);
1616     break;
1617   default:
1618     break;
1619   }
1620 }
1621
1622 inline static void addline(int* lineNum, char* pgm, char* line)
1623 {
1624   ++(*lineNum);
1625   TRACE_(d3d_hw_shader)("GL HW (%u, %u) : %s\n", *lineNum, strlen(pgm), line);
1626   strcat(pgm, line);
1627   strcat(pgm, "\n");
1628 }
1629
1630 static const char* shift_tab[] = {
1631   "dummy",     /*  0 (none) */
1632   "coefmul.x", /*  1 (x2)   */
1633   "coefmul.y", /*  2 (x4)   */
1634   "coefmul.z", /*  3 (x8)   */
1635   "coefmul.w", /*  4 (x16)  */
1636   "dummy",     /*  5 (x32)  */
1637   "dummy",     /*  6 (x64)  */
1638   "dummy",     /*  7 (x128) */
1639   "dummy",     /*  8 (d256) */
1640   "dummy",     /*  9 (d128) */
1641   "dummy",     /* 10 (d64)  */
1642   "dummy",     /* 11 (d32)  */
1643   "coefdiv.w", /* 12 (d16)  */
1644   "coefdiv.z", /* 13 (d8)   */
1645   "coefdiv.y", /* 14 (d4)   */
1646   "coefdiv.x"  /* 15 (d2)   */
1647 };
1648
1649 inline static void get_write_mask(const DWORD output_reg, char* write_mask)
1650 {
1651   *write_mask = 0;
1652   if ((output_reg & D3DSP_WRITEMASK_ALL) != D3DSP_WRITEMASK_ALL) {
1653     strcat(write_mask, ".");
1654     if (output_reg & D3DSP_WRITEMASK_0) strcat(write_mask, "r");
1655     if (output_reg & D3DSP_WRITEMASK_1) strcat(write_mask, "g");
1656     if (output_reg & D3DSP_WRITEMASK_2) strcat(write_mask, "b");
1657     if (output_reg & D3DSP_WRITEMASK_3) strcat(write_mask, "a");
1658   }
1659 }
1660
1661 inline static void get_input_register_swizzle(const DWORD instr, char* swzstring)
1662 {
1663     static const char swizzle_reg_chars[] = "rgba";
1664     DWORD swizzle = (instr & D3DSP_SWIZZLE_MASK) >> D3DSP_SWIZZLE_SHIFT;
1665     DWORD swizzle_x = swizzle & 0x03;
1666     DWORD swizzle_y = (swizzle >> 2) & 0x03;
1667     DWORD swizzle_z = (swizzle >> 4) & 0x03;
1668     DWORD swizzle_w = (swizzle >> 6) & 0x03;
1669     /**
1670      * swizzle bits fields:
1671      *  WWZZYYXX
1672      */
1673     *swzstring = 0;
1674     if ((D3DSP_NOSWIZZLE >> D3DSP_SWIZZLE_SHIFT) != swizzle) { /* ! D3DVS_NOSWIZZLE == 0xE4 << D3DVS_SWIZZLE_SHIFT */
1675       if (swizzle_x == swizzle_y &&
1676           swizzle_x == swizzle_z &&
1677           swizzle_x == swizzle_w) {
1678         sprintf(swzstring, ".%c", swizzle_reg_chars[swizzle_x]);
1679       } else {
1680         sprintf(swzstring, ".%c%c%c%c",
1681               swizzle_reg_chars[swizzle_x],
1682               swizzle_reg_chars[swizzle_y],
1683               swizzle_reg_chars[swizzle_z],
1684               swizzle_reg_chars[swizzle_w]);
1685       }
1686     }
1687 }
1688
1689 inline static void gen_output_modifier_line(int saturate, char* write_mask, int shift, char *regstr, char* line)
1690 {
1691   /* Generate a line that does the output modifier computation */
1692   sprintf(line, "MUL%s %s%s, %s, %s;", saturate ? "_SAT" : "", regstr, write_mask, regstr, shift_tab[shift]);
1693 }
1694
1695 inline static int gen_input_modifier_line(const DWORD instr, int tmpreg, char* outregstr, char* line)
1696 {
1697   /* Generate a line that does the input modifier computation and return the input register to use */
1698   static char regstr[256];
1699   static char tmpline[256];
1700   int insert_line;
1701
1702   /* Assume a new line will be added */
1703   insert_line = 1;
1704
1705   /* Get register name */
1706   get_register_name(instr, regstr);
1707
1708   switch (instr & D3DSP_SRCMOD_MASK) {
1709     case D3DSPSM_NONE:
1710       strcpy(outregstr, regstr);
1711       insert_line = 0;
1712       break;
1713     case D3DSPSM_NEG:
1714       sprintf(outregstr, "-%s", regstr);
1715       insert_line = 0;
1716       break;
1717     case D3DSPSM_BIAS:
1718       sprintf(line, "ADD T%c, %s, -coefdiv.x;", 'A' + tmpreg, regstr);
1719       break;
1720     case D3DSPSM_BIASNEG:
1721       sprintf(line, "ADD T%c, -%s, coefdiv.x;", 'A' + tmpreg, regstr);
1722       break;
1723     case D3DSPSM_SIGN:
1724       sprintf(line, "MAD T%c, %s, coefmul.x, -one.x;", 'A' + tmpreg, regstr);
1725       break;
1726     case D3DSPSM_SIGNNEG:
1727       sprintf(line, "MAD T%c, %s, -coefmul.x, one.x;", 'A' + tmpreg, regstr);
1728       break;
1729     case D3DSPSM_COMP:
1730       sprintf(line, "SUB T%c, one.x, %s;", 'A' + tmpreg, regstr);
1731       break;
1732     case D3DSPSM_X2:
1733       sprintf(line, "ADD T%c, %s, %s;", 'A' + tmpreg, regstr, regstr);
1734       break;
1735     case D3DSPSM_X2NEG:
1736       sprintf(line, "ADD T%c, -%s, -%s;", 'A' + tmpreg, regstr, regstr);
1737       break;
1738     case D3DSPSM_DZ:
1739       sprintf(line, "RCP T%c, %s.z;", 'A' + tmpreg, regstr);
1740       sprintf(tmpline, "MUL T%c, %s, T%c;", 'A' + tmpreg, regstr, 'A' + tmpreg);
1741       strcat(line, "\n"); /* Hack */
1742       strcat(line, tmpline);
1743       break;
1744     case D3DSPSM_DW:
1745       sprintf(line, "RCP T%c, %s;", 'A' + tmpreg, regstr);
1746       sprintf(tmpline, "MUL T%c, %s, T%c;", 'A' + tmpreg, regstr, 'A' + tmpreg);
1747       strcat(line, "\n"); /* Hack */
1748       strcat(line, tmpline);
1749       break;
1750     default:
1751       strcpy(outregstr, regstr);
1752       insert_line = 0;
1753   }
1754
1755   if (insert_line) {
1756     /* Substitute the register name */
1757     sprintf(outregstr, "T%c", 'A' + tmpreg);
1758   }
1759
1760   return insert_line;
1761 }
1762
1763 /**
1764  * Pixel Shaders
1765  *
1766  * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/reference/Shaders/PixelShader1_X/modifiers/sourceregistermodifiers.asp
1767  * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/reference/Shaders/PixelShader2_0/Registers/Registers.asp
1768  * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/graphics/reference/d3d/interfaces/IDirect3DPixelShader9/_IDirect3DPixelShader9.asp
1769  *
1770  */
1771 inline static VOID IDirect3DPixelShaderImpl_GenerateProgramArbHW(IDirect3DPixelShaderImpl* pshader, CONST DWORD* pFunction) {
1772   const DWORD* pToken = pFunction;
1773   const SHADER_OPCODE* curOpcode = NULL;
1774   const DWORD* pInstr;
1775   DWORD code;
1776   DWORD i;
1777   int autoparam;
1778   unsigned lineNum = 0;
1779   char *pgmStr = NULL;
1780   char  tmpLine[255];
1781   BOOL saturate;
1782   int row = 0;
1783   DWORD tcw[2];
1784   IDirect3DDevice8Impl* This = pshader->device;
1785   int version = 0;
1786
1787   for(i = 0; i < D3D8_PSHADER_MAX_CONSTANTS; i++)
1788     constants[i] = 0;
1789
1790   pgmStr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, 65535); /* 64kb should be enough */
1791
1792   if (NULL != pToken) {
1793     while (D3DPS_END() != *pToken) {
1794       if (pshader_is_version_token(*pToken)) { /** version */
1795         int numTemps;
1796         int numConstants;
1797
1798         /* Extract version *10 into integer value (ie. 1.0 == 10, 1.1==11 etc */
1799         version = (((*pToken >> 8) & 0x0F) * 10) + (*pToken & 0x0F);
1800
1801         TRACE_(d3d_hw_shader)("ps.%lu.%lu;\n", (*pToken >> 8) & 0x0F, (*pToken & 0x0F));
1802
1803         /* Each release of pixel shaders has had different numbers of temp registers */
1804         switch (version) {
1805         case 10:
1806         case 11:
1807         case 12:
1808         case 13:
1809         case 14: numTemps=12;
1810                  numConstants=8;
1811                  strcpy(tmpLine, "!!ARBfp1.0");
1812                  break;
1813         case 20: numTemps=12;
1814                  numConstants=8;
1815                  strcpy(tmpLine, "!!ARBfp2.0");
1816                  FIXME_(d3d_hw_shader)("No work done yet to support ps2.0 in hw\n");
1817                  break;
1818         case 30: numTemps=32;
1819                  numConstants=8;
1820                  strcpy(tmpLine, "!!ARBfp3.0");
1821                  FIXME_(d3d_hw_shader)("No work done yet to support ps3.0 in hw\n");
1822                  break;
1823         default:
1824                  numTemps=12;
1825                  numConstants=8;
1826                  strcpy(tmpLine, "!!ARBfp1.0");
1827                  FIXME_(d3d_hw_shader)("Unrecognized pixel shader version!\n");
1828         }
1829         addline(&lineNum, pgmStr, tmpLine);
1830
1831         for(i = 0; i < 6; i++) {
1832           sprintf(tmpLine, "TEMP T%lu;", i);
1833           addline(&lineNum, pgmStr, tmpLine);
1834         }
1835         for(i = 0; i < 6; i++) {
1836           sprintf(tmpLine, "TEMP R%lu;", i);
1837           addline(&lineNum, pgmStr, tmpLine);
1838         }
1839
1840         sprintf(tmpLine, "TEMP TMP;");
1841         addline(&lineNum, pgmStr, tmpLine);
1842         sprintf(tmpLine, "TEMP TMP2;");
1843         addline(&lineNum, pgmStr, tmpLine);
1844         sprintf(tmpLine, "TEMP TA;");
1845         addline(&lineNum, pgmStr, tmpLine);
1846         sprintf(tmpLine, "TEMP TB;");
1847         addline(&lineNum, pgmStr, tmpLine);
1848         sprintf(tmpLine, "TEMP TC;");
1849         addline(&lineNum, pgmStr, tmpLine);
1850
1851         strcpy(tmpLine, "PARAM coefdiv = { 0.5, 0.25, 0.125, 0.0625 };");
1852         addline(&lineNum, pgmStr, tmpLine);
1853         strcpy(tmpLine, "PARAM coefmul = { 2, 4, 8, 16 };");
1854         addline(&lineNum, pgmStr, tmpLine);
1855         strcpy(tmpLine, "PARAM one = { 1.0, 1.0, 1.0, 1.0 };");
1856         addline(&lineNum, pgmStr, tmpLine);
1857
1858         for(i = 0; i < 4; i++) {
1859           sprintf(tmpLine, "MOV T%lu, fragment.texcoord[%lu];", i, i);
1860           addline(&lineNum, pgmStr, tmpLine);
1861         }
1862
1863         ++pToken;
1864         continue;
1865       }
1866       if (pshader_is_comment_token(*pToken)) { /** comment */
1867         DWORD comment_len = (*pToken & D3DSI_COMMENTSIZE_MASK) >> D3DSI_COMMENTSIZE_SHIFT;
1868         ++pToken;
1869         /*TRACE("comment[%ld] ;%s\n", comment_len, (char*)pToken);*/
1870         pToken += comment_len;
1871         continue;
1872       }
1873       code = *pToken;
1874       pInstr = pToken;
1875       curOpcode = pshader_program_get_opcode(code, version);
1876       ++pToken;
1877       if (NULL == curOpcode) {
1878         /* unkown current opcode ... */
1879         while (*pToken & 0x80000000) {
1880           TRACE("unrecognized opcode: %08lx\n", *pToken);
1881           ++pToken;
1882         }
1883       } else {
1884         autoparam = 1;
1885         saturate = FALSE;
1886         /* Build opcode for GL vertex_program */
1887         switch (curOpcode->opcode) {
1888         case D3DSIO_NOP:
1889         case D3DSIO_PHASE:
1890             continue;
1891         case D3DSIO_DEF:
1892             {
1893               DWORD reg = *pToken & 0x00001FFF;
1894               sprintf(tmpLine, "PARAM C%lu = { %f, %f, %f, %f };", reg,
1895                               *((const float*)(pToken+1)),
1896                               *((const float*)(pToken+2)),
1897                               *((const float*)(pToken+3)),
1898                               *((const float*)(pToken+4)) );
1899               addline(&lineNum, pgmStr, tmpLine);
1900               constants[reg] = 1;
1901               autoparam = 0;
1902               pToken+=5;
1903             }
1904             break;
1905         case D3DSIO_TEXKILL:
1906             strcpy(tmpLine, "KIL");
1907             break;
1908         case D3DSIO_TEX:
1909             {
1910               char tmp[20];
1911               get_write_mask(*pToken, tmp);
1912               if (version != 14) {
1913                 DWORD reg = *pToken & 0x00001FFF;
1914                 sprintf(tmpLine,"TEX T%lu%s, T%lu, texture[%lu], 2D;", reg, tmp, reg, reg);
1915                 addline(&lineNum, pgmStr, tmpLine);
1916                 autoparam = 0;
1917                 pToken++;
1918               } else {
1919                 char line[256];
1920                 char reg[20];
1921                 DWORD reg1 = *pToken & 0x00001FFF;
1922                 DWORD reg2 = *(pToken+1) & 0x00001FFF;
1923                 if (gen_input_modifier_line(*(pToken+1), 0, reg, line))
1924                   addline(&lineNum, pgmStr, line);
1925                 sprintf(tmpLine,"TEX R%lu%s, %s, texture[%lu], 2D;", reg1, tmp, reg, reg2);
1926                 addline(&lineNum, pgmStr, tmpLine);
1927                 autoparam = 0;
1928                 pToken += 2;
1929               }
1930             }
1931             break;
1932         case D3DSIO_TEXCOORD:
1933             {
1934               char tmp[20];
1935               get_write_mask(*pToken, tmp);
1936               if (version != 14) {
1937                 DWORD reg = *pToken & 0x00001FFF;
1938                 sprintf(tmpLine, "MOV T%lu%s, fragment.texcoord[%lu];", reg, tmp, reg);
1939                 addline(&lineNum, pgmStr, tmpLine);
1940                 autoparam = 0;
1941                 pToken++;
1942               } else {
1943                 DWORD reg1 = *pToken & 0x00001FFF;
1944                 DWORD reg2 = *(pToken+1) & 0x00001FFF;
1945                 sprintf(tmpLine, "MOV R%lu%s, fragment.texcoord[%lu];", reg1, tmp, reg2);
1946                 addline(&lineNum, pgmStr, tmpLine);
1947                 autoparam = 0;
1948                 pToken += 2;
1949               }
1950             }
1951             break;
1952         case D3DSIO_TEXM3x2PAD:
1953             {
1954               DWORD reg = *pToken & 0x00001FFF;
1955               char buf[50];
1956               if (gen_input_modifier_line(*(pToken+1), 0, buf, tmpLine))
1957                 addline(&lineNum, pgmStr, tmpLine);
1958               sprintf(tmpLine, "DP3 TMP.x, T%lu, %s;", reg, buf);
1959               addline(&lineNum, pgmStr, tmpLine);
1960               autoparam = 0;
1961               pToken += 2;
1962             }
1963             break;
1964         case D3DSIO_TEXM3x2TEX:
1965             {
1966               DWORD reg = *pToken & 0x00001FFF;
1967               char buf[50];
1968               if (gen_input_modifier_line(*(pToken+1), 0, buf, tmpLine))
1969                 addline(&lineNum, pgmStr, tmpLine);
1970               sprintf(tmpLine, "DP3 TMP.y, T%lu, %s;", reg, buf);
1971               addline(&lineNum, pgmStr, tmpLine);
1972               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], 2D;", reg, reg);
1973               addline(&lineNum, pgmStr, tmpLine);
1974               autoparam = 0;
1975               pToken += 2;
1976             }
1977             break;
1978         case D3DSIO_TEXREG2AR:
1979             {
1980               DWORD reg1 = *pToken & 0x00001FFF;
1981               DWORD reg2 = *(pToken+1) & 0x00001FFF;
1982               sprintf(tmpLine, "MOV TMP.r, T%lu.a;", reg2);
1983               addline(&lineNum, pgmStr, tmpLine);
1984               sprintf(tmpLine, "MOV TMP.g, T%lu.r;", reg2);
1985               addline(&lineNum, pgmStr, tmpLine);
1986               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], 2D;", reg1, reg1);
1987               addline(&lineNum, pgmStr, tmpLine);
1988               autoparam = 0;
1989               pToken+=2;
1990             }
1991             break;
1992         case D3DSIO_TEXREG2GB:
1993             {
1994               DWORD reg1 = *pToken & 0x00001FFF;
1995               DWORD reg2 = *(pToken+1) & 0x00001FFF;
1996               sprintf(tmpLine, "MOV TMP.r, T%lu.g;", reg2);
1997               addline(&lineNum, pgmStr, tmpLine);
1998               sprintf(tmpLine, "MOV TMP.g, T%lu.b;", reg2);
1999               addline(&lineNum, pgmStr, tmpLine);
2000               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], 2D;", reg1, reg1);
2001               addline(&lineNum, pgmStr, tmpLine);
2002               autoparam = 0;
2003               pToken+=2;
2004             }
2005             break;
2006         case D3DSIO_TEXBEM:
2007             {
2008               DWORD reg1 = *pToken & 0x00001FFF;
2009               DWORD reg2 = *(pToken+1) & 0x00001FFF;
2010               /* FIXME: Should apply the BUMPMAPENV matrix */
2011               sprintf(tmpLine, "ADD TMP.rg, fragment.texcoord[%lu], T%lu;", reg1, reg2);
2012               addline(&lineNum, pgmStr, tmpLine);
2013               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], 2D;", reg1, reg1);
2014               addline(&lineNum, pgmStr, tmpLine);
2015               autoparam = 0;
2016               pToken+=2;
2017             }
2018             break;
2019         case D3DSIO_TEXM3x3PAD:
2020             {
2021               DWORD reg = *pToken & 0x00001FFF;
2022               char buf[50];
2023               if (gen_input_modifier_line(*(pToken+1), 0, buf, tmpLine))
2024                 addline(&lineNum, pgmStr, tmpLine);
2025               sprintf(tmpLine, "DP3 TMP.%c, T%lu, %s;", 'x'+row, reg, buf);
2026               addline(&lineNum, pgmStr, tmpLine);
2027               tcw[row++] = reg;
2028               autoparam = 0;
2029               pToken += 2;
2030             }
2031             break;
2032         case D3DSIO_TEXM3x3TEX:
2033             {
2034               DWORD reg = *pToken & 0x00001FFF;
2035               char buf[50];
2036               if (gen_input_modifier_line(*(pToken+1), 0, buf, tmpLine))
2037                 addline(&lineNum, pgmStr, tmpLine);
2038               sprintf(tmpLine, "DP3 TMP.z, T%lu, %s;", reg, buf);
2039               addline(&lineNum, pgmStr, tmpLine);
2040               /* Cubemap textures will be more used than 3D ones. */
2041               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], CUBE;", reg, reg);
2042               addline(&lineNum, pgmStr, tmpLine);
2043               row = 0;
2044               autoparam = 0;
2045               pToken += 2;
2046             }
2047         case D3DSIO_TEXM3x3VSPEC:
2048             {
2049               DWORD reg = *pToken & 0x00001FFF;
2050               char buf[50];
2051               if (gen_input_modifier_line(*(pToken+1), 0, buf, tmpLine))
2052                 addline(&lineNum, pgmStr, tmpLine);
2053               sprintf(tmpLine, "DP3 TMP.z, T%lu, %s;", reg, buf);
2054               addline(&lineNum, pgmStr, tmpLine);
2055               /* Construct the eye-ray vector from w coordinates */
2056               sprintf(tmpLine, "MOV TMP2.x, fragment.texcoord[%lu].w;", tcw[0]);
2057               addline(&lineNum, pgmStr, tmpLine);
2058               sprintf(tmpLine, "MOV TMP2.y, fragment.texcoord[%lu].w;", tcw[1]);
2059               addline(&lineNum, pgmStr, tmpLine);
2060               sprintf(tmpLine, "MOV TMP2.z, fragment.texcoord[%lu].w;", reg);
2061               addline(&lineNum, pgmStr, tmpLine);
2062               /* Calculate reflection vector (Assume normal is normalized): RF = 2*(N.E)*N -E */
2063               sprintf(tmpLine, "DP3 TMP.w, TMP, TMP2;");
2064               addline(&lineNum, pgmStr, tmpLine);
2065               sprintf(tmpLine, "MUL TMP, TMP.w, TMP;");
2066               addline(&lineNum, pgmStr, tmpLine);
2067               sprintf(tmpLine, "MAD TMP, coefmul.x, TMP, -TMP2;");
2068               addline(&lineNum, pgmStr, tmpLine);
2069               /* Cubemap textures will be more used than 3D ones. */
2070               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], CUBE;", reg, reg);
2071               addline(&lineNum, pgmStr, tmpLine);
2072               row = 0;
2073               autoparam = 0;
2074               pToken += 2;
2075             }
2076             break;
2077         case D3DSIO_TEXM3x3SPEC:
2078             {
2079               DWORD reg = *pToken & 0x00001FFF;
2080               DWORD reg3 = *(pToken+2) & 0x00001FFF;
2081               char buf[50];
2082               if (gen_input_modifier_line(*(pToken+1), 0, buf, tmpLine))
2083                 addline(&lineNum, pgmStr, tmpLine);
2084               sprintf(tmpLine, "DP3 TMP.z, T%lu, %s;", reg, buf);
2085               addline(&lineNum, pgmStr, tmpLine);
2086               /* Calculate reflection vector (Assume normal is normalized): RF = 2*(N.E)*N -E */
2087               sprintf(tmpLine, "DP3 TMP.w, TMP, C[%lu];", reg3);
2088               addline(&lineNum, pgmStr, tmpLine);
2089               sprintf(tmpLine, "MUL TMP, TMP.w, TMP;");
2090               addline(&lineNum, pgmStr, tmpLine);
2091               sprintf(tmpLine, "MAD TMP, coefmul.x, TMP, -C[%lu];", reg3);
2092               addline(&lineNum, pgmStr, tmpLine);
2093               /* Cubemap textures will be more used than 3D ones. */
2094               sprintf(tmpLine, "TEX T%lu, TMP, texture[%lu], CUBE;", reg, reg);
2095               addline(&lineNum, pgmStr, tmpLine);
2096               row = 0;
2097               autoparam = 0;
2098               pToken += 3;
2099             }
2100             break;
2101         case D3DSIO_CND:
2102             break;
2103         case D3DSIO_CMP:
2104             break;
2105         case D3DSIO_MOV:
2106             strcpy(tmpLine, "MOV");
2107             break;
2108         case D3DSIO_MUL:
2109             strcpy(tmpLine, "MUL");
2110             break;
2111         case D3DSIO_DP3:
2112             strcpy(tmpLine, "DP3");
2113             break;
2114         case D3DSIO_MAD:
2115             strcpy(tmpLine, "MAD");
2116             break;
2117         case D3DSIO_ADD:
2118             strcpy(tmpLine, "ADD");
2119             break;
2120         case D3DSIO_SUB:
2121             strcpy(tmpLine, "SUB");
2122             break;
2123         case D3DSIO_LRP:
2124             strcpy(tmpLine, "LRP");
2125             break;
2126         default:
2127             FIXME_(d3d_hw_shader)("Can't handle opcode %s in hwShader\n", curOpcode->name);
2128         }
2129         if (0 != (*pToken & D3DSP_DSTMOD_MASK)) {
2130           DWORD mask = *pToken & D3DSP_DSTMOD_MASK;
2131           switch (mask) {
2132           case D3DSPDM_SATURATE: saturate = TRUE; break;
2133           default:
2134             TRACE("_unhandled_modifier(0x%08lx)", mask);
2135           }
2136         }
2137         if (autoparam && (curOpcode->num_params > 0)) {
2138           char regs[3][50];
2139           char operands[4][100];
2140           char tmp[256];
2141           char swzstring[20];
2142           int saturate = 0;
2143           /* Generate lines that handle input modifier computation */
2144           for (i = 1; i < curOpcode->num_params; i++) {
2145             if (gen_input_modifier_line(*(pToken+i), i-1, regs[i-1], tmp))
2146               addline(&lineNum, pgmStr, tmp);
2147           }
2148           /* Handle saturation only when no shift is present in the output modifier */
2149           if ((*pToken & D3DSPDM_SATURATE) && (0 == (*pToken & D3DSP_DSTSHIFT_MASK)))
2150             saturate = 1;
2151           /* Handle output register */
2152           get_register_name(*pToken, tmp);
2153           strcpy(operands[0], tmp);
2154           get_write_mask(*pToken, tmp);
2155           strcat(operands[0], tmp);
2156           /* Handle input registers */
2157           for (i = 1; i < curOpcode->num_params; i++) {
2158             strcpy(operands[i], regs[i-1]);
2159             get_input_register_swizzle(*(pToken+i), swzstring);
2160             strcat(operands[i], swzstring);
2161           }
2162           if (curOpcode->opcode == D3DSIO_CMP) {
2163             sprintf(tmpLine, "CMP%s %s, %s, %s, %s;", (saturate ? "_SAT" : ""), operands[0], operands[1], operands[3], operands[2]);
2164           } else if (curOpcode->opcode == D3DSIO_CND) {
2165             sprintf(tmpLine, "ADD TMP, -%s, coefdiv.x;", operands[1]);
2166             addline(&lineNum, pgmStr, tmpLine);
2167             sprintf(tmpLine, "CMP%s %s, TMP, %s, %s;", (saturate ? "_SAT" : ""), operands[0], operands[2], operands[3]);
2168           } else {
2169             if (saturate)
2170               strcat(tmpLine, "_SAT");
2171             strcat(tmpLine, " ");
2172             strcat(tmpLine, operands[0]);
2173             for (i = 1; i < curOpcode->num_params; i++) {
2174               strcat(tmpLine, ", ");
2175               strcat(tmpLine, operands[i]);
2176             }
2177             strcat(tmpLine,";");
2178           }
2179           addline(&lineNum, pgmStr, tmpLine);
2180           pToken += curOpcode->num_params;
2181         }
2182         if (curOpcode->num_params > 0) {
2183           DWORD param = *(pInstr+1);
2184           if (0 != (param & D3DSP_DSTSHIFT_MASK)) {
2185             /* Generate a line that handle the output modifier computation */
2186             char regstr[100];
2187             char write_mask[20];
2188             DWORD shift = (param & D3DSP_DSTSHIFT_MASK) >> D3DSP_DSTSHIFT_SHIFT;
2189             get_register_name(param, regstr);
2190             get_write_mask(param, write_mask);
2191             gen_output_modifier_line(saturate, write_mask, shift, regstr, tmpLine);
2192             addline(&lineNum, pgmStr, tmpLine);
2193           }
2194         }
2195       }
2196     }
2197     strcpy(tmpLine, "MOV result.color, R0;");
2198     addline(&lineNum, pgmStr, tmpLine);
2199
2200     strcpy(tmpLine, "END");
2201     addline(&lineNum, pgmStr, tmpLine);
2202   }
2203
2204   /*  Create the hw shader */
2205   GL_EXTCALL(glGenProgramsARB(1, &pshader->prgId));
2206   TRACE_(d3d_hw_shader)("Creating a hw pixel shader, prg=%d\n", pshader->prgId);
2207
2208   GL_EXTCALL(glBindProgramARB(GL_FRAGMENT_PROGRAM_ARB, pshader->prgId));
2209
2210   /* Create the program and check for errors */
2211   GL_EXTCALL(glProgramStringARB(GL_FRAGMENT_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB, strlen(pgmStr), pgmStr));
2212   if (glGetError() == GL_INVALID_OPERATION) {
2213     GLint errPos;
2214     glGetIntegerv(GL_PROGRAM_ERROR_POSITION_ARB, &errPos);
2215     FIXME_(d3d_hw_shader)("HW PixelShader Error at position: %d\n%s\n", errPos, glGetString(GL_PROGRAM_ERROR_STRING_ARB));
2216     pshader->prgId = -1;
2217   }
2218
2219   HeapFree(GetProcessHeap(), 0, pgmStr);
2220 }
2221
2222 inline static VOID IDirect3DPixelShaderImpl_ParseProgram(IDirect3DPixelShaderImpl* pshader, CONST DWORD* pFunction) {
2223   const DWORD* pToken = pFunction;
2224   const SHADER_OPCODE* curOpcode = NULL;
2225   DWORD code;
2226   DWORD len = 0;
2227   DWORD i;
2228   int version = 0;
2229
2230   if (NULL != pToken) {
2231     while (D3DPS_END() != *pToken) {
2232       if (pshader_is_version_token(*pToken)) { /** version */
2233         TRACE("ps.%lu.%lu\n", (*pToken >> 8) & 0x0F, (*pToken & 0x0F));
2234         version = (((*pToken >> 8) & 0x0F) * 10) + (*pToken & 0x0F);
2235         ++pToken;
2236         ++len;
2237         continue;
2238       }
2239       if (pshader_is_comment_token(*pToken)) { /** comment */
2240         DWORD comment_len = (*pToken & D3DSI_COMMENTSIZE_MASK) >> D3DSI_COMMENTSIZE_SHIFT;
2241         ++pToken;
2242         /*TRACE("comment[%ld] ;%s\n", comment_len, (char*)pToken);*/
2243         pToken += comment_len;
2244         len += comment_len + 1;
2245         continue;
2246       }
2247       code = *pToken;
2248       curOpcode = pshader_program_get_opcode(code, version);
2249       ++pToken;
2250       ++len;
2251       if (NULL == curOpcode) {
2252         /* unkown current opcode ... */
2253         while (*pToken & 0x80000000) {
2254           TRACE("unrecognized opcode: %08lx\n", *pToken);
2255           ++pToken;
2256           ++len;
2257         }
2258       } else {
2259         TRACE(" ");
2260         pshader_program_dump_opcode(curOpcode, code, *pToken);
2261         if (curOpcode->num_params > 0) {
2262           pshader_program_dump_param(*pToken, 0);
2263           ++pToken;
2264           ++len;
2265           for (i = 1; i < curOpcode->num_params; ++i) {
2266             TRACE(", ");
2267             if (D3DSIO_DEF != code) {
2268               pshader_program_dump_param(*pToken, 1);
2269             } else {
2270               TRACE("%f", *((const float*) pToken));
2271             }
2272             ++pToken;
2273             ++len;
2274           }
2275         }
2276         TRACE("\n");
2277       }
2278       pshader->functionLength = (len + 1) * sizeof(DWORD);
2279     }
2280   } else {
2281     pshader->functionLength = 1; /* no Function defined use fixed function vertex processing */
2282   }
2283
2284   if (NULL != pFunction) {
2285     IDirect3DPixelShaderImpl_GenerateProgramArbHW(pshader, pFunction);
2286   }
2287
2288   if (NULL != pFunction) {
2289     pshader->function = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, pshader->functionLength);
2290     memcpy(pshader->function, pFunction, pshader->functionLength);
2291   } else {
2292     pshader->function = NULL;
2293   }
2294 }
2295
2296 HRESULT WINAPI IDirect3DDeviceImpl_CreatePixelShader(IDirect3DDevice8Impl* This, CONST DWORD* pFunction, IDirect3DPixelShaderImpl** ppPixelShader) {
2297   IDirect3DPixelShaderImpl* object;
2298
2299   object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDirect3DPixelShaderImpl));
2300   if (NULL == object) {
2301     *ppPixelShader = NULL;
2302     return D3DERR_OUTOFVIDEOMEMORY;
2303   }
2304   /*object->lpVtbl = &Direct3DPixelShader9_Vtbl;*/
2305   object->device = This;
2306   object->ref = 1;
2307
2308   object->data = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(PSHADERDATA8));
2309
2310   IDirect3DPixelShaderImpl_ParseProgram(object, pFunction);
2311
2312   *ppPixelShader = object;
2313   return D3D_OK;
2314 }
2315
2316 HRESULT WINAPI IDirect3DPixelShaderImpl_GetFunction(IDirect3DPixelShaderImpl* This, VOID* pData, UINT* pSizeOfData) {
2317   if (NULL == pData) {
2318     *pSizeOfData = This->functionLength;
2319     return D3D_OK;
2320   }
2321   if (*pSizeOfData < This->functionLength) {
2322     *pSizeOfData = This->functionLength;
2323     return D3DERR_MOREDATA;
2324   }
2325   if (NULL == This->function) { /* no function defined */
2326     TRACE("(%p) : GetFunction no User Function defined using NULL to %p\n", This, pData);
2327     (*(DWORD **) pData) = NULL;
2328   } else {
2329     TRACE("(%p) : GetFunction copying to %p\n", This, pData);
2330     memcpy(pData, This->function, This->functionLength);
2331   }
2332   return D3D_OK;
2333 }
2334
2335 HRESULT WINAPI IDirect3DPixelShaderImpl_SetConstantF(IDirect3DPixelShaderImpl* This, UINT StartRegister, CONST FLOAT* pConstantData, UINT Vector4fCount) {
2336   if (StartRegister + Vector4fCount > D3D8_VSHADER_MAX_CONSTANTS) {
2337     return D3DERR_INVALIDCALL;
2338   }
2339   if (NULL == This->data) { /* temporary while datas not supported */
2340     FIXME("(%p) : PixelShader_SetConstant not fully supported yet\n", This);
2341     return D3DERR_INVALIDCALL;
2342   }
2343   memcpy(&This->data->C[StartRegister], pConstantData, Vector4fCount * 4 * sizeof(FLOAT));
2344   return D3D_OK;
2345 }
2346
2347 HRESULT WINAPI IDirect3DPixelShaderImpl_GetConstantF(IDirect3DPixelShaderImpl* This, UINT StartRegister, FLOAT* pConstantData, UINT Vector4fCount) {
2348   if (StartRegister + Vector4fCount > D3D8_VSHADER_MAX_CONSTANTS) {
2349     return D3DERR_INVALIDCALL;
2350   }
2351   if (NULL == This->data) { /* temporary while datas not supported */
2352     return D3DERR_INVALIDCALL;
2353   }
2354   memcpy(pConstantData, &This->data->C[StartRegister], Vector4fCount * 4 * sizeof(FLOAT));
2355   return D3D_OK;
2356 }
2357
2358
2359 /**********************************************************************************************************************************************
2360  **********************************************************************************************************************************************
2361  **********************************************************************************************************************************************
2362  **********************************************************************************************************************************************
2363  **********************************************************************************************************************************************/
2364
2365 /***********************************************************************
2366  *              ValidateVertexShader (D3D8.@)
2367  */
2368 BOOL WINAPI ValidateVertexShader(LPVOID what) {
2369   FIXME("(void): stub: %p\n", what);
2370   return 0;
2371 }
2372
2373 /***********************************************************************
2374  *              ValidatePixelShader (D3D8.@)
2375  */
2376 BOOL WINAPI ValidatePixelShader(LPVOID what, LPVOID toto) {
2377   FIXME("(void): stub: %p %p\n", what, toto);
2378   return TRUE;
2379 }