[mlir][emacs] Enable loading bytecode files as text

[jpienaar]

Summary

Use auto-compression-mode to read bytecode files in human readable
manner.

[okkwon]

It works great. Thanks!

[rriddle]

mlir/utils/emacs/mlir-mode.el

87

This will drop locations, which would be lossy.

[jpienaar]

mlir/utils/emacs/mlir-mode.el

87

Good point, adding location printing.

mlir/utils/emacs/mlir-mode.el

\\{mlir-mode-map}
   Runs `mlir-mode-hook' on startup."
   (setq font-lock-defaults `(mlir-font-lock-keywords))
   (setq-local comment-start "//"))
 
 ;; Associate .mlir files with mlir-mode
 ;;;###autoload
 (add-to-list 'auto-mode-alist (cons "\\.mlir\\'" 'mlir-mode))
 
+;; Set default value of opt-tool to use as mlir-opt.
+(defcustom mlir-opt "mlir-opt"
+  "Commandline MLIR opt tool to use."
+  :type 'string)
+
+;; Enable reading/writing .mlirbc files.
+(require 'jka-compr)
+(add-to-list 'jka-compr-compression-info-list
+  (vector "\\.mlirbc\\'"
+   "mlir-to-bytecode" mlir-opt (vector "--mlir-print-debuginfo" "--emit-bytecode" "-o" "-" "-")
+   "mlir-bytecode-to-text" mlir-opt (vector "--mlir-print-debuginfo")
+   nil nil "ML\357R"))
+(jka-compr-update)
+(auto-compression-mode t)
+(add-to-list 'auto-mode-alist (cons "\\.mlirbc\\'" 'mlir-mode))
+
 (provide 'mlir-mode)
 
 ;;; mlir-mode.el ends here