VCP-Source-revml.stml #11

<!DOCTYPE author [
  <!ENTITY non_empty_re "qr/./" >
]>

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

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

  <state id="source_revml_filespec_prompt" class-ids="prompt_class">
    <name>Source RevML Specification</name>
    <description>

Enter the revml repo spec.  'revml:' will be prefixed to it then
parsed as if it was entered on the vcp command line.  This will
be expanded in the future, it is here primarily for developer
use.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = join ":",
           map defined $_ ? $_ : "",
           $ui->source->repo_server,
           $ui->source->repo_filespec;
        $is_current_value = 1;
      }
    </entry-handler>

    <arc from="source_prompt" guard="'revml'" >
      <description>revml</description>

      <handler>
        $ui->new_source( $answer );
      </handler>
    </arc>

    <arc to="dest_prompt" guard="&non_empty_re;">
      <handler>
        $ui->{Source}->ui_set_revml_repo_spec( "revml:" . $answer );
      </handler>
    </arc>
  </state>


</machine>