summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Makefile.am4
-rwxr-xr-xtools/shld.sh157
-rwxr-xr-xtools/shpp.sh173
3 files changed, 333 insertions, 1 deletions
diff --git a/Makefile.am b/Makefile.am
index b2e117d..a68753a 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -43,7 +43,9 @@ EXTRA_DIST = \
$(pkgdatacmd_sources) \
$(man1_sources) \
$(locale_sources) \
- $(tests)
+ $(tests) \
+ tools/shpp.sh \
+ tools/shld.sh
SUFFIXES = .sh .sm .1in .1 .ms
diff --git a/tools/shld.sh b/tools/shld.sh
new file mode 100755
index 0000000..e1dff5f
--- /dev/null
+++ b/tools/shld.sh
@@ -0,0 +1,157 @@
+#!/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.1.0'
+
+output='out.sh'
+make_executable=true
+interpreter='/bin/sh'
+entry_point='main'
+
+die()
+{
+ local fmt="${1}"
+ shift 1
+
+ printf "shld: ${fmt}\n" "${@}" >&2
+ exit 2
+}
+
+link()
+{
+ 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> Use <interp> as the interpreter for your program, instead of the
+ default of "/bin/sh"
+ -e <entry> 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()
+{
+ while getopts 'hVI:e:o:' opt; do
+ case "${opt}" in
+ 'h')
+ help
+ exit
+ ;;
+ 'V')
+ version
+ exit
+ ;;
+ 'I')
+ interpreter="${OPTARG}"
+ ;;
+ 'e')
+ entry_point="${OPTARG}"
+ ;;
+ 'o')
+ output="${OPTARG}"
+ ;;
+ esac
+ done
+ shift $(($OPTIND - 1))
+
+ if [ ${#} -lt 1 ]; then
+ usage >&2
+ exit 1
+ fi
+
+ link "${@}"
+}
+
+main "${@}"
diff --git a/tools/shpp.sh b/tools/shpp.sh
new file mode 100755
index 0000000..fc23a52
--- /dev/null
+++ b/tools/shpp.sh
@@ -0,0 +1,173 @@
+#!/bin/sh
+#
+# Shell command language preprocessor
+#
+# 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.1.0'
+FS="$(printf '\034')"
+
+die()
+{
+ local fmt="${1}"
+ shift 1
+
+ printf "shpp: ${fmt}\n" "${@}" >&2
+ exit 2
+}
+
+error()
+{
+ local fmt="${1}"
+ shift 1
+
+ printf "shpp: ${fmt}\n" "${@}" >&2
+}
+
+preprocess()
+{
+ local vars="${1}"
+ local input="${2}"
+ local output="${3}"
+ local def=
+ local var=
+ local val=
+
+ # Open output file.
+ if [ "x${output}" = 'x-' ]; then
+ if ! exec 3>&1; then
+ die 'Cannot duplicate output file descriptor'
+ fi
+ else
+ if ! exec 3>"${outfile}~"; then
+ die 'Cannot open file "%s"' "${output}~"
+ fi
+ fi
+
+ IFS="${FS}"
+ for def in ${vars}; do
+ case "${def}" in
+ *=*)
+ var="${def%%=*}"
+ val="${def#*=}"
+ ;;
+ *)
+ var="${def%%=*}"
+ val='true'
+ ;;
+ esac
+ case "${var}" in
+ *[!A-Za-z0-9_]*)
+ error 'Invalid variable name "%s"' "${var}"
+ continue
+ ;;
+ [0-9]*)
+ error 'Invalid variable name "%s"' "${var}"
+ continue
+ ;;
+ esac
+ printf "%s='" "${var}" >&3
+ printf '%s' "${val}" | sed "s/'/'\\\\''/g" >&3
+ printf "'\n" >&3
+ done
+ unset IFS
+
+ # Read input file.
+ if ! cat "${input}" >&3; then
+ die 'Cannot read file "%s"' "${input}"
+ fi
+
+ # Close output file, make it executable, and set its name.
+ if ! [ "x${output}" = 'x-' ]; then
+ exec 3>&-
+ if ! mv "${output}~" "${output}"; then
+ die 'Cannot rename file to "%s"' "${output}"
+ fi
+ fi
+}
+
+usage()
+{
+ printf 'Usage: %s [option ...] <infile> [<outfile>]\n' "${0}"
+}
+
+help()
+{
+ usage
+ cat <<EOF
+Options:
+ -h Display this information
+ -V Display preprocessor version information
+ -D <var>[=<val>] Predefine <var> as a variable with value <val> (default
+ "true")
+EOF
+}
+
+version()
+{
+ cat <<EOF
+shpp ${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 vars=
+ local infile=
+ local outfile=
+
+ while getopts 'hVD:' opt; do
+ case "${opt}" in
+ 'h')
+ help
+ exit
+ ;;
+ 'V')
+ version
+ exit
+ ;;
+ 'D')
+ vars="${vars}${OPTARG}${FS}"
+ ;;
+ esac
+ done
+ shift $(($OPTIND - 1))
+
+ case ${#} in
+ 1)
+ infile="${1}"
+ outfile='-'
+ ;;
+ 2)
+ infile="${1}"
+ outfile="${2}"
+ ;;
+ *)
+ usage >&2
+ exit 1
+ esac
+
+ preprocess "${vars}" "${infile}" "${outfile}"
+}
+
+main "${@}"