suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Linux: set OS process name to match -N argument or argv[0]

Browse Source
This commit is contained in:
Matthew Flatt 2011-03-29 10:55:26 -06:00
parent 113e0aa184
commit 1788703a42
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/cmdline.inc
View File

@ -1171,6 +1171,9 @@ static int run_from_cmd_line(int argc, char *_argv[],
sprog = prog; sprog = prog;
(void)scheme_set_run_cmd(sprog); (void)scheme_set_run_cmd(sprog);
#ifdef CAN_SET_OS_PROCESS_NAME
set_os_process_name(sprog);
#endif
if (no_compiled) if (no_compiled)
scheme_set_compiled_file_paths(scheme_make_null()); scheme_set_compiled_file_paths(scheme_make_null());

19
src/racket/main.c
View File

@ -152,6 +152,25 @@ extern Scheme_Object *scheme_initialize(Scheme_Env *env);
#define BANNER scheme_banner() #define BANNER scheme_banner()
/*========================================================================*/
/* OS process name */
/*========================================================================*/
#if defined(linux)
# include <sys/prctl.h>
# ifdef PR_SET_NAME
# define CAN_SET_OS_PROCESS_NAME 1
void set_os_process_name(char *sprog)
{
int i = strlen(sprog) - 1;
while (i && (sprog[i - 1] != '/')) {
--i;
}
prctl(PR_SET_NAME, sprog + i);
}
# endif
#endif
/*========================================================================*/ /*========================================================================*/
/* command-line parsing */ /* command-line parsing */
/*========================================================================*/ /*========================================================================*/