comp.lang.ada
 help / color / mirror / Atom feed
From: Georg Bauhaus <sb463ba@d2-hrz.uni-duisburg.de>
Subject: Re: automatic tag conversion?
Date: Mon, 26 May 2003 18:27:45 +0000 (UTC)
Date: 2003-05-26T18:27:45+00:00	[thread overview]
Message-ID: <batmb1$2ho$2@a1-hrz.uni-duisburg.de> (raw)
In-Reply-To: batll5$2ho$1@a1-hrz.uni-duisburg.de

Georg Bauhaus <sb463ba@d2-hrz.uni-duisburg.de> wrote:
: 
:   procedure print_any(n: Node_ptr) is
:   begin
:      print(n.all'access);
:   end print_any;

That should be

       print(n);


:   procedure print_all is
:      new node_sets.look(accessor => print_any);
: 
: begin
:   node_sets.insert(new Transition, net);
:   node_sets.insert(new Place, net);
And maybe: (Hyperway derived from Transition, not overriding print)
   node_sets.insert(new Hyperway, net);
:   node_sets.insert(new Transition, net);
:   print_all(net);
: end run;
 
Still:
: $ ./run
: a transition
: a transition
: a place
: a transition
: $



  reply	other threads:[~2003-05-26 18:27 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-05-23 23:04 automatic tag conversion? Stephan Heinemann
2003-05-23 23:57 ` Stephan Heinemann
2003-05-24 17:39   ` Georg Bauhaus
2003-05-25 20:59     ` Stephan Heinemann
2003-05-26  8:29       ` Dmitry A. Kazakov
2003-05-26 18:16         ` Georg Bauhaus
2003-05-26 18:27           ` Georg Bauhaus [this message]
2003-05-26 20:49             ` Stephan Heinemann
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox