Subversion Repositories gelsvn

Rev

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

Rev 107 Rev 217
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 107 2005-09-02 16:42:23Z bj $', $crlf,
 33 
            '# $Id: VC71WorkspaceCreator.pm 217 2006-05-05 09:35:48Z 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 
  if ($self->allow_empty_dependencies() || defined $$deps[0]) {
53 
    my($crlf) = $self->crlf();
 53 
    my($crlf) = $self->crlf();
54 
    print $fh "\tProjectSection(ProjectDependencies) = postProject$crlf";
 54 
    print $fh "\tProjectSection(ProjectDependencies) = postProject$crlf";
55 
    my($darr) = $self->create_array($deps);
 - 
 
56 
    foreach my $dep (@$darr) {
 55 
    foreach my $dep (@$deps) {
57 
      ## Avoid cirular dependencies
 - 
 
58 
      if ($project_name ne $dep) {
 - 
 
59 
        my($guid) = $name_to_guid_map->{$dep};
 56 
      my($guid) = $name_to_guid_map->{$dep};
60 
        if (defined $guid) {
 57 
      if (defined $guid) {
61 
          print $fh "\t\t{$guid} = {$guid}$crlf";
 58 
        print $fh "\t\t{$guid} = {$guid}$crlf";
62 
        }
 - 
 
63 
      }
 59 
      }
64 
    }
 60 
    }
65 
    print $fh "\tEndProjectSection$crlf";
 61 
    print $fh "\tEndProjectSection$crlf";
66 
  }
 62 
  }
67 
}
 63 
}