Parse xs files for xsub signatures and pod. Writes to standard output a
data structure suitable for evaling in another Perl script, describing
all the stuff found. The output contains three variables:
FYI, this creates a new parser and calls parse_file on it for each input filename; then calls swizzle_pods to ensure that any =for apidoc name pods are matched up with their target xsubs; and finally calls Data::Dumper to write the data to stdout. So, if you want to get finer control over how the output is created, or keep all the data in-process, now you know how. :-)
$Glib::ParseXSDoc::verbose If true, this causes the parser to be verbose. $parser = Glib::ParseXSDoc->new Create a new xsub parser. string = $parser->package Get the current package name. Falls back to the module name. Will be undef if the parser hasnt reached the first MODULE line. HASHREF = $parser->pkgdata The data hash corresponding to the current package, honoring the most recently encountered =for object directive. Ensures that it exists. Returns a reference to the member of the main data structure, so modifications are permanent and useful. $parser->parse_file (filename) Parse one xs file. Stores all the collected data in $parsers internal data structures. $parser->swizzle_pods Match =for apidoc pods to xsubs. $parser->preprocess_pods Honor the __hide__ and __function__ directives in =for apidoc lines.
We look for the strings anywhere, but youll typically have it at the end of the line, e.g.:
=for apidoc symname __hide__ for detached blocks =for apidoc __hide__ for attached blocks =for apidoc symname __function__ for functions rather than methods =for apidoc __function__ for functions rather than methods
bool = $parser->is_module_line ($line) Analyze $line to see if it contains an XS MODULE directive. If so, returns true after setting the $parsers module, package, and prefix accordingly. $pod = $parser->slurp_pod_paragraph ($firstline, $term_regex=/^=cut\s*/) Slurp up POD lines from $filehandle from here to the next $term_regex or EOF. Since you probably already read a line to determine that we needed to start a pod, you can pass that first line to be included. $xsub = $parser->parse_xsub (\@lines) $xsub = $parser->parse_xsub (@lines) Parse an xsub header, in the form of a list of lines, into a data structure describing the xsub. That includes pulling out the argument types, aliases, and code type.
Without artificial intelligence, we cannot reliably determine anything about the types or number of parameters returned from xsubs with PPCODE bodies.
OUTLIST parameters are pulled from the args list and put into an outlist key. IN_OUTLIST parameters are put into both.
Data type names are not mangled at all.
Note that the method can take either a list of lines or a reference to a list of lines. The flat list form is provided for compatibility; the reference form is preferred, to avoid duplicating a potentially large list of strings.
$parser->clean_out_empty_pods Looks through the data member of the parser and removes any keys (and associated values) when no pod, enums, and xsubs exist for the package.
muppet <scott at asofyet dot org>
Copyright (C) 2003, 2004 by muppet
This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.
You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|perl v5.20.3||GLIB::PARSEXSDOC (3)||2015-07-12|