Split clojure out

This commit is contained in:
Aoran Zeng 2024-08-16 04:43:02 +08:00
parent dde25a1ca5
commit d4c782a177
No known key found for this signature in database
GPG Key ID: 8F8BA8488E10ED98
5 changed files with 47 additions and 36 deletions

View File

@ -126,19 +126,4 @@ typedef struct {
/**
* @time 2023-09-10
* @note
*/
static SourceInfo
pl_clojure_sources[] = {
{&Upstream, NULL},
{&Tuna, "https://mirrors.tuna.tsinghua.edu.cn/help/clojars/"},
{&Ustc, "https://mirrors.ustc.edu.cn/help/clojars.html"}
};
#define def_sources_n(t) const size_t t##_sources_n = xy_arylen(t##_sources)
def_sources_n(pl_clojure);

View File

@ -37,19 +37,7 @@
#include "recipe/lang/r.c"
#include "recipe/lang/julia.c"
#include "recipe/lang/NuGet.c"
void
pl_clojure_setsrc (char *option)
{
SourceInfo source;
chsrc_yield_source (pl_clojure);
chsrc_confirm_source (&source);
chsrc_note2 ("抱歉Clojure换源较复杂您可手动查阅并换源:");
puts (source.url);
chsrc_say_lastly (&source, ChsrcTypeManual);
}
#include "recipe/lang/Clojure.c"
@ -69,7 +57,6 @@ pl_clojure_setsrc (char *option)
#include "recipe/os/apt-family/openKylin.c"
#include "recipe/os/apt-family/deepin.c"
#include "recipe/os/yum-family/common.h"
#include "recipe/os/yum-family/Fedora-Linux.c"
#include "recipe/os/yum-family/AlmaLinux.c"
@ -77,25 +64,23 @@ pl_clojure_setsrc (char *option)
#include "recipe/os/yum-family/openEuler.c"
#include "recipe/os/yum-family/Anolis-OS.c"
#include "recipe/os/opensuse.c"
#include "recipe/os/pacman-family/Arch-Linux.c"
#include "recipe/os/pacman-family/Manjaro-Linux.c"
#include "recipe/os/pacman-family/MSYS2.c"
#include "recipe/os/opensuse.c"
#include "recipe/os/gentoo.c"
#include "recipe/os/alpine.c"
#include "recipe/os/void.c"
#include "recipe/os/solus.c"
#include "recipe/os/openwrt.c"
#include "recipe/os/BSD/FreeBSD.c"
#include "recipe/os/BSD/NetBSD.c"
#include "recipe/os/BSD/OpenBSD.c"
#include "recipe/ware/TeX-Live.c"
#include "recipe/ware/emacs.c"
#include "recipe/ware/WinGet.c"

View File

@ -8,9 +8,6 @@
* ------------------------------------------------------------*/
/* Begin Target Matrix */
def_target_noget (pl_clojure);
#define t(a) (const char*)(a)
static const char
*pl_ruby [] = {"gem", "ruby", "rubygem", "rb", "rubygems", "bundler", NULL, t(&pl_ruby_target)},

35
src/recipe/lang/Clojure.c Normal file
View File

@ -0,0 +1,35 @@
/** ------------------------------------------------------------
* SPDX-License-Identifier: GPL-3.0-or-later
* -------------------------------------------------------------
* File Authors : Aoran Zeng <ccmywish@qq.com>
* Contributors : Nil Null <nil@null.org>
* Created On : <2023-09-10>
* Last Modified : <2024-08-09>
* ------------------------------------------------------------*/
/**
* @time 2023-09-10
* @note
*/
static SourceInfo
pl_clojure_sources[] = {
{&Upstream, NULL},
{&Tuna, "https://mirrors.tuna.tsinghua.edu.cn/help/clojars/"},
{&Ustc, "https://mirrors.ustc.edu.cn/help/clojars.html"}
};
def_sources_n(pl_clojure);
void
pl_clojure_setsrc (char *option)
{
SourceInfo source;
chsrc_yield_source (pl_clojure);
chsrc_confirm_source (&source);
chsrc_note2 ("抱歉Clojure换源较复杂您可手动查阅并换源:");
puts (source.url);
chsrc_say_lastly (&source, ChsrcTypeManual);
}
def_target_noget (pl_clojure);

View File

@ -1,3 +1,12 @@
/** ------------------------------------------------------------
* SPDX-License-Identifier: GPL-3.0-or-later
* -------------------------------------------------------------
* File Authors : Aoran Zeng <ccmywish@qq.com>
* Contributors : Nil Null <nil@null.org>
* Created On : <2023-09-10>
* Last Modified : <2024-08-09>
* ------------------------------------------------------------*/
/**
* @time 2024-04-18
* @note {