nmakeobjectgenerator.pm

来自「最新的版本ACE-5.6.8,刚从外文网上搬下,与大家分享.」· PM 代码 · 共 52 行

package WinProjectBaseEx;

use WinProjectBase;
use DirectoryManager;

use vars qw(@ISA);
@ISA = qw(WinProjectBase DirectoryManager);

sub new {
  return bless {}, $_[0];
}

1;


package NMakeObjectGenerator;

# ************************************************************
# Description   : Generates object files for NMake Makefiles.
# Author        : Chad Elliott
# Create Date   : 5/23/2003
# ************************************************************

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

use strict;
use ObjectGenerator;

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

# ************************************************************
# Data Section
# ************************************************************

my $wpb = new WinProjectBaseEx();

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

sub process {
  my $noext = $wpb->translate_directory($_[1]);
  $noext =~ s/\.[^\.]+$//o;
  return [ "\"\$(INTDIR)\\$noext.obj\"" ];
}


1;