Aren
/
haiku
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adapted the sampler to check for "<methodsynopsis>..." type signatures 

fixed midi2endpoint.xml and midi2producer.xml accordingly


git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@18852 a95241bf-73f2-0310-859d-f6bbb57e9c96
This commit is contained in:
Jérôme Duval 2006-09-15 12:18:01 +00:00
parent f257fcab01
commit 71d23319cb
3 changed files with 80 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/documentation/haiku_book/midi/midi2endpoint.xml
View File

@ -31,8 +31,8 @@
<title>Name()</title>
<methodsynopsis>
<type>const char *</type>
<methodname>Name</methodname>
<type><modifier>const</modifier> char *</type>
<methodname>Name</methodname><void/>
<modifier>const</modifier>
</methodsynopsis>
@ -56,7 +56,7 @@
<methodsynopsis>
<void/> <methodname>SetName</methodname>
<methodparam><modifier>const</modifier><type>char *</type><parameter>name</parameter></methodparam>
<methodparam><type><modifier>const</modifier>char *</type><parameter>name</parameter></methodparam>
</methodsynopsis>
<para>
@ -89,7 +89,7 @@
<title>ID()</title>
<methodsynopsis>
<type>int32</type> <methodname>Name</methodname> <void/> <modifier>const</modifier>
<type>int32</type> <methodname>ID</methodname> <void/> <modifier>const</modifier>
</methodsynopsis>
<para>
@ -390,7 +390,7 @@ if (endp->IsConsumer())
<methodsynopsis>
<type>status_t</type> <methodname>SetProperties</methodname>
<methodparam><modifier>const</modifier><type>BMessage *</type><parameter>properties</parameter></methodparam>
<methodparam><type><modifier>const</modifier>BMessage *</type><parameter>properties</parameter></methodparam>
</methodsynopsis>
<para>

7
src/documentation/haiku_book/midi/midi2producer.xml
View File

@ -25,7 +25,7 @@
<methodsynopsis>
<type>status_t</type>
<methodname>Connect</methodname>
<methodparam><type>BMidiConsumer *</type> <parameter>cons</parameter></methodparam>
<methodparam><type><modifier>const</modifier>BMidiConsumer *</type> <parameter>cons</parameter></methodparam>
</methodsynopsis>
<para>
@ -56,7 +56,7 @@
<methodsynopsis>
<type>status_t</type>
<methodname>Disconnect</methodname>
<methodparam><type>BMidiConsumer *</type> <parameter>cons</parameter></methodparam>
<methodparam><type><modifier>const</modifier>BMidiConsumer *</type> <parameter>cons</parameter></methodparam>
</methodsynopsis>
<para>
@ -84,7 +84,8 @@
<methodsynopsis>
<type>bool</type>
<methodname>IsConnected</methodname>
<methodparam><type>BMidiConsumer *</type> <parameter>cons</parameter></methodparam>
<methodparam><type><modifier>const</modifier>BMidiConsumer *</type> <parameter>cons</parameter></methodparam>
<modifier>const</modifier>
</methodsynopsis>
<para>

94
src/tools/docbook/headersampler/HeaderSampler.pl
View File

@ -80,6 +80,7 @@ sub HandleTextline {
# skip 'typedef' or 'struct' region.
(/^typedef/ || /^struct/ || /^namespace/) && do {
$gIsIgnoring = 1;
if ( /^namespace.*}$/ ) { $gIsIgnoring = 0; }
last SWITCH;
};
@ -193,24 +194,58 @@ sub PrintFunction {
$funcname = pop();
$functype = join(' ', @_);
if ( $funcname =~ /^\*/ ) {
$funcname = $';
$functype = $functype . " *";
}
# handle func arg list.
# split(/[ ]*,[ ]*/, $funcargs);
# my @args = @_;
# for (@args) {
# if ( /[ ]*=[ ]*/ ) { $_ = $`; } # for default value; ex. (short X = 100)
# split(/[ ]+/);
# pop();
# $_ = join(' ',@_);
# }
# $funcargs = join(', ', @args);
split(/[ ]*,[ ]*/, $funcargs);
my @args = @_;
for (@args) {
$paramconst = "";
if ( /const*/ ) { $paramconst = "<modifier>const</modifier>"; }
if ( /[ ]*=[ ]*/ ) { $_ = $`; } # for default value; ex. (short X = 100)
split(/[ ]+/);
$paramname = pop();
$paramtype = pop();
if ( $paramname =~ /^\*/ ) {
$paramname = $';
$paramtype = $paramtype . " *";
}
$_ = "<type>" . $paramconst . $paramtype . "</type> <parameter>" . $paramname . "</parameter>"
}
$funcargs = join('</methodparam><methodparam>', @args);
if ($functype) {
$functype = $functype . " "
$_ = $functype;
$funcmod = "";
if ( s/^virtual[ ]*// ) {
$funcmod .= "virtual"
}
if ( s/^static[ ]*// ) {
if ( $funcmod =~ /^$/ ) {
$funcmode .= " ";
}
$funcmode .= "static"
}
if ( /^void/ ) {
$functype = $funcmode . "<void/>"
} else {
$typeconst = "";
if ( /^const / ) { $typeconst = "<modifier>const</modifier>"; $_ = $'; }
$functype = $funcmode . "<type>" . $typeconst . $_ . "</type>"
}
}
if ($funcconst) {
$funcconst = " " . $funcconst
$funcconst = " " . "<modifier>" . $funcconst . "</modifier>"
}
$_ = $functype . $funcname . "(" . $funcargs . ")" . $funcconst;
if ($funcargs) {
$funcargs = "<methodparam>" . $funcargs . "</methodparam>"
} else {
$funcargs = "<void/>"
}
$_ = $functype . " <methodname>" . $funcname . "</methodname> " . $funcargs . $funcconst;
ValidateDocbook();
# print "FUNC = TYPE($funcname)+NAME($funcname)+ARGS($funcargs)\n";
# print $funcname . "\t" x CalcTabs($funcname,5) . $functype . "(" . $funcargs . ")";
@ -224,26 +259,39 @@ sub PrintFunction {
sub ValidateDocbook {
open(IN2, $gDocbookpath) || die "Can't open '$gDocbookpath'";
# we drop every space for the moment
s/[\t ]//g;
my $line = "";
my $last1 = "";
my $last2 = "";
my $input = $_ ;
my $pattern = "<title>" . $_ . "</title>" ;
my $pattern = $_;
my $found = 0;
my $ignoring = 1;
while (<IN2>) {
chomp;
s/^[\t ]+//;
s/[\t ]+$//;
$line = $last1 . $last2 . " " . $_ ;
if ( index($line, $pattern) >= 0 ) {
$found = 1;
break;
s/[\t ]//g;
if ($ignoring) {
if ( m/<methodsynopsis>/ ) {
$line = $';
$ignoring = 0;
}
} else {
$line .= $_;
if ( index($line, $pattern) >= 0 ) {
$found = 1;
break;
}
if ( $line =~ /<\/methodsynopsis>/ ) {
$line = "";
$ignoring = 1;
}
}
$last1 = $last2;
$last2 = $_;
}
if ( $found == 0 ) {
print $input . "\n" ;
print $pattern . "\n" ;
}
close IN2;
}