#! /usr/bin/gawk -f
# Last edited on 2002-01-15 01:23:59 by stolfi

# Preprocess the Greek New Testament

BEGIN {
  abort = -1;
  usage = ( \
    "cat main.org \\\n" \
    "  | latn-bib-process \\\n" \
    "  | org-to-evt -v omitControls=1 -v omitBlank=1 \\\n" \
    "  > main.evt" \
  );
  
  # Does nothing for now
}

(abort >= 0) { exit abort; }

// { print; next; }

END {
  if (abort >= 0) { exit abort; }
}

function arg_error(msg)
{
  printf "%s\n", msg > "/dev/stderr";
  printf "usage: %s\n", usage > "/dev/stderr";
  abort = 1;
  exit 1;
}

function data_error(msg)
{
  printf "line %d: %s\n", FNR, msg > "/dev/stderr";
  abort = 1; exit 1;
}