[CEDET-devel] semantic-flex

[David P. <dav...@wa...>]

Hi Eric,

I submit you the following patch for document.el and semantic-lex.el
to fix some doc strings and make `semantic-lex' the default
`semantic-lex-analyzer' in place of the obsolete `semantic-flex'.

Maybe is it time to remove all that old semantic-flex code from
semantic-lex.el?  IMO it is no more used and I am not sure
`semantic-flex' will work well in Semantic 2.

Thoughts?

David

2004-02-17  David Ponce  <da...@dp...>

=09* cedet/semantic/document.el

=09(document-update-history): Fix doc string.
=09(document-update-paramlist): Likewise.

=09* cedet/semantic/semantic-lex.el

=09(semantic-lex-analyzer): Default to `semantic-lex'.

Index: semantic/document.el
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/cedet/cedet/semantic/document.el,v
retrieving revision 1.20
diff -c -r1.20 document.el
*** semantic/document.el=0931 Aug 2003 00:00:21 -0000=091.20
--- semantic/document.el=0917 Feb 2004 13:34:13 -0000
***************
*** 1,6 ****
  ;;; document.el --- Use the bovinator to aid in generating documentation.
 =20
! ;;; Copyright (C) 2000, 2001, 2002, 2003 Eric M. Ludlam
 =20
  ;; Author: Eric M. Ludlam <za...@gn...>
  ;; Keywords: doc
--- 1,6 ----
  ;;; document.el --- Use the bovinator to aid in generating documentation.
 =20
! ;;; Copyright (C) 2000, 2001, 2002, 2003, 2004 Eric M. Ludlam
 =20
  ;; Author: Eric M. Ludlam <za...@gn...>
  ;; Keywords: doc
***************
*** 550,556 ****
  ;;
  (defun document-update-history (comment history)
    "Update COMMENT with the text HISTORY.
! COMMENT is a flex token."
    (let ((endpos 0))
      (save-excursion
        (goto-char (semantic-lex-token-end comment))
--- 550,556 ----
  ;;
  (defun document-update-history (comment history)
    "Update COMMENT with the text HISTORY.
! COMMENT is a `semantic-lex' token."
    (let ((endpos 0))
      (save-excursion
        (goto-char (semantic-lex-token-end comment))
***************
*** 583,589 ****
  =09(t (format "%s" arg))))
 =20
  (defun document-update-paramlist (tag comment)
!   "Update TAG's comment found in the flex token COMMENT."
    (let ((endpos 0) st en (il nil)
  =09(case-fold-search nil)
  =09(l (semantic-tag-function-arguments tag)))
--- 583,589 ----
  =09(t (format "%s" arg))))
 =20
  (defun document-update-paramlist (tag comment)
!   "Update TAG's comment found in the `semantic-lex' token COMMENT."
    (let ((endpos 0) st en (il nil)
  =09(case-fold-search nil)
  =09(l (semantic-tag-function-arguments tag)))
Index: semantic/semantic-lex.el
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/cedet/cedet/semantic/semantic-lex.el,v
retrieving revision 1.33
diff -c -r1.33 semantic-lex.el
*** semantic/semantic-lex.el=0912 Feb 2004 02:04:59 -0000=091.33
--- semantic/semantic-lex.el=0917 Feb 2004 13:34:13 -0000
***************
*** 299,308 ****
      types))
  =0C
  ;;;###autoload
! (defvar semantic-lex-analyzer 'semantic-flex
    "The lexical analyzer used for a given buffer.
! See `semantic-lex' for documentation.
! For compatibility with Semantic 1.x it defaults to `semantic-flex'.")
  (make-variable-buffer-local 'semantic-lex-analyzer)
 =20
  (defvar semantic-lex-tokens
--- 299,307 ----
      types))
  =0C
  ;;;###autoload
! (defvar semantic-lex-analyzer 'semantic-lex
    "The lexical analyzer used for a given buffer.
! See `semantic-lex' for documentation.")
  (make-variable-buffer-local 'semantic-lex-analyzer)
 =20
  (defvar semantic-lex-tokens