/****************************** Module Header *******************************
*
* Module Name: autolink.e
*
* This module is executed by load.e and is responsible to load
* all modules found in <UserDir>\autolink
*
* Copyright (c) Netlabs EPM Distribution Project 2002
*
* $Id$
*
* ===========================================================================
*
* This file is part of the Netlabs EPM Distribution package and is free
* software.  You can redistribute it and/or modify it under the terms of the
* GNU General Public License as published by the Free Software
* Foundation, in version 2 as it comes in the "COPYING" file of the
* Netlabs EPM Distribution.  This library is distributed in the hope that it
* will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
* General Public License for more details.
*
****************************************************************************/

defc Autolink
   call Autolink()

defproc Autolink

    -- determine autolink directory
    UserDir = NepmdQueryInstValue( 'USERDIR')
    if rc then
       return rc
    endif
    AutoLinkDir = UserDir'\autolink'

    -- loop through all .ex files

    FileMask = AutoLinkDir'\*.ex'
    Handle   = ''    -- always create a new handle!
    Filename = ''
    do while NepmdGetNextFile( FileMask, Handle, Filename)
       -- Use Link command to also handle EPM's menu item limit
       'Link quiet' Filename  -- quiet because message would slow startup down
    enddo
    rc = 0  -- no error from here

    return rc