VCP.stml #16

<machine
  id="VCP"
  xmlns="http://slaysys.com/StateML/1.0"
  xmlns:graphviz="http://slaysys.com/StateML/1.0"
>

  <!--
  
      BASE CLASSES
      ============

      See the README for details.  Short version: these control
      both appearance (in the generated graph) and behavior
      (the .tt2 template looks for exit_class, for instance).

  -->

  <class id="prompt_class"     graphviz:shape="record"/>
  <class id="entry_class"      graphviz:shape="ellipse"/>
  <class id="exit_class"       graphviz:shape="ellipse"/>

  <!-- ============= EVENT DEFINITIONS =============== -->

  <event id="#DEFAULT" name="">
  </event>

  <!-- ================ TRANSITIONS =================== -->

  <state id="init" class-ids="entry_class">
    <description>Initialize the machine</description>
    <arc goto="source_prompt"/>
  </state>


  <state id="source_prompt" class-ids="prompt_class">
    <name>Source SCM type</name>
    <description>

The kind of repository to copy data from.
    
    </description>

    <entry-handler><![CDATA[
      $default = $ui->{Source} && $ui->{Source}->repo_scheme;
      $is_current_value = $ui->{EditMode} = 1 unless empty $default;
    ]]></entry-handler>
    <!-- no arcs here; see the first state in each of the
         subsidiary VCP-*-*.stml files.
    -->

  </state>


  <state id="dest_prompt" class-ids="prompt_class">
    <name>Destination SCM type</name>
    <description>

The kind of repository to copy data to.
    
    </description>

    <entry-handler><![CDATA[
      $default = $ui->{Dest} && $ui->{Dest}->repo_scheme;
      $is_current_value = $ui->{EditMode} = 1 unless empty $default;
    ]]></entry-handler>

    <!-- no arcs here; see the final state(s) in each of the
         subsidiary VCP-*-*.stml files.
    -->
  </state>

  <state id="wrapup" class-ids="prompt_class">
    <name>Next step</name>

    <description>

What to do with all of the entered options.

    </description>

    <entry-handler>
      $default = "Save config file and run";
    </entry-handler>

    <arc to="save_config_file" guard="'Save config file and run'">
      <description>Save config file and run</description>
      <handler>
        $ui->{Run} = 1;
      </handler>
    </arc>

    <arc to="save_config_file" guard="'Save config file and exit'">
      <description>Save config file and exit</description>
    </arc>

    <arc to="convert" guard="'Run without saving config file'">
      <description>Run without saving config file</description>
      <handler>
        $ui->{Run} = 1;
      </handler>
    </arc>
  </state>

  <state id="save_config_file" class-ids="prompt_class">

    <name>Config file name</name>

    <description>
    
What filename to write the configuration file to.

    </description>

    <entry-handler>
      if ( ! empty $ui->{Filename} ) {
        $default = $ui->{Filename};
	$is_current_value = 1;
      }
      else {
	$default = $ui->source->repo_id . "_to_" . $ui->dest->repo_id;
      }
    </entry-handler>

    <arc to="convert" guard="qr/./">
      <description>Config filename</description>
      <handler>
        $ui->{SaveAsConfigFileName} = $answer;
        if ( -e $answer ) {
            die "Warning: '$answer' exists but is a directory!\n"
                if -d $answer;
            die "Warning: '$answer' exists but is not a regular file!\n"
                unless -f $answer;
            die "Warning: '$answer' exists but is not writable!\n"
                unless -w $answer;
            die "Warning: '$answer' already exists!\n";
        }
      </handler>
    </arc>
  </state>

  <state id="convert" class-ids="exit_class">
    <description>Run VCP with the options entered</description>
    <entry-handler></entry-handler>
  </state>

</machine>