diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/archplat.sh | 147 | ||||
| -rw-r--r-- | lib/block.sh | 92 | ||||
| -rw-r--r-- | lib/cmd.sh | 129 | ||||
| -rw-r--r-- | lib/cmd/build.sh | 153 | ||||
| -rw-r--r-- | lib/cmd/help.sh | 41 | ||||
| -rw-r--r-- | lib/cmd/install.sh | 81 | ||||
| -rw-r--r-- | lib/cmd/installer-pc.sh | 101 | ||||
| -rw-r--r-- | lib/cmd/local.mk | 8 | ||||
| -rw-r--r-- | lib/cmd/opkg.sh | 111 | ||||
| -rw-r--r-- | lib/cmd/shell.sh | 60 | ||||
| -rw-r--r-- | lib/cmd/version.sh | 27 | ||||
| -rw-r--r-- | lib/control.sh | 153 | ||||
| -rw-r--r-- | lib/deps.sh | 161 | ||||
| -rw-r--r-- | lib/dir.sh | 59 | ||||
| -rw-r--r-- | lib/fd.sh | 98 | ||||
| -rw-r--r-- | lib/feed.sh | 143 | ||||
| -rw-r--r-- | lib/getopt.sh | 55 | ||||
| -rw-r--r-- | lib/install.sh | 274 | ||||
| -rw-r--r-- | lib/local.mk | 22 | ||||
| -rw-r--r-- | lib/locale.sh | 89 | ||||
| -rw-r--r-- | lib/mutex.sh | 57 | ||||
| -rw-r--r-- | lib/opkg.sh | 34 | ||||
| -rw-r--r-- | lib/output.sh | 59 | ||||
| -rw-r--r-- | lib/package.sh | 68 | ||||
| -rw-r--r-- | lib/package/2.sh | 84 | ||||
| -rw-r--r-- | lib/package/local.mk | 2 | ||||
| -rw-r--r-- | lib/pkg.sh | 54 | ||||
| -rw-r--r-- | lib/profile.sh | 163 | ||||
| -rw-r--r-- | lib/profile/local.mk | 2 | ||||
| -rw-r--r-- | lib/profile/proteanos.sh | 255 | ||||
| -rw-r--r-- | lib/rand.sh | 48 | ||||
| -rw-r--r-- | lib/session.sh | 219 | ||||
| -rw-r--r-- | lib/substvars.sh | 106 | ||||
| -rw-r--r-- | lib/vardata.sh | 56 |
34 files changed, 0 insertions, 3211 deletions
diff --git a/lib/archplat.sh b/lib/archplat.sh deleted file mode 100644 index d7b1424..0000000 --- a/lib/archplat.sh +++ /dev/null @@ -1,147 +0,0 @@ -# Functions for matching architectures and platforms -# -# Copyright (C) 2012 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_ARCHPLAT_SM+set}" = 'xset' ] && return 0 -_ARCHPLAT_SM=1 - -match_arch() -{ - local arch="${1}" - local arch_field="${2}" - local a= - local a_ere= - - for a in ${arch_field}; do - - # "all" == "all" - if [ "${arch}" = 'all' ]; then - if [ "${a}" = 'all' ]; then - return 0 - else - continue - fi - fi - - # "foo-bar-baz" == "any" - if [ "${a}" = 'any' ]; then - return 0 - fi - - # Generate an ERE to match hyphenated architectures. - a_ere="$(printf '%s\n' "${a}" | sed \ - 's/^any-/[^-]+-/;s/-any-/-[^-]+-/g;s/-any$/-[^-]+/g')" - - # "foo-bar-baz" == "foo-any-any" - if echo "${arch}" | grep -E "${a_ere}" >/dev/null 2>&1; then - return 0 - fi - - done - - # Nothing matched. - return 1 -} - -match_plat() -{ - local plat="${1}" - local plat_field="${2}" - local p= - - for p in ${plat_field}; do - if [ "x${plat}" = 'xall' ]; then - if [ "x${p}" = 'xall' ]; then - return 0 - else - continue - fi - fi - if [ "x${p}" = 'xany' ]; then - return 0 - fi - if [ "x${p}" = "x${plat}" ]; then - return 0 - fi - done - - return 1 -} - -arch_is_concerned() -{ - local host_arch="${1}" - local arches="${2}" - local arch= - local not_arch= - local seen_arch= - - if [ "x${arches}" = 'x' ]; then - return 0 - else - seen_arch=1 - for arch in ${arches}; do - not_arch="${arch#!}" - if [ "x${not_arch}" != "x${arch}" ]; then - if match_arch "${host_arch}" "${not_arch}" - then - seen_arch=1 - break - elif [ "x${host_arch}" != 'xall' ]; then - seen_arch=0 - fi - elif match_arch "${host_arch}" "${arch}"; then - seen_arch=0 - break - fi - done - return ${seen_arch} - fi -} - -plat_is_concerned() -{ - local host_plat="${1}" - local plats="${2}" - local plat= - local not_plat= - local seen_plat= - - if [ "x${plats}" = 'x' ]; then - return 0 - else - seen_plat=1 - for plat in ${plats}; do - not_plat="${plat#!}" - if [ "x${not_plat}" != "x${plat}" ]; then - if match_plat "${host_plat}" "${not_plat}" - then - seen_plat=1 - break - elif [ "x${host_plat}" != 'xall' ]; then - seen_plat=0 - fi - elif match_plat "${host_plat}" "${plat}"; then - seen_plat=0 - break - fi - done - return ${seen_plat} - fi -} diff --git a/lib/block.sh b/lib/block.sh deleted file mode 100644 index ef1eed9..0000000 --- a/lib/block.sh +++ /dev/null @@ -1,92 +0,0 @@ -# Functions for mounting and unmounting block devices -# -# Copyright (C) 2015 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_BLOCK_SM+set}" = 'xset' ] && return 0 -_BLOCK_SM=1 - -use rand -use vardata - -is_block() -{ - local dev="${1}" - - [ -b "${dev}" ] - return ${?} -} - -check_block() -{ - local dev="${1}" - - if ! [ -b "${dev}" ]; then - error 2 "$(get_msg 'block_device_invalid')" "${dev}" - fi -} - -block_mount() -{ - local dev="${1}" - local dir= - - check_block "${dev}" - - rand - dir="$(get_vardata_dir 'mount')/block-$(printf '%010d' ${rand_x})" - if ! mkdir "${dir}"; then - error 2 "$(get_msg 'block_mkdir_fail')" "${dir}" - fi - - if ! mount "${dev}" "${dir}"; then - rmdir "${dir}" - error 2 "$(get_msg 'block_mount_fail')" "${dev}" - fi - - printf '%s' "${dir}" - return 0 -} - -block_umount() -{ - local dir="${1}" - local i= - local timed_out= - - i=0 - timed_out=false - while ! umount "${dir}"; do - i=$(($i + 1)) - if [ ${i} -eq 10 ]; then - timed_out=true - break - fi - sleep 1 - done - - if ${timed_out}; then - error 2 "$(get_msg 'block_umount_fail')" "${dir}" - fi - - if ! rmdir "${dir}"; then - error 2 "$(get_msg 'block_rmdir_fail')" "${dir}" - fi - - return 0 -} diff --git a/lib/cmd.sh b/lib/cmd.sh deleted file mode 100644 index 208e2fa..0000000 --- a/lib/cmd.sh +++ /dev/null @@ -1,129 +0,0 @@ -# Command-related functions -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_CMD_SM+set}" = 'xset' ] && return 0 -_CMD_SM=1 - -use output -use locale - -CMDS='@cmds@' - -running_cmd= -running_cmd_clean= - -load_cmds() -{ - local cmd= - - for cmd in ${CMDS}; do - use "cmd/${cmd}" - done -} - -print_opt_summaries() -{ - local padding= - local opt= - local opt_out= - local summary= - - padding="$(printf '%24s' '')" - for opt in $(printf '%s' "${OPTSTRING}" | sed 's/\([a-zA-Z0-9]\)/ \1/g') - do - if [ ${#opt} -eq 1 ]; then - # No argument expected. - opt_out="-${opt}" - else - # Argument expected. - opt="${opt%?}" - opt_out="-${opt} $(get_msg "opt_${opt}_arg")" - fi - if [ ${#opt_out} -gt 20 ]; then - printf ' %s\n%24s' "${opt_out}" '' - else - printf ' %-20s ' "${opt_out}" - fi - summary="$(get_msg "opt_${opt}_summary")" - printf '%s\n' "${summary}" | fold -s -w 56 | \ - sed "2,\$s/^/${padding}/;" - done -} - -print_cmd_summaries() -{ - local padding= - local cmd= - local cmd_clean= - local summary= - - padding="$(printf '%24s' '')" - for cmd in ${CMDS}; do - if [ ${#cmd} -gt 20 ]; then - printf ' %s\n%24s' "${cmd}" '' - else - printf ' %-20s ' "${cmd}" - fi - cmd_clean="$(printf '%s' "${cmd}" | \ - tr '[A-Z]' '[a-z]' | tr -C '[a-z0-9_]' '_')" - summary="$(get_msg "cmd_${cmd_clean}_summary")" - printf '%s\n' "${summary}" | fold -s -w 56 | \ - sed "2,\$s/^/${padding}/;" - done -} - -print_cmd_usage() -{ - local cmd="${1}" - local cmd_clean= - local usage= - - cmd_clean="$(printf '%s' "${cmd}" | \ - tr '[A-Z]' '[a-z]' | tr -C '[a-z0-9_]' '_')" - usage="$(get_msg "cmd_${cmd_clean}_usage")" - - printf "$(get_msg 'cmd_usage')\n" "${0}" "${cmd}" "${usage}" -} - -is_cmd() -{ - local cmd="${1}" - - [ "x$(printf '%s\n' ${CMDS} | grep "^${cmd}$")" = "x${cmd}" ] -} - -run_cmd() -{ - local cmd="${1}" - local cmd_clean= - shift - - cmd_clean="$(printf '%s' "${cmd}" | \ - tr '[A-Z]' '[a-z]' | tr -C '[a-z0-9_]' '_')" - if is_cmd "${cmd}"; then - running_cmd="${cmd}" - running_cmd_clean="${cmd_clean}" - "cmd_${cmd_clean}_main" "${@}" - running_cmd='' - running_cmd_clean='' - else - error 1 "$(get_msg 'cmd_not_found')" "${cmd}" - fi -} diff --git a/lib/cmd/build.sh b/lib/cmd/build.sh deleted file mode 100644 index d22fa1e..0000000 --- a/lib/cmd/build.sh +++ /dev/null @@ -1,153 +0,0 @@ -# "build" command -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -use block -use profile -use session -use rand -use package -use control - -cmd_build_root= -cmd_build_pkg_dir= -cmd_build_build_deps= - -cmd_build_main() -{ - local root= - local dev= - local opkbuild_optstring= - local arch= - local plat= - local first_arg= - local arg= - - if [ ${#} -lt 2 ]; then - print_cmd_usage 'build' >&2 - exit 1 - fi - - root="${1}" - shift 1 - - dev='' - if is_block "${root}"; then - dev="${root}" - root="$(block_mount "${dev}")" - fi - - cmd_build_root="${root}" - - opkbuild_optstring="$(cat "${root}/usr/share/opkbuild/optstring")" - arch="$(cat "${root}/etc/proteanos_arch")" - plat="$(cat "${root}/etc/proteanos_plat")" - while getopts "${opkbuild_optstring}" opt 2>/dev/null; do - case "${opt}" in - a) arch="${OPTARG}";; - p) plat="${OPTARG}";; - esac - done - - first_arg=true - cmd_build_pkg_dir='' - for arg in "${@}"; do - if ${first_arg}; then - set -- - first_arg=false - else - set -- "${@}" "${cmd_build_pkg_dir}" - fi - cmd_build_pkg_dir="${arg}" - done - - . "${root}/etc/os-release" - profile_set "${ID}" - - if ! [ -d "${cmd_build_pkg_dir}" ]; then - error 2 "$(get_msg 'cmd_build_not_a_dir')" \ - "${cmd_build_pkg_dir}" - fi - package_init "${cmd_build_pkg_dir}" - package_set_substvars "${arch}" "${plat}" - - session_begin "${root}" "${cmd_build_pkg_dir}" cmd_build_fini false - - cmd_build_build_deps="$(package_get_build_deps "${arch}" "${plat}")" - if [ "x${cmd_build_build_deps}" != 'x' ]; then - cmd_build_make_deps_pkg - session_exec opkg install ../builddeps.opk - fi - - session_exec opkbuild "${@}" - - cmd_build_fini - - session_end - - if [ "x${dev}" != 'x' ]; then - block_umount "${root}" - fi -} - -cmd_build_make_deps_pkg() -{ - local pkg_dir= - - pkg_dir="${cmd_build_root}$(session_dir)/builddeps" - mkdir -p "${pkg_dir}/control" "${pkg_dir}/data" - printf '2.0\n' >"${pkg_dir}/debian-binary" - cat >"${pkg_dir}/control/control" <<-EOF - Package: prokit-builddeps-$(session_id) - Source: prokit - Version: 1.0 - Architecture: all - Platform: all - Depends: ${cmd_build_build_deps} - Description: Build dependencies metapackage generated by prokit - EOF - (cd "${pkg_dir}/data"; tar -czf ../data.tar.gz .) - (cd "${pkg_dir}/control"; tar -czf ../control.tar.gz .) - (cd "${pkg_dir}"; tar -czf ../builddeps.opk \ - 'debian-binary' 'data.tar.gz' 'control.tar.gz') - rm -Rf "${pkg_dir}" -} - -cmd_build_fini() -{ - local session_dir= - local f= - - session_dir="$(session_dir)" - - if [ "x${cmd_build_build_deps}" != 'x' ]; then - session_exec opkg --autoremove remove \ - prokit-builddeps-$(session_id) - rm "${cmd_build_root}${session_dir}/builddeps.opk" - # Hack to avoid this code branch if the function is called again - # in response to a signal. - cmd_build_build_deps='' - fi - - for f in "${cmd_build_root}${session_dir}/"*; do - [ -e "${f}" ] || continue - [ "x${f##*/}" = 'xwd' ] && continue - mv "${f}" "${cmd_build_pkg_dir}/.." - done -} diff --git a/lib/cmd/help.sh b/lib/cmd/help.sh deleted file mode 100644 index 7515fdb..0000000 --- a/lib/cmd/help.sh +++ /dev/null @@ -1,41 +0,0 @@ -# "help" command -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -cmd_help_main() -{ - local cmd= - - if [ ${#} -eq 1 ]; then - cmd="${1}" - if is_cmd "${cmd}"; then - print_cmd_usage "${cmd}" - return 0 - fi - fi - - printf "$(get_msg 'cmd_help_head')\n\n" "${0}" - - printf "$(get_msg 'cmd_help_opts_head')\n" - print_opt_summaries - printf '\n' - - printf "$(get_msg 'cmd_help_summary_head')\n" - print_cmd_summaries -} diff --git a/lib/cmd/install.sh b/lib/cmd/install.sh deleted file mode 100644 index d983e28..0000000 --- a/lib/cmd/install.sh +++ /dev/null @@ -1,81 +0,0 @@ -# "install" command -# -# Copyright (C) 2013, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -use getopt -use feed -use profile -use block -use install - -cmd_install_optstring='a:p:m:F' - -cmd_install_main() -{ - local suite= - local chroot= - local profile= - local foreign= - local dev= - - if ! get_options "${@}"; then - print_cmd_usage 'install' >&2 - exit 1 - fi - shift $(($OPTIND - 1)) - - if [ ${#} -lt 2 ]; then - print_cmd_usage 'install' >&2 - exit 1 - fi - - # TODO: Consider making suite optional, getting a default suite from the - # profile. - suite="${1}" - chroot="${2}" - - if [ "x${suite%%:*}" != "x${suite}" ]; then - profile="${suite%%:*}" - suite="${suite#*:}" - else - profile='proteanos' - fi - profile_set "${profile}" - suite="$(profile_normalize_suite "${suite}")" - - if [ "x${cmd_install_opt_F+set}" = 'xset' ]; then - foreign=true - else - foreign=false - fi - - dev='' - if is_block "${chroot}"; then - dev="${chroot}" - chroot="$(block_mount "${dev}")" - fi - - install_system "${cmd_install_opt_m-}" "${suite}" \ - "${cmd_install_opt_a-}" "${cmd_install_opt_p-}" \ - "${chroot}" "${foreign}" - - if [ "x${dev}" != 'x' ]; then - block_umount "${chroot}" - fi -} diff --git a/lib/cmd/installer-pc.sh b/lib/cmd/installer-pc.sh deleted file mode 100644 index 69381d0..0000000 --- a/lib/cmd/installer-pc.sh +++ /dev/null @@ -1,101 +0,0 @@ -# "installer-pc" command -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -use getopt -use profile -use block -use install -use session - -cmd_installer_pc_optstring='a:p:m:' - -cmd_installer_pc_main() -{ - local suite= - local dev= - local profile= - local root= - local b4= - local b3= - local b2= - local b1= - - if ! get_options "${@}"; then - print_cmd_usage 'installer-pc' >&2 - exit 1 - fi - shift $(($OPTIND - 1)) - - if [ "x${cmd_installer_pc_opt_a-}" = 'x' ]; then - print_cmd_usage 'installer-pc' >&2 - exit 1 - fi - if [ "x${cmd_installer_pc_opt_p-}" = 'x' ]; then - print_cmd_usage 'installer-pc' >&2 - exit 1 - fi - if [ ${#} -ne 2 ]; then - print_cmd_usage 'installer-pc' >&2 - exit 1 - fi - - suite="${1}" - dev="${2}" - check_block "${dev}" - - if [ "x${suite%%:*}" != "x${suite}" ]; then - profile="${suite%%:*}" - suite="${suite#*:}" - else - profile='proteanos' - fi - profile_set "${profile}" - suite="$(profile_normalize_suite "${suite}")" - - cmd_installer_pc_make_partition_and_fs "${dev}" - root="$(block_mount "${dev}1")" - - install_system "${cmd_installer_pc_opt_m-}" "${suite}" \ - "${cmd_installer_pc_opt_a-}" "${cmd_installer_pc_opt_p-}" \ - "${root}" false - - if [ -f "${root}/sbin/lilo" ]; then - read b4 b3 b2 b1 <<-EOF - $(od -An -tx1 -v -j 440 -N 4 "${dev}") - EOF - # This ln command won't be needed once lilo 24.1-1 is uploaded. - ln "${root}/boot/vmlinuz" "${root}/boot/vmlinuz.old" - session_begin "${root}" . : false - session_exec install-lilo \ - "${dev}" "PARTUUID=${b1}${b2}${b3}${b4}-01" - session_end - fi - - block_umount "${root}" -} - -cmd_installer_pc_make_partition_and_fs() -{ - local dev="${1}" - - dd if=/dev/zero of="${dev}" bs=512 count=1 - printf 'n\np\n1\n\n\nt\n83\na\n1\nw\n' | fdisk "${dev}" - mke2fs -t ext4 "${dev}1" -} diff --git a/lib/cmd/local.mk b/lib/cmd/local.mk deleted file mode 100644 index dc6e2ae..0000000 --- a/lib/cmd/local.mk +++ /dev/null @@ -1,8 +0,0 @@ -pkgdatacmd_sources = \ - lib/cmd/help.sh \ - lib/cmd/version.sh \ - lib/cmd/install.sh \ - lib/cmd/shell.sh \ - lib/cmd/opkg.sh \ - lib/cmd/build.sh \ - lib/cmd/installer-pc.sh diff --git a/lib/cmd/opkg.sh b/lib/cmd/opkg.sh deleted file mode 100644 index 51b90dc..0000000 --- a/lib/cmd/opkg.sh +++ /dev/null @@ -1,111 +0,0 @@ -# "opkg" command -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -use block -use profile -use session -use rand - -cmd_opkg_opks= - -cmd_opkg_main() -{ - local root= - local dev= - local first_arg= - local install_cmd= - local arg= - local new_fname= - - if [ ${#} -lt 1 ]; then - print_cmd_usage 'opkg' >&2 - exit 1 - fi - - root="${1}" - shift 1 - - dev='' - if is_block "${root}"; then - dev="${root}" - root="$(block_mount "${dev}")" - fi - - first_arg=true - install_cmd=false - cmd_opkg_opks='' - for arg in "${@}"; do - if ${first_arg}; then - set -- - first_arg=false - fi - if ${install_cmd}; then - case "${arg}" in - *.opk|*.ipk|*.deb) - if ! [ -e "${arg}" ]; then - set -- "${@}" "${arg}" - continue - fi - rand - new_fname="/tmp/prokit.${rand_x}.opk" - cmd_opkg_opks="$(printf '%s %s\n' \ - "${cmd_opkg_opks}" \ - "${root}${new_fname}")" - cp "${arg}" "${root}${new_fname}" - set -- "${@}" "${new_fname}" - ;; - *) - set -- "${@}" "${arg}" - ;; - esac - else - set -- "${@}" "${arg}" - if [ "x${arg}" = 'xinstall' ]; then - install_cmd=true - fi - fi - done - - . "${root}/etc/os-release" - profile_set "${ID}" - - session_begin "${root}" . cmd_opkg_fini false - - session_exec opkg "${@}" - - cmd_opkg_fini - session_end - - if [ "x${dev}" != 'x' ]; then - block_umount "${root}" - fi -} - -cmd_opkg_fini() -{ - case "${cmd_opkg_opks}" in - *[!\ ]*) - rm -f ${cmd_opkg_opks} - # Hack to avoid this code branch if the function is - # called again in response to a signal. - cmd_opkg_opks='' - ;; - esac -} diff --git a/lib/cmd/shell.sh b/lib/cmd/shell.sh deleted file mode 100644 index b5b6d69..0000000 --- a/lib/cmd/shell.sh +++ /dev/null @@ -1,60 +0,0 @@ -# "shell" command -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -use block -use profile -use session - -cmd_shell_main() -{ - local root= - local dev= - - if [ ${#} -lt 1 ]; then - print_cmd_usage 'shell' >&2 - exit 1 - fi - - root="${1}" - shift 1 - - dev='' - if is_block "${root}"; then - dev="${root}" - root="$(block_mount "${dev}")" - fi - - . "${root}/etc/os-release" - profile_set "${ID}" - - session_begin "${root}" . : false - if [ ${#} -eq 0 ]; then - session_exec /bin/sh - printf '\n' - info "$(get_msg 'cmd_shell_exiting')" - else - session_exec "${@}" - fi - session_end - - if [ "x${dev}" != 'x' ]; then - block_umount "${root}" - fi -} diff --git a/lib/cmd/version.sh b/lib/cmd/version.sh deleted file mode 100644 index cc40b4b..0000000 --- a/lib/cmd/version.sh +++ /dev/null @@ -1,27 +0,0 @@ -# "version" command -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -cmd_version_main() -{ - printf '%s (%s) %s\n' "${0##*/}" "${PACKAGE_NAME}" "${PACKAGE_VERSION}" - - printf "$(get_msg 'cmd_version_copyright')\n" \ - '2012, 2013, 2014' 'Patrick "P. J." McDermott' -} diff --git a/lib/control.sh b/lib/control.sh deleted file mode 100644 index 3dcb06c..0000000 --- a/lib/control.sh +++ /dev/null @@ -1,153 +0,0 @@ -# Functions for parsing control files. -# -# Copyright (C) 2012, 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_CONTROL_SM+set}" = 'xset' ] && return 0 -_CONTROL_SM=1 - -use output -use locale - -control_file= -control_line_nr= - -parse_control() -{ - local field_cb="${2}" - local paragraph_cb="${3}" - local req_fields="${4}" - local in_paragraph= - local line= - local para_req_fields= - local got_fields= - local name= - local value= - - control_file="${1}" - control_line_nr=0 - - in_paragraph='false' - - while IFS='' read -r line; do - control_line_nr=$(($control_line_nr + 1)) - if [ "x$(echo ${line})" = 'x' ]; then - # Paragraph end. - if ${in_paragraph}; then - # The first line is blank to consolidate - # initialization code (see heredocument below). - in_paragraph='false' - if [ "x${name}" != 'x' ]; then - if ! "${field_cb}" "${name}" "${value}" - then - return 0 - fi - fi - if ! "${paragraph_cb}"; then - return 0 - fi - if [ "x${para_req_fields}" != 'x' ]; then - para_req_fields="$(printf "%s$(get_msg \ - 'list_item_separator')" \ - ${para_req_fields})" - parse_control_error \ - 'control_missing_fields' \ - "${para_req_fields}" - fi - fi - para_req_fields="$(printf '%s\n' ${req_fields})" - got_fields="${LF}" - name='' - value='' - elif [ "x${line#\#}" != "x${line}" ]; then - # Comment. - in_paragraph='true' - elif [ "x${line# }" = "x${line}" ]; then - # "Name: Value" line. - in_paragraph='true' - if [ "x${name}" != 'x' ]; then - if ! "${field_cb}" "${name}" "${value}"; then - return 0 - fi - fi - name="${line%%:*}" - value="${line#*:}" - value="${value# }" - if [ "x${name}" = 'x' -o "x${name}" = "x${line}" ]; then - parse_control_error 'control_bad_nv' - continue - fi - if [ "x${para_req_fields}" != 'x' ]; then - # Remove field from list of required fields. - para_req_fields="$(printf '%s' "${para_req_fields}" | \ - grep -Fv "${name}")" - fi - if [ "x${got_fields%${LF}${name}${LF}*}" != \ - "x${got_fields}" ]; then - # Duplicate field. - parse_control_error 'control_duplicate_field' \ - "${name}" - else - got_fields="${got_fields}${name}${LF}" - fi - else - # Continuation line. - in_paragraph='true' - if [ "x${name}" = 'x' ]; then - # Expecting a "Name: Value" line. - parse_control_error 'control_found_continuation' - continue - fi - value="${value}${LF}${line# }" - fi - done <<-EOF - - $(cat "${control_file}") - - EOF - # The first blank line above triggers the paragraph end code to - # consolidate initialization code. - # The second blank line above is needed because the command substitution - # removes any trailing newlines. - - if [ "x${name}" != 'x' ]; then - if ! "${field_cb}" "${name}" "${value}"; then - return 0 - fi - fi - - return 0 -} - -parse_control_error() -{ - local msgid="${1}" - local file_info= - shift 1 - - if [ ${control_line_nr} -eq 0 ]; then - file_info="$(printf '%20s:' "${control_file}")" - else - file_info="$(printf '%20s(l%d):' "${control_file}" \ - "${control_line_nr}")" - fi - - warn "${file_info} $(get_msg "${msgid}")" "${@}" - - return 0 -} diff --git a/lib/deps.sh b/lib/deps.sh deleted file mode 100644 index 7800cad..0000000 --- a/lib/deps.sh +++ /dev/null @@ -1,161 +0,0 @@ -# Functions for parsing dependency field values -# -# Copyright (C) 2012, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_DEPS_SM+set}" = 'xset' ] && return 0 -_DEPS_SM=1 - -use archplat - -parse_dep() -{ - local dep="${1}" - local host_arch="${2}" - local host_plat="${3}" - local pkgarchqual= - local pkg= - local archqual= - local relver= - local rel= - local ver= - local arches= - local plats= - - dep="$(printf '%s\n' "${dep}" | sed -n ' - H; # Store each input line in hold space. - ${ # On the last line: - g; # Restore everything to pattern space. - s/[\t\n]/ /g; # Replace tabs & newlines with spaces. - s/ *\([(\[<]\) */ \1/g; # One space before "(", "[", and "<". - s/ *\([)\]>]\) */\1 /g; # One space after "(", "[", and "<". - s/ *\(<[<=]\) */\1 /g; # One space after "<<" and "<=". - s/ *\(>[>=]\) */\1 /g; # One space after ">>" and ">=". - s/ *\(=\) */\1 /g; # One space after "=". - s/^ *//; # Remove leading spaces. - s/ *$//; # Remove trailing spaces. - s/ */ /g; # Remove duplicate spaces. - p; # Print the pattern space. - }; # End. - ')" - - # dep is now of the form: - # pkg[:archqual] [(rel ver)] [\[arches\]] [<plats>] - - pkgarchqual="${dep%% *}" - dep=" ${dep#* }" - pkg="${pkgarchqual%:*}" - if [ "x${pkg}" != "x${pkgarchqual}" ]; then - archqual="${pkgarchqual##*:}" - fi - - if [ "x${dep# (*)}" != "x${dep}" ]; then - relver="${dep# (}" - relver="${relver%%)*}" - dep="${dep# (*)}" - rel="${relver% *}" - ver="${relver##* }" - fi - - if [ "x${dep# \[*\]}" != "x${dep}" ]; then - arches="${dep# \[}" - arches="${arches%%\]*}" - dep="${dep# \[*\]}" - fi - - if [ "x${dep# <*>}" != "x${dep}" ]; then - plats="${dep# <}" - plats="${plats%%>*}" - dep="${dep# <*>}" - fi - - if [ "x${host_arch}" != 'x' ] && ! arch_is_concerned \ - "${host_arch}" "${arches}"; then - return 0 - fi - if [ "x${host_plat}" != 'x' ] && ! plat_is_concerned \ - "${host_plat}" "${plats}"; then - return 0 - fi - - printf '%s' "${pkg}" - [ "x${archqual}" != 'x' ] && printf ':%s' "${archqual}" - [ "x${ver}" != 'x' ] && printf ' (%s %s)' "${rel}" "${ver}" - [ "x${host_arch}" = 'x' ] && [ "x${arches}" != 'x' ] && \ - printf ' [%s]' "${arches}" - [ "x${host_plat}" = 'x' ] && [ "x${plats}" != 'x' ] && \ - printf ' <%s>' "${plats}" - printf '\n' - - return 0 -} - -reduce_deps() -{ - local deps="${1}" - local union="${2}" - local host_arch="${3}" - local host_plat="${4}" - local dep_and= - local dep_or= - local dep_list= - local dep_or_list= - local dep= - - dep_list='' - IFS=',' - for dep_and in ${deps}; do - unset IFS - if ! ${union}; then - dep_or_list='' - IFS='|' - for dep_or in ${dep_and}; do - unset IFS - dep="$(parse_dep "${dep_or}" \ - "${host_arch}" "${host_plat}")" - if [ "x${dep}" != 'x' ]; then - if [ "x${dep_or_list}" != 'x' ]; then - dep_or_list="${dep_or_list} | " - fi - dep_or_list="${dep_or_list}${dep}" - fi - done - unset IFS - if [ "x${dep_or_list}" != 'x' ]; then - if [ "x${dep_list}" != 'x' ]; then - dep_list="${dep_list}, " - fi - dep_list="${dep_list}${dep_or_list}" - fi - else - dep="$(parse_dep "${dep_and}" \ - "${host_arch}" "${host_plat}")" - if [ "x${dep}" != 'x' ]; then - if [ "x${dep_list}" != 'x' ]; then - dep_list="${dep_list}, " - fi - dep_list="${dep_list}${dep}" - fi - fi - done - unset IFS - - printf '%s\n' "${dep_list}" - - return 0 -} diff --git a/lib/dir.sh b/lib/dir.sh deleted file mode 100644 index c49469d..0000000 --- a/lib/dir.sh +++ /dev/null @@ -1,59 +0,0 @@ -# Miscellaneous directory-related functions -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_DIR_SM+set}" = 'xset' ] && return 0 -_DIR_SM=1 - -dir_is_empty() -{ - local dir="${1}" - local ret= - local dirent= - local exclude= - local exclusion= - shift 1 - - ret=0 - - # Patterns to match all dirents except "." and "..": - # * dirents whose names don't start with "." - # .[!.] dirents whose names start with ".", are two characters long, - # and aren't ".." - # .??* dirents whose names start with "." and are three or more - # characters long - for dirent in "${dir}/"* "${dir}/".[!.] "${dir}/".[!.] "${dir}/".??*; do - if ! [ -e "${dirent}" ]; then - continue - fi - exclude=false - for exclusion in "${@}"; do - if [ "x${dirent##*/}" = "x${exclusion}" ]; then - exclude=true - break - fi - done - if ! ${exclude}; then - ret=1 - break - fi - done - - return ${ret} -} diff --git a/lib/fd.sh b/lib/fd.sh deleted file mode 100644 index 49ffc68..0000000 --- a/lib/fd.sh +++ /dev/null @@ -1,98 +0,0 @@ -# Functions for opening and closing file descriptors -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_FD_SM+set}" = 'xset' ] && return 0 -_FD_SM=1 - -use output -use locale - -_FD_MIN=3 -# Shells and the file descriptors they reserve for the user: -# * Debian Almquist Shell -# - The shell doesn't understand any file descriptor greater than 9. -# - File descriptors starting at 10 are used for I/O redirection. -# * BusyBox ash -# - File descriptors starting at 10 are used for job control and I/O -# redirection. -# * GNU Bash: -# - GNU Readline uses file descriptor 255 in interactive shells. -# - File descriptors starting at 10 are used for I/O redirection. -# * MirOS Korn Shell -# - File descriptors starting at either 10 or 24 are used for the shell's -# tty_fd and shl_dbg_fd. -# * Solaris ksh -# - The shell doesn't understand any file descriptor greater than 9. -_FD_MAX=9 - -FD= - -fopen() -{ - local path="${1}" - local mode="${2}" - local i= - local fd= - - case "${mode}" in - 'r') mode='<' ;; - 'w') mode='>' ;; - 'a') mode='>>';; - 'rw') mode='<>';; - *) return 125;; - esac - - # Find first available file descriptor. - i=${_FD_MIN} - while [ ${i} -le ${_FD_MAX} ]; do - if [ "x$(eval echo "\${_fd_${i}+set}")" != 'xset' ]; then - fd=${i} - break - fi - i=$(($i + 1)) - done - if [ "x${fd:+set}" != 'xset' ]; then - error 2 "$(get_msg 'emfile')" - return - fi - - if eval "exec ${fd}${mode}'${path}'"; then - eval "_fd_${fd}='${mode}${path}'" - FD="${fd}" - return 0 - else - error 2 "$(get_msg 'cant_fopen')" - fi -} - -fclose() -{ - local fd="${1}" - - # Make sure the file descriptor is open. - if [ "x$(eval echo "\${_fd_${fd}+set}")" != 'xset' ]; then - error 2 "$(get_msg 'ebadf')" - fi - - eval "exec ${fd}>&-" - unset "_fd_${fd}" - - return 0 -} diff --git a/lib/feed.sh b/lib/feed.sh deleted file mode 100644 index 8d29640..0000000 --- a/lib/feed.sh +++ /dev/null @@ -1,143 +0,0 @@ -# Functions for handling feed index files -# -# Copyright (C) 2013, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_FEED_SM+set}" = 'xset' ] && return 0 -_FEED_SM=1 - -use fd -use control - -feed_dep_fields= -feed_pkg_cb= -feed_deps_cb= -feed_fname_cb= -feed_md5sum_cb= -feed_sha256sum_cb= -feed_pkgs= -feed_pkg_include= -feed_pkg= -feed_deps= - -feed_download() -{ - local feed_index="${1}" - local use_gzip="${2}" - local gzip= - - if ${use_gzip}; then - gzip=gunzip - else - gzip=cat - fi - - wget -q -O - "${feed_index}" | ${gzip} - - return 0 -} - -feed_find_pkgs() -{ - local feed_idx="${1}" - local dep_fields="${2}" - local pkg_cb="${3}" - local deps_cb="${4}" - local fname_cb="${5}" - local md5sum_cb="${6}" - local sha256sum_cb="${7}" - - feed_dep_fields=" $(printf '%s ' ${dep_fields} | tr 'A-Z' 'a-z')" - feed_pkg_cb="${pkg_cb}" - feed_deps_cb="${deps_cb}" - feed_fname_cb="${fname_cb}" - feed_md5sum_cb="${md5sum_cb}" - feed_sha256sum_cb="${sha256sum_cb}" - - feed_pkgs='' - feed_pkg_include='false' - feed_pkg='' - feed_deps='' - - parse_control "${feed_idx}" feed_field_cb feed_para_cb 'Package' - - printf '%s\n' "${feed_pkgs# }" - - return 0 -} - -feed_field_cb() -{ - local name="${1}" - local value="${2}" - - name="$(printf '%s\n' "${name}" | tr 'A-Z' 'a-z')" - - if [ "x${name}" = 'xpackage' ]; then - feed_pkg="${value}" - elif [ "x${name}" = 'xfilename' ]; then - ${feed_fname_cb} "${feed_pkg}" "${value}" - elif [ "x${name}" = 'xmd5sum' ]; then - ${feed_md5sum_cb} "${feed_pkg}" "${value}" - elif [ "x${name}" = 'xsha256sum' ]; then - ${feed_sha256sum_cb} "${feed_pkg}" "${value}" - elif [ "x${feed_dep_fields#* ${name} }" != "x${feed_dep_fields}" ]; then - feed_deps="${feed_deps}${value}, " - fi - - if ${feed_pkg_cb} ${name} ${value}; then - feed_pkg_include='true' - fi - - return 0 -} - -feed_para_cb() -{ - local new_deps= - local dep= - - if ${feed_pkg_include}; then - feed_pkgs="${feed_pkgs} ${feed_pkg}" - fi - - new_deps='' - IFS=',' - for dep in ${feed_deps%, }; do - unset IFS - # Trim off versions and disjunctions. - dep="${dep%%(*}" - dep="${dep%%|*}" - # Trim whitespace. - dep="$(printf '%s\n' "${dep}" | sed 's/^ *//; s/ *$//')" - # In practice, this would suffice for control files generated by - # opkbuild: - # dep="${dep#[ ${HT}${LF}]}" - # dep="${dep%[ ${HT}${LF}]}" - new_deps="${new_deps} ${dep}" - done - unset IFS - - ${feed_deps_cb} "${feed_pkg}" "${new_deps# }" - - feed_pkg_include='false' - feed_pkg='' - feed_deps='' - - return 0 -} diff --git a/lib/getopt.sh b/lib/getopt.sh deleted file mode 100644 index b8d90fb..0000000 --- a/lib/getopt.sh +++ /dev/null @@ -1,55 +0,0 @@ -# Functions for parsing command-line options -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_GETOPT_SM+set}" = 'xset' ] && return 0 -_GETOPT_SM=1 - -get_options() -{ - local optstring= - local prefix= - local opt= - - if [ "x${running_cmd_clean}" = 'x' ]; then - optstring="${OPTSTRING}" - prefix='opt_' - else - eval "optstring=\"\${cmd_${running_cmd_clean}_optstring}\"" - prefix="cmd_${running_cmd_clean}_opt_" - fi - - unset OPTARG - while getopts "${optstring}" opt; do - if [ "x${opt}" = 'x?' ]; then - return 1 - fi - case "${optstring}" in - *"${opt}:"*) - eval "${prefix}${opt}=\"\${OPTARG}\"" - ;; - *) - eval "${prefix}${opt}=true" - ;; - esac - unset OPTARG - done - - return 0 -} diff --git a/lib/install.sh b/lib/install.sh deleted file mode 100644 index b7ca485..0000000 --- a/lib/install.sh +++ /dev/null @@ -1,274 +0,0 @@ -# Functions for installing systems -# -# Copyright (C) 2013, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_INSTALL_SM+set}" = 'xset' ] && return 0 -_INSTALL_SM=1 - -use profile -use dir -use fd -use pkg - -install_deps= -install_fnames= -install_md5sums= -install_sha256sums= -install_feed_url= - -install_system() -{ - local mirror="${1}" - local suite="${2}" - local arch="${3}" - local plat="${4}" - local chroot="${5}" - local foreign="${6}" - - if [ "x${arch}" = 'x' ]; then - arch="$(profile_detect_arch)" - fi - if [ "x${plat}" = 'x' ]; then - plat="$(profile_default_plat)" - fi - if [ "x${mirror}" = 'x' ]; then - mirror="$(profile_select_mirror)" - fi - - if ! profile_validate_archplat "${mirror}" "${arch}" "${plat}" \ - "${suite}"; then - error 2 "$(get_msg 'install_bad_archplat')" \ - "${arch}" "${plat}" - fi - - info "$(get_msg 'install_selected_arch')" "${arch}" - info "$(get_msg 'install_selected_plat')" "${plat}" - info "$(get_msg 'install_selected_mirror')" "${mirror}" - - info "$(get_msg 'install_setting_up_chroot')" - if [ -d "${chroot}" ] && ! dir_is_empty "${chroot}" 'lost+found'; then - error 2 "$(get_msg 'install_chroot_dir_exists')" "${chroot}" - fi - if ! mkdir -p "${chroot}/.prokit" "${chroot}/prokit"; then - error 2 "$(get_msg 'install_mkdir_chroot_fail')" "${chroot}" - fi - >"${chroot}/prokit/installing" - - info "$(get_msg 'install_find_pkgs')" - install_find_pkgs "${mirror}" "${suite}" "${arch}" "${plat}" \ - "${chroot}" - install_get_pkgs "${chroot}" - - info "$(get_msg 'install_configuring')" - if ! ${foreign}; then - profile_configure_system_native "${chroot}" "${arch}" "${plat}" - else - profile_configure_system_foreign "${chroot}" "${arch}" "${plat}" - fi - - rm "${chroot}/prokit/installing" -} - -install_find_pkgs() -{ - local mirror="${1}" - local suite="${2}" - local arch="${3}" - local plat="${4}" - local chroot="${5}" - local opkg_conf_fd= - local pkgs_fd= - local opt= - local feed_idx= - local feed= - local gzip= - local pkgs= - - mkdir -p "${chroot}/etc/opkg" "${chroot}/var/lib/opkg/lists" - fopen "${chroot}/etc/opkg/opkg.conf" 'w' - opkg_conf_fd=${FD} - - install_deps= - install_fnames= - install_md5sums= - install_sha256sums= - - fopen "${chroot}/.prokit/packages" 'w' - pkgs_fd=${FD} - - while read -r opt feed_idx feed; do - case "${opt}" in - 'src') gzip=false;; - 'src/gz') gzip=true;; - *) continue;; - esac - printf '%s %s %s\n' "${opt}" "${feed_idx}" \ - "${feed%/Packages*}" >&${opkg_conf_fd} - feed_download "${feed}" ${gzip} \ - >"${chroot}/var/lib/opkg/lists/${feed_idx}" - install_feed_url="${feed%/*}" - feed_find_pkgs "${chroot}/var/lib/opkg/lists/${feed_idx}" \ - "$(profile_dep_fields)" profile_include_pkg \ - install_deps_cb install_fname_cb \ - install_md5sum_cb install_sha256sum_cb \ - >&${pkgs_fd} - done <<-EOF - $(profile_feeds "${mirror}" "${arch}" "${plat}" "${suite}") - EOF - - printf '\ndest root /\n' >&${opkg_conf_fd} - printf 'arch %s 1\n' 'all' "${arch}" 'src' >&${opkg_conf_fd} - fclose ${opkg_conf_fd} - fclose ${pkgs_fd} - - pkgs="$(resolve_deps "$(cat "${chroot}/.prokit/packages")" \ - "${install_deps}" | xargs printf '%s\n' | sort -u)" - printf '%s\n' "${pkgs}" >"${chroot}/.prokit/packages" -} - -install_deps_cb() -{ - local pkg="${1}" - local deps="${2}" - - install_deps="${install_deps}${pkg}: ${deps}${LF}" -} - -install_fname_cb() -{ - local pkg="${1}" - local fname="${2}" - - install_fnames="$(printf '%s\n%s %s/%s' "${install_fnames}" \ - "${pkg}" "${install_feed_url}" "${fname}")" -} - -install_md5sum_cb() -{ - local pkg="${1}" - local md5sum="${2}" - - install_md5sums="$(printf '%s\n%s %s' "${install_md5sums}" \ - "${pkg}" "${md5sum}")" -} - -install_sha256sum_cb() -{ - local pkg="${1}" - local sha256sum="${2}" - - install_sha256sums="$(printf '%s\n%s %s' \ - "${install_sha256sums}" "${pkg}" "${sha256sum}")" -} - -install_get_pkgs() -{ - local chroot="${1}" - local status_fd= - local pkg= - local fname= - local md5sum= - local sha256sum= - local file= - local control= - local field= - local printed= - - mkdir -p "${chroot}/var/cache/opkg/archives" "${chroot}/tmp/opkg" \ - "${chroot}/var/lib/opkg/info" - - fopen "${chroot}/var/lib/opkg/status" 'w' - status_fd=${FD} - - for pkg in $(cat "${chroot}/.prokit/packages"); do - info "$(get_msg 'install_downloading_pkg')" "${pkg}" - fname="$(printf '%s\n' "${install_fnames}" | \ - sed -n "s/^${pkg} //p")" - md5sum="$(printf '%s\n' "${install_md5sums}" | \ - sed -n "s/^${pkg} //p")" - sha256sum="$(printf '%s\n' "${install_sha256sums}" | \ - sed -n "s/^${pkg} //p")" - wget -q -O "${chroot}/var/cache/opkg/archives/${fname##*/}" \ - "${fname}" || \ - error 2 "$(get_msg 'install_downloading_pkg_fail')" - fname="var/cache/opkg/archives/${fname##*/}" - if [ "x${md5sum}" != 'x' ]; then - printf '%s %s\n' \ - "${md5sum}" "${chroot}/${fname}" | \ - md5sum -c >/dev/null 2>&1 || \ - error 2 "$(get_msg 'install_checksum_fail')" - fi - if [ "x${sha256sum}" != 'x' ]; then - printf '%s %s\n' \ - "${sha256sum}" "${chroot}/${fname}" | \ - sha256sum -c >/dev/null 2>&1 || \ - error 2 "$(get_msg 'install_checksum_fail')" - fi - - info "$(get_msg 'install_unpacking_pkg')" "${pkg}" - mkdir "${chroot}/tmp/opkg/${pkg}" - ( - cd "${chroot}" - tar -xzOf "${fname}" data.tar.gz \ - >"tmp/opkg/${pkg}/data.tar.gz" - tar -xzf "tmp/opkg/${pkg}/data.tar.gz" - cd "tmp/opkg/${pkg}" - tar -xzOf "../../../${fname}" control.tar.gz | \ - tar -xz - ) - tar -tzf "${chroot}/tmp/opkg/${pkg}/data.tar.gz" | \ - sed 's/^\.//' >"${chroot}/var/lib/opkg/info/${pkg}.list" - rm -f "${chroot}/tmp/opkg/${pkg}/data.tar.gz" - for file in "${chroot}/tmp/opkg/${pkg}/"*; do - mv "${file}" \ - "${chroot}/var/lib/opkg/info/${pkg}.${file##*/}" - done - rmdir "${chroot}/tmp/opkg/${pkg}" - - # Write status file. - control="${chroot}/var/lib/opkg/info/${pkg}.control" - for field in Package Version Depends Recommends Suggests \ - Provides Replaces Conflicts; do - grep "^${field}: " "${control}" >&${status_fd} - done - printf 'Status: install ok unpacked\n' >&${status_fd} - for field in Essential Architecture; do - grep "^${field}: " "${control}" >&${status_fd} - done - if [ -r "${chroot}/var/lib/opkg/info/${pkg}.conffiles" ]; then - printed=false - while read -r file; do - ${printed} || printf 'Conffiles:\n' \ - >&${status_fd} - printf ' %s %s\n' "${file}" "$(md5sum \ - "${chroot}/${file}" | cut -d' ' -f1)" \ - >&${status_fd} - printed=true - done <"${chroot}/var/lib/opkg/info/${pkg}.conffiles" - fi - printf 'Installed-Time: %s\n\n' "$(date '+%s')" >&${status_fd} - - rm -f "${chroot}/${fname}" - done - - rm "${chroot}/.prokit/packages" - rmdir "${chroot}/.prokit" - - fclose ${status_fd} -} diff --git a/lib/local.mk b/lib/local.mk deleted file mode 100644 index a202aad..0000000 --- a/lib/local.mk +++ /dev/null @@ -1,22 +0,0 @@ -pkgdata_sources = \ - lib/output.sh \ - lib/locale.sh \ - lib/getopt.sh \ - lib/fd.sh \ - lib/dir.sh \ - lib/vardata.sh \ - lib/archplat.sh \ - lib/deps.sh \ - lib/substvars.sh \ - lib/control.sh \ - lib/feed.sh \ - lib/pkg.sh \ - lib/mutex.sh \ - lib/session.sh \ - lib/block.sh \ - lib/opkg.sh \ - lib/rand.sh \ - lib/cmd.sh \ - lib/profile.sh \ - lib/package.sh \ - lib/install.sh diff --git a/lib/locale.sh b/lib/locale.sh deleted file mode 100644 index 59390f8..0000000 --- a/lib/locale.sh +++ /dev/null @@ -1,89 +0,0 @@ -# Locale functions -# -# Copyright (C) 2012, 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_LOCALE_SM+set}" = 'xset' ] && return 0 -_LOCALE_SM=1 - -LOCALEDIR='@localedir@' -DEFAULT_LOCALE='en_US' -TEXT_DOMAIN='@textdomain@' - -load_locale() -{ - local localedir= - - # Make sure LC_MESSAGES is set. - if [ "x${LC_MESSAGES+set}" != 'xset' ]; then - if [ "x${LC_ALL+set}" = 'xset' ]; then - LC_MESSAGES="${LC_ALL}" - elif [ "x${LANG+set}" = 'xset' ]; then - LC_MESSAGES="${LANG}" - else - LC_MESSAGES="${DEFAULT_LOCALE}" - fi - fi - - if ${in_place}; then - localedir="${builddir}/locale" - else - localedir="${LOCALEDIR}" - fi - - # Try to load the locale. - if ! _try_load_locale "${localedir}" \ - "${LC_MESSAGES%.*}"; then - if ! _try_load_locale "${localedir}" \ - "${LC_MESSAGES%_*}"; then - if ! _try_load_locale "${localedir}" \ - "${DEFAULT_LOCALE}"; then - warn 'Cannot load locale' - return 1 - fi - fi - fi - - return 0 -} - -get_msg() -{ - local msgid="${1}" - - eval "printf '%s' \"\${msg_${TEXT_DOMAIN}_${msgid}}\"" - - return 0 -} - -_try_load_locale() -{ - local localedir="${1}" - local locale="${2}" - local ms= - - for ms in "${localedir}/${locale}/LC_MESSAGES/${TEXT_DOMAIN}.ms" \ - "${localedir}/${locale}.ms"; do - if [ -f "${ms}" ]; then - . "${ms}" - return 0 - fi - done - - return 1 -} diff --git a/lib/mutex.sh b/lib/mutex.sh deleted file mode 100644 index fb96e66..0000000 --- a/lib/mutex.sh +++ /dev/null @@ -1,57 +0,0 @@ -# Functions for locking and unlocking mutex objects -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_MUTEX_SM+set}" = 'xset' ] && return 0 -_MUTEX_SM=1 - -mutex_trylock() -{ - local mutex="${1}" - - (set -C; printf '%d\n' "${$}" >"${mutex}") 2>/dev/null -} - -mutex_timedlock() -{ - local mutex="${1}" - local timeout="${2}" - - while ! mutex_trylock "${mutex}"; do - [ ${timeout} -eq 0 ] && return 1 - timeout=$(($timeout - 1)) - sleep 1 - done - - return 0 -} - -mutex_unlock() -{ - local mutex="${1}" - - rm "${mutex}" -} - -mutex_is_unlockable() -{ - local mutex="${1}" - - [ "x$(cat "${mutex}" 2>/dev/null)" = "x${$}" ] -} diff --git a/lib/opkg.sh b/lib/opkg.sh deleted file mode 100644 index 2b942d3..0000000 --- a/lib/opkg.sh +++ /dev/null @@ -1,34 +0,0 @@ -# Functions for running the package manager -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_OPKG_SM+set}" = 'xset' ] && return 0 -_OPKG_SM=1 - -use session - -opkg_install_all() -{ - local root="${1}" - - session_begin "${root}" . : true - session_exec /bin/sh -c \ - 'opkg install $(opkg list-installed | cut -d " " -f 1)' - session_end -} diff --git a/lib/output.sh b/lib/output.sh deleted file mode 100644 index 877c7fc..0000000 --- a/lib/output.sh +++ /dev/null @@ -1,59 +0,0 @@ -# Functions for printing messages -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_OUTPUT_SM+set}" = 'xset' ] && return 0 -_OUTPUT_SM=1 - -error() -{ - local status=${1} - local fmt="${2}" - shift 2 - - printf '%s: Error: ' "${0##*/}" >&2 - printf "${fmt}\n" "${@}" >&2 - - # In a subshell, this will have no effect, so the shell's exit status - # will be 128+SIGINT. Meh. - exit_status=${status} - kill -s INT ${$} -} - -warn() -{ - local fmt="${1}" - shift 1 - - printf '%s: Warning: ' "${0##*/}" >&2 - printf "${fmt}\n" "${@}" >&2 - - return 0 -} - -info() -{ - local fmt="${1}" - shift 1 - - printf '%s: ' "${0##*/}" >&2 - printf "${fmt}\n" "${@}" >&2 - - return 0 -} diff --git a/lib/package.sh b/lib/package.sh deleted file mode 100644 index 5c494ba..0000000 --- a/lib/package.sh +++ /dev/null @@ -1,68 +0,0 @@ -# Interface for handling source package metadata -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_PACKAGE_SM+set}" = 'xset' ] && return 0 -_PACKAGE_SM=1 - -use locale -use output - -package_dir= -package_format= - -package_init() -{ - local dir="${1}" - - package_dir="${dir}" - - package_format='' - if [ -r "${package_dir}/format" ]; then - case "$(cat "${package_dir}/format")" in - 2.*) - package_format=2 - ;; - esac - fi - - if [ "x${package_format}" = 'x' ]; then - error 2 "$(get_msg 'package_format_unknown')" - fi - - use "package/${package_format}" - - return 0 -} - -package_get_build_deps() -{ - local arch="${1}" - local plat="${2}" - - "package_${package_format}_get_build_deps" "${arch}" "${plat}" -} - -package_set_substvars() -{ - local arch="${1}" - local plat="${2}" - - "package_${package_format}_set_substvars" "${arch}" "${plat}" -} diff --git a/lib/package/2.sh b/lib/package/2.sh deleted file mode 100644 index 335fec3..0000000 --- a/lib/package/2.sh +++ /dev/null @@ -1,84 +0,0 @@ -# Functions for handling metadata in SPF 2.0 packages -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_PACKAGE_2_SM+set}" = 'xset' ] && return 0 -_PACKAGE_2_SM=1 - -use control -use deps -use substvars - -package_2_build_deps= - -package_2_get_build_deps() -{ - local arch="${1}" - local plat="${2}" - - package_2_build_deps='' - parse_control "${package_dir}/control" \ - package_2_build_deps_field_cb false '' - - substvars "$(reduce_deps "${package_2_build_deps}" false \ - "${arch}" "${plat}")" - - return 0 -} - -package_2_build_deps_field_cb() -{ - local name="${1}" - local value="${2}" - - name="$(printf '%s\n' "${name}" | tr 'A-Z' 'a-z')" - - if [ "x${name}" = 'xbuild-depends' ]; then - package_2_build_deps="${value}" - return 1 - fi - - return 0 -} - -package_2_set_substvars() -{ - local arch="${1}" - local plat="${2}" - - if [ -f "${package_dir}/substvars" ]; then - parse_control "${package_dir}/substvars" \ - package_2_substvar_cb false '' - fi - - set_substvar 'Host-Arch' "${arch}" - set_substvar 'Host-Plat' "${plat}" - - return 0 -} - -package_2_substvar_cb() -{ - local name="${1}" - local value="${2}" - - set_substvar "${name}" "${value}" - - return 0 -} diff --git a/lib/package/local.mk b/lib/package/local.mk deleted file mode 100644 index aee6eca..0000000 --- a/lib/package/local.mk +++ /dev/null @@ -1,2 +0,0 @@ -pkgdatapackage_sources = \ - lib/package/2.sh diff --git a/lib/pkg.sh b/lib/pkg.sh deleted file mode 100644 index 337a864..0000000 --- a/lib/pkg.sh +++ /dev/null @@ -1,54 +0,0 @@ -# Functions for handling packages and their dependencies -# -# Copyright (C) 2013, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_PKG_SM+set}" = 'xset' ] && return 0 -_PKG_SM=1 - -resolve_deps() -{ - local new_pkgs="${1}" - local deps="${2}" - local all_deps= - local new_deps= - local pkg= - - all_deps='' - new_pkgs="${new_pkgs} " - while [ "x${new_pkgs}" != 'x' ]; do - all_deps="${all_deps}${new_pkgs}" - new_deps='' - for pkg in ${new_pkgs}; do - case "${pkg}" in - *[!a-z0-9+.-]*) continue;; - esac - new_deps="${new_deps} $(printf '%s' "${deps}" | \ - sed -n "s/^${pkg}: *//p")" - done - new_deps="$(printf '%s\n' ${new_deps} | sort -u)" - new_pkgs='' - for pkg in ${new_deps}; do - if [ "x${all_deps# ${pkg} }" = "x${all_deps}" ]; then - new_pkgs="${new_pkgs}${pkg} " - fi - done - done - - printf '%s\n' "${all_deps% }" -} diff --git a/lib/profile.sh b/lib/profile.sh deleted file mode 100644 index 44c58a2..0000000 --- a/lib/profile.sh +++ /dev/null @@ -1,163 +0,0 @@ -# Profile-related functions -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_PROFILE_SM+set}" = 'xset' ] && return 0 -_PROFILE_SM=1 - -use output -use locale - -PROFILES=' @profiles@ ' - -profile= - -is_profile() -{ - local prof="${1}" - - [ "x${PROFILES# ${prof} }" != "x${PROFILES}" ] -} - -profile_set() -{ - local prof="${1}" - - if is_profile "${prof}"; then - profile="${prof}" - use "profile/${profile}" - else - error 1 "$(get_msg 'profile_not_found')" "${prof}" - fi - - return 0 -} - -profile_normalize_suite() -{ - local suite="${1}" - - "prof_${profile}_normalize_suite" "${suite}" -} - -profile_detect_arch() -{ - "prof_${profile}_detect_arch" -} - -profile_default_plat() -{ - "prof_${profile}_default_plat" -} - -profile_select_mirror() -{ - "prof_${profile}_select_mirror" -} - -profile_validate_archplat() -{ - local mirror="${1}" - local arch="${2}" - local plat="${3}" - local suite="${4}" - - "prof_${profile}_validate_archplat" "${mirror}" "${arch}" "${plat}" \ - "${suite}" -} - -profile_feeds() -{ - local mirror="${1}" - local arch="${2}" - local plat="${3}" - local suite="${4}" - - "prof_${profile}_feeds" "${mirror}" "${arch}" "${plat}" "${suite}" -} - -profile_dep_fields() -{ - "prof_${profile}_dep_fields" -} - -profile_include_pkg() -{ - local name="${1}" - local value="${2}" - - "prof_${profile}_include_pkg" "${name}" "${value}" -} - -profile_get_fstab() -{ - local arch="${1}" - local plat="${2}" - - "prof_${profile}_get_fstab" "${arch}" "${plat}" -} - -profile_file_systems_mounted() -{ - local root="${1}" - local arch="${1}" - local plat="${2}" - - "prof_${profile}_file_systems_mounted" "${root}" "${arch}" "${plat}" -} - -profile_bind_mount() -{ - local arch="${1}" - local plat="${2}" - local olddir="${3}" - local newdir="${4}" - - "prof_${profile}_bind_mount" "${arch}" "${plat}" \ - "${olddir}" "${newdir}" -} - -profile_bind_umount() -{ - local arch="${1}" - local plat="${2}" - local olddir="${3}" - local newdir="${4}" - - "prof_${profile}_bind_umount" "${arch}" "${plat}" \ - "${olddir}" "${newdir}" -} - -profile_configure_system_native() -{ - local root="${1}" - local arch="${2}" - local plat="${3}" - - "prof_${profile}_configure_system_native" "${root}" "${arch}" "${plat}" -} - -profile_configure_system_foreign() -{ - local root="${1}" - local arch="${2}" - local plat="${3}" - - "prof_${profile}_configure_system_foreign" "${root}" "${arch}" "${plat}" -} diff --git a/lib/profile/local.mk b/lib/profile/local.mk deleted file mode 100644 index 2ebbca8..0000000 --- a/lib/profile/local.mk +++ /dev/null @@ -1,2 +0,0 @@ -pkgdataprofile_sources = \ - lib/profile/proteanos.sh diff --git a/lib/profile/proteanos.sh b/lib/profile/proteanos.sh deleted file mode 100644 index 272282a..0000000 --- a/lib/profile/proteanos.sh +++ /dev/null @@ -1,255 +0,0 @@ -# ProteanOS architecture detection and feeds lists. -# -# Copyright (C) 2013, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -use rand -use opkg - -prof_proteanos_fstab_linux="\ -proc /proc proc defaults -sys /sys sysfs defaults -/dev /dev none bind -devpts /dev/pts devpts noexec,nosuid,gid=5,mode=0620 -" -prof_proteanos_install_service=\ -'#!/bin/sh /etc/rc.common - -start() -{ - log "Configuring packages" - printf "disabled\n" >/etc/rc.policy - opkg install $(opkg list-installed | cut -d " " -f 1) - printf "enabled\n" >/etc/rc.policy - rm "${SCRIPT}" -} -' - -prof_proteanos_normalize_suite() -{ - local suite="${1}" - - case "${suite}" in - */*) printf '%s\n' "${suite}";; - *) printf 'dev/%s\n' "${suite}";; - esac - - return 0 -} - -prof_proteanos_detect_arch() -{ - local uname_m= - local uname_s= - local arch= - - uname_m="$( (uname -m) 2>/dev/null)" || uname_m='unknown' - uname_s="$( (uname -s) 2>/dev/null)" || uname_s='unknown' - - case "${uname_m}:${uname_s}" in - 'x86_64:Linux') - arch='amd64-linux-glibc' - ;; - 'i686:Linux') - arch='i686-linux-glibc' - ;; - *) - arch='' - esac - - printf '%s\n' "${arch}" -} - -prof_proteanos_default_plat() -{ - printf 'dev\n' -} - -prof_proteanos_select_mirror() -{ - local mirrors= - local mirrors_count= - local mirror_num= - - mirrors="$(wget -q -O - \ - 'http://files.proteanos.com/pub/proteanos-mirrors-http')" - mirrors_count=$(printf '%s\n' "${mirrors}" | wc -l) - rand - mirror_num=$(($rand_x % $mirrors_count + 1)) - - printf '%s\n' "${mirrors}" | sed -n "${mirror_num}p" -} - -prof_proteanos_validate_archplat() -{ - local mirror="${1}" - local arch="${2}" - local plat="${3}" - local suite="${4}" - - while read -r archplat; do - case "${archplat}" in - "${arch}/${plat}") - return 0 - ;; - esac - done <<-EOF - $(wget -q -O - "${mirror}/feeds/${suite}/Manifest" | sed \ - 's|/[^/]*$||; /^all\//d; /\/all$/d;') - EOF - - return 1 -} - -prof_proteanos_feeds() -{ - local mirror="${1}" - local arch="${2}" - local plat="${3}" - local suite="${4}" - local a= - local p= - local s= - - for a in "${arch}" 'all'; do - for p in "${plat}" 'all'; do - for s in 'base'; do - printf 'src/gz proteanos_%s_%s_%s_%s_%s ' \ - "${suite%/*}" "${suite#*/}" \ - "${a}" "${p}" "${s}" - printf '%s/feeds/%s/%s/%s/%s/Packages.gz\n' \ - "${mirror}" "${suite}" \ - "${a}" "${p}" "${s}" - done - done - done - - for s in 'base'; do - printf 'src/gz proteanos_%s_%s_%s_%s_%s ' \ - "${suite%/*}" "${suite#*/}" \ - 'src' 'all' "${s}" - printf '%s/feeds/%s/%s/%s/%s/Packages.gz\n' \ - "${mirror}" "${suite}" \ - 'src' 'all' "${s}" - done -} - -prof_proteanos_dep_fields() -{ - printf 'Depends Pre-Depends' -} - -prof_proteanos_include_pkg() -{ - local name="${1}" - local value="${2}" - - if [ "x${name}" = 'xessential' ]; then - if [ "x${value}" = 'xyes' ]; then - return 0 - fi - fi - - return 1 -} - -prof_proteanos_get_fstab() -{ - local arch="${1}" - local plat="${2}" - - case "${arch}" in - *-linux-*) - printf '%s\n' "${prof_proteanos_fstab_linux}" - ;; - esac -} - -prof_proteanos_file_systems_mounted() -{ - local root="${1}" - local arch="${2}" - local plat="${3}" - - [ -e "${root}/dev/null" ] -} - -prof_proteanos_bind_mount() -{ - local arch="${1}" - local plat="${2}" - local olddir="${3}" - local newdir="${4}" - - case "${arch}" in - *-linux-*) - mount -o bind "${olddir}" "${newdir}" - ;; - esac -} - -prof_proteanos_bind_umount() -{ - local arch="${1}" - local plat="${2}" - local olddir="${3}" - local newdir="${4}" - - case "${arch}" in - *-linux-*) - umount "${newdir}" - ;; - esac -} - -prof_proteanos_configure_system_native() -{ - local root="${1}" - local arch="${2}" - local plat="${3}" - - printf 'disabled\n' >"${root}/etc/rc.policy" - opkg_install_all "${root}" - if [ "x${plat}" = 'xdev' ]; then - [ -r /etc/resolv.conf ] && cp /etc/resolv.conf "${root}/etc" - [ -r /etc/hostname ] && cp /etc/hostname "${root}/etc" - else - printf 'enabled\n' >"${root}/etc/rc.policy" - printf 'proteanos\n' >"${root}/etc/hostname" - fi - [ -e "${root}/etc/passwd" ] || printf \ - 'root::0:0:root:/root:/bin/sh\n' >"${root}/etc/passwd" - [ -e "${root}/etc/group" ] || printf \ - 'root:x:0:\n' >"${root}/etc/group" -} - -prof_proteanos_configure_system_foreign() -{ - local root="${1}" - local arch="${2}" - local plat="${3}" - - printf '%s' "${prof_proteanos_install_service}" \ - >"${root}/etc/rc.d/S10install" - chmod 0755 "${root}/etc/rc.d/S10install" - printf 'proteanos\n' >"${root}/etc/hostname" - [ -e "${root}/etc/passwd" ] || printf \ - 'root::0:0:root:/root:/bin/sh\n' >"${root}/etc/passwd" - [ -e "${root}/etc/group" ] || printf \ - 'root:x:0:\n' >"${root}/etc/group" -} diff --git a/lib/rand.sh b/lib/rand.sh deleted file mode 100644 index 18d7749..0000000 --- a/lib/rand.sh +++ /dev/null @@ -1,48 +0,0 @@ -# Linear congruential pseudorandom number generator -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_RAND_SM+set}" = 'xset' ] && return 0 -_RAND_SM=1 - -use output -use locale - -rand_x=1 - -srand() -{ - local x="${1}" - - case "${x}" in - *[!0-9]*) - warn "$(get_msg 'rand_bad_x')" - return 1 - ;; - esac - - rand_x=${x} -} - -rand() -{ - # Increment, multiplier, and modulus values are those used in glibc. - rand_x=$((1103515245 * $rand_x + 12345)) - rand_x=$(($rand_x % 4294967296)) -} diff --git a/lib/session.sh b/lib/session.sh deleted file mode 100644 index 05fecc4..0000000 --- a/lib/session.sh +++ /dev/null @@ -1,219 +0,0 @@ -# Functions for managing prokit sessions -# -# Copyright (C) 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_SESSION_SM+set}" = 'xset' ] && return 0 -_SESSION_SM=1 - -use rand -use mutex -use output -use locale -use profile - -session_id= -session_root= -session_arch= -session_plat= -session_mountdir= -session_atexit= -session_sigs= - -session_begin() -{ - local root="${1}" - local mountdir="${2}" - local atexit="${3}" - local installing="${4}" - - rand - session_id=${rand_x} - session_root="${root}" - session_arch="$(cat "${root}/etc/proteanos_arch")" - session_plat="$(cat "${root}/etc/proteanos_plat")" - session_mountdir="${mountdir}" - session_atexit="${atexit}" - - [ -d "${session_root}/prokit" ] || mkdir "${session_root}/prokit" - if [ -f "${session_root}/prokit/installing" ] && ! ${installing}; then - error 2 "$(get_msg 'install_running')" - fi - - session_set_sigs - - if ! mutex_timedlock "${session_root}/prokit/sessions.lock" 5; then - error 2 "$(get_msg 'cant_lock_sessions')" - fi - - # Check for a sessions pool. - if [ -d "${session_root}/prokit/sessions" ]; then - if ! profile_file_systems_mounted "${session_root}" \ - "${session_arch}" "${session_plat}"; then - # If a sessions pool exists but the file systems aren't - # mounted, clean up the old sessions and mount the file - # systems. - rmdir "${session_root}/prokit/sessions/"* - session_mount - fi - else - # If the sessions pool doesn't exist, create it and mount the - # file systems. - mkdir "${session_root}/prokit/sessions" - session_mount - fi - - # Register the session. - mkdir "${session_root}/prokit/sessions/${session_id}" - mkdir "${session_root}/prokit/sessions/${session_id}/wd" - profile_bind_mount "${session_arch}" "${session_plat}" \ - "${session_mountdir}" \ - "${session_root}/prokit/sessions/${session_id}/wd" - - mutex_unlock "${session_root}/prokit/sessions.lock" -} - -session_end() -{ - trap : ${session_sigs} - - ${session_atexit} - - # Unregister the session. - profile_bind_umount "${session_arch}" "${session_plat}" \ - "${session_mountdir}" \ - "${session_root}/prokit/sessions/${session_id}/wd" - rmdir "${session_root}/prokit/sessions/${session_id}/wd" - rmdir "${session_root}/prokit/sessions/${session_id}" - - if ! mutex_is_unlockable "${session_root}/prokit/sessions.lock"; then - if ! mutex_timedlock "${session_root}/prokit/sessions.lock" 5 - then - error 2 "$(get_msg 'cant_lock_sessions')" - fi - fi - - # Clear the sessions pool. If there are no more sessions, unmount the - # file systems. - if rmdir "${session_root}/prokit/sessions" 2>/dev/null; then - session_umount - fi - - mutex_unlock "${session_root}/prokit/sessions.lock" - - trap - ${session_sigs} -} - -session_id() -{ - printf '%d\n' ${session_id} - return 0 -} - -session_dir() -{ - printf '/prokit/sessions/%d\n' ${session_id} - return 0 -} - -session_exec() -{ - local args= - local session_dir= - - args='' - for arg in "${@}"; do - arg="'$(printf '%s\n' "${arg}" | sed "s/'/'\\\\''/g")'" - args="${args} ${arg}" - done - session_dir="/prokit/sessions/${session_id}/wd" - chroot "${session_root}" /bin/sh -c "cd ${session_dir}; ${args}" -} - -session_mount() -{ - local fs= - local dir= - local fstype= - local options= - - while read fs dir fstype options; do - [ "x${dir}" = 'x' ] && continue - mount -t "${fstype}" -o "${options}" "${fs}" \ - "${session_root}/${dir}" - done <<-EOF - $(profile_get_fstab "${session_arch}" "${session_plat}") - EOF -} - -session_umount() -{ - local fs= - local dir= - local fstype= - local options= - - while read fs dir fstype options; do - [ "x${dir}" = 'x' ] && continue - # umount sometimes complains that the /dev file system is busy. - # Here's a kludge to try to handle that. We better make sure - # bind mounts get unmounted; otherwise, `rm -Rf ${root}` can be - # painful. - while ! umount "${session_root}/${dir}"; do - sleep 1 - done - done <<-EOF - $(profile_get_fstab "${session_arch}" "${session_plat}" | \ - sed -n '1!G;h;$p') - EOF -} - -session_set_sigs() -{ - local i= - local sig= - - # We need the signal *number* in the signal handler. The only portable - # and easy way to get the number of a named signal is to search for it - # as in the following loop hack. - i=0 - session_sigs='' - while [ ${i} -lt 127 ]; do - i=$(($i + 1)) - sig="$(kill -l ${i} 2>/dev/null)" || continue - case "${sig}" in - 'HUP' | 'INT' | 'QUIT' | 'ABRT' | 'ALRM' | 'TERM') - session_sigs="${session_sigs} ${i}" - trap "session_handle_sig ${i}" ${i} - ;; - esac - done -} - -session_handle_sig() -{ - local sig="${1}" - - session_end - - if [ "x${exit_status:+set}" = 'xset' ]; then - exit ${exit_status} - else - exit $((128 + $sig)) - fi -} diff --git a/lib/substvars.sh b/lib/substvars.sh deleted file mode 100644 index d69c693..0000000 --- a/lib/substvars.sh +++ /dev/null @@ -1,106 +0,0 @@ -# Functions for setting and substituting variables -# -# Copyright (C) 2012, 2014 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_SUBSTVARS_SM+set}" = 'xset' ] && return 0 -_SUBSTVARS_SM=1 - -substvars_max_depth=50 - -set_substvar() -{ - local name="${1}" - local value="${2}" - - # Convert variable name to lower case and validate. - name="$(printf '%s\n' "${name}" | tr 'A-Z-' 'a-z_')" - case "${name:- }" in - *[!a-z0-9_]*) - warn "$(get_msg 'substvar_invalid')" "${name}" - return 1 - ;; - esac - - # Trim leading and trailing newline characters from value. - value="$(printf '%s\n' "${value}" | sed -n ' - H; # Store each input line in the hold space. - ${ # At the last line of input: - g; # Restore the hold space into the pattern space. - s/^[\n]*//; # Remove leading newline characters. - s/[\n]*$//; # Remove trailing newline characters. - p; # Print the results. - }; - ')" - - # Escape single quotes in value. - value="$(printf '%s\n' "${value}" | sed "s/'/'\\\\''/g")" - - eval "substvar_${name}='${value}'" - - return 0 -} - -substvars() -{ - local string="${1}" - local depth= - local lhs= - local name= - local rhs= - local old_rhs= - local value= - - # Logic inspired by that of dpkg's Dpkg::Substvars::substvars() - # subroutine. - - depth=0 - - while :; do - lhs="${string%%\$\{*}" - if [ ${#lhs} -eq ${#string} ]; then - # No "${" was found. - break - fi - string="${string#*\$\{}" - name="${string%%\}*}" - rhs="${string#*\}}" - - if [ ${#rhs} -lt ${#old_rhs} ]; then - # Reset the nesting counter if we've advanced the right - # side of the matched space. - depth=0 - fi - if [ ${depth} -ge ${substvars_max_depth} ]; then - # Warn of possible recursion. - warn "$(get_msg 'substvar_deep_nesting')" - return 1 - fi - old_rhs="${rhs}" - - # Perform the substitution. - name="$(printf '%s\n' "${name}" | tr 'A-Z-' 'a-z_')" - value="$(eval "printf '%s\n' \"\${substvar_${name}}\"")" - string="${lhs}${value}${rhs}" - depth=$(($depth + 1)) - done - - printf '%s\n' "${string}" - - return 0 -} diff --git a/lib/vardata.sh b/lib/vardata.sh deleted file mode 100644 index 8800003..0000000 --- a/lib/vardata.sh +++ /dev/null @@ -1,56 +0,0 @@ -# Functions for getting variable/runtime data -# -# Copyright (C) 2015 Patrick "P. J." McDermott -# -# This file is part of the ProteanOS Development Kit. -# -# The ProteanOS Development Kit is free software: you can redistribute -# it and/or modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation, either version 3 of the -# License, or (at your option) any later version. -# -# The ProteanOS Development Kit is distributed in the hope that it -# will be useful, but WITHOUT ANY WARRANTY; without even the implied -# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -# See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with the ProteanOS Development Kit. If not, see -# <http://www.gnu.org/licenses/>. - -[ "x${_VARDATA_SM+set}" = 'xset' ] && return 0 -_VARDATA_SM=1 - -PKGLOCALSTATEDIR='@pkglocalstatedir@' -VARDATA_DIRS='mount' - -vardatadir= - -init_vardata() -{ - local dir= - - if ${in_place}; then - vardatadir="${builddir}/var" - for dir in ${VARDATA_DIRS}; do - mkdir -p "${vardatadir}/${dir}" - done - else - vardatadir="${PKGLOCALSTATEDIR}" - fi - - return 0 -} - -get_vardata_dir() -{ - local dir="${1}" - - case " ${VARDATA_DIRS} " in - *" ${dir} "*) - printf '%s/%s' "${vardatadir}" "${dir}" - ;; - esac - - return 0 -} |