VCP-Dest-cvs.stml #15

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

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

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

  <state id="dest_cvs_cvsroot_prompt" class-ids="prompt_class">
    <name>Destination CVSROOT</name>
    <description>

Specifies the destination CVS repository location and protocol.
Defaults to the CVSROOT environment variable.  If this is a
local directory, VCP can initialize it for you.

    </description>
    <entry-handler>
      $default = empty $ENV{CVSROOT} ? undef : $ENV{CVSROOT};
    </entry-handler>

    <arc from="dest_prompt" guard="'cvs'" >
      <description>cvs</description>
      <handler>
        require VCP::Dest::cvs;
        $ui->{Dest} = VCP::Dest::cvs->new;
        $ui->{Dest}->repo_scheme( 'cvs' );
      </handler>
    </arc>

    <arc to="dest_cvs_filespec_prompt" guard="&non_empty_re;">
      <handler>
        $ui->{Dest}->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>

  </state>


  <state id="dest_cvs_filespec_prompt" class-ids="prompt_class">
    <name>Destination CVS filespec</name>
    <description>

Where to copy revisions to in the destination specified by
CVSROOT.  This must start with a CVS module name and may be in a
subdirectory of the result:

    module/...
    module/path/to/directory/...
    module/path/to/file 

For directories, this should contain a trailing "..." wildcard,
like "module/b/..." to indicate that the path is a directory.

    </description>

    <arc to="dest_cvs_init_cvsroot_prompt" guard="&non_empty_re;">
      <description>module/filepath/...</description>
      <handler>
        $ui->{Dest}->repo_filespec( $answer );
      </handler>
    </arc>
  </state>


  <state id="dest_cvs_init_cvsroot_prompt" class-ids="prompt_class">
    <name>'cvs init' the destination CVSROOT</name>
    <description>

If the destination CVSROOT is a local directory, should VCP
initialize a cvs repository in it?

    </description>
    <entry-handler>
      $default = "no";
    </entry-handler>

    <arc to="wrapup" guard="'yes'">
      <description>yes</description>
      <handler>
        $ui->{Dest}->{CVS_INIT_CVSROOT} = 1;
      </handler>
    </arc>

    <arc to="wrapup" guard="'no'">
      <description>no</description>
    </arc>

  </state>


</machine>