WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/LIB/JatsSvn.pm



########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : jats.sh
# Module type   : Makefile system
# Compiler(s)   : n/a
# Environment(s): jats

#                          text-mods="false"
#                          kind="dir"
#                          copyfrom-path="/enqdef/branches/Stockholm"
#                          copyfrom-rev="24271"
#                          action="A">/enqdef/tags/enqdef_24.0.1.sls</path>
#                       </path>
#                       <msg>COTS/enqdef: Tagged by Jats Svn Import</msg>
#                       </logentry>
#
#
#                   Uses:   $self->{btData}     - Scratch Data

#            Warning ("Cannot decode XML log: $line");
#        }
 
        if ( $end )
        {
#DebugDumpData("AtEnd",$workSpace->{path});
            #
            #   If the Repo is created by a pre 1.6 SVN, then kind will be
            #   empty. Have a guess.
            #
            if ( $workSpace->{path}{'kind'} eq '' )

                #       Remove the tag name - so that we can compare files
                #       Save the first instance of changed files
                #           Others will be in older versions
                #           and thus of no interest
                #
                #   Count the change sets that have changes
                #   Having changes in multiple change sets indicates
                #   development on a /tags/ - which is BAD
                #
                $workSpace->{path}{'DATA'} =~ m~(.+)/((tags|branches|trunk)(/|$).*)~;
                my $file =  $2;
                my $full = $file;
                $file =~ s~^tags/(.+?)/~~;
 
                if ( ! exists $workSpace->{files}{$file}  )
                {
                    push @{$workSpace->{results}{files}}, join($;, $full . '@' . $workSpace->{rev}, $workSpace->{path}{'action'});
                }
                $workSpace->{files}{$file}++;
                $workSpace->{firstFile} = $file unless ( defined $workSpace->{firstFile} );
 
                unless ( $workSpace->{changesSeen} )

Rev 5709	Rev 6177
Line 1...	Line 1...
1	`########################################################################`	1	`########################################################################`
2	`# Copyright (c) VIX TECHNOLOGY (AUST) LTD`	2	`# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.`
3	`#`	3	`#`
4	`# Module name : jats.sh`	4	`# Module name : jats.sh`
5	`# Module type : Makefile system`	5	`# Module type : Makefile system`
6	`# Compiler(s) : n/a`	6	`# Compiler(s) : n/a`
7	`# Environment(s): jats`	7	`# Environment(s): jats`
Line 2094...	Line 2094...
2094	`# text-mods="false"`	2094	`# text-mods="false"`
2095	`# kind="dir"`	2095	`# kind="dir"`
2096	`# copyfrom-path="/enqdef/branches/Stockholm"`	2096	`# copyfrom-path="/enqdef/branches/Stockholm"`
2097	`# copyfrom-rev="24271"`	2097	`# copyfrom-rev="24271"`
2098	`# action="A">/enqdef/tags/enqdef_24.0.1.sls</path>`	2098	`# action="A">/enqdef/tags/enqdef_24.0.1.sls</path>`
2099	`# </paths>`	2099	`# </path>`
2100	`# <msg>COTS/enqdef: Tagged by Jats Svn Import</msg>`	2100	`# <msg>COTS/enqdef: Tagged by Jats Svn Import</msg>`
2101	`# </logentry>`	2101	`# </logentry>`
2102	`#`	2102	`#`
2103	`#`	2103	`#`
2104	`# Uses: $self->{btData} - Scratch Data`	2104	`# Uses: $self->{btData} - Scratch Data`
Line 2196...	Line 2196...
2196	`# Warning ("Cannot decode XML log: $line");`	2196	`# Warning ("Cannot decode XML log: $line");`
2197	`# }`	2197	`# }`
2198		2198
2199	`if ( $end )`	2199	`if ( $end )`
2200	`{`	2200	`{`
-		2201	`#DebugDumpData("AtEnd",$workSpace->{path});`
2201	`#`	2202	`#`
2202	`# If the Repo is created by a pre 1.6 SVN, then kind will be`	2203	`# If the Repo is created by a pre 1.6 SVN, then kind will be`
2203	`# empty. Have a guess.`	2204	`# empty. Have a guess.`
2204	`#`	2205	`#`
2205	`if ( $workSpace->{path}{'kind'} eq '' )`	2206	`if ( $workSpace->{path}{'kind'} eq '' )`
Line 2230...	Line 2231...
2230	`# Remove the tag name - so that we can compare files`	2231	`# Remove the tag name - so that we can compare files`
2231	`# Save the first instance of changed files`	2232	`# Save the first instance of changed files`
2232	`# Others will be in older versions`	2233	`# Others will be in older versions`
2233	`# and thus of no interest`	2234	`# and thus of no interest`
2234	`#`	2235	`#`
2235	`# Count the chnage sets that have changes`	2236	`# Count the change sets that have changes`
2236	`# Having changes in multiple change sets indicates`	2237	`# Having changes in multiple change sets indicates`
2237	`# development on a /tags/ - which is BAD`	2238	`# development on a /tags/ - which is BAD`
2238	`#`	2239	`#`
2239	`$workSpace->{path}{'DATA'} =~ m~(.+)/((tags\|branches\|trunk)(/\|$).*)~;`	2240	`$workSpace->{path}{'DATA'} =~ m~(.+)/((tags\|branches\|trunk)(/\|$).*)~;`
2240	`my $file = $2;`	2241	`my $file = $2;`
2241	`my $full = $file;`	2242	`my $full = $file;`
2242	`$file =~ s~^tags/(.+?)/~~;`	2243	`$file =~ s~^tags/(.+?)/~~;`
2243		2244
2244	`if ( ! exists $workSpace->{files}{$file} )`	2245	`if ( ! exists $workSpace->{files}{$file} )`
2245	`{`	2246	`{`
2246	`push @{$workSpace->{results}{files}}, $full . '@' . $workSpace->{rev};`	2247	`push @{$workSpace->{results}{files}}, join($;, $full . '@' . $workSpace->{rev}, $workSpace->{path}{'action'});`
2247	`}`	2248	`}`
2248	`$workSpace->{files}{$file}++;`	2249	`$workSpace->{files}{$file}++;`
2249	`$workSpace->{firstFile} = $file unless ( defined $workSpace->{firstFile} );`	2250	`$workSpace->{firstFile} = $file unless ( defined $workSpace->{firstFile} );`
2250		2251
2251	`unless ( $workSpace->{changesSeen} )`	2252	`unless ( $workSpace->{changesSeen} )`

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/LIB/JatsSvn.pm – Rev 5709 → 6177