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

simplify [g]racket startup banner

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-15 22:15:43 -04:00
parent 03099f4aa2
commit 840ea4f4f5
4 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/repl.ss
View File

@ -50,11 +50,15 @@
(super-init)
(let ([s (last-position)]
[m (regexp-match #rx"^(.*), (Copyright.*)$" (banner))])
(insert (format "~a." (cadr m)))
(insert (if m
(format "~a." (cadr m))
(let ([b (banner)])
(substring b 0 (sub1 (string-length b))))))
(let ([e (last-position)])
(insert #\newline)
(change-style (send (make-object wx:style-delta% 'change-bold) set-delta-foreground "BLUE") s e))
(output (caddr m)))
(when m
(output (caddr m))))
(insert "This is a simple window for evaluating Racket expressions.") (insert #\newline)
(let ([s (last-position)])
(insert "Quit now and run DrRacket to get a better window.")

4
src/mred/mred.cxx
View File

@ -2960,11 +2960,11 @@ void wxDoMainLoop()
static Scheme_Env *setup_basic_env()
{
scheme_set_banner(BANNER);
wxREGGLOB(global_env);
global_env = scheme_basic_env();
scheme_set_banner(BANNER);
#ifdef DANGER_ALARM
{
DangerThreadTimer *t = new WXGC_PTRS DangerThreadTimer();

5
src/mred/mred.h
View File

@ -179,7 +179,8 @@ MRED_EXTERN void mred_set_run_from_cmd_line(MrEd_Run_From_Cmd_Line_Proc);
# include "../mzscheme/src/schvers.h"
#ifdef MZ_PRECISE_GC
# define mrVERSION_SUFFIX " [3m]"
/* don't print " [3m]", which is the default: */
# define mrVERSION_SUFFIX ""
#else
# ifdef USE_SENORA_GC
# define mrVERSION_SUFFIX " [cgc~]"
@ -187,7 +188,7 @@ MRED_EXTERN void mred_set_run_from_cmd_line(MrEd_Run_From_Cmd_Line_Proc);
# define mrVERSION_SUFFIX " [cgc]"
# endif
#endif
#define BANNER "GRacket v" MZSCHEME_VERSION mrVERSION_SUFFIX ", Copyright (c) 2004-2010 PLT Scheme Inc.\n"
#define BANNER "Welcome to GRacket v" MZSCHEME_VERSION mrVERSION_SUFFIX ".\n"
#ifndef WCONSOLE_STDIO
# if defined(wx_msw)

7
src/mzscheme/src/string.c
View File

@ -1931,7 +1931,8 @@ char *scheme_version(void)
}
#ifdef MZ_PRECISE_GC
# define VERSION_SUFFIX " [3m]"
/* don't print " [3m]", which is the default: */
# define VERSION_SUFFIX ""
#else
# ifdef USE_SENORA_GC
# define VERSION_SUFFIX " [cgc~]"
@ -1945,9 +1946,9 @@ char *scheme_banner(void)
if (embedding_banner)
return embedding_banner;
else
return "Welcome to Racket"
return ("Welcome to Racket"
" v" MZSCHEME_VERSION VERSION_SUFFIX
", Copyright (c) 2004-2010 PLT Scheme Inc.\n";
".\n");
}
void scheme_set_banner(char *s)