VCP.stml #19

<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).

      Prompts should be named with a trailing _prompt.

  -->

  <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_id_prompt"/>
  </state>

  <state id="source_id_prompt" class-ids="prompt_class">
    <name>Source id</name>
    <description>

A symbolic name for the source repository.  This is used to
organize the VCP databases and to refer to the source
repository in other places.

Must consist of a leading letter then letters, numbers,
underscores and dashes only.
    
    </description>

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

    <arc goto="source_type_prompt" guard="qr{\A[a-z][a-z0-9-]*\z}i" >
      <handler>
        ## Set the UI's source_repo_id.  This will write-through to
        ## the underlying source if it's been loaded already,
        ## otherwise the call to new_source() will do the write-through
        ## when it is loaded later.
        $ui->source_repo_id( $answer )
            unless ! empty $ui->source_repo_id and empty $answer;
      </handler>
    </arc>

  </state>


  <state id="source_type_prompt" class-ids="prompt_class">
    <name>Source 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 arc from="source_type_prompt"
         in each of the subsidiary VCP-*-*.stml files.
    -->

  </state>


  <state id="dest_id_prompt" class-ids="prompt_class">
    <name>Destination id</name>
    <description>

A symbolic name for the destination repository.  This is used to
organize the VCP databases and to refer to the destination
repository in other places.

Must consist of a leading letter then letters, numbers,
underscores and dashes only.
    
    </description>

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

    <arc goto="dest_type_prompt" guard="qr{\A[a-z][a-z0-9-]*\z}i" >
      <handler>
        ## Set the UI's dest_repo_id.  This will write-through to
        ## the underlying destination if it's been loaded already,
        ## otherwise the call to new_dest() will do the write-through
        ## when it is loaded later.
        $ui->dest_repo_id( $answer )
            unless ! empty $ui->dest_repo_id and empty $answer;
      </handler>
    </arc>

  </state>


  <state id="dest_type_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>

  </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 . ".vcp";
      }
    </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>