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");