From bfa62b9f614551d4a90b3726f0a9411f8abd18cb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
 <grubba@grubba.org>
Date: Thu, 30 Apr 1998 17:29:49 +0200
Subject: [PATCH] Added _pike_file_name.

Rev: lib/master.pike.in:1.25
---
 lib/master.pike.in | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/master.pike.in b/lib/master.pike.in
index 08e13f8448..7eaabdd8fc 100644
--- a/lib/master.pike.in
+++ b/lib/master.pike.in
@@ -1,4 +1,4 @@
-/* $Id: master.pike.in,v 1.24 1998/04/29 16:00:57 grubba Exp $
+/* $Id: master.pike.in,v 1.25 1998/04/30 15:29:49 grubba Exp $
  * 
  * Master-file for Pike.
  *
@@ -532,6 +532,9 @@ mixed resolv(string identifier, string|void current_file)
   return UNDEFINED;
 }
 
+// These are useful if you want to start other Pike processes
+// with the same options as this one was started with.
+string _pike_file_name;
 string _master_file_name;
 
 /* This function is called when all the driver is done with all setup
@@ -549,6 +552,8 @@ void _main(string *orig_argv, string *env)
   string a,b;
   mixed *q;
 
+  _pike_file_name = orig_argv[0];
+
   foreach(env,a) if(sscanf(a,"%s=%s",a,b)) environment[a]=b;
 
   // add path for architecture-shared files
-- 
GitLab