VCP-Dest-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::Dest::revml" xmlns="http://slaysys.com/StateML/1.0">

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


  <state id="dest_revml_filespec_prompt" class-ids="prompt_class">
    <name>revml filespec</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.

    </description>

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

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

    <arc to="convert" guard="&non_empty_re;">
      <handler>
        $ui->{Dest}->parse_revml_repo_spec( "revml:" . $answer );
        $ui->{Dest}->init;
      </handler>
    </arc>
  </state>

</machine>