github-mirror/chsrc
2
0
Fork 0
mirror of https://github.com/RubyMetric/chsrc.git synced 2024-11-23 13:39:47 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add basic support for ocaml

Browse Source
This commit is contained in:
Aoran Zeng 2023-09-15 12:20:45 +08:00
parent ba38592868
commit b23fda5463
1 changed files with 54 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
chsrc.c
View File

@ -3,7 +3,7 @@
* License : GPLv3
* Authors : Aoran Zeng <ccmywish@qq.com>
* Created on : <2023-08-28>
* Last modified : <2023-09-14>
* Last modified : <2023-09-15>
*
* chsrc:
*
@ -14,7 +14,7 @@
#include "chsrc.h"
#define Chsrc_Version "v0.1.0-20230914.pre"
#define Chsrc_Version "v0.1.0-20230915.pre"
/**
@ -846,6 +846,58 @@ pl_haskell_setsrc(char* option)
void
pl_ocaml_check_cmd_()
{
char* check_cmd = xy_str_to_quietcmd("opam --version");
bool exist = does_the_program_exist (check_cmd, "opam");
if (!exist) {
xy_error ("chsrc: 未找到 opam 命令，请检查是否存在");
exit(1);
}
}
void
pl_ocaml_getsrc(char* option)
{
pl_ocaml_check_cmd_();
char* cmd = "opam repo get-url default";
chsrc_runcmd(cmd);
}
/**
* 参考: https://mirrors.sjtug.sjtu.edu.cn/docs/git/opam-repository.git
*/
void
pl_ocaml_setsrc(char* option)
{
pl_ocaml_check_cmd_();
int index = 0;
if (NULL!=option) {
index = lets_find_mirror(pl_ocaml, option);
} else {
index = lets_test_speed(pl_ocaml);
}
source_info source = pl_ocaml_sources[index];
chsrc_say_selection (&source);
char* cmd = xy_strjoin("opam repo set-url default ",
source.url
" --all --set-default";
chsrc_runcmd(cmd);
xy_info("chsrc: 如果是首次使用 opam ，请使用以下命令进行初始化")
puts(xy_2strjoin("opam init default ", source.url);)
chsrc_say_thanks (&source);
}
void
pl_r_getsrc (char* option)
{