1/*****************************************************************************
    2 * This file is part of the Prolog Development Tool (PDT)
    3 * 
    4 * WWW: http://sewiki.iai.uni-bonn.de/research/pdt/start
    5 * Mail: pdt@lists.iai.uni-bonn.de
    6 * Copyright (C): 2004-2012, CS Dept. III, University of Bonn
    7 * 
    8 * All rights reserved. This program is  made available under the terms
    9 * of the Eclipse Public License v1.0 which accompanies this distribution,
   10 * and is available at http://www.eclipse.org/legal/epl-v10.html
   11 * 
   12 ****************************************************************************/
   13
   14
   15:- module(pdt_entry_points,[
   16	pdt_entry_point/1,
   17	add_entry_point/1,
   18	remove_entry_points/1
   19]).   20
   21:- dynamic unfiltered_entry_point/1.   22
   23pdt_entry_point(File) :-
   24    unfiltered_entry_point(File),
   25    source_file(File).
   26
   27add_entry_point(File) :-
   28    unfiltered_entry_point(File),
   29    !.
   30    
   31add_entry_point(File) :-
   32    assert(unfiltered_entry_point(File)).
   33    
   34remove_entry_points(File) :-
   35    retractall(unfiltered_entry_point(File))