Mercurial > repo
changeset 11487:bbb91a3e7d49 draft
<oerjan> mkx bin/sledp//sled "$1" "--"
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Thu, 12 Apr 2018 04:21:26 +0100 |
| parents | 1e6e3a07b5f4 |
| children | cbd86e77f7c2 |
| files | bin/sledp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/bin/sledp Thu Apr 12 04:20:07 2018 +0100 +++ b/bin/sledp Thu Apr 12 04:21:26 2018 +0100 @@ -1,1 +1,1 @@ -[[ "$1" == ?*//* ]] || { echo 'usage: sled file//script'; exit 1; }; key="${1%%//*}"; value="${1#*//}"; [[ -f "$key" ]] || { echo 'Rosebud!'; exit 1; }; echo -n "$key//"; sed "$value" "$key" ; +sled "$1" "--"