1 files changed, 37 insertions, 0 deletions
diff --git a/util/bin/magic b/util/bin/magic
new file mode 100755
index 00000000..218c8d43
--- /dev/null
+++ b/util/bin/magic
@@ -0,0 +1,37 @@
+#! /bin/sh
+#
+# magic name command file < content
+#
+
+bs="# begin krebs magic <$1>"
+es="# end krebs magic <$1>"
+
+case $1 in
+  (print)
+    echo "$bs"
+    cat
+    echo "$es"
+    ;;
+  (create)
+    $0 $1 has $3 || $0 $1 print $3 >> $3 < /dev/null
+    $0 $1 replace $3
+    ;;
+  (destroy)
+    if $0 $1 has $3; then
+      cache"`cat $3`"
+      echo "$cache" | sed "/^$bs$/,/^$es$/d" > $3
+    fi
+    ;;
+  (has)
+    grep -q "^$bs\$" $3 && grep -q "^$es\$" $3
+    ;;
+  (replace)
+    $0 $1 destroy $3 && $0 $1 create $3
+    ;;
+  (clear)
+    $0 $1 replace $3 < /dev/null
+    ;;
+  (*)
+    echo 'Error 1: You are made of stupid!' >&2
+    exit 23
+esac