VCP-Source-cvs.stml #20

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

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

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

  <state id="source_cvs_cvsroot_prompt" class-ids="prompt_class">
    <name>Source CVSROOT</name>
    <description>

The CVSROOT to read revisions from.  Defaults to the CVSROOT
environment variable.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->repo_server;
        $is_current_value = 1;
      }
      else {
        $default = empty( $ENV{CVSROOT} ) ? undef : $ENV{CVSROOT};
      }  
    </entry-handler>

    <arc from="source_type_prompt" guard="'cvs'" >
      <description>cvs</description>
      <handler>
        $ui->new_source( $answer );
      </handler>
    </arc>

    <arc to="source_cvs_filespec_prompt" guard="&non_empty_re;">
      <description>cvsroot spec</description>
      <handler>
        $ui->source->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>

  </state>


  <state id="source_cvs_filespec_prompt" class-ids="prompt_class">
    <name>Source CVS filespec</name>
    <description>

Enter the cvs filespec of the file(s) to copy.  This must start
with a CVS module name and end in a filename, directory
name, or "..." wildcard:

    module/...
    module/file
    module/path/to/subdir/...
    module/path/to/subdir/file

    </description>

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

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


  <state id="source_cvs_working_directory_prompt" class-ids="prompt_class">
    <name>Source CVS working directory</name>
    <description>

Enter the CVS working directory (Optional). VCP::Source::cvs will cd
to this directory before calling cvs and won't initialize a CVS
workspace of its own.  Leave blank to allow VCP to use a
temporary directory.

    </description>

   <entry-handler>
   
     if ( $ui->in_edit_mode ) {
        $default = $ui->source->{CVS_WORK_DIR} ;
        $is_current_value = 1;
     }
        
   </entry-handler>

    <arc to="source_cvs_binary_checkout_prompt">
      <handler>
        $ui->source->ui_set_cvs_work_dir( $answer )
            unless empty $answer;
      </handler>
    </arc>

  </state>


  <state id="source_cvs_binary_checkout_prompt" class-ids="prompt_class">
    <name>Force binary checkout</name>
    <description>

Pass the -kb option to cvs, to force a binary checkout. This is useful
when you want a text file to be checked out with Unix linends, or if
you know that some files in the repository are not flagged as binary
files and should be.

    </description>
    
    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->{CVS_K_OPTION} =~ /b/ ? "yes" : "no" ;
        $is_current_value = 1;
      }
      else {
        $default = "no";
      }
    </entry-handler>

    <arc to="source_cvs_use_cvs_prompt" guard="'yes'">
      <description>yes</description>
      <handler>$ui->source->{CVS_K_OPTION} = "b";</handler>
    </arc>

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

  </state>


  <state id="source_cvs_use_cvs_prompt" class-ids="prompt_class">
    <name>Use cvs executable</name>
    <description>

This forces VCP to use the cvs executable rather than read local
CVSROOT directories directly.  This is slower, but may be used
to work around any limitations that might crop up in VCP's RCS
file parser.

    </description>
    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->{CVS_USE_CVS} ? "yes" : "no" ;
        $is_current_value = 1;
      }
      else { 
        $default = "no";
      }
    </entry-handler>

    <arc to="dest_id_prompt" guard="'yes'">
      <description>yes</description>
      <handler>$ui->source->{CVS_USE_CVS} = 1;</handler>
    </arc>

    <arc to="dest_id_prompt" guard="'no'">
      <description>no</description>
      <handler>$ui->source->{CVS_USE_CVS} = 0;</handler>
    </arc>

  </state>


<!-- REMOVED FOR NOW, the -r and -d options are not supported in
raw RCS file scans and are problematic within the context of doing
a conversion, plus we want to keep the newbie UI simple.

  <state id="source_cvs_revision_prompt" class-ids="prompt_class">
    <name>Source cvs revision specification</name>
    <description>

Passed to "cvs log" as a "-r" revision specification. This corresponds
to the "-r" option for the rlog command, not either of the "-r"
options for the cvs command.  See rlog(1) man page for the format.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->rev_spec;
        $is_current_value = 1;
      }
    </entry-handler>

    <arc to="source_cvs_date_spec_prompt">
      <handler>
        unless( empty $answer ) {
            $ui->source->rev_spec( $answer );
            $ui->source->force_missing( defined $ui->source->rev_spec );
        }
      </handler>        
    </arc>

  </state>


  <state id="source_cvs_date_spec_prompt" class-ids="prompt_class">
    <name>Source cvs date specification</name>
    <description>

Passed to 'cvs log' as a "-d" date specification.  See rlog(1) man
page for the format.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->date_spec;
        $is_current_value = 1;
      }
    </entry-handler>

    <arc to="dest_id_prompt">
      <handler>
        $ui->source->date_spec( $answer )
            unless empty $answer;
      </handler>
    </arc>

  </state>

-->

</machine>