VCP-Dest-p4.stml #3

<!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" >
]>

<machine id="VCP::Dest::p4">

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

  <state id="dest_p4_run_p4d_prompt" class-ids="prompt_class">
    <name>Launch a private p4d in a local directory</name>
    <description>
    
If you are working with an offline repository in a local directory,
vcp can launch a p4d in that directory on a random high numbered TCP
port for you.

    </description>

    <arc from="dest_prompt" guard="'p4'">
      <description>p4</description>
    </arc>

    <arc to="dest_p4_p4d_dir_prompt" guard="&yes_re;">
      <description>yes</description>
    </arc>

    <arc to="dest_p4_host_prompt" guard="&no_re;">
      <description>no</description>
    </arc>
  </state>


  <state id="dest_p4_p4d_dir_prompt" class-ids="prompt_class">
    <name>Directory to run p4d in</name>
    <description>

Enter the directory to launch the p4d in.  VCP will then check that
this is a valid directory.
    
    </description>

    <arc to="dest_p4_user_prompt"
        guard="sub { -d $_ ? 1 : die qw{'$_' is not a valid directory} }"
    />
  </state>


  <state id="dest_p4_host_prompt" class-ids="prompt_class">
    <name>P4 Host name, including port</name>
    <description>

Enter the name and port of the p4d to read from, separated by
a colon.  Leave empty to use the p4's default of the P4HOST
environment variable if set or "perforce:1666" if not.

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


  <state id="dest_p4_user_prompt" class-ids="prompt_class">
    <name>P4 user id</name>
    <description>

Enter the user_id (P4USER) value needed to access the server.  Leave
empty to the P4USER environemnt variable, if present; or the login
user if not.

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


  <state id="dest_p4_password_prompt" class-ids="prompt_class">
    <name>Password</name>
    <description>

If a password (P4PASSWD) is needed to access the server, enter it here.

WARNING: password will be echoed in plain text to the terminal.

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


  <state id="dest_p4_filespec_prompt" class-ids="prompt_class">
    <name>Files to copy</name>
    <description>

The destination spec is a perforce repository spec and must begin with
// and a depot name ("//depot"), not a local filesystem spec or a
client spec.  There should be a trailing "/..." specified.

    </description>
    <arc to="dest_p4_change_branch_rev_prompt" guard="qr{\A//.*/\.{3}\z}">
      <description>//...</description>
    </arc>
  </state>


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

Forces VCP to do a p4 integrate, add, submit sequence to branch files,
thus capturing the branch and the file alterations in one change.

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


</machine>