#!/bin/sh

# Process fc query output to collect font file data

# font file to examine

font_file="$1"

# Where to save fc-query data

fc_file="$2"

# FIXME: only extracts info about the first typeface in a TTC file for now

parse_localized_fc_query() {

  field="$1"

  file="$2"

  fieldstring=$(awk -F ':' -v field="$field" \

                    '$1 == "\t"field { print $2 ; exit }' "$file" \

               | sed 's="(s)="=g' | sed 's=" *"=|=g'| sed 's= *" *==g')"|"

  default=$(echo $fieldstring | awk -F "|" '{ print $1 }')

  if $(grep -q "^"$'\t'$field"lang:" "$file") ; then

    langstring=$(awk -F ':' -v field="$field" \

                '$1 == "\t"field"lang" { print $2 ; exit }' "$file" \

                | sed 's="(s)="=g' | sed 's=" *"=|=g'| sed 's= *" *==g')"|"

    # Try to find the English label

    while [ "$langstring" != "" -a \

            "$(echo $langstring | cut -d '|' -f 1)" != "en" ] ; do

      fieldstring=$(echo "$fieldstring" | sed 's+\([^|]*\)|\(.*\)+\2+g')

      langstring=$(echo "$langstring" | sed 's+\([^|]*\)|\(.*\)+\2+g')

    done

    # We could hide problems by reporting the first label regardless of its

    # language. But this is an audit script — we do not hide problems

    echo "$fieldstring" |  awk -F "|" '{ print $1 }'

  else

    echo $(echo $fieldstring | cut -d '|' -f 1)

  fi

}

if $(FC_DEBUG=256 fc-query "$font_file" 2> /dev/null > "$fc_file") ; then

  family=$(parse_localized_fc_query family "$fc_file")

  style=$(parse_localized_fc_query style "$fc_file")

  format=$(parse_localized_fc_query fontformat "$fc_file")

else

  touch "$fc_file"

fi

echo "$family|$style|$format"