Jon Griffiths : c2man: Correct extension for non-dlls ( based on a patch by Vijay Kamuju).
Alexandre Julliard
julliard at winehq.org
Thu Jun 26 14:51:05 CDT 2008
Module: wine
Branch: master
Commit: 3ef22e56f25e83555dc5762409a0a97fc863fe92
URL: http://source.winehq.org/git/wine.git/?a=commit;h=3ef22e56f25e83555dc5762409a0a97fc863fe92
Author: Jon Griffiths <jon_p_griffiths at yahoo.com>
Date: Tue Jun 24 13:54:59 2008 -0700
c2man: Correct extension for non-dlls (based on a patch by Vijay Kamuju).
---
tools/c2man.pl | 8 +++++---
1 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/tools/c2man.pl b/tools/c2man.pl
index dfd1877..30c2186 100755
--- a/tools/c2man.pl
+++ b/tools/c2man.pl
@@ -90,14 +90,15 @@ sub process_extra_comment($);
sub process_spec_file($)
{
my $spec_name = shift;
- my $dll_name = $spec_name;
- $dll_name =~ s/\..*//; # Strip the file extension
+ my ($dll_name, $dll_ext) = split(/\./, $spec_name);
+ $dll_ext = "dll" if ( $dll_ext eq "spec" );
my $uc_dll_name = uc $dll_name;
my $spec_details =
{
NAME => $spec_name,
DLL_NAME => $dll_name,
+ DLL_EXT => $dll_ext,
NUM_EXPORTS => 0,
NUM_STUBS => 0,
NUM_FUNCS => 0,
@@ -227,6 +228,7 @@ sub process_source_file($)
COMMENT_NAME => "",
ALT_NAME => "",
DLL_NAME => "",
+ DLL_EXT => "",
ORDINAL => "",
RETURNS => "",
PROTOTYPE => [],
@@ -1095,7 +1097,7 @@ sub output_spec($)
my $comment =
{
FILE => $spec_details->{DLL_NAME},
- COMMENT_NAME => $spec_details->{DLL_NAME}.".dll",
+ COMMENT_NAME => $spec_details->{DLL_NAME}.".".$spec_details->{DLL_EXT},
ALT_NAME => $spec_details->{DLL_NAME},
DLL_NAME => "",
ORDINAL => "",
More information about the wine-cvs
mailing list