VCP-Source-revml.stml #12

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

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

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

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

The RevML Repo Server to read revisions from.

    </description>
    
    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->repo_server;
        $is_current_value = 1;
      }
    </entry-handler>
    
    <arc from="source_prompt" guard="'revml'" >
      <description>revml</description>
      <handler>
        $ui->new_source( $answer );
      </handler>
    </arc>
      
    <arc to="source_revml_filespec_prompt" guard="&non_empty_re;">
      <handler>
        $ui->source->repo_server ( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>

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

Enter the revml repo filespec of the file(s) to copy.  '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->source->repo_server,
           $ui->source->repo_filespec; -->
        $default = $ui->source->repo_filespec ;   
        $is_current_value = 1;
      }
    </entry-handler>

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


</machine>