(i (string-match (format "\\([.]\\)%s\\'" ext) file)))
(concat (substring file 0 i) "-" ext))))
-(defun semantic-grammar-expected-conflicts ()
- "Return the number of expected shift/reduce conflicts in the package."
- (let ((conflicts (semantic-grammar-tag-symbols 'expectedconflicts)))
- (if conflicts
- (string-to-number conflicts)
- 0)))
-
(defsubst semantic-grammar-languagemode ()
"Return the %languagemode value as a list of symbols or nil."
(semantic-grammar-tag-symbols 'languagemode))
(vc-handled-backends nil))
(setq semanticdb-new-database-class 'semanticdb-project-database)
(semantic-mode 1)
- (semantic-grammar-create-package t)))
+ (semantic-grammar-create-package)))
(error
(message "%s" (error-message-string err))
nil))))
;;; Code:
(require 'semantic/wisent)
-(require 'semantic/grammar)
(eval-when-compile (require 'cl-lib))
\f
;;;; -------------------
(let* ((src (wisent-source))
(src (if src (concat " in " src) ""))
(msg (format "Grammar%s contains" src)))
- (when (and (> src-total 0)
- (not (= rrc-total (semantic-grammar-expected-conflicts))))
- (setq msg (format "%s %d shift/reduce conflict%s"
- msg src-total (if (> src-total 1)
- "s" ""))))
+ (if (> src-total 0)
+ (setq msg (format "%s %d shift/reduce conflict%s"
+ msg src-total (if (> src-total 1)
+ "s" ""))))
(if (and (> src-total 0) (> rrc-total 0))
(setq msg (format "%s and" msg)))
(if (> rrc-total 0)
- (setq msg (format "%s %d reduce/reduce conflict%s"
- msg rrc-total (if (> rrc-total 1)
- "s" ""))))
+ (setq msg (format "%s %d reduce/reduce conflict%s"
+ msg rrc-total (if (> rrc-total 1)
+ "s" ""))))
(message msg))))
(defun wisent-print-conflicts ()