Jon Griffiths : c2man: Correct extension for non-dlls ( based on a patch by Vijay Kamuju).

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 3ef22e56f25e83555dc5762409a0a97fc863fe92
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=3ef22e56f25e83555dc5762409...

Author: Jon Griffiths <jon_p_griffiths(a)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 => "",