I32
calltype_to_num_xs(type)
    SV* type
PREINIT:
    const char * p;
    I32 l;
CODE:
    SvGETMAGIC(type);
    if(!SvPOK(type)) {
        if(!SvOK(type) || (SvIOK(type) && !SvIVX(type)) || !sv_true(type)) {
            RETVAL = APICONTROL_CC_STD;
        } else {
            unk:
            warn("unknown calling convention: '" SVf "'", type);
            RETVAL = APICONTROL_CC_STD;
        }
    } else {
        p = SvPVX(type);
        l = (U32)SvCUR(type);
        switch(l) {
            case STRLENs(""):
                if(memEQs(p,l,"")){RETVAL = APICONTROL_CC_STD;break;}
                else goto unk;
            case STRLENs("CDECL"):
                if(memEQs(p,l,"CDECL")){RETVAL = APICONTROL_CC_C;break;}
                else if(memEQs(p,l,"NTAPI")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"cdecl")){RETVAL = APICONTROL_CC_C;break;}
                else goto unk;
            case STRLENs("PASCAL"):
                if(memEQs(p,l,"PASCAL")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"WINAPI")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"WMIAPI")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"pascal")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"_cdecl")){RETVAL = APICONTROL_CC_C;break;}
                else goto unk;
            case STRLENs("WINAPIV"):
                if(memEQs(p,l,"WINAPIV")){RETVAL = APICONTROL_CC_C;break;}
                else if(memEQs(p,l,"__cdecl")){RETVAL = APICONTROL_CC_C;break;}
                else goto unk;
            case STRLENs("APIENTRY"):
                if(memEQs(p,l,"APIENTRY")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"CALLBACK")){RETVAL = APICONTROL_CC_STD;break;}
                else if(memEQs(p,l,"IMAGEAPI")){RETVAL = APICONTROL_CC_STD;break;}
                else goto unk;
            case STRLENs("__CRTDECL"):
                if(memEQs(p,l,"__CRTDECL")){RETVAL = APICONTROL_CC_C;break;}
                else if(memEQs(p,l,"__stdcall")){RETVAL = APICONTROL_CC_STD;break;}
                else goto unk;
            case STRLENs("__fastcall"):
                if(memEQs(p,l,"__fastcall")){goto unk;RETVAL = APICONTROL_CC_FC;break;}
                else if(memEQs(p,l,"__thiscall")){goto unk;RETVAL = APICONTROL_CC_TC;break;}
                else if(memEQs(p,l,"APIPRIVATE")){RETVAL = APICONTROL_CC_STD;break;}
                else goto unk;
            case STRLENs("__vectorcall"):
                if(memEQs(p,l,"__vectorcall")){goto unk;RETVAL = APICONTROL_CC_VC;break;}
                else goto unk;
            case STRLENs("STDAPICALLTYPE"):
                if(memEQs(p,l,"STDAPICALLTYPE")){RETVAL = APICONTROL_CC_STD;break;}
                else goto unk;
            case STRLENs("STDAPIVCALLTYPE"):
                if(memEQs(p,l,"STDAPIVCALLTYPE")){RETVAL = APICONTROL_CC_C;break;}
                else goto unk;
            case STRLENs("STDMETHODCALLTYPE"):
                if(memEQs(p,l,"STDMETHODCALLTYPE")){RETVAL = APICONTROL_CC_STD;break;}
                else goto unk;
            case STRLENs("STDMETHODVCALLTYPE"):
                if(memEQs(p,l,"STDMETHODVCALLTYPE")){RETVAL = APICONTROL_CC_C;break;}
                else goto unk;
            default: goto unk;
        }
    }
OUTPUT:
    RETVAL

void
calltype_to_num_xs2(intype)
INPUT:
    SV* intype
PREINIT:
    SV* sv = sv_2mortal(newSVpvs("__stdcall"));
    int i;
PPCODE:
    SP = &(ST(-1));
    for(i=0;i<1000;i++) {
        PUSHMARK(SP);
        PUSHs(sv);
        PUTBACK;
        XS_Local__C_calltype_to_num_xs(aTHX_ cv);
        SPAGAIN;
        SP = &(ST(-1));
    }
    PUTBACK;