VCP-Dest-p4.stml #13

<!DOCTYPE author [
  <!ENTITY yes_re "qr/\Ay(es)?\z/i" >
  <!ENTITY no_re "qr/\Ano?\z/i" >
]>

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

  <!-- ================ 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 would like to insert into an offline repository in a local
directory, vcp can launch a 'p4d' daemon for you in that directory.
It will use a random high numbered TCP port.

    </description>

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

      <handler>
        require VCP::Dest::p4;
        $ui->{Dest} = VCP::Dest::p4->new;
        $ui->{Dest}->repo_scheme( 'p4' );
      </handler>
    </arc>

    <arc to="dest_p4_p4d_dir_prompt" guard="&yes_re;">
      <description>yes</description>
      <handler>$ui->{Dest}->{P4_RUN_P4D} = 1;</handler>
    </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 { die qq{Please enter a directory name\n} unless length; die qq{'$_' is not a valid directory\n} unless -d; 1; }"
    >
      <handler>
        $ui->{Dest}->repo_server( $answer );
      </handler>
    </arc>
  </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">
      <handler>
        $ui->{Dest}->repo_server( $answer )
            unless empty $answer;
      </handler>
    </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 use the P4USER environemnt variable, if present; or the login
user if not.

    </description>
    <arc to="dest_p4_password_prompt">
      <handler>
        $ui->{Source}->repo_user( $answer )
            unless empty $answer;
      </handler>
    </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">
      <handler>
        $ui->{Source}->repo_password( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="dest_p4_filespec_prompt" class-ids="prompt_class">
    <name>Destination spec</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.

    </description>
      <arc to="dest_p4_change_branch_rev_prompt" guard="qr#\A//#">
      <description>//...</description>
      <handler>
        $ui->{Dest}->repo_filespec( $answer );
      </handler>
    </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_re;">
      <handler>
        $ui->{Dest}->{P4_CHANGE_BRANCH_REV_1} = 1;
        $ui->{Dest}->init;
      </handler>
    </arc>
    <arc to="convert" guard="&no_re;">
      <handler>
        $ui->{Dest}->init;
      </handler>
    </arc>

  </state>


</machine>