-use strict "var";
+use strict "vars";
my $x;
my $F;
}
# per-file comment block handling
+my $name;
for $name (keys %file)
{
$file{$name}{comment} =~ s{<([\w\.\-]+\@[\w\.\-]+\w\w)>}{<$1>}sg;
# and finally print the html-formatted output
open F, ">$o{libhtmlfile}" or die "could not open '$o{libhtmlfile}': $!";
-print F "<html><head><title> ${package} autodoc documentation </title>";
+print F "<html><head><title> $o{package} autodoc documentation </title>";
print F "</head>\n<body>\n";
print F "\n<h1>",$o{package}," <small><small><i>-", $o{version};
print F "</i></small></small></h1>";
$fn{$into}{_refstart} .= '<refentry id="'.$name.'">' if $me;
$fn{$into}{_refends} .= "\n</refentry>\n" if $me;
- $fn{$nane}{_title_} = $name;
+ $fn{$name}{_title_} = $name;
$fn{$name}{_title_} =~ s{\s*}{}gs;
$fn{$name}{_refentryinfo}
.= "\n <title>".$fn{$name}{_title_}."</title>" if $me;
}
}
+my $H;
for $H (keys %header) # second pass
{
next if not length $header{$H}{_refstart};
+#! /usr/bin/python
+# -*- coding: UTF-8 -*-
import sys
import re
import string
def scan_options (options, list):
def encode(text):
- return s(s(text, r"¬", r"&#AC;"), r"\*/",r"¬")
+ return s(s(text, r"¬", r"&#AC;"), r"\*/",r"¬")
def decode(text):
- return s(text, r"¬", r"*/")
+ return s(text, r"¬", r"*/")
for name in options:
found = m(name, r"^(\w+)=(.*)")
file = list.new_File(name)
# cut per-function comment block
- text = s(text, r"(?x) [/][*][*](?=\s) ([^¬]+) ¬ ([^\{\}\;\#]+) [\{\;]",
+ text = s(text, r"(?x) [/][*][*](?=\s) ([^¬]+) ¬ ([^\{\}\;\#]+) [\{\;]",
lambda x : list.add_function_declaration(
decode(x.group(1)), decode(x.group(2))))
# cut per-file comment block
- found = m(text, r"(?sx) [/][*]+(?=\s) ([^¬]+) ¬ "
+ found = m(text, r"(?sx) [/][*]+(?=\s) ([^¬]+) ¬ "
r"(?:\s*\#define\s*\S+)*"
r"(\s*\#include\s*<[^<>]*>(?:\s*//[^\n]*)?)")
if found:
else:
file.comment = None
file.include = None
- found = m(text, r"(?sx) ^ [/][*]+(?=\s) ([^¬]+) ¬ ")
+ found = m(text, r"(?sx) ^ [/][*]+(?=\s) ([^¬]+) ¬ ")
if found:
file.comment = decode(found.group(1))
#fi