Mercurial > repo
changeset 12277:37e5bb140d98 draft
<kspalaiologos> fetch /hackenv/lib/kps/bfpp https://hack.esolangs.org/get/lib/kps/bfpp
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Tue, 31 Dec 2019 18:29:39 +0000 |
parents | 1eb8be58440e |
children | 805908a65518 |
files | lib/kps/bfpp |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/kps/bfpp Tue Dec 31 18:27:52 2019 +0000 +++ b/lib/kps/bfpp Tue Dec 31 18:29:39 2019 +0000 @@ -2,6 +2,6 @@ set -o pipefail -{ cat <<<"#define __NEWLINE__ ÿ"$'\n'"#define __ICOUNTER__ þ"$'\n'"" ; cat "$1" | sed -e "1!b" -e '/#/d' ; } | gcc -E -I. -Ilib - -o "$1.i" -perl -pe "s/\xFF/\x0A/g;" < "$1.i" | perl -pe 's/\xFE/$x++/ge;' | /bin/labels.pl | sed '/^#/ d' > "$1.p" +{ cat <<<"#define __NEWLINE__ ÿ"$'\n'"#define __ICOUNTER__ þ"$'\n'"" ; cat "$1" | sed -e "1!b" -e '/#/d' ; } | gcc -E -I. -Ilib - -o "$1.i" +perl -pe "s/\xFF/\x0A/g;" < "$1.i" | perl -pe 's/\xFE/$x++/ge;' | /hackenv/lib/kps/labels.pl | sed '/^#/ d' > "$1.p" rm -f "$1.i"