From 014c9f26d1b427567e3fbfc78eb20492387f837f Mon Sep 17 00:00:00 2001 From: h_vogt Date: Sat, 3 Dec 2016 00:45:17 +0100 Subject: [PATCH] command.c, inpcom.c, add command 'setcf': like command 'set', but keeping upper or lower case of subsequent characters --- src/frontend/commands.c | 10 ++++++++-- src/frontend/inpcom.c | 3 ++- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/src/frontend/commands.c b/src/frontend/commands.c index d75beb80d..e3d5761e0 100644 --- a/src/frontend/commands.c +++ b/src/frontend/commands.c @@ -127,7 +127,10 @@ struct comm spcp_coms[] = { { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS, arg_set, "[option] [option = value] ... : Set a variable." } , - + { "setcf", com_set, FALSE, TRUE, + { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS, + arg_set, + "[option] [option = value] ... : Set a variable, case remains as given." } , /* support for altering options in interactive mode, using either command 'option' or 'options'*/ @@ -630,7 +633,10 @@ struct comm nutcp_coms[] = { { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS, arg_set, "[option] [option = value] ... : Set a variable." } , - + { "setcf", com_set, FALSE, TRUE, + { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS, + arg_set, + "[option] [option = value] ... : Set a variable, case remains as given." } , #ifdef EXPERIMENTAL_CODE /* PN support for altering options in interactive mode */ { "option", com_option, TRUE, TRUE, diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c index c5ba8ee00..42fe46d59 100644 --- a/src/frontend/inpcom.c +++ b/src/frontend/inpcom.c @@ -917,7 +917,8 @@ inp_read(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile) !ciprefix("source", buffer) && !ciprefix("load", buffer) && !ciprefix("plot", buffer) && - !ciprefix("hardcopy", buffer) + !ciprefix("hardcopy", buffer) && + !ciprefix("setcf", buffer) ) { /* lower case for all other lines */