#!/usr/bin/perl
#
# Simply outputs all known special characters mainly for testing purposes.
#
# Last Change: Tue Mar  9 22:21:27 GMT 1999 by DL6RAI

@c = ("","IBM","ISO","DIN","Trans");
$in = "/usr/local/clx/config/char_set";

$set = $ARGV[$#ARGV];

open(IN,"$in") || die "Cannot open $in\n";
print "Displaying Charset $set ($c[$set]):\n";
while (<IN>) {
	chop;
	next if /^#/;
	@a = split;
	foreach $i (@a) {
		if ( $i =~ /\\[0-7]+/ ) { # octal -> character
			$i =~ s/\\//;
			$i = chr(oct($i)); 
		}
	}
	print "$a[$set]";
}
print "\n";
close(IN);
