ftp.nice.ch/pub/next/unix/text/rtfdtohtml.1.3.s.tar.gz#/rtfdtohtml-1.3/lib_bin/fspre.pl

This is fspre.pl in view mode; [Download] [Up]

#!@@PERL@@ -n
#
#	This script is part of rtfdtohtml.
#	Copyright (c) 1996  Elmar Ludwig - Universitaet Osnabrueck
#
#	Map fontsizes to those listed in the html-trans file.
#	This script reduces all fontsizes to normal text.
#	Note: All fontsizes here are in half points (e.g. 16.0 pt. == 32)

$out = '';

while (/\\fs([0-9]+)/)
{
    $fs = $1;
    $fs = '24' if substr($`, -1) ne '\\';
    $out .= "$`\\fs$fs";
    $_ = $';
}

print $out . $_;

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.