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

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

@ -5708,7 +5708,7 @@ enum {
Scheme_Object *scheme_get_run_cmd(void)
{
if (!run_cmd) {
return scheme_make_path("mzscheme");
return scheme_make_path("racket");
}
return run_cmd;
}
@ -5738,7 +5738,7 @@ find_system_path(int argc, Scheme_Object **argv)
which = id_sys_dir;
else if (argv[0] == exec_file_symbol) {
if (!exec_cmd) {
return scheme_make_path("mzscheme");
return scheme_make_path("racket");
}
return exec_cmd;
} else if (argv[0] == run_file_symbol) {
@ -5798,11 +5798,11 @@ find_system_path(int argc, Scheme_Object **argv)
|| (which == id_addon_dir)) {
#if defined(OS_X) && !defined(XONX)
if (which == id_addon_dir)
home_str = "~/Library/PLT Scheme/";
home_str = "~/Library/Racket/";
else
home_str = "~/Library/Preferences/";
#else
home_str = "~/.plt-scheme/";
home_str = "~/.racket/";
#endif
} else {
#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] == '/';
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 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
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
}
}
@ -5977,14 +5977,14 @@ find_system_path(int argc, Scheme_Object **argv)
if ((which == id_addon_dir)
|| (which == id_pref_dir)
|| (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;
}
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)
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;
}
#endif