d3dx9: Add DEF instruction support in the shader assembler.
[wine] / dlls / d3dx9_36 / asmutils.c
1 /*
2  * Direct3D shader library utility routines
3  *
4  * Copyright 2008 Stefan Dösinger
5  * Copyright 2009 Matteo Bruni
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  *
21  */
22
23 #include "config.h"
24 #include "wine/debug.h"
25
26 #include "d3dx9_36_private.h"
27
28 WINE_DEFAULT_DEBUG_CHANNEL(asmshader);
29
30 /* bwriter -> d3d9 conversion functions */
31 DWORD d3d9_swizzle(DWORD bwriter_swizzle) {
32     /* Currently a NOP, but this allows changing the internal definitions
33      * without side effects
34      */
35     DWORD ret = 0;
36
37     if((bwriter_swizzle & BWRITERVS_X_X) == BWRITERVS_X_X) ret |= D3DVS_X_X;
38     if((bwriter_swizzle & BWRITERVS_X_Y) == BWRITERVS_X_Y) ret |= D3DVS_X_Y;
39     if((bwriter_swizzle & BWRITERVS_X_Z) == BWRITERVS_X_Z) ret |= D3DVS_X_Z;
40     if((bwriter_swizzle & BWRITERVS_X_W) == BWRITERVS_X_W) ret |= D3DVS_X_W;
41
42     if((bwriter_swizzle & BWRITERVS_Y_X) == BWRITERVS_Y_X) ret |= D3DVS_Y_X;
43     if((bwriter_swizzle & BWRITERVS_Y_Y) == BWRITERVS_Y_Y) ret |= D3DVS_Y_Y;
44     if((bwriter_swizzle & BWRITERVS_Y_Z) == BWRITERVS_Y_Z) ret |= D3DVS_Y_Z;
45     if((bwriter_swizzle & BWRITERVS_Y_W) == BWRITERVS_Y_W) ret |= D3DVS_Y_W;
46
47     if((bwriter_swizzle & BWRITERVS_Z_X) == BWRITERVS_Z_X) ret |= D3DVS_Z_X;
48     if((bwriter_swizzle & BWRITERVS_Z_Y) == BWRITERVS_Z_Y) ret |= D3DVS_Z_Y;
49     if((bwriter_swizzle & BWRITERVS_Z_Z) == BWRITERVS_Z_Z) ret |= D3DVS_Z_Z;
50     if((bwriter_swizzle & BWRITERVS_Z_W) == BWRITERVS_Z_W) ret |= D3DVS_Z_W;
51
52     if((bwriter_swizzle & BWRITERVS_W_X) == BWRITERVS_W_X) ret |= D3DVS_W_X;
53     if((bwriter_swizzle & BWRITERVS_W_Y) == BWRITERVS_W_Y) ret |= D3DVS_W_Y;
54     if((bwriter_swizzle & BWRITERVS_W_Z) == BWRITERVS_W_Z) ret |= D3DVS_W_Z;
55     if((bwriter_swizzle & BWRITERVS_W_W) == BWRITERVS_W_W) ret |= D3DVS_W_W;
56
57     return ret;
58 }
59
60 DWORD d3d9_writemask(DWORD bwriter_writemask) {
61     DWORD ret = 0;
62
63     if(bwriter_writemask & BWRITERSP_WRITEMASK_0) ret |= D3DSP_WRITEMASK_0;
64     if(bwriter_writemask & BWRITERSP_WRITEMASK_1) ret |= D3DSP_WRITEMASK_1;
65     if(bwriter_writemask & BWRITERSP_WRITEMASK_2) ret |= D3DSP_WRITEMASK_2;
66     if(bwriter_writemask & BWRITERSP_WRITEMASK_3) ret |= D3DSP_WRITEMASK_3;
67
68     return ret;
69 }
70
71 DWORD d3d9_srcmod(DWORD bwriter_srcmod) {
72     switch(bwriter_srcmod) {
73         case BWRITERSPSM_NONE:       return D3DSPSM_NONE;
74         case BWRITERSPSM_NEG:        return D3DSPSM_NEG;
75         case BWRITERSPSM_ABS:        return D3DSPSM_ABS;
76         case BWRITERSPSM_ABSNEG:     return D3DSPSM_ABSNEG;
77         case BWRITERSPSM_NOT:        return D3DSPSM_NOT;
78         default:
79             FIXME("Unhandled BWRITERSPSM token %u\n", bwriter_srcmod);
80             return 0;
81     }
82 }
83
84 DWORD d3d9_dstmod(DWORD bwriter_mod) {
85     DWORD ret = 0;
86
87     if(bwriter_mod & BWRITERSPDM_SATURATE)          ret |= D3DSPDM_SATURATE;
88     if(bwriter_mod & BWRITERSPDM_PARTIALPRECISION)  ret |= D3DSPDM_PARTIALPRECISION;
89     if(bwriter_mod & BWRITERSPDM_MSAMPCENTROID)     ret |= D3DSPDM_MSAMPCENTROID;
90
91     return ret;
92 }
93
94 DWORD d3d9_comparetype(DWORD asmshader_comparetype) {
95     switch(asmshader_comparetype) {
96         case BWRITER_COMPARISON_GT:     return D3DSPC_GT;
97         case BWRITER_COMPARISON_EQ:     return D3DSPC_EQ;
98         case BWRITER_COMPARISON_GE:     return D3DSPC_GE;
99         case BWRITER_COMPARISON_LT:     return D3DSPC_LT;
100         case BWRITER_COMPARISON_NE:     return D3DSPC_NE;
101         case BWRITER_COMPARISON_LE:     return D3DSPC_LE;
102         default:
103             FIXME("Unexpected BWRITER_COMPARISON type %u\n", asmshader_comparetype);
104             return 0;
105     }
106 }
107
108 DWORD d3d9_sampler(DWORD bwriter_sampler) {
109     if(bwriter_sampler == BWRITERSTT_UNKNOWN)   return D3DSTT_UNKNOWN;
110     if(bwriter_sampler == BWRITERSTT_1D)        return D3DSTT_1D;
111     if(bwriter_sampler == BWRITERSTT_2D)        return D3DSTT_2D;
112     if(bwriter_sampler == BWRITERSTT_CUBE)      return D3DSTT_CUBE;
113     if(bwriter_sampler == BWRITERSTT_VOLUME)    return D3DSTT_VOLUME;
114     FIXME("Unexpected BWRITERSAMPLER_TEXTURE_TYPE type %u\n", bwriter_sampler);
115
116     return 0;
117 }
118
119 DWORD d3d9_register(DWORD bwriter_register) {
120     if(bwriter_register == BWRITERSPR_TEMP)         return D3DSPR_TEMP;
121     if(bwriter_register == BWRITERSPR_INPUT)        return D3DSPR_INPUT;
122     if(bwriter_register == BWRITERSPR_CONST)        return D3DSPR_CONST;
123     if(bwriter_register == BWRITERSPR_ADDR)         return D3DSPR_ADDR;
124     if(bwriter_register == BWRITERSPR_TEXTURE)      return D3DSPR_TEXTURE;
125     if(bwriter_register == BWRITERSPR_RASTOUT)      return D3DSPR_RASTOUT;
126     if(bwriter_register == BWRITERSPR_ATTROUT)      return D3DSPR_ATTROUT;
127     if(bwriter_register == BWRITERSPR_TEXCRDOUT)    return D3DSPR_TEXCRDOUT;
128     if(bwriter_register == BWRITERSPR_OUTPUT)       return D3DSPR_OUTPUT;
129     if(bwriter_register == BWRITERSPR_CONSTINT)     return D3DSPR_CONSTINT;
130     if(bwriter_register == BWRITERSPR_COLOROUT)     return D3DSPR_COLOROUT;
131     if(bwriter_register == BWRITERSPR_DEPTHOUT)     return D3DSPR_DEPTHOUT;
132     if(bwriter_register == BWRITERSPR_SAMPLER)      return D3DSPR_SAMPLER;
133     if(bwriter_register == BWRITERSPR_CONSTBOOL)    return D3DSPR_CONSTBOOL;
134     if(bwriter_register == BWRITERSPR_LOOP)         return D3DSPR_LOOP;
135     if(bwriter_register == BWRITERSPR_MISCTYPE)     return D3DSPR_MISCTYPE;
136     if(bwriter_register == BWRITERSPR_LABEL)        return D3DSPR_LABEL;
137     if(bwriter_register == BWRITERSPR_PREDICATE)    return D3DSPR_PREDICATE;
138
139     FIXME("Unexpected BWRITERSPR %u\n", bwriter_register);
140     return -1;
141 }
142
143 DWORD d3d9_opcode(DWORD bwriter_opcode) {
144     switch(bwriter_opcode) {
145         case BWRITERSIO_NOP:         return D3DSIO_NOP;
146         case BWRITERSIO_MOV:         return D3DSIO_MOV;
147         case BWRITERSIO_ADD:         return D3DSIO_ADD;
148         case BWRITERSIO_SUB:         return D3DSIO_SUB;
149         case BWRITERSIO_MAD:         return D3DSIO_MAD;
150         case BWRITERSIO_MUL:         return D3DSIO_MUL;
151         case BWRITERSIO_RCP:         return D3DSIO_RCP;
152         case BWRITERSIO_RSQ:         return D3DSIO_RSQ;
153         case BWRITERSIO_DP3:         return D3DSIO_DP3;
154         case BWRITERSIO_DP4:         return D3DSIO_DP4;
155         case BWRITERSIO_MIN:         return D3DSIO_MIN;
156         case BWRITERSIO_MAX:         return D3DSIO_MAX;
157         case BWRITERSIO_SLT:         return D3DSIO_SLT;
158         case BWRITERSIO_SGE:         return D3DSIO_SGE;
159         case BWRITERSIO_EXP:         return D3DSIO_EXP;
160         case BWRITERSIO_LOG:         return D3DSIO_LOG;
161         case BWRITERSIO_LIT:         return D3DSIO_LIT;
162         case BWRITERSIO_DST:         return D3DSIO_DST;
163         case BWRITERSIO_LRP:         return D3DSIO_LRP;
164         case BWRITERSIO_FRC:         return D3DSIO_FRC;
165         case BWRITERSIO_M4x4:        return D3DSIO_M4x4;
166         case BWRITERSIO_M4x3:        return D3DSIO_M4x3;
167         case BWRITERSIO_M3x4:        return D3DSIO_M3x4;
168         case BWRITERSIO_M3x3:        return D3DSIO_M3x3;
169         case BWRITERSIO_M3x2:        return D3DSIO_M3x2;
170         case BWRITERSIO_CALL:        return D3DSIO_CALL;
171         case BWRITERSIO_CALLNZ:      return D3DSIO_CALLNZ;
172         case BWRITERSIO_LOOP:        return D3DSIO_LOOP;
173         case BWRITERSIO_RET:         return D3DSIO_RET;
174         case BWRITERSIO_ENDLOOP:     return D3DSIO_ENDLOOP;
175         case BWRITERSIO_LABEL:       return D3DSIO_LABEL;
176         case BWRITERSIO_DCL:         return D3DSIO_DCL;
177         case BWRITERSIO_POW:         return D3DSIO_POW;
178         case BWRITERSIO_CRS:         return D3DSIO_CRS;
179         case BWRITERSIO_SGN:         return D3DSIO_SGN;
180         case BWRITERSIO_ABS:         return D3DSIO_ABS;
181         case BWRITERSIO_NRM:         return D3DSIO_NRM;
182         case BWRITERSIO_SINCOS:      return D3DSIO_SINCOS;
183         case BWRITERSIO_REP:         return D3DSIO_REP;
184         case BWRITERSIO_ENDREP:      return D3DSIO_ENDREP;
185         case BWRITERSIO_IF:          return D3DSIO_IF;
186         case BWRITERSIO_IFC:         return D3DSIO_IFC;
187         case BWRITERSIO_ELSE:        return D3DSIO_ELSE;
188         case BWRITERSIO_ENDIF:       return D3DSIO_ENDIF;
189         case BWRITERSIO_BREAK:       return D3DSIO_BREAK;
190         case BWRITERSIO_BREAKC:      return D3DSIO_BREAKC;
191         case BWRITERSIO_MOVA:        return D3DSIO_MOVA;
192         case BWRITERSIO_EXPP:        return D3DSIO_EXPP;
193         case BWRITERSIO_LOGP:        return D3DSIO_LOGP;
194         case BWRITERSIO_DEF:         return D3DSIO_DEF;
195         case BWRITERSIO_SETP:        return D3DSIO_SETP;
196         case BWRITERSIO_TEXLDL:      return D3DSIO_TEXLDL;
197         case BWRITERSIO_BREAKP:      return D3DSIO_BREAKP;
198
199         case BWRITERSIO_COMMENT:     return D3DSIO_COMMENT;
200         case BWRITERSIO_END:         return D3DSIO_END;
201
202         default:
203             FIXME("Unhandled BWRITERSIO token %u\n", bwriter_opcode);
204             return -1;
205     }
206 }
207
208 /* Debug print functions */
209 const char *debug_print_srcmod(DWORD mod) {
210     switch(mod) {
211         case BWRITERSPSM_NEG:       return "D3DSPSM_NEG";
212         case BWRITERSPSM_ABS:       return "D3DSPSM_ABS";
213         case BWRITERSPSM_ABSNEG:    return "D3DSPSM_ABSNEG";
214         case BWRITERSPSM_NOT:       return "D3DSPSM_NOT";
215         default:                    return "Unknown source modifier\n";
216     }
217 }
218
219 const char *debug_print_dstmod(DWORD mod) {
220     switch(mod) {
221         case 0:
222             return "";
223
224         case BWRITERSPDM_SATURATE:
225             return "_sat";
226         case BWRITERSPDM_PARTIALPRECISION:
227             return "_pp";
228         case BWRITERSPDM_MSAMPCENTROID:
229             return "_centroid";
230
231         case BWRITERSPDM_SATURATE | BWRITERSPDM_PARTIALPRECISION:
232             return "_sat_pp";
233         case BWRITERSPDM_SATURATE | BWRITERSPDM_MSAMPCENTROID:
234             return "_sat_centroid";
235         case BWRITERSPDM_PARTIALPRECISION | BWRITERSPDM_MSAMPCENTROID:
236             return "_pp_centroid";
237
238         case BWRITERSPDM_SATURATE | BWRITERSPDM_PARTIALPRECISION | BWRITERSPDM_MSAMPCENTROID:
239             return "_sat_pp_centroid";
240
241         default:
242             return "Unexpected modifier\n";
243     }
244 }
245
246 static const char *get_regname(const struct shader_reg *reg, shader_type st) {
247     switch(reg->type) {
248         case BWRITERSPR_TEMP:
249             return wine_dbg_sprintf("r%u", reg->regnum);
250         case BWRITERSPR_INPUT:
251             return wine_dbg_sprintf("v%u", reg->regnum);
252         case BWRITERSPR_CONST:
253             return wine_dbg_sprintf("c%u", reg->regnum);
254         /* case BWRITERSPR_ADDR: */
255         case BWRITERSPR_TEXTURE:
256             if(st == ST_VERTEX) {
257                 return wine_dbg_sprintf("a%u", reg->regnum);
258             } else {
259                 return wine_dbg_sprintf("t%u", reg->regnum);
260             }
261         case BWRITERSPR_RASTOUT:
262             switch(reg->regnum) {
263                 case BWRITERSRO_POSITION:   return "oPos";
264                 case BWRITERSRO_FOG:        return "oFog";
265                 case BWRITERSRO_POINT_SIZE: return "oPts";
266                 default: return "Unexpected RASTOUT";
267             }
268         case BWRITERSPR_ATTROUT:
269             return wine_dbg_sprintf("oD%u", reg->regnum);
270         /* case BWRITERSPR_TEXCRDOUT: */
271         case BWRITERSPR_OUTPUT:
272             return wine_dbg_sprintf("o[T]%u", reg->regnum);
273         case BWRITERSPR_CONSTINT:
274             return wine_dbg_sprintf("i%u", reg->regnum);
275         case BWRITERSPR_COLOROUT:
276             return wine_dbg_sprintf("oC%u", reg->regnum);
277         case BWRITERSPR_DEPTHOUT:
278             return "oDepth";
279         case BWRITERSPR_SAMPLER:
280             return wine_dbg_sprintf("s%u", reg->regnum);
281         case BWRITERSPR_CONSTBOOL:
282             return wine_dbg_sprintf("b%u", reg->regnum);
283         case BWRITERSPR_LOOP:
284             return "aL";
285         case BWRITERSPR_MISCTYPE:
286             switch(reg->regnum) {
287                 case 0: return "vPos";
288                 case 1: return "vFace";
289                 case 2: return "unexpected misctype";
290             }
291         case BWRITERSPR_LABEL:
292             return wine_dbg_sprintf("l%u", reg->regnum);
293         case BWRITERSPR_PREDICATE:
294             return wine_dbg_sprintf("p%u", reg->regnum);
295         default: return "unknown regname";
296     }
297 }
298
299 const char *debug_print_writemask(DWORD mask) {
300     char ret[6];
301     unsigned char pos = 1;
302
303     if(mask == BWRITERSP_WRITEMASK_ALL) return "";
304     ret[0] = '.';
305     if(mask & BWRITERSP_WRITEMASK_0) ret[pos++] = 'x';
306     if(mask & BWRITERSP_WRITEMASK_1) ret[pos++] = 'y';
307     if(mask & BWRITERSP_WRITEMASK_2) ret[pos++] = 'z';
308     if(mask & BWRITERSP_WRITEMASK_3) ret[pos++] = 'w';
309     ret[pos] = 0;
310     return wine_dbg_sprintf("%s", ret);
311 }
312
313 const char *debug_print_relarg(const struct shader_reg *reg) {
314     const char *short_swizzle;
315     if(!reg->rel_reg) return "";
316
317     short_swizzle = debug_print_swizzle(reg->rel_reg->swizzle);
318
319     if(reg->rel_reg->type == BWRITERSPR_ADDR) {
320         return wine_dbg_sprintf("[a%u%s]", reg->rel_reg->regnum, short_swizzle);
321     } else if(reg->rel_reg->type == BWRITERSPR_LOOP && reg->rel_reg->regnum == 0) {
322         return wine_dbg_sprintf("[aL%s]", short_swizzle);
323     } else {
324         return "Unexpected relative addressing argument";
325     }
326 }
327
328 const char *debug_print_dstreg(const struct shader_reg *reg, shader_type st) {
329     return wine_dbg_sprintf("%s%s%s", get_regname(reg, st),
330                             debug_print_relarg(reg),
331                             debug_print_writemask(reg->writemask));
332 }
333
334 const char *debug_print_swizzle(DWORD arg) {
335     char ret[6];
336     unsigned int i;
337     DWORD swizzle[4];
338
339     switch(arg) {
340         case BWRITERVS_NOSWIZZLE:
341             return "";
342         case BWRITERVS_SWIZZLE_X:
343             return ".x";
344         case BWRITERVS_SWIZZLE_Y:
345             return ".y";
346         case BWRITERVS_SWIZZLE_Z:
347             return ".z";
348         case BWRITERVS_SWIZZLE_W:
349             return ".w";
350     }
351
352     swizzle[0] = (arg >> (BWRITERVS_SWIZZLE_SHIFT + 0)) & 0x03;
353     swizzle[1] = (arg >> (BWRITERVS_SWIZZLE_SHIFT + 2)) & 0x03;
354     swizzle[2] = (arg >> (BWRITERVS_SWIZZLE_SHIFT + 4)) & 0x03;
355     swizzle[3] = (arg >> (BWRITERVS_SWIZZLE_SHIFT + 6)) & 0x03;
356
357     ret[0] = '.';
358     for(i = 0; i < 4; i++) {
359         switch(swizzle[i]) {
360             case 0: ret[1 + i] = 'x'; break;
361             case 1: ret[1 + i] = 'y'; break;
362             case 2: ret[1 + i] = 'z'; break;
363             case 3: ret[1 + i] = 'w'; break;
364         }
365     }
366     ret[5] = '\0';
367     return wine_dbg_sprintf("%s", ret);
368 }
369
370 const char *debug_print_srcreg(const struct shader_reg *reg, shader_type st) {
371     switch(reg->srcmod) {
372         case BWRITERSPSM_NONE:
373             return wine_dbg_sprintf("%s%s%s", get_regname(reg, st),
374                                     debug_print_relarg(reg),
375                                     debug_print_swizzle(reg->swizzle));
376         case BWRITERSPSM_NEG:
377             return wine_dbg_sprintf("-%s%s%s", get_regname(reg, st),
378                                     debug_print_relarg(reg),
379                                     debug_print_swizzle(reg->swizzle));
380         case BWRITERSPSM_ABS:
381             return wine_dbg_sprintf("%s%s_abs%s", get_regname(reg, st),
382                                     debug_print_relarg(reg),
383                                     debug_print_swizzle(reg->swizzle));
384         case BWRITERSPSM_ABSNEG:
385             return wine_dbg_sprintf("-%s%s_abs%s", get_regname(reg, st),
386                                     debug_print_relarg(reg),
387                                     debug_print_swizzle(reg->swizzle));
388         case BWRITERSPSM_NOT:
389             return wine_dbg_sprintf("!%s%s%s", get_regname(reg, st),
390                                     debug_print_relarg(reg),
391                                     debug_print_swizzle(reg->swizzle));
392     }
393     return "Unknown modifier";
394 }
395
396 const char *debug_print_comp(DWORD comp) {
397     switch(comp) {
398         case BWRITER_COMPARISON_NONE: return "";
399         case BWRITER_COMPARISON_GT:   return "_gt";
400         case BWRITER_COMPARISON_EQ:   return "_eq";
401         case BWRITER_COMPARISON_GE:   return "_ge";
402         case BWRITER_COMPARISON_LT:   return "_lt";
403         case BWRITER_COMPARISON_NE:   return "_ne";
404         case BWRITER_COMPARISON_LE:   return "_le";
405         default: return "_unknown";
406     }
407 }
408
409 const char *debug_print_opcode(DWORD opcode) {
410     switch(opcode){
411         case BWRITERSIO_NOP:          return "nop";
412         case BWRITERSIO_MOV:          return "mov";
413         case BWRITERSIO_ADD:          return "add";
414         case BWRITERSIO_SUB:          return "sub";
415         case BWRITERSIO_MAD:          return "mad";
416         case BWRITERSIO_MUL:          return "mul";
417         case BWRITERSIO_RCP:          return "rcp";
418         case BWRITERSIO_RSQ:          return "rsq";
419         case BWRITERSIO_DP3:          return "dp3";
420         case BWRITERSIO_DP4:          return "dp4";
421         case BWRITERSIO_MIN:          return "min";
422         case BWRITERSIO_MAX:          return "max";
423         case BWRITERSIO_SLT:          return "slt";
424         case BWRITERSIO_SGE:          return "sge";
425         case BWRITERSIO_EXP:          return "exp";
426         case BWRITERSIO_LOG:          return "log";
427         case BWRITERSIO_LIT:          return "lit";
428         case BWRITERSIO_DST:          return "dst";
429         case BWRITERSIO_LRP:          return "lrp";
430         case BWRITERSIO_FRC:          return "frc";
431         case BWRITERSIO_M4x4:         return "m4x4";
432         case BWRITERSIO_M4x3:         return "m4x3";
433         case BWRITERSIO_M3x4:         return "m3x4";
434         case BWRITERSIO_M3x3:         return "m3x3";
435         case BWRITERSIO_M3x2:         return "m3x2";
436         case BWRITERSIO_CALL:         return "call";
437         case BWRITERSIO_CALLNZ:       return "callnz";
438         case BWRITERSIO_LOOP:         return "loop";
439         case BWRITERSIO_RET:          return "ret";
440         case BWRITERSIO_ENDLOOP:      return "endloop";
441         case BWRITERSIO_LABEL:        return "label";
442         case BWRITERSIO_DCL:          return "dcl";
443         case BWRITERSIO_POW:          return "pow";
444         case BWRITERSIO_CRS:          return "crs";
445         case BWRITERSIO_SGN:          return "sgn";
446         case BWRITERSIO_ABS:          return "abs";
447         case BWRITERSIO_NRM:          return "nrm";
448         case BWRITERSIO_SINCOS:       return "sincos";
449         case BWRITERSIO_REP:          return "rep";
450         case BWRITERSIO_ENDREP:       return "endrep";
451         case BWRITERSIO_IF:           return "if";
452         case BWRITERSIO_IFC:          return "ifc";
453         case BWRITERSIO_ELSE:         return "else";
454         case BWRITERSIO_ENDIF:        return "endif";
455         case BWRITERSIO_BREAK:        return "break";
456         case BWRITERSIO_BREAKC:       return "breakc";
457         case BWRITERSIO_MOVA:         return "mova";
458         case BWRITERSIO_EXPP:         return "expp";
459         case BWRITERSIO_LOGP:         return "logp";
460         case BWRITERSIO_DEF:          return "def";
461         case BWRITERSIO_SETP:         return "setp";
462         case BWRITERSIO_TEXLDL:       return "texldl";
463         case BWRITERSIO_BREAKP:       return "breakp";
464
465         default:                      return "unknown";
466     }
467 }