VCP-Dest-cvs.stml #6

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

Enter the cvsroot spec.  Leave empty to use the CVSROOT environment
variable if set.

    </description>

    <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="sub { die qq{A cvsroot spec is required because the CVSROOT environment variable is not set.\n} unless length or exists $ENV{CVSROOT}; 1; }"
    >
      <description>cvsroot spec</description>
      <handler>
        $ui->{Dest}->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>

  </state>


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

Enter the cvs filespec.  This must be in the form "module/filespec".
The filespec may contain trailing wildcards, like "a/b/..." to extract
an entire directory tree.

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


  <state id="dest_cvs_init_cvsroot_prompt" class-ids="prompt_class">
    <name>Change branch rev #1</name>
    <description>

Initialize a cvs repository in the directory indicated in the cvs
CVSROOT spec?

    </description>

    <arc to="convert" guard="&yes_re;">
      <handler>
        $ui->{Dest}->init;
        $ui->{Dest}->{CVS_INIT_CVSROOT} = 1;
      </handler>
    </arc>
    <arc to="convert" guard="&no_re;">
      <handler>
        $ui->{Dest}->init;
      </handler>
    </arc>

  </state>


</machine>