Add support for marking up variable names and values.
git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@144 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
parent
e8af376306
commit
5733bc9f27
|
@ -32,7 +32,7 @@
|
||||||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||||
# SUCH DAMAGE.
|
# SUCH DAMAGE.
|
||||||
#
|
#
|
||||||
# $P4: //depot/projects/openpam/misc/gendoc.pl#13 $
|
# $P4: //depot/projects/openpam/misc/gendoc.pl#14 $
|
||||||
#
|
#
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
@ -201,6 +201,8 @@ sub parse_source($) {
|
||||||
s/\s*=$func\b\s*/\n.Nm\n/gs;
|
s/\s*=$func\b\s*/\n.Nm\n/gs;
|
||||||
s/\s*=$argnames\b\s*/\n.Va $1\n/gs;
|
s/\s*=$argnames\b\s*/\n.Va $1\n/gs;
|
||||||
s/\s*=(struct \w+(?: \*)?)\b\s*/\n.Vt $1\n/gs;
|
s/\s*=(struct \w+(?: \*)?)\b\s*/\n.Vt $1\n/gs;
|
||||||
|
s/\s*:([a-z_]+)\b\s*/\n.Va $1\n/gs;
|
||||||
|
s/\s*;([a-z_]+)\b\s*/\n.Dv $1\n/gs;
|
||||||
if (s/\s*=([a-z_]+)\b\s*/\n.Xr $1 3\n/gs) {
|
if (s/\s*=([a-z_]+)\b\s*/\n.Xr $1 3\n/gs) {
|
||||||
++$xref{"$1 3"};
|
++$xref{"$1 3"};
|
||||||
}
|
}
|
||||||
|
@ -378,8 +380,8 @@ as part of the DARPA CHATS research program.
|
||||||
|
|
||||||
$fn = "$func->{'name'}.3";
|
$fn = "$func->{'name'}.3";
|
||||||
if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) {
|
if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) {
|
||||||
print(FILE $mdoc);
|
print(FILE $mdoc);
|
||||||
close(FILE);
|
close(FILE);
|
||||||
} else {
|
} else {
|
||||||
warn("$fn: open(): $!\n");
|
warn("$fn: open(): $!\n");
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue