// -*- c++ -*-
/*
 *  MICO --- a free CORBA implementation
 *  Copyright (C) 1997-98 Kay Roemer & Arno Puder
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Library General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  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
 *  Library General Public License for more details.
 *
 *  You should have received a copy of the GNU Library General Public
 *  License along with this library; if not, write to the Free
 *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *  Send comments and/or bug reports to:
 *                 mico@informatik.uni-frankfurt.de
 */

#ifndef __mico_tclmico_h__
#define __mico_tclmico_h__

#ifdef _WINDOWS
#define list __temp__list
#include <tcl.h>
#undef list
#else
#include <tcl.h>
#endif

class TclDispatcher : public CORBA::Dispatcher {

    struct FileEvent {
        TclDispatcher *disp;
	CORBA::DispatcherCallback *cb;
	Event ev;
	CORBA::Long handle;

	FileEvent () {}
	FileEvent (TclDispatcher *_disp, CORBA::Long _handle, 
		   CORBA::DispatcherCallback *_cb, Event _ev)
	    : disp (_disp), handle (_handle), cb (_cb), ev (_ev)
	{}
    };
    struct TimerEvent {
        TclDispatcher *disp;
	Tcl_TimerToken token;
	CORBA::DispatcherCallback *cb;

	TimerEvent () {}
	TimerEvent (TclDispatcher *_disp, Tcl_TimerToken _token,
		    CORBA::DispatcherCallback *_cb)
	    : disp (_disp), token (_token), cb (_cb)
	{}
    };
    list<FileEvent *> fevents;
    list<TimerEvent *> tevents;

    static void input_callback (ClientData, int mask);
    static void timer_callback (ClientData);

    int tcl_mask (CORBA::Long handle, FileEvent * &next_event);
    int tcl_mask (CORBA::Long handle);
public:
    TclDispatcher (void);
    virtual ~TclDispatcher ();

    virtual void rd_event (CORBA::DispatcherCallback *, CORBA::Long fd);
    virtual void wr_event (CORBA::DispatcherCallback *, CORBA::Long fd);
    virtual void ex_event (CORBA::DispatcherCallback *, CORBA::Long fd);
    virtual void tm_event (CORBA::DispatcherCallback *, CORBA::ULong tmout);
    virtual void remove (CORBA::DispatcherCallback *, Event);
    virtual void run (CORBA::Boolean infinite = TRUE);
    virtual void move (CORBA::Dispatcher *);
    virtual CORBA::Boolean idle () const;
};

#endif // __mico_gtk_h__
