VCP-Dest-cvs.stml #17

<!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>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->repo_server;
        $is_current_value = 1;
      }
      else {
        $default = empty ( $ENV{CVSROOT} ) ? undef : $ENV{CVSROOT};
      }
    </entry-handler>

    <arc from="dest_type_prompt" guard="'cvs'" >
      <description>cvs</description>
      <handler>
        $ui->new_dest( $answer );
      </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>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->repo_filespec;
        $is_current_value = 1;
      }

    </entry-handler>

    <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>
      if ( $ui->in_edit_mode ) {
        $default = $ui->dest->{CVS_INIT_CVSROOT} ? "yes" : "no" ;
        $is_current_value = 1;
      }
      else {
        $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>
      <handler>
        $ui->dest->{CVS_INIT_CVSROOT} = 0;
      </handler>
    </arc>

  </state>


</machine>