home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mem / MPW Helpers / Scripts / ls < prev    next >
Encoding:
Text File  |  1989-04-23  |  316 b   |  11 lines  |  [TEXT/MPS ]
  1. #
  2. #  MPW Shell script for UNIX-like "ls" command.
  3. #  Determines optimal number of columns based on
  4. #  current MPW window size. Assumes font
  5. #  Monaco 9.  Requires the tool "colm".
  6. #
  7. Evaluate x = "`SizeWindow {Active}`" =~ ∂
  8.     /[a-zA-Z]+ ([0-9]+)®1 ≈/
  9. Evaluate w = ({®1} - 1) ÷ 6
  10. Files {"Parameters"} | colm -w {w}
  11.