Initial import
git-svn-id: http://moon:8086/svn/software/trunk/libsrc/xerces-c-3.0.0@1 b431acfa-c32f-4a4a-93f1-934dc6c82436
This commit is contained in:
Executable
+189
@@ -0,0 +1,189 @@
|
||||
#
|
||||
# Licensed to the Apache Software Foundation (ASF) under one or more
|
||||
# contributor license agreements. See the NOTICE file distributed with
|
||||
# this work for additional information regarding copyright ownership.
|
||||
# The ASF licenses this file to You under the Apache License, Version 2.0
|
||||
# (the "License"); you may not use this file except in compliance with
|
||||
# the License. You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
#
|
||||
|
||||
my $filename = $ARGV[0];
|
||||
open(IN,"< $filename") || die("Couldn't open input file: $filename");
|
||||
|
||||
while (<IN>) {
|
||||
if ($_=~/^\s*class\s+[A-Z0-9_]+_EXPORT\s+([^\s]+)\s*[:]\s*public\s([^\s]+)/) {
|
||||
$classname = $1;
|
||||
$baseclass = $2;
|
||||
last;
|
||||
}
|
||||
elsif ($_=~/^\s*class\s+[A-Z0-9_]+_EXPORT\s+([^\s]+)/) {
|
||||
$classname = $1;
|
||||
$baseclass = "";
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
open(OUT,">out.html") || die("Could not write to out.html");
|
||||
|
||||
print OUT <<"END1";
|
||||
<h3>
|
||||
<font color="#000000">$filename:</font></h3>
|
||||
|
||||
<div id="$classname"><font face="Courier New,Courier"><font size=-1>class
|
||||
$classname
|
||||
END1
|
||||
if ($baseclass ne "") {
|
||||
print OUT <<"END2";
|
||||
: public $baseclass
|
||||
END2
|
||||
}
|
||||
print OUT <<"END3";
|
||||
</font></font>
|
||||
<table>
|
||||
END3
|
||||
|
||||
while (<IN>) {
|
||||
if ($_=~/^\s*public\s*:/) {
|
||||
print OUT <<"END5";
|
||||
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td><font face="Courier New,Courier"><font size=-1>{</font></font></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
</tr>
|
||||
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td><font face="Courier New,Courier"><font size=-1>public:</font></font></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
</tr>
|
||||
END5
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
while (<IN>) {
|
||||
if ($_=~/^\s*(virtual)\s+([^\s\(][^\(]*[^\s\(])\s+([^\s\(]+\(.*)/) {
|
||||
$a=$1;
|
||||
$b=$2;
|
||||
$c=$3;
|
||||
while ($c!~/\)/) {
|
||||
$c.=<IN>;
|
||||
}
|
||||
print OUT <<"END";
|
||||
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$a</font></font></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$b</font></font></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$c</font></font></td>
|
||||
</tr>
|
||||
END
|
||||
} elsif ($_=~/^\s*(static)\s+([^\s\(][^\(]*[^\s\(])\s+([^\s\(]+\(.*)/) {
|
||||
$a=$1;
|
||||
$b=$2;
|
||||
$c=$3;
|
||||
while ($c!~/\)/) {
|
||||
$c.=<IN>;
|
||||
}
|
||||
print OUT <<"END";
|
||||
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$a</font></font></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$b</font></font></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$c</font></font></td>
|
||||
</tr>
|
||||
END
|
||||
} elsif ($_=~/^\s*(enum)\s+([^\s]+)\s*{/) {
|
||||
print OUT <<"END2";
|
||||
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$1</font></font></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$2 {</font></font></td>
|
||||
|
||||
<td></td>
|
||||
</tr>
|
||||
END2
|
||||
|
||||
while (<IN>) {
|
||||
if ($_=~/([^\s]+)\s*=\s*([^\s,]+),?(\s|$)/) {
|
||||
print OUT <<"END3";
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>$1</font></font></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>= $2,</font></font></td>
|
||||
</tr>
|
||||
END3
|
||||
}
|
||||
if ($_=~/}\s*;/) {
|
||||
print OUT <<"END4";
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td></td>
|
||||
|
||||
<td><font face="Courier New,Courier"><font size=-1>};</font></font></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
</tr>
|
||||
END4
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# enum ExceptionCode {
|
||||
# INVALID_EXPRESSION_ERR = 51,
|
||||
# TYPE_ERR = 52,
|
||||
# };
|
||||
}
|
||||
|
||||
print OUT <<"END6";
|
||||
<tr ALIGN=LEFT VALIGN=TOP>
|
||||
<td><font face="Courier New,Courier"><font size=-1>};</font></font></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
|
||||
<td></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
END6
|
||||
|
||||
close(OUT);
|
||||
close(IN);
|
||||
Reference in New Issue
Block a user