Subversion Repositories gelsvn

Rev

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

Rev 68 Rev 71
Line 28... Line 28...
28 
  my($fh)   = shift;
 28 
  my($fh)   = shift;
29 
  my($crlf) = $self->crlf();
 29 
  my($crlf) = $self->crlf();
30 
 
 30 
 
31 
  print $fh 'Microsoft Visual Studio Solution File, Format Version 8.00', $crlf,
 31 
  print $fh 'Microsoft Visual Studio Solution File, Format Version 8.00', $crlf,
32 
            '#', $crlf,
 32 
            '#', $crlf,
33 
            '# $Id: VC71WorkspaceCreator.pm 68 2005-08-24 13:26:10Z bj $', $crlf,
 33 
            '# $Id: VC71WorkspaceCreator.pm 71 2005-08-25 08:41:49Z bj $', $crlf,
34 
            '#', $crlf,
 34 
            '#', $crlf,
35 
            '# This file was generated by MPC.  Any changes made directly to', $crlf,
 35 
            '# This file was generated by MPC.  Any changes made directly to', $crlf,
36 
            '# this file will be lost the next time it is generated.', $crlf,
 36 
            '# this file will be lost the next time it is generated.', $crlf,
37 
            '#', $crlf,
 37 
            '#', $crlf,
38 
            '# MPC Command:', $crlf,
 38 
            '# MPC Command:', $crlf,
Line 47... Line 47...
47 
  my($pguid) = shift;
 47 
  my($pguid) = shift;
48 
  my($deps)  = shift;
 48 
  my($deps)  = shift;
49 
  my($project_name) = shift;
 49 
  my($project_name) = shift;
50 
  my($name_to_guid_map) = shift;
 50 
  my($name_to_guid_map) = shift;
51 
 
 51 
 
- 
 
 52 
  if ($self->allow_empty_dependencies() || length($deps) > 0) {
52 
  my($crlf) = $self->crlf();
 53 
    my($crlf) = $self->crlf();
53 
  print $fh "\tProjectSection(ProjectDependencies) = postProject$crlf";
 54 
    print $fh "\tProjectSection(ProjectDependencies) = postProject$crlf";
54 
  my($darr) = $self->create_array($deps);
 55 
    my($darr) = $self->create_array($deps);
55 
  foreach my $dep (@$darr) {
 56 
    foreach my $dep (@$darr) {
56 
    ## Avoid cirular dependencies
 57 
      ## Avoid cirular dependencies
57 
    if ($project_name ne $dep) {
 58 
      if ($project_name ne $dep) {
58 
      my($guid) = $name_to_guid_map->{$dep};
 59 
        my($guid) = $name_to_guid_map->{$dep};
59 
      if (defined $guid) {
 60 
        if (defined $guid) {
60 
        print $fh "\t\t{$guid} = {$guid}$crlf";
 61 
          print $fh "\t\t{$guid} = {$guid}$crlf";
- 
 
 62 
        }
61 
      }
 63 
      }
62 
    }
 64 
    }
- 
 
 65 
    print $fh "\tEndProjectSection$crlf";
63 
  }
 66 
  }
- 
 
 67 
}
- 
 
 68 
 
- 
 
 69 
 
64 
  print $fh "\tEndProjectSection$crlf";
 70 
sub allow_empty_dependencies {
- 
 
 71 
  #my($self) = shift;
- 
 
 72 
  return 1;
65 
}
 73 
}
66 
 
 74 
 
67 
 
 75 
 
68 
sub print_configs {
 76 
sub print_configs {
69 
  my($self)    = shift;
 77 
  my($self)    = shift;