# HG changeset patch
# User HackBot
# Date 1393036687 0
# Node ID 02775a0b883943a0b5bb05a380a072cdf8cffdda
# Parent  8f760d2d3e9dd35f20921e88dd466b4dfaf297be
<ion> sed -i -re \'s/echo ("?)\\$[@*]\\1 /print_args_or_input "$@" /g\' bin/complain bin/ord bin/ordu

diff -r 8f760d2d3e9d -r 02775a0b8839 bin/complain
--- a/bin/complain	Sat Feb 22 02:37:17 2014 +0000
+++ b/bin/complain	Sat Feb 22 02:38:07 2014 +0000
@@ -1,1 +1,1 @@
-echo "$@" >> complaints; echo Complaint filed. Thank you.
+print_args_or_input "$@" >> complaints; echo Complaint filed. Thank you.
diff -r 8f760d2d3e9d -r 02775a0b8839 bin/ord
--- a/bin/ord	Sat Feb 22 02:37:17 2014 +0000
+++ b/bin/ord	Sat Feb 22 02:38:07 2014 +0000
@@ -1,2 +1,2 @@
 #!/bin/bash
-echo "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);'
+print_args_or_input "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);'
diff -r 8f760d2d3e9d -r 02775a0b8839 bin/ordu
--- a/bin/ordu	Sat Feb 22 02:37:17 2014 +0000
+++ b/bin/ordu	Sat Feb 22 02:38:07 2014 +0000
@@ -1,2 +1,2 @@
 #!/bin/sh
-echo "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { sprintf "U+%x", ord } split //, $_);'
+print_args_or_input "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { sprintf "U+%x", ord } split //, $_);'