Ticket #4233: ftidyinplace

File ftidyinplace, 155 bytes (added by ben@…, 19 years ago)

files/ftidyinplace -- wrapper for ftidy

Line 
1#!/bin/sh
2
3for file in $@
4do
5  head=`expr ${file} : '\([[:print:]]*\)\.f'`
6  echo $head.f
7  ftidy $file
8  mv $head.f $head.old
9  mv $head.tid $head.f
10done