ermyth/include/gencallbacks.pl

#!/usr/bin/perl
# $Id: gencallbacks.pl,v 1.1 2007-07-19 08:24:50 pippijn Exp $

use strict;
use warnings;
use utf8;

my $namespace = "callback";
my $events = $ARGV[0] || 0;

$events > 1
   or die "Usage: $0 NUMBER\nwhere NUMBER > 1.";

my $gen = "";

for my $num (2 .. $events) {
   my @argt;
   my @argn;
   my $arg_type_list_named;
   
   for (1 .. $num) {
      my $a = "arg${_}_type";
      my $aname = "a$_";
      push @argt, $a;
      push @argn, $aname;
      $arg_type_list_named .= "$a $aname, ";
   }
   
   $arg_type_list_named =~ s/, *$//;
   
   my $arg_params_names = join ", ", @argn;
   my $arg_tmpl_decl = "class " . join ", class ", @argt;
   my $arg_type_list = join ", ", @argt;
   
   $gen .= <<EOF;
    ////////////////////// events for $num arguments //////////////////////
    // auto-generated by $0
    //
    // tmpl decl  = $arg_tmpl_decl
    // args       = $arg_type_list
    // named args = $arg_type_list_named

EOF

   ########################################################################
   # connection_base
   $gen .= <<EOF;
    template <${arg_tmpl_decl}>
    class connection_base${num}
    {
    public:
      typedef connection_base${num}<${arg_type_list}> this_type;
      
      virtual ~connection_base${num} (){}
      
      virtual listening_base* getdest () const = 0;
      virtual void invoke (${arg_type_list}) const = 0;
      virtual this_type *clone () const { return 0; }
      virtual this_type *duplicate (listening_base* pnewdest) const { return 0; }
#if 0
      virtual this_type *clone () const = 0; // { return 0; }
      virtual this_type *duplicate (listening_base* pnewdest) const = 0; // { return 0; }
#endif
    };

EOF


   ########################################################################
   # connection
   $gen .= <<EOF;
    template<class dest_type, ${arg_tmpl_decl}>
    class connection${num} : public connection_base${num}<${arg_type_list}>
    {
    public:
      typedef connection_base${num}<${arg_type_list} > base_type;
      typedef connection${num}< dest_type, ${arg_type_list} > this_type;
      typedef void (dest_type::*listener_func) (${arg_type_list});
      
      connection${num} () : m_pobject (0), m_pmemfun (0) { }
      
      virtual ~connection${num} () { }
      
      connection${num} (dest_type *pobject, listener_func pfunc) : m_pobject (pobject), m_pmemfun (pfunc) { }
      
      virtual base_type *clone () const
      {
        return new this_type (*this);
      }
      
      virtual base_type *duplicate (listening_base *pnewdest) const
      {
        return new this_type (dynamic_cast<dest_type *> (pnewdest), m_pmemfun);
      }
      
      virtual listening_base* getdest () const
      {
        return m_pobject;
      }
      
      virtual void invoke (${arg_type_list_named}) const
      {
        (m_pobject->*m_pmemfun) (${arg_params_names});
      }
      
    private:
      dest_type* m_pobject;
      listener_func m_pmemfun;
    };

EOF


   ########################################################################
   # event
   $gen .= <<EOF;
    template<${arg_tmpl_decl} >
    class event${num} : public event_base
    {
    public:
      typedef has_listeners listening_base;
      typedef std::list<connection_base${num}<${arg_type_list}> *>
       connection_list;
      
      event${num} () { }
      
      event${num} (const event${num}<${arg_type_list}> &s) : event_base (s)
      {
        if (&s == this)
          return;
  
        this->copy_connections (s.connections (), this->connections ());
      }
      
      
      template<class desttype>
      void attach (desttype* plistener, void (desttype::*pmemfun) (${arg_type_list}))
      {
        connection_base${num}<${arg_type_list}> *conn = new connection${num}<desttype, ${arg_type_list}> (plistener, pmemfun);
        this->connections ().push_back (conn);
        plistener->add_invoker (this);
      }
      
      void invoke (${arg_type_list_named}) const
      {
        typename connection_list::const_iterator it;
        typename connection_list::const_iterator it_end = this->connections ().end ();
        
        for (it = this->connections ().begin (); it != it_end; ++it)
          (*it)->invoke (${arg_params_names});
      }
  
      void operator () (${arg_type_list_named}) const
      {
        this->invoke (${arg_params_names});
      }
         
      event${num} &operator= (const event${num} &s)
      {
        this->copy_connections (s.connections (), this->connections ());
        return *this;
      }
      
      ~event${num} ()
      {
        disconnect_all ();
      }
      
      void disconnect_all ()
      {
        this->free_connections (connections ());
      }
      
      bool listener_duplicate (const listening_base *oldtarget, listening_base *newtarget)
      {
        return this->duplicate_connection (oldtarget, newtarget, connections ());
      }
      
    protected:
      bool listener_detach (listening_base *plistener)
      {
        return this->detach (plistener, this->connections ());
      }
      
      connection_list & connections ()
      {
        return this->m_connected_listeners;
      }
  
      const connection_list &connections () const
      {
        return this->m_connected_listeners;
      }
  
    private:
      connection_list m_connected_listeners;
    };
EOF

}

print $gen;
Revision:	1.2
Committed:	Sat Jul 21 15:05:40 2007 UTC (16 years, 10 months ago) by pippijn
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	added missing files
#	User	Rev	Content
1	pippijn	1.1	#!/usr/bin/perl
2	pippijn	1.2	# $Id: gencallbacks.pl,v 1.1 2007-07-19 08:24:50 pippijn Exp $
3	pippijn	1.1
4			use strict;
5			use warnings;
6			use utf8;
7
8			my $namespace = "callback";
9			my $events = $ARGV[0] \|\| 0;
10
11			$events > 1
12			or die "Usage: $0 NUMBER\nwhere NUMBER > 1.";
13
14			my $gen = "";
15
16			for my $num (2 .. $events) {
17			my @argt;
18			my @argn;
19			my $arg_type_list_named;
20
21			for (1 .. $num) {
22			my $a = "arg${_}_type";
23			my $aname = "a$_";
24			push @argt, $a;
25			push @argn, $aname;
26			$arg_type_list_named .= "$a $aname, ";
27			}
28
29			$arg_type_list_named =~ s/, *$//;
30
31			my $arg_params_names = join ", ", @argn;
32			my $arg_tmpl_decl = "class " . join ", class ", @argt;
33			my $arg_type_list = join ", ", @argt;
34
35			$gen .= <<EOF;
36			////////////////////// events for $num arguments //////////////////////
37			// auto-generated by $0
38			//
39			// tmpl decl = $arg_tmpl_decl
40			// args = $arg_type_list
41			// named args = $arg_type_list_named
42
43			EOF
44
45			########################################################################
46			# connection_base
47			$gen .= <<EOF;
48			template <${arg_tmpl_decl}>
49			class connection_base${num}
50			{
51			public:
52			typedef connection_base${num}<${arg_type_list}> this_type;
53
54			virtual ~connection_base${num} (){}
55
56			virtual listening_base* getdest () const = 0;
57			virtual void invoke (${arg_type_list}) const = 0;
58			virtual this_type *clone () const { return 0; }
59			virtual this_type duplicate (listening_base pnewdest) const { return 0; }
60			#if 0
61			virtual this_type *clone () const = 0; // { return 0; }
62			virtual this_type duplicate (listening_base pnewdest) const = 0; // { return 0; }
63			#endif
64			};
65
66			EOF
67
68
69			########################################################################
70			# connection
71			$gen .= <<EOF;
72			template<class dest_type, ${arg_tmpl_decl}>
73			class connection${num} : public connection_base${num}<${arg_type_list}>
74			{
75			public:
76			typedef connection_base${num}<${arg_type_list} > base_type;
77			typedef connection${num}< dest_type, ${arg_type_list} > this_type;
78			typedef void (dest_type::*listener_func) (${arg_type_list});
79
80			connection${num} () : m_pobject (0), m_pmemfun (0) { }
81
82			virtual ~connection${num} () { }
83
84			connection${num} (dest_type *pobject, listener_func pfunc) : m_pobject (pobject), m_pmemfun (pfunc) { }
85
86			virtual base_type *clone () const
87			{
88			return new this_type (*this);
89			}
90
91			virtual base_type duplicate (listening_base pnewdest) const
92			{
93			return new this_type (dynamic_cast<dest_type *> (pnewdest), m_pmemfun);
94			}
95
96			virtual listening_base* getdest () const
97			{
98			return m_pobject;
99			}
100
101			virtual void invoke (${arg_type_list_named}) const
102			{
103			(m_pobject->*m_pmemfun) (${arg_params_names});
104			}
105
106			private:
107			dest_type* m_pobject;
108			listener_func m_pmemfun;
109			};
110
111			EOF
112
113
114			########################################################################
115			# event
116			$gen .= <<EOF;
117			template<${arg_tmpl_decl} >
118			class event${num} : public event_base
119			{
120			public:
121			typedef has_listeners listening_base;
122			typedef std::list<connection_base${num}<${arg_type_list}> *>
123			connection_list;
124
125			event${num} () { }
126
127			event${num} (const event${num}<${arg_type_list}> &s) : event_base (s)
128			{
129			if (&s == this)
130			return;
131
132			this->copy_connections (s.connections (), this->connections ());
133			}
134
135
136			template<class desttype>
137			void attach (desttype* plistener, void (desttype::*pmemfun) (${arg_type_list}))
138			{
139			connection_base${num}<${arg_type_list}> *conn = new connection${num}<desttype, ${arg_type_list}> (plistener, pmemfun);
140			this->connections ().push_back (conn);
141			plistener->add_invoker (this);
142			}
143
144			void invoke (${arg_type_list_named}) const
145			{
146			typename connection_list::const_iterator it;
147			typename connection_list::const_iterator it_end = this->connections ().end ();
148
149			for (it = this->connections ().begin (); it != it_end; ++it)
150			(*it)->invoke (${arg_params_names});
151			}
152
153			void operator () (${arg_type_list_named}) const
154			{
155			this->invoke (${arg_params_names});
156			}
157
158			event${num} &operator= (const event${num} &s)
159			{
160			this->copy_connections (s.connections (), this->connections ());
161			return *this;
162			}
163
164			~event${num} ()
165			{
166			disconnect_all ();
167			}
168
169			void disconnect_all ()
170			{
171			this->free_connections (connections ());
172			}
173
174			bool listener_duplicate (const listening_base oldtarget, listening_base newtarget)
175			{
176			return this->duplicate_connection (oldtarget, newtarget, connections ());
177			}
178
179			protected:
180			bool listener_detach (listening_base *plistener)
181			{
182			return this->detach (plistener, this->connections ());
183			}
184
185			connection_list & connections ()
186			{
187			return this->m_connected_listeners;
188			}
189
190			const connection_list &connections () const
191			{
192			return this->m_connected_listeners;
193			}
194
195			private:
196			connection_list m_connected_listeners;
197			};
198			EOF
199
200			}
201
202			print $gen;