TYPEMAP
geno_eye::LabelBind  GENO_EYE_LABEL_BIND_T

INPUT
GENO_EYE_LABEL_BIND_T
    char* sv_text = SvPV_nolen($arg);
    $var = 0;
    if (    strstr(sv_text, \"top\") || strstr(sv_text, \"TOP\")    ) {
        $var |= geno_eye::LABEL_BIND_TOP;
    } else if (strstr(sv_text, \"bottom\") || strstr(sv_text, \"BOTTOM\")) {
        $var |= geno_eye::LABEL_BIND_BOTTOM;
    }
    if (strstr(sv_text, \"left\") || strstr(sv_text, \"LEFT\")) {
        $var |= geno_eye::LABEL_BIND_LEFT;
    } else if (strstr(sv_text, \"right\") || strstr(sv_text, \"RIGHT\")){
        $var |= geno_eye::LABEL_BIND_RIGHT;
    }

OUTPUT
GENO_EYE_LABEL_BIND_T
    if ($var|geno_eye::LABEL_BIND_TOP) {
        sv_setpv($arg, \"top\");
    } else if ($var|geno_eye::LABEL_BIND_BOTTOM) {
        sv_setpv($arg, \"bottom\");
    }
    if ($var|geno_eye::LABEL_BIND_LEFT) {
        sv_catpv($arg, \"left\");
    } else if ($var|geno_eye::LABEL_BIND_RIGHT) {
        sv_catpv($arg, \"right\");
    }