Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-cw
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-cw
Commits
541545b2
Commit
541545b2
authored
Feb 09, 2004
by
Jon Griffiths
Committed by
Alexandre Julliard
Feb 09, 2004
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Allow API-doc generation for non WINAPI calls (e.g. msvcrt).
parent
88a29091
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
3 deletions
+21
-3
c2man.pl
tools/c2man.pl
+21
-3
No files found.
tools/c2man.pl
View file @
541545b2
...
...
@@ -34,6 +34,7 @@ my $FLAG_I386 = 4;
my
$FLAG_REGISTER
=
8
;
my
$FLAG_APAIR
=
16
;
# The A version of a matching W function
my
$FLAG_WPAIR
=
32
;
# The W version of a matching A function
my
$FLAG_64PAIR
=
64
;
# The 64 bit version of a matching 32 bit function
# Options
...
...
@@ -441,7 +442,8 @@ sub process_source_file
}
elsif
(
$parse_state
==
2
)
# Finished reading in a comment
{
if
(
/(WINAPI|__cdecl|PASCAL|CALLBACK|FARPROC16)/
)
if
(
/(WINAPIV|WINAPI|__cdecl|PASCAL|CALLBACK|FARPROC16)/
||
/.*?\(.*?\)/
)
{
# Comment is followed by a function definition
$parse_state
=
4
;
# Fall through to read prototype
...
...
@@ -577,6 +579,7 @@ sub process_comment_text
# Common idioms
s/^See ([A-Za-z0-9_]+)\.$/See $1\(\)\./
;
# Referring to A version from W
s/^Unicode version of ([A-Za-z0-9_]+)\.$/See $1\(\)\./
;
# Ditto
s/^64\-bit version of ([A-Za-z0-9_]+)\.$/See $1\(\)\./
;
# Referring to 32 bit version from 64
s/^PARAMETERS$/PARAMS/
;
# Name of parameter section should be 'PARAMS'
# Trademarks
s/( |\.)(MS|Microsoft|microsoft)( |\.)/$1Microsoft\(tm\)$3/g
;
...
...
@@ -834,6 +837,11 @@ sub process_comment
@$export
[
4
]
|=
$FLAG_WPAIR
;
# Explicitly marked as W version
$found_returns
=
1
;
}
elsif
(
/^64\-bit version of ([A-Za-z0-9_]+)\.$/
)
{
@$export
[
4
]
|=
$FLAG_64PAIR
;
# Explicitly marked as 64 bit version
$found_returns
=
1
;
}
$found_description_text
=
1
;
}
else
...
...
@@ -861,8 +869,18 @@ sub process_comment
# (This leaves it as a list of types and names, or empty for void functions)
my
$prototype
=
join
(
" "
,
@
{
$comment
->
{
PROTOTYPE
}});
$prototype
=~
s/ / /g
;
$prototype
=~
s/^(.*?) (WINAPIV|WINAPI|__cdecl|PASCAL|CALLBACK|FARPROC16) (.*?)\( *(.*)/$4/
;
$comment
->
{
RETURNS
}
=
$1
;
if
(
$prototype
=~
/(WINAPIV|WINAPI|__cdecl|PASCAL|CALLBACK|FARPROC16)/
)
{
$prototype
=~
s/^(.*?) (WINAPIV|WINAPI|__cdecl|PASCAL|CALLBACK|FARPROC16) (.*?)\( *(.*)/$4/
;
$comment
->
{
RETURNS
}
=
$1
;
}
else
{
$prototype
=~
s/^(.*?)([A-Za-z0-9_]+)\( *(.*)/$3/
;
$comment
->
{
RETURNS
}
=
$1
;
}
$prototype
=~
s/ *\).*//
;
# Strip end bracket
$prototype
=~
s/ *\* */\*/g
;
# Strip space around pointers
$prototype
=~
s/ *\, */\,/g
;
# Strip space around commas
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment