The Meta-Environment API
<!-- Generated by Doxygen 1.4.6 -->
<div class="tabs">
  <ul>
    <li><a href="main.html"><span>Main&nbsp;Page</span></a></li>
    <li id="current"><a href="files.html"><span>Files</span></a></li>
    <li><a href="dirs.html"><span>Directories</span></a></li>
  </ul></div>
<div class="tabs">
  <ul>
    <li><a href="files.html"><span>File&nbsp;List</span></a></li>
    <li><a href="globals.html"><span>Globals</span></a></li>
  </ul></div>
<div class="nav">
<a class="el" href="dir_909eb44f5fb74972b28b1d2430361c27.html">tbscripts</a></div>
<h1>config-utils.tb</h1><a href="config-utils_8tb.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="preprocessor">#ifndef __CONFIG_UTILS__</span>
<a name="l00002"></a>00002 <span class="preprocessor"></span><span class="preprocessor">#define __CONFIG_UTILS__</span>
<a name="l00003"></a>00003 <span class="preprocessor"></span>
<a name="l00004"></a>00004 <span class="preprocessor">#include &lt;<a class="code" href="io-utils_8tb.html">io-utils.tb</a>&gt;</span>
<a name="l00005"></a>00005 <span class="preprocessor">#include &lt;configuration-manager.idef&gt;</span>
<a name="l00006"></a>00006 
<a name="l00007"></a><a class="code" href="config-utils_8tb.html#f7b08459a0040daf1a73469a1c56563a">00007</a> <span class="preprocessor">#define EMPTY_PATH ""</span>
<a name="l00008"></a>00008 <span class="preprocessor"></span>
<a name="l00009"></a>00009 process GetSearchPaths(Paths: list?) is
<a name="l00010"></a>00010   snd-msg(cm-get-module-paths)
<a name="l00011"></a>00011   . rec-msg(cm-module-paths(Paths?))
<a name="l00012"></a>00012 
<a name="l00013"></a>00013 process LocateFile(Modulename: str, Extension: str, Path: str?) is
<a name="l00014"></a>00014 let
<a name="l00015"></a>00015   Directory: str,
<a name="l00016"></a>00016   Directories: list,
<a name="l00017"></a>00017   ExtraModules : list
<a name="l00018"></a>00018 in
<a name="l00019"></a>00019   snd-msg(cm-get-module-paths)
<a name="l00020"></a>00020   . rec-msg(cm-module-paths(Directories?))
<a name="l00021"></a>00021   . snd-msg(io-find-file(Directories, Modulename, Extension))
<a name="l00022"></a>00022   .
<a name="l00023"></a>00023   (
<a name="l00024"></a>00024     rec-msg(io-file-not-found)
<a name="l00025"></a>00025     . Path := ""
<a name="l00026"></a>00026   +
<a name="l00027"></a>00027     rec-msg(io-file-found(Directories?))
<a name="l00028"></a>00028     . Directory := first(Directories)
<a name="l00029"></a>00029     . Directories := next(Directories)
<a name="l00030"></a>00030     .
<a name="l00031"></a>00031     if not-equal(Directories, []) then
<a name="l00032"></a>00032       DealWithMultipleOccurrences(Directory, Modulename, Extension, Directories)
<a name="l00033"></a>00033     else
<a name="l00034"></a>00034       tau
<a name="l00035"></a>00035     fi
<a name="l00036"></a>00036     . BuildPath(Directory, Modulename, Extension, Path?)
<a name="l00037"></a>00037   )
<a name="l00038"></a>00038 endlet
<a name="l00039"></a>00039 
<a name="l00040"></a>00040 <span class="preprocessor">#endif </span><span class="comment">/* __CONFIG_UTILS__ */</span>
</pre></div><hr size="1"><address style="align: right;"><small>Generated on Fri Sep 12 13:08:53 2008 for meta by&nbsp;
<a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.4.6 </small></address>
</body>
</html>