ghsworkspacecreator.pm

这是广泛使用的通信开源项目,对于大容量,高并发的通讯要求完全能够胜任,他广泛可用于网络游戏医学图像网关的高qos要求.更详细的内容可阅读相应的材料

package GHSWorkspaceCreator;

# ************************************************************
# Description   : An incomplete GHS Workspace creator
# Author        : Chad Elliott
# Create Date   : 7/3/2002
# ************************************************************

# ************************************************************
# Pragmas
# ************************************************************

use strict;
use File::Basename;

use GHSProjectCreator;
use WorkspaceCreator;

use vars qw(@ISA);
@ISA = qw(WorkspaceCreator);

# ************************************************************
# Subroutine Section
# ************************************************************

sub workspace_file_name {
  my($self) = shift;
  return $self->get_modified_workspace_name('ghs/default', '.bld');
}


sub pre_workspace {
  my($self) = shift;
  my($fh)   = shift;
  my($crlf) = $self->crlf();

  print $fh "#!build$crlf" .
            "default:$crlf";
}


sub write_comps {
  my($self)     = shift;
  my($fh)       = shift;
  my($gen)      = shift;
  my($projects) = $self->get_projects();
  my($pjs)      = $self->get_project_info();
  my(@list)     = $self->sort_dependencies($projects, $pjs);
  my($crlf)     = $self->crlf();

  ## Print out the projet
  print $fh "\tnobuild$crlf" .
            "\t:cx_option=noexceptions$crlf" .
            "\t:cx_option=std_namespaces$crlf" .
            "\t:cx_template_option=noautomatic$crlf" .
            "\t:language=cxx$crlf" .
            "\t:cx_mode=ansi$crlf" .
            "\t:cx_lib=scnoe$crlf";

  foreach my $project (@list) {
    ## Convert all /'s to \
    $project = $self->slash_to_backslash($project);

    print $fh "..\\$project$crlf";
    if ($gen->exe_target()) {
      print $fh "\tprogram$crlf";
    }
    else {
      print $fh "\tlibrary$crlf";
    }
  }
}



1;