# Fixup source files to discard any extraneous tabs or spaces at the
# end of the lines, to ensure that all lines end properly with \r\n
# and to ensure that timestamp can be represented exactly on a FAT
# or HPFS partition.
# Copyright (c) 1994-1996 by Hamilton Laboratories. All rights reserved.
proc fixup( files )
local i, ts, tf
foreach i ($files)
if (-e $i) then
set ts = `timestmp $i`
# Construct a temporary name by pasting the seconds+hundredths
# onto the root of the file.
set tf = $i:r.$substr(`date`:4,8):s/.//
tr -n < $i | sed 's/^[ ][ ]*$//' > $tf
touch -2 $ts $tf
mv $tf $i
else
echo $i does not exist.
end
end
end
fixup $argv
Hamilton C shell |
Free Updates |
Free Demo Software |
Win32 Training
Y2K |
Customer Testimonials |
On-line Hamilton C shell User Guide
Home |
Email |
Support |
Company Profile |
Distributors |
Links
Copyright © 1997-2001 by Hamilton Laboratories.
All rights reserved.
You are visitor number
463.
This page was last modified August 14, 2001.