fix importing with dots, prep work for porting

This commit is contained in:
2024-12-29 12:55:09 -08:00
parent b92a45a7cf
commit 054a0675f4
6 changed files with 98 additions and 15 deletions

32
scripts/translate.sh Executable file
View File

@@ -0,0 +1,32 @@
#!/bin/zsh
# script to translate a file from idris to newt
# this is just a first pass, hopefully
mkdir -p port
find src -type f -name '*.idr' | while read -r file; do
output_file="port/${file#src/}"
output_file="${output_file%.idr}.newt"
mkdir -p "$(dirname "$output_file")"
if [[ ! -f "$output_file" ]]; then
echo "$file -> $output_file"
perl -pe '
s/^%.*//;
s/\bType\b/U/g;
s/\binterface\b/class/g;
s/import public/import/g;
s/^export//g;
s/^public export//g;
s/\(([A-Z]\w+), ?([^)]+)\)/(\1 × \2)/g;
s/\|\|\|/--/;
# maybe break down an add the sugar?
# patterns would be another option, but
# we would need to handle overlapping ones
s/\[\]/Nil/g;
s/\[<\]/Lin/g;
s/\[<([^\],]+)\]/(Lin :< \1)/g;
s/\[([^\],]+)\]/(\1 :: Nil)/g;
s/^([A-Z].*where)/instance \1/g;
' "$file" > "$output_file"
fi
done