chsrc/chsrc.c

/** ------------------------------------------------------------
 * File          : chsrc.c
 * License       : GPLv3
 * Authors       : Aoran Zeng <ccmywish@qq.com>
 * Created on    : <2023-08-28>
 * Last modified : <2023-09-27>
 *
 * chsrc:
 *
 *   Change Source —— 命令行换源工具
 *
 *   该软件为自由软件，采用 GPLv3 许可证，请查阅 LICENSE.txt 文件
 * ------------------------------------------------------------*/

#define Chsrc_Version "v0.1.2-20230927"

#include "chsrc.h"

void
pl_ruby_getsrc (char* option)
{
  char* cmd = "gem sources";
  chsrc_run(cmd);
  cmd = "bundle config get mirror.https://rubygems.org";
  chsrc_run(cmd);
}

/**
 * Ruby换源，参考：https://gitee.com/RubyMetric/rbenv-cn
 */
void
pl_ruby_setsrc (char* option)
{
  int index = 0;
  char* check_cmd = xy_str_to_quietcmd("gem -v");
  bool exist = does_the_program_exist (check_cmd, "gem");
  if (!exist) {
    chsrc_error ("未找到 gem 命令，请检查是否存在");
    return;
  }

  index = use_specific_mirror_or_auto_select (option, pl_ruby);

  source_info source = pl_ruby_sources[index];
  chsrc_say_selection (&source);

  char* cmd = NULL;

  FILE* fp = popen("gem sources -l", "r");
  char buf[512] = {0};
  while(NULL!=fgets(buf, 512, fp)) {
    if (xy_str_start_with(buf, "http")){
      cmd = xy_str_delete_suffix(buf, "\n");
      cmd = xy_2strjoin("gem sources -r ", cmd);
      chsrc_run(cmd);
    }
    memset(buf, 0, 512);
  }
  pclose(fp);

  cmd = xy_2strjoin("gem source -a ", source.url);
  chsrc_run(cmd);

  check_cmd = xy_str_to_quietcmd("bundle -v");
  exist = does_the_program_exist (check_cmd, "bundle");
  if (!exist) {
    chsrc_error ("未找到 bundle 命令，请检查是否存在");
    return;
  }

  cmd = xy_2strjoin("bundle config 'mirror.https://rubygems.org' ", source.url);
  chsrc_run(cmd);

  chsrc_say_thanks(&source);
  puts("");
  chsrc_warn("维护者提醒您: Ruby的镜像源目前仅有腾讯和RubyChina实现正确");
  chsrc_warn("而其它如Tuna,Bfsu,Ali目前都实现的有问题，请勿使用");
}



/**
 * @param[out] prog 返回 Python 的可用名，如果不可用，则返回 NULL
 */
void
pl_python_check_cmd_ (char** prog)
{
  *prog = NULL;
  // 不要调用 python 自己，而是使用 python --version，避免Windows弹出Microsoft Store
  char* check_cmd = xy_str_to_quietcmd("python --version");
  bool exist = does_the_program_exist (check_cmd, "python");

  if (!exist) {
    check_cmd = xy_str_to_quietcmd("python3 --version");
    exist = does_the_program_exist (check_cmd, "python3");
    if (exist) *prog = "python3";
  }
  else {
    *prog = "python";
  }

  if (!exist) {
    chsrc_error ("未找到 Python 相关命令，请检查是否存在");
    exit(1);
  }
}

void
pl_python_getsrc (char* option)
{
  char* prog = NULL;
  pl_python_check_cmd_ (&prog);
  char* cmd = xy_2strjoin(prog, " -m pip config get global.index-url");
  chsrc_run(cmd);
}

/**
 * Python换源，参考：https://mirrors.tuna.tsinghua.edu.cn/help/pypi/
 *
 * 经测试，Windows上调用换源命令，会写入 C:\Users\RubyMetric\AppData\Roaming\pip\pip.ini
 */
void
pl_python_setsrc (char* option)
{
  int index = 0;
  char* prog = NULL;
  pl_python_check_cmd_ (&prog);

  index = use_specific_mirror_or_auto_select (option, pl_python);

  source_info source = pl_python_sources[index];
  chsrc_say_selection(&source);

  char* cmd = xy_2strjoin(prog, xy_2strjoin(" -m pip config set global.index-url ", source.url));
  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



void
pl_nodejs_check_cmd_ (bool* npm_exist, bool* yarn_exist)
{
  char* check_cmd = xy_str_to_quietcmd("npm -v");
  *npm_exist = does_the_program_exist (check_cmd, "npm");

  check_cmd = xy_str_to_quietcmd("yarn -v");
  *yarn_exist = does_the_program_exist (check_cmd, "yarn");

  if (!*npm_exist && !*yarn_exist) {
    chsrc_error ("未找到 npm 或 yarn 命令，请检查是否存在其一");
    exit(1);
  }
}


void
pl_nodejs_getsrc (char* option)
{
  bool npm_exist, yarn_exist;
  pl_nodejs_check_cmd_ (&npm_exist, &yarn_exist);

  if (npm_exist)
  {
    char* cmd = "npm config get registry";
    chsrc_run(cmd);
  }
  if (yarn_exist)
  {
    char* cmd = "yarn config get registry";
    chsrc_run(cmd);
  }
}

/**
 * NodeJS换源，参考：https://npmmirror.com/
 */
void
pl_nodejs_setsrc (char* option)
{
  bool npm_exist, yarn_exist;
  pl_nodejs_check_cmd_ (&npm_exist, &yarn_exist);

  int index = 0;

  index = use_specific_mirror_or_auto_select (option, pl_nodejs);

  source_info source = pl_nodejs_sources[index];
  chsrc_say_selection (&source);

  if (npm_exist)
  {
    char* cmd = xy_2strjoin("npm config set registry ", source.url);
    chsrc_run(cmd);
  }

  if (yarn_exist)
  {
    char* cmd = xy_str_to_quietcmd(xy_2strjoin("yarn config set registry ", source.url));
    chsrc_run(cmd);
  }
  chsrc_say_thanks(&source);
}



void
pl_perl_check_cmd_ ()
{
  char* check_cmd = xy_str_to_quietcmd("perl --version");
  bool exist = does_the_program_exist (check_cmd, "perl");

  if (!exist) {
    chsrc_error ("未找到 perl 命令，请检查是否存在");
    exit(1);
  }
}

void
pl_perl_getsrc (char* option)
{
  pl_perl_check_cmd_ ();
  // @ccmywish: 注意，prettyprint 仅仅是一个内部实现，可能不稳定，如果需要更稳定的，
  //            可以使用 CPAN::Shell->o('conf', 'urllist');
  //            另外，上述两种方法无论哪种，都要首先load()
  char* cmd = "perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->prettyprint('urllist')\" ";
  chsrc_run(cmd);
}

/**
 * Perl换源，参考：https://help.mirrors.cernet.edu.cn/CPAN/
 */
void
pl_perl_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_perl);

  source_info source = pl_perl_sources[index];
  chsrc_say_selection (&source);

  char* cmd = xy_strjoin(3,
  "perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->edit('urllist', 'unshift', '", source.url, "'); CPAN::HandleConfig->commit()\"");
  chsrc_run(cmd);

  chsrc_warn ("请您使用 perl -v 以及 cpan -v，若 Perl >= v5.36 或 CPAN >= 2.29，请额外手动调用下面的命令");
  puts("perl -MCPAN -e \"CPAN::HandleConfig->load(); CPAN::HandleConfig->edit('pushy_https', 0);; CPAN::HandleConfig->commit()\"");
  chsrc_say_thanks(&source);
}



void
pl_php_check_cmd_()
{
  char* check_cmd = xy_str_to_quietcmd("composer --version");
  bool exist = does_the_program_exist (check_cmd, "composer");

  if (!exist) {
    chsrc_error ("未找到 composer 命令，请检查是否存在");
    exit(1);
  }
}

/**
 * 已在Windows上测试通过，待其他平台PHP用户确认
 */
void
pl_php_getsrc (char* option)
{
  pl_php_check_cmd_ ();
  char* cmd = "composer config -g repositories";
  chsrc_run(cmd);
}

/**
 * PHP 换源，参考：https://developer.aliyun.com/composer
 */
void
pl_php_setsrc (char* option)
{
  pl_php_check_cmd_();

  int index = use_specific_mirror_or_auto_select (option, pl_php);

  source_info source = pl_php_sources[index];
  chsrc_say_selection (&source);

  char* cmd = xy_2strjoin("composer config -g repo.packagist composer ", source.url);
  chsrc_run(cmd);

  chsrc_say_thanks(&source);
}


void
pl_lua_getsrc (char* option)
{
  chsrc_check_file ("~/.luarocks/config.lua");
  chsrc_check_file ("~/.luarocks/upload_config.lua");
}

/**
 * Lua 换源，参考：https://luarocks.cn/
 */
void
pl_lua_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_lua);

  source_info source = pl_lua_sources[index];
  chsrc_say_selection (&source);

  char* config = xy_strjoin(3, "rocks_servers = {\n"
                               "  \"", source.url, "\"\n"
                               "}");

  chsrc_info ("请手动修改 ~/.luarocks/config.lua 文件 (用于下载):");
  puts(config);

  char* upload_config = xy_strjoin(3, "key = \"<Your API Key>\"\n"
                                      "server = \"", source.url, "\"");

  chsrc_info ("请手动修改  ~/.luarocks/upload_config.lua 文件 (用于上传):");
  puts(upload_config);

  chsrc_say_thanks(&source);
}



void
pl_go_check_cmd_ ()
{
  char* check_cmd = xy_str_to_quietcmd("go version");
  bool exist = does_the_program_exist (check_cmd, "go");

  if (!exist) {
    chsrc_error ("未找到 go 相关命令，请检查是否存在");
    exit(1);
  }
}

void
pl_go_getsrc (char* option)
{
  pl_go_check_cmd_ ();
  char* cmd = "go env GOPROXY";
  chsrc_run(cmd);
}

/**
 * Go换源，参考：https://goproxy.cn/
 */
void
pl_go_setsrc (char* option)
{
  pl_go_check_cmd_();

  int index = use_specific_mirror_or_auto_select (option, pl_go);

  source_info source = pl_go_sources[index];
  chsrc_say_selection (&source);

  char* cmd = "go env -w GO111MODULE=on";
  chsrc_run(cmd);

  cmd = xy_strjoin(3, "go env -w GOPROXY=", source.url, ",direct");
  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



void
pl_rust_getsrc (char* option)
{
  chsrc_check_file ("~/.cargo");
}

/**
 * Rust 换源，参考：https://mirrors.tuna.tsinghua.edu.cn/help/crates.io-index/
 */
void
pl_rust_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_rust);

  source_info source = pl_rust_sources[index];
  chsrc_say_selection(&source);

  const char* file = xy_strjoin (3,
    "[source.crates-io]\n"
    "replace-with = 'mirror'\n\n"

    "[source.mirror]\n"
    "registry = \"sparse+", source.url, "\"");

  chsrc_warn (xy_strjoin(3, "请您手动写入以下内容到 ", xy_uniform_path("~/.cargo"), " 文件中:"));
  puts(file);
  chsrc_say_thanks(&source);
}



void
pl_dotnet_getsrc (char* option)
{
  chsrc_error ("暂时无法查看NuGet源，若有需求，请您提交issue");
}

/**
 * NuGet 换源
 */
void
pl_dotnet_setsrc (char* option)
{
  chsrc_error ("暂时无法为NuGet换源，若有需求，请您提交issue");
}



void
pl_java_check_cmd_(bool* maven_exist, bool* gradle_exist)
{
  char* check_cmd = NULL;
  check_cmd    = xy_str_to_quietcmd("mvn --version");
  *maven_exist = does_the_program_exist (check_cmd, "mvn");

  check_cmd     = xy_str_to_quietcmd("gradle --version");
  *gradle_exist = does_the_program_exist (check_cmd, "gradle");

  if (! *maven_exist && ! *gradle_exist) {
    chsrc_error ("maven 与 gradle 命令均未找到，请检查是否存在其一");
    exit(1);
  }
}

char*
pl_java_find_maven_config_ ()
{
  FILE* fp = popen("mvn -v", "r");
  char buf[512];
  fgets(buf, 512, fp);
  memset(buf, 0, 512);
  fgets(buf, 512, fp);
  pclose(fp);
  char* maven_home = xy_str_delete_prefix(buf, "Maven home: ");
  // xy_info (buf);
  maven_home = xy_str_strip(maven_home);

  char* maven_config = xy_uniform_path(xy_2strjoin(maven_home, "/conf/settings.xml"));
  return maven_config;
}

void
pl_java_getsrc (char* option)
{
  bool maven_exist, gradle_exist;
  pl_java_check_cmd_ (&maven_exist, &gradle_exist);
  char* maven_config = pl_java_find_maven_config_();

  char* echo = xy_2strjoin("chsrc: 请查看 ", maven_config);
  xy_info (echo);
}

/**
 * Java 换源，参考：https://developer.aliyun.com/mirror/maven
 */
void
pl_java_setsrc (char* option)
{
  bool maven_exist, gradle_exist;
  pl_java_check_cmd_ (&maven_exist, &gradle_exist);

  int index = use_specific_mirror_or_auto_select (option, pl_java);

  source_info source = pl_java_sources[index];
  chsrc_say_selection(&source);

  if (maven_exist) {
    const char* file = xy_strjoin(7,
    "<mirror>\n"
    "  <id>", source.mirror->code, "</id>\n"
    "  <mirrorOf>*</mirrorOf>\n"
    "  <name>", source.mirror->name, "</name>\n"
    "  <url>", source.url, "</url>\n"
    "</mirror>");

    char* maven_config = pl_java_find_maven_config_();
    char* echo = xy_strjoin(3, "chsrc: 请在您的 maven 配置文件 ", maven_config, " 中添加:");
    xy_info(echo);
    puts (file);
  }

  if (gradle_exist) {
    if (maven_exist) puts("");
    const char* file = xy_strjoin(3,
    "allprojects {\n"
    "  repositories {\n"
    "    maven { url '", source.url, "' }\n"
    "    mavenLocal()\n"
    "    mavenCentral()\n"
    "  }\n"
    "}");

    chsrc_info ("请在您的 build.gradle 中添加:");
    puts (file);
  }
  chsrc_say_thanks(&source);
}



void
pl_clojure_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_clojure);

  source_info source = pl_clojure_sources[index];
  chsrc_say_selection (&source);

  chsrc_warn("抱歉，Clojure换源较复杂，您可手动查阅并换源:");
  puts(source.url);
  chsrc_say_thanks (&source);
}



void
pl_dart_getsrc(char* option)
{
  char* cmd = NULL;
  if (xy_on_windows) {
    cmd = "set PUB_HOSTED_URL & set FLUTTER_STORAGE_BASE_URL";
    chsrc_run(cmd);
  } else {
    cmd = "echo $PUB_HOSTED_URL; echo $FLUTTER_STORAGE_BASE_URL";
    chsrc_run(cmd);
  }
}

/**
 * Dart pub 换源，参考：https://mirrors.tuna.tsinghua.edu.cn/help/dart-pub/
 */
void
pl_dart_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_dart);

  source_info source = pl_dart_sources[index];
  chsrc_say_selection(&source);

  char* towrite = NULL;

  char* pub = xy_2strjoin(source.url, "dart-pub");
  char* flutter = xy_2strjoin(source.url, "flutter");

  if (xy_on_windows)
  {
    if (xy_file_exist(xy_win_powershell_profile))
    {
      towrite = xy_strjoin(4, "$env:PUB_HOSTED_URL = \"", pub, "\"");
      chsrc_append_to_file (towrite, xy_win_powershell_profile);

      towrite = xy_strjoin(4, "$env:FLUTTER_STORAGE_BASE_URL = \"", flutter, "\"");
      chsrc_append_to_file (towrite, xy_win_powershell_profile);
    }

    if (xy_file_exist(xy_win_powershellv5_profile))
    {
      towrite = xy_strjoin(4, "$env:PUB_HOSTED_URL = \"", pub, "\"");
      chsrc_append_to_file (towrite, xy_win_powershellv5_profile);

      towrite = xy_strjoin(4, "$env:FLUTTER_STORAGE_BASE_URL = \"", flutter, "\"");
      chsrc_append_to_file (towrite, xy_win_powershellv5_profile);
    }
  }

  else
  {
    towrite = xy_strjoin(3, "export PUB_HOSTED_URL=\"", pub, "\"");
    chsrc_append_to_file (towrite, "~/.bashrc >> ~/.zshrc");

    towrite = xy_strjoin(3, "export FLUTTER_STORAGE_BASE_URL=\"", flutter, "\"");
    chsrc_append_to_file (towrite, "~/.bashrc >> ~/.zshrc");
  }
  chsrc_say_thanks(&source);
}



void
pl_haskell_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_haskell);

  source_info source = pl_haskell_sources[index];
  chsrc_say_selection (&source);

  char* file = xy_strjoin(3, "repository mirror\n"
                             "  url: ", source.url,
                          "\n  secure: True");

  char* config = NULL;
  if (xy_on_windows) {
    config = xy_uniform_path ("~/AppData/Roaming/cabal/config");
  } else {
    config = "~/.cabal/config";
  }

  xy_info(xy_strjoin(3,"chsrc: 请向 ", config, " 中手动添加:"));
  puts(file); puts("");

  config = xy_uniform_path ("~/.stack/config.yaml");
  file = xy_strjoin(3, "package-indices:\n"
                       "  - download-prefix: ", source.url,
                     "\n    hackage-security:\n"
                       "        keyids:\n"
                       "        - 0a5c7ea47cd1b15f01f5f51a33adda7e655bc0f0b0615baa8e271f4c3351e21d\n"
                       "        - 1ea9ba32c526d1cc91ab5e5bd364ec5e9e8cb67179a471872f6e26f0ae773d42\n"
                       "        - 280b10153a522681163658cb49f632cde3f38d768b736ddbc901d99a1a772833\n"
                       "        - 2a96b1889dc221c17296fcc2bb34b908ca9734376f0f361660200935916ef201\n"
                       "        - 2c6c3627bd6c982990239487f1abd02e08a02e6cf16edb105a8012d444d870c3\n"
                       "        - 51f0161b906011b52c6613376b1ae937670da69322113a246a09f807c62f6921\n"
                       "        - 772e9f4c7db33d251d5c6e357199c819e569d130857dc225549b40845ff0890d\n"
                       "        - aa315286e6ad281ad61182235533c41e806e5a787e0b6d1e7eef3f09d137d2e9\n"
                       "        - fe331502606802feac15e514d9b9ea83fee8b6ffef71335479a2e68d84adc6b0\n"
                       "        key-threshold: 3\n"
                       "        ignore-expiry: no");
  xy_info(xy_strjoin(3,"chsrc: 请向 ", config, " 中手动添加:"));
  puts(file);
  chsrc_say_thanks (&source);
}



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) {
    chsrc_error ("未找到 opam 命令，请检查是否存在");
    exit(1);
  }
}

void
pl_ocaml_getsrc(char* option)
{
  pl_ocaml_check_cmd_();
  char* cmd = "opam repo get-url default";
  chsrc_run(cmd);
}

/**
 * 参考: https://mirrors.sjtug.sjtu.edu.cn/docs/git/opam-repository.git
 */
void
pl_ocaml_setsrc(char* option)
{
  pl_ocaml_check_cmd_();

  int index = use_specific_mirror_or_auto_select (option, pl_ocaml);

  source_info source = pl_ocaml_sources[index];
  chsrc_say_selection (&source);

  char* cmd = xy_strjoin(3, "opam repo set-url default ",
    source.url,
    " --all --set-default");

  chsrc_run(cmd);

  chsrc_info("如果是首次使用 opam ，请使用以下命令进行初始化");
  puts(xy_2strjoin("opam init default ", source.url));

  chsrc_say_thanks (&source);
}



void
pl_r_getsrc (char* option)
{
  // 或参考：https://zhuanlan.zhihu.com/p/585036231
  //
  // options()$repos
  // options()$BioC_mirror
  //
  if (xy_on_windows) {
    chsrc_check_file ("~/Documents/.Rprofile");
  } else {
    chsrc_check_file ("~/.Rprofile");
  }
}

/**
 * R 换源，参考：https://help.mirrors.cernet.edu.cn/CRAN/
 */
void
pl_r_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_r);

  source_info source = pl_r_sources[index];
  chsrc_say_selection(&source);

  char* bioconductor_url = xy_str_delete_suffix(xy_str_delete_suffix(source.url, "cran/"), "CRAN/");
  bioconductor_url = xy_2strjoin(bioconductor_url, "bioconductor");

  const char* towrite1 = xy_strjoin (3, "options(\"repos\" = c(CRAN=\"", source.url, "\"))" );
  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");
  }
  chsrc_say_thanks(&source);
}



/**
 * Julia的换源可以通过两种方式
 * 1. 写入 startup.jl
 * 2. 使用环境变量
 *
 * 我们采用第一种
 */
void
pl_julia_getsrc (char* option)
{
  chsrc_check_file ("~/.julia/config/startup.jl");
}

/**
 * Julia 换源，参考：
 * 1. https://help.mirrors.cernet.edu.cn/julia/
 * 2. https://docs.julialang.org/en/v1/manual/command-line-interface/#Startup-file
 */
void
pl_julia_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, pl_julia);

  source_info source = pl_julia_sources[index];
  chsrc_say_selection(&source);

  const char* towrite = xy_strjoin (3, "ENV[\"JULIA_PKG_SERVER\"] = \"", source.url, "\"");

  if (xy_on_windows) {
    chsrc_run (xy_str_to_quietcmd ("md %USERPROFILE%\\.julia\\config"));
  } else {
    chsrc_run (xy_str_to_quietcmd ("mkdir -p ~/.julia/config"));
  }
  chsrc_append_to_file (towrite, "~/.julia/config/startup.jl");

  chsrc_say_thanks(&source);
}







void
os_ubuntu_getsrc(char* option)
{
  chsrc_check_file ("/etc/apt/sources.list");
}

/**
 * @note 不同架构下换源不一样
 */
void
os_ubuntu_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_ubuntu);

  source_info source = os_ubuntu_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/apt/sources.list");

  char* arch = xy_getcmd("arch", NULL);
  char* cmd  = NULL;
  if (strncmp(arch, "x86_64", 6)==0)
  {
    cmd = xy_strjoin(3, "sed -E -i \'s@https?://.*/ubuntu/?@", source.url, "@g\' /etc/apt/sources.list");
  }
  else {
    cmd = xy_strjoin(3, "sed -E -i \'s@https?://.*/ubuntu-ports/?@", source.url,
                        "-ports@g\' /etc/apt/sources.list");
  }

  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



void
os_debian_getsrc(char* option)
{
  chsrc_check_file ("/etc/apt/sources.list");
}

/**
 * Debian Buster 以上版本默认支持 HTTPS 源。如果遇到无法拉取 HTTPS 源的情况，请先使用 HTTP 源并安装
 * sudo apt install apt-transport-https ca-certificates
 */
void
os_debian_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_debian);

  source_info source = os_debian_sources[index];
  chsrc_say_selection(&source);

  chsrc_info ("如果遇到无法拉取 HTTPS 源的情况，我们会使用 HTTP 源并需要您运行:");
  puts ("sudo apt install apt-transport-https ca-certificates");

  chsrc_backup ("/etc/apt/sources.list");

  char* cmd = xy_strjoin(3,
      "sed -E -i \'s@https?://.*/debian/?@",
      source.url,
      "@g\' /etc/apt/sources.list");

  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



void
os_deepin_getsrc(char* option)
{
  chsrc_check_file ("/etc/apt/sources.list");
}

/**
 * HELP: 未经测试
 */
void
os_deepin_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_deepin);

  source_info source = os_deepin_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/apt/sources.list");

  char* cmd = xy_strjoin(3,
      "sed -E -i \'s@https?://.*/deepin/?@",
      source.url,
      "@g\' /etc/apt/sources.list");

  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



/**
 * @note fedora 29 及以下版本暂不支持
 */
void
os_fedora_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_fedora);

  source_info source = os_fedora_sources[index];
  chsrc_say_selection(&source);

  xy_warn ("chsrc: fedora 29 及以下版本暂不支持");

  chsrc_backup ("/etc/yum.repos.d/fedora.repo");
  chsrc_backup ("/etc/yum.repos.d/fedora-updates.repo");

  char* cmd = xy_strjoin(9, "sed -e 's|^metalink=|#metalink=|g' ",
         "-e 's|^#baseurl=http://download.example/pub/fedora/linux/|baseurl=",
         source.url,
         "|g' ",
         "-i.bak ",
         "/etc/yum.repos.d/fedora.repo ",
         "/etc/yum.repos.d/fedora-modular.repo ",
         "/etc/yum.repos.d/fedora-updates.repo ",
         "/etc/yum.repos.d/fedora-updates-modular.repo");

  chsrc_run(cmd);

  chsrc_info ("替换文件:/etc/yum.repos.d/fedora.repo");
  chsrc_info ("新增文件:/etc/yum.repos.d/fedora-modular.repo");
  chsrc_info ("替换文件:/etc/yum.repos.d/fedora-updates.repo");
  chsrc_info ("新增文件:/etc/yum.repos.d/fedora-updates-modular.repo");

  chsrc_say_thanks(&source);
}



/**
 * HELP: 未经测试
 */
void
os_opensuse_setsrc (char* option)
{
  ensure_root(); // HELP: 不知道是否需要确保root权限

  int index = use_specific_mirror_or_auto_select (option, os_opensuse);

  source_info source = os_opensuse_sources[index];
  chsrc_say_selection(&source);

  char* source_nselect = "zypper mr -da";
  chsrc_run(source_nselect);

  char* cmd1 = xy_strjoin(3,
    "zypper ar -cfg '",
    source.url,
    "/opensuse/distribution/leap/$releasever/repo/oss/' mirror-oss");
  char* cmd2 = xy_strjoin(3,
    "zypper ar -cfg '",
    source.url,
    "/opensuse/distribution/leap/$releasever/repo/non-oss/' mirror-non-oss");
  char* cmd3 = xy_strjoin(3,
    "zypper ar -cfg '",
    source.url,
    "/opensuse/distribution/leap/$releasever/oss/' mirror-update");
  char* cmd4 = xy_strjoin(3,
    "zypper ar -cfg '",
    source.url,
    "/opensuse/distribution/leap/$releasever/non-oss/' mirror-update-non-oss");
  char* cmd5 = xy_strjoin(3,
    "zypper ar -cfg '",
    source.url,
    "/opensuse/distribution/leap/$releasever/sle/' mirror-sle-update");
  char* cmd6 = xy_strjoin(3,
    "zypper ar -cfg '",
    source.url,
    "/opensuse/distribution/leap/$releasever/backports/' mirror-backports-update");

  chsrc_run(cmd1);
  chsrc_run(cmd2);
  chsrc_run(cmd3);
  chsrc_run(cmd4);

  xy_info("chsrc: leap 15.3用户还需 要添加sle和backports源");
  xy_info("chsrc: 另外请确保系统在更新后仅启用了六个软件源，可以使用 zypper lr 检查软件源状态");
  xy_info("chsrc: 并使用 zypper mr -d 禁用多余的软件源");

  chsrc_run(cmd5);
  chsrc_run(cmd6);
  // char* rm = "rm -f /etc/apt/source.list.bak";
  // chsrc_runcmd(rm);
  chsrc_say_thanks(&source);
}


/**
 * HELP: 未经测试
 */
void
os_kali_setsrc(char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_kali);

  source_info source = os_kali_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/apt/sources.list");

  char* cmd = xy_strjoin(3,
      "sed -E -i \'s@https?://.*/kali/?@",
      source.url,
      "@g\' /etc/apt/sources.list");

  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



/**
 * HELP: 未经测试
 */
void
os_msys2_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, os_msys2);

  source_info source = os_msys2_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/pacman.d/mirrorlist.mingw32");
  chsrc_backup ("/etc/pacman.d/mirrorlist.mingw64");
  chsrc_backup ("/etc/pacman.d/mirrorlist.msys");

  char* prev = xy_strjoin(3, "chsrc: 请针对你的架构下载安装此目录下的文件:",
                              source.url,
                             "distrib/<架构>/");
  xy_info (prev);

  char* cmd = xy_strjoin(3, "sed -i \"s#https\?://mirror.msys2.org/#",
                             source.url,
                            "#g\" /etc/pacman.d/mirrorlist* ");

  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



/**
 * 参考: https://mirrors.tuna.tsinghua.edu.cn/help/archlinuxcn/
 */
void
os_arch_setsrc(char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_arch);

  source_info source = os_arch_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/pacman.d/mirrorlist");

  bool  arch_flag = false;
  char* new_file  = NULL;
  char* arch = xy_getcmd("arch", NULL);

  if (strncmp(arch, "x86_64", 6)==0) {
    arch_flag = true;
    new_file = xy_strjoin(3, "Server = ", source.url, "archlinux/$repo/os/$arch");
  }
  else {
    arch_flag = false;
    new_file = xy_strjoin(3, "Server = ", source.url, "archlinuxarm/$repo/os/$arch");
  }

  // TODO: 这里用的是 overwrite 吗？
  chsrc_overwrite_file (new_file, "/etc/pacman.d/mirrorlist");

  chsrc_info("使用 archlinuxcn");

  char* towrite = xy_strjoin(3, "[archlinuxcn]\nServer=", source.url, "archlinuxcn/$repo/os/$arch");
  chsrc_append_to_file (towrite, "/etc/pacman.d/mirrorlist");

  chsrc_run("pacman -Sy archlinux-keyring");

  if (arch_flag) {
    chsrc_run("pacman -Syyu");
  } else {
    chsrc_run("pacman -Syy");
  }
  chsrc_say_thanks(&source);
}



/**
 * HELP: 未经测试
 */
void
os_gentoo_setsrc(char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_gentoo);

  source_info source = os_arch_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/portage/repos.conf/gentoo.conf");

  char* cmd = xy_strjoin(3, "sed -i \"s#rsync://.*/gentoo-portage#rsync://",
                             source.url,
                            "gentoo-portage#g");
  chsrc_run(cmd);

  char* towrite = xy_strjoin(3, "GENTOO_MIRRORS=\"https://", source.url, "gentoo\"");

  chsrc_append_to_file (towrite, "/etc/portage/make.conf");
  chsrc_say_thanks(&source);
}



/**
 * 参考: https://help.mirrors.cernet.edu.cn/rocky/
 */
void
os_rocky_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_rocky);

  source_info source = os_rocky_sources[index];
  chsrc_say_selection(&source);

  char* cmd = xy_strjoin(3,
            "sudo sed -e 's|^mirrorlist=|#mirrorlist=|g' "
            "-e 's|^#baseurl=http://dl.rockylinux.org/$contentdir|baseurl=", source.url, "|g' "
            "-i.bak /etc/yum.repos.d/rocky-extras.repo /etc/yum.repos.d/rocky.repo"
            );
  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



/**
 * 参考: https://help.mirrors.cernet.edu.cn/alpine/
 */
void
os_alpine_setsrc (char* option)
{
  // ensure_root(); // HELP: 不确定是否需要root

  int index = use_specific_mirror_or_auto_select (option, os_alpine);

  source_info source = os_alpine_sources[index];
  chsrc_say_selection(&source);

  char* cmd = xy_strjoin(3,
            "sed -i 's#https\\?://dl-cdn.alpinelinux.org/alpine#", source.url, "#g' /etc/apk/repositories"
            );
  chsrc_run(cmd);

  cmd = "apk update";
  chsrc_run(cmd);

  chsrc_say_thanks(&source);
}



void
os_void_getsrc (char* option)
{
  char* cmd = "xbps-query -L";
  chsrc_run(cmd);
}

/**
 * 参考: https://help.mirrors.cernet.edu.cn/voidlinux/
 */
void
os_void_setsrc (char* option)
{
  // ensure_root(); // HELP: 不确定是否需要root

  int index = use_specific_mirror_or_auto_select (option, os_void);

  source_info source = os_void_sources[index];
  chsrc_say_selection(&source);

  char* cmd = "mkdir -p /etc/xbps.d";
  chsrc_run(cmd);

  cmd = "cp /usr/share/xbps.d/*-repository-*.conf /etc/xbps.d/";
  chsrc_run(cmd);

  cmd = xy_strjoin(3,
            "sed -i 's|https://repo-default.voidlinux.org|", source.url, "|g' /etc/xbps.d/*-repository-*.conf"
            );
  chsrc_run(cmd);

  cmd = xy_strjoin(3,
            "sed -i 's|https://alpha.de.repo.voidlinux.org|", source.url, "|g' /etc/xbps.d/*-repository-*.conf"
            );

  chsrc_warn("若报错可尝试使用以下命令");
  puts(cmd);
  chsrc_say_thanks(&source);
}



/**
 * 似乎会弹出GUI，待确定
 */
void
os_manjaro_setsrc(char* option)
{
  ensure_root();
  char* cmd = "sudo pacman-mirrors -i -c China -m rank";
  chsrc_run(cmd);

  chsrc_run("sudo pacman -Syy");
}



/**
 * HELP: 未经测试
 */
void
os_openeuler_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_openeuler);

  source_info source = os_openeuler_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/yum.repos.d/openEuler.repo");

  char* towrite = xy_strjoin(3, "s#http://repo.openeuler.org#", source.url, "#\'< /etc/yum.repos.d/openEuler.repo.bak");;
  chsrc_overwrite_file (towrite, "/etc/yum.repos.d/openEuler.repo");

  chsrc_say_thanks(&source);
}



/**
 * HELP: 未经测试
 */
void
os_openkylin_setsrc (char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_openkylin);

  source_info source = os_openkylin_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/apt/sources.list");

  char* cmd = xy_strjoin(3, "sed -E -i \'s@https?://.*/openkylin/?@", source.url, "@g\' /etc/apt/sources.list");
  chsrc_run(cmd);
  chsrc_say_thanks(&source);
}



/**
 * 参考:
 *  1. https://book.bsdcn.org/di-3-zhang-ruan-jian-yuan-ji-bao-guan-li-qi/di-3.2-jie-freebsd-huan-yuan-fang-shi.html
 *  2. https://help.mirrors.cernet.edu.cn/FreeBSD-ports/
 *
 * 据 @ykla,
 *   FreeBSD 有四类源：pkg、ports、portsnap、update，其中 portsnap 在 FreeBSD 14 已经被移除了
 */
void
os_freebsd_setsrc (char* option)
{
  ensure_root(); // HELP: 不知道是否需要确保root权限

  int index = use_specific_mirror_or_auto_select (option, os_freebsd);

  source_info source = os_freebsd_sources[index];
  chsrc_say_selection(&source);

  chsrc_info("1. 添加 freebsd-pkg 源 (二进制安装包)");
  char* pkg_mkdir = "mkdir -p /usr/local/etc/pkg/repos";
  char* pkg_createconf = xy_strjoin(3, "ee /usr/local/etc/pkg/repos/", source.mirror->code, ".conf");
  chsrc_run(pkg_mkdir);
  chsrc_run(pkg_createconf);


  char* pkg_content = xy_strjoin(4,
                      source.mirror->code, ": { \n"
                      " url: \"http://", source.url, "/freebsd-pkg/${ABI}/latest\",\n"
                      " mirror_type: \"srv\",\n"
                      " signature_type: \"none\",\n"
                      " fingerprints: \"/usr/share/keys/pkg\",\n"
                      " enabled: yes\n"
                    "}\n"
                    "FreeBSD: { enabled: no }"
                    );

  char* pkg_conf = xy_strjoin(3, "/usr/local/etc/pkg/repos/", source.mirror->code, ".conf");
  chsrc_overwrite_file (pkg_content, pkg_conf);

  chsrc_warn("若要使用HTTPS源，请先安装securtiy/ca_root_ns，并将'http'改成'https'，最后使用'pkg update -f'刷新缓存即可\n");


  chsrc_info("2. 修改 freebsd-ports 源");
  // @ccmywish: [2023-09-27] 据 @ykla , NJU的freebsd-ports源没有设置 Git，
  //                         但是我认为由于使用Git还是要比非Git方便许多，我们尽可能坚持使用Git
  //                         而 gitup 又要额外修改它自己的配置，比较麻烦
  bool git_exist = does_the_program_exist (xy_str_to_quietcmd("git version"), "git");
  if (git_exist) {
    if (xy_streql("nju",source.mirror->code)) {
      source = os_freebsd_sources[index-1]; // 使用NJU的前一个源，即USTC源
    }
    char* git_cmd = xy_strjoin(3, "git clone --depth 1 https://", source.url, "/freebsd-ports/ports.git /usr/ports");
    chsrc_run(git_cmd);
    source = os_freebsd_sources[index]; // 恢复至选中的源
    chsrc_warn("下次更新请使用 git -C /usr/ports pull 而非使用 gitup");
  }
  else {
    char* fetch  = xy_strjoin(3, "fetch https://", source.url, "/freebsd-ports/ports.tar.gz");  // 70多MB
    char* unzip  = "tar -zxvf ports.tar.gz -C /usr/ports";
    char* delete = "rm ports.tar.gz";
    chsrc_run(fetch);
    chsrc_run(unzip);
    chsrc_run(delete);
    chsrc_warn("下次更新请重新下载内容至 /usr/ports");
  }


  chsrc_info("3. 指定 port 源");
  // https://help.mirrors.cernet.edu.cn/FreeBSD-ports/
  chsrc_backup ("/etc/make.conf");

  char* ports = xy_strjoin(3, "MASTER_SITE_OVERRIDE?=http://", source.url, "/freebsd-ports/distfiles/${DIST_SUBDIR}/");
  chsrc_append_to_file (ports, "/etc/make.conf");



  /* 不再换 portsnap */
  /*
    char* portsnap_cp="cp /etc/portsnap.conf /etc/portsnap.conf.bak";
    chsrc_runcmd(portsnap_cp);

    char* portsnap =xy_strjoin(3,"s@(.*)SERVERNAME=[\\.|a-z|A-Z]*@\\1SERVERNAME=", source.url,
                                "@g < /etc/portsnap.conf.bak");

    chsrc_overwrite_file (portsnap, "/etc/portsnap.conf");

    chsrc_info("portsnap sources changed");
    chsrc_info("获取portsnap更新使用此命令: 'portsnap fetch extract'");
  */


  // HELP: 暂时没有源提供
  chsrc_warn ("4. 抱歉，目前境内无 freebsd-update 源，若存在请报告issue，谢谢");
  /*
    chsrc_info("3. 修改 freebsd-update 源");

    char* update_cp="cp /etc/freebsd-update.conf /etc/freebsd-update.conf.bak";
    chsrc_runcmd(update_cp);

    char* update =xy_strjoin(3,"s@(.*)SERVERNAME [\\.|a-z|A-Z]*@\\1SERVERNAME ",
                                source.url,
                                "@g < /etc/freebsd-update.conf.bak");

    chsrc_overwrite_file (update, "/etc/freebsd-update.conf");
  */

  chsrc_say_thanks(&source);
}



void
os_netbsd_getsrc (char* option)
{
  chsrc_check_file ("/usr/pkg/etc/pkgin/repositories.conf");
}

/**
 * 参考:
 * 1. https://mirrors.tuna.tsinghua.edu.cn/help/pkgsrc/
 * 2. https://book.bsdcn.org/di-27-zhang-netbsd/di-27.2-jie-huan-yuan-yu-bao-guan-li-qi.html
 *
 * 根据 @ykla (https://github.com/ykla)
 *    NetBSD 默认状态下没有 pkgsrc，用户可能安装了也可能没安装
 *
 * HELP: 未经测试
 */
void
os_netbsd_setsrc(char* option)
{
  ensure_root(); // HELP: 不知道是否需要确保root权限

  int index = use_specific_mirror_or_auto_select (option, os_netbsd);

  source_info source = os_netbsd_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/usr/pkg/etc/pkgin/repositories.conf");

  char* arch = xy_getcmd("arch", NULL);
  char* vercmd  = "cat /etc/os-release | grep \"VERSION=\" | grep -Po \"[8-9].[0-9]+\"";
  char* version = xy_getcmd(vercmd, NULL);

  char* url = xy_strjoin(5, source.url, arch, "/", version, "/All");
  chsrc_overwrite_file (url, "/usr/pkg/etc/pkgin/repositories.conf");

  chsrc_say_thanks(&source);
}



void
os_openbsd_getsrc (char* option)
{
  chsrc_check_file ("/etc/installurl");
}

/**
 * 参考：
 * 1. https://mirrors.tuna.tsinghua.edu.cn/help/openbsd/
 * 2. https://book.bsdcn.org/di-26-zhang-openbsd/di-26.2-jie-pei-zhi.html
 */
void
os_openbsd_setsrc(char* option)
{
  ensure_root();

  int index = use_specific_mirror_or_auto_select (option, os_openbsd);

  source_info source = os_openbsd_sources[index];
  chsrc_say_selection(&source);

  chsrc_backup ("/etc/installurl");
  chsrc_overwrite_file (source.url, "/etc/installurl");

  chsrc_say_thanks(&source);
}






void
wr_tex_check_cmd_ (bool* tlmgr_exist, bool* mpm_exist)
{
  char* check_cmd = xy_str_to_quietcmd("tlmgr --version");
  *tlmgr_exist = does_the_program_exist (check_cmd, "tlmgr");

  check_cmd = xy_str_to_quietcmd("mpm --version");
  *mpm_exist = does_the_program_exist (check_cmd, "mpm");

  if (!*tlmgr_exist && !*mpm_exist) {
    xy_error ("chsrc: 未找到 tlmgr 或 mpm 命令，请检查是否存在（其一）");
    exit(1);
  }
}

void
wr_tex_getsrc(char* option)
{
  bool tlmgr_exist, mpm_exist;
  wr_tex_check_cmd_(&tlmgr_exist, &mpm_exist);

  if (tlmgr_exist) {
    chsrc_run("tlmgr option repository");
  }
  if (mpm_exist) {
    chsrc_run("mpm --get-repository");
  }
}

/**
 * 参考 https://help.mirrors.cernet.edu.cn/CTAN/
 */
void
wr_tex_setsrc(char* option)
{
  bool tlmgr_exist, mpm_exist;
  wr_tex_check_cmd_(&tlmgr_exist, &mpm_exist);

  int index = use_specific_mirror_or_auto_select (option, wr_tex);

  source_info source = wr_tex_sources[index];
  chsrc_say_selection (&source);

  char* cmd = NULL;

  if (tlmgr_exist) {
    cmd = xy_2strjoin("tlmgr option repository ", source.url);
    chsrc_run(cmd);
  }

  if (mpm_exist) {
    char* miktex_url = xy_2strjoin(xy_str_delete_suffix(source.url, "texlive/tlnet"), "win32/miktex/tm/packages/");
    cmd = xy_2strjoin("mpm --set-repository=", miktex_url);
    chsrc_run(cmd);
  }

  chsrc_say_thanks(&source);
}




void
wr_emacs_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, wr_emacs);

  source_info source = wr_emacs_sources[index];
  chsrc_say_selection (&source);

  chsrc_warn("抱歉，Emacs换源涉及Elisp，您可手动查阅并换源:");
  puts(source.url);

  chsrc_say_thanks (&source);
}



void
wr_brew_getsrc(char* option)
{
  char* cmd = "echo HOMEBREW_API_DOMAIN=$HOMEBREW_API_DOMAIN;"
              "echo HOMEBREW_BOTTLE_DOMAIN=$HOMEBREW_BOTTLE_DOMAIN;"
              "echo HOMEBREW_BREW_GIT_REMOTE=$HOMEBREW_BREW_GIT_REMOTE;"
              "echo HOMEBREW_CORE_GIT_REMOTE=$HOMEBREW_CORE_GIT_REMOTE;";
  system(cmd);
}

/**
 * 参考自: https://mirrors.tuna.tsinghua.edu.cn/help/homebrew/
 *
 * 自brew 4.0.0 (2023 年 2 月 16日) 起，
 * HOMEBREW_INSTALL_FROM_API 会成为默认行为，无需设置。大部分用户无需再克隆 homebrew-core 仓库，故无需设置 HOMEBREW_CORE_GIT_REMOTE 环境变量；
 * 但是为了以防万一，我们还是为用户设置该环境变量
 */
void
wr_brew_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, wr_brew);

  source_info source = wr_brew_sources[index];
  chsrc_say_selection (&source);

  char* api_domain      = xy_strjoin(3, "export HOMEBREW_API_DOMAIN=\"",      xy_2strjoin(source.url, "homebrew-bottles/api"), "\"");
  char* bottle_domain   = xy_strjoin(3, "export HOMEBREW_BOTTLE_DOMAIN=\"",   xy_2strjoin(source.url, "homebrew-bottles"), "\"");
  char* brew_git_remote = xy_strjoin(3, "export HOMEBREW_BREW_GIT_REMOTE=\"", xy_2strjoin(source.url, "git/homebrew/brew.git"), "\"");
  char* core_git_remote = xy_strjoin(3, "export HOMEBREW_CORE_GIT_REMOTE=\"", xy_2strjoin(source.url, "git/homebrew/homebrew-core.git"), "\"");

  chsrc_append_to_file (api_domain,      "~/.bashrc >> ~/.zshrc");
  chsrc_append_to_file (bottle_domain,   "~/.bashrc >> ~/.zshrc");
  chsrc_append_to_file (brew_git_remote, "~/.bashrc >> ~/.zshrc");
  chsrc_append_to_file (core_git_remote, "~/.bashrc >> ~/.zshrc");

  chsrc_say_thanks (&source);
  puts("");  chsrc_warn("请您重启终端使环境变量生效");
}



/**
 * 参考: https://mirrors.sjtug.sjtu.edu.cn/docs/guix
 */
void
wr_guix_setsrc (char* option)
{
  int index = use_specific_mirror_or_auto_select (option, wr_guix);

  source_info source = wr_guix_sources[index];
  chsrc_say_selection (&source);

  char* file =  xy_strjoin(3, "(list (channel\n"
                              "       (inherit (car %default-channels))\n"
                              "       (url \"", source.url, "\")))");

  xy_warn ("chsrc: 为防止扰乱配置文件，请您手动写入以下内容到 ~/.config/guix/channels.scm 文件中");
  puts(file);
  chsrc_say_thanks(&source);
}


void
wr_nix_check_cmd_()
{
  char* check_cmd = xy_str_to_quietcmd("nix-channel --version");
  bool exist = does_the_program_exist (check_cmd, "nix-channel");

  if (!exist) {
    xy_error ("chsrc: 未找到 nix-channel 命令，请检查是否存在");
    exit(1);
  }
}

/**
 * 参考:
 *  1. https://mirrors.bfsu.edu.cn/help/nix-channels/
 *  2. https://gitee.com/RubyMetric/chsrc/issues/I83894
 */
void
wr_nix_setsrc (char* option)
{
  wr_nix_check_cmd_();

  int index = use_specific_mirror_or_auto_select (option, wr_nix);

  source_info source = wr_nix_sources[index];
  chsrc_say_selection (&source);

  char* cmd = xy_strjoin(3, "nix-channel --add ", source.url, "nixpkgs-unstable nixpkgs");
  chsrc_run(cmd);

  char* towrite = xy_strjoin (3, "substituters = ", source.url, "store https://cache.nixos.org/");
  chsrc_append_to_file (towrite , "~/.config/nix/nix.conf");

  chsrc_run("nix-channel --update");

  chsrc_info("若您使用的是NixOS，请确认您的系统版本<version>（如22.11），并手动运行:");
  cmd = xy_strjoin(3, "nix-channel --add ", source.url, "nixpkgs-<version> nixpkgs");
  puts(cmd);

  cmd = xy_strjoin(3, "nix.settings.substituters = [ \"", source.url, "store\" ];");
  chsrc_info("若您使用的是NixOS，请额外添加下述内容至 configuration.nix 中");
  puts(cmd);

  chsrc_say_thanks(&source);
}



/**
 * 参考: https://mirrors.sjtug.sjtu.edu.cn/docs/flathub
 */
void
wr_flathub_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, wr_flathub);

  source_info source = wr_flathub_sources[index];
  chsrc_say_selection (&source);

  xy_warn ("chsrc: 若出现问题，可先调用以下命令:");
  char* note = xy_strjoin(3,
    "wget ", source.url, "/flathub.gpg\n"
    "sudo flatpak remote-modify --gpg-import=flathub.gpg flathub"
  );
  puts(note);

  char* cmd = xy_2strjoin("sudo flatpak remote-modify flathub --url=", source.url);
  chsrc_run(cmd);

  chsrc_say_thanks(&source);
}



void
wr_anaconda_setsrc(char* option)
{
  int index = use_specific_mirror_or_auto_select (option, wr_anaconda);

  source_info source = wr_anaconda_sources[index];
  chsrc_say_selection (&source);

  char* main  = xy_2strjoin(source.url, "pkgs/main");
  char* r     = xy_2strjoin(source.url, "pkgs/r");
  char* msys2 = xy_2strjoin(source.url, "pkgs/msys2");
  char* cloud = xy_2strjoin(source.url, "cloud");

  char* file = xy_strjoin(22,
               "channels:\n  - defaults\n"
               "show_channel_urls: true\ndefault_channels:"
             "\n  - ", main,
             "\n  - ", r,
             "\n  - ", msys2,
             "\ncustom_channels:\n"
               "  conda-forge: ", cloud,
             "\n  msys2: ",        cloud,
             "\n  bioconda: ",     cloud,
             "\n  menpo: ",        cloud,
             "\n  pytorch: ",      cloud,
             "\n  pytorch-lts: ",  cloud,
             "\n  simpleitk: ",    cloud,
             "\n  deepmodeling: ", cloud);


  // TODO: 待确认 windows 上也是这里吗？
  char* config = xy_2strjoin(xy_os_home, "/.condarc");

  if (xy_on_windows) {
    char* check_cmd = xy_str_to_quietcmd("conda --version");
    bool exist = does_the_program_exist (check_cmd, "conda");
    if (!exist) {
      xy_error ("chsrc: 未找到 conda 命令，请检查是否存在");
      exit(1);
    }
    chsrc_run("conda config --set show_channel_urls yes");
  }

  xy_info(xy_strjoin(3, "chsrc: 请向 ", config, " 中手动添加:"));
  puts(file);

  xy_info("chsrc: 然后运行 conda clean -i 清除索引缓存，保证用的是镜像站提供的索引");
  chsrc_say_thanks(&source);
}



/************************************** Begin Target Matrix ****************************************/
def_target_info(pl_ruby);
def_target_info(pl_python);
def_target_info(pl_nodejs);
def_target_info(pl_perl);
def_target_info(pl_php);
def_target_info(pl_lua);
def_target_info(pl_go);
def_target_info(pl_rust);
def_target_info(pl_java);
def_target_info(pl_dart);
def_target_info(pl_ocaml);
def_target_info(pl_r);
def_target_info(pl_julia);

target_info
  pl_clojure_target = {pl_clojure_setsrc, NULL,  pl_clojure_sources, pl_clojure_sources_n},
  pl_dotnet_target  = {pl_dotnet_setsrc,  NULL,  pl_dotnet_sources,  pl_dotnet_sources_n},
  pl_haskell_target = {pl_haskell_setsrc, NULL,  pl_haskell_sources, pl_haskell_sources_n};


#define targetinfo(t) (const char*)t
static const char
*pl_ruby  [] = {"gem",   "ruby",    "rubygem", "rb", "rubygems",NULL, targetinfo(&pl_ruby_target)},
*pl_python[] = {"pip",   "python",  "pypi",    "py",            NULL, targetinfo(&pl_python_target)},
*pl_nodejs[] = {"npm",   "node",    "nodejs",  "js", "yarn",    NULL, targetinfo(&pl_nodejs_target)},
*pl_perl  [] = {"perl",  "cpan",                         NULL,  targetinfo(&pl_perl_target)},
*pl_php   [] = {"php",   "composer",                     NULL,  targetinfo(&pl_php_target)},
*pl_lua   [] = {"lua",   "luarocks",                     NULL,  targetinfo(&pl_lua_target)},
*pl_go    [] = {"go",    "golang",  "goproxy",           NULL,  targetinfo(&pl_go_target)} ,
*pl_rust  [] = {"rust",  "cargo",   "crate",  "crates",  NULL,  targetinfo(&pl_rust_target)},
*pl_java  [] = {"java",  "maven",   "gradle",            NULL,  targetinfo(&pl_java_target)},
*pl_clojure[] ={"clojure","clojars","cloj",   "lein",   "leiningen",  NULL, targetinfo(&pl_clojure_target)},
*pl_dart  [] = {"dart",  "pub",     "flutter",           NULL,  targetinfo(&pl_dart_target)},
*pl_dotnet[] = {"nuget", "net",     ".net",   "dotnet",  NULL,  targetinfo(&pl_dotnet_target)},
*pl_haskell[] ={"haskell", "cabal", "stack",  "hackage", NULL,  targetinfo(&pl_haskell_target)},
*pl_ocaml[] =  {"ocaml", "opam",                         NULL,  targetinfo(&pl_ocaml_target)},
*pl_r     [] = {"cran",  "r",                            NULL,  targetinfo(&pl_r_target)},
*pl_julia [] = {"julia",                                 NULL,  targetinfo(&pl_julia_target)},
**pl_packagers[] =
{
  pl_ruby,    pl_python,    pl_nodejs,      pl_perl,    pl_php,      pl_lua,
  pl_rust,    pl_go,        /*pl_dotnet,*/  pl_java,    pl_clojure,  pl_dart,
  pl_haskell, pl_ocaml,
  pl_r,       pl_julia
};


def_target_info(os_ubuntu);
def_target_info(os_debian);
def_target_info(os_deepin);
def_target_info(os_void);
def_target_info(os_netbsd);
def_target_info(os_openbsd);


target_info
  os_fedora_target      = {os_fedora_setsrc,      NULL, os_fedora_sources,    os_fedora_sources_n},
  os_opensuse_target    = {os_opensuse_setsrc,    NULL, os_opensuse_sources,  os_opensuse_sources_n},
  os_kali_target        = {os_kali_setsrc,        NULL, os_kali_sources,      os_kali_sources_n},
  os_msys2_target       = {os_msys2_setsrc,       NULL, os_msys2_sources,     os_msys2_sources_n},
  os_arch_target        = {os_arch_setsrc,        NULL, os_arch_sources,      os_arch_sources_n},
  os_manjaro_target     = {os_manjaro_setsrc,     NULL, NULL,                       0},
  os_gentoo_target      = {os_gentoo_setsrc,      NULL, os_gentoo_sources,    os_gentoo_sources_n},
  os_rocky_target       = {os_rocky_setsrc,       NULL, os_rocky_sources,     os_rocky_sources_n},
  os_alpine_target      = {os_alpine_setsrc,      NULL, os_alpine_sources,    os_alpine_sources_n},
  os_freebsd_target     = {os_freebsd_setsrc,     NULL, os_freebsd_sources,   os_freebsd_sources_n},
  os_openeuler_target   = {os_openeuler_setsrc,   NULL, os_openeuler_sources, os_openeuler_sources_n},
  os_openkylin_target   = {os_openkylin_setsrc,   NULL, os_openkylin_sources, os_openkylin_sources_n};

static const char
*os_ubuntu        [] = {"ubuntu",               NULL,  targetinfo(&os_ubuntu_target)},
*os_debian        [] = {"debian",  "deb",       NULL,  targetinfo(&os_debian_target)},
*os_fedora        [] = {"fedora",               NULL,  targetinfo(&os_fedora_target)},
*os_opensuse      [] = {"suse",   "opensuse",   NULL,  targetinfo(&os_opensuse_target)},
*os_kali          [] = {"kali",                 NULL,  targetinfo(&os_kali_target)},
*os_msys2         [] = {"msys2",   "msys",      NULL,  targetinfo(&os_msys2_target)},
*os_arch          [] = {"arch",                 NULL,  targetinfo(&os_arch_target)},
*os_manjaro       [] = {"manjaro",              NULL,  targetinfo(&os_manjaro_target)},
*os_gentoo        [] = {"gentoo",               NULL,  targetinfo(&os_gentoo_target)},
*os_rocky         [] = {"rocky",  "rockylinux", NULL,  targetinfo(&os_rocky_target)},
*os_alpine        [] = {"alpine",               NULL,  targetinfo(&os_alpine_target)},
*os_void          [] = {"void",   "voidlinux",  NULL,  targetinfo(&os_void_target)},
*os_freebsd       [] = {"freebsd",              NULL,  targetinfo(&os_freebsd_target)},
*os_netbsd        [] = {"netbsd",               NULL,  targetinfo(&os_netbsd_target)},
*os_openbsd       [] = {"openbsd",              NULL,  targetinfo(&os_openbsd_target)},
*os_deepin        [] = {"deepin",               NULL,  targetinfo(&os_deepin_target)},
*os_openeuler     [] = {"euler",  "openeuler",  NULL,  targetinfo(&os_openeuler_target)},
*os_openkylin     [] = {"kylin",  "openkylin",  NULL,  targetinfo(&os_openkylin_target)},
**os_systems[] =
{
  os_ubuntu,  os_debian,  os_fedora,  os_opensuse, os_kali,
  os_arch,    os_manjaro, os_gentoo,
  os_rocky,
  os_alpine,
  os_freebsd, os_netbsd,  os_openbsd,
  os_msys2,
  os_deepin, os_openeuler, os_openkylin,
};


def_target_info(wr_brew);
def_target_info(wr_tex);

target_info
  wr_flathub_target  = {wr_flathub_setsrc,  NULL,  wr_flathub_sources,  wr_flathub_sources_n},
  wr_nix_target      = {wr_nix_setsrc,      NULL,  wr_nix_sources,      wr_nix_sources_n},
  wr_guix_target     = {wr_guix_setsrc,     NULL,  wr_guix_sources,     wr_guix_sources_n},
  wr_emacs_target    = {wr_emacs_setsrc,    NULL,  wr_emacs_sources,    wr_emacs_sources_n},
  wr_anaconda_target = {wr_anaconda_setsrc, NULL,  wr_anaconda_sources, wr_anaconda_sources_n};

static const char
*wr_brew    [] = {"brew",  "homebrew",     NULL,  targetinfo(&wr_brew_target)},
*wr_flathub [] = {"flathub", NULL,                targetinfo(&wr_flathub_target)},
*wr_nix     [] = {"nix",     NULL,                targetinfo(&wr_nix_target)},
*wr_guix    [] = {"guix",    NULL,                targetinfo(&wr_guix_target)},
*wr_emacs   [] = {"emacs", "elpa",         NULL,  targetinfo(&wr_emacs_target)},
*wr_tex     [] = {"latex", "ctan", "tex", "texlive", "miktex", "tlmgr", "mpm", NULL, targetinfo(&wr_tex_target)},
*wr_anaconda[] = {"conda", "anaconda",     NULL,  targetinfo(&wr_anaconda_target)},
**wr_softwares[] =
{
  wr_brew, wr_flathub, wr_nix, wr_guix, wr_emacs, wr_tex, wr_anaconda
};
#undef targetinfo
/************************************** End Target Matrix ****************************************/


static const char*
usage[] = {
  "维护: https://gitee.com/RubyMetric/chsrc\n",

  "使用: chsrc <command> [target] [mirror]",
  "help                      打印此帮助，或 h, -h, --help",
  "list (或 ls, 或 l)        列出可用镜像源，和可换源软件",
  "list mirror/target        列出可用镜像源，或可换源软件",
  "list os/lang/ware         列出可换源的操作系统/编程语言/软件",
  "list <target>             查看该软件可以使用哪些源",
  "cesu <target>             对该软件所有源测速",
  "get  <target>             查看当前软件的源使用情况",
  "set  <target>             换源，自动测速后挑选最快源",
  "set  <target> def(ault)   换源，默认使用维护团队测速第一的源",
  "set  <target> <mirror>    换源，指定使用某镜像站\n"
};


void
call_cmd (void* cmdptr, const char* arg)
{
  void (*cmd_func)(const char*) = cmdptr;
  if (NULL==arg) {
    xy_info("chsrc: 将使用默认镜像");
  }
  cmd_func(arg);
}



void
print_available_mirrors ()
{
  xy_info ("chsrc: 支持以下镜像站，荣耀均归属于这些站点，以及它们的开发/维护者们");
  xy_warn ("chsrc: 下方 code 列，可用于指定使用某镜像站，请使用 chsrc set <target> <code>");
  printf ("%-14s%-30s%-41s ", "code", "服务商缩写", "服务商URL"); puts("服务商名称");
  puts   ("-------------------------------------------------------------------------------------------------");
  for (int i=0; i<xy_arylen(available_mirrors); i++)
  {
    mirror_info* mir = available_mirrors[i];
    printf ("%-14s%-18s%-41s ", mir->code, mir->abbr, mir->site); puts(mir->name);
  }
}


void
print_supported_targets_ (const char*** array, size_t size)
{
  for (int i=0; i<size; i++)
  {
    const char** target = array[i];
    const char* alias = target[0];
    for (int k=1; alias!=NULL; k++)
    {
      printf ("%s\t", alias);
      alias = target[k];
    }
    puts("");
  }
  puts("");
}

void
print_supported_targets ()
{
  xy_info ("chsrc: 支持对以下目标换源 (同一行表示这几个命令兼容)");
  xy_warn ("编程语言开发");
  print_supported_targets_ (pl_packagers, xy_arylen(pl_packagers));
  xy_warn ("操作系统");
  print_supported_targets_ (os_systems,   xy_arylen(os_systems));
  xy_warn ("软件");
  print_supported_targets_ (wr_softwares, xy_arylen(wr_softwares));
}

void
print_supported_pl ()
{
  xy_info ("chsrc: 支持对以下编程语言生态换源 (同一行表示这几个命令兼容)");
  print_supported_targets_ (pl_packagers,   xy_arylen(pl_packagers));
}

void
print_supported_os ()
{
  xy_info ("chsrc: 支持对以下操作系统换源 (同一行表示这几个命令兼容)");
  print_supported_targets_ (os_systems,   xy_arylen(os_systems));
}

void
print_supported_wr ()
{
  xy_info ("chsrc: 支持对以下软件换源 (同一行表示这几个命令兼容)");
  print_supported_targets_ (wr_softwares,   xy_arylen(wr_softwares));
}



/**
 * 用于 chsrc list <target>
 */
void
print_supported_sources_for_target (source_info sources[], size_t size)
{
  for (int i=0;i<size;i++)
  {
    source_info src = sources[i];
    const mirror_info* mir = src.mirror;
    printf ("%-14s%-18s%-50s ",mir->code, mir->abbr, src.url);
    puts(mir->name);
  }
}



void
print_help ()
{
  puts(xy_strjoin(3, "chsrc: Change Source (GPLv3) ",
                      xy_str_to_magenta(Chsrc_Version), " by RubyMetric\n"));
  for (int i=0; i<xy_arylen(usage); i++) {
    puts (usage[i]);
  }
}



/**
 * 遍历我们内置的targets列表，查询用户输入`input`是否与我们支持的某个target匹配
 *
 * @param[out]  target_info  如果匹配到，则返回内置targets列表中最后的target_info信息
 *
 * @return 匹配到则返回true，未匹配到则返回false
 */
bool
iterate_targets_(const char*** array, size_t size, const char* input, const char*** target_info)
{
  int matched = 0;

  const char** target = NULL;
  int k = 0;
  const char* alias = NULL;

  for (int i=0; i<size; i++) {
    target = array[i];
    alias = target[k];
    while (NULL!=alias) {
      if (xy_streql(input, alias)) {
        matched = 1; break;
      }
      k++;
      alias = target[k];
    }
    if (!matched) k = 0;
    if (matched) break;
  }

  if (!matched) {
    *target_info = NULL;
    return false;
  }

  do {
    k++;
    alias = target[k];
  } while (NULL!=alias);
  *target_info = target + k + 1;
  return true;
}

#define iterate_targets(ary, input, target) iterate_targets_(ary, xy_arylen(ary), input, target)

#define Target_Set_Source  1
#define Target_Get_Source  2
#define Target_Cesu_Source 3
#define Target_List_Source 4

/**
 * 寻找target，并根据`code`执行相应的操作
 *
 * @param  input   用户输入的目标
 * @param  code    对target要执行的操作
 * @param  option  额外的指示，可为NULL
 *
 * @return 找到目标返回true，未找到返回false
 */
bool
get_target (const char* input, int code, char* option)
{
  const char** target_tmp = NULL;

           bool matched = iterate_targets(pl_packagers, input, &target_tmp);
  if (!matched) matched = iterate_targets(os_systems,   input, &target_tmp);
  if (!matched) matched = iterate_targets(wr_softwares, input, &target_tmp);

  if (!matched) {
    return false;
  }

  target_info* target = (target_info*) *target_tmp;

  if (Target_Set_Source==code)
  {
    if (target->setfn) target->setfn(option);
    else xy_error (xy_strjoin(3, "chsrc: 暂未对 ", input, " 实现set功能，欢迎贡献"));
  }
  else if (Target_Get_Source==code)
  {
    if (target->getfn) target->getfn("");
    else xy_error (xy_strjoin(3, "chsrc: 暂未对 ", input, " 实现get功能，欢迎贡献"));
  }
  else if (Target_List_Source==code)
  {
    xy_info (xy_strjoin(3,"chsrc: 对 ", input ," 支持以下镜像站，荣耀均归属于这些站点，以及它们的开发/维护者们"));
    xy_warn (xy_strjoin(3, "chsrc: 下方 code 列，可用于指定使用某源，请使用 chsrc set ", input, " <code>"));
    printf ("%-14s%-35s%-45s ", "code", "服务商缩写", "服务源URL"); puts("服务商名称");
    puts   ("--------------------------------------------------------------------------------------------------------");
    print_supported_sources_for_target (target->sources, target->sources_n);
  }
  else if (Target_Cesu_Source==code)
  {
    char* check_cmd = xy_str_to_quietcmd("curl --version");
    bool exist_b = does_the_program_exist (check_cmd, "curl");
    if (!exist_b) {
      xy_error ("chsrc: 没有curl命令，无法测速");
      exit(1);
    }
    auto_select_ (target->sources, target->sources_n, input-3);
    return true;

  }
  return true;
}



int
main (int argc, char const *argv[])
{
  xy_useutf8(); argc -= 1;

  if (argc==0) {
    print_help(); return 0;
  }

  const char* command = argv[1];

  bool matched = false;

  /* chsrc help */
  if (xy_streql(command, "h")  ||
      xy_streql(command, "-h") ||
      xy_streql(command, "help") ||
      xy_streql(command, "--help"))
  {
    print_help();
    return 0;
  }

  /* chsrc list */
  else if (xy_streql(command, "list") ||
           xy_streql(command, "l")    ||
           xy_streql(command, "ls"))
  {
    if (argc < 2) {
      print_available_mirrors();
      puts("");
      print_supported_targets();
    } else {

      if (xy_streql(argv[2],"mirrors")) {
        print_available_mirrors(); return 0;
      }
      if (xy_streql(argv[2],"mirror"))  {
        print_available_mirrors(); return 0;
      }
      if (xy_streql(argv[2],"targets")) {
        print_supported_targets(); return 0;
      }
      if (xy_streql(argv[2],"target"))  {
        print_supported_targets(); return 0;
      }
      if (xy_streql(argv[2],"os")) {
        print_supported_os(); return 0;
      }
      if (xy_streql(argv[2],"lang")) {
        print_supported_pl(); return 0;
      }
      if (xy_streql(argv[2],"pl")) {
        print_supported_pl(); return 0;
      }
      if (xy_streql(argv[2],"language")) {
        print_supported_pl(); return 0;
      }
      if (xy_streql(argv[2],"software")) {
        print_supported_wr(); return 0;
      }
      if (xy_streql(argv[2],"ware")) {
        print_supported_wr(); return 0;
      }
      matched = get_target(argv[2], Target_List_Source, NULL);
      if (!matched) goto not_matched;
    }
    return 0;
  }


  /* chsrc cesu */
  else if (xy_streql(command, "cesu") ||
           xy_streql(command, "ce")   ||
           xy_streql(command, "c"))
  {
    if (argc < 2) {
      xy_error ("chsrc: 请您提供想要测速源的软件名; 使用 chsrc list targets 查看所有支持的软件");
      return 1;
    }
    matched = get_target(argv[2], Target_Cesu_Source, NULL);
    if (!matched) goto not_matched;
    return 0;
  }


  /* chsrc get */
  else if (xy_streql(command, "get") ||
           xy_streql(command, "g"))
  {
    if (argc < 2) {
      xy_error ("chsrc: 请您提供想要查看源的软件名; 使用 chsrc list targets 查看所有支持的软件");
      return 1;
    }
    matched = get_target(argv[2], Target_Get_Source, NULL);
    if (!matched) goto not_matched;
    return 0;
  }

  /* chsrc set */
  else if (xy_streql(command, "set") ||
           xy_streql(command, "s"))
  {
    if (argc < 2) {
      xy_error ("chsrc: 请您提供想要设置源的软件名; 使用 chsrc list targets 查看所有支持的软件");
      return 1;
    }

    char* option = NULL;
    if (argc >= 3) {
      option = (char*) argv[3]; // 暂时我们只接受最多三个参数
    }
    matched = get_target(argv[2], Target_Set_Source, option);
    if (!matched) goto not_matched;
    return 0;
  }

  /* 不支持的命令 */
  else
  {
    xy_error ("chsrc: 不支持的命令，请使用 chsrc help 查看使用方式");
    return 1;
  }

not_matched:
  if (!matched) {
    xy_info("chsrc: 暂不支持的换源目标，请使用 chsrc list targets 查看可换源软件");
    return 1;
  }
}