lucidMachines 0.1.2

data/integration.csv

@@ -0,0 +1,213 @@
+Id,Name,Shape Library,Page ID,Contained By,Group,Line Source,Line Destination,Source Arrow,Destination Arrow,Text Area 1,Duration,GPS,ID,Nom,STEPS
+1,Page,,,,,,,,,Page 1,,,,,
+2,Text,Default,1,,,,,,,"Find file  , 5 mins",5,,,,Find file
+3,Test étapes,Default,1,,,,,,,"Download file  , 10 mins",10,,,,Download file
+4,Test étapes,Default,1,,,,,,,"Make coffee
+  , 3 mins",3,,,,"Make coffee
+"
+5,Test étapes,Default,1,,,,,,,"check download  , 2 mins",2,,,,check download
+6,Test étapes,Default,1,,,,,,,"Clean mug
+  , 2 mins",2,,,,"Clean mug
+"
+7,Test étapes,Default,1,,,,,,,"end  , 1 mins",1,,,,end
+8,Text,Default,1,11:1,,,,,,"ID: 2
+Nom: Stockage1
+GPS:  ",,,2,Stockage1,
+9,Text,Default,1,11:1,,,,,,"ID: 3
+Nom: Stockage2
+GPS:  ",,,3,Stockage2,
+10,Swim Lane,Flowchart Shapes,1,,,,,,,Stockage externe,,,,,
+11,Swim Lane,Flowchart Shapes,1,,,,,,,Swim Lane,,,,,
+12,Text,Default,1,10:1,,,,,,"ID: 2
+Nom: Stockage1
+GPS:  ",,,2,Stockage1,
+13,Text,Default,1,10:1,,,,,,Text,,,,,
+14,Text,Default,1,10:1,,,,,,Text,,,,,
+15,Line,,1,,,2,3,None,Arrow,,,,,,
+16,Line,,1,,,3,4,None,Arrow,,,,,,
+17,Line,,1,,,4,6,None,Arrow,,,,,,
+18,Line,,1,,,6,7,None,Arrow,,,,,,
+19,Line,,1,,,3,5,None,Arrow,,,,,,
+20,Line,,1,,,5,7,None,Arrow,,,,,,
+21,Page,,,,,,,,,Page 2,,,,,
+22,SVGPathBlock2,,21,,,,,,,,,,,,
+23,Text,Default,21,25:1,,,,,,"ID: 2
+Nom: Stockage1
+GPS:  ",,,2,Stockage1,
+24,Text,Default,21,25:1,,,,,,"ID: 3
+Nom: Stockage2
+GPS:  ",,,3,Stockage2,
+25,Swim Lane,Flowchart Shapes,21,,,,,,,Stockage externe,,,,,
+26,Page,,,,,,,,,Root,,,,,
+27,Page,,,,,,,,,Financement,,,,,
+28,Process,Flowchart Shapes,27,,,,,,,Ouverture Financement,,,,,
+29,Terminator,Flowchart Shapes,27,,,,,,,Financement acquis,,,,,
+30,Terminator,Flowchart Shapes,27,,,,,,,Financement refusé,,,,,
+31,Decision,Flowchart Shapes,27,,,,,,,Besoin financement,,,,,
+32,Process,Flowchart Shapes,27,,,,,,,Recherche financement,,,,,
+33,Process,Flowchart Shapes,27,,,,,,,Financement bancaire en cours,,,,,
+34,Decision,Flowchart Shapes,27,,,,,,,accepté?,,,,,
+35,Process,Flowchart Shapes,27,,,,,,,Proposition crédit,,,,,
+36,Decision,Flowchart Shapes,27,,,,,,,accepté?,,,,,
+37,Note,Flowchart Shapes,27,,,,,,,Initial,,,,,
+38,Process,Flowchart Shapes,27,,,,,,,Attente décision,,,,,
+39,Line,,27,,,31,32,None,Arrow,Yes,,,,,
+40,Line,,27,,,31,29,None,Arrow,No,,,,,
+41,Line,,27,,,28,31,None,Arrow,,,,,,
+42,Line,,27,,,32,33,None,Arrow,,,,,,
+43,Line,,27,,,33,34,None,Arrow,,,,,,
+44,Line,,27,,,34,29,None,Arrow,Yes,,,,,
+45,Line,,27,,,34,30,None,Arrow,No,,,,,
+46,Line,,27,,,32,35,None,Arrow,,,,,,
+47,Line,,27,,,35,36,None,Arrow,,,,,,
+48,Line,,27,,,36,29,None,Arrow,Yes,,,,,
+49,Line,,27,,,36,30,None,Arrow,No,,,,,
+50,Line,,27,,,32,32,None,Arrow,Vérification solvabilité,,,,,
+51,Line,,27,,,37,28,None,Arrow,,,,,,
+52,Line,,27,,,35,38,Open Arrow,Hollow Arrow,,,,,,
+53,Page,,,,,,,,,state machine def,,,,,
+54,event,Flowchart Shapes,53,,,,,,,event,,,,,
+55,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+56,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+57,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+58,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+59,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+60,state,Flowchart Shapes,53,,,,,,,state,,,,,
+61,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+62,code,Flowchart Shapes,53,,,,,,,code,,,,,
+63,state,Flowchart Shapes,53,,,,,,,state,,,,,
+64,event,Flowchart Shapes,53,,,,,,,event1,,,,,
+65,state,Flowchart Shapes,53,,,,,,,state,,,,,
+66,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+67,state,Flowchart Shapes,53,,,,,,,state,,,,,
+68,event,Flowchart Shapes,53,,,,,,,event1,,,,,
+69,state,Flowchart Shapes,53,,,,,,,state,,,,,
+70,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+71,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+72,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+73,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+74,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+75,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+76,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+77,Process,Flowchart Shapes,53,,,,,,,state,,,,,
+78,Note,Flowchart Shapes,53,,,,,,,Initial,,,,,
+79,method,Flowchart Shapes,53,,,,,,,method call,,,,,
+80,transition,Flowchart Shapes,53,,,,,,,,,,,,
+81,Line,,53,,,55,54,None,Arrow,before,,,,,
+82,Line,,53,,,54,56,None,Arrow,after,,,,,
+83,Line,,53,,,54,57,None,Arrow,error,,,,,
+84,Line,,53,,,54,58,None,Arrow,success,,,,,
+85,Line,,53,,,59,60,None,Arrow,before_enter,,,,,
+86,Line,,53,,,61,54,None,Arrow,guard,,,,,
+87,Line,,53,,,62,60,None,Arrow,before_enter,,,,,
+88,Line,,53,,,63,80,None,Arrow,1,,,,,
+89,Line,,53,,,80,65,None,Arrow,,,,,,
+90,Line,,53,,,64,80,None,Arrow,,,,,,
+91,Line,,53,,,66,80,None,Arrow,guard,,,,,
+92,Line,,53,,,67,80,None,Arrow,1,,,,,
+93,Line,,53,,,80,69,None,Arrow,,,,,,
+94,Line,,53,,,68,80,None,Arrow,,,,,,
+95,Line,,53,,,70,80,None,Arrow,after,,,,,
+96,Line,,53,,,71,80,None,Arrow,success,,,,,
+97,Line,,53,,,72,72,None,Arrow,after_all_transitions,,,,,
+98,Line,,53,,,73,73,None,Arrow,before_all_events,,,,,
+99,Line,,53,,,74,74,None,Arrow,after_all_events,,,,,
+100,Line,,53,,,54,75,None,Arrow,before_success,,,,,
+101,Line,,53,,,76,76,None,Arrow,error_on_all_events,,,,,
+102,Line,,53,,,78,77,None,Arrow,,,,,,
+103,Line,,53,,,79,79,None,Arrow,ensure_on_all_events,,,,,
+104,Page,,,,,,,,,ex1,,,,,
+105,Note,Flowchart Shapes,104,,,,,,,Initial,,,,,
+106,state,Flowchart Shapes,104,,,,,,,running,,,,,
+107,state,Flowchart Shapes,104,,,,,,,cleaning,,,,,
+108,event,Flowchart Shapes,104,,,,,,,run,,,,,
+109,event,Flowchart Shapes,104,,,,,,,clean,,,,,
+110,event,Flowchart Shapes,104,,,,,,,sleep,,,,,
+111,state,Flowchart Shapes,104,,,,,,,sleeping,,,,,
+112,method,Flowchart Shapes,104,,,,,,,tie_shoes,,,,,
+113,method,Flowchart Shapes,104,,,,,,,check_pillow,,,,,
+114,code,Flowchart Shapes,104,,,,,,,"puts(""preparing to sleep"")",,,,,
+115,Line,,104,,,105,111,None,Arrow,,,,,,
+116,Line,,104,,,111,108,None,Arrow,,,,,,
+117,Line,,104,,,108,106,None,Arrow,,,,,,
+118,Line,,104,,,109,107,None,Arrow,,,,,,
+119,Line,,104,,,110,111,None,Arrow,,,,,,
+120,Line,,104,,,106,109,None,Arrow,,,,,,
+121,Line,,104,,,106,110,None,Arrow,,,,,,
+122,Line,,104,,,107,110,None,Arrow,,,,,,
+123,Line,,104,,,112,108,None,Arrow,before,,,,,
+124,Line,,104,,,113,111,None,Arrow,before_enter,,,,,
+125,Line,,104,,,114,110,None,Arrow,before,,,,,
+126,Page,,,,,,,,,ex2,,,,,
+127,Note,Flowchart Shapes,126,,,,,,,Initial,,,,,
+128,state,Flowchart Shapes,126,,,,,,,running,,,,,
+129,event,Flowchart Shapes,126,,,,,,,run,,,,,
+130,method,Flowchart Shapes,126,,,,,,,log_status_change,,,,,
+131,method,Flowchart Shapes,126,,,,,,,do_something,,,,,
+132,method,Flowchart Shapes,126,,,,,,,notify_somebody,,,,,
+133,code,Flowchart Shapes,126,,,,,,,"puts(""preparing to run"")",,,,,
+134,state,Flowchart Shapes,126,,,,,,,finished,,,,,
+135,event,Flowchart Shapes,126,,,,,,,sleep,,,,,
+136,code,Flowchart Shapes,126,,,,,,,after do 
...
end 
error do |e| 
....
end,,,,,
+137,method,Flowchart Shapes,126,,,,,,,method1,,,,,
+138,method,Flowchart Shapes,126,,,,,,,method2,,,,,
+139,transition,Flowchart Shapes,126,,,,,,,,,,,,
+140,transition,Flowchart Shapes,126,,,,,,,,,,,,
+141,state,Flowchart Shapes,126,,,,,,,sleeping,,,,,
+142,Line,,126,,,127,141,None,Arrow,,,,,,
+143,Line,,126,,,130,130,None,Arrow,after_all_transitions,,,,,
+144,Line,,126,,,131,141,None,Arrow,before_enter,,,,,
+145,Line,,126,,,133,129,None,Arrow,before,,,,,
+146,Line,,126,,,139,128,None,Arrow,,,,,,
+147,Line,,126,,,139,129,None,Arrow,,,,,,
+148,Line,,126,,,128,140,None,Arrow,,,,,,
+149,Line,,126,,,140,134,None,Arrow,,,,,,
+150,Line,,126,,,140,129,None,Arrow,,,,,,
+151,Line,,126,,,128,135,None,Arrow,,,,,,
+152,Line,,126,,,137,135,None,Arrow,after,,,,,
+153,Line,,126,,,138,135,None,Arrow,error,,,,,
+154,Line,,126,,,132,129,None,Arrow,after,,,,,
+155,Line,,126,,,141,139,None,Arrow,,,,,,
+156,Line,,126,,,135,141,None,Arrow,,,,,,
+157,Page,,,,,,,,,ex3,,,,,
+158,Process,Flowchart Shapes,157,,,,,,,idle,,,,,
+159,Note,Flowchart Shapes,157,,,,,,,Initial,,,,,
+160,state,Flowchart Shapes,157,,,,,,,cleaning,,,,,
+161,event,Flowchart Shapes,157,,,,,,,clean,,,,,
+162,method,Flowchart Shapes,157,,,,,,,cleaning_needed?,,,,,
+163,event,Flowchart Shapes,157,,,,,,,clean_if_needed,,,,,
+164,transition,Flowchart Shapes,157,,,,,,,,,,,,
+165,transition,Flowchart Shapes,157,,,,,,,,,,,,
+166,event,Flowchart Shapes,157,,,,,,,clean_if_dirty,,,,,
+167,method,Flowchart Shapes,157,,,,,,,if_dirty?,,,,,
+168,Line,,157,,,159,158,None,Arrow,,,,,,
+169,Line,,157,,,158,161,None,Arrow,,,,,,
+170,Line,,157,,,161,160,None,Arrow,Yes,,,,,
+171,Line,,157,,,162,161,None,Arrow,guard,,,,,
+172,Line,,157,,,158,164,None,Arrow,1,,,,,
+173,Line,,157,,,164,160,None,Arrow,,,,,,
+174,Line,,157,,,163,164,None,Arrow,,,,,,
+175,Line,,157,,,158,165,None,Arrow,2,,,,,
+176,Line,,157,,,165,158,None,Arrow,,,,,,
+177,Line,,157,,,163,165,None,Arrow,,,,,,
+178,Line,,157,,,158,166,None,Arrow,,,,,,
+179,Line,,157,,,166,160,None,Arrow,,,,,,
+180,Line,,157,,,167,166,None,Arrow,guard,,,,,
+181,Line,,157,,,162,164,None,Arrow,guard,,,,,
+182,Page,,,,,,,,,ex4,,,,,
+183,Process,Flowchart Shapes,182,,,,,,,stage1,,,,,
+184,Note,Flowchart Shapes,182,,,,,,,Initial,,,,,
+185,state,Flowchart Shapes,182,,,,,,,stage3,,,,,
+186,state,Flowchart Shapes,182,,,,,,,2,,,,,
+187,event,Flowchart Shapes,182,,,,,,,stage1_completed,,,,,
+188,transition,Flowchart Shapes,182,,,,,,,,,,,,
+189,transition,Flowchart Shapes,182,,,,,,,,,,,,
+190,method,Flowchart Shapes,182,,,,,,,stage2_completed?,,,,,
+191,Line,,182,,,184,183,None,Arrow,,,,,,
+192,Line,,182,,,187,188,None,Arrow,Yes,,,,,
+193,Line,,182,,,187,189,None,Arrow,No,,,,,
+194,Line,,182,,,183,189,None,Arrow,2,,,,,
+195,Line,,182,,,190,188,None,Arrow,,,,,,
+196,Line,,182,,,188,185,None,Arrow,,,,,,
+197,Line,,182,,,189,186,None,Arrow,,,,,,
+198,Line,,182,,,183,188,None,Arrow,1,,,,,

data/lib/lucidMachines/aasm_export.rb

@@ -0,0 +1,376 @@
+# coding: utf-8
+
+class AASMExport
+
+  EventCallbacks = ["before", "guards", "guard",
+                    "before_enter", "enter",
+                    "before_success",
+                    "success", "after",
+                    "error", "ensure"]
+  
+  GlobalEventCallbacks = ["before_all_events", "after_all_events",
+                          "error_on_all_events", "ensure_on_all_events"]
+
+  StateCallbacks = ["before_exit", "exit",
+                    "before_enter", "enter",
+                    "after_exit", "after_enter"]
+  
+  TransitionCallbacks = ["guard", "guards", "after", "success"]
+  GlobalTransitionCallbacks = ["after_all_transitions"]
+
+  attr_reader :method_names
+  
+  def initialize(chart)
+    @chart = chart
+    init_method_names
+    create
+  end
+
+  def init_method_names
+    @method_names = []
+  end
+
+  def method_names
+    # @method_names = @method_names.uniq
+    # return @method_names
+
+    # unique, no trailing spaces, inside spaces are underscores
+    @method_names.uniq.map{|t| sanitize(t)}
+  end
+
+  def sanitize(name)
+    name.strip.tr " ", "_"
+  end
+  
+  def create
+    @states = @chart.get_blocks_of_type "state"
+    @states = @states + @chart.get_blocks_of_type("Process")
+    #      puts "States count: " + @states.size.to_s
+
+    @events = @chart.get_blocks_of_type "event"
+    @events = @events + @chart.get_blocks_of_type("Decision")
+    #      puts "Events count: " + @events.size.to_s
+
+    ## Arrows between states are also events
+    ## handled in generate_events_code
+    
+    create_multi_events
+  end
+
+  attr_reader :transitions
+  
+  def create_multi_events
+    transitions = @chart.get_blocks_of_type("transition") +
+                  @chart.get_blocks_of_type("Summing Junction")
+
+    # puts transitions.size.to_s  + " found"
+    
+    @transitions = {}
+    # Hash with events as keys
+    ## Values:  Array of  [from_state, to_state]
+    ## ex:   {  event1 =>  [[[state1], state2], [[state1, state4], state3]] }
+
+    #      puts "raw transitions found " + transitions.size.to_s
+    
+    ## select the valid one
+    transitions.each do |t|
+      # Link from a block. 
+      # and link to a block. 
+      # and link  from or to an event.
+
+      from_states = t.links_from_type("state") + t.links_from_type("Process")
+      to_state   = t.links_to_type("state") + t.links_to_type("Process")
+
+      event = t.links_to_type("event") + t.links_from_type("event")
+      event = event + t.links_to_type("Decision") + t.links_from_type("Decision")
+
+      priority = 0
+      t.links_from.each do |l, e|
+        if(l.text.to_i != 0)
+          priority =  l.text.to_i
+        end
+      end
+
+      ## Remove possible duplicate links...
+      from_states.uniq!
+      to_state.uniq!
+      event.uniq!
+      
+      if from_states.size < 1 or to_state.size != 1 or event.size != 1
+        print_warning(event, from_states, to_state)
+        next
+      end
+
+      event = event.first
+      to_state = to_state.first
+      
+      #         puts "Adding, from " + from_states.first.text + " to " + to_state.text + " through " + event.text
+      ## get the ID from the link.
+
+      # Find the priority
+      all_links = t.links_to.merge(t.links_from)
+      prio = 0
+      from_states.each do |s|
+        link = all_links.key(to_state)
+        next if link.nil? or link.text.nil?
+        link_prio = link.to_i
+        prio = link_prio if link_prio > prio
+      end
+      #        puts "Priority found " + prio.to_s  if prio != 0
+      
+      @transitions[event] = [] if @transitions[event].nil?
+      @transitions[event] << [from_states, to_state, priority, t]
+    end
+
+    #      puts "Transitions found " + @transitions.size.to_s
+    
+  end
+
+  def print_warning(event, from_states, to_state)
+
+    if(event.size != 1)
+      puts "Warning: Transition without any event !" if event.size == 0
+
+      if event.size > 1
+        puts "Warning: Transition with multiple events !"
+        event.each do |e|
+          puts " - Event: " + e.to_s
+        end
+      end
+    end
+    
+    if(to_state != 1)
+      puts "Warning: Transition without output !" if to_state.size == 0
+      puts "Warning: Transition with multiple outputs !" if to_state.size > 1
+    end
+    
+    if(from_states.size < 1)
+      puts "Warning: Transition without input !" if from_states.size == 0
+    end
+  end
+  
+  
+  def generate_state_code
+    states_code = ""
+    @states.each do |state|
+
+      code = "      state :" + sanitize(state.text)
+      code = code + ", :initial => true" if state.initial
+
+      callback_code = generate_callback(state, "method", StateCallbacks)
+      
+      states_code = states_code + code + callback_code +  "\n"
+    end
+    states_code + "\n"
+  end
+
+
+  
+  def generate_events_code
+    
+    events_code = ""
+
+    ## Arrows between two blocks are events.
+    @chart.links.each_value do |link|
+      if (@chart.blocks[link.source].type == "state" or
+          @chart.blocks[link.source].type == "process") and
+        (@chart.blocks[link.destination].type == "state" or
+         @chart.blocks[link.destination].type == "process") and
+        not link.text.nil?
+        
+        name = sanitize(link.text)
+        
+        code = <<-SMALL_EVENT
+      event :#{name} do
+        transitions :from => :#{@chart.blocks[link.source].text}, :to => :#{@chart.blocks[link.destination].text}
+      end
+
+SMALL_EVENT
+
+        events_code = events_code + code
+      end
+    end
+    
+    @events.each do |event|
+      code = "      event :" + sanitize(event.text)
+
+      ## Add event :before  :after... 
+      callback_code = generate_callback(event, "method", EventCallbacks)
+      
+      code = code + callback_code + " do \n" 
+
+      ## Add the code if it is defined. 
+      code = code + generate_code_callback(event, EventCallbacks)
+      
+      ## Simple case:  This event links  from and to a state
+      inputs =  event.links_from_type "state"
+      outputs = event.links_to_type   "state"
+
+      inputs =  inputs + event.links_from_type("Process")
+      outputs = outputs + event.links_to_type("Process")
+
+      
+      if inputs.size > 0 and outputs.size == 1
+        transition = transition_code(event,
+                                     inputs,
+                                     outputs.first)
+        code = code + transition + "\n"
+
+      end
+
+      unless @transitions[event].nil?
+        ## Sort by ID if present
+
+        @sorted = @transitions[event].each.sort do |tr|
+          input, output, priority = tr
+          priority
+        end
+        
+        @sorted.each do |t|
+          inputs, output, priority, t_element = t
+          transition = transition_code(event, inputs, output)
+          transition_callback = generate_callback(t_element,
+                                                  "method",
+                                                  TransitionCallbacks)
+          code = code + transition + transition_callback + "\n"
+        end
+      end
+      
+      code = code + "      end\n\n" 
+      events_code = events_code + code
+    end
+
+    events_code
+  end
+
+  def transition_code(event, inputs, output)
+    
+    code = "        transitions :from => "
+    if inputs.size == 1
+      code = code + ":" + sanitize(inputs[0].text)
+    else
+      code = code + "["
+      inputs.each do |input|
+        code = code + ":" + sanitize(input.text) + ","
+      end
+      ## remove last "," 
+      code = code.chop + "]"
+    end
+
+    code = code + ", :to => :" + sanitize(output.text)
+    ## TODO: add options
+
+    # TransitionCallbacks
+    ## Add event :before  :after...  METHOD out of this
+    ## Not yet testable
+    #  callback_code = generate_callback(event, "method", TransitionCallbacks)
+    callback_code = ""
+    
+    return code + callback_code
+  end
+
+  def generate_callback(event, element_type, callbacks)
+
+    ## TODO: Handle the Guards -> create an array 
+    l1 = event.links_to.each.select{|link, e| e.type.eql? element_type  }
+    l2 = event.links_from.each.select{|link, e| e.type.eql? element_type }
+    links =  l1 + l2
+    code = ""
+    unless links.empty? 
+      links.each do |l|
+
+        link = l[0]
+        element = l[1]
+        if(callbacks.any? link.text)
+          code = code + ", :" + sanitize(link.text) +
+                 " => :" + sanitize(element.text)
+          
+          @method_names << element.text
+        end
+      end
+    end
+    return code
+  end
+
+  def generate_code_callback(event, callbacks)
+    l1 = event.links_to.each.select{|link, e| e.type.eql? "code"  }
+    l2 = event.links_from.each.select{|link, e| e.type.eql? "code" }
+    links =  l1 + l2
+    code = ""
+
+    unless links.empty? 
+      links.each do |l|
+        link = l[0]
+        element = l[1]
+
+        if(callbacks.any? link.text)
+          code = code +  "        " + link.text + " do"
+
+          if link.text == "error"
+            code = code + " |e|\n"
+          else
+            code = code + "\n"
+          end
+          indent = "          "
+          element.text.split("\n").each do |t|
+            code = code + indent + t
+          end
+
+          code = code + "\n        end\n"
+        end
+      end
+    end
+    return code
+  end
+
+  # Generate code that creates methods for each 
+  # method declared in the graph.
+  def generate_methods_placeholder
+    code = "\n"
+    method_names().each do |method_name|
+
+      code = code + <<-METH
+   def #{method_name}        
+      puts "Please implement the method #{method_name}" 
+      true
+   end
+
+METH
+    end
+    return code
+  end
+
+  # Generate methods that are not already
+  # Defined in the class.
+  def generate_methods_placeholder_for(klass, debug: true)
+    method_names().each do |method_name|
+      if klass.method_defined? method_name.to_sym
+        puts "Found: #{method_name}. " if debug
+        next
+      end
+      
+      puts "To implement: #{method_name}. " if debug
+      klass.define_method method_name.to_sym do
+        puts "Please implement the method #{method_name}" 
+        true
+      end
+      
+    end
+  end
+
+  # Export the document to code (String)
+  # It exports only the aasm code, not the
+  # methods called by it.
+  def export
+    start = <<-START
+    aasm do
+START
+
+    finish = <<-END
+   end
+END
+    return  start + generate_state_code +
+            generate_events_code + finish 
+    #              generate_methods_placeholder 
+  end
+end