13
0
livetrax/tools/fmt-luadoc.php

753 lines
23 KiB
PHP
Raw Normal View History

#!/usr/bin/php
<?php
## USAGE
#
## generate doc/luadoc.json.gz (lua binding doc)
# ./waf configure --luadoc ....
# ./waf
# ./gtk2_ardour/arluadoc > doc/luadoc.json.gz
#
## generate doc/ardourapi.json.gz (ardour header doxygen doc)
# cd ../../tools/doxy2json
# ./ardourdoc.sh
# cd -
#
## format HTML (using this scripterl)
# php tools/fmt-luadoc.php > /tmp/luadoc.html
#
################################################################################
################################################################################
$json = gzdecode (file_get_contents (dirname (__FILE__).'/../doc/luadoc.json.gz'));
$doc = array ();
foreach (json_decode ($json, true) as $b) {
if (!isset ($b['type'])) { continue; }
$b ['ldec'] = preg_replace ('/ const/', '', preg_replace ('/ const&/', '', $b['decl']));
if (isset ($b['ret'])) {
$b['ret'] = preg_replace ('/ const/', '', preg_replace ('/ const&/', '', $b['ret']));
}
$doc[] = $b;
}
if (count ($doc) == 0) {
fwrite (STDERR, "Failed to read luadoc.json\n");
exit (1);
}
################################################################################
## Global result variables
################################################################################
$classlist = array ();
$constlist = array ();
################################################################################
## Pre-process the data, collect functions, parse arguments, cross reference
################################################################################
################################################################################
# some internal helper functions first
2016-03-21 16:15:26 -04:00
$funclist = array ();
$classes = array ();
$consts = array ();
function my_die ($msg) {
fwrite (STDERR, $msg."\n");
exit (1);
}
##function ptr_strip ($ctype) {
# # boost::shared_ptr<std::list<boost::shared_ptr<ARDOUR::Route>> > >
# # -> std::list<ARDOUR::Route>
# $ctype = preg_replace ('/boost::shared_ptr<([^>]*)[ ]*>/', '$1', $ctype);
# return preg_replace ('/boost::shared_ptr<([^>]*)[ ]*>/', '$1', $ctype);
#}
function arg2lua ($argtype, $flags = 0) {
global $classes;
global $consts;
# LuaBridge abstracts C++ references
$flags |= preg_match ('/&$/', $argtype);
$arg = preg_replace ('/&$/', '', $argtype);
$arg = preg_replace ('/ $/', '', $arg);
# filter out basic types
$builtin = array ('float', 'double', 'bool', 'std::string', 'int', 'long', 'unsigned long', 'unsigned int', 'unsigned char', 'char', 'void', 'char*', 'unsigned char*', 'void*');
if (in_array ($arg, $builtin)) {
return array ($arg => $flags);
}
# check Class declarations first
foreach (array_merge ($classes, $consts) as $b) {
if ($b['ldec'] == $arg) {
return array ($b['lua'] => $flags);
}
}
# strip class pointers -- TODO Check C'tor for given class
$arg = preg_replace ('/[&*]*$/', '', $argtype);
foreach (array_merge ($classes, $consts) as $b) {
if ($b['ldec'] == $arg) {
return array ($b['lua'] => $flags);
}
}
if ($flags & 2) {
return array ($argtype => ($flags | 4));
} else {
return array ('--MISSING (' . $argtype . ')--' => ($flags | 4));
}
}
function stripclass ($classname, $name) {
$classname .= ':';
if (strpos ($name, $classname) !== 0) {
my_die ('invalid class prefix: ' .$classname. ' -- '. $name);
}
return substr ($name, strlen ($classname));
}
function datatype ($decl) {
# TODO handle spaces in type. Works because
# we don't yet have templated types (with_space <here >)
return substr ($decl, 0, strpos ($decl, ' '));
}
function luafn2class ($lua) {
return substr ($lua, 0, strrpos ($lua, ':'));
}
function checkclass ($b) {
global $classlist;
if (!isset ($classlist[luafn2class ($b['lua'])])) {
my_die ('MISSING CLASS FOR '. print_r ($b['lua'], true));
}
}
# parse functions argument list to lua-names
function decl2args ($decl) {
$start = strrpos ($decl, '(');
$end = strrpos ($decl, ')');
$args = substr ($decl, $start + 1, $end - $start - 1);
$arglist = preg_split ('/, */', $args);
$rv = array ();
foreach ($arglist as $a) {
if (empty ($a)) { continue; }
$rv[] = arg2lua ($a);
}
return $rv;
}
function canonical_ctor ($b) {
$rv = '';
if (preg_match('/[^(]*\(([^)*]*)\*\)(\(.*\))/', $b['decl'], $matches)) {
$lc = luafn2class ($b['lua']);
$cn = str_replace (':', '::', $lc);
$fn = substr ($lc, 1 + strrpos ($lc, ':'));
$rv = $cn . '::'. $fn . $matches[2];
}
return $rv;
}
function canonical_decl ($b) {
$rv = '';
2016-03-24 19:43:15 -04:00
$pfx = '';
# match clang's declatation format
if (preg_match('/[^(]*\(([^)*]*)\*\)\((.*)\)/', $b['decl'], $matches)) {
2016-03-24 19:43:15 -04:00
if (strpos ($b['type'], 'Free Function') !== false) {
$pfx = str_replace (':', '::', luafn2class ($b['lua'])) . '::';
}
$fn = substr ($b['lua'], 1 + strrpos ($b['lua'], ':'));
$rv = $matches[1] . $fn . '(';
$arglist = preg_split ('/, */', $matches[2]);
$first = true;
foreach ($arglist as $a) {
if (!$first) { $rv .= ', '; }; $first = false;
if (empty ($a)) { continue; }
$a = preg_replace ('/([^>]) >/', '$1>', $a);
2016-03-24 19:43:15 -04:00
$a = preg_replace ('/^Cairo::/', '', $a); // special case cairo enums
$a = preg_replace ('/([^ ])&/', '$1 &', $a);
$a = str_replace ('vector', 'std::vector', $a);
2016-03-24 19:43:15 -04:00
$a = str_replace ('std::string', 'string', $a);
$a = str_replace ('string const', 'const string', $a);
$a = str_replace ('string', 'std::string', $a);
$rv .= $a;
}
$rv .= ')';
}
2016-03-24 19:43:15 -04:00
return $pfx . $rv;
}
################################################################################
# step 1: build class indices
foreach ($doc as $b) {
if (strpos ($b['type'], "[C] ") === 0) {
$classes[] = $b;
$classlist[$b['lua']] = $b;
if (strpos ($b['type'], 'Pointer Class') === false) {
$classdecl[$b['ldec']] = $b;
}
}
}
foreach ($classes as $c) {
if (strpos ($c['type'], 'Pointer Class') !== false) { continue; }
if (isset ($c['parent'])) {
if (isset ($classdecl[$c['parent']])) {
$classlist[$c['lua']]['luaparent'][] = $classdecl[$c['parent']]['lua'];
} else {
my_die ('unknown parent class: ' . print_r ($c, true));
}
}
}
# step 2: extract constants/enum
foreach ($doc as $b) {
switch ($b['type']) {
case "Constant/Enum":
case "Constant/Enum Member":
if (strpos ($b['ldec'], '::') === false) {
# for extern c enums, use the Lua Namespace
$b['ldec'] = str_replace (':', '::', luafn2class ($b['lua']));
}
$ns = str_replace ('::', ':', $b['ldec']);
$constlist[$ns][] = $b;
# arg2lua lookup
$b['lua'] = $ns;
$consts[] = $b;
break;
default:
break;
}
}
# step 3: process functions
foreach ($doc as $b) {
switch ($b['type']) {
case "Constructor":
case "Weak/Shared Pointer Constructor":
checkclass ($b);
$classlist[luafn2class ($b['lua'])]['ctor'][] = array (
'name' => luafn2class ($b['lua']),
'args' => decl2args ($b['ldec']),
'cand' => canonical_ctor ($b)
);
break;
case "Data Member":
checkclass ($b);
$classlist[luafn2class ($b['lua'])]['data'][] = array (
'name' => $b['lua'],
'ret' => arg2lua (datatype ($b['ldec']))
);
break;
case "C Function":
# we required C functions to be in a class namespace
case "Ext C Function":
checkclass ($b);
$args = array (array ('--lua--' => 0));
2016-03-21 16:15:26 -04:00
$ret = array ('...' => 0);
$ns = luafn2class ($b['lua']);
$cls = $classlist[$ns];
## std::Vector std::List types
if (preg_match ('/.*<([^>]*)[ ]*>/', $cls['ldec'], $templ)) {
2016-03-21 16:15:26 -04:00
// XXX -> move to C-source
switch (stripclass($ns, $b['lua'])) {
case 'add':
#$args = array (array ('LuaTable {'.$templ[1].'}' => 0));
$args = array (arg2lua ($templ[1], 2));
2016-03-21 19:50:14 -04:00
$ret = array ('LuaTable' => 0);
2016-03-21 16:15:26 -04:00
break;
case 'iter':
$args = array ();
$ret = array ('LuaIter' => 0);
break;
case 'table':
$args = array ();
$ret = array ('LuaTable' => 0);
break;
default:
break;
}
} else if (strpos ($cls['type'], ' Array') !== false) {
$templ = preg_replace ('/[&*]*$/', '', $cls['ldec']);
2016-03-21 16:15:26 -04:00
switch (stripclass($ns, $b['lua'])) {
case 'array':
$args = array ();
$ret = array ('LuaMetaTable' => 0);
break;
case 'get_table':
$args = array ();
$ret = array ('LuaTable' => 0);
break;
case 'set_table':
$args = array (array ('LuaTable {'.$templ.'}' => 0));
$ret = array ('void' => 0);
break;
default:
break;
}
}
$classlist[luafn2class ($b['lua'])]['func'][] = array (
2016-03-21 19:50:14 -04:00
'bind' => $b,
'name' => $b['lua'],
2016-03-21 16:15:26 -04:00
'args' => $args,
'ret' => $ret,
'ref' => true,
'ext' => true,
'cand' => canonical_decl ($b)
);
break;
case "Free Function":
case "Free Function RefReturn":
$funclist[luafn2class ($b['lua'])][] = array (
2016-03-21 19:50:14 -04:00
'bind' => $b,
'name' => $b['lua'],
'args' => decl2args ($b['ldec']),
'ret' => arg2lua ($b['ret']),
'ref' => (strpos ($b['type'], "RefReturn") !== false),
'cand' => canonical_decl ($b)
);
break;
case "Member Function":
case "Member Function RefReturn":
case "Member Pointer Function":
case "Weak/Shared Pointer Function":
case "Weak/Shared Pointer Function RefReturn":
case "Weak/Shared Null Check":
case "Weak/Shared Pointer Cast":
case "Static Member Function":
checkclass ($b);
$classlist[luafn2class ($b['lua'])]['func'][] = array (
2016-03-21 19:50:14 -04:00
'bind' => $b,
'name' => $b['lua'],
'args' => decl2args ($b['ldec']),
'ret' => arg2lua ($b['ret']),
'ref' => (strpos ($b['type'], "RefReturn") !== false),
'cand' => canonical_decl ($b)
);
break;
case "Constant/Enum":
case "Constant/Enum Member":
# already handled -> $consts
break;
default:
if (strpos ($b['type'], "[C] ") !== 0) {
my_die ('unhandled type: ' . $b['type']);
}
break;
}
}
# step 4: collect/group/sort
# step 4a: unify weak/shared Ptr classes
foreach ($classlist as $ns => $cl) {
if (strpos ($cl['type'], ' Array') !== false) {
$classlist[$ns]['arr'] = true;
continue;
}
foreach ($classes as $c) {
if ($c['lua'] == $ns) {
if (strpos ($c['type'], 'Pointer Class') !== false) {
$classlist[$ns]['ptr'] = true;
$classlist[$ns]['decl'] = 'boost::shared_ptr< '.$c['decl']. ' >, boost::weak_ptr< '.$c['decl']. ' >';
break;
}
}
}
}
# step4b: sanity check
foreach ($classlist as $ns => $cl) {
if (isset ($classes[$ns]['parent']) && !isset ($classlist[$ns]['luaparent'])) {
my_die ('missing parent class: ' . print_r ($cl, true));
}
}
# step 4c: merge free functions into classlist
foreach ($funclist as $ns => $fl) {
if (isset ($classlist[$ns])) {
my_die ('Free Funcion in existing namespace: '.$ns.' '. print_r ($ns, true));
}
$classlist[$ns]['func'] = $fl;
$classlist[$ns]['free'] = true;
}
# step 4d: order to chaos
# no array_multisort() here, sub-types are sorted after merging parents
ksort ($classlist);
2016-03-21 16:15:26 -04:00
################################################################################
################################################################################
################################################################################
#### -- split here -- ####
# from here on, only $classlist and $constlist arrays are relevant.
# read function documentation from doxygen
$json = gzdecode (file_get_contents (dirname (__FILE__).'/../doc/ardourapi.json.gz'));
$api = array ();
foreach (json_decode ($json, true) as $a) {
if (!isset ($a['decl'])) { continue; }
if (empty ($a['decl'])) { continue; }
$canon = str_replace (' *', '*', $a['decl']);
$api[$canon] = $a;
}
2016-03-21 16:15:26 -04:00
$dox_found = 0;
$dox_miss = 0;
function doxydoc ($canonical_declaration) {
global $api;
global $dox_found;
global $dox_miss;
if (isset ($api[$canonical_declaration])) {
$dox_found++;
return $api[$canonical_declaration]['doc'];
}
elseif (isset ($api['ARDOUR::'.$canonical_declaration])) {
$dox_found++;
return $api['ARDOUR::'.$canonical_declaration]['doc'];
}
else {
$dox_miss++;
return '';
}
}
2016-03-21 16:15:26 -04:00
################################################################################
# OUTPUT
################################################################################
################################################################################
# Helper functions
define ('NL', "\n");
function ctorname ($name) {
return htmlentities (str_replace (':', '.', $name));
}
2016-03-21 16:15:26 -04:00
function shortname ($name) {
return htmlentities (substr ($name, strrpos ($name, ':') + 1));
}
function varname ($a) {
return array_keys ($a)[0];
}
function name_sort_cb ($a, $b) {
return strcmp ($a['name'], $b['name']);
}
2016-03-21 16:15:26 -04:00
function traverse_parent ($ns, &$inherited) {
global $classlist;
$rv = '';
if (isset ($classlist[$ns]['luaparent'])) {
$parents = array_unique ($classlist[$ns]['luaparent']);
asort ($parents);
foreach ($parents as $p) {
if (!empty ($rv)) { $rv .= ', '; }
$rv .= typelink ($p);
$inherited[$p] = $classlist[$p];
traverse_parent ($p, $inherited);
}
}
return $rv;
}
function typelink ($a, $short = false, $argcls = '', $linkcls = '', $suffix = '') {
global $classlist;
global $constlist;
2016-03-21 16:15:26 -04:00
# all cross-reference links are generated here.
# currently anchors on a single page.
2016-03-21 19:50:14 -04:00
if (isset($classlist[$a]['free'])) {
return '<a class="'.$linkcls.'" href="#'.htmlentities ($a).'">'.($short ? shortname($a) : ctorname($a)).$suffix.'</a>';
} else if (in_array ($a, array_keys ($classlist))) {
2016-03-21 16:15:26 -04:00
return '<a class="'.$linkcls.'" href="#'.htmlentities($a).'">'.($short ? shortname($a) : htmlentities($a)).$suffix.'</a>';
} else if (in_array ($a, array_keys ($constlist))) {
2016-03-21 16:15:26 -04:00
return '<a class="'.$linkcls.'" href="#'.ctorname ($a).'">'.($short ? shortname($a) : ctorname($a)).$suffix.'</a>';
} else {
2016-03-21 16:15:26 -04:00
return '<span class="'.$argcls.'">'.htmlentities($a).$suffix.'</span>';
}
}
function format_args ($args) {
$rv = '<span class="functionargs"> (';
$first = true;
foreach ($args as $a) {
if (!$first) { $rv .= ', '; }; $first = false;
$flags = $a[varname ($a)];
if ($flags & 2) {
$rv .= '<em>LuaTable</em> {'.typelink (varname ($a), true, 'em').'}';
}
elseif ($flags & 1) {
2016-03-21 16:15:26 -04:00
$rv .= typelink (varname ($a), true, 'em', '', '&amp;');
}
else {
2016-03-21 16:15:26 -04:00
$rv .= typelink (varname ($a), true, 'em');
}
}
$rv .= ')</span>';
return $rv;
}
function format_doxyclass ($cl) {
$rv = '';
if (isset ($cl['decl'])) {
$doc = doxydoc ($cl['decl']);
if (!empty ($doc)) {
$rv.= '<div class="classdox">'.$doc.'</div>'.NL;
}
}
return $rv;
}
function format_doxydoc ($f) {
$rv = '';
if (isset ($f['cand'])) {
$doc = doxydoc ($f['cand']);
if (!empty ($doc)) {
$rv.= '<tr><td></td><td class="doc" colspan="2"><div class="dox">'.$doc;
$rv.= '</div></td></tr>'.NL;
2016-03-24 19:43:15 -04:00
} else if (1) { # debug
$rv.= '<tr><td></td><td class="doc" colspan="2"><p>'.htmlentities($f['cand']).'</p>';
$rv.= '</td></tr>'.NL;
}
}
return $rv;
}
function format_class_members ($ns, $cl, &$dups) {
$rv = '';
if (isset ($cl['ctor'])) {
usort ($cl['ctor'], 'name_sort_cb');
$rv.= ' <tr><th colspan="3">Constructor</th></tr>'.NL;
foreach ($cl['ctor'] as $f) {
$rv.= ' <tr><td class="def">&Copf;</td><td class="decl">';
$rv.= '<span class="functionname">'.ctorname ($f['name']).'</span>';
$rv.= format_args ($f['args']);
$rv.= '</td><td class="fill"></td></tr>'.NL;
$rv.= format_doxydoc($f);
}
}
$nondups = array ();
if (isset ($cl['func'])) {
foreach ($cl['func'] as $f) {
if (in_array (stripclass ($ns, $f['name']), $dups)) { continue; }
$nondups[] = $f;
}
}
if (count ($nondups) > 0) {
usort ($nondups, 'name_sort_cb');
$rv.= ' <tr><th colspan="3">Methods</th></tr>'.NL;
foreach ($nondups as $f) {
$dups[] = stripclass ($ns, $f['name']);
$rv.= ' <tr><td class="def">';
if ($f['ref'] && isset ($f['ext'])) {
# external C functions
2016-03-21 16:15:26 -04:00
$rv.= '<em>'.varname ($f['ret']).'</em>';
} elseif ($f['ref'] && varname ($f['ret']) == 'void') {
# functions with reference args return args
$rv.= '<em>LuaTable</em>(...)';
} elseif ($f['ref']) {
$rv.= '<em>LuaTable</em>('.typelink (varname ($f['ret']), true, 'em').', ...)';
} else {
2016-03-21 16:15:26 -04:00
$rv.= typelink (varname ($f['ret']), true, 'em');
}
$rv.= '</td><td class="decl">';
2016-03-21 19:50:14 -04:00
$rv.= '<span class="functionname"><abbr title="'.htmlentities($f['bind']['decl']).'">'.stripclass ($ns, $f['name']).'</abbr></span>';
$rv.= format_args ($f['args']);
$rv.= '</td><td class="fill"></td></tr>'.NL;
$rv.= format_doxydoc($f);
2016-03-21 16:15:26 -04:00
}
}
if (isset ($cl['data'])) {
usort ($cl['data'], 'name_sort_cb');
$rv.= ' <tr><th colspan="3">Data Members</th></tr>'.NL;
foreach ($cl['data'] as $f) {
2016-03-21 16:15:26 -04:00
$rv.= ' <tr><td class="def">'.typelink (array_keys ($f['ret'])[0], false, 'em').'</td><td class="decl">';
$rv.= '<span class="functionname">'.stripclass ($ns, $f['name']).'</span>';
$rv.= '</td><td class="fill"></td></tr>'.NL;
}
}
return $rv;
}
################################################################################
# Start Output
2016-03-21 16:15:26 -04:00
?><!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<title>Ardour Lua Bindings</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<style type="text/css">
div.content { max-width:60em; margin: 1em auto; }
h1 { margin:2em 0 0 0; padding:0em; border-bottom: 1px solid black;}
h2.cls { margin:2em 0 0 0; padding-left:1em; border: 1px dashed #6666ee;}
h2.cls abbr { text-decoration:none; cursor:default;}
h3.cls { margin:1em 0 0 0;}
h2.class { background-color: #aaee66; }
h2.enum { background-color: #aaaaaa; }
h2.pointerclass { background-color: #eeaa66; }
h2.array { background-color: #66aaee; }
h2.opaque { background-color: #6666aa; }
p.cdecl { text-align: right; float:right; font-size:90%; margin:0; padding: 0 0 0 1em;}
2016-03-21 16:15:26 -04:00
ul.classindex { columns: 2; -webkit-columns: 2; -moz-columns: 2; }
div.clear { clear:both; }
p.classinfo { margin: .25em 0;}
div.classdox { padding: .1em 1em;}
div.classdox p { margin: .5em 0 .5em .6em;}
div.classdox p { margin: .5em 0 .5em .6em;}
div.classdox { padding: .1em 1em;}
div.classdox p { margin: .5em 0 .5em .6em;}
table.classmembers { width: 100%; }
table.classmembers th { text-align:left; border-bottom:1px solid black; padding-top:1em; }
table.classmembers td.def { text-align:right; padding-right:.5em; white-space: nowrap;}
table.classmembers td.decl { text-align:left; padding-left:.5em; white-space: nowrap; }
table.classmembers td.doc { text-align:left; padding-left:.6em; line-height: 1.2em; font-size:80%;}
table.classmembers td.doc div.dox {background-color:#ddd; padding: .1em 1em;}
table.classmembers td.doc p { margin: .5em 0; }
table.classmembers td.doc p.para-brief { font-size:120%; }
table.classmembers td.doc p.para-returns { font-size:120%; }
table.classmembers td.doc dl { font-size:120%; line-height: 1.3em; }
table.classmembers td.doc dt { font-style: italic; }
table.classmembers td.fill { width: 99%;}
table.classmembers span.em { font-style: italic;}
2016-03-21 19:50:14 -04:00
span.functionname abbr { text-decoration:none; cursor:default;}
div.header {text-align:center;}
div.header h1 {margin:0;}
div.header p {margin:.25em;}
</style>
</head>
<body>
<div class="header">
<h1>Ardour Lua Bindings</h1>
<p>
<a href="#h_classes">Class Documentation</a>
&nbsp;|&nbsp;
<a href="#h_enum">Enum/Constants</a>
&nbsp;|&nbsp;
<a href="#h_index">Index</a>
</p>
</div>
<div class="content">
2016-03-21 16:15:26 -04:00
<h1 id="h_intro">Overview</h1>
<p>
The top-level entry point are <?=typelink('ARDOUR:Session')?> and <?=typelink('ArdourUI:Editor')?>.
2016-03-21 16:15:26 -04:00
Most other Classes are used indirectly starting with a Session function. e.g. Session:get_routes().
</p>
<p>
A few classes are dedicated to certain script types, e.g. Lua DSP processors have exclusive access to
<?=typelink('ARDOUR:DSP')?> and <?=typelink('ARDOUR:ChanMapping')?>. Action Hooks Scripts to
<?=typelink('LuaSignal:Set')?> etc.
</p>
<p>
Detailed documentation (parameter names, method description) is not yet available. Please stay tuned.
</p>
<h2>Short introduction to Ardour classes</h2>
<p>
Ardour's structure is object oriented. The main object is the Session. A Session contains Audio Tracks, Midi Tracks and Busses.
Audio and Midi tracks are derived from a more general "Track" Object, which in turn is derived from a "Route" (aka Bus).
(We say "An Audio Track <em>is-a</em> Track <em>is-a</em> Route").
Tracks contain specifics. For Example a track <em>has-a</em> diskstream (for file i/o).
</p>
<p>
Operations are performed on objects. One gets a reference to an object and then calls a method.
e.g obj = Session:route_by_name("Audio") obj:set_name("Guitar")
</p>
<p>
Object lifetimes are managed by the Session. Most Objects cannot be directly created, but one asks the Session to create or destroy them. This is mainly due to realtime constrains:
you cannot simply remove a track that is currently processing audio. There are various <em>factory</em> methods for object creation or removal.
</p>
2016-03-21 16:15:26 -04:00
<?php
echo '<h1 id="h_classes">Class Documentation</h1>'.NL;
foreach ($classlist as $ns => $cl) {
$dups = array ();
$tbl = format_class_members ($ns, $cl, $dups);
2016-03-21 16:15:26 -04:00
# format class title
if (empty ($tbl)) {
2016-03-21 19:50:14 -04:00
echo '<h2 id="'.htmlentities ($ns).'" class="cls opaque"><abbr title="Opaque Object">&empty;</abbr>&nbsp;'.htmlentities ($ns).'</h2>'.NL;
}
else if (isset ($classlist[$ns]['free'])) {
2016-03-21 19:50:14 -04:00
echo '<h2 id="'.htmlentities ($ns).'" class="cls freeclass"><abbr title="Namespace">&Nopf;</abbr>&nbsp;'.ctorname($ns).'</h2>'.NL;
}
else if (isset ($classlist[$ns]['arr'])) {
2016-03-21 19:50:14 -04:00
echo '<h2 id="'.htmlentities ($ns).'" class="cls array"><abbr title="C Array">&ctdot;</abbr>&nbsp;'.htmlentities ($ns).'</h2>'.NL;
}
else if (isset ($classlist[$ns]['ptr'])) {
2016-03-21 19:50:14 -04:00
echo '<h2 id="'.htmlentities ($ns).'" class="cls pointerclass"><abbr title="Pointer Class">&Rarr;</abbr>&nbsp;'. htmlentities ($ns).'</h2>'.NL;
} else {
echo '<h2 id="'.htmlentities ($ns).'" class="cls class"><abbr title="Class">&comp;</abbr>&nbsp;'.htmlentities ($ns).'</h2>'.NL;
}
if (isset ($cl['decl'])) {
echo '<p class="cdecl"><em>C&#8225;</em>: '.htmlentities ($cl['decl']).'</p>'.NL;
}
2016-03-21 16:15:26 -04:00
# print class inheritance
$inherited = array ();
2016-03-21 16:15:26 -04:00
$isa = traverse_parent ($ns, $inherited);
if (!empty ($isa)) {
echo ' <p class="classinfo">is-a: '.$isa.'</p>'.NL;
}
echo '<div class="clear"></div>'.NL;
echo format_doxyclass ($cl);
2016-03-21 16:15:26 -04:00
# member documentation
if (empty ($tbl)) {
echo '<p class="classinfo">This class object is only used indirectly as return-value and function-parameter. It provides no methods by itself.</p>'.NL;
} else {
echo '<table class="classmembers">'.NL;
echo $tbl;
echo ' </table>'.NL;
}
2016-03-21 16:15:26 -04:00
# traverse parent classes (inherited members)
foreach ($inherited as $pns => $pcl) {
$tbl = format_class_members ($pns, $pcl, $dups);
if (!empty ($tbl)) {
echo '<h3 class="cls">Inherited from '.$pns.'</h3>'.NL;
echo '<table class="classmembers">'.NL;
echo $tbl;
echo '</table>'.NL;
}
}
}
echo '<h1 id="h_enum">Enum/Constants</h1>'.NL;
foreach ($constlist as $ns => $cs) {
echo '<h2 id="'.ctorname ($ns).'" class="cls enum"><abbr title="Enum">&isin;</abbr>&nbsp;'.ctorname ($ns).'</h2>'.NL;
echo '<ul class="enum">'.NL;
foreach ($cs as $c) {
echo '<li class="const">'.ctorname ($c['lua']).'</li>'.NL;
}
echo '</ul>'.NL;
}
echo '<h1 id="h_index" >Class Index</h1>'.NL;
2016-03-21 16:15:26 -04:00
echo '<ul class="classindex">'.NL;
foreach ($classlist as $ns => $cl) {
2016-03-21 16:15:26 -04:00
echo '<li>'.typelink($ns).'</li>'.NL;
}
echo '</ul>'.NL;
fwrite (STDERR, "Found $dox_found annotations. missing: $dox_miss\n");
?>
</div>
</body>
</html>