From 2ea8261c3822862a985afc278b6ec807fd7b1634 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Tue, 12 May 1998 01:25:21 +0200
Subject: [PATCH] New option --show-paths that prints current paths and master
file.
Rev: lib/master.pike.in:1.27
---
lib/master.pike.in | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/lib/master.pike.in b/lib/master.pike.in
index bd35245afa..c1a2219134 100644
--- a/lib/master.pike.in
+++ b/lib/master.pike.in
@@ -1,4 +1,4 @@
-/* $Id: master.pike.in,v 1.26 1998/05/11 21:04:47 grubba Exp $
+/* $Id: master.pike.in,v 1.27 1998/05/11 23:25:21 mast Exp $
*
* Master-file for Pike.
*
@@ -592,6 +592,7 @@ void _main(string *orig_argv, string *env)
({"modpath",tmp->HAS_ARG,({"-M","--module-path"})}),
({"ipath",tmp->HAS_ARG,({"-I","--include-path"})}),
({"ppath",tmp->HAS_ARG,({"-P","--program-path"})}),
+ ({"showpaths",tmp->NO_ARG,"--show-paths"}),
({"warnings",tmp->NO_ARG,({"-w","--warnings"})}),
({"master",tmp->HAS_ARG,"-m"}),
({"compiler_trace",tmp->NO_ARG,"--compiler-trace"}),
@@ -662,12 +663,23 @@ void _main(string *orig_argv, string *env)
" -e --execute=<cmd> : Run the given command instead of a script.\n"
" -h --help : see this message\n"
" -v --version : See what version of pike you have.\n"
+ " --show-paths : See the paths and master that pike uses.\n"
" -s# : Set stack size\n"
" -m <file> : Use <file> as master object.\n"
" -d -d# : Increase debug (# is how much)\n"
" -t -t# : Increase trace level\n"
);
exit(0);
+
+ case "showpaths":
+ werror("Include path : " + pike_include_path*"\n"
+ " " + "\n"
+ "Module path : " + pike_module_path*"\n"
+ " " + "\n"
+ "Program path : " + pike_program_path*"\n"
+ " " + "\n"
+ "Master file : " + _master_file_name + "\n");
+ exit(0);
case "execute":
compile_string("#include <simulate.h>\nmixed create(){"+opts[1]+";}")();
--
GitLab