00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 #ifndef VCSN_TOOLS_GEN_BOOK_HXX
00018 # define VCSN_TOOLS_GEN_BOOK_HXX
00019 
00020 # include <vaucanson/tools/gen_book.hh>
00021 # include <vaucanson/misc/usual_macros.hh>
00022 # include <vaucanson/automata/concept/handlers.hh>
00023 namespace vcsn {
00024 
00025   namespace tools {
00026 
00027     template <class Auto_>
00028     Auto_       lombardy(unsigned size)
00029     {
00030       AUTOMATON_TYPES(Auto_);
00031       AUTOMATON_FREEMONOID_TYPES(Auto_);
00032       
00033       alphabets_elt_t   alpha;
00034       alpha.insert('a');
00035       alpha.insert('b');
00036       monoid_t          monoid (alpha);
00037       semiring_t        semiring;
00038       series_set_t      series (semiring, monoid);
00039       automaton_t       automaton;
00040       automaton.create();
00041       automaton.series() = series;
00042       hstate_t          initial = automaton.add_state();
00043       hstate_t          c       = initial;
00044 
00045       for (unsigned i = 0; i < size; ++i)
00046       {
00047         hstate_t        next = automaton.add_state();
00048         automaton.add_letter_transition(c, c, 'a');
00049         automaton.add_letter_transition(c, next, 'b');
00050         automaton.set_initial(c);
00051         c = next;
00052       }
00053       automaton.set_final(c);
00054       automaton.set_initial(c);
00055       automaton.add_letter_transition(c, initial, 'a');
00056       return automaton;
00057     }
00058 
00059   } 
00060 
00061 } 
00062 
00063 #endif // ! VCSN_TOOLS_GEN_BOOK_HXX