Function: semantic-grammar-package

semantic-grammar-package is a byte-compiled function defined in grammar.el.gz.

Signature

(semantic-grammar-package)

Documentation

Return the %package value as a string.

If there is no %package statement in the grammar, return a default package name derived from the grammar file name. For example, the default package name for the grammar file foo.wy is foo-wy, and for foo.by it is foo-by.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-package ()
  "Return the %package value as a string.
If there is no %package statement in the grammar, return a default
package name derived from the grammar file name.  For example, the
default package name for the grammar file foo.wy is foo-wy, and for
foo.by it is foo-by."
  (or (semantic-grammar-first-tag-name 'package)
      (let* ((file (semantic-grammar-buffer-file))
             (ext  (file-name-extension file))
             (i    (string-match (format "\\([.]\\)%s\\'" ext) file)))
        (concat (substring file 0 i) "-" ext))))