static LVAL base_variable_label(V) { int var, set = FALSE; char *label = NULL; LVAL result; var = getfixnum(xlgafixnum()); if (moreargs()) { set = TRUE; label = (char *) getstring(xlgastring()); } xllastarg(); if (set) IViewSetVariableLabel(wind, var, label); label = IViewVariableLabel(wind, var); if (label == NULL) result = cvstring(""); else result = cvstring(label); return(result); }
static LVAL base_variable_label() { int var, set = FALSE; char *label; LVAL result; var = getfixnum(xlgafixnum()); if (moreargs()) { set = TRUE; label = (char *) getstring(xlgastring()); } xllastarg(); if (set) IViewSetVariableLabel(wind, var, label); label = IViewVariableLabel(wind, var); if (label == nil) result = newstring(1); else { result = newstring(strlen(label) + 1); strcpy(getstring(result), label); } return(result); }