VCP-Dest-p4.stml #22

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

<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>
    <entry-handler>
      $default = "no";
    </entry-handler>

    <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'">
      <description>yes</description>
      <handler>$ui->{Dest}->{P4_RUN_P4D} = 1;</handler>
    </arc>

    <arc to="dest_p4_host_prompt" guard="'no'">
      <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_default_prompt" guard="sub { !empty $_ and !empty $ui->{Dest}->p4_default_user }">
      <handler>
        # will set repo_server
        $ui->{Dest}->ui_set_p4d_dir( $answer );
      </handler>
    </arc>
    <arc to="dest_p4_user_prompt" guard="sub { !empty $_ and empty $ui->{Dest}->p4_default_user }">
      <handler>
        # will set repo_server
        $ui->{Dest}->ui_set_p4d_dir( $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.
Defaults to the P4HOST environment variable if set or "perforce:1666"
if not.

    </description>
    <entry-handler>
      $default = empty $ui->{Dest}->{P4_SET_OUTPUT}->{P4HOST} 
                 ? "perforce:1666" 
                 : $ui->{Dest}->{P4_SET_OUTPUT}->{P4HOST} ;
    </entry-handler>

    <arc to="dest_p4_user_default_prompt" guard="sub { !empty $_ and !empty $ui->{Dest}->p4_default_user }">
      <description>perforce:1666</description>
      <handler>
        $ui->{Dest}->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>
    <arc to="dest_p4_user_prompt" guard="sub { !empty $_ and empty $ui->{Dest}->p4_default_user }">
      <description>perforce:1666</description>
      <handler>
        $ui->{Dest}->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="dest_p4_user_default_prompt" class-ids="prompt_class">
    <name>Use default P4USER value </name>
    <description>

Use the default for the p4 user, which is the P4USER environment
variable, if present; or the login user if not.

    </description>
    <entry-handler>
      $prompt .= "(" . $ui->{Dest}->p4_default_user . ")";
    </entry-handler>

    <arc to="dest_p4_password_prompt" guard="'yes'">
      <description>yes</description>
      <handler>
        $ui->{Dest}->repo_user( $ui->{Dest}->p4_default_user );
      </handler>
    </arc>
    <arc to="dest_p4_user_prompt" guard="'no'">
      <description>no</description>
    </arc>
  </state>


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

Enter the p4 user id value needed to access the server, or leave blank
if none needed.

    </description>

    <arc to="dest_p4_password_prompt">
      <handler>
        $ui->{Dest}->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>
    <entry-handler>
      $default = "Use value of P4PASSWD environment variable"
          unless empty $ui->{Dest}->{P4_SET_OUTPUT}->{P4PASSWD};
    </entry-handler>

    <arc to="dest_p4_filespec_prompt" guard="&non_empty_re;">
      <handler>
        $answer = $ui->{Dest}->{P4_SET_OUTPUT}->{P4PASSWD}
            if defined $answer and $answer eq "Use value of P4PASSWD environment variable";
        $ui->{Dest}->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="convert" guard="qr#\A//#">
    <description>//depot/directory-path/...</description>
    <handler>
      $ui->{Dest}->repo_filespec( $answer );
    </handler>
  </arc>
  </state>


</machine>