;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'font-lock) (defvar caml-font-stop-face (byte-code "\300\301!\210\302\301\303\"\210\304\301\305\"\210\301\207" [make-face caml-font-stop-face set-face-foreground "White" set-face-background "Red"] 3)) (defvar caml-font-doccomment-face (byte-code "\300\301!\210\302\301\303\"\210\301\207" [make-face caml-font-doccomment-face set-face-foreground "Red"] 3)) (byte-code "\300\301!\204 \302\303\304\301\"!\210\300\207" [facep font-lock-preprocessor-face (lambda (#1=#:def-tmp-var) (defvar font-lock-preprocessor-face #1#)) copy-face font-lock-builtin-face] 4) (defconst caml-font-lock-keywords (byte-code "\300\301\302B\303\304B\305\306\307B\310\311B\312BBBBBB\207" [("`?\\<[A-Z][A-Za-z0-9_']*\\>" . font-lock-function-name-face) "\\<\\(a\\(?:nd\\|s\\)\\|c\\(?:lass\\|onstraint\\)\\|ex\\(?:ception\\|ternal\\)\\|fun\\(?:ct\\(?:ion\\|or\\)\\)?\\|in\\(?:herit\\|itializer\\)?\\|let\\|m\\(?:ethod\\|\\(?:odu\\|utab\\)le\\)\\|of\\|private\\|rec\\|type\\|v\\(?:\\(?:irtu\\)?al\\)\\)\\>" font-lock-type-face "\\<\\(begin\\|end\\|object\\|s\\(?:ig\\|truct\\)\\)\\>" font-lock-keyword-face ("# *[0-9]+" . font-lock-preprocessor-face) "\\<\\(asr\\|l\\(?:and\\|or\\|s[lr]\\|xor\\)\\|mod\\)\\>" font-lock-builtin-face "[|#&]\\|->\\|\\<\\(do\\(?:ne\\|wnto\\)?\\|else\\|for\\|i\\(?:f\\|gnore\\)\\|lazy\\|match\\|new\\|or\\|t\\(?:hen\\|o\\|ry\\)\\|w\\(?:h\\(?:en\\|ile\\)\\|ith\\)\\)\\>" font-lock-constant-face (("\\<\\(raise\\|failwith\\|invalid_arg\\)\\>" . font-lock-comment-face) ("\\(\\([~?]\\|\\<\\)[a-z][a-zA-Z0-9_']*:\\)[^:=]" 1 font-lock-variable-name-face) ("\\<\\(assert\\|open\\|include\\)\\>\\|[~?][ (]*[a-z][a-zA-Z0-9_']*" . font-lock-variable-name-face))] 7)) (defalias 'caml-font-syntactic-face #[(s) "\3048\3058\3068\211\203\307\2022\n\2052\212 b\210\310\311!\203&\312\2021\310\313!\2030\314\2021\315)+\207" [s start in-comment in-string 3 4 8 font-lock-string-face looking-at "(\\*\\*/\\*\\*)" caml-font-stop-face "(\\*\\*[^*]" caml-font-doccomment-face font-lock-comment-face] 5]) (defconst caml-font-ident-re "[A-Za-z_\300-\326\330-\366\370-\377][A-Za-z_\300-\326\330-\366\370-\377'0-9]*") (defconst caml-font-int-re "\\(0[xX][0-9A-Fa-f][0-9A-Fa-f_]*\\|0[oO][0-7][0-7_]*\\|0[bB][01][01_]*\\)[lLn]?") (defconst caml-font-decimal-re "[0-9][0-9_]*\\([lLn]\\|\\.[0-9_]*\\)?\\([eE][+-]?[0-9][0-9_]*\\)?") (defconst caml-font-ident-or-num-re (concat caml-font-ident-re #1="\\|" caml-font-int-re #1# caml-font-decimal-re)) (defconst caml-font-char-re "'\\( \n\\|[^\\']\\|\\(\\\\\\([\\'\"ntbr ]\\|[0-9][0-9][0-9]\\|x[0-9A-Fa-f][0-9A-Fa-f]\\)\\)\\)'") (defconst caml-font-quote-newline-re "'\\( \n\\|[\n ]\\)") (defconst caml-font-quoted-string-start-re "{\\([a-z]*\\)|") (defconst caml-font-other-re "[^A-Za-z_0-9\n \300-\326\330-\366\370-\377'\"({]+") (defconst caml-font-other-comment-re "[^{(*\"'\n ]+") (defconst caml-font-other-string-re "[^|\\\"\n ]") (defconst caml-font-newline-re "\\( \n\\|[\n ]\\)") (defalias 'caml-font-put-state #[(pos state) "\302 S\303\"\232?\205\304 S \303$\210\305\207" [state pos get-text-property caml-font-state put-text-property t] 5]) (defalias 'caml-font-looking-at #[(re) "\302!\211\203\303\304\224\304\225\305#\210 )\207" [re result looking-at remove-text-properties 0 (syntax-table nil caml-font-state nil)] 5]) (defalias 'caml-font-annotate #[(st depth) "\306\205m?\205 \307=\203\314\n\310U\203\314\311 !\203$\310\225b\210\202\311\f!\203C\312``T\313\314$\210\312\310\225S\310\225\313\314$\210\310\225b\210\202\311 !\203P\310\225b\210\202\311\315!\203g\312``T\313\314$\210\310\225b\210\306\202\311!!\203\204\312``T\313\314$\210\310\225b\210\316\317\320!\321Q\202\311\322!\203\233\312``T\313\323$\210\310\225b\210\320\202\324\"!\203\260\310\225b\210\325\310\225\326\"\211\202\311#!\203\276\310\225b\210\202\327``T\330#\210`Tb\210\202 \331\267\202\306\311\322!\203\342\310\225b\210\nT\202\311\332!\203\310\225b\210\nS\211\310U\203\312`S`\313\323$\210\202\311\315!\203\310\225b\210\306\202\311\f!\203\310\225b\210\202\311 !\203)\310\225b\210\202\311\333!\2036\310\225b\210\202\324\"!\203M\310\225b\210\325\310\225\307\nB\"\211\202\311$!\203[\310\225b\210\202\327``T\334#\210`Tb\210\202\311\315!\203\206\n\310U\203}\312``T\313\314$\210`Tb\210\307\202\311\335!\203\223\310\225b\210\202\324\"!\203\252\310\225b\210\325\310\225\306\nB\"\211\202\311%!\203\270\310\225b\210\202\327``T\336#\210`Tb\210\202 ;\203\311 !\203\352\n\310U\203\341\312\310\225S\310\225\313\314$\210\310\225b\210\307\202\311%!\203\370\310\225b\210\202\327``T\337#\210`Tb\210\202\327``T\340#\210\202)\207" [continue st depth caml-font-ident-or-num-re caml-font-char-re caml-font-quote-newline-re t nil 0 caml-font-looking-at put-text-property syntax-table (15) "\"" "|" match-string 1 "}" "(\\*" (14) looking-at caml-font-put-state (nil . 0) remove-text-properties (syntax-table nil caml-font-state nil) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 210 t 361)) "\\*)" "''" (syntax-table nil caml-font-state nil) "\\\\[\"\\]" (syntax-table nil caml-font-state nil) (syntax-table nil caml-font-state nil) (syntax-table nil caml-font-state nil) caml-font-quoted-string-start-re caml-font-newline-re caml-font-other-re caml-font-other-comment-re caml-font-other-string-re] 6]) (defalias 'caml-font-extend-after-change #[(beg end &optional old-len) "\212\306 \307\216\310 \311\211\211\312 \313#\210 eV\203(\314 S\315\"\203( \2060\316 \315\"\2060e\211eV\203?\314 S\315\"\206B\311\317B b\210\320 @ A\"\210`\321\f!\210 \n.B\207" [save-match-data-internal state end-at start-at caml-font-modified beg match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] buffer-modified-p nil remove-text-properties (syntax-table nil caml-font-state nil) get-text-property caml-font-state previous-single-property-change 0 caml-font-annotate restore-buffer-modified-p end] 5]) (defconst caml-font-syntax-table (byte-code "\302 \303\304\305#\210\303\306\305#\210\303\307\310#\210\311\211\312W\2036 \313U\204/ \314U\204/\303 \305#\210 T\211\202))\207" [tbl i make-syntax-table modify-syntax-entry 39 "w" 95 34 "." 192 256 215 247] 5)) (defalias 'caml-font-set-font-lock #[nil "\303\304\305\211\211\211\306 B\307\310\257\311ed\312#\210\313\314!\207" [parse-sexp-lookup-properties caml-font-syntax-table font-lock-defaults t caml-font-lock-keywords nil font-lock-syntax-table (font-lock-extend-after-change-region-function . caml-font-extend-after-change) (font-lock-syntactic-face-function . caml-font-syntactic-face) caml-font-extend-after-change 0 font-lock-mode 1] 8]) (add-hook 'caml-mode-hook 'caml-font-set-font-lock) (defconst inferior-caml-font-lock-keywords (cons '("^[#-]" . font-lock-comment-face) caml-font-lock-keywords)) (defalias 'inferior-caml-set-font-lock #[nil "\303\304\305\211\211\211\306 B\307\310\257\311ed\312#\210\313\314!\207" [parse-sexp-lookup-properties caml-font-syntax-table font-lock-defaults t inferior-caml-font-lock-keywords nil font-lock-syntax-table (font-lock-extend-after-change-region-function . caml-font-extend-after-change) (font-lock-syntactic-face-function . caml-font-syntactic-face) caml-font-extend-after-change 0 font-lock-mode 1] 8]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook inferior-caml-mode-hooks inferior-caml-set-font-lock provide caml-font] 3)