Mercurial > repo
comparison bin/delquote @ 12117:bd76992a2fec draft
<fizzie> fetch /hackenv/bin/delquote https://hack.esolangs.org/get/bin/delquote
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Sat, 16 Nov 2019 23:08:24 +0000 |
| parents | 56dcce63901b |
| children |
comparison
equal
deleted
inserted
replaced
| 12116:e1ce00d00682 | 12117:bd76992a2fec |
|---|---|
| 1 #!/bin/sh | 1 #!/bin/sh |
| 2 id=$1 | 2 id=$1 |
| 3 db="${HACKENV-/hackenv}/quotes" | |
| 3 expr "$1" + 0 >/dev/null 2>&1 || exit 1 | 4 expr "$1" + 0 >/dev/null 2>&1 || exit 1 |
| 4 head -n $((id-1)) quotes >quotes.new | 5 head -n $((id-1)) "$db" >"$db".new |
| 5 tail -n +$((id+1)) quotes >>quotes.new | 6 tail -n +$((id+1)) "$db" >>"$db".new |
| 6 diff quotes quotes.new >/dev/null && exit 1 | 7 diff "$db" "$db".new >/dev/null && exit 1 |
| 7 printf "*poof*%s" "$(quote $id | cut -d')' -f2-)" | 8 printf "*poof*%s" "$(quote $id | cut -d')' -f2-)" |
| 8 mv quotes.new quotes | 9 mv "$db".new "$db" |
| 9 |