summaryrefslogtreecommitdiff
path: root/common-functions
diff options
context:
space:
mode:
authorjonas <jonas@8f53b18a-e215-0410-8885-9f593d34873e>2006-10-14 09:51:31 +0000
committerjonas <jonas@8f53b18a-e215-0410-8885-9f593d34873e>2006-10-14 09:51:31 +0000
commitf3697306960d5175829a155eb83990927ef7b1fe (patch)
tree366cb5b0f53429d8d2a1f0e919654861c51a9afe /common-functions
parent83b5520428bfe9d652f6009ad0d310d43727def2 (diff)
Move config loading to new file common-settings, and rename file functions to commmon-functions.
git-svn-id: svn+ssh://xayide/home/jonas/private_svn/fleshybrid/homebase@34 8f53b18a-e215-0410-8885-9f593d34873e
Diffstat (limited to 'common-functions')
-rw-r--r--common-functions151
1 files changed, 151 insertions, 0 deletions
diff --git a/common-functions b/common-functions
new file mode 100644
index 0000000..58536cf
--- /dev/null
+++ b/common-functions
@@ -0,0 +1,151 @@
+#!/bin/sh
+
+# Comments on coding style:
+# * shift mandatory function arguments: Provokes error if missing
+# * quote variables: We want to support oddities like spaces in paths
+
+function preserveolderfile() {
+ ## DESC: Preserve copy of file, unless one exists already
+ # File to tweak
+ file="$1"; shift
+ # Extension used for new backup
+ newext="$1"
+ # Space-delimited list of possible extensions, default last
+ extensions="orig old"
+ for ext in $extensions; do
+ backupfile="$file.$ext"
+ [ "$ext" = "$newext" ] && newext_valid="yes"
+ if [ -f "$backupfile" ]; then
+ [ -n "$DEBUG" ] && echo "DEBUG: Backup file \"$backupfile\" not found - continuing." >&2
+ continue
+ elif [ -e "$backupfile" ]; then
+ echo "ERROR: Backup file \"$backupfile\" is not a regular file." >&2
+ return 1
+ else
+ [ -n "$DEBUG" ] && echo "DEBUG: Backup file \"$backupfile\" found - exit silently." >&2
+ return 0
+ fi
+ done
+ if [ -n "$newext" ];then
+ if [ "$newext_valid" = "yes" ]; then
+ backupfile="$file.$newext"
+ else
+ echo "WARNING: Backup extension \"$newext\" is invalid - using default instead" >&2
+ fi
+ fi
+ if [ -f "$file" ]; then
+ cp -p "file" "$backupfile"
+ elif [ -e "$file" ]; then
+ echo "ERROR: Backup of file \"$file\" failed - not a regular file." >&2
+ return 1
+ else
+ touch "$backupfile"
+ fi
+ return 0
+}
+
+function enableoraddlines() {
+ ## DESC: Add lines to file, or replace if similar exist already
+ # File to tweak
+ file="$1"; shift
+ # Word number in line to search for and replace if found
+ # FIXME: This is broken - wordno unconditionally becomes firstword later on
+ wordno="$1"; shift
+ [ -e "$file" ] || touch "$file"
+ for line; do
+ [ -z "$line" ] && continue
+ firstword=$(echo "$line" | awk "{print \$$wordno}")
+ # FIXME: Why doesn't it work to print ARGVOUT in END block?
+ linemissing=$(perl -i -pe "END { print \"$line\\n\" unless \$seen } s¡^[#;\s]*($firstword)\s.*¡$line\\n¡ and \$seen++" "$file")
+#"This stray quote is only to please buggy mc (cooledit) code hiliting
+ [ -n "$linemissing" ] && echo $linemissing >> "$file"
+ done
+ # FIXME: Figure out what exits non-zero above
+ return 0
+}
+
+function preserveandaddlines() {
+ ## DESC: Backup older file and add lines to it
+ # File to tweak
+ file="$1"; shift
+ # Extension of backup file
+ ext="$1"; shift
+ # Word number in line to search for and replace if found
+ # FIXME: This is broken - wordno unconditionally becomes firstword later on
+ wordno="$1"; shift
+ preserveolderfile "$file" "$ext"
+# enableoraddlines "$file" "$wordno" $@
+ # FIXME: Somehow avoid expansion, to avoid having to duplicate the whole enableoraddlines()
+ [ -e "$file" ] || touch "$file"
+ for line; do
+ [ -z "$line" ] && continue
+ firstword=$(echo "$line" | awk "{print \$$wordno}")
+ # FIXME: Why doesn't it work to print ARGVOUT in END block?
+ linemissing=$(perl -i -pe "END { print \"$line\\n\" unless \$seen } s¡^[#;\s]*($firstword)\s.*¡$line\\n¡ and \$seen++" "$file")
+#"This stray quote is only to please buggy mc (cooledit) code hiliting
+ [ -n "$linemissing" ] && echo $linemissing >> "$file"
+ done
+ # FIXME: Figure out what exits non-zero above
+ return 0
+}
+
+function preserveandhashdisablelines() {
+ ## DESC: Backup older file and disable lines in it
+ # File to tweak
+ file="$1"; shift
+ # Extension of backup file
+ ext="$1"; shift
+ # Word number in line to search for and replace if found
+ # FIXME: This is broken - wordno unconditionally becomes firstword later on
+ wordno="$1"; shift
+ preserveolderfile "$file" "$ext"
+# disablelines "$file" "$wordno" "#" $@
+ # FIXME: Somehow avoid expansion, to make possibe a separate disablelines()
+ [ -e "$file" ] || touch "$file"
+ for line; do
+ [ -z "$line" ] && continue
+ firstword=$(echo "$line" | awk "{print \$$wordno}")
+ # FIXME: Why doesn't it work to print ARGVOUT in END block?
+ linemissing=$(perl -i -pe "END { print \"$line\\n\" unless \$seen } s¡^(\s*$firstword)\s.*¡#$line\\n¡ and \$seen++" "$file")
+#"This stray quote is only to please buggy mc (cooledit) code hiliting
+ [ -n "$linemissing" ] && echo >2 "Line \"$linemissing\" not found to disable in $file"
+ done
+ # FIXME: Figure out what exits non-zero above
+ return 0
+}
+
+function perlrelines() {
+ ## DESC: Apply perl regex to lines of a single file
+ # File to tweak
+ file=$1; shift
+ backupfile="`savebackupfile "$file"`"
+ for regexp; do
+ perl -pi -e "$regexp" "$file"
+ done
+ cleanbackupfile "$file" "$backupfile"
+
+ # FIXME: Figure out what exits non-zero above
+ return 0
+}
+
+function mkgrubdevmap() {
+ ## DESC: Spit out GRUB config used for /boot/grub/devices.map
+ device="$1"; shift
+ cat <<EOF
+(fd0) /dev/fd0
+(hd0) $device
+EOF
+}
+
+function addaddons() {
+ context="$1"; shift
+ addon_context="$1"; shift
+ for addon in $@; do
+ context_here="$(eval echo \$\{${addon_context}_$addon\})"
+ if [ -n "$context_here" ]; then
+ eval ${context}=\"\$${context} \$context_here\"
+ else
+ echo "Warning: Variable \"${addon_context}_${addon}\" empty or undefined!"
+ fi
+done
+}