setup.il #2

; Copyright (c) 2000, Perforce Software, All rights reserved.
; 
; This software was originally developed by Silicon Graphics, Inc (SGI).
; 
; Redistribution and use in source and binary forms, with or
; without modification, are permitted provided that the following
; conditions are met:
; 
; Redistributions of source code must retain the above copyright notice,
; this list of conditions and the following disclaimer.
; 
; Redistributions in binary form must reproduce the above copyright
; notice, this list of conditions and the following disclaimer in the
; documentation and/or other materials provided with the distribution.
; 
; Neither name of Perforce Software nor SGI nor the names of its
; contributors may be used to endorse or promote products derived from
; this software without specific prior written permission.
; 
; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
; ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR
; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.







;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Filename:            setup.il
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Description: Load all files with .il extension from first directory in
;;;              SkillPath.
;;; This file should be called from the top level setup file which has set
;;; the skill path to point at the directory in which this file is located.

let((loadFiles excludeFiles allFiles skillFiles)

    ;;----------------------------------------------------------
    ;; List files (with non .il extension) to be loaded
    ;;----------------------------------------------------------
    loadFiles = list(
		); includeFiles

    ;;----------------------------------------------------------
    ;; List files (with .il extension) not to be loaded
    ;;----------------------------------------------------------
    excludeFiles = list(
			"setup.il"   ; prevent recursive load
			"CDS_P4Utils.il" ;; loaded in CDS_P4Triggers
			"CDS_P4IPCFuncs.il" ;; as above
			"CDS_P4NFS.il"
			"CDS_P4Config.il"
		   ); excludeFiles

    ;;-----------------------------------------------------------
    ;; Get all the skill files in the current directory
    ;;-----------------------------------------------------------
    allFiles   = getDirFiles(simplifyFilename(car(getSkillPath())))
    skillFiles = setof(file allFiles rexMatchp("\\.il$" file))
    
    ;;-----------------------------------------------------------
    ;; Derive list of files to be loaded
    ;;-----------------------------------------------------------
    foreach(file skillFiles
	unless(member(file loadFiles) || member(file excludeFiles)
	       loadFiles = cons(file loadFiles)
	); unless
    ); foreach
    
    ;;-----------------------------------------------------------
    ;; Load the files - loadi to keep going after an error
    ;;-----------------------------------------------------------
    foreach(file loadFiles loadi(file))

);let