Add new function preserveandhashdisablelines() and use it to disable /dev in flashybrid ramstore.

git-svn-id: svn+ssh://xayide/home/jonas/private_svn/fleshybrid/trunk@10 8f53b18a-e215-0410-8885-9f593d34873e

1 files changed, 24 insertions, 0 deletions

diff --git a/functions b/functions
index a943255..2a7cfa3 100644
--- a/functions
+++ b/functions
@@ -87,6 +87,30 @@ function preserveandaddlines() {
 	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
+	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