#!/usr/bin/perl
#
#   nextrtf2msrtf v1.0, 2001/01/02 by Christopher Rath;
#
#   Reformats NeXT rtf files into Microsoft compatible rtf files.
#
#   Bugs:  
#

###
# Setup formatting constants.
#
#&setupCodes;

###
# Print the prefix rtf code that goes at the start of every document.
#
#&printDocPrefix;

###
# Process all of file...
#
while (<>) {

#
#   Translate various characters
#
    s/\\'d0/\\emdash /g;
    s/\\'dd/\\'e9/g;
    s/\\'b1/\\endash /g;
    s/\\'aa/\\'93/g;
    s/\\'ba/\\'94/g;

    print $_;
}


#&printDocSuffix;


###
# Subroutines...
###

sub printDocPrefix
{
}

sub printDocSuffix
{
}

sub setupCodes
{
}
