#!/bin/csh<br>
# Paul K Flynn CS576/763 Assignment 1 Fall 97<br>
# pchmod options file<br>
# test for exceptions first<br>
set i = $#argv<br>
if ($i <2 )then <br>
  echo pchmod : ERROR : invalid number of arguments<br>
 exit 1<br>
endif<br>
<br>
#check for the / in the file<br>
echo   $argv[$i] | grep / >> /tmp/f$$<br>
if ($status == 0 ) then<br>
    echo pchmod : ERROR : do not use '"/"' in args<br>
    rm /tmp/f$$<br>
    exit 1<br>
else<br>
#  file name  form was okay <br>
#see if the file exists<br>
   <br>
   if ((-f $argv[$i])||(-d $argv[$i])) then<br>
# file does exist   <br>
# remember where it is<br>
       set here = `pwd`<br>
#chmod of dirs leading to here<br>
       echo / >> /tmp/f2$$<br>
<br>
       while (1)<br>
          set new = `pwd`<br>
# chmod of this one then step up<br>
          chmod o+x  $new<br>
          cd ..<br>
          echo `pwd` >> /tmp/f3$$<br>
           cmp -s /tmp/f2$$ /tmp/f3$$<br>
          if ($status == 0)break<br>
# we arrived at root       <br>    
         rm /tmp/f3$$<br>
                  <br>
# else we made a successful cd<br>
        <br>
<br>
       end<br>
#clean up<br>
       rm /tmp/f2$$<br>
      <br>
   else <br>
    echo pchmod : ERROR: $argv[$i] does not exist<br>
    exit 1<br>
   endif<br>
cd $here<br>
chmod $argv<br>
rm /tmp/f$$<br>
endif<br>
<HR>
<a href="assign.html">Back to Assignments Page </a><br>
<a href="http://www.cs.odu.edu/~cs476/index.html">Back to CS476/576 Home Page </a>
</body>
</html>