VCP.stml #21

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

The source ID is used internally by VCP to organize the VCP
databases and to refer to the source repository.  The source ID
need not appear in your source repository, nor does it appear in
your destination repository after conversion.

A source ID must start with an alphabetic character, and
can include alphanumeric characters, underscores, and dashes.
Do not use spaces and punctuation characters in source IDs.

Enter a symbolic name for the source repository.
    
    </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-z_0-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>

What type of repository are you copying revisions 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>

The destination ID is used internally by VCP to organize the VCP
databases and to refer to the destination repository.  The destination
ID does not appear in your destination repository after conversion.

A destination ID must start with an alphabetic character, and
can include alphanumeric characters, underscores, and dashes.
Do not use spaces and punctuation characters in destination IDs.

Enter a symbolic name for the destination repository.
    
    </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-z_0-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>

What type of repository are you copying revisions 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>

Based on the information you have provided, VCP is now ready
to start converting revisions from the source repository to
the destination repository.  Choose an option:

    </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>
    
Specify the name of the configuration file to which VCP saves
the conversion options you have specified.

Config file name (Config filename) [Default: AllVSS_to_MyP4D.vcp]?

(( after creation ))

To convert your repository, use VCP with this configuration file
by invoking VCP on the command line as follows:

  vcp allvss_to_myp4d.vcp

    </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>