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 31... Line 31...
31 
  #my($self) = shift;
 31 
  #my($self) = shift;
32 
  return 1;
 32 
  return 1;
33 
}
 33 
}
34 
 
 34 
 
35 
 
 35 
 
36 
sub convert_slashes {
 - 
 
37 
  #my($self) = shift;
 - 
 
38 
  return 0;
 - 
 
39 
}
 - 
 
40 
 
 - 
 
41 
 
 - 
 
42 
sub project_file_extension {
 36 
sub project_file_extension {
43 
  #my($self) = shift;
 37 
  #my($self) = shift;
44 
  return '.bld';
 38 
  return '.bld';
45 
}
 39 
}
46 
 
 40 
 
Line 49... Line 43...
49 
  my($self)  = shift;
 43 
  my($self)  = shift;
50 
  my($name)  = shift;
 44 
  my($name)  = shift;
51 
  my($value) = undef;
 45 
  my($value) = undef;
52 
 
 46 
 
53 
  if (!defined $startre) {
 47 
  if (!defined $startre) {
54 
    $startre =  $self->escape_regex_special($self->getstartdir());
 48 
    $startre = $self->escape_regex_special($self->getstartdir());
55 
  }
 49 
  }
56 
 
 50 
 
57 
  if ($name =~ /^reltop_(\w+)/) {
 51 
  if ($name =~ /^reltop_(\w+)/) {
58 
    $value = $self->relative($self->get_assignment($1));
 52 
    $value = $self->relative($self->get_assignment($1));
59 
    if (defined $value) {
 53 
    if (defined $value) {