/******** The 'unset' command ********/
void
unset_command()
{
int found_token;
int save_token;
int i;
c_token++;
set_iterator = check_for_iteration();
found_token = lookup_table(&set_tbl[0],c_token);
/* HBB 20000506: rationalize occurences of c_token++ ... */
if (found_token != S_INVALID)
c_token++;
save_token = c_token;
ITERATE:
switch(found_token) {
case S_ANGLES:
unset_angles();
break;
case S_ARROW:
unset_arrow();
break;
case S_AUTOSCALE:
unset_autoscale();
break;
case S_BARS:
unset_bars();
break;
case S_BORDER:
unset_border();
break;
case S_BOXWIDTH:
unset_boxwidth();
break;
case S_CLIP:
unset_clip();
break;
case S_CNTRPARAM:
unset_cntrparam();
break;
case S_CNTRLABEL:
unset_cntrlabel();
break;
case S_CLABEL: /* deprecated command */
clabel_onecolor = TRUE;
break;
case S_CONTOUR:
unset_contour();
break;
case S_DASHTYPE:
unset_dashtype();
break;
case S_DGRID3D:
unset_dgrid3d();
break;
case S_DUMMY:
unset_dummy();
break;
case S_ENCODING:
unset_encoding();
break;
case S_DECIMALSIGN:
unset_decimalsign();
break;
case S_FIT:
unset_fit();
break;
case S_FORMAT:
c_token--;
set_format();
break;
case S_GRID:
unset_grid();
break;
case S_HIDDEN3D:
unset_hidden3d();
break;
case S_HISTORY:
break; /* FIXME: reset to default values? */
case S_HISTORYSIZE: /* Deprecated */
unset_historysize();
break;
case S_ISOSAMPLES:
unset_isosamples();
break;
case S_KEY:
unset_key();
break;
case S_LABEL:
unset_label();
break;
case S_LINETYPE:
unset_linetype();
break;
case S_LINK:
c_token--;
link_command();
break;
case S_LOADPATH:
unset_loadpath();
break;
case S_LOCALE:
unset_locale();
break;
case S_LOGSCALE:
unset_logscale();
break;
case S_MACROS:
/* Aug 2013 - macros are always enabled */
break;
case S_MAPPING:
unset_mapping();
break;
case S_BMARGIN:
unset_margin(&bmargin);
break;
case S_LMARGIN:
unset_margin(&lmargin);
break;
case S_RMARGIN:
unset_margin(&rmargin);
break;
case S_TMARGIN:
unset_margin(&tmargin);
break;
case S_DATAFILE:
if (almost_equals(c_token,"fort$ran")) {
df_fortran_constants = FALSE;
c_token++;
break;
} else if (almost_equals(c_token,"miss$ing")) {
unset_missing();
c_token++;
break;
} else if (almost_equals(c_token,"sep$arators")) {
free(df_separators);
df_separators = NULL;
c_token++;
break;
} else if (almost_equals(c_token,"com$mentschars")) {
free(df_commentschars);
df_commentschars = gp_strdup(DEFAULT_COMMENTS_CHARS);
c_token++;
break;
} else if (almost_equals(c_token,"bin$ary")) {
df_unset_datafile_binary();
c_token++;
break;
} else if (almost_equals(c_token,"nofpe_trap")) {
df_nofpe_trap = FALSE;
c_token++;
break;
}
df_fortran_constants = FALSE;
unset_missing();
free(df_separators);
df_separators = NULL;
free(df_commentschars);
df_commentschars = gp_strdup(DEFAULT_COMMENTS_CHARS);
df_unset_datafile_binary();
break;
#ifdef USE_MOUSE
case S_MOUSE:
unset_mouse();
break;
#endif
case S_MULTIPLOT:
term_end_multiplot();
break;
case S_OFFSETS:
unset_offsets();
break;
case S_ORIGIN:
unset_origin();
break;
case SET_OUTPUT:
unset_output();
break;
case S_PARAMETRIC:
unset_parametric();
break;
case S_PM3D:
unset_pm3d();
break;
case S_PALETTE:
unset_palette();
break;
case S_COLORBOX:
unset_colorbox();
break;
case S_POINTINTERVALBOX:
unset_pointintervalbox();
break;
case S_POINTSIZE:
unset_pointsize();
break;
case S_POLAR:
unset_polar();
break;
case S_PRINT:
unset_print();
break;
case S_PSDIR:
unset_psdir();
break;
#ifdef EAM_OBJECTS
case S_OBJECT:
unset_object();
break;
#endif
case S_RTICS:
unset_tics(POLAR_AXIS);
break;
case S_PAXIS:
i = int_expression();
if (i <= 0 || i > MAX_PARALLEL_AXES)
int_error(c_token, "expecting parallel axis number");
if (almost_equals(c_token, "tic$s")) {
unset_tics(PARALLEL_AXES+i-1);
c_token++;
}
break;
case S_SAMPLES:
unset_samples();
break;
case S_SIZE:
unset_size();
break;
case S_STYLE:
unset_style();
break;
case S_SURFACE:
unset_surface();
break;
case S_TABLE:
unset_table();
break;
case S_TERMINAL:
unset_terminal();
break;
case S_TICS:
unset_tics(ALL_AXES);
break;
case S_TICSCALE:
int_warn(c_token, "Deprecated syntax - use 'set tics scale default'");
break;
case S_TICSLEVEL:
case S_XYPLANE:
unset_ticslevel();
break;
case S_TIMEFMT:
unset_timefmt();
break;
case S_TIMESTAMP:
unset_timestamp();
break;
case S_TITLE:
unset_axislabel_or_title(&title);
break;
case S_VIEW:
unset_view();
break;
case S_ZERO:
unset_zero();
break;
/* FIXME - are the tics correct? */
case S_MXTICS:
unset_minitics(FIRST_X_AXIS);
break;
case S_XTICS:
unset_tics(FIRST_X_AXIS);
break;
case S_XDTICS:
case S_XMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MYTICS:
unset_minitics(FIRST_Y_AXIS);
break;
case S_YTICS:
unset_tics(FIRST_Y_AXIS);
break;
case S_YDTICS:
case S_YMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MX2TICS:
unset_minitics(SECOND_X_AXIS);
break;
case S_X2TICS:
unset_tics(SECOND_X_AXIS);
break;
case S_X2DTICS:
case S_X2MTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MY2TICS:
unset_minitics(SECOND_Y_AXIS);
break;
case S_Y2TICS:
unset_tics(SECOND_Y_AXIS);
break;
case S_Y2DTICS:
case S_Y2MTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MZTICS:
unset_minitics(FIRST_Z_AXIS);
break;
case S_ZTICS:
unset_tics(FIRST_Z_AXIS);
break;
case S_ZDTICS:
case S_ZMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MCBTICS:
unset_minitics(COLOR_AXIS);
break;
case S_CBTICS:
unset_tics(COLOR_AXIS);
break;
case S_CBDTICS:
case S_CBMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MRTICS:
unset_minitics(POLAR_AXIS);
break;
case S_XDATA:
unset_timedata(FIRST_X_AXIS);
break;
case S_YDATA:
unset_timedata(FIRST_Y_AXIS);
break;
case S_ZDATA:
unset_timedata(FIRST_Z_AXIS);
break;
case S_CBDATA:
unset_timedata(COLOR_AXIS);
break;
case S_X2DATA:
unset_timedata(SECOND_X_AXIS);
break;
case S_Y2DATA:
unset_timedata(SECOND_Y_AXIS);
break;
case S_XLABEL:
unset_axislabel(FIRST_X_AXIS);
break;
case S_YLABEL:
unset_axislabel(FIRST_Y_AXIS);
break;
case S_ZLABEL:
unset_axislabel(FIRST_Z_AXIS);
break;
case S_CBLABEL:
unset_axislabel(COLOR_AXIS);
break;
case S_X2LABEL:
unset_axislabel(SECOND_X_AXIS);
break;
case S_Y2LABEL:
unset_axislabel(SECOND_Y_AXIS);
break;
case S_XRANGE:
unset_range(FIRST_X_AXIS);
break;
case S_X2RANGE:
unset_range(SECOND_X_AXIS);
break;
case S_YRANGE:
unset_range(FIRST_Y_AXIS);
break;
case S_Y2RANGE:
unset_range(SECOND_Y_AXIS);
break;
case S_ZRANGE:
unset_range(FIRST_Z_AXIS);
break;
case S_CBRANGE:
unset_range(COLOR_AXIS);
break;
case S_RRANGE:
unset_range(POLAR_AXIS);
break;
case S_TRANGE:
unset_range(T_AXIS);
break;
case S_URANGE:
unset_range(U_AXIS);
break;
case S_VRANGE:
unset_range(V_AXIS);
break;
case S_RAXIS:
raxis = FALSE;
c_token++;
break;
case S_XZEROAXIS:
unset_zeroaxis(FIRST_X_AXIS);
break;
case S_YZEROAXIS:
unset_zeroaxis(FIRST_Y_AXIS);
break;
case S_ZZEROAXIS:
unset_zeroaxis(FIRST_Z_AXIS);
break;
case S_X2ZEROAXIS:
unset_zeroaxis(SECOND_X_AXIS);
break;
case S_Y2ZEROAXIS:
unset_zeroaxis(SECOND_Y_AXIS);
break;
case S_ZEROAXIS:
unset_all_zeroaxes();
break;
case S_INVALID:
default:
int_error(c_token, "Unrecognized option. See 'help unset'.");
break;
}
if (next_iteration(set_iterator)) {
c_token = save_token;
goto ITERATE;
}
update_gpval_variables(0);
set_iterator = cleanup_iteration(set_iterator);
}
/******** The 'unset' command ********/
void
unset_command()
{
int found_token;
int save_token;
c_token++;
check_for_iteration();
found_token = lookup_table(&set_tbl[0],c_token);
/* HBB 20000506: rationalize occurences of c_token++ ... */
if (found_token != S_INVALID)
c_token++;
save_token = c_token;
ITERATE:
switch(found_token) {
case S_ANGLES:
unset_angles();
break;
case S_ARROW:
unset_arrow();
break;
case S_AUTOSCALE:
unset_autoscale();
break;
case S_BARS:
unset_bars();
break;
case S_BORDER:
unset_border();
break;
case S_BOXWIDTH:
unset_boxwidth();
break;
case S_CLABEL:
unset_clabel();
break;
case S_CLIP:
unset_clip();
break;
case S_CNTRPARAM:
unset_cntrparam();
break;
case S_CONTOUR:
unset_contour();
break;
case S_DGRID3D:
unset_dgrid3d();
break;
case S_DUMMY:
unset_dummy();
break;
case S_ENCODING:
unset_encoding();
break;
case S_DECIMALSIGN:
unset_decimalsign();
break;
case S_FIT:
unset_fit();
break;
case S_FORMAT:
unset_format();
break;
case S_GRID:
unset_grid();
break;
case S_HIDDEN3D:
unset_hidden3d();
break;
case S_HISTORYSIZE:
unset_historysize();
break;
case S_ISOSAMPLES:
unset_isosamples();
break;
case S_KEY:
unset_key();
break;
case S_KEYTITLE:
unset_keytitle();
break;
case S_LABEL:
unset_label();
break;
case S_LOADPATH:
unset_loadpath();
break;
case S_LOCALE:
unset_locale();
break;
case S_LOGSCALE:
unset_logscale();
break;
#ifdef GP_MACROS
case S_MACROS:
unset_macros();
break;
#endif
case S_MAPPING:
unset_mapping();
break;
case S_BMARGIN:
unset_margin(&bmargin);
break;
case S_LMARGIN:
unset_margin(&lmargin);
break;
case S_RMARGIN:
unset_margin(&rmargin);
break;
case S_TMARGIN:
unset_margin(&tmargin);
break;
case S_DATAFILE:
if (almost_equals(c_token,"fort$ran")) {
df_fortran_constants = FALSE;
c_token++;
break;
}
df_fortran_constants = FALSE;
unset_missing();
df_separator = '\0';
free(df_commentschars);
df_commentschars = gp_strdup(DEFAULT_COMMENTS_CHARS);
df_unset_datafile_binary();
break;
#ifdef USE_MOUSE
case S_MOUSE:
unset_mouse();
break;
#endif
case S_MULTIPLOT:
/* unset_multiplot(); */
term_end_multiplot();
break;
case S_OFFSETS:
unset_offsets();
break;
case S_ORIGIN:
unset_origin();
break;
case SET_OUTPUT:
unset_output();
break;
case S_PARAMETRIC:
unset_parametric();
break;
case S_PM3D:
unset_pm3d();
break;
case S_PALETTE:
unset_palette();
break;
case S_COLORBOX:
unset_colorbox();
break;
case S_POINTSIZE:
unset_pointsize();
break;
case S_POLAR:
unset_polar();
break;
case S_PRINT:
unset_print();
break;
#ifdef EAM_OBJECTS
case S_OBJECT:
unset_object();
break;
#endif
case S_SAMPLES:
unset_samples();
break;
case S_SIZE:
unset_size();
break;
case S_STYLE:
unset_style();
break;
case S_SURFACE:
unset_surface();
break;
case S_TABLE:
unset_table();
break;
case S_TERMINAL:
unset_terminal();
break;
case S_TICS:
unset_tics(AXIS_ARRAY_SIZE);
break;
case S_TICSCALE:
unset_ticscale();
break;
case S_TICSLEVEL:
case S_XYPLANE:
unset_ticslevel();
break;
case S_TIMEFMT:
unset_timefmt();
break;
case S_TIMESTAMP:
unset_timestamp();
break;
case S_TITLE:
unset_axislabel_or_title(&title);
break;
case S_VIEW:
unset_view();
break;
case S_ZERO:
unset_zero();
break;
/* FIXME - are the tics correct? */
case S_MXTICS:
unset_minitics(FIRST_X_AXIS);
break;
case S_XTICS:
unset_tics(FIRST_X_AXIS);
break;
case S_XDTICS:
case S_XMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MYTICS:
unset_minitics(FIRST_Y_AXIS);
break;
case S_YTICS:
unset_tics(FIRST_Y_AXIS);
break;
case S_YDTICS:
case S_YMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MX2TICS:
unset_minitics(SECOND_X_AXIS);
break;
case S_X2TICS:
unset_tics(SECOND_X_AXIS);
break;
case S_X2DTICS:
case S_X2MTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MY2TICS:
unset_minitics(SECOND_Y_AXIS);
break;
case S_Y2TICS:
unset_tics(SECOND_Y_AXIS);
break;
case S_Y2DTICS:
case S_Y2MTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MZTICS:
unset_minitics(FIRST_Z_AXIS);
break;
case S_ZTICS:
unset_tics(FIRST_Z_AXIS);
break;
case S_ZDTICS:
case S_ZMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_MCBTICS:
unset_minitics(COLOR_AXIS);
break;
case S_CBTICS:
unset_tics(COLOR_AXIS);
break;
case S_CBDTICS:
case S_CBMTICS:
unset_month_day_tics(FIRST_X_AXIS);
break;
case S_XDATA:
unset_timedata(FIRST_X_AXIS);
/* FIXME HBB 20000506: does unsetting these axes make *any*
* sense? After all, their content is never displayed, so
* what would they need a corrected format for? */
unset_timedata(T_AXIS);
unset_timedata(U_AXIS);
break;
case S_YDATA:
unset_timedata(FIRST_Y_AXIS);
/* FIXME: see above */
unset_timedata(V_AXIS);
break;
case S_ZDATA:
unset_timedata(FIRST_Z_AXIS);
break;
case S_CBDATA:
unset_timedata(COLOR_AXIS);
break;
case S_X2DATA:
unset_timedata(SECOND_X_AXIS);
break;
case S_Y2DATA:
unset_timedata(SECOND_Y_AXIS);
break;
case S_XLABEL:
unset_axislabel(FIRST_X_AXIS);
break;
case S_YLABEL:
unset_axislabel(FIRST_Y_AXIS);
break;
case S_ZLABEL:
unset_axislabel(FIRST_Z_AXIS);
break;
case S_CBLABEL:
unset_axislabel(COLOR_AXIS);
break;
case S_X2LABEL:
unset_axislabel(SECOND_X_AXIS);
break;
case S_Y2LABEL:
unset_axislabel(SECOND_Y_AXIS);
break;
case S_XRANGE:
unset_range(FIRST_X_AXIS);
break;
case S_X2RANGE:
unset_range(SECOND_X_AXIS);
break;
case S_YRANGE:
unset_range(FIRST_Y_AXIS);
break;
case S_Y2RANGE:
unset_range(SECOND_Y_AXIS);
break;
case S_ZRANGE:
unset_range(FIRST_Z_AXIS);
break;
case S_CBRANGE:
unset_range(COLOR_AXIS);
break;
case S_RRANGE:
unset_range(R_AXIS);
break;
case S_TRANGE:
unset_range(T_AXIS);
break;
case S_URANGE:
unset_range(U_AXIS);
break;
case S_VRANGE:
unset_range(V_AXIS);
break;
case S_XZEROAXIS:
unset_zeroaxis(FIRST_X_AXIS);
break;
case S_YZEROAXIS:
unset_zeroaxis(FIRST_Y_AXIS);
break;
case S_ZZEROAXIS:
unset_zeroaxis(FIRST_Z_AXIS);
break;
case S_X2ZEROAXIS:
unset_zeroaxis(SECOND_X_AXIS);
break;
case S_Y2ZEROAXIS:
unset_zeroaxis(SECOND_Y_AXIS);
break;
case S_ZEROAXIS:
unset_all_zeroaxes();
break;
case S_INVALID:
default:
int_error(c_token, "Unrecognized option. See 'help unset'.");
break;
}
if (next_iteration()) {
c_token = save_token;
goto ITERATE;
}
/* FIXME - Should this be inside the iteration loop? */
update_gpval_variables(0);
}