home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / irix / scripts / ddir < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.3 KB  |  67 lines
  1. #!/bin/csh -f
  2. #
  3. # $Id: ddir,v 1.2 93/11/17 14:24:19 carlson Exp $
  4. #
  5. # Description:
  6. #    This script will scan a directory and just list those files
  7. #    that are directories.
  8. #
  9. # Revision History:
  10. #    $Log:    ddir,v $
  11. # Revision 1.2  93/11/17  14:24:19  carlson
  12. # Modified to make sure there is a strlen in the path before checking
  13. #   to see if it is executable.
  14. # 
  15. # Revision 1.1  93/08/20  13:18:38  carlson
  16. # Initial revision
  17. # 
  18. # Revision 1.1  1993/02/24  14:12:42  chris
  19. # Initial revision
  20. #
  21. #
  22. #-----------------------------------------------------------------------
  23.  
  24. set x = ( `which strlen` )
  25. if ( $#x > 1 || ! -e $x ) then
  26.     echo "This script requires the program 'strlen' to run."
  27.     exit
  28. endif
  29.  
  30. set list = ()
  31. set i = 0
  32. foreach file ( * )
  33.     if ( -d $file ) then
  34.     set list = ( $list $file )
  35.     set a = `strlen $file`
  36.     if ( $a > $i ) set i = $a
  37.     endif
  38. end
  39.  
  40. if ( $i == 0 ) exit
  41.  
  42. #----
  43. # i        = Maximum size of word
  44. # columns    = Number of possible columns
  45. # rows        = Number of rows necessary
  46. #
  47.  
  48. @ i = $i + 2
  49. @ columns = 80 / $i
  50. @ rows    = ( $#list / $columns ) + 1
  51. set format = "%-${i}.${i}s"
  52.  
  53. @ row     = 0
  54.  
  55. while ( $rows > $row )
  56.     @ column = 0
  57.     while ( $columns > $column )
  58.     @ element = ( $row * $columns ) + $column + 1
  59.     if ( $element <= $#list ) then
  60.         printf "$format" $list[$element]/
  61.     endif
  62.     @ column = $column + 1
  63.     end
  64.     echo ""
  65.     @ row = $row + 1
  66. end
  67.