VCP-Source-vss.stml #1

<!DOCTYPE author [
  <!ENTITY non_empty_re "qr/./" >
]>

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

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

  <state id="source_vss_vssroot_prompt" class-ids="prompt_class">
    <name>Source SSDIR</name>

    <description>

Enter the directory containing the SRCSAFE.INI file for the
SourceSafe source repository.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->repo_server;
        $is_current_value = 1;
      }
      else {
        $default = empty( $ENV{SSDIR} ) ? undef : $ENV{SSDIR};
      }
    </entry-handler>

    <arc from="source_type_prompt" guard="'vss'" >
      <description>vss</description>
      <handler>
        $ui->new_source( $answer );
      </handler>
    </arc>

    <arc to="source_vss_user_prompt" guard="&non_empty_re;">
      <handler>
        $ui->source->repo_server( $answer )
            unless empty $answer;
      </handler>
    </arc>

  </state>



  <state id="source_vss_user_prompt" class-ids="prompt_class">
    <name>Source SSUSER</name>
    <description>

Enter the user name (SSUSER) required to access the SourceSafe
server.  The default value is the current environment's SSUSER,
or "Admin", if SSUSER is unset.

    </description>
    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->repo_user;
        $is_current_value = 1;
      }
      else {
        $default = empty( $ENV{SSUSER} ) ? "Admin" : $ENV{SSUSER} ;
      }
    </entry-handler>

    <arc to="source_vss_password_prompt" guard="&non_empty_re;">
      <handler>
        $ui->source->repo_user( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="source_vss_password_prompt" class-ids="prompt_class">
    <name>Source SSPWD</name>
    <description>

If a password (SSPWD) is needed to access the SourceSafe server,
enter the password here.  The default value is the current SSPWD
if one is set.

WARNING: Entering a password here causes the password to be echoed
in plain text to the terminal.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        unless ( empty $ui->source->repo_password ) {
          $default = "** current password **";
          $is_current_value = 1;
        }
      }
      else {
        $default = "** current SSPWD **"
          unless empty $ENV{SSPWD};
      }
    </entry-handler>

    <arc to="source_vss_filespec_prompt">
      <handler>
        if ( $ui->in_edit_mode ) {
            $answer = $ui->source->repo_password
                if $answer eq "** current password **";
        }
        else {
            $answer = $ENV{SSPWD}
                if $answer eq "** current SSPWD **";
        }
        $ui->source->repo_password( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>


  <state id="source_vss_filespec_prompt" class-ids="prompt_class">
    <name>Source VSS filespec</name>
    <description>

Enter the vss filespec of the file(s) to copy, with or
without a leading "$/" or "/" (all names are taken as
absolute).  To copy more than one file, use a "..." or "*"
wildcard:

    ...                      Copy entire repository
    project1/...             Copy entire project
    project1/file            Copy one file
    project1/dir/...         Copy a subdirectory
    project1/dir/file*.bas   Copy a set of files

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->repo_filespec;
        $is_current_value = 1;
      }
      else {
        $default = "...";
      }
    </entry-handler>

    <arc to="source_vss_undocheckout_prompt" guard="&non_empty_re;">
      <handler>
        $ui->source->repo_filespec( $answer );
      </handler>
    </arc>
  </state>


  <state id="source_vss_undocheckout_prompt" class-ids="prompt_class">
    <name>Issue "ss undocheckout" as needed</name>

    <description>

If set to "yes", VCP undoes user checkout operations when it
encounters a "File [file] is checked out by [user]" error.
These errors can occur when VCP scans metadata for checked-out
files when deleted versions of the same file also exist.

Issue "ss undocheckout" commands as needed?

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->{VSS_UNDOCHECKOUT} ? "yes" : "no";
        $is_current_value = 1;
      }
      else {
        $default = "no";
      }
    </entry-handler>

    <arc to="dest_id_prompt" guard="'yes'">
      <description>yes</description>
      <handler>
        $ui->source->{VSS_UNDOCHECKOUT} = 1;
      </handler>
    </arc>

    <arc to="dest_id_prompt" guard="'no'">
      <description>no</description>
      <handler>
        $ui->source->{VSS_UNDOCHECKOUT} = 0;
      </handler>
    </arc>

  </state>

</machine>