#!/usr/local/bin/perl
#
# Convert X11's fonts.alias to NeWS's Compat.list 
#
# usage:
# cd font_src_dir; ../ALIAS2Compat < fonts.alias >> dest.dir/Compat.list
#
# 1996/08/29 - vsv
#
while (<>) {
	chop;
	# skip comments
	next if ("$_" =~ /^#/);
	($orig, $alias) = split /[ \t]+/;
	printf ("/%s\t/%s\t_FontDirectorySYN\n", $orig, $alias);
}
