<br><br><div class="gmail_quote">2009/2/26 Francis Bond <span dir="ltr">&lt;<a href="mailto:fcbond@gmail.com">fcbond@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
G&#39;day,<br><br>we want to use the KRG, which uses defaults, with PET.  Does anyone know how to dump a version of the grammar with the defaults expanded out so that we can flop it?<font color="#888888"></font></blockquote>
<div><br>Actually, I have asked this before, and was pointed to <span> io-general/outputsrc.lsp.
</span><br><br>I think we need something like:<br><br> (defun output-all-for-pet (&amp;optional dir)<br>  (setf dir (cond (dir (get-directory-name dir))<br>#+:allegro        ((sys:getenv &quot;LKB_OUTPUT_DIR&quot;)<br>           (get-directory-name (sys:getenv &quot;LKB_OUTPUT_DIR&quot;)))<br>
          (t &quot;./&quot;)))<br>  (output-types :tdl (concatenate &#39;string dir &quot;exp-types.tdl&quot;))<br>  (output-lex :tdl (concatenate &#39;string dir &quot;exp-lexicon.tdl&quot;)<br>                          *lex-ids-used*)<br>
  (output-grules :tdl (concatenate &#39;string dir &quot;exp-grules.tdl&quot;)))<br clear="all"> </div></div>So, unless anyone has done this recently and knows all the answers, we can probably forge ahead with this for now, ...<br>
<br>-- <br>Francis Bond &lt;<a href="http://www2.nict.go.jp/x/x161/en/member/bond/">http://www2.nict.go.jp/x/x161/en/member/bond/</a>&gt;<br>NICT Language Infrastructure Group<br>