#!/bin/rc

# Copyright © 2007 Benjamin T. D. Newman.
#
# Permission is hereby granted, free of charge, to any person obtaining
# a copy of this work to deal in this work without restriction (including the
# rights to use, modify, distribute, sublicense, and/or sell copies).
#
# Disclaimer: This work is provided as is and without warranty of any kind.

# Inventory Plan 9 troff(1) fonts

dir=/sys/lib/troff/font/devutf/
files=`{ls -p $dir | awk '{print}' 'ORS= '}

fn getfo{
	echo -n $1: 
	grep fontname $dir/$1 | sed -e s/fontname// || echo ' not a font file'
}

for(i in $files) getfo $i | grep -v 'not a font file'