<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Findlib" rel="Chapter" href="Findlib.html"> <link title="Fl_package_base" rel="Chapter" href="Fl_package_base.html"> <link title="Fl_metascanner" rel="Chapter" href="Fl_metascanner.html"> <link title="Topfind" rel="Chapter" href="Topfind.html"><title>The Findlib Library : Fl_metascanner</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> formal_pred = [ <span class="keywordsign">`</span><span class="constructor">NegPred</span> <span class="keyword">of</span> string <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Pred</span> <span class="keyword">of</span> string ]<br> <span class="keyword">type</span> flavour = [ <span class="keywordsign">`</span><span class="constructor">Appendix</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BaseDef</span> ]<br> <span class="keyword">type</span> pkg_definition = {<br> def_var : string;<br> def_flav : <span class="constructor">Fl_metascanner</span>.flavour;<br> def_preds : <span class="constructor">Fl_metascanner</span>.formal_pred list;<br> def_value : string;<br> }<br> <span class="keyword">type</span> pkg_expr = {<br> pkg_defs : <span class="constructor">Fl_metascanner</span>.pkg_definition list;<br> pkg_children : (string * <span class="constructor">Fl_metascanner</span>.pkg_expr) list;<br> }<br> <span class="keyword">val</span> parse : <span class="constructor">Pervasives</span>.in_channel <span class="keywordsign">-></span> <span class="constructor">Fl_metascanner</span>.pkg_expr<br> <span class="keyword">val</span> print : <span class="constructor">Pervasives</span>.out_channel <span class="keywordsign">-></span> <span class="constructor">Fl_metascanner</span>.pkg_expr <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> lookup :<br> string <span class="keywordsign">-></span> string list <span class="keywordsign">-></span> <span class="constructor">Fl_metascanner</span>.pkg_definition list <span class="keywordsign">-></span> string<br> <span class="keyword">end</span></code></body></html>