1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
# -*-eselect-*- vim: ft=eselect
# Copyright 2025 Gentoo Authors
# Distributed under the terms of the GNU GPL version 2 or later
DESCRIPTION="Manage the selected GNU Guile installation"
MAINTAINER="scheme@gentoo.org"
VERSION="20250224"
# List of all tools all GNU Guile versions install. Some GNU Guile versions
# don't have some of the tools (1.8 lacks 'guild'), but that's fine.
ALL_GUILE_TOOLS=(
guile{,-{config,snarf,tools}}
guild
)
find_versions() {
local f
for f in "${EROOT}"/usr/share/guile-data/*; do
[[ -d "${f}" ]] && echo "${f##*/}"
done
}
# Checks whether guile, guile-config, guile-snarf, guild and guile-tools exist
# and are not symlinks. Execute before filesystem operations.
safety_check() {
local f
# XXX: Tools listing.
for f in "${ALL_GUILE_TOOLS[@]}"; do
f="${EROOT}"/usr/bin/"${f}"
[[ -L "${f}" || ! -e "${f}" ]] \
|| die -q "!!! File \"${f}\" exists and is not a symbolic link! \
Giving up, so that I don't trample anything."
done
}
# Usage: set_version USER_SELECTION
# If USER_SELECTION is a number, treat it as an index into the version list,
# otherwise treat it as a version.
set_version() {
local sel="$1"
if is_number "${sel}"; then
local versions=( $(find_versions) )
sel="${versions[sel - 1]}"
fi
[[ -z "${sel}" || ! -d "${EROOT}"/usr/share/guile-data/"${sel}" ]] \
&& die -q "Target \"$1\" does not appear to be valid"
safety_check
local tool
for tool in "${ALL_GUILE_TOOLS[@]}"; do
rm -f "${EROOT}"/usr/bin/"${tool}"
if [[ -x "${EROOT}"/usr/bin/"${tool}-${sel}" ]]; then
ln -s "${tool}-${sel}" "${EROOT}"/usr/bin/"${tool}"
fi
done
}
# Usage: get_current FALLBACK
# Fallback defaults to UNDEFINED, which should be sufficiently invalid for
# [[ = ]].
get_current() {
local current_lnk
if current_lnk="$(readlink "${EROOT}"/usr/bin/guile)"; then
echo "${current_lnk#guile-}"
else
echo "${1:-UNDEFINED}"
fi
}
### Actions ###
describe_list() { echo "List installed GNU Guile versions"; }
do_list() {
local vers=( $(find_versions) )
local ver current i
current="$(get_current)"
for (( i = 0; i < ${#vers[@]}; i++ )); do
[[ "${current}" == "${vers[i]}" ]] \
&& vers[i]="$(highlight_marker "${vers[i]}")"
done
write_list_start "Available GNU Guile versions"
write_numbered_list \
-m "(none installed; emerge a dev-scheme/guile today!)" \
"${vers[@]}"
}
describe_show() { echo "Get currently selected GNU Guile version"; }
do_show() {
write_list_start "Currently selected GNU Guile version"
write_kv_list_entry "$(get_current '(none selected)')" ""
}
describe_set() { echo "Select an active version of GNU Guile"; }
describe_set_parameters() { echo "<target>"; }
describe_set_options() {
echo "target : Guile version or number (from 'list' action)"
}
do_set() {
[[ -z $1 ]] && die -q "You didn't name your choice!"
[[ $# -gt 1 ]] && die -q "Too many parameters"
set_version "$1"
}
describe_unset() { echo "Remove GNU Guile selection"; }
do_unset() {
safety_check
for tool in "${ALL_GUILE_TOOLS[@]}"; do
rm -f "${EROOT}"/usr/bin/"${tool}"
done
}
describe_update() { echo "Perform post-install/remove selection"; }
do_update() {
local vers=( $(find_versions) )
if [[ ${#vers[@]} -eq 0 ]]; then
# No more versions left. Clean up after ourselves and leave
write_warning_msg "No GNU Guile versions installed. Unsetting."
do_unset
return
fi
if [[ -L "${EROOT}"/usr/bin/guile
&& -e "${EROOT}"/usr/bin/guile ]]; then
# The user made a choice, and the choice is still valid. Respect it.
return
fi
# Set latest.
IFS=$'\n' LC_COLLATE=C vers=( $(sort -V <<< "${vers[*]}") )
set_version "${vers[-1]}"
}
# Local variables:
# eval: (add-hook 'before-save-hook 'time-stamp)
# time-stamp-start: "VERSION=\""
# time-stamp-format: "%Y%02m%02d"
# time-stamp-end: "\""
# time-stamp-time-zone: t
# End:
|
