Create Clownfish C API POD Create documentation for all Clownfish classes for now.
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/f50b736f Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/f50b736f Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/f50b736f Branch: refs/heads/documentation Commit: f50b736f9fd6caecc2ba475e345df650932c1b66 Parents: a3062c1 Author: Nick Wellnhofer <[email protected]> Authored: Sun Aug 31 15:20:48 2014 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Sun Aug 31 15:33:06 2014 +0200 ---------------------------------------------------------------------- runtime/perl/buildlib/Clownfish/Build/Binding.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/f50b736f/runtime/perl/buildlib/Clownfish/Build/Binding.pm ---------------------------------------------------------------------- diff --git a/runtime/perl/buildlib/Clownfish/Build/Binding.pm b/runtime/perl/buildlib/Clownfish/Build/Binding.pm index 98c7f0d..9e33a85 100644 --- a/runtime/perl/buildlib/Clownfish/Build/Binding.pm +++ b/runtime/perl/buildlib/Clownfish/Build/Binding.pm @@ -20,7 +20,8 @@ our $VERSION = '0.004000'; $VERSION = eval $VERSION; sub bind_all { - my $class = shift; + my ($class, $hierarchy, $binding) = @_; + $class->bind_clownfish; $class->bind_test; $class->bind_test_alias_obj; @@ -34,6 +35,14 @@ sub bind_all { $class->bind_varray; $class->bind_class; $class->bind_stringhelper; + + for my $class (@{ $hierarchy->ordered_classes }) { + next if $class->get_parcel->get_name ne 'Clownfish'; + my $c_api_pod = Clownfish::CFC::Binding::Perl::CPod->c_api_pod($class); + my $pod_name = $class->get_class_name; + $pod_name =~ s/^Clownfish::/Clownfish::Docs::C::/; + $binding->add_custom_pod($pod_name, $c_api_pod); + } } sub bind_clownfish {
