From 91fb2910f7cae2ebb36de0b871bc3b2e3f7a74eb Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 16 Jun 2021 06:41:36 -0700 Subject: listener: new --noprofile option. * parser.c (repl): Set the rcfile variable to nil if opt_noprofile is true, to suppress reading it. * txr.c (op_noprofile): New global variable. (help): Add help text. (txr_main): Recognize noprofile option and set variable. * txr.h (opt_noprofile): Declared. * txr.1: Documented. --- parser.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'parser.c') diff --git a/parser.c b/parser.c index a6aaf096..bc01c2bf 100644 --- a/parser.c +++ b/parser.c @@ -1470,7 +1470,7 @@ val repl(val bindings, val in_stream, val out_stream, val env) val home = if3(repl_level == 1, get_home_path(), nil); val histfile = if2(home, scat2(home, lit("/.txr_history"))); const wchar_t *histfile_w = if3(home, c_str(histfile), NULL); - val rcfile = if2(home, scat2(home, lit("/.txr_profile"))); + val rcfile = if2(home && !opt_noprofile, scat2(home, lit("/.txr_profile"))); val old_sig_handler = set_sig_handler(num(SIGINT), func_n2(repl_intr)); val hist_len_var = lookup_global_var(listener_hist_len_s); val multi_line_var = lookup_global_var(listener_multi_line_p_s); -- cgit v1.2.3