#!/bin/csh -f
#	$Source: /local/cvsfiles/kerberos/src/tools/k_indent,v $
#	$Author: eichin $
#	$Header: /local/cvsfiles/kerberos/src/tools/k_indent,v 1.1.1.2 1991/12/03 18:56:16 eichin Exp $
#
#  Copyright 1989 by the Massachusetts Institute of Technology.
# 
#  For copying and distribution information,
#  please see the file <mit-copyright.h>.
# 

set file=()
set prog=/usr/ucb/indent
set args=(-l72 -i4 -di8)

foreach i ($*)
   if ("$i" =~ -*) then
      set args=($args "$i")
   else
      set file=($file "$i")
   endif
end

if ($#file < 2) set args=($args -st)

switch ($#file)
case 0:
   $prog $args
   breaksw
case 1:
   cat $file[1] | $prog $args
   breaksw
default:
   $prog $args $file
   breaksw
endsw
