VCP-Dest-revml.stml #12

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

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

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


  <state id="dest_revml_repo_server_prompt" class-ids="prompt_class">
    <name>Destination RevML Repo Server</name>    
    <description>

The RevML Repo Server to copy revisions to.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->repo_server;
        $is_current_value = 1;
      }
    </entry-handler>
    
    <arc from="dest_type_prompt" guard="'revml'" >
      <description>revml</description>
      <handler>
        $ui->new_dest( $answer );
      </handler>
    </arc>

    <arc to="dest_revml_filespec_prompt" guard="&non_empty_re;">
      <handler>
        $ui->dest->repo_server ( $answer )
            unless empty $answer;
      </handler>
    </arc>
 </state>

 <state id="dest_revml_filespec_prompt" class-ids="prompt_class">
   <name>Destination RevML Specification</name>
    <description>

The revml repo spec.  'revml:' will be prefixed to it then
parsed as if it was entered on the vcp command line.

    </description>

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

    
    <arc to="wrapup" guard="&non_empty_re;">
      <handler>
        $ui->dest->repo_filespec( $answer );
      </handler>
    </arc>
  </state>

</machine>