X-Git-Url: http://www.git.stargrave.org/?p=dotfiles.git;a=blobdiff_plain;f=bin%2Fbin%2Fips;fp=bin%2Fbin%2Fips;h=a75c45a1025e9aecb9cb334cd7200bdc86eda11e;hp=0000000000000000000000000000000000000000;hb=6172770aed0255477bb521c844dd60bd40115001;hpb=1ea9f4e41b8f59b8057e214531753150814a812c

diff --git a/bin/bin/ips b/bin/bin/ips
new file mode 100755
index 0000000..a75c45a
--- /dev/null
+++ b/bin/bin/ips
@@ -0,0 +1,11 @@
+#!/bin/sh -e
+
+# -de1
+
+exec rlwrap \
+    --prompt-colour=red \
+    --substitute-prompt "> " \
+    perl -Mbignum -MEncode -MData::Dumper \
+        -e '$Data::Dumper::Useqq = 1;' \
+        -e '*x = \&Dumper; $_dummy = $x;' \
+        -wnE 'say eval()//$@'