From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Robert Brown Newsgroups: gmane.emacs.bugs Subject: bug#9130: 23.3; Lisp mode doc string enhancment Date: Tue, 25 Mar 2014 13:54:22 -0400 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary=089e0111de62c6499104f5720af6 X-Trace: ger.gmane.org 1395770934 12613 80.91.229.3 (25 Mar 2014 18:08:54 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 25 Mar 2014 18:08:54 +0000 (UTC) Cc: 9130@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Mar 25 19:09:03 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WSVmX-0002z0-1u for geb-bug-gnu-emacs@m.gmane.org; Tue, 25 Mar 2014 19:09:01 +0100 Original-Received: from localhost ([::1]:43372 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WSVmW-0005qh-3T for geb-bug-gnu-emacs@m.gmane.org; Tue, 25 Mar 2014 14:09:00 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43780) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WSVmB-0005Io-82 for bug-gnu-emacs@gnu.org; Tue, 25 Mar 2014 14:08:54 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WSVZ0-0007du-S0 for bug-gnu-emacs@gnu.org; Tue, 25 Mar 2014 13:55:09 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:48418) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WSVZ0-0007dG-M7 for bug-gnu-emacs@gnu.org; Tue, 25 Mar 2014 13:55:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WSVYz-0008Ux-Va for bug-gnu-emacs@gnu.org; Tue, 25 Mar 2014 13:55:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Robert Brown Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 25 Mar 2014 17:55:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 9130 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 9130-submit@debbugs.gnu.org id=B9130.139577006732588 (code B ref 9130); Tue, 25 Mar 2014 17:55:01 +0000 Original-Received: (at 9130) by debbugs.gnu.org; 25 Mar 2014 17:54:27 +0000 Original-Received: from localhost ([127.0.0.1]:49600 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WSVYQ-0008TX-9R for submit@debbugs.gnu.org; Tue, 25 Mar 2014 13:54:27 -0400 Original-Received: from mail-oa0-f46.google.com ([209.85.219.46]:40668) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WSVYN-0008TO-Jf for 9130@debbugs.gnu.org; Tue, 25 Mar 2014 13:54:24 -0400 Original-Received: by mail-oa0-f46.google.com with SMTP id i7so1011055oag.19 for <9130@debbugs.gnu.org>; Tue, 25 Mar 2014 10:54:22 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; bh=Bu5j/x6b0YcDVr0uQSy0b3z4iLgOm2wLsNIu/33L2Y4=; b=cplbmGhMuP/KCNVVcI+6SmhUeKOg990BwKR5G5xMplw2/UKBlfnHmLcHV79qDWHSNd OExEMMJ37PVFG0kwPtArFmkFbqQhebXRH3OFd/WiR1S7imXZOVrg2DlKAKCSY+4KUx2g WT4uZUd9ysRuo7BrnaoWRLbnAfycyPJTl9J9pUpbMRCFJRHqKkRYndf3pP+3906Fhpbv K01xDENleeLz3Kjl/Kecetfl6CHRh3+rgdguPvnKcsPNDWFQ8c2fDYGafGQxrQhXb73b XuvL78NsM0g0UpBfzjYw955IpOC/HS5MwLPWsMNInFDIE3UKqAlszHXKohHCbFKWitva M0Bw== X-Received: by 10.60.78.165 with SMTP id c5mr75773oex.83.1395770062677; Tue, 25 Mar 2014 10:54:22 -0700 (PDT) Original-Received: by 10.182.226.135 with HTTP; Tue, 25 Mar 2014 10:54:22 -0700 (PDT) In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:87370 Archived-At: --089e0111de62c6499104f5720af6 Content-Type: text/plain; charset=ISO-8859-1 I have converted the change into a patch made with diff and have included it as an attachment. The patch is relative to Emacs version 24.3. EIEIO supports defclass with :documentation strings, so I think the detection of such strings should be active in both emacs-lisp-mode and lisp-mode. Bob On Tue, Aug 2, 2011 at 4:01 PM, Stefan Monnier wrote: > severity 9130 wishlist > tags 9130 patch > thanks > >> Here is a change that enhances Lisp mode fontification to handle >> documentation of the form > >> (:documentation "the doc string") > > Thanks. That looks like a useful addition. Could you try and make it > an actual patch (as output by `diff' and friends), also could you also > make sure your code uses a proper prefix ("lisp-") for all the functions > it defines, and finally could you make sure it's only enabled when it's > useful (I don't think we support such :documentation thingies in Elisp > (tho maybe EIEIO does) so it should only be enabled in lisp-mode but > not in emacs-lisp-mode). > > There's time for that: we're in feature freeze for Emacs-24.1, so we > won't install such a change before early next year. > > > Stefan > > >> These kinds of documentation forms are used in Common Lisp code for CLOS >> class and slot documentation. > >> To apply the patch, replace lisp-font-lock-syntactic-face-function in >> share/emacs/23.3/lisp/emacs-lisp/lisp-mode.el with the three functions >> below: > >> (defun string-in-doc-position-p (state) >> (let* ((listbeg (nth 1 state)) >> (firstsym (and listbeg >> (save-excursion >> (goto-char listbeg) >> (and (looking-at "([ \t\n]*\\(\\(\\sw\\|\\s_\\)+\\)") >> (match-string 1))))) >> (docelt (and firstsym (get (intern-soft firstsym) >> lisp-doc-string-elt-property)))) >> (and docelt >> ;; It's a string in a form that can have a docstring. >> ;; Check whether it's in docstring position. >> (save-excursion >> (when (functionp docelt) >> (goto-char (match-end 1)) >> (setq docelt (funcall docelt))) >> (goto-char listbeg) >> (forward-char 1) >> (condition-case nil >> (while (and (> docelt 0) (< (point) startpos) >> (progn (forward-sexp 1) t)) >> (setq docelt (1- docelt))) >> (error nil)) >> (and (zerop docelt) (<= (point) startpos) >> (progn (forward-comment (point-max)) t) >> (= (point) (nth 8 state))))))) > >> (defun string-after-documentation-keyword-p (state) >> (and (nth 1 state) ; we are inside a Lisp form >> (let ((startpos (nth 8 state))) >> (and startpos >> (let ((ok nil) >> (prevsym (save-excursion >> (goto-char startpos) >> (condition-case nil >> (progn (backward-sexp 1) (setf ok t)) >> (error nil)) >> (and ok >> (looking-at "\\(\\sw+\\)") >> (match-string 1))))) >> (equal prevsym ":documentation")))))) > >> (defun lisp-font-lock-syntactic-face-function (state) >> (if (nth 3 state) >> ;; This might be a (doc)string or a |...| symbol. >> (let ((startpos (nth 8 state))) >> (if (eq (char-after startpos) ?|) >> ;; This is not a string, but a |...| symbol. >> nil >> (if (or (string-in-doc-position-p state) >> (string-after-documentation-keyword-p state)) >> font-lock-doc-face >> font-lock-string-face))) >> font-lock-comment-face)) > > > >> In GNU Emacs 23.3.1 (x86_64-unknown-linux-gnu) >> of 2011-07-15 on paradicsom.nyc.corp.google.com >> configured using `configure '--prefix' '/local/software/package/emacs-23.3.1' '--without-x'' > >> Important settings: >> value of $LC_ALL: nil >> value of $LC_COLLATE: C >> value of $LC_CTYPE: nil >> value of $LC_MESSAGES: nil >> value of $LC_MONETARY: C >> value of $LC_NUMERIC: C >> value of $LC_TIME: C >> value of $LANG: en_US.UTF-8 >> value of $XMODIFIERS: nil >> locale-coding-system: utf-8-unix >> default enable-multibyte-characters: t > >> Major mode: Emacs-Lisp > >> Minor modes in effect: >> file-name-shadow-mode: t >> global-font-lock-mode: t >> font-lock-mode: t >> auto-encryption-mode: t >> auto-compression-mode: t >> line-number-mode: t > >> Recent input: >> ESC [ > 1 ; 2 3 0 5 ; 0 c C-x C-f . e m a c s RET C-v >> C-v C-v C-v C-v C-v C-v C-v C-v C-v C-v C-v ESC v ESC >> v ESC v ESC v ESC v ESC v C-v C-v C-v C-v C-a C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-l C-v C-v C-v ESC v ESC v ESC v ESC v ESC v ESC v >> ESC v ESC v ESC v ESC v ESC v ESC v ESC v ESC v ESC >> v ESC v ESC v C-v C-l C-u C-u C-n C-n C-n DEL C-x SPC >> SPC C-a C-x C-s C-v C-x C-s C-v C-v C-v C-v ESC v C-v >> C-n C-n C-n C-n C-n C-n C-n C-n C-l C-u C-p C-p C-p >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n >> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-l ESC >> x r e p o r t - e m a c s - b u g RET > >> Recent messages: >> ("emacs") >> Loading /local/software/source-trees/emacs-jabber/jabber-autoloads.el (source)...done >> call-interactively: Beginning of buffer [3 times] >> Saving file /home/brown/.emacs... >> Wrote /home/brown/.emacs >> (No changes need to be saved) > >> Load-path shadows: >> /local/software/source-trees/cc-mode/cc-fonts hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-fonts >> /local/software/source-trees/cc-mode/cc-align hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-align >> /local/software/source-trees/cc-mode/cc-menus hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-menus >> /local/software/source-trees/cc-mode/cc-engine hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-engine >> /local/software/source-trees/cc-mode/cc-mode hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-mode >> /local/software/source-trees/cc-mode/cc-awk hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-awk >> /local/software/source-trees/cc-mode/cc-defs hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-defs >> /local/software/source-trees/cc-mode/cc-vars hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-vars >> /local/software/source-trees/cc-mode/cc-styles hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-styles >> /local/software/source-trees/cc-mode/cc-bytecomp hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-bytecomp >> /local/software/source-trees/cc-mode/cc-compat hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-compat >> /local/software/source-trees/cc-mode/cc-cmds hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-cmds >> /local/software/source-trees/cc-mode/cc-langs hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/progmodes/cc-langs >> /local/software/package/org-5.13e/org-publish hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/org/org-publish >> /local/software/package/org-5.13e/org hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/org/org >> /local/software/package/org-5.13e/org-install hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/org/org-install >> /local/software/package/org-5.13e/org-mouse hides /local/software/package/emacs-23.3.1/share/emacs/23.3/lisp/org/org-mouse > >> Features: >> (shadow sort mail-extr message ecomplete rfc822 mml easymenu mml-sec >> password-cache mm-decode mm-bodies mm-encode mailcap mail-parse rfc2231 >> rfc2047 rfc2045 qp ietf-drums mailabbrev nnheader gnus-util netrc >> time-date mm-util mail-prsvr gmm-utils wid-edit mailheader canlock sha1 >> hex-util hashcash mail-utils warnings emacsbug uniquify advice help-fns >> advice-preload slime-autoloads regexp-opt cl cl-19 ediff-hook vc-hooks >> lisp-float-type lisp-mode register page menu-bar rfn-eshadow timer >> jit-lock font-lock syntax facemenu font-core frame cham georgian >> utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean >> japanese hebrew greek romanian slovak czech european ethiopic indian >> cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev >> loaddefs button minibuffer faces cus-face files text-properties overlay >> md5 base64 format env code-pages mule custom widget >> hashtable-print-readable backquote make-network-process multi-tty emacs) > > --089e0111de62c6499104f5720af6 Content-Type: application/octet-stream; name=patch Content-Disposition: attachment; filename=patch Content-Transfer-Encoding: base64 X-Attachment-Id: f_ht7hg2r60 KioqIGxpc3AtbW9kZS5lbC5+MX4JMjAxNC0wMy0yNSAxMzoyOToxMS40OTgxMzE3MTYgLTA0MDAK LS0tIGxpc3AtbW9kZS5lbAkyMDE0LTAzLTI1IDEzOjQ2OjMwLjUxNjAxMTQxMiAtMDQwMAoqKioq KioqKioqKioqKioKKioqIDE1MCwxNTUgKioqKgotLS0gMTUwLDE5NSAtLS0tCiAgKGRlZnZhciBs aXNwLWRvYy1zdHJpbmctZWx0LXByb3BlcnR5ICdkb2Mtc3RyaW5nLWVsdAogICAgIlRoZSBzeW1i b2wgcHJvcGVydHkgdGhhdCBob2xkcyB0aGUgZG9jc3RyaW5nIHBvc2l0aW9uIGluZm8uIikKICAK KyAoZGVmdW4gbGlzcC1zdHJpbmctaW4tZG9jLXBvc2l0aW9uLXAgKGxpc3RiZWcgc3RhcnRwb3Mp CisgICAobGV0KiAoKGZpcnN0c3ltIChhbmQgbGlzdGJlZworICAgICAgICAgICAgICAgICAgICAg ICAgIChzYXZlLWV4Y3Vyc2lvbgorICAgICAgICAgICAgICAgICAgICAgICAgICAgKGdvdG8tY2hh ciBsaXN0YmVnKQorICAgICAgICAgICAgICAgICAgICAgICAgICAgKGFuZCAobG9va2luZy1hdCAi KFsgXHRcbl0qXFwoXFwoXFxzd1xcfFxcc19cXCkrXFwpIikKKyAgICAgICAgICAgICAgICAgICAg ICAgICAgICAgICAgKG1hdGNoLXN0cmluZyAxKSkpKSkKKyAgICAgICAgICAoZG9jZWx0IChhbmQg Zmlyc3RzeW0KKyAgICAgICAgICAgICAgICAgICAgICAgKGZ1bmN0aW9uLWdldCAoaW50ZXJuLXNv ZnQgZmlyc3RzeW0pCisgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGlzcC1k b2Mtc3RyaW5nLWVsdC1wcm9wZXJ0eSkpKSkKKyAgICAgKGFuZCBkb2NlbHQKKyAgICAgICAgICA7 OyBJdCdzIGEgc3RyaW5nIGluIGEgZm9ybSB0aGF0IGNhbiBoYXZlIGEgZG9jc3RyaW5nLgorICAg ICAgICAgIDs7IENoZWNrIHdoZXRoZXIgaXQncyBpbiBkb2NzdHJpbmcgcG9zaXRpb24uCisgICAg ICAgICAgKHNhdmUtZXhjdXJzaW9uCisgICAgICAgICAgICAod2hlbiAoZnVuY3Rpb25wIGRvY2Vs dCkKKyAgICAgICAgICAgICAgKGdvdG8tY2hhciAobWF0Y2gtZW5kIDEpKQorICAgICAgICAgICAg ICAoc2V0cSBkb2NlbHQgKGZ1bmNhbGwgZG9jZWx0KSkpCisgICAgICAgICAgICAoZ290by1jaGFy IGxpc3RiZWcpCisgICAgICAgICAgICAoZm9yd2FyZC1jaGFyIDEpCisgICAgICAgICAgICAoY29u ZGl0aW9uLWNhc2UgbmlsCisgICAgICAgICAgICAgICAgKHdoaWxlIChhbmQgKD4gZG9jZWx0IDAp ICg8IChwb2ludCkgc3RhcnRwb3MpCisgICAgICAgICAgICAgICAgICAgICAgICAgICAgKHByb2du IChmb3J3YXJkLXNleHAgMSkgdCkpCisgICAgICAgICAgICAgICAgICAoc2V0cSBkb2NlbHQgKDEt IGRvY2VsdCkpKQorICAgICAgICAgICAgICAoZXJyb3IgbmlsKSkKKyAgICAgICAgICAgIChhbmQg KHplcm9wIGRvY2VsdCkgKDw9IChwb2ludCkgc3RhcnRwb3MpCisgICAgICAgICAgICAgICAgIChw cm9nbiAoZm9yd2FyZC1jb21tZW50IChwb2ludC1tYXgpKSB0KQorICAgICAgICAgICAgICAgICAo PSAocG9pbnQpIHN0YXJ0cG9zKSkpKSkpCisgCisgKGRlZnVuIGxpc3Atc3RyaW5nLWFmdGVyLWRv Yy1rZXl3b3JkLXAgKGxpc3RiZWcgc3RhcnRwb3MpCisgICAoYW5kIGxpc3RiZWcgICAgICAgICAg ICAgICAgICAgICAgICAgIDsgd2UgYXJlIGluc2lkZSBhIExpc3AgZm9ybQorICAgICAgICAobGV0 KiAoKG9rIG5pbCkKKyAgICAgICAgICAgICAgIChwcmV2c3ltIChzYXZlLWV4Y3Vyc2lvbgorICAg ICAgICAgICAgICAgICAgICAgICAgICAoZ290by1jaGFyIHN0YXJ0cG9zKQorICAgICAgICAgICAg ICAgICAgICAgICAgICAoY29uZGl0aW9uLWNhc2UgbmlsCisgICAgICAgICAgICAgICAgICAgICAg ICAgICAgICAocHJvZ24gKGJhY2t3YXJkLXNleHAgMSkgKHNldGYgb2sgdCkpCisgICAgICAgICAg ICAgICAgICAgICAgICAgICAgKGVycm9yIG5pbCkpCisgICAgICAgICAgICAgICAgICAgICAgICAg IChhbmQgb2sKKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobG9va2luZy1hdCAiXFwo XFxzdytcXCkiKQorICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChtYXRjaC1zdHJpbmcg MSkpKSkpCisgICAgICAgICAgKGVxdWFsIHByZXZzeW0gIjpkb2N1bWVudGF0aW9uIikpKSkKKyAK ICAoZGVmdW4gbGlzcC1mb250LWxvY2stc3ludGFjdGljLWZhY2UtZnVuY3Rpb24gKHN0YXRlKQog ICAgKGlmIChudGggMyBzdGF0ZSkKICAgICAgICA7OyBUaGlzIG1pZ2h0IGJlIGEgKGRvYylzdHJp bmcgb3IgYSB8Li4ufCBzeW1ib2wuCioqKioqKioqKioqKioqKgoqKiogMTU3LDE4OCAqKioqCiAg ICAgICAgICAoaWYgKGVxIChjaGFyLWFmdGVyIHN0YXJ0cG9zKSA/fCkKICAgICAgICAgICAgICA7 OyBUaGlzIGlzIG5vdCBhIHN0cmluZywgYnV0IGEgfC4uLnwgc3ltYm9sLgogICAgICAgICAgICAg IG5pbAohICAgICAgICAgICAobGV0KiAoKGxpc3RiZWcgKG50aCAxIHN0YXRlKSkKISAgICAgICAg ICAgICAgICAgIChmaXJzdHN5bSAoYW5kIGxpc3RiZWcKISAgICAgICAgICAgICAgICAgICAgICAg ICAgICAgICAgIChzYXZlLWV4Y3Vyc2lvbgohICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg ICAgICAoZ290by1jaGFyIGxpc3RiZWcpCiEgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg ICAgIChhbmQgKGxvb2tpbmctYXQgIihbIFx0XG5dKlxcKFxcKFxcc3dcXHxcXHNfXFwpK1xcKSIp CiEgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKG1hdGNoLXN0cmluZyAx KSkpKSkKISAgICAgICAgICAgICAgICAgIChkb2NlbHQgKGFuZCBmaXJzdHN5bQohICAgICAgICAg ICAgICAgICAgICAgICAgICAgICAgIChmdW5jdGlvbi1nZXQgKGludGVybi1zb2Z0IGZpcnN0c3lt KQohICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGlzcC1kb2Mt c3RyaW5nLWVsdC1wcm9wZXJ0eSkpKSkKISAgICAgICAgICAgICAoaWYgKGFuZCBkb2NlbHQKISAg ICAgICAgICAgICAgICAgICAgICA7OyBJdCdzIGEgc3RyaW5nIGluIGEgZm9ybSB0aGF0IGNhbiBo YXZlIGEgZG9jc3RyaW5nLgohICAgICAgICAgICAgICAgICAgICAgIDs7IENoZWNrIHdoZXRoZXIg aXQncyBpbiBkb2NzdHJpbmcgcG9zaXRpb24uCiEgICAgICAgICAgICAgICAgICAgICAgKHNhdmUt ZXhjdXJzaW9uCiEgICAgICAgICAgICAgICAgICAgICAgICAod2hlbiAoZnVuY3Rpb25wIGRvY2Vs dCkKISAgICAgICAgICAgICAgICAgICAgICAgICAgKGdvdG8tY2hhciAobWF0Y2gtZW5kIDEpKQoh ICAgICAgICAgICAgICAgICAgICAgICAgICAoc2V0cSBkb2NlbHQgKGZ1bmNhbGwgZG9jZWx0KSkp CiEgICAgICAgICAgICAgICAgICAgICAgICAoZ290by1jaGFyIGxpc3RiZWcpCiEgICAgICAgICAg ICAgICAgICAgICAgICAoZm9yd2FyZC1jaGFyIDEpCiEgICAgICAgICAgICAgICAgICAgICAgICAo Y29uZGl0aW9uLWNhc2UgbmlsCiEgICAgICAgICAgICAgICAgICAgICAgICAgICAgKHdoaWxlIChh bmQgKD4gZG9jZWx0IDApICg8IChwb2ludCkgc3RhcnRwb3MpCiEgICAgICAgICAgICAgICAgICAg ICAgICAgICAgICAgICAgICAgICAgKHByb2duIChmb3J3YXJkLXNleHAgMSkgdCkpCiEgICAgICAg ICAgICAgICAgICAgICAgICAgICAgICAoc2V0cSBkb2NlbHQgKDEtIGRvY2VsdCkpKQohICAgICAg ICAgICAgICAgICAgICAgICAgICAoZXJyb3IgbmlsKSkKISAgICAgICAgICAgICAgICAgICAgICAg IChhbmQgKHplcm9wIGRvY2VsdCkgKDw9IChwb2ludCkgc3RhcnRwb3MpCiEgICAgICAgICAgICAg ICAgICAgICAgICAgICAgIChwcm9nbiAoZm9yd2FyZC1jb21tZW50IChwb2ludC1tYXgpKSB0KQoh ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoPSAocG9pbnQpIChudGggOCBzdGF0ZSkpKSkp CiAgICAgICAgICAgICAgICAgIGZvbnQtbG9jay1kb2MtZmFjZQogICAgICAgICAgICAgICAgZm9u dC1sb2NrLXN0cmluZy1mYWNlKSkpKQogICAgICBmb250LWxvY2stY29tbWVudC1mYWNlKSkKLS0t IDE5NywyMDUgLS0tLQogICAgICAgICAgKGlmIChlcSAoY2hhci1hZnRlciBzdGFydHBvcykgP3wp CiAgICAgICAgICAgICAgOzsgVGhpcyBpcyBub3QgYSBzdHJpbmcsIGJ1dCBhIHwuLi58IHN5bWJv bC4KICAgICAgICAgICAgICBuaWwKISAgICAgICAgICAgKGxldCAoKGxpc3RiZWcgKG50aCAxIHN0 YXRlKSkpCiEgICAgICAgICAgICAgKGlmIChvciAobGlzcC1zdHJpbmctaW4tZG9jLXBvc2l0aW9u LXAgbGlzdGJlZyBzdGFydHBvcykKISAgICAgICAgICAgICAgICAgICAgIChsaXNwLXN0cmluZy1h ZnRlci1kb2Mta2V5d29yZC1wIGxpc3RiZWcgc3RhcnRwb3MpKQogICAgICAgICAgICAgICAgICBm b250LWxvY2stZG9jLWZhY2UKICAgICAgICAgICAgICAgIGZvbnQtbG9jay1zdHJpbmctZmFjZSkp KSkKICAgICAgZm9udC1sb2NrLWNvbW1lbnQtZmFjZSkpCg== --089e0111de62c6499104f5720af6--