#!/bin/csh -f

set Subroutine=$1:r

set tmp=`echo $Subroutine | tr A-Z a-z`
set InputFile=$tmp.o
set InputName=_$tmp
set Patcher=../ObjPatch
set Strings=../Strings

set OutputFile=$Subroutine.o
set OutputName=_$Subroutine

cd tmp

ar x /lib/libc.a $InputFile

set offset=`$Strings $InputName < $InputFile`
if $offset == '' then
	echo Could not find the entry for $InputName in $InputFile
	exit 1
endif

set oldstr=`$Patcher $InputFile $offset`

if $oldstr != $InputName then
	echo Could not find the entry for $InputName in $InputFile
	exit 1
endif

set oldstr=`$Patcher $InputFile $offset $OutputName`
set newstr=`$Patcher $InputFile $offset`

if $newstr != $OutputName then
	echo Could not rename $InputName to $OutputName
	exit 1
endif

echo $InputName has been renamed to $OutputName

mv $InputFile ../$OutputFile
