Subversion Repositories gelsvn

package VC7WorkspaceCreator;

# ************************************************************

# Description   : A VC7 Workspace Creator

# Author        : Chad Elliott

# Create Date   : 5/14/2002

# ************************************************************

# ************************************************************

# Pragmas

# ************************************************************

use strict;

use VC7ProjectCreator;

use WorkspaceCreator;

use vars qw(@ISA);

@ISA = qw(WorkspaceCreator);

# ************************************************************

# Data Section

# ************************************************************

my(%guids) = ('cplusplus' => '8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942',

              'csharp'    => 'FAE04EC0-301F-11D3-BF4B-00C04F79EFBC',

              'vb'        => 'F184B08F-C81C-45F6-A57F-5ABD9991F28F',

             );

# ************************************************************

# Subroutine Section

# ************************************************************

sub compare_output {

  #my($self) = shift;

  return 1;

}

sub crlf {

  my($self) = shift;

  return $self->windows_crlf();

}

sub workspace_file_name {

  my($self) = shift;

  return $self->get_modified_workspace_name($self->get_workspace_name(),

                                            '.sln');

}

sub pre_workspace {

  my($self) = shift;

  my($fh)   = shift;

  my($crlf) = $self->crlf();

  print $fh 'Microsoft Visual Studio Solution File, Format Version 7.00', $crlf,

            '#', $crlf,

            '# $Id: VC7WorkspaceCreator.pm 107 2005-09-02 16:42:23Z bj $', $crlf,

            '#', $crlf,

            '# This file was generated by MPC.  Any changes made directly to', $crlf,

            '# this file will be lost the next time it is generated.', $crlf,

            '#', $crlf,

            '# MPC Command:', $crlf,

            "# $0 @ARGV", $crlf;

}

sub print_inner_project {

  #my($self)  = shift;

  #my($fh)    = shift;

  #my($gen)   = shift;

  #my($pguid) = shift;

  #my($deps)  = shift;

  #my($name)  = shift;

}

sub print_configs {

  my($self)    = shift;

  my($fh)      = shift;

  my($configs) = shift;

  my($crlf)    = $self->crlf();

  my($count)   = 0;

  foreach my $key (sort keys %$configs) {

    print $fh "\t\tConfigName.$count = $key$crlf";

    $count++;

  }

}

sub print_dependencies {

  my($self) = shift;

  my($fh)   = shift;

  my($gen)  = shift;

  my($list) = shift;

  my($pjs)  = shift;

  my($crlf) = $self->crlf();

  ## I hate to add yet another loop through all the projects, but

  ## we must have some way to map plain project names to guids.

  my(%name_to_guid_map) = ();

  foreach my $project (@$list) {

    my($name, $deps, $guid) = @{$$pjs{$project}};

    $name_to_guid_map{$name} = $guid;

  }

  ## Project Dependencies

  print $fh "\tGlobalSection(ProjectDependencies) = postSolution$crlf";

  foreach my $project (@$list) {

    my($name, $rawdeps, $project_guid) = @{$$pjs{$project}};

    my($deps) = $self->get_validated_ordering($project);

    if (defined $deps && $deps ne '') {

      my($darr) = $self->create_array($deps);

      my($i)    = 0;

      foreach my $dep (@$darr) {

        my($guid) = $name_to_guid_map{$dep};

        if (defined $guid && $guid ne $project_guid) {

          print $fh "\t\t{$project_guid}.$i = {$guid}$crlf";

          $i++;

        }

      }

    }

  }

  print $fh "\tEndGlobalSection$crlf";

}

sub write_comps {

  my($self)     = shift;

  my($fh)       = shift;

  my($gen)      = shift;

  my($projects) = $self->get_projects();

  my($language) = $self->get_language();

  my($vc7guid)  = $guids{$language};

  my($pjs)      = $self->get_project_info();

  my(@list)     = sort @$projects;

  my($crlf)     = $self->crlf();

  ## I hate to add yet another loop through all the projects, but

  ## we must have some way to map plain project names to guids.

  my(%name_to_guid_map) = ();

  foreach my $project (@list) {

    my($name, $deps, $guid) = @{$$pjs{$project}};

    $name_to_guid_map{$name} = $guid;

  }

  ## Project Information

  foreach my $project (@list) {

    my($name, $rawdeps, $guid) = @{$$pjs{$project}};

    my($deps) = $self->get_validated_ordering($project);

    ## Convert all /'s to \

    my($cpy) = $self->slash_to_backslash($project);

    print $fh "Project(\"{$vc7guid}\") = \"$name\", \"$cpy\", \"{$guid}\"$crlf";

    $self->print_inner_project($fh, $gen, $guid, $deps, $name, \%name_to_guid_map);

    print $fh "EndProject$crlf";

    if ($deps ne '' &&

        ($language eq 'csharp' || $language eq 'vb')) {

      $self->add_references($project, $vc7guid, $deps, \%name_to_guid_map);

    }

  }

  print $fh "Global$crlf",

            "\tGlobalSection(",

            $self->get_solution_config_section_name(),

            ") = preSolution$crlf";

  my(%configs) = ();

  foreach my $project (@list) {

    my($name, $deps, $pguid, @cfgs) = @{$$pjs{$project}};

    foreach my $cfg (@cfgs) {

      $cfg = $self->get_short_config_name($cfg);

      $configs{$cfg} = 1;

    }

  }

  $self->print_configs($fh, \%configs);

  print $fh "\tEndGlobalSection$crlf";

  ## Print dependencies if there are any

  $self->print_dependencies($fh, $gen, \@list, $pjs);

  ## Project Configuration Names

  print $fh "\tGlobalSection(",

            $self->get_project_config_section_name(),

            ") = postSolution$crlf";

  foreach my $project (@list) {

    my($name, $deps, $pguid, @cfgs) = @{$$pjs{$project}};

    foreach my $cfg (sort @cfgs) {

      my($c) = $self->get_short_config_name($cfg);

      print $fh "\t\t{$pguid}.$c.ActiveCfg = $cfg$crlf" .

                "\t\t{$pguid}.$c.Build.0 = $cfg$crlf";

    }

  }

  print $fh "\tEndGlobalSection$crlf";

  $self->print_additional_sections($fh);

  print $fh "EndGlobal$crlf";

}

sub get_short_config_name {

  my($self) = shift;

  my($cfg)  = shift;

  $cfg =~ s/\|.*//;

  return $cfg;

}

sub get_solution_config_section_name {

  #my($self) = shift;

  return 'SolutionConfiguration';

}

sub get_project_config_section_name {

  #my($self) = shift;

  return 'ProjectConfiguration';

}

sub print_additional_sections {

  my($self) = shift;

  my($fh)   = shift;

  my($crlf) = $self->crlf();

  print $fh "\tGlobalSection(ExtensibilityGlobals) = postSolution$crlf",

            "\tEndGlobalSection$crlf",

            "\tGlobalSection(ExtensibilityAddIns) = postSolution$crlf",

            "\tEndGlobalSection$crlf";

}

sub add_references {

  my($self)   = shift;

  my($proj)   = shift;

  my($pguid)  = shift;

  my($deps)   = shift;

  my($gmap)   = shift;

  my($crlf)   = $self->crlf();

  my($fh)     = new FileHandle();

  my($outdir) = $self->get_outdir();

  if (open($fh, "$outdir/$proj")) {

    my($write) = 0;

    my(@read)  = ();

    while(<$fh>) {

      if (/MPC\s+ADD\s+REFERENCES/) {

        $write = 1;

        my($darr) = $self->create_array($deps);

        foreach my $dep (@$darr) {

          push(@read, "                <Reference$crlf",

                      "                    Name = \"$dep\"$crlf",

                      "                    Project = \"{$$gmap{$dep}}\"$crlf",

                      "                    Package = \"{$pguid}\"$crlf",

                      "                />$crlf");

        }

      }

      else {

        push(@read, $_);

      }

    }

    close($fh);

    if ($write && open($fh, ">$outdir/$proj")) {

      foreach my $line (@read) {

        print $fh $line;

      }

      close($fh);

    }

  }

}

1;