$! --- University of Sussex POPLOG file -----------------------------------
$! File:            $usepop/master/C.vms/com/mkindex.com
$! Purpose:         make an index of procedure definitions type
$! Author:          Unknown, ???
$! Documentation:
$! Related Files:

$! For example "mkindex *.p defs.ind" will create a file called "defs.ind"
$! of procedure definitions
$!
$ if "''p1'".eqs."" then goto explain
$ on error then exit
$ search/exact/output='p2' 'p1' "define "
$ exit
$explain:
$ write sys$output "USAGE: mkindex *.p index.lis"
