#!/usr/local/bin/tclsh 

#
# $Log: not supported by cvs2svn $
# Revision 1.1  1997/02/19 20:00:18  borland
# First version.
#
# 

if [llength $argv]!=1 {
    puts "usage: findADL <filenameFragment>"
    exit
}
set name [lindex $argv 0]

set pathList [list \
                booster leutl linac par rf sr srbpm srfb time vpApp]

foreach path $pathList {
    set fileList [split [exec find /usr/local/iocapps/adlsys/$path -name *$name* -print]] 
    foreach elem $fileList {
        puts /usr/local/iocapps/adlsys/$path/$elem
    }
}
