Subversion Repositories gelsvn

Rev

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

Rev 107 Rev 217
Line 47... Line 47...
47 
  my($fh)   = shift;
 47 
  my($fh)   = shift;
48 
  my($crlf) = $self->crlf();
 48 
  my($crlf) = $self->crlf();
49 
 
 49 
 
50 
  print $fh 'Microsoft Developer Studio Workspace File, Format Version 6.00', $crlf,
 50 
  print $fh 'Microsoft Developer Studio Workspace File, Format Version 6.00', $crlf,
51 
            '#', $crlf,
 51 
            '#', $crlf,
52 
            '# $Id: VC6WorkspaceCreator.pm 107 2005-09-02 16:42:23Z bj $', $crlf,
 52 
            '# $Id: VC6WorkspaceCreator.pm 217 2006-05-05 09:35:48Z bj $', $crlf,
53 
            '#', $crlf,
 53 
            '#', $crlf,
54 
            '# This file was generated by MPC.  Any changes made directly to', $crlf,
 54 
            '# This file was generated by MPC.  Any changes made directly to', $crlf,
55 
            '# this file will be lost the next time it is generated.', $crlf,
 55 
            '# this file will be lost the next time it is generated.', $crlf,
56 
            '#', $crlf,
 56 
            '#', $crlf,
57 
            '# MPC Command:', $crlf,
 57 
            '# MPC Command:', $crlf,
Line 61... Line 61...
61 
 
 61 
 
62 
 
 62 
 
63 
sub write_comps {
 63 
sub write_comps {
64 
  my($self)     = shift;
 64 
  my($self)     = shift;
65 
  my($fh)       = shift;
 65 
  my($fh)       = shift;
- 
 
 66 
  my($gen)      = shift;
66 
  my($projects) = $self->get_projects();
 67 
  my($projects) = $self->get_projects();
67 
  my($pjs)      = $self->get_project_info();
 68 
  my($pjs)      = $self->get_project_info();
68 
  my($crlf)     = $self->crlf();
 69 
  my($crlf)     = $self->crlf();
69 
 
 70 
 
70 
  foreach my $project (@$projects) {
 71 
  foreach my $project (sort { $gen->file_sorter($a, $b) } @$projects) {
71 
    my($name) = $$pjs{$project}->[0];
 72 
    my($name) = $$pjs{$project}->[0];
72 
    my($deps) = $self->get_validated_ordering($project);
 73 
    my($deps) = $self->get_validated_ordering($project);
73 
 
 74 
 
74 
    print $fh "###############################################################################$crlf" .
 75 
    print $fh "###############################################################################$crlf" .
75 
              $crlf .
 76 
              $crlf .
Line 81... Line 82...
81 
              "}}}$crlf" .
 82 
              "}}}$crlf" .
82 
              $crlf .
 83 
              $crlf .
83 
              "Package=<4>$crlf" .
 84 
              "Package=<4>$crlf" .
84 
              "{{{$crlf";
 85 
              "{{{$crlf";
85 
 
 86 
 
86 
    if (defined $deps && $deps ne '') {
 87 
    if (defined $$deps[0]) {
87 
      my($darr) = $self->create_array($deps);
 - 
 
88 
      foreach my $dep (@$darr) {
 88 
      foreach my $dep (@$deps) {
89 
        ## Avoid cirular dependencies
 - 
 
90 
        if ($name ne $dep) {
 - 
 
91 
          print $fh "    Begin Project Dependency$crlf" .
 89 
        print $fh "    Begin Project Dependency$crlf" .
92 
                    "    Project_Dep_Name $dep$crlf" .
 90 
                  "    Project_Dep_Name $dep$crlf" .
93 
                    "    End Project Dependency$crlf";
 91 
                  "    End Project Dependency$crlf";
94 
        }
 - 
 
95 
      }
 92 
      }
96 
    }
 93 
    }
97 
 
 94 
 
98 
    print $fh "}}}$crlf$crlf";
 95 
    print $fh "}}}$crlf$crlf";
99 
  }
 96 
  }