VCP-Source-revml.stml #12

  • //
  • guest/
  • perforce_software/
  • revml/
  • ui_machines/
  • VCP-Source-revml.stml
  • View
  • Commits
  • Open Download .zip Download (2 KB)
<!DOCTYPE author [
  <!ENTITY non_empty_re "qr/./" >
]>

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

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

  <state id="source_revml_repo_server_prompt" class-ids="prompt_class">
    <name>Source RevML Repo Server</name>
    <description>

The RevML Repo Server to read revisions from.

    </description>
    
    <entry-handler>
      if ( $ui->in_edit_mode ) {
        $default = $ui->source->repo_server;
        $is_current_value = 1;
      }
    </entry-handler>
    
    <arc from="source_prompt" guard="'revml'" >
      <description>revml</description>
      <handler>
        $ui->new_source( $answer );
      </handler>
    </arc>
      
    <arc to="source_revml_filespec_prompt" guard="&non_empty_re;">
      <handler>
        $ui->source->repo_server ( $answer )
            unless empty $answer;
      </handler>
    </arc>
  </state>

  <state id="source_revml_filespec_prompt" class-ids="prompt_class">
    <name>Source RevML Specification</name>
    <description>

Enter the revml repo filespec of the file(s) to copy.  'revml:' will
be prefixed to it then parsed as if it was entered on the vcp command
line.

    </description>

    <entry-handler>
      if ( $ui->in_edit_mode ) {
 <!--       $default = join ":",
           map defined $_ ? $_ : "",
           $ui->source->repo_server,
           $ui->source->repo_filespec; -->
        $default = $ui->source->repo_filespec ;   
        $is_current_value = 1;
      }
    </entry-handler>

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


</machine>
# Change User Description Committed
#14 4581 Barrie Slaymaker - user prompts have been improved, but not tested
#13 4064 Barrie Slaymaker - RevML is no longer offered in the UI
- Sources and dests are given an id in the UI
- The .vcp file name defaulting now works
#12 3859 Barrie Slaymaker - New UI files
#11 3675 Barrie Slaymaker - More of a .vcp file is now editable
#10 3666 Barrie Slaymaker - vcp can now edit existing .vcp files, for VSS sources and revml dests
#9 3647 Barrie Slaymaker - All UI prompts & descriptions rewritten.
- Minor tweak to VCP::Dest::p4 P4USER defaulting
#8 3640 Barrie Slaymaker - xmllint no longer require to build UI
- UI now offers multiple choices where appropriate
#7 3502 John Fetkovich removed obsolete commented out (source,dest)->init calls in stml files
#6 3492 John Fetkovich interative ui question re-asked if exception generated when
arc handlers are run.  a single test case for source revml
input file has been tested.
#5 3486 John Fetkovich moved (source or dest)->init calls to bin/vcp
#4 3395 John Fetkovich various ui refinements
#3 3362 John Fetkovich revml source and dest now works through interactive UI
#2 3331 John Fetkovich Small change in source revml state machine.
       split 'sub init' from 'sub new' in Source/revml.pm
       and Dest/revml.pm
#1 3330 John Fetkovich Added revml source and dest to ui state machines