;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\210\307\310\311\312\313\314%\210\307\315\316\317\313\314%\207" [require haskell-mode haskell-font-lock haskell-utils add-to-list auto-mode-alist ("\\.chs\\'" . haskell-c2hs-mode) custom-declare-face haskell-c2hs-hook-pair-face ((t (:inherit 'font-lock-preprocessor-face))) "Face for highlighting {#...#} pairs." :group haskell haskell-c2hs-hook-name-face ((t (:inherit 'font-lock-keyword-face))) "Face for highlighting c2hs hook names."] 6) (defvar haskell-c2hs-font-lock-keywords (byte-code "\300\301B\302 B\207" ["\\(?1:{#\\)[ \n ]*\\(?:\\(?2:import\\(?:[ \n ]+qualified\\)?\\)[ \n ]+\\|\\(?2:context\\)\\(?:[ \n ]+\\(?3:lib\\)[ \n ]*=[ \n ]*\"\\(?:[^\"#]\\|#[^\"}]\\)*\"\\)?\\(?:[ \n ]+\\(?4:prefix\\)[ \n ]*=[ \n ]*\"\\(?:[^\"#]\\|#[^\"}]\\)*\"\\)?\\(?:[ \n ]+\\(?5:add[ \n ]+prefix\\)[ \n ]*=[ \n ]*\"\\(?:[^\"#]\\|#[^\"}]\\)*\"\\)?\\|\\(?2:type\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*\\|\\(?2:sizeof\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*\\|\\(?2:enum[ \n ]+define\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*\\|\\(?2:enum\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*\\(?:[ \n ]+\\(?3:as\\)\\)?\\|\\(?2:\\(?:call\\|fun\\)\\(?:[ \n ]+pure\\)?\\(?:[ \n ]+unsafe\\)?\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*\\(?:[ \n ]+\\(?3:as\\)\\(?:[ \n ]+\\(?8:\\^\\)\\)?\\)?\\|\\(?2:get\\)\\|\\(?2:set\\)\\|\\(?2:pointer\\)\\(?:[ \n ]*\\(?3:\\*\\)[ \n ]*\\|[ \n ]+\\)[A-Z_a-z][0-9A-Z_a-z]*\\(?:[ \n ]+\\(?4:as\\)[ \n ]+'?[A-Z]['0-9A-Z_a-z]*\\)?\\(?:[ \n ]+\\(?5:\\(?:foreign\\|stable\\)\\)\\)?\\(?:[ \n ]+\\(?6:newtype\\)\\|[ \n ]*->[ \n ]*'?[A-Z]['0-9A-Z_a-z]*\\)?\\(?:[ \n ]+\\(?7:nocode\\)\\)?\\|\\(?2:class\\)\\|\\(?2:alignof\\)\\|\\(?2:offsetof\\)\\|\\(?2:const\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*\\|\\(?2:typedef\\)[ \n ]+[A-Z_a-z][0-9A-Z_a-z]*[ \n ]+'?[A-Z]['0-9A-Z_a-z]*\\|\\(?2:nonGNU\\)\\)\\(?:[^#]\\|#[^}]\\)*\\(?9:#}\\)" ((1 'haskell-c2hs-hook-pair-face t) (2 'haskell-c2hs-hook-name-face) (3 'haskell-c2hs-hook-name-face nil t) (4 'haskell-c2hs-hook-name-face nil t) (5 'haskell-c2hs-hook-name-face nil t) (6 'haskell-c2hs-hook-name-face nil t) (7 'haskell-c2hs-hook-name-face nil t) (8 'font-lock-negation-char-face nil t) (9 'haskell-c2hs-hook-pair-face t)) haskell-font-lock-keywords] 2)) (defvar haskell-c2hs-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [haskell-c2hs-mode-hook variable-documentation put "Hook run after entering C2HS mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp haskell-c2hs-mode-map definition-name haskell-c2hs-mode] 4) (defvar haskell-c2hs-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [haskell-c2hs-mode-abbrev-table haskell-c2hs-mode-map variable-documentation put purecopy "Keymap for `haskell-c2hs-mode'." boundp haskell-c2hs-mode-syntax-table definition-name haskell-c2hs-mode (lambda (#1=#:def-tmp-var) (defvar haskell-c2hs-mode-syntax-table #1#)) make-syntax-table "Syntax table for `haskell-c2hs-mode'." (lambda (#1#) (defvar haskell-c2hs-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `haskell-c2hs-mode'." derived-mode-parent haskell-mode] 5) #@261 Mode for editing *.chs files of the c2hs haskell tool. In addition to any hooks its parent mode `haskell-mode' might have run, this mode runs the hook `haskell-c2hs-mode-hook', as the final or penultimate step during initialization. \{haskell-c2hs-mode-map} (defalias 'haskell-c2hs-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \306\331!\210\332AB)\333\334!\207" [delay-mode-hooks major-mode mode-name haskell-c2hs-mode-map haskell-c2hs-mode-syntax-table haskell-c2hs-mode-abbrev-table make-local-variable t haskell-mode haskell-c2hs-mode "C2HS" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults haskell-c2hs-font-lock-keywords run-mode-hooks haskell-c2hs-mode-hook local-abbrev-table] 5 (#$ . 3556) nil]) (provide 'haskell-c2hs)