Hi Eric,
How are you? It seems that CEDET things are very calm these days ;-)
I worked a little on Wisent and checked changes in to wisent.el,
wisent.texi and wisent-java-tags.el. Also I submit you a small patch
(at the end of this message) to semantic-bnf.el that I would like to
check in.
Here is the change log:
* wisent.el:
Moved doc from header comments into file wisent.texi.
(wisent-reduce-action): Explicitly bind `$regionI' variables.
(wisent-build-tables): Removed optional argument STREAM.
(wisent-process-grammar): Ditto.
(wisent-compile-grammar): Ditto.
(wisent-process-grammar, wisent-compile-grammar, wisent-nerrs,
wisent-lookahead, wisent-errok, wisent-clearin, wisent-parse): Updated
doc string.
* wisent.texi:
(@defun wisent-compile-grammar): Removed optional argument STREAM.
Doc fixes.
(@defun wisent-parse): Doc fixes.
* wisent-java-tags.el:
(wisent-java-parser-tables): Regenerated.
* semantic-bnf.el:
(semantic-bnf-to-lalr-EXPANDTHING): No more bind `$regionI'
variables. Use existing ones instead.
And the patch to semantic-bnf.el:
*** semantic-bnf.el.ori Mon Jan 14 15:27:22 2002
--- semantic-bnf.el Mon Jan 14 15:27:53 2002
***************
*** 537,555 ****
$I is the placeholder value to expand.
NONTERM is the nonterminal symbol to start with.
EXPANDER is the Semantic function called to expand NONTERM"
! (let ((i (and (symbolp $i)
! (string-match "^[$]\\([1-9][0-9]*\\)$"
! (symbol-name $i))
! (string-to-int
! (match-string 1 (symbol-name $i)))))
! v)
! (if (not i)
! nil
! (setq v (intern (format "$region%d" i))
! i (1+ (* 2 (1- i))))
! `(let ((,v (cdr (aref stack (- sp ,i)))))
! (if ,v
! (,expander (car ,v) (cdr ,v) ',nonterm))))))
(defun semantic-bnf-to-lalr-EXPAND ($i nonterm)
"Return expansion of built-in EXPAND expression.
--- 537,547 ----
$I is the placeholder value to expand.
NONTERM is the nonterminal symbol to start with.
EXPANDER is the Semantic function called to expand NONTERM"
! (let* ((n (symbol-name $i))
! ($ri (and (string-match "^[$]\\([1-9][0-9]*\\)$" n)
! (intern (concat "$region" (match-string 1 n))))))
! (if $ri
! `(,expander (car ,$ri) (cdr ,$ri) ',nonterm))))
(defun semantic-bnf-to-lalr-EXPAND ($i nonterm)
"Return expansion of built-in EXPAND expression.
Hope to read you soon ;-)
Sincerely,
David
|