Mercurial > repo

annotate bin/slashlearn_append @ 12500:e48c08805365 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<b_jonas> ` learn \'The password of the month is Cthulhuquagdonic Mothraquagdonic Narwhalicorn.\' # https://logs.esolangs.org/libera-esolangs/2024-04.html#lKE Infinite craft
author HackEso <hackeso@esolangs.org>
date Wed, 01 May 2024 06:39:10 +0000
parents 652d1c5a24be
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12187
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
1 sep="//"
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
2 [[ "$1" == ?*"$sep"* ]] || exit 1
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
3 topic="$(echo "${1%%$sep*}" | lowercase)"
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
4 stuff="${1#*$sep}"
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
5 perl -i -p -e 's/\n/ /' "${HACKENV-/hackenv}/wisdom/$topic"
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
6 echo "$stuff" >>"${HACKENV-/hackenv}/wisdom/$topic"
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
7 echo -n "Learned '$topic': "
652d1c5a24be <fizzie> ` mv /hackenv/le/rn_append /hackenv/bin/slashlearn_append && ln -sf /hackenv/bin/slashlearn_append /hackenv/le/rn_append # let\'s make that consistent
HackEso <hackeso@esolangs.org>
parents:
diff changeset
8 cat "${HACKENV-/hackenv}/wisdom/$topic"