aboutsummaryrefslogtreecommitdiffstats
path: root/doc
diff options
context:
space:
mode:
Diffstat (limited to 'doc')
-rwxr-xr-xdoc/devel/build-eplugin-manual.pl124
1 files changed, 124 insertions, 0 deletions
diff --git a/doc/devel/build-eplugin-manual.pl b/doc/devel/build-eplugin-manual.pl
new file mode 100755
index 0000000000..6608c876e5
--- /dev/null
+++ b/doc/devel/build-eplugin-manual.pl
@@ -0,0 +1,124 @@
+#!/usr/bin/perl
+
+#
+# API reference
+#
+
+%byref = ( 'e-popup.xml' =>
+ { 'files' => [ 'e-popup.h', 'e-popup.c' ],
+ 'module' => 'e-util' },
+
+ 'e-menu.xml' =>
+ { 'files' => [ 'e-menu.h', 'e-menu.c' ],
+ 'module' => 'e-util' },
+
+ 'e-event.xml' =>
+ { 'files' => [ 'e-event.h', 'e-event.c' ],
+ 'module' => 'e-util' },
+
+ 'e-config.xml' =>
+ { 'files' => [ 'e-config.h', 'e-config.c' ],
+ 'module' => 'e-util' },
+
+ 'e-plugin.xml' =>
+ { 'files' => [ 'e-plugin.h', 'e-plugin.c' ],
+ 'module' => 'e-util' },
+
+ 'em-popup.xml' =>
+ { 'files' => [ 'em-popup.h', 'em-popup.c' ],
+ 'module' => 'mail' },
+
+ 'em-format.xml' =>
+ { 'files' => [ 'em-format-hook.h' , 'em-format-hook.c',
+ 'em-format.h', 'em-format.c',
+ 'em-format-html.h', 'em-format-html.c' ],
+ 'module' => 'mail' },
+ );
+
+foreach $out (keys %byref) {
+ print "file $out\n";
+ %data = %{$byref{$out}};
+ @files = @{$data{'files'}};
+ $module = $data{'module'};
+ $files = "";
+ foreach $file (@files) {
+ $files .= " ../../".$module."/".$file;
+ }
+ system("kernel-doc -docbook $files > $out");
+}
+
+#
+# Event reference
+#
+
+%events = ( 'em-events.xml' =>
+ { 'files' => [ 'em-folder-view.c', 'em-composer-utils.c', 'mail-folder-cache.c' ],
+ 'module' => 'mail' },
+ );
+
+foreach $out (keys %events) {
+ print "generating events doc $out\n";
+ %data = %{$events{$out}};
+ @files = @{$data{'files'}};
+ $module = $data{'module'};
+ open OUT,">$out";
+ foreach $file (@files) {
+ open IN,"<../../$module/$file";
+ while (<IN>) {
+ if (m/\@Event: (.*)/) {
+ $title = $1;
+ $name = $1;
+ $target = "";
+ while (<IN>) {
+ if (m/\@Title: (.*)/) {
+ $title = $1;
+ } elsif (m/\@Target: (.*)/) {
+ $target = $1;
+ } elsif (m/\* (.*)/) {
+ $desc.= $1."\n";
+ }
+ last if (m/\*\//);
+ }
+ if ($target eq "") {
+ print "Warning: No target defined for event $name ($title)\n";
+ }
+ print OUT <<END;
+ <sect2>
+ <title>$title</title>
+ <informaltable>
+ <tgroup cols="2">
+ <colspec colnum="1" colname="field" colwidth="1*"/>
+ <colspec colnum="2" colname="value" colwidth="4*"/>
+ <tbody valign="top">
+ <row>
+ <entry>Name</entry>
+ <entry><constant>$name</constant></entry>
+ </row>
+ <row>
+ <entry>Target</entry>
+ <entry>
+ <link
+ linkend="$module-hooks-event-$target">$target</link>
+ </entry>
+ </row>
+ <row>
+ <entry>Description</entry>
+ <entry>
+ <simpara>
+ $desc
+ </simpara>
+ </entry>
+ </row>
+ </tbody>
+ </tgroup>
+ </informaltable>
+ </sect2>
+END
+ }
+ }
+ close IN;
+ }
+ close OUT;
+
+}
+