#!/bin/csh -f
set echo

if($#argv < 1) then
   echo "usage: $0 file ..."
   exit 1
endif

@ filenum=1
while($filenum <= $#argv)
   if(! -f $argv[$filenum]) then
      echo "$0: $argv[$filenum]: No such file or directory"
      exit 1
   endif
   set filename=(`wordsplit $argv[$filenum]`);
   @ i=1
   @ j=$i + 1
   while($j <= $#filename)
      wordsplit_sub.csh $filename[$i] $filename[$j]
      @ i+=2
      @ j=$i + 1
   end
   @ filenum++
end

#==================================
# wordsplit_sub.csh
#==================================
#!/bin/csh -f
unset echo

if($#argv < 2 || $#argv > 2) then
   echo "usage: $0 file_name expanded_name"
   exit 1
endif

if($argv[2] == "Z") then
   uncompress $argv[1]
endif

if($argv[2] == "gz") then
   gunzip $argv[1]
endif

if($argv[2] == "tar") then
   tar xvf $argv[1]
endif

/*=============================
 wordsplit.c
=============================*/
#include    <stdio.h>
#include   <string.h>
#define   MAXLINE 256


main(argc, argv) int argc; char *argv[]; {
   if(argc >= 2) wordsplit(argv[1]);
}

wordsplit(aline) char *aline; {
   char *achr,*bchr;

   printf("%s ",aline);
   achr = aline;
   for(bchr=aline;*bchr != NULL;bchr++);
   for(;bchr!=aline && *bchr!='.';bchr--);
   if(*bchr == '.') {
      *bchr++ = '\0';
      printf(" %s\n",bchr);
      wordsplit(achr);
   }
}