VCP-Source-revml.stml #2

<!DOCTYPE author [
  <!ENTITY yes_re "qr/\Ay(es)?\z/i" >
  <!ENTITY no_re "qr/\Ano?\z/i" >
  <!ENTITY yes_no_re "qr/\A(y(es)?|no?)\z/i" >
  <!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>revml filespec</name>
    <description>

Enter the filespec which may contain trailing wildcards, like "a/b/..."
to extract an entire directory tree.

    </description>

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

      <handler>
        require VCP::Source::revml;
        $ui->{Source} = VCP::Source::revml->new;
        $ui->{Source}->repo_scheme( 'revml' );
      </handler>
    </arc>

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


</machine>