Added a string _low_program_name( program p ), used for debugging of pike...

Added a string _low_program_name( program p ), used for debugging of pike source to .o file dumping. Could be useful for other things as well, though.

Rev: src/modules/spider/spider.c:1.89

src/modules/spider/spider.c

@@ -43,7 +43,7 @@
 #include "threads.h"
 #include "operators.h"
 
-RCSID("$Id: spider.c,v 1.88 1999/12/14 23:54:00 mast Exp $");
+RCSID("$Id: spider.c,v 1.89 2000/02/16 04:00:18 per Exp $");
 
 #ifdef HAVE_PWD_H
 #include <pwd.h>
@@ -1083,6 +1083,15 @@ static void program_name(struct program *p)
   f_add( 3 );
 }
 
+void f__low_program_name( INT32 args )
+{
+  struct program *p;
+  get_all_args( "_low_program_name", args, "%p", &p );
+  program_name( p );
+  stack_swap();
+  pop_stack();
+}
+
 void f__dump_obj_table(INT32 args)
 {
   struct object *o;
@@ -1264,6 +1273,7 @@ void pike_module_init(void)
   /* function(object,object,function,mixed,int:void) */
   ADD_FUNCTION("shuffle", f_shuffle,tFunc(tObj tObj tFunction tMix tInt,tVoid), 0);
 #endif
+  ADD_EFUN("_low_program_name", f__low_program_name,tFunc(tProgram,tStr),0);
 
 /* function(string:string) */
   ADD_EFUN("http_decode_string",f_http_decode_string,tFunc(tStr,tStr),
@@ -1402,4 +1412,3 @@ void pike_module_exit(void)
 
   exit_xml();
 }
-