#! /usr/bin/gawk -f

# Recoding an interlinear file from FSG to Super-analytic:

BEGIN {
  print "# Output of fsg2sa - Stolfi's super-analytic alphabet"
}

/^ *$/ { print; next }
/^ *#/ { print; next }
/^<[^>.;]*>/ { print; next }

/^<[^>]*\.[^>]*;[A-Z]> / {
  curtxt = substr($0,20)
  
  # We discard  "%" and "!" since the conversion
  # will destroy synchronism anyway.
  gsub(/[%!]/, "", curtxt);
  
  gsub(/IIIK/, "iiiij",  curtxt);
  gsub(/IIIL/, "iiiiu",  curtxt);
  gsub(/IIIR/, "iiiis",  curtxt);
  gsub(/IIIE/, "iiiix",  curtxt);
  gsub(/IIE/,  "iiix",   curtxt);
  gsub(/IIR/,  "iiis",   curtxt);
  gsub(/IIK/,  "iiij",   curtxt);
  gsub(/HZ/,   "cqjc",   curtxt);
  gsub(/PZ/,   "cqgc",   curtxt);
  gsub(/DZ/,   "cljc",   curtxt);
  gsub(/FZ/,   "clgc",   curtxt);
  gsub(/IE/,   "iix",    curtxt);
  gsub(/IR/,   "iis",    curtxt);
  gsub(/IK/,   "iij",    curtxt);
  gsub(/2/,    "cs",     curtxt);
  gsub(/4/,    "q",      curtxt);
  gsub(/6/,    "cj",     curtxt);
  gsub(/7/,    "ig",     curtxt);
  gsub(/8/,    "cg",     curtxt);
  gsub(/A/,    "ci",     curtxt);
  gsub(/C/,    "c",      curtxt);
  gsub(/D/,    "lj",     curtxt);
  gsub(/E/,    "ix",     curtxt);
  gsub(/F/,    "lg",     curtxt);
  gsub(/G/,    "cy",     curtxt);
  gsub(/H/,    "qj",     curtxt);
  gsub(/I/,    "i",      curtxt);
  gsub(/K/,    "ij",     curtxt);
  gsub(/L/,    "iu",     curtxt);
  gsub(/M/,    "iiiu",   curtxt);
  gsub(/N/,    "iiu",    curtxt);
  gsub(/O/,    "o",      curtxt);
  gsub(/P/,    "qg",     curtxt);
  gsub(/R/,    "is",     curtxt);
  gsub(/S/,    "csc",    curtxt);
  gsub(/T/,    "cc",     curtxt);
  gsub(/V/,    "?",      curtxt);
  gsub(/Y/,    "?",      curtxt);
  print (substr($0,1,19) curtxt);
  next
}