typerex.elc

;ELC
;;; Compiled by nitro@nitro-desktop.domain on Thu Feb 21 00:59:50 2013
;;; from file /home/nitro/Downloads/typerex-1.0.1/tools/ocp-typerex-ide/emacs/typerex.el
;;; in Emacs version 23.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`typerex.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'typerex-new-faces nil "Special faces for the new TypeRex syntax coloring." :group 'typerex-syntax-coloring)
(defalias 'ocp-face-name #[(name) "\301\302\303!P!\207" [name intern "ocp-face-" symbol-name] 4])
(defalias 'ocp-face-same #[(name desc) "\301\302\303!\304\305\306\"\307BBBB!\207" [name eval defface ocp-face-name `((t ,desc)) format "Face for %s tokens" (:group 'typerex-new-faces)] 7])
(defalias 'ocp-face-light-dark #[(name light dark) "\301\302\303!\304\305\306\"\307BBBB!\207" [name eval defface ocp-face-name `((((background light)) ,light) (t ,dark)) format "Face for %s tokens" (:group 'typerex-new-faces)] 7])
(defalias 'ocp-face #[(f) "G\302=\203\303@\211A@)A\211A@)#\207\304@\211A@)\"\207" [f x 3 ocp-face-light-dark ocp-face-same] 5])
(byte-code "\301B\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325!FD\326\327\330\321\322\323\324\331!F\332BB\333\334\321\322\323\324\335!F\336BB\337\340\341\342\321\322\323\324\343!F\344BB\345\321\322\323\324\346!FD\347\323\324\346!DD\350\321\322\323\324\347!FD\351\352\321\322\323\324\353!FD\354\355\356\357\360\361\362\323\324\363!FD\364\321\322\323\324\363!FD\365BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB!\210\366\367	\"\210\370\371!\207" [current-load-list ocp-faces (lambda (#1=#:defconst-tmp-var) (defconst ocp-faces #1#)) (governing (:weight ultra-bold :foreground "#3C323C") (:weight ultra-bold :foreground "gold")) (keyword (:inherit font-lock-keyword-face) (:weight ultra-bold :foreground "firebrick")) (open-include (:foreground "red1" :weight ultra-bold)) (punctuation (:weight ultra-bold) (:foreground "gray85" :weight ultra-bold)) (bar-case (:weight ultra-bold :foreground "purple3" :background "linen") (:weight ultra-bold :foreground "MediumOrchid3" :background "purple4")) (func (:weight ultra-bold :foreground "purple3")) (op-field (:weight ultra-bold) (:foreground "gray85" :weight ultra-bold)) (op (:weight ultra-bold :foreground "sienna")) (op-bool (:weight ultra-bold :foreground "brown")) (constant (:inherit font-lock-constant-face)) (string (:inherit font-lock-string-face)) (tag (:weight ultra-bold :foreground "sienna")) (type-occ (:foreground "OliveDrab4")) type-def :weight bold :inherit ocp-face-name type-occ (type-variable (:weight bold :foreground "dark violet")) (cstr-occ (:inherit font-lock-constant-face) (:foreground "medium sea green")) cstr-def cstr-occ ((:weight bold :foreground "medium sea green")) (field-occ (:inherit font-lock-constant-face) (:foreground "medium sea green")) field-def field-occ ((:weight bold :foreground "medium sea green")) (variant (:inherit font-lock-constant-face)) (val-occ-fun (:foreground "blue1") (:foreground "light sky blue")) (val-occ (:inherit font-lock-variable-name-face) (:foreground "peru")) val-def-fun val-occ-fun ((:weight bold :foreground "light sky blue")) val-def val-occ method-occ method-def (mod-occ (:foreground "dark orange")) mod-def mod-occ (builtin (:inherit font-lock-builtin-face)) (comment (:foreground "gray50")) (doc (:foreground "steel blue")) (doc-title (:weight bold :foreground "black" :background "light blue")) doc-italic :slant italic doc doc-bold ((doc-keyword (:foreground "magenta4")) (doc-stop (:inherit font-lock-warning-face)) (error (:inherit typerex-font-lock-error-face)) (highlight-occ (:background "green yellow") (:background "coral4")) (highlight-def (:background "green") (:background "purple4"))) mapc ocp-face message "LOADING TYPEREX"] 40)
(defalias 'exec-in-buffer #[(tmpbuf command) "\306\307\310#\311	!\210@A\312\313\314\n\315\f\315F\"\"\311\316
\f\315\232\203)\317\202*\f#\210
\320=?\205K\f\315\232\203?\321\n!\202K\321r\fq\210	\322\323 Q)!,\207" [command commandstring process-name process-args tmpbuf exit-status mapconcat identity " " message apply call-process append nil "command exited with code %d (output=%s)" "<none>" 0 error "\n" buffer-string] 7])
(defalias 'check-position #[(pos) "de]^\207" [pos] 3])
(defalias 'check-byte #[(pos) "\301d!\301e!]^\207" [pos position-bytes] 3])
(defalias 'line-column-bytes #[nil "\302 \303`!\303\304 !Z\305\306	#*\207" [c l line-number-at-pos position-bytes line-beginning-position format "%d %d"] 4])
(defalias 'line-column-to-pos #[(l c) "\212eb\210\302\303\304!!	\\!)\207" [l c byte-to-position position-bytes line-beginning-position] 4])
#@58 put an overlay on the given range, in the current buffer
(defalias 'highlight-overlay #[(face start end) "\304\305!\305	!\"\306\n\303#\210\n)\207" [start end overlay face make-overlay check-position overlay-put] 4 (#$ . 4912)])
(defalias 'highlight-region #[(pos) "\302@\211A@)A\211A@)#\207" [pos x highlight-overlay] 5])
(defalias 'do-at-next-input #[(f arg) "\304\305\306!\210\307\nC\"\210	\211)\207" [inhibit-quit inhibited f arg t sit-for 10000 apply] 3])
(defalias 'highlight #[(face start end) "\304	\nE!\305\306\")\207" [face start end overlay highlight-region do-at-next-input delete-overlay] 4])
(defalias 'highlight-regions #[(forever regions) "\303\304\"\n\305=\204\306\307	\"\210)\310\207" [regions overlays forever mapcar highlight-region t do-at-next-input #[(ovs) "\301\302\"\207" [ovs mapc delete-overlay] 3] nil] 3])
#@51 like display-message-or-buffer, but not permanent
(defalias 'display-temp #[(buffer-name contents) "\302	\"\210\303\304	\"\207" [contents buffer-name display-message-or-buffer do-at-next-input #[(buffer-name) "\300\301\302\217\207" [nil (kill-buffer buffer-name) ((error))] 3]] 3 (#$ . 5773)])
#@57 tests whether a buffer's contents fits in the echo area
(defalias 'fits-in-echo-area #[nil "\303 \304U\203\304\202\305\306\211\211\307 $\211\310X\206:	\2038\311\n!\203+\312 \n_\2029\n\250\2034\n\2029\310\2029\310X)\207" [lines resize-mini-windows max-mini-window-height buffer-size 0 count-screen-lines nil minibuffer-window 1 floatp frame-height] 6 (#$ . 6074)])
#@111 prompt for a single character answer as y-or-n-p, but use a
buffer to display the question if it is too long.
(defalias 'y-or-n-check-height #[(prompt) "\303\304!rq\210\305\216	c\210\306 \203\307	!\202&\310p!\210\307	!\311p!\210\n)+\207" [#1=#:temp-buffer prompt answer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fits-in-echo-area y-or-n-p display-buffer kill-buffer] 2 (#$ . 6458)])
(defalias 'set-text-properties-region #[(pos) "\302@\211A@)A\211A@)#\207" [pos x add-text-properties] 5])
(defalias 'propertize-regions #[(regions) "\301\302\"\210\303\207" [regions mapc set-text-properties-region nil] 3])
(defalias 'propertize-region-list #[(regions) "@\303\304\211A@)\"\210)\305\207" [regions props x mapc #[(pos) "\303@\211A@)\n#\207" [pos x props add-text-properties] 5] nil] 4])
(defalias 'propertize-region-list-byte #[(regions) "@\303\304\211A@)\"\210)\305\207" [regions props x mapc #[(pos) "\305@!\305\211A@)!\306\307!\307\n!\f#*\207" [pos x end start props check-byte add-text-properties byte-to-position] 5] nil] 4])
(defalias 'propertize-region-lists-char #[(regions) "\301\302\"\210\303\207" [regions mapc propertize-region-list nil] 3])
(defalias 'propertize-region-lists-byte #[(regions) "\301\302\"\210\303\207" [regions mapc propertize-region-list-byte nil] 3])
#@63 return a buffer with the given name, clearing it if necessary
(defalias 'get-buffer-create-clear #[(name) "\302!r	q\210~\210ed|\210)	)\207" [name buffer get-buffer-create] 2 (#$ . 7842)])
(defalias 'create-buffer #[(buffer-name) "\301!\207" [buffer-name get-buffer-create-clear] 2])
(defalias 'set-cleared-buffer #[(buffer-name) "\301!q\207" [buffer-name get-buffer-create-clear] 2])
(defalias 'string-of-buffer #[(buffer) "rq\210\301 )\207" [buffer buffer-string] 1])
(defalias 'int-of-string #[(str) "\302\232\203\303\207\304!\211\303\232?\205	)\207" [str i "0" 0 string-to-number] 3])
#@42 Return the vertical position of point...
(defalias 'current-line #[nil "\300\301\302 `\"i\303U\203\304\202\303\305#\207" [+ count-lines window-start 0 1 -1] 4 (#$ . 8448)])
(defalias 'strings-of-buffer #[(buffer) "rq\210\301\302 \303\")\207" [buffer split-string buffer-string "[\n]+"] 3])
(defalias 'goto-position #[(pos) "T`Zu\207" [pos] 2])
(defalias 'current-ident #[nil "\212\302\211\303\304!\210\305u\210`\306\304\302\307#\210`d=\203`\202\"`S	{+\207" [end start nil search-backward-regexp "[^a-zA-Z._0-9]" 1 search-forward-regexp 0] 4])
(defalias 'delete-current-ident #[nil "\303\211\211\304\305!\210\306u\210`\307\305\303\310#\210`d=\203\"`\306\202'`S\310\n	|\210\310\232\2053\311u+\207" [end-buffer end start nil search-backward-regexp "[^a-zA-Z._0-9]" 1 search-forward-regexp 0 -1] 4])
#@53 revert the current buffer while keeping its history
(defalias 'revert-with-history #[nil "`\212\302 \210~\210\303ed|\210\304\305\306 !\210)b\210\307\304!\210\310 )\207" [pos inhibit-modification-hooks clear-visited-file-modtime t nil insert-file-contents buffer-file-name set-buffer-modified-p set-visited-file-modtime] 2 (#$ . 9277)])
#@45 revert the buffer visiting filename, if any
(defalias 'revert-buffer-visiting #[(filename) "\303!\211\304=?\205r	q\210\305 \210\304\306\nB\211))\207" [filename buffer buffer-undo-list find-buffer-visiting nil revert-with-history (apply ocp-undo)] 3 (#$ . 9623)])
#@45 revert the buffer visiting filename, if any
(defalias 'save-buffer-visiting #[(filename) "\302!\211\303=?\205r	q\210\304 ))\207" [filename buffer find-buffer-visiting nil save-buffer] 3 (#$ . 9898)])
#@55 update the buffer visiting a renamed filename, if any
(defalias 'renamed-file #[(old-filename new-filename) "\304!\211\305=?\205!r	q\210\306\n\307\211#\210\310 \210\305\311B\312 ))\207" [old-filename buffer new-filename buffer-undo-list find-buffer-visiting nil set-visited-file-name t revert-with-history (apply ocp-undo) reset-tokenization] 5 (#$ . 10108)])
(require 'tq)
#@53 mark for the client to detect the end of the answer
(defconst ocp-rpc-end-of-message "END_OF_MESSAGE" (#$ . 10494))
#@58 mark for the client to detect the beginning of a request
(defconst ocp-rpc-request-start "REQUEST_START" (#$ . 10616))
(byte-code "\302B\303	GT!\207" [current-load-list ocp-rpc-request-start ocp-rpc-request-start-length (lambda (#1=#:defconst-tmp-var) (defconst ocp-rpc-request-start-length #1#))] 2)
#@51 connection process, (used, e.g. for sending data)
(defvar ocp-rpc-connection nil (#$ . 10925))
#@41 transaction queue on ocp-rpc-connection
(defvar ocp-rpc-queue nil (#$ . 11026))
#@16 server process
(defvar ocp-rpc-connection-server nil (#$ . 11112))
#@92 send a message and get the expected reply. Both messages can
be either requests or answers
(defalias 'ocp-rpc-make-transaction #[(c) "\306\307\310\"\311	\n\312\312R\312\312Q\313\314&\210\f\314\315H\310=\2035\316!\317=\2035\320\307\315#\210\202\316!\317=\204C\321\322\323\"\210
\315H*\207" [reply ocp-rpc-queue c ocp-rpc-end-of-message inhibit-quit quit-inhibited make-vector 1 nil tq-enqueue "\n" #[(reply answer) "\303\304	G\\[O\n\303I\207" [answer ocp-rpc-end-of-message reply 0 2] 4] t 0 process-status open accept-process-output signal error ("Error: connection closed") ocp-rpc-connection] 7 (#$ . 11185)])
#@33 send a message and get a result
(defalias 'ocp-rpc-get-answer #[(c) "\306!\211G\nY\203'	\307\nO\310P\230\203'	G\311O\312\f!\313
!*\202(	)\207" [c answer ocp-rpc-request-start-length ocp-rpc-request-start callback result ocp-rpc-make-transaction 0 "\n" nil ocp-rpc-process-callback ocp-rpc-get-answer] 4 (#$ . 11827)])
#@44 send a command and get the expected result
(defalias 'ocp-rpc-string-command #[(c) "\302\303	Q!\207" [ocp-rpc-request-start c ocp-rpc-get-answer "\n"] 4 (#$ . 12160)])
#@49 start connection by listening on specified port
(defalias 'ocp-rpc-start-connection #[(port) "\303\304\305\306\307	$\310\n\311\"\210\312\n\306\"\207" [max-lisp-eval-depth port ocp-rpc-connection 10000 open-network-stream "ocp-wizard-client" nil local set-process-filter ocp-rpc-connection-filter set-process-query-on-exit-flag] 5 (#$ . 12335)])
(defalias 'ocp-rpc-connection-sentinel #[(process event) "\304\305O\306\230\205	\307\n!\310\n\311\"\207" [event process ocp-rpc-connection ocp-rpc-queue 0 4 "open" tq-create set-process-query-on-exit-flag nil] 3])
#@57 start a server connection and return the listening port
(defalias 'ocp-rpc-start-server #[nil "\304\305\306\307\310\311\312\313\314\315\316\317\320\321&\322\n\323\"\210\324\n\305\"\210\325\326!\203'\326\202(\327\330\n\211#\210)\331\n\317\"\207" [max-lisp-eval-depth ocp-rpc-connection ocp-rpc-connection-server internal 10000 nil make-network-process :name "ocp-connection" :server 0 :host "127.0.0.1" :family ipv4 :service t :reuseaddr set-process-sentinel ocp-rpc-connection-sentinel set-process-query-on-exit-flag coding-system-p emacs-internal emacs-mule set-process-coding-system process-contact] 12 (#$ . 12907)])
#@20 Version of TypeRex
(defconst typerex-version "1.0.1" (#$ . 13541))
(require 'easymenu)
#@739          Copyright (C) 1997-2006 Albert Cohen, all rights reserved.
         Copyright (C) 2009-2010 Jane Street Holding, LLC.
         Copyright (C) 2011 OCamlPro SAS
         Copying is covered by the GNU General Public License.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
    GNU General Public License for more details.
(defconst typerex-mode-version (concat "TypeRex Version " typerex-version " (" "unknown" ")") (#$ . 13635))
(byte-code "\301B\302\303!\207" [current-load-list typerex-with-xemacs (lambda (#1=#:defconst-tmp-var) (defconst typerex-with-xemacs #1#)) nil] 2)
#@54 Tells whether we are editing Lucid Synchrone syntax.
(defalias 'typerex-editing-ls3 #[nil "\300\301\302 \"\207" [string-match "\\.ls" buffer-name] 3 (#$ . 14636)])
#@46 Tells whether we are editing CamlLex syntax.
(defalias 'typerex-editing-camllex #[nil "\300\301\302 \"\207" [string-match "\\.mll" buffer-name] 3 (#$ . 14806)])
(byte-code "\301\302\303\304!\203\f\304\202
\305\"\210\303\306!\204\301\306\307\"\210\310B\311\310!\2045\312\310\313\314\315\316#\2053\313\317\315\316#\"\210\313\320!\210\321\322\315\323\324\325%\210\321\326\315\327\324\322%\210\321\330\315\331\324\326%\210\321\332\315\333\324\322%\210\321\334\315\335\324\322%\210\321\336\315\337\324\322%\210\321\340\315\341\324\322%\207" [current-load-list defalias typerex-match-string fboundp match-string-no-properties match-string read-shell-command #[(prompt &optional initial-input history) "\303	\304\211\n\206\n\305%\207" [prompt initial-input history read-from-minibuffer nil shell-command-history] 6 "Read a string from the minibuffer, using `shell-command-history'."] typerex-with-caml-mode-p default-boundp set-default require caml-types nil t caml-help custom custom-declare-group ocp "Support for the OCaml language." :group languages typerex-syntax-coloring "Syntax coloring using Font Lock." typerex-tuareg-faces "Special faces for Tuareg syntax coloring." typerex-indent "TypeRex indentation configuration." typerex-auto-complete "TypeRex auto completion." typerex-interactive "TypeRex interactive interpreter configuration." typerex-misc "TypeRex miscellaneous configuration."] 6)
#@74 *If true, indent leading comment lines (starting with `(*') like others.
(custom-declare-variable 'typerex-indent-leading-comments 't '(#$ . -16219) :group 'typerex-indent :type 'boolean)
#@52 *If true, automatically align multi-line comments.
(custom-declare-variable 'typerex-indent-comments 't '(#$ . -16413) :group 'typerex-indent :type 'boolean)
#@206 *How many spaces to indent a leading comment end `*)'.
If you expect comments to be indented like
        (*
          ...
         *)
even without leading `*', use `typerex-comment-end-extra-indent' = 1.
(custom-declare-variable 'typerex-comment-end-extra-indent '0 '(#$ . -16578) :group 'typerex-indent :type '(radio :extra-offset 8 :format "%{Comment End Extra Indent%}:\n   Comment alignment:\n%v" (const :tag "align with `(' in comment opening" 0) (const :tag "align with `*' in comment opening" 1) (integer :tag "custom alignment" 0)))
#@392 *Enable automatic intentation of comments of the form
        (*
         * ...
         *)
Documentation comments (** *) are not concerned by this variable
unless `typerex-leading-star-in-doc' is also set.

If you do not set this variable and still expect comments to be
indented like
        (*
          ...
         *)
(without leading `*'), set `typerex-comment-end-extra-indent' to 1.
(custom-declare-variable 'typerex-support-leading-star-comments 't '(#$ . -17127) :group 'typerex-indent :type 'boolean)
#@108 *Enable automatic intentation of documentation comments of the form
        (**
         * ...
         *)
(custom-declare-variable 'typerex-leading-star-in-doc 'nil '(#$ . -17646) :group 'typerex-indent :type 'boolean)
#@190 *Default indentation.

Global indentation variable (large values may lead to indentation overflows).
When no governing keyword is found, this value is used to indent the line
if it has to.
(custom-declare-variable 'typerex-default-indent '2 '(#$ . -17873) :group 'typerex-indent :type 'integer)
#@74 *If true, handle Caml Light character syntax (incompatible with labels).
(custom-declare-variable 'typerex-support-camllight 'nil '(#$ . -18174) :group 'typerex-indent :type 'boolean :set '(lambda (var val) (setq typerex-support-camllight val) (when (boundp 'typerex-mode-syntax-table) (modify-syntax-entry 96 (if val "\"" ".") typerex-mode-syntax-table))))
#@36 *If true, handle MetaOCaml syntax.
(custom-declare-variable 'typerex-support-metaocaml 'nil '(#$ . -18538) :group 'typerex-indent :type 'boolean :set '(lambda (var val) (setq typerex-support-metaocaml val) (when (boundp 'typerex-font-lock-keywords) (typerex-make-indentation-regexps) (typerex-install-font-lock))))
#@237 *If true, enforce indentation is at least `typerex-let-indent' after a `let'.

As an example, set it to false when you have `typerex-with-indent' set to 0,
and you want `let x = match ... with' and `match ... with' indent the
same way.
(custom-declare-variable 'typerex-let-always-indent 't '(#$ . -18860) :group 'typerex-indent :type 'boolean)
#@752 *Extra backward indent for Caml lines starting with the `|' operator.

It is NOT the variable controlling the indentation of the `|' itself:
this value is automatically added to `function', `with', `parse' and
some cases of `type' keywords to leave enough space for `|' backward
indentation.

For example, setting this variable to 0 leads to the following indentation:
  match ... with
    X -> ...
    | Y -> ...
    | Z -> ...

To modify the indentation of lines lead by `|' you need to modify the
indentation variables for `with', `function' and `parse', and possibly
for `type' as well. For example, setting them to 0 (and leaving
`typerex-pipe-extra-unindent' to its default value) yields:
  match ... with
    X -> ...
  | Y -> ...
  | Z -> ...
(custom-declare-variable 'typerex-pipe-extra-unindent 'typerex-default-indent '(#$ . -19212) :group 'typerex-indent :type 'integer)
#@52 *How many spaces to indent from a `class' keyword.
(custom-declare-variable 'typerex-class-indent 'typerex-default-indent '(#$ . -20101) :group 'typerex-indent :type 'integer)
#@51 *Align `sig' and `struct' keywords with `module'.
(custom-declare-variable 'typerex-sig-struct-align 't '(#$ . -20283) :group 'typerex-indent :type 'boolean)
#@62 *How many spaces to indent from a `sig' or `struct' keyword.
(custom-declare-variable 'typerex-sig-struct-indent 'typerex-default-indent '(#$ . -20447) :group 'typerex-indent :type 'integer)
#@53 *How many spaces to indent from a `method' keyword.
(custom-declare-variable 'typerex-method-indent 'typerex-default-indent '(#$ . -20644) :group 'typerex-indent :type 'integer)
#@52 *How many spaces to indent from a `begin' keyword.
(custom-declare-variable 'typerex-begin-indent 'typerex-default-indent '(#$ . -20828) :group 'typerex-indent :type 'integer)
#@61 *How many spaces to indent from a `for' or `while' keyword.
(custom-declare-variable 'typerex-for-while-indent 'typerex-default-indent '(#$ . -21010) :group 'typerex-indent :type 'integer)
#@49 *How many spaces to indent from a `do' keyword.
(custom-declare-variable 'typerex-do-indent 'typerex-default-indent '(#$ . -21205) :group 'typerex-indent :type 'integer)
#@50 *How many spaces to indent from a `fun' keyword.
(custom-declare-variable 'typerex-fun-indent 'typerex-default-indent '(#$ . -21381) :group 'typerex-indent :type 'integer)
#@55 *How many spaces to indent from a `function' keyword.
(custom-declare-variable 'typerex-function-indent 'typerex-default-indent '(#$ . -21559) :group 'typerex-indent :type 'integer)
#@68 *How many spaces to indent from an `if', `then' or `else' keyword.
(custom-declare-variable 'typerex-if-then-else-indent 'typerex-default-indent '(#$ . -21747) :group 'typerex-indent :type 'integer)
#@50 *How many spaces to indent from a `let' keyword.
(custom-declare-variable 'typerex-let-indent 'typerex-default-indent '(#$ . -21952) :group 'typerex-indent :type 'integer)
#@230 *How many spaces to indent from a `in' keyword.
Upstream <http://caml.inria.fr/resources/doc/guides/guidelines.en.html>
recommends 0, and this is what we default to since 2.0.1
instead of the historical `typerex-default-indent'.
(custom-declare-variable 'typerex-in-indent '0 '(#$ . -22131) :group 'typerex-indent :type 'integer)
#@52 *How many spaces to indent from a `match' keyword.
(custom-declare-variable 'typerex-match-indent 'typerex-default-indent '(#$ . -22467) :group 'typerex-indent :type 'integer)
#@50 *How many spaces to indent from a `try' keyword.
(custom-declare-variable 'typerex-try-indent 'typerex-default-indent '(#$ . -22649) :group 'typerex-indent :type 'integer)
#@51 *How many spaces to indent from a `with' keyword.
(custom-declare-variable 'typerex-with-indent 'typerex-default-indent '(#$ . -22827) :group 'typerex-indent :type 'integer)
#@51 *How many spaces to indent from a `rule' keyword.
(custom-declare-variable 'typerex-rule-indent 'typerex-default-indent '(#$ . -23007) :group 'typerex-indent :type 'integer)
#@51 *How many spaces to indent from a `type' keyword.
(custom-declare-variable 'typerex-type-indent 'typerex-default-indent '(#$ . -23187) :group 'typerex-indent :type 'integer)
#@50 *How many spaces to indent from a `val' keyword.
(custom-declare-variable 'typerex-val-indent 'typerex-default-indent '(#$ . -23367) :group 'typerex-indent :type 'integer)
#@265 *Non-nil means electrically indent lines starting with leading keywords.
Leading keywords are such as `end', `done', `else' etc.
It makes use of `abbrev-mode'.

Many people find eletric keywords irritating, so you can disable them by
setting this variable to nil.
(custom-declare-variable 'typerex-use-abbrev-mode 't '(#$ . -23546) :group 'typerex-indent :type 'boolean :set '(lambda (var val) (setq typerex-use-abbrev-mode val) (abbrev-mode val)))
#@178 *Non-nil means electrically indent lines starting with `|', `)', `]' or `}'.

Many people find eletric keys irritating, so you can disable them in
setting this variable to nil.
(custom-declare-variable 'typerex-electric-indent 't '(#$ . -24002) :group 'typerex-indent :type 'boolean)
#@73 *How many spaces to indent from a `->' keyword in a pattern match case.
(custom-declare-variable 'typerex-case-arrow-extra-indent '2 '(#$ . -24292) :group 'typerex-indent :type 'integer)
#@294 *Non-nil means electrically insert `|' before a vector-closing `]' or
`>' before an object-closing `}'.

Many people find eletric keys irritating, so you can disable them in
setting this variable to nil. You should probably have this on,
though, if you also have `typerex-electric-indent' on.
(custom-declare-variable 'typerex-electric-close-vector 't '(#$ . -24486) :group 'typerex-misc :type 'boolean)
#@151 *Controls when to scroll to the bottom of the interactive buffer
upon evaluating an expression.

See `comint-scroll-to-bottom-on-output' for details.
(custom-declare-variable 'typerex-interactive-scroll-to-bottom-on-output 'nil '(#$ . -24897) :group 'typerex-interactive :type 'boolean :set '(lambda (var val) (setq typerex-interactive-scroll-to-bottom-on-output val) (when (boundp 'comint-scroll-to-bottom-on-output) (setq comint-scroll-to-bottom-on-output val))))
#@85 *Non-nil means skip to the end of the phrase after evaluation in the
Caml toplevel.
(custom-declare-variable 'typerex-skip-after-eval-phrase 't '(#$ . -25369) :group 'typerex-interactive :type 'boolean)
#@62 *Non-nil means input sent to the Caml toplevel is read-only.
(custom-declare-variable 'typerex-interactive-read-only-input 'nil '(#$ . -25578) :group 'typerex-interactive :type 'boolean)
#@92 *Non-nil means echo phrases in the toplevel buffer when sending
them to the Caml toplevel.
(custom-declare-variable 'typerex-interactive-echo-phrase 't '(#$ . -25771) :group 'typerex-interactive :type 'boolean)
#@54 *Non nil means Font-Lock for toplevel input phrases.
(custom-declare-variable 'typerex-interactive-input-font-lock 't '(#$ . -25988) :group 'typerex-interactive :type 'boolean)
#@56 *Non nil means Font-Lock for toplevel output messages.
(custom-declare-variable 'typerex-interactive-output-font-lock 't '(#$ . -26171) :group 'typerex-interactive :type 'boolean)
#@55 *Non nil means Font-Lock for toplevel error messages.
(custom-declare-variable 'typerex-interactive-error-font-lock 't '(#$ . -26357) :group 'typerex-interactive :type 'boolean)
#@63 *Non nil means pop up the Caml toplevel when evaluating code.
(custom-declare-variable 'typerex-display-buffer-on-eval 't '(#$ . -26541) :group 'typerex-interactive :type 'boolean)
#@37 *URL to the OCaml reference manual.
(custom-declare-variable 'typerex-manual-url '"http://caml.inria.fr/pub/docs/manual-ocaml/index.html" '(#$ . -26728) :group 'typerex-misc :type 'string)
#@34 *URL to the TypeRex user manual.
(custom-declare-variable 'typerex-typerex-manual-url '"http://www.typerex.org/manual-ide.html" '(#$ . -26923) :group 'typerex-misc :type 'string)
#@117 *Name of function that displays the Caml reference manual.
Valid names are `browse-url', `browse-url-firefox', etc.
(custom-declare-variable 'typerex-browser ''browse-url '(#$ . -27109) :group 'typerex-misc)
#@67 *Path to the Caml library. If nil, get it from the TypeRex server
(custom-declare-variable 'typerex-library-path 'nil '(#$ . -27323) :group 'typerex-misc :type 'string)
#@58 *Maximum number of items a definitions menu can contain.
(custom-declare-variable 'typerex-definitions-max-items '30 '(#$ . -27498) :group 'typerex-misc :type 'integer)
#@45 *List of menu-configurable TypeRex options.
(defvar typerex-options-list '(("Automatic indentation of leading keywords" quote typerex-use-abbrev-mode) ("Automatic indentation of ), ] and }" quote typerex-electric-indent) ("Automatic matching of [| and {<" quote typerex-electric-close-vector) "---" ("Indent body of comments" quote typerex-indent-comments) ("Indent first line of comments" quote typerex-indent-leading-comments) ("Leading-`*' comment style" quote typerex-support-leading-star-comments)) (#$ . -27673))
#@45 *List of menu-configurable TypeRex options.
(defvar typerex-interactive-options-list '(("Skip phrase after evaluation" quote typerex-skip-after-eval-phrase) ("Echo phrase in interactive buffer" quote typerex-interactive-echo-phrase) "---" ("Font-lock interactive input" quote typerex-interactive-input-font-lock) ("Font-lock interactive output" quote typerex-interactive-output-font-lock) ("Font-lock interactive error" quote typerex-interactive-error-font-lock) "---" ("Read only input" quote typerex-interactive-read-only-input)) (#$ . -28198))
#@64 *Default program name for invoking a Caml toplevel from Emacs.
(defvar typerex-interactive-program "ocaml" (#$ . -28751))
#@43 *If nil, use our own parsing and caching.
(defconst typerex-use-syntax-ppss (fboundp 'syntax-ppss) (#$ . -28879))
(byte-code "\302B\303\304\301!\205\305	\236!\210\306\307\310\311\312\313%\210\307B\314\307!\204'\315\307\211\"\210\306\316\317\320\312\313%\210\316B\314\316!\204>\315\316\211\"\210\306\321\322\323\312\313%\210\321B\314\321!\204U\315\321\211\"\210\306\324\325\326\312\313%\210\324B\314\324!\204l\315\324\211\"\210\306\327\330\331\312\313%\210\327B\314\327!\204\203\315\327\211\"\210\306\332\n\203\215\333\202\216\334\335\312\313%\210\332B\314\332!\204\242\315\332\211\"\210\336B\314\336!\204\277\315\336\337\336!\210\340\336\341\"\210\342\336\343\"\210\336\"\210\344B\314\344!\204\327\315\344\337\344!\210\340\344\343\"\210\344\"\210\302\207" [current-load-list face-attribute-name-alist typerex-faces-inherit-p (lambda (#1=#:defconst-tmp-var) (defconst typerex-faces-inherit-p #1#)) boundp :inherit custom-declare-face typerex-font-lock-governing-face ((((background light)) (:foreground "blue" :bold t)) (t (:foreground "orange" :bold t))) "Face description for governing/leading keywords." :group typerex-tuareg-faces default-boundp set-default typerex-font-lock-multistage-face ((((background light)) (:foreground "darkblue" :background "lightgray" :bold t)) (t (:foreground "steelblue" :background "darkgray" :bold t))) "Face description for MetaOCaml staging operators." typerex-font-lock-operator-face ((((background light)) (:foreground "brown")) (t (:foreground "khaki"))) "Face description for all operators." typerex-font-lock-error-face ((t (:foreground "yellow" :background "red" :bold t))) "Face description for all errors reported to the source." typerex-font-lock-interactive-output-face ((((background light)) (:foreground "blue4")) (t (:foreground "cyan"))) "Face description for all toplevel outputs." typerex-font-lock-interactive-error-face ((t :inherit font-lock-warning-face)) ((((background light)) (:foreground "red3")) (t (:foreground "red2"))) "Face description for all toplevel errors." caml-font-stop-face make-face set-face-foreground "White" set-face-background "Red" caml-font-doccomment-face] 6)
(defalias 'typerex-leading-star-p #[nil "\205\212\302 \210	\204\303\304!?\205\305y\210\306 \210\303\307!)\207" [typerex-support-leading-star-comments typerex-leading-star-in-doc typerex-beginning-of-literal-or-comment looking-at "(\\*[Tt][Ee][Xx]\\|(\\*\\*" 1 back-to-indentation "\\*[^)]"] 2])
(defalias 'typerex-auto-fill-insert-leading-star #[(&optional leading-star) "\304\305!\306\212\307 \210\n\2030\310 \203(\204\311 \203(\304\312!\204&\313\314!\210\315	\2040\316\315!\210)*\207" [return-leading point-leading-comment typerex-electric-indent leading-star looking-at "(\\*" nil back-to-indentation typerex-in-comment-p typerex-leading-star-p "(?\\*" insert-before-markers "* " t typerex-indent-command] 2])
(defalias 'typerex-auto-fill-function #[nil "\302 ?\205 \303\304\"?\205\305 \306 \210\303\304\"?\205\305	!)\207" [last-command-event leading-star typerex-in-literal-p char-equal 10 typerex-auto-fill-insert-leading-star do-auto-fill] 3])
(defalias 'typerex-forward-char #[(&optional step) "\203	`\\b\207`Tb\207" [step] 2])
(defalias 'typerex-backward-char #[(&optional step) "\203	`Zb\207`Sb\207" [step] 2])
#@77 Return non-nil if all chars between beginning of line and point are blanks.
(defalias 'typerex-in-indentation-p #[nil "\212\300\301x\210n)\207" [" 	" nil] 2 (#$ . 32210)])
(byte-code "\301B\302\301!\204\303\301e\"\210\304\301!\210\305B\302\305!\204\"\303\305\306\"\210\304\305!\210\307B\302\307!\2045\303\307\306\"\210\304\307!\210\310B\302\310!\204H\303\310\306\"\210\304\310!\210\311B\302\311!\204]\303\311\306\211B\"\210\306\207" [current-load-list typerex-cache-stop default-boundp set-default make-variable-buffer-local typerex-cache nil typerex-cache-local typerex-cache-last-local typerex-last-loc] 4)
(defalias 'typerex-ppss-in-literal-or-comment #[nil "\300\301!\207" [error "ocp uses PPSS"] 2])
(defalias 'typerex-ppss-fontify #[(beg end) "\300\301!\207" [error "ocp uses PPSS"] 2])
#@52 Returns non-nil if point is inside a Caml literal.
(defalias 'typerex-ppss-in-literal-p #[nil "\300\301 8\207" [3 syntax-ppss] 2 (#$ . 33025)])
#@68 Returns non-nil if point is inside or right before a Caml comment.
(defalias 'typerex-ppss-in-comment-p #[nil "\300\301 8\206\n\302\303!\207" [4 syntax-ppss looking-at "[ 	]*(\\*"] 2 (#$ . 33175)])
#@63 Returns non-nil if point is inside a Caml literal or comment.
(defalias 'typerex-ppss-in-literal-or-comment-p #[nil "\300\301 8\207" [8 syntax-ppss] 2 (#$ . 33380)])
#@71 Skips to the beginning of the current literal or comment (or buffer).
(defalias 'typerex-ppss-beginning-of-literal-or-comment #[nil "\300\301 8\206`b\207" [8 syntax-ppss] 2 (#$ . 33552) nil])
(defalias 'typerex-ppss-beginning-of-literal-or-comment-fast #[nil "\300\301 8\206eb\207" [8 syntax-ppss] 2])
(defalias 'typerex-backward-up-list 'backward-up-list)
#@51 Return non-nil if point is inside a Caml literal.
(defalias 'typerex-!ppss-in-literal-p #[nil "\300 @\207" [typerex-in-literal-or-comment] 1 (#$ . 33919)])
#@51 Return non-nil if point is inside a Caml comment.
(defalias 'typerex-!ppss-in-comment-p #[nil "\300 A\207" [typerex-in-literal-or-comment] 1 (#$ . 34081)])
#@62 Return non-nil if point is inside a Caml literal or comment.
(defalias 'typerex-!ppss-in-literal-or-comment-p #[nil "\301 \210@\206\nA\207" [typerex-last-loc typerex-in-literal-or-comment] 1 (#$ . 34243)])
#@70 Return the pair `((typerex-in-literal-p) . (typerex-in-comment-p))'.
(defalias 'typerex-!ppss-in-literal-or-comment #[nil "`X\203W	\203W\n\203\203`\211@@)Y\203	\n\2037`\n\211@@)W\2037\n\nA\211\204#\n\203Q\n\211@A)@\306=\n\211@A)A\307VB\202T\310\211B\211\207\311``dS^\307\310	\203	\211@@)X\203	A\211\204m	\203\303	\211@A)@\306=\203\251	\211@@)S\211b\210	\211@A)A	A\202\306	\211@A)A	\211@@)\211b\210\312\310w\210\202\306eb\210\313\310x\210\203\276
\203\332\307\310\314\310w\210\315\316!\203\353\317\320!\210\202\264
\315\321!\203
`T\306BB	B\307\225b\210`\322BB	B\202\264
\2030
\315\323!\2030
`T\306BB	B\307\225b\210`\322BB	B\202\264
\315\324!\203f
\317 \210`\306BB	B\325\310w\210\315\316!\203W
\317\320!\210\325\310w\210\202F
\317 \210`\322BB	B\202\264
\315\326!\203\201
T`\310BB	B\317\320!\210\202\264
\315\327!\203\261
\317\320!\210\330V\203\243
S`\310BB	B\202\264
\311`\310\307BB	B\202\264
\317 \210`X\211\204\317	`b\210	\203\317
\331 \202\324
\310\211B\211-\207" [typerex-cache-stop typerex-cache typerex-cache-local typerex-cache-last-local x typerex-last-loc b 0 nil t "(" "\\\\*" "^\\\\'`\"(\\*" looking-at "\\\\" typerex-forward-char 2 "'\\([^\n\\']\\|\\\\[^ 	\n][^ 	\n]?[^ 	\n]?\\)'" e "`\\([^\n\\']\\|\\\\[^ 	\n][^ 	\n]?[^ 	\n]?\\)`" "\"" "^\\\\\"" "(\\*" "\\*)" 1 typerex-in-literal-or-comment end-of-comment balance mp op flag typerex-support-camllight] 6 (#$ . 34458)])
#@71 Skips to the beginning of the current literal or comment (or buffer).
(defalias 'typerex-!ppss-beginning-of-literal-or-comment #[nil "\300 \205\301 \207" [typerex-in-literal-or-comment-p typerex-beginning-of-literal-or-comment-fast] 1 (#$ . 35963) nil])
(defalias 'typerex-!ppss-beginning-of-literal-or-comment-fast #[nil "\203%\211@A)@\303=\204\211@A)A\304V\203%A\211\204\n\2034\n\211@@)b\210\2027eb\210\n\211@A)@\303=\205E\305 \207" [typerex-cache-local x typerex-cache-last-local b 0 typerex-backward-char] 3])
#@55 Safe up-list regarding comments, literals and errors.
(defalias 'typerex-!ppss-backward-up-list #[nil "\305`\306\307 \210`eV\205d\n\310V\205d\203\"\211@@)\202#e\306\311\312\217\210`Y\2035\nS\202_	b\210\313\306x\210\314 \210\315 \203J\316 \210\202_\317\320!\203V\nS\202_\317\321!\203_\nT`\202	+\207" [oc op balance typerex-cache-local x 1 nil typerex-in-literal-or-comment 0 (up-list -1) ((error (byte-code "eb\207" [] 1))) "^[]{}()" typerex-backward-char typerex-in-literal-or-comment-p typerex-beginning-of-literal-or-comment-fast looking-at "[[{(]" "[]})]"] 4 (#$ . 36505)])
(byte-code "\301\302\203\n\303\202\304\"\210\301\305\203\306\202\307\"\210\301\310\203$\311\202%\312\"\210\301\313\2031\314\2022\315\"\210\301\316\203>\317\202?\320\"\210\301\321\203K\322\202L\323\"\210\301\324\203X\325\202Y\326\"\210\301\327\203e\330\202f\331\"\207" [typerex-use-syntax-ppss defalias typerex-in-literal-or-comment typerex-ppss-in-literal-or-comment typerex-!ppss-in-literal-or-comment typerex-fontify typerex-ppss-fontify typerex-!ppss-fontify typerex-in-literal-p typerex-ppss-in-literal-p typerex-!ppss-in-literal-p typerex-in-comment-p typerex-ppss-in-comment-p typerex-!ppss-in-comment-p typerex-in-literal-or-comment-p typerex-ppss-in-literal-or-comment-p typerex-!ppss-in-literal-or-comment-p typerex-beginning-of-literal-or-comment typerex-ppss-beginning-of-literal-or-comment typerex-!ppss-beginning-of-literal-or-comment typerex-beginning-of-literal-or-comment-fast typerex-ppss-beginning-of-literal-or-comment-fast typerex-!ppss-beginning-of-literal-or-comment-fast typerex-backward-up-list backward-up-list typerex-!ppss-backward-up-list] 3)
#@63 Is the underlying `=' the first/second letter of an operator?
(defalias 'typerex-false-=-p #[nil "h\300>\206\f\301\302`Tf\"\207" [(58 62 60 61) char-equal 61] 3 (#$ . 38210)])
#@39 Is the underlying `;' a phrase break?
(defalias 'typerex-at-phrase-break-p #[nil "\300\301g\"\205m\204\300\301`Tf\"\206\300\301h\"\207" [char-equal 59] 3 (#$ . 38393)])
#@162 *Display fun and -> and such using symbols in fonts.
This may sound like a neat trick, but note that it can change the
alignment and can thus lead to surprises.
(custom-declare-variable 'typerex-font-lock-symbols 'nil '(#$ . -38575) :group 'typerex-syntax-coloring :type 'boolean)
#@47 If true, enable Font-Lock syntax highlighting
(custom-declare-variable 'ocp-syntax-coloring 't '(#$ . 38862) :group 'typerex-syntax-coloring :type '(boolean))
#@312 coloring theme (one of syntactic, tuareg_like, and tuareg).
  - syntactic uses the new OCP Faces
  - tuareg_like and tuareg uses the TypeRex Face, which are the Tuareg
  tuareg_like is a full re-implementation of Tuareg coloring, with not
  exactly the same bugs. tuareg is the unchanged tuareg implementation.
(custom-declare-variable 'ocp-theme 'nil '(#$ . 39028) :group 'typerex-syntax-coloring :type '(string))
(byte-code "\301B\302\301!\204\245\303\301\304\305!\203
\304\306!\203
\306\307!\203
\310\305\307\311\"B\312\305\307\313\"B\314\305\307\315\"B\316\305\307\317\"B\320\305\307\321\"B\322\305\307\321\"B\323\305\307\324\"B\325\305\307\326\"B\327\305\307\330\"B\331\305\307\332\"B\333\305\307\334\"B\335\305\307\336\"B\337\305\307\340\"B\341\305\307\342\"B\343\305\307\344\"B\345\305\307\346\"B\347\305\307\350\"B\351\305\307\352\"B\353\305\307\354\"B\355\305\307\356\"B\357\305\307\360\"B\361\305\307\362\"B\363\305\307\364\"B\365\305\307\366\"B\367\305\307\370\"B\371\305\307\372\"B\373\305\307\374\"B\375\305\307\376\"B\377\305\307\201@\"B\201A\305\307\201B\"B\201C\305\307\201D\"B\201E\305\307\201F\"B\201G\305\307\201H\"B\201I\305\307\201J\"B\257\"\202\243\304\201K!\205\243\310\201K\201L\201M\"B\312\201K\201L\201N\"B\314\201K\201L\332\"B\316\201K\201L\201O\"B\320\201K\201L\201P\"B\322\201K\201L\201P\"B\323\201K\201L\201Q\"B\325\201K\201L\201R\"B\333\201K\201L\201S\"B\331\201K\201L\201T\"B\327\201K\201L\201U\"B\335\201K\201L\201V\"B\337\201K\201L\201W\"B\341\201K\201L\201X\"B\343\201K\201L\201Y\"B\345\201K\201L\201Z\"B\351\201K\201L\201[\"B\353\201K\201L\201\\\"B\355\201K\201L\201]\"B\357\201K\201L\201^\"B\361\201K\201L\201_\"B\363\201K\201L\201`\"B\365\201K\201L\201a\"B\367\201K\201L\201b\"B\371\201K\201L\201c\"B\373\201K\201L\201d\"B\375\201K\201L\201e\"B\377\201K\201L\201f\"B\201A\201K\201L\201g\"B\201C\201K\201L\201h\"B\201E\201K\201L\201i\"B\201G\201K\201L\201j\"B\201I\201K\201L\201k\"B\257!\"\210\301\207" [current-load-list typerex-font-lock-symbols-alist default-boundp set-default fboundp make-char charsetp symbol "fun" 108 "sqrt" 214 "not" 216 "&&" 217 "or" 218 "||" "*." 183 "/." 184 "<=" 163 "<-" 172 "->" 174 ">=" 179 "<>" 185 "==" 186 "<=>" 219 ":=" 220 "=>" 222 "infinity" 165 "'a" 97 "'b" 98 "'c" 103 "'d" 100 "'e" 101 "'f" 102 "'i" 105 "'k" 107 "'m" 109 "'n" 110 "'o" 111 "'p" 112 "'r" 114 "'s" 115 "'t" 116 "'x" 120 decode-char ucs 955 8730 8896 8897 215 247 8594 8592 8804 8805 8800 8801 8660 8656 8734 945 946 947 948 949 966 953 954 956 957 969 960 961 963 964 958] 39)
#@91 Compose a sequence of ascii chars into a symbol.
Regexp match data 0 points to the chars.
(defalias 'typerex-font-lock-compose-symbol #[(alist) "\304\224\304\225fzSf\206\305z\n=\204,	f\206\305z\n=\204,\306\307\"\310>\2035\311	\312#\210\202A\313	\314\315\304!\"A#\210+\316\207" [mbegin mend syntax alist 0 32 get-text-property face (typerex-doc-face font-lock-string-face font-lock-comment-face) remove-text-properties (composition) compose-region assoc match-string nil] 6 (#$ . 41677)])
(defalias 'typerex-font-lock-symbols-keywords #[nil "\304\305!\205M\306	\306\211\2037@\304\307!\203 \307\nA!\202!\310\2030\311\n@\"\2040\nBA\211\204*\205L\312\313\314\"\310\"\315\316\317DDDDC)\207" [alist typerex-font-lock-symbols-alist x #1=#:--cl-dolist-temp-- fboundp compose-region nil char-displayable-p t assoc regexp-opt mapcar car 0 typerex-font-lock-compose-symbol quote] 5])
#@46 Syntax table in use in TypeRex mode buffers.
(defvar typerex-mode-syntax-table (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\303\315	\203+\316\202,\312#\210\303\317\316#\210\303\320\321#\210\303\322\323#\210\324\325\326\217\210)\207" [st typerex-support-camllight make-syntax-table modify-syntax-entry 95 "_" 63 ". p" 126 58 "." 39 "w" 96 "\"" 34 92 "\\" 42 ". 23" nil (byte-code "\301\302\303#\210\301\304\305#\207" [st modify-syntax-entry 40 "()1n" 41 ")(4n"] 4) ((error (byte-code "\301\302\303#\210\301\304\305#\207" [st modify-syntax-entry 40 "()1" 41 ")(4"] 4)))] 4) (#$ . 42595))
(defalias 'typerex-with-internal-syntax '(macro . #[(&rest body) "\301\302\303\304\301B\305BBF\207" [body progn (modify-syntax-entry 46 "w" typerex-mode-syntax-table) (modify-syntax-entry 95 "w" typerex-mode-syntax-table) unwind-protect ((modify-syntax-entry 46 "." typerex-mode-syntax-table) (modify-syntax-entry 95 "_" typerex-mode-syntax-table))] 6]))
(byte-code "\302B\303\302!\204\304\302\305\306!\203\306\202\307\"\210	\204,\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\317B\320\321!\207" [current-load-list typerex-use-syntax-ppss typerex-doc-face default-boundp set-default facep font-lock-doc-face font-lock-doc-string-face defalias typerex-fontify-buffer #[nil "\300 \210\301ed\"\207" [font-lock-default-fontify-buffer typerex-fontify] 3] typerex-fontify-region #[(begin end &optional verbose) "\303	\n#\210\304	\"\207" [begin end verbose font-lock-default-fontify-region typerex-fontify] 4] typerex-fontify #[(begin end) "\306=\205\307\212\307\310\311	#\210\307\312\311	#\210\313\216\314\315 \fb\210\316 
Sb\210\314\210\204/\317y\210`\211\fV\203\271
Sb\210\320 \210A\203b\321 \210\322\f`]
\323\324\325!\203X\202Y\326$\210`S\211\2022@\203z\321 \210\322\f`]
\323\327$\210`\211\2022\203\243\211@@)
V\204\232\211@A)@\330=\203\243A\211\204\203\263\211@@)\202\264\f\211\2022\206\277\n?\205\306\331\314!,\207" [major-mode typerex-mode-syntax-table modified case-fold-search begin end typerex-mode modify-syntax-entry 46 "w" 95 ((byte-code "\301\302\303#\210\301\304\305#\207" [typerex-mode-syntax-table modify-syntax-entry 46 "." 95 "_"] 4)) nil buffer-modified-p line-beginning-position 2 typerex-in-literal-or-comment typerex-beginning-of-literal-or-comment put-text-property face looking-at "(\\*[Tt][Ee][Xx]\\|(\\*\\*[^*]" font-lock-comment-face font-lock-string-face b set-buffer-modified-p typerex-with-xemacs typerex-last-loc typerex-doc-face typerex-cache-local x] 7] typerex-font-lock-syntactic-keywords (lambda (#1=#:defconst-tmp-var) (defconst typerex-font-lock-syntactic-keywords #1#)) (("\\<\\('\\)\\([^'\\\n]\\|\\\\.[^\\'\n \")]*\\)\\('\\)" (1 '(7)) (3 '(7))))] 4)
(defalias 'typerex-font-lock-syntactic-face-function #[(state) "\3058\203	\207\3068d\n\307\\V\203*\n\307\\f\310=\203*\n\305\\f\310=\204*\202+\f)\207" [state font-lock-string-face start typerex-doc-face font-lock-comment-face 3 8 2 42] 3])
#@38 Font-Lock patterns for TypeRex mode.
(defvar typerex-font-lock-keywords nil (#$ . 45677))
#@30 Keymap used in TypeRex mode.
(defvar typerex-mode-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\315#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\330#\210\303\332\330#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\346#\210\303\356\350#\210\303\357\346#\210\303\360\350#\210\303\361\346#\210\303\362\350#\210\303\363\364#\210\303\365\366#\210\303\367\366#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@\201A#\210\303\201B\201C#\210\303\201D\201E#\210\303\201F\201G#\210	\203e
\303\201H\201I#\210\303\201J\201K#\210\303\201L\201M#\210\303\201N\201O#\210\303\201P\201Q#\210\303\201R\201S#\210\303\201T\201U#\210\303\201V\201W#\210\303\201X\201Y#\210\303\201Z\201[#\210)\207" [map typerex-with-caml-mode-p make-sparse-keymap define-key "|" typerex-electric-pipe ")" typerex-electric-rp "}" typerex-electric-rc "]" typerex-electric-rb "\361" typerex-indent-phrase "" "\234" indent-region "
" typerex-find-alternate-file "" compile "nd" typerex-narrow-to-phrase "\230" typerex-eval-phrase "" "" "" typerex-eval-region "" typerex-eval-buffer "" typerex-run-caml "	" typerex-interrupt-caml "" typerex-kill-caml "" typerex-next-phrase "" typerex-previous-phrase [(backspace)] backward-delete-char-untabify [(control c) (home)] typerex-move-inside-module-or-class-opening [(control c) (control down)] [(control c) (control up)] [(meta control down)] [(meta control up)] [(meta control n)] [(meta control p)] [(meta control h)] typerex-mark-phrase "`" typerex-interactive-next-error-source "?" ".c" typerex-insert-class-form ".b" typerex-insert-begin-form ".f" typerex-insert-for-form ".w" typerex-insert-while-form ".i" typerex-insert-if-form ".l" typerex-insert-let-form ".m" typerex-insert-match-form ".t" typerex-insert-try-form [3 20] caml-types-show-type [3 6] caml-types-show-call [3 12] caml-types-show-ident [3 mouse-1] caml-types-mouse-ignore [3 down-mouse-1] caml-types-explore [3 105] ocaml-add-path [3 91] ocaml-open-module [3 93] ocaml-close-module [3 104] caml-help [3 9] typerex-complete] 4) (#$ . 45773))
#@31 Syntax changes for Font-Lock.
(defconst typerex-font-lock-syntax (byte-code "\301\302?\205\303BB\207" [typerex-use-syntax-ppss (95 . "w") (96 . ".") ((34 . ".") (40 . ".") (41 . ".") (42 . "."))] 3) (#$ . 48176))
#@45 Abbrev table used for TypeRex mode buffers.
(defvar typerex-mode-abbrev-table nil (#$ . 48398))
(defalias 'typerex-define-abbrev #[(keyword) "\302	\211\303$\207" [typerex-mode-abbrev-table keyword define-abbrev typerex-abbrev-hook] 5])
(byte-code "\204\302 \303\304\305\"\210\306\306\207" [typerex-mode-abbrev-table abbrevs-changed make-abbrev-table mapc typerex-define-abbrev ("module" "class" "functor" "object" "type" "val" "inherit" "include" "virtual" "constraint" "exception" "external" "open" "method" "and" "initializer" "to" "downto" "do" "done" "else" "begin" "end" "let" "in" "then" "with") nil] 3)
#@991 Major mode for OCaml programming.

Dedicated to Emacs, (tested with version 23.2.1). Provides
- font/color highlighting (new implementation)
- automatic identifier completion (experimental, disabled by default)
- identifier browsing
- refactoring
And the Tuareg-mode features, including
- automatic indentation
- compilation, interactive interpreter, and debugger embedding

Report bugs, remarks and questions to OCamlPro.


For customization purposes, you can use `typerex-mode-hook'
(run for every file) or `typerex-load-hook' (run once). See the Tuareg-mode
documentation.

`M-x camldebug' FILE starts the Caml debugger camldebug on the executable
FILE, with input and output in an Emacs buffer named *camldebug-FILE*.

A TypeRex Interactive Mode to evaluate expressions in a toplevel is included.
Type `M-x typerex-run-caml' or see special-keys below.

Short cuts for the TypeRex mode:
\{typerex-mode-map}

Short cuts for interactions with the toplevel:
\{typerex-interactive-mode-map}
(defalias 'typerex-mode #[nil "\306 \210\307\310\311\n!\210\312!\210\f\313 \210\314 \210\315\316!\210\3170P\315\320!\210\315\321!\210\322\315\323!\210\324\315\325!\210\326\315\327!\210\330\315\331!\210\332\315\333!\210\322\315\334!\210\335\315\336!\210\3371\204m\340\341\342\335\322$\210\315\343!\210\344#\345\346!\203\200\3472\35034\203\2175\351\230\204\217\352 \210\353\354!\2106\203\234\355\356!\210\357\335!\207" [major-mode mode-name typerex-mode-map typerex-mode-syntax-table typerex-mode-abbrev-table local-abbrev-table kill-all-local-variables typerex-mode "TypeRex" use-local-map set-syntax-table typerex-build-menu typerex-make-indentation-regexps make-local-variable paragraph-start "^[ 	]*$\\|\\*)$\\|" paragraph-separate require-final-newline t comment-start "(* " comment-end " *)" comment-column 40 comment-start-skip "(\\*+[ 	]*" comment-multi-line parse-sexp-ignore-comments nil indent-line-function typerex-indent-command add-hook before-change-functions typerex-before-change-function normal-auto-fill-function typerex-auto-fill-function featurep imenu typerex-imenu-prev-index-position typerex-imenu-extract-index-name "caml" typerex-install-font-lock run-hooks typerex-mode-hook abbrev-mode 1 message page-delimiter typerex-use-syntax-ppss imenu-prev-index-position-function imenu-extract-index-name-function ocp-syntax-coloring ocp-theme typerex-use-abbrev-mode] 5 (#$ . 49021) nil])
(defalias 'typerex-install-font-lock #[nil "\306\307 \205\310\311\205
\312\313\307 \203\314\202\315\316\307 \203\"\317\202#\320\321\307 \205*\322\323	\2051\324 &\302?\325\f\325\326\327\330?\205C\331BBBBBBBB\332\333!\205_?\205_\334\333!\210\335\211\207" [typerex-support-metaocaml typerex-font-lock-symbols typerex-font-lock-keywords typerex-use-syntax-ppss typerex-font-lock-syntax font-lock-defaults append typerex-editing-ls3 (("\\<\\(let[ 	\n]+\\(clock\\|node\\|static\\)\\|present\\|automaton\\|where\\|match\\|with\\|do\\|done\\|unless\\|until\\|reset\\|every\\)\\>" 0 typerex-font-lock-governing-face nil nil)) (("\\<\\(external\\|open\\|include\\|rule\\|s\\(ig\\|truct\\)\\|module\\|functor\\|with[ 	\n]+\\(type\\|module\\)\\|val\\|type\\|method\\|virtual\\|constraint\\|class\\|in\\|inherit\\|initializer\\|let\\|rec\\|object\\|and\\|begin\\|end\\)\\>" 0 typerex-font-lock-governing-face nil nil)) (("\\.<\\|>\\.\\|\\.~\\|\\.!" 0 typerex-font-lock-multistage-face nil nil)) (("\\<\\(false\\|true\\)\\>" 0 font-lock-constant-face nil nil) ("\\<\\(as\\|do\\(ne\\|wnto\\)?\\|else\\|for\\|if\\|mutable\\|new\\|p\\(arser\\|rivate\\)\\|t\\(hen\\|o\\|ry\\)\\|wh\\(en\\|ile\\)\\|match\\|with\\|lazy\\|exception\\|raise\\|failwith[f]?\\|exit\\|assert\\|fun\\(ction\\)?\\)\\>" 0 font-lock-keyword-face nil nil)) (("\\<\\(merge\\|when\\|emit\\|period\\)\\>" 0 font-lock-keyword-face nil nil) ("[][;,()|{}]\\|[@^!:*=<>&/%+~?#---]\\.?\\|\\.\\.\\.*\\|\\<\\(asr\\|asl\\|lsr\\|lsl\\|l?or\\|l?and\\|lxor\\|l?not\\|mod\\|of\\|ref\\|fby\\|pre\\|last\\|at\\)\\>" 0 typerex-font-lock-operator-face nil nil) ("\\<\\(\\(method\\([ 	\n]+\\(private\\|virtual\\)\\)?\\)\\([ 	\n]+virtual\\)?\\|val\\([ 	\n]+mutable\\)?\\|external\\|and\\|class\\|let\\([ 	\n]+\\(rec\\|clock\\|node\\|static\\)\\)?\\)\\>[ 	\n]*\\(['_[:lower:]]\\(\\w\\|[._]\\)*\\)\\>[ 	\n]*\\(\\(\\w\\|[()_?~.'*:--->]\\)+\\|=[ 	\n]*fun\\(ction\\)?\\>\\)" 9 font-lock-function-name-face keep nil)) (("[][;,()|{}]\\|[@^!:*=<>&/%+~?#---]\\.?\\|\\.\\.\\.*\\|\\<\\(asr\\|asl\\|lsr\\|lsl\\|l?or\\|l?and\\|lxor\\|l?not\\|mod\\|of\\|ref\\)\\>" 0 typerex-font-lock-operator-face nil nil) ("\\<\\(\\(method\\([ 	\n]+\\(private\\|virtual\\)\\)?\\)\\([ 	\n]+virtual\\)?\\|val\\([ 	\n]+mutable\\)?\\|external\\|and\\|class\\|let\\([ 	\n]+rec\\)?\\)\\>[ 	\n]*\\(['_[:lower:]]\\(\\w\\|[._]\\)*\\)\\>[ 	\n]*\\(\\(\\w\\|[()_?~.'*:--->]\\)+\\|=[ 	\n]*fun\\(ction\\)?\\>\\)" 8 font-lock-function-name-face keep nil)) (("\\<method\\([ 	\n]+\\(private\\|virtual\\)\\)?\\>[ 	\n]*\\(\\(\\w\\|[_,?~.]\\)*\\)" 3 font-lock-function-name-face keep nil) ("\\<\\(fun\\(ction\\)?\\)\\>[ 	\n]*\\(\\(\\w\\|[_ 	()*,]\\)+\\)" 3 font-lock-variable-name-face keep nil)) (("\\<\\(reset\\|do\\|val\\([ 	\n]+mutable\\)?\\|external\\|and\\|class\\|let\\([ 	\n]+rec\\)?\\)\\>[ 	\n]*\\(\\(\\w\\|[_,?~.]\\)*\\)" 4 font-lock-variable-name-face keep nil) ("\\<\\(reset\\|do\\|val\\([ 	\n]+mutable\\)?\\|external\\|method\\|and\\|class\\|let\\([ 	\n]+\\(rec\\|clock\\|node\\|static\\)\\)?\\)\\>[ 	\n]*\\(\\(\\w\\|[_,?~.]\\)*\\)\\>\\(\\(\\w\\|[->_ 	,?~.]\\|(\\(\\w\\|[--->_ 	,?~.=]\\)*)\\)*\\)" 7 font-lock-variable-name-face keep nil)) (("\\<\\(val\\([ 	\n]+mutable\\)?\\|external\\|and\\|class\\|let\\([ 	\n]+rec\\)?\\)\\>[ 	\n]*\\(\\(\\w\\|[_,?~.]\\)*\\)" 4 font-lock-variable-name-face keep nil) ("\\<\\(val\\([ 	\n]+mutable\\)?\\|external\\|method\\|and\\|class\\|let\\([ 	\n]+rec\\)?\\)\\>[ 	\n]*\\(\\(\\w\\|[_,?~.]\\)*\\)\\>\\(\\(\\w\\|[->_ 	,?~.]\\|(\\(\\w\\|[--->_ 	,?~.=]\\)*)\\)*\\)" 6 font-lock-variable-name-face keep nil)) (("\\<\\(open\\|\\(class\\([ 	\n]+type\\)?\\)\\([ 	\n]+virtual\\)?\\|inherit\\|include\\|module\\([ 	\n]+\\(type\\|rec\\)\\)?\\|type\\)\\>[ 	\n]*\\(['~?]*\\([_--->.* 	]\\|\\w\\|(['~?]*\\([_--->.,* 	]\\|\\w\\)*)\\)*\\)" 7 font-lock-type-face keep nil)) (("\\<val\\>[ 	\n]*\\w*[ 	\n]*::[ 	\n]*\\(['~?]*\\([_--->.* 	]\\|\\w\\|(['~?]*\\([_--->.,* 	]\\|\\w\\)*)\\)*\\)" 1 font-lock-type-face keep nil)) (("[^:>=]:[ 	\n]*\\(['~?]*\\([_--->.* 	]\\|\\w\\|(['~?]*\\([_--->.,* 	]\\|\\w\\)*)\\)*\\)" 1 font-lock-type-face keep nil) ("\\<\\([A-Z]\\w*\\>\\)[ 	]*\\." 1 font-lock-type-face keep nil) ("\\<\\([?~]?[_[:alpha:]]\\w*\\)[ 	\n]*:[^:>=]" 1 font-lock-variable-name-face keep nil) ("\\<exception\\>[ 	\n]*\\(\\<[_[:alpha:]]\\w*\\>\\)" 1 font-lock-variable-name-face keep nil) ("^#\\w+\\>" 0 font-lock-preprocessor-face t nil)) typerex-font-lock-symbols-keywords nil (font-lock-syntactic-keywords . typerex-font-lock-syntactic-keywords) (parse-sexp-lookup-properties . t) (font-lock-syntactic-face-function . typerex-font-lock-syntactic-face-function) ((font-lock-fontify-region-function . typerex-fontify-region)) boundp font-lock-fontify-region-function make-local-variable typerex-fontify-region] 12])
(require 'compile)
#@68 Regular expression matching the error messages produced by ocamlc.
(defconst typerex-error-regexp "^[ A-\377]+ \"\\([^\"\n]+\\)\", [A-\377]+ \\([0-9]+\\)[-,:]" (#$ . 56238))
(byte-code "\302\301!\203\303	\"\204\304\305E	B\302\207" [typerex-error-regexp compilation-error-regexp-alist boundp assoc 1 2] 3)
#@76 Regexp matching the char numbers in an error message produced by (o)camlc.
(defconst typerex-error-chars-regexp ".*, .*, [^-@]+ \\([0-9]+\\)-\\([0-9]+\\):" (#$ . 56556))
(byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice next-error (typerex-next-error nil t (advice lambda nil "Read the extra positional information provided by the Caml compiler.\n\nPuts the point and the mark exactly around the erroneous program\nfragment. The erroneous fragment is also temporarily highlighted if\npossible." (when (eq major-mode 'typerex-mode) (let ((beg nil) (end nil)) (with-current-buffer compilation-last-buffer (save-excursion (goto-char (window-point (get-buffer-window (current-buffer) t))) (when (looking-at typerex-error-chars-regexp) (setq beg (string-to-number (typerex-match-string 1)) end (string-to-number (typerex-match-string 2)))))) (beginning-of-line) (when beg (setq beg (+ (point) beg) end (+ (point) end)) (goto-char beg) (push-mark end t t)))))) after nil ad-activate] 5)
#@66 Regular expression matching the error messages produced by Caml.
(defvar typerex-interactive-error-regexp "\\(\\(Toplevel input:\\|Entr.e interactive:\\|Characters [0-9-]*:\\|The global value [^ ]* is referenced before being defined.\\|La valeur globale [^ ]* est utilis.e avant d'.tre d.finie.\\|Reference to undefined global\\|The C primitive \"[^\"]*\" is not available.\\|La primitive C \"[^\"]*\" est inconnue.\\|Cannot find \\(the compiled interface \\)?file\\|L'interface compil.e [^ ]* est introuvable.\\|Le fichier [^ ]* est introuvable.\\|Exception non rattrap.e:\\|Uncaught exception:\\)[^#]*\\)" (#$ . 57566))
#@81 Regexp matching lines which have no more code:
 blanks + (maybe) comment start.
(defconst typerex-no-more-code-this-line-regexp "[ 	]*\\((\\*\\|$\\)" (#$ . 58194))
(defalias 'typerex-no-code-after '(macro . #[(rex) "\301\302\303BBD\207" [rex eval-when-compile concat (typerex-no-more-code-this-line-regexp)] 4]))
(byte-code "\302B\303\304	P!\207" [current-load-list typerex-no-more-code-this-line-regexp typerex-no-code-this-line-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-no-code-this-line-regexp #1#)) "^"] 3)
(defalias 'typerex-ro #[(&rest words) "\301\302\303\"\304Q\207" [words "\\<" regexp-opt t "\\>"] 4])
#@79 Regexp for keywords needing extra indentation to compensate for case matches.
(defconst typerex-extra-unindent-regexp (byte-code "\301\302\303\304\305\306\307%\310\311\260\207" [typerex-no-more-code-this-line-regexp "\\(" typerex-ro "with" "fun" "function" "parse" "parser" "\\|\\[" "\\)"] 7) (#$ . 58831))
(byte-code "\301B\302\303\304\305\306\"P!\207" [current-load-list typerex-ls3-extras (lambda (#1=#:defconst-tmp-var) (defconst typerex-ls3-extras #1#)) "\\|" typerex-ro "automaton" "present"] 5)
#@79 Regexp for keywords needing extra indentation to compensate for case matches.
(defconst typerex-extra-unindent-regexp-ls3 (concat typerex-extra-unindent-regexp typerex-ls3-extras) (#$ . 59343))
(defalias 'typerex-give-extra-unindent-regexp #[nil "\302 \203\207	\207" [typerex-extra-unindent-regexp-ls3 typerex-extra-unindent-regexp typerex-editing-ls3] 1])
#@37 Regexp for all recognized keywords.
(defconst typerex-keyword-regexp (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346&&\347P\207" [typerex-ro "object" "initializer" "and" "constraint" "class" "match" "module" "method" "mutable" "sig" "struct" "begin" "else" "exception" "external" "to" "then" "try" "type" "virtual" "val" "while" "when" "with" "if" "in" "inherit" "for" "fun" "functor" "function" "let" "do" "downto" "parse" "parser" "rule" "of" "\\|->\\|[;,|]"] 39) (#$ . 59709))
#@66 Regexp for all recognized keywords.
For synchronous programming.
(defconst typerex-keyword-regexp-ls3 (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321&Q\207" [typerex-keyword-regexp "\\|" typerex-ro "where" "automaton" "present" "fby" "pre" "last" "merge" "when" "reset" "every" "emit" "until" "unless" "period" "at"] 18) (#$ . 60316))
(defalias 'typerex-give-keyword-regexp #[nil "\302 \203\207	\207" [typerex-keyword-regexp-ls3 typerex-keyword-regexp typerex-editing-ls3] 1])
#@44 Regexp for keywords supporting case match.
(defconst typerex-match-pipe-kwop-regexp (byte-code "\300\301\302\303\304\305\306&\307P\207" [typerex-ro "and" "function" "type" "with" "parse" "parser" "\\|[[({=]\\||[^!]"] 7) (#$ . 60837))
#@73 Regexp for keywords supporting case match.
For synchronous programming.
(defconst typerex-match-pipe-kwop-regexp-ls3 (concat typerex-match-pipe-kwop-regexp typerex-ls3-extras) (#$ . 61078))
(defalias 'typerex-give-match-pipe-kwop-regexp #[nil "\302 \203\207	\207" [typerex-match-pipe-kwop-regexp-ls3 typerex-match-pipe-kwop-regexp typerex-editing-ls3] 1])
#@27 Regexp for all operators.
(defconst typerex-operator-regexp "[---+*/=<>@^&|]\\|:>\\|::\\|\\<\\(or\\|l\\(and\\|x?or\\|s[lr]\\)\\|as[lr]\\|mod\\)\\>" (#$ . 61443))
#@66 Regexp matching Caml keywords which act as end block delimiters.
(defconst typerex-matching-keyword-regexp (typerex-ro "and" "do" "done" "then" "else" "end" "in" "down" "downto") (#$ . 61611))
#@38 Additional Lucid Synchrone keywords.
(defconst typerex-extra-ls3-keyword-regexp (typerex-ro "where" "unless" "until" "every") (#$ . 61810))
#@94 Regexp matching Caml keywords which act as end block delimiters
For synchronous programming.
(defconst typerex-matching-keyword-regexp-ls3 (concat typerex-matching-keyword-regexp "\\|" typerex-extra-ls3-keyword-regexp) (#$ . 61956))
(defalias 'typerex-give-matching-keyword-regexp #[nil "\304 \203	\202\n	\203\n\305P\202\n)\207" [typerex-matching-keyword-regexp-ls3 typerex-matching-keyword-regexp rxp typerex-support-metaocaml typerex-editing-ls3 "\\|>\\."] 2])
#@79 Regexp matching Caml keywords or operators which act as end block delimiters.
(defconst typerex-matching-kwop-regexp (concat typerex-matching-keyword-regexp "\\|\\<with\\>\\|[|>]?\\]\\|>?}\\|[|)]\\|;;") (#$ . 62434))
#@108 Regexp matching Caml keywords or operators which act as end block delimiters.
For synchronous programming.
(defconst typerex-matching-kwop-regexp-ls3 (concat typerex-matching-kwop-regexp "\\|" typerex-extra-ls3-keyword-regexp) (#$ . 62658))
(defalias 'typerex-give-matching-kwop-regexp #[nil "\302 \203\207	\207" [typerex-matching-kwop-regexp-ls3 typerex-matching-kwop-regexp typerex-editing-ls3] 1])
(byte-code "\302B\304\305\306\307\310\311\312\313\314\315&\316P!\210\303B\317	\320\nQ!\210\321B\322\320\305\323\324\325\326$Q!\207" [current-load-list typerex-matching-keyword-regexp typerex-block-regexp typerex-find-kwop-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-block-regexp #1#)) typerex-ro "for" "while" "do" "if" "begin" "sig" "struct" "object" "\\|[][(){}]\\|\\*)" (lambda (#2=#:defconst-tmp-var) (defconst typerex-find-kwop-regexp #2#)) "\\|" typerex-find-kwop-regexp-ls3 (lambda (#3=#:defconst-tmp-var) (defconst typerex-find-kwop-regexp-ls3 #3#)) "where" "automaton" "present" "match"] 10)
(defalias 'typerex-give-find-kwop-regexp #[nil "\302 \203\207	\207" [typerex-find-kwop-regexp-ls3 typerex-find-kwop-regexp typerex-editing-ls3] 1])
#@40 Regexp matching ocp phrase delimitors.
(defconst typerex-governing-phrase-regexp (typerex-ro "val" "type" "method" "module" "constraint" "class" "inherit" "initializer" "external" "exception" "open" "let" "object" "include") (#$ . 63841))
#@69 Association list of indentation values based on governing keywords.
(defconst typerex-keyword-alist '(("module" . typerex-default-indent) ("class" . typerex-class-indent) ("sig" . typerex-sig-struct-indent) ("struct" . typerex-sig-struct-indent) ("method" . typerex-method-indent) ("object" . typerex-begin-indent) ("begin" . typerex-begin-indent) (".<" . typerex-begin-indent) ("for" . typerex-for-while-indent) ("while" . typerex-for-while-indent) ("do" . typerex-do-indent) ("val" . typerex-val-indent) ("fun" . typerex-fun-indent) ("if" . typerex-if-then-else-indent) ("then" . typerex-if-then-else-indent) ("else" . typerex-if-then-else-indent) ("let" . typerex-let-indent) ("match" . typerex-match-indent) ("try" . typerex-try-indent) ("rule" . typerex-rule-indent) ("function" . typerex-function-indent) ("with" . typerex-with-indent) ("parse" . typerex-with-indent) ("parser" . typerex-with-indent) ("automaton" . typerex-with-indent) ("present" . typerex-with-indent) ("type" . typerex-type-indent)) (#$ . 64086))
#@77 Association list used in TypeRex mode for skipping back over nested blocks.
(defconst typerex-leading-kwop-alist '(("|" . typerex-find-pipe-match) ("}" . typerex-find-match) (">}" . typerex-find-match) (">." . typerex-find-match) (")" . typerex-find-match) ("]" . typerex-find-match) ("|]" . typerex-find-match) (">]" . typerex-find-match) ("end" . typerex-find-match) ("done" . typerex-find-done-match) ("unless" . typerex-find-done-match) ("until" . typerex-find-done-match) ("every" . typerex-find-done-match) ("in" . typerex-find-in-match) ("where" . typerex-find-in-match) ("with" . typerex-find-with-match) ("else" . typerex-find-else-match) ("then" . typerex-find-then-match) ("do" . typerex-find-do-match) ("to" . typerex-find-match) ("downto" . typerex-find-match) ("and" . typerex-find-and-match)) (#$ . 65115))
(defalias 'typerex-find-leading-kwop-match #[(kwop) "\302	\"A \207" [kwop typerex-leading-kwop-alist assoc] 3])
(byte-code "\301B\302\303!\207" [current-load-list typerex-binding-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-binding-regexp #1#)) "\\(\\<and\\>\\|(*\\<let\\>\\)"] 2)
#@63 Return relative indentation of the keyword given in argument.
(defalias 'typerex-assoc-indent #[(kwop &optional look-for-let-or-and) "\306	\"AJ\206\n\n\205\307\f!\n\310\311 \"\203:\2032
\2032\n\fW\2032\f\2024\n
Z\202<\n*\207" [kwop typerex-keyword-alist typerex-default-indent look-for-let-or-and typerex-binding-regexp looking-let-or-and assoc looking-at string-match typerex-give-extra-unindent-regexp ind typerex-let-always-indent typerex-let-indent typerex-pipe-extra-unindent] 3 (#$ . 66239)])
(defalias 'typerex-in-monadic-op-p #[(&optional pos) "\204`\301\302Sf\"\205\301\302SSf\"\207" [pos char-equal 62] 3])
(byte-code "\301B\302\303!\207" [current-load-list typerex-meaningful-word-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-meaningful-word-regexp #1#)) "[^ 	\n_[:alnum:]]\\|\\<\\(\\w\\|_\\)+\\>\\|\\*)"] 2)
#@100 Look back for a word, skipping comments and blanks.
Returns the actual text of the word, if found.
(defalias 'typerex-find-meaningful-word #[nil "\304\211`\n\204t\305e\306#\203t\307\310!\211\311\230\204(	\312\230\204(	\313\230\2037\314 \2037\315u\210\316	P\202K	\313\230\203K\317\320`Sf\"\203K\321u\210\322`U\203W\323\324	#\210`	\203n\325 \203h\326 \210\202\306\211\202\306\211\203\n\n\203|	\202\200eb\210\304+\207" [pt kwop found typerex-meaningful-word-regexp nil re-search-backward t typerex-match-string 0 "|" "=" ">" typerex-in-monadic-op-p -2 ">>" char-equal 45 -1 "->" error "typerex-find-meaningful-word: inf loop at %d, kwop=%s" typerex-in-comment-p typerex-beginning-of-literal-or-comment-fast] 5 (#$ . 67110)])
#@35 Make a custom indentation regexp.
(defalias 'typerex-make-find-kwop-regexp #[(kwop-regexp) "\301 \302Q\207" [kwop-regexp typerex-give-find-kwop-regexp "\\|"] 3 (#$ . 67869)])
(byte-code "\303B\304\303!\204\305\303\306\"\210\307B\304\307!\204\305\307\306\"\210\310B\304\310!\204-\305\310\306\"\210\311B\304\311!\204<\305\311\306\"\210\312B\304\312!\204K\305\312\306\"\210\313B\304\313!\204Z\305\313\306\"\210\314B\304\314!\204i\305\314\306\"\210\315B\304\315!\204x\305\315\306\"\210\316B\304\316!\204\207\305\316\306\"\210\317B\304\317!\204\226\305\317\306\"\210\320B\304\320!\204\245\305\320\306\"\210\321B\304\321!\204\264\305\321\306\"\210\322B\304\322!\204\303\305\322\306\"\210\323B\304\323!\204\322\305\323\306\"\210\324B\304\324!\204\341\305\324\306\"\210\325B\304\325!\204\360\305\325\306\"\210\326B\304\326!\204\377\305\326\306\"\210\327B\330\331\332\333\334\335\336\337\340\341\342\343\332\344\345\346\347\350\351\352\353\336\354\355\356&\357P!\210\301B\360\331\335\354\356\346\347\350\352\361\353&	\362P!\210\363B\364\365	P!\210\366B\367\370!\210\302B\371\331\347\346\372#!\210\373B\374\n\375\331\356\350\"Q!\210\376B\377\201@ \375\nQ!\207" [current-load-list typerex-find-phrase-beginning-regexp typerex-inside-module-or-class-opening typerex-find-comma-match-regexp default-boundp set-default nil typerex-find-with-match-regexp typerex-find-in-match-regexp typerex-find-else-match-regexp typerex-find-do-match-regexp typerex-find-=-match-regexp typerex-find-pipe-match-regexp typerex-find-arrow-match-regexp typerex-find-semicolon-match-regexp typerex-find-phrase-indentation-regexp typerex-find-phrase-indentation-break-regexp typerex-find-phrase-indentation-class-regexp typerex-compute-argument-indent-regexp typerex-compute-normal-indent-regexp typerex-find-module-regexp typerex-find-pipe-bang-match-regexp typerex-find-monadic-match-regexp typerex-find-and-match-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-find-and-match-regexp #1#)) typerex-ro "do" "done" "else" "end" "in" "then" "down" "downto" "for" "while" "if" "begin" "sig" "struct" "class" "rule" "exception" "let" "type" "val" "module" "\\|[][(){}]\\|\\*)" (lambda (#2=#:defconst-tmp-var) (defconst typerex-find-phrase-beginning-regexp #2#)) "open" "\\|^#[ 	]*[a-z][_a-z]*\\>\\|;;" typerex-find-phrase-beginning-and-regexp (lambda (#3=#:defconst-tmp-var) (defconst typerex-find-phrase-beginning-and-regexp #3#)) "\\<\\(and\\)\\>\\|" typerex-back-to-paren-or-indentation-regexp (lambda (#4=#:defconst-tmp-var) (defconst typerex-back-to-paren-or-indentation-regexp #4#)) "[][(){}]\\|\\.<\\|>\\.\\|\\*)\\|^[ 	]*\\(.\\|\n\\)" (lambda (#5=#:defconst-tmp-var) (defconst typerex-inside-module-or-class-opening #5#)) "object" typerex-inside-module-or-class-opening-full (lambda (#6=#:defconst-tmp-var) (defconst typerex-inside-module-or-class-opening-full #6#)) "\\|" typerex-inside-module-or-class-regexp (lambda (#7=#:defconst-tmp-var) (defconst typerex-inside-module-or-class-regexp #7#)) typerex-give-matching-keyword-regexp] 25)
#@116 Initialisation of specific indentation regexp.
Gathered here for memoization and dynamic reconfiguration purposes.
(defalias 'typerex-make-indentation-regexps #[nil "\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324&
\325P!\306\307\311\316\326\312\317\327&\330P!\306\307\323\331\"!\306\332!\306\333!\306\307\334\323\335\326\327\336\337\340\341\324&\n\342P!\306\343 !5\306\307\344\327\334\335\323\317\321\322\345\336\346&\347P!6\306\3327\350\307\323\335\317\316\351%R!8\3069\352\307\310\353\"Q!\211:\354P;\355 \356P<\306\357 \342P!\211=\360P>\306\361!?\342P@A\362\307\334\323\335\326\327\336\337\340\341\324\363\364&\fQ\211B\207" [typerex-find-comma-match-regexp typerex-find-with-match-regexp typerex-find-in-match-regexp typerex-find-else-match-regexp typerex-find-do-match-regexp typerex-find-=-match-regexp typerex-make-find-kwop-regexp typerex-ro "and" "match" "begin" "else" "exception" "then" "try" "with" "or" "fun" "function" "let" "do" "\\|->\\|[[{(]" "module" "type" "\\|[[{(]" "open" ";" "->" "val" "method" "class" "when" "if" "in" "\\|=" typerex-give-match-pipe-kwop-regexp "external" "functor" "parser" "\\|[|;]" "\\|->\\|" "initializer" "\\|" "every" "\\|;;" typerex-give-matching-keyword-regexp "\\|\\<class\\>" typerex-give-keyword-regexp "\\|^.[ 	]*" "\\<module\\>" "\\|\\([;=]\\)\\|\\(->\\)\\|" "done" "end" typerex-find-pipe-match-regexp typerex-find-arrow-match-regexp typerex-no-more-code-this-line-regexp typerex-find-semicolon-match-regexp typerex-governing-phrase-regexp typerex-find-phrase-indentation-regexp typerex-find-phrase-indentation-break-regexp typerex-find-phrase-indentation-class-regexp typerex-compute-argument-indent-regexp typerex-compute-normal-indent-regexp typerex-find-module-regexp typerex-find-pipe-bang-match-regexp typerex-block-regexp typerex-find-monadic-match-regexp] 16 (#$ . 70963)])
(defalias 'typerex-strip-trailing-whitespace #[(string) "\301\302\"\203
\303\211\224O\207\207" [string string-match "[ 	]*\\'" 0] 3])
#@204 Look back for a keyword or operator matching KR (short for kwop regexp).
Skips blocks etc...

Ignore occurences inside literals and comments.
If found, return the actual text of the keyword or operator.
(defalias 'typerex-find-kwop-pos #[(kr do-not-skip-regexp may-terminate-early) "\306\211\211\203
	\307P\202	
\204\230\310\ne\311#\211\203\230\312\313\314!!\211\203\230\315 \2035\316 \210\202\317\320!\203A\321 \210\202\322 \203L\311\211\202\203q\317!\203q\f\323\230\203k\324\325h\"\203k\326u\210\202\311\211\202\317\327 !\203\222\330\313\314!!\203\216\331\n\"\203\216\311)\202\311\211\203
\203\242\fD\202\246eb\210\306,\207" [typerex-support-metaocaml kr kwop-regexp pos kwop found nil "\\|\\.<\\|>\\." re-search-backward t typerex-strip-trailing-whitespace typerex-match-string 0 typerex-in-literal-or-comment-p typerex-beginning-of-literal-or-comment-fast looking-at "[]})]" typerex-backward-up-list typerex-at-phrase-break-p "|" char-equal 124 -1 typerex-give-matching-keyword-regexp typerex-find-leading-kwop-match string-match do-not-skip-regexp mkwop may-terminate-early] 6 (#$ . 72980)])
(defalias 'typerex-find-kwop #[(kr &optional do-not-skip-regexp) "\302	\303#@\207" [kr do-not-skip-regexp typerex-find-kwop-pos nil] 4])
(defalias 'typerex-find-match #[nil "\301\302 !\211\303\230\203\304 \210\305 \210)\207" [kwop typerex-find-kwop typerex-give-find-kwop-regexp "then" typerex-find-then-match typerex-find-match] 3])
(defalias 'typerex-find-comma-match #[nil "\301\302\303#@\207" [typerex-find-comma-match-regexp typerex-find-kwop-pos nil t] 4])
(defalias 'typerex-find-pipe-bang-match #[nil "\304\305\306#\211G\307U\203	\211A@\202\310\311\305	GD\"	@\211b\210\312\313!\203-\314\202.\n+\207" [typerex-find-pipe-bang-match-regexp #1=#:--cl-rest-- kwop pos typerex-find-kwop-pos nil t 2 signal wrong-number-of-arguments looking-at "\\[|" "[|"] 5])
(defalias 'typerex-monadic-operator-p #[(word) "\301\230\204\302\230\204\303\230\205\207" [word ">>=" ">>|" ">>>"] 2])
(defalias 'typerex-ignorable-arrow-p #[nil "\212\300\301 !\206\f\302\303 !)\207" [typerex-monadic-operator-p typerex-find-arrow-match looking-at typerex-give-extra-unindent-regexp] 2])
(defalias 'typerex-find-monadic-match #[nil "\302\203\303\230\203.\304 \203.\203\305\306!\210\307	!\211\310\230\203\311 \203\302\211\202)\207" [kwop typerex-find-monadic-match-regexp nil "=" typerex-in-monadic-op-p typerex-backward-char 2 typerex-find-kwop "->" typerex-ignorable-arrow-p] 3])
(defalias 'typerex-find-with-match #[nil "\301!\207" [typerex-find-with-match-regexp typerex-find-kwop] 2])
(defalias 'typerex-find-in-match #[nil "\302\303\"\211\304\230\203\305 \202	)\207" [typerex-find-in-match-regexp kwop typerex-find-kwop "\\<and\\>" "and" typerex-find-in-match] 4])
(byte-code "\303B\304	\nP!\207" [current-load-list typerex-find-arrow-match-regexp typerex-ls3-extras typerex-find-arrow-match-regexp-ls3 (lambda (#1=#:defconst-tmp-var) (defconst typerex-find-arrow-match-regexp-ls3 #1#))] 3)
(defalias 'typerex-give-find-arrow-match-regexp #[nil "\302 \203\207	\207" [typerex-find-arrow-match-regexp-ls3 typerex-find-arrow-match-regexp typerex-editing-ls3] 1])
(byte-code "\301B\302\303!\210\304B\305\306	!!\210\307B\310\306\311!!\207" [current-load-list typerex-find-then-match-skip-regexp-ls3 (lambda (#1=#:defconst-tmp-var) (defconst typerex-find-then-match-skip-regexp-ls3 #1#)) "\\(->\\|un\\(?:less\\|til\\)\\)" typerex-find-then-match-regexp-ls3 (lambda (#2=#:defconst-tmp-var) (defconst typerex-find-then-match-regexp-ls3 #2#)) typerex-make-find-kwop-regexp typerex-find-then-match-regexp (lambda (#3=#:defconst-tmp-var) (defconst typerex-find-then-match-regexp #3#)) "\\(->\\)"] 3)
(defalias 'typerex-find-then-kwop #[nil "\303 \304\203\f	\202
\n\203	\202\305\")\207" [ls3 typerex-find-then-match-regexp-ls3 typerex-find-then-match-regexp typerex-editing-ls3 typerex-find-kwop "\\(->\\)"] 3])
(defalias 'typerex-find-then-match #[nil "\302 \211\303\230\203 `\304 \210\305\306!\203\307\202	b\210)\202!)\207" [kwop back typerex-find-then-kwop "if" typerex-back-to-paren-or-indentation looking-at "else[ 	]*\\((\\*.*\\*)\\)*[ 	]*if" "else if"] 3])
(defalias 'typerex-find-then-else-match #[nil "\302 \211\303\230\203#`\304 \204\305 \306\230\203\306\202	b\210)\202$)\207" [kwop pos typerex-find-then-kwop "if" typerex-in-indentation-p typerex-find-meaningful-word "else"] 3])
(defalias 'typerex-find-else-match #[nil "\302\303\"\211\304\230\203\305 \202	\306\230\205\307 \210\310 )\207" [typerex-find-else-match-regexp kwop typerex-find-kwop "\\<then\\>" "then" typerex-find-then-else-match ";" typerex-find-semicolon-match typerex-find-else-match] 4])
(byte-code "\301B\302\303\304\305\"!\207" [current-load-list typerex-do-match-stop-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-do-match-stop-regexp #1#)) typerex-ro "down" "downto"] 4)
(defalias 'typerex-find-do-match #[nil "\303	\"\211\304\230\204\n\305\230\203\306 \202\n)\207" [typerex-find-do-match-regexp typerex-do-match-stop-regexp kwop typerex-find-kwop "to" "downto" typerex-find-match] 4])
(byte-code "\301B\302\303\304\305\"!\207" [current-load-list typerex-done-match-stop-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-done-match-stop-regexp #1#)) typerex-ro "and" "do"] 4)
(defalias 'typerex-find-done-match #[nil "\302\303 \"\211\304\230\203\305 \202+	\306\230\203\307 \210\307 \202+	\310\230\203*\311 \202+	)\207" [typerex-done-match-stop-regexp kwop typerex-find-kwop typerex-give-find-kwop-regexp "and" typerex-find-and-match "done" typerex-find-done-match "do" typerex-find-do-match] 4])
(byte-code "\301B\302\303\304\305\306#!\207" [current-load-list typerex-and-stop-regexp-ls3 (lambda (#1=#:defconst-tmp-var) (defconst typerex-and-stop-regexp-ls3 #1#)) typerex-ro "and" "do" "where"] 5)
(defalias 'typerex-give-and-stop-regexp #[nil "\301 \203\207\302\207" [typerex-and-stop-regexp-ls3 typerex-editing-ls3 "\\<and\\>"] 1])
(defalias 'typerex-find-and-match #[nil "\304\305 \"`	\306\230\204	\307\230\203D\310 \211\311\230\203!\202@\312\230\203,\313 \202@	\307\230\203<\314\230\203<\202@\nb\210	)\202E	*\207" [typerex-find-and-match-regexp kwop old-point kwop2 typerex-find-kwop typerex-give-and-stop-regexp "type" "module" typerex-find-meaningful-word "with" "and" typerex-find-and-match "let"] 4])
(byte-code "\301B\302\303\304\305\306\307$\310P!\210\311B\312\303\304\306\"\310P!\207" [current-load-list typerex-=-stop-regexp-ls3 (lambda (#1=#:defconst-tmp-var) (defconst typerex-=-stop-regexp-ls3 #1#)) typerex-ro "and" "do" "in" "where" "\\|=" typerex-=-stop-regexp (lambda (#2=#:defconst-tmp-var) (defconst typerex-=-stop-regexp #2#))] 6)
(defalias 'typerex-give-=-stop-regexp #[nil "\302 \203\207	\207" [typerex-=-stop-regexp-ls3 typerex-=-stop-regexp typerex-editing-ls3] 1])
(defalias 'typerex-find-=-match #[nil "\302\303 \"\211\304\230\203\305 \2023	\306\230\2032\307 \2042	\306\230\203.\307 \204.\310 \211\202	\2023	)\207" [typerex-find-=-match-regexp kwop typerex-find-kwop typerex-give-=-stop-regexp "and" typerex-find-and-match "=" typerex-false-=-p typerex-find-=-match] 4])
(byte-code "\301B\302\303\304\305\"!\207" [current-load-list typerex-if-when-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-if-when-regexp #1#)) typerex-ro "if" "when"] 4)
(defalias 'typerex-if-when-= #[nil "\212\301 \210\302!)\207" [typerex-if-when-regexp typerex-find-=-match looking-at] 2])
(byte-code "\301B\302\303\304\305\306\307\310\311&!\207" [current-load-list typerex-captive-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-captive-regexp #1#)) typerex-ro "let" "if" "when" "module" "type" "class"] 8)
(defalias 'typerex-captive-= #[nil "\212\301 \210\302!)\207" [typerex-captive-regexp typerex-find-=-match looking-at] 2])
(byte-code "\301B\303\304\305\306\"\307P!\210\310B\311	\nP!\207" [current-load-list typerex-pipe-stop-regexp typerex-ls3-extras (lambda (#1=#:defconst-tmp-var) (defconst typerex-pipe-stop-regexp #1#)) typerex-ro "and" "with" "\\||" typerex-pipe-stop-regexp-ls3 (lambda (#2=#:defconst-tmp-var) (defconst typerex-pipe-stop-regexp-ls3 #2#))] 4)
(defalias 'typerex-give-pipe-stop-regexp #[nil "\302 \203\207	\207" [typerex-pipe-stop-regexp-ls3 typerex-pipe-stop-regexp typerex-editing-ls3] 1])
(defalias 'typerex-find-pipe-match #[nil "\304\305 \"\211\203\306\307	\"\203\310\202	)`\211\311\230\2038`\312 \211\313\230\2041\nb\210\2024\314 \202\225\310\230\203M\315\316!\203M\317 \203M\202\225\310\230\203X\320 \202\225\321\230\203w\315\322!\204r\323 \204r\212\324 )\325\230\204w\320 \202\225\326\230\203\224\327 \203\217\212\330 \321\230)\203\217\202\225\320 \202\225*\207" [typerex-find-pipe-match-regexp k old-point kwop typerex-find-kwop typerex-give-pipe-stop-regexp string-match "|[^!]" "|" "and" typerex-find-and-match "do" typerex-find-arrow-match looking-at "|[^|]" typerex-in-indentation-p typerex-find-pipe-match "=" "=[ 	]*\\((\\*\\|$\\)" typerex-false-=-p typerex-find-=-match "type" "parse" typerex-editing-camllex typerex-find-meaningful-word] 4])
(defalias 'typerex-find-arrow-match #[nil "\304\305 \306\"\211\307\230\203\310 \203\202r\311u\210\312 \202r\313\230\2034`\314\315 !\2060	b\210)\202r\316\230\204>\202r\317`Sf\320\"\204Y\317`Tf\320\"\204Y\317`Tf\321\"\203^\312 \202r`\312 \322\316!\203m\n\202qb\210*)\207" [kwop pos match oldpoint typerex-find-kwop typerex-give-find-arrow-match-regexp "\\<with\\>" "|" typerex-in-indentation-p -1 typerex-find-arrow-match "fun" typerex-monadic-operator-p typerex-find-meaningful-word ":" char-equal 58 62 looking-at] 4])
(byte-code "\301B\302\303\304\305\306\307\310%!\210\311B\312\313!\207" [current-load-list typerex-semicolon-match-stop-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-semicolon-match-stop-regexp #1#)) typerex-ro "and" "do" "end" "in" "with" typerex-no-code-after-paren-regexp (lambda (#2=#:defconst-tmp-var) (defconst typerex-no-code-after-paren-regexp #2#)) "[[{(][|<]?[ 	]*\\((\\*\\|$\\)"] 7)
(defalias 'typerex-semicolon-indent-kwop-point #[(&optional leading-semi-colon) "\306	\"`\211\307\230\203(\310y\210\311 \204\312\f!\203!\310y\210\202\313 \210i\202\366
\203=\312\314!\203=\312'!\204=i\202\366\312\315!\203T\316 \203Oi(\\\202\366\317 \202\366\312\320!\203a\321 \210i\202\366\322\230\203o\323 )\\\202\366\324\230\203\247\212\325 \210\312\326!\206\203\312\327 !)\203\242\330\331!\332\230\203\227*\333 \\\202\366*\333 \\+Z\202\366\334 \202\366\335\230\203\265\336 \210\334 \202\366\337\230\203\305\340 \210i,\\\202\366\341\230\203\326\340 \210\323 ,\\\202\366\342\230\203\343i-\\\202\366\343\230\203\364\344u\210\345\346!\210i\202\366\333 \nE*\207" [typerex-find-semicolon-match-regexp typerex-semicolon-match-stop-regexp point kwop typerex-no-code-this-line-regexp leading-semi-colon typerex-find-kwop ";" 1 typerex-in-comment-p looking-at back-to-indentation "\\((\\|\\[[<|]?\\|{<?\\)[ 	]*[^ 	\n]" "\\<begin\\>\\|\\((\\|\\[[<|]?\\|{<?\\)[ 	]*\\((\\*\\|$\\)" typerex-in-indentation-p typerex-indent-from-previous-kwop "\\(\\.<\\|(\\|\\[[<|]?\\|{<?\\)" typerex-search-forward-paren "method" typerex-paren-or-indentation-column "->" typerex-find-arrow-match "\\<fun\\>\\||" typerex-give-extra-unindent-regexp match-string 0 "|" typerex-paren-or-indentation-indent typerex-find-semicolon-match "end" typerex-find-match "in" typerex-find-in-match "where" "let" "try" 3 skip-syntax-forward " " typerex-no-code-after-paren-regexp typerex-default-indent typerex-method-indent typerex-case-arrow-extra-indent typerex-pipe-extra-unindent typerex-in-indent typerex-let-indent] 4])
(defalias 'typerex-find-semicolon-match #[(&optional leading-semi-colon) "\301!@\207" [leading-semi-colon typerex-semicolon-indent-kwop-point] 2])
(defalias 'typerex-reset-and-kwop '(macro . #[(kwop) "\301\302\303\304BBE\305\306BBE\207" [kwop when and string= ("and") setq ((typerex-find-and-match))] 6]))
(byte-code "\301B\302\303\304\305\"!\210\306B\307\303\310\311\304\312$!\210\313B\314\303\310\315\316\317\312%!\207" [current-load-list typerex-phrase-regexp-1 (lambda (#1=#:defconst-tmp-var) (defconst typerex-phrase-regexp-1 #1#)) typerex-ro "module" "type" typerex-phrase-regexp-2 (lambda (#2=#:defconst-tmp-var) (defconst typerex-phrase-regexp-2 #2#)) "and" "let" "with" typerex-phrase-regexp-3 (lambda (#3=#:defconst-tmp-var) (defconst typerex-phrase-regexp-3 #3#)) "end" "every" "in"] 7)
(defalias 'typerex-find-phrase-indentation #[(&optional phrase-break) "\306!\203`eV\203\212\307 \210\306	!)\203\307 \210i\n\\\207\306\310!\311\203*\f\202+
'\"\312\211()*+*\203H*\313\230\203H\314 **\204Qi\202\260
*\315\230\203n\316 \203h\317 \210\320!\210i\202\260
\320!\202\260
*\321\230\203\227\212\322 )`()\323\230)\204\216\322 \210\320!\202\260
\311,!\210i\202\260
*\324\230\203\270\212\325 )`()\326\230)\204\270(b\210\320!\202\260
*\327\230\203\356\212\330 \211)\203\323)\313\230\203\323\314 )`()\331\230\205\340\332 ?)\204\356(b\210\320!\202\260
\333 \203\375\312\210\334 \210i\202\260
*\331\230\203
\332 \203
\320!\202\260
i\202\260
*\324\230\203
i\202\260
*\321\230\203)
i\202\260
*\327\230\2047
*\335\230\203>
\330 \210i\202\260
*\336\230\203J
\337 \202\260
\306-!\203[
\337 \340*!\\\202\260
*\341\230\204i
*\326\230\203\226
\342 \204s
\343 \203\222
+\203|
i\202\260
\307 \313\230\203\214
\314 \210\320!\202\260
\320!\202\260
i\202\260
\306\344!\203\243
\345 \210i\202\260
*\346\230\203\257
\337 \202\260
i,\207" [typerex-phrase-regexp-1 typerex-phrase-regexp-2 typerex-default-indent phrase-break typerex-find-phrase-indentation-break-regexp typerex-find-phrase-indentation-regexp looking-at typerex-find-meaningful-word "\\<and\\>" typerex-find-kwop nil "and" typerex-find-and-match "every" typerex-editing-ls3 typerex-find-done-match typerex-find-phrase-indentation "end" typerex-find-match "object" "with" typerex-find-with-match "module" "in" typerex-find-in-match "let" typerex-looking-at-internal-let typerex-at-phrase-break-p typerex-skip-blank-and-comments "where" "class" typerex-paren-or-indentation-column typerex-assoc-indent "type" typerex-looking-at-false-type typerex-looking-at-false-module "\\(\\.<\\|(\\|\\[[<|]?\\|{<?\\)[ 	]*[^ 	\n]" typerex-search-forward-paren "open" typerex-phrase-regexp-3 curr tmpkwop kwop looking-at-and typerex-find-phrase-indentation-class-regexp typerex-inside-module-or-class-opening] 5])
(byte-code "\301B\302\303\304\305\306\307$!\207" [current-load-list typerex-paren-or-indentation-stop-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-paren-or-indentation-stop-regexp #1#)) typerex-ro "and" "do" "in" "with"] 6)
#@114 Search backwards for the first open paren in line, or skip to indentation.
Returns t iff skipped to indentation.
(defalias 'typerex-back-to-paren-or-indentation #[nil "n\204	\306 \203\307 \210\310\207\311	\"\312\211\313\230\203:`\314 \211\315\230\204,\316\230\2034\311\317\"\210\2029\313\fb\210)\313\230\203D\312\202Y\320\230\204P\321\230\203U\306 \202Y\307 \210\310\320\230\204f\321\230\203y\322 \210\323 \210\324\325!\203u
u\210\312\202z\n*\207" [typerex-back-to-paren-or-indentation-regexp typerex-paren-or-indentation-stop-regexp retval kwop with-point typerex-in-indent typerex-in-indentation-p back-to-indentation t typerex-find-kwop nil "with" typerex-find-with-match "match" "try" "\\<and\\>" "in" "do" typerex-find-in-match typerex-back-to-paren-or-indentation looking-at "\\<\\(let\\|and\\)\\>"] 4 (#$ . 87905)])
(defalias 'typerex-paren-or-indentation-column #[nil "\300 \210i\207" [typerex-back-to-paren-or-indentation] 1])
(defalias 'typerex-paren-or-indentation-indent #[nil "\301 \\\207" [typerex-default-indent typerex-paren-or-indentation-column] 2])
(defalias 'typerex-search-forward-paren #[nil "\300\301!\207" [re-search-forward "\\(\\.<\\|(\\|\\[[<|]?\\|{<?\\)[ 	]*"] 2])
(defalias 'typerex-add-default-indent #[(leading-operator) "\203\302\207	\207" [leading-operator typerex-default-indent 0] 1])
(byte-code "\301B\302\303\304\305\306\307\310\311\312\313\314\315\316\317&P!\207" [current-load-list typerex-internal-let-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-internal-let-regexp #1#)) "[[({;=]\\|" typerex-ro "begin" "open" "if" "in" "do" "try" "then" "else" "match" "while" "when"] 14)
(defalias 'typerex-looking-at-internal-let #[nil "\212\303 \210\304 ?\205&\205\305\306g\"\205\305\307h\"?\205&\310	!\206&\310\n!)\207" [typerex-support-metaocaml typerex-internal-let-regexp typerex-operator-regexp typerex-find-meaningful-word typerex-at-phrase-break-p char-equal 46 62 looking-at] 3])
(byte-code "\301B\302\303\304\305\306#!\207" [current-load-list typerex-false-module-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-false-module-regexp #1#)) typerex-ro "and" "let" "with"] 5)
(defalias 'typerex-looking-at-false-module #[nil "\212\301 \210\302!)\207" [typerex-false-module-regexp typerex-find-meaningful-word looking-at] 2])
(defalias 'typerex-looking-at-false-sig-struct #[nil "\212\300 \210\301\302!)\207" [typerex-find-module looking-at "\\<module\\>\\|("] 2])
(byte-code "\301B\302\303\304\305\306\307$!\207" [current-load-list typerex-false-type-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-false-type-regexp #1#)) typerex-ro "and" "class" "module" "with"] 6)
(defalias 'typerex-looking-at-false-type #[nil "\212\301 \210\302!)\207" [typerex-false-type-regexp typerex-find-meaningful-word looking-at] 2])
(defalias 'typerex-looking-at-in-let #[nil "\212\300 \301\230)\207" [typerex-find-meaningful-word "in"] 2])
(defalias 'typerex-find-module #[nil "\301!\207" [typerex-find-module-regexp typerex-find-kwop] 2])
(defalias 'typerex-indent-from-previous-kwop #[nil "`\306\307!\211\310\230\205\311 `	Gu\210\312 \210\n\203\"`U\204*b\210\313 \202Fb\210	\310\230\2036\314 \f\315	
\"\203D\316	!\202Ei\\,\207" [start-pos kwop captive= kwop-pos typerex-default-indent typerex-leading-kwop-alist typerex-find-argument-kwop-non-blank t "=" typerex-captive-= typerex-skip-blank-and-comments typerex-paren-or-indentation-indent typerex-find-=-match assoc typerex-compute-kwop-indent] 5])
(defalias 'typerex-find-colon-typespec #[(start-pos) "`\304\305	\306#\211\2059\307u\210\310\311!\210\310\312!\210\310\311!\210`Sf\313\314\"\204-\313\315\"\2034b\210\316\2028\nb\210\306)*\207" [old-pos start-pos new-pos char search-forward ":" t -1 skip-syntax-backward " " "w" char-equal 63 126 nil] 5])
(defalias 'typerex-indent-from-paren #[(leading-operator start-pos) "\304\305!\203&\306 \203i\\\207\307	!\203#\304\n!\203\310 \207\311 \210i\207\312 \207\304\313!\203/\310 \207\304\314!\203;\315\224b\210i\207\316!i\\\207" [typerex-default-indent start-pos typerex-no-code-this-line-regexp leading-operator looking-at "\\(\\(\\.<\\|(\\|\\[[<|]?\\|{<?\\)\\)[ 	]*\\((\\*\\|$\\)" typerex-in-indentation-p typerex-find-colon-typespec typerex-paren-or-indentation-indent typerex-skip-blank-and-comments typerex-indent-from-previous-kwop "\\<begin\\>" "([ 	]*\\(\\w\\)" 1 typerex-add-default-indent] 2])
(defalias 'typerex-skip-to-next-form #[(old-point) "\302!\204`	W\203\303\304!\210\202\305 \210\306 \207" [typerex-no-more-code-this-line-regexp old-point looking-at forward-sexp 1 typerex-skip-blank-and-comments typerex-back-to-paren-or-indentation] 2])
(defalias 'typerex-find-argument-kwop #[(leading-operator) "\303\203		\202\n\n\304 \"\207" [leading-operator typerex-compute-argument-indent-regexp typerex-compute-normal-indent-regexp typerex-find-kwop typerex-give-keyword-regexp] 3])
(defalias 'typerex-find-argument-kwop-clean #[(leading-operator) "\303\304	!\211\203\305\230\203\306 \307\230\203\310 \204\311\n!\203*`eU\203)\207" [kwop leading-operator typerex-no-code-this-line-regexp nil typerex-find-argument-kwop "and" typerex-find-and-match "=" typerex-false-=-p looking-at] 3])
(defalias 'typerex-find-argument-kwop-non-blank #[(leading-operator) "\303`T`V\203	\303\230\203`\304\n!\202	*\207" [point kwop leading-operator "" typerex-find-argument-kwop-clean] 2])
(defalias 'typerex-compute-argument-indent #[(leading-operator) "\306 \307	!`\nG\\\n\310\230\203j\311\312!\204j\313\211\212\314 `)
\315\230\2036\fb\210\314 \210i\\\202f
\316\230\204B
\317\230\203Ii\\\202f
\320\230\203`\fb\210\321\322	!i[$\202f\323 \322	!\\*\202\267\n\324\230\203}\321\323 \322	!\325\n!#\202\267`X\203\213\322	!i\\\202\267b\210\326!\210\322\212b\210\311!)\203\257	\206\264\n\327\230\206\264\311\330!\202\264\311!?!i\\+\207" [old-point leading-operator kwop match-end-point matching-pos matching-kwop line-beginning-position typerex-find-argument-kwop-non-blank "->" looking-at "->[ 	]*\\((\\*\\|$\\)" nil typerex-find-arrow-match ":" "val" "let" "|" + typerex-add-default-indent typerex-paren-or-indentation-column "fun" typerex-assoc-indent typerex-skip-to-next-form "{" "[[:upper:]].*\\.[ 	]*\\((\\*\\|$\\)" typerex-val-indent typerex-pipe-extra-unindent typerex-default-indent typerex-no-more-code-this-line-regexp typerex-operator-regexp] 5])
(defalias 'typerex-compute-arrow-indent #[(start-pos) "\306\211\212\307 `)	\310\230\203\307 \210\311i\n#\202\275	\312\230\204(	\313\230\2031b\210i\f\\\202\275	\314\230\203Bb\210\311i
\n#\202\275	\315\230\203Pb\210\316 \202\275	\317\230\204\\	\320\230\203v\321\322!\203o\323\324\325#\203o\316 \202\275\326 \210i\202\275\327	!\203\273\330 \211G\331U\203\221\211A@\202\231\332\333\306GD\" \211A@@! 	\334\230\203\265\"\202\266\335Z,\202\275\336 *\207" [pos kwop typerex-default-indent typerex-case-arrow-extra-indent typerex-val-indent typerex-type-indent nil typerex-find-arrow-match "|" + "val" "let" "type" "(" typerex-indent-after-next-char "{" ";" looking-at "->" search-backward ":" t typerex-back-to-paren-or-indentation typerex-monadic-operator-p typerex-semicolon-indent-kwop-point 3 signal wrong-number-of-arguments "in" 0 typerex-paren-or-indentation-indent #1=#:--cl-rest-- indent point typerex-in-indent] 5])
(defalias 'typerex-compute-keyword-indent #[(kwop leading-operator start-pos) "\306\230\2031\307\310!\203.`\311 \307!\203+\fb\210\312\313	\314#\203'\315 \202,\n\202,\n*\207\316 \207\317\230\203\254\307\320!\203\251\321 \211\322\230\204R
\323\230\204R
\324\230\203]\325u\210\326\327!\210i\202\247\307\330!\203j\331\314\f\"\202\247\307\332!\203w\333\334h\"\204\204\307\335!\203\216\333\336h\"\203\216\337 \210\331\314\f\"\202\247\307\340!\203\241
\341\230\203\241i:\\\202\247\342 \343
!\\)\207\316 \207\307\344!\203\307\307\345!\203\276\331;\f\"\207<\331;\f\"\\\207\346\230\204\323\347\230\203\336\350 \210\316 \343\314\"\\\207\351\230\203
\212\352 \211=\353\230\206\363=\323\230*\203\372\316 \207\354\342 <\355_\343\314\"#\207\356\357\"\203
\354\342 \360;!\343\314\"#\207\356\361 \"\203+
\342 \343\314\"\\\207\341\230\203?
\307\362!\203:
\363 \210i:\\\207\356\364 \"\203b
\365!\210\366 \203W
i\343\314\"\\\207\350 \210\316 \343\314\"\\\207\367\230\203\202
\370u\210\307>!\203y
\354i\371<#\207\326\327!\210i<\\\207\366 \203\213
i\202\215
\316 \343\314\"\\\207" [kwop pos indent typerex-phrase-regexp-1 start-pos mkwop ";" looking-at ";[ 	]*\\((\\*\\|$\\)" typerex-find-semicolon-match search-backward ":" t typerex-indent-after-next-char typerex-paren-or-indentation-indent "," ",[ 	]*\\((\\*\\|$\\)" typerex-find-comma-match "[" "{" "(" 1 skip-syntax-forward " " "[[{(]\\|\\.<" typerex-indent-from-paren "[<|]" char-equal 91 "<" 123 typerex-backward-char "\\<let\\>" "in" typerex-paren-or-indentation-column typerex-assoc-indent "\\<begin\\>\\|->" "\\(\\<begin\\>\\|->\\)[ 	]*\\((\\*\\|$\\)" "let" "and" typerex-back-to-paren-or-indentation "with" typerex-find-with-match "module" + 2 string-match "\\<\\(fun\\|of\\)\\>" typerex-add-default-indent typerex-give-extra-unindent-regexp "\\<in\\>[ 	]*\\((\\*\\|$\\)" typerex-find-in-match typerex-give-matching-kwop-regexp typerex-find-leading-kwop-match typerex-in-indentation-p "try" 3 -3 typerex-in-indent leading-operator typerex-default-indent tmpkwop typerex-no-more-code-this-line-regexp] 7])
(byte-code "\301B\302\303\304\305\306\307\310\311\312\313\314&	!\207" [current-load-list typerex-=-indent-regexp-1 (lambda (#1=#:defconst-tmp-var) (defconst typerex-=-indent-regexp-1 #1#)) typerex-ro "val" "let" "method" "module" "class" "when" "for" "if" "do"] 11)
(defalias 'typerex-compute-=-indent #[(start-pos) "\306\307 `\212	\203	\310\230\203\311 	\312\230\203I\313 \210\314\315!\203*i\202\206\314\316!\2039\317 \210i\202\206\fb\210\320 \210\321\314\322!!
\\\202\206\314!\203_\323\324!i\325!)\202\206\314\326!\203r\327 \210i\325\330!\\\202\206\314!\203\202\331\306\"\202\206\332 )\n\206\214i\\+\207" [next-pos kwop1 current-column-module-type typerex-default-indent start-pos typerex-type-indent nil typerex-find-=-match "and" typerex-find-and-match "type" typerex-find-meaningful-word looking-at "\\<module\\>" "\\<\\(with\\|and\\)\\>" typerex-find-with-match beginning-of-line typerex-add-default-indent "[ 	]*[[|]" typerex-match-string 0 typerex-assoc-indent "\\<object\\>" typerex-back-to-paren-or-indentation "object" typerex-indent-from-paren typerex-paren-or-indentation-indent typerex-=-indent-regexp-1 matched-string typerex-no-code-after-paren-regexp] 3])
(defalias 'typerex-indent-after-next-char #[nil "\300u\210\301 \210i\207" [1 typerex-skip-blank-and-comments] 1])
#@37 Regexp matching definition phrases.
(defconst typerex-definitions-regexp (typerex-ro "and" "val" "type" "module" "class" "exception" "let") (#$ . 98774))
(defalias 'typerex-compute-normal-indent #[nil "\306!\307 \210\212`\310	!\n\204i\202\363\311 \203!\312\313!\202\363\n\314\230\203:\315\316h\"\204:\317 \210\320 \321	!\\\202\363\306\322!\204c\306\323!\203S\315\316h\"\203S\317 \210\202c\306\324!\203\231\315\325h\"\203\231\317 \210\306\326!\203t\327u\210\330\331!\210i\202\363\306\332!\203\201\333	\"\202\363	\203\220\n\334\230\203\220\335 \202\363\f\333	\"\\\202\363\306\336!\203\265\306\337!\203\254\333	\"\202\363\f\333	\"\\\202\363\306\340!\203\301\341!\202\363\306\342 !\203\320\343\n	#\202\363\n\344\230\203\360\345 \204\360	\203\352\346
\212\310\313!)\"\203\360\347!\202\363\350	!,\207" [typerex-operator-regexp leading-operator kwop start-pos typerex-default-indent typerex-definitions-regexp looking-at beginning-of-line typerex-find-argument-kwop-clean typerex-at-phrase-break-p typerex-find-phrase-indentation t "|" char-equal 91 typerex-backward-char typerex-paren-or-indentation-indent typerex-add-default-indent "[[{(]" "[<|]" "<" 123 "{ *[A-Z]" 1 skip-syntax-forward " " "[[{(][<|]?[ 	]*\\((\\*\\|$\\)" typerex-indent-from-paren "(" typerex-indent-after-next-char "\\.<" "\\.<[ 	]*\\((\\*\\|$\\)" "->" typerex-compute-arrow-indent typerex-give-keyword-regexp typerex-compute-keyword-indent "=" typerex-false-=-p string-match typerex-compute-=-indent typerex-compute-argument-indent] 4])
(defalias 'typerex-compute-pipe-indent #[(matching-kwop old-point) "\303\230\203\304 \210i\207\305\230\203\306 \204\307\310!\210i\207\203P\311\312 !\203P\311\313 !\2031\304 \210\314\315\316\"\317\311\303!?!i\320\230\204I\321\230\203M\322\202N	$\207\nb\210\323 \207" [matching-kwop typerex-pipe-extra-unindent old-point "|" typerex-back-to-paren-or-indentation "=" typerex-false-=-p re-search-forward "=[ 	]*" looking-at typerex-give-match-pipe-kwop-regexp typerex-give-extra-unindent-regexp + typerex-assoc-indent t typerex-add-default-indent "type" "[" 0 typerex-compute-normal-indent] 6])
(defalias 'typerex-compute-paren-indent #[(paren-match-p old-point) "\204\304 \210\305\306\307f\"`\211\204\310\311!\203W\312 \204'\212\313 \314\230)\203-\315 \210\2020\316 \210\n\2038\317	w\210\310\320!\203W\321`\322\"\212b\210\323 )V\203W\322u\210\324\325!\210\2028*i\207" [paren-match-p start-pos looking-at-paren old-point typerex-search-forward-paren char-equal 40 nil looking-at "\\({\\(.*with[ 	]*\\([[:upper:]].*\\.\\)?\\)?\\|\\[\\)[ 	]*\\((\\*\\|$\\)" typerex-in-indentation-p typerex-find-meaningful-word ":" typerex-back-to-paren-or-indentation typerex-indent-from-previous-kwop "( 	" "[([{]" scan-sexps 1 line-end-position skip-syntax-forward " "] 4])
(defalias 'typerex-compute-kwop-indent-general #[(kwop matching-kwop) "\304!\212\305\306 x\210n)?\205\307 \210\310i\311\n\2033\312\230\206;\313\230\206;\314\230\206;\315\230\202;\316\230?\206;	!\\*\207" [matching-kwop looking-at-matching extra-unindent kwop looking-at "( 	" line-beginning-position typerex-back-to-paren-or-indentation t typerex-add-default-indent "struct" "object" "with" "end" "then"] 4])
(defalias 'typerex-compute-kwop-indent #[(kwop) "\306\230\203\307`\310\311!\310\312!\313!\314\230\203/\203'\315\f	\"\202\"
	b\210\316 \202\"
\310\317!\203<\320\n	\"\202\"
\321\230\203\214\f\322\230\203M`\323 \f\321\230\203^\324 \210\313!\211\202N\f\325\230\204j\f\326\230\203o\327 \202\"
\f\330\230\204{\f\331\230\203\202\332\f\"\202\"
	b\210\332\f\"\202\"
\333 \203\302\334\230\204\257\335\230\204\257\336\230\204\257\337\230\204\257\340\230\203\302\341 \210\f\342\230\203\276i
\\\202\"
i\202\"
\307\230\203\316\f\336\230\204\353\343\230\203\371\333 \203\371\f\331\230\204\353\f\344\230\204\353\f\345\230\203\371\346 \203\364i\202\"
\347 \202\"
\350\230\203	
i\351\f\352\230!\\\202\"
\307\230\204
\332\f\"\202\"
\f\321\230\203 
i\202\"
\347 ,\207" [kwop old-point paren-match-p real-pipe matching-kwop typerex-default-indent "rec" "and" looking-at "[|>]?[]})]\\|>\\." "|\\([^|]\\|$\\)" typerex-find-leading-kwop-match "|" typerex-compute-pipe-indent typerex-compute-normal-indent "[[{(][<|]?\\|\\.<" typerex-compute-paren-indent "with" "type" typerex-find-meaningful-word typerex-find-with-match "module" "struct" typerex-paren-or-indentation-indent "try" "match" typerex-compute-kwop-indent-general typerex-editing-ls3 "do" "done" "reset" "unless" "until" typerex-back-to-paren-or-indentation "->" "end" "automaton" "present" typerex-in-indentation-p typerex-paren-or-indentation-column "in" typerex-add-default-indent "let"] 5])
(defalias 'typerex-indent-to-code #[(beg-pos match) "\302\230\203\303\304	\305#\204Gu\210\306 \210i\207" [match beg-pos "(" search-forward "->" t typerex-skip-blank-and-comments] 4])
#@89 Indent the current line in TypeRex mode.

Compute new indentation based on Caml syntax.
(defalias 'typerex-indent-command #[(&optional from-leading-star) "\204\303 \210\304\305\306\307\n#\210\305\310\307\n#\210\311\216\212\312 \210\313\314\315 ]!\210)\316 \205*\312 *\207" [from-leading-star case-fold-search typerex-mode-syntax-table typerex-auto-fill-insert-leading-star nil modify-syntax-entry 46 "w" 95 ((byte-code "\301\302\303#\210\301\304\305#\207" [typerex-mode-syntax-table modify-syntax-entry 46 "." 95 "_"] 4)) back-to-indentation indent-line-to 0 typerex-compute-indent typerex-in-indentation-p] 4 (#$ . 103718) "*"])
(byte-code "\301B\302\303\304\305\"!\210\306B\307\310\303\311\312\313#P!\207" [current-load-list typerex-sig-struct-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-sig-struct-regexp #1#)) typerex-ro "sig" "struct" typerex-top-level-command-regexp (lambda (#2=#:defconst-tmp-var) (defconst typerex-top-level-command-regexp #2#)) "#" "open" "load" "use"] 6)
(defalias 'typerex-compute-indent #[nil "\212\306 \203t\307\310!\203 \203\212\311 \210\312 \210i)\202;
i\202;
\307\313!\203L\314 \210\315 \203Fi\212\316y\210\312 \210\307\317!)\203A\316\202B	\\\202;
i	\\\202;
\n\203p\315 \205X\307\320!\314 \210\203g\321\322!\210\202k\321\323!\210i)\202;
i\202;
\324 \203}i\202;
\307\325!\204\211\307\326!\203\247\327 \203\242\330 \203\235\331 \210\332 \210i\202;
\333 \202;
\334 \202;
\307\f!\204\263\307\335!\203\270\334 \202;

\203\323\3072!\203\323\336 \337\230\203\316i\202;
\340 \202;
\307\341!\203\337\342\343!\202;
\307\344!\203\356\345\346 \347 \"\202;
\307\350!\203\375\345\346 \351 \"\202;
\307\352!\204
3\203
\307\353!\204
\3074!\203
\354\202;
\307\355 !\2041
\307\356!\2041
5\2039
\307\357!\2039
\360\361\354!!\202;
\333 )\207" [typerex-indent-leading-comments typerex-comment-end-extra-indent typerex-indent-comments star typerex-governing-phrase-regexp typerex-sig-struct-align typerex-in-comment-p looking-at "(\\*" typerex-skip-blank-and-comments back-to-indentation "\\*\\**)" typerex-beginning-of-literal-or-comment-fast typerex-leading-star-p 1 "*" "\\*" re-search-forward "(" "(\\*+[ 	]*" typerex-in-literal-p "\\<let\\>" "\\<open\\>" typerex-looking-at-internal-let typerex-looking-at-in-let typerex-find-meaningful-word typerex-find-in-match typerex-compute-normal-indent typerex-find-phrase-indentation ";;" typerex-find-module "module" typerex-paren-or-indentation-indent ";" typerex-find-semicolon-match t "|!" typerex-indent-to-code line-beginning-position typerex-find-pipe-bang-match ">>[=>|]" typerex-find-monadic-match "%\\|;;" "#" 0 typerex-give-matching-kwop-regexp "\\<rec\\>" ">\\." typerex-compute-kwop-indent typerex-match-string typerex-sig-struct-regexp typerex-support-camllight typerex-top-level-command-regexp typerex-support-metaocaml] 3])
#@64 Called whenever a line is broken inside a Caml string literal.
(defalias 'typerex-split-string #[nil "\300\301!\210\302 \207" [insert-before-markers "\\ " typerex-backward-char] 2 (#$ . 106582)])
(byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice newline-and-indent (typerex-newline-and-indent nil t (advice lambda nil "Handle multi-line strings in TypeRex mode." (let ((hooked (and (eq major-mode 'typerex-mode) (typerex-in-literal-p))) (split-mark)) (when hooked (setq split-mark (set-marker (make-marker) (point))) (typerex-split-string)) ad-do-it (when hooked (goto-char split-mark) (set-marker split-mark nil))))) around nil ad-activate] 5)
#@68 If inserting a | operator at beginning of line, reindent the line.
(defalias 'typerex-electric-pipe #[nil "\205\302 \205\303 ?\205\304 ?\305\306!\210	\2055\307\310h\"\205/\212\311 \210\312 \210\313\314 !)??\2055\315 )\207" [typerex-electric-indent electric typerex-in-indentation-p typerex-in-literal-p typerex-in-comment-p self-insert-command 1 char-equal 124 typerex-backward-char typerex-find-pipe-match looking-at typerex-give-match-pipe-kwop-regexp indent-according-to-mode] 3 (#$ . 107255) "*"])
#@85 If inserting a ) operator or a comment-end at beginning of line,
reindent the line.
(defalias 'typerex-electric-rp #[nil "\205$\302 \204\303\304h\"\205$\305 ?\205$\306 ?\206$\212\307 \210\310\311!)\312\313!\210	\205/\314 )\207" [typerex-electric-indent electric typerex-in-indentation-p char-equal 42 typerex-in-literal-p typerex-in-comment-p back-to-indentation looking-at "\\*" self-insert-command 1 indent-according-to-mode] 3 (#$ . 107774) "*"])
#@231 If inserting a } operator at beginning of line, reindent the line.

Reindent also if } is inserted after a > operator at beginning of line.
Also, if the matching { is followed by a < and this } is not preceded
by >, insert one >.
(defalias 'typerex-electric-rc #[nil "h	\205\306 ?\205\307\310\"?\205/\311 \204,\307\310\"\205/\212\312 \210\311 )\205/\306 ?\313\314!\210\n\203T\212\212\312 \210\315 \210\316\317!\203J\320\202K\321)\312 \210
c\210*\f\205Z\322 +\207" [prec typerex-electric-close-vector look-bra typerex-electric-indent electric inserted-char typerex-in-literal-or-comment-p char-equal 62 typerex-in-indentation-p typerex-backward-char self-insert-command 1 typerex-backward-up-list looking-at "{<" ">" "" indent-according-to-mode] 3 (#$ . 108240) "*"])
#@231 If inserting a ] operator at beginning of line, reindent the line.

Reindent also if ] is inserted after a | operator at beginning of line.
Also, if the matching [ is followed by a | and this ] is not preceded
by |, insert one |.
(defalias 'typerex-electric-rb #[nil "h	\205\306 ?\205\307\310\"\205\307\212\311 \210h)\312\"??\205<\313 \2049\307\310\"\205<\212\311 \210\313 )\205<\306 ?\314\315!\210\n\203a\212\212\311 \210\316 \210\317\320!\203W\321\202X\322)\311 \210
c\210*\f\205g\323 +\207" [prec typerex-electric-close-vector look-pipe-or-bra typerex-electric-indent electric inserted-char typerex-in-literal-or-comment-p char-equal 124 typerex-backward-char 91 typerex-in-indentation-p self-insert-command 1 typerex-backward-up-list looking-at "\\[|" "|" "" indent-according-to-mode] 3 (#$ . 109033) "*"])
#@73 If inserting a leading keyword at beginning of line, reindent the line.
(defalias 'typerex-abbrev-hook #[nil "\302 ?\205%\303 \212\304\305\306#\205\307\310!)\211\205$\311c\210\312 \210\313\310!*\207" [bol kw typerex-in-literal-or-comment-p line-beginning-position re-search-backward "^[ 	]*\\(\\w\\|_\\)+\\=" t typerex-match-string 1 " " indent-according-to-mode backward-delete-char-untabify] 5 (#$ . 109871)])
(defalias 'typerex-skip-to-end-of-phrase #[nil "`\302 \303\230\203\304h\305\"\203`Sb\210\302 `	G\\b*\207" [old-point kwop typerex-find-meaningful-word ";" char-equal 59] 3])
(defalias 'typerex-skip-blank-and-comments #[nil "\300\301!\210m?\205\302 \205\303\304\305\306#\205\300\301!\210\202\207" [skip-syntax-forward " " typerex-in-comment-p search-forward "*)" nil t] 4])
(defalias 'typerex-skip-back-blank-and-comments #[nil "\300\301!\210\212\302 \210`eV\205\303 )\205!\302 \210\304 \210\300\301!\210\202\207" [skip-syntax-backward " " typerex-backward-char typerex-in-comment-p typerex-beginning-of-literal-or-comment] 2])
#@48 Find `real' phrase beginning and return point.
(defalias 'typerex-find-phrase-beginning #[(&optional stop-at-and) "\306 \210\307 \210\310\210\311 \210``\n\203\312\313\"\210\202 \312\f!\210`eV\203\243`	W\203\243\314!\203n\314\315!\203=\316 \204n\314\317!\203M\212\320 \210\316 )\204n\314\321!\203X\322 \204n\314
!\203c\323 \204n\314\324!\203\243\325 \203\243`U\203y\326\327\"\210`\314\330!\203\207\331 \210\202 n\204\216\332 \210`\n\203\234\312\313\"\210\202 \312\f!\210\202 \333 \203\256\310\210\307 \210\334 \210`*\207" [pt old-point stop-at-and typerex-find-phrase-beginning-and-regexp typerex-find-phrase-beginning-regexp typerex-sig-struct-regexp beginning-of-line typerex-skip-blank-and-comments nil typerex-skip-to-end-of-phrase typerex-find-kwop "and" looking-at "\\<let\\>" typerex-looking-at-internal-let "\\<and\\>" typerex-find-and-match "\\<module\\>" typerex-looking-at-false-module typerex-looking-at-false-sig-struct "\\<type\\>" typerex-looking-at-false-type error "typerex-find-phrase-beginning: inf loop at %d" "\\<end\\>" typerex-find-match typerex-backward-char typerex-at-phrase-break-p back-to-indentation] 3 (#$ . 110944)])
#@61 The default value for `imenu-prev-index-position-function'.
(defalias 'typerex-imenu-prev-index-position #[nil "`\302\303	X\203	\304\305!\211X\203	Sb\202\303	X\205\"*\207" [ret pos nil 0 typerex-find-phrase-beginning t] 3 (#$ . 112132)])
#@60 The default value for `imenu-extract-index-name-function'.
(defalias 'typerex-imenu-extract-index-name #[nil "\300\301!\210\302\303!\210\304`\305`\301\"\"\207" [forward-sexp 1 skip-syntax-forward " " buffer-substring-no-properties scan-sexps] 5 (#$ . 112388)])
(defalias 'typerex-search-forward-end #[nil "`\306\307\310\203~`\nV\203~\311\312d\310#\203v`\307\313 \204r\212\314\315!\210\316 \211\317\230\2037\320 \210\202F\321!\203F\322 \203F\320 \210`V\204X\f\323\230\203m\321\324!\203m`\nV\203f`
b\210\202q\307\211\202q\310\307)*\202\307\211\211\204\f	,\207" [move found current begin kwop stop -1 nil t re-search-forward "\\<end\\>" typerex-in-literal-or-comment-p typerex-backward-char 3 typerex-find-match "object" typerex-find-phrase-beginning looking-at typerex-looking-at-false-sig-struct "sig" "[ 	\n]*\\(\\<with\\>[ 	\n]*\\<type\\>\\|=\\)" typerex-sig-struct-regexp] 5])
(defalias 'typerex-inside-module-or-class-find-kwop #[nil "\302\303\"\211\203	\304\230\203\305 	\306\230\203\307	\310\230\203,\311 \210\302!\210\312 \202-	)\207" [typerex-inside-module-or-class-regexp kwop typerex-find-kwop "\\<\\(and\\|end\\)\\>" "and" typerex-find-and-match "with" nil "end" typerex-find-match typerex-inside-module-or-class-find-kwop] 4])
(defalias 'typerex-inside-module-or-class-p #[nil "\306\211\211\307\211\212\310\311!\203\312 \210`\310\313!\203-\212\314\315d\307#\210\316 \210`\fV)\206A\310\317!\205A\212\314
d\307#\210\316 \210`\fV)?\205\243\310!\204O\320 \205\243`\321 \205\243\322\323!\210\310\324!\205\243\325\323!\210``\326 \210	\203\237\310\311!\203\237`\321 \203\223\322\323!\210\310\324!\203\223\325\323!\210`\326 \210`\nX\203o\306\211\204s\f\nE.\207" [kwop and-iter and-end end begin typerex-sig-struct-regexp nil t looking-at "\\<and\\>" typerex-find-and-match "\\<class\\>" re-search-forward "\\<object\\>" typerex-find-phrase-beginning "\\<module\\>" typerex-inside-module-or-class-find-kwop typerex-search-forward-end typerex-backward-char 3 "\\<end\\>" typerex-forward-char typerex-skip-blank-and-comments typerex-inside-module-or-class-opening-full] 6])
#@182 Go to the beginning of the enclosing module or class.

Notice that white-lines (or comments) located immediately before a
module/class are considered enclosed in this module/class.
(defalias 'typerex-move-inside-module-or-class-opening #[nil "`\302 \211\204\fb\210\303 *\207" [old-point kwop typerex-inside-module-or-class-find-kwop typerex-find-phrase-beginning] 2 (#$ . 114551) nil])
(defalias 'typerex-discover-phrase #[(&optional quiet stop-at-and) "\306\210`\306\307\310\311\n#\210\307\312\311\n#\210\313\216\314!\210`	V\203!`\212`\315\211\306\316 \317\f!
\203O\203O@\3208\211b\210\202\272\203l\212A@b\210\321 )\211	W\203od\202od\214	b\210\315U\203\271\203\206`W\203\271\212\314!)	X\203\271\204\244T\211\322U\203\244\323\324!\210`\325 \210\321 d}\210	b\210\326y\211\202u)\322Y\203\305\323\327!\210\212\330 \210`)\331 \210`	E.\n\207" [case-fold-search end typerex-mode-syntax-table stop-at-and typerex-inside-module-or-class-opening-full looking-block nil modify-syntax-entry 46 "w" 95 ((byte-code "\301\302\303#\210\301\304\305#\207" [typerex-mode-syntax-table modify-syntax-entry 46 "." 95 "_"] 4)) typerex-find-phrase-beginning 0 typerex-inside-module-or-class-p looking-at 2 line-beginning-position 8 message "Looking for enclosing phrase..." typerex-skip-to-end-of-phrase 1 "Looking for enclosing phrase... done." typerex-skip-blank-and-comments typerex-skip-back-blank-and-comments inside-module-or-class stop lines-left cpt begin quiet] 8])
#@111 Put mark at end of this Caml phrase, point at beginning.
The Caml phrase is the phrase just before the point.
(defalias 'typerex-mark-phrase #[nil "\301 \211A@b\210\302@\303\211#)\207" [pair typerex-discover-phrase push-mark t] 5 (#$ . 116087) nil])
#@43 Skip to the beginning of the next phrase.
(defalias 'typerex-next-phrase #[(&optional quiet stop-at-and) "\212\302\303	\"8)b\210\304\305!\203\306	\"\207\304\307!\203!\310u\210\311 \207\304\312!\205,\302u\210\311 \207" [quiet stop-at-and 2 typerex-discover-phrase looking-at "\\<end\\>" typerex-next-phrase ")" 1 typerex-skip-blank-and-comments ";;"] 4 (#$ . 116345) "i"])
#@47 Skip to the beginning of the previous phrase.
(defalias 'typerex-previous-phrase #[nil "\300 \210\301 \210\302 \207" [beginning-of-line typerex-skip-to-end-of-phrase typerex-discover-phrase] 1 (#$ . 116729) nil])
#@100 Depending of the context: justify and indent a comment,
or indent all lines in the current phrase.
(defalias 'typerex-indent-phrase #[nil "\212\306 \210\307 \203\246\212\310 \210`)\212`V\203(\307 \203(\311\312!\204(\313y\210\202`])\212\307 \203<\314\315\316\317#\210\202.`)\212\314\312\n\317#\210\320\321!)\322 	b\210\f\203w`W\203w\311\312!\204w\323y\210\306 \210\311\324!\203Q\325\323!\210S\202Q`^b\210\326	\"\210\314\315\316\317#\210`\f\203\235	b\210\323y\210`W\203\235\327\330!\210\331	\316#-\202\262\332 \331
@
A@\316#))\207" [cobpoint begpoint coepoint endpoint leading-star pair back-to-indentation typerex-in-comment-p typerex-beginning-of-literal-or-comment looking-at "^[ 	]*$" -1 re-search-forward "\\*)" nil end line-beginning-position 2 typerex-leading-star-p 1 "\\*\\**\\([^)]\\|$\\)" delete-char fill-region typerex-auto-fill-insert-leading-star t indent-region typerex-discover-phrase] 4 (#$ . 116949) nil])
#@40 Completes qualified ocaml identifiers.
(defalias 'typerex-complete #[(arg) "\302\303\304#\210\305	!\210\302\303\306#\207" [typerex-mode-syntax-table arg modify-syntax-entry 95 "w" caml-complete "_"] 4 (#$ . 117910) "p"])
(defalias 'typerex--try-find-alternate-file #[(partial-name extension) "	P\305\n!	\306\230\203\307\202	\310\230\205\311\203&\312!\210\313\202J\314\n!\2033\315\n!\210\202I	\316\230\204I\317\320\321\f\322\n!#!\203I\315\n!\210\323+\207" [partial-name extension filename buffer what get-file-buffer ".ml" "implementation" ".mli" "interface" switch-to-buffer t file-exists-p find-file ".mll" y-or-n-p format "Create %s file (%s)" file-name-nondirectory nil] 6])
#@34 Switch Implementation/Interface.
(defalias 'typerex-find-alternate-file #[nil "\303 \304\305\"\205A\306\307\"\310\311\"\211\312\230\203)\313	\314\"?\205@\313	\315\"\202@\n\316\230\2036\313	\317\"\202@\n\320=\205@\313	\317\"*)\207" [name partial-name c buffer-file-name string-match "\\`\\(.*\\)\\.ml\\([il]\\)?\\'" typerex-match-string 1 match-string 2 "i" typerex--try-find-alternate-file ".mll" ".ml" "l" ".mli" nil] 4 (#$ . 118614) nil])
(defalias 'typerex-ensure-space #[nil "h\211\205\301\302z\"?\205\303c)\207" [prec char-equal 32 " "] 4])
#@69 Insert a nicely formatted class-end form, leaving a mark after end.
(defalias 'typerex-insert-class-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306 \210\307y\210\305 )\207" [old typerex-ensure-space "class  = object (self)\ninherit  as super\nend;;\n" nil indent-region indent-according-to-mode push-mark -2] 4 (#$ . 119185) "*"])
#@69 Insert a nicely formatted begin-end form, leaving a mark after end.
(defalias 'typerex-insert-begin-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306y\210\307 )\207" [old typerex-ensure-space "begin\n\nend\n" nil indent-region push-mark -2 indent-according-to-mode] 4 (#$ . 119544) "*"])
#@72 Insert a nicely formatted for-to-done form, leaving a mark after done.
(defalias 'typerex-insert-for-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306y\210\307 \210\310\311!\210\312u)\207" [old typerex-ensure-space "for  do\n\ndone\n" nil indent-region push-mark -2 indent-according-to-mode beginning-of-line 1 -4] 4 (#$ . 119858) "*"])
#@72 Insert a nicely formatted for-to-done form, leaving a mark after done.
(defalias 'typerex-insert-while-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306y\210\307 \210\310\311!\210\312u)\207" [old typerex-ensure-space "while  do\n\ndone\n" nil indent-region push-mark -2 indent-according-to-mode beginning-of-line 1 -4] 4 (#$ . 120221) "*"])
#@73 Insert a nicely formatted if-then-else form, leaving a mark after else.
(defalias 'typerex-insert-if-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306 \210\307y\210\305 \210\307y\210\305 )\207" [old typerex-ensure-space "if\n\nthen\n\nelse\n" nil indent-region indent-according-to-mode push-mark -2] 4 (#$ . 120588) "*"])
#@70 Insert a nicely formatted math-with form, leaving a mark after with.
(defalias 'typerex-insert-match-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306 \210\307y\210\305 )\207" [old typerex-ensure-space "match\n\nwith\n" nil indent-region indent-according-to-mode push-mark -2] 4 (#$ . 120936) "*"])
#@65 Insert a nicely formatted let-in form, leaving a mark after in.
(defalias 'typerex-insert-let-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306 \210\307 \210\310u\210\305 )\207" [old typerex-ensure-space "let  in\n" nil indent-region indent-according-to-mode push-mark beginning-of-line -4] 4 (#$ . 121261) "*"])
#@69 Insert a nicely formatted try-with form, leaving a mark after with.
(defalias 'typerex-insert-try-form #[nil "\301 \210`\302c\210\303\210\304`\303#\210\305 \210\306 \210\307y\210\305 )\207" [old typerex-ensure-space "try\n\nwith\n" nil indent-region indent-according-to-mode push-mark -2] 4 (#$ . 121600) "*"])
(byte-code "\303\304!\210\305B\306\305!\204`\307\305\310	!\311\n\312\313#\210\311\n\314\315#\210\311\n\316\317#\210\311\n\320\321#\210\311\n\322\323#\210\311\n\324\325#\210\311\n\326\327#\210\311\n\330\327#\210\311\n\331\332#\210\311\n\333\334#\210\311\n\335\336#\210\311\n\337\336#\210\n)\"\210\340B\341\342!\207" [current-load-list comint-mode-map map require comint typerex-interactive-mode-map default-boundp set-default copy-keymap define-key "|" typerex-electric-pipe ")" typerex-electric-rp "}" typerex-electric-rc "]" typerex-electric-rb "	" typerex-interrupt-caml "" typerex-kill-caml "`" typerex-interactive-next-error-toplevel "?" "
" typerex-interactive-send-input "\n" typerex-interactive-send-input-or-indent "\215" typerex-interactive-send-input-end-of-phrase [kp-enter] typerex-interactive-buffer-name (lambda (#1=#:defconst-tmp-var) (defconst typerex-interactive-buffer-name #1#)) "*caml-toplevel*"] 6)
#@70 Regexp matching the char numbers in ocaml toplevel's error messages.
(defconst typerex-interactive-toplevel-error-regexp "[ 	]*Characters \\([0-9]+\\)-\\([0-9]+\\):" (#$ . 122851))
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\301\207" [current-load-list typerex-interactive-last-phrase-pos-in-source default-boundp set-default 0 typerex-interactive-last-phrase-pos-in-toplevel] 3)
(defalias 'typerex-interactive-filter #[(text) "\306=\205\216\212	\nY\205\215\203\307\n	\310\311D#\210\f\203&
\203&\312\n	\"\210\203=\212db\210\313	\311#\210\307	`\314#\210)\205\215\212	b\210\315\316\311#\205\214\317\224\317\225\212b\210\320\321\322$\210\323!\203\210\324\325\317!!\324\325\326!! \320\n \\\n\\\321\327$\210*+\202F))\207" [major-mode comint-last-input-end comint-last-input-start typerex-interactive-read-only-input font-lock-mode typerex-interactive-input-font-lock typerex-interactive-mode add-text-properties read-only t font-lock-fontify-region re-search-backward (face typerex-font-lock-interactive-output-face) re-search-forward nil 1 put-text-property face typerex-font-lock-interactive-error-face looking-at string-to-number typerex-match-string 2 typerex-font-lock-error-face typerex-interactive-output-font-lock comint-prompt-regexp typerex-interactive-error-font-lock typerex-interactive-error-regexp matchend matchbeg typerex-interactive-toplevel-error-regexp end beg] 5])
#@32 TypeRex Interactive Mode Menu.
(defvar typerex-interactive-mode-menu nil (#$ . 124325))
(byte-code "\303\304\305\306$\210\307\310N\204\311\307\310\312\313!#\210\314\300!\204!\311\300\315\316#\210\300	B\317\300!\2041\320\300\321 \"\210\300\310N\204?\311\300\310\312\322!#\210\314\323!\204K\311\323\315\316#\210\323	B\317\323!\204[\320\323\324 \"\210\323\310N\204i\311\323\310\312\325!#\210\311\302\315\316#\210\302	B\317\302!\204\203\320\302\326\302\327\"\210\n\"\210\302\310N\204\221\311\302\310\312\330!#\210\311\316\331\332#\207" [typerex-interactive-mode-map current-load-list typerex-interactive-mode-abbrev-table easy-menu-do-define typerex-interactive-mode-menu "TypeRex Interactive Mode Menu." ("TypeRex" ("Interactive Mode" ["Run Caml Toplevel" typerex-run-caml t] ["Interrupt Caml Toplevel" typerex-interrupt-caml :active (comint-check-proc typerex-interactive-buffer-name)] ["Kill Caml Toplevel" typerex-kill-caml :active (comint-check-proc typerex-interactive-buffer-name)] ["Evaluate Region" typerex-eval-region :active (region-active-p)] ["Evaluate Phrase" typerex-eval-phrase t] ["Evaluate Buffer" typerex-eval-buffer t]) "---" ["Customize TypeRex Mode..." (customize-group 'ocp) t] ("TypeRex Options" ["Dummy" nil t]) ("TypeRex Interactive Options" ["Dummy" nil t]) "---" ["About" typerex-about t] ["Help" typerex-interactive-help t]) typerex-interactive-mode-hook variable-documentation put purecopy "Hook run when entering TypeRex-Interactive mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name typerex-interactive-mode default-boundp set-default make-sparse-keymap "Keymap for `typerex-interactive-mode'." typerex-interactive-mode-syntax-table make-syntax-table "Syntax table for `typerex-interactive-mode'." define-abbrev-table nil "Abbrev table for `typerex-interactive-mode'." derived-mode-parent comint-mode] 5)
#@476 Major mode for interacting with a Caml process.
Runs a Caml toplevel as a subprocess of Emacs, with I/O through an
Emacs buffer. A history of input phrases is maintained. Phrases can
be sent from another buffer in Caml mode.

Short cuts for interactions with the toplevel:
\{typerex-interactive-mode-map}

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `typerex-interactive-mode-hook', as the final step
during initialization.
(defalias 'typerex-interactive-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324!\210\325\f!\210+,\326 \210-\204[.\204[/\203_\327\330!\210\331\332\333\"\210\334\335!\203p\336\335\337\307#\210\334\340!\203|\336\340\341\307#\210\3420\3431\344234\3255!\2106,\306\345!\210\346%\3477!\210\350 \210)\351\352!\207" [delay-mode-hooks major-mode mode-name typerex-interactive-mode-map typerex-interactive-mode-syntax-table parent make-local-variable t comint-mode typerex-interactive-mode "TypeRex-Interactive" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table typerex-install-font-lock font-lock-mode 1 add-hook comint-output-filter-functions typerex-interactive-filter boundp after-change-functions remove-hook font-lock-after-change-function pre-idle-hook font-lock-pre-idle-hook "^#  *" nil typerex-interactive-get-old-input indent-line-function typerex-indent-command easy-menu-add typerex-update-options-menu run-mode-hooks typerex-interactive-mode-hook typerex-interactive-mode-abbrev-table local-abbrev-table typerex-interactive-input-font-lock typerex-interactive-output-font-lock typerex-interactive-error-font-lock comint-prompt-regexp comint-process-echoes comint-get-old-input typerex-interactive-scroll-to-bottom-on-output comint-scroll-to-bottom-on-output typerex-mode-syntax-table typerex-mode-abbrev-table typerex-interactive-mode-menu] 6 (#$ . 126285) nil])
#@64 Run a Caml toplevel process. I/O via buffer `*caml-toplevel*'.
(defalias 'typerex-run-caml #[nil "\301 \210\302!\207" [typerex-interactive-buffer-name typerex-run-process-if-needed display-buffer] 2 (#$ . 128397) nil])
#@105 Run a Caml toplevel process if needed, with an optional command name.
I/O via buffer `*caml-toplevel*'.
(defalias 'typerex-run-process-if-needed #[(&optional cmd) "\203	\202\305\n!\204\306\307	\"\305\n!?\2053\310	!\311\312\313\314\f@\311\fA%q\210\315 \210\316\317!*\207" [cmd typerex-interactive-program typerex-interactive-buffer-name process-connection-type cmdlist comint-check-proc read-shell-command "Caml toplevel to run: " typerex-args-to-list nil apply make-comint "caml-toplevel" typerex-interactive-mode sleep-for 1] 6 (#$ . 128624)])
(defalias 'typerex-args-to-list #[(string) "\303\304\"\211\204C\2025	\305U\204$\305	O\306	TGO!B\2025\303\307\"\211\2054\306\nGO!))\207" [string where pos string-match "[ 	]" 0 typerex-args-to-list "[^ 	]"] 6])
(defalias 'typerex-interactive-get-old-input #[nil "\212`\302	e\303#\210\304	!\203\305	!\210\306`\"*\207" [end comint-prompt-regexp re-search-backward t looking-at re-search-forward buffer-substring-no-properties] 4])
(defalias 'typerex-interactive-end-of-phrase #[nil "\212\300\210\301 \210\301 \210\302\303!)\207" [nil typerex-find-meaningful-word looking-at ";;"] 2])
(defalias 'typerex-interactive-send-input-end-of-phrase #[nil "db\210\300 \204\301c\210\302 \207" [typerex-interactive-end-of-phrase ";;" comint-send-input] 1 nil nil])
(byte-code "\301B\302\303!\207" [current-load-list typerex-interactive-send-warning (lambda (#1=#:defconst-tmp-var) (defconst typerex-interactive-send-warning #1#)) "Note: toplevel processing requires a terminating `;;'"] 2)
#@96 Process if the current line ends with `;;' then send the
current phrase else insert a newline.
(defalias 'typerex-interactive-send-input #[nil "\301 \203\302 \210db\207\303c\210\304!\207" [typerex-interactive-send-warning typerex-interactive-end-of-phrase comint-send-input "\n" message] 2 (#$ . 130187) nil])
#@107 Process if the current line ends with `;;' then send the
current phrase else insert a newline and indent.
(defalias 'typerex-interactive-send-input-or-indent #[nil "\301 \203db\210\302 \207\303c\210\304 \210\305!\207" [typerex-interactive-send-warning typerex-interactive-end-of-phrase comint-send-input "\n" indent-according-to-mode message] 2 (#$ . 130507) nil])
#@47 Eval the current region in the Caml toplevel.
(defalias 'typerex-eval-region #[(start end) "\212\306 \210)\307 \210\212b\210\310 \210`\nb\210\311 \210`\312\n\"\nb\210\313\230\2030\314\315!\210\202V\fq\210db\210`\316\f\317P\"\210`\320 \210\203U\212b\210\317Pc\210)))\205_\321\f!)\207" [start typerex-interactive-last-phrase-pos-in-source end text typerex-interactive-buffer-name typerex-interactive-last-phrase-pos-in-toplevel typerex-run-process-if-needed comint-preinput-scroll-to-bottom typerex-skip-blank-and-comments typerex-skip-to-end-of-phrase buffer-substring-no-properties "" message "Cannot send empty commands to Caml toplevel!" comint-send-string ";;" comint-send-input display-buffer pos typerex-interactive-echo-phrase typerex-display-buffer-on-eval] 4 (#$ . 130881) "r"])
#@71 Narrow the editting window to the surrounding Caml phrase (or block).
(defalias 'typerex-narrow-to-phrase #[nil "\212\301 \211@A@}*\207" [pair typerex-discover-phrase] 3 (#$ . 131697) nil])
#@67 Eval the surrounding Caml phrase (or block) in the Caml toplevel.
(defalias 'typerex-eval-phrase #[nil "\303\212\304 \305	8\306	@	A@\"\210*\n\205b)\207" [end pair typerex-skip-after-eval-phrase nil typerex-discover-phrase 2 typerex-eval-region] 3 (#$ . 131895) nil])
#@53 Send the buffer to the TypeRex Interactive process.
(defalias 'typerex-eval-buffer #[nil "\300ed\"\207" [typerex-eval-region] 3 (#$ . 132174) nil])
(defalias 'typerex-interactive-next-error-source #[nil "\306\307\211rq\210\fb\210\310
d\311#\211\203#\312\313\314!!\312\313\315!!)\n\204.\316\317!\202A	\\\\	b\210\320	\321\322$+\207" [end beg error-pos typerex-interactive-buffer-name typerex-interactive-last-phrase-pos-in-toplevel typerex-interactive-toplevel-error-regexp nil 0 re-search-forward t string-to-number typerex-match-string 1 2 message "No syntax or typing error in last phrase." put-text-property face typerex-font-lock-error-face typerex-interactive-last-phrase-pos-in-source] 6 nil nil])
(defalias 'typerex-interactive-next-error-toplevel #[nil "\305\306\211\212b\210\307\fd\310#\211\203 \311\312\313!!\311\312\314!!)\n\204+\315\316!\202<	\\\\\317	\320\321$\210	b+\207" [end beg error-pos typerex-interactive-last-phrase-pos-in-toplevel typerex-interactive-toplevel-error-regexp nil 0 re-search-forward t string-to-number typerex-match-string 1 2 message "No syntax or typing error in last phrase." put-text-property face typerex-font-lock-error-face] 6 nil nil])
(defalias 'typerex-interrupt-caml #[nil "\301!\205
rq\210\302 )\207" [typerex-interactive-buffer-name comint-check-proc comint-interrupt-subjob] 2 nil nil])
(defalias 'typerex-kill-caml #[nil "\301!\205
rq\210\302 )\207" [typerex-interactive-buffer-name comint-check-proc comint-kill-subjob] 2 nil nil])
(defalias 'typerex-about #[nil "\300\301!\207" [describe-variable typerex-mode-version] 2 nil nil])
#@135 Short cuts for the TypeRex mode:
\{typerex-mode-map}

Short cuts for interaction within the toplevel:
\{typerex-interactive-mode-map}
(defalias 'typerex-short-cuts #[nil "\300\301!\207" [describe-function typerex-short-cuts] 2 (#$ . 133804) nil])
(defalias 'typerex-help #[nil "\300\301!\207" [describe-function typerex-mode] 2 nil nil])
(defalias 'typerex-interactive-help #[nil "\300\301!\207" [describe-function typerex-interactive-mode] 2 nil nil])
#@42 Initial content of the definitions menu.
(defvar typerex-definitions-menu (list ["Scan..." typerex-list-definitions t]) (#$ . 134263))
(byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\307B\304\307!\204\"\305\307\306\"\210\306\207" [current-load-list make-variable-buffer-local typerex-definitions-menu typerex-definitions-menu-last-buffer default-boundp set-default nil typerex-definitions-keymaps] 3)
(defalias 'typerex-update-definitions-menu #[nil "\302=\205\303\304\305	#\207" [major-mode typerex-definitions-menu typerex-mode easy-menu-change ("TypeRex") "Definitions"] 4])
(defalias 'typerex-with-emacs-update-definitions-menu #[nil "\303 \205!\304\303 \305\"\306!\203	p=\204\n\241\202 p\211)\207" [keymap typerex-definitions-menu-last-buffer typerex-definitions-keymaps current-local-map lookup-key [menu-bar TypeRex Definitions] keymapp] 3])
(defalias 'typerex-toggle-option #[(symbol) "\211J?L\210\301=\203\303	!\210\n?\205\304 \207" [symbol typerex-use-abbrev-mode typerex-with-xemacs abbrev-mode typerex-update-options-menu] 2 nil nil])
(defalias 'typerex-update-options-menu #[nil "\302\303\304\305\306\"#\210\302\307\310\305\311	\"#\207" [typerex-options-list typerex-interactive-options-list easy-menu-change ("TypeRex" "More") "TypeRex Options" mapcar #[(pair) ":\203\301@\302AD\303\304\305AA@\306\307&\207\207" [pair vector typerex-toggle-option :style toggle :selected :active t] 9] ("TypeRex" "More") "TypeRex Interactive Options" #[(pair) ":\203\301@\302AD\303\304\305AA@\306\307&\207\207" [pair vector typerex-toggle-option :style toggle :selected :active t] 9]] 6])
#@33 *Browse OCaml reference manual.
(defalias 'typerex-browse-manual #[nil "\302\303\"	!\207" [typerex-manual-url typerex-browser read-from-minibuffer "URL: "] 3 (#$ . -135912) nil])
#@30 *Browse TypeRex user manual.
(defalias 'typerex-browse-typerex-manual #[nil "	!\207" [typerex-browser typerex-typerex-manual-url] 2 (#$ . -136100) nil])
(byte-code "\302B\303\302!\204#\304\302\305 \306	!\210\307	\310\311#\210\307	\312\313#\210	)\"\210\302\207" [current-load-list map typerex-library-mode-map default-boundp set-default make-keymap suppress-keymap define-key [return] typerex-library-find-file [mouse-2] typerex-library-mouse-find-file] 6)
#@26 Browse the Caml library.
(defalias 'typerex-browse-library #[nil "\306\307\310\311\"\312	!\205\215\313	!\205\215	\220\314\f!\210rq\210\315 \210\316\300!\210	\317	\320\261\210\321c\210\322c\210\323	\324P\325\326\307$\210\327c\210\323	\330P\325\326\307$\210\331\332\333\"\210\331\334\333\"\210\331\335\333\"\210eb\210`dW\203}\336\337!\210`\340\341e\342#\210\343`\n\344\345$\210\nTb\210\202]\346\347)\350*!\210\326\211+)\221+\207" [typerex-library-path dir opoint buf-name standard-output major-mode "*caml-library*" nil read-from-minibuffer "Library path: " file-directory-p file-readable-p buffer-disable-undo kill-all-local-variables make-local-variable "Directory \"" "\".\n" "Select a file with middle mouse button or RETURN.\n\n" "Interface files (.mli):\n\n" insert-directory "/*.mli" "-C" t "\n\nImplementation files (.ml):\n\n" "/*.ml" modify-syntax-entry 46 "w" 95 45 re-search-forward "\\.ml.?\\>" re-search-backward "\\<" 1 put-text-property mouse-face highlight typerex-library-mode "typerex-library" use-local-map mode-name typerex-library-mode-map buffer-read-only] 6 (#$ . 136567) nil])
#@41 Load the file whose name is near point.
(defalias 'typerex-library-find-file #[nil "\302`!\205\212\303\304\305!\210`\306\307!\210\310	\311\312`\"Q!*\207" [beg typerex-library-path text-properties-at nil re-search-backward "\\<" re-search-forward "\\>" find-file-read-only "/" buffer-substring-no-properties] 6 (#$ . 137691) nil])
#@35 Visit the file name you click on.
(defalias 'typerex-library-mouse-find-file #[(event) "\302 \303	!\210\304 \210\305!)\207" [owindow event selected-window mouse-set-point typerex-library-find-file select-window] 2 (#$ . 138032) "e"])
(byte-code "\301B\302\303!\207" [current-load-list typerex--id-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex--id-regexp #1#)) "[[:alpha:]][_'[:alnum:]]*"] 2)
#@58 Regexp matching stuff to ignore after a binding keyword.
(defconst typerex-definitions-bind-skip-regexp (byte-code "\301\302\303\304#\305\306R\207" [typerex--id-regexp typerex-ro "rec" "type" "virtual" "\\|'" "\\|('.*)"] 4) (#$ . 138445))
(byte-code "\302B\303\304	\305Q!\207" [current-load-list typerex--id-regexp typerex-identifier-regexp (lambda (#1=#:defconst-tmp-var) (defconst typerex-identifier-regexp #1#)) "\\<" "\\>"] 4)
#@93 Parse the buffer and gather toplevel definitions
for a quick jump via the definitions menu.
(defalias 'typerex-list-definitions #[nil "\306\307!\210\212\310\311\211\211\211\211\211\21145eb\210\312 \210`dW\203
\3136!\203\332\314\310!4\315 7\316\2164\203E4\317\230\203E\320 4*4\321\230\204T4\322\230\203W\3234\310\225b\210\312 \210\3138!\203i\310\225b\210\312 \210\3139!\203\332\324 :\325\314\310!\326:D\327#;5T5\306\330\3315!\332Q!\210:`\311\223\2104\323\230\203\247;\fB\202\3314\333\230\203\266;B\202\3314\334\230\203\305;\nB\202\3314\335\230\203\324;	B\202\331;B*\336 \210`\337\327\211\"\210`<=<=W\203\364\340\341!\210\212\342\343=\327#\203
\344 \204
\212\320 \210=`Y)\203
`<\202\365)<b\210*\202\345B\346\fB\347	B\350B\351\nB\257\311>\211?\203Y
?@\211>A\203P
\352\353>@\354>A!\"
\"?A\211?\2048
*\352
\355\356D\"@A\204x
\357\360!\203x
\360\361@\"AB\311C\306\362!\210.	\363 \207" [misc-list class-list module-list type-list value-list menu message "Searching for definitions..." 0 nil typerex-skip-blank-and-comments looking-at typerex-match-string match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "and" typerex-find-and-match "exception" "val" "let" make-marker vector typerex-goto t "Searching definitions... (" number-to-string ")" "type" "module" "class" typerex-forward-char typerex-next-phrase error "scan error" re-search-backward "\\<and\\>" typerex-in-literal-or-comment-p "Miscellaneous" "Values" "Classes" "Types" "Modules" append typerex-split-long-list typerex-sort-definitions "---" ["Rescan..." typerex-list-definitions t] functionp easy-menu-create-menu "Definitions" "Searching definitions... done" typerex-update-definitions-menu kw cpt typerex-definitions-regexp save-match-data-internal typerex-definitions-bind-skip-regexp typerex-identifier-regexp p ref last-and old-point pair #1=#:--cl-dolist-temp-- typerex-definitions-menu typerex-with-xemacs typerex-definitions-keymaps typerex-definitions-menu-last-buffer] 8 (#$ . 138885) nil])
(defalias 'typerex-goto #[(pos) "b\210\301 \207" [pos recenter] 1])
(defalias 'typerex-sort-definitions #[(list) "\304\305\306\n\237\307\"\211\211\2037@\310\234\230\203)	T@\310\311\312	#I\210\2020\305@\310\234A\211\204\n,\207" [last cpt list tail "" 1 sort #[(p q) "\302\234	\302\234\231\207" [p q 0] 3] 0 format "%s (%d)"] 7])
(defalias 'typerex-nth #[(n list) "\302X\204	\203	A\204	\207\303S	A\"\207" [n list 1 typerex-nth] 3])
(defalias 'typerex-split-long-list #[(title list) "\306	\"\211\203\nA\204	BC\202K\307	\203H	@\310\234\310\311O\n@\310\234\310\311O\f\312\313\f
$	B\fB\nA\n\307\241\210\306	\"*\202\f\237))\207" [typerex-definitions-max-items list tail title lists end typerex-nth nil 0 1 format "%s %s-%s" beg] 6])
(byte-code "\300\301\302\303#\203\f\304\305!\210\302\207" [require speedbar nil t speedbar-add-supported-extension (".ml" ".mli" ".mll" ".mly" ".ls")] 4)
#@114 This hook is run when TypeRex is loaded in. It is a good place to put
key-bindings or hack Font-Lock keywords...
(defvar typerex-load-hook nil (#$ . 141916))
(byte-code "\300\301!\210\302\303!\207" [run-hooks typerex-load-hook provide typerex] 2)
#@31 Rename the current identifier
(defalias 'ocp-rename #[nil "\300\301!\207" [checked-string-command "rename"] 2 (#$ . 142169) nil])
#@63 Rename the toplevel module defined by the current source file
(defalias 'ocp-rename-toplevel #[nil "\300\301!\207" [checked-string-command "rename-toplevel"] 2 (#$ . 142305) nil])
#@48 Undo the last multiple-file refactoring action
(defalias 'ocp-undo #[nil "\300\301!\207" [checked-string-command "undo"] 2 (#$ . 142491) nil])
#@19 testing callbacks
(defalias 'ocp-callback-test #[nil "\300\301!\207" [checked-string-command "callback-test"] 2 (#$ . 142640) nil])
#@54 Go to the definition referenced by the current ident
(defalias 'ocp-goto-definition #[nil "\300\301!\207" [checked-string-command "goto-definition"] 2 (#$ . 142778) nil])
#@53 Show the comments associated with the current ident
(defalias 'ocp-comment-definition #[nil "\300\301!\207" [checked-string-command "comment-definition"] 2 (#$ . 142955) nil])
#@63 Cycle between the alternative definitions of the current def.
(defalias 'ocp-cycle-definitions #[nil "\300\301!\207" [checked-string-command "cycle-definitions"] 2 (#$ . 143137) nil])
#@45 Simplify all references in the current file
(defalias 'ocp-prune-lids #[nil "\300\301!\207" [checked-string-command "prune-lids"] 2 (#$ . 143327) nil])
#@58 Eliminate an open statement by qualifying all references
(defalias 'ocp-eliminate-open #[nil "\300\301!\207" [checked-string-command "eliminate-open"] 2 (#$ . 143485) nil])
(defalias 'ocp-wizard-plugin #[nil "\300\301 \302\303#\210\300\301 \304\305#\210\300\301 \306\307#\210\300\301 \310\311#\210\300\301 \312\313#\210\300\301 \314\315#\210\300\301 \316\317#\210\300\301 \320\321#\210\300\301 \322\323#\207" [define-key current-local-map [(control o) (q)] ocp-eliminate-open [(control o) (p)] ocp-prune-lids [(control o) (a)] ocp-cycle-definitions [(control o) (c)] ocp-comment-definition [(control o) (d)] ocp-goto-definition [(control o) (control t)] ocp-callback-test [(control o) (u)] ocp-undo [(control o) (t) (r)] ocp-rename-toplevel [(control o) (r)] ocp-rename] 4])
#@41 Enable "on-the-fly compilation" button 
(custom-declare-variable 'ocp-flymake-available 'nil '(#$ . 144266) :group 'typerex-misc)
(byte-code "\203Z\302\303!\210\304\305\306\307B\"\210\304\310\311\"\210\312\313\314\"\210\315\316\317\"\210\320	B\321\320\322\323#\210\324\320!\2043\325\320\326\"\210\327	B\324\327!\204B\325\327\323\"\210\330\331\332\333\323$\210\334\331\323\"\210\330\335\336\337\323$\210\334\335\323\"\210\340\341!\207" [ocp-flymake-available current-load-list require flymake add-to-list flymake-err-line-patterns "File \"\\(.*\\)\", line \\([0-9]+\\), characters \\([0-9]+\\)--?\\([0-9]+\\):\\(Error\\|Warning\\): \\(.*\\)$" (1 2 3 6) flymake-allowed-file-name-masks ("\\.ml\\'" ocp-flymake-init) add-hook typerex-mode-hook (lambda nil (set (make-local-variable 'multiline-flymake-mode) t)) defalias ocp-flymake-init #[nil "\306\307	\310\"\311\n\310\"\312	\n\"\313\314\315\f#\316\317
D\nE-\207" [args buffer-file-name dir buildfile-dir source-file-name source nil locate-dominating-file ".typerex" flymake-init-find-buildfile-dir file-relative-name replace-regexp-in-string ".ml$" ".cmo" "ocamlbuild" "-use-ocamlfind"] 4 "Create syntax check ocamlbuild command line for TypeRex projects."] multiline-flymake-mode put variable-documentation nil default-boundp set-default "Decides whetever to join lines, during flymake parsing of the build command output." flymake-split-output-multiline ad-add-advice flymake-split-output (flymake-split-output-multiline (protect) t (advice lambda nil (if multiline-flymake-mode (let ((flymake-split-output-multiline t)) ad-do-it) ad-do-it))) around ad-activate flymake-split-string (flymake-split-string-multiline nil t (advice lambda nil (when flymake-split-output-multiline (ad-set-arg 1 "^\\s *$")))) before provide ocp-flymake] 5)
#@41 If true, enable TypeRex auto-completion
(custom-declare-variable 'ocp-auto-complete 'nil '(#$ . 146070) :group 'typerex-auto-complete :type '(boolean))
#@237 If true, pre-cache the cmt to prevent pausing at first
completion. We use a counter to avoid the deadlocks that used to
happen when either:
 - Emacs is started on several files simultaneously
 - User begins typing during Emacs startup.
(custom-declare-variable 'ocp-pre-cache 't '(#$ . 146229) :group 'typerex-auto-complete :type '(boolean))
#@31 length as known to ocp-wizard
(defvar ocp-buffer-bytes 0 (#$ . 146577))
(byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\301\303!\210\307B\304\307!\204&\305\307\306\"\210\301\307!\207" [current-load-list make-variable-buffer-local ocp-buffer-bytes ocp-buffer-modified-start default-boundp set-default 1 ocp-buffer-modified-end] 3)
#@193 Enlarge the recorded modified region according to the given
parameters. This function is set as an after-change hook, as well
as a find-file-hook (with point-min and point-max as parameters).
(defalias 'ocp-update-modified #[(begin end &optional old-len) "\306=?\205@	\307=\203\306\nX\2034\n\f^
\fX\203/
\fZ	Z\n\n\\)\2020]\211\207\f
\310\311!\205@\311 \207" [ocp-buffer-bytes old-len ocp-buffer-modified-start ocp-buffer-modified-end begin end 0 nil fboundp discard-completion-data growth] 3 (#$ . 146935)])
#@85 Ensure that the next change committed to the server
will (re-)load the whole buffer
(defalias 'reset-tokenization #[nil "\301\211\207" [ocp-buffer-bytes 0] 2 (#$ . 147468)])
#@71 Try to get the absolute filename for a buffer name and directory name
(defalias 'filename-of-buffer-name #[(buffer-name directory) "G\211\304V\203'\305	S\234\306\"\203'\305	\304Z\234\307\"\203'\310	\304ZO\202(\311\n\"*\207" [buffer-name len filename directory 3 char-equal 62 60 0 expand-file-name] 5 (#$ . 147649)])
(defalias 'is-ocaml-buffer #[nil "\301 \230?\207" [typerex-interactive-buffer-name buffer-name] 2])
#@153 Commit a region modification to the server, and return the
string result, which is either the fontification command, or
OK. All positions count from 1.
(defalias 'ocp-modify-region #[(start end start-bytes end-bytes old-length-bytes first-time) "\306\307 \"\310 \311\312\307 \313	\313\314S!\313\314\fS!\313\314
!\203&\315\202'\316\317{\260
!*\207" [default-directory filename time-before start-bytes end-bytes old-length-bytes filename-of-buffer-name buffer-name float-time owz-string-command "modify-buffer " " " int-to-string " true" " false" "\n" first-time start end] 15 (#$ . 148086)])
#@71 Commit the currently changed region (and set the state to
unchanged).
(defalias 'ocp-try-once-modify-changed-region #[nil "\306=\203\ned\307 T\310!\211S\211Z\306=\f	\nX\205P\310	!
\310\n!\211
ZZ
\311	\n
\f&\312,-\207" [ocp-buffer-bytes ocp-buffer-modified-start ocp-buffer-modified-end last-pos last-pos-bytes new-ocp-buffer-bytes 0 buffer-size position-bytes ocp-modify-region 1 growth-bytes first-time begin-bytes end-bytes old-length-bytes res] 8 (#$ . 148695)])
#@196 Same as ocp-try-once-modify-change-region, but in case of error,
try to reset tokenization. Actual arguments are ignored; the
modifications are tracked explicitely thanks to ocp-update-modified.
(defalias 'ocp-modify-changed-region #[nil "\300\301\302\217\207" [e (ocp-try-once-modify-changed-region) ((error (byte-code "\301\302\"\210\301\303!\210\304 \210\300\305\306\217\207" [e message "Error during tokenization: %s" "Trying to reset tokenization" reset-tokenization (ocp-try-once-modify-changed-region) ((error (message "Error again: %s\nAbort" e) nil))] 3)))] 3 (#$ . 149205)])
#@67 Commit any pending modifications and re-fontify the modified part
(defalias 'typerex-fontify-changed-region #[(begin end &optional verbose) "\301 \210\302\303\304 P!\305\306\307\217)\207" [command ocp-modify-changed-region owz-string-command "fontify-buffer " buffer-name e (byte-code "\301\302!!\207" [command eval read] 3) ((error (message "Error during fontification: %s" e)))] 3 (#$ . 149797)])
(defalias 'ocp-pre-cache-buffer #[(buffer) "\301\302\303\304$\207" [buffer run-with-idle-timer 0 nil #[(buffer) "\301\302P!\207" [buffer owz-string-command "pre-cache-buffer "] 3]] 5])
(byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\207" [add-hook typerex-mode-hook #[nil "\203	\305\230\203\306\307\310\311#\203\312\313!\210\202\314\315!\210\316 \205\\\203,	\317\235\2030\n\203>\320\321\322\310\311$\210\320\323\324\310\311$\210\325\303!\210\203N	\326\235\204N\327\n\205\\\f\205\\\320\323\330\311\211$\207" [ocp-syntax-coloring ocp-theme ocp-auto-complete font-lock-fontify-region-function ocp-pre-cache "caml" require caml-font nil t eval (caml-font-set-font-lock) message "caml-font not found" is-ocaml-buffer ("tuareg" "caml") add-hook after-change-functions ocp-update-modified find-file-hook reset-tokenization make-local-variable ("tuareg" "caml") typerex-fontify-changed-region #[nil "\300\301 !\207" [ocp-pre-cache-buffer buffer-name] 2]] 5] ad-add-advice flymake-get-file-name-mode-and-masks (ocp-flymake-fix nil t (advice lambda nil (condition-case nil ad-do-it (error nil)))) around nil ad-activate] 5)
#@45 represents an error when reading a callback
(defconst callback-read-error "CALLBACK_READ_ERROR" (#$ . 151362))
#@49 represents an error when executing the callback
(defconst error-in-callback "ERROR_IN_CALLBACK" (#$ . 151479))
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\306\304\310#\207" [put owz-failure error-conditions (error owz-failure) error-message "OCP Wizard command failed" owz-error (error owz-error) "OCP Wizard unexpected error"] 4)
(defalias 'owz-string-command #[(c) "\302!\211G\303Y\203 	\304\303O\305\230\203 \306\307	\303\310O\310B\"\202=	G\311Y\203<	\304\311O\312\230\203<\306\313	\311\310O\310B\"\202=	)\207" [c res ocp-rpc-string-command 6 0 "Error\n" signal owz-error nil 7 "Failed\n" owz-failure] 6])
(defalias 'checked-string-command #[(c) "\300\301\302\217\207" [cond (owz-string-command c) ((owz-failure (byte-code "\302\303\211A@)\"\210\304\207" [cond x message "Command failed: %s" nil] 4)) (owz-error (byte-code "\302\303\211A@)\"\210\304\207" [cond x message "%s" nil] 4)))] 3])
(defalias 'ocp-rpc-process-callback #[(connection-buffer) "\300\301\302\217\207" [nil (byte-code "\302!\303\304\305\217)\207" [connection-buffer callback read e (byte-code "\303\304\305\217	\204
\202\303\n\306\307Q)\207" [res quit-flag error-in-callback nil (byte-code "\302\303\304	!!)\207" [inhibit-quit callback nil prin1-to-string eval] 3) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) "\n" "Quit"] 3) ((error (byte-code "\302\303	!Q\207" [error-in-callback e "\n" prin1-to-string] 4)))] 3) ((error callback-read-error))] 3])
#@39 port number for the ocp-wizard server
(defvar typerex-server-port 0 (#$ . 152997))
#@62 command to run the TypeRex server ; may be any shell command
(custom-declare-variable 'ocp-server-command '"ocp-wizard" '(#$ . 153086) :group 'typerex-misc :type '(string))
#@42 whether TypeRex should run in debug mode
(custom-declare-variable 'ocp-debug 'nil '(#$ . 153265) :group 'typerex-misc :type '(string))
#@16 fail-fast mode
(custom-declare-variable 'ocp-dont-catch-errors 'nil '(#$ . 153406) :group 'typerex-misc :type '(boolean))
#@31 a command name to be profiled
(custom-declare-variable 'ocp-profile 'nil '(#$ . 153534) :group 'typerex-misc :type '(string))
#@31 the ocp-wizard server process
(defvar ocp-wizard-server-process nil (#$ . 153666))
#@30 version of ocp-wizard server
(defvar typerex-server-version nil (#$ . 153755))
(defalias 'ocp-config #[nil "\303\304\305!!\306\307\"A\306\310\"A)\207" [config typerex-server-version typerex-library-path read checked-string-command "version" assoc version ocamllib] 3])
#@57 (Re-)Start the TypeRex server, killing any existing one
(defalias 'ocp-restart-server #[nil "\203\306!\307=\203\310!\210\311\312\313 \"\210\314 \315\316	\"\210\315\317\n\"\210\203.\320\321Q\202/\322\n\f\323=\203:\324\202G\f\325=\203D\322\202G\326\fP
\203O\327\202P\322/\203\\\330/P\202]\3220\325=\204k0\331\235\203o\322\202s\3320P\333\334\335	!\260	1\315\3361\"\210\337\340\3411#)\342\325\"\210\315\343!\210\344\2112\345W\203\2613\325=\203\261\346\347!\2102\350\\\2112\202\2273\325=\203\276\315\351!\202\340\315\352!\210\315\353!\210\354 \21045\230\203\331\315\3554\"\202\340\315\35654#)\207" [ocp-wizard-server-process typerex-server-port ocp-server-command typerex-library-path ocp-debug ocp-dont-catch-errors process-status run kill-process mapc #[(b) "rq\210\301 )\207" [b reset-tokenization] 1] buffer-list ocp-rpc-start-server message "Listening on port %d" "Starting TypeRex server '%s'" "OCAMLLIB=" " " "" t " -debug all" nil " -debug " " -dont-catch-errors" " -profile " ("tuareg" "caml") " -coloring-theme " " -backtrace" " emacs-server " int-to-string "Running: %s" start-process-shell-command "typerex-server" "*typerex-server-stdout-stderr*" set-process-query-on-exit-flag "Waiting for TypeRex server to connect" 0 1.5 sleep-for 0.01 0.01 "Timeout while waiting for TypeRex server!!!" "Connection established with TypeRex server" "Checking version" ocp-config "TypeRex-%s started" "Warning! TypeRex server version mismatch: %s <> %s" ocp-profile ocp-theme line waited-time ocp-rpc-connection typerex-version typerex-server-version] 11 (#$ . 154036) nil])
#@68 If set, simultaneously specifies a set of keys for auto-completion
(custom-declare-variable 'auto-complete-keys 'nil '(#$ . 155661) :group 'typerex-auto-complete :type '(symbol))
(require 'auto-complete-config nil t)
#@57 the point at which completion data is available, if any
(defvar last-ocp-completion-point nil (#$ . 155884))
(make-variable-buffer-local 'last-ocp-completion-point)
#@48 the data for the last completion point, if any
(defvar last-ocp-completion-data nil (#$ . 156055))
(make-variable-buffer-local 'last-ocp-completion-data)
#@93 Flush the completion data. This function is called by the
modification hook in tokenize.el.
(defalias 'discard-ocp-completion-data #[nil "\302\211\211\207" [last-ocp-completion-point last-ocp-completion-data nil] 3 (#$ . 156215)])
(defalias 'compute-ocp-completion-data #[nil "\302`!S\303\304\305 \306\307!R!\310	!*\207" [pos result position-bytes owz-string-command "completion " buffer-name " " int-to-string read] 7])
(defalias 'get-ocp-completion-data #[nil "\302 \210`=\203	\207`\303 \211\207" [last-ocp-completion-point last-ocp-completion-data ocp-modify-changed-region compute-ocp-completion-data] 3])
(defalias 'ocp-prefix #[nil "\300\301 @!\207" [eval get-ocp-completion-data] 2])
(defalias 'ocp-candidates #[nil "\301 \211A@)\207" [x get-ocp-completion-data] 2])
(defalias 'ocp-candidates-names #[nil "\301 \302\303\")\207" [candidates ocp-candidates mapcar car] 4])
(defalias 'ocp-ac-documentation #[(candidate) "\301\302\303 \304R!\207" [candidate owz-string-command "completion-doc " buffer-name " "] 6])
#@150 configuration using backquote to complete longest common
  prefix, backslash to accept current candidate, and C-n, C-p to
  cycle between candidates
(defalias 'ac-keys-backquote-backslash #[nil "\302\303\304#\210\302\305 \303\306#\210\302\305 \307\310#\210\302	\311\312#\210\302	\313\314#\210\302	\315\316#\210\302	\317\306#\210\302	\320\306#\210\302	\321\306#\210\302	\322\306#\207" [ac-mode-map ac-completing-map define-key "`" auto-complete current-global-map nil [67108960] #[nil "\300c\207" ["`"] 1 nil nil] "\\" ac-complete "" ac-next "" ac-previous "
" "	" [up] [down]] 4 (#$ . 157255)])
#@135 configuration using ² to complete longest common prefix, $
  to accept current candidate, and C-n, C-p to cycle between
  candidates
(defalias 'ac-keys-two-dollar #[nil "\302\303\304#\210\302\305 \303\306#\210\302	\307\310#\210\302	\311\312#\210\302	\313\314#\210\302	\315\306#\210\302	\316\306#\210\302	\317\306#\210\302	\320\306#\207" [ac-mode-map ac-completing-map define-key "²" auto-complete current-global-map nil "$" ac-complete "" ac-next "" ac-previous "
" "	" [up] [down]] 4 (#$ . 157860)])
#@78 configuration using standard keys (RET - TAB), but with C-TAB
as trigger key
(defalias 'ac-keys-default-start-with-c-tab #[nil "\300\301!\207" [ac-set-trigger-key "<C-tab>"] 2 (#$ . 158372)])
(byte-code "\2030\303\304!\210\305	B\306\305!\204\307\305\310\"\210\311\312\313\"\210\314\315\316\317#\210\320\321\322\"\210\n\2030\314\323\n\"\210\324 \207" [ocp-auto-complete current-load-list auto-complete-keys require auto-complete-config ac-source-ocp-wizard default-boundp set-default ((candidates . ocp-candidates-names) (prefix . ocp-prefix) (document . ocp-ac-documentation)) defalias ac-complete-ocp-wizard #[nil "\300\301!\207" [auto-complete (ac-source-ocp-wizard)] 2 nil nil] add-hook typerex-mode-hook #[nil "\301\302 \207" [ac-sources (ac-source-ocp-wizard) auto-complete-mode] 1] t add-to-list ac-modes typerex-mode auto-complete-mode-hook ocp-restart-server] 4)
#@58 mouse event to trigger the contextual menu (default nil)
(custom-declare-variable 'ocp-menu-trigger 'nil '(#$ . 159256) :group 'typerex-misc)
#@59 key combination to trigger the command menu (default nil)
(custom-declare-variable 'ocp-prefix-key '[(control o)] '(#$ . 159404) :group 'typerex-misc)
#@59 Show all definitions and references for the current ident
(defalias 'ocp-wrap-grep #[(grep) "\306!\211\205X\307	!\211@	\211A@)\310	A\211A@)!\310	AA\211A@)!\311 \312\313!\210\314\315!\210\316\n!\210\fc\210\317!\210\320\321
\"\210q\210\320\322\".)\207" [grep res root x contents overlays checked-string-command read eval buffer-name "*ocp-wizard-grep*" set-cleared-buffer compilation-minor-mode 1 cd display-buffer highlight-regions t nil local-overlays buffer grep-buffer] 4 (#$ . 159561) nil])
#@59 Show all definitions and references for the current ident
(defalias 'ocp-grep #[nil "\300\301!\207" [ocp-wrap-grep "grep"] 2 (#$ . 160086) nil])
#@61 Grep the toplevel module defined by the current source file
(defalias 'ocp-grep-toplevel #[nil "\300\301!\207" [ocp-wrap-grep "grep-toplevel"] 2 (#$ . 160237) nil])
#@42 Register the commands as a keyboard menu
(defalias 'ocp-wizard-menu-plugin #[nil "\306\302!\204
\307\302\310\311!\"\210\306\304!\204\307\304\310\311!\"\210\312	\n#\210\203*\312\f#\210\306\305!\2047\307\305\310\313!\"\210\312
\314\315#\210\312
\316\317#\210\312\n\320\321#\210\312\n\322\323#\210\312\n\324\325#\210\312\n\326\327
B#\210\312\n\330\331#\210\312\n\332\333#\210\312\n\334\335#\210\312\n\336\337#\210\312\n\340\341#\210\312\f\342\343#\210\312\f\344\345#\210\312\f\346\347#\210\312\f\350\351#\210\312\f\352\353#\210\312\f\354\355#\210\312\f\356\357#\210\312\f\360\361#\210\312\f\362\363#\210\312\f\364\365#\207" [typerex-mode-map ocp-prefix-key ocp-prefix ocp-menu-trigger ocp-prefix-mouse ocp-prefix-top default-boundp set-default make-sparse-keymap "OCP" define-key "Toplevel" [(r)] ("Rename" . ocp-rename-toplevel) [(g)] ("Grep" . ocp-grep-toplevel) [(u)] ("Undo (global)" . ocp-undo) [(q)] ("Qualify" . ocp-eliminate-open) [(p)] ("Prune" . ocp-prune-lids) [(t)] "Toplevel-(Rename/Grep)" [(r)] ("Rename" . ocp-rename) [(g)] ("Grep" . ocp-grep) [(a)] ("Alternate definitions" . ocp-cycle-definitions) [(d)] ("Definition" . ocp-goto-definition) [(c)] ("Comment" . ocp-comment-definition) [(u)] ("Undo (global)" . ocp-undo) [(q)] ("Qualify" . ocp-eliminate-open) [(p)] ("Prune" . ocp-prune-lids) [(x)] ("Toplevel Rename" . ocp-rename-toplevel) [(y)] ("Toplevel Grep" . ocp-grep-toplevel) [(r)] ("Rename" . ocp-rename) [(g)] ("Grep" . ocp-grep) [(a)] ("Alternate definitions" . ocp-cycle-definitions) [(d)] ("Definition" . ocp-goto-definition) [(c)] ("Comment" . ocp-comment-definition)] 5 (#$ . 160408)])
(defalias 'ocp-action-item #[(c) "\302\211A@)@\303\304@!$\207" [c x vector :help documentation] 7])
(defalias 'typerex-build-menu #[nil "\306\301\307\310#\210\311\301!\204\312\301\313\"\210\314\301C\310\315\316\317\320\321\"\322\323\324\325\326\322\327\330\331\322\332\333\334\335\336\322\337\320\340!\341BB\257#$\210\342	!\210\343 \210\n\203H\344\345\346\"\207\347\350!\205`\344\351\352\"\210\353\304!\210\350\354\"A\313\211\207" [typerex-mode-map typerex-mode-menu typerex-with-xemacs typerex-definitions-menu typerex-definitions-keymaps typerex-definitions-menu-last-buffer put variable-documentation "TypeRex Mode Menu." default-boundp set-default nil easy-menu-do-define append ("TypeRex") mapcar ocp-action-item ((ocp-grep-toplevel "Toplevel Grep") (ocp-rename-toplevel "Toplevel Rename") (ocp-comment-definition "Comment") (ocp-goto-definition "Definition") (ocp-cycle-definitions "Alternate definitions") (ocp-grep "Grep") (ocp-rename "Rename") (ocp-prune-lids "Prune") (ocp-eliminate-open "Qualify") (ocp-undo "Undo (global)")) "---" ["Show type at point" caml-types-show-type typerex-with-caml-mode-p] ["Help for identifier" caml-help typerex-with-caml-mode-p] ["Show fully qualified ident at point" caml-types-show-ident typerex-with-caml-mode-p] ["Switch .ml/.mli" typerex-find-alternate-file t] ["Compile..." compile t] ["On-the-fly compilation" flymake-mode :style toggle :selected flymake-mode :help "Turn on/off on-the-fly compilation with ocamlbuild" :visible ocp-flymake-available] ("Interactive Mode" ["Run Caml Toplevel" typerex-run-caml t] ["Interrupt Caml Toplevel" typerex-interrupt-caml :active (comint-check-proc typerex-interactive-buffer-name)] ["Kill Caml Toplevel" typerex-kill-caml :active (comint-check-proc typerex-interactive-buffer-name)] ["Evaluate Region" typerex-eval-region :active (if (fboundp 'region-active-p) (region-active-p) mark-active)] ["Evaluate Phrase" typerex-eval-phrase t] ["Evaluate Buffer" typerex-eval-buffer t]) ("Caml Forms" ["try .. with .." typerex-insert-try-form t] ["match .. with .." typerex-insert-match-form t] ["let .. in .." typerex-insert-let-form t] ["if .. then .. else .." typerex-insert-if-form t] ["while .. do .. done" typerex-insert-while-form t] ["for .. do .. done" typerex-insert-for-form t] ["begin .. end" typerex-insert-begin-form t]) ("Definitions" ["Scan..." typerex-list-definitions t]) ["Add path for documentation" ocaml-add-path typerex-with-caml-mode-p] ["Open module for documentation" ocaml-open-module typerex-with-caml-mode-p] ["Close module for documentation" ocaml-close-module typerex-with-caml-mode-p] "More" (ocp-restart-server "Restart") (["Customize TypeRex Mode..." (customize-group 'ocp) t] ("TypeRex Options" ["Dummy" nil t]) ("TypeRex Interactive Options" ["Dummy" nil t]) ["TypeRex User Manual" typerex-browse-typerex-manual t] ["TypeRex Short Cuts" typerex-help t] ["OCaml Reference Manual..." typerex-browse-manual t] ["OCaml Library..." typerex-browse-library t] ["About" typerex-about t]) easy-menu-add typerex-update-options-menu add-hook activate-menubar-hook typerex-update-definitions-menu functionp easy-menu-create-menu menu-bar-update-hook typerex-with-emacs-update-definitions-menu make-local-variable "Definitions"] 26])
(ocp-wizard-menu-plugin)