VCP-Source-cvs.stml #4

<!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::Source::cvs" xmlns="http://slaysys.com/StateML/1.0">

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

  <state id="source_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="source_prompt" guard="'cvs'" >
      <description>cvs</description>
    </arc>

    <arc to="source_cvs_module_prompt" />

  </state>


  <state id="source_cvs_module_prompt" class-ids="prompt_class">
    <name>cvs module</name>
    <description>

Enter the cvs module name.

    </description>
    <arc to="source_cvs_filespec_prompt" guard="&non_empty_re;"/>
  </state>


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

Enter the filespec which may contain trailing wildcards, like "a/b/..."
to extract an entire directory tree.

    </description>
    <arc to="source_cvs_working_directory_prompt" guard="&non_empty_re;"/>
  </state>


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

Used to set the CVS working directory. VCP::Source::cvs will cd to
this directory before calling cvs, and won't initialize a CVS
workspace of it's own (normally, VCP::Source::cvs does a "cvs
checkout" in a temporary directory).

    </description>
    <arc to="source_cvs_binary_checkout_prompt" />
  </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>
    <arc to="source_cvs_use_cvs_prompt" guard="&yes_no_re;"/>
  </state>


  <state id="source_cvs_use_cvs_prompt" class-ids="prompt_class">
    <name>Use cvs (rather than reading local repositories directly)</name>
    <description>

Use cvs rather than a direct read of local repositories.  This is
slower, but the option is present in case there are repositories
vcp has trouble reading directly.

    </description>
    <arc to="source_cvs_revision_prompt" guard="&yes_no_re;"/>
  </state>


  <state id="source_cvs_revision_prompt" class-ids="prompt_class">
    <name>cvs log 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>
    <arc to="source_cvs_date_spec_prompt" />
  </state>


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

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

    </description>
    <arc to="dest_prompt" />
  </state>


</machine>