6 "r": " uint32_t in = *inp, r = ((in>>6)&3)*0x55u, g = ((in>>3)&7)*0x24u, b = (in&7)*0x24u;",
7 "w": " uint32_t ot = (r&0xc0u) | ((g>>2)&0x38u) | ((b>>5)&0x07u);\n" +
11 "r": " uint32_t in = *inp, r = ((in>>6)&3)*0x5555u, g = ((in>>3)&7)*0x2492u, b = (in&7)*0x2492u;",
12 "w": " uint32_t ot = ((r>>8)&0xc0u) | ((g>>10) & 0x38u) >> 2) | ((b>>13)&0x07u);\n" +
16 "r": " int in = *inp; float r = (in>>6)/3.f, g = ((in>>3)&0x07u)/7.f, b = (in&0x07u)/7.f;",
17 "w": " int vr = clp(4,r), vg = clp(8,g), vb = clp(8,b);\n" +
18 " *out++ = ((vr<<6)&0xc0u) | ((vg<<3)&0x38u) | (vb&0x7u);",
23 "r": " uint32_t in = *(uint16_t*)inp;\n" +
24 " int r = (in>>8)&0xf8u, g = (in>>3)&0xfcu, b = (in&0x1fu)<<3;",
25 "w": " uint32_t ot = ((r<<8) & 0xf800u) | ((g<<3) & 0x07e0u) | ((b>>3) & 0x001fu);\n" +
26 " *(uint16_t*)out = ot; out += sizeof(uint16_t);",
29 "r": " uint32_t in = *(uint16_t*)inp;\n" +
30 " int r = in&0xf800u, g = (in<<5)&0xfc00u, b = (in<<11)&0xf800u;",
31 "w": " uint32_t ot = (r&0xf800u) | ((g>>5) & 0x07e0u) | ((b>>11) & 0x001fu);\n" +
35 "r": " uint32_t in = *(uint16_t*)inp;\n" +
36 " float r = (in>>11)/31.f, g = ((in>>5)&0x3fu)/63.f, b = (in&0x1fu)/31.f;",
37 "w": " uint32_t vr = clp(32,r), vg = clp(64,g), vb = clp(32,b);\n" +
38 " *out++ = ((vr<<11)&0xf800u) | ((vg<<6)&0x07e0u) | (vb&0x001fu);",
43 "r": " int r = *inp++, g = *inp++, b = *inp++;",
44 "w": " *out++ = r; *out++ = g; *out++ = b;",
47 "r": " int r = *inp++*0x101u, g = *inp++*0x101u, b = *inp++*0x101u;",
48 "w": " *out++ = r>>8; *out++ = g>>8; *out++ = b>>8;",
51 "r": " float r = fclp(*inp++,256), g=fclp(*inp++,256), b = fclp(*inp++,256);",
52 "w": " *out++ = clp(256,r); *out++ = clp(256,g); *out++ = clp(256,b);",
57 "r": " int r = *inp++>>8, g = *inp++>>8, b = *inp++>>8;",
58 "w": " *out++ = r*0x101u; *out++ = g*0x101u; *out++ = b*0x101u;",
61 "r": " int r = *inp++, g = *inp++, b = *inp++;",
62 "w": " *out++ = r; *out++ = g; *out++ = b;",
65 "r": " float r = fclp(*inp++,65536), g=fclp(*inp++,65536), b = fclp(*inp++,65536);",
66 "w": " *out++ = clp(65536,r); *out++ = clp(65536,g); *out++ = clp(65536,b);",
71 "r": " int r = clp(256,*inp++), g = clp(256,*inp++), b = clp(256,*inp++);",
72 "w": " *out++ = fclp(r,256); *out++ = fclp(g,256); *out++ = fclp(b,256);",
75 "r": " int r = clp(65536,*inp++), g = clp(65536,*inp++), b = clp(65536,*inp++);",
76 "w": " *out++ = fclp(r,65536); *out++ = fclp(g,65536); *out++ = fclp(b,65536);",
79 "r": " float r = *inp++, g=*inp++, b = *inp++;",
80 "w": " *out++ = r; *out++ = g; *out++ = b;",
86 "r": " uint32_t in = *(uint16_t*)inp;\n" +
87 " int b = (in>>8)&0xf8u, g = (in>>3)&0xfcu, r = (in&0x1fu)<<3;",
88 "w": " uint32_t ot = ((b&0xf8u)<<8) | ((g&0xfcu)<<3) | ((r&0xf8u)>>3);\n" +
89 " *(uint16_t*)out = ot; out += sizeof(uint16_t)/sizeof(*out);",
92 "r": " uint32_t in = *(uint16_t*)inp;\n" +
93 " int b = in&0xf800u, g = (in<<5)&0xfc00u, r = (in<<11)&0xf800u;",
94 "w": " uint32_t ot = (b&0xf800u) | ((g>>5) & 0x07e0u) << 3) | (r>>11);\n" +
98 "r": " uint32_t in = *(uint16_t*)inp;\n" +
99 " float b = (in>>11)/31.f, g = ((in>>5)&0x3fu)/63.f, r = (in&0x1fu)/31.f;",
100 "w": " uint32_t vb = clp(32,b), vg = clp(64,g), vr = clp(32,r);\n" +
101 " *out++ = ((vb<<11)&0xf800u) | ((vg<<6)&0x03e0u) | (vr&0x001fu);",
106 "r": " int b = *inp++, g = *inp++, r = *inp++;",
107 "w": " *out++ = b; *out++ = g; *out++ = r;",
110 "r": " int b = *inp++*0x101u, g = *inp++*0x101u, r = *inp++*0x101u;",
111 "w": " *out.16++ = b>>8; *out.16++ = g>>8; *out.16++ = r>>8;",
114 "r": " float b = fclp(*inp++,256), g=fclp(*inp++,256), r = fclp(*inp++,256);",
115 "w": " *out++ = clp(256,b); *out++ = clp(256,g); *out++ = clp(256,r);",
120 "r": " int b = *inp++, g = *inp++, r = *inp++;",
121 "w": " *out++ = b; *out++ = g; *out++ = r; ++out;",
124 "r": " int b = *inp++*0x101u, g = *inp++*0x101u, r = *inp++*0x101u;",
125 "w": " *out++ = b>>8; *out++ = g>>8; *out++ = r>>8; ++out;",
128 "r": " float b = fclp(*inp++,256), g=fclp(*inp++,256), r = fclp(*inp++,256);",
129 "w": " *out++ = clp(256,b); *out++ = clp(256,g); *out++ = clp(256,r); ++out;",
134 "r": " int b = *inp++>>8, g = *inp++>>8, r = *inp++>>8;",
135 "w": " *out++ = b*0x101u; *out++ = g*0x101u; *out++ = r*0x101u;",
138 "r": " int b = *inp++, g = *inp++, r = *inp++;",
139 "w": " *out++ = b; *out++ = g; *out++ = r;",
142 "r": " float b = fclp(*inp++,65536), g=fclp(*inp++,65536), r = fclp(*inp++,65536);",
143 "w": " *out++ = clp(65536,b); *out++ = clp(65536,g); *out++ = clp(65536,r);",
148 "r": " int b = clp(256,*inp++), g = clp(256,*inp++), r = clp(256,*inp++);",
149 "w": " *out++ = fclp(b,256); *out++ = fclp(g,256); *out++ = fclp(r,256);",
152 "r": " int b = clp(65536,*inp++), g = clp(65536,*inp++), r = clp(65536,*inp++);",
153 "w": " *out++ = fclp(b,65536); *out++ = fclp(g,65536); *out++ = fclp(r,65536);",
156 "r": " float b = *inp++, g=*inp++, r = *inp++;",
157 "w": " *out++ = b; *out++ = g; *out++ = r;",
163 "r": " int32_t y = *inp++*0x010101u, u = *inp++, v = *inp++;",
164 "w": " *out++ = y; *out++ = u; *out++ = v;",
167 "r": " int32_t y = *inp++*0x010101u, u = *inp++<<8, v = *inp++<<8;",
168 "w": " *out++ = y>>8; *out++ = u>>8; *out++ = v>>8;",
173 "r": " int32_t iy = *inp++, y = (iy<<8) | (iy>>8), u = *inp++>>8, v = *inp++>>8;",
174 "w": " *out++ = y<<8; *out++ = u<<8; *out++ = v<<8;",
177 "r": " int32_t iy = *inp++, y = (iy<<8) | (iy>>8), u = *inp++, v = *inp++;",
178 "w": " *out++ = y; *out++ = u; *out++ = v;",
184 "r": " int32_t iy = inp[(i&1)<<1], y = iy*0x010101u, u = inp[1], v = inp[3];",
185 "w": " if( !(j&1) ) { *out++ = y; *out = u; out[2] = v; }\n" +
186 " else { *out++ = u; *out++= y; *out++ = v; }",
189 "r": " int32_t iy = inp[(i&1)<<1], y = iy*0x010101u, u = inp[1]<<8, v = inp[3]<<8;",
190 "w": " if( !(j&1) ) { *out++ = y>>8; *out = u>>8; out[2] = v>>8; }\n" +
191 " else { *out++ = u>>8; *out++= y>>8; *out++ = v>>8; }",
197 "r": " uint32_t it = *(uint32_t*)inp;\n" +
198 " int32_t y = ((it>>22)&0x3ffu)*0x4010u, u = (it>>14)&0xffu, v = (it>>4)&0xffu;",
199 "w": " uint32_t ot = (y<<24) | (u<<14) | (v<<4);\n" +
200 " *(uint32_t*)out = ot; out += sizeof(uint32_t)/sizeof(*out);",
203 "r": " uint32_t it = *(uint32_t*)inp;\n" +
204 " int32_t y = ((it>>22)&0x3ffu)*0x4010u, u = (it>>6)&0xffc0u, v = (it<<4)&0xffc0u;",
205 "w": " uint32_t ot = ((y&0xffc0u)<<16) | ((u&0xffc0u)<<6) | ((v&0xffc0u)>>4);\n" +
206 " *(uint32_t*)out = ot; out += sizeof(uint32_t)/sizeof(*out);",
212 "r": " int32_t v = *inp++, y = *inp++*0x010101u, u = *inp++;",
213 "w": " *out++ = v; *out++ = y; *out++ = u;",
216 "r": " int32_t v = *inp++<<8, y = *inp++*0x010101u, u = *inp++<<8;",
217 "w": " *out++ = v>>8; *out++ = y>>8; *out++ = u>>8;",
223 "r": " int32_t u = *inp++, y = *inp++*0x010101u, v = *inp++;",
224 "w": " *out++ = u; *out++ = y; *out++ = v;",
227 "r": " int32_t u = *inp++<<8, y = *inp++*0x010101u, v = *inp++<<8;",
228 "w": " *out++ = u>>8; *out++ = y>>8; *out++ = v>>8;",
234 "r": " int32_t y = *yip*0x010101u, u = *uip, v = *vip;",
235 "w": " yop[j] = y; uop[j/2] = u; vop[j/2] = v;",
238 "r": " int32_t y = *yip*0x010101u, u = *uip<<8, v = *vip<<8;",
239 "w": " yop[j] = y>>8; uop[j/2] = u>>8; vop[j/2] = v>>8;",
245 "r": " int32_t y = *yip*0x010101u, u = *uip, v = *vip;",
246 "w": " yop[j] = y; uop[j/2] = u; vop[j/2] = v;",
249 "r": " int32_t y = *yip*0x010101u, u = *uip<<8, v = *vip<<8;",
250 "w": " yop[j] = y>>8; uop[j/2] = u>>8; vop[j/2] = v>>8;",
256 "r": " int32_t y = *yip*0x010101u, u = *uip, v = *vip;",
257 "w": " yop[j] = y; uop[j] = u; vop[j] = v;",
260 "r": " int32_t y = *yip*0x010101u, u = *uip<<8, v = *vip<<8;",
261 "w": " yop[j] = y>>8; uop[j] = u>>8; vop[j] = v>>8;",
267 "r": " int32_t y = *yip*0x010101u, u = *uip, v = *vip;",
268 "w": " yop[j] = y; uop[j/4] = u; vop[j/4] = v;",
271 "r": " int32_t y = *yip*0x010101u, u = *uip<<8, v = *vip<<8;",
272 "w": " yop[j] = y>>8; uop[j/4] = u>>8; vop[j/4] = v>>8;",
278 "r": " int32_t y = *yip*0x010101u, u = *uip, v = *vip;",
279 "w": " yop[j] = y; uop[j/4] = u; vop[j/4] = v;",
282 "r": " int32_t y = *yip*0x010101u, u = *uip<<8, v = *vip<<8;",
283 "w": " yop[j] = y>>8; uop[j/4] = u>>8; vop[j/4] = v>>8;",
289 "r": " int r = clp(256,*rip++), g = clp(256,*gip++), b = clp(256,*bip++);",
290 "w": " *rop++ = fclp(r,256); *gop++ = fclp(g,256); *bop++ = fclp(b,256);",
293 "r": " int r = clp(65536,*rip++), g = clp(65536,*gip++), b = clp(65536,*bip++);",
294 "w": " *rop++ = fclp(r,65536); *gop++ = fclp(g,65536); *bop++ = fclp(b,65536);",
297 "r": " float r = *rip++, g = *gip++, b = *bip++;",
298 "w": " *rop++ = r; *gop++ = g; *bop++ = b;",
305 "r": " z_int a = *inp++;",
309 "r": " z_int a = *inp++<<8;",
310 "w": " *out++ = a>>8;",
313 "r": " z_float fa = fclp(*inp++,256);",
314 "w": " *out++ = clp(256,a)",
319 "r": " z_int a = *inp++>>8;",
320 "w": " *out++ = a<<8;",
323 "r": " z_int a = *inp++;",
327 "r": " z_float fa = fclp(*inp++,65536);",
328 "w": " *out++ = clp(65536,a);",
333 "r": " z_int a = clp(256,*inp++);",
334 "w": " *out++ = fclp(a,256);",
337 "r": " z_int a = clp(65536,*inp++);",
338 "w": " *out++ = fclp(a,65536);",
341 "r": " z_float fa = *inp++;",
342 "w": " *out++ = fa;",
347 "r": " z_int a = clp(256,*aip++);",
348 "w": " *aop++ = fclp(a,256);",
351 "r": " z_int a = clp(65536,*aip++);",
352 "w": " *aop++ = fclp(a,65536);",
355 "r": " z_float fa = *aip++;",
356 "w": " *aop++ = fa;",
359 # alpha blend rgb/black, yuv/black, rgb/bg_color
361 "i8": " r = r*a/0xffu; g = g*a/0xffu; b = b*a/0xffu;",
362 "i16": " r = r*a/0xffffu; g = g*a/0xffffu; b = b*a/0xffffu;",
363 "fp": " r *= fa; g *= fa; b *= fa;",
366 "i8": " z_int a1 = 0xffu-a;\n" +
367 " y = y*a/0xffu; u = (u*a + 0x80u*a1)/0xffu; v = (v*a + 0x80u*a1)/0xffu;",
368 "i16": " z_int a1 = 0xffffu-a;\n" +
369 " y = y*a/0xffffu; u = (u*a + 0x8000u*a1)/0xffffu; v = (v*a + 0x8000u*a1)/0xffffu;",
372 "i8": " int a1 = 0xffu-a;\n" +
373 " r = (r*a + bg_r*a1)/0xffu; g = (g*a + bg_g*a1)/0xffu; b = (b*a + bg_b*a1)/0xffu;",
374 "i16": "int a1 = 0xffffu-a;\n" +
375 " r = (r*a + bg_r*a1)/0xffffu; g = (g*a + bg_g*a1)/0xffffu; b = (b*a + bg_b*a1)/0xffffu;",
376 "fp": " float a1 = 1-fa;\n" +
377 " r = (r*fa + bg_r*a1); g = (g*fa + bg_g*a1); b = (b*fa + bg_b*a1);",
386 def add_cmodel(nm, typ=None, *args):
387 global cmodels, layout, dtype
392 def specialize(fr_cmdl, to_cmdl, fn):
394 special[(fr_cmdl, to_cmdl)] = fn
396 add_cmodel("bc_transparency")
397 add_cmodel("bc_compressed")
399 add_cmodel("bc_rgb8", "i8", "rgb8")
400 add_cmodel("bc_rgb565", "i8", "rgb565")
401 add_cmodel("bc_bgr565", "i8", "bgr565")
402 add_cmodel("bc_bgr888", "i8", "bgr888")
403 add_cmodel("bc_bgr8888", "i8", "bgr8888")
405 add_cmodel("bc_rgb888", "i8", "rgb888")
406 add_cmodel("bc_rgba8888", "i8", "rgb888", "a8")
407 add_cmodel("bc_argb8888", "i8", "a8", "rgb888")
408 add_cmodel("bc_abgr8888", "i8", "a8", "bgr888")
409 add_cmodel("bc_rgb161616", "i16", "rgb161616")
410 add_cmodel("bc_rgba16161616", "i16", "rgb161616", "a16")
411 add_cmodel("bc_yuv888", "i8", "yuv888")
412 add_cmodel("bc_yuva8888", "i8", "yuv888", "a8")
413 add_cmodel("bc_yuv161616", "i16", "yuv161616")
414 add_cmodel("bc_yuva16161616", "i16", "yuv161616", "a16")
416 add_cmodel("bc_yuv422", "i8", "yuyv8888")
419 add_cmodel("bc_a_float")
420 add_cmodel("bc_yuv101010", "i16", "yuv10101010")
421 add_cmodel("bc_vyu888", "i8", "vyu888")
422 add_cmodel("bc_uyva8888", "i8", "uyv888", "a8")
423 add_cmodel("bc_rgb_float", "fp", "rgbfloat")
424 add_cmodel("bc_rgba_float", "fp", "rgbfloat", "afp")
426 add_cmodel("bc_yuv420p", "i8", "yuv420p")
427 add_cmodel("bc_yuv422p", "i8", "yuv422p")
428 add_cmodel("bc_yuv444p", "i8", "yuv444p")
429 add_cmodel("bc_yuv411p", "i8", "yuv411p")
430 add_cmodel("bc_yuv410p", "i8", "yuv410p")
431 add_cmodel("bc_rgb_floatp", "fp", "rgbfltp")
432 add_cmodel("bc_rgba_floatp", "fp", "rgbfltp", "afpp")
434 specialize("bc_rgba8888", "bc_transparency", "XFER_rgba8888_to_transparency")
443 "i8": " z_int a=0xff;",
444 "i16": " z_int a=0xffff;",
445 "fp": " z_float fa=1;",
449 return nm in ["bc_rgba8888", "bc_argb8888", "bc_abgr8888", \
450 "bc_rgba16161616", "bc_yuva8888", "bc_yuva16161616", \
451 "bc_uyva8888", "bc_rgba_float", "bc_rgba_floatp",]
453 def has_bgcolor(fr_cmdl,to_cmdl):
454 return fr_cmdl in ["bc_rgba8888"] and \
455 to_cmdl in ["bc_rgba888", "bc_bgr565", "bc_rgb565", \
456 "bc_bgr888", "bc_rgb888", "bc_bgr8888"]
458 def is_specialized(fr_cmdl,to_cmdl):
460 return special.get((fr_cmdl, to_cmdl)) is not None
463 return nm in [ "bc_rgb8", "bc_rgb565", "bc_bgr565", \
464 "bc_bgr888", "bc_bgr8888", "bc_rgb888", "bc_rgba8888", \
465 "bc_argb8888", "bc_abgr8888", "bc_rgb", "bc_rgb161616", \
466 "bc_rgba16161616", "bc_rgb_float", "bc_rgba_float", \
467 "bc_rgb_floatp", "bc_rgba_floatp", ]
470 return nm in [ "bc_yuv888", "bc_yuva8888", "bc_yuv161616", \
471 "bc_yuva16161616", "bc_yuv422", "bc_yuv101010", "bc_vyu888", \
472 "bc_uyva8888", "bc_yuv420p", "bc_yuv422p", "bc_yuv444p", \
473 "bc_yuv411p", "bc_yuv410p", ]
476 return nm in [ "bc_yuv420p", "bc_yuv422p", "bc_yuv444p", \
477 "bc_yuv411p", "bc_yuv410p", "bc_rgb_floatp", "bc_rgba_floatp", ]
480 return nm in ["bc_rgb_float", "bc_rgba_float", "bc_rgb_floatp", "bc_rgba_floatp", ]
482 def gen_xfer_proto(pfx, cls, fr_cmdl, to_cmdl):
484 print "%svoid %sxfer_%s_to_%s" % (pfx, cls, fr_cmdl[3:], to_cmdl[3:]),
485 ityp = dtype[fr_cmdl]; fr_typ = ctype[ityp];
486 otyp = dtype[to_cmdl]; to_typ = ctype[otyp];
489 def gen_xfer_fn(fr_cmdl, to_cmdl):
490 global layout, dtype, adata
491 ityp = dtype[fr_cmdl]; otyp = dtype[to_cmdl]
492 if( ityp is None or otyp is None ): return
494 gen_xfer_proto("", class_qual, fr_cmdl, to_cmdl);
497 # loops / pointer preload
498 in_cmdl = fr_cmdl[3:] if is_planar(fr_cmdl) else "flat";
499 out_cmdl = to_cmdl[3:] if is_planar(to_cmdl) else "flat";
500 print " xfer_%s_row_out(%s) xfer_%s_row_in(%s)" % \
501 (out_cmdl, ctype[otyp], in_cmdl, ctype[ityp],)
503 if( is_float(to_cmdl) and is_yuv(fr_cmdl) ):
504 for ic in layout[fr_cmdl]: print "%s" % (base[ic][ityp]['r']),
506 print "\n float fy = y/16777215.f, r, g, b; YUV_TO_FLOAT(fy, u, v, r, g, b);",
507 elif( ityp == "i16" ):
508 print "\n float fy = y/16777215.f, r, g, b; YUV16_TO_RGB_FLOAT(fy, u, v, r, g, b);",
509 if( has_alpha(fr_cmdl) or has_alpha(to_cmdl) ):
510 if( not has_alpha(fr_cmdl) ):
511 print " z_float fa = 1;",
512 elif( ityp == "i8" ):
513 print " float fa = fclp(a,256);",
514 elif( ityp == "i16" ):
515 print " float fa = fclp(a,65536);",
517 for ic in layout[fr_cmdl]: print "%s" % (base[ic][otyp]['r']),
518 if( has_alpha(to_cmdl) and not has_alpha(fr_cmdl) ):
519 print "%s" % (adata[otyp]),
522 if( is_rgb(fr_cmdl) and is_yuv(to_cmdl) ):
524 print " int32_t y, u, v; RGB_TO_YUV(y, u, v, r, g, b);"
525 elif( otyp == "i16" ):
526 print " int32_t y, u, v; RGB_TO_YUV16(y, u, v, r, g, b);"
527 elif( is_yuv(fr_cmdl) and is_rgb(to_cmdl)):
529 print " int32_t r, g, b; YUV_TO_RGB(y, u, v, r, g, b);"
530 elif( otyp == "i16" ):
531 print " int32_t r, g, b; YUV_TO_RGB16(y, u, v, r, g, b);"
532 elif( is_yuv(fr_cmdl) and is_yuv(to_cmdl) ):
535 elif( otyp == "i16" ):
538 if( has_bgcolor(fr_cmdl,to_cmdl) ):
539 print "%s" % (base["bbg"][otyp])
540 elif( has_alpha(fr_cmdl) and not has_alpha(to_cmdl) ):
541 if( is_rgb(to_cmdl) ):
542 print "%s" % (base["brgb"][otyp])
543 elif( is_yuv(to_cmdl) ):
544 print "%s" % (base["byuv"][otyp])
546 for oc in layout[to_cmdl]:
547 print "%s" % (base[oc][otyp]['w']),
553 class_qual = "BC_Xfer::"
555 print "#include \"xfer.h\""
558 for fr_cmdl in cmodels:
559 ityp = dtype[fr_cmdl]
560 for to_cmdl in cmodels:
561 otyp = dtype[to_cmdl]
562 if( is_specialized(fr_cmdl, to_cmdl) ):
563 print " void %s();" % (special[(fr_cmdl, to_cmdl)])
565 if( ityp is None or otyp is None ): continue
566 gen_xfer_proto(" ", "", fr_cmdl, to_cmdl);
568 # end of class definition
573 for fr_cmdl in cmodels:
574 for to_cmdl in cmodels:
575 gen_xfer_fn(fr_cmdl, to_cmdl)
579 print "void %sxfer()" % class_qual
581 print " switch(in_colormodel) {"
582 for fr_cmdl in cmodels:
583 ityp = dtype[fr_cmdl]
585 if( not fr_cmdl in [it[0] for it in special] ): continue
586 print " case %s:" % (fr_cmdl.upper())
587 print " switch(out_colormodel) {"
588 for to_cmdl in cmodels:
589 if( is_specialized(fr_cmdl, to_cmdl) ):
590 print " case %s: %s(); break;" % (to_cmdl.upper(), special[(fr_cmdl, to_cmdl)])
592 otyp = dtype[to_cmdl]
593 if( ityp is None or otyp is None ): continue
594 print " case %s:" % (to_cmdl.upper()),
595 print "xfer_%s_to_%s(); break;" % (fr_cmdl[3:], to_cmdl[3:])
601 print "#include \"xfer.C\""