/usr/share/doc/libopentoken4-dev/examples/wisi/test/generate-known-good.el is in libopentoken4-dev 5.0a-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ;; Generate a wisent parser table, output as elisp to compare with
;; OpenToken generated version.
;; set up for calling `semantic-grammar-create-package'
(add-to-list 'load-path "../../../org.emacs.ada-mode.smie"); wisi.el
(add-to-list 'load-path "."); *-wy.el
(require 'cl)
(require 'semantic/wisent/comp)
(defun wisi-generate (&optional file)
(let* ((file (or file (car command-line-args-left))))
(unless (and file (file-exists-p file))
(error "Argument %s is not a valid file name" file))
(condition-case err
(with-current-buffer (find-file-noselect file)
(semantic-mode)
(let ((packagename (semantic-grammar-create-package))
(wisent-verbose-flag t))
(when (file-exists-p "wisent.output")
(delete-file "wisent.output"))
(load packagename);; generates wisent.output
))
(error
(message "%s" (error-message-string err))
nil))))
;;;; end of file
|