summaryrefslogtreecommitdiffstats
path: root/tools/shld.sh
diff options
context:
space:
mode:
authorP. J. McDermott <pj@pehjota.net>2019-03-21 17:39:16 (EDT)
committer P. J. McDermott <pj@pehjota.net>2019-03-21 17:39:16 (EDT)
commitd9aa15f7480f3f15208267b20b17ac6a04f2fd78 (patch)
tree13012905a5bb8115ddfe052763e516c52a566469 /tools/shld.sh
parent032e6186fe8dd3c54b9e027cb63fff3127e2d559 (diff)
Revert "tools/shld.sh, tools/shpp.sh: Add"
This reverts commit 032e6186fe8dd3c54b9e027cb63fff3127e2d559. Build system improvements will come some other time.
Diffstat (limited to 'tools/shld.sh')
-rwxr-xr-xtools/shld.sh166
1 files changed, 0 insertions, 166 deletions
diff --git a/tools/shld.sh b/tools/shld.sh
deleted file mode 100755
index 41751d3..0000000
--- a/tools/shld.sh
+++ /dev/null
@@ -1,166 +0,0 @@
-#!/bin/sh
-#
-# Shell command language linker
-#
-# Copyright (C) 2015 Patrick "P. J." McDermott
-#
-# This program 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.
-#
-# This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-set -u
-
-VERSION='0.2.0'
-
-die()
-{
- local fmt="${1}"
- shift 1
-
- printf "shld: ${fmt}\n" "${@}" >&2
- exit 2
-}
-
-link()
-{
- local make_executable="${1}"
- local interpreter="${2}"
- local entry_point="${3}"
- local output="${4}"
- shift 4
- local input=
-
- # Open output file.
- if ! exec 3>"${output}~"; then
- die 'Cannot open file "%s"' "${output}~"
- fi
-
- # Write magic number and interpreter path.
- if ${make_executable}; then
- printf '#!%s\n' "${interpreter}" >&3
- fi
-
- # Write __init() function.
- cat >&3 <<-'EOF'
- __init_funcs=''
- __init()
- {
- __init_funcs="${__init_funcs} ${1}"
- }
- EOF
-
- # Read input files.
- for input in "${@}"; do
- if ! cat "${input}" >&3; then
- die 'Cannot read file "%s"' "${input}"
- fi
- done
-
- # Add call to init functions.
- cat >&3 <<-'EOF'
- for __func in ${__init_funcs}; do
- ${__func}
- done
- EOF
-
- # Add call to entry point.
- if ${make_executable}; then
- printf '%s "${@}"\n' "${entry_point}" >&3
- fi
-
- # Close output file, make it executable, and set its name.
- exec 3>&-
- if ${make_executable}; then
- if ! chmod a+x "${output}~"; then
- die 'Cannot set mode of file "%s"' "${output}~"
- fi
- fi
- if ! mv "${output}~" "${output}"; then
- die 'Cannot rename file to "%s"' "${output}"
- fi
-}
-
-usage()
-{
- printf 'Usage: %s [option ...] <file>...\n' "${0}"
-}
-
-help()
-{
- usage
- cat <<EOF
-Options:
- -h Display this information
- -V Display linker version information
- -I <interp> Make an executable and use <interp> as the interpreter for your
- program, instead of the default of "/bin/sh"
- -e <entry> Make an executable and use <entry> as the function for beginning
- execution of your program, instead of the default of "main"
- -o <output> Use <output> as the name of the program produced by shld, instead
- of the default of "out.sh"
-EOF
-}
-
-version()
-{
- cat <<EOF
-shld ${VERSION}
-Copyright (C) 2015 Patrick "P. J." McDermott
-License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
-This is free software: you are free to change and redistribute it.
-There is NO WARRANTY, to the extent permitted by law.
-EOF
-}
-
-main()
-{
- local opt=
- local make_executable=false
- local interpreter='/bin/sh'
- local entry_point='main'
- local output='out.sh'
-
- while getopts 'hVI:e:o:' opt; do
- case "${opt}" in
- 'h')
- help
- exit
- ;;
- 'V')
- version
- exit
- ;;
- 'I')
- interpreter="${OPTARG}"
- make_executable=true
- ;;
- 'e')
- entry_point="${OPTARG}"
- make_executable=true
- ;;
- 'o')
- output="${OPTARG}"
- ;;
- esac
- done
- shift $(($OPTIND - 1))
-
- if [ ${#} -lt 1 ]; then
- usage >&2
- exit 1
- fi
-
- link "${make_executable}" "${interpreter}" "${entry_point}" \
- "${output}" "${@}"
-}
-
-main "${@}"