pax_global_header00006660000000000000000000000064147211117520014513gustar00rootroot0000000000000052 comment=3322adaa5267b1188d14b15e85c802c21fe061cb utop-2.15.0/000077500000000000000000000000001472111175200125675ustar00rootroot00000000000000utop-2.15.0/.github/000077500000000000000000000000001472111175200141275ustar00rootroot00000000000000utop-2.15.0/.github/CODEOWNERS000066400000000000000000000000151472111175200155160ustar00rootroot00000000000000* @rgrinberg utop-2.15.0/.github/workflows/000077500000000000000000000000001472111175200161645ustar00rootroot00000000000000utop-2.15.0/.github/workflows/test-emacs.yml000066400000000000000000000013741472111175200207610ustar00rootroot00000000000000name: Test Emacs on: push: paths: ['**.el'] pull_request: paths: ['**.el'] jobs: test: runs-on: ubuntu-latest continue-on-error: ${{matrix.emacs_version == 'snapshot'}} strategy: matrix: emacs_version: ['26.3', '27.1', '28.1', 'snapshot'] steps: - name: Set up Emacs uses: purcell/setup-emacs@master with: version: ${{matrix.emacs_version}} - name: Install Eldev run: curl -fsSL https://raw.github.com/doublep/eldev/master/webinstall/github-eldev | sh - name: Check out the source code uses: actions/checkout@v2 - name: Test the project run: | cd src/top # eldev -p -dtT -C test --expect 100 eldev -dtT -C compile --warnings-as-errors utop-2.15.0/.gitignore000066400000000000000000000000701472111175200145540ustar00rootroot00000000000000_build/ .merlin *.install *.elc .*.swp .eldev /result* utop-2.15.0/.ocp-indent000066400000000000000000000000131472111175200146220ustar00rootroot00000000000000JaneStreet utop-2.15.0/CHANGES.md000066400000000000000000000320231472111175200141610ustar00rootroot000000000000002.15.0 (2024-11-25) ------------------ * Add support for OCaml 5.3 (#489, @anmonteiro, @anmonteiro, @Octachron) 2.14.0 (2024-02-26) ------------------- * Add support for OCaml 5.2 (#470, fixes #466, @leostera, @ManasJayanth, @huwaireb) 2.13.1 (2023-07-07) ------------------- * Fix unavailable expunge on Windows (#447, @jonahbeckford) 2.13.0 (2023-07-03) ------------------- * Fix behavior of utop -stdin (#434, fixes #433, @tuohy) * Handle bounds with `Zed.next_error` (#442, @tmattio) * Load files from XDG directories (the legacy paths still work). (#431, @Skyb0rg007) * Remove deprecated values `prompt_continue`, `prompt_comment`, `smart_accept`, `new_prompt_hooks`, `at_new_prompt` (#427, @emillon) * Require OCaml 4.11.0 or newer. (#444, @emillon) 2.12.1 (2023-04-21) ------------------- * Fix regression with unit qualification when a `Unit` module is in scope with no `()` constructor (#429, fixes #428, @emillon) * emacs: add completion-at-point implementation (#406, fixes #261, @j-shilling) 2.12.0 (2023-04-17) ------------------- * Add support for OCaml 5.1 (#421, @emillon) * Mark `prompt_continue`, `prompt_comment`, `smart_accept`, `new_prompt_hooks`, `at_new_prompt` as deprecated (they have been documented as such since 2012 and most of them are ignored) (#415, @emillon) * Qualify `()` constructor in generated expressions. (#418, fixes #417, @emillon) 2.11.0 (2023-01-05) ------------------- * Bump the compatibility to 4.08+ (#393 @emillon) * Load `@toplevel_printer` annotated printers for functors (#378 @metavinek) * Do not display a backtrace when exiting normally (#399 #398 @emillon) 2.10.0 (2022-10-06) ------------------ * Use dependencies compatible with OCaml 5: - Use zed 3.2.0, based on uucp, uutf, and uuseg instead of camomile - Use logs.lwt instead of `lwt_logs` 2.9.2 (2022-06-15) ------------------ * Add support for OCaml 5.0 (#377 @dra27) 2.9.1 (2022-03-28) ------------------ * Add support for OCaml 5.0 (#371 @favonia) 2.9.0 (2021-12-09) ------------------ * Add support for OCaml 4.14 (#360 @kit-ty-kate) * Document options in utop(1) manpage (#364 #365 @lindig) 2.8.0 (2021-06-18) ------------------ * If the current working directory is the home directory, then do not load `.ocamlinit` (@hyphenrf @copy #338) * With OCaml 4.12.0 and later, the toplevel uses the toplevel state to exit with the right status code (#348 @octachron) * Fix color highlight for errors (#350 @chripell) * Add support for OCaml 4.13 (#353 @kit-ty-kate) Emacs mode fixes: * Company text-completion fixes (@leungbk #340) * `utop-query-arguments` always returns `(utop-arguments)` whether it sets the utop-command or not (@dansanduleac #347) * Fix completion returning bogus candidates (#352 @chripell @rgrinberg) 2.7.0 (2021-01-06) ------------------ * add support for OCaml 4.12 (@emillon, #339) 2.6.0 (2020-05-30) ------------------ * compatible with OCaml 4.11 (@kit-ty-kate, #322) * switch to the new parser exposed since 4.11 * Vi edit mode: register support 2.5.0 (2020-04-26) ------------------ ### Additions * add `#edit_mode_vi` and `#edit_mode_default` mode to set the editing mode(@kandu) * Backport the `#use_output` directive (@diml, #313) ### General * Load init file from ~/.config/utop/init.ml as per XDG conventions (@copy, #144) * Add OCaml 4.09 and 4.10 to the CI matrix (@kit-ty-kate, #310) * Add documentation for dune utop usage in emacs (@samarthkishor, #307) 2.4.3 (2019-12-31) ------------------ * add support for OCaml 4.10 2.4.2 (2019-09-18) ------------------ * Add support for OCaml 4.09.0 (@octachron @avsm, #299) 2.4.1 (2019-08-09) ------------------ ### General * Remove camlp4 remnants (@XVilka, #290) (@kandu, #293) * Allow to statically link utop (@diml, #285) (@hongchangwu, #286) ### Misc * Remove broken elisp (m-plamann, #292) * Add OCaml 4.08 build in Travis CI (XVilka, #291) 2.4.0 (2019-05-17) ------------------ ### General * Better support for wide and combined glyph (@kandu) * Added tips for simpe prompt without fancy features (Marshall Abrams, #279) * Correct quoting for Windows command shell (Dmitry Bely, #272) ### Additions * 4.08 compatibility (#284) * module `UTop`: add `get_load_path` and `set_load_path` to manage the include directories (#284) ### Breaking * module `UTop`: `val load_path : string list ref` is removed (#284) 2.3.0 (2019-01-31) ------------------ The new feature in this release is to automatically install printers marked with `[@@ocaml.toplevel_printer]` (#269 @diml). Adding this annotation to your libraries will remove the need to have a separate `top` package to install the printers. For example, in the [uri](https://github.com/mirage/ocaml-uri) library, the old printing function for `Uri.t` was: ``` val pp_hum : Format.formatter -> t -> unit ``` Just adding this annotation results in `Uri.t` values being automatically pretty printed in this version of utop. ``` val pp_hum : Format.formatter -> t -> unit [@@ocaml.toplevel_printer] ``` * Add cool screenshot to README (#259 @rizo) and update links (#257 @bobot) * Improve robustness by using more tail-recursive functions (#251 @gpetiot) * Remove deprecation warnings in newer compilers (#246 @ncihnegn) * Minimum OCaml version supported is now 4.03.0 (#254 @XVilka) * Publish API documentation online and add `doc:` entry to opam file (#270 @avsm) * Port build to dune from jbuilder (#268 @avsm) * Upgrade local opam metadata to opam 2.0 format (#268 @avsm) 2.2.0 (2018-07-15) ------------------ * 4.07.0 compatibility (#238, @hcarty) * Fix compatibility with latest tuareg-mode (#241, @Wilfred) * Do not expand include directories (#242, @sliquister) 2.1.0 (2018-02-28) ------------------ * Add support for company-mode based completion in utop.el (#233) 2.0.2 (2017-11-07) ------------------ * 4.06.0 compatibility (#221) 2.0.1 (2016-05-30) ------------------ * Fix: restore the installation of `utop.el` (#210, Louis Gesbert) 2.0.0 (2016-05-26) ------------------ * Add `-implicit-bindings` option to automatically bind expressions to names `_0`, `_1` and so on. For example, `3 + 4;;` becomes `let _0 = 3 + 4;;` (#161, #193, Fabian Hemmer) * Add tab completion for `#mod_use` (#181, Leonid Rozenberg) * Mention `#help` in `#utop_help` (#190, Fabian Hemmer) * Add `#utop_stash` and `#utop_save` to save the session to a file (#169, #199, Christopher Mcalpine and Fabian Hemmer) * Add support for reason in the emacs mode (#206, Andrea Richiardi) * Fix a bug where utop wouldn't apply ppx rewriters when running in emacs (Bug report: #192, fix: #202, Deokhwan Kim) * Refactor the use of hooks to support the various OCaml emacs mode (#201, Andrea Richiardi) * Drop support for camlp4/camlp5 * Drop support for OCaml <= 4.01 * Switch the build system to jbuilder * Resurect `UTop_main.interact` 1.19.3 (2016-08-15) ------------------- * fix compatibility with 4.04.0+beta1 1.19.2 (2016-04-25) ------------------- * Make ppx\_tools dependency optional 1.19.1 (2016-04-18) ------------------- * fix compatibility with 4.03.0+beta2 1.19 (2016-04-07) ----------------- * allow to configure the external editor with `UTop.set_external_editor` * add `UTop.set_margin_function` to allow users to set the margin for the toplevel outcome. It is 80 by default * better for quoted strings (`{|...|}`) * add a `#pwd` directive * experimental support for running utop in the middle of a program with `UTop_main.interact` * fix Async integration (automatic waiting of `_ Deferred.t` value). The new version is more robust against future change in Async * fix use of the non-existing `replace-in-string` function in the emacs mode (Syohei Yoshida) * fallback to Latin-1 for invalid UTF-8 sequences in the compiler output 1.18.2 (2016-03-02) ------------------- * fix compatibility with OCaml 4.03 1.18.1 (2015-11-03) ------------------- * fix compatibility with findlib 1.5.6 1.18 (2015-06-23) ----------------- * emace mode improvements (Mads Hartmann Jensen) - add `utop-minor-mode` to make integration with major modes cleaner - clean-up of the elisp code * add `UTop.end_and_accept_current_phrase` to avoid typing `;;` at the end of every phrases * fix compatibility with OCaml trunk 1.17 (2014-12-12) ----------------- * re-export `Config.load_path` as `UTop.load_path` (Peter Zotov) * enable utop-command to be buffer-local (Mads Hartmann Jensen) * fix 4.01 compatibility (Peter Zotov) 1.16 (2014-10-20) ----------------- * make camlp4 support optional * require OCaml 4.01.0 or newer * implement wrapper for -safe-string 1.15 (2014-08-30) ----------------- * fix compatibility with OCaml 4.02.0 1.14 (2014-07-05) ----------------- * fix compatibility with OCaml 4.00.1 and earlier 1.13 (2014-07-04) ----------------- * don't try to colorize the output when there is too much * add auto-completion for the `#ppx` directive * add support for -ppx, -dparsetree and -dsource * fix compatibility with OCaml 4.02 * update pa_optcomp * do not display the camlp4 welcome message 1.12 (2014-04-21) ----------------- * supports -require for scripts * support for React 1.0.0 * make utop.el compatible with melpa: http://melpa.milkbox.net 1.11 (2014-02-11) ----------------- * update the async hook following the renaming of `Async_core` to `Async_kernel` * fix tab completion not working on some emacs * complete `#load_rec` the same way as `#load` 1.10 (2013-12-10) ----------------- * add the `-require` command line argument to specify packages on the command line 1.9 (2013-11-26) ---------------- * automatically load all files in `$OCAML_TOPLEVEL_PATH/autoload` at startup. Can be disabled with `autoload: false` in `~/.utoprc` or `-no-autoload`. * fix #38: handle errors from custom camlp4 ast filters * fix #7: avoid a stack overflow in UTop_lexer 1.8 (2013-10-25) ---------------- * handle new syntax errors * extend `#typeof` to values and modules. Thanks to Thomas Refis for this feature 1.7 (2013-08-08) ---------------- * fix compilation with ocaml < 4.01 1.6 (2013-08-07) ---------------- * hide topfind messages by default * more predefined prompts available via `#utop_prompt_XXX` * fix a bug in `#require` when passing multiple packages * display errors in ~/.lambda-term-inputrc nicely * doc update * fix an issue when using first-class modules 1.5 (2013-04-28) ---------------- * when evaluating a region/buffer in emacs, evaluate all phrases instead of just the first one. Thanks to Matthias Andreas Benkard for this feature * change the default prompt from `#` to `$` to match the standard toplevel * add the option `UTop.show_box` to allow one to hide the completion bar * enhance the lwt/async hooks for automatically waiting on a thread/deferred. Hooks were not triggered when the type of the expression was a type alias 1.4 (2013-03-09) ---------------- * hide identifiers starting with `_`. This can be disabled with `UTop.set_hide_reserved false`. * automatically load camlp4 parsing (with original syntax) when trying to load a syntax extension * fix a small bug when using camlp4, causing an exception to be raised when pressing `Enter` in the middle of a comment 1.3 (2013-01-29) ---------------- * allow to automatically wait for ascync deferred values * added the `-short-paths` options for OCaml >= 4.01.0 (and make it the default) 1.2.1 (2012-07-31) ------------------ * fix: do not expunge `Toploop` * install a non-expunged version of utop: `utop-full` 1.2 (2012-07-30) ---------------- * ocaml 4.00 compatibility * prevent findlib from being initialized twice * better highlighting of errors * automatically insert `Lwt_main.run` for toplevel expressions of type `'a Lwt.t` * better camlp4 support * parse quotations and antiquotations to handle completion inside them * better support revised syntax * emacs mode improvements * various fixes * highlight errors * add a menu * add interactive list of findlib packages * packages can be pre-loaded via the file variable `utop-package-list` * better tuareg integration * typerex integration * allow to complete using the toplevel environment in a tuareg buffer * allow to change the utop command * use the same history as the terminal mode * follow output of ocaml 1.1 (2010-08-06) ---------------- * add completion on labels * add completion on methods * smarter completion on record fields * fix a bug in the lexer * improvement for the emacs mode: * now pressing Tab really complete input * when sending input from a tuareg buffer, the cursor follow the end of buffer in all utop windows * fix usage of threads * add help * add manual pages * show more information in the prompt: * show the current value of the macro counter * show the number of key pressed since the beginning of a macro when recording a macro * show intermediate key sequence * better support for light colors terminals * add colors for module name and directives * add `UTop.smart_accept` to send only lines terminating with a `;;` token * search for compiler libraries at configure time * add a script to install compiler libraries * fix compatibility with ocaml 3.13 utop-2.15.0/CODE_OF_CONDUCT.md000066400000000000000000000007041472111175200153670ustar00rootroot00000000000000# Code of Conduct This project has adopted the [OCaml Code of Conduct](https://github.com/ocaml/code-of-conduct/blob/main/CODE_OF_CONDUCT.md). # Enforcement This project follows the OCaml Code of Conduct [enforcement policy](https://github.com/ocaml/code-of-conduct/blob/main/CODE_OF_CONDUCT.md#enforcement). To report any violations, please contact: * Rudi Grinberg * Etienne Millon utop-2.15.0/CONTRIBUTING.md000066400000000000000000000021441472111175200150210ustar00rootroot00000000000000# Contributing Thanks for contributing to UTop! ## Setting up local switches UTop comes from a `dune-workspace.dev` file to test it across all supported versions. Run `make create-switches` to create all the required switches. Now you can run `dune` with the `--workspace dev-workspace.dev` flag to run the same command across all the workspaces. The `make all-supported-ocaml-versions` command will build the project with this setup. ## Compatibility Across Versions Some code will be different from one version of OCaml to the next. If you find some that does, please abstract it away using the `UTop_compat` module. For example, the `Load_path.get_paths ()` function has changed recently to return a record with shape `{ visible: string list; hidden: string list }`, but this function used to return a single `string list`. Defining this function using pre-processor macros allows us to give the same function two different bodies on different version of the language. ```ocaml let get_load_path () = #if OCAML_VERSION >= (5, 2, 0) Load_path.((get_paths ()).visible) #else Load_path.get_paths () #endif ``` utop-2.15.0/LICENSE000066400000000000000000000027561472111175200136060ustar00rootroot00000000000000Copyright (c) 2011, Jeremie Dimino All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. * Neither the name of Jeremie Dimino nor the names of his contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. utop-2.15.0/Makefile000066400000000000000000000025221472111175200142300ustar00rootroot00000000000000INSTALL_ARGS := $(if $(PREFIX),--prefix $(PREFIX),) .PHONY: all all: dune build .PHONY: install install: dune install $(INSTALL_ARGS) .PHONY: uninstall uninstall: dune uninstall $(INSTALL_ARGS) .PHONY: reinstall reinstall: $(MAKE) uninstall $(MAKE) install .PHONY: examples examples: dune build @examples .PHONY: test test: dune runtest .PHONY: all-supported-ocaml-versions all-supported-ocaml-versions: dune build --workspace dune-workspace.dev .PHONY: cinaps cinaps: cinaps -styler ocp-indent -i src/migrate_parsetree_versions.ml* cinaps -styler ocp-indent -i src/migrate_parsetree_40?_40?.ml* .PHONY: clean clean: rm -rf _build *.install find . -name .merlin -delete .PHONY: create-switches create-switches: opam switch create utop-412 4.12.0 opam switch create utop-413 4.13.1 opam switch create utop-414 4.14.1 opam switch create utop-500 5.0.0 opam switch create utop-510 5.1.0 opam switch create utop-520 5.2.0+trunk .PHONY: install-switches install-switches: opam install --switch utop-412 --deps-only --with-test -y . opam install --switch utop-413 --deps-only --with-test -y . opam install --switch utop-414 --deps-only --with-test -y . opam install --switch utop-500 --deps-only --with-test -y . opam install --switch utop-510 --deps-only --with-test -y . opam install --switch utop-520 --deps-only --with-test -y . utop-2.15.0/README.md000066400000000000000000000266071472111175200140610ustar00rootroot00000000000000[![OCaml-CI Build Status](https://img.shields.io/endpoint?url=https%3A%2F%2Fci.ocamllabs.io%2Fbadge%2Focaml-community%2Futop%2Fmaster&logo=ocaml&style=flat-square)](https://ci.ocamllabs.io/github/ocaml-community/utop) utop — a universal toplevel (i.e., REPL) for OCaml ================================================== utop is an improved toplevel (i.e., Read-Eval-Print Loop) for OCaml. It can run in a terminal or in Emacs. It supports line editing, history, real-time and context sensitive completion, colors, and more. It integrates with the Tuareg, caml, ReasonML and typerex modes in Emacs. ![Screenshot](screenshot.png) Installation via opam --------------------- The easiest and recommended way of installing utop is via [opam](https://opam.ocaml.org/): opam install utop If you want to build it manually, refer to the opam file which lists the dependencies. Installation from sources ------------------------- To build and install utop: make make install ### Documentation and manual pages _(optional)_ To build the documentation (currently broken): make doc It will then be installed by `make install`. ### Tests _(optional)_ To build and execute tests (currently broken): make test Usage ----- To use utop, simply run: utop utop displays a bar after the prompt which is used to show possible completions in real time. You can navigate in it using `M-left` and `M-right`, and select one completion using `M-down`. The `M` denotes the meta key, which is `Alt` on most systems. Customization ------------- ### Colors To add colors to utop, copy one of the files `utoprc-dark` or `utoprc-light` to `~/.config/utop/utoprc`. `utoprc-dark` is for terminals with dark colors (such as white on black) and `utoprc-light` is for terminals with light colors (such as black on white). ### Prompt You can customize the prompt of utop by setting the reference `UTop.prompt`. To turn off all colors and remove the line above the prompt that lists time, etc., add this to ~/.config/utop/init.ml: ```OCaml #utop_prompt_dummy;; ``` To turn off the line of boxes listing possible completions that appears under the prompt, add this to ~/.config/utop/init.ml: ```OCaml UTop.set_show_box false ``` ### Key bindings Key bindings in the terminal can be changed by writing a `~/.config/lambda-term-inputrc` file. For example: [read-line] C-left: complete-bar-prev C-right: complete-bar-next C-down: complete-bar If manual pages are correctly installed you can see a description of this file by executing: $ man 5 lambda-term-inputrc ### Vi edit mode You can turn on the vi edit mode by `#edit_mode_vi`. It currently supports three vi modes: normal, insert, visual mode, and you can get/set content with vim-like registers. This special edit mode is evolving rapidly; see the CHANGES of lambda-term for the rapidly changing information. ### UTop API UTop exposes several more settings through its API; see [documentation](http://ocaml-community.github.io/utop). Integration with Emacs ---------------------- ### Overview `utop.el` is a package that provides `utop` integration with Emacs. The package allows you to run `utop` inside Emacs and to evaluate code in it straight from your source buffers (with the help of `utop-minor-mode`). Those features are covered in more details in the ["Usage"](#usage-emacs) section. ### Requirements `utop.el` requires Emacs 26.1 or newer. You'll also have to install `utop` and make sure it's on Emacs's `exec-path`, so that it could be started from within Emacs. ### Main setup The recommended way to install `utop.el` is via Emacs's built-in package manager `package.el`. `utop.el` is available on the community-maintained [MELPA Stable](https://stable.melpa.org) and [MELPA](https://melpa.org) `package.el` repositories. If you're not using them already, please follow the setup instructions [here](https://melpa.org/#/getting-started). **Note:** Using MELPA Stable is recommended as it has the latest stable version. MELPA has a development snapshot for users who don't mind breakage but don't want to run `utop.el` from a git checkout. Once you've enabled MELPA (Stable), you can install `utop.el` using the following command: M-x package-install [RET] utop [RET] or if you'd rather keep it in your Emacs config: ```emacs-lisp (unless (package-installed-p 'utop) (package-refresh-contents) (package-install 'utop)) ``` `use-package` users can do something like this: ```emacs-lisp (use-package utop :ensure t) ``` If the installation doesn't work try refreshing the package list: M-x package-refresh-contents Alternatively, if you have installed utop via opam, you can add this to your `~/.emacs`: ```elisp ;; Add the opam lisp dir to the Emacs load path (add-to-list 'load-path (replace-regexp-in-string "\n" "/share/emacs/site-lisp" (shell-command-to-string "opam var prefix"))) ;; Automatically load utop.el (autoload 'utop "utop" "Toplevel for OCaml" t) ``` In any case, if you installed utop via opam you should add this to your `~/.emacs`: ```elisp ;; Use the opam installed utop (setq utop-command "opam exec -- utop -emacs") ``` If you use `dune` and want to launch `dune utop` in emacs, you should add this to your `~/.emacs`: ```elisp (setq utop-command "opam exec -- dune utop . -- -emacs") ``` This was tested with opam 2.1. For older versions of opam, you can copy&paste this to your `~/.emacs`: ```elisp ;; Setup environment variables using opam (dolist (var (car (read-from-string (shell-command-to-string "opam config env --sexp")))) (setenv (car var) (cadr var))) ;; Update the Emacs path (setq exec-path (append (parse-colon-path (getenv "PATH")) (list exec-directory))) ;; Update the Emacs load path (add-to-list 'load-path (expand-file-name "../../share/emacs/site-lisp" (getenv "OCAML_TOPLEVEL_PATH"))) ;; Automatically load utop.el (autoload 'utop "utop" "Toplevel for OCaml" t) ``` ### Usage You can start utop inside Emacs with: `M-x utop`. `utop.el` also ships with a minor mode that has the following key-bindings: | key-binding | function | Description | |-------------|---------------------|------------------------------| | C-c C-s | utop | Start a utop buffer | | C-x C-e | utop-eval-phrase | Evaluate the current phrase | | C-x C-r | utop-eval-region | Evaluate the selected region | | C-c C-b | utop-eval-buffer | Evaluate the current buffer | | C-c C-k | utop-kill | Kill a running utop process | | C-c C-z | utop-switch-to-repl | Switch to utop process | You can enable the minor mode using `M-x utop-minor-mode`, or you can have it enabled by default with the following configuration: ```elisp (autoload 'utop-minor-mode "utop" "Minor mode for utop" t) (add-hook 'tuareg-mode-hook 'utop-minor-mode) ``` If you plan to use utop with another major-mode than tuareg, replace `tuareg-mode-hook` by the appropriate hook. The utop minor mode will work out of the box with these modes: `tuareg-mode`, `caml-mode`, `reason-mode` and `typerex-mode`. For other modes you will need to set the following three variables: - `utop-skip-blank-and-comments` - `utop-skip-to-end-of-phrase` - `utop-discover-phrase` You can also complete text in a buffer using the environment of the toplevel. For that bind the function `utop-edit-complete` to the key you want. Common error ------------ If you get this error when running utop in a terminal or in Emacs this means that the environment variable `CAML_LD_LIBRARY_PATH` is not set correctly: Fatal error: cannot load shared library dlllwt-unix_stubs Reason: dlopen(dlllwt-unix_stubs.so, 138): image not found It should point to the directory `stublibs` inside your ocaml installation. Automatically installing toplevel printers ------------------------------------------ Utop will automatically install toplevel printers for custom types if their interface files are marked with an `[@@ocaml.toplevel_printer]` attribute. Adding this annotation to your libraries will remove the need to have a separate `top` package to install the printers. For example, in the [uri](https://github.com/mirage/ocaml-uri) library, the old printing function for `Uri.t` was: ``` val pp_hum : Format.formatter -> t -> unit ``` Just adding this annotation results in `Uri.t` values being automatically pretty printed in this version of utop. ``` val pp_hum : Format.formatter -> t -> unit [@@ocaml.toplevel_printer] ``` There should be no downsides to adding this attribute to your libraries, so we encourage community library maintainers to use this attribute to improve the out-of-the-box experience for users of their libraries within utop. Creating a custom utop-enabled toplevel --------------------------------------- ### With Dune The recommended way to build a custom utop toplevel is via [Dune][dune]. The entry point of the custom utop must call `UTop_main.main`. For instance, write the following `myutop.ml` file: ```ocaml let () = UTop_main.main () ``` and the following dune file: ```elisp (executable (name myutop) (link_flags -linkall) (libraries utop)) ``` then, to build the toplevel, run: ``` $ dune myutop.bc ``` Note the `-linkall` in the link flags. By default OCaml doesn't link unused modules. However for a toplevel you don't know in advance what the user is going to use so you must link everything. If you want to include more libraries in your custom utop, simply add them to the `(libraries ...)` field. Additionally, if you want to install this toplevel, add the two following fields to the executable stanza: ```elisp (public_name myutop) (modes byte) ``` The `(modes ...)` field is to tell dune to install the byte-code version of the executable, as currently native toplevels are not fully supported. [dune]: https://github.com/ocaml/dune ### Manually, with ocamlfind This section describe methods using `ocamlfind`. These are no longer tested, so there is no guarantee they still work. If you want to create a custom toplevel with utop instead of the classic one you need to link it with utop and its dependencies and call `UTop_main.main` in the last linked unit. You also need to pass the `-thread` switch when linking the toplevel. The easiest way to do that is by using `ocamlfind`: $ ocamlfind ocamlmktop -o myutop -thread -linkpkg -package utop myutop_main.cmo Where `myutop_main.ml` contains: ```ocaml let () = UTop_main.main () ``` You can also use the `ocamlc` sub-command instead of `ocamlmktop`. In this case you need to pass these three extra arguments: * `-linkall` to be sure all units are linked into the produced toplevel * `-package compiler-libs.toplevel` * `-predicates create_toploop` With the last option `ocamlfind` will generate a small ocaml unit, linked just before `myutop_main.cmo`, which will register at startup packages already linked in the toplevel so they are not loaded again by the `#require` directive. It does the same with the `ocamlmktop` sub-command. For example: $ ocamlfind ocamlc -o myutop -thread -linkpkg -linkall -predicates create_toploop \ -package compiler-libs.toplevel,utop myutop.cmo Note that if you are not using `ocamlfind`, you will need to do that yourself. You have to call `Topfind.don't_load` with the list of all packages linked with the toplevel. A full example using `ocamlbuild` is provided in the [examples/custom-utop](examples/custom-utop) directory. utop-2.15.0/dune000066400000000000000000000003711472111175200134460ustar00rootroot00000000000000(install (section share) (files utoprc-dark utoprc-light)) (install (section share_root) (files (src/top/utop.el as emacs/site-lisp/utop.el))) (alias (name examples) (deps examples/custom-utop/myutop.bc examples/interact/test_program.bc)) utop-2.15.0/dune-project000066400000000000000000000015341472111175200151140ustar00rootroot00000000000000(lang dune 2.7) (formatting (enabled_for dune)) (name utop) (generate_opam_files) (source (github ocaml-community/utop)) (documentation https://ocaml-community.github.io/utop/) (license BSD-3-Clause) (maintainers jeremie@dimino.org) (authors "Jérémie Dimino") (package (name utop) (synopsis "Universal toplevel for OCaml") (description "utop is an improved toplevel (i.e., Read-Eval-Print Loop or REPL) for OCaml. It can run in a terminal or in Emacs. It supports line edition, history, real-time and context sensitive completion, colors, and more. It integrates with the Tuareg mode in Emacs.") (depends (ocaml (>= 4.11.0)) base-unix base-threads (ocamlfind (>= 1.7.2)) (lambda-term (and (>= 3.1.0) (< 4.0))) logs lwt lwt_react (zed (>= 3.2.0)) (react (>= 1.0.0)) (cppo (>= 1.1.2)) (alcotest :with-test) (xdg (>= 3.9.0)))) utop-2.15.0/dune-workspace.dev000066400000000000000000000004051472111175200162150ustar00rootroot00000000000000(lang dune 1.0) (context (opam (switch utop-411))) (context (opam (switch utop-412))) (context (opam (switch utop-413))) (context (opam (switch utop-414))) (context (opam (switch utop-500))) (context (opam (switch utop-510))) (context (opam (switch utop-520))) utop-2.15.0/examples/000077500000000000000000000000001472111175200144055ustar00rootroot00000000000000utop-2.15.0/examples/custom-utop/000077500000000000000000000000001472111175200167045ustar00rootroot00000000000000utop-2.15.0/examples/custom-utop/README.md000066400000000000000000000001211472111175200201550ustar00rootroot00000000000000To build the custom toplevel in this directory, run: $ dune build myutop.bc utop-2.15.0/examples/custom-utop/dune000066400000000000000000000001231472111175200175560ustar00rootroot00000000000000(executable (name myutop) (modes byte) (link_flags -linkall) (libraries utop)) utop-2.15.0/examples/custom-utop/myutop.ml000066400000000000000000000001001472111175200205620ustar00rootroot00000000000000 (* Start utop. It never returns. *) let () = UTop_main.main () utop-2.15.0/examples/interact/000077500000000000000000000000001472111175200162165ustar00rootroot00000000000000utop-2.15.0/examples/interact/dune000066400000000000000000000001311472111175200170670ustar00rootroot00000000000000(executable (name test_program) (modes byte) (link_flags -linkall) (libraries utop)) utop-2.15.0/examples/interact/test_program.ml000066400000000000000000000003471472111175200212620ustar00rootroot00000000000000type t = A of int | B of string let some_value = [A 42; B "Hello, world"] let () = print_endline "Starting utop now!"; UTop_main.interact () ~unit:__MODULE__ ~loc:__POS__ ~values:[V ("some_value", some_value)] ;; utop-2.15.0/examples/interact/test_program.mli000066400000000000000000000000141472111175200214220ustar00rootroot00000000000000(* empty *) utop-2.15.0/man/000077500000000000000000000000001472111175200133425ustar00rootroot00000000000000utop-2.15.0/man/dune000066400000000000000000000000761472111175200142230ustar00rootroot00000000000000(install (section man) (files utop.1 utop-full.1 utoprc.5)) utop-2.15.0/man/utop-full.1000066400000000000000000000011211472111175200153460ustar00rootroot00000000000000\" utop.1 \" ------ \" Copyright : (c) 2011, Jeremie Dimino \" Licence : BSD3 \" \" This file is a part of utop. .TH UTOP-FULL 1 "August 2011" .SH NAME utop-full \- Universal toplevel for OCaml .SH SYNOPSIS .B utop [ .I options ] [ .I object-files ] [ .I script-file ] .SH DESCRIPTION .B utop-full is the same as .B utop (1) except that compiler libraries are available. .SH OPTIONS Same as .BR utop (1). .SH FILES Same as .BR utop (1). .SH AUTHOR Jérémie Dimino .SH "SEE ALSO" .BR utoprc (5), .BR lambda-term-inputrc (5), .BR ocaml (1). utop-2.15.0/man/utop.1000066400000000000000000000143601472111175200144170ustar00rootroot00000000000000\" utop.1 \" ------ \" Copyright : (c) 2011, Jeremie Dimino \" Licence : BSD3 \" \" This file is a part of utop. .TH UTOP 1 .SH NAME utop \- Universal toplevel for OCaml .SH SYNOPSIS .B utop [ .I options ] [ .I object-files ] [ .I script-file ] .SH DESCRIPTION .B utop is an enhanced toplevel for OCaml with many features, including context sensitive completion. When you start .B utop what you see is the prompt followed by a bar containing words. This is the completion bar: it contains the possible completion and is updated as you type. The highlighted word in the completion bar is the selected word. You can navigate using the keys \fBM-Left\fR and \fBM-Right\fR and select one completion using \fBM-down\fR. Here \fBM\fR represents the meta key, which is \fBAlt\fR on most systems. You can configure these bindings in the file .I ~/.config/lambda-term-inputrc - see .BR lambda-term-inputrc (5) for details. \fButop\fR supports completion on: * directives and directive arguments * identifiers * record fields * variants * function labels * object methods Colors are by default configured for terminals with dark colors, such as white on black, so the prompt may look too bright on light-colored terminals. You can change that by setting the color profile of utop. To do that, type: UTop.set_profile UTop.Light;; You can then add this line to your .I ~/.config/utop/init.ml file. To turn off \fButop\fR's advanced prompt features, add the following to \fIinit.ml\fR to turn off respectively (a) colors and the upper information line, and (b) the lower boxed list of possible completions: #utop_prompt_dummy;; UTop.set_show_box false You can enable basic syntax highlighting in utop by writing a .I ~/.utoprc file. See .BR utoprc (5) for that. Vi edit mode is enabled by the command #edit_mode_vi It currently supports three vi modes: normal, insert, visual mode, and you can get/set content with vim-like registers. .I utop.el is a package that provides .B utop integration with Emacs. The package allows you to run .B utop inside Emacs and to evaluate code in it straight from your source buffers (with the help of \fIutop-minor-mode\fR). The recommended way to install .I utop.el is via Emacs's built-in package manager \fBpackage.el\fR. More detailed installation and configuration instructions may be found on the project's code repository at \fIhttps://github.com/ocaml-community/utop\fR. You can start \fButop\fR inside Emacs with \fBM-x utop\fR. The default install also has a minor mode with the following key bindings: \fBC-c C-s\fR Start a utop buffer (\fIutop\fR) \fBC-x C-e\fR Evaluate the current phrase (\fIutop-eval-phrase\fR) \fBC-x C-r\fR Evaluate the selected region (\fIutop-eval-region\fR) \fBC-c C-b\fR Evaluate the current buffer (\fIutop-eval-buffer\fR) \fBC-c C-k\fR Kill a running utop process (\fItop-kill\fR) \fBC-c C-z\fR Switch to utop process (\fIutop-switch-to-repl\fR) then you can run \fButop\fR by pressing \fBM-x\fR and typing "utop". \fButop\fR supports completion in Emacs mode. Just press \fBTab\fR to complete a word. You can also integrate it with the tuareg, caml or typerex mode. For that add the following lines to your .I ~/.emacs file: (autoload 'utop-minor-mode "utop" "Minor mode for utop" t) (add-hook 'tuareg-mode-hook 'utop-minor-mode) .SH OPTIONS See .B utop --help for the full list of available options. There is considerable overlap with options available for .BR ocaml (1). A commonly used option is \fB-require\fI package\fR to load \fIpackage\fR into the execution environment. It is equivalent to using \fb#require\fR from inside .BR utop (1). .PP .TP .BI -absname Show absolute filenames in error message. .TP .BI -I " dir" Add \fIdir\fR to the list of include directories. .TP .BI -init " file" Load \fIfile\fR instead of the default init file. .TP .BI -labels Use commuting label mode. .TP .BI -no-app-funct Deactivate applicative functors. .TP .BI -noassert Do not compile assertion checks. .TP .BI -nolabels Ignore non-optional labels in types. .TP .BI -nostdlib Do not add the default directory to the list of include directories. .TP .BI -ppx " command" Pipe abstract syntax trees through the preprocessor \fIcommand\fR. .TP .BI -principal Check principality of type inference. .TP .BI -safe-string Make strings immutable. .TP .BI -short-paths Shorten paths in types (the default). .TP .BI -no-short-paths Do not shorten paths in types. .TP .BI -rectypes Allow arbitrary recursive types. .TP .BI -stdin Read script from standard input. .TP .BI -strict-sequence Left-hand part of a sequence must have type unit. .TP .BI -unsafe Do not compile bounds checking on array and string access. .TP .BI -version Print version and exit. .TP .BI -vnum Print version number and exit. .TP .BI -w " list" Enable or disable warnings according to \fIlist\fR. .TP .BI -warn-error " list" Enable or disable error status for warnings according to \fIlist\fR. See option \fB-w\fR for the syntax of \fIlist\fR. Default setting is \fB-a+31\fR. .TP .BI -warn-help Show description of warning numbers. .TP .BI -emacs Run in emacs mode. .TP .BI -hide-reserved Hide identifiers starting with a '_' (the default). .TP .BI -show-reserved Show identifiers starting with a '_'. .TP .BI -no-implicit-bindings Don't add implicit bindings for expressions (the default). .TP .BI -implicit-bindings Add implicit bindings: \fIexpr\fR;; -> let _0 = \fIexpr\fR;; .TP .BI -no-autoload Disable autoloading of files in .I $OCAML_TOPLEVEL_PATH/autoload. .TP .BI -require " package" Load this package. .TP .BI -dparsetree Dump OCaml AST after rewriting. .TP .BI -dsource Dump OCaml source after rewriting. .TP .BI -help Display this list of options. .TP .BI --help Display this list of options. .SH FILES .I ~/.config/utop/init.ml .RS The initialization file of the toplevel. .RE .I ~/.ocamlinit .RS The alternative initialization file of the toplevel. .RE .I ~/.utoprc .RS The configuration file for utop. See .BR utoprc (5). .RE .I ~/.config/lambda-term-inputrc .RS The file containing key bindings. See .BR lambda-term-inputrc (5). .SH AUTHOR Jérémie Dimino .SH "SEE ALSO" .BR utoprc (5), .BR lambda-term-inputrc (5), .BR ocaml (1). utop-2.15.0/man/utoprc.5000066400000000000000000000060651472111175200147530ustar00rootroot00000000000000\" utoprc.5 \" -------- \" Copyright : (c) 2011, Jeremie Dimino \" Licence : BSD3 \" \" This file is a part of utop. .TH UTOPRC 5 "August 2011" .SH NAME utoprc \- Configuration file of utop .SH SYNOPSIS .B ~/.utoprc .SH DESCRIPTION This manual page describes the format of the .I ~/.utoprc file. This is a text file which contains the configuration of utop. Comments start with a '!' and empty lines are ignored. Configuration lines are of the form: : .I may contain the '*' asterisk character. In that case any key which matches the pattern is given the value after the colon. The boolean key .I autoload can be set to .I false to disable the autoloading of files in .I $OCAML_TOPLEVEL_PATH/autoload at startup. The key .I external-editor can be set to a command line. It is used to edit the input when pressing C-x C-e. It defaults to the contents of the .I EDITOR environment variable. The key .I profile may have the value .I dark or .I light. This is the same as calling .I UTop.set_profile in .I ~/.config/utop/init.ml. The following style keys are used by utop: * identifier * module * comment * doc * constant * keyword * symbol * string * char * quotation * error * directive * parenthesis * blanks For each of these keys, the following sub-keys are used: * key.foreground * key.background * key.bold * key.underline * key.reverse * key.blink .I key.foreground and .I key.background are colors, and the others are booleans. Colors may be one of the standard terminal colors: * black * red * green * yellow * blue * magenta * cyan * white * light-black * light-red * light-green * light-yellow * light-blue * light-magenta * light-cyan * light-white or X11 colors, prefixed with "x-". For example: identifier.foreground: x-goldenrod Colors can also be given by their RGB components, written #RRGGBB. For example: identifier.foreground: #5fbf7f utop will choose the nearest color of the terminal when specifying an X11 color or a color given by its RGB components. If you are using gnome-terminal or konsole, you can enable 256 colors by setting the environment variable TERM to "xterm-256color". .SH FILES .I ~/.utoprc .SH EXAMPLE profile: dark .RS .RE identifier.foreground: none .RS .RE comment.foreground: x-chocolate1 .RS .RE doc.foreground: x-light-salmon .RS .RE constant.foreground: x-aquamarine .RS .RE keyword.foreground: x-cyan1 .RS .RE symbol.foreground: x-cyan1 .RS .RE string.foreground: x-light-salmon .RS .RE char.foreground: x-light-salmon .RS .RE quotation.foreground: x-purple .RS .RE error.foreground: x-red .RS .RE parenthesis.background: blue .SH AUTHOR Jérémie Dimino .SH "SEE ALSO" .BR utop (1). utop-2.15.0/screenshot.png000066400000000000000000013344551472111175200154710ustar00rootroot00000000000000PNG  IHDRp.gD )iCCPICC ProfileHWXS[H RK -R 6BH(!&;ZPQ*ZYlXÂ.lIs3gܙ Ql(U K#gLNLbP*pNlD )oDj'su.O8+dA|܅#@vY9"%Cpp}b'Deix1r9i0J\F9|6deeCjUwq3e$&6E)@ eߒ)*/,[Fv S! LXk_!qC9&rCl"̌{ XڣV/gGGg$1Ø-%)f 籆c6c<Ѷ\A|*ߓdĄ3#}hg1*V`fY01r!t[Mtdr0O./ P NJE9CDQCX#/3Xf7U3ܷ7N6E8D*Q  L@ 5dt h끿-A ݐeGE1 HF[y ڿXO;*o͕O! { GFOE5'CuF $CADk\=0ꈻü  33@8K>;Fuq/Ƶq=`#>plght$oE'Qd_Տ TlTG*}-RFi1ww菞r0֌.bX``'z;.#s|n -~=4j*n6Û#[,l 5rƎa8;]T++=Uf[ cldµCfr.HŹ .{h]`.+#p ĂD0֙bPm`' C4< upΕ.ABC.b##x#H$"H"DJE5Q~h(NCЙh]nB+h-z^G;їh0eL307EbIX*&`X VUc K_:N859L|/Y*ſh}-"L&f %݄sptDm%Db:q.q%q xN|L#H$[)& HII'I.G%e%#%G $%RR>JJϔjds9%!&"7u%ŋKI,lTSQQ*++(+OR(/Rޤ|PCOT IJRWQPOQoSh4 /-C[E=}TUapUԪtR%NWS-Q=zEGfTc-P+S;vSOR}E$ @ Rg41)IЗwѻ4,t"ZZfkiƴ-Yڙګi<`(ިGu3ZWSSs].C7P7Cwn}=\Fo,zzFk]8;~\-}"g z } 06y 4zb12g!Rƭ&&q&&5&M)nML{͌U1'77HXfQgRǒegYeyϊfc5Ӫ5:zu jl÷)bں lض!q#S1.׮Xac֍}5l\Ҹ}wϴeAaCCGGc5'SBzmo˙̹إڥ5ٵ[J w<\TPX $(-*79xnBHhڐ,U:qijИGa6aⰆp4|b{ˆHɊ\y?2jf&Mz=/93#f_XձwqMS+?$$'tN7yˉz$RR|)S6L<`ifO8]oz3TggN&$'$K`G+})^]yyRRSyKK=T:=$}[Ȍ= 5YJYYDŽ l"[Qs 3{šD2MR -R+/҇޹eg:<[}pv9+< m.>3ic eABӅKv- ^w1eq?-IXҰ`颥 @@\psm+Vl^[xȾh`%g_~U]Vo]C\#\scڽyŏׅ]X_݆./ٶQsSئfl(^//)/_Qa wKV߭ m]֎%;;sw>7*w.epOg+]++[]VIOv @}]횢ߓq(PaG̏-Ej:ۏMs줳B]8tL_ ^/z\<~DdkSӒgF*;>on{1EK*e߾Nz-~=f[ݷ{ލ}u?sgHXi`ࠈ-fˏT457{%@o)\}RŠ\\/1y P- @/@FtH$NX*U @`rH'+2A;PapVv/vH pHYs%%IR$iTXtXML:com.adobe.xmp 1198 1648 1 !͑-@IDATx $Gy5}LsJ3N8dq-,X-πk66`߂1eykyi6a 3chkȿ**;3+b*"?"!@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @`qYͤw\ !@ @1e|:2 : y&@?gT@ @ %R]D(t;Iwy/-B @ @gCIIǽ/c|O@ @ @`)XOsۥv<;x @ @ PL`m|,)>{TC^L{F@ @ @`~,9%ka}IP%+@ @ @bYObb?p?@ @ x3j1q]Lmj+-66z15}@ @ @9KqCa1bhcs=V< on3Nk/1 @ @ | , nogz8˟neՍ6?hB @ @h@7nNtclA m=Іrg-@ @ @ K6, Ym4OCY,TgR@ @ @Bm`,Tygړy`>yvw}g|blsC @ @hb6w}y[ڑ׾{.n`2_mzRΖt[{[ @ @Xm3a3_nhCQ浌浸GZB[m)@ @ @%P 띅^歜Bsdw'4 @ @ n$0_˜L;CwdЩ;W;c'}/@ @ B`1=d[;S~υL:p/ԱwNϲz!.F @ @ A`!7 :Qw'|zh׮/ׇ u髨W=Em  @ @@3k#ӗ2ka-۾-LJ q]');7]O7ӱvo@ @ 8 ,:vmUg/DevzW;|X'l/h mhC @ @K v|]_Q[:Z\qvEm,O @ @ F tzŇmG[9G]_#mkrxp>؎Zj{5\[.@ @ '}[h{j]_kI?pkG]X([뀭o>fڊ  @ @ 0;mBm~Q6Ϻʶ-zK|[;i|Yk^ϋ;7> @ @:!Ъf.lݱ2L[ڦTqZO5cYt'mv廽}:N@ @ @`1j_~kFJvZ7?^;VZ1RO5CjJwV @ @ A[ߌ}6ۙoN[UOZGݦov]VN_YA @ @h@;7ը]駙7ھ}|Q-,>V7jINꔍ֗壬l>*& @ @ !0[QF3i7ZWl[&ie{>:kDtH{btՃ @ @XYuFfbQG6TwZ߈m't;:\#VlG3BL[ @ @ ,ԃVmԶeztgzҶe_ M,ڝ @ @ zJږ/)nYoqvf_wwQ--և؝nwڵSvh++1I|;}Ob@ @ @`yhf|)7:;׈^Ǖ+(XwnĦn;tC;R?5FM7f @ @h|?oFC> cgVl̶^L{hb|67㻬Mz:ʵi:d=?gqf# @ @ ,?xߨZ-׳=>Wիؾ(IE6UwlĦn'cq:QLkԯ闉mC@ @ @@'7곬~",NۙʒYƝ.oXgzĝH .ݝlk+)*U՗*u+ꕫAs܈X܊hG-hDZ @ @ M[ҎFlӉ5NbM:.C4.*/*3etc⸬ئl˶bz(ݩ6귬~=VʳlU75^#5Uee>Bॼ^fmc-2@ @ @`qhF}կWTe͚Ip5UFNQe&OrPU}oTjYZ,],;f|)+*WTW~r5o۟-[<~xxxwl3!@ @ @b!3;33sĉz៾??k!:^SI'w&6Z؇zӺeYRz~'،26tʛ)S}ʁ-7}wn۶2w Xƍ΄~R:J @ @ НzTOsK/ǎZ~̽l'p\ٲzZИތ\/N\ѦA nj66㯌M=<2ݼ}7 \z92yro޴L  @ @n r𡟾]zFu/PQW'LyYՋCQbv+[o)=(Jn_3鴻,Ɉ nm=g7 Q @ @BЍA9zO;kwƙڕa'WNY|N:n&#η_컥tВm+_O<\V[n僧n=J}8  @ @ B`hhHx/_xᅿڼϽNWz"kTvy6|Zyn3it1%֐l{WOr˲mD5>5y3, @ @ @`iknYfݏ8FGyeTQ-  j_z:y퐛ݰ馛>yjc@ @ @K~'=Im{&Nփ,"i\}iJ{oDlv+TY)S͉vnE)˲'r 7<~ff@ @ @ǻCqϔuž=ǛY2ZtW,t˳FN6lmS[mY)뷞~Qy^Y#򲺪_7vRMӋ @ @ Aw{d}oL<=e,OW|z#eZ?űTFB=FY*K-NFmE#. @@9G2Ig}3嘡@ t}vϐm-[#?kYZ/O֌F4dJ҅ҥ ,y;e=LY 'S?Y&]f=,GzQݸYw?"۾O +3oC[VIf]s:SM(ؽr]oGʱоdyu ӾS@XtF_ßq$fe͆200 ="@ @vɳc5nhOԴ"Sjʒٔ5%ۉYmw;WO<,Kެ,;igw7}-_Vna5nOu=ѐecSd/SN ~9[LlX/##֗l$O y)Tһr~noC282,қq&dbL>vB.D^j9ud~Ӄ{@&73rrwdMɓSrӮm\*+W%GQ] l b@ @8}3\{tq1Mhx:VdylVV6kT7m:,ɲ6:VYv_tʲedJ:{z׆N~z'eȈ^>\6E򺩶}òw|\eW4\g#S~YlྼqCQؾY8|LzAʕTװ7|~'V5@}g;N̬;t}k;۾P3 d I9>u| =8$m_&g<*Y> uF?c  @Bygzu{JIӲt>K'OV$WV\u,dѺr 1z.,yZkҲFHQEٸ~PDVv \3{zZ\riҊmO>9YmTz7i ܻ*kGeI9GW4_>+_:tܾZ֭S內F` @@Swn&&&c{^<|q _+?W|/Ȩ<| |mY}`M5#@ @%Ϝ+O&Z[^c1Yϓ땕)W%Nz#+*+˒e鼶/-+zs6򎸎 _76"sk]MuX)wMo6Z%+.{N+~yqWive4OuLzםqsrt`mѾ=lܤm׳6qV }ʪ5r٦/$ @uĉ=7~ZЙ9bpy&r[|yY-ȑC2Zv}Y?j:<9x_^ߖNq&@ @)'Qt}Aދ6't! N=1e+**SY<>N.W&.7q= _&>qY>I7oԃmik^tƏP_]acf6)nWyWC}vQY>I760۫m|ClՇR@:K@ 5hoksy3z>ErEɱQ㾞~u.=t tɰ6ls8xmrQy"@ @r[Z5chl!],;]:+7ݲzON;eѬ,mHFoP䵸-+T6&6*D" UoaW}D}GϡWƢ˖ ǂM7f*LqJI}7ز<|E/986;2M6c/ oijZCNn/*'WMN9eͲZ-"ָ?Rٷvq_&Gusq_ā]*SS~#kfϵ),@oZ_@ @K@4_:ryy>d*ogHYGC Cto3 0w逸]`nyF:kC>&j+m:azY)3w(G_*=rȆsÏq7k[[JɶEH#+׮yԑI @@2m||\Og'qרY29'zk֬kX5 𰌬.}?N=rleާn4jwV<9tf}yucr4^oo{zXwH24Fq&ohX=Ev uu5%q:?3u}JP&M|C @ n!7 F47 YZb2,Fdy*nɗd6p;AҲ|Seuԭ? FE_jfoBP]^e(Η<|]%M7Ɇq`3 ;&ε|i*u&/ݷe؈;dO5ئš-ѻ+Q{>)í/$ @`u=vT&s?cGMψ]<9eٰa|/%7288((~%:!K<~9yeȨs_F]7~/}ǭSw\z.kt?[>HҾO>_HDMȌ?>qGM١ߕMz}_~FG3k/r[ @ #ϟ 8q*dd*O/+ϓ-oT.^ 8e / y:Ҷq>NMEe?uMn k\w-Q/>8+rP-33{vY5z4_qAJW7ՑA|^Mu6\3~>roV8aG_u6y֟5 tߩyO}w}K&o=9eVY>y0lO->Y1[Ɋ[cܧq~Ufq;_)cǜފ8W:"Ct&oxlMk~ЎȇwG?}'s',!o}伍y  @@7ϑDLDvl:xoy:u/xoIT󝖧ڞXe|n\VIʹ:j&<ݖԮW[җd$im$~Q߭o#ҳ>kƖM6KIz;߭Q?sE>q%;~Qi;+' @1iG{YyLNJKs$7n71?oܸE>l9+wuۜ4CNqmoL]#֭smo~bGZ oW?~<1j}nIuTih_e*q_vӗ?-;䒋J~|&y{k"xeP6y*w#w|Z>_% @ t=! ҍ~ 4$Ob+&3}Hww;We/z]Z7WXe|t^5<J|=zTw|4hUBKLq+&?EeS}Mq e ;vԧ&@ >2viY!k.x{}iq&Y>y3Q4= >|9L?3<2mN;m}e^*'fdm ͮbŇ7[O_  ȪUOtm_aߕvwVNs7Z-W~e"g-y?m(^xy\Xs1$ @ lY[NXKӺBX^y(s?:hԲ>gӲt^eɌh,7ֿ@Z;;ί 0tNp6*?[{PrnF }ѧFn|w@u Jڗ)!ÇJ_VqbzFn}+׎cmp!OjC& @XzgllL>װ9>{~ZNNwȪKC6m"oMoyŲyfY~GGPv.W=ӍIՓg8p,پQo}Koy/?C;nCX=K/6l9R0Cu @W&Qv3LZԳWطBNLmY~;-׶}!= Eۘe^z[mzM=79{u>]mSq_/2a]jdz@z_U$JBwշfYDSnjhKs{drWҊ߼4&d?شy@&284([n3j| i?_faKoq_]uG+eKJAL7N:MVKͻo'}[ϭ US1zښ2ǖ+rb 'v(޶K&wWEZ$!@ !:6&&E:Z}qqJKptUY{+9kcҴn89-HUeGdk#k/}{>'c@vuw?|Rɿm| =ٷBzN"̆9.εE.ZI±hM{͸Mx=Zn%@ P%s[h\YW'$L_y}}F7r7fL_ϗoL_?coV1eb]*$˅~;M{#_//jܚ.*O M"j]i뾸9Ézu06}[O~TLF mHC @ B@o]tn6LZ,яuԮ|MV&8]u7pD兼,yZH>֍qbytVZ ٺMds [.e\M Դu'>w}>Mzƞ*'XֹʜM_y:6+iO<}:s6VECȝoUzUlD^3"c'mO2N fjqOɸ &9g*<߼_ 4̺I\} -ym*gOyeIt rL/H.Hk=qR>:-3Hs^ە_,qL C;y*IȢ6N?!S&ʳ_6~q!@˝=<[ (fץCJEWfTW&kQ#~{F_֯jK‰GNͣw+`>~ϕy\WՏm}KePY[׏/> W=K+}Wo&֣򂧝mkA @XHz ~-76y(e^i W'}u|mtS/U'g-ͧH_!GJo]&V(jݼOOʑ/9Ǥٖ*_)|\l\#=}kE\lLO;GkDvoS~A'o}9l'8TcUΗlW2E@XtI^__&}nnt_6'>s7Kԁ7olY/w ZzV\UY;O y1Yeէ>A^qΨ|vhrQmL&O<&v=':FxaUwD+/5}_w*|ׯU$ @ "w-v碱-oi5iY\Nk>+?-YzqyWٲXoQNt=Y!K˔:Yy2j K.CGY}$I:4AۙЖO͡~FzvegȁC"IָRr\6xIf\͛/򧴑z+ɧ:(_w\Z?\׶<q7yʳiB eggf2WiP5M81 ^Vs$ޗT㽽k䕿K㻿%oo9qwɗߺ#|¥^[R+e6y oo&:<ǯ ָO5`Y|䶯WbOmR?\Ti@ @` 蝏Ij FdvU^u5d釒ڲnN=/ Kp:~B\M?eMqV,m[=˔یO,|J$݃ UU 3X}ܷgB&qNGuFmG•^"/}}D}~#nK UU@:OFێJqS'mz%YY48W_o9frk"xJE@r1(Wr3έp\?E?,oy&}os6 _Vy}v߁]qoZs!@ @]I@j8.7,%ʳLFC`Wb 6㦌}N^Y<-qZ#K7RnNWCsHsti;fٰjTGS U4"u_ǏˣGFI/-ԡϒ3䁇Yzl\? ##֗GwOM{lRf],3纍mѓδi%!׻O Mb K@&f)?.';.y\q6^!@53_ ~FBL8YY>&Oj?<ΞreO\"Gq7(3S32r rO~+XYOok~;^XgH.~5+^.KczbBWαVѣӲi'8zT_1Jz}7@ @Ȯ!vc5ű~W<,B=+E6J,izezyGZ/]fWY[y7o(zN+>b^KZ5Wݞw[m @u ͖oԵV R>Z/<󙕃_jW90 @Xsdwh7yW:iB,k4m>,Mh\GFm~7or <b8eX'+m2Nc5{_=@ ՗n5`T^YyVhB @J@Ec VNm:.ҏ̮mܻh[I qYҷtiY+y5v  @ @ M#۳vJ5Wqӏmtce#[8Y'N|H:5_[Y; @ @ `gqZ[[qS6KXc<|ѥWeFV|[=8c݀C @ @@[[X(eB쳞nrN+Um8*c_F^}YZ':M:Em  @ @ *t^gۚ|N,Ϊ'mSF'm[}^_VuꥳʋdVV&.*SYU/{gO벢1R=A{Y cw%0Əpe#0fۊdni~\,IJbYV?e(:d<*R++UqE^}TyzOU4'[f5:TzYTR&õ5``d+KQIJ WN++# bjHӚ /lfC6[FGLbezqIܿM{~a@IDATʖFfn=?\?QN]2WF?Y?~j1,ku,tZVZ 緢^6AM9?nez|lbY?(K,^ڎYa70df?pGѮf*b'L䱬- Lb(Cyq>K/gZQy}Zt>.JqHHLh8ڥ}0+M_M& 7 {PǮ0:0~W$vp 揤'4 ՛2W]f{U`diVIz: X(}z֯9_Ck~L1ti@zb~cT?vhO( x.+C@v4iU(S.%Y+8KGeqyӏi}ͧeI/ 2',7Nge<YT.f-4=-T@~?B?`d`m`G0&uLЭMW 충^Fv soV=[?ZZ{zmd=tWyl}Wϓ2XKLS֞S~S ̽&aP]?xxaa'L4-|,OWY|hYM%#[_Cv3a8J'Ux0 ZbAG޵{kCOO5+H Ѭ۬eizfk+϶*#-ײه6oo~%ԜՖz^GQJ7t{qY^:״镉tҲϸ<+mZ˃RzqWCi{X{n{Ck&\5FDL,⻏uMBGi-?װn$?玙3̟X?،wQN Em>.Kc}MgL?+VY: yi+8SY:oz ܞvl,k(X:1gt׼4C)TNda _ i9/~tpcƏ0n2~2؜ _a] X?OY?~s$ga њ1N~C rLTB^:He8or2MX?O'7.xyudcYVq^:dın2MYzf_)UaPv)H]4-~kvCkSGj#TWB#C5Ԏ*gdd+hnܽW8Wj3B(+WVtcYQ^Y\-땧-X Wk֡ϕ5;:[Rgi'3Ӗ׸eZCE+ִlI˞|yk~uuݙ]Q.YTe1Im>_?????G`Y211111'WA+֢KLi 5`qZ?]L6ӖmN8(s2t,[Lt,-Ɩ6qtj%=ԼiQWAj%erS/R~y}s:Χy/+, d`LO6?%G~?ws?????f100t΅dq|,qZm|5֐UJecqQ1E/ z'<.v2dVit>մi5yooN!mub,L&-ϳ )us@3Íهԫ- Zl' OCǧ_%o# ^%[֫m3[=~[?_+'C 3_|h`#'g P!_U^(3_,ڨ Mc8tl颲2i]w`eiYdmg;N[E.U]CL^I8~vg<^6'ęC|.Цzo~/y2=#+?.a\KCazyw/|\yL!MGӪ'GeX-~W/pKEڿA~ŵSd|o܋u>/S>{ą{O`Yc'~ړߚ,Ga,'''''ޑ}]\%c`````Xϻ9J{is/'thz&+mF,Xi ƢWLb}gʔN=[q4Z]zz5}˖NOL屮/BaupN.bL^2,{Um"u~v'ut+_ȧfdciPgZ^,`~q9W\[kj?T SLfOؐ3aX6o6B&OR߰tٰa)}fvYiz&X*C<5O>B9g^:_>)'v=2ټnojjyEc2v~=>ԟa]Z*S}U.ÏdFƏ8q#G֏Y?#:*rP'*KsgۅҠT.j%]6beEzwY=ϋՏcr8v8ܴt>ӳ83Y:6[^cYleұ~gY&c{$nTJ](SYUes4IZM2f>SQfy˳/[רSm~Y+dj*)T$LO趣R?؃r`}o[nJ=W>9~KkU捺=r=rr_mWʛUu>'|Zd} O]?"OGnh)t?_= ,0#o$_lhcY?~`戌wڳ~t%=ܨӁ0iÛL5T+,y\i 3^TY&o&NnGS6 T0R ?K[ףX^G״,⯖pL-F%$Nt,8a շQ+˲_jߺ~[hstA߃IT`M!_se.y+rD(_oLnD\[k8%_6Ѝ=$sK| ޵ȳ>&M8㯒pZ.c+i>ử洣>:M??\?L +?Y?~` KSjJ˘?O>Oh:=\?)zߗYO[ -{tz,tYK-W״+8 _Rw\eG{L mܨj{[#Ot'Gan=C1uګ6%yK2Sw2-u6@[G'~C#+5݆ O8ϩt4확7o~z\xN&q[fG{&sE yஇ5w-m:3Nm\){/?ǩ~wD׏Q??̟\fXj`sD#X?~>P X?~bq~׏d뚾 _[#wp\psO9C(l !cyJa\Vq$tyQ>E6eԟ;nCd@[8wZWuLfq>ycXm9h /Uke'{; +\PVk_CNn э cc}B~- 7 =/lV W&B{o[TNY~c'nSQ[#גfVh=koG]. WY=}ue?nk`T~Up^OhYZ}A>7J~kx_}8qA)pjuA'?9~wBVQjC. Z}'4J%.T6S7зM1M<ekʽ*gOV6}C \ڥ*Z-þ?qD;>f=-Cgi^ / f}'aT`UZ vm002Vn@HOO%' '~JٶA﯍[_r|}lL쓛8 ^蝇T,dY2eKvVθz|;_Kau,թqlb5tTf/śl^]2p_)#}CC܆Ll,onUG2_uCH߽,זW%Mq剕V'c $*3{ _#]5uy{|lp25RB!6&eCկIkm R)}菐es_y\K5黯9⧥Wy"8 Ip0~0~3D?zG'֏,cu&_ܑ=_92{b=f}: =yKHGiYQN뱼-MV6mZRϓBVY|NZQ*dWŮV4æ.|mPtyƜ~rCVmLʚW:r7&8o̵J++*q^ϔ߀6 ?yT =CaS|LۦʱIgi7),fN*vI[}pLT.:yѦM25WP)qRJ/$WMrT,)_X[ 3?~\%3\;&7¸6VZ̍ա.a1!.˓uyuUk%Urhq=hg^qYγ3X7b,fARP%n#b|݉^_f$.ǫ/\98|__ktj3~תi##rƓs=)?e2?9y_Y7O+"\#9>4v˝׾Mk/޼K}"kj/[^x<J;wCuW.Y2-[^֬] ~w%.׏8֞V5tTì\KC] YSdۗv vHw#>^ze;dhHѻ_oforN;yrh}keignwZ-۷JK>YmL鿑ugʥOz\m,T݇~Y{er!*^Tgo>LvUZfy~Y?GQ_1;N3~0~q"~bdd`d c5Cf0&@bdrnZqq~:YGk{M*5JZY#$it^Z67.aIl`5$U-$_:sg&-˫<8ҫ;Y 5&IavNƕV~Fww_vԿZ )/ȇvߤq9z6G9Vyϴʴ5iEU|2@(!Ԏ=C6M"uն<$ȫ얯|H>>^ce5ce~???6;ӷ8XyHf 5ku0eee}^Q+営X,2{,3Oj.R֞ʫWa;_c'`4 <܋' ~ 4X?~12'4 0n3i+8Le2tlvMl/B'dk W `O9( 0N}f:????Y?~bFB?R]#r,! ?qh#O?uKI$ik␫}OƥL7K/itT<8zϲQY\;PQY,L:A2yš4ȫ{Ŀa?Q|ߡ+î}P'PƑQazEBaP 62~$0aT:F0h_ 7̟??Y?~ 3iY?iDiKg#,.+n&Ӫ}(=_R)jH $>K>tGL>63 Vտ Jjez+^i?d?''''뇬R'Y?~d#G֏Yk,Y;׏:`ˑP]ezqH748GGU;⵽N dQ=qY#q:M,Ny{ЯbP ftûV=?zŤ~hqAb?0~2022f0[2B !\#v022?lcj U^c[IJ8mӸq8q>NEeӎxijM7B Y,eeYuYlfGUQ6{b 9I(йBpYO2wUB~*L~=KZ=?=OKBHFEt)OT?CeLS*2DŽGC7?ƏSǑ43Mjeדe++SY򥰁I KgohyKm>MߗkrqU ;Z&*}b!\ho#LLCeX?~kG֏:"~d_$Fz%U} 0x?KPak5|:Xuj8yV\NqQIo4m]4&W%ꄨʚӠ֔汯NKz3E ׏ a``d^!~R(?p#?Y~?$pV喏uÔcYik˒-_j8Y'Y,227>H&`72 4 =.I[l0~?)000U]E\S9T eY8n!ρth=2dv =?hvZXO?T;Cq5̫Zi_7xlΟv(eTOʙgmFO?X?n[y>FJCj>Vx3iʉ16fI9&k\gR\붷~yXYa1ZO;X l`GWlhlH o/a^vhID'^E4G1xqzyF2mi沀OK֋ӛxچ^1=;q rIpsm%(ҏjwdcQT?~KX=?*2ɖaS}#I5¸H?OR?Ue6~ڄl'F?k\|m9{{4&H+ܯ沀40#G*S๶m4Go^k^y䵄 hez ,6?ѩXa5CuOz ;WtA5kZi;n`W6~񓍟d~_Nmј0s^Iz5Go>R[- N˃ZHuʢjum ubǪS1Sy>xڋ!{!z)bLQx'B /qmgYK&} "l!DO;Ο,?A?IuO6~񳍟#> gmGĂUw4\K_9"k|e|*,|$mΟv[$?6~3o{@}mhG?eH:[~ksǗfASu) S,mͯk, 4/Yʴ=EKz)t2;+i3ZUHhyP>yc]IC-HnL(@ Xu#ꏵM7h ?U! oleZ+4G'*O?[g]iB0367y&,{۩UVX B5K+^ `bŋYk- 8@ j}#T/q`[Ϲ,jdIjF/Z1טټF*c&d[~]Lۏ~3gK?++o(c[o2C~]rk?^OBevxOͰO{G?VvX~Xxʿ9?z(k0a&=gc+ *>\pH)OH8  /ka_"S]W^"Tsd<˛ՋJ!_H5WYxu%NYH\zkYgAms =oQ ,!}gw5oO6Rom2ęu?_v1yo1HeծH8c1DE^u oBؑpSWoz{vsΐV`=h_&kdjڿ0Zgg?%$I*)?SAm^Zig]?LO?UhgJlsC"qݓ [ya6x^p+D~YNS2ZV[֚p1Uxyp{θeINAɹ :$xUN8eg`DZ Ysٴ`{weo?냝g)^gz3LZ˿ljW!~~H?miO-QR:9Hi[$<Op%9kZ1gN<} &)Kun#ux[Xܚ{nkXR`9H 9?2ZoΟ+xlVms`[Xvs,MuqzXX؂g~ ='u{6Y6^md65ae(|, Mh 'TdG\Qddz!/y A d?7N٩n_&!\P+iM3YOkj%LD.~Iuc&?l4;Xc  b6L ᡐN" Ƌ>mp6ٴ(˃uX=CciRc=-^OFznǑDK=ģY`G3Z^8qm2ˑPV'Ox0P5ML / /SVRZM7!XklYZ`?끍ldGl#AcGXVBaB2O|D[_69ϦY~Mvʢ#վ>u)ׇzm 8dqUWX\>RYiaeZ=UzYez (hXXahc||i[-v\iگ_k6~+#&׏!? e.W%%gZOt=f%~Sf 3Џ;(~ѝHen?-E*WXuܦxhVs<ptU m8q `)V,ȇ+hkc#?p}vꄍ?Xvl_l 3JN3W|h7wҠdhf`۰/M$9 ogG~Q꿪F3S6F6cgGoYq蟝PBpyC8C /3Ү-$Bh` _C봟Iz1GAΘu5_,³(%pcYu%L՟h?t3JPxyQ;~vmo7~KqY'cc_=la/ ا~6O&3f©%_s?~c?̌QU>XeNKn1֏3=uxDeރK~.N&Hjki+2UZx+? &Re 5a/zEtVKΟ" ZDGTSď)O`z$>V[RW_Z;?uT -K&Ji=?4dypI?>DzU`ǯ诣P5s`[Ϲh\Wnt%ZN׳=OۺUϼx'jǭSgU PӺyGZ˶Qj[ER(/o)7ݳ$g_@IDATdzg^; L=q/V␍_l3~isbի iyF'޽zZ|׀ALRQYmjd*-|C#כL=wñ=[E~˙3݀x.iw^w6gIB2dlb?>.AVx?4ʄj\,զzO[ s[~cS}ppo,o%=q ]rf$ tR ogۏHoczwE!ߺ$t lrŎWj5\1͚6⥟,(#q[HoZ+gүo;20P?G°ز F\'|il߲/Ez` Lũex-X[&#TW2oq&"D!&!t&9Jfx4yfvqAFTn㥟q=:]R Jcb7o]yd3Lp#lr&F-μ'?ъyYoMK&`#fBdm4n *N6c8Bڢ@1^ZzQc1*O3[uEe-.S*:`"}-%݉vNGڣǰ`% ASo?GGۻLU"pq6־q F1l9>6oJpw q\d]POªe6hCjt98Ǜԭ?8$RC tDKi\i?[o!v *Nf6D>$#+Zjڏzшx@Srr7,Qx$w4;[pT2o<;Oi(j ϲCZ\hhM&WaD6H)?S tnt@jPuۜ'y9{5;MuW]On7Nk+z">dG. -i/޲w!TK%aKË3Gp1]fM-…q7/-qto2ieE]xyFu{ﺘ`~%r?s=.!wP|`uEx]elz=Fc뉐_pT 4Cכ7qrjߤx< ,|u ^QY2n M3J<U`MxuS1N%G~^9F1Omo^8 ^l߽NI&AF7>~'`i[?Oh" 'NB{oMXnϑCϜ_BOg+EPS<>k:MZ  ?|}?`(~r}fc@QI,R4D5xױzL0w ڈ0"?UM~L^ޔ3L"K?>'&qޒyq:g͓8]q6oTƑ[Oݗ⩿,6]\a`f;\vnۅ_inXpթ3ՄR2 HI>EzOr!v#>ig5[G0/<9蝿H޷Ő||w k_P}cz#"=VKO2__iCK{ISUXxpCzo .tt~U`b³ݒXEe Ҕ;66S9ҁV*fjIb!fbTܖ:4||Pz4?FƨsIilGY 7Om7\=zOq􍑌64&hGyI'py5x*0隑RMnsq񴡴Cqe[x,0'~c R~v^~|>Fg"^m߶ *[K+Wvk{aOy:wFܵ @t?ܷ?yB]yjgM' rixC EcUAxnYq~ԕt˯"/?WC~]H"a~w*|q.COx)"03'UU= 0Y}[Y?8ĝh82?s(fb'?O9Mvn ; >'cŽIvX:c<6<^»m=Iiw~VR?wWӥ*W "ĉ5G?z[T@G XNۢs ү_/Ax/ŀhN!T+*<";<89:u?`0 , ogOqƇqټޕu?{UƎ|C0L}Ca&*s HzJ$YxÕxϙ L1볊'?*.G P^GtqG 9Y Gf v43Z[ͷĜs;Qy5>:xU)ir9x=1qjHk#1!LF^Mt=X^C[axP(OO ?K7_o\))t#$v@rZ'G;<22+R00CsG)ũ0s_z*2/vo~|w覠B?XY.iLL< ' s1y_Y]1oYH,N9/${XUH.w^s8ڦwBߏz⑟Br1~ !5XG[pYb.mA&97XEiԿsKڦp$蓅,CK=,/eܧWĮCǐ1g̅§`M̹S0+0B|u>/V(^x?WdJ`AU ?3r~LJ!=J]68폧?ݩ?F]!3y =O5 ytTY9k1'S2I 1AL7fA{oP7~y:,@4~'njstwuїy37Cm~T04 ?pxHz'_Ϋ9y%{[בU ̻s$5y:<ڲ1׌ی?]I(C堳s5MW L$s.({JO ? ƌgY?0p ?!Ay` ޥZ>q~vU|K1ޣ-$/)>?<oNc՛Kps{ $U/iaU7OTstŊЇg\?ۉυ!>ţVT|4 ޸Ț<^N73K Vz+Wcv,Ls>8,ް\Mry4|xޘC^$zX70U>1g !\m&zt NWS0.$Jڮ8->rG'SzbҡxQ}%#cdb;'p/7^Koml\F|QZC h#/o]QT-8ѻ/Pdat};2}]/5=roA٩,o25G޾. uB1(JJ\HH|o?Ub*3_6d>M__p{-NV :<ӓhҙ:Is;}1V.3'7k/[ -%3 ϓ_}mg9ߺm'DfEỎ'812$<>yfЃ*/?a/5U]Ͼ<-fn[3jS1XW{3}g~ ك8\W<! Wfk\^WE"Ȯ{pay|^$sb,x)c ^i$Aڦy/?7FmD>;B/-=S0cLz[ւW8&E(*=4iX?z$֔O1=N+߽w ^ϚÓ;ic=h."9AWPi5-um=RpA^d=rtE WSotF|~e$@ZUfZK7&{cKV7gRiqW齨E6w "$y;OHY4S^\x-ak][跣u6yrQEuU#8潉%-vc_x+>In`Se i-ڿr3[N, fܝ}˿=IŸ@m[I0urg|JK#?`3-[զc|ߩ/FfSw#N)Ϻ'}Xɫ~yk21bmm D'omX^UëFI?L'ɯww9b6P|i݇*\K뒟@z ߓ}ޝt[dx??Zo4I}1~n1JBvW~[K%I*{;9 dvrljT?EG( xg!9緜ΎO=Ax'8g⍶Xk hzŴePoQw˽g{0䷯8?[xb&:uW)dҷ,?ytM,k7-<;98~^Q0kILm*A3}c%5 o$`'6BKu =6s pteHV^_L[ d袏%Xt-zU@[bڏxW'8{t#Y| Kw0GI͵+5GC[feCHESL[^-}=zZ*7Ox+| .oιJˌЅ(r ʿ>8:?.eY<H?Ɏp5y[៰EuX%"⵶>{?}j;9FNMAo`g}> ^ f;9w / 0G4FV9DwY͜xMKI o;e"䩞Ec'3>o\!Ns j)I環iZzoup}fa=zz*O'[rޅ?~((a''&W^R&0|c6dCϘ<-)G!+Ǣ dm `+%TjshaƎ^*N>JYc v9'~х?;3}`Է?ځ)\B|1+!n7d|}ÿ@Oq5KY$)?CJDŽʟ3H3k3J>he-5Od;G M:'n[cM?~N&tvo/ rAI"-R!^xXxVV++??-~ĸ=(?0>|ݧ/ˤg+i k0"=-tsAZo=6'㧪k՜7[˱O9j#o :t^~JȐsxчŚt(=@#UDZW,]qZZbIԐ\"$\Х-R[tܕJ&H9\KU>@˅uK+UrAt ^voArqe\x dCףGQ-rɓ5Կ<k43iXq \7ya+:} oX{b F$h,:c"KDo`~O\F3YA0og̺b"F,] HQBG.jڿ?"eRa?0mMe5~hD ߔo9NWz[W.sWe$L?|-U=7'n݂'i;vRr@H:(DZ&}3z/p_<o+iuD\yy o^=~{R<[IrI;=zжP?gxٮW|eDn{甧[qj'):KÍczVU r&n!b %! ^ cʨ"}jo ZJӒ~.ûN>KoVTNknS$f<$~wJOټLw9)*ozeM-ӪwT |,95F'*d\MA{ dž7on+Ӿ,}|\XBjm&~Yc$dF1  8u@u-e\W_Xn_'/lހ1s.KKEjh[YрV.ZPMy9Q쿌nWp(ՇO $mKIFWZk_*~u =Q:Ӎl5=XQS-Q+b-6գLEÆOEl?i)kO|RnIO2q2L B:w:r!\F SEŨfj*vtޔ2& jF}p$F^O}3`ʿrʅ3 Y&ENo Us ꗧ^yS 3N1L.xæqW;ޓ&d`)ӉɪEŇ0^&L*˱O/0oMdc,8(˘K[E?'9=Քp#gN㺠D'[W&7s2ߎٿ`eIkj5Jp޵W ?˯]f>b*?+emJ) 10DžN]DY?&z:^oE_̋d•}i-o:<73&u~jM_ > ߹*UWQȟfv~̡:wϔsǩ {h+ޙՇnvXǿE,9~/[ŋ~(Om^P~\`#Am?0]G0flL^%ϟڷ,3JO$i](ꂶmYwhE鿁kN7 :x7xC]H7*L~4Oi]i<oJx[D_^ cxL$_ߵN77c߂)p[7:CuiA3gD-VY[K85(uN'VxK[d;}ؼJUj3 ^Z,QZg (rʙ2 ,<J8՟o?yMRWn;9(*E2RZ V !]?3}P>Ľ ҖUl.yˣ-l?bs3Cd$ul߆p;&K_J #K{/*#x \\Tr4Be8e }P2t@z_ ה\"sPnΔCEF.YVsY,x0A=3x'mhG>N8k^ ʯc 5wHR[x7-9#vJx[m,F۟pșd><,ng'ʁ]0 -1E?HV>7%xLOF _dsHjK/O".(?rR~%'SQS{hyJDNw~Ow擿2fʪG?ʣG~!`OeX)n'0 wF;k[w0# cz}M1nϾ|G>}?lG{-L1n yu?+\;w~trm5<[O2[T.-T+`m*㓄śKqLtΤ@}qc '|MǺnиiJjng'+2~ ଁPEŻpx WWO{6DKb+m茹 7L(w|cOꔅ>3?!-PnNEܣc>y'ZGyC/ H@9yspR(7g?gWZDɷRcnEǼx[iu#&>HK'z?q=H4RRy5mqQv̷rbSj_Eũz>$&'K_2iιu*ze6ŕغNl5^e8$ ?<%2Nbo|9:&^5w#փIs4G8#iqe|gŦ% ;NH0NəH˙C.Yx+??gWx '?:&M'w@zQq9Oq)eCh/} 09icW5R7 ~"^u6EZ,z&N 㖶—ze?<랦$e-" ta*ݽ?֐\xzfaXOSK#o>0;~[ZJ)"F`/::[nJ_o뜁uKӊ"/!WWT…DDG?A6BSߥwh۽O:܋ dY0:T"[?BoN#hp31=MZYPU1lح?&_#3%5gYE~D;Ofm|5v'h*b ƭ Nf|b%jY[,I&چZ ߘh /q,p u->KHo`Z/[џxn N+ x!D%ilR2W )<Ƈ1J7?-C`j۾;nytۯ`ps1F&P &H.mtƭ7ʿ? ӥԥ]I҇8<zCߥԬC:I"\QoI.rGyZ7O_˼A4X}9 opo l]eb=ʯ1.TDe=~LYp)eJ2q%ry.قɼxce Aa~.:Lm.Ţ+pt&L67~Z?_. MLI&XCO 2t]2#h0W)K2+q$4G?8@[ŕɀ#Q؞ /+z-XUKw$7s!DϋDTK<^+?{T^N#IէܑG cQxUⓟۖ9ض=tӷ?׎Jym:z7乥KߗH}M">vPE#KXɯFZT6 %`u>F"<^XNI&^x& _|],aN'v[e;fQt-RMdz/k `M7ɖYeP߸5CŒN&-(mm-m-L9*/P #(5foJ~`BdO0]__@ہ ɳӳ?@ƑeZVA;飾:/m8nFH1N1_7Ǘe;KOғ}Ҫ'p0J&r|:~/?YX$.Nk)$.\&6MEOĐ1x"b:OKwt>Lry`9JLG(5N_2C&]%$,ڷ~vxgocRĽڌo1W\rX.G.7ȅozmY@`G-ޮ2L W6%]Ii:ǁcѝKKm,4o?~^2mulp?Gr6uh7Iav}})().ƫ,ã+/Æ f?3Bz;܊'?=S=n"ߝ2s0NQ?b~<0/^I[`vүdecnȠ}⮥]( Y'ЂJw\3c8&t .3?AS(OZ+920C:Q2o#C.gZ_tC`\x'Ybv&κ,'z` ?~b.$?M6ڛg_On2~c=ds1 GB mf M~ chKEh>Jm=dRҶ8-xA숙9>3qȂXL *U~Lksw쟛p+?ƢW}ewXփJ>3W$6^.|@L.xFqwKQ&?W oL?ǿa'xev\~Eg?DJ3a9ap_4I ,|s?ׯe7 ÈXOg>x]SOBy>'Ưg o/ĺPۇݷ\ckśF 4mYo菋. (,H|u+I.'g3] XHrkOtb=&ajnnoz Pr`6:o?"MRM9})/u+po)ˆ1R [Կ#՛|A*|bV ^4p^;w^6ticvx*i|W_t|+ΛQP42<o+ۅ/6g!26~:Gue+? G-ٙ߆`LQX?.25 mq&.<ϚW7cE9BjOJrdzMI{ˡ5iXqbY@.&zfA~D %wo E!tۗ{s30HH*U$~% B̸i|5g19:ƿ\y_rE6Gɿ<>A~:T9}0sHP9(/U9x \2 g^?aZC|rK"`|-}K ֮:cmfo{|<o:I:^?}x=1-$U=ha?,^zjFrd}ȅjx~^QxzOǃ` 9w!!ib:ޣm%U&4O9DlsGIҊM_oaCxڊbL6*|dEi;z䎷 /(Jq-WqRX'~yS~ʾߑ^4m ;| J KZǏ,{ sFIݸЙ@C_~)~.˳3~yAy۝p/1 }QxT,}4yܼy+T2\|7zx?MȶyRn]Kam +I1Y QȨ)]ZH[xr;mؼ9|;~ ޼+#Y ,k9^ٴxspj\3ݽ5\>Pc%Vvc՘2~ygϝ梿{v.Bwśg/X[^MVRcOfSn}km4"Pya꯽rpEYUoe׏g&ȯOޣ $p&G(OZ9}`,VZА6o?#X6,6HtYꂵ3.Z^۾}1n:.Pg~RJԜ&DOšvs"s%_,O!$k?g~?_,|,ShFxR _e#lG^l _?،2)~v6%Pv'8PE䩋82M%Lʝ'N~ŷo_;V\k_]a3q<) pչC1TgM,3 ,l 3(@1h*&hB[WZ\JvWofvKLA PQpqs{>9k$qZ;6s1+m`jlmuB/+zg^"=~x?i'o2vxTD<~l$ 1\~?q_ꍚ_p׬1 Ơ 5Aгm$m5t"q gwm>yp3l_?2s|-gq|]L_˗ufiD"$9zIcvX+>_+ZVOgA?yh'?}Y'\#6<'1?F%ը%$4<~1md,x:.άJl/iKhOGF prL/  ?\UNn'('9.w?]aQT50:_Z?Tk~Cn?a} C]v,W\/ _Z,E]Q^#7p9hQ.CEdu48ցTj,3mZH:E[`AQ _Q]quuu/_Z&F? ;dZ8Z+-`grww5ή6#_bug\E q\S;\Xnm?p=R\=V 1OAB;q?iۥosuX䁺xxspEN.ZLf}Tc\uY:sd9} 8ENWjԞr~dP3-x'GaO?<~x89~nVx$ lNjuUNnΜrkKhbu-rL?vQSK3ۿjH'JTOvu~rmoߚF6*X _JA/xlߑh NAQ=_~''): |Q+KŬ?!?XYwc ~ef_7?].q/b< |LOzE*#v҅6NR4GQPT'R ?O`DR& fx?<~xf)KOH?@/ϟ ?5- W9ɹ)K lkK,GOCZC}BX$ʄq۟L"S? ?<~z珞?z)WT珞?z~d^rV+KhqLUPlKBOG}ZMpah` z1VNXE0Rt'|F?<@dIGȖ4VxxؼѴ׹k3&oyouDO؅_<6oAhN/HE)b}Bk?!&?Y'3Kz@`KAY=~klق珞?Jh~'ϟZ>E"[쩯e:Z߯oێ7foLZ[uXy$c*TTsт-wLolvO`1n??=~3%xT%FzI?O<|Oj?Fxɖȟ7l|ukm?MǢ>֙ꪏv !o_T7Qʃ-+'ZP?qz%KTz`[2Tt} \@n/n?ݕzZci0$;~?n?M̧u'g\<N<O?iK=7'ϟ<(OvGM;AEoX4!@=clKTozRL-Ni Pq^p =at^*?jH+LO&@酡Cpat^*?jH+LO&@酡̲Do%CMu,v7L~H-* KwL'()XC_ zϿN`GgQ h珞?w< F NKBƓ{9uWt/}_Ɲ30 gFr|= Q~vyVY7/hպKWO_ nſ!Y?'ЦE8s[cc~rjp%w8;w1tK=C>QEcTT֟YC nPh#J˃g*}qiE/)z=G;= h }Wè$*RB˿;& Wô`]A+Je|L߾oN2M+)o!n4 3^_zITsz ÿ~"0 }tSy|5T=rCq;lGVT(]w1KfG}狋4ُ:HYgݳ"&ռoL}V%h:kZəa@=b2k5@D1ރ>ۺ $^7WJ!974~tC92`:CWYLI:&3L9_C~ ϳf#`֝ K6[V۟u'7*T¿e#<4CRk~kz; H]YWK8&2y$FՀMZ&*u>q^IZf.UW-_S.V0tގ>:㷣.`*PM89`w+NÊJs֣>yM3wpŸiX&誫ә'Lyw6L*>e nƣQ_ڧ1,?wYƚm؃Jg[2֨Dɺ_O+hH{ si.?xo1w|kXjL<?LsmoJҹl$M7iIM[~麊!вUxv-M?֛蝽3mY? _-`xJC؇ylÆܻ"s>4%EoW?Gel鲺8~\n??,&s%?-^xF.6} >on5KKDj>筚ụ/VhC[VkXmX ]Qݚi2ҫX6@T/_Q"{jL~H<)}'*V;j!x\=u;8FNFGu/sj>/˟cW<tbuY ]}# xz|_PߓW<>6_d.E"Ÿ>zlu|{d9VvӸXv-e#+H;pZQ9t_Gs{KP4HIh{蹝R雒q :$~At g#2mJǿOi8`*{|L_. 嗡~fOTiH'|6 ՟_ǿy9~jIopw]w|@Z::86ciƜ.z$41K m7]7/zB%-}fͥ㋘R7ڎ_ΣV/XoEtMQHRoLyK_)ͤup߅5íkVp py Z~S e#{_dd9U*y~׉?5Fłߡ{ohۙ2qNm N_|iwE| 뿤;;~u?K"7prtLl ~pvqE8`+8"'s8ǰݖxC_5qԶ$HtZ~{[pIߓw/];!ߦ5ցk/=L:ce]A-yET~ CL$eZZ4%@p":}[e|E,R]+vʾCWjǴֹoafCĀcCO|_u ]|ڷkVz륹ܩgT:(?C{unGzZzه7w?íR:ch}㞭h=_~9tW% P-mMA3̳jGoglT:_:Wh z9+Ҽ|M;`-_c'2KF=Os<DRGءRv+#׬ 羖aЀUX`EtTBoy YӉgOQC|z}4hYL AwmZvΊ[>6;eX_ȸ7*C\^Rg qd{3|.;e։4]P7iSOVr|LmֿJ?4zg~Pp*~^gן柅4r Zs2i_?遇¾> %L9z#-]\\~T_\Dod֓rǴFڨFķ4{Qɀ2갽F:V|ިgߖ )VtҤQ=iUJڻwO2$ʌb=5Ө7_ٴV}TM ZmߎAsR?rGQ߳&Gpލt̀TԻ7S*kcg}Nϼқ[M~.)!O ?*7C&LҷPe&TۆMcA8ιQ"ʚR|xԃ=EujǞԭdƄtE`LI?K aYDǔuʏ-$Ƴo?X,5Sfh{TrdٝC螋/+L).Ojt1`+2FߎJ^cϻG-yӓz21OZqL~R嗓[ K?oI7];<|۴n<Ga<y@H}[WQ\1nK}R)_ދ[T4 ?kQm]i7q /F't= U^]i]>+o~tT\>~nj|1y{A'z6LtZDg^cڏ}BM>}FvQhՊ>{Q70xWPM|<ڪ.y y#u2%OC׃e3E[ǭѥsϿ]!`) u^֛֭y,2ɏڬ}` I? ӇV}7n8tE4=.?z-4uh_Boe~ws<#ǣģucģ?V'􅿤ij_T4:lCҗ"ܺ|)I7>zИ)E:2(xT;74.tퟘ9/ؗϜak<(] K}PXW,Qג~ 6ѿ f eBw|xg1?zUi'}OY!?=J?^ X?ه;HǞw ǣ"ںGἀ9ϚyVSyF{GyN~BTǨȾİc Sǯ=("q&{R>(06"+.+dCon9((`_MHѷf2C>a{߆<wEio-OlḹQ#G9nqLo0.OgE!1!.OxKZ{kX/>G7pd6C|SCK?ƥ;Ae6?(eEaf矃/yxgK\oo9r> .n+k遫Dw/cN_yM?irqiƕ|CKp)2-x;O*tmvTSK_&zo%邓i.? ?:e=2E?|xgMLnyT KVx}R!_2z*Rѭ˟LAC钛BC)|MrrD~PgP7\FQԍu7adgSŌgDʢ#.{Pڗ@Kc{#igӓ3~~>W3uL7e<Mg_ԍ_-Hed+|ףx hS7ry<.q:GL)$}`5l:n7!V ?nq1t9|󆯤o;--F'$+7oF/5;ZPM)A{s{?gQWiTfO^脜E[б#˭)ljU@.j!Hm|a`;mI#=7~e_{IFN׃^Lju~#)éo 'GG?;B>x|I?xPQ/g͛M̧.\dg\I3& /芧6 Rcy㖟А~~鐂#iP?8hRj3_trfKn%/]"~OҷDϿb7'HX(=&:;=jg߉nO\ݫO L82t?7:Anl, TegNyc6!j:>keK͹t7_hM׮| Q>mi۬חFz=l&=׈$Gg-0|γncpx(Ht_v| w 79d qCi· ȚK~l[/{r;H*һ[vZd[@_6KQ^t~M/W:kb*>WP4&!f6^+ (WjM'捎e??4K3 -QTHRMOܼ6y5uWVM5մ|9NUcF]Dc "oOrz N?֛ u4 _%4\۪ 7ѻKJ|Aw@$⬽0 o}V϶i7ol^%;'*>~+Cᗜ@}x+Un_Of'T G?7&gz^zoo/:Jc-eTE}_'s>m_Zm-q \U^&G#M4nE;@`n y $Ws#ߩBÏs}kv[nP8vu*jA^ yw(}"kc(U|&d.8/`{^]1Kt+eAp.?נI/?]߾\(8vq0h>as<<$uxۛ}z7c nfğl 4mǏ}$EL6W\{p p ܛ?_v?ءХO?#?h#ς,!y2&}ϊ7}_%ݼ1\ aszY/M< ijP*_*~'Wg.ң0q*$H]>hSD\9gG3h?<{4D~IOd)8i_TJrE8}2yw{K4d3m&U$.|.NdEE:MC߲5}Ͼ@wYM  \xX.?FBy{P;!o&z [k_~zd?Y4SP ^1iFNiQ|.Wg8\< *ރ*ߢx;ZsJ&˧.zq8\W+Af[JGC4AT8Ѻhf4b?s1UYՉ|%s o=ixt-~At&ILA]41p9~N,:O)c DSNH|^T@Rq4@ǜep\֡q&& Oϝ Q1K{_z.Mn[}$wm|Xg/,?S(qH/򩨤WFzݩЋnW/6(m})-bȘiF~:ÿؼEGe>u[z5k'd/)?˗~EiȪWnWbOw4Jǿx⍝<h|cuɢǝ3~Z<>C,rUƜJy?+e7K븫P1ͬղyJCΜ.u+K?}H}̙clz}=Xo(a?9W<$E4kHqf۪\i4=#yb8okȔy0>(?W*J6z7u# v?~)P|t#w#Ѧ&Ep |@0&ZZ)O'/k-}?M.ϊIWqz|/")_ f/sqoWx+t5yWݡ<k:.J`F!t0ZGo "65:CJqEˤi3|rیg g Ӿ?z!k6`o۸mMxeaT\oi?G*ҡt")@(?~c4;$4@4N_k4zE0`>@߭_dk> +Z m W:'֮fUJlo|PW=[ |SݶZ]," pE\fR~mK|.K~f=f?Mx0?d"Fq Q\z;/2=I?L?Tj?\$nq_Cz75.OEU$0~b9|/= #O׶pR17OgUDR=-}fc6_Lh|#vԖ]2-x^ dg&O!c9 40:uN4aZGN[~KUY t3ɳx3Ao-;mJ?Ȕ?&ӧ?LH]\źz?lINNN[$8 )$1 HRB,x.mB(uӣ:t?^ZKg!ٷPk F߶پZ$B}56]vzir"8=opBֱ$:V4 cuFI~X"/D'0EmD_H_{~׬|IzOiX~\.~JnRؠE@F1`Jp4叾ަ##,Vd֓-Y%c[yթ?,_([}#H~|JW"bj6| Fk 4 Jm ء0˚9ĕ,!}a/z_ f _b)-gUPzw6Ք7)ojO}(G\ߣ5C פm;Qh/yA$7Io tvQ2_aI%T-zϟk3/>:1~=YF ~@ߑ_r^V'8/==t=J._AM_̞?.zdÿ'=&sUF<~2tVzIR;i>JO:OʳLӇ=t"@$)V;w 4o܉ q pVUq~>-B3O4e.BKPN_Ǐp%u}#3z]pK#U׮&E5"IR9Tp#u5/%_Zi[q:#5َ])#6c?m  :L/]h -i5$\΢,w"b^q\ O7yk_W8k*k3,2߰Y3͌ ?Nϧu V&E":u(K``zIPa,Jo7iK M~R'3D?I$ i3d߫14MEkZp*s:efzImRoOae5;PD-2?1g9-nc/2ޕq:=?(mʻ.z㒯_hOx$|ZǴW tceߠavc .Yw|gSEkrk?0Tcmx_ȐO{*m.[SmOt"*1'3GDtz{2] ңI@ T"(Qoc5^QttRG7]iOL8ÚJTE5vv|}3DT<HqsN9F2͙~ѝşNB]lM?pL?k"\O!F_[rs`6bﯥ5qc9g~SuM'\OOশ"0A)2zk翚~ zÏ)沝C6O$} ?Ni-Q~_yڶӱ7 Qѷ,/}=̟Kҷw7Cѱ~PDj34EyK/bͿ("?"otQYI >z]>7 H~JظROny֯\E˗MozY9;(E߿u+=/~ :k㿒3t MΟ5t ӨE?xym+>,Q\oX\Kj^/㦤Ŀb5[鵍_g?9 H~{ ՜8x:ٗ!9~[{ $L+Ȭ[udu)S8MQ`+hR_y;ϟ,㸲s^stCKxs4_ZG o~O* ~Ȅ6MYiO{Ѧ p<K?G~S kN~/X_6G%.r3XC6=bQ;ϐrzaPܔݥA" VeeuZm+ւ wC I&E.~Py۶=;~w6'*cY\!r–JVYi&g_S{gޭQ{Ӟ_t$8.}zrԺG) !]w#C%۷ny2]>w=F|qGUwBS)|}dKs+/RƏMF'ۣ .O.VH34uU<*K}'RI o (+mL; t*_< 8*@/i=`8M?2Kd夢|8(*vdƏ˧'_EW G&U<'Rݼ>3_F6JFD{`/SiQSҌO7mtON7FH.L'U6A^DTDGe4I1_ۄ 5+y~$L?"-^<(;ƏknS2o%o1{~2NO>& Hko'w)c__&йwD/=,j u߷AEAw_9fҾtޝ7Oz Q-,گlf^廴mkZi _&}u<)9wؓ('5~ca4y]7K-VGg*创Xxy:faTr9tnGiOii4wuuf{:aoNmtw7Dqs4pR9gy0 pLc?8zXߖ?ˆ%P0|`WO@4T1NuzGm!?bj~S?G܉3;ei/9;ac)pޤɔ8uKG}H:tlIp 'ROeQf>όp \ւm K-S+ }ih)ͻ"Z;4S)jX*5:yDc;4/>1n&L:~CBc}&%1,._֮t)|as5Ϻy#M:>'-ZXU+ӏ;OO&USo~4hImʏ}8֯h7ֿgLG2ҥm>Ɩ cNCw?*7otWEcR+eGh} MZc24z#1v{/<|JG>1JzoCm]7QΣ~IaSz3iKhĤ@kW)C_LҹH݉Ҥ#i?[7$1&շi g\ ~> ]y#ctDD2iftUi巋u]p@ИCd/?ONǝr?ے~E~g فϸ9ƺ]7pp"3j{Yg~pTރ4xɿ/|܃x~L  )T?tjRG[o*2^弚,QN s$hZ$bFb]{ѴoS~_s o0.Ag~m`?ssaCi=i (NGNA0M4iiZ{.>_/c00=r?ZiהW7˨\D-͘!GӘeS|BoOOy"/p}Y|{J38ƋH-"#P9y ]A{״%?KDw0:|*g.5hȎ@?O|1=8@W2N75׃=|?~3`\\ΟRkeuH`ƕ~M45 p^Iq5)엞Kױ"lKyq{hi^7yqyWI%o-EcmHsNzB<{[>["|K qscv&εЂa K狼܁;~ ~2~L|^ڄR@e'OSy_Pa},]79}DPmQ^UgҘ~̸k~yI?+^6~v?o5o# (6h+*~NA'Tw\~"msxa ן WIx]/j{ohut,._߶o:ۙYU;m:>TֻOߛp2ǥNkÂ*u8KIQ5|U6>_6j 3[-ZD4ސu]uQǂj_Uɶ'9iXdm #P=>y5~J3x5_ҊnTP[E6GӲ%NGsD Od^FŃi܀|i}b0MotLWX4;_ޣxbCO>x.׹ˊH1cz(t֧rh~bpn!.I^1^gv6ywC6S]F!/Ccg٨ԛFg  ߡS;i*9_$gWK٧ďWoXIZ1oa?d%~Lgedg_wv-E8yuqzkVc+Llzd"mSg$eMgILW-tk0}аwaRZ҆H_7P/eFc k[yA^"/οmRCo](sO]~Id[=S~u~x,@ xہ5a49H24J]Golb$?.?i^ <Q2ꜿj|E?V՗?ejqVl  zqpKVWWUߚ%x=J.oMYiN=}M˺[6]&܎u6oIGoGltO<~~oC`TU>JD˺E#.B-#,T =i1h08ZnrT[,G5<ۏx/,::TЫ5mz~oj#Sxaل?=~zOFpqwwwҝ?sXw} W9ɹ)K8vLw蘝L]v39@2)7LD?B]7Bx2 U?yS?8|}5f4[~7s I$ː礞?xg<i王} \D!i%QɅ l_>N𧻷גz^+ZciԐTԾ>S BJ._tWigKUxECШTTܓEee>eǛb}bwWtĉ[&\:WϠ&釭㟊bZ=㦫 mH/ %,QTW"\ b?5XhT2c:p10TǗlP0:jњXc8oZ D'{ꐴV%*LvEwljJ^rݮ.-+-_qiLHԛy,)/~t QͻW頩QPͪ O,kj:ߩu ٷ~ZT'K_6;.q61wM6j>x̺d?ɣn4èUU],>v;?4͈㧜JG^x=/:ohÖ_\_Y__\v;ǯ]4~2G89:q&$2K{>b7IF΢/cKV.e"i?OJe=F.}7v~s;7p6c3_%QY@ IH‘$d+\ z+uuU{u@QWpK%\ rA0^tϑLwW׫*e묨Ep۶}|a[~+>)Jv ڤZk'_raw@HD~cѾʋ;bB*D=IڣU_j8q#UlB`SVxkU=d?F~֝`n%(F~]s/ BB}'1;G&@l&~Mp0["`ށsHIVIΔb*T;7}ą]RZt.:Otk_]:;H_kgGgY_ϨbqǮ0H76/UXfl໿P%bS實c!u/Nz)OSOObgovh'C09Ҝ*vlgeuj?pN4_l}C)\tT2xcd \VxÜm@e:aC yJ"Nا n\I~r˯Ɵ RaTVx@O -y0'@=P$[|t/*/{f](`Ǻ fkjK ڴ>?YSK4Ahq AWK0iIEJ}ŶĦ5~2x-Z1o0V4lؓI<ѱMds{#_'6 `L5׌?N-x0P ^YWdelN\G1G+",,)-WqɝТ9wE bgMg_5#})!qd'xp2 ?8~fď^]O~dkx? ƵR}yI _K?W͚]: < zf`B\[2|/zڎǕNBzNyb - <}T<3|u rqH{~vV -,nD6!:yeh9 ~+D!5śbt"ֳ;ˑݏ krCS! m*=#$F(2h|ZKFZ?p oAaԛqOeGT.iG.Fa/n߶ow 9Sw+Ȁ+$ f=ۅFJٸg7>c3ʏ%|Tֿn- xx~ڐ!cqsTa;鉷b(#Q%;*LuX7,Xb1Ο~["iK{<5c$P[lEK9°0f؅Bm5 mOV(EZs?Ji/z:۟hl8[PMs'GYX߈Q\É>b|+?]5zo":$!-#UGJť#Z6C!e+ꪓ>f߅dZ(Ğ{ڦ#\lgs{Y3(և"o Yߪ:?׳)$gy!~܇ȎPr$9ob7Iߌl/g&Rp?R|ė0 LV:ty( ݯ~a˛4 \8hYHrLQqFOXDKq#9^j}UN<׾.c8Xu1A1EN^x5>\ªB#bm9w3;S}Q;UG_]C rʹhK{s(^T s7uEwߠn8o,6~ϧ&NKr?V1cLQ1_}/{+jR58hlbW.}aV<߰d̓p~){O=]-RT9? kiƨpǕ0݀e| ?F{&{|)wcdOϤER~ٴ?~UGJT !>ڌ%,y}MxS;O~v8Jj&)\܄sуqyp)!\4p*.`~Q3h?.V3F.W.˧úAe+ /_(55C lŒiגt?/5<K}p'5ȁ_[0׍}.ȣkp xCw.})m*}Kp`W+VFy9r -l}S`f9DVz=0[+q`!}{ozZq`}az*?jbys3:m? ޕ?H]b)Lɝc ПF 7GW6;ktgJ(Z4O~_aZO䵸WFp | 㻹?Z`J`FLE.[g=Ϧyݙi݈Ϧ5:"p3J/mwWP)^뜨09VJ>W )Py Oώ?? R7dceC/ Oz)R<ё_XovcV1LuLiɿQu)ԑ52Euo>0 >yI, zp'S \Kԗz:xAJ=ʚPr,5.}k*D7DAq<ĿӀTtۇ'@749ҡ5©6{\p:/` Xu?C~8`9Ja-h>z_*N~ W7j2T}o o6~’]l'g~ڹ siEҞhsck* L1X?gxo zlHßyWE|ȇ ͊gd:]*֢݅Y`M*?雳a!}`G8⍶O|_-p@\YP9ר6~(9C5Z)xr+x_Q.r?\AqPo۟v7Ⅵ_20"܅%R+9? N=j[Mx A?9I&ڼ<J\[?G:Wyӓ9\Zgm"<%rr9M:z 7r^E{|yx#+jwsR4ZO^lӟrB-f'}suxcgk0=#Ŀ,]l7tmD8~۟Bmֿџ!3M a2  &~iGMS VNj!ErL9k%@h4q4.}SFM2ttK|90=z5|L9w{_eBhhsg.w(b<4:P#?lR.OK<++jجq֜io}Ǫ=%nӬbq B{Z`kTՠ!.؊s/feI'~DJ "Vc .%B-1GEknsj1V['O=T}iQN+Tt^J|Կc`ZT*F{=d8G ҺpWU3NYrNȤ$~_!w'դwzKQ/pĿWד,T+yoaG1՗p{V^;l:?_Pv7CBۙ6__+ [[N拱nK>R(I7%­ĥJb?>]Ck~j%u"\zhZ8\_U(يoN񚶘d꽶(;kqt"ޏk޼9{o+_~gWߍ*^MѷոyO/ԴVzgX~R xMVhya:/e/~M=`^0ъmAGbqq`i⇉h錜rl⧉Z4C8`D]pԠW=tA_#k)4RCrL2VxB8M}_Vݟgv=oQJ<}:s:7o&2/ah!@ h0Z+I#^QMkPH:,M0ּyd&Rj_ե7.r+X:K{Jӻ}[g.a/@.i\fO'K^uL_V^?^}ްӐKn,q{F0S#?)mu_Bwb\ML#SSMCIj9SKX:T'9HXO]$)=›b!)Ds-q5z9sEknE:C[[_˨xֈv,ZݒNϝo,n[]557*OQ+|ȩHu ?G鱈ڃZWͩkתu2-C[HN3DW:<y?(K܆&?WCqAŗ,; v_@_xMU;;٤SlaӒb`[N>P~H_Su'_D׃usܫb&#g,[t]ݏu96wy4|QeT8~X͉?sg ~~1 ?kο&~>c⇍&~R`>e@ɑىAwTjɓ˛>!#tFFPTO?_+ԑ!+9PxC;27(;o6 5V-T=OnyE\u ee8\ʳ:ya XTע˞IB' kYxQXR3Wm.I/lUbJuþ\4=N[yEPj Mz􌧉|WUU\R sǣ '5}Fd&I`8pň9R ;~9QgO!8-P+Žwؘyz~5l _$&k9 vw>&~|]H1ڝ~)&P?/e]" ŮHɺSE%Xƫ$:.$V{lTcPz?RF5؏57'~*c~NbNVhQ~?haV#O87PJFޫJ~%'YrJ}IdeaUH;hVBWmcGJN2GS͋)֦+rDzizmK0%(Rqpo(IN_ i+}}[ g+]Q^qpcO: &6}/8a]Ǝ,dEzILzo?z/~BzXnh}!)^%X._%W>+^MX| ?{ =Ac˟?_kL%_UNTFpnfo<7>s&\󄆛&4U´݆dHOf)~* - <%[N݀. b5_oחFM\4O-|gx⺪5Ձz[77٫cNxx;53 ը" &.55T;,S^%NMj?ԒĖeE8jMȁpv,:aND{q1E@Eg9B!ɤ&R{ >yҒQ0iY+ߊO=Eٺ-?޵?pŊi.ksT5b%hz?YVMg5踫J뱜$LѪ Ra/jD_@~;;c~ &PwsO{հjM8,Mo?M!q$99"2[WUtʣ?SMxx? /h<)+8)ߍ)3 K#ۛ?~"S %*^x-rx2)1gR'$^LI?rxZh*ſ%nQ֛kf9? ]&~qTKǏ&il{1c?ś}p"`pSo%Lhg`kʠVա.T%}8?@TlL0ļ/ і~ ܺtAּ"((NϻqD o ChBYswO@N]HtyT ;4a>xBLj'+?_O?_EZ&'7i"V\G_K]AAdST]^ӎm^ǵGQw9CMKi~IVm?= 5'}`O$*sYQxqHufݍ{F׾),&JDәWkTh霏lB/ކ9j[f呿DA&vow4>cq9.[?-nyƏ~Ecſlz?P:.(#t=߾)9M?4wTg9(ЅVip4>($v&@#,x쯜 m_Q# <&qSlҸQ-пc#MEm- ĖJ0Q{~t"3uxMs,PBEOxZU L[A 󨴆2-Q@ӱǸh!uԍo6O[ZINnTiOEQ-ų02zpec߶#7'/8~hܺ_cWe-zg쇽O LPO?LeW03~0㇓y g",X7r z>Ǚu]"_Éti~çЂncɊ/2ygU9W+zz[NpTYzT~<_b x~Mw\<^RL&9[y":3S*}1rr)X~z>RI0O Klz}Iϥu:7_;4 3Ӳy:7>:F\w@$'gI7`p KM'ChֆOz8ҺtQ*Q`3yDtÅc'q-]`:QlfFħ"ZI>1+wE$J_X-^M>0\ߠ޾Ŗ?wJ1Qӏ.Զ. c9?MoI7-NcYRJ|37=MXZUT}#w_6}vG#mPg3_ v̴?&!'Xcݶ۩^keڎu8yueVǴ)-KǜetˤKHeH{~y|}@dʺ.^\?K0fp_d$mbkP?t,Z˿"zdL&g0 ꄥ ^{P C^S1.pIJt4024 '^S7&K@AQ"Z۟o?*<\s0ֿ?DzF"aާ?OwmwyW K?%S[.z}}GނKꅳh\:b…x l_k0}4{&Z4C̳5-"㴳qu#юٷUs`Ĺ=&:][W`߁#H:W͸ gQ,'Rl :]Eg\01Y#ŕ;ƃBÍ9cCwѲk}$>H雍S1lLufʛgtfa* oY*~/zd‹ X mo]>΁?hΙ8g@g"8BL2kWEocB&&6YʽiA8-kl8 qbALJt3?:. Ltt]Q;}Lul_vʗ.H^#. GC"|n[۷żo8 Ɵ+I߁NmۣWZZlΦU_hBk3V[r&IftOsP|9KT"\{[kmﭤBG\=J Ҳ!^n=?TZԢb 頯(K$d.O8h3 Y?Rmus6p"E7LxMVU IgDv #H얅+[r~͚UXqЃy8rC5nEmgGf[7cЭ9MV,[uIC:}'ϲ*mO3jVs#x$ {uyС\4 G`xv&"m&,ƅ6~m'{9Eư?#(=߶=>2GO0 [1cofž`b =[Ϣ$71_̉:.TVS7fGdWW9ǞHZ!$EK }` Zt:/ؘ2cgGk HGJ]}v -o!h@S99m 7bz{Ɂeqa `\i,] gZ,GKBHL~{ -qM)iLE2nۉ41au8dN}E]^íן$_D|j&~sGdz7߈+3bKWz 776,[SѭK \Mҥsڄ7wC8% F[ =wiBPz8m]-aЩ peC^ 97F_RO3I!gdɖ3FI/VXѭCqD8\uo^+;,.I}{DZ"-ojk;~/DBU}fD.Zlѿ7 d-{uD6:$.,pg ٷ+:o t}E7ZLo& ŹK2 {Fc@= G K1QU/vm$!sd==VqzZd]@:vGy[N'_zvE*TY%LJrd5S|qG2# >fXȝX==~[N'}⧖ F7݄)Ðٹ3bt|Q1%^85@<끄oxk|țe9X_~=]ܕ=rr%r(S$xȰRx-Z`kߌBPl].6K⭟c{xw r%aY%%'C 8s7߄-Cjݖ{[s >UPZ\P.ʖС< ir koŦ٘vI7o121 mA{ ѶbdGcb*٥όhL1 ?oQlp̠QhûP6joc}>{g]>t^]_=OܷL=HGiƟܼ7}x)45}b/ =5b۱9y kBP4%X:zI]]Wyˁ_Rft Odž FďڍpppGO_G?`^^N6cC9 [?DyRMMOCm8zңol=0 t7cCnD%fzXi]G_;k1Ի6/vv4HzIzM<ԯE^WF&G|G礿 !?cwkEwYz7=RE5,#wRCϘ*Ý=V}<{8Imh<VlRbWgmSImc͆<"9fPHnKNh)מM}'܌$e[A|o8|X)W0]:'99h2{)9~Ԃa;+qu.?[8^.ўd9ד7YN޴ܢGC8ڶ(c}wu;V(#5˩"{-cm> v 5W_lt?6zxh@7L?&~}aL0ď_sؽ/|@φP{>t^]YM庭ҋ7I< ;ij:ikΚu$聋XLp*&j&?hM ?Fyf7MwoXT:'E#\h1{Ȳg6WHc_$RR"^!)VZz'nnجz^k?]F5ԝF6[f)r w\sZ8޸sTFoSnJiMT Rj|ݦO|T*?G$nx3]y$BAEa9:ڟHHEXlՑ+jUjD(ج9S[u:OŊ,WWiƦT|Sv\/_ Է@uגvkП4Fwi)b-o$otU,f9&m'ruWi"f(^x=״9GdLabB'?⿳؏џ_*(z"W!(&iɟ&r,`;u-g!` >yI,.*1/dX[Ϲ!C(Ԅ_0`+~BC"МLWmf⏶?y:^Cz )^W%tQ'HCyk(kَ(؟o>ki◉&=&4|99/ق$ H|ĉRU|U6]:|qCo?|}lki)-PY#د{ȍ0`xޓ^IwP<|{t~υgX0.\:OW`y:$/Yۼӛ=owb/ŮrPQ7'9ox=p%8WgtDXK;^x kD4}fWpd!3 GYYE(۟O7>&? C&߃FdRv(T}0r ??c篤G9<`~#flPJ*\G•[ $ֆ/MwqȡYϢ1/=.2k2]ӸK-rGA|`>Wc_c2_냿?iYڭ=.xkR$9!Y_m :~ ?U1s"7g0["`pWwJrv~.u :T*E7=}Tb$*ņ{=OreJ>'OIc]Od%G> /Z\9ᔟR"璤DE&=\L^-=W9z6@:7kκC *sծR~x_KKv%*6i:?y=K'{rq7_:.r9B7BҨ L̿TO8NIBlcoxܓ. dU?,-=HR1.5>5 ;RXc yibK5d?RNj_1Gcp?Jz35b{`/#`i8qSlNNpKj vB@G:}~qyXkR\6y/=vt_X1٘rUPت^~ Bw-ד ^p3cLJb5R7ヿH~_۴o: zw'GXG#ߡiw܍~VKo!CM:aa}и뫿rTuObwѼ8wqO9ٵ;v(\9n8lc_z>s {˰ <ҧhUöK"ObM[L?/?O+Q|#f'#3$Wsu) I@"ʠœG@q!ZD#s,{` фZ`{x~J}u_C`aR7[_Ok/zUS1&= ZfNn]$ $aW"#OiYkV~h3j“ 8J&̿ן5ϲG#1$tUt'<렿_6w< @ccFfm◉&}',ꡉ%͂Rj#^8H\% !EZ~JE (*h#C͟׈rO"hJEһX?Ɵ=5-./5??.qugVneZpqʜsW,_cg-/+BkMH_eg&{_#h0w꜂KO rM RxFtz2S >?&_1͛!%iL-B1A|XMw⓼%NGӇ"FL3a,_&\e \4e6tMbߍ/W.ļ'f_?#JP> %,_z H =+V!Wq$Z?uAvv6XG/Dv@,ȤȉOZ ?SQsR<ぷπaXY` l.؈:>s^FuN3Cq]!<P鉀Gߏ`Inm]papTirVWm& C~kI$gtza`!m#q,ƵAhU)>m1 ~9=x&@IDAT>.{20zi9E <4 eͪx|ʀϾFtE"g3BoaQY4fqx{1؋_P*nirhUU]6W㐇hkyVw#5HNiΩ?*xp׍´d/ּ,^qOp tkfd/{[簽KZ7QfNB:vNj{a}ѱ =~ KLMQv揧~/=Nݓ6< Xܭ_g^Ć"K?(tD{fH޹ sHqSN+ ꏞi rī:?$m0TUV!4ZWE!Erm*b? _3Hj [Wi11~5_L 0~w=@tjR]58 -* hC1.Jai8y]-~K~u"ǵ: &NBi…њ{[Ccǣ==֭A{a-[#.==# x  2_ziMKCQ5-Z`ODf4Bҋq;^$#GܐoĝSI2˧BؿL2b56؜o>g ~~~)ӊYzųmaųtDWx ?1m_(ž!,#\Fca.#GDbc#i Geb]hGZ?|<2t Xʊo_)[Sa)yX)tT³KD!g8@'U8urdC9kx 0uẇ0_re_n۹Q]ŘdGPXPbHldd?g;"@H߂_ӳkcu^GO[>q\ | 㻻?bMT&u(Fʋ7\)6ӉM1t:rw C3ȡɀ+6}&:pQG7Uy^+Q|_ Xx3ր >YɭPc)fz^Mn2E{pݰ4\n)P4,}5+M\wVx=$@Mc'V7<)?H]=:QAlדfНNz_7\Py .û 6ƣ'#puSś_aceQ0Oz_Fz;ENz^~1ؒ- @/zJƾ{]| wGqi&RSz,*ȓz$M 뭏U}*ӯ!~w-?[]}Tğ ~C1GGv6uTmН w>GVK굍jN߾٪)(9sHN{Aܪpz ` -WEVO$/u`QWOK {o*^\e/!:e/r#[qB{?0=hDaЩ-7Y@B_ts5ϻlB[`#z?Dc+mw0LLҭx ,z +wi4Q4o_s`Gԥ#oW тogAhs?}'H$L+ o%X|T`҂yF{Βl _CgcW~X#mR_rhhіbǎ?&~a⧌NtУ;6;pMc~:_}y=kL"_F\M= Us^qD>Ya[3Վ`sJ>u[?w--HƽM[x›+ϙ`cR>zNMs(++#U??3P6c?90 <2["`pUsܒ2-R_;$ 衃(xлN噟}/qjb d:UPcYzʤ/W~VLk)U `,>|̟36F:uxxix=3ūF"Q3~ ͜ #]tb <9bkbZ"7#_5wcOP f6&[2)V`?M.#(J @W!-A?NPgZW`+*'~n$@J{ 5_t,4B& 4NPN aPD$=v tڏP# Qď5^ jBtjuꋟEY%@%Jf߫CR*腟C~HxEll\j# 1d/Ҥ_Codu *ArKQ-n%޷NxDz :G${p2{]U9M~E)ǤR 2sܮ7DG雚ϿUszrUe}HݍHQI-y ;Tש?/ =iXl?Oj⇱?3gh}1gLk=".G"@3[0#`rG6Pq>RM3i@jQaGٽ2ʳi_#e_..?;J о&%A{fb+/J@avlX)^𳄴r1 lHY>SA?8ۏq_FGZ4iI U\"5Hwht` KtWaگKx֓Tطר?}6|>~ȥB[\dcڔWPGq]W8~Obq7ysݶ6zvUhZ!B#|>Fg_74$+7&|}l94Rzc4=ta!~T9.H1o!]VXɛ[ugj#ڿJ$![Z))/%ҵJhդ(Qu[H,fΜ~hQx,{aJ4ĭjA;~<؞<ɝZ&RmiV|ZxUH/78Vwᑩt,Y}NUSF"I ޡիzwϑ;tyc߱Oſ+߱ϱڟz/c?~?L#$Kp1c?-X0 89:Yqa֗7.,U.i\DW zsՏtMT<\q@iӐH3?%Jù{h!z%ÁHzy,=`%ET#'<}Mk0Fu:2{vAJcF7 OD4Y_,Z~CoSFBԢu ]M?(>?zn'jS?x\,?S }odda3лG)7߰G?r?5?Қ}5K_˴9t6={&ЄFUQWpi4\Q<{Dh.|'شd/F/dF/=54gEoF)ߵ ? f?@Z`p)F vژR,_MyO_J V9TUEK9k?Q_>Y%Vj?ڂ4&=xZZ 1qb\dE!)vVEvll]ug92T9KWGw|6f$v&<TRknOaC%Izfa[Aɩ}.a.t̛*:A`UKx>-~fu?%l2EỏOcoSC1oώE&cO]7f NNp# +A_5n5Ec]:%]'v$P,Kb~2#7K8ҿ\ghq$2kDHz zHu/ȡ_T3?c?~_JPbMDT?t@UD?M`oCO*fÀ;gUx8?&cxN7}:>wL}1}0ɊOe9?7?kF?gcd_6.b#M2 &a ?? -x0 ^)9iRB$r)א&GƧߌ <13#,磘^Ry'X-T#ŲܒUBYS Rwd<ͩӉb0DYޛVQ]KV $(@@Y*.hj+V\~ՊZ*ZmZk*VDٔM%lN Ϲgy//+ ̽sYx&5ß>~҃`5&M d>/|F受U#*gXٽ_y)z~Ug9oUSHb=ѫ~5'h=3c8C| ZS|xvt C񡏉NI|G$}pŎ:cp_ q,KW`ևޏt, RiY <`^x_TӮ! KK}qYX0+ 7a֌mAǴki— 0SAxF9|W_$a( ߮=yvܥSʽYIь߮㯍*"?A'}ɫnTow۲Oc21mNNwnb6 RK Mn/4G>qO#*0^xQ*1r>d wL8+}oڑ~,VOwx/^݂=\hf?C +U^4畟0^GZmk?CSCO\!y4,t'dE'sj'nPl2Nڤ uh"͉lC]{A,Ǣv,fcެj~ᖚ"26-[;V|4ต?^O5/N2c%|1ɝS;OIDm7Gzb r/[y i~íE4 *_|M[|I<c ǎ&Hܙ? [fbrEvec۞D0w0sJbfl^xSP~.o6>G xGL.>5*?2(>V(>9M6J~Ψ ̀7E(:݈Pm3vYXxayR+LA#N+g>[|o?>\ Cwz}ڡ՟ci <^ءѥE ,iSY SiN? n0_?;S)œ xjg:h8wT5vgv0m -ǒodýIWA_<ARN#GKOW3550^}b=㭜i?]cnB.+ck(I_?1 {nʀ'!Fw,nVsHMH24nޚ pla~NY}GJmQӮ:nh?+~(F؟F"["?Q{-t9 81WUOU VX=fm++O֞x֦eTs]F:>K[O i2>n-loU o1v\ =ey<h|fsb51۱Dg^^1{FϬL! U;tF\Zl =giW;.#ZBLN{Ÿ'yhE_D_@}5FuF=Ԣ'vď-F?^W6=q.6|^N2<3CBwv4|ŏyOIԕJ?Og٩hz06 1i=Ђ!ևUW c_(Zad1H;"qhMj[ڪ}z)>#%MѝX@!(>\w ГCg7>uzk 2v/0=R:U˖hߑϿN|xyc;OYJTv1 >Fq q]#[nbk?_ݏ^r)&̈3C. 7:YӗЅh7E{53"*]ÎGߵ. IiaDZnl7Z,of!)5DZGp+7v۳9NZ'"u~R[3i)oelgYHIzYI63YؖHш I/)ߞ}0<ҌBt1݅_8u[X6>EvbsAFƠ#}fϗS~1>|9H_c })n0}a,ǥrI4Xi|_h_0~i w_ ҳ1?C}N"yףk?CѹC{s@BG ?=b,#3 е-o8Cz&"); W;x\2~ϡHoV곇kotRK)boGhm.\v%r_6p!o: c?u_=O|Yz=3,o5WiLBڗڏ6ڇA?/Igur;wqr$܁[2nSYy tGh c=,MCp8^ݗ떹2)+ VO#Gtzt8lA3w`/G'~ЯwNw$wJEf^8+ EbO@/c3Oz5Z, ;9M:m;!Sr o=]U!5%)R95#"ˊj/:;cn՛ݼl _AO%́+=`a Xexmr^ڟI*Po> ]Dpy3%V_*)־H9֧)~o ,۹w@2?fY8Y4Qm_݂0i]@ɋGw5n|D!W62$cfAC"LJhbAJJq$uCZǬepnxƇ={Q|FWZo]V,py]D'LJִ*7VǴV'ȯ5 %(xxƥ,DpT3fM-Dl tNNFlꆔGoϿk?a=PB]LK wyd]p&BNh]s$^y;^ֽG"=V9>3^5>,(dwOGYYrypv}G&L@A@d%%ᅘ|0zG"IXH)IѣK:P޳yX¡? 2ѩ ~e< q 2;ėO g/G?g֤s});B,| qx݋{&h߾AXF]A~?}]+=6`Q?:>mo8x%"fAM YіڽsIa٤(8 wcqGצ֧SYh}⯉zu%&?-ɟe _ȯA*詝n,|]a&pCe1:zG=c(>Ň&>F*_{{9P(vuCK`7KPGڝ]W`zJ !3+hrEY[wmX[?!9 >V/fut[f:w:++BKZ|>ǚ'[RBa) dUaY}/ =E;)[Z2вI\1 Lg$+}zƣ쎰lZWFk&~bf'/`er <$4 :R +衿S7 |b_*u߉?/k6~L:Q1T>ū?^^ɱU:S?cȻ#?N?{xMUmm]Mև׶,0U9oL_e[Uu^V>j.{^ݱۖWVfdoa+,~ 8ܑס9o^CAjŸ*#/݊&eX[),,J<74_izwW/V?]plTe>~V~~5qDrمpGS 7OCooz'[x 4/~,ZZW['{יB)ެ 8pV1;zo jRg>n!<$_)wq2rj…kXD?XIXSRICGO@Fz⏽iכ!I{ D93>kzӊV.67±K/?3\OjU_(8(Vz9$\.#purcT_fF2V.BR@eu@=yבTڟZW2&&R%:Z{ie|,\s8A_[@c*Wgԗ܉>{4JJQF/(o&&>غO><Ꟶ5?5:ǿ/'UCFХ[s@ }T.X]`c[_-;̶޾-m2{{Z"}҆Ko?I"F7UQamE4hC󏆉{|;fXdjVcw+ѷG:jFgҽ|cui~G*[o }UWo]B8Ts++ ޖئ6}T.X]`c[_-;̶. VXf} 8 cez9Xfϥ41? _W#7@xyj^ްWR3fG WG~~ًW7Cbw3?4A͟5Y|cMs=&W*;TQ,ev˖״]0X+Ԃ% Y2MpgG%a̺r8;tO%e+GQQQA'{F"BMXs?j)S lIBG5o`}:8Y'>8Ot$?v|2JO۴Qޗ<)0dC^؉SW?ml`Nh)οYxL5d&04QG/GP.%q&в/%74AO͟BG5Qg'+8[r@pBWvr1t79sIqBo2#nX))TD~oPC͟4Yg:2(uo^? IzO$Zor@pBUr`J䘦S]NvB^lFEo+DsT~o 5^oQX9=Pi=+ oV[jhQX-4~hQ+ EN(JC3'/lx@$ɽ@ (r{xOwW~jX?*ďVC㇉?X=4LG//'3YQ21-ϕVD7=pƙ*CQÑ( k/A_,E'%FOb+DGOrUQNnW=>{( 8;`:Gԙtvk/;Oz@\瓛ޅ7>uQLWmm^/?Pq?'?6kP~'T%m<ѵ;;sN.0n= /=Lg[Tq/ֳO>OL?I_0/&]H_dNt/~T*7ן~ʏ9鮿?`壑Io?gIx_wKˎ;*GKIJp4ӿ[~ ߀ &nipvV{i)Ia'*7.jvs[g|u?J%%q_DΣ&j]}VZuɄg=ߗ)OW=p8/XNj sz؏J݈?TUUkZM8W}ٟHOCNJΡ[ &MfZ:wGz;a31IɁEZL8a(ҾSZ[ NQ%NX%reц~~ǩ?F^{F6̯aYѩE%\? Ȉ,C0|zW~Q|P)K>׏"\eo. HU6#F7CSC~OFTňΑW7S~:~yx\Ha2^ujeS&b~ m~6^?~hNQ}$RW^GV у>b'!IϤϽm[rMl[]ÇIP}5s{?whmH?Mfsmp^^mil\Ta\Wu1 \ZR'l"/.CP]8o)aejΊ`Sz׋;˽#Z7 =K~J2g0h a/:\/62bT? І_gy9gyZ=ms|(G wZ֋z|FbeHY3\X?};R߈Uۯ4U~O~Taڟxa E8(9d" ÖڴՕ=>n/7nNnFuuAo=7u܋/EI,=0 --҃شK«X"Qi0jhtOND֑hBJª){{ox.In&X;xO0j8' 'BgEDgyNm-uw݀uxWstP6:h1Y/C> r^~Ǒj?[1&,4kcxhLRZ!g@wl[|cOK\Cqy?ƍÒQVRM;t=ΖKOWt@e˻\m##p~<@CٿQ-s, ׸`dcWz##9 W)۸9kwpqoxD]̦W Cn""KSKNܤ8#9nv&n) Dڼs=m(n>|EțŹVe"OәpC\#7S(ne7L,9ωnqeXLo?Ka^#彌3.JFf,`bxmJ+?۟Gm2^FˏbzaEQ$Q^'"::^?Er翅w$y'Sۖb33 .>Fq Kf|l^k3q<G? o"< ۿx<=۱Fw:n#ʱkn i ?>eRڌctvp1g-?fmHԹ!8sW[/~8v";:8>{yf՟^< QNjsI9e=6ʩkW>WMc{ 1}.olzʽ2Pa+T2cP\GcEkcH]RQFe hDIMEIX&8E@IDATjTbqˤ/)e/i0e?~|^*':&Wm;$'?^QL_#";o<{dkkNlI=/.G9niߌWt^O8R;FqsAD7{|^_Sg#5M`_L'n6ov#.% Wy|2M/?RJ-,?\tg$RLl_3b'n7G]t{їt׃ߢ*?m+?(|ZĤo SxO:qe$1=U=0|,\wDI6%=^S[۶;# GD|Ml %#b#5A#w/U\v$ ͉ő=aZZydrveÿ6A;֪E9jєO6^I{!Jғ#tү^!D'-xTv`7n/%:0_'zhKOe|x+ўfdFљ6F'g`3gpgcR^txv֋g9ؽcʿngSbGP|f^P|8HzfmTE㯓CpMvg~%:s͌?qIn,޸/Zei "=!)D_GGO&:E7/y?l.t'te\&kSc&hRśq)Kpz/7~6u_~?4z+W0޿alf umt_r~x״xCwˮL|ɽ 8>o,)7wҿ?OPid;7Ǽ?N7~1i?t'ciHl>^#.DI\9l ?4;_NwSs&[1d1q:: rf79So-1+S^͋m17ݿ{y"8~"LO즿ʹ/;=q-ޘv?;fL#栝}AcYF: :ig8Z&T*{)NCo?~SF5clW`ݿ-HŻUԟaeoK9n݂?E"38z]bad8̡R K8{=bػॖ_qfh{??*&vMzK9p&7=a%͇|qbKޕoi|1G>Lw⦕y0tCjOR܌9F)n%i7Aq^T\C/(~7_ .Kq0tʝd:vk!.&[aW/='8A?-9ӓLMwUF6}$~ve Q7GhysWøMm7ۻnrK ?Ba_nKה/=l%9om7=K]HLz{oE=0u0Pgɑ><Snpߓhs=:?s =tp뿯XTjEPna-K?7vǣ?㢟,ވm'3r_cν YkaGTnyǺ=0;JD.ɯ7&g`o~㯫?G|fzmy3."%끿Ql{/f9=B~KwbK+Xw_?RSgI(8`/J2)OlƲSV&_'L[?Ɓqfx֚􏺗.|bQx3-s?MsJ#";xo SVxļ`y:A$.00a1r\Gfſr_8i/aYf87ߖcdG K}m0}:+ >r F+T掟^+ׇ>=Yq?%<~GwX@WsxƞKۂ9@Px?<whTxp*?՟ _xdMcD6n^ ΢3O zbXto_#Je0]i/s`n9JX1~c6Zq,+tҺmNJ뛈7Ex#}2YP'eVFCq,Z&?ZME49Ͽx&1I?8qh&/̘bnzZ?ҌˏJ0qfFz7ۡE(c#q͘6e!= 7u5z5@W2Oo~mTP{9^K-|3zM,AaǚOik(͸h25“^;7n"w*h`:Ke0Y1m ?=4iiWnog<@_󍿩oQXN1v93`ߺ>٦;t~ /&?&]#FEE6%_ۖqLo\{ IuZЭ%лWҍN.V"oEqOՏۆ#(s~KX#O8O~?I%+wzpYQ~ /<+l?:O,5GG'+Sz!a(t'DmC0z^LpkB|u[#|≎XMf(߷ ;=c3!`iDjGEDZ+;xkBg^xF0sQEx oC)wso^xKԖrso #^WnNH?J߳S,4 |1?jho҅ҍ_;/5 *) AO1aX{|ǯ]Hv$f-I+BӁ_rq?'K+_W$K<]PcO n&o?,M_H = ?HO|~|A~Sȡ߅2ܺǤt:¼ʖqdTpdSζNsUZzgm#j3[x>`KD8~^cN>2g_9-e3}l٦ӂzExFmg`ߌ{$t>7cZɯUMt3AW?-p`=ȏ 61Tvv N@*|mt$vSx[` ɞkëPi~4~݇"貋n;Q|r$2fqk^jFǏ;י=}\V3$G ?A9*l{Fe }/ʯE<ó5TNW>HG#NA'}u2(\1?O|PN=~ņ2+uL#?C9Wmمm6_KJe'"au@}[b*ͱe+ ״i NWW}?t!y}Yk[ӭp&6ҝ8|׋W3jvX7~9lzN-љA=+!-m,o\q:"j ~GdQ?Jk#3m S'M.Ή]v.qcDŲ?μ宝rK)e܆3Vi'qr E@XL?2u=dܸi:ZĜ쫨qӟ/'F ~h(?;ˁ[nZZ xx&ޅaq:n<9m˖S>19H{ߌ%_UϻFʗ BPlJ cnb@\ __pH_[s^{sa*=li:u/(Y0x..? M{ҹՓg?ųQP<]{bh˘؛\㳙:6~PY~ -*,|v &SpN~͈j`:;~+W_S)~ϱbbD ڏڏn4~&OHr@pBRl.%ӴIf ;mi5 vabq:l;vVv}OwB]XܲUr|;$>SZ3pahbSm§~/wo~icF:v ~SOp0mO:s?ݛmB/zZ1XdeővjzGVFۅ:Cy0 ~+ތ&S>^yFop_Zp"JIu?T .7+ȰLKʤG)Dl?ŕWJ\iMqJ'Wr(;.OFpbI KWoefP2÷ IM񝍛4>G볯L]3<3/=VҸFuN0ftK4=FﶴPCqI74Н!G;H o [;LiM/PYM\X;6<{7F鋬 P\߰x5pEqB#^1?/}=Dm D '__w=NdDW} ?(³ڏx 1[,r`6=N̏b,v&WNPP75ƆL4ཝKm}gY2adq0~/Mx4 ̺S$ӊJ=BqWWdi;,G|%n;v~#PL|bh$Lry^zf h6zn^~>j K_p J0!{'m-|&%Ac# Ӹ"Z]e+*zJBa7'v3I@<m`M޼܌[əSH+Ӳ`%^Z4sa- ` FPQ7`X8\rh6.OVC~ƐI?,wkk7t^XҖ{<((?SƺB(u?+Y<w5tLQ>z=6(wyL~ }hX\r&' ֬eIPtC;#>/}hnc0|Y3~:~,Z qW:԰ظd4w}*lMC.  GGOB@':ޤ.}(r@pBQj4[gr,+x77YC#_1Oe,0-| SCh}z`C!Sſ Wd oN*?}3Kg.y_zᅗNs35̉q%ԠLϓu'OBZ=7wmXXw-~.m0FHoGX \|a6q%Wɵ_y/MCd|*:ыWxCĞo8匾*e؏qyiط<9e=ڱ|շ€(U4k^o~RSxye)˯"LǶǿ]0GWY\J߷O!Bd4F۳n п߲2U%֠]x; F~7%:x|_z.S-`:ﹷi|Ž_^gYZoEr&[HO`Mtc٭q~鉛 &Fv7W ԵW*ɘݱ0Mز)qɸ`d,g:eh8=} S̽&g*XpwZHEfo׾ G^Ow?9q-~V_\Jå֭A@ 6^GL[kG^GH=d.Bg9F wFЅ gdl?˛ _=~1F3H?FV"5Gr6u':؍UgI-gG*cHψAy?_pIZsX&_ ka1i?xԞn&(*9xv,L:~/*\oNԩ;ڿ;Cz!۲w1c.yǿe&Vc"gX%@OmSeGoNefQ`Ñ WZrsY5~y!}O!1 #nQQxjW_Xo*Dl;?:+=v@rgHCU eV2ٍK7dn3fUnڱZx~7!?xvR?2^z{#~2ҟdua^[Vo27Jn}4[Zh_ =̅?_Fq9Om2⦯/>'K ~30KM;1{t3|L% [Xmq3G0E,vc!Mp|׉;%~E1u4Lšm9yyϼe4n7A6|=~ɫJ,8 /5 $Mp˶ {y}B̥%#'z7~P3Lm:[=å.Oh,=aAF_#jb)/ rOci+NjȏN3ح7#ev/maÑIr§5rNܯ?[1 aq7tK@ٶeAz-yc(GTG> _y#ҹsxF?fo `9ŏoķHfM~kƧp0^?f2um{Xhk /+*#Unxl ,),_<<#ٲOݍ{ ײt{ 3D Y8!+:!ܦ1hbMn- Kpe'"\0 YcReT؁ `%ݔꏿhd8o%:_ +#&1{#E Z} sD ͏i\ d2:32ǐrp@*.# t#s 2 uhܾ3>='c_‘}$ZXi5zcNp_0Aӫ>FpEVO4 1c'阽t#$Ř1V!XF7C萘HZycE ԠܹZh~j)t1+XT*ڿ ~d Gʏ& !JO94̻{/uO؄\\L$VYkjCWLsO ~~~?A1{ NS_{1|ŕ}9 =gqeWrS,C*xw΅?>L~d4~ __a`tn"=uBN\/qs7'2_~9Vl=$'n6/{^#x|C%n΢S'q37аMܯ'r_l侗ށ>h}WVAIs>Z.6˱?ȉi _W?'=QzC7'> ^'p׀GDzW_C5w!Ql_bk?o;.gpTo07)RV_@p';TTj?9GlBCr މQPv˼m8yeeS|MTT!k Bq}xMeKA#.F/YcBR=;sTFWQ]qVjS ++iТa> վVgea9hW/6􍘬NhS01<64f0bS m ¹`ך|'k0~2 ˹QĂ5Ǒݧ:%ż蒄aԏQ1 @޽h򛄦d濎CBbj2?]:{%:;2bWnv7tNW4ULcS92Dx/V"*{:UCO3 5ۑ>4훒lƛ}TkUSWx0|ꑧK+?u+v,c= iEkZZh[>[uH+[]ɿtGNd#ӻ4aC?cNO~7٠{hsY9/rB.ݑKtfd:?#?Ե~ 5EHGYY|y;W +i!G$%mOd!G]?qg`cIthsYת ]F1fIHHI7qs2X=o:R{߶ 6qs>].;~Htm}/nV6Υyf,5qlLt+ҦO~Psh-qg }wEzll~{/}͐Td셜ltMz/N^Xe6wN@c_n ^H|) CHNhMrگ_\ߗ|-T(M9'xC6COʕNv<9#dRrDɷO3 Nk9x6Z:[3U·D߼hQ7)nMT;ׯ8_y}TQwK'nDn^ZFD`׳[Y7|Oi_<:RV(ؖt=cQ>/ElVvga׎dUg-Ĝ)zOSKrʗx?^5a4!]wv{W:_]]bPr`'.cd+_n/Cwg+)^w(ʾP[<c?#J^WfE`d^*»WNUXjx'' Yc翜n޸ai ڍg A <`eU۾S>m`e8yc*۪Դwl5v˼m8yee}Mv&m2{[IKZ]w~rgٲѺNMXd/,nt,?I#/݊&eX[s2M^/4yڟ6~?>s3pE{SCwjϬ=v؄נ__704x=p]^m'm[:sV1~R[kWݕǘ#F/m޸^pXqdnϼ++rᥴoMU^-9 җ{|`ol ϤT`7["1 ^TN~yOw嶧;.Ê -ПN7t7Oͷ|T,뼝^SwcWf\ø/P6 <u? (|덛&>8z:57ۜ̿b99v,|ro䒵ڟ>AHqS?q@W7__VHjqШ,ẅ:d!{OTs\=[/l;n?._hLPf/щ^1^nIbkoOPK־T~*ߟml2Vft?UN`d\7N,})͊2Jgoyڇ^Zq&4,q{CUBiOr# EN(J-fNH sRrKe:' ҒDdVO.`ӚB; wɅlj iXxh杘1'UmVa{-O16}q[|FTEQYWXK>WU%_篡7\DwN_G;7bܭW˨]GG=W(9u%}T.X]`c[_-;̶~&m2{^8"<ێ7I(0B\l lFghY^^&byE-gDOWj`ӵ 45~h4O4ɍ?iϚ?>~LD}N地ys Vfam.1/{6ءX͑ GR)3T#g z{GT~t@S͟45?ud@UjhpF'fO?it'Qhq@pBK^c'IPVh LRfϹ3K? j??jO35I`"Xɱ5~jS͟4~'>.8+;rq}0Wʽ.\#)3 6}{f^gêoxo-FG. OoW N)5~hd+SO4~gM4?5ɟċoq@ =P Jq8I'u )iM}O?j??r .HNX&O4"SmD?4~GMhH/}(r@pBQj}z.` I׈CdiiM^'C&A'e“iklРϬ:^/zIG-t9 8+;C3ucFɹ,MdLE}UM^g.ZCp,EYQ!ޔ/T&_?XD#DcdB#09m' yC3򗸡3!\dE)NoWS@ΜKmK矵G?!] Yѹ;i)crd]֠݋*xK^'#v#~C 2WC?M7܉3+9afC?zO'Ds;[x`.0tb-}DO-|~~C$ȁFHr.&I1U:>IKr/>?j%GK ""% 0/k+?j?OrH3~9wm,3L*6~BqS:1 oUXx]y4+T~NrxH2K9Ҳ3Ji:D_ hHǚKo(gC~һMMܦXՕ-Ej&qfƓx6Lɴg`=1MH7HMCfq?'BkSB(x<]~(4`u?l+wHk>`T9C>9-AHr lM ,Wwlk`畕'kϯ6QQ#(q("Is_+~E=6b J?}dxYXaPΧ~ ?Js'<7a0o,|^xzL@ޯ1u 4㯸\)rmG˾mPY}}d꟥hS(_v_G!d[v=qo}u}Lǿg&X6YYwߝR•'I?t}k*_6 1A 0$!A W`5(r WDt]q]ZQ9M KHH|_UyGBy y3Uꪞ9.؏1xD [+/aLn0+qiqՇUq趷p?[ bcۻܽdՇ_9s ڵ>wapaz+tnk5-_7r;7?Lqs,zW^i?Ԗo>|`Y;IU[Нy]F++_7jDVOYd-3Mb+HEF5nG0hjLCs삱/Gzh で?R:x}tjUkԢIŅY yzNȤviϡ_(?Zy۶?ᆋSPr•&܃V3OWR@7[0(\DGAiqثfO~u_pv %몛1{k%gI1}/VriHW:Q\i7ھRp?qPH^>Xީٟ7[ǣ~#X«7ȴn7o|O1h*n?+nn_&}(n^Nqcɓae3ڿ猛/0G4WQqswAh`[pŠ^oG~(N_rNQD7gL!ى`w|&ϒױi= /bΦq7}ԭ29KfcjM'mp/؊)3enȞx{wU<}@IDATR"7lMp zvbKaɴ/:r\x^2Eu †UK0wr/-{8&I S̙2[J--0d`t;/ ƒiHKyQ _4m[1W_}_⡧R*2A#2ɮxڸnnhS2L*$>jDcR4`?OUTRk|V*?2n'bSOainy1j?1wݡr۟/X;CaH[XoUxOF =!`qL+/c ߒ j PN6SlqC/|v|N>/r $yF߸.D]PJFO=q| Xo-hȸLF}(),#ŨV/?sibȩj3&aq!i"2CNmpA?-ۦ!).= %?@Ad5R@bb|~%b;35Z~mGG L)@Q"1.}fMa\([!e\u}VH7K@Z(wO=}5'Q'4aM,xI/hާ']$r|ӝXR??fN&_П6cjuֳ8b[>C/兿;_26mdrN))z$M( ;Ug/L+.H i4EZ>R:^w+?[p~b=fty~!$gj$g;t$,s|"+P\93ŕ0D7_ʭw?"䬺Njл \;EK4q ؄4E#탯k'~n?o`->:#;"aX5y|ܵ5uF~_l8 "\˧\"zyU?iظ;Wgq11~p?0׌L LN`ra_0A84pJ']<ogYc9r˯rD6}ux+xԫMw0n|գ^ots.GoW .7s/AqSi)nN^Iq3GP#Tq|d<*r$M=99p25wb)nagUGq3OlBkǕm?zH/q+-qK o##:5l-e8n6m*\a*nDߑcXGImPĺ6_og\> JʘO)*eP-Г`ԛ0wSvӍB3# |Y oM>e8o':7]i?')"_25 i}1!kXm-`^,*,NtEZvpn!Tq;HTK7 KnW  A˞UtTQ'IN6:CfՃ$qtOgPb'BB]ͤpĮ[dw4łMo`ʋkY-ު1}kjW4wI=f503I8mZa&t4]:T@;t 0hJ~)&|=vZ~EIqݙn럷h&졋Ӡ&k]Ixwv -[y_09DMϷS'Z5ǿnx+h21`~zk /$e?c{2eQ=֫IC=Xg}I3dL3?j "Wk+;3xo}ԬYuT'̊Tg*e㔿tg{epZz/=;~I} nDq6  _>il;NCDW9N+?*nR-xQy9nWk⍇؂V`'UnL(q#tZqkFOoDNo?ZX{q ηoqs$/˚ rUnm};Ÿs/#m=טUj\׊ӛ-?@GgbWE50%o(Χmh梱*hݔ i,F)[~qN; tzZ-7ܒK*7sҧມ꣤xڏm)/#M+!$#7N͞9,E-XCAGfucL;fL**FMՙ)!N DZb礯M5zs.ZW~䉉>~ȸ/DIO=p5ii uk߇S~O[cJNcGe1c?LRm;<$L9X{h8i'+[S'ԅ }sc J 1W -,'d]nXXJ.V##i2oHKLbԟMC?J]ra2J" )z:S6D "J4˷{T% Ҥ~GIڲ URzMyy-*)F+UWH/Z}+^73 jJ;C'ڼ1`wTz6?a!{烿ʵa?^ctԏa{*Ny]Y%?6 YFɟ#;y1Hy 2YN[RM/LCStr 䟚Eܤ|ޚ1d?զRYSq8&bsdzߎZ-7-̉$埤jc99y r9_RsxTz>~WYz9耊Z^szl;JK9w5֪"F n Sz{Я{9G]b:QoEGdR,A<8O}O.E> -k8dy҆?# 4ZwNB;} +cB$z[]/ѝGe_)Gicӆxm4.u xwJ@{U-;J߲ DG)>P#Sc Ɖϓ^xqvw1gqw&HOX d$";<Ne<᧭˘򯯬E_7?c? ?|1T_?43'^mgI.bOrg%ҼRY$Y)-uHIeʧKű͑J_-DƂ^ M3ۇnXmօyp.Yc=lviN|ۣTa4:úY҉g[T5r N O,WԊ?ϓRu @iNM"0ODS Tk/ru?ROX&suVAO7r=by$Fi#~Wͼ~ݒz $^'=41l_>[qN|g%|KrBp+uաĽ$J SEP֏VUHR֕+V&eGb7IFMF2v,%5F,&#?.nנs79 :FS;o7.z7!8ޤ>-[P}EP6S>!*~Ig'{*U[PqB zqh68R^Qi1ះ3]/NtS~Xon@SWE,XVJ{ʿ=0of_vWoKKEOѫ/|t[lʵ~m!as)}Xw|cwcۼKC8o>2 oj5Rl۱v~]b9}Ǐ6oŢ]ҦM/ R㜅'|dTI`E+!?s2?zkr F..l\G?yHNѰbN/-j6_C`h(J~Qc?byOSď2)t Jndp8?+ahľParuխ~CVIhF\Tݱ/dMtaxVL|> @ 7n)Uz}Z/p3} '0>vL0xBZjV׬9 @<5aCuH.zo9huCUŇ~Mn-9!Ѥ [%Ob|^=\u+Sre6F־lEiuȮ c?үpC:},۟=)YWiqulޝ|R}5Tl,rT5"hN<ϒS>U⛟p}IBuZO!VyWJU[凡|yEM9nyHi/u&4/RqS 9L #:_h8ߎ\"N[~"QjnCWqGyy\#ȶ}d:'Lq3n݇բ\p/Zӹ3>d7p~cn>&;C'# 12#R;-K:}*ҙKxҁusGR6e9LccQi8ğg>CAjx-݀}3=n2֯Wz'ћ6USOӑ_Bg9;X918;GQwGe߸I=rw WdRߺcwO "{+߃^ti7^(%MKYwʈ![fY *ڥh:x\٪5+z6(.>j\ݻ% \sP-u͸}$w^\ũ]끌T ?C_Ǵ2fTW·ǯHEDB $? CmhjJOwL,YL],WhsHrr[r*}&g+ u\q+ +U4lDI[CGw&ЮbP9 q8ŹzH]y_bUHx_<=$TK~օcz~+)r"i?U+WQCѱ95c}(nҧ$rAu 7xA/ySAºs?/Brl.Kv3~IB%$c e?z|K9Нʮd!TT@k96뻂ТCq݉K+g?…~1{RՈG'zrzBXj8\\HQ ?g;$+؂-Ey#MOw">9vѪs2uXd UVl2üńkL"hΛލ?a+i"~BAfI1=3_A Ƒ9oW\q,p"q]cz^q>w[GsKFW`TSn?d ?C-M*kT;gY঎ ~~L1OUH1:ۤFx|/XrE A k~ACڌ?UO2 k?kGCxq&%VAcbV$!/l,S85]^&w\%4q㡿 MzCMb:*I'Uc>RsB׎&H銿]4OoW4\3:.X-"[m{V~Ow$ءp;X8yWeSvƏϗު5?&\ I2`n΢tGe݂2, Gߪޯԟ2oz`$xߓ'AaHNMU*潇LDN&!kԹ*Yxf/1?qk"=)Sn՞*⊷租NB:tߵh vSEtÐtOG|CPx ũCx~1MJEX&և9n/~B zs8|3Zr>^V>*~fft؏OV\HqSXwɕ:nA$G~ΰwárԇ[g_baPiCii=N6en`zc%mc@!ڧ,>!Fs-6WSm)J')P żDɒT?h%g=_j4jP(9}}{XF/~qt'gZPpƠO7{o8y诎vcΎV(paкYJwoRc <8'x~>Ez*-?x|I4tw 'XzKY>y䒽D :CvKo5Q]/§&@}Ћ5VX ~؏vۦHhiOe?, m:[pN-9+tru8>)"|ksYbS<'O>DZY蓖 _.DL$wꄸzx{ KLɺ||uYpɰ+\ iOsWm YOQK_rWcۑT/wOmaMR'LhZ$UKW0j+>'TZ߀j"rϧ +^<0vO+%~)2^ƍА bQH6ڽ-,]a0mIHC_ܭ)uC5~;TS'_6P6{ ;?}t魘6:p^볱lcX!< ̞a9ᆝkA2In}yk=I5ߜUeP=Z|micOߕ$a.šu%9/cۢh⚕欤?Iŕ{q+!.\Yz+T3=-<{"{L.X5m` 4Ji[d6.Xv'9&%;nƞ]w(nj]ͤpb3:- gxZۨ$[dV$3[%ThhSj?Ao莛t ~T&1޻m/HBBTPTzzϺp,=][>S/о0tiHqۿQ>oR>L%G' /zd2GAg?B>[##_7͢<9sa4M%Jv;T=~?*?z@dI8hwh@!. ɸ@ѧ}c.C |˷8pą-;GVúM+r?>\8u~# K]4o][lol;/Jw} lX/XA_t:OJoƏ~{D "+'*V__IUv J~7/M+uy.sV`OǶEaCd=FOhL\sk&!c}XOg=1[~؍EmҺ._2+4}߿& ~c13ˎgx,ũ0Y Vs,> Grr\tB=2@/}B|I[z&uIz gek=ŭ.=>z+݋7yi&Dɔ\<7n cz \Io.T.uh*Qa0_Rk=$ߖ7>u;fTN w psDRGG~tz?':sԇvUh܆,2Wgk2aw^Ч*3,[X]''7Z:6f/ý":'ߡПB;/ })ُ j&z3ֽя´UhՃRt`KOK_:N8I1#fL~+-|.s"IΩMI˕r>~+kٰk1>I\#+R>͎aPXlN)[W͚zz$q+NGI o!XT9fM[Z#R7mLI#D}DD@9{샨7I wMy:G ucœ э&EeV?8ŧK7!owL5)n~H<փ%+Idu!<%hP!|~dB _ibdjD 8:N 6m񃟖y-0n~dt`G{ =o`O/݊h&ݳ1/9mgtTQÐ% 1OhG *K!="vԎ' w0_HQ,a_tЩ%gNP_Zh٩X{1eJ..uY7g)s 2QX(iϯPrQ[Oa!%tx^=LQgDe}<|b҃O~][92QS+>\{xzQ/]5 {63eM~M"D,[:,-~UY>;iN_6*n L}D,? -cj2~ *[GysWϟYWf˯W_w>~!-Yd_ȱ2#ӹ|Ĺk Awh֯S;Ǧ>#4qߗ))> O#މ$MgTL~8wH ۠Ya$]ߨiϠ5E~Z~ұ5Y3 =R*nM6N7@zF{Yf<=}ѷU[Nyg92:x8wXwǷEVZ9=m@cy/v_4ۣK"\_6)T.CJ~-ܛ`}{t%߁_G/k Di܂Mydޖ[KWGu H7`uh=_m3xOa>WnK!UNjgi57׼c?8zccG ?|w5%_Usy)>W-uz*['MyWV*4}*T;d$~z"8OQ.isnEb/?oSd"m[dMAiܔ![^档?28Np7%𱿊3/׉S&3Q8|CY,0)kWmtʜex[^r~yAF[_,@^J->#'u)QV>&l }'18ۡiYxZa->iRx4'"ik,=<sG7FU @ょ/Pqu¸)OW0ٺo]g Z$="7&[!CE$CρT)M7OW?ͻ5?Llۈm! a@>gu|9v4y*C$f gQ?5Hmƿ}d%eo[}+zSyQy؟Ц%>coY/XzU#n@H>K> O+p{ou1~]c!aO9 ?GhOa[1O?4Os%'fBIŒь~ @k1yK}¾z'2a__'t ~lb7~Lc""=Y?caqp>0GaÌ4Of-8ifGL>2?fd?7S?1)P0 8rܝ!9<NlGOcCOSJ? l`~L1CO=(ɸ TG?L`0ӌɌɌ88FJf?zX?~0OL]?(Gl~j\gWT^9u}egj ouQȨ>z` %L&I&z_X%EJY5@༄0|B?~Yc`]qIXKZFO 7Frرs/3Ѯ.Ə{jAU8 cڏziwZz%~a{ {Nۉ<C۟8 R}xbuݡV鬉_8~atqc~ٗ+0ן { E#8b *XF$䤷r{Lye9f7p_:Y|Qw%{|ijA\ E<7T4rb-pxާV?u>HN7K>&Ұ,թzIhF jYo-oJU[yhOEW5ה~}ɴߙ_~l5?k )>v$Klc?eOFRt'm qP/%T_OCo?S'cgG}V/]Whi!Hx}:8s':|=$PŬ"Vr?~/Hp!O~wm$UWTL XOԔ/raKPT/*  鑿T?|@\8Y =~9fߖWߴ`]}֙{:N>[鿪F2.5dj'ůw OKq{۩\;k+iK52շcįnچ koڏU_? OE8׳SBۢ?X½g&~vpe r75z7K` +/Z'^k3@ ~oH{33,Voo?.s[p O(sc'o~ޗ;yDSho cАh4]0v9! muHqcӟ/`Sp]cpEhZ/ EG_FݎSB Mw߾ \qhC%iӔ>-{͢Qc:8z2@IDAT+ *O߲?3?Witup!KKUCB3b>FmPN0Jǜ/ b6}Lm'af}O]KXjO(AnH'髏aICy-{ ǰ ϘB/Cxk2v0ouX1?݉W/\DO0eM?P󆄉;,(TRCH:X4ɮx3c}!܃ V~ _yҧ{n- , ,ÚG^.IIqf*- ?+Oyeᗂݣiz^5TՐՄ\ոb'Dp!V%Bhh)>yy:䖍_U`PVc#J?o қ^Mo`ߏ'Uze7$5S:(.ܯi܏.NO"2Q'DReKsxsˤon283<.OlX.'*t3n3_e_؏?:.y";?Gߣ+7?XFp䑡\>OG%ĜM끐}v= )(2ݳYwJ8ދXOoSÑ. tLo=;.cihdWx06buZ%*IxM{t^'4aMĿaX&T{v4,I{Wbwc͎G<::$FG /7ƒuqpsZ/gG!e`! #8@_uxP(J`"m]uF73ydH\Z#%E((8CtDt0;mw&5b?4CrZ2M\rM0ɈhBN5E,0q hᙷArv?iĒw.iWIHG~A׉@LJ:_+p!sk^ao:]m"֏Q@JT~GxOUqoC͏A޾"o{^m#Z;Sb|ZFWmqIݗ܉)(#|r04zf<0n{ҟUshJ=&X;!a (%`9l84ؽgkTsRS0s[Y/CSSH2EtR;\&t~_fy(!?ܩt6qN4)-SPZ\P…B4eRp&/; o4G FV;Dh( ҊwصUVD߿?3ICz1l?SM&X))_?~?3ρw=8c;>XN\/2Hng&2G[4x›!-Pd%#- Hװ&xYX'xݭg$ P%HhQ:p*?d\goz'^wףj3q|Gd<:ul wAWKIk鄓# #}g  /xBg^o&1E~"|Ӌ^IY>~ KW?C_aS~aia7v  X*ϤF,}LW*ݖR$9Y u#md{.s /t(ӰS׸CM4ՙ }{1uQbܔJ *Qi?$oc(E_7w?y\DZK&݈$5-U"3&tJS Oͺm~U&Ozkx|lʼn7%o86Y֏5]0#>g)ESO7'#'FxB_?:<p-xN i|,/wq4d"JQ,N5}&r-ޔbgiR^]݄>y{`v l6O9ˀLHuIKU7}x(^xԡJƷx.e+Wݹyf`M>Ϟ7AX+K;zzut>f]O7N&u/[sꟊ?@9G41ɻ✣4ΊTJ#aN;/LyMx*ZB:iTu':҂F#ԋsK FTgotycj×~cF߂oj0W aV~ Ҳ~-pЎTɓs:!wS jNhYuy)|Tv],JO iZV\y9OB/i\6'VT##Z";;AZ|j^ +ZS>ҹpzZO7_OsWn& LXG7NU %.?WKy.:tjD<`/zUO?/)&#' K*ե('V[헊@/=j/0O:|NS:d 确5G=ƪb4'~:+gNo, aqkUTAX<"j9_r\V|ج(DΜ%VuO۟/'_t4ϺDڵq EAz%~Wo&΍#&FR*ppZr{S<9NBe{iHS_4Go`*E?9Â=J\,o'?`D'/UK> sMXoҰ<.zqV HT޳vcNˑ=dXHWmX?oH)&E?jq9p𤕭xSzU.~cf"JZJQkz>\O<剟@T!M9g[ݣb: 1)a VXHJSk"숏Ưv \WfqГf>w -'.ى5lΈ5'"0>9@dO)!ӲkhВN>|]'}'XΛX>OU["0=&ӇTW诽wEW'G j_T$so¹}@RW#Lx}>-+i,n<Մ"?I֟޷\~]?mI݇ހK{tFb 1RP_?/̒ʳ(r?U7 5]oWqO!V9YV]~01$M81#n@*6#5J&C~r>5(9>|O"ȺRߒEH[buw,Xh;\mBZ$mpvSq^9^j7[7z&$]ɉBKkOIӲ-ќD/-?G~bj?=5<;Pm b?߄|y~N%91a]scf%Hd햁QOkpF[1ohnnCy;qkn͟/uC4[oMP^P) nt\Ã-4Y>/{<ߎi<88!"x<~\Fg9:W_.n۪>ghSĆ֊ f9iSc,ݦ^>e<;^B^X'՞ϐ0Ńvݚ(?]dϕ?# tS8{?C|?02_f!\??י8fW # W$R;zNz2[e3rq]q8z9R Ai>zN,bsM;#,Ⱦcő]yü5\M<^t_[{}􏬯&ǡM8PRUZ?_]%E8np5cZZrRS&ḫP?SUH;䄃} t_*1Ӧ0j v $6eeQĺnڊuZ~UuiնZKU$ ;I3{$y{3gsνstHA՘\uטaZ <qA g /tY "O2$-\q,QDɷuxR )^=ra7b4^&xǀWZUqU !{ r~o_C˔~%+*$_?/ݚyu[$"ʯ) P"'Z{(~y0yJ'nKTbtyCr1 K21s0dx 6i5G8߫0mXMb^XLUū?+v~;Z208V*T~R5v*עgb/x Ќ͸c ]~IO81di%~{ H1^hUD&ʱ\uN~ <i8q\p.oE<-n[$p"դHO%=u6Mefpi IH;$G)Z{7QP.'f')z)d{q=w%/d6'_gIJH6tNf œdžؐui>E cwJś ~07mJ0^'ˇZ  bDib³Wq|<'';. tK7܀7,U/4duT{xÌoU2Z]%}~-M5ŏ f/ֱUNG})ϱ?3x/¦O(ƉFh2̶M<.Ø 8X'J6ep#5)rG8.b#2L~e[ƸNJbWL4o,&+ mvyfQ9e9 +ͶH0 '§g'n_Fcx#G9筥f$J1FFvF#$D?1Qr"cGǴ}H-+iX;9k熝+:Gm換?n?=]p(Wm f~hj+^z)who!(]+x#ߏxQbKO}3C7J}P ʝlƾWj"8]VGn3 k  h_KIlݥ"-Ha0Ćg'@6flS.Mѹ_ת݋oۮiۻuw"RW.T? )|[R; ?)jKlCj /^G'Y!+{ fاwv]o5U!xO75 ve_7͵F_2^[תVũAC :a*/NLJrD71< ^kn]S&|yhc[u샅+J]+a\{ގ :y5?X<9`RG#-V~ igN>DڣO SueF˸D~Kȯgb=6n%j&'{" i5_hAmrx=Q1q>5;#g-_LzmP|Ҫx*oY osknnm\%DЖpxiZƿ=|򋺑|B?ߓߔ72O X÷kܽE %M-ÿp i5ƿD¿سۿਞb ;L2 KU++}QjُHng揵g?n8مrTM]]b$jmNT[h{::s.q6Llw AW/‡wbhl`͞>ѴPdh|d?l ̒TmY_q~Œ*/7f-.s&C~iH@):f{X .|Ab2Ϛ.)M}B2^a4{=p~;t: Iy|m]4<ڒ+`;+^t(+;KFNngULAHgR:Ν5U7-Thx zՄP[xoH}'ɞ}*uHrXt딇AgN\؏)}%i7`h03ƉYPi~nIg^I4o_p=C&A tHu@䚡FBC3݇uË!"*,|>wNgZ X9"i|YoFy#'O+J 6o?%|j31  /~j++)%6rb~,­'QAGNf&G5B!RO=l_[Ƈs&y ? ^|Rൊ]~*,m'B O>JٮHn5:ʳoͫB>%ĹO3<7rėukǧAg2XN@~cJJ ٩,'.C"I_OhAyFf ~i^bwk$}}r+~C[eOGe[1MHD ~QG߸Oӊ8.~ynJAn h#ɒZ`!#=m4J݂BN4#.kE,(\$-Cf;^[ek*Is=\^P8aH%>|3xߦ%Zʵ8boJ2ֽ2s2_9 xl"r^?O7|h{bnhy>&^''(xq8pA_Y؁Y6I0'u%D§b5D% =yE1#y ḿ¨Lۃdn혃}޴'|]Tg 5b4k  O:(䶹EXlVJ20_ pvHd~&Bˌnӽ f4ʀ<<_~ʳ c@tB8$tۮ8WO>%EO?/~[#hbA>}/>ZvƘO¬_0 )oˉ^aLoP(ٵ_W OCݍI@#1[[cgDBDIihӴ1e`ӡ2kiCP<߷?;25C+ZffqvVK m\ B E*`JhNy 'X[^_WjO5ZYxM~G۶<4zc62FQ|x+B! pVO1a7[dtEnM1Sgk*bB6\fV򉋧wuk iG0[Y=ڶF+q &{%a1c-$*%0|~^O*Agc'!) h?+Мgi̿3O|K&={||b)6'zcSP__9hS[|QzO2%|I>VAEO<~^~6Bej7m /v~ 0R'nl,i'>|BD^o į͋*_~FF:"H9`^$g石gc܆،7]&b8agG(ܶI@o;8nj Wok XǕGj+ON)zf-F)*X%($!^h Ϩїy|1_XCFmcOGF[sx߫Eq'MN|4<EhD]=1t5# wxtFK0{&Vc/PZj̞V@lt}{@NF~a%||r[6#;=c%f;>j1=ZĜW`JY|ԥ#zCIaDJ1:du@K > xοPܢ+tBnE:;wHGӤbBpH(Tg.}o:ږ㓮GaaF= 6,ƲЧ[.:u遾GΙh4 ;|Oʇ>3_t~3; oe|Jpr2|-:uBNvz>){/߿Qpٿg뤝pB7ٷz>L{?7Y_aSеmC>(i5[tχv'j{^к 3xOD-\'- ;;|12vxVw3D5$d]8_k: ]/%|-e7|O^9>?#rY4~S൧׌~`<ːg:v>/ah׈ȗ] ~kppӃ=W{\&رV<Kk?4^߻+:w'2RQO߃MrHߺ ˊof}е~O ?ߗ~cϧo_Zj'"E.A!߆%XVF=_c5ysNYkq>/,>,Ti3mBe@E۲1:Q_S9?E`دćBQ&{VC*+Xx?r[coa6y>1POJͅg>"Rb߈3D'bR>iP _GOa>f򉡒O1xv|bzL>qj 7`>'f-%EO4?2s|c:%2xw:^}C хmg!>+nNߐ\!Đף(k8zvV`ފ]OܳN뾌f5]s}jK~[aY_nbۗ%L_Ϸ>O4'ʋ!y`Xr{!#ȿؤ'ۿڳw3sُNgr1bpW$`-?pCd`fc{L2#gȼLu)vGDZT׶!z41-.x\ݾm6WcWVgdz5#,5_^fe;B]l ú ck |tKًȻ?4ǀ!ѬA26~6zT" /CF ҚWwbê(B*a+ S@1åNB.xb1ONf ʰi*,* A 6ZEk X4uv1o^z H޴!gecơӆOb|>\,/ڳ҉!J=_LqBFb?sCir26/CrJoH<`lN#} !Z)yNBZrKHPH1_ SPnǮ!~O+ؾd># X>3kUÚPB9j (h- E4~(^,~F_z_0h,2(}z!\>m1-=Н|eHaOgo?w d6K7FnMU.иq/%? f(1~*_;~/%UK6\{fWZ?XL|Q6_%!DguO#5u .Č1O!]VÏq$2tT M˙OPQ ,5<0~ JO̓|` =q7\Q.|MjXڴV-5 .`2|[*_s/4J=16(Q{)C6H(AO8nc>D7zӑrD_X8GjwDƠҟʧj?-_\QOR5|X|SP6zWrtt x-a۩X K#ߟ >'2)VE^_ǘ+G"V vf/(2 { PE3^ `%?Cs,"~jEh_Gm^Z|[Ƣ?&u/o1CGyfi.GX|W|?RZgc~;}ܐ6R؏lShjዱ| W>ܢ[+RW?6@ VO4(f /J_,iGgn0s/3ZV:u;\Co מds%֠ag\.ͿZ' 翝v/]")'8_pHI~x]m8C{L\;\ɩC/d?}Q^eeˍBG]hP||>?}Z\v.3^$Լo_{)Zl5__MHGpxx_8YՈi|qD(|DǶ=:wp>L_?,-NT?/gf]Rg"7\s̪7Յ˟v/4ߺ*^9wj Wok XǕl婧XbGDјyYftޝ և۠@ .,9y>?X.'g0?w:?E?.t͛얞"\C?|iVͿrcbo+'ǕUUoǪnKtg_d]fj?Mڂ0 „eA:,վaEJ ^壒'++:j8q?@F 1G.~?Y'3]'k .r˟L,R]C?j.~N]\nYglN:Vbpg-O.TpÞ\8GOa=ARq?]W)O+;va?DUX;qD +?tX!GM 0e"ڻݗ8s[L-_&;9R)q}?D5⇋.~Xo⇋.٠7whΤR]$.~⧝ .~⧋)A3[%p4eknM2%R#nv*L'?ܭamB~O?5hq׿\$O4r:'STN 沵i p6Iicݓ9xEbqIHq9t73Lb )ZW7p/2 NJXu?\tO?]tXB:?_b.tdO] $]*M"*U?WÝ͟1C"l,J~Cp#mӏo<71Z^pce؉.qZg7g?~4ڬُH]?PmlCmZ?\;7\Qw6[$p"($FRYgZF8_&蟗F؃-a xv/y7;qՈZnql;o&۾K3:)o+Q.< {l֑)%wpͿ21ӛ?$lL/8r3(an^.IIv('i_Ƣm.cT)+}ֵ-VL{_pӷ1\>?c>clW22KdY٠an\׉9|3TᒓQNgwz >]_jCEχFG9\0}aWLX?ŘFt?GrWN[jM%`}ɜskE2@IDAT&zRm-D4g} +V/CQƒTJ9J瞁t.r$*":ts*Z~]2 Mr:#Q`飐˹5$?;ưd{K(u[gp_o†+E!g /.<{*?믛&zQNg&^+G>}_gL"d+̏_c%~ v֥\X@fnI=SNĨ3˿~ 8O}ԱW1RMo`MϰBʡ'GSo?0.F`JVV=1N<_R!+wެyyH:9vM%dj7&992DNtgۛnS%p҂$kMNQk":1i%ѐ:SF,x(M .DGCѣ? 7ԦXI xOM6⯏+oG>voR/8Y|lӂxWdbm"xkO\.s'lfEMC8ks8cHh 2lk>{/=f8=D:Ͻ;WO^kRJ߽ľ&-tb&d!ԓ hX'B z?fblt\reUgdٸi {Pp:~JэՓ.s >NS+߂ t iO$ UϰKn@A_'BE + _.|wgʏTj-Ogw x/noC{`ݼT0dh*[})~C!b%WyFߡ_Ћpml~f26t|TixMJ/L%O..4.\z.-W:^p- Տ+>M2%q*`Yt+5}M9"nO>|ka@ 4k|њcϘo(UKYk?O_d^l"L`)T9h"wsހsp9Q|=cı{8?5w0NquB˖)HNLD|gǤ_s/еt0_<&kX+ 2JAp}OU'xb|0^"o0F=r:EUm=q5gb`L4MG{٩X=tHWNؽj}[O~˜~݁zhC WeWF|8q<2}s"^04 {sƏ_zZP#r_<ϤJWG]W.E:0MɉlIxCqR-t\= J%XaG~pSx7aHS=yvͭbP~+oXSQWLEvS1٥$%ro OLA (pԁ涴 ՛kIK)O؅z싊`l\^8wT HH6JCPL~(ߵk7YabK-/K QWZZ AV;ⴖw0/( 6`$[>~M?fvL;`ې m:+zboq)nz֣ĝ܂W0_YԥKˑȋNANb? ';\1+OEV۩5 o6cON3mۺ+5w俠+`/{y~4n:^3xX;\ԟ1xxභCzK%CNH6tC$?ğofDp >۶m:vXxQrOHxc}8Wʰqzm#Oof10/hϼDԠq /Ko~BĀt{[˿՚@HفvBBfKHR!3-qahvk 'tE£I(鎼|psK)V~7i`Rx=(/$?o[_%JG:<<'=zO3_8 n- 3;߯G/ņ54->AxٷVGL$$Hykau_G_#H'6lmgz*+2g?>?i< Xģvиٓq3<YO_ja<_i:R=_y=@}r]ݪ,տ?k2^v^T*O[+uW<r.K@pzH?d@zjR`DL,̑7wKW`yv| 7yr@z坸jx.uxߛs?J?5xޜA]VL.&뙗VFhҬ)$*zhڂO.}gVoߚ1q?n)xҤI$rxj~a┿+  (O!P]UWjg!1kgc~Ld!'cV.cí7k?"+|7Ey/ ݁7Qժg=; 4CSVUK/Q#/'"$A3(Eokcz`:/&abE s)d?Xї|+μ+0o{e?efٸ'yVaóqO8>fof4~,5%ˊvw+o},?L\e\C~;^:A][P?}l?(.E0=sŔ'q Hk?u ~ٯ~Ϻ/MOlB'T+_3U),k&mg/V?>1q >ѣswh" }#ӇaiLOCڧs| 㯟pWgB3NK>כEHyd=O(EERw EOeЍ6 W}j( ?S^hٟ b3N'P7|"4˂"7e{p^0/^}:wS^/ C1,S2dD~5vbW2 qŨ|)/ӂv[$//DSkp%01qL󂅆KӘ'͗IJPr0_P>: g2}`\6W_W\>LՅ_܍5)iJ_~܋]"8`zxCW61DE_7_Kqִ+aҟLE{ˆI>(ƒU/o5g?f"|#E|-PS:k=6jL/tF)~wUn ]~_1?'eqO_;$Ζ:~} =o䢗GKX ڢWF|xўo=g|U%~7Hk(Rsеz! V+ nO'YVeJH#5L{>|"Rp]XǏ~½M뛮O>/f?-+p2-:`G:݇ǧry_\8 -ng?WOrY2ѷr+LK__~k}EK`g$~C|V{bwKQef`bWQ%6e3Bͫ] |bcи|?;B_[>MR/x^ً߾vC,>^O@}NqT\<0[[H o ~k%O@֢Ť>+ҕ)xO~ɟd p3~Әh֠=f2q$r~)7uR zW^w_-vR~I Űt|v m=]רmYAjSkتUMGÉOQ[}5v|^!krJ1w7={{u)Sq9"5?K3]P$Yg?6j"K-'ɟyk6rF򟶍S۾4Us)cK ';JH|bV}3^kL$nF_Py)߬ ||_1NY ŏYpC}؇-}Zawۺ)S7Z~>w]d]~S:#3=)y8|7~-E%L'[XL? 9r+/]oŴ6S7zfW%?_ƯT*G·ECr! j$NyH!ޯC%3(k i1O+xM' CΝWxsQ,>h?`={pA%)27߫Gz?dmExO\Er-23()x3 l$Jw{-͈3N6Ɋ/?O=<зs'n|? nd_E8*_ ޫRdB? WaTjxSjUO74ҸHQgekο矎_ k[4V;OH[/]-q%9Hg,OwdXq[/]Ei ze _u0 _ ~8xi ys:xm:kO@ UJP! kL|xRf #̟RۣuV?E]]G~}{h0SqT_X\/&<cr >9&cvGvzlX SF:=G7V3|5~ NJ?a%oYudE`Cmn/T /4c{\+j~&C7z7Yi@Ieߗ?B˗^//2fSi-ʈҢEoc>V՟9a,s3㓢C-׻|J7qWyL]U/X ߯voe'?DYKPXwQЫu|GH@/dC b^{Zcۏ ܄Tf[v~E9!%a+}iWKޔS ?$~\|e~$∀$CRNu8&䥣(p[1w[uKƼ`ă o2n 녁U\01|R`[NY{5jM@qG߶}SoCE9M>l'd$Y^t+>+W/nmhYz u_ fֶ+BwD:[CoX?(+Zڷ4'H(z?;o햽ؖp*ïTY9B\(A8&) !]da uT~!1ߤETY.\~ʨiSwXdǵ#T4~_0:0BT?dxd ף+~d\K=8KV)wq:xt!HRJ,fk1J49U4ٙ/L ͓AqZ"syE+t HJJ2f-: FؼxJ,m>UralJ ^_9A)0;st|mOЅ[u PQK |Vu,I9`{?YS.g,ׅZ83dߧK9~Y!CkLi.7cszss5>]0H搒IQ!^_s*j_"IX<ҷO%jVljQCzS| 6myCDXyNz oK4Yd0QH֪LR^7|B/'}s$/R_'?cY]? :)Jg$-GcI(kK?['{$މ'>>")X*xU^@' OoHgF\I §xs[9fh^EƓRj oXcҘM:t[H^d >/bNmfTGt$io<.-/ŮݼkLۯK|-SŏHgbxF܂ #,k=xr~t vm^1JC[LW0}95E(yȧ?NxkVO?X__'?3dzL%`kt3DIA1ew0⚿BI1qŧ4OB{ UKg#6FDb*?(-97gtOJaƷ~Hδ*ߡzo\[d6Dy7\,](- \0Ś({ N#y ПBNk>O˧ދ)o5hu/ ,R%/=et,ᓺ=dל8G0yEoEE3C$ b~wNaq}7'w#ʋ{p~/L͙5iУ$1/(G nyuG_;uup Ff^p DvqobKoT}&-NmE; OडSWڶmj ~bRxJG̞oC|cJE Zv0giDIW_1 ɿt+0yD bӘ)-"!G},Cn^9~™%8|~4C"_#O~B eb"cXZ?ױN|(W7BX')W2ҙQzy|r7GN0DX>~K>SB[i%!cH[:xѠ=#niF^ň˸xeo~ŗRg|M,Cu҃3[c4GQc. hJ(_MCw܇3P'?PHE{知 o!1ae;q@Wǭ@c鬰tOPb c>t+39}p/[xuq e^@-Ax?i_9C{ k :!W6}{7 Ez/Gg<(0!}ēp/UG,O:ɸ5o _ Ǹ/{Xm`Z?R%J `cTڿh=_gu8;8$󂒈?Lɜ9$J@rK@7)=-@!Em֙ x%RW9/ 'cCIo^~\/Cvn|UAJ*>* :I ѿO-yo$Zc6FL iG*R"kk;uPS}.xa=}2zeIMC?y" bKwnO>7)V A k68}|ZJJO/@~{^.ۀ|&玠.މ ^S :*t*'IJRRI)c^9·EH)7dvF.ۧoegbCi? W:FW h{x:):K`*׉HiV mm4|<} Gg=c>_ţ?7%S⑔pMuڙB ٯC-TAV<_Qm'f8V5`w{d%:d81ZU 9nuJKɌ8OJx=# /ɸ,LJ񯙉en8w8'fƴuQ{n^rQ=8w\SWP ~{Չt2]C_( ?#rw![L{Xت7?}!`?"zHu3':$? k[[iϡxVVDW%|T(LǔWȷc?4=0,J8BbKL9N3+>[g /Wddw֏K۾uz?Q}i֣V?d}{ Uc1It!ϼ UCUcC<:E.GNB, .꜌7DVWS` 3鯍lP]"I6jJՙšF]M\ ß}ƕWtV(_ wf* " ߁'/*t?J 0}J~/7W[;?J_z?ۙ ,TM=T'RIR)>'늪_O^#:Gb*M>a2\GOHDڂ2|XͻyPvx[$%Y3aߎ@tS d}$|ci6+?g۰\[N{N׎ J~4ܒN'Ɋr>UVm>W^=;rI[x W`F 7pq4I`,ihw16i>T({c>}lL7dxצ5|"zc7;)Nj"ؿRjC򗯾eC%4Fdp;N@ OX}D7|!SO3q؉^c/6?#'yR-'[=ģ?#qӳ_57zQ05>N{_"哖|@@~nl߃|5'DoNُ%7kĪ'?%!ZWL8PUUY 0m2RR|9Fѭ5R räOC+Zw<< ?};f͚qx٘x462$e$v_h+ŕן3N<=|A෷ءѺsod6MD|gh\p)(5K~rih5|V/R÷{vP4/_)N}Syb|iy+lb 3l ^bڛZ}О E}%ֹиM: kkk?%X9cNR|Y|ihh+uhxVxP73GvA=ƔWLLJ8}PW W 1 ^cc =Ov+bM4u*:o͑ھ…?Eůc)CYp_|G+9[S?)(}=w_-XU4~+۶1N3g붦(8S3פ7EFAxM8SS#z_bl_,})g>H]:=_Dhx_m_q0qM2 pP^k$&7c>q>?blm#{xaw_NSP'|V^z^ki/9-SѼ]6: t"e.3ѵU %Opw& zg!04)>5HCe&4tE!=T^|}>䥂z|ous;{6߹Ch{Ap];?2:3Nwdn dq$ >6/8czfц N w[>'+ԃ*?{_`Eq}FPPVAaT5B}1F|&qEcŘ,Mc4S1MQ1&\w d`?_>}Yaz>u}^?~Xʺv{ve*OjX^m }Gqo㜞7W_߫2qPOJh2gx,:^+ə5ۧSpl`GUvDr;?v|\Z[hHܡ}]BiMmG 裈6/ijbM+t.?-}ܾߒm:/ 765c:* 5Է$۪|ɇFo?'? eKD&.C/GK͵2ɕ}:<^'?:;`9`810 _GO!Oc?ٱqO2p@ߍ׎z ɠҭvܽPP~|`}}5'yxNB&};nk8ڽ^{Y{('ʔ)Ȱޫ.JQ="/]7tlKZwH֘Ly2}Ҡ0y#}3bb}[~Oh^&j%CceQRQ ^oU濄_?H_<]E e*dNM4NW#]63Yh&V#Z-Zn ڰ(E~2nD 6J&L/+HϽeG0Քjk(AL?|T+z,,H7eL=st%>%=O=љk_*4v߀ד<@zt^pⵂyR8l:)1MJ?ZhK俯{;#^lLxt3U,{yw`r·OoJy03f T*݊ߓgUfƾ*[9qI[o+nGƍ~ ѵ?_9^t|__6NBsQ{6˄dcCoKs,K*ՃIr=^YzxmQ7B "c5F ("~ |!e~˳Znp-7Tˍr]٪Kb7|PƻC~~{0IЏLj:f9 ?)OPM곢ڗTq Okwݺ~B5%`{P&k;u8ڿ~IQ3,oa)H&bS5B&xrně_.9 C/G+㕪ROMR,aK8ޗ&M+t.?-}ܾߒm:/ 7[ŐPBi~WU>p]޸`l0l{Xk@ 8&o|lX.|)Yh7} c+_vInw/ f _(6ԭY.s,WL%O̓%[Fz=^~Bj^~(jz[?fV'yY/z]ﱅW:J6^z\ J|w=q]͗e|}EK:W<}N=&#/Vkc叿j1~*z9 [iWh<+~!G׽zqoB1+] -#9?ɚތÅ"5PO?ogMge̤QGA8YʻuV~[x;bWMہW bmŮ+N {u _}Y/D?ÅR8~_˲f *wݦW}лShvW4YX\MIz[!M]֫)ɚNTO< .YS?aƌEOk_ƫ~h(y1N4N3?m.OsÊ2Kp޳I^yxU, _Qg:=4.(R]eYqY[~JoIU|~[yzuW</{*xno tdwMg5.O]-v6u:8s><Г*ٖC#vi:[BO0AXZ, ~ƫ?_lwl~迌9{h/ZmPg:_~Z[Mij?-MKiitx1?NhNKTB-٦bqci%[[(=?͏ :c}?ٞ|(?a>pX(,"~9Ww'}Mvs\yΏeQ_w9o zŷٗݒ /ۆ9&=G;˼|I~+._5CdJ~92G!zL IoqI[#?1LJ5?qI[i:r'-ۦ\?_i__gӗϗٵttfȞ^z,Ԥ\ܷoʳ_d~Qb1Oq~EO9Fi+ߧCCk ?2#7u5e}Lpɸ k6%{f=t-o7w޿ev/_K/3H5gRYMz0y-ErC4yo1tF-䍶,@:)͵ŏ|j'?cT=+觖-L)R%KFə_*{j~,Llvf -N[S/π|~VO,Z@ɛK-?f ?=b9\;Ɗ~s9~dW]̾JNEX\63CG[գW̉nno6K-נ-BA$ݝT,F\8==H2nno6K-$L~Bi~OG/$9#9?$mԊb69~O gOZ%D#G]bnH{Dl#'I4$blx핗8&#G(֒sۦWp\2ly}(bgH-EJ~81!~g'@tt~?GP?ώ gGGg2~:NV{.j ;tQiivΈX>Eh?Ot|0~`BL|AaqAHI~~~~L4SS?R?R??`%ԏf]jNdv@ &зCgBYDS_k? %$?, ""A$OO Oԏ@!TUf- v]p{H0NmI=ՠ$a P‡ִ{ ~Va/OA'O Ctp?-jC' Cpp?,jC' Cpp?,jC' Cppl^M p'j &a Xm~ƾT.X<ހL` х+0~ЀI P?Pm1>9Ё/`@1S@mؗ{Y'pcyuxPYm)8 NX Jx}¶y,!~?OEB'O9(rd:'9~vD>?ؑD򝛌Z8fe A KOfGG0~ f ,A%8N`1)7fp ~<C?䏈5cБ $P?l/'xSSFdڡi&irM+t.?-}ܾߒm:/ 7oWӽ8{  b`g(_}rckpw?1[Qy tߞ^ ):+?LM%1f12}Xd͕P}L5TKRY9DU'6`zs=m/3ezb鷔mXz9'ɸ%oS=_ ?` P8C ~?.^]{FJۨօ˛.v@q;^.@f<]-Kʆʀ=ɢ%֢2}0SGi6nmֶCdƬӤbz[da햖Gm{#ǑRѡR YMّb=6V 93?ږៜ%jOԿ7{ ; ~V3OUޤ<ӻ)1]w<x+?mH:?o YT 8&m(:{WeZ"[xކ]688O wShso}K6ސVU;FFwRq[mٝi :لDr_fw5M/zG+?:>c?pXS~׊P;ڐliq U'u K}]-5\!WQ}A1\(zsa rIHuIKwlď@)o:Dk5O܇ɂetqvwϒSN:I+O7_o+*R%~,R7ϛSGԇv9&sXA 3p b֞{g@O6`7-.ٵ'pwPֆvlkt6ڈ[ 9;{o>+iM Z,]4Z Ռ7Ⱥ\EQh%LТdo}S]C_*{Iu?i[ˡbrGݶ[[^km}▕/|N{k;.\̲Y;|Qhg{/T8-c{f!lnCPl/~a?G~c1ԟ>/pɦlͶՑ@GI1Oǂr"o2FjN{'=m򎛥Cdήt쳯t;Ef[%O\kYK*6XkF#$tdx=G?nBԤlg[eI'WO,%6u\vl?eZEg/(0W"g Ճ{K(_sSOG vӼd3^{i=NʥWϮҩC٠T̛#?foq'e2ixqډY?e,{Ym33D>D| Yg o?B`E/IȦ7Iݵ׊.7tX/^ܹ!~z/qS^]:e+nP'~TM!y /dWJ >+C^hSNO30[as{?{hi.t,GO/uϞ]sqlxo<=i49~ ><,9kXѥX־)Z|dB= +,q%ᣖϿB[:4܇+^{y/8j| &tBeʇ!t+~{?xX>ןY.Q.TW<; _TMW:vzNԿBU'NKo(>7!.n>|g \_9ySz\} ݰr+d^>~LoQI[X&J g.JENo@q׾wE.YqnB_*g_~L. eoIrܑroG߸H.~BߔM{qGȥ-7)޾,N_U%:Iߓo# ,NC~ ;8R:]+k6wS?2K&!~Zܶd;rBU/}Uys]7)_.S?uTZ->SLAKwߗ2u2}dȄjj颋+6_k4COW&ݵӽ_J>мӝsx:]^hj ?d77j_>2Z{*OW<)M]Iԩ *W.PcSEr܅#3G%sn|2:t\dRYj |$[]I%i ǖB˚]VO?.)w~ {},] mu`9_Gg8y–_QG/dQy:AǟMeNެ;~Oʯ3]JFݩk(^L^.;TfQX]=8C|Gi2g]/wO$!~BfyNy،Eخ4~}~_avYW}C;Ean\k o\NY$sy1/Vsd ܸV\m,i_.+g|=WE>w3gIgbmo'}z9|sEoiڟi ?!W +џf l[j Eb(q'6l [MQyӬNuyA5UnnuM_Ȟ{9P(Yy{WƔ ޿~ -t߁G?}\¼gN@"YQV5^>}p_&op?)p.3dmcKo{syf /B'S>eyF^y?TO%)_3ߢ^ D6[,OEԤFn,  1^կۯJ똼IϽO|49uJw͓MіPjIUI J pw\v :yɛ%ȘҤI#NI>k]zGxR|t7h_:mOL>i.[B^0Ϝ|>/ǁ>v)\>TJyk7V'G?Z=cM}^ӢO.EL`x^R_3}WX Cng _} &lOz\y~<&o{Vb/ ex`yY-ݏ{wyq _w u]l?|T]oXz [z([[—C~Zۢ;Z$~3U^lV[j#[Pi?v&'{lb-scGu yG*OGM cU%ӄd~=W]!.@+e/Ȣ'n?vty-H/y,?pֽ0Z#~?sW)G12kNdF񭄇G&+ +[,M[|YU A\.ҽTYokWҲe:һHJHE[ iQIK!,Қ(_J7,]zt;_F,x4Ounyo݆N]μ Uyk'v@&-D2t(ettayQ~qyK }oO,Xy[킉ʔʤ]M:YQW_|L[rҬ}啷lzVΚak=]-/8^N|T\>ˇQ ~=(K^9vW~LUW~ +Oےn~VoZa-L֖h-6˿.^rRp2fP)/C7H忿*O2'}CsB9(ZkBD!V>@p\ R?;~Frɰ8󦛐JQG@9~RMXZ-_ERxP6NK>9UHI'˕O{/9MIڙ[薵%B@~]ۆ+D2;i`-/.Wkmg}`\9_l>fm[ҁ y#Ɨ b|8=qMڜ:P;|j?*oiؕ44~ Ock>}!?j2vӊW@+/4N#3J˭?]>c%#/n]3G.l?*}[~ \-7}Eu^2OnKFgmQ*'=miV׏Tk_. 5~?013CO'Qb$,Eu_-+ᜓF膫LZnm42ɐyFVҰRۿb^#l5OkWOeR' |Tm ~r 'n?$ %3a,a a7_JN~Mۿ]֭|)~ۿഭڿn}SϞ![$EItUSOK/TAQ?_/>uHhV3 #Ֆ,V ~R_~?曊=B̺ߚGm!RUg]sv])Ukt;Ot IsL_{tk<𒎂Up ;VxG65(?ޭuxQ]i˯A2oyhuhWH~|#vu|rVuB[;1|.iVVPK}ӚqʗM+N?OZu~j[\;e\_&J߂QX~ OEBQ;`+įg?wix@$lOtL6{N,AiSld>tٚ?4O,tE==!oׇ^?'Kh: 7"w[y.? z~]C>j8c{0_N<ЪP^%T wWEcMaGS_zqfKqH~J'Ns X9sӥB&~d|nz=mOu*9sQãMVshY>zEcG~ҞqC^ ?ޜ)Wh{ /Gw*z.~j.w/T-.;22k =3XR^W5ӎq `ɍ_USQr|hTMyW`)]ITyi.w~y5wT}>4`H7^t' J ?Ľ`ۋ Ȁ_]’.oLտ vϬ]Z"tWŵw?`;פaI~]3s'ן6](ZmwOmH’R~(_(Io[ZH3]-FÕ6[(5~!\<_*Oa&,? ӥs܎Kߕee숽䮋0ܷ6=CB:rO}zJNZ|O=:n9V@~Ͼ2Wd//%;{ʠ}GˤI#d䬳 _c,5sHGKIk,=JGˑ3Nqӝ Z"~#ra^-'RQhݵ۳>wԯ\{GR~{Է;K>z-sGnh?󉭅?4~e)ߑoWWIrER~%󃳷O?$݊I/.!w?oخ2hXLb: ~X|1mu@*O+*^Iٽ(ZkN}+e]-4,E2 G[-ǝ0UyiY!ycd^ ϐxY:])ސ+vGT[R*&*?]*R>J*Qu}󕧏GYQYڸ{IC NBG_}2o/*!ǟ~tq~e܀]vQ_&n+ zxzȴӡ~?ӨSߡR5-s="=pu(xyiv;q6JNoyt:yqKi~!S Xڷ[GrעKM T!~ڢ_?W㠴~Fikw.bu, YN T x~l4?ƅv )zUHJWW_4|~/C7922J6<+~vzqDJCl~)dy2ufo"EdQW?8ytyϬ/~ 2y89Sc]%붻凭uE.\)}yԩJ^"~R?(3GG9xk=)ϾC'C?>K E=W]$+Kf$rtyKo_<\Wt}.}QoפjA;O~NEv=󱇔*|r)P= #/S*R_s|ُ.U 迍ɽʇ3-_k#MGᯞc{ MFQ@ ~RP5Jꇆ6I؇Kv-`h*_sily_踱4ߒ-PBi~"UMN8;ى$B2zHnV,y]ofk(2y'fix]饧EIRY(E[O:V\zVB"u'_PWB7-/5rΏ4}pN ǕmiaGs[`jT K P޼u^'eeh-Ie^".Y/j)M{nOr7UTOTQNsA[B[;V ke}Oek"SM>fe5lLO]!s-DKEufw)*JϒH|bڏAle?c,6;]7u.e}cU;-FS OK7d΋BǍyl}&?o4?NM  ^>=#s!Gaa뻎&=G;˼x>Tgȹrݷ=6g+wj|ġ0?\B~D8h :Z4?1b|5K*CutA$,ȟ-1?!"t1ܹW^рwDq~~/B\z|2>&d&>+GĖ+ rBD)+KX%W]-bYPnxH:|eMnWVW_\S oq?0bXH!~!~?䏀OS1W|~C$6ş!ʬ8ٮ'1c"(u%X=v=5Hn_1#kZy[/i 0~!"hh?_{ G16BUC` OO GG`A@K`'꧶H\emk~KTB-٦bqci%[WEA4"ud[TˤYX5 ;?Oǂ@@@@[ə-(O$?cцG -A ~B-~ P!}~Ґ%}-K)ni1!% k}=sG<;v3a͂h'2q?=?C/fT,ivx\b&K]x>ك;0~<.?'~8+ ك ;?=.O>?2lLł&X Av[a m],JS OK7d΋BǍymWӭ aaMuA- $ˇXs-( (b?dH .VbQRlMaB$?qI@`1b13d{իkRZXut?ƶPZSo' 8duD`ϗHKcBԏ%T<,+ؒP*9"?0~4X?OG4?aGpA"/rA$?mKʬ8ٮCȵ-~0ypceZa6_->x0~`"  2ȿ_ O"8RG~BTxdؖcHѾɮuV- \n#8}YNpۃ(4;gpi,G5G B?=B/??,}tp@IDAT.<: >?ɟOOԏfJoGGG$@؞ѬuV- \nuGʟXC4߄byڏ14qL!~_*]y)'[،XɟQ?R?/(:l緑b&NF;.l{Aɻ-IڠL[XޤKK=Aqp0~' !~_U5! !~_U5! !~_U5! !~_Uv6@/sɦ8~i50,>0ؗ_k7(@l/`ƏڀA ~?OCo-ا~T#P?WP?R?:@`@@H"f ;~H8b?r/kNz, ?A$߹ɨ8юm0]FِQ`ݎqэ<,oqK~xǬ`v0H!~_L?a gp30AX3FJ ɟH>~'P?N?EaM, uYṉuԞ <8kǶX* f[ڏ1ԈA5' S}C!7A\gAlڃI$oR?\1%,Ř`Vp!2jNdyKـI{+$~"C ~ 24A(?`U\R0HH*?pǏ!ʬ8ٮ@9A;6r(!A^`,brY#x f` !Ӓ '3BXO ,bI R?P?Q?Q?Q?ЎؖZ8YT#X )Á-$%(4,Nay~Ήo|bԴ'GT:>? B!~&@ $@$R?P?Q?Q?&)ƒc{G.Y'psQ}^[}+c@~i?1|%~?ȟt~HROOOOlmc3'''cI''fGH辠 FZ8t=H1&$j 2may.-i?­_?$*C0H!&I@DDDB;Gc[jNdR`-ؾ<|@ lаL:i?p4Ѣ>Ar?OGlrF:Apo!~?LuG?ihO 8Z?䏦_YpE p'j3 DLj_,͈ vl[47R FA1~O؁Ḙ4? ,#At\$rqC*rt~~j\ZC;ܹK5йqs~~K/tXV[Luҿ^JzLBy k>Rl!X>o?GQD? EpѰbk'A0O Oԏ 'C?^]{Jۨ&ǒ1ҚJO~;Yi'Cn${hAZr~ZB- c/GItL V!xt?ɟ' !r!O'S-@@n@6Z8:k8\"G8\V(lC+G  ~ 2 "KA@`@ /u'DGm<&Oj\gjE63;'>="Ks}TP~8Q`*8#£I@DDh8~~~4~Kԏͺ\gjEyYlm_wk;?THaM(?CI BЅ!HQ??gP?Q?Q?rͨ%#6|~)vn2jNdͶXL Ęے{ *0ȴMJS ~A ~8!~M`[iQCp?!~M`[aQCp?!~M`[aQCp?!~M`[eg2lZ8췜VP0 c3 } UaXfyϽ[2tO V` ⇡A44~*b>}G5sp x#_ $b##f3/fNd ³41:RpA GX Jx}¶y,!~?OEB'O9(rd:'9~vD>?ؑD򝛌Z8fe A KOfGG0~ f ,A%8N`1)7fp ~<C?䏈5cБ $P?l/'xSSFd\6[yNpNpȃvl{*dCX??O!(F /'##c!X(:~] glY>㜽T֠B%ڏ1lńí-A0LND-fYA$~?HF?8~~3R?z4Z2~4P?M?wq5 8YMW0";8僥`?C+AXb?'?r? XA8 6!=ȟO&ف_X)6i~ *NF;Λm{QaО |JB" ? "SL"IYEA ?)H BOxZ8:k c#Gr` 4aXެ^"f1{ G5`O@/1-W- ??#T~ ,~a "'SP mΪ8՞K;b:A2XB2s?h АFA$~?mýA0A ~٢>hA ?z~eu- ,Z/N1}M4#2۱mqX3H&X!~X<?ab 3\J$84R?q7 X~~ qSp12kr.TB-٦bqci[m1Izu+1ݚ գ+H`vz~7XEE A ~?  OEJ;JX?_P/?L8&P?YLP?&~~6lzu][+oKvJk*=]d~ .H~iqLk   $2JiO? #'37OXA$~~PG~~0DtK\{?ɟOCC2kNd.rm~LsYCXgX> {?%X ~"*<2 /c!{DH~~~~~"R?yD~qU p'=D ,x'QAMBxD? Og  GO'c~k, >P?~4rU p'=e}ѷg^~~~~d8~`Gz~wn2jNdrsFC6d-X,=y#$Fg\t#˛eR1+' h?ǰŇO0Zt? ;EFf1I$~#9Hd8jɸB6m,Od7^:S?x ~J$ٖ0~ 5b@PaMmBT ?|M/`!?1Wlۄ ?ɟƛf''WL|~ K`1:ؤU)\Z88ooGmvR@{6 c)q |c?6L1MX$e~A~~~~~~~"3 , 3?mcD2kNd6PNhЎJȁ},xЄņcy?x1gB?#"k0~gĴ_bIP)pS?b?ȟOOOOA-~4:NV{.Bp z` ˤSX3ϡX1~ 7AC-? i~@tD!gST{fAhEY'pk6C 8MĤ5Ҍ0{oǶ Hcy|# `ia@)Ls)HB ?<OE'7b1(GI'OŸʬ:C˝{TS OK7d΋BǍym['խtk*DW:#{,OcqO1I2X$?  +(a)0!~?CI8~~0m@d1AXp=յwoԿgr,ٺyc[(tY v2L"yK%1!W%T<,+ؒP*9"?0~4X?OG4?aGpA"/rA$?mKʬ8ٮCȵ-~1ypceaYa6_->x0~`"  2ȿ_ O"8RG~BTxdؖcHѾɮuV-PՆf{h)s&#<>3R5̹Un]+,,u6Թl\^#sK;WO=F&V^V._&O>YlM&wGhw%wM~˪ AKΝeC 4W=[EGyLB49gV~b_GyșߑYYEX?Q/oԯ@w>2͘ӶOOͦ8~[mBʼnadxwEC/̢ńD@ *a@`AX nVѶj+ ljZj[߫պZ^Zp qDA@(H ~f%!,Z>={9s73gZ-M: PMŀc4޵ｅ)5AќdG=U?L*7kaKџ`MMDAyc*?Lѿ概O GUU;ɴt8B#9RG$5跆7n>_f6j}:8xu<*/?UO]maB_sw񫣈??ֺL"o?Ag'-nngn{7[rpWv m{KJ'YΓ[HَӁm? 1w ,|c1x픻C0C[/U\8c膅?> 8lpp?o&_ /pT~h=l+S?]&ۀoo󔆀nxhY@FѥXh?9=u_}O9?Ƭ{Œ5ap<}xrq~L;&܏tX!p7XxzFo**ڌ)9'Z7-pXDImpҭrWEGrkyS 3n֯v9\~ tm?łWŵ>%a"=rg߁>[!yسP^WN%ng-?|)L9T޸55/<%!g\ovU^U> w?Rs>][ o?Y۞ caܺ 98;q}+W ;9{^gE4vFin J'͋q%}(ȡJJ,ҊA~gg{zJ9e "S gň8}ѲI@1~BXe>yL|fw.Ou&Ϙc6} Y's'7(U+?'c9D[%]vPl*t}iY#`9$Mg 9 a\w2~0VtB]D~cF() i[.ɷr+"Sv(J3?m 6~?)X~|6lBi&(UQft  6'CBc5be"T|b?k-8WJsO}sV\\\h ˟W[? VQpwOTcä/u}d2Rp3oҮUvCMu l*ω~oKg[:e8cP&(’E{TwX<$e~A}DQMUG:Kٺ0Ŵ*>aR|l5(>COí̀s'<}ÏG29>z£ ٨ȱ M*6(/d|F[.3M/떿C%-r{W=t nϺ#p7`kuƠcGcq%^Ҙ.?'82뛫vƕ׸'+Gp+18&՗(l#՗GB~|ğm¼6VE/P_N[]hMrgR׺{w:Ŷ\SeIڟMz[tx[VϷɯ1'd>VaهQkS.#]G1\;VVY JQ(|g5.uLgJĿ/v0{X!Х }5/&14#|l@dcob`v3/1=mJk4AT? {o+r5mQXűh9܋42#dk$qRX_;,~[]-8Kcod/%~!R-Lao9oQo ["Bngl'aG>OJϷLcC ς3e DVKV2ţ/:kkUSg쇮e{Px*Ն-0_lG΂̧JK/dF\_=.MTL x:[UL8&Wu>8c N<37+^ #?`ļp)rL p˴z[qrߍ1lGNM5<یBIf)݌ϔ:6zNqJo`ʏ7{gۡc.`YYTwWjCG_w?@~>}6(pIɟD/ _'9XKG~ʗSEcD?P6v?Ir>حy3h.鬰v/ W,%vX][`*.⏩9j{H9NrOе!Y8r_]Txrqíɓ`Ղ?p3>S&rL#LM;^D\- #-@bX}vT_yԅb"w3^HX&xڝjw5{"L~Rcr$r?Tar&O,7~y$x?R-sG>ħ3Y${V4$5eG]kʏ<#&77 0:u'-\9=b.>kt?!؄) Ũ =k1b,rŞ.-{ٝbOs7|R?8Q )8 JX)GxS^w.cP>f~187qQ@7>~HhS*&~+Ǝe->x NDK.qlb*Ykbac@yZl!¹C~2Of n:'zI;4i3i5Hן+uomBKI^8]gh :4'xvqq:Ik1͟sY f8 K?vѯ-d[Ŀ\|ea4l)?iR-‘.׫O&0R/Ojs,pƸmS}=w^(O^2~Z>Fo)z ۢoG6f#-@wLXOF] O]{^%IxWOO?A=/QGpaڶ?Kd,ް7pS*VFRM—UK}K :.?G@Ǒ ~/VK?GeO#N'g XI2߈m}eEML~zP"uIvkCklK ?ilQgSvTgoP/_\)i+~PUvN=_ħҴebSQM| ? SRJ/ 6nTJY8^dKS)0oH4cJAy'fB1[}loHBr~(EzkClRÃr%aΕzL/9Gz>e:E|ӣuNO1WGr%0 a+QebV,//$<y=$W:?:_'e5xuBC:wRIxʒũ0Ryg^Chw_SuF&%>cGgN~GΒ?OuG[ȉ_he[Z(]:KL?[s,Ӧ _O+x1>4m1 u< |;H^TI dOحs3K 罈oxdGD_'~SR0y"w}8 )?XLrcSSk_Y EQ֝:/Dh$T*Y_ RX o_JXבZK۪Kw˻瀗*EJ}nz [%5xeOU $cT[?[ L7-QXO܆"򕲊(_⬑uKdOu|W@G Ve_dQ"ylM$Iⰼ­=6^sOU.u$$M+D:BIo>yV/zMl b[WğE?iK!`cO6?}03$4#z>~?س N;H+?n??ZTu_?<p?U̾[,bޒS Tb7v tCvͽˍE7loΊm˂4}6= Ӊdbڿ\)/U&TiGM!9`H~"k^{!%)xy1v%)~"y>+8o^*ZX a-u$ɖWdү e^ Te߶ #mX?[M KEN.tKy=*}z v}6liڊ.+!|DT$>Wk Z/N]qʻ!܊@&iڹ4MѢ]눔/YmՃ_4eE㏰J M[{&{i+U"Lxk'}/ޟ묄㡉h{Ӧ$XRjZI˹˫#H|^v15&C`f$+z.^es+{N9 e)#ix??E\-SXSfl' HD yƛuOjX%57r@k%0 )-'Bf'Nnx5"9E0~O,@67MWŰ2 ;y4T-YfM^M8 eI#T;L"YmSl,|#In׫M_3i5hѧ; 5ㆴq +~o2"\)tM ](7 JhL1|U? \fT?=Ў͍~Wkx:t;L3LCWkWTHն?#???g&CmGc_?$K3m!19 8( CS5cyl(]C4cU9+Nou}$v);](Q!A7Q/NEf e(ĤWC|HnHјs& }YH Se|~OT+DUho/O>Oɯ:%Ke/?8L- { ޥ@^exLu.Vkx C8o"9's_ОT˄ FKOIQFI˴1upWج zw@cfuϤ&/u|R~eӟĿ#}ɱ8~h(iSW,3s?0 '<~'<~z@MHLsϟ&R㻼N %Nr j"B9#?ukuqN3:~fXҳuTͬZڄ3Jիᗮ_eKö4&Ƭ[3~7λj,:ی6 b8'Ǐb %1~8j_]/qW}HBT ^vxOZOIHޫ$ixS0 +N /˙8kkuP]) e7ٿ~m+5uq(| }񌽥ht: {>x*>j [RJK&~“ 5_iIG6LI<\i>_F]&^?#~Ƒ>4'٧+/.8isvF)i}-TRQ]g` "9U 'v&śڕnҧ;uوS"3R28O8b).v[~t/s|Dz@  o oZ t85g=^8qօgcX2?f }3Vo~O)[0iCη㈮p~8t_yxCøSD~1FdhI*nĔuuI7_& cxJKN(Vn0??k6ekg ָ,~UpοLuqqO2NzռErt3٣|>ɷ/rN:0U CM]ĄZZz-Tj;?1?з|? 5 \Ry[כ>zoA:'MP9ʦ!o ~mh>8ۃzC8c4_97$2 fxj,_f'G~(3R۠T8hoиE&T6a?bѤc7yNz߯wG̕$ O~kG+IR)[6Me4G]DY*Z>DL[_gMf=4I?,)-|'32~'u:S3LjVWDrW*_/| ϾS0%y^~mֲ.UxmQrTK*Ѹ}ϔ܍&C  HóE/ :Kv)7|#Iȯ#+%TpWDQEXpBG~n+ɿ}e$P_pF#MJg#lKOi6x#x4ii#Iyn B+bk]4:`ּ;}< Z)|0}ZBy' iU٪Fm+OG7ƫ\ ?EeEk,o sӟ1~Omj܍~uH?9cxh"_ϨM:wGП#ꠤ8~Z~'~W S?&Nښni"'IZwxOwp+%?ifԋ[2r!Lo~~CM-9/_r%x6n{XT _^P;`QGgb,)ztG&eU8й̷KO,Hz OΖN!uw@GYRׁקM??e>0cӘ:m>ӟSc'WXm PZtq zSѯCm:Mfc4*F׊1xbi/~o|,=55v~ 8P䁚ExlҒ7 >HX D x|C'8-w~ɤml'trT0 >Ƚ 'I @Ot*6 ?%@2I}# |%zǯ4~=F y~\.rhi *kPdEgz:oސccx:1uyʩNsBYOkwBkT)n7oO{>i◞2:2, y\Ie)b|J@.pһT3NOY)G4O|ExTP X+DG5aFJ#V f_k/i' ֣;֡$!IGCFl J5f0Лz5= "/jƯͤ\(`4})'5XxϠ?KpAzM?$Wb1QgzO[+`.?~W erٟDbcV'՟Хe}r?gph=UX1_5H:?I{pL\vCs3jiO ST4qI ֑?b|@Q>40kNP~-Cq"$J?+8chqݷ^=WF]}S_/_cT.9 e&kwnO'yE?ܫ/fLm״'DYyr^[ =t!,}\쯾k/ UO6t +WoF[]x著p\#P>"\1SS~z<~ n{*3 } lG+Pe F~̈~4DpTIiw1"[CH?CO- o͘rxhtU k`ltX#i׬/~rwһGHn=ם~—dk8hg->"#bB۠_Dw^2 }NϾu{ow%Z&#g)fw.s(hg t0YIv:tx9~"3{F {_b]{F.r?W侚fK7 o;Qcgg-DvѣrLa# dEE//=#XIρ_1m ~s3QuL9J OX>9~el6Rt^kzL/b+2.CO{%{ȑ/„&݅ _ Vbpv8ұX}?aUU Zq\,G 1l"v>UW֥_0~29k[cQ#ppt|)w(>xez}>>{!=soh|`yc߼+ڕh!Ejb59'16E)T2uGjQO<:'\?լU`-4]O?؏]yH+U^8v$"\q^NX0e;!5=O~ҟT3X͇T?ڍ~gq,kƿ3&, r+)|vu rwxEگO2~OȌƗϯ(}_NN)˥eƍ:2P @֝\M借?prLОڈ:|t*Q}~|z ?W|-οTǟOH[xo ☳9Y~- IEΝ5M$rne<_">mطԥ/F]׈ٰ9NQ?5Øo N@}1z ,3ְ ?.uZcC*L7e, x'xilTR}E/?U$9,~QϵC{4) }w ο~8X*",&=~r3`6O]C9\6CQs{s~ތS0{vzfꄗsB>B`s៍j f{^3O: ?PZֳ[ՂLm@<ƆT~1.Z.G| Sp 0)5Soe EI{+iW]_M23~hűN"N1{+X/q,27|q͟[`̉b'a9CK?cg^W8D??˒P\fDq}Z1r/ރOb tj3fI/9Y_# }/<Sa O_+b??n??ziZg9W\?44ŏɁ8Bn; v2˒[:[sLyBں\rgk~zvTv6HR,d[H6'|ᮟ>{@{ g~vѫz<|1qqs 7ࣷ_g@ƐmkY/8.d"aH:UdB&}^mJڼ!7OrC;7cV,>/>r4ȯЩY1j7~W#tS7Jl,rpPo4U}iBj@nZ== ljX!e[ :,_8 ": _9pGgVc𦟁//_egft T';r {AJ̚6G^?[ ^="wn ')LM6 K"s{`y=+:I9*W!f4'Z Gf%'fp5WѢ0{>m[omc{u\S&t2w {5\1EYo[[yF]Cu.[ߖo|.-g@Ѫ4oww.Ƚ7Z? ~ >I>q%gOKJ1@u3ەsݦ Wv KkfMLύ?v?w-?N?'txwD_‹$\ϓ?~ &d<:Q"ER׮<}*hcm= IQYqGqpXN_K(@ٔO.j]kɤ?bơ| 6n\b4.=ݢE)fcwV-#ǽemO#y¿kgZ'kp>>?2_ݖKn7^["au$.Qr:ʴBK[7ƛ2q2I2siヹPyh DU ;ir\ug֣s~==6-+آn Rn_o:|%/o_,G} K[Dn6 ⳏ`l~(xnߖ|Fq r߬ A+ /rۻo^|)77߱ǁdVG}re%tl\u 9\rgk UvrԍA35+ ;Lk?5Ǐ=~x?괉dxhLϿw=O?G1;f$K<~xeA#LFs?G}Wf!GN>J-A3%1s)2 d,wa:~TBƺ`?b?yc3=Gs;24>_9 8*Rϣˉ+s IG%;\~̛!C|# ϟ<2'۽?yEIϟ< sv?ztA×8e~SN .I30ƿmCT&6T"ο)ן+n? ?U;qxB zӬkE'+?jV=qxBzìkE'+_5A)[t(\1V󃛉qشT^ƍ{wm12^ #E6rGx?=~x4o􊶙NGaϪ =4 ?xA"):1/~|/2 =2QYkk 91G>A'8iApxB<I?y)~~<4~SN .M0[&P&ZYy-jB6o rP#~ Ӊ`)? ?1M$VT4Ǐ(j<wIjm>5m˟"3CqpNd`cHBh ۰֮sx"Wx8 n?nr\e?

9 8(L^h$Υ,qޮX?Ӎ.H~=$<~XX 7?<~K3E~珚9?O;>R]rpPbϖ]̲Cmy뺮:rXZ5/my$((Yb>9/M8EYO f ?/yVb{?L_zü?Xn|Of?g;"^QѭUI,ABy1WY}IX?A'pv#])–E T@Wšm\-yۏ97?:<~zT??x`1DxC:?<~z)Q/P_⻼/p&!ɵ# >O:2xKiKr VCeUA_'x`"=/Qϟh2?zDϟEz}rpUr, ]|axL2# G 'XT>~TBƺ`?b?yc3=Gs;24>_9 8*.ˣˉ+s IG%;\~̛!C|# ϟ<2'۽?yEIϟ< sv?ztA×8e~SN .I30ƿmCT&6T"ο)ן+n? ?U;qxB zӬkE'+?jV=qxBzìkE'+_5A)[t(\1V󃛉qشT^ƍ{wm12^ #E6rGx?=~x4o􊶙NGaϪ =4 ?xA"):1/~|/2 =2QYkk 91G>A'8iApxB<I?y)~~<4~SN .M0[&P&ZYy-jB6o rP#~ Ӊ`)? ?1M$VT4Ǐ(j<wIjm>5m˟"3CqpNd`cHBh ۰֮sx"Wx8 n?nr\e?

9 8(L^h$Υ,qޮX?Ӎ.Hե?1;23䬫0Ok-?%-9G7Ns|mB7_GxbEgJA*tIq\MOL9|@Q7GXpţ3. elR *;0mFƵ_7;VtG> =)E)lذ,^#fryK%N;\ө`"M`rOٺ|O:w}?an`;o_<~?_<фwy_ct:!nܮ[z.d ?Kp~hV{(43UIyߔBN)۾(K+}'쪯֯TlG,geq|ux~Q' Fx_k H?O_~|ZfK0X 5MD([Fgxò0F8[[sR&?kqQKܔ0}"Ԗt°N8`aV0_ZHXoN}o'FۡKad U2ƺoGL_Ø L;t^b s&5;~-~OO32%_L'B?~t'<`_-9 8+;S>1U1j1ƒGk~,hŶt[Lߗh _|OKCKX{ #?Q_1;?N?]t8???q=?}&x~yܿt||\D9K+SC۴z&ܸ bGzϒLgCBێ}p ~Sv^LM׾CǦAǖ鮊1HߺW '$<[&߳J&>S{+YrZ>V G=;cݛׯ[&Ngg9wcBy|h6xv m1d\wot/C`/ UO_.?;c䐞hݴ7o>=e8cܙhdLuXRw/~q38jx˄F+\6 4@t+* 1uI]g\v&,CӃ ƞmf~^{cW:|ǃNه4X?qkExVX/7G3M 8[`Au@7醃i/.ena΍?Ԗen?!~ѧ\\^:E4,p'=n?<~<~?]H?Pmȷ}rpUr \Qpq9l2%>nW'g6/wCn0z ݒ ګBXuoT5sݢ>{%Ұ*bG[?ym|)S~U6oX+lڊH 1w@,U^(A1ؿo\xҞ[aMP޻2/vKGѾs=dnmy5QJ9udF42Wy6pc:&_:BŦ*,pZGG⪻+.hGJt[/6]kit}w:W.gߔZߖ_RD͛ueYI%mJT0v@֯\+Nهl^]н6oAaIsU JJ>\)l8{'^-sǽ]ɲڗ_v4~3dN}W3s4UC}]o$h/Qnv _?=0?@1_<"<1i?x9p黼/҉fBWgLY-Mca-y-]M~+-3qNgb⪭Vm[Jlk>! Zc+2Eο<M$7`(ud{Ԍ;~?)_1Kѧl(FTy,\li\.7O#p/DioȂ ~Go|~@{daƙCU-I?oؘ0Kc|S;.V28 0AUB~|J[/StxJtn7r5fȘNv_w@(I%S&~v/ѫflnX6+,$ɊSʂci58A=k1?DY2 {q[Q; 7&O|]zxZTbH%0W_$Q􋦸8|̯mu9$4e!z` [ <~{?%0t`!|);!xfmez:!ʓ1޼w]![o[M ][KUx7BLFwµj_r%ԨDMSUvsM_o 4Eo/^k渲 4&H[ rZ"SnxQaDB)r})u+濍KW_ϾP&ܫ҉~Eo?i#Ɏo:JmW=Kr93G8+?=~x)?y,Gϟ#o'en\TŪHDp~^]Q5eg] }4YЯsWAV#/4o~ia5s'JM&mL[ƟcpTfeNf=7H^wU+ߚ\{SJ\j#GeAA\C-3C~IKK[`uUZ5v~^f7ryV+ˬ]LK k.l}+eaEugpKZ' 7Xy?@[ۋn =~{|'FsEqȴ:6dBIHCrr śCÿ˸ug `ևIcc+Ql~|ɭn5}sۚ7(ym X$Өm$wϳVʷhq#-axSU? 6qL9ϜmA(/$ *O*t?T}8b8R3?h5q$KU+R77C;Gҋ])4w+\B tGMGW'RjؗZ*tq *wU"drâKyMzđeD-qFQчh]f`(&/ WoSqG#:eI`W9gϸ2btMd>*ז1g.ph7o9B>f:wQg_? żf꘮(-qgTS_G{㈓ODWI #_!+Sh~:zvΕ*6!$$$$H ]VUQ,+b*'*EA~bWEĕb M$Ϲg̼P{=} *S`|NkBicEw&sM0t|t=>}:<7SxL못v:17\MoTJW9柘u.F_'-іZ_<~Wܑ8kOFfBCnwYg#ϷbX|N=Zc1ߡ$xCIj`r94hJ; _bR:՝Du tO]Y(܃/0 cOǸ0g|Üp^HV9 xݴk|T4~WP-AXB1JNT#Ef,gbnWc`?o$YLUx,%~2ڵ3:y)E?lm8sJʣǔ˨W3ͦo|N&Uj㑙kDjIs mmz@ю\<{6dbٌ<ᇡx'3;/~|0ϟ00 uKCK+{0׽C-.f e-4_3G5wX٠d5w띁'{| <\_u6v:N 6㐙 ͩ/Zwח,|a Nſ%Fe?\ExPߤxXw+iE._G 6m[Mhx聾F)} Iu?ZRZDU~VUY#<}|QQSyCx?jAi?جAˉ|@sY4r`F*GY$ub֜|kDjm;q6Ɓ?J"j<ƒyH '14?{FV; X'4k^敧?4~h-M"4h^B ?IQsIm9&NvzW/u&) +?c8֢qOV릨Jt~3k}2%E>jq"؍odzOeg/?i=:O6痏_Ϳ4dm=?hab?4~hA/>jT{-CT|e~B:9ylwlBF!!Kduܓ)ʍT}hr~ SQQSGFh)WT揚?j揚?j?Ño8Kr"(:ii~Z9+߷0~eEH"+C/Q3 0(<^rn5ȄOղL<l=j * O|;FwiIV~=Q{G?4]smB?V(F[[I 3\!W&; wi&u0b2R1ΦO&j(1?_K7i/m#G k+0??%rhC'C8h揚?[1?{ӳ(KKsWvt-Yz&iWgIVX G?5~Hte3)5 ͟Ch!rdh`?t?Cj̟( (G:>.r IM )G3`t[? ?Wt80tbnJaAO?%2H \/VpI8C|t<*>h0JhfƏO,88%0jm08qv7;S#Y*_Ǽ֕H<}T~PCɧll9͟4I'͟4IHR:t2GZ 蕝CPcF keW7?6or?5~h 1b?wuHX TS'HC?4#O=JlIb.ڥh>m AȞs-_) >#ɒ++)NhpyEG|Oׅ?5~h`?SX?<M?5~?XD-t'jE'K(K -J,_OuGKGO{3F &2_|Q>C?h揚?j#_33p͟A1DZNԊNe/ ʵG J܃ϹB3G;r!&V\~]}aT W)8cF_5j/ǂhKvte ::܏y*X W_x4JԊǦ-ƿ1IWWW[t_?kM Y8~ME)kOMdd&8FxA֞#>WcÎy$Y ۢ?\sBͳe3~b0,syi/F [#=I#hx#S:zօx7F֌ˣɎn1Em,7UvQwlFTjlB:~@YMYN<*19/tRSϱ4\?bUB?o캀Q/Ϳs8kNNtͥZDk156>KyFO=\Y,1FaUᝑ삂apPgz"s},|O%z98+;C9'`,DHILLG`/PDEۿW^d؋SV;cFw0I |.o- ߀8AKOKBulOAc}X.Hx*?oie,"=Fx3v.k ؕsb0X_E.rvL%TހscIqpd$%eɳiʝyο<#FP}`Gv#i:v/?b?UOq jjj5Gj9%ݿ?BhqM72q*r.W%R}~J>m0md܏[B^~j*7~{w\܅'`xj[F .ʓ'ё_FNoTv?Oo|lWqd@%-v%QY$?V|ް/"98zvEF^7Cȱ`{v9[풗E'F/4W?lpXA~X6٣?ϋz hfIB$M2DZB[̲%V 9O(CG'Ob0/&+oާ? um~"bO0v҇ pRPJnA'#)>EE㷟ᕱ/cmd92pyCtw<iT[hGtFإ6_g3}JJȢtf?9&?7xvQg\1{xOúB3oه9j)MQ3>G,.&_#gCNGz5Ib7b# W:,W~0th0ɧ 4 $i;M|!>ikp#/EРfUڌo^Ɍ¸] 9iUQbSճg?L 翅9= 5Ţ8?ߑ C'_1 y=VbTyό3"d*3.}@r5$WJb k8B 8Xyf\ie"u+}3ɢ<|y/- s:uZԮd;w̪磔ߨ SS+Db& -v#&23r񲿢OXDL?L1;%SoSw/ﴋCnPFނOȎ&h8S9Q!@5;y"`Lff>y| s7 'W~aŞ].M}YtD[0|ugBL=y]8P芉Orx@M ʘ?I]t :_vmýVJ濠G}ƿY,bc) V'~REEՈ+G;v7NO#ӗ`k-~KWdi)`;Wi?*-~qPH_/_|a<S=D)t'Jg攃@rs0e2w͢p`xJB<{MiD!+ YxHUk:)H;FW .tUkTߣυOMcE&M[ fd;/53h'tu6rŢ f%v6y9m?Ǘ 蕝\dY˝IH8fk6 :<~[1RƠeSp㍐{&>2 s\ٗҸ Ip-j%&pc?_gY:DC07_ws)FFaH4 f,v8i 4KgS/=,o:Bp2o0A1ѹw+̘J˧+V\!2Ѣo>&(sic9ޣ'UO6uy-xGt)(R ×GsDɷcৎ,C 'XsI} hvȠvn37+[p-wÓ.!9C1}wN\Jyu` T6_ǥ!JÆv;V2~ W> #CBSZݎW_=4Ez]:~,'YF·ˀ"Vl/+Ľ~En.%W+hC-`eRQYxP?~s|)'f7HsЯ?jǜvHKm3\w~ܣkHb=uj/1HpFv-λgN͌)SzCvP{8,FяG/e_ X5zsBܡCY74ϼ[~:_Ѹ|LϠ_b̸zJ>&'O&<~%Wk١]n}fu'2/ _h/`D9ύ:'b!9oUw##Wsb^onG3懇 ~_bo?p vC3$*9@ϭ%97rC!3+khjmk]n_'ǛEh^O?|ߛfASLފ6o5<Gb0G4Jނ\z]Iqra8OSx!/?yz˫µ;.ҙ4Lڌ N&:E6mϹ/4OMytZq\ CdSSyㇺ7o7t%mj)x,R_ :WzseWk6ԥ?c?0i>d!yJI?#XZ捌;Ijz4r߈Ϧ шF;H?^xeZccwayo6 ja}t:?ؙy1=9b@zݢ.mПSe4Ȏռv#p%z#; sst\z =J`̧v{l-~~$~~RG3ETO76o|]~vnPW2nXJxdJ~㗆q ?֡gxp?摗Gΰ8ۓ_qdFbo#?',`X++CߌZxS* ]'cxgr  c fk=Θ {|Rrrw-Ĵ%@U MN|y s?śً#7`70z1VBpZ9!*/IMQvbi6;- i4K?)>z3W3s6oFy}EOnl_:Kt£ʵ?"|Mfb!ͤ`^/X[+a7`[Cqzz꼃O[h[JS;B;VaGvK$5{s_?oj>5/w:"LҤ",rIYrft:2( cp7z+~Y"zm'=͏;VM, /dԥgX*2-i x4C|(<ʒ ?"uLg"}&%En縵V~dY%Ϝ+"/<#0z-p%>\~.<%ۑG?J=:vd5|'ND^Nԍq),|EgK?^V/eYݐ4`j#W/8)~ \]5DlG\B{yik/@;}S:9hd΃qX~1-.Nyȇ`"sF7}`?W зwm2ӤdBuBzhԨ~M2uƑo6o$ } 9'#+6(ls?jJVy ߿mҟhnD#sz 6rfGg^\:mTO. ndB$Q;6u0Ža?Mz ES'6gO(< nc;8S:c *<0~@EIHnޚL? >C箣` ))iG(`4ۏɲ}&Kl63Z ^B 732s*J0"ut3n,N4OAK#됷q--'ds߅͛X"@] ~}ZܓYToҷF& uÿٱXux*\~FQ?f~3mPIl_zr7bkkk03"PD^3UJZ0O4'_MG GNfCɡ?aZ,_:NUxμ|_e8vJ?hzނܱRmZHCAyg"V&dzEzsS8Ic:ĒZQUQEoϡ7͟kҥ#Mڡ^WvHyX8 4L,#kXӥ-.>BOp#XX& x>~.+o"7LB3Y%`?_^%#Z<1.JV6'G#9_>SoPS!EފJ$dK0}I?@2.ćBxRZ㞑yȏhwɝW;6['V_jR_L)y9S'?$Gj_5D/t'ze\J &YҧBΓL輰>M՜e,D7uuX3b'6Ԏ _,<;OӛP^$!ܯ4UrxF>\gK PmeT!Bo{ z]ѶU30y#0_Gy×k%?HAV)kO)/H׽EoHic6l ųkǝΊ8XF<{Ç?&@cZY$8<g~B'95L]I]{Mr ȏ>3?}B.y-r IH&//DY$f=q_ ƌENXy|V~闡_G|aPgy3;ӒWch]4jD[za1y2.CND v~օ ъ/yL S4~ OF2q$H/2~&g9=d _'iKiqgΰo\:BqPʕba.Yc{mMpy-t< x{ w%w`[EFD }KI(~Yxa*y$G;r(Y&fL:n MP8=dNN㱅瞖r.:+窅L^VkѣeC: s^V*3X6B!-fxf:Lw-m #Kf~:!熑X~zoNX1] ; -'a"`^ N͏76+o{W\I~"$urZAϰ$Tz _>np}(~['G *N~$\c6o |x3H=73L EcygD ĈqJ;wv&N> ^GJg|6dxGfmi̓<#7u`6gp>ƿ7}O0M5>!xUST~ޙY1=QI=)vDYyAT"/Y `O}YJoy!˅dD.>+L5?sĆh/osG: #=;菩] e%/>pm^q&϶ |׹<]S6- R8)-߯`-ih~ Z ӟGX3?o6%P;Hw-?)DjENB?%-.U4)+d'G ZPk1r $ׯf:a)N|)3%_EG#8Aytȶ3XB= Gxl|k-c3 f4..P uӷl m1cT7J^NhOa=S4ͯ9O\I?ŝ97UV}(q^6c z_7..x48|jl/ӂ+52?\m.ͬ!J:B3E\ՇlMEv۸ -\oMOlK6-sǿUY֜.߹UҦ!!gӫp,Pу'{`L_y-InE 2-3v};B6cGAdsVЫ= VSHSc]b~+?Z0mtMDhV)x-<}sμ.if_SW"~n(qoCf `m:#gThi[f')<T< Lrߟ_@?N1%Kt~bO5$\]]1 cydlJGG9A䟚hľ7:9PNT >^ܐpNZaQ;;ɬI┅/c iL>WtWu⸺.KæoarZ+^]/ umŵq˱/>wKNq.&A~c38\ Do?%k0|V~ld|t7jK vu{9S›Q s'aeIb`ocj.ZY(ELrg]kQ/~ Lo,v$@IDATg\9q.DKŊUeO 2OA׮Al¶@8 V1lw{y5d?wҲ/3cZ8y[|?"A @}[擘oӋv!& W@ܻ38ca͏f}NW3`⩘mɏLk=^'TqdD:Utu ~)-p"cŲdמc꿟cРy{tiyX2W;ր> ^~K1bC%.<8Li0-]'7Sb?YDE\+>%گ~Lq5sV$J( #%0v_x KCbZ60 ~}>^V?m\< ~ &Y3w~S z"ϷbhXWN=#[?oׇؕ >tLO6t ;zVYݐHM[O >!{~n0N=N}M'< ]gz]*5#ܴat)sd?7l4-F7AԖhת:fCr)_.~ou#!)a osHOl{..xį[ܿ9w6}ҔxZkK?34PXSۜ޷`X|N ?[Y`L~/RbF ߆!; 1Zwpꏱ^4~k>V=Ft'dD$[iIR&dS1ulURN(91[u9 =⨎K:~]v0t99Mn]1?YAp>'t0B$Je 桝sszZtszaKOZ+KߪYI]&.t$: ͟6= Ÿ%>-诐؆%xFz/_/bϥ$xiBb^#PzѽsSC]5uxE|z>k.]ќYߣ_~ p;q)=l ofv G!aL3[oƸvT,YcH?3n,b@IΧ>MG3HYz^Rknf WMڡQ3ߚm6os_ǃ$g ^?f9̦ bB~ɤ/H_L1<ѫzB w-tE5_<v{ZvK#EdOXfk\dD9=eL[ikQTތ_LLTWG%΁95/bvb Pcn36 |E-| K959t_K:4LF.Eېٱ&-MtM+喳Щpo)k 5 ;&dp3Ck1{#Ȍ Ur뎤i2I3^w$T\whǃ玄=@~N6.qq>_ƃ.#<;ӓy o~2~piWqҰxw俜 dɡk'sa/>G,c,*/u@HY{^!Cv-?͆g<8]ƿ#-?oi5ZFHO%5~j4i?hpVйm/ߗ#]Tgȯ/R}h?7'e6jq3.WR˿6??3;Q8 +hq 4;L :F>/v{ëؗX;9G٪WTWWJ'] !ٸij?~t,i8ީsQL;ʒw?+"09ohb3{Gk\'RZe'q^;DZ?q@?ngj w4Þof`"mޔ~$v_?YJͿ4O?5~h_3s4:1-^P?$]2Gqb\r\L϶xGy5Yim^`2󆀖(h}1_Gl ll[l_ oyZ# kjb?"}Q[O?A "4- 4OG͟*?-or@7pUr>yG.p5_I_BZI ~>)Ψ>HWj?Gxzcyz֪UQS'+8򄹣OO+c,$-qz  ڴ؛.)kڏpA :a-EsB'DRMd6XPi ?4~8Qz%Q'H?6H/͟X4X䘑u" &s>4φv!m>*rSxE0"Q1'+"թzCO4QG#劑4QG͟Ao-ˁ%])H̹MVņbˡPჃOGG|or?5~h b?wuHX TS'HC?4#O=JlIb.ڥhnD9/VY԰l2:$ѭSƿ9jfXܼ*ŌT0Q]={4Ůs1T\bG&z_v})3>9F_mEbfUkǐiس y򻞿QzRJrt5ƃjhQ?^/M4~yH FN4JGh'8k;ya[:k0Ms}p܌8g6W.qU[ױ8Og տäok;QFCsQiYQZwtϟߎgTk=νFZl{w Mq~j8?9xqM8_sӚ1`Yڟ,{41O/3w)9e'h'8<}2 X/9uZqk|G^]85 /~oe/8:ܖESq_+r"ֽ?˜#+Á{W",6؉Y廓_3;[ۆXlHn ?QQ!~s 5n)cX?UNJiW(9=ڞlT^WH!w*a9tk{"y柚;FlF4>U~*?]9WКhp!*98Q)`%| %Nl8q8pg> _5H*ҜSyrr0MevΙ1C={c?WdzX>cGh%M?f?ߝ%-ӂM\?aԟ.hQ[ѓf;|?>Fʲ%O?&8UCpNZ fQܼB_D[8#B*'?B4͟G$Rs29??p2J-Qʁ?D)J A\pȴ.\^75/dU.NBSȤr+?CՎyx^rCgy!ɂ*IW|Pv᳙5`GNsT}[7|Zp\mè8~D[mvQ14qWxásWw+g<Ţ`f|s8s "T~ 1Ȭ%reZm c-268rdS\kEEoFn'Ģ]ؐ_L}eh~uJ>و.yТHll!ݱan$QlAttb>:K3RP5m/?G~ l[?~?t+iGǺ]VU _ב}JX;w"&>IKcB+Xq>ҩ~S|_觟~;GvTLȕ?Tw'/4r9nd{WC'vZ{8R9F3 l? /|hR)XwT1HŖaG/9`C'8TrC[1 I$I*\PbzE 7؍ {}3"ozl[S#Vq5i3mZ"-6eS[ dFI$P%~#7O78UP1ۍ|OF>8{CÎ_v!?PIyqjVe3 ӿ@&-^8l rb߶M8I tOn;H<3Qk_8V7jڟ_iG ![ow2JodC̩ԋoDExټD濍GI"mՌ{ &`dK%HKD 6p|EC$™O+qq ڨ@ţGѿC}:+V3deM3$8b~CPa󖽈!Y ,m.Q)ŵsGjV{;61U ?͓W23PȴIJ`Ycɿ!ns:5 =ۼm4nn0fI*Ν4CȵR3oVmpj y5vԍhQQ]N`zt*W?;{o >#;",ǖMQDvԔrk~dG!_/ŀh4#;Z#Ȏ,y,'8ϟŎzg;ZQ~=tQdػ_Ⱦmu"hlYjuⴞ3W/A4ddHT5#*T.)%҉N׆Ǵ, );LdG&]qk6;?+b q(MIBIgѱ 7׼:xcU4ne/³s_0>=СyclaS86o"Ԇ67&{^;?&By [lgpy{\ =1[S\A[&?3z&L1-d^FV٤g'dGO,*.?ݏ_<^CMѶs{b7OI1!e;NnCNx ^wɔ%ꗿ'?6_OVFvQXyf)_;%{&=0؃;21M $~ILr .=xlx˝ LaxZnq]##g:wXOً=_zЄ6ov|=G= zS^GxLEOilmġFm?2X`#̟ƿn`;4Mi3F,Dtmאja28M~?;B;<*~R>0\J1V>ϻ_~;+)ox e,_Z&NOz2U%߳))<.pgЯE1fM=Qȹ26 d{8s O>f<~'Ŵ*Y3r9qengRkd {s6ʙ&-2J8w Eݤ#Ūb yҢ~g~%m3 Oe\(%]ʼnqeZa)^иY|nD#qhHu٫a&Db+b+G67i` i~}OCҶ䈁I[k\^4NzSvvfʿoE?wƓ^W͏H jz(s}l7o,~>+ׁ̉O=iP\\HpK Cpφ(֜v-('!=xzM_gޠYC'O\4˃dJzƛNm"KUGzwG `-FfjMWl2Z.sINQٶ`xҳ\}WdGW7D=XɎS=cX_FϾ#`,X~ v4ȾFλ/H![8ǎB{scd3oG>)ޱ8yc%>=wPl+Kф|g޲7ZaxtE_}̌FONdgx'%s*ɛ p3tK0vKOQӞ9MQ\^57?csF?X~5{`\s\P`ٸv0p-j_x4zEm/_ |ˎt G~]ВvV+3MAsV4f'O;Cv$Gfq~5ʑ_($ a:*Ve?~n+ڿZدs@GGZ?;Ә!.P7?QZ r#/_!Tu&u|7 /1~^a?Xl\fH-E OgfP-MnLc1a/:Z>rmBoFa;3o𛅥8$EH0ڱ ShM0z)W Q#6U9$1b􃸠eu[5׎)G[G/7}\ugXch^o6//Bs@;V;ޞ|y~l[~jb1O'N`xwZ|vZx W72.顜DT4E',?_N 5-\~Bi6dfJ9#43Yw7zkЈ^ǣI)qزl9-\@zހ)F HߌYCOᩖ C2, NџtEƃZt@*$?QBlGKuIό| zɱshmU{y$\_jVÌ:1:ÿht汽/%{hةl4<9a.pxC#Kʑy!w×~zЃ (;JQEDO/G&.ngy'6OSSI:ᔊ4;o~o>cg #ɫ _zC-x]w *2FΏHM'^<<ȡt0r.ybxuM<.B7'1\f \ks:|t^/%-|r= y'|#-w歨]1h@D} `Ay'$$ "AQ[(VbUXEſTiZmE-VAQyh (D|ٳ޼Hg 3s7;wwY o?MeI߷UK5ｿ=-S(-"R+*_گİ;GHn9ic?N}* 2$gMr>4+NGz }ӎ&>Lh7#Uhۙs YEQ=|ܼs:OJ20$Uzsm?}n*ݡe9>rM8W+"tgaT?3Dfx3Of?-~ āl,%'߸&K/Hk P3vsw!A2z=јp̛^lipA"GÜq2WKE X=}&/0{ q#e TF5#tO9UlzQivG̋ǗϫANDvXcUV3>|3\\rmt<t"̤n~KqEB/2tVUwcGbgNhFmnڣ#ݻJQǼ]t܋^vbG' OiM7,hIOxm@KJA[#ZqGtͿ;v;a$Jv_H|Bҵ)ygOђyoϨBzăѺڿub߼[#==x髤b-pQqgI8ͫ$\%{Ȯz[T|$4~˧)cODž<>-ɱ㴚C#v|1܉t䍈OYWr*1tDx/_\X0E[("Xxq4[&KoޒY>e.+_nb|/ WyO '.~,&/vп/{Way_>J]{_GsY3Uɿɟp8V?FXbCp1~`p{׵,%=q'Ɯ͙wWҔ^\3||d􌍇/{`6*z qXJ;{DƈhK_-=.w8ֵ)>wu=)sך]~,R:0n1v2>^B -qMbg=UЗowd֮v{nh\`U*ܗl:PjQpVkAQ(+Թz?U:X\Z=-Lţd#(zC7-f!1}2#?QV >G|Saz'hxQ[DUO7x-h}ʤ=TUG}8o-xipe_MTS1ߌ㬜Vصr~~<QsңE+BVyLֈJ9iJޤɟvWY$u.M:~fVZ:I~ϾFGYEYn5 UGF@=M`?jXyJi~nu/z45XP<.߂k9̟׳vK/Q᫝?aN>*_l)fl2e4TU|pB:OAsCk7,sF@v__O?ML?fXZbہ_>d~EIPu`A3dMPm]N>7G.8S6+ݍ*~9#NE8t@sb/6Sӱ6ѹœ>XJ=4^x#>(Ւvq<,U}qI2􍐊7$r Ĕo~}[Trjߵ:DY##(-^ZY_B hChi6y0V>('ϭj',y,F_+f?ٿXR,_WQ@2;/%x|]yhB ^!L#c?YH"[E_"/,: M0R<:c*pvΦv9Ivt@=qςg,ų_C Ɣvpv:L ?ńw4Ҏ[$/vȘY?>v_?WHmwIǠoTTbn'{!$;SY8e;QI>_~#'y(_ZLDZM`ueR.Oj(6Rѣ'-ёʄ_g#:+_ISrODzm{ZN2.Gؘr^i}K) HIoGGϸi%;\/b#:̂ ]WƶH++ׇƷO}nt R'êwbUض+`-xlyUzMPgO ӈ,D?DtÇ p&WʀmL z@k߾сUy_6t3)uh[OcbyɘP?ݎ_t~y{=R3 de9`-t"mtrʑ6޸<ՙ:-ue-Fs]?V=ЌƱ5d Yy2ѸiInZ2OFmwztx\tG?C#Ѓw%} }g>3ι#{'~|{ o@d*s 3VآgScOpmӗD[=n^s^T%ѽ0xp_f/H>Mo|F%'#ww4!?'M#2[Irc;=۱%sݥW68]iS|!Td>\C67C+Cgc/^~^qh3h)R#[U@IDATh1"ɏj>oIrb'l3Vߐ jD,(Sg*nHg?/pص~r3&\: I&<ɸCᢟ vob۹qQOiCcfk\s@&RV W8C~J^ Q oAcؾ4-(I6np<*ɜ'ПlU7_`~<pw5p^0=6HOŞ5/Qk c7艐0qX2)GNjWIYQpQyycO~'~ #J8䉚{b^ ׇfߕw`4>/ż[4x( ; 'mSexq^VxuEO?5%㿉^Dô\Õ-W_$>з=ÇֈH!g0u ;Ht)G1qy3LHE)^˽\yǟHθ'K@DlIPY4=Ĕ+`%?aNZ$mG@܅K Jx8Ԋ^nQIۊoW܋ G]w򯘅ruR\9r'ggXx~m|k;n<=O6 9ݺ7)/tܚs{r$NP ^fp}Iݠ%ieCCu3z-n1IPFлC3l^1-*a~qA\56}U 9NDÁkߣqM /."z_F.nʽ;e(rO@ #Y|7Y҆HMŖ__3 ?Oz?_.[bC:sف^v;Ņz=,oN ,snGteصctNC!֚zf,[ntʬo~ڥғOm =_F~.* i!(*D)=z$rJd܊~-]'~${je?~_>| j߰cz4d|Jvh#RU?#'jGxt|š ڒ\zᱛFqO;y:a;4 ";ʳP[q^Gl=Gg?~%o<#$Tu?Bl􆟓^WvWGH\&&__[n䢋s_2:_y:ղ[_>4ǖ9'/Q,LSzaXmQڶQ]xey󚎵.p]>w(Of0u鹿ӕpdX=9s==}p{ld+E600/?=oA^dcӟR/Cӷ|lUɟHMbd10%xȽ3Y'-ԳߍO|Z *J7S4b0e+ЎxRb3aLLLT#ta4b~z؏ >VIbsNLjϫM}v󂀥$G@n$%^eއkW=6zOʼn1S'9m@"lXQXh41i@;ZI_p7,䇥FkkU,MMP:133e7_f赻ֲOc?6d<إ S!\8 ?,P5DЄ/4XMB2GU$SE"@Xdlɏɏx#2#rU>8W[l}ELky&hyDk?>}'rP9L֘(f~]U,0iP?]dEIrn;ԽʍO~׮oWvc":L{/yR ?N?"TTlz#43cCңrңL~4\n!VF`fcΒw\qAl,P|@vOC-DK,~\ş?~&?fO,7G?kFuk:u8y<_~&n<=\CRcsi/C>D)ԗs7L~XL~EH 6ҙ,Fp ܯccdmc^4a|aO?Y$]mɮ wGaú φ.,k˔"^^mʴk#\/1/XJbxEx ]\FMu^3F3a0Q0@aP0bj,~``ZGX,~ɮ5fR_h"<4\ 6Yd9oqpl$:>^P.eb7DQ1a1b3-[N}0i*8ve?}`Oz}eŏ ?}}r"` 89o>׺.{9ux습VB#BmɏM?l1~4!^sY$'ŏ?ZTg,~~'~Rh_̅m[I֙ -kq^&B]FS_j=a)*rQfUJ ) E@+TO~*&O Eh!  cCBQ1!ZcqBbPPT~֘`P9I6!m2"` 88k13i?Ydj ?%KD&!'q%!fY͛:?6'{ m\$MÏq_ۨLP1qJa?%G _G(vhrwɮv _mNN\4HqM&H78I~hu^Q ?AApPM1H5v'5̄OA O20?o)KO?E,~`id,~bI~FK:l',au0O]{k0up\K\=1|FXDcƯ F5𐑟ab̿OӾnT-:,?"z˿-Xe$6OM~L~L~0i3gîY.,~,~c)yh炀\3\&UP'8>ٲ<8[ӵ RQ+_F/dN,)qJݛQ\ݻ)x_;8Tddù˰F!s"DƚxedDpDJV`$#1(^Z Wԗ? =Go}$oyJk36&h߂8R`Iy;1 司WZI d|Fyio,,~oe áymCpnb5%(Ŝ Pv1y}kq:3gb▕xӰn3we?͸V(+`}ᛘ1{P_{ˈr|A;"aTϥ@YynAJ56g 5z˽ QWbw[0ax6-ż)XQ1w>ݚ3-n<;xO7Vϧ';=:-#njƂ9Y!X}zo^:Fsx-95fJ=0111i_7A?2Fz׿?#`+ &%dDmN2ZgqlFk+no9>BjoS:`젺ug~jwQ݀%xe ߜW?ЪK&Ҩl+癌 -{Frr{tG۶,%e si+v]p +wOG = 9Gk&ԾKE H[^%ʪ'ƒ̴#/pV'~{z*ZwL}?y/pfTǘ1(b纂/dLv//wu$X`~Eӧ{'"kϿq!sV/#x/c腸[6] H܉ބ>^G1@d|? .r}j3_>m\}s .ʈ`='2,߷T3x S2g.0/A~ظu{=1]'' m 2>wBUoɏOAmXV证OWI3[bi%saG՘~-%'s-X\qnEҍS*2>%:WK=Ř :'z+>_J==qrA0[ǖnrC#cmk?j;nXy# } Mxk Ag'ds):u댼/tx^񫗢[tꆬ^Y(@JSvYYH+V#M`~ ۰ߵ FoT8׻Q]#Vm؅>G wXN:NnrZIa SD^V$o=3~{g܀TsJGqtlBLcipcͿ<4_\$&?80i#.H 6.γ݇_\03pad)y;ǹ[ 81Ac)Aׁ~Zܰ9+y_[@wF8nez_]x{n&&Af!߱݌-~we(C~0\16[>0_}GQO1fz÷DZEyri-l{yLI\~.99^bk'nͱkͿqMzP.Uxs}"{n=7"m/y9~=>w*-Do#aL7`y\"{1_wL:.?BOЧE9y^OTULZ!<y%Y*}\?O=iKZfMSsF0geQB/gS-ՎBoh_}GkQB|pݕ`\lZ="v<-+7a-`/iSap\̙Քad°S4~ڿk<G?'SA ?ŷ_&5^a9ژ,~A#$ի>9o$\K(ŧ|IBL> \.*q;Q6DUDgbX=Q)?n5LiUwZt 5>i=1zM=aï qo_Q;u6S˰kO-|Hu@z$O^'`D&Mnz<o4l^~XIt~%x)xkjNڱ^{T>%˲A^ŢT4 ,qGqjC~OdHLZ GQg{g"KuP@G KD;1'#KgN^~f>8R"M|I#{d%?U`˦c]poՂweq#{a[I z WrDzBΡܹNCy96\.pb7\ +o7}fqƉ[xIϵ5чӁgK3ׄUe :q VR-NMŜb;\GOKKö8iٓZ^SNԡ*S-1SNx XH -} ]_wLy>܂!#3 yCՄ &}z-5O`X<9uz cCK>vZ*ztM2D(D'?2{|#k='P~!Oѷ:_R&g"[mprAW7Lw<\Ng\QB'}qaزy,Wi嗟n҂/ѓ?a^7O~|m۷0)2 7 Ig?0a=gU9%)ls&)t5Ӱ!k~hߢ%*w?h^Kj:|㷚%bp/?tt OOŎ_ |*}̑WIRڪ}6{"^bΪ=#X_6wGBbhQz`La/wnxT΋qgn9US^wJ|J!ڷe6<=nϛEśZiӏs}p2ys:6Z \GXgN5?ҋcz!MLڥbnS>T{Hnd ~W=Dٹ~ر?C Da[<) Ot݈nc͠Qj̙(~ܧZY ʍK,__ŗ9x>M3_&?fh_u/,#85kLm$-S'K -UPh-l#X\6|!"u}zw8Hm?*QM3yS2WQOkP5ŏУ}V@ȥmAs "`n%"WfG獂UuSJ\ĵJ U1gV猪sM?ׯ`\JLꣵ(w~YwYL$m\ZrV^HD*uÛ}V\J?㯑?ccHd~0aKƹ~⏯O9%) $0ġK.Iפ5' jśo ݠ%x>S3=+sξ7MsOT= "ު/hU<~+_5m_z{+K;mGL)x-I7/bڒ/<k 柘Ə]& }tR!o#g΍5=__r#O]/\ѵ= ]^&Mv-w~?|/4W#{-K/crį%y]ǀr̃C/HBϵ&$Z« UG/1E@;h!h޹;%w9ўrzwt͔S07QPT~\4T8RLLUZa kDpsޢfC7,Šod!VWuoyq9~jsq(t ~v}}x'!7rv\Sև{ 7gPG=׍⪄o߱ckֵb.^k`n+/y=vc SڦW!hh8oں}qѹqJ+S)"wlct#.w܆kσ}r?^a}]azWOmc xB**Q}Ě4VGㄌĹK^Ӹ??ѭAgDw|z,YD2ڊ(r!n>ͥԤ\qsI_߂Fdqlk1M|)03?7 ?JLG`Xa/4̢ۘT,,~`#ȃbBpkpICyvؒ'{28qqI7F DV3`՘:׾7`yy|\po>N^k?::i"h@S%wR|I9^# s@ Q4M2̓J*$zy -D$'L%,EP2ul$\O Ղ¿G_<+aH>8{lh2ID]LDߌLuЉS?B|'cg\Mj 7Fy{?O:ඩ@zV% ={R!S]\?'濬75ۭ͋NsЗo*JۅG g:]<匟~JWZK"(rh'<m^+ Bn9jNS?g>$7L~j^UF__of?V-~YbZNh'zojk]m]IZNG@Oފ!9'IFev%l8j?85? e;7`겏툫p۸< vG⦛op"Mot˘s^3%dYg/_0.m/㲻[hb9i#p+мK=ap ZkUG柏ckKx Ͼ2WAYڽ1cwomF<6vλSY͎.ر'yޟ0}GP揹ICɕHf1~ ?Wy㪭ӳCZi0"h9*y/E=魧_̟2GA.yY*qGw~k%mzoӷ0 ]}Oqr4[qI]il+:unNsDX5m>glt(Nʻ𛟶S/ֹczV̾Qmnh ˛_]O]xzj~S+[6S׮[iG8`iiO D\'~~_u[5=311aP쭝^s3i_~6m[lElR;)6䛳(EaeUZn:~UpVg.sn.xg%h-;]Kup7ݙV9vƉ*6|omZ٫xmqJ<38/ЭhL6Y%V=&_M䏺G yE*iOO@ (P зލ랎u;AziwJ81c- yoqo/ÀAziwo983rRn0=ACLٳv)^KƂ5`d.w  >#ziY \G FI @FeBId&?[UuM02:e#`S#bSզ5_gUL~4-%/"mۨ^ؼyMZ^}.;Okū/?6On%Z_NGqr3a7RU 0!hGOl^%; WW5(ѫ،זZ'x֚^w3.\6F\.}E/N kҷA\t8<6E*~iC2hz{2_mѕm| ֙r6u켯w #7Gɏ ./սm:r}0Ͽpɱm?_a]fRӟڙ0aC,D0!o@f1fv>Y}4ذ h?fnUmմ.ts=>LSqlsR,z[]Yfmic{LJ"YB7?=@PrX2Յ\}Fh Yx9 ֗OZt@o_$˗0R++ӸbocC_ʷ ,}o(}{ڊ__^\k@&?cL~L~[`]W'~0rcr0ݸKtɈ?a)&̱{et5-~h_?,/,O҃PQ$-~mۨ^ؼyMZ^}.;Ok֍o´;vCr& cdFϖNHBN2>6111#`F? V??Ki#?0aCF?7[kuĿ9z{SKcѺ5է^?KI>fRSʹ*ȣч0sh~NNh#rb#x0lBDgVF0aL~T/B:6"/ZG0aLT/L g'h#Baq0za?ʐ<P4KI?ɱIV,6/|^ӱei煷T;uZۑ*;a'CXU9!I=ު{#7Tnto#z)1?,f?~` `SJ>V+!9C?J]Z`j,~1@gN6D}{<$ *v缏W]~֎{ B>ECGWuQ%V*87<911!e1Zϰ1ɨP0i ,~ A!x4i/~p6I-$ j+{Vhpapϵɇ$WKE/L~TKLf?Y+T3f/ ?EI%™H),~`PɐO?U'dhjN#(~4mNΜǷ8x z~_AIC30L~FQ1bS5g ?,P0?-~')vmŏ?->XؐkdEpuOߡC_ٗ1 ̃1ji1'RK>g{C `%gz'[57zq =s;x|oN_斷~hQ:5::ސFXU}_OlM2$0qIhj;k4H+WK1V v6S0Z[hC~[^G_2S0PuIXKoAɌM(yVz5ƅ;bJG@^1rp;,YGf'LC ? V??߯77?4ߌX4yC8_UT6?X$o84iW?n6䛳CƏuB@r=eL}x vb=k^ó*O|o";WbꏧȻ^ί=UQ$91ЗT ɏ~4aC#c??1vv[_gS ?Ïb/փCA'|sű<]\-0L.R71hh.6.xs!O$4a.I&{r1o]p3h9L\tډ8}+TGoô^8 ~+CZ!RRͿNǼU4m;o TcɳOJ~8w8Ӱ={IN'ɭ66?L~M~M~73555uv+`dMvJ#?sw wݙJW$_tm|NYl`n{ 8s=g! )7W7 `8<0?" rЊpxx)M3O{[_I4엍lkĈسe#>ټ #oxp1"3'{+*:*3 i_2)HM݉"W?h5iw0s1RıG``_ݿ|?7zφ=O}ɏɏɏُ^wW\5_>L׏6&f5P?m[IyZ g1ޯq =i`ε&|ыo8it.X28ޏ]7@ cwO *|4fzg[ܴcƻ0 sz*ϋU`_3c< }*1g?Ԗ?SC?^-_fiKc=h,Ho*֯[o\# ̀[t eGRXFߐ3:x6&09ka'VC4?DC=44n Zxn̓gAoAms1S0Z]a 'Y=4^[UsMy): O#pjڶEZZMKC#ۢ Sն%s˿ˏ FG߲r^k88q0o+~gokc܉9-OQNMKo]2EKE\Â6&oYz?Ou?(j&?OLTjL  k^ mD_o``)y'pwj^/fW3gu^\~ۏ}8@i --DHX ]4=WS//Ŕ܆Qc{cb'4%Q5T +c{Uܨ+Sт^Öi^UznZNL_fO=C sŽr뉋]ǟLzrfWAoODfCg꼬VyAьSrN@7p˹DMiwd~2|oh!D e+?DzcvS#ˠnۃ[6D+lj̛M7+N/u1IBN"zxeQDDk28@4φ!X0%Ǚ#ֹx_}ʸ㧼x)y{s#ٹYq~gN8W%66~η*lmbGXL~ 㜏0qe8.sVG/pI齁2t#\(Am)> II B u-cJm"WT-'aA1vSi0󾧰t=׿v@ŧ.$gtjOIi쌞fq<'OlV9>ǿ] L"~-'F' ?IiL߆k f~RYW30"Fo'Ѵm[I֙[|QφbA: Т@$1rr! s5Td\>#QT1>ɜ= D~KܫeļU-yp 2`? LCES\zK` ]hhK~qDt-\R!{$y?dّ QH\1f"X;VzK=,êchR˜;kڽ3e|ocY3"8MPDYɟ#ZzAXJ!Bv?,G\?Κ_]7bdEpuB|!4r s1ӂ?o ~ݕU,hw} |52 Vg/UKC]Z07:hfh2Z9rpGh~`%ڟ|8= ; V3SO{6Tɿ؍D n[SdcL/Lf~id]?\K v$!vOFRr"` 89oQ\# |]\1B y|AyWw]F5JÀarbDo7LiQIOJ whxnv-6?]82kPutv w:O%Hǟ)FηƝm^FYu9YØige+Ⲙ[N 4~jogiٟ$?7K]wU0ݿ7z_NΝ\MߚfW#Zz^h_.>5}Z1[֫xw-{xNU h!g0r70{I |,P !RAk XWW19gjε]%;|}R{ =2w9 IEu/í?-nR )к;|_1%!y"L<ձGykDHҕ7W?3L~E $Oc{t:l/z+V6,&*|,og2=I`0b'[J NO~pxR'ܿaj)yhamՋW>Xx~m]xy AAN=ecǔJBYlзAIPbh<35 =ey(\B&P՘$A^z*vn݂勗+?F0 Koo???$z񛎌Ѳ.%y6~F)Y?Ω͟͟ɯa'֧5k֭R}Nޞ'ʫ._۪iO]>bz\}2><&JՕij[/LT6,6/|^ӱeiu&n<=pN 76|)6OϥUq`0F_ cVϩ!Ha11 G/a0a?FG'~{;?[lXs.DDZ"->p[o_zhaP K2eH\PSS.[l9FTKaF*|nO?{HD/,~Gj,~uщ ~RR# ~]t$d2C԰Qo.~&??r`^^,hOk,~G,~%=9~ŏݿcyiCphNmNN- B!tQJч)0f?5-~TwK~AhO,~H'!B,~{?r/[I޹s 9zCk1'Iކ2XD"Db䆜ɏ1q2bpA96QO|cbwY%80a,~b]G1]?]?6X[&+3ۻ-rAW>(W 'c#f#vC*֢f?r4)r`S-p*-f?~Hԩag[T=6aC?%bdDpqBXx[*:H $4 5Im82z>KpΑde1VA,O7toCE~@HX Bc􌂤/Rɉɏ)f?zOFjONX` ?ET/-~O󟄀?X%IZQS}Q6,6/|^ӱeiy,^xyzON{K{J#|/\ε` sO>&,XYIνxT:6>g5~Oto_oЪ,FMA^BMK,/YkmYvn.Zhf%5,.\=sofρ9>ﹾi/'y,$?SOg0Aϱ?"~xg䟮 i>2G9eE>o8iZǝuUmmh.b׳-t_}\cgKW4ݭWyC #S&}/vδˊ硕>g_||"%?&5b"7')F(B~eB@_b'o3YC?"yN3gď?#~Z?x~ׯ,?c16%E nTpE>D30fr/zj1 )]8ܱqL q]ҹ\]eߐ_ȏ^ʑ5^ ˭6ב;wį[3,?V+A[V6Ht5W55moد! 8 co2"~E"ב8>8.-q\'3E>!۶,7{wG=RV97ӛ64?5lK6˄ &; 0=c 6+Wį"%_<"D1׿"uc S^8t+& k7K^jn.}6m{DГ062wZvdgĩ+V>isz^ia7J?K^ti4.+iaqam-hkGC=! D&Dc{>Ln46C nNd {2˭qOfxw+X=?jmW=97 8BY|6Y{_wUXA?GZB󟈟0_ӌ"G"2Ҹ~aV"7p*oCŜ'x=vK"|uTjݩ:V8".~cGIu9+6z֦%5[_o3- cV@7Gbۚ2A=i(.t_i14iށ^"'m#,rښv3Ͳ]RVNY%mwy; &TCwdh'w. ?ca?a?a?a?LD%4؎FC?DSOq&ȟLyXSFx.^` %4o|,sw3&2nᲾ7p$2C* qZjz hdfYUγUyOֳ R9[?aQ7A=S먣Ig,K:CPOO 3GJCO?js>?ESO?U;O N9e`j$^fƆb.K'xy'^­9b [Civ!-M~#={qFnVo栆qwY-W6/4+ cטC1#%@Y6BTh+?OA{I3gOˬ/GFeæ?YLuY)ߖ{X#Kc:$] G7oC&y{dWSK4{un?m8xCGzoL.&\|7ППH7w+ Pd'd{HO`KO׆Ԉ\"~DP3'`ڑxTO N9r'e[:4^ߺ!eG'ވ7xw뙥 g-7hPwB8ȎXXoo|ԏ_Ыֿ/@ a?a?a??#G_]+,q!ȿ"j\e"7p*ķ>ְMK:re59sdP[,tCNSz y:?-;>?k'z \\>= W_o؟ZWa"DGEn1ȿ,F~D#G Uď? XSV%- <σy Vf!X'EzvB֙a[?[Ndc߽Skަ ' S῁E[{| #y🽙D #/Y)(DEۦ15Yƺ J=k 1;Z5(^ꡩ3ayŧd$C=wb8rpA;wH//ur;^;*ݱ/3:/u!4$[ $K#I?{E3"~8&D'녣Ӭ&qȵ$cBt^8*D9r"7p) iм4cmI4\xd}e<%<Һko\eRW]}럃Gmxe~?a?? /@޷3G?XvWw|2_"~?:OXʉ@)2=b 2۪1oyy5phdHyJ[ .icӽ?5Lm[6_/k/ 0(Q ;w_#~G[o$F_{3gKy8]s+&iϾ1܄52pOƿ$V+V49=۴W!_zAد+CQ+*?_=?SE #qp=pr"y/Uհ_U!*EҌ撈r!7p%z0֜'s<ٕeCRޣLz4]dƏXK)?䗼To oooد"+b9ـΟD wwJV}l="\^փsCn]T;c'@xܠYbgVR:Wd+]e&3~ 6L~O'77W(e q&!s,iم~;s?a?a??lG۲!oMb-$zGÞ60Ox2jVάe>1ceL @2g!̬B3cRu#?ISX'A {X.AyWjYJVC2TPbͯD5L ӑ?$Dgď?-nF OKĶ 2J3TfYJm_븳ʽ mѥYW]VoRbkrԨ<:ƐmMo`ezcxw -B腩5Gqq(LE+cx,v~+'? !Eq|cP`en'? aSJ,%Forv1p+]իux}?ߓm.kwV7֖7ކoc7V{ X[oC̎$ ~,!Ew/a%%gď?K+柑?D`ȟ&"9gȟ/_v#tycZe]icA8 SR|eq` X'艂-9^/IO%{=&'Q3""DyD2J<"~F "jC%*-q3ƙzk[b~^d}&˴'W?n%a?D -#'-#-#oOP~?j8nQE!*? ?B# 3ȟ"1ϙ#\rc#GC7eE nUro/ͭcwgyB /'Ǽ?#~DD%|"ӌȟ"2'[,ȟ"ɢdO?5#t]w؈oS"7pJ*"%,g`̟m˽&dJxjP?B\/Eԃ*N:&D'녣Ӭ&qȵ$cBt^8*?j\+\O8&D'녣ì&qȵ$cBt^8*c)'qr7a̱|w33EK0.\}?AtM%(?7#y"Wt?ȟU-?Fh!_L"AD)(: 9W6N$Vůw7e<+&Yc>m:aI"#gď?Dd"1)?1A\?HR"7pJ*J5Gl2]dcE\hbZx:Ao8R_5"P0L'R?Op"i_u? kEOU?Dď?Rakh|[~/!24]eğvD!e~(~/Ý'?#/.&,cFq'֦zCK_FɏV7?YRnk:ǵ_qtujĺ8eZg3d 8a&m&LwwoFm={>em>Oy)GmrWYc۾ҿпg050srF?W'み%C~!?Q=yxʰLvF`8r8nd7&}Qg䟦抾F}b)/qS=gڼn"ˬ Y}N~y)FCzMz Ԗa;VIƟ"Mw Poc>氟Oo߈ 5TJSrm?D/6)S+ ?k3eE nUroWj#Ω=R;m?Eo`sWJ xI'37!G#_}? Ưހ_&7ڿ;?<ā S~B~_$ROkЁJTGto o-5/e_.+#qR+I-'eH<<[>P}y*#~&㭇 M\k) Ǟg:rf:K= dSfvY?'gO2#EK>g_Qo@Y4>ucǟҦa5Ǻ J.m4+xQ9/ 8/G -h~=07e/ޱ>_90OBs,4?[V 1O7aM_QY`,E nWvʹ=}h(a˸2^XFOS}`ly"KS@3>{d\;7%d9&Ħ2'UN2 S~/b҇QB1X{x*EvbK?U)Y>"Xb]VNY%W۞1bX^ 5<;,Oߗظ$xA.Kr% mDؿ{/ I\@1?_7!L7_C짷C_IE!e^[=q=ITYUOBVF vUz(hcUJN)V4D~}Mj-[JcGm67IsXbæ6JuߍƬ#'q$u-Q/#Kw O7^~u"Kz? @{ ӱ-q|2X)J̶_r-Mr.,i^=mI?`C~\# Sۆ1"7ssx+ݔ'Wn'o3z?딟:͍M)~}c)/q+p t\)j~SՎV'Nz4u)9*xWko8l+?A. S?Ώ?~~4E.&=/ϐ_oU+ kyʮ-vioП<^8Wn=֧9?M8e)=vzE*折tހ}%?5V ovCa jW?>N3?/ [|uâb7=П>?4ţ_e~IR6~֙L.+ee밟i?fGa_PqS<77gOUI7pJ*8gξnXßc-%JYE<"/rwX7F]O>Nɿw#U 7V3wGڨţ]m-LzEiKa,=.Ԉ ~Y{ߘ Yne?՟M"^—,G?T3qreso!oOfSQ -H cst#}P ( ^;ώYXO#q7.kwSUP81w+ CG', :Ca}?jj?D>_5lSɟ5yПO5ͦ# hvG)KxlSSrJWFUcS^e[:Q\馧 --Q(ߑ3O *±c)>O $6>|T~Ao&:;_W +U`zࢵw D-k5^YOK~6KA#߇+oטwj}hо~_gz/[c)'qr˸fF$+3s;#6{-?tY7ݟ!y%m͍MXqigYo _*7}^Qߙٱm9.%_&Y<|^*T)qmDQ^APgӼ'uhrVFNSԹu][)d@U#FznolWA|?,Fo7зȞ-k+w-6p1>;[($D@8@?ի!C1Cz;c4:ڏqPЭ~v6${|7roOŦ ٶ#8N2'%td3C^,qB_B^^^4Ldq)jzU__GjNx'[eI[ʫ+Exw_ z^HIڮwhmQ,FLI&jy`?\*Ͼww~]2yx{.zAO_GTԴ{땙^}MN t_?zt{pv8M_y%0d'^v 纸a =^lV&,7Le2usN:CВ{U[Mr9׍?i[o=MfL~ \YlKutDqf=_>v:*IGh(ImU# Nz=YbA&LPYhl~oi& y*/J;*;vEs$?Ө H3ҙLlI&VgZ׶_rh9i#]3~QH-RQO>>>skB'=Բ?S/gP,yE aK2{?QSlξ~j55 Q G2NӳW<04f2{kj/:9x?l5~9>}=ោ?]Yc<:1xXpO#Q?yGW4#%C./tܯ7HWWAPWcz`KFdkU?v~"kנcuc\?7\`_8I.d=l{C6~[#nqQ 0Zwuw+dqQ88ů]~zŏĝ׋iC~z*Z͖zi_z@ˏ7kXΎzG&uk +=&dտQ-qk:nkד?zku:/to7 ݲg'y?+mC/vۻnVKl<-ϏX%λJ7߶moUr#.Vpve|xm>J1>Tӛ-Xߗ8l+a H_<\rZWkgs[bzC1od;bߗ7cb=6X|^?iT\>>XXo\ .ۜsU#ޅqGWr97.sC9^~y|skodvxyk"ouk,ۖo<5<Α$88װFڟ>VE nVt8ܲg n%#Ij+5+\;"[Fw=9U&LjF;=k=c>"A eUkkhx۩Ql.mH+nެ[N ':Mnffzѳ_vߏ~b5qi2^&;g ڸy ^8t9vp;8L9z xzJ:ßc?7ctnzXynW?QZqq|jce7O\?UWFg4'#O,(Ӊ=%)>?ZQ''o Ak.#7fâo9Hveʗ.'w"g>$ːK\"uyY, *E H߯n9"kxgxjy7M2ö"3io$%ןd8crQxWOYI_V~xiZSv4w>ð6䵣˗LC/$pUn(pSûnu}j7?qRPd[+Ny[}?{y܏N2`TԐZģ_ޒQQ?"M|6O_UkA.Ŷ~~:b͙OBЗ_?Pmk>u;N%o&"fLu93es,'G?4~Ņ\p :-<ξT̿kӳ~fs9}:7_o| -ҕs j}g6ƱI~&ɤԶL;۟\ $Gɿxm=d7x?-r z@_+q~͐?e5糖u,-Fz=v$ģ+fxm_y3y8d?fI#19"9gb[jUybSGFl]ӷ y;n޴P rg}\{i$Z_?ntk8z_Ϭ XSVA5,2O:;8/.]k@ J <%dxmbzu]ԉ{vZӛ7֨<Эr#+qi| vxl}⮇U\S轷.ؕ2/o]n=s8~koE&6zw84R=:S6V Ϙqeˣ'.sP>j:ci[S>nѯ8VfL}_Λ{K%7:H#cڸ47*ϯ\0xI7O5; ߁gZvӢXʝU-H1+A1mO(;)p3ln/ϽIG~{?i'3.QFpSfs= ߙ=Po.ySQVtPjV~sriߘ9v$l3\ $W<'S cXL#} |ʺW֓'etX5^'=BsN֭V-פodjbW :_~27c|/>k\5~~-zlzGn=&7^cwI1َ)gɡx+>r)O=~Pnm yum~at5'|t<Gˣ7_*.w%_9g"[>9 9/0oG?A^O?q }/>t! 係>?v{䡯ݧL:щz1gșG%ccVK=em/ǿiq(`B> e@L9"?xGm,V2UPK[lӫsXܬ/)S/[7U7<^M䢲y< <&}yַ#}ۡ' o~=X9<Я2MʁTA];N;>-DĕW־qqE7?%w08)f5< Xm7NqW,8SU:/7E=0 mnUd&_=򳾍V v v |nCQ}6GQllbqS|i/U?N;Nd0~lmԖAK&GCO{'~hAasPx1r'eh< Iφw=7J?6F:mG҇"|wKso7Y 8|yWo|bAg˅ݢ~שd/ReKV_b>1~|⭻%7_"STeسl)JwᣠBKibVOSϷxUn0jt^O~8K?ORe{5\t&$3?x֢y'su3n^ϓ1[%C&1_.:e,[f m#oy yihfg7K'§ԷɎ[<'goA7&*_/|ݮ,@mɱceӏSIS>Eϗc,Uѿ{Aҧd >9eW.':mWFU_wvxMtKh~~~ڻ6A~8x̮v~\8o8V>++v05t qi:>9^BKxsi6/Ez6:"ǼH7){=yqig?o5_w]c:]Dnjw7~ﳷ" ڸb7OӏAs[YY|~|.Ng|~\O-g/e7Ŭa2e>.1}h(_GU޿Oٿl[N?񈏩B|# 4G9oM"Cg mk__4?ϑ#&/ﵫ+K2bHIm % c:h,W.ߨ"-4Pa?|/EGaȏMuL9?,M >[o#$K&`Tt2'i>/wU \~OPN?o{rA^9י9G!޼yInҙr}V<"9y??(_oݑ7:OvçsG~yddnJܤyPW_k|_)H,/`le _i>5/k.e"N//οILh_1X'\G#?kAr獷Eڞ۟Sam}u_I-y?G+.vM7@\v@ӎ8Uz=*w;cU\bK{M~짳٦#W9~׆ZuRb̨qѬͼ%˼Ng<لO+*"vp1vfCqWr-i4m/<_krОP D Mw)KVϖV<<vJoS93aHWVxsG%]Q<J*\ԳE7+fZypeɳ>^f@cѣ7/>~.-Z3O7o*y6ks|<_I_|_U'fźo^"*CoQ`>*1#g>V,zZ1Ϻiьǘ0{ .շ]2C_lcNUIo}Y[ˁ&yFZvmm| "|RIK밤yZxLt*>GIOtx[=JN_^&Si:M,5o+wžEh!ݳMh)/{@dۃSgcvYٲ+g1qMz$|8~av|r@·'Nou+Vļo-oo9lh93zTeKrWoOyZ6~/[MEWA3{gn+.?eqiqLyL ;ÿsϺ&k%?y5~n?jI3 ![xmy !v̿7_ #Ckc'lu}Ez1)k/ ?z/Kp1iM~4ţX{o:glߤj"œq:Ǔ9}?tǯ2;mП!w{G,gl2vւ2ݼa&yy-oTaky;^'bޑ˿&>7ykL{f&mg=%5-xֿABL{_(B ok* S|)@4:=kgܬy"nEGm6Jb)/Rjh4a֜T,S">5G<䗷Z35w.]mM\ֿl3Nd?/s&'xn68sR|^Zcϻt4q3ZnG(ESt$oXwSOj(˺^s'w?whȿpɉ%-y ߳2r<"Qɿi'taz֎?+(Bfr1M-[XZu=zko!>3Mr}vV:?j4piz}\g[rqlq*U^^䏪#L;У@Yzոc}4Mk!Tk2-D8!Nt?s:b IHï)~ouտo9DvP</׳S 8E_A\x!]3?U򳦲R "u턾I'17u]!-O~x< W|kcFEloE@~Ӵ ,Cq#tJnTO|𧵚?"W?6 Vf?q4p' k1rB>|?1mrϢ s"/,9яM~u;ʏ:PwY,@`nP3iқqF.ӵ?5jKRXt޿!6Nvl#=ۭ'yFMMG^4|G;f~GKa1cpAgy,؝ZRgX%ԾnuW􏋁x@֭Eԁ5x ^lMz9)oW?Z5o*0/OuZia\~nO4gy3/D.G#=u_k>V+')73>M *齌-sqCcXƍo E8sT 8uoGi >-u;[xM<57;]oDNϜ/gge ߲7ATD\FA]&?CMPVv\=_Ѽn ygm Ϛ2^հe6GkGUOx*ӂcf\i~EY~cb;Ӽ~3xб柞 '<gtxqSl~To"?7kqkqu+Cc5x@ R+๮i?noqR7;f 1u֣-0gz>ViHUcWm:Xb)54d86d4l(oݥ9uѡ>N@io Kj~#or ~/Y~Lك le[ 89?3f G.ov:~PY~>2ƿX=hOu[dኃeI{ʜe$"A2մ(_W@Pza8uCc(hR﹄1\ w<k [?:fcqB۶X7:gY6ggԬ{O23ګ?qge9ގ_V+r/G:D> =Ix%fV݄~Biֶs9M {8h[ܸA÷LtU mލ״ֲ3?{ob]A\xtWRw c߫n³@v_JPƀy;~~9*B~hB5O1hrrt]Mm?(n~鳕z>~ǏFE֮ސ+Ȥx9,ݡE=qTx;7\*",*#򈿜X֗wS~(Zdv;<{ٍf\H"?vдRW>}E?Ό>gghlsqEOy_2|M*1u{@91rzr'2i~3?nsz"z ǣpi=DzGKtoHBzmzP6T !ǻ&fTd\A2Mb+`=-y^wo;ȯO⋥S{x5kV6 z}r6~\|;F^ڟxz9MG^t1n_ykT4<=$}'N#Pɿ3;p@ҳ5ׯ&g8Ӛkg3(o/U/u,Uv>2>}o_9* 9\v夈\u(9_9exS_ڗ6p$m0|wS,7 OB\䟸|Ti;PLǏ!?ʹr5>UasVOmVʠǺ*5>5ռR9x[3xd2Szq~AZζS? [?HyypY_od~oko=[hzP2kzU62Wxެx3K5p1U ?g]xY%[.9:í*<X슽2 2:|iD ' jOeo-|uoUmW>OxR}<~.%%L^=ϠdZV3IׯW"o'X/#*gKiȑs'{&pi]'/M ](4S?߇]ay0l<]mwR.Y#!_gz85\dhV́3?.|'#[d!-Ocw-.ZG9WW`G'dgP'?FwYP([MHLlzIֲ3] B/C[c^FW1('tTƑn׽x$#jڴ$Y-۰3+? / U}!< e5|t ǹL&V/ROT͸(emvYxwO?Ect+}Myr/3nO~creߕ{{Evxqr{eYk5;?jtѿғE-d&4~"E qhmgm3 v7eEJyAG눿ɧ~ qY~M 㴲RS~]𛋖O<8YfL$MO?2a9:N/blN+ssO.n&-V J_ fMlk_ȿMDA5 QV4|f eߎY=(.ь1FX\cG󐵫錵Gm| y6yfOj^gM+gq,{7:- z 瞲p©r߁{g&k?W?9P> x2f$qW^T??ئ83'h;<\4 ?EU#iDqags=_fO: kyd 1uLi6KyKfι9 n3RJ$rs.t=qTdi_>i\“vH#-;d6'[]~r0Z:CY*5{/~yviu|G$V+I';s|fjױIGX $o8t5OT4p[ڐ6 qmuNDz)?e˸R[8u\|q;;gO"Ǟ}[uguye ?/3{p\x $ALpM" AA+`Z؊RmiSiEV*7% j"J"& ;9֜e߿.s\\k}7{'g?LO/x2F(oGgg+~~;x6{<|m6Li ;p9=a)@ꝼ߮mv-_i~m[_vtx?'6zFNy|%j?.L@IDATY~wշ7[e.i_{Gk>ﭳF_[o_Oxڰx.+'VO7_K4N_=[}k~K0^_ӬSK\6*ye:sit<6<1uckI~]טsiCf=}/ُ ExOI<6*\#G ?ς /xw;#?hv~|]b1&n6?yڻi 78_k܊v})_mO;^~}YgO?{lG?v/Xy+YGž1~u/@Ûűd:ÚsELtۗ:mE˒qk Sv([ k+g}6l~&ǭaiYJ1٨kl4>JYvu[כrmSxCʖh+.H:`O8"#gŴ?ӿ͌dOo6;-jdǠpq /5&]~M9=^^fvM&k-绞Ox p9JK;txc:盧L|S2=ϫ_쿁zMݦ:~ ތN/"ui?ۏ"Rq=t? %a=ϝ-YcG&}6-]g_xrVHGfϣDsBiS"ZRJ+C\vMm7y:moڧo-᫆,\vxj};!;U>yz⡴ni:Yu͙pA1hanyA\3 ٮO0Bc/|az;ҧν,袳Ҟ/N/6Я{.;;i'>L#g_je'y[u[햭>׏ %;6in)΀b  %a4R]V~L(63F_V[N\/-p?ᎴW|9:[z뗦CN0 Pm Cܰw18Kn&{'kL?|#1)_|5tåwx+Ҟ߉+{7_=-ę'>e^2<{@X]SL#O~!~?ɃQQGUkHiŁGڧ.NB;CzÓg{_mSxxx\Vނl@_QU]ˑueM?ߔ7ӝ>8o缶~vBz¬c}{\ϽxLEƃMLp!xhs+[a BXĻ?Ox_v^sv_D^O W?Zݟ^^tYU^77H[zN>W?l7g=aC-|mSVo}?Nnd]gch\/km~`m&Ѯ*Bs ׉eWmNYvGj6~[/;}﹢~8sH,mGI>.l}w{q7ħp;K?3{p=p%ς8\?[he2<b7o312^ou~C̻ Ҏu$[o <}G{'! Ƌz|<½vzwiCWco IÜ?uZIOyfd+oYw1NÒv\+2n.Lvo뼴 fM}nG'syh'~/]a޾ ~f?8{@0>r V7NKp/[M\럳ladv\4\`(.ukb'\^W.flSe ĶM;?6Z<:W_ھ.ƚ|v3Ooߴ?*'x߼!1uox$ly|v'k'.y/LK]ny`f5g} :kMc(-'Q.LK("^^LQ'u^=Dw{oYYzr7q1\_m(5__;)滘_|d Nn}lgMz)./*js?鮿=ZiN2Z>{Q?B'O:ygFM4EYe̳c3\|>}ip63ktɯs}K=/Z+z}ʟ>4 qk| =(PkIs~ ~5)Nv( |XK؎s~dzuMmMP~[9K_8:CZk}SM`tȂtRc먗~^[ |f,L&էEo~]1z]__sai|e}wf_>c߯gOh>?G3  ,d8ܞPg0ўWZdX>z;G nش]nO 5oC|>U?7~kFs^kc~Zc_㱸~To/!j\\N2V#;oǴxb?/_=tmJLϣv˗,})YcvꡱAڦ^h?L4bȯxS$%0q2/3(D?IV)Ӏ8? A؄te_Iw>pj:6[6>ӟ|δӓϤ=:5Yw̫?_>wOy#c[ZtОa6Sbst^Aku V/7z7G8ߔVGz.^gi/Kտ`'=O?_!-?w|=˶7~snW1~3kSϺ"KM/:tt.Takn~;{y(oJ}Ҽ1[O}Бo\>t{s]]V~Wo;1xs}DnJ뮽9m~iGޜNWvJ:r1$ڗ'keNW~sI^},ta>rίvjZww0=P`rDZjL}<+R.-x]:qҵ8+ͯ~}l_ WwOo8'v~tv{U<|vul ګnIo9>%pod?~cCg=~;,۟<<~q_nxZ |-]=pyLs^xÿ:.=~(~x l3u׮I_Zp+xxO'~j:bSKiǽ,Vu_Oe<ƵަO_bfݖ;҇; U~_#nюW xZ[Nϲ6.g/WxUޙ?[?A?o:$W|X؏;/dt/e)׼/}x6ϛye$aQwW1V5ză}۫,-^N<[+h]w:xp!vv~<煗~)V~85Ϥ(]J|F@MbOBG~;LFUgvh 꿉?ɧsL z:vf?"} yًLO=a!;[x`g!3|ml?c~k?`Eܾ [;>gENW tW߾q~(mKӆ0ק-=lz~y$Z6v7/Q ú ~/՟= J4K78nl]󸸳b:%:`LfL/aw;l| cK8?k'{{d+,E4/?LK=~}}4Km wj1/M71u/});oM4gss_4-?􀴫u^wߚ>q5tdƏ֟6ˊ<C=q0v_7<1\nso>/}܌~_^6޴z薯5eț1~Rsl XN3lc'f暵s=MmFT [ ޲E}*HwJzaYc, /N^vq ؓ\8Ͼt퇰_}F?7ovs<챻ipMpI-K?OcKW]lEsYz .So8c*l|͑7ww ]Võn.Mw}ԗ򗟘V(cco@뷂7{~t:v^|dRY7%' X1tlZuiɠ|<:zt͸žc8X@A7{ X'c f>5/HK9¾(ٺ9yWҹk=޵]y}'=otMv#*շ1LO3lZ>ss&!6:.=_OKӪԅg__h?>gU>1 қzؿu?숗e .1~rsp˱oGq-X#i_/]C>+C鰗d=ү/[k_MP&7aWVNm?[oY?1yV3VE{K ;֐'[Mq~ ϰ@C ߟ<~=W;evtʮxX>Ώ]W73Կ^m)7.(pO;"` no~oW9dqk|GnUFFG>}sNJs#tq_җ]9'ݘ>;Ho<Gm|wWєz7 >aoL#*H݄MK}x_Mˎ:vȓuenwWbD_azxn<ľ6X2*OY魿J_Nvb3)3;J<G~ߞ^jqC`uӏ_ZM8No//T97yӏ1?yn7k8a9_y7ah9Y<`x}λ2bE,J}uCv 'Z0vv}мD-?~K~WMP8UT{~Ӿvcuw~Z܏$H05p'?tPd-Q-B ?7oZZ}P>sr]/$-SÄzMO<d8zyiq =>}'t~_2_mwD|CN7[9춿o.LGy44yo-.3<bԯ#OLD*ƣ?{N0ƫ?qc_rx}O1wӃ6rtțu҃{^ckZ/gGuc`SdjKZ3Eߝ|d~]mo CiYl=sKzH uA>붏b`Al wuևMg5|f~~W~3q鴷޶ 5K1wL\ظ<5}v߮ g6XS_ p]~m*;~> ?_wӾٟOfkÛl?WߘcSӁ6;chb/ v2 m8F*opw~x֣_Mmߏ\m'-o-&ySoӴto`z~ݒ~*vDZe;R'c.G[YbpeqXں~+.m{6e_&*ywq4J8\P:.~rzTUMV|]>Îzl?sߍ=0=wϼXkѿM֨N+iŪB\X~c6\oK_h_9dz{Ǝ?>lztۺW:6-/~;SIe da)nn秕s 'nxKV8pO=Pt .ޚ\0?{?xLqYnSXVTOVvGVg~;p]5k^F_Ń}VL8< gT綢o b~8>ߵO }Lٍy<iˎH5=͞^~^6R$oux}}we=8z.vƓ7b@XO3>Zl&؃;ډz-ۚ5>y~gu=M}}!k|^sǿޯFïcy|>%ćJ@}mxmRg=LeK:~M?幊h~KW=u/c~ϛv1OGmj8~osNsk-_"F߉L?b}16;j FuYa>{/s>qտߒG-)<='L]iL$DߤmƒrӃ !mzޑ65ݓǷw_?F2PD[S/q\< D~S_2Q9V"9~Wֱ{zκtV~+aonk`6./82;۸_x_r`Zݞcz'?HkFAeGnأ6c}v=~wKXbmcП>52=|=WT忟K;E?e^bpe#ǹF[Z^g}\wYY6#w6&qi}Xm5v$zLto eTX /ueϭ}ލjA,}'GU.k ${;v}nV6U_~Sg%]S}ӿ~B9g#]g xےn븾q,. zn>OiwN koB cM.cZ¨ğ׌p$f?{/W_t_/4Ѯ 5%֮}׆JVy5<]lD'atOn&?ovvnk mַ8?{YoiqWǵb}2 ^Fg׿>#cAhX_yiXqe$[u*u~?z&ҵ3"g$Io ~{Ko9z/%=߈M(=Ӯi eZO,fjM.mD?)zx }vxxÞ+ZoS3(zj.#Wj4?}?z }G_ors8~6Xߌci8^sx_}v~27ǾfF￪_𥈯ϰW&tqtߕ?0~AMxW-^n{>ro\#[?rי_'GGMp}r}FGEӾuڳ=ikvp#"t 'z8|^n3~n'.9P}l>mG~؏9/O=y¦W~վ(s6ٹ=7kL7<?rNZfDyD$ܹO|N3&uL=>􎷿%;>ֽ<3/,q^as oosTzb_O9/=z O'#?g259 A7lwl4}Ӊ=-]s[Ph#sЂ9}M,zgKΧc&YO L j3q5}ϳۇ>zbH~6)M3mӺ=L ؾVwOwN}ues: ?#X!sH?k * 7F )i| 0E״^7^wp+m\E|LpgҚW9o/zmں ~Kc<}]ʆ5/Y~9YBӜ/0>Æ{*{b9 gY?>G|{\na?ǵ럕~dg,/p_?ӵ25k%znl4I']ML'R+_ir!7ߑp!%(Va哭1t?cKǾӡ'KxoC?ߚҼ70zȲp׹S[#lӟ^O'qLLDk(~@2PMߛCUKll(b؋l}t.I݌~mtPRE*˔_?fB+~6z9 ?},H;<۾;ޝq͗uk;Hsxn%M~=+86GLih\mϜj?߻mmsγҷtE_z]t3?gSIWˍ +A7EZZ]džU6ocOyytIll76{a異G>Yq~ rוU5zY'{tń9:#g&~'Ggr\'͟eJ36M67Mu*mN'ߘKi)z-_Vog9qj2r?C@pg-1%I<4:p,Vw+sFW~mfoWu:x p؋%W+^m/ 텿_'ڢB?fo;ۜZ5J;q̌_v!m?8s ~m{U"Pkk5f'bk|V=a̜pg~Yl}["z,lELD컯?WO31}ci T}n?cgEONjs&GCNFVʂU $?f[o;hkk)t` l睾6OߜΙw̼]-ۆ>Ӷio5;!4 81en p 0Ng㱫XG(~=[DYȦLgL•_sul/ 8 P BF m7[˽.AAj2a2~YKv\4SPK؆˝(>L=Aдutӻ?9~,|dDCV+n`Q&"*I'+UL=_ςPu)?.&l63H?[?0)ܣe;v[|ն)]H7nH~y>&X/c 7DG*qecva7+cI<˟\$=5fl7Js>K&fD )~B^?{}otsPь{z? cv?OVjj/z޾kZ\7o (bצ.f2~rב,GD+ okX/B%,֬eQg ]:V[SV;κD˿ǰQ0*mD@pkUALպDPDMvy~ռ6 3]k7gO.O++guWRk抟EKK'qny~hg&NI ? ?O=imױ!cs)a,/SqCٗ}HO{~|vT5\[?'ٗ✣fYYm҈m]?U~ g'QZ뿳9??ܥMͺk[l_ 2lfn3Qf`Ϟ~5=ioy̴^7"v, y"s! `yf?$'O#JGj=-q <??kq_s=icUm sAY|& <B*6x'[ۥƕ6U?{D-Ǟm?ӳg~"pjy?c383EGV QƧ2L (!\cY?D&H;Z/;4)M5 7wx{4o+z֞}\L Xq=JG"(6/X?tM+~'2Rn_S}#3oؓ?ml?1>OOUA"8mnDm=] K1Uvr?>98~?qğ[r/b 1񇞱2l꓿Y?c.5+wW <[ѳDVEurWDTqZ=ii9(ċu BE)B|Mq{ .vKv ?so63'fMʹpo Cw3,ڀ/B6)~ښEQ 8 *ܷl;qR_MU*mMw;)޵=ieu6Dj%",5CX`{rem\?{:;?"af?!LOo@17[Wo7;?2?jYw!Rf=`V_u'Aׯc1_/rC@pg-v"2.Qt7)oGof}dzg#-xgCn?bGS.ş)3ϜVH]w&ŏ7)TG7Ogߤsۣ_&?"{UkX1quۣ,co{8~,K<4w\؞kx-w i9tNAuigEHQ<'*Å셟3!@ꩫL#*(**։ֻr*STTTTTTT@K+H?]H?K?q։妒uDwNg˼zF*s*z;'mFZއmLhpHjW4x ˛6ogY෋lwҲ*{'QG+ڧyƩD!0Gqw|EUL?|A 8XQ7 4ժ$Q?0mRP'TIZ݆km߶<<Gee~ Zl]!f1q4(b_zYYpR&vOY~JS|x3j|ʺޢ)>AD8F)Gp.3( g "¹S)D,Qş g "p߶bֵi}8볮WuS"m0}F0w&nɾ!Og%?0n?-?tX)MSṃA??x ̌i^Ćc`axHS[\n7+'7+a%H{H'*9^?O(:~jT}ei7R#RP.YkvNXh$c@# mLWX}<~z=rpl?# a3?4sC!A%E??? ҏҏTkƏS3~$jV=W;OC2rM]"{Gϑ0?xPQEC!s?şg09.QPo?:#:[+([(((ty6Zf'ELn,c"gq``v+j,o*~/_j*???< #3>!,,id@IDATĂd@5o+sN5quۣ,co{8~[-mۂO @iX71]fb^(G/p~O0@&?#oRy4'O[(7O'xQA!tC,všyYSI0e̓28,m+g|8s۟TzSFv#+֊1 ^d-?,`Nggoğ@E#CSyBAAA3_J?tiH?H?H?LN?8hZ]džC+7Gю?#k%W 2ğ DWpA)<)Ra#X!K''駈 ''0TG1ۊവrI= ˃(`1AD >&('"PAğ! ʟʟOOҏE3# ?H?R?]ۊവrI=\{-c7j"(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R&'"PAğ! ʟʟOOҏE3# ?H?R?]ۊവr,\{5c7j"߄(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R&'"PAğ! ʟʟOOҏE3# ?H?R?]ۊവr,\{5c7j"߄(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R&'"PAğ! ʟʟOOҏE3# ?H?R?]ۊവr,\{5c7j"߄(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R&'"PAğ! ʟʟOOҏE3# ?H?R?]ۊവr,\{5c7j"߄(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R&'"PAğ! ʟʟOOҏE3# ?H?R?]ۊവr,\{5c7j"߄(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R&'"PAğ! ʟʟOOҏE3# ?H?R?]ۊവr,\{5c7j"߄(~&)SCMe %@ϐ~~~rc3'''fI'駸g'(` fŮEKv\lBAr$nK)R*0${J/<! T? ~P"DgE"dԈ?CG`tQ#+O _*F8?&@G~4@/kj'z~h5aH,4?h8&/ Ä_xey%&PPl TP$H?H9'.h H?[+ $L-D0gWkmC@pc] zPFc.r>'{*޶R_/p^]\\`ϗCQBˁe|.j1~GTX?4@X?=CX?ױ#gǺ>r~zfZs~1}*3ϏAW% Ws~(_ oCO?T aM(aj5C+'pI/Rb89g|7%9?q~3;Ώ=.^Od/J8/zrX@ 6w[VB_2#G -瑢0:+LzMyZP&2.?Z S'hPߠ\_z(x$Ə(0. X?X?X?b5`d`ՀobL2,4*8?r~Ձ!F&SD +_JF8vJ{*k Ya:%Q]pS=(Am19Gda~~^VB시8?q~O-|s2ߟg&OK >^/p^ƹ1y hۋ/NtOt8$Oca`/iY"\~쟜8?p~#GY@" g?޺x|Q^O?PJzФ_/T?hK b@~Ac-a`,qax`쟜?e(i\Dd!+&'O8?q~ZN 'cU U\uY[$Q|_·>Y?b0~b1bZ|[f``+o,a`ha`SGg--x```=++޵g^49Ab#G i,\!ch1X?b>~Ŵf潔Ce(x&z]d7߿coHs#uOe |wBϽlٵtU[eVV'rxo_GWurU/D҆vqyt<``d33X+U*#VI8xMsJ3X'8??w8+oFK$I ?*zQ)FdkmCkV E!+V8a0.+'Wϼ߰~ g'Np~p8?Ċ~=OO .Àme-e 5o]k/}W\ uȳ̇caԶo: ?xx( c2Dd?ױ6&X5&X?X?J^ _쟜2p~8?-C_58?s~.yh,@IDAT#8?_@p~i+(>;^<_pſnփW}b>,d/D#%8?#'O9?s~]Ao?*,ûO_I8yz_vƂB y#?\s}E+6Lh~*??BK珘+"O<8?q~Y+&/K8/{֎Iu0NXID?J5qe)G\?`03QTX?5.X?Y?5YyLDTX?cְ~:*LzMyZP&6ubH/T>Gr"#E%1~Dsa'g8kUcBeΏaQc<18?p~X6"jHxżm\Rz5y;VSY^"_׉./?u8-<&"gh!"OJS}'ΏEOqN 3fۺ zJ9I)^O!FDx a~ĺ5S8?p~iˌG Ϝ9?s~^NK<Y6IϜ9?/#} ͇·Óz,ZF2뮿ٷnP|%/F')' 4jmC+'gOʿ3ã#NyՂc*f&VLi E8":hr!&/\߅S8,GW1~p^WY?㬑'''O,1 Ϝ9?/:AW% ڳjdUYoߓg[[3y4Ӳ%_Ϳ1 2US|??1 2$GdY"1.bu78}~~<'D`q!"B"_*'g}~jR 2q]7X?$'OϘ'jhlD+.?hrĖr)rHmck{;/pc)RK*9hlmbM GO/"3~<:?W1]4u`2G??/A!fu^tX?$X?X?X?X???3wHUŕ% uqMPO u"n;eUCX?2hVxfjfpkX8?yD,K$?rQ9'''VD"J8sm>ݧk;o|n\.:g+ X1~GTX?4@X?=CX?ױ#gǺ>r~zfZs~1}*3ϏA!ϪP!/`:c~ŤYYX?Y?l->aǂnjX`d`d?q~wZ 眛6G ﶬrK#LwzkLD~Ѹ`x!b Y O'+KY?ąC`gY?DtX?<.L3f 8LDTX?bְ~:*3g?!i٘#(Gξ;0"jXIFrKC(.E~yHa04;X?Bp`H 'JVA8p~H8?i$p~}Gsd׋~<{/x355ߛet*6~MxmPuD6QR ~ Jm?"a~֊W'Ώ9?Ί-GΏ9?:}Lڲ~0^qM{/Kku1WVql|~#Y|mXh2lQBh>?1w4#OPaafk''''Dc|ی2>C!hp~ <g#˥=Kz>K? 5f?=\3|%a&5Hl\d/$#OZIqr&c0aeWF%OOB OO79?8?$\'::sI:މ+GV;/'N9`?a_b /r] ȗaь``dÔSO_8?-g'OZ!9?q~ɧ%- : o8?^Gg??k9X1->ڗ /p{ntaCa*,JB%c_<>/t?1YƒS{258?i-P/)q~%Ώ9?aS\rOw~6 B:>z=}x~-X$ʗ@e!d 놖(Z|[f``+g,G|``Ȼŷe[E֧lo;.> ֻ}7xy@lb|,waկ=0?N?1,tU̟X7X?X?ghv\m/bdeF~z͌y̋]CBSS8'hHgӾrS|RߝЯWZ*[z-lW˭}tٮM{WxoD5qjSow;i>zG%~*0~'f #C##VROOOY?#p3k?8?p~'??c'1~ ]~~6<\bȹ6Y˫UǶǞտ9ch0#~yAG9RX|EvV^:?+u]rKZiԶo:4ZTif}[4_}ۻ?0ףzՇ.@>!extš jq`h~x~c7gǺ>r~zfZs~1}*GΏctMƱm|b:_3=AMpvFhD~7u*sKb~c=H~~'DzMz L{ Z"3beSxp)һO-3ݖ=`xpm9v(M]^g[3U3My\ GG3d]'X?Rh\,euVxe0a0Ϙ5Ⰾ 3 SaY!8a0a0֏5eX.ۤKe~g/b_5fÇ T5qm/rt !SiYA'ÏsD`̟q 8?h:pQH.̂ 쟜8?x6%f#?yO~@S{0o߲<#F+S> [!3[6[z];?^ ~[S>ro*I|O#"DH쟜8?q~gEqBGc]ߟ<"gqRL$hl 9cΣoV{^/gJM[h:3h 8L?āc)VdRy=5p~#/1/|>w 2km_[1h9ވY_l\P}ȣF:__=߆H()օԿMfjF*a~lX?4.??+[2OOO8?q~VBΏΏSHèF6[b[sfv /&]8oY~+@luKW|0&]4)f?'V OJ #?cTBT3;?b``d3'OqfS썜6q|:[r/Gt5έ^f?C <{SgF7,vV}an]'fEb3N`'u3fXVJ'6r~ցR- ޘ^xOR$8?p~q)%Hk8#lY a|5`{gxOU vHǁ0&uXʞisyBJy]U/Ճܬ????]:'uDQG h=Ale}ʬ][r^k0kW>M3yM|D[*UPKE}Q)GT~OLa\x~\Ge4ƙ'Ώ9?s~r9?O|35>,oݪrh>< /p:)qt X6$Ï_]Ÿ/v>l/d YerƼ4<[-3?֏^??=3d ^-??[GG--x``?Յ.?1Xb%NξYl+[v#t-}K -,w"G#k"Y7z~rg -P1ׅg^U֏e`y9i)~~~z&"wx+_X/̉3NR^ӚkdYSu-ZkJ֒k͖~6>M Wv]KWe-sޒYgc}Uۮek=j[t/_iEc3#Jल !O1~bĬQcad|\`|GΏc.xM* ɰx~~[?/_.#ĔVL.[.ۺ<ۻҟi8gݤ^ɫ%kٹ o~ƯHa\5)o8a0X?X?cS;e$ 4"ӲFp~x 1#bjt{#めC ~\~,Y)(^ev-ɦeגdԊaݞ8{ۯ8Q{,e{2j~X<,V.O/՟ُC^`N#xl-?Ə 3u`иL2''V OOOϺWr~TX''Ώ;?_??e3j15 IjSmϐҺ8efY o_;m:)?p%q(Z"~VQPZGO  y|ƪ,O>/9?p~;_2~ԗ7|Al-ìݽ{8uپgY-={~t}jYe7쿖їj!X-h{7&a'Vo o$N1fX?X?X?b.;k~~2aM|'߿9?kE?g ̼G]Nh3qF|Cfes]LoNog&楼|=4˳7/FG1~#%Se[d|T>WSʲ鲼e'OOW9r//i_*F{Q"I|]F2|?W"y1X?X??ֵ'OQ#s3g^3~uϿ_o/_~~}埖,]׎|K.;W %~&rwl%>Ǵڵ|M DksFֲKJ{ϷG?\~41?]zO.?k˟jiWmFI孟]zlY+o'TVՅ{{zyݳoD@ @ &gGǷe[e[\lWu>*W=u9WZl<7z.ˏɴ]~szγ.}%=2<>)WϚ ̇ߊ97]Kf=(G֩OL嚬z!7z#7~UsL>NIqrYZg]ge@ @ |~u3v-*\V|UmeG~ɣ*mTvq/w}U=Y3SVܚZjݖs$;;ިݺg~b{[-LgdԺFǰrOTi^\L߽Q]ʱ>ǯ\o-y.+v~cblokYηٶo񭱨C @ @Yl-]u|&r>E۔dJ*f-c(~UުHjd{l[1no|쳼8ݐރO/0c.[Nssnr&ڬ?U.TVrU.;OKv1lz[fyVf[|g @ @&Lmԟ=-*umYYw]y.;^Uwk}QJl/Vh=5c3 (P%?:JK-G6KrlrnlSe[rq]UG->ֳl?۴ڒ>=lC @ @쳱]eu#ݖmֻxd9RI|ڮ{loiŵ͞<dz_Kfݗy}5HFރJ>RXx.TEpLgy/W^e;GY\1,sn,e[O-SY)B~fۑA  @ @,e{D}Ze˜.ʫYYe}\y핫d;M.Ʃ2ӥ-ő~q\>[u߳-9e.帶qT~Ww r9ڷNɱ]ϲ`;f @ @xz~v[{>շ\wy[:s˲SV=l\:<ۻz9T7@%ofպrm\V>Yz.d,+O.We9|>WGmgߚKߒzQR\zmY'9 @ @*3bt-Cuϲ>ٮUo܏l>s\zl<]YoV^mj=t-|zSׇGa+Y܇3u6ʕjZzۆǷ>+ UwٹdN)'j?sks4m6UPl-=c|F @ @}66cײQ:b:,[*MhW\Ok,[\nȾUVE>t):幞ߚX7]׳"&}a{˾粘zlcYg-;S=rr+?-sul|#W|{Gl')WC2~)1c;kkre_e,E8-YkLFq0A@ @ W#0lldGWmsU&繬{zwq]9~Ku嶭yϾ%:-Wտdk`}܊`[=2>vʕVt\ms,sjӳO޺Nw} @ @3͖]wsyKf\mgZsPڲ}ww`k,"۩+|3|#[YYj1snٹ|Ԏlk\M~Yb;8FZ2)w?TJ> @ @{G|zru9?S_>i @ @ z8N˯%sesU#m+2>ɾ\vy˾ڶlr86mrz#mι ]@o1r9Ǒ\blZv[sjn*W ,ߪ[YڑR:B~ZJ @ @fٵֹqݹ.;oɬS˶Ͳjҵl,iKo;6r9e]Ϲۓ,͞r+FKvk=} {^ܭoHԺ.O>UZϕ;~[v-Y>l2r@ @ @M`yږ]׺Z̹{.;oYʳWv-y.5x(w[-m|z#>9֭9֨v~8 ~NpCxu[vGm;Ym3+\\嚪mYr,w>S~Cv#>]vrKג9NW_G(ߓo^sulL%sr@ @ @ g[Us*WYrg_ɳ^6J8_]ι۪q˶u]yKf}ֹ|m+[Qgz#u9e]\n-Sn[YWa}ג'Z_K6o4鳼Myq)~+vײ~~zf?r޲抓]߲}s}+l8^y{A\@ @ |v~ζu[v-}9WZefl3*[6U,;}ͭ^Vʾҫ^mܲl+W\??3c}8n_jkƦ|Z2Y^^L_k^,[v9f^Y @ @ &z.9-uQej_宏.jY-e[.;ʭdyͫYޒe}^m۲fW\oglZvv?Vg6V9 @ @̳~ٴtUsmOٶs9j\63jJ<4imnT>UeWѻڹn~WSX7gտWϱlsD&Gkj8^?\W޲2?jvηs~}U\%]^|@ @ @w'tg44kdSuk)6繜cKUlv9f~YmܶUתg?;*~~vzrg Ѝ˅-{j4[j]Q9ue?lu-Y%W_}}ek @ @'gp}˭X=}K^ezmy.r=2g.DZoU{,yh,sۑ,˶9v7ֲ}W8gd $,e1SSe+Ak*mKגVj8_/FGkd @ @_gf#ۖF*[?ʳ.uOUϲ=UtT}ɲo}:wn}-ԳmlL޲2kNZzUv-w\,~d:Uo;r@ @ @#ۖF*[?lLZ7u=Y-lےU\wYyݒ~+ũr?U _"nX,SY}e[dJcSKגeG¹[>e}*;XZWluYO @ @_@-G*-٦{uqmzɕ\Yug{빜rqym]b ACs孛PmecseSeXVvJl'ly1 @ @^@~[~=}YU޹V%Znի,%?Um˶Y^s\m󮱞a ry6}.{eő)4q6[g-[ɜlg?{gm{1%W|=j̲,Wꪾg#yMns^S @ @+y66{]3F6-ݖ,;uȲʵnUծo,s>YˎeyՏ'G>Ͷ;e/p.`H79sw$Sr٦-}qlɔFK&-靶{l<_Oϖ.;"A @ @mFv-]z.W*[Vu\mNZ}Kײ&ǩ+'jQϲQ9۲xGpWNGBlfd٦WVHmsHWlgrGUU[6V?m%kɥzq-e@ @ @`<{m+zO׊eGeJ>fu7[~ٖ2 @ @s-~-*S϶e5dY.tnTn:ՕTϲZHTs,srNwuޱglϊӋ)8ܞ3-zg.+WR?-[m\:}[6''ɲ\eo^۲7r=eܫQ @ @ po3Ǝa+vOߒWY.;z˜W9{U^3嚻?%ߒe}-+Sr\I|E.r]ct-n.jX3|s2,;Z @ @gh=Գu/\>|dY*O-d-}+٦eяd-Ǯyֱsn,ڏb=\I-{ƿgӒWY.?[e˜gzy˶ʪoַ={[>Քhޛ4=yd#yK׊8[6 @ @ cL*ɺ|K\welӓ>[<C)rٺ̺V.YM!y<~#:_#:ug}/\I,SUNfY[ʭߒeYeQcV]˾%ɭSkWN+G@ @ L\m5o[*ճnl-y7rYTϲZ7*>٦_KoٞQaJ_zmts7i$;FΫtY#˭>&,_G'ۣ϶3e_یlV㶪Υw2_gs4v/r@ @ <gcG9gגӠ)IDATWٞzuٹ3#Hֳ\R+{[jcH׫g?d-}}}#g|Z63j{ʶKޒUl˶˲V2ɳlyd'9D->[2G:|} @ @ #ȾےU}){D}fʺcZ_lu[1t_l6I t#p˛bs,]MϺ,sٹmrn]ͳ=fۘGNe;= @ @ .3>-Y=e\Wed6,-[(Y9]k|4$P{QYSsry+َ.}FV{Gޚګ6[uŪ6ml}k_Վ: @ @ s%,{6Te{u.;>|Vײܷ\e].m'noYO/p|"71׷nb>[~;ٌtWS٩oll,Z޺O4M+1ZzɎC@ @ g 0lh?gcZ*;Z~.;5%|deY./-ٖNUy&r>kZ϶/U~8x͛;[y+}Z*s{G9Y?s޷\5=Z*S϶.;W]vޒY7lF猍m[Ye[l^^l#~pͨԺڴl$_֩dۨ-}K&{ɕFh&Y%kijE  @ @_3qF6-݌,,޲#}܆뭼%ROgyXgmsQ)v[>36-?nwSg{2+ޞX~g'*+Io(JTU}]63+s|+e!Y?mezK9N) @ @ 3-~FVmr}Oek=36WʝN2םoɲUJ--ښ??;>znQY;ZnYvVkWދmjSքһ?[vo(;>9 @ @ p~.|;ٴR׺|,GlgYglSf36%SO͖oƑ-{93$dU{ʶyWL$Hӹٲkؗ @ @feQt۵lZmUٞzmGmnoÞ}lͱ%s^༿mE.*]voYvk ֋ٲݒ9֖݌5F~-1F:(ݬmC@ @ Z,[K{|dK-݌,Vy[yn;r (tIv~ 3#nFm(;Fū>>ӧl{rgfe=%H'un @ @ p{{|KV*dgy/K>ӧlskZ|d֏t{llgh e8CMKޒvM)l-s۶^J-[ꑿt#}W=u@ @ @~\lK[RKWe{eCcfo? ]_*.xofd&kUyHgշ[>-Z3dҒͶ%#s>v @ @6?wsbOvԒȪMY~^%~#T۱\yKgYײ9e,MK}F[|GqO}8{0+oeY.fq~6oO/7[=z-lO|G~{}k7 @ @J4׏0Գk[2Q幞6Z2;Yӊ#*\}gl^{n0cdȪM-,sY7[ۘt-yz.r}|DoMj~Mee呝tJ9~H%oɶ|U{ @ @}8eҷd–߳#˺\*[v#ٌndQ.g˳,o[o~Ͼ!@ @ nƾpV^F]qٹ#us ˜t9ιrKֳ]ޓ)۲=Sm[LĨ>6[~$*}Kp_/@ @ g"y8>ӳWQ}Fm-HvT1a_YV˪+lC~fUJIomkdӵU6V+kkX|Kj7SoHsՌmGYqFm @ @W!pփ8#%=lܲm4n,yKwD}reJj8z6-M[sn.tZo6gYe.;o]Slm=5ΘLS[/ @ @>;<[{OROגoɪ~TϺV%5X,Ve[Gee5j z!0t-yg\5#6;G[~G[>6GeReTvg| DZ*S϶rkϦ%oƒVMթr{[g51sfQG7 :@ @ MϿܞٴeʫݞz*o6γ,=[s#l7SoHTc4>Gl2G>L?8#%=l{3~=-]շ)6B=mO @ @x<#|zYy.rYr=G:96Gr#3SoH#$HZcdl{[qW ]]˶FY+=lZyoKoYkL~dL @ @%py3MK7#6zʢi,[qz6Yky.j~ط8-Et-z\ʳ_m3roV_ @ @f }>7iʲ_.A-g{>'ێdռo6gk/p1zjum&m=<ۏjVaۖ:r@ @ @-Glzng\\Uz+[ߒIדC/p 31lzj]זe\umsy.-ڨ#dJ! @ @JC-%[#߬;,3zcXWe>ٲuܑ^l*os+-}K֊ղ˲\f]\d4:os&ϖ^365.u@ @ @u|w˦?*~z\ʳvSu^T}.Y/e-}}[6=yﭻGN˦'|ZG @ @ I#%UQ 14r\V'ɥ5~_ng-*՟I5miZ7ڛ @ @x >߲[YS>ZTl^cgx1 ˮoɏʪߨ~]5jÃMmDZF-cX>?v @ @yn}h??Z^j?C;9;]m,yϮ'~.j/pt-QYSmMmeGֳ\^h}A @ @E`~3#%?*~{˭-=N#_Yglٍ-]KkcjUsܞ=#6g6v @ @ >̟۲i[2kɫlosw{qjmwv^{4YqPPNgc6ΖHӵUVBUeVoy>96|ħƠ@ @ #g|F6=ݬeWeVhSƣZ>63q<(Mg ]gcmٍ=]K^e޺jSG|jz=N|{kW? @ @ 3 |ӌMOߒU[B7ƌOF2^Hs'>}+z>t->31FZGS/nqy}n-} @ @B`!ެm y+F=|Zq{|K7ͧLnԞ[#}OגUZo1iI4m{뜷bZڷbdk9 @ @*L{c؏lZLؒȎ񹥏vgt[Q;%쉵e;t-X36ybby~ZA @ @8X3=\4Z3e3flnk_rVB[ٯUn4ٳ/{cmُ=yvF6c#gbV[=W[[1A @ @K{lG%#nF/O> ݼGn|ֶewlį^:_hYc-F@ @ "˄kݲϐbĩ%oz#nF/z}6/Y/ptS>߲Z>شJ-׏QlG|gA @ @ ܃3<\?҇Y]˧%ӽj!Ìn+c|V{1ij7ceӟ!oŘ۞HީZ^V잱{m" @ @`~oY]OדJKגmdGQog~h}v۲?!cMGn6gvg:@ @ @cOۑ]˧%]h[rRmoųl~vvv8ƛ߲{3gŚG#_ǟm[vZ @ @ Iև[v#]ϧ%otϒbyTڲC|ݿ#f|F6gz-ᵥkg{mKȶn' @ @ h[~[v#}OQr^۷5F/Ǿ x3>[6#}Oדt{X[z`X{ @ @?35ce3|zrݡ'|L\gǛis 5_=9e3ҟ;;(5q{1zC @ @M{b؎l֝OasF?k#Ͷ*#1g}Fv#HL:OQlu]ٮgW[ @ @HmwondL:cr#*#fòWzH};kew~{TA4{ nűkgjG@ @ b omcٛ~ٯ @ @ |p4^gg|pk{kɓVUwV @ @ A/n^{~jg/7|ևᏺ[9Q:8ϊSUuā @ @+xgh#~G|4Vy8[iQvF;Gc<hk9 @ @ J^/n{~Ѷsڙi6#nQGjH_ @ @K-1>wc6d[}:+<~5ޭ1>ڿ[S=k\_ @ @A>P/xϾ[}ڇx6;tWy<3c@ @ <3>3k4PΨ @ @ !gsf,1;;}vgwW~Q~v1gG=G @ @ A#_ܣ{ԝWܭQQnzG^m+=c=_g_; @ @ U{^wf|~d3 GsgmR @ @ 3=gxW<㿧>ݵ @ @ K^0ܻ{ߺ Vɣvܖ<[ڽD @ @ |fQyT; }:q? G<uXB @ @GˀG׿{|T>A @ @ @u |Kjw?~>\΃9 }{XA @ @X³')< }XB @ @O_H;gJ?_r@ @ @xgSp|k{@ @ @xlDы}%"qi  @ @u>ꕸR_snʃWe.B @ @t^ȫϿ%" @ @ xVxX? gcٮ- @ @)>ۋv=[PV_W; @ @ Wxq.2|e@ @ ܛW~q]| Qj @ @>yVXp7܄nܗ%0 @ @!ˁo<򁷁4 @ @ </mz/ |>R˽H @ @ @k^:@ @ H3'xUs]7 @ @~#^0 >???1@ @ R. @ :o=ȅ 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` \[hIENDB`utop-2.15.0/src/000077500000000000000000000000001472111175200133565ustar00rootroot00000000000000utop-2.15.0/src/lib/000077500000000000000000000000001472111175200141245ustar00rootroot00000000000000utop-2.15.0/src/lib/dune000066400000000000000000000004171472111175200150040ustar00rootroot00000000000000(library (name uTop) (public_name utop) (wrapped false) (modes byte) (libraries compiler-libs.toplevel findlib.top lambda-term logs.lwt threads xdg zed) (preprocess (action (run %{bin:cppo} -V OCAML:%{ocaml_version} %{input-file})))) (ocamllex uTop_lexer) utop-2.15.0/src/lib/uTop.ml000066400000000000000000000700771472111175200154200ustar00rootroot00000000000000(* * uTop.ml * ------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) [@@@warning "-27"] open Lwt_react open LTerm_text open LTerm_geom open LTerm_style let (>>=) = Lwt.(>>=) module String_set = Set.Make(String) let version = "%%VERSION%%" (* +-----------------------------------------------------------------+ | History | +-----------------------------------------------------------------+ *) module Default_paths = UTop_private.Default_paths let history = LTerm_history.create [] let history_file_name = ref (Some (Default_paths.history_file_name)) let history_file_max_size = ref None let history_file_max_entries = ref None let stashable_session_history = UTop_history.create () (* +-----------------------------------------------------------------+ | Hooks | +-----------------------------------------------------------------+ *) let new_command_hooks = LTerm_dlist.create () let at_new_command f = ignore (LTerm_dlist.add_l f new_command_hooks) (* +-----------------------------------------------------------------+ | Config | +-----------------------------------------------------------------+ *) type ui = UTop_private.ui = Console | Emacs let get_ui () = S.value UTop_private.ui type profile = Dark | Light let profile, set_profile = S.create Dark let set_profile p = set_profile p let size = UTop_private.size let key_sequence = UTop_private.key_sequence let count = UTop_private.count let time = ref (Unix.time ()) let () = at_new_command (fun () -> time := Unix.time ()) let make_variable ?eq x = let signal, set = S.create ?eq x in let set v = set v in (signal, (fun () -> S.value signal), set) let hide_reserved, get_hide_reserved, set_hide_reserved = make_variable true let create_implicits, get_create_implicits, set_create_implicits = make_variable false let show_box, get_show_box, set_show_box = make_variable true let phrase_terminator, get_phrase_terminator, set_phrase_terminator = make_variable ";;" let auto_run_lwt, get_auto_run_lwt, set_auto_run_lwt = make_variable true let auto_run_async, get_auto_run_async, set_auto_run_async = make_variable true let topfind_verbose, get_topfind_verbose, set_topfind_verbose = make_variable false let external_editor, get_external_editor, set_external_editor = make_variable (try Sys.getenv "EDITOR" with Not_found -> "vi") (* Ugly hack until the action system of lambda-term is improved *) let end_and_accept_current_phrase : LTerm_read_line.action = Edit (Custom (fun () -> assert false)) let set_margin_function f = UTop_private.set_margin_function f (* +-----------------------------------------------------------------+ | Keywords | +-----------------------------------------------------------------+ *) let default_keywords = [ "and"; "as"; "assert"; "begin"; "class"; "constraint"; "do"; "done"; "downto"; "else"; "end"; "exception"; "external"; "for"; "fun"; "function"; "functor"; "if"; "in"; "include"; "inherit"; "initializer"; "lazy"; "let"; "match"; "method"; "module"; "mutable"; "new"; "object"; "of"; "open"; "private"; "rec"; "sig"; "struct"; "then"; "to"; "try"; "type"; "val"; "virtual"; "when"; "while"; "with"; "try_lwt"; "finally"; "for_lwt"; "lwt"; ] let keywords = ref (String_set.of_list default_keywords) let add_keyword kwd = keywords := String_set.add kwd !keywords (* +-----------------------------------------------------------------+ | Span of Lines | +-----------------------------------------------------------------+ *) type lines = { start: int; stop: int; } (* +-----------------------------------------------------------------+ | Error reporting | +-----------------------------------------------------------------+ *) let get_message func x = let buffer = Buffer.create 1024 in let pp = Format.formatter_of_buffer buffer in UTop_private.set_margin pp; func pp x; Format.pp_print_flush pp (); Buffer.contents buffer let get_ocaml_error_message exn = let buffer = Buffer.create 1024 in let pp = Format.formatter_of_buffer buffer in UTop_private.set_margin pp; Errors.report_error pp exn; Format.pp_print_flush pp (); let str = Buffer.contents buffer in try Scanf.sscanf str "Characters %d-%d:\n%[\000-\255]" (fun start stop msg -> ((start, stop), msg, None)) with Scanf.Scan_failure(_) -> try Scanf.sscanf str "Line %d, characters %d-%d:\n%[\000-\255]" (fun line start stop msg -> ((start, stop), msg, Some{start=line; stop=line})) with Scanf.Scan_failure(_) -> try Scanf.sscanf str "Lines %d-%d, characters %d-%d:\n%[\000-\255]" (fun start_line stop_line start stop msg -> ((start, stop), msg, Some{start=start_line;stop=stop_line})) with Scanf.Scan_failure(_) -> ((0, 0), str, None) let collect_formatters buf pps f = (* First flush all formatters. *) List.iter (fun pp -> Format.pp_print_flush pp ()) pps; (* Save all formatter functions. *) let save = List.map (fun pp -> Format.pp_get_formatter_out_functions pp ()) pps in let restore () = List.iter2 (fun pp out_functions -> Format.pp_print_flush pp (); Format.pp_set_formatter_out_functions pp out_functions) pps save in (* Output functions. *) let out_functions = let ppb = Format.formatter_of_buffer buf in Format.pp_get_formatter_out_functions ppb () in (* Replace formatter functions. *) List.iter (fun pp -> UTop_private.set_margin pp; Format.pp_set_formatter_out_functions pp out_functions) pps; try let x = f () in restore (); x with exn -> restore (); raise exn let discard_formatters pps f = (* First flush all formatters. *) List.iter (fun pp -> Format.pp_print_flush pp ()) pps; (* Save all formatter functions. *) let save = List.map (fun pp -> Format.pp_get_formatter_out_functions pp ()) pps in let restore () = List.iter2 (fun pp out_functions -> Format.pp_print_flush pp (); Format.pp_set_formatter_out_functions pp out_functions) pps save in (* Output functions. *) let out_functions = { Format.out_string = (fun _ _ _ -> ()); out_flush = ignore; out_newline = ignore; out_spaces = ignore ; out_indent = ignore } in (* Replace formatter functions. *) List.iter (fun pp -> Format.pp_set_formatter_out_functions pp out_functions) pps; try let x = f () in restore (); x with exn -> restore (); raise exn (* +-----------------------------------------------------------------+ | Parsing | +-----------------------------------------------------------------+ *) type location = int * int type 'a result = | Value of 'a | Error of location list * string exception Need_more let input_name = "//toplevel//" let lexbuf_of_string eof str = let pos = ref 0 in let lexbuf = Lexing.from_function (fun buf len -> if !pos = String.length str then begin eof := true; 0 end else begin let len = min len (String.length str - !pos) in String.blit str !pos buf 0 len; pos := !pos + len; len end) in Location.init lexbuf input_name; lexbuf let mkloc loc = (loc.Location.loc_start.Lexing.pos_cnum, loc.Location.loc_end.Lexing.pos_cnum) let parse_default parse str eos_is_error = let eof = ref false in let lexbuf = lexbuf_of_string eof str in try (* Try to parse the phrase. *) let phrase = parse lexbuf in Value phrase with | _ when !eof && not eos_is_error -> (* This is not an error, we just need more input. *) raise Need_more | End_of_file -> (* If the string is empty, do not report an error. *) raise Need_more | Lexer.Error (error, loc) -> (match Location.error_of_exn (Lexer.Error (error, loc)) with | Some (`Ok error)-> Error ([mkloc loc], get_message Location.print_report error) | _-> raise Need_more) | Syntaxerr.Error error -> begin match error with | Syntaxerr.Unclosed (opening_loc, opening, closing_loc, closing) -> Error ([mkloc opening_loc; mkloc closing_loc], Printf.sprintf "Syntax error: '%s' expected, the highlighted '%s' might be unmatched" closing opening) | Syntaxerr.Applicative_path loc -> Error ([mkloc loc], "Syntax error: applicative paths of the form F(X).t are not supported when the option -no-app-funct is set.") | Syntaxerr.Other loc -> Error ([mkloc loc], "Syntax error") | Syntaxerr.Expecting (loc, nonterm) -> Error ([mkloc loc], Printf.sprintf "Syntax error: %s expected." nonterm) | Syntaxerr.Variable_in_scope (loc, var) -> Error ([mkloc loc], Printf.sprintf "In this scoped type, variable '%s is reserved for the local type %s." var var) | Syntaxerr.Not_expecting (loc, nonterm) -> Error ([mkloc loc], Printf.sprintf "Syntax error: %s not expected" nonterm) | Syntaxerr.Ill_formed_ast (loc, s) -> Error ([mkloc loc], Printf.sprintf "Error: broken invariant in parsetree: %s" s) | Syntaxerr.Invalid_package_type (loc, err) -> Error ([mkloc loc], UTop_compat.invalid_package_error_to_string err) #if OCAML_VERSION >= (5, 0, 0) | Syntaxerr.Removed_string_set loc -> Error ([mkloc loc], "Syntax error: strings are immutable, there is no assignment \ syntax for them.\n\ Hint: Mutable sequences of bytes are available in the Bytes module.\n\ Hint: Did you mean to use 'Bytes.set'?") #endif end | Syntaxerr.Escape_error | Parsing.Parse_error -> Error ([mkloc (Location.curr lexbuf)], "Syntax error") | exn -> Error ([], "Unknown parsing error (please report it to the utop project): " ^ Printexc.to_string exn) let parse_toplevel_phrase_default = parse_default Parse.toplevel_phrase let parse_toplevel_phrase = ref parse_toplevel_phrase_default let parse_use_file_default = parse_default Parse.use_file let parse_use_file = ref parse_use_file_default (* +-----------------------------------------------------------------+ | Safety checking | +-----------------------------------------------------------------+ *) let null = Format.make_formatter (fun str ofs len -> ()) ignore let rec last head tail = match tail with | [] -> head | head :: tail -> last head tail let with_loc loc str = { Location.txt = str; Location.loc = loc; } (* Check that the given phrase can be evaluated without typing/compile errors. *) let check_phrase phrase = let open Parsetree in match phrase with | Ptop_dir _ -> None | Ptop_def [] -> None | Ptop_def (item :: items) -> let loc = { Location.loc_start = item.pstr_loc.Location.loc_start; Location.loc_end = (last item items).pstr_loc.Location.loc_end; Location.loc_ghost = false; } in (* Backup. *) let snap = Btype.snapshot () in let env = !Toploop.toplevel_env in (* Construct "let _ () = let module _ = struct end in ()" in order to test the typing and compilation of [items] without evaluating them. *) let unit = let (%.) a b = Longident.Ldot (a, b) in with_loc loc (Lident "Stdlib" %. "Unit" %. "()") in let top_def = let open Ast_helper in with_default_loc loc (fun () -> let punit = (Pat.construct unit None) in let body = (Exp.letmodule ~loc:loc (with_loc loc (Some "_")) (Mod.structure (item :: items)) (Exp.construct unit None)) in Str.eval (UTop_compat.Exp.fun_ ~loc punit body)) in let check_phrase = Ptop_def [top_def] in try let _ = discard_formatters [Format.err_formatter] (fun () -> Env.reset_cache_toplevel (); Toploop.execute_phrase false null check_phrase) in (* The phrase is safe. *) Toploop.toplevel_env := env; Btype.backtrack snap; None with exn -> (* The phrase contains errors. *) let loc, msg, line = get_ocaml_error_message exn in Toploop.toplevel_env := env; Btype.backtrack snap; Some ([loc], msg, [line]) (* +-----------------------------------------------------------------+ | Prompt | +-----------------------------------------------------------------+ *) let make_prompt ui profile count size key_sequence (recording, macro_count, macro_counter) = let tm = Unix.localtime !time in let color dark light = match profile with | Dark -> dark | Light -> light in match ui with | Emacs -> [||] | Console -> let bold = profile = Dark in let txta = if key_sequence = [] then eval [ B_bold bold; B_fg (color lcyan blue); S "─( "; B_fg (color lmagenta magenta); S (Printf.sprintf "%02d:%02d:%02d" tm.Unix.tm_hour tm.Unix.tm_min tm.Unix.tm_sec); E_fg; S " )─< "; B_fg (color lyellow yellow); S (Printf.sprintf "command %d" count); E_fg; S " >─"; ] else eval [ B_bold bold; B_fg (color lcyan blue); S "─( "; B_fg (color lmagenta magenta); S (Printf.sprintf "%02d:%02d:%02d" tm.Unix.tm_hour tm.Unix.tm_min tm.Unix.tm_sec); E_fg; S " )─< "; B_fg (color lyellow yellow); S (Printf.sprintf "command %d" count); E_fg; S " >─[ "; B_fg (color lgreen green); S (String.concat " " (List.map LTerm_key.to_string_compact key_sequence)); E_fg; S " ]─"; ] in let txtb = if recording then eval [ B_bold bold; B_fg (color lcyan blue); S "{ "; B_fg (color lwhite black); S (Printf.sprintf "counter: %d" macro_counter); E_fg; S " }─[ "; B_fg (color lwhite black); S (Printf.sprintf "macro: %d" macro_count); E_fg; S " ]─"; ] else eval [ B_bold bold; B_fg (color lcyan blue); S "{ "; B_fg (color lwhite black); S (Printf.sprintf "counter: %d" macro_counter); E_fg; S " }─"; ] in let second_line = eval [ S "\n"; B_bold bold; B_fg (rgb 0xe3 0xaa 0x73); S "utop"; B_fg (color lgreen green); S " # "; ] in Array.append ( if Array.length txta + Array.length txtb > size.cols then Array.sub (Array.append txta txtb) 0 size.cols else Array.concat [ txta; Array.make (size.cols - Array.length txta - Array.length txtb) (Zed_char.of_utf8 "\u{2500}", { none with foreground = Some (color lcyan blue); bold = Some bold }); txtb; ] ) second_line let default_prompt = S.l6 make_prompt UTop_private.ui profile count size key_sequence (S.l3 (fun x y z -> (x, y, z)) (Zed_macro.recording LTerm_read_line.macro) (Zed_macro.count LTerm_read_line.macro) (Zed_macro.counter LTerm_read_line.macro)) let prompt = ref default_prompt let edit_mode= ref LTerm_editor.Default let default_info = { Toploop.section = "UTop"; doc = ""; (* TODO: have some kind of documentation *) } let () = Toploop.add_directive "utop_prompt_simple" (Toploop.Directive_none (fun () -> prompt := S.map (Printf.ksprintf LTerm_text.of_utf8 "utop [%d]: ") count)) default_info; Toploop.add_directive "utop_prompt_dummy" (Toploop.Directive_none (fun () -> prompt := S.const (LTerm_text.of_utf8 "# "))) default_info; Toploop.add_directive "utop_prompt_fancy_light" (Toploop.Directive_none (fun () -> set_profile Light; prompt := default_prompt)) default_info; Toploop.add_directive "utop_prompt_fancy_dark" (Toploop.Directive_none (fun () -> set_profile Dark; prompt := default_prompt)) default_info; Toploop.add_directive "edit_mode_default" (Toploop.Directive_none (fun () -> edit_mode:= LTerm_editor.Default)) default_info; Toploop.add_directive "edit_mode_vi" (Toploop.Directive_none (fun () -> edit_mode:= LTerm_editor.Vi)) default_info (* +-----------------------------------------------------------------+ | Help | +-----------------------------------------------------------------+ *) module Bindings = Zed_input.Make (LTerm_key) module Keys_map = Map.Make (struct type t = LTerm_key.t list let compare = compare end) let name_of_action action = if action == end_and_accept_current_phrase then "end-and-accept-current-phrase" else LTerm_read_line.name_of_action action let doc_of_action action = if action == end_and_accept_current_phrase then "end the current phrase with the phrase terminator (;;) and evaluate it" else LTerm_read_line.doc_of_action action let () = Toploop.add_directive "utop_help" (Toploop.Directive_none (fun () -> print_endline "If you can't see the prompt properly try: #utop_prompt_simple utop defines the following directives: #help : list all directives #utop_bindings : list all the current key bindings #utop_macro : display the currently recorded macro #utop_stash : store all the valid commands from your current session in a file #utop_save : store the current session with a simple prompt in a file #topfind_log : display messages recorded from findlib since the beginning of the session #topfind_verbose : enable/disable topfind verbosity For a complete description of utop, look at the utop(1) manual page.")) default_info; Toploop.add_directive "utop_bindings" (Toploop.Directive_none (fun () -> let make_lines keys actions acc = match actions with | [] -> (String.concat " " (List.map LTerm_key.to_string_compact keys), "", "does nothing") :: acc | action :: actions -> let rec loop actions acc = match actions with | [] -> acc | action :: actions -> loop actions (("", name_of_action action, doc_of_action action) :: acc) in loop actions ((String.concat " " (List.map LTerm_key.to_string_compact keys), name_of_action action, doc_of_action action) :: acc) in let bindings = Bindings.fold (fun key actions map -> Keys_map.add key (List.map (fun action -> (LTerm_read_line.Edit action)) actions) map) !LTerm_edit.bindings Keys_map.empty in let bindings = Bindings.fold Keys_map.add !LTerm_read_line.bindings bindings in let table = List.rev (Keys_map.fold (fun keys action acc -> make_lines keys action acc) bindings []) in let size_key, size_name, size_doc = List.fold_left (fun (size_key, size_name, size_doc) (key, name, doc) -> (max (String.length key) size_key, max (String.length name) size_name, max (String.length doc) size_doc)) (0, 0, 0) table in let buf = Buffer.create 128 in let format_line (key, name, doc) = Buffer.clear buf; Buffer.add_string buf key; while Buffer.length buf < size_key do Buffer.add_char buf ' ' done; Buffer.add_string buf " : "; Buffer.add_string buf name; while Buffer.length buf < size_key + size_name + 3 do Buffer.add_char buf ' ' done; Buffer.add_string buf " -> "; Buffer.add_string buf doc; Buffer.add_char buf '\n'; output_string stdout (Buffer.contents buf) in List.iter format_line table; flush stdout)) default_info; Toploop.add_directive "utop_macro" (Toploop.Directive_none (fun () -> let macro = Zed_macro.contents LTerm_read_line.macro in List.iter (fun action -> output_string stdout (name_of_action action); output_char stdout '\n') macro; flush stdout)) default_info let () = Toploop.add_directive "pwd" (Toploop.Directive_none (fun () -> print_endline (Sys.getcwd ()))) default_info let make_stash_directive entry_formatter fname = if get_ui () = Emacs then print_endline "Stashing is currently not supported in Emacs" else let entries = UTop_history.contents stashable_session_history in (* remove the stash directive from its output *) let entries = match entries with [] -> [] | _ :: e -> e in let entries = List.rev entries in Printf.printf "Stashing %d entries in %s ... " (List.length entries) fname; try let oc = open_out fname in try List.iter (fun e -> let line = entry_formatter e in output_string oc line; output_char oc '\n') entries; close_out oc; Printf.printf "Done.\n"; with exn -> close_out oc; raise exn with exn -> Printf.printf "Error with file %s: %s\n" fname @@ Printexc.to_string exn let () = let fn = make_stash_directive begin function | UTop_history.Input i -> i | Output out | Error out | Bad_input out | Warnings out -> Printf.sprintf "(* %s *)" out end in Toploop.add_directive "utop_stash" (Toploop.Directive_string fn) default_info let () = let fn = make_stash_directive begin function | UTop_history.Input i | Bad_input i -> Printf.sprintf "# %s" i | Output out | Error out | Warnings out -> out end in Toploop.add_directive "utop_save" (Toploop.Directive_string fn) default_info (* +-----------------------------------------------------------------+ | Findlib stuff | +-----------------------------------------------------------------+ *) let print_error msg = Lazy.force LTerm.stdout >>= fun term -> LTerm.set_style term !UTop_private.error_style >>= fun () -> Lwt_io.print msg >>= fun () -> LTerm.set_style term LTerm_style.none >>= fun () -> LTerm.flush term let handle_findlib_error = function | Failure msg -> Lwt_main.run (print_error msg) | Fl_package_base.No_such_package(pkg, reason) -> Lwt_main.run (print_error (Printf.sprintf "No such package: %s%s\n" pkg (if reason <> "" then " - " ^ reason else ""))) | Fl_package_base.Package_loop pkg -> Lwt_main.run (print_error (Printf.sprintf "Package requires itself: %s\n" pkg)) | exn -> raise exn let topfind_log, set_topfind_log = S.create ~eq:(fun _ _ -> false) [] let () = let real_log = !Topfind.log in Topfind.log := fun str -> set_topfind_log (str :: S.value topfind_log); if S.value topfind_verbose then real_log str let () = Toploop.add_directive "topfind_log" (Toploop.Directive_none (fun () -> List.iter (fun str -> print_string str; print_char '\n') (S.value topfind_log); flush stdout)) default_info; Toploop.add_directive "topfind_verbose" (Toploop.Directive_bool set_topfind_verbose) default_info let split_words str = let len = String.length str in let is_sep = function | ' ' | '\t' | '\r' | '\n' | ',' -> true | _ -> false in let rec skip acc i = if i = len then acc else if is_sep str.[i] then skip acc (i + 1) else extract acc i (i + 1) and extract acc i j = if j = len then (String.sub str i (j - i)) :: acc else if is_sep str.[j] then skip (String.sub str i (j - i) :: acc) (j + 1) else extract acc i (j + 1) in List.rev (skip [] 0) let require packages = try let eff_packages = Findlib.package_deep_ancestors !Topfind.predicates packages in Topfind.load eff_packages with exn -> handle_findlib_error exn let () = Toploop.add_directive "require" (Toploop.Directive_string (fun str -> require (split_words str))) default_info (* +-----------------------------------------------------------------+ | Backports | +-----------------------------------------------------------------+ *) let use_output command = let fn = Filename.temp_file "ocaml" "_toploop.ml" in Misc.try_finally ~always:(fun () -> try Sys.remove fn with Sys_error _ -> ()) (fun () -> match Printf.ksprintf Sys.command "%s > %s" command (Filename.quote fn) with | 0 -> ignore (Toploop.use_file Format.std_formatter fn : bool) | n -> Format.printf "Command exited with code %d.@." n) let () = let name = "use_output" in if UTop_compat.toploop_get_directive name = None then Toploop.add_directive name (Toploop.Directive_string use_output) default_info (* +-----------------------------------------------------------------+ | Initialization | +-----------------------------------------------------------------+ *) let () = (* "utop" is an internal library so it is not passed as "-package" to "ocamlfind ocamlmktop". *) Topfind.don't_load_deeply ["utop"]; Topfind.add_predicates ["byte"; "toploop"]; (* Add findlib path so Topfind is available and it won't be initialized twice if the user does [#use "topfind"]. *) Topdirs.dir_directory (Findlib.package_directory "findlib"); (* Make UTop accessible. *) Topdirs.dir_directory (Findlib.package_directory "utop") (* +-----------------------------------------------------------------+ | Compiler-libs re-exports | +-----------------------------------------------------------------+ *) let get_load_path = UTop_compat.get_load_path let set_load_path = UTop_compat.set_load_path module Private = struct let fix_string str = let len = String.length str in if len = 0 then str else let ofs, _, _ = Zed_utf8.next_error str 0 in if ofs = len then str else begin let buf = Buffer.create (len + 128) in if ofs > 0 then Buffer.add_substring buf str 0 ofs; let rec loop ofs = Zed_utf8.add buf (Uchar.of_char str.[ofs]); let ofs1 = ofs + 1 in if ofs1 < len then let ofs2, _, _ = Zed_utf8.next_error str ofs1 in if ofs1 < ofs2 then Buffer.add_substring buf str ofs1 (ofs2 - ofs1); if ofs2 < len then loop ofs2 else Buffer.contents buf else Buffer.contents buf in loop ofs end end utop-2.15.0/src/lib/uTop.mli000066400000000000000000000250221472111175200155570ustar00rootroot00000000000000(* * uTop.mli * -------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) (** UTop configuration. *) open React val version : string (** Version of utop. *) val count : int React.signal (** The number of commands already executed. *) val keywords : Set.Make(String).t ref (** The set of OCaml keywords. *) val add_keyword : string -> unit (** Add a new OCaml keyword. *) val require : string list -> unit (** Load all the given findlib packages *) type ui = Console | Emacs (** The user interface in use. *) val get_ui : unit -> ui (** Returns the user interface in use. *) val hide_reserved : bool signal (** If [true] (the default) identifiers starting with a '_' will be hidden from the output. i.e. the following phrase won't produces any output: {[ let _x = 1 ]} This is for hidding variables created by code generators for internal use. It can also be set/unset by the command line options [-hide-reserved] and [-show-reserved]. *) val get_hide_reserved : unit -> bool (** Returns the value of {!hide_reserved}. *) val set_hide_reserved : bool -> unit (** Modifies {!hide_reserved}. *) val create_implicits : bool signal (** If [true] (not the default) expressions entered in the toplevel are automatically bound, for example: {[ # 3 + 4;; _0 : int = 7 # _0 + 10;; _1 : int = 17 ]} *) val get_create_implicits : unit -> bool (** Returns the value of {!create_implicits}. *) val set_create_implicits : bool -> unit (** Modifies {!create_implicits}. *) val topfind_verbose : bool signal (** If [false] (the default) messages from findlib are hidden. This is only effective with findlib >= 1.4. *) val get_topfind_verbose : unit -> bool (** Returns the value of {!topfind_verbose}. *) val set_topfind_verbose : bool -> unit (** Modifies {!topfind_verbose}. *) val topfind_log : string list signal (** List of messages logged by findlib since the beginning of the session. This requires findlib >= 1.4. *) val show_box : bool signal (** If [true] (the default) the completion bar is displayed. *) val get_show_box : unit -> bool (** Returns the value of {!show_box}. *) val set_show_box : bool -> unit (** Modifies {!show_box}. *) val set_margin_function : (LTerm_geom.size -> int option) -> unit (** Margin of the standard and error formatters as a function of the screen size. The default is: {[ fun size -> Some (min 80 size.cols) ]} *) val phrase_terminator : string signal (** The phrase terminator, ";;". *) val get_phrase_terminator : unit -> string (** Returns the value of {!phrase_terminator}. *) val set_phrase_terminator : string -> unit (** Modifies {!phrase_terminator}. *) val auto_run_lwt : bool signal (** If [true] (the default) toplevel lwt expressions are automatically run with [Lwt_main.run]. i.e. if you type: {[ Lwt_io.printl "Hello, world" ]} this will be replaced by: {[ Lwt_main.run (Lwt_io.printl "Hello, world") ]} *) val get_auto_run_lwt : unit -> bool (** Returns the value of {!auto_run_lwt}. *) val set_auto_run_lwt : bool -> unit (** Modifies {!auto_run_lwt}. *) val auto_run_async : bool signal (** If [true] (the default) toplevel Async expressions are automatically run with in a separate thread with [Thread_safe.block_on_async_exn]. i.e. if you type: {[ after (Time.Span.of_s 1.0) ]} this will be replaced by: {[ Thread_safe.block_on_async_exn (fun () -> after (Time.Span.of_s 1.0)) ]} *) val get_auto_run_async : unit -> bool (** Returns the value of {!auto_run_async}. *) val set_auto_run_async : bool -> unit (** Modifies {!auto_run_async}. *) val end_and_accept_current_phrase : LTerm_read_line.action (** Action that add the phrase terminator at the end of the current phrase and accepts it. For instance to avoid typing [;;], add this to your ~/.config/utop/init.ml: {[ #require "lambda-term";; LTerm_read_line.bind [ { control = false; meta = false; shift = false; code = Enter } ] [ UTop.end_and_accept_current_phrase ] ]} *) (** External editor command. [None] for default. *) val external_editor : string signal val set_external_editor : string -> unit val get_external_editor : unit -> string (** {6 History} *) val history : LTerm_history.t (** The history used by utop. You can configure limits using the [LTerm_history] module. For example if you want to limit the history to 1000 line, add these lines to your ~/.config/utop/init.ml file: {[ #require "lambda-term";; LTerm_history.set_max_entries UTop.history 1000;; ]} *) val history_file_name : string option ref (** Name of the history file. If [None], no history will be loaded or saved. *) val history_file_max_size : int option ref (** Maximum size of the history file. If [None] (the default) the maximum size of [history] will be used. *) val history_file_max_entries : int option ref (** Maximum entries to store in the history file. If [None] (the default) the maximum number of entries if [history] will be used. *) val stashable_session_history : UTop_history.t (** A history consisting of inputs and resulting values or errors of the current session. Because stashing is supposed to produce a valid OCaml file which will behave roughly the same as the console, it is best if this history never gets truncated. While this will certainly lead to a slight memory leaking problem, UTop sessions are rarely long enough to make it a serious issue. *) (** {6 Console specific configuration} *) type profile = Dark | Light (** Profile for colors. *) val profile : profile React.signal (** The color profile. It defaults to {!Dark}. This is used by the default prompt to choose colors. *) val set_profile : profile -> unit (** Sets the color profile. *) val size : LTerm_geom.size React.signal (** The current size of the terminal. This is used only in the console UI. *) val key_sequence : LTerm_key.t list React.signal (** The current key sequence entered by the user. This is used only in the console UI. *) val time : float ref (** The time of the beginning of the current command. *) val prompt : LTerm_text.t React.signal ref (** The prompt. *) (** {6 Edit mode configuration} *) val edit_mode : LTerm_editor.mode ref (** The edit mode. *) (** {6 Hooks} *) val new_command_hooks : (unit -> unit) LTerm_dlist.t (** Functions called before each new command. *) val at_new_command : (unit -> unit) -> unit (** [at_new_command f] adds [f] to the hooks executed before each new commands. *) (** {6 Parsing} *) type location = int * int (** Type of a string-location. It is composed of a start and stop offsets (in bytes). *) type lines = { start: int; stop: int; } (** Type for a range of lines in a buffer from start to stop. *) (** Result of a function processing a programx. *) type 'a result = | Value of 'a (** The function succeeded and returned this value. *) | Error of location list * string (** The function failed. Arguments are a list of locations to highlight in the source and an error message. *) exception Need_more (** Exception raised by a parser when it need more data. *) val parse_use_file : (string -> bool -> Parsetree.toplevel_phrase list result) ref val parse_use_file_default : string -> bool -> Parsetree.toplevel_phrase list result (** The default parser for toplevel regions. It uses the standard ocaml parser. *) val parse_toplevel_phrase : (string -> bool -> Parsetree.toplevel_phrase result) ref (** [parse_toplevel_phrase] is the function used to parse a phrase typed in the toplevel. Its arguments are: - [input]: the string to parse - [eos_is_error] If [eos_is_error] is [true] and the parser reach the end of input, then {!Parse_failure} should be returned. If [eos_is_error] is [false] and the parser reach the end of input, the exception {!Need_more} must be thrown. Except for {!Need_more}, the function must not raise any exception. *) val parse_toplevel_phrase_default : string -> bool -> Parsetree.toplevel_phrase result (** The default parser for toplevel phrases. It uses the standard ocaml parser. *) val parse_default : (Lexing.lexbuf -> 'a) -> string -> bool -> 'a result (** The default parser. It uses the standard ocaml parser. *) val input_name : string (** The name you must use in location to let ocaml know that it is from the toplevel. *) val lexbuf_of_string : bool ref -> string -> Lexing.lexbuf (** [lexbuf_of_string eof str] is the same as [Lexing.from_string str] except that if the lexer reach the end of [str] then [eof] is set to [true]. *) (** {6 Helpers} *) val get_message : (Format.formatter -> 'a -> unit) -> 'a -> string (** [get_message printer x] applies [printer] on [x] and returns everything it prints as a string. *) val get_ocaml_error_message : exn -> location * string * (lines option) (** [get_ocaml_error_message exn] returns the location and error message for the exception [exn] which must be an exception from the compiler. *) val check_phrase : Parsetree.toplevel_phrase -> (location list * string * lines option list) option (** [check_phrase phrase] checks that [phrase] can be executed without typing or compilation errors. It returns [None] if [phrase] is OK and an error message otherwise. If the result is [None] it is guaranteed that [Toploop.execute_phrase] won't raise any exception. *) val collect_formatters : Buffer.t -> Format.formatter list -> (unit -> 'a) -> 'a (** [collect_formatters buf pps f] executes [f] and redirect everything it prints on [pps] to [buf]. *) val discard_formatters : Format.formatter list -> (unit -> 'a) -> 'a (** [discard_formatters pps f] executes [f], dropping everything it prints on [pps]. *) val split_words : string -> string list (** {6 compiler-libs reexports} *) val get_load_path : unit -> string list val set_load_path : string list -> unit (** [get_load_path] and [set_load_path] manage the include directories. The internal variable contains the list of directories added by findlib-required packages and [#directory] directives. *) (**/**) module Private : sig val fix_string : string -> string end utop-2.15.0/src/lib/uTop_compat.ml000066400000000000000000000077041472111175200167600ustar00rootroot00000000000000let get_desc x = #if OCAML_VERSION >= (4, 14, 0) Types.get_desc x #else x.Types.desc #endif let toploop_get_directive name = #if OCAML_VERSION >= (4, 13, 0) Toploop.get_directive name #else try Some (Hashtbl.find Toploop.directive_table name) with Not_found -> None #endif let toploop_all_directive_names () = #if OCAML_VERSION >= (4, 13, 0) Toploop.all_directive_names () #else Hashtbl.fold (fun dir _ acc -> dir::acc) Toploop.directive_table [] #endif let get_load_path () = #if OCAML_VERSION >= (5, 2, 0) let {Load_path.visible; hidden} = Load_path.get_paths () in visible @ hidden #else Load_path.get_paths () #endif let set_load_path visible = #if OCAML_VERSION >= (5, 2, 0) Load_path.init ~auto_include:Load_path.no_auto_include ~visible ~hidden:[] #elif OCAML_VERSION >= (5, 0, 0) Load_path.init ~auto_include:Load_path.no_auto_include visible #else Load_path.init visible #endif let toploop_use_silently fmt name = #if OCAML_VERSION >= (4, 14, 0) Toploop.use_silently fmt (match name with "" -> Stdin | _ -> File name) #else Toploop.use_silently fmt name #endif let toploop_set_paths () = #if OCAML_VERSION >= (5, 0, 0) Toploop.set_paths ~auto_include:Load_path.no_auto_include () #else Toploop.set_paths () #endif let toploop_load_file ppf fn = #if OCAML_VERSION >= (4, 13, 0) Toploop.load_file ppf fn #else Topdirs.load_file ppf fn #endif (** Returns whether the given path is persistent. *) let rec is_persistent_path = function | Path.Pident id -> Ident.persistent id | Path.Pdot (p, _) -> is_persistent_path p | Path.Papply (_, p) -> is_persistent_path p #if OCAML_VERSION >= (5, 1, 0) | Path.Pextra_ty (p, _) -> is_persistent_path p #endif #if OCAML_VERSION >= (5, 2, 0) let inline_code = #if OCAML_VERSION >= (5, 3, 0) (Format_doc.compat Misc.Style.inline_code) #else Misc.Style.inline_code #endif #endif let invalid_package_error_to_string err = #if OCAML_VERSION >= (5, 2, 0) (* NOTE: from https://github.com/ocaml/ocaml/blob/9b059b1e7a66e9d2f04d892a4de34c418cd96f69/parsing/parse.ml#L149 *) let invalid ppf ipt = match ipt with | Syntaxerr.Parameterized_types -> Format.fprintf ppf "parametrized types are not supported" | Constrained_types -> Format.fprintf ppf "constrained types are not supported" | Private_types -> Format.fprintf ppf "private types are not supported" | Not_with_type -> Format.fprintf ppf "only %a constraints are supported" inline_code "with type t =" | Neither_identifier_nor_with_type -> Format.fprintf ppf "only module type identifier and %a constraints are supported" inline_code "with type" in let buf = Buffer.create 128 in let fmt = Format.formatter_of_buffer buf in Format.fprintf fmt "Invalid package type: %a%!" invalid err; Buffer.contents buf #else err #endif module Exp = struct open Ast_helper #if OCAML_VERSION >= (5, 2, 0) open Parsetree let fun_ ~loc p e = let args = [{ pparam_loc=loc; pparam_desc=Pparam_val (Nolabel, None, p); }] in (Exp.function_ args None (Pfunction_body e)) #else let fun_ ~loc p e = Exp.fun_ ~loc Nolabel None p e #endif end let abstract_type_kind = #if OCAML_VERSION >= (5, 2, 0) Types.(Type_abstract Definition) #else Types.Type_abstract #endif let find_in_path_normalized = #if OCAML_VERSION >= (5, 2, 0) Misc.find_in_path_normalized #else Misc.find_in_path_uncap #endif let visible_paths_for_cmt_infos (cmt_infos: Cmt_format.cmt_infos) = #if OCAML_VERSION >= (5, 2, 0) cmt_infos.cmt_loadpath.visible #else cmt_infos.cmt_loadpath #endif let add_cmi_hook f = let default_load = !Persistent_env.Persistent_signature.load in #if OCAML_VERSION >= (5, 2, 0) let load ~allow_hidden ~unit_name = let res = default_load ~unit_name ~allow_hidden in #else let load ~unit_name = let res = default_load ~unit_name in #endif (match res with None -> () | Some x -> f x.cmi); res in Persistent_env.Persistent_signature.load := load utop-2.15.0/src/lib/uTop_complete.ml000066400000000000000000001132661472111175200173060ustar00rootroot00000000000000(* * uTop_complete.ml * ---------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) [@@@warning "-9-27-32"] open Types open LTerm_read_line open UTop_compat open UTop_token module String_set = Set.Make(String) module String_map = Map.Make(String) let set_of_list = List.fold_left (fun set x -> String_set.add x set) String_set.empty (* +-----------------------------------------------------------------+ | Utils | +-----------------------------------------------------------------+ *) (* Transform a non-empty list of strings into a long-identifier. *) let longident_of_list = function | [] -> invalid_arg "UTop_complete.longident_of_list" | component :: rest -> let rec loop acc = function | [] -> acc | component :: rest -> loop (Longident.Ldot(acc, component)) rest in loop (Longident.Lident component) rest (* Check whether an identifier is a valid one. *) let is_valid_identifier id = id <> "" && (match id.[0] with | 'A' .. 'Z' | 'a' .. 'z' | '_' -> true | _ -> false) let add id set = if is_valid_identifier id then String_set.add id set else set let lookup_env f x env = try Some (f x env) with Not_found | Env.Error _ -> None (* +-----------------------------------------------------------------+ | Parsing | +-----------------------------------------------------------------+ *) (* The following functions takes a list of tokens in reverse order. *) type value_or_field = Value | Field (* Either a value, or a record field. *) (* Parse something of the form [M1.M2. ... .Mn.id] or [field.M1.M2. ... .Mn.id] *) let parse_longident tokens = let rec loop acc tokens = match tokens with | (Symbol ".", _) :: (Uident id, _) :: tokens -> loop (id :: acc) tokens | (Symbol ".", _) :: (Lident id, _) :: tokens -> (Field, match acc with | [] -> None | l -> Some (longident_of_list l)) | _ -> (Value, match acc with | [] -> None | l -> Some (longident_of_list l)) in match tokens with | ((Comment (_, false) | String (_, false) | Quotation (_, false)), _) :: _ -> (* An unterminated command, string, or quotation. *) None | ((Uident id | Lident id), { idx1 = start }) :: tokens -> (* An identifier. *) let kind, path = loop [] tokens in Some (kind, path, start, id) | (Blanks, { idx2 = stop }) :: tokens -> (* Some blanks at the end. *) let kind, path = loop [] tokens in Some (kind, path, stop, "") | (_, { idx2 = stop }) :: _ -> (* Otherwise complete after the last token. *) let kind, path = loop [] tokens in Some (kind, path, stop, "") | [] -> None (* Parse something of the form [M1.M2. ... .Mn.id#m1#m2# ... #mp#m] *) let parse_method tokens = (* Collect [M1.M2. ... .Mn.id] and returns the corresponding longidentifier. *) let rec loop_uidents acc tokens = match tokens with | (Symbol ".", _) :: (Uident id, _) :: tokens -> loop_uidents (id :: acc) tokens | _ -> longident_of_list acc in (* Collect [m1#m2# ... #mp] *) let rec loop_methods acc tokens = match tokens with | (Lident meth, _) :: (Symbol "#", _) :: tokens -> loop_methods (meth :: acc) tokens | (Lident id, _) :: tokens -> Some (loop_uidents [id] tokens, acc) | _ -> None in match tokens with | (Lident meth, { idx1 = start }) :: (Symbol "#", _) :: tokens -> begin match loop_methods [] tokens with | None -> None | Some (path, meths) -> Some (path, meths, start, meth) end | (Symbol "#", { idx2 = stop }) :: tokens | (Blanks, { idx2 = stop }) :: (Symbol "#", _) :: tokens -> begin match loop_methods [] tokens with | None -> None | Some (path, meths) -> Some (path, meths, stop, "") end | _ -> None type label_kind = Required | Optional (* Kind of labels: required or optional. *) type fun_or_new = Fun | New (* Either a function application, either an object creation. *) (* Parse something of the form [M1.M2. ... .Mn.id#m1#m2# ... #mp expr1 ... exprq ~label] or [new M1.M2. ... .Mn.id expr1 ... exprq ~label] *) let parse_label tokens = (* Collect [M1.M2. ... .Mn] *) let rec loop_uidents acc_uidents acc_methods tokens = match tokens with | (Lident "new", _) :: _ -> Some (New, longident_of_list acc_uidents, acc_methods) | ((Lident id | Uident id), _) :: _ when String_set.mem id !UTop.keywords -> Some (Fun, longident_of_list acc_uidents, acc_methods) | (Symbol ".", _) :: (Uident id, _) :: tokens -> loop_uidents (id :: acc_uidents) acc_methods tokens | (Symbol ("~" | "?" | ":" | "." | "#" | "!" | "`"), _) :: tokens -> search tokens | (Symbol ")", _) :: tokens -> skip tokens "(" [] | (Symbol "}", _) :: tokens -> skip tokens "{" [] | (Symbol "]", _) :: tokens -> skip tokens "[" [] | (Symbol _, _) :: _ -> Some (Fun, longident_of_list acc_uidents, acc_methods) | [] -> Some (Fun, longident_of_list acc_uidents, acc_methods) | _ -> search tokens and loop_methods acc tokens = match tokens with | ((Lident id | Uident id), _) :: _ when String_set.mem id !UTop.keywords -> None | (Symbol ("~" | "?" | ":" | "." | "#" | "!" | "`"), _) :: tokens -> search tokens | (Symbol ")", _) :: tokens -> skip tokens "(" [] | (Symbol "}", _) :: tokens -> skip tokens "{" [] | (Symbol "]", _) :: tokens -> skip tokens "[" [] | (Symbol _, _) :: _ -> None | (Lident id, _) :: (Symbol "#", _) :: tokens -> loop_methods (id :: acc) tokens | (Lident id, _) :: tokens -> loop_uidents [id] acc tokens | [] -> None | _ -> search tokens and search tokens = match tokens with | ((Lident id | Uident id), _) :: _ when String_set.mem id !UTop.keywords -> None | (Symbol ("~" | "?" | ":" | "." | "#" | "!" | "`"), _) :: tokens -> search tokens | (Symbol ")", _) :: tokens -> skip tokens "(" [] | (Symbol "}", _) :: tokens -> skip tokens "{" [] | (Symbol "]", _) :: tokens -> skip tokens "[" [] | (Symbol _, _) :: _ -> None | (Lident id, _) :: (Symbol "#", _) :: tokens -> loop_methods [id] tokens | (Lident id, _) :: tokens -> loop_uidents [id] [] tokens | _ :: tokens -> search tokens | [] -> None and skip tokens top stack = match tokens with | (Symbol symbol, _) :: tokens when symbol = top -> begin match stack with | [] -> search tokens | top :: stack -> skip tokens top stack end | (Symbol ")", _) :: tokens -> skip tokens "(" (top :: stack) | (Symbol "}", _) :: tokens -> skip tokens "{" (top :: stack) | (Symbol "]", _) :: tokens -> skip tokens "[" (top :: stack) | _ :: tokens -> skip tokens top stack | [] -> None in match tokens with | (Lident label, { idx1 = start }) :: (Symbol "~", _) :: tokens -> begin match search tokens with | None -> None | Some (kind, id, meths) -> Some (kind, id, meths, Required, start, label) end | (Symbol "~", { idx2 = stop }) :: tokens -> begin match search tokens with | None -> None | Some (kind, id, meths) -> Some (kind, id, meths, Required, stop, "") end | (Lident label, { idx1 = start }) :: (Symbol "?", _) :: tokens -> begin match search tokens with | None -> None | Some (kind, id, meths) -> Some (kind, id, meths, Optional, start, label) end | (Symbol "?", { idx2 = stop }) :: tokens -> begin match search tokens with | None -> None | Some (kind, id, meths) -> Some (kind, id, meths, Optional, stop, "") end | _ -> None (* +-----------------------------------------------------------------+ | Directive listing | +-----------------------------------------------------------------+ *) let list_directives phrase_terminator = String_map.bindings (List.fold_left (fun map dir -> let suffix = match toploop_get_directive dir with | Some (Toploop.Directive_none _) -> phrase_terminator | Some (Toploop.Directive_string _) -> " \"" | Some (Toploop.Directive_bool _ | Toploop.Directive_int _ | Toploop.Directive_ident _) -> " " | None -> assert false in String_map.add dir suffix map) String_map.empty (toploop_all_directive_names ())) (* +-----------------------------------------------------------------+ | File listing | +-----------------------------------------------------------------+ *) type file_kind = Directory | File let basename name = let name' = Filename.basename name in if name' = "." && not (Zed_utf8.ends_with name ".") then "" else name' let add_files filter acc dir = Array.fold_left (fun map name -> let absolute_name = Filename.concat dir name in if try Sys.is_directory absolute_name with Sys_error _ -> false then String_map.add (Filename.concat name "") Directory map else if filter name then String_map.add name File map else map) acc (try Sys.readdir dir with Sys_error _ -> [||]) let list_directories dir = String_set.elements (Array.fold_left (fun set name -> let absolute_name = Filename.concat dir name in if try Sys.is_directory absolute_name with Sys_error _ -> false then String_set.add name set else set) String_set.empty (try Sys.readdir (if dir = "" then Filename.current_dir_name else dir) with Sys_error _ -> [||])) let path () = let path_separator = match Sys.os_type with | "Unix" | "Cygwin" -> ':' | "Win32" -> ';' | _ -> assert false in let split str sep = let rec split_rec pos = if pos >= String.length str then [] else begin match try Some (String.index_from str pos sep) with Not_found -> None with | Some newpos -> String.sub str pos (newpos - pos) :: split_rec (newpos + 1) | None -> [String.sub str pos (String.length str - pos)] end in split_rec 0 in try split (Sys.getenv "PATH") path_separator with Not_found -> [] (* +-----------------------------------------------------------------+ | Names listing | +-----------------------------------------------------------------+ *) module Path_map = Map.Make(struct type t = Path.t let compare = compare end) module Longident_map = Map.Make(struct type t = Longident.t let compare = compare end) (* All names accessible without a path. *) let global_names = ref None let global_names_revised = ref None (* All names accessible with a path, by path. *) let local_names_by_path = ref Path_map.empty (* All names accessible with a path, by long identifier. *) let local_names_by_longident = ref Longident_map.empty (* All record fields accessible without a path. *) let global_fields = ref None (* All record fields accessible with a path, by path. *) let local_fields_by_path = ref Path_map.empty (* All record fields accessible with a path, by long identifier. *) let local_fields_by_longident = ref Longident_map.empty (* All visible modules according to Config.load_path. *) let visible_modules = ref None let reset () = visible_modules := None; global_names := None; global_names_revised := None; local_names_by_path := Path_map.empty; local_names_by_longident := Longident_map.empty; global_fields := None; local_fields_by_path := Path_map.empty; local_fields_by_longident := Longident_map.empty let get_cached var f = match !var with | Some x -> x | None -> let x = f () in var := Some x; x (* List all visible modules. *) let visible_modules () = get_cached visible_modules (fun () -> List.fold_left (fun acc dir -> try Array.fold_left (fun acc fname -> if Filename.check_suffix fname ".cmi" then String_set.add (String.capitalize_ascii (Filename.chop_suffix fname ".cmi")) acc else acc) acc (Sys.readdir (if dir = "" then Filename.current_dir_name else dir)) with Sys_error _ -> acc) String_set.empty @@ UTop_compat.get_load_path () ) let field_name { ld_id = id } = Ident.name id let constructor_name { cd_id = id } = Ident.name id let add_fields_of_type decl acc = match decl.type_kind with | Type_variant _ -> acc | Type_record (fields, _) -> List.fold_left (fun acc field -> add (field_name field) acc) acc fields #if OCAML_VERSION >= (5, 2, 0) | Type_abstract _ -> #else | Type_abstract -> #endif acc | Type_open -> acc let add_names_of_type decl acc = match decl.type_kind with #if OCAML_VERSION >= (4, 13, 0) | Type_variant (constructors, _) -> #else | Type_variant constructors -> #endif List.fold_left (fun acc cstr -> add (constructor_name cstr) acc) acc constructors | Type_record (fields, _) -> List.fold_left (fun acc field -> add (field_name field) acc) acc fields #if OCAML_VERSION >= (5, 2, 0) | Type_abstract _ -> #else | Type_abstract -> #endif acc | Type_open -> acc let path_of_mty_alias = function | Mty_alias path -> path | _ -> assert false let rec names_of_module_type = function | Mty_signature decls -> List.fold_left (fun acc decl -> match decl with | Sig_value (id, _, _) | Sig_typext (id, _, _, _) | Sig_module (id, _, _, _, _) | Sig_modtype (id, _, _) | Sig_class (id, _, _, _) | Sig_class_type (id, _, _, _) -> add (Ident.name id) acc | Sig_type (id, decl, _, _) -> add_names_of_type decl (add (Ident.name id) acc)) String_set.empty decls | Mty_ident path -> begin match lookup_env Env.find_modtype path !Toploop.toplevel_env with | Some { mtd_type = None } -> String_set.empty | Some { mtd_type = Some module_type } -> names_of_module_type module_type | None -> String_set.empty end | Mty_alias _ as mty_alias -> begin let path = path_of_mty_alias mty_alias in match lookup_env Env.find_module path !Toploop.toplevel_env with | None -> String_set.empty | Some { md_type = module_type } -> names_of_module_type module_type end | _ -> String_set.empty let rec fields_of_module_type = function | Mty_signature decls -> List.fold_left (fun acc decl -> match decl with | Sig_value _ | Sig_typext _ | Sig_module _ | Sig_modtype _ | Sig_class _ | Sig_class_type _ -> acc | Sig_type (_, decl, _, _) -> add_fields_of_type decl acc) String_set.empty decls | Mty_ident path -> begin match lookup_env Env.find_modtype path !Toploop.toplevel_env with | Some { mtd_type = None } -> String_set.empty | Some { mtd_type = Some module_type } -> fields_of_module_type module_type | None -> String_set.empty end | Mty_alias _ as mty_alias -> begin let path = path_of_mty_alias mty_alias in match lookup_env Env.find_module path !Toploop.toplevel_env with | None -> String_set.empty | Some { md_type = module_type } -> fields_of_module_type module_type end | _ -> String_set.empty let find_module path env = (Env.find_module path env).md_type let names_of_module longident = try Longident_map.find longident !local_names_by_longident with Not_found -> match lookup_env Env.find_module_by_name longident !Toploop.toplevel_env with | Some(path, {md_type; _}) -> let names = names_of_module_type md_type in local_names_by_path := Path_map.add path names !local_names_by_path; local_names_by_longident := Longident_map.add longident names !local_names_by_longident; names | None -> local_names_by_longident := Longident_map.add longident String_set.empty !local_names_by_longident; String_set.empty let fields_of_module longident = try Longident_map.find longident !local_fields_by_longident with Not_found -> match lookup_env Env.find_module_by_name longident !Toploop.toplevel_env with | Some(path, {md_type; _}) -> let fields = fields_of_module_type md_type in local_fields_by_path := Path_map.add path fields !local_fields_by_path; local_fields_by_longident := Longident_map.add longident fields !local_fields_by_longident; fields | None -> local_fields_by_longident := Longident_map.add longident String_set.empty !local_fields_by_longident; String_set.empty let list_global_names () = let rec loop acc = function | Env.Env_empty -> acc | Env.Env_value_unbound _-> acc | Env.Env_module_unbound _-> acc | Env.Env_value(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_type(summary, id, decl) -> loop (add_names_of_type decl (add (Ident.name id) acc)) summary | Env.Env_extension(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_module(summary, id, _, _) -> loop (add (Ident.name id) acc) summary | Env.Env_modtype(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_class(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_cltype(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_functor_arg(summary, id) -> loop (add (Ident.name id) acc) summary | Env.Env_persistent (summary, id) -> loop (add (Ident.name id) acc) summary | Env.Env_constraints (summary, _) -> loop acc summary | Env.Env_copy_types summary -> loop acc summary | Env.Env_open(summary, path) -> match try Some (Path_map.find path !local_names_by_path) with Not_found -> None with | Some names -> loop (String_set.union acc names) summary | None -> match lookup_env find_module path !Toploop.toplevel_env with | Some module_type -> let names = names_of_module_type module_type in local_names_by_path := Path_map.add path names !local_names_by_path; loop (String_set.union acc names) summary | None -> local_names_by_path := Path_map.add path String_set.empty !local_names_by_path; loop acc summary in (* Add names of the environment: *) let acc = loop String_set.empty (Env.summary !Toploop.toplevel_env) in (* Add accessible modules: *) String_set.union acc (visible_modules ()) let global_names () = get_cached global_names list_global_names let replace x y set = if String_set.mem x set then String_set.add y (String_set.remove x set) else set let list_global_fields () = let rec loop acc = function | Env.Env_empty -> acc | Env.Env_value_unbound _-> acc | Env.Env_module_unbound _-> acc | Env.Env_value(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_type(summary, id, decl) -> loop (add_fields_of_type decl (add (Ident.name id) acc)) summary | Env.Env_extension(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_module(summary, id, _, _) -> loop (add (Ident.name id) acc) summary | Env.Env_functor_arg(summary, id) -> loop (add (Ident.name id) acc) summary | Env.Env_modtype(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_class(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_cltype(summary, id, _) -> loop (add (Ident.name id) acc) summary | Env.Env_persistent (summary, id) -> loop (add (Ident.name id) acc) summary | Env.Env_constraints (summary, _) -> loop acc summary | Env.Env_copy_types summary -> loop acc summary | Env.Env_open(summary, path) -> match try Some (Path_map.find path !local_fields_by_path) with Not_found -> None with | Some fields -> loop (String_set.union acc fields) summary | None -> match lookup_env find_module path !Toploop.toplevel_env with | Some module_type -> let fields = fields_of_module_type module_type in local_fields_by_path := Path_map.add path fields !local_fields_by_path; loop (String_set.union acc fields) summary | None -> local_fields_by_path := Path_map.add path String_set.empty !local_fields_by_path; loop acc summary in (* Add fields of the environment: *) let acc = loop String_set.empty (Env.summary !Toploop.toplevel_env) in (* Add accessible modules: *) String_set.union acc (visible_modules ()) let global_fields () = get_cached global_fields list_global_fields (* +-----------------------------------------------------------------+ | Listing methods | +-----------------------------------------------------------------+ *) let rec find_method meth type_expr = match get_desc type_expr with | Tlink type_expr -> find_method meth type_expr | Tobject (type_expr, _) -> find_method meth type_expr | Tfield (name, _, type_expr, rest) -> if name = meth then Some type_expr else find_method meth rest | Tpoly (type_expr, _) -> find_method meth type_expr | Tconstr (path, _, _) -> begin match lookup_env Env.find_type path !Toploop.toplevel_env with | None | Some { type_manifest = None } -> None | Some { type_manifest = Some type_expr } -> find_method meth type_expr end | _ -> None let rec methods_of_type acc type_expr = match get_desc type_expr with | Tlink type_expr -> methods_of_type acc type_expr | Tobject (type_expr, _) -> methods_of_type acc type_expr | Tfield (name, _, _, rest) -> methods_of_type (add name acc) rest | Tpoly (type_expr, _) -> methods_of_type acc type_expr | Tconstr (path, _, _) -> begin match lookup_env Env.find_type path !Toploop.toplevel_env with | None | Some { type_manifest = None } -> acc | Some { type_manifest = Some type_expr } -> methods_of_type acc type_expr end | _ -> acc let rec find_object meths type_expr = match meths with | [] -> Some type_expr | meth :: meths -> match find_method meth type_expr with | Some type_expr -> find_object meths type_expr | None -> None let methods_of_object longident meths = match lookup_env Env.find_value_by_name longident !Toploop.toplevel_env with | None -> [] | Some (path, { val_type = type_expr }) -> match find_object meths type_expr with | None -> [] | Some type_expr -> String_set.elements (methods_of_type String_set.empty type_expr) (* +-----------------------------------------------------------------+ | Listing labels | +-----------------------------------------------------------------+ *) let rec labels_of_type acc type_expr = match get_desc type_expr with | Tlink te -> labels_of_type acc te | Tpoly (te, _) -> labels_of_type acc te | Tarrow(label, _, te, _) -> (match label with | Nolabel -> labels_of_type acc te | Optional label -> labels_of_type (String_map.add label Optional acc) te | Labelled label -> labels_of_type (String_map.add label Required acc) te) | Tconstr(path, _, _) -> begin match lookup_env Env.find_type path !Toploop.toplevel_env with | None | Some { type_manifest = None } -> String_map.bindings acc | Some { type_manifest = Some type_expr } -> labels_of_type acc type_expr end | _ -> String_map.bindings acc let labels_of_function longident meths = match lookup_env Env.find_value_by_name longident !Toploop.toplevel_env with | None -> [] | Some (path, { val_type = type_expr }) -> match find_object meths type_expr with | None -> [] | Some type_expr -> labels_of_type String_map.empty type_expr let labels_of_newclass longident = match lookup_env Env.find_class_by_name longident !Toploop.toplevel_env with | None -> [] | Some (path, { cty_new = None }) -> [] | Some (path, { cty_new = Some type_expr }) -> labels_of_type String_map.empty type_expr (* +-----------------------------------------------------------------+ | Tokens processing | +-----------------------------------------------------------------+ *) (* Filter blanks and comments except for the last token. *) let filter tokens = let rec aux acc = function | [] -> acc | [((Blanks | Comment (_, true)), loc)] -> (Blanks, loc) :: acc | ((Blanks | Comment (_, true)), _) :: rest -> aux acc rest | x :: rest -> aux (x :: acc) rest in List.rev (aux [] tokens) (* Reverse and filter blanks and comments except for the last token. *) let rec rev_filter acc tokens = match tokens with | [] -> acc | [((Blanks | Comment (_, true)), loc)] -> (Blanks, loc) :: acc | ((Blanks | Comment (_, true)), _) :: rest -> rev_filter acc rest | x :: rest -> rev_filter (x :: acc) rest (* Find the current context. *) let rec find_context tokens = function | [] -> Some (rev_filter [] tokens) | [(Quotation (items, false), _)] -> find_context_in_quotation items | _ :: rest -> find_context tokens rest and find_context_in_quotation = function | [] -> None | [(Quot_anti { a_closing = None; a_contents = tokens }, _)] -> find_context tokens tokens | _ :: rest -> find_context_in_quotation rest (* +-----------------------------------------------------------------+ | Completion | +-----------------------------------------------------------------+ *) let complete ~phrase_terminator ~input = let true_name, false_name = ("true", "false") in let tokens = UTop_lexer.lex_string input in (* Filter blanks and comments. *) let tokens = filter tokens in match tokens with (* Completion on directive names. *) | [(Symbol "#", { idx2 = stop })] | [(Symbol "#", _); (Blanks, { idx2 = stop })] -> (stop, list_directives phrase_terminator) | [(Symbol "#", _); ((Lident src | Uident src), { idx1 = start })] -> (start, lookup_assoc src (list_directives phrase_terminator)) (* Complete with ";;" when possible. *) | [(Symbol "#", _); ((Lident _ | Uident _), _); (String (_, true), { idx2 = stop })] | [(Symbol "#", _); ((Lident _ | Uident _), _); (String (_, true), _); (Blanks, { idx2 = stop })] -> (stop, [(phrase_terminator, "")]) | [(Symbol "#", _); ((Lident _ | Uident _), _); (String (_, true), _); (Symbol sym, { idx1 = start })] -> if Zed_utf8.starts_with phrase_terminator sym then (start, [(phrase_terminator, "")]) else (0, []) (* Completion on #require. *) | [(Symbol "#", _); (Lident "require", _); (String (tlen, false), loc)] -> let pkg = String.sub input (loc.ofs1 + tlen) (String.length input - loc.ofs1 - tlen) in let pkgs = lookup pkg (Fl_package_base.list_packages ()) in (loc.idx1 + 1, List.map (fun pkg -> (pkg, "\"" ^ phrase_terminator)) (List.sort compare pkgs)) | [(Symbol "#", _); (Lident "typeof", _); (String (tlen, false), loc)] -> let prefix = String.sub input (loc.ofs1 + tlen) (String.length input - loc.ofs1 - tlen) in begin match Parse.longident (Lexing.from_string prefix) with | Longident.Ldot (lident, last_prefix) -> let set = names_of_module lident in let compls = lookup last_prefix (String_set.elements set) in let start = loc.idx1 + 1 + (String.length prefix - String.length last_prefix) in (start, List.map (fun w -> (w, "")) compls) | _ -> let set = global_names () in let compls = lookup prefix (String_set.elements set) in (loc.idx1 + 1, List.map (fun w -> (w, "")) compls) end (* Completion on #load. *) | [(Symbol "#", _); (Lident ("load" | "load_rec"), _); (String (tlen, false), loc)] -> let file = String.sub input (loc.ofs1 + tlen) (String.length input - loc.ofs1 - tlen) in let filter name = Filename.check_suffix name ".cma" || Filename.check_suffix name ".cmo" in let map = if Filename.is_relative file then let dir = Filename.dirname file in List.fold_left (fun acc d -> add_files filter acc (Filename.concat d dir)) String_map.empty (Filename.current_dir_name :: (UTop_compat.get_load_path ()) ) else add_files filter String_map.empty (Filename.dirname file) in let list = String_map.bindings map in let name = basename file in let result = lookup_assoc name list in (loc.idx2 - Zed_utf8.length name, List.map (function (w, Directory) -> (w, "") | (w, File) -> (w, "\"" ^ phrase_terminator)) result) (* Completion on #ppx. *) | [(Symbol "#", _); (Lident ("ppx"), _); (String (tlen, false), loc)] -> let file = String.sub input (loc.ofs1 + tlen) (String.length input - loc.ofs1 - tlen) in let filter ~dir_ok name = try Unix.access name [Unix.X_OK]; let kind = (Unix.stat name).Unix.st_kind in let basename = Filename.basename name in (kind = Unix.S_REG && String.length basename >= 4 && String.sub basename 0 4 = "ppx_") || (dir_ok && kind = Unix.S_DIR) with Unix.Unix_error _ -> false in let map = if Filename.dirname file = "." && not (Filename.is_implicit file) then let dir = Filename.dirname file in add_files (filter ~dir_ok:true) String_map.empty dir else List.fold_left (fun acc dir -> add_files (fun name -> filter ~dir_ok:false (Filename.concat dir name)) acc dir) String_map.empty (path ()) in let list = String_map.bindings map in let name = basename file in let result = lookup_assoc name list in (loc.idx2 - Zed_utf8.length name, List.map (function (w, Directory) -> (w, "") | (w, File) -> (w, "\"" ^ phrase_terminator)) result) (* Completion on #use and #mod_use *) | [(Symbol "#", _); (Lident "use", _); (String (tlen, false), loc)] | [(Symbol "#", _); (Lident "mod_use", _); (String (tlen, false), loc)] -> let file = String.sub input (loc.ofs1 + tlen) (String.length input - loc.ofs1 - tlen) in let filter name = match try Some (String.rindex name '.') with Not_found -> None with | None -> true | Some idx -> let ext = String.sub name (idx + 1) (String.length name - (idx + 1)) in ext = "ml" in let map = if Filename.is_relative file then let dir = Filename.dirname file in List.fold_left (fun acc d -> add_files filter acc (Filename.concat d dir)) String_map.empty (Filename.current_dir_name :: (UTop_compat.get_load_path ()) ) else add_files filter String_map.empty (Filename.dirname file) in let list = String_map.bindings map in let name = basename file in let result = lookup_assoc name list in (loc.idx2 - Zed_utf8.length name, List.map (function (w, Directory) -> (w, "") | (w, File) -> (w, "\"" ^ phrase_terminator)) result) (* Completion on #directory and #cd. *) | [(Symbol "#", _); (Lident ("cd" | "directory"), _); (String (tlen, false), loc)] -> let file = String.sub input (loc.ofs1 + tlen) (String.length input - loc.ofs1 - tlen) in let list = list_directories (Filename.dirname file) in let name = basename file in let result = lookup name list in (loc.idx2 - Zed_utf8.length name, List.map (function dir -> (dir, "")) result) (* Generic completion on directives. *) | [(Symbol "#", _); ((Lident dir | Uident dir), _); (Blanks, { idx2 = stop })] -> (stop, match toploop_get_directive dir with | Some (Toploop.Directive_none _) -> [(phrase_terminator, "")] | Some (Toploop.Directive_string _) -> [(" \"", "")] | Some (Toploop.Directive_bool _) -> [(true_name, phrase_terminator); (false_name, phrase_terminator)] | Some (Toploop.Directive_int _) -> [] | Some (Toploop.Directive_ident _) -> List.map (fun w -> (w, "")) (String_set.elements (global_names ())) | None -> []) | (Symbol "#", _) :: ((Lident dir | Uident dir), _) :: tokens -> begin match toploop_get_directive dir with | Some (Toploop.Directive_none _) -> (0, []) | Some (Toploop.Directive_string _) -> (0, []) | Some (Toploop.Directive_bool _) -> begin match tokens with | [(Lident id, { idx1 = start })] -> (start, lookup_assoc id [(true_name, phrase_terminator); (false_name, phrase_terminator)]) | _ -> (0, []) end | Some (Toploop.Directive_int _) -> (0, []) | Some (Toploop.Directive_ident _) -> begin match parse_longident (List.rev tokens) with | Some (Value, None, start, id) -> (start, List.map (fun w -> (w, "")) (lookup id (String_set.elements (global_names ())))) | Some (Value, Some longident, start, id) -> (start, List.map (fun w -> (w, "")) (lookup id (String_set.elements (names_of_module longident)))) | _ -> (0, []) end | None -> (0, []) end (* Completion on identifiers. *) | _ -> match find_context tokens tokens with | None -> (0, []) | Some [] -> (0, List.map (fun w -> (w, "")) (String_set.elements (String_set.union !UTop.keywords (global_names ())))) | Some tokens -> match parse_method tokens with | Some (longident, meths, start, meth) -> (start, List.map (fun w -> (w, "")) (lookup meth (methods_of_object longident meths))) | None -> match parse_label tokens with | Some (Fun, longident, meths, Optional, start, label) -> (start, List.map (fun (w, kind) -> (w, ":")) (lookup_assoc label (List.filter (function (w, Optional) -> true | (w, Required) -> false) (labels_of_function longident meths)))) | Some (Fun, longident, meths, Required, start, label) -> (start, List.map (fun (w, kind) -> (w, ":")) (lookup_assoc label (labels_of_function longident meths))) | Some (New, longident, meths, Optional, start, label) -> (start, List.map (fun (w, kind) -> (w, ":")) (lookup_assoc label (List.filter (function (w, Optional) -> true | (w, Required) -> false) (labels_of_newclass longident)))) | Some (New, longident, meths, Required, start, label) -> (start, List.map (fun (w, kind) -> (w, ":")) (lookup_assoc label (labels_of_newclass longident))) | None -> match parse_longident tokens with | None -> (0, []) | Some (Value, None, start, id) -> (start, List.map (fun w -> (w, "")) (lookup id (String_set.elements (String_set.union !UTop.keywords (global_names ()))))) | Some (Value, Some longident, start, id) -> (start, List.map (fun w -> (w, "")) (lookup id (String_set.elements (names_of_module longident)))) | Some (Field, None, start, id) -> (start, List.map (fun w -> (w, "")) (lookup id (String_set.elements (global_fields ())))) | Some (Field, Some longident, start, id) -> (start, List.map (fun w -> (w, "")) (lookup id (String_set.elements (fields_of_module longident)))) let complete ~phrase_terminator ~input = try (complete ~phrase_terminator ~input : int * (string * string) list) with Cmi_format.Error _ -> (0, []) utop-2.15.0/src/lib/uTop_complete.mli000066400000000000000000000010651472111175200174500ustar00rootroot00000000000000(* * uTop_complete.mli * ----------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) (** OCaml completion. *) val complete : phrase_terminator : string -> input : string -> int * (string * string) list (** [complete ~phrase_terminator ~input] returns the start of the completed word in [input] and the list of possible completions with their suffixes. *) val reset : unit -> unit (** Reset global cache. It must be called before each interactive read line. *) utop-2.15.0/src/lib/uTop_history.ml000066400000000000000000000032451472111175200171720ustar00rootroot00000000000000(* * uTop_history.ml * ----------------- * Copyright : (c) 2017, Fabian Hemmer * Licence : BSD3 * * This file is a part of utop. *) type entry = | Input of string | Output of string | Error of string | Warnings of string | Bad_input of string and t = entry list ref let create () : t = ref [] let contents (t : t) = !t let strip_colors s = let len = String.length s in let find_escape offset = try let i = String.index_from s offset '\027' in if i = len - 1 || s.[i + 1] <> '[' then None else Some i with | Not_found -> None in let find_color_escapes offset = let rec aux acc offset = match find_escape offset with | None -> (offset, len) :: acc | Some esc_offset -> try let i = String.index_from s esc_offset 'm' in aux ((offset, esc_offset) :: acc) (i + 1) with | Not_found -> (offset, len) :: acc in aux [] offset in find_color_escapes 0 |> List.rev_map (fun (i, j) -> String.sub s i (j - i)) |> String.concat "" let add history v = history := v :: !history let add_input history input = add history @@ Input (String.trim input) let add_output history output = let output = String.trim output in if output <> "" then (* directives produce empty output *) add history @@ Output output let add_error history error = add history @@ Error (strip_colors @@ String.trim error) let add_bad_input history input = add history @@ Bad_input (String.trim input) let add_warnings history warnings = let warnings = String.trim warnings in if warnings <> "" then add history @@ Warnings warnings utop-2.15.0/src/lib/uTop_history.mli000066400000000000000000000014141472111175200173370ustar00rootroot00000000000000(* * uTop_history.mli * ------- * Copyright : (c) 2017, Fabian Hemmer * Licence : BSD3 * * This file is a part of utop. *) (** Type of a history entry *) type entry = | Input of string | Output of string | Error of string | Warnings of string | Bad_input of string type t val create : unit -> t (** Create a new, empty history *) val contents : t -> entry list (** Get the contents of the given history *) val add_input : t -> string -> unit (** Add an input *) val add_output : t -> string -> unit (** Add an output *) val add_error : t -> string -> unit (** Add an error *) val add_warnings : t -> string -> unit (** Add a warning *) val add_bad_input : t -> string -> unit (** Add an input that resulted in an error *) utop-2.15.0/src/lib/uTop_lexer.mli000066400000000000000000000004601472111175200167550ustar00rootroot00000000000000(* * uTop_lexer.mli * -------------- * Copyright : (c) 2012, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) val lex_string : string -> (UTop_token.t * UTop_token.location) list (** [lex_string str] returns all the tokens contained in [str]. *) utop-2.15.0/src/lib/uTop_lexer.mll000066400000000000000000000202131472111175200167560ustar00rootroot00000000000000(* * uTop_lexer.mll * -------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) (* Lexer for the OCaml language. *) { open Lexing open UTop_token let mkloc idx1 idx2 ofs1 ofs2 = { idx1 = idx1; idx2 = idx2; ofs1 = ofs1; ofs2 = ofs2; } (* Only for ascii-only lexemes. *) let lexeme_loc idx lexbuf = let ofs1 = lexeme_start lexbuf and ofs2 = lexeme_end lexbuf in { idx1 = idx; idx2 = idx + (ofs2 - ofs1); ofs1 = ofs1; ofs2 = ofs2; } let _merge_loc l1 l2 = { idx1 = l1.idx1; idx2 = l2.idx2; ofs1 = l1.ofs1; ofs2 = l2.ofs2; } } let uchar = ['\x00' - '\x7f'] | _ [ '\x80' - '\xbf' ]* let blank = [' ' '\009' '\012'] let lowercase = ['a'-'z' '_'] let uppercase = ['A'-'Z'] let identchar = ['A'-'Z' 'a'-'z' '_' '\'' '0'-'9'] let lident = lowercase identchar* let uident = uppercase identchar* let ident = (lowercase|uppercase) identchar* let hexa_char = ['0'-'9' 'A'-'F' 'a'-'f'] let decimal_literal = ['0'-'9'] ['0'-'9' '_']* let hex_literal = '0' ['x' 'X'] hexa_char ['0'-'9' 'A'-'F' 'a'-'f' '_']* let oct_literal = '0' ['o' 'O'] ['0'-'7'] ['0'-'7' '_']* let bin_literal = '0' ['b' 'B'] ['0'-'1'] ['0'-'1' '_']* let int_literal = decimal_literal | hex_literal | oct_literal | bin_literal let float_literal = ['0'-'9'] ['0'-'9' '_']* ('.' ['0'-'9' '_']* )? (['e' 'E'] ['+' '-']? ['0'-'9'] ['0'-'9' '_']*)? let symbolchar = ['!' '$' '%' '&' '*' '+' '-' '.' '/' ':' '<' '=' '>' '?' '@' '^' '|' '~'] rule tokens idx acc = parse | eof { (idx, None, List.rev acc) } | ('\n' | blank)+ { let loc = lexeme_loc idx lexbuf in tokens loc.idx2 ((Blanks, loc) :: acc) lexbuf } | lident { let src = lexeme lexbuf in let loc = lexeme_loc idx lexbuf in let tok = match src with | ("true" | "false") -> Constant src | _ -> Lident src in tokens loc.idx2 ((tok, loc) :: acc) lexbuf } | uident { let src = lexeme lexbuf in let loc = lexeme_loc idx lexbuf in let tok = Uident src in tokens loc.idx2 ((tok, loc) :: acc) lexbuf } | int_literal "l" | int_literal "L" | int_literal "n" | int_literal | float_literal { let loc = lexeme_loc idx lexbuf in let tok = Constant (lexeme lexbuf) in tokens loc.idx2 ((tok, loc) :: acc) lexbuf } | '"' { let ofs = lexeme_start lexbuf in let item, idx2= cm_string (idx + 1) lexbuf in let loc = mkloc idx idx2 ofs (lexeme_end lexbuf) in tokens idx2 ((item, loc) :: acc) lexbuf } | '{' (lowercase* as tag) '|' { let ofs = lexeme_start lexbuf in let delim_len = String.length tag + 2 in let idx2, terminated = quoted_string (idx + delim_len) tag false lexbuf in let loc = mkloc idx idx2 ofs (lexeme_end lexbuf) in tokens idx2 ((String (delim_len, terminated), loc) :: acc) lexbuf } | "'" [^'\'' '\\'] "'" | "'\\" ['\\' '"' 'n' 't' 'b' 'r' ' ' '\'' 'x' '0'-'9'] eof | "'\\" ['\\' '"' 'n' 't' 'b' 'r' ' ' '\''] "'" | "'\\" (['0'-'9'] ['0'-'9'] | 'x' hexa_char) eof | "'\\" (['0'-'9'] ['0'-'9'] ['0'-'9'] | 'x' hexa_char hexa_char) eof | "'\\" (['0'-'9'] ['0'-'9'] ['0'-'9'] | 'x' hexa_char hexa_char) "'" { let loc = lexeme_loc idx lexbuf in tokens loc.idx2 ((Char, loc) :: acc) lexbuf } | "'\\" uchar { let loc = mkloc idx (idx + 3) (lexeme_start lexbuf) (lexeme_end lexbuf) in tokens loc.idx2 ((Error, loc) :: acc) lexbuf } | "(*)" { let loc = lexeme_loc idx lexbuf in tokens loc.idx2 ((Comment (Comment_reg, true), loc) :: acc) lexbuf } | "(**)" { let loc = lexeme_loc idx lexbuf in tokens loc.idx2 ((Comment (Comment_doc, true), loc) :: acc) lexbuf } | "(**" { let ofs = lexeme_start lexbuf in let idx2, terminated = comment (idx + 3) 0 false lexbuf in let loc = mkloc idx idx2 ofs (lexeme_end lexbuf) in tokens idx2 ((Comment (Comment_doc, terminated), loc) :: acc) lexbuf } | "(*" { let ofs = lexeme_start lexbuf in let idx2, terminated = comment (idx + 2) 0 false lexbuf in let loc = mkloc idx idx2 ofs (lexeme_end lexbuf) in tokens idx2 ((Comment (Comment_reg, terminated), loc) :: acc) lexbuf } | "" { symbol idx acc lexbuf } and symbol idx acc = parse | "(" | ")" | "[" | "]" | "{" | "}" | "`" | "#" | "," | ";" | ";;" | symbolchar+ { let loc = lexeme_loc idx lexbuf in let tok = Symbol (lexeme lexbuf) in tokens loc.idx2 ((tok, loc) :: acc) lexbuf } | uchar as uchar { let uChar= Zed_utf8.unsafe_extract uchar 0 in if Zed_char.is_combining_mark uChar then let tok, loc= List.hd acc and tl= List.tl acc in let tok= match tok with | Symbol str-> Symbol (str ^ (lexeme lexbuf)) | Lident str-> Lident (str ^ (lexeme lexbuf)) | Uident str-> Uident (str ^ (lexeme lexbuf)) | Constant str-> Constant (str ^ (lexeme lexbuf)) | _-> tok in let loc= { loc with ofs2= lexeme_end lexbuf } in tokens loc.idx2 ((tok, loc) :: tl) lexbuf else let loc = mkloc idx (idx + 1) (lexeme_start lexbuf) (lexeme_end lexbuf) in tokens loc.idx2 ((Error, loc) :: acc) lexbuf } and cm_string idx= parse | '"' { (String (1, true), idx+1) } | "\\\\" | "\\\"" { let idx2, terminated= string (idx + 2) false lexbuf in (String (1, terminated), idx2) } | uchar as uchar { let uChar= Zed_utf8.unsafe_extract uchar 0 in if Zed_char.is_combining_mark uChar then cm_string idx lexbuf else let idx2, terminated= string (idx + 1) true lexbuf in (String (1, terminated), idx2) } | eof { (String (1, false), idx) } and comment idx depth combining= parse | "(*" { comment (idx + 2) (depth + 1) false lexbuf } | "*)" { if depth = 0 then (idx + 2, true) else comment (idx + 2) (depth - 1) false lexbuf } | '"' { let idx, terminated = string (idx + 1) false lexbuf in if terminated then comment idx depth false lexbuf else (idx, false) } | uchar as uchar { let uChar= Zed_utf8.unsafe_extract uchar 0 in if not combining then if Zed_char.is_combining_mark uChar then comment (idx + 1) depth false lexbuf else comment (idx + 1) depth true lexbuf else if Zed_char.is_combining_mark uChar then comment idx depth true lexbuf else comment (idx + 1) depth true lexbuf } | eof { (idx, false) } and string idx combining= parse | '"' { (idx + 1, true) } | "\\\\" | "\\\"" { string (idx + 2) false lexbuf } | uchar as uchar { let uChar= Zed_utf8.unsafe_extract uchar 0 in if not combining then if Zed_char.is_combining_mark uChar then string (idx + 1) false lexbuf else string (idx + 1) true lexbuf else if Zed_char.is_combining_mark uChar then string idx true lexbuf else string (idx + 1) true lexbuf } | eof { (idx, false) } and quoted_string idx tag combining= parse | '|' (lowercase* as tag2) '}' { let idx = idx + 2 + String.length tag2 in if tag = tag2 then (idx, true) else quoted_string idx tag false lexbuf } | eof { (idx, false) } | uchar as uchar { let uChar= Zed_utf8.unsafe_extract uchar 0 in if not combining then if Zed_char.is_combining_mark uChar then quoted_string (idx + 1) tag false lexbuf else quoted_string (idx + 1) tag true lexbuf else if Zed_char.is_combining_mark uChar then quoted_string idx tag true lexbuf else quoted_string (idx + 1) tag true lexbuf } { let lex_string str = let _, _, items = tokens 0 [] (Lexing.from_string str) in items } utop-2.15.0/src/lib/uTop_main.ml000066400000000000000000001560411472111175200164200ustar00rootroot00000000000000(* * uTop_main.ml * ------------ * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) [@@@warning "-7-9-27-32-33"] open Lwt_react open LTerm_dlist open LTerm_text open LTerm_geom open UTop open UTop_compat open UTop_token open UTop_styles open UTop_private open UTop.Private let return, (>>=) = Lwt.return, Lwt.(>>=) module String_set = Set.Make(String) exception Term of int (* +-----------------------------------------------------------------+ | History | +-----------------------------------------------------------------+ *) let save_history () = match !UTop.history_file_name with | None -> return () | Some fn -> Lwt.catch (fun () -> LTerm_history.save UTop.history ?max_size:!UTop.history_file_max_size ?max_entries:!UTop.history_file_max_entries fn) (function | Unix.Unix_error (error, func, arg) -> Logs_lwt.err (fun m -> m "cannot save history to %S: %s: %s" fn func (Unix.error_message error)) | exn -> Lwt.fail exn) let init_history () = (* Save history on exit. *) Lwt_main.at_exit save_history; (* Load history. *) match !UTop.history_file_name with | None -> return () | Some fn -> Lwt.catch (fun () -> LTerm_history.load UTop.history fn) (function | Unix.Unix_error (error, func, arg) -> Logs_lwt.err (fun m -> m "cannot load history from %S: %s: %s" fn func (Unix.error_message error)) | exn -> Lwt.fail exn) (* +-----------------------------------------------------------------+ | offset --> index | +-----------------------------------------------------------------+ *) (* Return the index (in unicode characters) of the character starting a offset (in bytes) [ofs] in [str]. *) let index_of_offset src ofs = let rec aux idx ofs' = if ofs' = ofs then idx else if ofs' > ofs then idx - 1 else if ofs' = String.length src then -1 else aux (idx + 1) (Zed_utf8.unsafe_next src ofs') in aux 0 0 let convert_loc str (a, b) = (index_of_offset str a, index_of_offset str b) let convert_locs str locs = List.map (fun (a, b) -> convert_loc str (a,b)) locs let get_line src line = let rec aux line' ofs skipped = if ofs >= String.length src then ("", 0) else if line' = line then (String.sub src ofs (String.length src - ofs), skipped) else let ch, next_ofs = Zed_utf8.unsafe_extract_next src ofs in if Zed_utf8.escaped_char ch = "\\n" then aux (line' + 1) next_ofs (skipped + 1) else aux line' next_ofs (skipped + 1) in aux 1 0 0 let convert_one_line str line ofs= let selected, skipped = get_line str line in index_of_offset selected ofs + skipped let convert_line str (start_ofs, end_ofs) lines = (convert_one_line str lines.start start_ofs, convert_one_line str lines.stop end_ofs) let convert_loc_line input locs lines = List.map2 (fun loc line -> match line with | None -> convert_loc input loc | Some line -> convert_line input loc line) locs lines (* +-----------------------------------------------------------------+ | The read-line class | +-----------------------------------------------------------------+ *) let preprocess input = match input with | Parsetree.Ptop_def pstr -> Parsetree.Ptop_def (Pparse.apply_rewriters ~tool_name:"ocaml" Pparse.Structure pstr) | _ -> input let parse_input_multi input = let buf = Buffer.create 32 in let result = UTop.collect_formatters buf [Format.err_formatter] (fun () -> match !UTop.parse_use_file input false with | UTop.Error (locs, msg) -> UTop.Error (convert_locs input locs, "Error: " ^ msg ^ "\n") | UTop.Value phrases -> try UTop.Value (List.map preprocess phrases) with Pparse.Error error -> Pparse.report_error Format.str_formatter error; UTop.Error ([], "Error: " ^ Format.flush_str_formatter () ^ "\n")) in (result, Buffer.contents buf) let parse_and_check input ~eos_is_error = let buf = Buffer.create 32 in let result = UTop.collect_formatters buf [Format.err_formatter] (fun () -> match !UTop.parse_toplevel_phrase input eos_is_error with | UTop.Error (locs, msg) -> UTop.Error (convert_locs input locs, "Error: " ^ msg ^ "\n") | UTop.Value phrase -> try let phrase = preprocess phrase in match UTop.check_phrase phrase with | None -> UTop.Value phrase | Some (locs, msg, lines) -> UTop.Error (convert_loc_line input locs lines, msg) with Pparse.Error error -> Pparse.report_error Format.str_formatter error; UTop.Error ([], "Error: " ^ Format.flush_str_formatter () ^ "\n")) in (result, Buffer.contents buf) let add_terminator s = let terminator = UTop.get_phrase_terminator () |> Zed_string.unsafe_of_utf8 in if Zed_string.ends_with s ~suffix:terminator then s else Zed_string.append s terminator let is_accept : LTerm_read_line.action -> bool = function | Accept -> true | action -> action == UTop.end_and_accept_current_phrase (* Read a phrase. If the result is a value, it is guaranteed to be a valid phrase (i.e. typable and compilable). It also returns warnings printed parsing. *) class read_phrase ~term = object(self) inherit [Parsetree.toplevel_phrase UTop.result * string] LTerm_read_line.engine ~history:(LTerm_history.contents UTop.history) () as super inherit [Parsetree.toplevel_phrase UTop.result * string] LTerm_read_line.term term as super_term method create_temporary_file_for_external_editor = Filename.temp_file "utop" ".ml" method external_editor = UTop.get_external_editor () val mutable return_value = None method eval = match return_value with | Some x -> x | None -> assert false method! send_action action = let action : LTerm_read_line.action = if is_accept action && S.value self#mode <> LTerm_read_line.Edition then Accept else action in super#send_action action method! exec ?(keys=[]) = function | action :: actions when S.value self#mode = LTerm_read_line.Edition && is_accept action -> begin Zed_macro.add self#macro action; let input = Zed_rope.to_string (Zed_edit.text self#edit) in let input = if action == UTop.end_and_accept_current_phrase then add_terminator input else input in let input_utf8= Zed_string.to_utf8 input in (* Toploop does that: *) Location.reset (); try let result = parse_and_check input_utf8 ~eos_is_error:false in return_value <- Some result; LTerm_history.add UTop.history input; let out, warnings = result in begin match out with | UTop.Value _ -> UTop_history.add_input UTop.stashable_session_history input_utf8; UTop_history.add_warnings UTop.stashable_session_history warnings; | (UTop.Error (_, msg)) -> UTop_history.add_bad_input UTop.stashable_session_history input_utf8; UTop_history.add_warnings UTop.stashable_session_history warnings; UTop_history.add_error UTop.stashable_session_history msg; end; return (LTerm_read_line.Result result) with UTop.Need_more -> (* Input not finished, continue. *) self#insert (Uchar.of_char '\n'); self#exec ~keys actions end | actions -> super_term#exec actions method! stylise last = let styled, position = super#stylise last in (* Syntax highlighting *) let stylise loc token_style = for i = loc.idx1 to loc.idx2 - 1 do let ch, style = styled.(i) in styled.(i) <- (ch, LTerm_style.merge token_style style) done in UTop_styles.stylise stylise (UTop_lexer.lex_string (Zed_string.to_utf8 (LTerm_text.to_string styled))); if not last then (* Parenthesis matching. *) LTerm_text.stylise_parenthesis styled position styles.style_paren else begin match return_value with | Some (UTop.Error (locs, _), _) -> (* Highlight error locations. *) List.iter (fun (start, stop) -> for i = max 0 start to min (Array.length styled) stop - 1 do let ch, style = styled.(i) in styled.(i) <- (ch, { style with LTerm_style.underline = Some true }) done) locs | _ -> () end; (styled, position) method! completion = let pos, words = UTop_complete.complete ~phrase_terminator:(UTop.get_phrase_terminator ()) ~input:(Zed_string.to_utf8 (Zed_rope.to_string self#input_prev)) in let words= words |> List.map (fun (k, v)-> (Zed_string.unsafe_of_utf8 k, Zed_string.unsafe_of_utf8 v)) in self#set_completion pos words method! show_box = S.value self#mode <> LTerm_read_line.Edition || UTop.get_show_box () initializer (* Set the source signal for the size of the terminal. *) UTop_private.set_size self#size; (* Set the source signal for the key sequence. *) UTop_private.set_key_sequence self#key_sequence; (* Set the prompt. *) self#set_prompt !UTop.prompt end (* +-----------------------------------------------------------------+ | Handling of [@@toplevel_printer] attributes | +-----------------------------------------------------------------+ *) module Autoprinter : sig val scan_env : Format.formatter -> unit val scan_cmis : Format.formatter -> unit end = struct open Types let cons_path path id = let comp = Ident.name id in match path with | None -> Longident.Lident comp | Some path -> Longident.Ldot (path, comp) let is_auto_printer_attribute (attr : Parsetree.attribute) = let name = attr.attr_name in match name.txt with | "toplevel_printer" | "ocaml.toplevel_printer" -> true | _ -> false let rec walk_sig pp ~path signature = List.iter (walk_sig_item pp (Some path)) signature and walk_sig_item pp path = function | Sig_module (id, _, {md_type = mty; _}, _, _) -> walk_mty pp (cons_path path id) mty | Sig_value (id, vd, _) -> if List.exists is_auto_printer_attribute vd.val_attributes then Topdirs.dir_install_printer pp (cons_path path id) | _ -> () and walk_mty pp path = function | Mty_signature s -> walk_sig pp ~path s | _ -> () let scan_cmis = let new_cmis = ref [] in UTop_compat.add_cmi_hook (fun cmi -> new_cmis := cmi :: !new_cmis ); fun pp -> List.iter (fun (cmi : Cmi_format.cmi_infos) -> walk_sig pp ~path:(Longident.Lident cmi.cmi_name) cmi.cmi_sign ) !new_cmis; new_cmis := [] let scan_env = let last_globals = ref (Env.get_required_globals ()) in let last_summary = ref Env.Env_empty in fun pp -> let env = !Toploop.toplevel_env in let scan_module env id = let name = Longident.Lident (Ident.name id) in let path, {md_type; _} = Env.find_module_by_name name env in if path = Path.Pident id then walk_mty pp name md_type in let rec scan_globals last = function | [] -> () | x when x == last -> () | x :: xs -> scan_globals last xs; scan_module env x in let rec scan_summary last = function | Env.Env_empty -> () | x when x == last -> () | Env.Env_module (s, id, _, _) -> scan_summary last s; scan_module env id | Env.Env_copy_types s | Env.Env_value_unbound (s, _, _) | Env.Env_module_unbound (s, _, _) | Env.Env_persistent (s, _) | Env.Env_value (s, _, _) | Env.Env_type (s, _, _) | Env.Env_extension (s, _, _) | Env.Env_modtype (s, _, _) | Env.Env_class (s, _, _) | Env.Env_cltype (s, _, _) | Env.Env_open (s, _) | Env.Env_functor_arg (s, _) | Env.Env_constraints (s, _) -> scan_summary last s in let globals = Env.get_required_globals () in let last_globals' = !last_globals in last_globals := globals; scan_globals last_globals' globals; let summary = Env.summary env in let last_summary' = !last_summary in last_summary := summary; scan_summary last_summary' summary end let render_out_phrase term string = if String.length string >= 100 * 1024 then LTerm.fprint term string else begin let string = fix_string string in let styled = LTerm_text.of_utf8 string in let stylise loc token_style = for i = loc.idx1 to loc.idx2 - 1 do let ch, style = styled.(i) in styled.(i) <- (ch, LTerm_style.merge token_style style) done in UTop_styles.stylise stylise (UTop_lexer.lex_string string); LTerm.fprints term styled end let orig_print_out_signature = !Toploop.print_out_signature let orig_print_out_phrase = !Toploop.print_out_phrase let is_implicit_name name = name <> "" && name.[0] = '_' && try let _ = int_of_string @@ String.sub name 1 (String.length name - 1) in true with Failure _ -> false let map_items unwrap wrap items = let rec aux acc = function | [] -> acc | item :: items -> let sig_item, _ = unwrap item in let name, rec_status = match sig_item with | Outcometree.Osig_class (_, name, _, _, rs) | Outcometree.Osig_class_type (_, name, _, _, rs) | Outcometree.Osig_module (name, _, rs) | Outcometree.Osig_type ({ Outcometree.otype_name = name }, rs) -> (name, rs) | Outcometree.Osig_typext ({ Outcometree.oext_name = name}, _) | Outcometree.Osig_modtype (name, _) | Outcometree.Osig_value { oval_name = name; _ } -> (name, Outcometree.Orec_not) | Outcometree.Osig_ellipsis -> ("", Outcometree.Orec_not) in let keep = name = "" || name.[0] <> '_' || (UTop.get_create_implicits () && is_implicit_name name) in if keep then aux (item :: acc) items else (* Replace the [Orec_next] at the head of items by [Orec_first] *) let items = match items with | [] -> [] | item :: items' -> let sig_item, extra = unwrap item in match sig_item with | Outcometree.Osig_class (a, name, b, c, rs) -> if rs = Outcometree.Orec_next then wrap (Outcometree.Osig_class (a, name, b, c, Outcometree.Orec_first)) extra :: items' else items | Outcometree.Osig_class_type (a, name, b, c, rs) -> if rs = Outcometree.Orec_next then wrap (Outcometree.Osig_class_type (a, name, b, c, Outcometree.Orec_first)) extra :: items' else items | Outcometree.Osig_module (name, a, rs) -> if rs = Outcometree.Orec_next then wrap (Outcometree.Osig_module (name, a, Outcometree.Orec_first)) extra :: items' else items | Outcometree.Osig_type (oty, rs) -> if rs = Outcometree.Orec_next then wrap (Outcometree.Osig_type (oty, Outcometree.Orec_first)) extra :: items' else items | Outcometree.Osig_typext _ | Outcometree.Osig_ellipsis | Outcometree.Osig_modtype _ | Outcometree.Osig_value _ -> items in aux acc items in List.rev (aux [] items) let print_out_signature pp items = if UTop.get_hide_reserved () then orig_print_out_signature pp (map_items (fun x -> (x, ())) (fun x () -> x) items) else orig_print_out_signature pp items let print_out_phrase pp phrase = Autoprinter.scan_env pp; if UTop.get_hide_reserved () then let phrase = match phrase with | Outcometree.Ophr_eval _ | Outcometree.Ophr_exception _ -> phrase | Outcometree.Ophr_signature items -> Outcometree.Ophr_signature (map_items (fun x -> x) (fun x y -> (x, y)) items) in orig_print_out_phrase pp phrase else orig_print_out_phrase pp phrase let () = Toploop.print_out_signature := print_out_signature; Toploop.print_out_phrase := print_out_phrase (* +-----------------------------------------------------------------+ | Toplevel expression rewriting | +-----------------------------------------------------------------+ *) let with_loc loc str = { Location.txt = str; Location.loc = loc; } (* A rule for rewriting a toplevel expression. *) type rewrite_rule = { type_to_rewrite : Longident.t; mutable path_to_rewrite : Path.t option; required_values : Longident.t list; (* Values that must exist and be persistent for the rule to apply. *) rewrite : Location.t -> Parsetree.expression -> Parsetree.expression; (* The rewrite function. *) enabled : bool React.signal; (* Whether the rule is enabled or not. *) } let longident_lwt_main_run = Longident.Ldot (Longident.Lident "Lwt_main", "run") let longident_async_thread_safe_block_on_async_exn = Longident.(Ldot (Ldot (Lident "Async", "Thread_safe"), "block_on_async_exn")) let rewrite_rules = [ (* Rewrite Lwt.t expressions to Lwt_main.run *) { type_to_rewrite = Longident.(Ldot (Lident "Lwt", "t")); path_to_rewrite = None; required_values = [longident_lwt_main_run]; rewrite = (fun loc e -> let open Ast_helper in with_default_loc loc (fun () -> Exp.apply (Exp.ident (with_loc loc longident_lwt_main_run)) [(Nolabel, e)] ) ); enabled = UTop.auto_run_lwt; }; (* Rewrite Async.Defered.t expressions to Async.Thread_safe.block_on_async_exn (fun () -> ). *) { type_to_rewrite = Longident.(Ldot (Ldot (Lident "Async", "Deferred"), "t")); path_to_rewrite = None; required_values = [longident_async_thread_safe_block_on_async_exn]; rewrite = (fun loc e -> let open Ast_helper in let punit = Pat.construct (with_loc loc (Longident.Lident "()")) None in with_default_loc loc (fun () -> Exp.apply (Exp.ident (with_loc loc longident_async_thread_safe_block_on_async_exn)) [(Nolabel, UTop_compat.Exp.fun_ ~loc punit e)] ) ); enabled = UTop.auto_run_async; } ] let rule_path rule = match rule.path_to_rewrite with | Some _ as x -> x | None -> try let env = !Toploop.toplevel_env in let path = match Env.find_type_by_name rule.type_to_rewrite env with | path, { Types.type_kind = type_kind ; Types.type_private = Asttypes.Public ; Types.type_manifest = Some ty } when type_kind = UTop_compat.abstract_type_kind -> begin match get_desc (Ctype.expand_head env ty) with | Types.Tconstr (path, _, _) -> path | _ -> path end | path, _ -> path in let opt = Some path in rule.path_to_rewrite <- opt; opt with _ -> None (* Check that the given long identifier is present in the environment and is persistent. *) let is_persistent_in_env longident = try is_persistent_path (fst (Env.find_value_by_name longident !Toploop.toplevel_env)) with Not_found -> false let rule_matches rule path = React.S.value rule.enabled && (match rule_path rule with | None -> false | Some path' -> Path.same path path') && List.for_all is_persistent_in_env rule.required_values (* Returns whether the argument is a toplevel expression. *) let is_eval = function | { Parsetree.pstr_desc = Parsetree.Pstr_eval _ } -> true | _ -> false (* Returns the rewrite rule associated to a type, if any. *) let rule_of_type typ = match get_desc (Ctype.expand_head !Toploop.toplevel_env typ) with | Types.Tconstr (path, _, _) -> begin try Some (List.find (fun rule -> rule_matches rule path) rewrite_rules) with _ -> None end | _ -> None let rewrite_str_item pstr_item tstr_item = match pstr_item, tstr_item.Typedtree.str_desc with | ({ Parsetree.pstr_desc = Parsetree.Pstr_eval (e, _); Parsetree.pstr_loc = loc }, Typedtree.Tstr_eval ({ Typedtree.exp_type = typ }, _)) -> begin match rule_of_type typ with | Some rule -> { Parsetree.pstr_desc = Parsetree.Pstr_eval (rule.rewrite loc e, []); Parsetree.pstr_loc = loc } | None -> pstr_item end | _ -> pstr_item let type_structure env pstr = #if OCAML_VERSION >= (4, 14, 0) let tstr, _, _, _, _ = Typemod.type_structure env pstr in #elif OCAML_VERSION >= (4, 12, 0) let tstr, _, _, _ = Typemod.type_structure env pstr in #else let tstr, _, _, _ = Typemod.type_structure env pstr Location.none in #endif tstr let rewrite phrase = match phrase with | Parsetree.Ptop_def pstr -> if (UTop.get_auto_run_lwt () || UTop.get_auto_run_async ()) && List.exists is_eval pstr then let tstr = type_structure !Toploop.toplevel_env pstr in Parsetree.Ptop_def (List.map2 rewrite_str_item pstr tstr.Typedtree.str_items) else phrase | Parsetree.Ptop_dir _ -> phrase let add_let binding_name def = let open Parsetree in match def with | { pstr_desc = Pstr_eval (expr, attrs); pstr_loc = loc } -> Ast_helper.Str.value ~loc Nonrecursive [ let pat = Ast_helper.Pat.var ~loc { txt = binding_name; loc } in Ast_helper.Vb.mk ~loc ~attrs pat expr ] | _ -> def let bind_expressions name phrase = match phrase with | Parsetree.Ptop_def pstr -> Parsetree.Ptop_def (List.map (add_let name) pstr) | Parsetree.Ptop_dir _ -> phrase let execute_phrase b ppf phrase = Autoprinter.scan_cmis ppf; let res = Toploop.execute_phrase b ppf phrase in Autoprinter.scan_cmis ppf; res (* +-----------------------------------------------------------------+ | Main loop | +-----------------------------------------------------------------+ *) let registers= ref LTerm_vi.Vi.Interpret.RegisterMap.empty let rec read_phrase term = Lwt.catch (fun () -> let read_line= new read_phrase ~term in (match !UTop.edit_mode with | LTerm_editor.Default-> () | LTerm_editor.Vi as mode-> read_line#set_editor_mode mode); let vi_state= read_line#vi_state in vi_state#set_registers !registers; read_line#run >>= fun result-> registers:= vi_state#get_registers; return result) (function | Sys.Break -> LTerm.fprintl term "Interrupted." >>= fun () -> read_phrase term | exn -> Lwt.fail exn) let print_error term msg = LTerm.set_style term styles.style_error >>= fun () -> Lwt_io.print msg >>= fun () -> LTerm.set_style term LTerm_style.none >>= fun () -> LTerm.flush term let rec loop term = (* Reset completion. *) UTop_complete.reset (); (* increment the command counter. *) UTop_private.set_count (S.value UTop_private.count + 1); (* Call hooks. *) LTerm_dlist.iter_l (fun f -> f ()) UTop.new_command_hooks; (* Read interactively user input. *) let phrase_opt = Lwt_main.run ( Lwt.finalize (fun () -> read_phrase term >>= fun (result, warnings) -> (* Print warnings before errors. *) Lwt_io.print warnings >>= fun () -> match result with | UTop.Value phrase -> return (Some phrase) | UTop.Error (locs, msg) -> print_error term msg >>= fun () -> return None) (fun () -> LTerm.flush term) ) in match phrase_opt with | Some phrase -> (* Rewrite toplevel expressions. *) let count = S.value UTop_private.count in let phrase = rewrite phrase in let phrase = if UTop.get_create_implicits () then let binding_name = Printf.sprintf "_%d" count in bind_expressions binding_name phrase else phrase in (* Set the margin of standard formatters. *) UTop_private.set_margin Format.std_formatter; UTop_private.set_margin Format.err_formatter; (* Formatter to get the output phrase. *) let buffer = Buffer.create 1024 in let pp = Format.formatter_of_buffer buffer in UTop_private.set_margin pp; (try Env.reset_cache_toplevel (); if !Clflags.dump_parsetree then Printast.top_phrase pp phrase; if !Clflags.dump_source then Pprintast.top_phrase pp phrase; ignore (execute_phrase true pp phrase); (* Flush everything. *) Format.pp_print_flush Format.std_formatter (); Format.pp_print_flush Format.err_formatter (); flush stdout; flush stderr; (* Get the string printed. *) Format.pp_print_flush pp (); let string = Buffer.contents buffer in UTop_history.add_output UTop.stashable_session_history string; match phrase with | Parsetree.Ptop_def _ -> (* The string is an output phrase, colorize it. *) Lwt_main.run (render_out_phrase term string) | Parsetree.Ptop_dir _ -> (* The string is an error message. *) Lwt_main.run (print_error term string) with exn -> (* The only possible errors are directive errors. *) let msg = UTop.get_message Errors.report_error exn in (* Skip the dumb location. *) let msg = try let idx = String.index msg '\n' + 1 in String.sub msg idx (String.length msg - idx) with Not_found -> msg in Lwt_main.run (print_error term msg)); loop term | None -> loop term (* +-----------------------------------------------------------------+ | Welcome message | +-----------------------------------------------------------------+ *) let welcome term = (* Create a context to render the welcome message. *) let size = LTerm.size term in let size = { rows = 3; cols = size.cols } in let matrix = LTerm_draw.make_matrix size in let ctx = LTerm_draw.context matrix size in (* Draw the message in a box. *) let message = Printf.sprintf "Welcome to utop version %s (using OCaml version %s)!" UTop.version Sys.ocaml_version in LTerm_draw.fill_style ctx LTerm_style.({ none with foreground = Some lcyan }); LTerm_draw.draw_hline ctx 0 0 size.cols LTerm_draw.Light; LTerm_draw.draw_frame ctx { row1 = 0; row2 = 3; col1 = (size.cols - (String.length message + 4)) / 2; col2 = (size.cols + (String.length message + 4)) / 2; } LTerm_draw.Light; LTerm_draw.draw_styled ctx 1 ((size.cols - String.length message) / 2) (eval [B_fg LTerm_style.yellow; S message]); (* Render to the screen. *) LTerm.print_box term matrix >>= fun () -> (* Move to after the box. *) LTerm.fprint term "\n" >>= fun () -> LTerm.flush term (* +-----------------------------------------------------------------+ | Classic mode | +-----------------------------------------------------------------+ *) let read_input_classic prompt buffer len = let rec loop i = if i = len then return (i, false) else Lwt_io.read_char_opt Lwt_io.stdin >>= function | Some c -> Bytes.set buffer i c; if c = '\n' then return (i + 1, false) else loop (i + 1) | None -> return (i, true) in Lwt_main.run (Lwt_io.write Lwt_io.stdout prompt >>= fun () -> loop 0) (* +-----------------------------------------------------------------+ | Emacs mode | +-----------------------------------------------------------------+ *) module Emacs(M : sig end) = struct (* Copy standard output, which will be used to send commands. *) let command_oc = Unix.out_channel_of_descr (Unix.dup Unix.stdout) let split_at ?(trim=false) ch str = let rec aux acc i j = if j = String.length str then if trim && i = j then acc else (String.sub str i (j - i)) :: acc else if str.[j] = ch then aux (String.sub str i (j - i) :: acc) (j + 1) (j + 1) else aux acc i (j + 1) in List.rev (aux [] 0 0) (* +---------------------------------------------------------------+ | Sending commands to Emacs | +---------------------------------------------------------------+ *) (* Mutex used to send commands to Emacs. *) let command_mutex = Mutex.create () let send command argument = Mutex.lock command_mutex; output_string command_oc command; output_char command_oc ':'; output_string command_oc argument; output_char command_oc '\n'; flush command_oc; Mutex.unlock command_mutex (* Keep the [utop-phrase-terminator] variable of the emacs part in sync. *) let () = S.keep (S.map (send "phrase-terminator") UTop.phrase_terminator) (* +---------------------------------------------------------------+ | Standard outputs redirection | +---------------------------------------------------------------+ *) (* The output of ocaml (stdout and stderr) is redirected so the emacs parts of utop can recognize it. *) (* Continuously copy the output of ocaml to Emacs. *) let rec copy_output which ic = let line = input_line ic in send which line; copy_output which ic (* Create a thread which redirect the given output: *) let redirect which fd = let fdr, fdw = Unix.pipe () in Unix.dup2 fdw fd; Unix.close fdw; Thread.create (copy_output which) (Unix.in_channel_of_descr fdr) (* Redirects stdout and stderr: *) let _ = redirect "stdout" Unix.stdout let _ = redirect "stderr" Unix.stderr (* +---------------------------------------------------------------+ | Loop | +---------------------------------------------------------------+ *) let read_line () = let behavior = Sys.signal Sys.sigint Sys.Signal_ignore in try let line = Lwt_main.run (Lwt_io.read_line_opt Lwt_io.stdin) in Sys.set_signal Sys.sigint behavior; line with exn -> Sys.set_signal Sys.sigint behavior; raise exn let read_command () = match read_line () with | None -> None | Some line -> match try Some (String.index line ':') with Not_found -> None with | None -> send "stderr" "':' missing!"; exit 1 | Some idx -> Some (String.sub line 0 idx, String.sub line (idx + 1) (String.length line - (idx + 1))) let read_data () = let buf = Buffer.create 1024 in let rec loop first = match read_command () with | None -> send "stderr" "'end' command missing!"; exit 1 | Some ("data", data) -> if not first then Buffer.add_char buf '\n'; Buffer.add_string buf data; loop false | Some ("end", _) -> Buffer.contents buf | Some (command, argument) -> Printf.ksprintf (send "stderr") "'data' or 'end' command expected, got %S!" command; exit 1 in loop true let process_checked_phrase phrase = (* Rewrite toplevel expressions. *) let phrase = rewrite phrase in try Env.reset_cache_toplevel (); ignore (execute_phrase true Format.std_formatter phrase); true with exn -> (* The only possible errors are directive errors. *) let msg = UTop.get_message Errors.report_error exn in (* Skip the dumb location. *) let msg = try let idx = String.index msg '\n' + 1 in String.sub msg idx (String.length msg - idx) with Not_found -> msg in List.iter (send "stderr") (split_at ~trim:true '\n' msg); false let process_input add_to_history eos_is_error = let input = read_data () in let input_zed= Zed_string.unsafe_of_utf8 input in let result, warnings = parse_and_check input ~eos_is_error in match result with | UTop.Value phrase -> send "accept" ""; List.iter (send "stderr") (split_at ~trim:true '\n' warnings); if add_to_history then LTerm_history.add UTop.history input_zed; ignore (process_checked_phrase phrase) | UTop.Error (locs, msg) -> send "accept" (String.concat "," (List.map (fun (a, b) -> Printf.sprintf "%d,%d" a b) locs)); List.iter (send "stderr") (split_at ~trim:true '\n' warnings); if add_to_history then LTerm_history.add UTop.history input_zed; List.iter (send "stderr") (split_at ~trim:true '\n' msg) let send_error locs msg warnings = send "accept" (String.concat "," (List.map (fun (a, b) -> Printf.sprintf "%d,%d" a b) locs)); match warnings with | Some warnings -> List.iter (send "stderr") (split_at ~trim:true '\n' warnings) | None -> (); List.iter (send "stderr") (split_at ~trim:true '\n' msg) let process_input_multi () = let input = read_data () in let result, warnings = parse_input_multi input in let typecheck phrase = match UTop.check_phrase phrase with | None -> None | Some (locs, msg, lines) -> Some (convert_loc_line input locs lines, msg) in match result with | UTop.Value phrases -> send "accept" ""; List.iter (send "stderr") (split_at ~trim:true '\n' warnings); let rec loop = function | (phrase::more_phrases) -> begin match typecheck phrase with | Some (locs, msg) -> send_error locs msg None | None -> let success = process_checked_phrase phrase in if success then loop more_phrases else () end | [] -> () in loop phrases | UTop.Error (locs, msg) -> send_error locs msg (Some warnings) let rec loop () = (* Reset completion. *) UTop_complete.reset (); (* Increment the command counter. *) UTop_private.set_count (S.value UTop_private.count + 1); (* Call hooks. *) LTerm_dlist.iter_l (fun f -> f ()) UTop.new_command_hooks; (* Tell emacs we are ready. *) send "prompt" ""; loop_commands (LTerm_history.contents UTop.history) [] and loop_commands history_prev history_next = match read_command () with | None -> () | Some ("input", arg) -> let args = split_at ',' arg in let allow_incomplete = List.mem "allow-incomplete" args and add_to_history = List.mem "add-to-history" args in let continue = try process_input add_to_history (not allow_incomplete); false with UTop.Need_more -> send "continue" ""; true in if continue then loop_commands history_prev history_next else loop () | Some ("input-multi", _) -> let continue = try process_input_multi (); false with UTop.Need_more -> send "continue" ""; true in if continue then loop_commands history_prev history_next else loop () | Some ("complete-company", _) -> let input = read_data () in let _, words = UTop_complete.complete ~phrase_terminator:(UTop.get_phrase_terminator ()) ~input in send "completion-start" ""; List.iter (fun (w, _) -> send "completion" w) words; send "completion-stop" ""; loop_commands history_prev history_next | Some ("complete", _) -> let input = read_data () in let start, words = UTop_complete.complete ~phrase_terminator:(UTop.get_phrase_terminator ()) ~input in let words = List.map fst words in let prefix = LTerm_read_line.common_prefix words in let index = String.length input - start in let suffix = if index > 0 && index <= String.length prefix then String.sub prefix index (String.length prefix - index) else "" in if suffix = "" then begin send "completion-start" ""; List.iter (send "completion") words; send "completion-stop" ""; end else send "completion-word" suffix; loop_commands history_prev history_next | Some ("history-prev", _) -> begin let input = read_data () in match history_prev with | [] -> send "history-bound" ""; loop_commands history_prev history_next | entry :: history_prev -> List.iter (send "history-data") (split_at '\n' (Zed_string.to_utf8 entry)); send "history-end" ""; loop_commands history_prev (input :: history_next) end | Some ("history-next", _) -> begin let input = read_data () in match history_next with | [] -> send "history-bound" ""; loop_commands history_prev history_next | entry :: history_next -> List.iter (send "history-data") (split_at '\n' entry); send "history-end" ""; loop_commands ((Zed_string.unsafe_of_utf8 input) :: history_prev) history_next end | Some ("exit", code) -> exit (int_of_string code) | Some ("save-history", code) -> Lwt_main.run (save_history ()); loop_commands history_prev history_next | Some ("require", package) -> begin try Topfind.load_deeply [package] with Fl_package_base.No_such_package(pkg, reason) -> send "no-such-package" pkg end; loop_commands history_prev history_next | Some (command, _) -> Printf.ksprintf (send "stderr") "unrecognized command %S!" command; exit 1 end (* +-----------------------------------------------------------------+ | Extra macros | +-----------------------------------------------------------------+ *) module Printtyp = #if OCAML_VERSION >= (5, 3, 0) Out_type #else Printtyp #endif let typeof sid = let id = Parse.longident (Lexing.from_string sid) in let env = !Toploop.toplevel_env in let from_type_desc = function | Types.Tconstr (path, _, _) -> let typ_decl = Env.find_type path env in path, typ_decl | _ -> assert false in let out_sig_item = try let (path, ty_decl) = Env.find_type_by_name id env in let id = Ident.create_local (Path.name path) in Some (Printtyp.tree_of_type_declaration id ty_decl Types.Trec_not) with Not_found -> try let (path, val_descr) = Env.find_value_by_name id env in let id = Ident.create_local (Path.name path) in Some (Printtyp.tree_of_value_description id val_descr) with Not_found -> try let lbl_desc = Env.find_label_by_name id env in let (path, ty_decl) = from_type_desc (get_desc lbl_desc.Types.lbl_res) in let id = Ident.create_local (Path.name path) in Some (Printtyp.tree_of_type_declaration id ty_decl Types.Trec_not) with Not_found -> try let path, {Types.md_type; _} = Env.find_module_by_name id env in let id = Ident.create_local (Path.name path) in Some (Printtyp.tree_of_module id md_type Types.Trec_not) with Not_found -> try let (path, mty_decl) = Env.find_modtype_by_name id env in let id = Ident.create_local (Path.name path) in Some (Printtyp.tree_of_modtype_declaration id mty_decl) with Not_found -> try let cstr_desc = Env.find_constructor_by_name id env in match cstr_desc.Types.cstr_tag with | _ -> let (path, ty_decl) = from_type_desc (get_desc cstr_desc.Types.cstr_res) in let id = Ident.create_local (Path.name path) in Some (Printtyp.tree_of_type_declaration id ty_decl Types.Trec_not) with Not_found -> None in match out_sig_item with | None -> Lwt_main.run (Lazy.force LTerm.stdout >>= fun term -> print_error term "Unknown type\n") | Some osig -> let buf = Buffer.create 128 in let pp = Format.formatter_of_buffer buf in #if OCAML_VERSION >= (5, 3, 0) Format.fprintf pp "%a" (Format_doc.compat !Toploop.print_out_signature) [osig]; #else !Toploop.print_out_signature pp [osig]; #endif Format.pp_print_newline pp (); let str = Buffer.contents buf in Lwt_main.run (Lazy.force LTerm.stdout >>= fun term -> render_out_phrase term str) let default_info = { Toploop.section = "UTop"; doc = ""; (* TODO: have some kind of documentation *) } let () = Toploop.add_directive "typeof" (Toploop.Directive_string typeof) default_info (* +-----------------------------------------------------------------+ | Entry point | +-----------------------------------------------------------------+ *) let emacs_mode = ref false let preload = ref [] let prepare () = toploop_set_paths (); try let ok = List.for_all (function | `Packages l -> UTop.require l; true | `Object fn -> toploop_load_file Format.err_formatter fn) (List.rev !preload) in if ok then !Toploop.toplevel_startup_hook (); ok with exn -> try Errors.report_error Format.err_formatter exn; false with exn -> Format.eprintf "Uncaught exception: %s\n" (Printexc.to_string exn); false external caml_sys_modify_argv : string array -> unit = "caml_sys_modify_argv" let override_argv () = let len = Array.length Sys.argv - !Arg.current in let copy = Array.init len (fun i -> Sys.argv.(i+ !Arg.current)) in caml_sys_modify_argv copy; Arg.current := 0 let run_script name = (* To prevent message from camlp4 *) Sys.interactive := false; if not (prepare ()) then exit 2; override_argv (); Toploop.initialize_toplevel_env (); Location.input_name := UTop.input_name; if toploop_use_silently Format.err_formatter name then exit 0 else exit 2 let file_argument name = if Filename.check_suffix name ".cmo" || Filename.check_suffix name ".cma" then preload := `Object name :: !preload else run_script name let print_version () = Printf.printf "The universal toplevel for OCaml, version %s, compiled for OCaml version %s\n" UTop.version Sys.ocaml_version; exit 0 let print_version_num () = Printf.printf "%s\n" UTop.version; exit 0 (* Config from command line *) let autoload = ref true let args = Arg.align [ "-absname", Arg.Set Clflags.absname, " Show absolute filenames in error message"; "-I", Arg.String (fun dir -> Clflags.include_dirs := dir :: !Clflags.include_dirs), "

Add to the list of include directories"; "-init", Arg.String (fun s -> Clflags.init_file := Some s), " Load instead of default init file"; "-labels", Arg.Clear Clflags.classic, " Use commuting label mode"; "-no-app-funct", Arg.Clear Clflags.applicative_functors, " Deactivate applicative functors"; "-noassert", Arg.Set Clflags.noassert, " Do not compile assertion checks"; "-nolabels", Arg.Set Clflags.classic, " Ignore non-optional labels in types"; "-nostdlib", Arg.Set Clflags.no_std_include, " Do not add default directory to the list of include directories"; "-ppx", Arg.String (fun ppx -> Clflags.all_ppx := ppx :: !Clflags.all_ppx), " Pipe abstract syntax trees through preprocessor "; "-principal", Arg.Set Clflags.principal, " Check principality of type inference"; #if OCAML_VERSION < (5, 0, 0) "-safe-string", Arg.Clear Clflags.unsafe_string, " Make strings immutable"; #endif "-short-paths", Arg.Clear Clflags.real_paths, " Shorten paths in types (the default)"; "-no-short-paths", Arg.Set Clflags.real_paths, " Do not shorten paths in types"; "-rectypes", Arg.Set Clflags.recursive_types, " Allow arbitrary recursive types"; "-stdin", Arg.Unit (fun () -> run_script ""), " Read script from standard input"; "-strict-sequence", Arg.Set Clflags.strict_sequence, " Left-hand part of a sequence must have type unit"; "-unsafe", Arg.Set Clflags.unsafe, " Do not compile bounds checking on array and string access"; "-version", Arg.Unit print_version, " Print version and exit"; "-vnum", Arg.Unit print_version_num, " Print version number and exit"; "-w", Arg.String (fun opt -> ignore (Warnings.parse_options false opt)), Printf.sprintf " Enable or disable warnings according to :\n\ \ + enable warnings in \n\ \ - disable warnings in \n\ \ @ enable warnings in and treat them as errors\n\ \ can be:\n\ \ a single warning number\n\ \ .. a range of consecutive warning numbers\n\ \ a predefined set\n\ \ default setting is %S" Warnings.defaults_w; "-warn-error", Arg.String (fun opt -> ignore (Warnings.parse_options true opt)), Printf.sprintf " Enable or disable error status for warnings according to \n\ \ See option -w for the syntax of .\n\ \ Default setting is %S" Warnings.defaults_warn_error; "-warn-help", Arg.Unit Warnings.help_warnings, " Show description of warning numbers"; "-emacs", Arg.Set emacs_mode, " Run in emacs mode"; "-hide-reserved", Arg.Unit (fun () -> UTop.set_hide_reserved true), " Hide identifiers starting with a '_' (the default)"; "-show-reserved", Arg.Unit (fun () -> UTop.set_hide_reserved false), " Show identifiers starting with a '_'"; "-no-implicit-bindings", Arg.Unit (fun () -> UTop.set_create_implicits false), " Don't add implicit bindings for expressions (the default)"; "-implicit-bindings", Arg.Unit (fun () -> UTop.set_create_implicits true), " Add implicit bindings: ;; -> let _0 = ;;"; "-no-autoload", Arg.Clear autoload, " Disable autoloading of files in $OCAML_TOPLEVEL_PATH/autoload"; "-require", Arg.String (fun s -> preload := `Packages (UTop.split_words s) :: !preload), " Load this package"; "-dparsetree", Arg.Set Clflags.dump_parsetree, " Dump OCaml AST after rewriting"; "-dsource", Arg.Set Clflags.dump_source, " Dump OCaml source after rewriting"; ] let () = Clflags.real_paths := false let app_name = Filename.basename Sys.executable_name let usage = Printf.sprintf "Usage: %s [script-file [arguments]]\noptions are:" app_name let load_init_files dir = let files = Sys.readdir dir in Array.sort String.compare files; Array.iter (fun fn -> if Filename.check_suffix fn ".ml" then ignore (toploop_use_silently Format.err_formatter (Filename.concat dir fn) : bool)) files ;; let common_init ~initial_env = (* Initializes toplevel environment. *) (match initial_env with | None -> Toploop.initialize_toplevel_env () | Some env -> Toploop.toplevel_env := env); (* Set the global input name. *) Location.input_name := UTop.input_name; (* Make sure SIGINT is catched while executing OCaml code. *) Sys.catch_break true; (* Load system init files. *) (match try Some (Sys.getenv "OCAML_TOPLEVEL_PATH") with Not_found -> None with | Some dir -> Topdirs.dir_directory dir; let autoload_dir = Filename.concat dir "autoload" in if !autoload && !UTop_private.autoload && Sys.file_exists autoload_dir then load_init_files autoload_dir | None -> ()); (* Load user's init file. *) let init_fn = match !Clflags.init_file with | Some fn -> if Sys.file_exists fn then Some fn else ( Printf.eprintf "Init file not found: \"%s\".\n" fn; None ) | None -> if Sys.file_exists ".ocamlinit" && Sys.getcwd () <> LTerm_resources.home then Some ".ocamlinit" else let xdg_fn = LTerm_resources.xdgbd_file ~loc:LTerm_resources.Config "utop/init.ml" in if Sys.file_exists xdg_fn then Some xdg_fn else let fn = Filename.concat LTerm_resources.home ".ocamlinit" in if Sys.file_exists fn then Some fn else None in (match init_fn with | None -> () | Some fn -> ignore (toploop_use_silently Format.err_formatter fn : bool)); (* Load history after the initialization file so the user can change the history file name. *) Lwt_main.run (init_history ()); (* Install signal handlers. *) let behavior = Sys.Signal_handle (fun signo -> raise (Term signo)) in let catch signo = try Sys.set_signal signo behavior with _ -> (* All signals may not be supported on some OS. *) () in (* We lost the terminal. *) catch Sys.sighup; (* Termination request. *) catch Sys.sigterm let load_inputrc () = Lwt.catch LTerm_inputrc.load (function | Unix.Unix_error (error, func, arg) -> Logs_lwt.err (fun m -> m "cannot load key bindings from %S: %s: %s" LTerm_inputrc.default func (Unix.error_message error)) | LTerm_inputrc.Parse_error (fname, line, msg) -> Logs_lwt.err (fun m -> m "error in key bindings file %S, line %d: %s" fname line msg) | exn -> Lwt.fail exn) let protocol_version = 1 let main_aux ~initial_env = Arg.parse args file_argument usage; #if OCAML_VERSION >= (5, 0, 0) && OCAML_VERSION < (5, 1, 0) Topcommon.load_topdirs_signature (); #endif if not (prepare ()) then exit 2; if !emacs_mode then begin Printf.printf "protocol-version:%d\n%!" protocol_version; UTop_private.set_ui UTop_private.Emacs; let module Emacs = Emacs (struct end) in Printf.printf "Welcome to utop version %s (using OCaml version %s)!\n\n%!" UTop.version Sys.ocaml_version; common_init ~initial_env; Emacs.loop () end else begin UTop_private.set_ui UTop_private.Console; let term = Lwt_main.run (Lazy.force LTerm.stdout) in if LTerm.incoming_is_a_tty term && LTerm.outgoing_is_a_tty term then begin (* Set the initial size. *) UTop_private.set_size (S.const (LTerm.size term)); (* Load user data. *) Lwt_main.run (Lwt.join [UTop_styles.load (); load_inputrc ()]); (* Display a welcome message. *) Lwt_main.run (welcome term); (* Common initialization. *) common_init ~initial_env; (* Print help message. *) print_string "\nType #utop_help for help about using utop.\n\n"; flush stdout; (* Main loop. *) try loop term with LTerm_read_line.Interrupt -> () end else begin (* Use the standard toplevel. Just make sure that Lwt threads can run while reading phrases. *) Toploop.read_interactive_input := read_input_classic; Toploop.loop Format.std_formatter end end; (* Don't let the standard toplevel run... *) exit 0 let main_internal ~initial_env = try main_aux ~initial_env with exn -> (match exn with #if OCAML_VERSION >= (4,12,0) | Compenv.Exit_with_status e -> exit e #endif | Unix.Unix_error (error, func, "") -> Printf.eprintf "%s: %s: %s\n" app_name func (Unix.error_message error) | Unix.Unix_error (error, func, arg) -> Printf.eprintf "%s: %s(%S): %s\n" app_name func arg (Unix.error_message error) | exn -> Printf.eprintf "Fatal error: exception %s\n" (Printexc.to_string exn)); Printexc.print_backtrace stderr; flush stderr; exit 2 let main () = main_internal ~initial_env:None type value = V : string * _ -> value exception Found of Env.t let get_required_label name args = match List.find (fun (lab, _) -> lab = Asttypes.Labelled name) args with | _, x -> x | exception Not_found -> None let walk dir ~init ~f = let rec loop dir acc = let acc = f dir acc in ArrayLabels.fold_left (Sys.readdir dir) ~init:acc ~f:(fun acc fn -> let fn = Filename.concat dir fn in match Unix.lstat fn with | { st_kind = S_DIR; _ } -> loop fn acc | _ -> acc) in match Unix.lstat dir with | exception Unix.Unix_error(ENOENT, _, _) -> init | _ -> loop dir init let iter_structure expr = let next iterator e = Tast_iterator.default_iterator.expr iterator e in let expr iterator = expr (next iterator) in let iter = { Tast_iterator.default_iterator with expr } in iter.structure iter let interact ?(search_path=[]) ?(build_dir="_build") ~unit ~loc:(fname, lnum, cnum, _) ~values = let search_path = walk build_dir ~init:search_path ~f:(fun dir acc -> dir :: acc) in let cmt_fname = try UTop_compat.find_in_path_normalized search_path (unit ^ ".cmt") with Not_found -> Printf.ksprintf failwith "%s.cmt not found in search path!" unit in let cmt_infos = Cmt_format.read_cmt cmt_fname in let expr next (e : Typedtree.expression) = match e.exp_desc with | Texp_apply (_, args) -> begin try match get_required_label "loc" args, get_required_label "values" args with | Some l, Some v -> let pos = l.exp_loc.loc_start in if pos.pos_fname = fname && pos.pos_lnum = lnum && pos.pos_cnum - pos.pos_bol = cnum then raise (Found v.exp_env) | _ -> next e with Not_found -> next e end | _ -> next e in let search = iter_structure expr in try begin match cmt_infos.cmt_annots with | Implementation st -> search st | _ -> () end; failwith "Couldn't find location in cmt file" with Found env -> try let visible_paths = UTop_compat.visible_paths_for_cmt_infos cmt_infos in List.iter Topdirs.dir_directory (search_path @ visible_paths); let env = Envaux.env_of_only_summary env in List.iter (fun (V (name, v)) -> Toploop.setvalue name (Obj.repr v)) values; main_internal ~initial_env:(Some env) with exn -> Location.report_exception Format.err_formatter exn; exit 2 let () = Location.register_error_of_exn (function | Envaux.Error err -> #if OCAML_VERSION >= (5,3,0) Some (Location.error_of_printer_file Envaux.report_error_doc err) #else Some (Location.error_of_printer_file Envaux.report_error err) #endif | _ -> None ) utop-2.15.0/src/lib/uTop_main.mli000066400000000000000000000011601472111175200165600ustar00rootroot00000000000000(* * uTop_main.mli * ------------- * Copyright : (c) 2012, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) val main : unit -> unit (** Start utop. *) exception Term of int (** Exception raised when a signal that should terminate the process is received. The argument is the signal number. utop raises this exception for SIGHUP and SIGTERM by default. *) type value = V : string * _ -> value val interact : ?search_path:string list -> ?build_dir:string -> unit:string -> loc:(string * int * int * int) -> values:value list -> unit -> unit utop-2.15.0/src/lib/uTop_private.ml000066400000000000000000000030431472111175200171370ustar00rootroot00000000000000(* * uTop_private.ml * --------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) open Lwt_react module Default_paths = struct let ( / ) = Filename.concat let xdg = Xdg.create ~env:Sys.getenv_opt () let resolve ~legacy ~filename = if Sys.file_exists legacy then legacy else filename let history_file_name = resolve ~legacy:(LTerm_resources.home / ".utop-history") ~filename:(Xdg.state_dir xdg / "utop-history") let config_file_name = resolve ~legacy:(LTerm_resources.home / ".utoprc") ~filename:(Xdg.config_dir xdg / "utoprc") end let size, set_size = let ev, set_size = E.create () in let init = S.const { LTerm_geom.rows = 25; LTerm_geom.cols = 80 } in (S.switch (S.hold ~eq:( == ) init ev), set_size) let key_sequence, set_key_sequence = let ev, set_key_sequence = E.create () in let init = (S.const ([] : LTerm_key.t list)) in (S.switch (S.hold ~eq:( == ) init ev), set_key_sequence) let count, set_count = S.create (-1) type ui = Console | Emacs let ui, set_ui = S.create Console let error_style = ref LTerm_style.none (* Config from $XDG_CONFIG_HOME/utop/utoprc *) let autoload = ref true let margin_function, set_margin_function = S.create ~eq:( == ) (fun (size : LTerm_geom.size) -> Some (min 80 size.cols)) let margin = S.app margin_function size let set_margin pp = match S.value margin with | None -> () | Some n -> if Format.pp_get_margin pp () <> n then Format.pp_set_margin pp n utop-2.15.0/src/lib/uTop_styles.ml000066400000000000000000000162471472111175200170220ustar00rootroot00000000000000(* * uTop_styles.ml * -------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) open UTop_token let return, (>>=) = Lwt.return, Lwt.(>>=) module String_set = Set.Make (String) module Default_paths = UTop_private.Default_paths type styles = { mutable style_keyword : LTerm_style.t; mutable style_symbol : LTerm_style.t; mutable style_ident : LTerm_style.t; mutable style_module : LTerm_style.t; mutable style_constant : LTerm_style.t; mutable style_char : LTerm_style.t; mutable style_string : LTerm_style.t; mutable style_quotation : LTerm_style.t; mutable style_comment : LTerm_style.t; mutable style_doc : LTerm_style.t; mutable style_blanks : LTerm_style.t; mutable style_error : LTerm_style.t; mutable style_directive : LTerm_style.t; mutable style_paren : LTerm_style.t; mutable style_font : string option; mutable style_foreground : LTerm_style.color option; mutable style_background : LTerm_style.color option; mutable style_cursor : LTerm_style.color option; } let styles = { style_keyword = LTerm_style.none; style_symbol = LTerm_style.none; style_ident = LTerm_style.none; style_module = LTerm_style.none; style_constant = LTerm_style.none; style_char = LTerm_style.none; style_string = LTerm_style.none; style_quotation = LTerm_style.none; style_comment = LTerm_style.none; style_doc = LTerm_style.none; style_blanks = LTerm_style.none; style_error = LTerm_style.none; style_directive = LTerm_style.none; style_paren = LTerm_style.none; style_font = None; style_foreground = None; style_background = None; style_cursor = None; } let load () = let fn = Default_paths.config_file_name in Lwt.catch (fun () -> LTerm_resources.load fn >>= fun res -> styles.style_keyword <- LTerm_resources.get_style "keyword" res; styles.style_symbol <- LTerm_resources.get_style "symbol" res; styles.style_ident <- LTerm_resources.get_style "identifier" res; styles.style_module <- LTerm_resources.get_style "module" res; styles.style_constant <- LTerm_resources.get_style "constant" res; styles.style_char <- LTerm_resources.get_style "char" res; styles.style_string <- LTerm_resources.get_style "string" res; styles.style_quotation <- LTerm_resources.get_style "quotation" res; styles.style_comment <- LTerm_resources.get_style "comment" res; styles.style_doc <- LTerm_resources.get_style "doc" res; styles.style_blanks <- LTerm_resources.get_style "blanks" res; styles.style_error <- LTerm_resources.get_style "error" res; styles.style_directive <- LTerm_resources.get_style "directive" res; styles.style_paren <- LTerm_resources.get_style "parenthesis" res; styles.style_font <- (match LTerm_resources.get "font" res with | "" -> None | str -> Some str); styles.style_foreground <- LTerm_resources.get_color "foreground" res; styles.style_background <- LTerm_resources.get_color "background" res; styles.style_cursor <- LTerm_resources.get_color "cursor" res; (match String.lowercase_ascii (LTerm_resources.get "profile" res) with | "light" -> UTop.set_profile UTop.Light | "dark" -> UTop.set_profile UTop.Dark | "" -> () | str -> raise (LTerm_resources.Error (Printf.sprintf "invalid profile %S" str))); UTop_private.error_style := styles.style_error; UTop_private.autoload := LTerm_resources.get_bool "autoload" res <> Some false; (match LTerm_resources.get "external-editor" res with | "" -> () | s -> UTop.set_external_editor s); return ()) (function | Unix.Unix_error(Unix.ENOENT, _, _) -> return () | Unix.Unix_error (error, func, _arg) -> Logs_lwt.err (fun m -> m "cannot load styles from %S: %s: %s" fn func (Unix.error_message error)) | exn -> Lwt.fail exn) let stylise_filter_layout stylise tokens = let aux acc = function | (Comment (Comment_reg, _), loc) -> stylise loc styles.style_comment; acc | (Comment (Comment_doc, _), loc) -> stylise loc styles.style_doc; acc | (Blanks, loc) -> stylise loc styles.style_blanks; acc | x -> x :: acc in List.rev (List.fold_left aux [] tokens) let rec stylise_rec stylise tokens = match tokens with | [] -> () | (Symbol _, loc) :: tokens -> stylise loc styles.style_symbol; stylise_rec stylise tokens | (Lident id, loc) :: tokens -> stylise loc (if String_set.mem id !UTop.keywords then styles.style_keyword else styles.style_ident); stylise_rec stylise tokens | (Uident id, loc) :: tokens when String_set.mem id !UTop.keywords -> stylise loc styles.style_keyword; stylise_rec stylise tokens | (Uident _id, loc1) :: (Symbol ".", loc2) :: tokens -> stylise loc1 styles.style_module; stylise loc2 styles.style_symbol; stylise_rec stylise tokens | (Uident _id, loc) :: tokens -> stylise loc styles.style_ident; stylise_rec stylise tokens | (Constant _, loc) :: tokens -> stylise loc styles.style_constant; stylise_rec stylise tokens | (Char, loc) :: tokens -> stylise loc styles.style_char; stylise_rec stylise tokens | (String _, loc) :: tokens -> stylise loc styles.style_string; stylise_rec stylise tokens | (Quotation (items, _), _) :: tokens -> stylise_quotation_items stylise items; stylise_rec stylise tokens | (Error, loc) :: tokens -> stylise loc styles.style_error; stylise_rec stylise tokens | ((Comment _ | Blanks), _) :: _ -> assert false and stylise_quotation_items stylise items = match items with | [] -> () | (Quot_data, loc) :: items -> stylise loc styles.style_quotation; stylise_quotation_items stylise items | (Quot_anti anti, _) :: items -> stylise anti.a_opening styles.style_symbol; (match anti.a_name with | None -> () | Some (loc1, loc2) -> stylise loc1 styles.style_module; stylise loc2 styles.style_symbol); let tokens = stylise_filter_layout stylise anti.a_contents in stylise_rec stylise tokens; (match anti.a_closing with | None -> () | Some loc -> stylise loc styles.style_symbol); stylise_quotation_items stylise items let stylise stylise tokens = let tokens = stylise_filter_layout stylise tokens in match tokens with | (Symbol "#", loc) :: tokens -> begin stylise loc styles.style_directive; match tokens with | ((Lident id | Uident id), loc) :: tokens -> stylise loc (if String_set.mem id !UTop.keywords then styles.style_keyword else styles.style_directive); stylise_rec stylise tokens | tokens -> stylise_rec stylise tokens end | tokens -> stylise_rec stylise tokens utop-2.15.0/src/lib/uTop_styles.mli000066400000000000000000000024761472111175200171720ustar00rootroot00000000000000(* * uTop_styles.mli * --------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) (** Styled loaded from ~/.utoprc *) (** Type of utop styles. *) type styles = { mutable style_keyword : LTerm_style.t; mutable style_symbol : LTerm_style.t; mutable style_ident : LTerm_style.t; mutable style_module : LTerm_style.t; mutable style_constant : LTerm_style.t; mutable style_char : LTerm_style.t; mutable style_string : LTerm_style.t; mutable style_quotation : LTerm_style.t; mutable style_comment : LTerm_style.t; mutable style_doc : LTerm_style.t; mutable style_blanks : LTerm_style.t; mutable style_error : LTerm_style.t; mutable style_directive : LTerm_style.t; mutable style_paren : LTerm_style.t; mutable style_font : string option; mutable style_foreground : LTerm_style.color option; mutable style_background : LTerm_style.color option; mutable style_cursor : LTerm_style.color option; } val styles : styles (** The styles in use. *) val load : unit -> unit Lwt.t (** Load resources into [styles]. *) val stylise : (UTop_token.location -> LTerm_style.t -> unit) -> (UTop_token.t * UTop_token.location) list -> unit (** [stylise apply tokens] calls [apply] on all token locations with the associated style. *) utop-2.15.0/src/lib/uTop_token.ml000066400000000000000000000027161472111175200166130ustar00rootroot00000000000000(* * uTop_token.ml * ------------- * Copyright : (c) 2011, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) (** Tokens. The type of tokens is semi-structured: parentheses construct and quotations are nested and others tokens are flat list. *) (** Locations in the source string, which is encoded in UTF-8. *) type location = { idx1 : int; (** Start position in unicode characters. *) idx2 : int; (** Stop position in unicode characters. *) ofs1 : int; (** Start position in bytes. *) ofs2 : int; (** Stop position in bytes. *) } type t = | Symbol of string | Lident of string | Uident of string | Constant of string | Char | String of int * bool (** [String (quote_size, terminated)]. *) | Comment of comment_kind * bool (** [Comment (kind, terminated)]. *) | Blanks | Error | Quotation of (quotation_item * location) list * bool (** [Quotation (items, terminated)]. *) and comment_kind = | Comment_reg (** Regular comment. *) | Comment_doc (** Documentation comment. *) and quotation_item = | Quot_data | Quot_anti of antiquotation and antiquotation = { a_opening : location; (** Location of the opening [$]. *) a_closing : location option; (** Location of the closing [$]. *) a_name : (location * location) option; (** Location of the name and colon if any. *) a_contents : (t * location) list; (** Contents of the location. *) } utop-2.15.0/src/top/000077500000000000000000000000001472111175200141605ustar00rootroot00000000000000utop-2.15.0/src/top/Eldev000066400000000000000000000000431472111175200151370ustar00rootroot00000000000000(eldev-use-package-archive 'melpa) utop-2.15.0/src/top/dune000066400000000000000000000016761472111175200150500ustar00rootroot00000000000000(executables (names utop) (libraries utop) (modes byte) (link_flags -linkall)) (rule (with-stdout-to info-ocamlcommon.txt (run %{bin:ocamlobjinfo} %{lib:compiler-libs.common:ocamlcommon.cma}))) (rule (with-stdout-to info-ocamlbytecomp.txt (run %{bin:ocamlobjinfo} %{lib:compiler-libs.bytecomp:ocamlbytecomp.cma}))) (rule (with-stdout-to info-ocamltoplevel.txt (run %{bin:ocamlobjinfo} %{lib:compiler-libs.toplevel:ocamltoplevel.cma}))) (rule (with-stdout-to info-utop.txt (run %{bin:ocamlobjinfo} %{dep:utop.bc}))) (rule (with-stdout-to modules.txt (run ./expunge/modules.exe %{dep:info-utop.txt} %{dep:info-ocamlcommon.txt} %{dep:info-ocamlbytecomp.txt} %{dep:info-ocamltoplevel.txt}))) (rule (targets utop-expunged.bc) (action (run %{ocaml_where}/expunge%{ext_exe} %{dep:utop.bc} %{targets} %{read-lines:modules.txt}))) (install (section bin) (files (utop-expunged.bc as utop) (utop.bc as utop-full))) utop-2.15.0/src/top/expunge/000077500000000000000000000000001472111175200156335ustar00rootroot00000000000000utop-2.15.0/src/top/expunge/dune000066400000000000000000000000351472111175200165070ustar00rootroot00000000000000(executable (name modules)) utop-2.15.0/src/top/expunge/modules.ml000066400000000000000000000023001472111175200176300ustar00rootroot00000000000000open StdLabels let input_lines ic = let rec loop acc = match input_line ic with | exception End_of_file -> List.rev acc | line -> loop (line :: acc) in loop [] let lines_of_info fn = let ic = open_in fn in Fun.protect (fun () -> input_lines ic) ~finally:(fun () -> close_in_noerr ic) module S = Set.Make(String) let main ~src ~cma_files = let modules = lines_of_info src |> List.map ~f:(fun line -> try Scanf.sscanf line "\t%[0-9a-f]\t%s" (fun a b -> assert (String.length a = 32); [b]) with _ -> []) |> List.concat |> S.of_list in let modules_to_exclude = List.map cma_files ~f:(fun fn -> lines_of_info fn |> List.map ~f:(fun line -> try Scanf.sscanf line "Unit name: %s" (fun s -> [s]) with _ -> []) |> List.concat) |> List.concat |> S.of_list |> S.remove "Topmain" |> S.remove "Toploop" |> S.remove "Topdirs" in let modules_to_keep = S.diff modules modules_to_exclude in S.iter print_endline modules_to_keep let () = match Array.to_list Sys.argv with | _ :: src :: cma_files -> main ~src ~cma_files | _ -> failwith "invalid command line" utop-2.15.0/src/top/utop.el000066400000000000000000001335721472111175200155040ustar00rootroot00000000000000;;; utop.el --- Universal toplevel for OCaml -*- lexical-binding: t -*- ;; Copyright: (c) 2011, Jeremie Dimino ;; Author: Jeremie Dimino ;; URL: https://github.com/ocaml-community/utop ;; Licence: BSD3 ;; Version: 1.11 ;; Package-Requires: ((emacs "26") (tuareg "2.2.0")) ;; Keywords: ocaml languages ;; This file is a part of utop. ;;; Commentary: ;; This package provides interaction with an OCaml utop toplevel (REPL). ;; ;; utop.el has two components - a nice OCaml REPL with auto-completion and a ;; minor mode (`utop-minor-mode'), which extends OCaml major modes ;; (e.g. `caml-mode' and `tuareg-mode') with commands to evaluate forms directly ;; in the REPL. ;; ;; See the "Integration with Emacs" section of the README for more info. ;;; Code: (require 'easymenu) (require 'pcase) (require 'seq) (require 'tabulated-list) (require 'tuareg) ;; +-----------------------------------------------------------------+ ;; | License | ;; +-----------------------------------------------------------------+ (defconst utop-license "BSD3" "Copyright (c) 2011, Jeremie Dimino All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. * Neither the name of Jeremie Dimino nor the names of his contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES \(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT \(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.") ;; +-----------------------------------------------------------------+ ;; | Customizable variables | ;; +-----------------------------------------------------------------+ (defgroup utop nil "A toplevel for the ocaml programming language which interacts with Emacs to provide an enhanced environment." :group 'applications :link '(url-link :tag "GitHub" "https://github.com/ocaml-community/utop") :link '(emacs-commentary-link :tag "Commentary" "utop")) (defcustom utop-command "utop -emacs" "The command to execute for utop." :type 'string :safe 'stringp) (defcustom utop-edit-command t "Whether to read the command from the minibuffer before running utop. If nil, `utop-command' will be used without modification." :type 'boolean :safe 'booleanp) (defcustom utop-prompt #'utop-default-prompt "The function which create the prompt for utop." :type 'function :safe 'functionp) (defcustom utop-mode-hook nil "A hook that gets run when `utop-mode' is entered." :type 'hook) (defcustom utop-exit-hook nil "A hook that is run whenever `utop' is exited. This hook is only run if exiting actually kills the buffer." :type 'hook) (defcustom utop-load-packages-without-asking nil "Load packages from file local variables without asking" :type 'boolean :safe 'booleanp) (defcustom utop-capf-wait-interval 0.01 "Length of time to wait when polling for completion candidates." :type 'float :safe 'floatp) (defcustom utop-capf-max-wait-time 0.1 "Maximum time to wait before giving up on completion." :type 'float :safe 'floatp) (defface utop-prompt '((((background dark)) (:foreground "Cyan1")) (((background light)) (:foreground "blue"))) "The face used to highlight the prompt.") (defface utop-stdout nil "The face used to highlight messages coming from stdout.") (defface utop-stderr nil "The face used to highlight messages coming from stderr.") (defface utop-frozen '((t (:bold t))) "The face used to highlight text that has been sent to utop.") (defface utop-error '((t (:foreground "#ff4040" :bold t :underline t))) "The face used to highlight errors in phrases.") ;; +-----------------------------------------------------------------+ ;; | Constants | ;; +-----------------------------------------------------------------+ (defconst utop-buffer-name "*utop*" "The name of the buffer utop is running on.") (defconst utop-non-editable-properties '(read-only t rear-nonsticky (read-only face)) "List of text properties for the non-editable part of the buffer") ;; +-----------------------------------------------------------------+ ;; | Variables | ;; +-----------------------------------------------------------------+ (defvar-local utop-process nil "The Lisp-object for the utop sub-process") (defvar-local utop-prompt-min 0 "The point at the beginning of the current prompt.") (defvar-local utop-prompt-max 0 "The point at the end of the current prompt.") (defvar-local utop-input-prompt-max 0 "The point at the end of the last input prompt.") (defvar-local utop-output "" "The output of the utop sub-process not yet processed.") (defvar-local utop-command-number 0 "The number of the current command.") (defvar-local utop-completion nil "Current completion.") (defvar-local utop-capf-completion-candidates nil "Current completion when using capf.") (defvar-local utop-completion-prefixes nil "Prefixes for current completion.") (defvar-local utop-inhibit-check nil "When set to a non-nil value, always insert text, even if it is before the end of prompt.") (defvar-local utop-state nil "State of utop. It is one of: - edit: the user is typing a command - comp: waiting for completion - hist: waiting for history - wait: ocaml is evaluating a phrase - done: ocaml has died.") (defvar-local utop-complete-buffer nil "The buffer that requested completion.") (defvar-local utop-initial-command nil "Initial phrase to evaluate.") (defvar-local utop-initial-mode nil "Mode to evaluate utop-initial-command in (nil or :multi).") (defvar-local utop-phrase-terminator ";;" "The OCaml phrase terminator.") (defvar-local utop-pending-entry nil "History entry") (defvar-local utop-pending-position nil "The position of the cursor in the phrase sent to OCaml (where to add the newline character if it is not accepted).") (defvar-local utop-package-list nil "List of packages to load when visiting OCaml buffer. Useful as file variable.") (defvar-local utop-next-phrase-beginning 'utop-compat-next-phrase-beginning "The function used to find the beginning of the next phrase.") (defvar-local utop-discover-phrase 'utop-compat-discover-phrase "The function used to discover a phrase. It should return a triple (begin-pos, end-pos, end-pos-with-comments)." ) (defvar-local utop-skip-after-eval-phrase t "Whether to skip to next phrase after evaluation. Non-nil means skip to the end of the phrase after evaluation in the Caml toplevel") (defvar-local utop--complete-k (lambda (_candidates) '()) "continuation function to populate the candidates for the company backend") (defvar-local utop-protocol-version "0" "detected version of utop protocol. 0 for unknown or version pre") (defvar-local utop--read-version nil "whether we've tried to detect the utop version") (defvar-local utop--company-loaded nil) (defun utop--supports-company () (and ;; version< only works on version numbers (condition-case nil (version<= "1" utop-protocol-version) (error t)) (featurep 'company))) ;; +-----------------------------------------------------------------+ ;; | Compatibility with different ocaml major modes | ;; +-----------------------------------------------------------------+ (defun utop-compat-resolve (choices) "Resolve a symbol based on the current major mode. CHOICES is a list of 3 function symbols: (tuareg-symbol typerex-symbol caml-symbol)." (nth (pcase major-mode ('tuareg-mode 0) ('typerex-mode 1) ('caml-mode 2) ('reason-mode 3) (major-mode (error (format "utop doesn't support the major mode \"%s\". It supports caml, tuareg, typerex and reason modes by default. For other modes you need to set these variables: - `utop-next-phrase-beginning' - `utop-discover-phrase' " major-mode)))) choices)) (defun utop-tuareg-next-phrase () "Move to the next phrase after point." (let* ((pos (save-excursion (when (looking-at-p "[;[:blank:]]*$") (skip-chars-backward ";[:blank:]") (when (> (point) 1) (- (point) 1))))) (pos (if pos pos (point))) (phrase (tuareg-discover-phrase pos))) (when phrase (goto-char (caddr phrase)) (tuareg-skip-blank-and-comments) (when (looking-at ";;[ \t\n]*") (goto-char (match-end 0))) (tuareg-skip-blank-and-comments)))) (defun utop-compat-next-phrase-beginning () (funcall (utop-compat-resolve '(utop-tuareg-next-phrase typerex-skip-to-end-of-phrase caml-skip-to-end-of-phrase reason-next-phrase)))) (defun utop-compat-discover-phrase () (funcall (utop-compat-resolve '(tuareg-discover-phrase typerex-discover-phrase caml-find-phrase reason-discover-phrase)))) ;; +-----------------------------------------------------------------+ ;; | Utils | ;; +-----------------------------------------------------------------+ (defmacro utop-perform (&rest actions) "Execute the given actions while checks are inhibited." `(let ((utop-inhibit-check t) (inhibit-read-only t)) (progn ,@actions))) (defun utop-buffer () "Return the utop buffer." (get-buffer utop-buffer-name)) (defun utop-send-string (str) "Send a string to the utop process. This function can only be called in the utop buffer and while the state is not `done'." (process-send-string utop-process str)) (defun utop-send-command (str) "Send a command to utop. If utop is not running or has exited, it is started." (let ((buf (utop-buffer))) (unless buf (setq buf (save-excursion (utop)))) (with-current-buffer buf (when (eq utop-state 'done) (utop-restart)) (process-send-string utop-process str)))) (defun utop-insert (&rest args) "Insert text with checks inhibited." (utop-perform (apply 'insert args))) (defun utop-goto-point-max-all-windows () "Move the point to the end of buffer in all utop windows." (let ((buffer (utop-buffer))) (walk-windows (lambda (window) (when (eq (window-buffer window) buffer) (select-window window) (goto-char (point-max))))))) (defun utop-set-state (state) "Change the utop state and mode-line-process." (setq utop-state state) (setq mode-line-process (pcase state ('edit ": idle") ('comp ": completion") ('hist ": history") ('wait ": running") ('copy ": copying") ('done (let ((status (process-status utop-process)) (code (process-exit-status utop-process))) (cond ((and (eq status 'exit) (= code 0)) ": exited[0]") ((or (eq status 'exit) (eq status 'signal)) (let* ((status-name (pcase status ('exit "exited") ('signal "killed"))) (msg (concat ": " status-name "[" (int-to-string code) "]"))) (add-text-properties 0 (length msg) '(face bold) msg) msg)) (t ": unknown")))) (_ ": unknown")))) (defun utop-send-data (cmd) "Send current input to utop" (let ((lines (split-string (buffer-substring-no-properties utop-prompt-max (point-max)) "\n"))) (setq utop-input-prompt-max utop-prompt-max) ;; Send all lines to utop (utop-send-string cmd) (dolist (line lines) ;; Send the line (utop-send-string (concat "data:" line "\n"))) (utop-send-string "end:\n"))) ;; +-----------------------------------------------------------------+ ;; | Edition control | ;; +-----------------------------------------------------------------+ (defun utop-cannot-edit () (signal 'text-read-only (pcase utop-state ('wait "You cannot edit the buffer while ocaml is evaluating a phrase") ('done "You cannot edit the buffer when ocaml is not running") ('comp "You cannot edit the buffer while waiting for completion") ('copy "You cannot edit the buffer while waiting for copy of last input") ('hist "You cannot edit the buffer while waiting for history")))) (defun utop-before-change (_start stop) (unless utop-inhibit-check (cond ((not (eq utop-state 'edit)) (add-hook 'post-command-hook 'utop-add-change nil t) (utop-cannot-edit)) ((< stop utop-prompt-max) (add-hook 'post-command-hook 'utop-add-change nil t) (signal 'text-read-only '("You cannot edit this part of the buffer")))))) (defun utop-add-change () (remove-hook 'post-command-hook 'utop-add-change t) (add-hook 'before-change-functions 'utop-before-change nil t)) (defun utop-copy-old-input () (interactive) (with-current-buffer utop-buffer-name (when (eq utop-state 'edit) (utop-set-state 'copy) (setq utop-pending-entry nil) (utop-send-data "history-prev:\n")))) ;; +-----------------------------------------------------------------+ ;; | Prompt | ;; +-----------------------------------------------------------------+ (defun utop-default-prompt () "The default prompt function." (let ((prompt (format "utop[%d]> " utop-command-number))) (add-text-properties 0 (length prompt) '(face utop-prompt) prompt) prompt)) ;; +-----------------------------------------------------------------+ ;; | History | ;; +-----------------------------------------------------------------+ (defun utop-history-goto-prev () "Go to the previous entry of the history." (interactive) (with-current-buffer utop-buffer-name (when (eq utop-state 'edit) (utop-set-state 'hist) (setq utop-pending-entry nil) (utop-send-data "history-prev:\n")))) (defun utop-history-goto-next () "Go to the next entry of the history." (interactive) (with-current-buffer utop-buffer-name (when (eq utop-state 'edit) (utop-set-state 'hist) (setq utop-pending-entry nil) (utop-send-data "history-next:\n")))) (defun utop-save-history () "Save history to the history file." (interactive) (with-current-buffer utop-buffer-name (unless (eq utop-state 'done) (utop-send-string "save-history:\n")))) ;; +-----------------------------------------------------------------+ ;; | Receiving input from the utop sub-process | ;; +-----------------------------------------------------------------+ (defun utop-insert-output (output &optional face) "Insert the given output before the prompt." (let ((current-max (point-max))) (save-excursion (let ((line (concat output "\n"))) ;; Apply the given face if provided (when face (add-text-properties 0 (length line) (list 'face face) line)) ;; Goto before the prompt (goto-char utop-prompt-min) ;; Insert the output (insert line) ;; Advance the prompt (setq utop-prompt-min (+ utop-prompt-min (length line))) (setq utop-prompt-max (+ utop-prompt-max (length line))) ;; Make everything before the end prompt read-only (add-text-properties (point-min) utop-prompt-max utop-non-editable-properties))) ;; If OCaml is executing a phrase, follow its output (when (eq utop-state 'wait) (let ((buffer (utop-buffer))) (walk-windows (lambda (window) (when (eq (window-buffer window) buffer) (select-window window) ;; Only move the point if we were at the end of the ;; buffer (when (eq (point) current-max) (goto-char (point-max)))))))))) (defun utop-insert-prompt (prompt) "Insert the given prompt." ;; Goto the end of the buffer (goto-char (point-max)) ;; Make it the start of the prompt (setq utop-prompt-min (point)) ;; Insert the prompt (insert prompt) ;; Set the end of prompt (setq utop-prompt-max (point)) ;; Make everything before the end prompt read-only (add-text-properties (point-min) utop-prompt-max utop-non-editable-properties) ;; We are now editing (utop-set-state 'edit) ;; Move the point to the end of buffer in all utop windows (utop-goto-point-max-all-windows)) (defun utop-insert-phrase-terminator () "Insert the phrase terminator at the end of buffer." (re-search-forward ";*[ \t\n\r]*\\'") (goto-char (match-beginning 0)) (unless (looking-at-p ";;") (insert ";;"))) (defun utop-process-line (line) "Process one line from the utop sub-process." ;; Extract the command and its argument (string-match "\\`\\([a-z-]*\\):\\(.*\\)\\'" line) (let ((command (match-string 1 line)) (argument (match-string 2 line))) (pcase command ;; Output on stdout ("stdout" (utop-insert-output argument 'utop-stdout)) ;; Output on stderr ("stderr" (utop-insert-output argument 'utop-stderr)) ;; Synchronisation of the phrase terminator ("phrase-terminator" (setq utop-phrase-terminator argument)) ;; A new prompt ("prompt" (let ((prompt (apply utop-prompt ()))) ;; Insert the new prompt (utop-insert-prompt prompt) ;; Increment the command number (setq utop-command-number (+ utop-command-number 1)) ;; Send the initial command if any (when utop-initial-command (goto-char (point-max)) (insert utop-initial-command) (setq utop-initial-command nil) (utop-eval-input nil t nil utop-initial-mode) (setq utop-initial-mode nil)))) ;; Input has been accepted ("accept" ;; Add a newline character at the end of the buffer (goto-char (point-max)) (insert "\n") ;; Make input frozen (add-text-properties utop-prompt-max (point-max) '(face utop-frozen)) ;; Highlight errors (let ((offsets (split-string argument "," t))) (while offsets (let ((a (string-to-number (car offsets))) (b (string-to-number (cadr offsets)))) (add-text-properties (min (point-max) (+ utop-input-prompt-max a)) (min (point-max) (+ utop-input-prompt-max b)) '(face utop-error)) (setq offsets (cdr (cdr offsets)))))) ;; Make everything read-only (add-text-properties (point-min) (point-max) utop-non-editable-properties) ;; Advance the prompt (setq utop-prompt-min (point-max)) (setq utop-prompt-max (point-max))) ;; Continue editiong ("continue" ;; Add a newline character at the position where the user ;; pressed enter (when utop-pending-position (goto-char (+ utop-prompt-max utop-pending-position)) (insert "\n")) ;; Reset the state (utop-set-state 'edit)) ;; Part of a history entry ("history-data" (cond (utop-pending-entry (setq utop-pending-entry (concat utop-pending-entry "\n" argument))) (t (setq utop-pending-entry argument)))) ;; End of history data ("history-end" (progn (cond ((eq utop-state 'copy) (kill-new utop-pending-entry)) (t (goto-char utop-prompt-max) ;; Delete current input (delete-region utop-prompt-max (point-max)) ;; Insert entry (insert utop-pending-entry))) ;; Resume edition (utop-set-state 'edit))) ;; We are at a bound of history ("history-bound" ;; Just resume edition (utop-set-state 'edit)) ;; Complete with a word ("completion-word" (utop-set-state 'edit) (with-current-buffer utop-complete-buffer (insert argument)) ;; Hide completion (minibuffer-hide-completions)) ;; Start of completion ("completion-start" (setq utop-completion nil)) ;; A new possible completion ("completion" (catch 'done (dolist (prefix utop-completion-prefixes) ;; We need to handle specially prefixes like "List.m" as ;; the responses from utop don't include the module prefix. (let ((prefix (if (string-match-p "\\." prefix) (cadr (split-string prefix "\\.")) prefix))) (when (string-prefix-p prefix argument) (push argument utop-completion) (throw 'done t)))))) ;; End of completion ("completion-stop" (utop-set-state 'edit) (if (utop--supports-company) (funcall utop--complete-k (nreverse utop-completion)) (setq utop-capf-completion-candidates (nreverse utop-completion))) (setq utop-completion nil))))) (defun utop-process-output (_process output) "Process the output of utop" (with-current-buffer utop-buffer-name (utop-perform ;; Concatenate the output with the output not yet processed (setq utop-output (concat utop-output output)) ;; Split lines. Each line contains exactly one command (let ((lines (split-string utop-output "\n"))) (while (>= (length lines) 2) ;; process first line. if we haven't tried reading the version, we'll ;; trying to do it now. (let ((line (car lines))) (if utop--read-version (utop-process-line line) (progn (save-match-data (if (string-match "protocol-version:\\([0-9]+\\)" line) (setq utop-protocol-version (match-string 1 line)) (utop-process-line line))) (setq utop--read-version t))) ;; Remove it and continue (setq lines (cdr lines)))) ;; When the list contains only one element, then this is either ;; the end of commands, either an unterminated one, so we save ;; it for later (setq utop-output (car lines)))))) ;; +-----------------------------------------------------------------+ ;; | Sending data to the utop sub-process | ;; +-----------------------------------------------------------------+ (defun utop-eval-input (&optional allow-incomplete auto-end add-to-history input-multi) "Send the current input to the utop process and let ocaml evaluate it. If ALLOW-INCOMPLETE is non-nil and the phrase is not terminated, then a newline character will be inserted and edition will continue. If AUTO-END is non-nil then ALLOW-INCOMPLETE is ignored and the phrase terminator (;;) will be automatically inserted by utop. If ADD-TO-HISTORY is t then the input will be added to history." (interactive) (with-current-buffer utop-buffer-name (when (eq utop-state 'edit) ;; Clear saved pending position (setq utop-pending-position nil) ;; Insert the phrase terminator if requested (cond (auto-end (utop-insert-phrase-terminator)) (allow-incomplete ;; Save cursor position (setq utop-pending-position (- (point) utop-prompt-max)) ;; If the point is before the prompt, insert the newline ;; character at the end (when (< utop-pending-position 0) (setq utop-pending-position (- (point-max) utop-prompt-max))))) ;; We are now waiting for ocaml (utop-set-state 'wait) (utop-send-data (cond ((eq input-multi :multi) "input-multi:\n") ((and allow-incomplete (not auto-end) add-to-history) "input:allow-incomplete,add-to-history\n") (add-to-history "input:add-to-history\n") (t "input:\n")))))) (defun utop-eval-input-or-newline () "Same as (`utop-eval-input' t nil t)." (interactive) (utop-eval-input t nil t)) (defun utop-eval-input-auto-end () "Same as (`utop-eval-input' nil t t)." (interactive) (utop-eval-input nil t t)) ;; +-----------------------------------------------------------------+ ;; | Completion | ;; +-----------------------------------------------------------------+ (defun utop-complete-input (input) "Send input to complete to utop." ;; Split it (let ((lines (split-string input "\n"))) ;; We are now waiting for completion (utop-set-state 'comp) ;; Send all lines to utop (utop-send-string "complete-company:\n") ;; Keep track of the prefixes, so we can avoid returning ;; completion which don't have a match. (setq utop-completion-prefixes lines) (dolist (line lines) ;; Send the line (utop-send-string (concat "data:" line "\n"))) (utop-send-string "end:\n"))) (defun utop-complete-start () "Conditionally begins to request completion candidates from utop." ;; Complete only if the cursor is after the prompt (when (and (eq utop-state 'edit) (>= (point) utop-prompt-max)) ;; Use this buffer (setq utop-complete-buffer (current-buffer)) ;; Send the input before the cursor (utop-complete-input (buffer-substring-no-properties utop-prompt-max (point))))) (defun utop-completion-at-point () "Complete thing at point." (setq utop-capf-completion-candidates nil) (utop-complete-start) (let ((elapsed-time 0)) (while (and (eq utop-state 'comp) (> utop-capf-max-wait-time elapsed-time)) (sleep-for utop-capf-wait-interval) (setq elapsed-time (+ elapsed-time utop-capf-wait-interval)))) (when (>= (length utop-capf-completion-candidates) 1) (list utop-prompt-max (point) utop-capf-completion-candidates))) (defun utop-complete () "Complete current input." (interactive) (if (utop--supports-company) (utop-complete-start) (completion-at-point))) ;; +-----------------------------------------------------------------+ ;; | Eval | ;; +-----------------------------------------------------------------+ (defun utop-prepare-for-eval () "Prepare utop for evaluation." (save-excursion (let ((buf (utop-buffer))) (cond (buf ;; Make the buffer appear (display-buffer buf) (with-current-buffer buf (cond ((eq utop-state 'done) ;; UTop exited, restart it (utop-restart)) ((not (eq utop-state 'edit)) ;; Edition cannot be performed right now (utop-cannot-edit))))) (t ;; The buffer does not exist, read arguments before creating ;; it so the user can cancel starting utop (utop-query-arguments) ;; Create the buffer (setq buf (get-buffer-create utop-buffer-name)) ;; Make it appear (display-buffer buf) ;; Put it in utop mode (with-current-buffer buf (utop-mode))))))) (defun utop-eval-string (string &optional mode) (with-current-buffer utop-buffer-name (cond ((eq utop-state 'edit) ;; Insert it at the end of the utop buffer (goto-char (point-max)) (insert string) ;; Send input to utop now, telling it to automatically add the ;; phrase terminator (utop-eval-input nil t nil mode)) ((eq utop-state 'wait) ;; utop is starting, save the initial command to send (setq utop-initial-command string) (setq utop-initial-mode mode))))) (defun utop-eval (start end &optional mode) "Eval the given region in utop." ;; Select the text of the region (utop-eval-string (buffer-substring-no-properties start end) mode)) (defun utop-eval-region (start end) "Eval the current region in utop." (interactive "r") (utop-prepare-for-eval) (utop-eval start end :multi)) (defun utop-eval-phrase () "Eval the surrounding Caml phrase (or block) in utop." (interactive) (utop-prepare-for-eval) (let ((end)) (save-excursion (let ((triple (funcall utop-discover-phrase))) (setq end (nth 2 triple)) (utop-eval (nth 0 triple) (nth 1 triple)))) (when utop-skip-after-eval-phrase (goto-char end) (funcall utop-next-phrase-beginning)))) (defun utop-eval-buffer () "Send the buffer to utop." (interactive) (utop-prepare-for-eval) (utop-eval (point-min) (point-max) :multi)) (defun utop-edit-complete () "Completion in a caml/tuareg/typerex." (interactive) ;; Find the start of the current phrase (save-excursion (let* ((end (point)) (start (nth 0 (funcall utop-discover-phrase))) (input (buffer-substring-no-properties start end)) (edit-buffer (current-buffer))) ;; Start utop if needed (let ((utop-buffer (utop-buffer))) (unless utop-buffer ;; The buffer does not exist, read arguments before creating ;; it so the user can cancel starting utop (utop-query-arguments) ;; Create the buffer (setq utop-buffer (get-buffer-create utop-buffer-name)) ;; Put it in utop mode (with-current-buffer utop-buffer (utop-mode))) (with-current-buffer utop-buffer ;; Complete only if we are in edition mode (when (eq utop-state 'edit) ;; Use this buffer for completion (setq utop-complete-buffer edit-buffer) ;; Send the phrase to complete (utop-complete-input input))))))) ;; +-----------------------------------------------------------------+ ;; | Edition functions | ;; +-----------------------------------------------------------------+ (defun utop-bol () "Go to the beginning of line or to the end of the prompt." (interactive) (with-current-buffer utop-buffer-name (if (= (line-beginning-position) utop-prompt-min) (goto-char utop-prompt-max) (move-beginning-of-line 1)))) ;; +-----------------------------------------------------------------+ ;; | Switch to REPL | ;; +-----------------------------------------------------------------+ (defun utop-switch-to-repl (eob-p) "Switch to the inferior utop process buffer. With prefix argument EOB-P, positions cursor at end of buffer." (interactive "P") (if (get-buffer-process utop-buffer-name) (pop-to-buffer utop-buffer-name) (call-interactively #'utop)) (when eob-p (push-mark) (goto-char (point-max)))) (defun utop-switch-to-recent-buffer () "Switch to the most recently used `utop-minor-mode' buffer." (interactive) (let ((recent-utop-minor-mode-buffer (seq-find (lambda (buf) (with-current-buffer buf (bound-and-true-p utop-minor-mode))) (buffer-list)))) (if recent-utop-minor-mode-buffer (pop-to-buffer recent-utop-minor-mode-buffer) (message "utop: No recent OCaml buffer found.")))) ;; +-----------------------------------------------------------------+ ;; | Process control | ;; +-----------------------------------------------------------------+ (defun utop-interrupt () "Interrupt utop." (interactive) (with-current-buffer utop-buffer-name (interrupt-process utop-process))) (defun utop-kill () "Kill utop." (interactive) (with-current-buffer utop-buffer-name (kill-process utop-process))) (defun utop-exit (&optional exit-code) "Try to gracefully exit utop. EXIT-CODE is the exit code that should be returned by utop. It defaults to 0." (interactive) (with-current-buffer utop-buffer-name (unless (eq utop-state 'done) (utop-send-string (format "exit:%d\n" (or exit-code 0)))))) (defun utop-sentinel (_process _msg) "Callback for process's state change." (let ((buffer (utop-buffer))) ;; Do nothing if the buffer does not exist anymore (when buffer (with-current-buffer utop-buffer-name (let ((status (process-status utop-process))) (when (or (eq status 'exit) (eq status 'signal)) ;; The process is terminated (utop-set-state 'done) (let ((exit-code (process-exit-status utop-process))) (utop-perform ;; Insert a message at the end (goto-char (point-max)) (cond ((eq status 'exit) (insert "\n\nProcess utop exited with code " (number-to-string exit-code) "\n")) ((eq status 'signal) (insert "\n\nProcess utop has been killed by signal " (number-to-string exit-code) "\n"))) ;; Go to the end of the buffer (goto-char (point-max)) ;; Make the whole buffer read-only (add-text-properties (point-min) (point-max) utop-non-editable-properties))))))))) ;; +-----------------------------------------------------------------+ ;; | ocamlfind package loading | ;; +-----------------------------------------------------------------+ (defun utop-ocamlfind-list-packages () "Return the list of all findlib packages with their version." (let ((lines (split-string (shell-command-to-string "ocamlfind list") "[ \t]*\r?\n"))) (let ((packages)) ;; Split lines and extract package names and versions (mapc (lambda (line) (when (string-match "\\([^ \t(]*\\)[ \t]*(version:[ \t]*\\([^)]*\\))" line) (push (cons (match-string 1 line) (match-string 2 line)) packages))) lines) (nreverse packages)))) (define-derived-mode utop-list-packages-mode tabulated-list-mode "OCaml package list" "Major mode for listing the findlib OCaml packages." (setq tabulated-list-format [("Name" 32 t) ("Version" 32 t)]) (setq tabulated-list-sort-key (cons "Name" nil)) (setq tabulated-list-printer 'utop-package-printer) (add-hook 'tabulated-list-revert-hook 'utop-list-packages--refresh nil t) (tabulated-list-init-header)) (defun utop-list-packages--refresh () "Refresh the list of findlib packages." (interactive) ;; Clear up list of entries (setq tabulated-list-entries nil) ;; Get the list of packages (let* ((packages (utop-ocamlfind-list-packages)) (max-name-length 0)) ;; Find the longest package name (mapc (lambda (package) (setq max-name-length (max max-name-length (length (car package))))) packages) ;; Minimal size of the name entry shall be 16 characters (setq max-name-length (1+ (max max-name-length 16))) ;; Set the header column size to the maximal length (setcdr (elt tabulated-list-format 0) (list max-name-length t)) ;; Build a list, accumulating in tabulated-list-entries (dolist (package packages) (let* ((package package) (name (car package)) (version (cdr package))) (push (list package (vector name version)) tabulated-list-entries)))) (setq tabulated-list-entries (nreverse tabulated-list-entries))) (defun utop-package-printer (_id cols) "Print one findlib package entry." (let ((width (cadr (elt tabulated-list-format 0)))) (insert-text-button (elt cols 0) 'follow-link t 'action 'utop-require-package-button-action) (insert-char ?\s (- width (length (elt cols 0)))) (insert (elt cols 1) "\n"))) (defun utop-load-package (package) (when (or utop-load-packages-without-asking (y-or-n-p (format "Load package `%s'? " package))) ;; Load it (utop-send-command (format "require:%s\n" package)))) (defun utop-require-package-button-action (button) (utop-load-package (button-label button))) (defun utop-list-ocaml-packages (&optional buffer) "Display a list of all ocaml findlib packages" (interactive) (unless (bufferp buffer) (setq buffer (get-buffer-create "*Findlib packages*"))) (with-current-buffer buffer (utop-list-packages-mode) (utop-list-packages--refresh) (tabulated-list-print t) (display-buffer buffer))) (defun utop-query-load-package-list () "Load packages defined in utop-package-list buffer local variable." (when (and utop-package-list (y-or-n-p "You've defined utop-package-list variable, but uTop toplevel is not running, would you like me to start the toplevel?")) (with-current-buffer (utop)) (mapc 'utop-load-package utop-package-list) (message "uTop: OCaml packages loaded by file local variables"))) (defun utop-hack-local-variables () "Perform actions defined by local variables" (utop-query-load-package-list)) ;; +-----------------------------------------------------------------+ ;; | The minor mode | ;; +-----------------------------------------------------------------+ (defun utop-arguments () "Get argument list from the given command line of utop." ;; Split the command line (let ((arguments (split-string-and-unquote utop-command))) ;; Ensure it contains at least one argument (when (not arguments) (error "The utop command line is empty")) arguments)) (defun utop-query-arguments () "Return the arguments of the utop command to run." ;; Read the command to run (when utop-edit-command (setq utop-command (read-shell-command "utop command line: " utop-command))) (utop-arguments)) (defun utop-start (arguments) "Start utop given ARGUMENTS." ;; Reset variables (setq utop-prompt-min (point-max)) (setq utop-prompt-max (point-max)) (setq utop-input-prompt-max (point-max)) (setq utop-output "") (setq utop-command-number 0) (setq utop-completion nil) ;; Set the state to done to allow utop to be restarted if ;; start-process fails (setq utop-state 'done) ;; Create the sub-process (setq utop-process (apply 'start-process "utop" (current-buffer) (car arguments) (cdr arguments))) ;; Set the initial state: we are waiting for ocaml to send the ;; initial prompt (utop-set-state 'wait) ;; Filter the output of the sub-process with our filter function (set-process-filter utop-process 'utop-process-output) ;; Set the process sentinel (set-process-sentinel utop-process 'utop-sentinel)) (defun utop-restart () "Restart utop." (let ((arguments (utop-query-arguments))) (goto-char (point-max)) (utop-insert "\nRestarting...\n\n") (utop-start arguments))) (defun utop--state () "Retrieve the state of the utop buffer." ;; we can either be in the utop buffer itself (if (derived-mode-p 'utop-mode) utop-state ;; or in another buffer (let ((buf (utop-buffer))) (when buf (with-current-buffer buf utop-state))))) ;;;###autoload (define-minor-mode utop-minor-mode "Minor mode for utop." :lighter " utop" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "C-c C-s") #'utop) (define-key map (kbd "C-x C-e") #'utop-eval-phrase) (define-key map (kbd "C-c C-e") #'utop-eval-phrase) (define-key map (kbd "C-x C-r") #'utop-eval-region) (define-key map (kbd "C-c C-b") #'utop-eval-buffer) (define-key map (kbd "C-c C-k") #'utop-kill) (define-key map (kbd "C-c C-z") #'utop-switch-to-repl) (easy-menu-define utop-minor-mode-menu map "utop menu." '("utop" ["Start utop" utop t] ["Switch to utop" utop-switch-to-repl t] ["Interrupt utop" utop-interrupt :active (utop-running-p)] ["Kill utop" utop-kill :active (utop-running-p)] ["Exit utop gracefully" utop-exit :active (utop-running-p)] "---" ["Evaluate phrase" utop-eval-phrase :active (and (utop-running-p) (eq (utop--state) 'edit))] ["Evaluate region" utop-eval-region :active (and (utop-running-p) (eq (utop--state) 'edit))] ["Evaluate buffer" utop-eval-buffer :active (and (utop-running-p) (eq (utop--state) 'edit))] "---" ["Customize utop" (customize-group 'utop) t] "---" ["About" utop-about t] ["Help" utop-help t])) map) ;; Load local file variables (add-hook 'hack-local-variables-hook 'utop-hack-local-variables)) (defvar company-backends) ;; +-----------------------------------------------------------------+ ;; | The major mode | ;; +-----------------------------------------------------------------+ (defun utop-running-p () (let ((buf (utop-buffer))) (when buf (with-current-buffer buf (and utop-process (eq (process-status utop-process) 'run)))))) (define-obsolete-function-alias 'utop-is-running 'utop-running-p "2.0") (defun utop-about () (interactive) (describe-variable 'utop-license)) (defun utop-help () (interactive) (describe-function 'utop)) (defvar utop-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "RET") #'utop-eval-input-or-newline) (define-key map (kbd "C-m") #'utop-eval-input-or-newline) (define-key map (kbd "C-j") #'utop-eval-input-auto-end) (define-key map (kbd "") #'utop-bol) (define-key map (kbd "C-a") #'utop-bol) (define-key map (kbd "M-p") #'utop-history-goto-prev) (define-key map (kbd "M-n") #'utop-history-goto-next) (define-key map (kbd "TAB") #'utop-complete) (define-key map (kbd "C-c C-c") #'utop-interrupt) (define-key map (kbd "C-c C-i") #'utop-interrupt) (define-key map (kbd "C-c C-k") #'utop-kill) (define-key map (kbd "C-c C-g") #'utop-exit) (define-key map (kbd "C-c C-s") #'utop) (define-key map (kbd "C-c C-z") #'utop-switch-to-recent-buffer) (define-key map (kbd "C-c m") #'utop-copy-old-input) (easy-menu-define utop-menu map "utop menu." '("utop" ["Start utop" utop t] ["Interrupt utop" utop-interrupt :active (utop-running-p)] ["Kill utop" utop-kill :active (utop-running-p)] ["Exit utop gracefully" utop-exit :active (utop-running-p)] "---" ["Evaluate Phrase" utop-eval-input-auto-end :active (and (utop-running-p) (eq utop-state 'edit))] ["Switch to OCaml source buffer" utop-switch-to-recent-buffer t] "---" ["Customize utop" (customize-group 'utop) t] "---" ["About" utop-about t] ["Help" utop-help t])) map) "The utop local keymap.") ;;;###autoload (define-derived-mode utop-mode fundamental-mode "utop" "Set the buffer mode to utop." ;; Set the hook to call before changing the buffer (add-hook 'before-change-functions 'utop-before-change nil t) ;; Register the exit hook (add-hook 'kill-buffer-hook (lambda () (run-hooks 'utop-exit-hook)) t t) ;; Save history before killing the buffer (add-hook 'kill-buffer-query-functions (lambda () (utop-save-history) t) nil t) ;; add company completion hook: (with-eval-after-load 'company (add-to-list 'company-backends #'utop-company-backend)) (add-hook 'completion-at-point-functions #'utop-completion-at-point nil 'local) ;; Start utop (utop-start (utop-arguments))) ;; +-----------------------------------------------------------------+ ;; | Starting utop | ;; +-----------------------------------------------------------------+ ;;;###autoload (defun utop () "A universal toplevel for OCaml. url: https://github.com/ocaml-community/utop utop is a enhanced toplevel for OCaml with many features, including context sensitive completion. This is the emacs frontend for utop. You can use the utop buffer as a standard OCaml toplevel. To complete an identifier, simply press TAB. Special keys for utop: \\{utop-mode-map}" (interactive) (let ((buf (utop-buffer))) (cond (buf ;; Jump to the buffer (pop-to-buffer buf) ;; Restart utop if it exited (when (eq utop-state 'done) (utop-restart))) (t ;; The buffer does not exist, read the command line before ;; creating it so if the user quit it won't be created (utop-query-arguments) ;; Create the buffer (setq buf (get-buffer-create utop-buffer-name)) ;; Jump to the buffer - If utop-command is used as a ;; buffer-local variable we pass the value along to the utop ;; buffer. (let ((cmd utop-command)) (pop-to-buffer buf) (setq utop-command cmd) ;; Put it in utop mode (with-current-buffer buf (utop-mode))))) buf)) (declare-function company-begin-backend "ext:company") (declare-function company-grab-symbol-cons "ext:company") (defun utop-company-backend (command &optional _arg &rest _ignored) "Perform an action determined by COMMAND." (interactive (list 'interactive)) (pcase command ('interactive (company-begin-backend 'utop-company-backend)) ('sorted t) ('prefix (and (derived-mode-p 'utop-mode) (or (company-grab-symbol-cons "\\." 1) 'stop))) ('candidates (progn `(:async . ,(lambda (k) (setq utop--complete-k k) (call-interactively #'utop-complete))))))) (provide 'utop-minor-mode) (provide 'utop) ;;; utop.el ends here utop-2.15.0/src/top/utop.ml000066400000000000000000000002711472111175200155010ustar00rootroot00000000000000(* * uTop_start.ml * ------------- * Copyright : (c) 2012, Jeremie Dimino * Licence : BSD3 * * This file is a part of utop. *) let () = UTop_main.main () utop-2.15.0/test/000077500000000000000000000000001472111175200135465ustar00rootroot00000000000000utop-2.15.0/test/dune000066400000000000000000000001011472111175200144140ustar00rootroot00000000000000(test (name test_lib) (modes byte) (libraries alcotest utop)) utop-2.15.0/test/test_lib.ml000066400000000000000000000005551472111175200157120ustar00rootroot00000000000000let test_fix_string = let test ~name input ~expected = (name, `Quick, fun () -> let got = UTop.Private.fix_string input in Alcotest.check Alcotest.string __LOC__ expected got ) in ( "fix_string" , [ test ~name:"small" "x" ~expected:"x" ; test ~name:"empty" "" ~expected:"" ] ) let () = Alcotest.run "utop" [test_fix_string] utop-2.15.0/test/test_lib.mli000066400000000000000000000000141472111175200160510ustar00rootroot00000000000000(* empty *) utop-2.15.0/utop.opam000066400000000000000000000022451472111175200144370ustar00rootroot00000000000000# This file is generated by dune, edit dune-project instead opam-version: "2.0" synopsis: "Universal toplevel for OCaml" description: "utop is an improved toplevel (i.e., Read-Eval-Print Loop or REPL) for OCaml. It can run in a terminal or in Emacs. It supports line edition, history, real-time and context sensitive completion, colors, and more. It integrates with the Tuareg mode in Emacs." maintainer: ["jeremie@dimino.org"] authors: ["Jérémie Dimino"] license: "BSD-3-Clause" homepage: "https://github.com/ocaml-community/utop" doc: "https://ocaml-community.github.io/utop/" bug-reports: "https://github.com/ocaml-community/utop/issues" depends: [ "dune" {>= "2.7"} "ocaml" {>= "4.11.0"} "base-unix" "base-threads" "ocamlfind" {>= "1.7.2"} "lambda-term" {>= "3.1.0" & < "4.0"} "logs" "lwt" "lwt_react" "zed" {>= "3.2.0"} "react" {>= "1.0.0"} "cppo" {>= "1.1.2"} "alcotest" {with-test} "xdg" {>= "3.9.0"} "odoc" {with-doc} ] build: [ ["dune" "subst"] {dev} [ "dune" "build" "-p" name "-j" jobs "@install" "@runtest" {with-test} "@doc" {with-doc} ] ] dev-repo: "git+https://github.com/ocaml-community/utop.git" utop-2.15.0/utoprc-dark000066400000000000000000000012611472111175200147450ustar00rootroot00000000000000! -*- conf-xdefaults -*- ! Copy this file to $XDG_CONFIG_HOME/utoprc (~/.config/utoprc) ! Common resources profile: dark identifier.foreground: none module.foreground: x-palegreen comment.foreground: x-chocolate1 doc.foreground: x-light-salmon constant.foreground: x-aquamarine keyword.foreground: x-cyan1 symbol.foreground: x-cyan1 string.foreground: x-light-salmon char.foreground: x-light-salmon quotation.foreground: x-purple error.foreground: red directive.foreground: x-lightsteelblue parenthesis.background: blue ! uncomment the next line to disable autoload files ! autoload: false utop-2.15.0/utoprc-light000066400000000000000000000012621472111175200151340ustar00rootroot00000000000000! -*- conf-xdefaults -*- ! Copy this file to $XDG_CONFIG_HOME/utoprc (~/.config/utoprc) ! Common resources profile: light identifier.foreground: none module.foreground: x-forestgreen comment.foreground: x-firebrick doc.foreground: x-violetred4 constant.foreground: x-darkcyan keyword.foreground: x-purple symbol.foreground: x-purple string.foreground: x-violetred4 char.foreground: x-violetred4 quotation.foreground: x-purple error.foreground: red directive.foreground: x-mediumorchid4 parenthesis.background: light-blue ! uncomment the next line to disable autoload files ! autoload: false