URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.61/] [tools/] [src/] [librlinktpp/] [RtclAttnShuttle.hpp] - Rev 19
Go to most recent revision | Compare with Previous | Blame | View Log
// $Id: RtclAttnShuttle.hpp 495 2013-03-06 17:13:48Z mueller $ // // Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de> // // This program is free software; you may redistribute and/or modify it under // the terms of the GNU General Public License as published by the Free // Software Foundation, either version 2, or at your option any later version. // // This program 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 complete details. // // Revision History: // Date Rev Version Comment // 2013-03-01 493 1.0 Initial version // 2013-01-14 475 0.5 First draft // --------------------------------------------------------------------------- /*! \file \version $Id: RtclAttnShuttle.hpp 495 2013-03-06 17:13:48Z mueller $ \brief Declaration of class RtclAttnShuttle. */ #ifndef included_Retro_RtclAttnShuttle #define included_Retro_RtclAttnShuttle 1 #include "tcl.h" #include <cstdint> #include "librtcltools/RtclOPtr.hpp" #include "librlink/RlinkServer.hpp" namespace Retro { class RtclAttnShuttle { public: RtclAttnShuttle(uint16_t mask, Tcl_Obj* pobj); ~RtclAttnShuttle(); uint16_t Mask() const; Tcl_Obj* Script() const; void Add(RlinkServer* pserv, Tcl_Interp* interp); void Remove(); protected: int AttnHandler(const RlinkServer::AttnArgs& args); void TclChannelHandler(int mask); static void ThunkTclChannelHandler(ClientData cdata, int mask); protected: RlinkServer* fpServ; //!< RlinkServer used Tcl_Interp* fpInterp; //!< Tcl interpreter used int fFdPipeRead; //!< attn pipe read fd int fFdPipeWrite; //!< attn pipe write fd Tcl_Channel fShuttleChn; //!< Tcl channel uint16_t fMask; //!< attn mask RtclOPtr fpScript; //!< Tcl handler script (as Tcl_Obj) }; } // end namespace Retro #include "RtclAttnShuttle.ipp" #endif
Go to most recent revision | Compare with Previous | Blame | View Log