X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=lib.sh;h=05341537363b6e2bf19ed44df8bd50c3d184a175;hb=fc5ffa41b00e58d52a9a972ab5b9774780332c32;hp=88b7b98a26f2ba84cf2c141191bc296dbac48ddc;hpb=8c731331a353d82adc61a81bd3cb92e79f3c2dc8;p=config%2Fdotfiles.git
diff --git a/lib.sh b/lib.sh
index 88b7b98..0534153 100644
--- a/lib.sh
+++ b/lib.sh
@@ -2,102 +2,217 @@
#
# Their setup.sh script sources this file.
+# Copyright (C) 2009-2018 Simon Ruderich
+#
+# 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 .
+
# csh gives the error "Unknown colorls variable `su'." when used with newer
-# options supported by zsh or GNU ls.
+# options supported by Zsh or GNU ls.
unset LS_COLORS
-# Get path to m4 because it's later redefined as function.
-m4=`which m4`
-
-# Check if the given program is installed. Returns 0 if it exists, 1
-# otherwise; so it can be used in if.
+# Check if the given program is installed. `type` is portable, `which` is not.
installed() {
- which $1 | grep -E '^/' > /dev/null
+ type "$1" >/dev/null 2>&1
+}
+# Get the path of the given program. Thanks to Gilles on [1] (read on
+# 2013-03-10) for the PATH-walking idea. `which` is not portable and `type`
+# has no well-formed output format.
+#
+# [1]: http://unix.stackexchange.com/questions/4988/how-do-i-test-to-see-if-an-application-exists-in-path/4991
+installed_path() {
+ test -z "$1" && return 1
+
+ # Keep IFS change local.
+ (
+ IFS=:
+ # Walk PATH.
+ for directory in $PATH; do
+ if test -x "$directory/$1"; then
+ printf '%s\n' "$directory/$1"
+ return 0
+ fi
+ done
+
+ return 1
+ )
+}
+
+# Usage: cmd_i ...
+#
+# Run with all arguments (including the last file) and write the result
+# to the temporary file .tmp and then rename that file to . This
+# can't be done in-place (e.g. cmd file) because it truncates the file.
+cmd_i() {
+ # Get last argument.
+ last=
+ for x; do
+ last="$x"
+ done
+
+ "$@" >"$last".tmp
+ mv "$last".tmp "$last"
+}
+
+# Usage: sed_i ...
+#
+# sed -i is not portable due to different implementations. See cmd_i.
+sed_i() {
+ cmd_i sed "$@"
+}
+grep_i() {
+ cmd_i grep "$@"
+}
+
+# Usage: perl_line_filter ...
+#
+# Run the perl command cmd on each line before printing it.
+perl_line_filter() {
+ cmd="$1"
+ shift
+
+ # Can't use -pe because it uses <> which treats the arguments as files.
+ perl -e "use strict; use warnings; while () { $cmd; print; }" "$@"
+}
+
+# Usage: simple_cpp .. -- ...
+#
+# Replaces each FIRST (on word boundaries) with like a
+# simple cpp replacement.
+simple_cpp() {
+ cmd='my $i = 0;'
+
+ for x; do
+ shift
+
+ if test x"$x" = x--; then
+ break
+ fi
+
+ cmd="$cmd s/\\b$x\\b/\$ARGV[\$i]/g; \$i++;"
+ done
+
+ perl_line_filter "$cmd" -- "$@"
}
-# Prints the current OS. Supported are Debian (debian) and Mac OS X (darwin)
-# at the moment. If an unsupported OS is used an error is printed.
+# Print the current OS. The following OS are supported at the moment:
+#
+# - Debian (debian)
+# - Gentoo (gentoo)
+# - Solaris/OpenSolaris (sun)
+# - FreeBSD (freebsd)
+#
+# If an unsupported OS is used an error is printed.
os() {
- if [ -f /etc/debian_version ]; then
+ if test -f /etc/debian_version; then
echo debian
- elif [ x`uname` = xDarwin ]; then
- echo darwin
+ elif test -f /etc/gentoo-release; then
+ echo gentoo
+ elif test x"`uname`" = xSunOS; then
+ echo sun
+ elif test x"`uname`" = xFreeBSD; then
+ echo freebsd
else
- echo unsupported OS! >&2
+ echo 'unsupported OS!' >&2
return 1
fi
}
-# Creates a symbolic link for file $1 in dirname of $2 with name of basenmae
+# Creates a symbolic link for file $1 in dirname of $2 with name of basename
# $2.
#
# `./link.sh example ~/.examplerc` creates a symbolic link to example
# (wherever it is located) in ~/ named .examplerc.
link() {
+ local pwd base source target >/dev/null 2>&1 || true
+
# Get all necessary paths.
pwd=`pwd`
- base=`dirname "$2"`
- source=`echo -n "$pwd/$1" | sed "s|$base/||"`
+ base=`printf '%s' "$2" | sed "s|~|$HOME|"` # expand ~, some sh don't do it
+ base=`dirname "$base"`
+ source=`printf '%s' "$pwd/$1" | sed "s|$base/||"`
target=`basename "$2"`
# Go to the directory where the link is going to be created.
- cd "$base"
+ cd "$base" || return 1
# Abort if the target file exists and is no symbolic link. Prevents
# overwriting real files.
- if [ -e "$target" -a ! -h "$target" ]; then
- echo "link(): target '$target' exists already and is no symbolic link!" >&2
+ if test -e "$target" && test ! -h "$target"; then
+ printf 'link(): target "%s" exists already and is no symbolic link!\n' \
+ "$target" >&2
exit 1
fi
# Make sure the source exists.
- if [ ! -e "$source" ]; then
- echo "link(): source '$source' doesn't exist!" >&2
+ if test ! -e "$source"; then
+ printf 'link(): source "%s" does not exist!\n' "$source" >&2
exit 1
fi
# Create the new symbolic link; remove the old one if necessary.
- echo "link(): linking '$source' to '$target'"
+ printf 'link(): linking "%s" to "%s"\n' "$source" "$target"
rm -f "$target"
ln -s "$source" "$target"
# Go back to the directory where we were before.
- cd "$pwd"
-
- unset pwd base source target
+ cd "$pwd" || return 1
}
-# m4 wrapper which uses $1.m4 as template file, feeds it to m4 and writes it
-# to $1 with a warning at the beginning to not edit the generated file.
+# Generate a file from a source file using a given command. A warning not to
+# edit it is automatically added to the created file.
#
-# All arguments (except the first which is the filename) are passed to m4.
+# Usage: generate
#
-# The following macros are defined: IF and FI. Example:
-# IF(OS, debian)
-# ...
-# FI
-m4() {
- # First argument is file name.
- file=$1
+# If an empty extension is provided, the file is modified in-place (through a
+# temporary file).
+generate() {
+ local file >/dev/null 2>&1 || true
+ local file_tmp >/dev/null 2>&1 || true
+ local extension >/dev/null 2>&1 || true
+
+ # Get command and target file.
+ file="$1"
+ extension="$2"
+ shift
shift
- # Write a warning to the generated file.
- echo "###################################" > $file
- echo "# WARNING! DO NOT EDIT THIS FILE! #" >> $file
- echo "###################################" >> $file
- echo >> $file
- echo "# It was generated from $file.m4 on `date`." >> $file
- echo >> $file
-
- # Process $1.m4 with m4 using the given options.
- echo "m4(): generating '$file' from '$file.m4' with options '$*'"
- # Add useful macros.
- (echo "define(\`IF', \`ifelse(\`\$1', \`\$2',dnl')dnl
-define(\`FI', \`)dnl')dnl";
- # Run the file (and the default macros) through m4.
- cat $file.m4) | $m4 $* >> $file
-
- unset file
+ if test -z "$extension"; then
+ file_tmp="$file.tmp"
+ else
+ # We only need this message if we generate a new file.
+ printf '%s: generating from "%s" (%s)\n' \
+ "$file" "$file$extension" "$1"
+
+ {
+ echo '###################################'
+ echo '# WARNING! DO NOT EDIT THIS FILE! #'
+ echo '###################################'
+ echo
+ printf '# It was generated from "%s" on %s.\n' \
+ "$file$extension" "`date`"
+ echo
+ } > "$file"
+
+ file_tmp="$file"
+ fi
+
+ # Generate $file from $file$extension using the given command.
+ "$@" <"$file$extension" >>"$file_tmp"
+
+ if test -z "$extension"; then
+ mv "$file_tmp" "$file"
+ fi
}