<br><br><div class="gmail_quote">2009/2/26 Francis Bond <span dir="ltr"><<a href="mailto:fcbond@gmail.com">fcbond@gmail.com</a>></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'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 (&optional dir)<br> (setf dir (cond (dir (get-directory-name dir))<br>#+:allegro ((sys:getenv "LKB_OUTPUT_DIR")<br> (get-directory-name (sys:getenv "LKB_OUTPUT_DIR")))<br>
(t "./")))<br> (output-types :tdl (concatenate 'string dir "exp-types.tdl"))<br> (output-lex :tdl (concatenate 'string dir "exp-lexicon.tdl")<br> *lex-ids-used*)<br>
(output-grules :tdl (concatenate 'string dir "exp-grules.tdl")))<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 <<a href="http://www2.nict.go.jp/x/x161/en/member/bond/">http://www2.nict.go.jp/x/x161/en/member/bond/</a>><br>NICT Language Infrastructure Group<br>