ssp.cc 22.2 KB
Newer Older
1
// Copyright (C) 2003, 2004  Laboratoire d'Informatique de Paris 6 (LIP6),
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// dpartement Systmes Rpartis Coopratifs (SRC), Universit Pierre
// et Marie Curie.
//
// This file is part of Spot, a model checking library.
//
// Spot is free software; you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// Spot 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 more details.
//
// You should have received a copy of the GNU General Public License
// along with Spot; see the file COPYING.  If not, write to the Free
// Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
// 02111-1307, USA.

22
23
24
25
#include <cstring>
#include <map>
#include <cassert>
#include <gspnlib.h>
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
26
#include "ssp.hh"
27
28
#include "misc/bddlt.hh"
#include <bdd.h>
29
30
#include "tgbaalgos/gtec/explscc.hh"
#include "tgbaalgos/gtec/nsheap.hh"
31
32
33
34

namespace spot
{

35
36
37
38
39
40
41
42
  namespace
  {
    static bdd*
    bdd_realloc(bdd* t, int size, int new_size)
    {
      assert(new_size);
      bdd* tmp = new bdd[new_size];

43
      for (int i = 0; i < size; i++)
44
45
46
47
48
49
50
	tmp[i] = t[i];

      delete[] t;
      return tmp;
    }
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
51
  // state_gspn_ssp
52
53
  //////////////////////////////////////////////////////////////////////

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
54
  class state_gspn_ssp: public state
55
56
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
57
    state_gspn_ssp(State left, const state* right)
58
59
60
61
62
      : left_(left), right_(right)
    {
    }

    virtual
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
63
    ~state_gspn_ssp()
64
65
66
67
68
69
70
    {
      delete right_;
    }

    virtual int
    compare(const state* other) const
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
71
      const state_gspn_ssp* o = dynamic_cast<const state_gspn_ssp*>(other);
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
      assert(o);
      int res = (reinterpret_cast<char*>(o->left())
		 - reinterpret_cast<char*>(left()));
      if (res != 0)
	return res;
      return right_->compare(o->right());
    }

    virtual size_t
    hash() const
    {
      return (reinterpret_cast<char*>(left())
	      - static_cast<char*>(0)) << 10 + right_->hash();
    }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
87
    virtual state_gspn_ssp* clone() const
88
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
89
      return new state_gspn_ssp(left(), right()->clone());
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
    }

    State
    left() const
    {
      return left_;
    }

    const state*
    right() const
    {
      return right_;
    }

  private:
    State left_;
    const state* right_;
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
107
  }; // state_gspn_ssp
108

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
109
  // tgba_gspn_ssp_private_
110
111
  //////////////////////////////////////////////////////////////////////

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
112
  struct tgba_gspn_ssp_private_
113
114
115
116
117
118
119
120
121
122
123
124
  {
    int refs;			// reference count

    bdd_dict* dict;
    typedef std::map<int, AtomicProp> prop_map;
    prop_map prop_dict;

    signed char* all_props;

    size_t prop_count;
    const tgba* operand;

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
125
    tgba_gspn_ssp_private_(bdd_dict* dict, const gspn_environment& env,
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
			     const tgba* operand)
      : refs(1), dict(dict), all_props(0),
	operand(operand)
    {
      const gspn_environment::prop_map& p = env.get_prop_map();

      try
	{
	  AtomicProp max_prop = 0;

	  for (gspn_environment::prop_map::const_iterator i = p.begin();
	       i != p.end(); ++i)
	    {
	      int var = dict->register_proposition(i->second, this);
	      AtomicProp index;
	      int err = prop_index(i->first.c_str(), &index);
	      if (err)
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
143
		throw gspn_exeption("prop_index(" + i->first + ")", err);
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160

	      prop_dict[var] = index;

	      max_prop = std::max(max_prop, index);
	    }
	  prop_count = 1 + max_prop;
	  all_props = new signed char[prop_count];
	}
      catch (...)
	{
	  // If an exception occurs during the loop, we need to clean
	  // all BDD variables which have been registered so far.
	  dict->unregister_all_my_variables(this);
	  throw;
	}
    }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
161
    tgba_gspn_ssp_private_::~tgba_gspn_ssp_private_()
162
163
164
165
166
167
168
169
    {
      dict->unregister_all_my_variables(this);
      if (all_props)
	delete[] all_props;
    }
  };


Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
170
  // tgba_succ_iterator_gspn_ssp
171
172
  //////////////////////////////////////////////////////////////////////

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
173
  class tgba_succ_iterator_gspn_ssp: public tgba_succ_iterator
174
175
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
176
    tgba_succ_iterator_gspn_ssp(Succ_* succ_tgba,
177
178
179
180
181
182
183
184
185
186
187
188
189
190
				  size_t size_tgba,
				  bdd* bdd_arry,
				  state** state_arry,
				  size_t size_states,
				  Props_* prop,
				  int size_prop)
      : successors_(succ_tgba),
	size_succ_(size_tgba),
	current_succ_(0),
	bdd_array_(bdd_arry),
	state_array_(state_arry),
	size_states_(size_states),
	props_(prop),
	size_prop_(size_prop)
191
192
193
194
    {
    }

    virtual
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
195
    ~tgba_succ_iterator_gspn_ssp()
196
197
    {

198
      for (size_t i = 0; i < size_states_; i++)
199
      	delete state_array_[i];
200

201
202
      delete[] bdd_array_;
      free(state_array_);
203

204
205
206
207
208
209
      if (props_)
	{
	  for (int i = 0; i < size_prop_; i++)
	    free(props_[i].arc);
	  free(props_);
	}
210

211
212
      if (size_succ_ != 0)
	succ_free(successors_);
213

214
215
216
217
218
    }

    virtual void
    first()
    {
219
220
      if (!successors_)
	return;
221
      current_succ_=0;
222
223
224
225
226
    }

    virtual void
    next()
    {
227
      current_succ_++;
228
229
230
231
232
    }

    virtual bool
    done() const
    {
233
      return current_succ_ + 1 > size_succ_;
234
235
236
237
238
    }

    virtual state*
    current_state() const
    {
239
      return
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
240
	new state_gspn_ssp(successors_[current_succ_].succ_,
241
242
			     (state_array_[successors_[current_succ_]
					   .arc->curr_state])->clone());
243
244
245
246
247
248
249
250
251
    }

    virtual bdd
    current_condition() const
    {
      return bddtrue;
    }

    virtual bdd
252
    current_acceptance_conditions() const
253
254
255
    {
      // There is no acceptance conditions in GSPN systems, so we just
      // return those from OPERAND_.
256
257
258
259
      // return operand_->current_acceptance_conditions();
      // bdd * ac=(bdd *)successors_[current_succ_].arc->curr_acc_conds;
      //return (*ac);
      return bdd_array_[successors_[current_succ_].arc->curr_acc_conds];
260
261
    }
  private:
262

263
264
    // All successors of STATE matching a selection conjunctions from
    // ALL_CONDS.
265
266
267
268
269
270
271
272
273
    Succ_* successors_;		/// array of successors
    size_t size_succ_;		/// size of successors_
    size_t current_succ_;		/// current position in successors_

    bdd * bdd_array_;
    state** state_array_;
    size_t size_states_;
    Props_* props_;
    int size_prop_;
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
274
  }; // tgba_succ_iterator_gspn_ssp
275
276


Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
277
  // tgba_gspn_ssp
278
279
  //////////////////////////////////////////////////////////////////////

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
280
  class tgba_gspn_ssp: public tgba
281
282
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
283
    tgba_gspn_ssp(bdd_dict* dict, const gspn_environment& env,
284
		    const tgba* operand);
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
285
286
287
    tgba_gspn_ssp(const tgba_gspn_ssp& other);
    tgba_gspn_ssp& operator=(const tgba_gspn_ssp& other);
    virtual ~tgba_gspn_ssp();
288
289
290
291
292
293
294
295
296
297
298
299
300
301
    virtual state* get_init_state() const;
    virtual tgba_succ_iterator*
    succ_iter(const state* local_state,
	      const state* global_state = 0,
	      const tgba* global_automaton = 0) const;
    virtual bdd_dict* get_dict() const;
    virtual std::string format_state(const state* state) const;
    virtual state* project_state(const state* s, const tgba* t) const;
    virtual bdd all_acceptance_conditions() const;
    virtual bdd neg_acceptance_conditions() const;
  protected:
    virtual bdd compute_support_conditions(const spot::state* state) const;
    virtual bdd compute_support_variables(const spot::state* state) const;
  private:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
302
    tgba_gspn_ssp_private_* data_;
303
  };
304

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
305
  tgba_gspn_ssp::tgba_gspn_ssp(bdd_dict* dict, const gspn_environment& env,
306
307
				   const tgba* operand)
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
308
    data_ = new tgba_gspn_ssp_private_(dict, env, operand);
309
310
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
311
  tgba_gspn_ssp::tgba_gspn_ssp(const tgba_gspn_ssp& other)
312
313
314
315
316
317
    : tgba()
  {
    data_ = other.data_;
    ++data_->refs;
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
318
  tgba_gspn_ssp::~tgba_gspn_ssp()
319
320
321
322
323
  {
    if (--data_->refs == 0)
      delete data_;
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
324
325
  tgba_gspn_ssp&
  tgba_gspn_ssp::operator=(const tgba_gspn_ssp& other)
326
327
328
  {
    if (&other == this)
      return *this;
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
329
330
    this->~tgba_gspn_ssp();
    new (this) tgba_gspn_ssp(other);
331
332
333
    return *this;
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
334
  state* tgba_gspn_ssp::get_init_state() const
335
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
336
    // Use 0 as initial state for the SSP side.  State 0 does not
337
338
    // exists, but when passed to succ() it will produce the list
    // of initial states.
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
339
    return new state_gspn_ssp(0, data_->operand->get_init_state());
340
341
342
  }

  tgba_succ_iterator*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
343
  tgba_gspn_ssp::succ_iter(const state* state_,
344
345
			     const state* global_state,
			     const tgba* global_automaton) const
346
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
347
    const state_gspn_ssp* s = dynamic_cast<const state_gspn_ssp*>(state_);
348
349
350
    assert(s);
    (void) global_state;
    (void) global_automaton;
351
352
353
354
355
356
357
358
359
360
361
362

    bdd all_conds_;
    bdd outside_;
    bdd cond;

    Props_* props_ = 0;
    int nb_arc_props = 0;
    bdd* bdd_array = 0;
    int size_bdd = 0;
    state** state_array = 0;
    size_t size_states = 0;

363
    tgba_succ_iterator* i = data_->operand->succ_iter(s->right());
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387

    for (i->first(); !i->done(); i->next())
      {
	all_conds_ = i->current_condition();
	outside_ = !all_conds_;

	if (all_conds_ != bddfalse)
	  {
	    props_ = (Props_*) realloc(props_,
				       (nb_arc_props + 1) * sizeof(Props_));

	    props_[nb_arc_props].nb_conj = 0;
	    props_[nb_arc_props].prop = 0;
	    props_[nb_arc_props].arc =
	      (Arc_Ident_*) malloc(sizeof(Arc_Ident_));

	    bdd_array = bdd_realloc(bdd_array, size_bdd, size_bdd + 1);
	    bdd_array[size_bdd] = i->current_acceptance_conditions();
	    props_[nb_arc_props].arc->curr_acc_conds = size_bdd;
	    size_bdd++;

            state_array = (state**) realloc(state_array,
					    (size_states + 1) * sizeof(state*));
	    state_array[size_states] = i->current_state();
388
	    props_[nb_arc_props].arc->curr_state = size_states;
389
390
            size_states++;

391
	    while (all_conds_ != bddfalse)
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
	      {
		cond = bdd_satone(all_conds_);
		cond = bdd_simplify(cond, cond | outside_);
		all_conds_ -= cond;

		props_[nb_arc_props].prop =
		  (signed char **) realloc(props_[nb_arc_props].prop,
					   (props_[nb_arc_props].nb_conj + 1)
					   * sizeof(signed char *));

		props_[nb_arc_props].prop[props_[nb_arc_props].nb_conj]
		  = (signed char*) calloc(data_->prop_count,
					  sizeof(signed char));
		memset(props_[nb_arc_props].prop[props_[nb_arc_props].nb_conj],
		       -1, data_->prop_count);

		while (cond != bddtrue)
		  {
		    int var = bdd_var(cond);
		    bdd high = bdd_high(cond);
		    int res;

		    if (high == bddfalse)
		      {
			cond = bdd_low(cond);
			res = 0;
		      }
		    else
		      {
			cond = high;
			res = 1;
		      }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
425
		    tgba_gspn_ssp_private_::prop_map::iterator k
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
		      = data_->prop_dict.find(var);

		    if (k != data_->prop_dict.end())
		      props_[nb_arc_props]
			.prop[props_[nb_arc_props].nb_conj][k->second] = res;

		    assert(cond != bddfalse);
		  }
		++props_[nb_arc_props].nb_conj;
	      }
	    ++nb_arc_props;
	  }
      }
     Succ_* succ_tgba_ = 0;
     size_t size_tgba_ = 0;
     int j, conj;

443
     succ(s->left(), props_, nb_arc_props, &succ_tgba_, &size_tgba_);
444
445
446

     for (j = 0; j < nb_arc_props; j++)
       {
447
	 for (conj = 0; conj < props_[j].nb_conj; conj++)
448
449
450
451
452
	   free(props_[j].prop[conj]);
	 free(props_[j].prop);
       }

     delete i;
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
453
     return new tgba_succ_iterator_gspn_ssp(succ_tgba_, size_tgba_,
454
455
456
					    bdd_array, state_array,
					    size_states, props_,
					    nb_arc_props);
457
458
459
  }

  bdd
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
460
  tgba_gspn_ssp::compute_support_conditions(const spot::state* state) const
461
462
463
464
465
466
  {
    (void) state;
    return bddtrue;
  }

  bdd
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
467
  tgba_gspn_ssp::compute_support_variables(const spot::state* state) const
468
469
470
471
472
473
  {
    (void) state;
    return bddtrue;
  }

  bdd_dict*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
474
  tgba_gspn_ssp::get_dict() const
475
476
477
478
479
  {
    return data_->dict;
  }

  std::string
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
480
  tgba_gspn_ssp::format_state(const state* state) const
481
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
482
    const state_gspn_ssp* s = dynamic_cast<const state_gspn_ssp*>(state);
483
484
    assert(s);
    char* str;
485
486
487
488
489
490
    State gs = s->left();
    if (gs)
      {
	int err = print_state(gs, &str);
	if (err)
	  throw gspn_exeption("print_state()", err);
491
492
493
494
	// Strip trailing \n...
	unsigned len = strlen(str);
	while (str[--len] == '\n')
	  str[len] = 0;
495
496
497
498
499
      }
    else
      {
	str = strdup("-1");
      }
500

501
    std::string res(str);
502
    free(str);
503
    return res + " * " + data_->operand->format_state(s->right());
504
505
  }

506
  state*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
507
  tgba_gspn_ssp::project_state(const state* s, const tgba* t) const
508
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
509
    const state_gspn_ssp* s2 = dynamic_cast<const state_gspn_ssp*>(s);
510
511
512
513
514
515
    assert(s2);
    if (t == this)
      return s2->clone();
    return data_->operand->project_state(s2->right(), t);
  }

516
  bdd
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
517
  tgba_gspn_ssp::all_acceptance_conditions() const
518
  {
519
520
521
    // There is no acceptance conditions in GSPN systems, they all
    // come from the operand automaton.
    return data_->operand->all_acceptance_conditions();
522
523
524
  }

  bdd
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
525
  tgba_gspn_ssp::neg_acceptance_conditions() const
526
  {
527
528
529
    // There is no acceptance conditions in GSPN systems, they all
    // come from the operand automaton.
    return data_->operand->neg_acceptance_conditions();
530
531
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
532
  // gspn_ssp_interface
533
534
  //////////////////////////////////////////////////////////////////////

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
535
  gspn_ssp_interface::gspn_ssp_interface(int argc, char **argv,
536
537
538
					 bdd_dict* dict,
					 const gspn_environment& env,
					 bool inclusion)
539
540
    : dict_(dict), env_(env)
  {
541
542
543
    if (inclusion)
      inclusion_version();

544
545
546
547
548
    int res = initialize(argc, argv);
    if (res)
      throw gspn_exeption("initialize()", res);
  }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
549
  gspn_ssp_interface::~gspn_ssp_interface()
550
551
552
553
554
555
556
  {
    int res = finalize();
    if (res)
      throw gspn_exeption("finalize()", res);
  }

  tgba*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
557
  gspn_ssp_interface::automaton(const tgba* operand) const
558
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
559
    return new tgba_gspn_ssp(dict_, env_, operand);
560
561
  }

562
563
564

  //////////////////////////////////////////////////////////////////////

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
565
  class connected_component_ssp: public explicit_connected_component
566
567
568
  {
  public:
    virtual
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
569
    ~connected_component_ssp()
570
571
572
573
574
575
576
577
578
579
    {
    }

    virtual const state*
    has_state(const state* s) const
    {
      set_type::iterator i;

      for (i = states.begin(); i !=states.end(); i++)
	{
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
580
581
	  const state_gspn_ssp* old_state = (const state_gspn_ssp*)(*i);
	  const state_gspn_ssp* new_state = (const state_gspn_ssp*)(s);
582
583
584
585
586

	  if ((old_state->right())->compare(new_state->right()) == 0
	      && old_state->left()
	      && new_state->left())
	    if (spot_inclusion(new_state->left(), old_state->left()))
587
588
589
590
591
	      {
		if (*i != s)
		  delete s;
		return *i;
	      }
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
	}
      return 0;
    }

    virtual void
    insert(const state* s)
    {
      states.insert(s);
    }

  protected:
    typedef Sgi::hash_set<const state*,
			  state_ptr_hash, state_ptr_equal> set_type;
    set_type states;
  };

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
608
  class connected_component_ssp_factory :
609
610
611
    public explicit_connected_component_factory
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
612
    virtual connected_component_ssp*
613
614
    build() const
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
615
      return new connected_component_ssp();
616
617
618
    }

    /// Get the unique instance of this class.
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
619
    static const connected_component_ssp_factory*
620
621
    instance()
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
622
      static connected_component_ssp_factory f;
623
624
625
626
627
      return &f;
    }

  protected:
    virtual
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
628
    ~connected_component_ssp_factory()
629
630
631
    {
    }
    /// Construction is forbiden.
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
632
    connected_component_ssp_factory()
633
634
635
636
637
638
639
    {
    }
  };

  //////////////////////////////////////////////////////////////////////


Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
640
  class numbered_state_heap_ssp_semi : public numbered_state_heap
641
642
643
  {
  public:
    virtual
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
644
    ~numbered_state_heap_ssp_semi()
645
646
647
648
649
650
651
652
653
654
655
656
    {
      // Free keys in H.
      hash_type::iterator i = h.begin();
      while (i != h.end())
	{
	  // Advance the iterator before deleting the key.
	  const state* s = i->first;
	  ++i;
	  delete s;
	}
    }

657
    virtual numbered_state_heap::state_index
658
659
    find(const state* s) const
    {
660
661
      state_index res;

662
663
664
      hash_type::const_iterator i;
      for (i = h.begin(); i != h.end(); ++i)
	{
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
665
666
667
668
	  const state_gspn_ssp* old_state =
	    dynamic_cast<const state_gspn_ssp*>(i->first);
	  const state_gspn_ssp* new_state =
	    dynamic_cast<const state_gspn_ssp*>(s);
669
670
671
672
673
674
675
676
677
678
	  assert(old_state);
	  assert(new_state);

	  if ((old_state->right())->compare(new_state->right()) == 0)
	    {
	      if (old_state->left() == new_state->left())
		break;

	      if (old_state->left()
		  && new_state->left()
679
		  && spot_inclusion(new_state->left(), old_state->left()))
680
681
682
683
		break;
	    }
	}

684
685
686
687
688
689
690
691
692
      if (i == h.end())
	{
	  res.first = 0;
	  res.second = 0;
	}
      else
	{
	  res.first = i->first;
	  res.second = i->second;
693

694
695
696
697
	  if (s != i->first)
	    delete s;
	}
      return res;
698
699
    }

700
701
    virtual numbered_state_heap::state_index_p
    find(const state* s)
702
    {
703
      state_index_p res;
704

705
      hash_type::iterator i;
706
707
      for (i = h.begin(); i != h.end(); ++i)
	{
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
708
709
710
711
	  const state_gspn_ssp* old_state =
	    dynamic_cast<const state_gspn_ssp*>(i->first);
	  const state_gspn_ssp* new_state =
	    dynamic_cast<const state_gspn_ssp*>(s);
712
713
714
715
716
717
718
719
720
721
	  assert(old_state);
	  assert(new_state);

	  if ((old_state->right())->compare(new_state->right()) == 0)
	    {
	      if (old_state->left() == new_state->left())
		break;

	      if (old_state->left()
		  && new_state->left()
722
		  && spot_inclusion(new_state->left(), old_state->left()))
723
724
725
		break;
	    }
	}
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740

      if (i == h.end())
	{
	  res.first = 0;
	  res.second = 0;
	}
      else
	{
	  res.first = i->first;
	  res.second = &i->second;

	  if (s != i->first)
	    delete s;
	}
      return res;
741
742
    }

743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
    virtual numbered_state_heap::state_index
    index(const state* s) const
    {
      state_index res;
      hash_type::const_iterator i = h.find(s);
      if (i == h.end())
	{
	  res.first = 0;
	  res.second = 0;
	}
      else
	{
	  res.first = i->first;
	  res.second = i->second;

	  if (s != i->first)
	    delete s;
	}
      return res;
    }

    virtual numbered_state_heap::state_index_p
    index(const state* s)
    {
      state_index_p res;
      hash_type::iterator i = h.find(s);
      if (i == h.end())
	{
	  res.first = 0;
	  res.second = 0;
	}
      else
	{
	  res.first = i->first;
	  res.second = &i->second;

	  if (s != i->first)
	    delete s;
	}
      return res;
    }

    virtual void
    insert(const state* s, int index)
    {
      h[s] = index;
    }

    virtual int
    size() const
    {
      return h.size();
    }

    virtual numbered_state_heap_const_iterator* iterator() const;

799
800
801
802
803
  protected:
    typedef Sgi::hash_map<const state*, int,
			  state_ptr_hash, state_ptr_equal> hash_type;
    hash_type h;		///< Map of visited states.

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
804
805
    friend class numbered_state_heap_ssp_const_iterator;
    friend class emptiness_check_shy_ssp;
806
807
808
  };


Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
809
  class numbered_state_heap_ssp_const_iterator :
810
811
812
    public numbered_state_heap_const_iterator
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
813
814
    numbered_state_heap_ssp_const_iterator
      (const numbered_state_heap_ssp_semi::hash_type& h)
815
816
817
818
	: numbered_state_heap_const_iterator(), h(h)
    {
    }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
819
    ~numbered_state_heap_ssp_const_iterator()
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
    {
    }

    virtual void
    first()
    {
      i = h.begin();
    }

    virtual void
    next()
    {
      ++i;
    }

    virtual bool
    done() const
    {
      return i == h.end();
    }

    virtual const state*
    get_state() const
    {
      return i->first;
    }

    virtual int
    get_index() const
    {
      return i->second;
    }

  private:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
854
855
    numbered_state_heap_ssp_semi::hash_type::const_iterator i;
    const numbered_state_heap_ssp_semi::hash_type& h;
856
857
  };

858

859
  numbered_state_heap_const_iterator*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
860
  numbered_state_heap_ssp_semi::iterator() const
861
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
862
    return new numbered_state_heap_ssp_const_iterator(h);
863
864
865
  }


Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
866
  /// \brief Factory for numbered_state_heap_ssp_semi
867
868
  ///
  /// This class is a singleton.  Retrieve the instance using instance().
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
869
  class numbered_state_heap_ssp_factory_semi:
870
871
872
    public numbered_state_heap_factory
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
873
    virtual numbered_state_heap_ssp_semi*
874
875
    build() const
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
876
      return new numbered_state_heap_ssp_semi();
877
878
879
    }

    /// Get the unique instance of this class.
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
880
    static const numbered_state_heap_ssp_factory_semi*
881
882
    instance()
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
883
      static numbered_state_heap_ssp_factory_semi f;
884
885
886
887
888
      return &f;
    }

  protected:
    virtual
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
889
    ~numbered_state_heap_ssp_factory_semi()
890
891
892
    {
    }

Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
893
    numbered_state_heap_ssp_factory_semi()
894
895
896
897
898
    {
    }
  };


Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
899
  class emptiness_check_shy_ssp : public emptiness_check_shy
900
901
  {
  public:
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
902
    emptiness_check_shy_ssp(const tgba* a)
903
      : emptiness_check_shy(a,
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
904
			    numbered_state_heap_ssp_factory_semi::instance())
905
906
907
908
909
910
911
    {
    }

  protected:
    virtual int*
    find_state(const state* s)
    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
912
913
      typedef numbered_state_heap_ssp_semi::hash_type hash_type;
      hash_type& h = dynamic_cast<numbered_state_heap_ssp_semi*>(ecs_->h)->h;
914
915
916
917

      hash_type::iterator i;
      for (i = h.begin(); i != h.end(); ++i)
	{
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
918
919
920
921
	  const state_gspn_ssp* old_state =
	    dynamic_cast<const state_gspn_ssp*>(i->first);
	  const state_gspn_ssp* new_state =
	    dynamic_cast<const state_gspn_ssp*>(s);
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
	  assert(old_state);
	  assert(new_state);

	  if ((old_state->right())->compare(new_state->right()) == 0)
	    {
	      if (old_state->left() == new_state->left())
		break;

	      if (old_state->left() && new_state->left())
		{
		  if (i->second == -1)
		    {
		      if (spot_inclusion(new_state->left(), old_state->left()))
			break;
		    }
		  else
		    {
		      if (spot_inclusion(old_state->left(), new_state->left()))
			{
			  State* succ_tgba_ = NULL;
			  size_t size_tgba_ = 0;
			  succ_queue& queue = todo.top().second;

			  Diff_succ(old_state->left(), new_state->left(),
				    &succ_tgba_, &size_tgba_);

			  for (size_t i = 0; i < size_tgba_; i++)
			    {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
950
951
			      state_gspn_ssp* s =
				new state_gspn_ssp
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
				  (succ_tgba_[i],
				   old_state->right()->clone());
			      queue.push_back(successor(queue.begin()->acc, s));
			    }
			  if (size_tgba_ != 0)
			    diff_succ_free(succ_tgba_);
			  break;
			}
		    }
		}
	    }
	}
      if (i == h.end())
	return 0;
      return &i->second;
    }
  };



972
  emptiness_check*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
973
  emptiness_check_ssp_semi(const tgba* ssp_automata)
974
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
975
    assert(dynamic_cast<const tgba_gspn_ssp*>(ssp_automata));
976
    return
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
977
978
      new emptiness_check(ssp_automata,
			  numbered_state_heap_ssp_factory_semi::instance());
979
980
981
  }

  emptiness_check*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
982
  emptiness_check_ssp_shy_semi(const tgba* ssp_automata)
983
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
984
    assert(dynamic_cast<const tgba_gspn_ssp*>(ssp_automata));
985
986
    return
      new emptiness_check_shy
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
987
988
        (ssp_automata,
	 numbered_state_heap_ssp_factory_semi::instance());
989
990
  }

991
  emptiness_check*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
992
  emptiness_check_ssp_shy(const tgba* ssp_automata)
993
  {
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
994
995
    assert(dynamic_cast<const tgba_gspn_ssp*>(ssp_automata));
    return new emptiness_check_shy_ssp(ssp_automata);
996
997
  }

998
  counter_example*
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
999
  counter_example_ssp(const emptiness_check_status* status)
1000
1001
  {
    return new counter_example(status,
Alexandre Duret-Lutz's avatar
Alexandre Duret-Lutz committed
1002
			       connected_component_ssp_factory::instance());
1003
  }
1004
}