Subversion Repositories gelsvn

Rev

Rev 107 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
Line 9... Line 9...
9 
# ************************************************************
 9 
# ************************************************************
10 
# Pragmas
 10 
# Pragmas
11 
# ************************************************************
 11 
# ************************************************************
12 
 
 12 
 
13 
use strict;
 13 
use strict;
14 
use File::Basename;
 - 
 
15 
 
 14 
 
16 
use ProjectCreator;
 15 
use ProjectCreator;
- 
 
 16 
use XMLProjectBase;
17 
 
 17 
 
18 
use vars qw(@ISA);
 18 
use vars qw(@ISA);
19 
@ISA = qw(ProjectCreator);
 19 
@ISA = qw(XMLProjectBase ProjectCreator);
20 
 
 20 
 
21 
# ************************************************************
 21 
# ************************************************************
22 
# Data Section
 22 
# Data Section
23 
# ************************************************************
 23 
# ************************************************************
24 
 
 24 
 
Line 27... Line 27...
27 
# ************************************************************
 27 
# ************************************************************
28 
# Subroutine Section
 28 
# Subroutine Section
29 
# ************************************************************
 29 
# ************************************************************
30 
 
 30 
 
31 
sub file_sorter {
 31 
sub file_sorter {
32 
  my($self)  = shift;
 32 
  #my($self)  = shift;
33 
  my($left)  = shift;
 33 
  #my($left)  = shift;
34 
  my($right) = shift;
 34 
  #my($right) = shift;
35 
  return lc($left) cmp lc($right);
 35 
  return lc($_[1]) cmp lc($_[2]);
36 
}
 - 
 
37 
 
 - 
 
38 
 
 - 
 
39 
sub convert_slashes {
 - 
 
40 
  #my($self) = shift;
 - 
 
41 
  return 0;
 - 
 
42 
}
 36 
}
43 
 
 37 
 
44 
 
 38 
 
45 
sub label_nodes {
 39 
sub label_nodes {
46 
  my($self)  = shift;
 40 
  my($self)  = shift;
Line 83... Line 77...
83 
    ## Push each node onto the value array
 77 
    ## Push each node onto the value array
84 
    $value = [];
 78 
    $value = [];
85 
    for(my $i = 0; $i <= $#nodes; ++$i) {
 79 
    for(my $i = 0; $i <= $#nodes; ++$i) {
86 
      my($file) = $nodes[$i]->[1];
 80 
      my($file) = $nodes[$i]->[1];
87 
      my($dir)  = $self->mpc_dirname($file);
 81 
      my($dir)  = $self->mpc_dirname($file);
88 
      my($base) = basename($file);
 82 
      my($base) = $self->mpc_basename($file);
89 
 
 83 
 
90 
      ## Relative paths do not work at all in a web browser
 84 
      ## Relative paths do not work at all in a web browser
91 
      if ($dir eq '.') {
 85 
      if ($dir eq '.') {
92 
        $file = $base;
 86 
        $file = $base;
93 
      }
 87 
      }