/repo: bin/whoq annotate

annotate bin/whoq @ 12121:3d6b560fc682 draft

<fizzie> sled /hackenv/bin/whoq//s|quotes|${HACKENV-/hackenv}/quotes|

author	HackEso <hackeso@esolangs.org>
date	Sat, 16 Nov 2019 23:13:49 +0000 (2019-11-16)
parents	27e437aef877
children

rev	line source
11594 27e437aef877 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: 11593 diff changeset	1 if [[ "$1" =~ ^[0-9]+$ ]]; then
12121 3d6b560fc682 <fizzie> sled /hackenv/bin/whoq//s\|quotes\|${HACKENV-/hackenv}/quotes\| HackEso <hackeso@esolangs.org> parents: 11594 diff changeset	2 rev="$(hg blame ${HACKENV-/hackenv}/quotes \| sed "$1{s/^ //;s/:.//;q};d")"
11591 8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	3 if [[ -n "$rev" ]]; then
8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	4 hg log -r "$rev" -T "{desc}"
8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	5 else
8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	6 echo "$1: no such quote"
8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	7 fi
8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	8 else
11593 eb873414aa9c <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: 11591 diff changeset	9 echo "usage: \`whoq N"
11591 8d0288361b28 <fizzie> fetch bin/whoq https://hack.esolangs.org/get/bin/whoq HackEso <hackeso@esolangs.org> parents: diff changeset	10 fi