%cat exam1.csh
#!/bn/csh
foreach f (*.v)
   echo $f
   cp $f $f.bak
end

%cat exam2.csh
#! /bin/csh -f
# written by tsj at 7/9/94
# convert compass to cadence
# use " // compass dontTouch * " command in verilog file

set files = (and_c.v)
  foreach files (${files})
cat $files | sed -e "1,$ s/\.CDN(/\.cdn(/g" \
-e "1,$ s/\.SDN(/\.sdn(/g" \
-e "1,$ s/\.QEN(/\.oen(/g" \
-e "1,$ s/\.OEN(/\.oen(/g" \
-e "1,$ s/\.DA(/\.da(/g" \
-e "1,$ s/\.DB(/\.db(/g" \
-e "1,$ s/\.OE(/\.oe(/g" \
-e "1,$ s/\.QN(/\.qn(/g" \
-e "1,$ s/\.CP(/\.cp(/g" \
-e "1,$ s/\.ZN/\.zn/g" \
-e "1,$ s/\.EN(/\.en(/g" \
-e "1,$ s/\.SA(/\.sa(/g" \
-e "1,$ s/\.A/\.a/g" \
-e "1,$ s/\.D(/\.d(/g" \
-e "1,$ s/\.Q(/\.q(/g" \
-e "1,$ s/\.B/\.b/g" \
-e "1,$ s/\.CI(/\.ci(/g" \
-e "1,$ s/\.CO(/\.co(/g" \
-e "1,$ s/\.C/\.c/g" \
-e "1,$ s/\.Z/\.z/g" \
-e "1,$ s/\.S/\.s/g" \
-e "1,$ s/\.I/\.i/g" \
-e "1,$ s/\.E(/\.e(/g" \
-e "1,$ s/\\//g" \
-e "1,$ s/\.Q )/\_Q )/g" \
-e "1,$ s/\.QN)/\_QN)/g" \
-e "1,$ s/short /ni01d1 /g" \
>& /tmp/$files
\mv /tmp/$files $files
end