view lib/kps/bfpp @ 12556:79923443dff9 draft default tip

<Sgeo> ` rm -r /hackenv/pli-1.4.1
author HackEso <hackeso@esolangs.org>
date Thu, 07 May 2026 23:44:20 +0000
parents 37e5bb140d98
children
line wrap: on
line source

#!/bin/bash -e

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;' | /hackenv/lib/kps/labels.pl | sed '/^#/ d' > "$1.p"
rm -f "$1.i"