#! /bin/bash
# Last edited on 2023-02-22 16:24:30 by stolfi

# Converts a lisp-like expression to equivalent pseudocode.
# See comments in {expr_to_pcode.lsp}

if [[ $# -ne 0 ]]; then
  echo "** extraneous arguments" 1>&2
  echo "Usage: $0 < INPUT.expr > OUTPUT.pcode" 1>&2
  exit 1
fi

lsplib="${STOLFIHOME}/lib"

infile="/tmp/$$.expr"
outfile="/tmp/$$.pcode"
cat > ${infile}

clisp -q -q -q 1>&2 << EOF
(load "${lsplib}/expr_to_pcode.lsp")
(parse "${infile}" "${outfile}")
EOF

cat ${outfile}