head	1.1;
branch	1.1.1;
access;
symbols
	john2:1.1.1.1.0.6
	john1:1.1.1.1
	lapyu-work:1.1.1.1.0.4
	john-work:1.1.1.1.0.2
	SIXALPHA:1.1.1.1
	TEXLIVE:1.1.1;
locks; strict;
comment	@# @;


1.1
date	2000.10.03.04.01.58;	author plaice;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2000.10.03.04.01.58;	author plaice;	state Exp;
branches;
next	;


desc
@@



1.1
log
@Initial revision
@
text
@#!/usr/local/bin/perl
#
# hack a XFLD info - alias all fonts, declared as koi8*, to iso8859-1
#
# usage:
# cd fontdir; ../ISO2koi < fonts.dir >> fonts.alias
#
# 1996/08/29 - vsv
#
while (<>) {
	chop;
	($z, $koi8) = split /[ \t]+/;
	$iso = $koi8;
	$iso =~ s/-koi8r-1/-iso8859-1/g;
	$iso =~ s/-koi8-1/-iso8859-1/g;
	$iso =~ s/-koi8-r/-iso8859-1/g;
	$iso =~ s/-cronyx-/-adobe-/g;
	$iso =~ s/-cronix-/-adobe-/g;
	## $iso =~ s/-cronix-/-hack-/g;
	## $iso =~ s/-cronyx-/-hack-/g;
	# Elvis+ fonts...
	## $iso =~ s/-adobe-/-hack-/g;
	## $iso =~ s/-dec-/-hack-/g;
	next if ("$iso" !~ /-iso8859-/);
	@@z = split (/-/, $iso);
	# no matter, 10 or 12, must be more then 3-4 ;)
	printf ("\"%s\"\t\"%s\"\n", $iso, $koi8) if (@@z > 10);
}
@


1.1.1.1
log
@sun2.dante.de download 2/10/2000 of TeXLive (Omega 1.11)
@
text
@@
