Subversion Repositories gelsvn

Rev

Rev 107 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
Line 22... Line 22...
22 
                             'libexe'   => 'vc8libexe',
 22 
                             'libexe'   => 'vc8libexe',
23 
                             'dll'      => 'vc8dll',
 23 
                             'dll'      => 'vc8dll',
24 
                             'lib'      => 'vc8lib',
 24 
                             'lib'      => 'vc8lib',
25 
                             'template' => 'vc8',
 25 
                             'template' => 'vc8',
26 
                            },
 26 
                            },
- 
 
 27 
             'csharp' => {'ext'      => '.csproj',
- 
 
 28 
                          'dllexe'   => 'vc8csharp',
- 
 
 29 
                          'libexe'   => 'vc8csharp',
- 
 
 30 
                          'dll'      => 'vc8csharp',
- 
 
 31 
                          'lib'      => 'vc8csharp',
- 
 
 32 
                          'template' => 'vc8csharp',
- 
 
 33 
                         },
27 
            );
 34 
            );
28 
 
 35 
 
- 
 
 36 
my(%config) = ('vcversion' => '8.00',
- 
 
 37 
              );
- 
 
 38 
 
29 
# ************************************************************
 39 
# ************************************************************
30 
# Subroutine Section
 40 
# Subroutine Section
31 
# ************************************************************
 41 
# ************************************************************
32 
 
 42 
 
- 
 
 43 
sub post_file_creation {
- 
 
 44 
  my($self) = shift;
- 
 
 45 
  my($file) = shift;
- 
 
 46 
 
- 
 
 47 
  ## VC8 stores information in a .user file that may conflict
- 
 
 48 
  ## with information stored in the project file.  If we have
- 
 
 49 
  ## created a new project file, we will remove the corresponding
- 
 
 50 
  ## .user file to avoid strange conflicts.
- 
 
 51 
  unlink("$file.user");
- 
 
 52 
}
- 
 
 53 
 
33 
sub get_configurable {
 54 
sub get_configurable {
34 
  my($self)   = shift;
 55 
  my($self)   = shift;
35 
  my($name)   = shift;
 56 
  my($name)   = shift;
36 
  my(%config) = ('vcversion' => '8.00',
 - 
 
37 
                );
 - 
 
38 
  return $config{$name};
 57 
  return $config{$name};
39 
}
 58 
}
40 
 
 59 
 
41 
sub get_info_hash {
 60 
sub get_info_hash {
42 
  my($self) = shift;
 61 
  my($self) = shift;
Line 46... Line 65...
46 
    return $info{$key};
 65 
    return $info{$key};
47 
  }
 66 
  }
48 
  return $self->SUPER::get_info_hash($key);
 67 
  return $self->SUPER::get_info_hash($key);
49 
}
 68 
}
50 
 
 69 
 
- 
 
 70 
sub translate_value {
- 
 
 71 
  my($self) = shift;
- 
 
 72 
  my($key)  = shift;
- 
 
 73 
  my($val)  = shift;
- 
 
 74 
 
- 
 
 75 
  if ($key eq 'platform' && $val eq 'AnyCPU') {
- 
 
 76 
    ## Microsoft uses AnyCPU in the project file, but
- 
 
 77 
    ## uses Any CPU in the solution file.
- 
 
 78 
    $val = 'Any CPU';
- 
 
 79 
  }
- 
 
 80 
 
- 
 
 81 
  return $self->SUPER::translate_value($key, $val);
- 
 
 82 
}
- 
 
 83 
 
51 
1;
 84 
1;