vasilito
cb424d7448
verify-patch-sanity.py validates every active recipe .patch has internally- consistent hunk line counts — catching the 'malformed patch at line N' failure at commit/CI/preflight time instead of hours into a cook. This cycle hit that class three times (qtwaylandscanner, sddm, xwayland), each only discovered when cookbook tried to apply the patch. Running it across the repo found 29 latent malformed patches (validated against GNU patch: e.g. relibc/P3-sysv-ipc reproduces 'malformed patch at line 22'). They were harmless only because they sit in vendored recipes (baked, not re- applied) — but would fail on any version-bump re-derivation. --fix recounts the hunk headers (body untouched) and repaired all 29. Wired into build-preflight.sh (Phase 1.0D) and redbear-ci.yml, with a unit test (test-patch-sanity.sh). Skips archived/legacy trees and unvalidatable formats (empty placeholders, bare-@@ git hunks).
131 lines
4.9 KiB
EmacsLisp
131 lines
4.9 KiB
EmacsLisp
;;; tablegen-mode.el --- Major mode for TableGen description files (part of LLVM project)
|
|
|
|
;; Maintainer: The LLVM team, http://llvm.org/
|
|
;; Version: 1.0
|
|
|
|
;;; Commentary:
|
|
;; A major mode for TableGen description files in LLVM.
|
|
|
|
(require 'comint)
|
|
(require 'custom)
|
|
(require 'ansi-color)
|
|
|
|
;; Create mode-specific tables.
|
|
;;; Code:
|
|
|
|
(defvar td-decorators-face 'td-decorators-face
|
|
"Face method decorators.")
|
|
(make-face 'td-decorators-face)
|
|
|
|
(defvar tablegen-font-lock-keywords
|
|
(let ((kw (regexp-opt '("class" "defm" "def" "field" "include" "in"
|
|
"let" "multiclass" "foreach" "if" "then" "else"
|
|
"defvar" "defset" "dump" "assert")
|
|
'words))
|
|
(type-kw (regexp-opt '("bit" "bits" "code" "dag" "int" "list" "string")
|
|
'words))
|
|
)
|
|
(list
|
|
;; Comments
|
|
;; '("\/\/" . font-lock-comment-face)
|
|
;; Strings
|
|
'("\"[^\"]+\"" . font-lock-string-face)
|
|
;; Hex constants
|
|
'("\\<0x[0-9A-Fa-f]+\\>" . font-lock-preprocessor-face)
|
|
;; Binary constants
|
|
'("\\<0b[01]+\\>" . font-lock-preprocessor-face)
|
|
;; Integer literals
|
|
'("\\<[-]?[0-9]+\\>" . font-lock-preprocessor-face)
|
|
;; Floating point constants
|
|
'("\\<[-+]?[0-9]+\.[0-9]*\([eE][-+]?[0-9]+\)?\\>" . font-lock-preprocessor-face)
|
|
|
|
'("^[ \t]*\\(@.+\\)" 1 'td-decorators-face)
|
|
;; Keywords
|
|
kw
|
|
;; Type keywords
|
|
type-kw
|
|
))
|
|
"Additional expressions to highlight in TableGen mode.")
|
|
(put 'tablegen-mode 'font-lock-defaults '(tablegen-font-lock-keywords))
|
|
|
|
;; ---------------------- Syntax table ---------------------------
|
|
|
|
(defvar tablegen-mode-syntax-table nil
|
|
"Syntax table used in `tablegen-mode' buffers.")
|
|
(when (not tablegen-mode-syntax-table)
|
|
(setq tablegen-mode-syntax-table (make-syntax-table))
|
|
;; whitespace (` ')
|
|
(modify-syntax-entry ?\ " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\t " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\r " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\n " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\f " " tablegen-mode-syntax-table)
|
|
;; word constituents (`w')
|
|
(modify-syntax-entry ?\% "w" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\_ "w" tablegen-mode-syntax-table)
|
|
;; comments
|
|
(modify-syntax-entry ?/ ". 124b" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?* ". 23" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\n "> b" tablegen-mode-syntax-table)
|
|
;; open paren (`(')
|
|
(modify-syntax-entry ?\( "(" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\[ "(" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\{ "(" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\< "(" tablegen-mode-syntax-table)
|
|
;; close paren (`)')
|
|
(modify-syntax-entry ?\) ")" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\] ")" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\} ")" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\> ")" tablegen-mode-syntax-table)
|
|
;; string quote ('"')
|
|
(modify-syntax-entry ?\" "\"" tablegen-mode-syntax-table)
|
|
)
|
|
|
|
;; --------------------- Abbrev table -----------------------------
|
|
|
|
(defvar tablegen-mode-abbrev-table nil
|
|
"Abbrev table used while in TableGen mode.")
|
|
(define-abbrev-table 'tablegen-mode-abbrev-table ())
|
|
|
|
(defvar tablegen-mode-hook nil)
|
|
(defvar tablegen-mode-map nil) ; Create a mode-specific keymap.
|
|
|
|
(if (not tablegen-mode-map)
|
|
() ; Do not change the keymap if it is already set up.
|
|
(setq tablegen-mode-map (make-sparse-keymap))
|
|
(define-key tablegen-mode-map "\t" 'tab-to-tab-stop)
|
|
(define-key tablegen-mode-map "\es" 'center-line)
|
|
(define-key tablegen-mode-map "\eS" 'center-paragraph))
|
|
|
|
;;;###autoload
|
|
(defun tablegen-mode ()
|
|
"Major mode for editing TableGen description files.
|
|
\\{tablegen-mode-map}
|
|
Runs `tablegen-mode-hook' on startup."
|
|
(interactive)
|
|
(kill-all-local-variables)
|
|
(use-local-map tablegen-mode-map) ; Provides the local keymap.
|
|
(make-local-variable 'font-lock-defaults)
|
|
(setq major-mode 'tablegen-mode ; This is how describe-mode
|
|
; finds the doc string to print.
|
|
mode-name "TableGen" ; This name goes into the modeline.
|
|
local-abbrev-table tablegen-mode-abbrev-table
|
|
font-lock-defaults `(tablegen-font-lock-keywords)
|
|
require-final-newline t
|
|
)
|
|
|
|
(set-syntax-table tablegen-mode-syntax-table)
|
|
(make-local-variable 'comment-start)
|
|
(setq comment-start "//")
|
|
(setq indent-tabs-mode nil)
|
|
(run-hooks 'tablegen-mode-hook)) ; Finally, this permits the user to
|
|
; customize the mode with a hook.
|
|
|
|
;; Associate .td files with tablegen-mode
|
|
;;;###autoload
|
|
(add-to-list 'auto-mode-alist (cons (purecopy "\\.td\\'") 'tablegen-mode))
|
|
|
|
(provide 'tablegen-mode)
|
|
|
|
;;; tablegen-mode.el ends here
|