| Revision 8789,
538 bytes
checked in by ghudson, 28 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r8788,
which included commits to RCS files with non-trunk default branches.
|
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #!/bin/csh -f |
|---|
| 2 | # |
|---|
| 3 | # Copyright 1989 by the Massachusetts Institute of Technology. |
|---|
| 4 | # |
|---|
| 5 | # For copying and distribution information, |
|---|
| 6 | # please see the file <mit-copyright.h>. |
|---|
| 7 | # |
|---|
| 8 | |
|---|
| 9 | set file=() |
|---|
| 10 | set prog=/usr/ucb/indent |
|---|
| 11 | set args=(-l72 -i4 -di8) |
|---|
| 12 | |
|---|
| 13 | foreach i ($*) |
|---|
| 14 | if ("$i" =~ -*) then |
|---|
| 15 | set args=($args "$i") |
|---|
| 16 | else |
|---|
| 17 | set file=($file "$i") |
|---|
| 18 | endif |
|---|
| 19 | end |
|---|
| 20 | |
|---|
| 21 | if ($#file < 2) set args=($args -st) |
|---|
| 22 | |
|---|
| 23 | switch ($#file) |
|---|
| 24 | case 0: |
|---|
| 25 | $prog $args |
|---|
| 26 | breaksw |
|---|
| 27 | case 1: |
|---|
| 28 | cat $file[1] | $prog $args |
|---|
| 29 | breaksw |
|---|
| 30 | default: |
|---|
| 31 | $prog $args $file |
|---|
| 32 | breaksw |
|---|
| 33 | endsw |
|---|
Note: See
TracBrowser
for help on using the repository browser.
