Mercurial > repo
annotate bin/slashlearn_append @ 12298:cea93c2c666a draft
<b_jonas> learn Burlesque is only the sexiest language on Earth. mroman created it for finance analysis because the traditionally used K and Dyalog APL are unreadable. (See: http://mroman.ch/burlesque )
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sat, 04 Jan 2020 22:50:21 +0000 |
parents | 652d1c5a24be |
children |
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" |