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

.mzschemerc -> .racketrc, etc.

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-26 14:40:37 -06:00
parent db2ed4cef3
commit b3e0a784e4
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/gracket/wxs/wxscheme.cxx
View File

@ -2514,10 +2514,10 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv)
if (which == id_init_file) if (which == id_init_file)
return append_path(home, return append_path(home,
scheme_make_path("/.mredrc" + ends_in_slash)); scheme_make_path("/.gracketrc" + ends_in_slash));
if (which == id_setup_file) if (which == id_setup_file)
return append_path(home, return append_path(home,
scheme_make_path("/.mred.resources" + ends_in_slash)); scheme_make_path("/.gracket.resources" + ends_in_slash));
if (which == id_x_display) { if (which == id_x_display) {
# if defined(wx_x) # if defined(wx_x)
@ -2541,10 +2541,10 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv)
if (which == id_init_file) if (which == id_init_file)
return append_path(home, return append_path(home,
scheme_make_path("\\mredrc.ss" + ends_in_slash)); scheme_make_path("\\gracketrc.rkt" + ends_in_slash));
if (which == id_setup_file) if (which == id_setup_file)
return append_path(home, return append_path(home,
scheme_make_path("\\mred.ini" + ends_in_slash)); scheme_make_path("\\gracket.ini" + ends_in_slash));
if (which == id_x_display) if (which == id_x_display)
return scheme_false; return scheme_false;
@ -2584,10 +2584,10 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv)
if (which == id_init_file) if (which == id_init_file)
return append_path(home, return append_path(home,
scheme_make_path(":mredrc.ss" + ends_in_colon)); scheme_make_path(":gracketrc.rkt" + ends_in_colon));
if (which == id_setup_file) if (which == id_setup_file)
return append_path(home, return append_path(home,
scheme_make_path(":mred.fnt" + ends_in_colon)); scheme_make_path(":gracket.fnt" + ends_in_colon));
#endif #endif
return scheme_void; return scheme_void;
@ -2778,9 +2778,9 @@ int wxGetPreference(const char *name, char *res, long len)
if (!ends_in_slash) if (!ends_in_slash)
s[l++] = '/'; s[l++] = '/';
# ifdef wx_mac # ifdef wx_mac
memcpy(s + l, "org.plt-scheme.prefs.ss", 24); memcpy(s + l, "org.racket-lang.prefs.rkt", 24);
# else # else
memcpy(s + l, "plt-prefs.ss", 13); memcpy(s + l, "racket-prefs.rkt", 13);
# endif # endif
#endif #endif
@ -2796,7 +2796,7 @@ int wxGetPreference(const char *name, char *res, long len)
memcpy(s, home, l); memcpy(s, home, l);
if (!ends_in_slash) if (!ends_in_slash)
s[l++] = '\\'; s[l++] = '\\';
memcpy(s + l, "plt-prefs.ss", 13); memcpy(s + l, "racket-prefs.rkt", 13);
#endif #endif
/*************** Mac OS Classic ***************/ /*************** Mac OS Classic ***************/
@ -2825,7 +2825,7 @@ int wxGetPreference(const char *name, char *res, long len)
memcpy(s, home, l); memcpy(s, home, l);
if (!ends_in_slash) if (!ends_in_slash)
s[l++] = ':'; s[l++] = ':';
memcpy(s + l, "org.plt-scheme.prefs.ss", 24); memcpy(s + l, "org.racket-lang.prefs.rkt", 24);
} }
#endif #endif

20
src/racket/src/file.c
View File

@ -5708,7 +5708,7 @@ enum {
Scheme_Object *scheme_get_run_cmd(void) Scheme_Object *scheme_get_run_cmd(void)
{ {
if (!run_cmd) { if (!run_cmd) {
return scheme_make_path("mzscheme"); return scheme_make_path("racket");
} }
return run_cmd; return run_cmd;
} }
@ -5738,7 +5738,7 @@ find_system_path(int argc, Scheme_Object **argv)
which = id_sys_dir; which = id_sys_dir;
else if (argv[0] == exec_file_symbol) { else if (argv[0] == exec_file_symbol) {
if (!exec_cmd) { if (!exec_cmd) {
return scheme_make_path("mzscheme"); return scheme_make_path("racket");
} }
return exec_cmd; return exec_cmd;
} else if (argv[0] == run_file_symbol) { } else if (argv[0] == run_file_symbol) {
@ -5798,11 +5798,11 @@ find_system_path(int argc, Scheme_Object **argv)
|| (which == id_addon_dir)) { || (which == id_addon_dir)) {
#if defined(OS_X) && !defined(XONX) #if defined(OS_X) && !defined(XONX)
if (which == id_addon_dir) if (which == id_addon_dir)
home_str = "~/Library/PLT Scheme/"; home_str = "~/Library/Racket/";
else else
home_str = "~/Library/Preferences/"; home_str = "~/Library/Preferences/";
#else #else
home_str = "~/.plt-scheme/"; home_str = "~/.racket/";
#endif #endif
} else { } else {
#if defined(OS_X) && !defined(XONX) #if defined(OS_X) && !defined(XONX)
@ -5836,12 +5836,12 @@ find_system_path(int argc, Scheme_Object **argv)
ends_in_slash = (SCHEME_PATH_VAL(home))[SCHEME_PATH_LEN(home) - 1] == '/'; ends_in_slash = (SCHEME_PATH_VAL(home))[SCHEME_PATH_LEN(home) - 1] == '/';
if (which == id_init_file) if (which == id_init_file)
return append_path(home, scheme_make_path("/.mzschemerc" + ends_in_slash)); return append_path(home, scheme_make_path("/.racketrc" + ends_in_slash));
if (which == id_pref_file) { if (which == id_pref_file) {
#if defined(OS_X) && !defined(XONX) #if defined(OS_X) && !defined(XONX)
return append_path(home, scheme_make_path("/org.plt-scheme.prefs.ss" + ends_in_slash)); return append_path(home, scheme_make_path("/org.racket-lang.prefs.rkt" + ends_in_slash));
#else #else
return append_path(home, scheme_make_path("/plt-prefs.ss" + ends_in_slash)); return append_path(home, scheme_make_path("/racket-prefs.rkt" + ends_in_slash));
#endif #endif
} }
} }
@ -5977,14 +5977,14 @@ find_system_path(int argc, Scheme_Object **argv)
if ((which == id_addon_dir) if ((which == id_addon_dir)
|| (which == id_pref_dir) || (which == id_pref_dir)
|| (which == id_pref_file)) { || (which == id_pref_file)) {
home = append_path(home, scheme_make_path("\\PLT Scheme" + ends_in_slash)); home = append_path(home, scheme_make_path("\\Racket" + ends_in_slash));
ends_in_slash = 0; ends_in_slash = 0;
} }
if (which == id_init_file) if (which == id_init_file)
return append_path(home, scheme_make_path("\\mzschemerc.ss" + ends_in_slash)); return append_path(home, scheme_make_path("\\racketrc.rkt" + ends_in_slash));
if (which == id_pref_file) if (which == id_pref_file)
return append_path(home, scheme_make_path("\\plt-prefs.ss" + ends_in_slash)); return append_path(home, scheme_make_path("\\racket-prefs.rkt" + ends_in_slash));
return home; return home;
} }
#endif #endif