| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\307\304\317\320&\210\311\321\313\314\322DD\323\307\304\317\324&\210\311\325\313\314\326DD\327\307\304\317\330&\210\311\331\313\314\332DD\333\317\324%\207" [require cl-lib doc-view custom-declare-group x86-lookup nil "Options for x86 instruction set lookup." :group extensions custom-declare-variable x86-lookup-pdf funcall function #[0 "\300\207" [nil] 1] "Path to Intel's manual containing the instruction set reference." :type (choice (const nil) (file :must-match t)) x86-lookup-pdftotext-program #[0 "\300\207" [#1="pdftotext"] 1 #1#] "Path to pdftotext, part of Popper." string x86-lookup-browse-pdf-function #[0 "\300\207" [x86-lookup-browse-pdf-any] 1] "A function that launches a PDF viewer at a specific page.\nThis function accepts two arguments: filename and page number." (choice (function-item :tag "First suitable PDF reader" :value x86-lookup-browse-pdf-any) (function-item :tag "Evince" :value x86-lookup-browse-pdf-evince) (function-item :tag "Xpdf" :value x86-lookup-browse-pdf-xpdf) (function-item :tag "Okular" :value x86-lookup-browse-pdf-okular) (function-item :tag "gv" :value x86-lookup-browse-pdf-gv) (function-item :tag "zathura" :value x86-lookup-browse-pdf-zathura) (function-item :tag "MuPDF" :value x86-lookup-browse-pdf-mupdf) (function-item :tag "Sumatra PDF" :value x86-lookup-browse-pdf-sumatrapdf) (function-item :tag "browse-url" :value x86-lookup-browse-pdf-browser) (function :tag "Your own function")) x86-lookup-cache-directory #[0 "\300\301!\206 \300\302!\206 \303\304\305\"\207" [getenv "XDG_CACHE_HOME" "LocalAppData" "~/.cache" expand-file-name "x86-lookup"] 4] "Directory where the PDF mnemonic index with be cached."] 8) | |
| 17 | #@45 Alist mapping instructions to page numbers. | |
| 18 | (defvar x86-lookup-index nil (#$ . 2175)) | |
| 19 | #@50 How to expand mnemonics into multiple mnemonics. | |
| 20 | (defvar x86-lookup--expansions '(("^PREFETCH\\(h\\)$" #1="" "nta" "t0" "t1" "t2") ("^J\\(cc\\)$" "a" "ae" "b" "be" "c" "cxz" "e" "ecxz" "g" "ge" "l" "le" "na" "nae" "nb" "nbe" "nc" "ne" "ng" "nge" "nl" "nle" "no" "np" "ns" "nz" "o" "p" "pe" "po" "rcxz" "s" "z") ("^SET\\(cc\\)$" "a" "ae" "b" "be" "c" "e" "g" "ge" "l" "le" "na" "nae" "nb" "nbe" "nc" "ne" "ng" "nge" "nl" "nle" "no" "np" "ns" "nz" "o" "p" "pe" "po" "s" "z") ("^CMOV\\(cc\\)$" "a" "ae" "b" "be" "c" "e" "g" "ge" "l" "le" "na" "nae" "nb" "nbe" "nc" "ne" "ng" "nge" "nl" "nle" "no" "np" "ns" "nz" "o" "p" "pe" "po" "s" "z") ("^FCMOV\\(cc\\)$" "b" "e" "be" "u" "nb" "ne" "nbe" "nu") ("^LOOP\\(cc\\)$" "e" "ne") ("^VBROADCAST\\(\\)$" #1# "ss" "sd" "f128") ("^VMASKMOV\\(\\)$" #1# "ps" "pd") ("^VPBROADCAST\\(\\)$" #1# "b" "w" "d" "q" "I128") ("^VPMASKMOV\\(\\)$" #1# "d" "q") ("\\(\\)" #1#)) (#$ . 2267)) | |
| 21 | #@87 Expand string of PDF-sourced mnemonics into user-friendly mnemonics. | |
| 22 | ||
| 23 | (fn NAMES PAGE) | |
| 24 | (defalias 'x86-lookup--expand #[514 "\302\303\304 \305\306\307\310\311!\312\"\313$\216\314\315\"\302\211\211\211\211:\203t @\262\316\317\320#\262\321 \322 $\262\211A\262\242\262\302\211\211:\203d @\262\323\302\211 \324%\262\227BB\262A\262\202A \211\237\266\204\237\244\262A\262\202 \211\237\266\206)\262)\207" [case-fold-search x86-lookup--expansions nil #[514 "\300\"\207" [string-match] 5 "\n\n(fn S RE)"] match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 split-string " */ *" replace-regexp-in-string " .+$" "" cl-assoc :test replace-match 1] 21 (#$ . 3188)]) | |
| 25 | #@163 Create an index alist from PDF mapping mnemonics to page numbers. | |
| 26 | This function requires the pdftotext command line program. | |
| 27 | ||
| 28 | (fn &optional (PDF x86-lookup-pdf)) | |
| 29 | (defalias 'x86-lookup-create-index #[128 "\211\203 \211A\262\242\202 \203 \305\306\307GTD\"\210\310\311\211\312\313\314!r\211q\210\315\316\317\320\321!\322\"\323$\216\324\f\325\312\325\326!\327&\210eb\210\3302} \331\325`dW\203k \332!\203a \211\333\334\331!\"\244\262\335 \210T\262\202K \336\330\337\340\341\342\343\344\312&\"\210\325\266\2020*\262+\262\207" [x86-lookup-pdf case-fold-search coding-system-for-write coding-system-for-read x86-lookup-pdftotext-program signal wrong-number-of-arguments x86-lookup-create-index "\\(?:.*\n\n?\\)?\\([[:alnum:]/[:blank:]]+\\)[[:blank:]]*\\(?:--\\|—\\)\\(?:.*\n\n?\\)\\{1,3\\}[[:blank:]]*Opcode" utf-8 t generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process nil file-truename "-" --cl-block-nil-- 1 looking-at x86-lookup--expand match-string forward-page throw cl-remove-duplicates :key car :test string= :from-end] 16 (#$ . 3925)]) | |
| 30 | #@52 Return index filename from PDF filename. | |
| 31 | ||
| 32 | (fn PDF) | |
| 33 | (defalias 'x86-lookup--index-file #[257 "\300!\301P\207" [sha1 "_v3"] 3 (#$ . 5075)]) | |
| 34 | #@69 Save INDEX for PDF in `x86-lookup-cache-directory'. | |
| 35 | ||
| 36 | (fn PDF INDEX) | |
| 37 | (defalias 'x86-lookup--save-index #[514 "\301!\302\"\303\304\"\210\211\305\306\307!!\310\311\312\313\314!\315\"\316$\216r\211q\210\317p\"\210)r\211q\210\320\321\211\321\311%\210*\266\207" [x86-lookup-cache-directory x86-lookup--index-file expand-file-name mkdir t get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 prin1 write-region nil] 12 (#$ . 5219)]) | |
| 38 | #@63 Return index PDF from `x86-lookup-cache-directory'. | |
| 39 | ||
| 40 | (fn PDF) | |
| 41 | (defalias 'x86-lookup--load-index #[257 "\301!\302\"\303!\2057 \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210eb\210\31612 \317p!0\2024 \210\320*\262\207" [x86-lookup-cache-directory x86-lookup--index-file expand-file-name file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (error) read nil] 10 (#$ . 5756)]) | |
| 42 | #@61 Ensure the PDF index has been created, returning the index. | |
| 43 | (defalias 'x86-lookup-ensure-index #[0 "\2045 \204 \302\303!\210\2025 \304 !\204 \302\305!\210\2025 \306 !\211\203) \210\2025 \307\310!\210\311 \312 \"\210\207" [x86-lookup-index x86-lookup-pdf error "No PDF available. Set `x86-lookup-pdf'." file-exists-p "PDF not found. Check `x86-lookup-pdf'." x86-lookup--load-index message "Generating mnemonic index ..." x86-lookup-create-index x86-lookup--save-index] 3 (#$ . 6262)]) | |
| 44 | #@195 Ensure the PDF index has been created and (unconditionally) updated. | |
| 45 | Useful for forcibly syncing the index with the current PDF without resorting | |
| 46 | to manual deletion of index file on filesystem. | |
| 47 | (defalias 'x86-lookup-ensure-and-update-index #[0 "\204 \302\303!\207\304!\204 \302\305!\207\306\307!\205# \310 \311 \"\210\306\312!\207" [x86-lookup-pdf x86-lookup-index error "No PDF available. Set `x86-lookup-pdf'." file-exists-p "PDF not found. Check `x86-lookup-pdf'." message "Generating mnemonic index ..." x86-lookup-create-index x86-lookup--save-index "Finished generating mnemonic index."] 3 (#$ . 6762) nil]) | |
| 48 | #@76 Launch a PDF viewer using `x86-lookup-browse-pdf-function'. | |
| 49 | ||
| 50 | (fn PDF PAGE) | |
| 51 | (defalias 'x86-lookup-browse-pdf #[514 "\"\207" [x86-lookup-browse-pdf-function] 5 (#$ . 7388)]) | |
| 52 | #@98 Jump to the PDF documentation for MNEMONIC. | |
| 53 | Defaults to the mnemonic under point. | |
| 54 | ||
| 55 | (fn MNEMONIC) | |
| 56 | (defalias 'x86-lookup #[257 "\302\"A\303\304 !\"\207" [x86-lookup-index x86-lookup-pdf assoc x86-lookup-browse-pdf file-truename] 5 (#$ . 7569) (byte-code "\301 \210\302\303\"\304\305!\211\235\205 \211\211\203 \306\307\"\202 \310\311\312\313\312\211&C\207" [x86-lookup-index x86-lookup-ensure-index mapcar car thing-at-point word format "Mnemonic (default %s): " "Mnemonic: " completing-read nil t] 12)]) | |
| 57 | #@84 View PDF at PAGE using Emacs' `pdf-view-mode' and `display-buffer'. | |
| 58 | ||
| 59 | (fn PDF PAGE) | |
| 60 | (defalias 'x86-lookup-browse-pdf-pdf-tools #[514 "\300\301!\210\302\303\304\305\306\"!!r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210\320!\210*\210\207" [require pdf-tools t internal--before-with-selected-window display-buffer find-file-noselect :nowarn make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord pdf-view-goto-page] 10 (#$ . 8091)]) | |
| 61 | #@84 View PDF at PAGE using Emacs' `doc-view-mode' and `display-buffer'. | |
| 62 | ||
| 63 | (fn PDF PAGE) | |
| 64 | (defalias 'x86-lookup-browse-pdf-doc-view #[514 "\300\301\302!\204 \303\304!\210\305\306\307\310\"!!r\311\312\313\314\315!\316\"\317$\216\320@\321\"\210\322!\210*\210\207" [t doc-view-mode-p pdf error "doc-view not available for PDF" internal--before-with-selected-window display-buffer find-file-noselect :nowarn make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord doc-view-goto-page] 10 (#$ . 8593)]) | |
| 65 | #@45 View PDF at PAGE using xpdf. | |
| 66 | ||
| 67 | (fn PDF PAGE) | |
| 68 | (defalias 'x86-lookup-browse-pdf-xpdf #[514 "\300\301\302\301\303\304\305\"&\207" [start-process "xpdf" nil "--" format "%d"] 11 (#$ . 9150)]) | |
| 69 | #@47 View PDF at PAGE using Evince. | |
| 70 | ||
| 71 | (fn PDF PAGE) | |
| 72 | (defalias 'x86-lookup-browse-pdf-evince #[514 "\300\301\302\301\303\304\305\"\306&\207" [start-process "evince" nil "-p" format "%d" "--"] 10 (#$ . 9348)]) | |
| 73 | #@52 View PDF at PAGE file using Okular. | |
| 74 | ||
| 75 | (fn PDF PAGE) | |
| 76 | (defalias 'x86-lookup-browse-pdf-okular #[514 "\300\301\302\301\303\304\305\"\306&\207" [start-process "okular" nil "-p" format "%d" "--"] 10 (#$ . 9561)]) | |
| 77 | #@43 View PDF at PAGE using gv. | |
| 78 | ||
| 79 | (fn PDF PAGE) | |
| 80 | (defalias 'x86-lookup-browse-pdf-gv #[514 "\300\301\302\301\303\304\305\"\306&\207" [start-process "gv" nil "-nocenter" format "-page=%d" "--"] 10 (#$ . 9779)]) | |
| 81 | #@48 View PDF at PAGE using zathura. | |
| 82 | ||
| 83 | (fn PDF PAGE) | |
| 84 | (defalias 'x86-lookup-browse-pdf-zathura #[514 "\300\301\302\301\303\304\305\"\306&\207" [start-process "zathura" nil "-P" format "%d" "--"] 10 (#$ . 9993)]) | |
| 85 | #@52 View PDF at PAGE using Sumatra PDF. | |
| 86 | ||
| 87 | (fn PDF PAGE) | |
| 88 | (defalias 'x86-lookup-browse-pdf-sumatrapdf #[514 "\300\301\302\301\303\304\305\"&\207" [start-process "sumatrapdf" nil "-page" format "%d"] 10 (#$ . 10209)]) | |
| 89 | #@46 View PDF at PAGE using MuPDF. | |
| 90 | ||
| 91 | (fn PDF PAGE) | |
| 92 | (defalias 'x86-lookup-browse-pdf-mupdf #[514 "\300\301!\206 \302\303\302\304\305\306\307 \"&\207" [executable-find "mupdf-x11" "mupdf" start-process nil "--" format "%d"] 12 (#$ . 10430)]) | |
| 93 | #@75 Visit PDF using `browse-url' with a fragment for the PAGE. | |
| 94 | ||
| 95 | (fn PDF PAGE) | |
| 96 | (defalias 'x86-lookup-browse-pdf-browser #[514 "\300\301\302#!\207" [browse-url format "file://%s#%d"] 7 (#$ . 10676)]) | |
| 97 | #@63 Try visiting PDF using the first viewer found. | |
| 98 | ||
| 99 | (fn PDF PAGE) | |
| 100 | (defalias 'x86-lookup-browse-pdf-any #[514 "\3001\f \301\"0\202 \210\202 \206\301 \3021 \303\"0\202# \210\202& \206\301 \30412 \305\"0\2026 \210\2029 \206\301 \3061E \307\"0\202I \210\202L \206\301 \3101X \311\"0\202\\ \210\202_ \206\301 \3121k \313\"0\202o \210\202r \206\301 \3141~ \315\"0\202\202 \210\202\205 \206\301 \3161\221 \317\"0\202\225 \210\202\230 \206\301 \3201\244 \321\"0\202\250 \210\202\253 \206\301 \3221\267 \323\"0\202\273 \210\202\276 \206\301 \324\325!\207" [(error) x86-lookup-browse-pdf-pdf-tools (error) x86-lookup-browse-pdf-doc-view (error) x86-lookup-browse-pdf-evince (error) x86-lookup-browse-pdf-xpdf (error) x86-lookup-browse-pdf-okular (error) x86-lookup-browse-pdf-gv (error) x86-lookup-browse-pdf-zathura (error) x86-lookup-browse-pdf-mupdf (error) x86-lookup-browse-pdf-sumatrapdf (error) x86-lookup-browse-pdf-browser error "Could not find a PDF viewer."] 5 (#$ . 10878)]) | |
| 101 | (provide 'x86-lookup) | |
