VCP-Dest-cvs.stml #2

<!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::Dest::cvs">

  <!-- ================ 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>
    </arc>

    <arc to="dest_cvs_module_prompt" />

  </state>


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

Enter the cvs module name.

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


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

Initializes a cvs repository in the directory indicated in the cvs
CVSROOT spec. Refuses to init a non-empty directory.

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


</machine>