github-mirror/chsrc
github-mirror/chsrc
2
0
Fork 0
mirror of https://github.com/RubyMetric/chsrc.git synced 2025-03-10 12:35:17 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update R output info

Browse Source 
[GitHub #76]
This commit is contained in:
Aoran Zeng 2024-11-22 00:52:53 +08:00
parent f1a0a1d22f
commit 7379a7c0f3
No known key found for this signature in database
GPG Key ID: 8F8BA8488E10ED98
3 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/framework/core.c
View File

@ -88,7 +88,15 @@ void
chsrc_note2 (const char* str)
{
char *msg = CliOpt_InEnglish ? "NOTE" : "提示";
xy_log_brkt (yellow (App_Name), bdyellow (msg), yellow (str));
xy_log_brkt (yellow(App_Name), bdyellow(msg), yellow(str));
}
void
chsrc_log_write (const char *file)
{
char *msg = CliOpt_InEnglish ? "WRITE" : "写入";
xy_log_brkt (blue(App_Name), bdblue(msg), blue(file));
}
#define YesMark "✓"

6
src/recipe/lang/Julia.c
View File

@ -48,10 +48,8 @@ pl_julia_setsrc (char *option)
const char *towrite = xy_strjoin (3, "ENV[\"JULIA_PKG_SERVER\"] = \"", source.url, "\"");
chsrc_append_to_file (towrite, PL_Julia_Config);
if (CliOpt_InEnglish)
chsrc_note2 ("Written to " PL_Julia_Config);
else
chsrc_note2 ("已写入 " PL_Julia_Config);
chsrc_log_write (PL_Julia_Config);
chsrc_conclude (&source, SetsrcType_Untested);
}

26
src/recipe/lang/R.c
View File

@ -4,7 +4,7 @@
* File Authors : Aoran Zeng <ccmywish@qq.com>
* Contributors : Nil Null <nil@null.org>
* Created On : <2023-09-21>
* Last Modified : <2024-08-15>
* Last Modified : <2024-11-22>
* ------------------------------------------------------------*/
/**
@ -27,6 +27,9 @@ pl_r_sources[] = {
def_sources_n(pl_r);
#define PL_R_Config_Windows "~/Documents/.Rprofile"
#define PL_R_Config_POSIX "~/.Rprofile"
void
pl_r_getsrc (char *option)
{
@ -38,11 +41,11 @@ pl_r_getsrc (char *option)
*/
if (xy_on_windows)
{
chsrc_view_file ("~/Documents/.Rprofile");
chsrc_view_file (PL_R_Config_Windows);
}
else
{
chsrc_view_file ("~/.Rprofile");
chsrc_view_file (PL_R_Config_POSIX);
}
}
@ -61,16 +64,13 @@ pl_r_setsrc (char *option)
const char *towrite2 = xy_strjoin (3, "options(BioC_mirror=\"", bioconductor_url, "\")" );
// 或者我们调用 r.exe --slave -e 上面的内容
if (xy_on_windows)
{
chsrc_append_to_file (towrite1, "~/Documents/.Rprofile");
chsrc_append_to_file (towrite2, "~/Documents/.Rprofile");
}
else
{
chsrc_append_to_file (towrite1, "~/.Rprofile");
chsrc_append_to_file (towrite2, "~/.Rprofile");
}
char *config = xy_on_windows ? PL_R_Config_Windows : PL_R_Config_POSIX;
chsrc_append_to_file (towrite1, config);
chsrc_append_to_file (towrite2, config);
chsrc_log_write (config);
chsrc_conclude (&source, SetsrcType_Auto);
}