home *** CD-ROM | disk | FTP | other *** search
- #! /bin/sh
- # NAME
- # short - a short description of available definitions in a tile file
- # SYNOPSIS
- # short <file>
- # DESCRIPTION
- # Gives all the defininition lines in a tile forth source file.
- #
- # OPTIONS
- # none
- # SEE ALSO
- # tile(1), grep(1)
- # AUTHOR
- # Mikael R.K. Patel
- # Computer Aided Design Laboratory (CADLAB)
- # Department of Computer and Information Science
- # Linkoping University
- # S-581 83 LINKOPING
- # SWEDEN
- # Email: mip@ida.liu.se
- # HISTORY
- # Created on: 02 June 1990
- # Lasted updated: 02 June 1990
-
- if [ "$1" = "" ]
- then
- echo "Usage: short file ..."
- else
- for file in $1
- do
- echo "Definitions in: $file"
- grep "\-\-" $file
- echo
- done
- fi
-
-