VCP-Source-p4.stml #13

<!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::Source::p4">

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

  <state id="source_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 hi-numbered TCP port for
you.

    </description>

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

      <handler>
        require VCP::Source::p4;
        $ui->{Source} = VCP::Source::p4->new;
      </handler>

    </arc>

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

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

  </state>


  <state id="source_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="source_p4_user_prompt"
        guard="sub { -d $_ ? 1 : die qw{'$_' is not a valid directory} }"
    />

  </state>


  <state id="source_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="source_p4_user_prompt">
    </arc>
  </state>


  <state id="source_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="source_p4_password_prompt">
    </arc>
  </state>


  <state id="source_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="source_p4_filespec_prompt">
    </arc>
  </state>


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

If you want to copy a portion of the source repository, enter a p4
filespec starting with the depot name.  Do not enter any revision or
change number information.

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

<!-- leave bootstrap off the GUI for now

  <state id="source_p4_bootstrap_prompt" class-ids="prompt_class">
    <name>Files to export in bootstrap mode</name>
    <description>

Forces bootstrap mode for an entire export ("-b ...") or for certain
files.  Filenames may contain wildcards, see the Regexp::Shellish
manpage for details on what wildcards are accepted.

    </description>
    <arc to="continue" guard="validate Regexp::Shellish wildcard"/>
  </state>

-->

<!-- leave continue out of the GUI for now

  <state id="source_p4_continue_prompt" class-ids="prompt_class">
    <name>Continue</name>
    <description>

Starts this transfer where the previous one (to the same destination)
left off. This uses the destination's state database to detect what was
transferred last time and to begin this transfer where the previous one
left off.

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

<!-- leave follow branch into out of the GUI for now (because rev-root not in gui)

  <state id="source_p4_follow_branch_into_prompt" class-ids="prompt_class">
    <name>Follow 'branch into' flag</name>
    <description>

Causes VCP to notice "branch into" messages in the output of p4's
filelog command and. If the file that's the target of the p4 integrate
(branch) command is revision number #1, adds the target to the list of
exported files. This usually needs a rev-root option to set the rev
root to be high enough in the directory tree to include all branches
(it's an error to export a file that is not under the rev root).

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

-->

</machine>