#! /usr/bin/perl -pi.orig
#
#  Usage:   oi2lp.pl  FILE [...]
#
#  Purpose: Change symbol names in FILE [...] to match the ones in the new
#           version of LITpro.  Each input file is saved (unmodified) as
#           FILE.orig before translation.
#

s/\b(_?)oi([bfmpw]_)/\1lp\2/g;
s/\b(_?)OI([BFMPW]_)/\1LP\2/g;