ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

c2man: Mark the file used if a comment is found.

This commit is contained in:
André Hentschel 2011-08-04 21:08:37 +02:00 committed by Alexandre Julliard
parent 812a314821
commit 1923e0e159
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tools/c2man.pl
View File

@ -300,6 +300,9 @@ sub process_source_file($)
{ {
if ( /^\/\**$/ ) if ( /^\/\**$/ )
{ {
# This file is used by the DLL - Make sure we get our contributors right
@{$spec_files{$comment->{DLL_NAME}}[0]->{CURRENT_EXTRA}} = ();
push (@{$spec_files{$comment->{DLL_NAME}}[0]->{SOURCES}},$comment->{FILE});
# Found a comment start # Found a comment start
$comment->{COMMENT_NAME} = ""; $comment->{COMMENT_NAME} = "";
$comment->{ALT_NAME} = ""; $comment->{ALT_NAME} = "";
@ -419,10 +422,6 @@ sub process_source_file($)
if ($parse_state == 4) # Reading in the function definition if ($parse_state == 4) # Reading in the function definition
{ {
# This file is used by the DLL - Make sure we get our contributors right
@{$spec_files{$comment->{DLL_NAME}}[0]->{CURRENT_EXTRA}} = ();
push (@{$spec_files{$comment->{DLL_NAME}}[0]->{SOURCES}},$comment->{FILE});
push (@{$comment->{PROTOTYPE}},$_); push (@{$comment->{PROTOTYPE}},$_);
# Strip comments from the line before checking for ')' # Strip comments from the line before checking for ')'
my $stripped_line = $_; my $stripped_line = $_;