about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/haskell-string.elc
blob: b748e6b101462f8f4d57bde808364cb53c5ae8b7 (plain)
ofshex dumpascii
0000 3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 ;ELC.....;;;.Compiled.;;;.in.Ema
0020 63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f cs.version.25.3.1.;;;.with.all.o
0040 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e ptimizations...;;;.This.file.con
0060 74 61 69 6e 73 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73 tains.utf-8.non-ASCII.characters
0080 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 61 64 65 64 20 69 6e ,.;;;.and.so.cannot.be.loaded.in
00a0 74 6f 20 45 6d 61 63 73 20 32 32 20 6f 72 20 65 61 72 6c 69 65 72 2e 0a 28 61 6e 64 20 28 62 6f to.Emacs.22.or.earlier..(and.(bo
00c0 75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 3c 20 28 61 72 undp.'emacs-version)......(<.(ar
00e0 65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61 ef.emacs-version.(1-.(length.ema
0100 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c cs-version))).?A)......(string-l
0120 65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 32 33 22 29 0a 20 20 20 20 20 28 65 essp.emacs-version."23")......(e
0140 72 72 6f 72 20 22 60 25 73 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63 rror."`%s'.was.compiled.for.Emac
0160 73 20 32 33 20 6f 72 20 6c 61 74 65 72 22 20 23 24 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b s.23.or.later".#$))..;;;;;;;;;;;
0180 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 ;;;;;;;;;;;;;;;;;;...(require.'c
01a0 6c 2d 6c 69 62 29 0a 23 40 34 33 35 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 l-lib).#@435.Remove.whitespace.a
01c0 72 6f 75 6e 64 20 53 54 52 49 4e 47 2e 0a 0a 41 20 57 68 69 74 65 73 70 61 63 65 20 63 68 61 72 round.STRING...A.Whitespace.char
01e0 61 63 74 65 72 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 acter.is.defined.in.the.Haskell.
0200 52 65 70 6f 72 74 20 61 73 20 66 6f 6c 6c 6f 77 73 0a 0a 20 20 77 68 69 74 65 63 68 61 72 20 2d Report.as.follows....whitechar.-
0220 3e 20 6e 65 77 6c 69 6e 65 20 7c 20 76 65 72 74 61 62 20 7c 20 73 70 61 63 65 20 7c 20 74 61 62 >.newline.|.vertab.|.space.|.tab
0240 20 7c 20 75 6e 69 57 68 69 74 65 0a 20 20 6e 65 77 6c 69 6e 65 20 20 20 2d 3e 20 72 65 74 75 72 .|.uniWhite...newline...->.retur
0260 6e 20 6c 69 6e 65 66 65 65 64 20 7c 20 72 65 74 75 72 6e 20 7c 20 6c 69 6e 65 66 65 65 64 20 7c n.linefeed.|.return.|.linefeed.|
0280 20 66 6f 72 6d 66 65 65 64 0a 20 20 75 6e 69 57 68 69 74 65 20 20 2d 3e 20 61 6e 79 20 55 6e 69 .formfeed...uniWhite..->.any.Uni
02a0 63 6f 64 65 20 63 68 61 72 61 63 74 65 72 20 64 65 66 69 6e 65 64 20 61 73 20 77 68 69 74 65 73 code.character.defined.as.whites
02c0 70 61 63 65 0a 0a 4e 6f 74 65 3a 20 54 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63 pace..Note:.The.implementation.c
02e0 75 72 72 65 6e 74 6c 79 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 73 20 41 53 43 49 49 0a 20 20 20 urrently.only.supports.ASCII....
0300 20 20 20 77 68 69 74 65 2d 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 73 2c 20 69 2e 65 2e 20 ...white-space.characters,.i.e..
0320 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 69 6f 6e 20 64 6f 65 73 6e 27 74 0a 20 20 20 20 20 20 63 the.implemention.doesn't.......c
0340 6f 6e 73 69 64 65 72 20 75 6e 69 57 68 69 74 65 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 29 1f 0a onsider.uniWhite...(fn.STRING)..
0360 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 6d 20 23 (defalias.'haskell-string-trim.#
0380 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 10 00 5c 33 30 32 5c 33 30 33 5c [257."\300\301.\"\203..\302\303\
03a0 33 30 34 5c 32 31 31 04 24 5c 32 30 32 11 00 5c 32 31 31 5c 33 30 30 5c 33 30 35 02 5c 22 5c 32 304\211.$\202..\211\300\305.\"\2
03c0 30 33 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 04 24 5c 32 30 32 5c 22 00 5c 32 31 03!.\302\303\304\211.$\202\".\21
03e0 31 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 09 5c 6e 0b 5c 66 0d 20 5d 1\207".[string-match."[.\n.\f..]
0400 2b 5c 5c 27 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 20 22 5c 5c 60 5b 09 5c +\\'".replace-match."".t."\\`[.\
0420 6e 0b 5c 66 0d 20 5d 2b 22 5d 20 37 20 28 23 24 20 2e 20 34 32 39 29 5d 29 0a 23 40 37 33 20 52 n.\f..]+"].7.(#$...429)]).#@73.R
0440 65 74 75 72 6e 20 74 20 69 66 20 53 54 52 49 4e 47 20 63 6f 6e 74 61 69 6e 73 20 6f 6e 6c 79 20 eturn.t.if.STRING.contains.only.
0460 77 68 69 74 65 73 70 61 63 65 20 28 6f 72 20 69 73 20 65 6d 70 74 79 29 2e 0a 0a 28 66 6e 20 53 whitespace.(or.is.empty)...(fn.S
0480 54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e TRING)..(defalias.'haskell-strin
04a0 67 2d 6f 6e 6c 79 2d 73 70 61 63 65 73 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 g-only-spaces-p.#[257."\300.!\30
04c0 31 5c 32 33 30 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 6d 20 1\230\207".[haskell-string-trim.
04e0 22 22 5d 20 33 20 28 23 24 20 2e 20 31 30 38 37 29 5d 29 0a 23 40 36 38 20 52 65 74 75 72 6e 20 ""].3.(#$...1087)]).#@68.Return.
0500 28 75 70 20 74 6f 29 20 4e 20 63 68 61 72 61 63 74 65 72 20 6c 65 6e 67 74 68 20 70 72 65 66 69 (up.to).N.character.length.prefi
0520 78 20 6f 66 20 53 54 52 49 4e 47 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 20 4e 29 1f 0a 28 64 65 x.of.STRING...(fn.STRING.N)..(de
0540 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 61 6b 65 20 23 5b 35 31 falias.'haskell-string-take.#[51
0560 34 20 22 01 5c 33 30 30 03 47 03 5e 4f 5c 32 30 37 22 20 5b 30 5d 20 36 20 28 23 24 20 2e 20 31 4.".\300.G.^O\207".[0].6.(#$...1
0580 32 37 33 29 5d 29 0a 23 40 37 37 20 41 72 72 61 79 20 6f 66 20 65 6e 63 6f 64 69 6e 67 73 20 66 273)]).#@77.Array.of.encodings.f
05a0 6f 72 20 37 2d 62 69 74 20 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 20 70 6f 69 6e 74 73 20 or.7-bit.ASCII.character.points.
05c0 69 6e 64 65 78 65 64 20 62 79 20 41 53 43 49 49 20 76 61 6c 75 65 2e 1f 0a 28 64 65 66 63 6f 6e indexed.by.ASCII.value...(defcon
05e0 73 74 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 65 6e 63 6f 64 65 st.haskell-string-literal-encode
0600 2d 61 73 63 69 69 2d 61 72 72 61 79 20 5b 22 5c 5c 4e 55 4c 22 20 22 5c 5c 53 4f 48 22 20 22 5c -ascii-array.["\\NUL"."\\SOH"."\
0620 5c 53 54 58 22 20 22 5c 5c 45 54 58 22 20 22 5c 5c 45 4f 54 22 20 22 5c 5c 45 4e 51 22 20 22 5c \STX"."\\ETX"."\\EOT"."\\ENQ"."\
0640 5c 41 43 4b 22 20 22 5c 5c 61 22 20 22 5c 5c 62 22 20 22 5c 5c 74 22 20 22 5c 5c 6e 22 20 22 5c \ACK"."\\a"."\\b"."\\t"."\\n"."\
0660 5c 76 22 20 22 5c 5c 66 22 20 22 5c 5c 72 22 20 22 5c 5c 53 4f 22 20 22 5c 5c 53 49 22 20 22 5c \v"."\\f"."\\r"."\\SO"."\\SI"."\
0680 5c 44 4c 45 22 20 22 5c 5c 44 43 31 22 20 22 5c 5c 44 43 32 22 20 22 5c 5c 44 43 33 22 20 22 5c \DLE"."\\DC1"."\\DC2"."\\DC3"."\
06a0 5c 44 43 34 22 20 22 5c 5c 4e 41 4b 22 20 22 5c 5c 53 59 4e 22 20 22 5c 5c 45 54 42 22 20 22 5c \DC4"."\\NAK"."\\SYN"."\\ETB"."\
06c0 5c 43 41 4e 22 20 22 5c 5c 45 4d 22 20 22 5c 5c 53 55 42 22 20 22 5c 5c 45 53 43 22 20 22 5c 5c \CAN"."\\EM"."\\SUB"."\\ESC"."\\
06e0 46 53 22 20 22 5c 5c 47 53 22 20 22 5c 5c 52 53 22 20 22 5c 5c 55 53 22 20 22 20 22 20 22 21 22 FS"."\\GS"."\\RS"."\\US"."."."!"
0700 20 22 5c 5c 5c 22 22 20 22 23 22 20 22 24 22 20 22 25 22 20 22 26 22 20 22 27 22 20 22 28 22 20 ."\\\""."#"."$"."%"."&"."'"."(".
0720 22 29 22 20 22 2a 22 20 22 2b 22 20 22 2c 22 20 22 2d 22 20 22 2e 22 20 22 2f 22 20 22 30 22 20 ")"."*"."+".","."-"."."."/"."0".
0740 22 31 22 20 22 32 22 20 22 33 22 20 22 34 22 20 22 35 22 20 22 36 22 20 22 37 22 20 22 38 22 20 "1"."2"."3"."4"."5"."6"."7"."8".
0760 22 39 22 20 22 3a 22 20 22 3b 22 20 22 3c 22 20 22 3d 22 20 22 3e 22 20 22 3f 22 20 22 40 22 20 "9".":".";"."<"."=".">"."?"."@".
0780 22 41 22 20 22 42 22 20 22 43 22 20 22 44 22 20 22 45 22 20 22 46 22 20 22 47 22 20 22 48 22 20 "A"."B"."C"."D"."E"."F"."G"."H".
07a0 22 49 22 20 22 4a 22 20 22 4b 22 20 22 4c 22 20 22 4d 22 20 22 4e 22 20 22 4f 22 20 22 50 22 20 "I"."J"."K"."L"."M"."N"."O"."P".
07c0 22 51 22 20 22 52 22 20 22 53 22 20 22 54 22 20 22 55 22 20 22 56 22 20 22 57 22 20 22 58 22 20 "Q"."R"."S"."T"."U"."V"."W"."X".
07e0 22 59 22 20 22 5a 22 20 22 5b 22 20 22 5c 5c 5c 5c 22 20 22 5d 22 20 22 5e 22 20 22 5f 22 20 22 "Y"."Z"."["."\\\\"."]"."^"."_"."
0800 60 22 20 22 61 22 20 22 62 22 20 22 63 22 20 22 64 22 20 22 65 22 20 22 66 22 20 22 67 22 20 22 `"."a"."b"."c"."d"."e"."f"."g"."
0820 68 22 20 22 69 22 20 22 6a 22 20 22 6b 22 20 22 6c 22 20 22 6d 22 20 22 6e 22 20 22 6f 22 20 22 h"."i"."j"."k"."l"."m"."n"."o"."
0840 70 22 20 22 71 22 20 22 72 22 20 22 73 22 20 22 74 22 20 22 75 22 20 22 76 22 20 22 77 22 20 22 p"."q"."r"."s"."t"."u"."v"."w"."
0860 78 22 20 22 79 22 20 22 7a 22 20 22 7b 22 20 22 7c 22 20 22 7d 22 20 22 7e 22 20 22 5c 5c 44 45 x"."y"."z"."{"."|"."}"."~"."\\DE
0880 4c 22 5d 20 28 23 24 20 2e 20 31 34 32 30 29 29 0a 23 40 33 33 36 20 45 6e 63 6f 64 65 20 53 54 L"].(#$...1420)).#@336.Encode.ST
08a0 52 20 61 63 63 6f 72 64 69 6e 67 20 48 61 73 6b 65 6c 6c 20 65 73 63 61 70 65 20 72 75 6c 65 73 R.according.Haskell.escape.rules
08c0 20 75 73 69 6e 67 20 37 2d 62 69 74 20 41 53 43 49 49 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f .using.7-bit.ASCII.representatio
08e0 6e 2e 0a 0a 54 68 65 20 73 65 72 69 61 6c 69 7a 61 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 69 n...The.serialization.has.been.i
0900 6d 70 6c 65 6d 65 6e 74 65 64 20 74 6f 20 63 6c 6f 73 65 6c 79 20 6d 61 74 63 68 20 74 68 65 0a mplemented.to.closely.match.the.
0920 62 65 68 61 76 69 6f 75 72 20 6f 66 20 47 48 43 27 73 20 53 68 6f 77 20 69 6e 73 74 61 6e 63 65 behaviour.of.GHC's.Show.instance
0940 20 66 6f 72 20 53 74 72 69 6e 67 73 2e 0a 0a 49 66 20 4e 4f 2d 51 55 4f 54 45 53 20 69 73 20 6e .for.Strings...If.NO-QUOTES.is.n
0960 6f 6e 2d 6e 69 6c 2c 20 6f 6d 69 74 20 77 72 61 70 70 69 6e 67 20 72 65 73 75 6c 74 20 69 6e 20 on-nil,.omit.wrapping.result.in.
0980 71 75 6f 74 65 73 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 64 75 61 6c 20 6f 70 65 72 61 74 quotes...This.is.the.dual.operat
09a0 69 6f 6e 20 74 6f 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 ion.to.`haskell-string-literal-d
09c0 65 63 6f 64 65 27 2e 0a 0a 28 66 6e 20 53 54 52 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 4f 2d 51 55 ecode'...(fn.STR.&optional.NO-QU
09e0 4f 54 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 OTES)..(defalias.'haskell-string
0a00 2d 6c 69 74 65 72 61 6c 2d 65 6e 63 6f 64 65 20 23 5b 35 31 33 20 22 5c 33 30 30 43 5c 33 30 31 -literal-encode.#[513."\300C\301
0a20 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 \302\303\304\305.!\306\"\307\310
0a40 25 02 5c 32 30 33 1a 00 5c 33 31 31 01 05 5c 33 31 32 23 5c 32 30 32 23 00 5c 33 31 33 5c 33 31 %.\203..\311..\312#\202#.\313\31
0a60 31 02 06 06 5c 33 31 32 23 5c 33 31 33 51 5c 32 36 32 01 5c 32 30 37 22 20 5b 2d 31 20 6d 61 6b 1...\312#\313Q\262.\207".[-1.mak
0a80 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32 34 32 5c 33 30 30 02 5c 32 e-byte-code.257."\300\242\300.\2
0aa0 34 30 5c 32 31 30 01 5c 33 30 32 59 5c 32 30 33 13 00 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 40\210.\302Y\203..\303\304.\"\20
0ac0 32 3c 00 5c 32 31 31 5c 33 30 35 55 5c 32 30 33 1f 00 01 5c 33 30 36 55 5c 32 30 34 31 00 5c 32 2<.\211\305U\203...\306U\2041.\2
0ae0 31 31 5c 33 30 32 59 5c 32 30 33 39 00 01 5c 33 30 37 59 5c 32 30 33 39 00 01 5c 33 31 30 58 5c 11\302Y\2039..\307Y\2039..\310X\
0b00 32 30 33 39 00 5c 33 31 31 09 03 48 50 5c 32 30 32 3c 00 09 02 48 5c 32 30 37 22 20 76 63 6f 6e 2039.\311..HP\202<...H\207".vcon
0b20 63 61 74 20 76 65 63 74 6f 72 20 5b 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 cat.vector.[haskell-string-liter
0b40 61 6c 2d 65 6e 63 6f 64 65 2d 61 73 63 69 69 2d 61 72 72 61 79 20 31 32 38 20 66 6f 72 6d 61 74 al-encode-ascii-array.128.format
0b60 20 22 5c 5c 25 64 22 20 31 34 20 37 32 20 34 38 20 35 37 20 22 5c 5c 26 22 5d 20 35 20 22 5c 6e ."\\%d".14.72.48.57."\\&"].5."\n
0b80 5c 6e 28 66 6e 20 43 29 22 20 6d 61 70 63 6f 6e 63 61 74 20 22 22 20 22 5c 22 22 5d 20 39 20 28 \n(fn.C)".mapconcat.""."\""].9.(
0ba0 23 24 20 2e 20 32 31 39 39 29 5d 29 0a 23 40 31 38 34 20 52 65 67 65 78 70 20 66 6f 72 20 6d 61 #$...2199)]).#@184.Regexp.for.ma
0bc0 74 63 68 69 6e 67 20 65 73 63 61 70 65 20 63 6f 64 65 73 20 69 6e 20 73 74 72 69 6e 67 20 6c 69 tching.escape.codes.in.string.li
0be0 74 65 72 61 6c 73 2e 0a 53 65 65 20 48 61 73 6b 65 6c 6c 20 52 65 70 6f 72 74 20 53 65 63 74 20 terals..See.Haskell.Report.Sect.
0c00 32 2e 36 2c 0a 55 52 4c 20 60 68 74 74 70 3a 2f 2f 77 77 77 2e 68 61 73 6b 65 6c 6c 2e 6f 72 67 2.6,.URL.`http://www.haskell.org
0c20 2f 6f 6e 6c 69 6e 65 72 65 70 6f 72 74 2f 68 61 73 6b 65 6c 6c 32 30 31 30 2f 68 61 73 6b 65 6c /onlinereport/haskell2010/haskel
0c40 6c 63 68 32 2e 68 74 6d 6c 23 78 37 2d 32 30 30 30 30 32 2e 36 27 2c 0a 66 6f 72 20 6d 6f 72 65 lch2.html#x7-200002.6',.for.more
0c60 20 64 65 74 61 69 6c 73 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 73 74 72 .details...(defconst.haskell-str
0c80 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 65 73 63 61 70 65 73 2d 72 65 67 65 78 70 20 28 62 79 74 65 ing-literal-escapes-regexp.(byte
0ca0 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c -code."\300\301\302\303\304\305\
0cc0 22 5c 33 30 33 5c 33 30 36 5c 33 30 37 5c 22 5c 33 30 33 5c 33 31 30 5c 33 31 31 5c 33 31 32 21 "\303\306\307\"\303\310\311\312!
0ce0 5c 22 23 21 5c 33 31 33 5c 33 31 34 5c 33 31 33 5c 33 31 35 5c 33 31 33 5c 33 31 36 5c 33 31 33 \"#!\313\314\313\315\313\316\313
0d00 5c 33 31 37 5c 33 32 30 5c 32 36 30 0b 5c 32 30 37 22 20 5b 22 5b 5c 5c 5d 5c 5c 28 3f 3a 22 20 \317\320\260.\207".["[\\]\\(?:".
0d20 72 65 67 65 78 70 2d 6f 70 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 regexp-opt.append.mapcar.#[257."
0d40 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 63 22 5d 20 34 \300\301.\"\207".[format."%c"].4
0d60 20 22 5c 6e 5c 6e 28 66 6e 20 43 29 22 5d 20 22 61 62 66 6e 72 74 76 5c 5c 5c 22 27 26 22 20 23 ."\n\n(fn.C)"]."abfnrtv\\\"'&".#
0d80 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 [257."\300\301.\"\207".[format."
0da0 5e 25 63 22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 43 29 22 5d 20 22 41 42 43 44 45 46 47 48 49 ^%c"].4."\n\n(fn.C)"]."ABCDEFGHI
0dc0 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 40 5b 5c 5c 5d 5e 5f 22 20 23 5b 32 35 37 20 JKLMNOPQRSTUVWXYZ@[\\]^_".#[257.
0de0 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 73 22 5d 20 "\300\301.\"\207".[format."%s"].
0e00 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 29 22 5d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 4e 55 4."\n\n(fn.S)"].split-string."NU
0e20 4c 20 53 4f 48 20 53 54 58 20 45 54 58 20 45 4f 54 20 45 4e 51 20 41 43 4b 20 42 45 4c 20 42 53 L.SOH.STX.ETX.EOT.ENQ.ACK.BEL.BS
0e40 20 48 54 20 4c 46 20 56 54 20 46 46 20 43 52 5c 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .HT.LF.VT.FF.CR\n...............
0e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ...............................S
0e80 4f 20 53 49 20 44 4c 45 20 44 43 31 20 44 43 32 20 44 43 33 20 44 43 34 20 4e 41 4b 20 53 59 4e O.SI.DLE.DC1.DC2.DC3.DC4.NAK.SYN
0ea0 20 45 54 42 20 43 41 4e 20 45 4d 20 53 55 42 20 45 53 43 5c 6e 20 20 20 20 20 20 20 20 20 20 20 .ETB.CAN.EM.SUB.ESC\n...........
0ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
0ee0 20 20 20 46 53 20 47 53 20 52 53 20 55 53 20 53 50 20 44 45 4c 22 20 22 5c 5c 7c 22 20 22 5b 09 ...FS.GS.RS.US.SP.DEL"."\\|"."[.
0f00 5c 6e 0b 5c 66 0d 20 5d 2b 5b 5c 5c 5d 22 20 22 5b 30 2d 39 5d 2b 22 20 22 6f 5b 30 2d 37 5d 2b \n.\f..]+[\\]"."[0-9]+"."o[0-7]+
0f20 22 20 22 78 5b 30 2d 39 61 2d 66 5d 2b 22 20 22 5c 5c 29 3f 22 5d 20 31 31 29 20 28 23 24 20 2e "."x[0-9a-f]+"."\\)?"].11).(#$..
0f40 20 32 39 39 35 29 29 0a 23 40 31 31 39 20 48 61 73 68 20 74 61 62 6c 65 20 63 6f 6e 74 61 69 6e .2995)).#@119.Hash.table.contain
0f60 69 6e 67 20 69 72 72 65 67 75 6c 61 72 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 73 20 61 ing.irregular.escape.sequences.a
0f80 6e 64 20 74 68 65 69 72 20 64 65 63 6f 64 65 64 20 73 74 72 69 6e 67 73 2e 0a 55 73 65 64 20 62 nd.their.decoded.strings..Used.b
0fa0 79 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 y.`haskell-string-literal-decode
0fc0 31 27 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 1'...(defconst.haskell-string-li
0fe0 74 65 72 61 6c 2d 64 65 63 6f 64 65 31 2d 74 61 62 6c 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 teral-decode1-table.(byte-code."
1000 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 \300\301\302\"\303\304\305\306\3
1020 30 37 5c 33 31 30 06 06 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 5c 33 31 34 5c 22 5c 32 07\310..!\311\"\312\313%\314\"\2
1040 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 10\211\207".[make-hash-table.:te
1060 73 74 20 65 71 75 61 6c 20 6d 61 70 63 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 st.equal.mapc.make-byte-code.257
1080 20 22 5c 33 30 31 5c 33 30 32 02 40 50 02 41 5c 33 30 30 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 ."\301\302.@P.A\300#\207".vconca
10a0 74 20 76 65 63 74 6f 72 20 5b 70 75 74 68 61 73 68 20 22 5c 5c 22 5d 20 35 20 22 5c 6e 5c 6e 28 t.vector.[puthash."\\"].5."\n\n(
10c0 66 6e 20 43 29 22 20 28 28 22 4e 55 4c 22 20 2e 20 22 00 22 29 20 28 22 53 4f 48 22 20 2e 20 22 fn.C)".(("NUL"...".").("SOH"..."
10e0 01 22 29 20 28 22 53 54 58 22 20 2e 20 22 02 22 29 20 28 22 45 54 58 22 20 2e 20 22 03 22 29 20 .").("STX"...".").("ETX"...".").
1100 28 22 45 4f 54 22 20 2e 20 22 04 22 29 20 28 22 45 4e 51 22 20 2e 20 22 05 22 29 20 28 22 41 43 ("EOT"...".").("ENQ"...".").("AC
1120 4b 22 20 2e 20 22 06 22 29 20 28 22 42 45 4c 22 20 2e 20 22 07 22 29 20 28 22 42 53 22 20 2e 20 K"...".").("BEL"...".").("BS"...
1140 22 08 22 29 20 28 22 48 54 22 20 2e 20 22 09 22 29 20 28 22 4c 46 22 20 2e 20 22 5c 6e 22 29 20 ".").("HT"...".").("LF"..."\n").
1160 28 22 56 54 22 20 2e 20 22 0b 22 29 20 28 22 46 46 22 20 2e 20 22 5c 66 22 29 20 28 22 43 52 22 ("VT"...".").("FF"..."\f").("CR"
1180 20 2e 20 22 0d 22 29 20 28 22 53 4f 22 20 2e 20 22 0e 22 29 20 28 22 53 49 22 20 2e 20 22 0f 22 ...".").("SO"...".").("SI"..."."
11a0 29 20 28 22 44 4c 45 22 20 2e 20 22 10 22 29 20 28 22 44 43 31 22 20 2e 20 22 11 22 29 20 28 22 ).("DLE"...".").("DC1"...".").("
11c0 44 43 32 22 20 2e 20 22 12 22 29 20 28 22 44 43 33 22 20 2e 20 22 13 22 29 20 28 22 44 43 34 22 DC2"...".").("DC3"...".").("DC4"
11e0 20 2e 20 22 14 22 29 20 28 22 4e 41 4b 22 20 2e 20 22 15 22 29 20 28 22 53 59 4e 22 20 2e 20 22 ...".").("NAK"...".").("SYN"..."
1200 16 22 29 20 28 22 45 54 42 22 20 2e 20 22 17 22 29 20 28 22 43 41 4e 22 20 2e 20 22 18 22 29 20 .").("ETB"...".").("CAN"...".").
1220 28 22 45 4d 22 20 2e 20 22 19 22 29 20 28 22 53 55 42 22 20 2e 20 22 1a 22 29 20 28 22 45 53 43 ("EM"...".").("SUB"...".").("ESC
1240 22 20 2e 20 22 1b 22 29 20 28 22 46 53 22 20 2e 20 22 1c 22 29 20 28 22 47 53 22 20 2e 20 22 1d "...".").("FS"...".").("GS"...".
1260 22 29 20 28 22 52 53 22 20 2e 20 22 1e 22 29 20 28 22 55 53 22 20 2e 20 22 1f 22 29 20 28 22 53 ").("RS"...".").("US"...".").("S
1280 50 22 20 2e 20 22 20 22 29 20 28 22 44 45 4c 22 20 2e 20 22 7f 22 29 20 28 22 61 22 20 2e 20 22 P"...".").("DEL"...".").("a"..."
12a0 07 22 29 20 28 22 62 22 20 2e 20 22 08 22 29 20 28 22 66 22 20 2e 20 22 5c 66 22 29 20 28 22 6e .").("b"...".").("f"..."\f").("n
12c0 22 20 2e 20 22 5c 6e 22 29 20 28 22 72 22 20 2e 20 22 0d 22 29 20 28 22 74 22 20 2e 20 22 09 22 "..."\n").("r"...".").("t"..."."
12e0 29 20 28 22 76 22 20 2e 20 22 0b 22 29 20 28 22 5c 5c 22 20 2e 20 22 5c 5c 22 29 20 28 22 5c 22 ).("v"...".").("\\"..."\\").("\"
1300 22 20 2e 20 22 5c 22 22 29 20 28 22 27 22 20 2e 20 22 27 22 29 20 28 22 26 22 20 2e 20 22 22 29 "..."\"").("'"..."'").("&"..."")
1320 29 5d 20 38 29 20 28 23 24 20 2e 20 33 39 31 38 29 29 0a 23 40 31 37 31 20 44 65 63 6f 64 65 20 )].8).(#$...3918)).#@171.Decode.
1340 61 20 73 69 6e 67 6c 65 20 73 74 72 69 6e 67 20 6c 69 74 65 72 61 6c 20 65 73 63 61 70 65 20 73 a.single.string.literal.escape.s
1360 65 71 75 65 6e 63 65 2e 0a 4c 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20 65 78 61 63 74 6c 79 20 equence..L.must.contain.exactly.
1380 6f 6e 65 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 2e 0a 54 68 69 73 20 69 73 20 61 6e 20 one.escape.sequence..This.is.an.
13a0 69 6e 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 62 79 20 60 68 61 73 6b 65 internal.function.used.by.`haske
13c0 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 27 2e 0a 0a 28 66 6e 20 ll-string-literal-decode'...(fn.
13e0 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 L)..(defalias.'haskell-string-li
1400 74 65 72 61 6c 2d 64 65 63 6f 64 65 31 20 23 5b 32 35 37 20 22 5c 33 30 32 18 5c 33 30 33 01 09 teral-decode1.#[257."\302.\303..
1420 5c 22 5c 32 30 36 61 00 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32 30 33 1c 00 5c 33 30 36 5c 33 30 \"\206a.\304\305.\"\203..\306\30
1440 37 02 5c 33 31 30 5c 33 30 32 4f 5c 33 31 31 5c 22 21 5c 32 30 32 61 00 5c 33 30 34 5c 33 31 32 7.\310\302O\311\"!\202a.\304\312
1460 02 5c 22 5c 32 30 33 2f 00 5c 33 30 36 5c 33 30 37 02 5c 33 31 33 5c 33 30 32 4f 5c 33 31 34 5c .\"\203/.\306\307.\313\302O\314\
1480 22 21 5c 32 30 32 61 00 5c 33 30 34 5c 33 31 35 02 5c 22 5c 32 30 33 42 00 5c 33 30 36 5c 33 30 "!\202a.\304\315.\"\203B.\306\30
14a0 37 02 5c 33 31 33 5c 33 30 32 4f 5c 33 31 36 5c 22 21 5c 32 30 32 61 00 5c 33 30 34 5c 33 31 37 7.\313\302O\316\"!\202a.\304\317
14c0 02 5c 22 5c 32 30 33 53 00 5c 33 30 36 01 5c 33 31 33 48 5c 33 32 30 5a 21 5c 32 30 32 61 00 5c .\"\203S.\306.\313H\320Z!\202a.\
14e0 33 30 34 5c 33 32 31 02 5c 22 5c 32 30 33 5e 00 5c 33 32 32 5c 32 30 32 61 00 5c 33 32 33 5c 33 304\321.\"\203^.\322\202a.\323\3
1500 32 34 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 68 61 73 6b 24!)\207".[case-fold-search.hask
1520 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 31 2d 74 61 62 6c 65 ell-string-literal-decode1-table
1540 20 6e 69 6c 20 67 65 74 68 61 73 68 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5b 5c .nil.gethash.string-match."\\`[\
1560 5c 5d 5b 30 2d 39 5d 2b 5c 5c 27 22 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 73 74 72 69 \][0-9]+\\'".char-to-string.stri
1580 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 31 20 31 30 20 22 5c 5c 60 5b 5c 5c 5d 78 5b 5b 3a 78 64 ng-to-number.1.10."\\`[\\]x[[:xd
15a0 69 67 69 74 3a 5d 5d 2b 5c 5c 27 22 20 32 20 31 36 20 22 5c 5c 60 5b 5c 5c 5d 6f 5b 30 2d 37 5d igit:]]+\\'".2.16."\\`[\\]o[0-7]
15c0 2b 5c 5c 27 22 20 38 20 22 5c 5c 60 5b 5c 5c 5d 5c 5c 5e 5b 40 2d 5f 5d 5c 5c 27 22 20 36 34 20 +\\'".8."\\`[\\]\\^[@-_]\\'".64.
15e0 22 5c 5c 60 5b 5c 5c 5d 5b 09 5c 6e 0b 5c 66 0d 20 5d 2b 5b 5c 5c 5d 5c 5c 27 22 20 22 22 20 65 "\\`[\\][.\n.\f..]+[\\]\\'"."".e
1600 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 22 5d 20 rror."Invalid.escape.sequence"].
1620 36 20 28 23 24 20 2e 20 34 39 32 31 29 5d 29 0a 23 40 31 38 35 20 44 65 63 6f 64 65 20 61 20 48 6.(#$...4921)]).#@185.Decode.a.H
1640 61 73 6b 65 6c 6c 20 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2e 0a 49 66 20 4e 4f 2d 51 55 4f askell.string-literal..If.NO-QUO
1660 54 45 53 20 69 73 20 6e 69 6c 2c 20 45 53 54 52 20 6d 75 73 74 20 62 65 20 73 75 72 72 6f 75 6e TES.is.nil,.ESTR.must.be.surroun
1680 64 65 64 20 62 79 20 71 75 6f 74 65 73 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 64 75 61 6c ded.by.quotes...This.is.the.dual
16a0 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 .operation.to.`haskell-string-li
16c0 74 65 72 61 6c 2d 65 6e 63 6f 64 65 27 2e 0a 0a 28 66 6e 20 45 53 54 52 20 26 6f 70 74 69 6f 6e teral-encode'...(fn.ESTR.&option
16e0 61 6c 20 4e 4f 2d 51 55 4f 54 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c al.NO-QUOTES)..(defalias.'haskel
1700 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 20 23 5b 35 31 33 20 22 5c l-string-literal-decode.#[513."\
1720 32 31 31 5c 32 30 34 19 00 5c 33 30 33 02 5c 33 30 34 5c 33 30 35 18 5c 33 30 36 03 03 03 23 29 211\204..\303.\304\305.\306...#)
1740 5c 32 36 36 5c 32 30 33 5c 32 30 33 19 00 01 5c 33 30 37 5c 33 31 30 4f 5c 32 30 37 5c 32 31 31 \266\203\203...\307\310O\207\211
1760 5c 32 30 33 21 00 01 5c 32 30 32 3b 00 5c 33 31 31 02 5c 33 30 34 5c 33 30 35 18 5c 33 30 36 03 \203!..\202;.\311.\304\305.\306.
1780 03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 33 38 00 01 5c 33 30 37 5c 33 31 30 4f 5c 32 30 32 ..#)\266\203\2038..\307\310O\202
17a0 3b 00 5c 33 31 32 5c 33 31 33 21 5c 33 30 34 19 5c 33 31 34 5c 6e 5c 33 31 35 03 5c 33 30 35 5c ;.\312\313!\304.\314\n\315.\305\
17c0 32 31 31 25 29 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 211%)\207".[inhibit-changing-mat
17e0 63 68 2d 64 61 74 61 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 68 61 73 6b 65 6c 6c ch-data.case-fold-search.haskell
1800 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 65 73 63 61 70 65 73 2d 72 65 67 65 78 70 20 22 -string-literal-escapes-regexp."
1820 5c 5c 60 5c 22 5b 5e 5c 5c 5c 22 5b 3a 63 6e 74 72 6c 3a 5d 5d 2a 5c 22 5c 5c 27 22 20 6e 69 6c \\`\"[^\\\"[:cntrl:]]*\"\\'".nil
1840 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 31 20 2d 31 20 22 5c 5c 60 5c 22 2e 2a 5c 22 5c .t.string-match.1.-1."\\`\".*\"\
1860 5c 27 22 20 65 72 72 6f 72 20 22 53 74 72 69 6e 67 20 6c 69 74 65 72 61 6c 20 6d 75 73 74 20 62 \'".error."String.literal.must.b
1880 65 20 64 65 6c 69 6d 69 74 65 64 20 62 79 20 71 75 6f 74 65 73 22 20 72 65 70 6c 61 63 65 2d 72 e.delimited.by.quotes".replace-r
18a0 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c egexp-in-string.haskell-string-l
18c0 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 31 5d 20 39 20 28 23 24 20 2e 20 35 36 38 36 29 5d 29 0a iteral-decode1].9.(#$...5686)]).
18e0 23 40 31 36 39 20 52 65 74 75 72 6e 20 53 54 52 49 4e 47 20 74 72 75 6e 63 61 74 65 64 20 74 6f #@169.Return.STRING.truncated.to
1900 20 28 61 74 20 6d 6f 73 74 29 20 4e 20 63 68 61 72 61 63 74 65 72 73 2e 0a 49 66 20 74 72 75 6e .(at.most).N.characters..If.trun
1920 63 61 74 69 6f 6e 20 6f 63 63 75 72 65 64 2c 20 6c 61 73 74 20 63 68 61 72 61 63 74 65 72 20 69 cation.occured,.last.character.i
1940 6e 20 73 74 72 69 6e 67 20 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 60 e2 80 a6 27 2e 0a 53 n.string.is.replaced.by.`...'..S
1960 65 65 20 61 6c 73 6f 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 61 6b 65 27 2e 0a 0a ee.also.`haskell-string-take'...
1980 28 66 6e 20 53 54 52 49 4e 47 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c (fn.STRING.N)..(defalias.'haskel
19a0 6c 2d 73 74 72 69 6e 67 2d 65 6c 6c 69 70 73 69 7a 65 20 23 5b 35 31 34 20 22 01 47 01 58 5c 32 l-string-ellipsize.#[514.".G.X\2
19c0 30 33 09 00 01 5c 32 30 37 5c 32 31 31 5c 33 30 30 57 5c 32 30 33 11 00 5c 33 30 31 5c 32 30 37 03...\207\211\300W\203..\301\207
19e0 01 5c 33 30 32 02 53 4f 5c 33 30 33 50 5c 32 30 37 22 20 5b 31 20 22 22 20 30 20 22 e2 80 a6 22 .\302.SO\303P\207".[1."".0."..."
1a00 5d 20 35 20 28 23 24 20 2e 20 36 33 37 34 29 5d 29 0a 23 40 35 38 20 43 68 6f 6d 70 20 6c 65 61 ].5.(#$...6374)]).#@58.Chomp.lea
1a20 64 69 6e 67 20 61 6e 64 20 74 61 69 6c 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 66 72 6f 6d ding.and.tailing.whitespace.from
1a40 20 53 54 52 2e 0a 0a 28 66 6e 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b .STR...(fn.STR)..(defalias.'hask
1a60 65 6c 6c 2d 73 74 72 69 6e 67 2d 63 68 6f 6d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 ell-string-chomp.#[257."\300\301
1a80 02 5c 22 5c 32 30 33 12 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 04 24 5c 32 36 32 01 .\"\203..\302\303\304\211.$\262.
1aa0 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 6e \202..\207".[string-match."\\`\n
1ac0 2b 5c 5c 7c 5e 5c 5c 73 2d 2b 5c 5c 7c 5c 5c 73 2d 2b 24 5c 5c 7c 5c 6e 2b 5c 5c 27 22 20 72 65 +\\|^\\s-+\\|\\s-+$\\|\n+\\'".re
1ae0 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 5d 20 36 20 28 23 24 20 2e 20 36 36 37 39 29 5d place-match."".t].6.(#$...6679)]
1b00 29 0a 23 40 31 30 34 20 53 70 6c 69 74 20 53 54 52 20 74 6f 20 6c 69 6e 65 73 20 61 6e 64 20 72 ).#@104.Split.STR.to.lines.and.r
1b20 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 77 69 74 68 20 70 72 65 eturn.a.list.of.strings.with.pre
1b40 63 65 65 64 69 6e 67 20 61 6e 64 0a 73 75 63 63 65 64 69 6e 67 20 73 70 61 63 65 20 72 65 6d 6f ceeding.and.succeding.space.remo
1b60 76 65 64 2e 0a 0a 28 66 6e 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 ved...(fn.STR)..(defalias.'haske
1b80 6c 6c 2d 73 74 72 69 6e 67 2d 73 70 6c 69 74 2d 74 6f 2d 6c 69 6e 65 73 20 23 5b 32 35 37 20 22 ll-string-split-to-lines.#[257."
1ba0 5c 32 31 31 3b 5c 32 30 35 5c 66 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 22 5c \211;\205\f.\300\301\302.\303\"\
1bc0 22 5c 32 30 37 22 20 5b 63 6c 2d 6d 61 70 63 61 72 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 "\207".[cl-mapcar.haskell-string
1be0 2d 63 68 6f 6d 70 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 6e 22 5d 20 36 20 28 23 24 20 -chomp.split-string."\n"].6.(#$.
1c00 2e 20 36 39 32 30 29 5d 29 0a 23 40 36 39 20 49 66 20 50 52 45 46 49 58 20 69 73 20 70 72 65 66 ..6920)]).#@69.If.PREFIX.is.pref
1c20 69 78 20 6f 66 20 53 54 52 2c 20 74 68 65 20 73 74 72 69 6e 67 20 69 73 20 74 72 69 6d 6d 65 64 ix.of.STR,.the.string.is.trimmed
1c40 2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 ...(fn.PREFIX.STR)..(defalias.'h
1c60 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 6d 2d 70 72 65 66 69 78 20 23 5b 35 31 34 20 askell-string-trim-prefix.#[514.
1c80 22 01 3b 5c 32 30 35 16 00 5c 32 31 31 3b 5c 32 30 35 16 00 5c 33 30 30 02 02 5c 22 5c 32 30 35 ".;\205..\211;\205..\300..\"\205
1ca0 16 00 5c 32 31 31 02 47 5c 33 30 31 4f 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 70 72 65 66 69 ..\211.G\301O\207".[string-prefi
1cc0 78 2d 70 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 37 31 38 33 29 5d 29 0a 23 40 36 39 20 49 66 x-p.nil].5.(#$...7183)]).#@69.If
1ce0 20 53 55 46 46 49 58 20 69 73 20 73 75 66 66 69 78 20 6f 66 20 53 54 52 2c 20 74 68 65 20 73 74 .SUFFIX.is.suffix.of.STR,.the.st
1d00 72 69 6e 67 20 69 73 20 74 72 69 6d 6d 65 64 2e 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 53 54 52 ring.is.trimmed...(fn.SUFFIX.STR
1d20 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 )..(defalias.'haskell-string-tri
1d40 6d 2d 73 75 66 66 69 78 20 23 5b 35 31 34 20 22 01 3b 5c 32 30 35 17 00 5c 32 31 31 3b 5c 32 30 m-suffix.#[514.".;\205..\211;\20
1d60 35 17 00 5c 33 30 30 02 02 5c 22 5c 32 30 35 17 00 5c 32 31 31 5c 33 30 31 03 47 5b 4f 5c 32 30 5..\300..\"\205..\211\301.G[O\20
1d80 37 22 20 5b 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 30 5d 20 35 20 28 23 24 20 2e 20 37 7".[string-suffix-p.0].5.(#$...7
1da0 33 39 30 29 5d 29 0a 23 40 31 31 34 20 44 72 6f 70 20 71 75 61 6c 69 66 69 65 72 20 66 72 6f 6d 390)]).#@114.Drop.qualifier.from
1dc0 20 67 69 76 65 6e 20 69 64 65 6e 74 69 66 69 65 72 20 49 44 45 4e 54 2e 0a 0a 49 66 20 74 68 65 .given.identifier.IDENT...If.the
1de0 20 69 64 65 6e 74 69 66 69 65 72 20 69 73 20 6e 6f 74 20 71 75 61 6c 69 66 69 65 64 20 72 65 74 .identifier.is.not.qualified.ret
1e00 75 72 6e 20 69 74 20 75 6e 63 68 61 6e 67 65 64 2e 0a 0a 28 66 6e 20 49 44 45 4e 54 29 1f 0a 28 urn.it.unchanged...(fn.IDENT)..(
1e20 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 64 72 6f 70 2d 71 75 defalias.'haskell-string-drop-qu
1e40 61 6c 69 66 69 65 72 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 0e 00 alifier.#[257."\300\301.\"\203..
1e60 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 30 36 0f 00 5c 32 31 31 5c 32 30 37 22 20 5b 73 74 72 69 \302\303.\"\206..\211\207".[stri
1e80 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 28 5b 5e 2e 5d 2a 5c 5c 2e 5c 5c 29 2a 5c 5c 28 3f 31 3a ng-match."^\\([^.]*\\.\\)*\\(?1:
1ea0 5b 5e 2e 5d 2b 5c 5c 29 24 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 5d 20 34 20 28 23 24 [^.]+\\)$".match-string.1].4.(#$
1ec0 20 2e 20 37 35 39 37 29 5d 29 0a 23 40 31 32 32 20 45 63 68 6f 20 53 54 52 20 69 6e 20 6d 69 6e ...7597)]).#@122.Echo.STR.in.min
1ee0 69 2d 62 75 66 66 65 72 2e 0a 47 69 76 65 6e 20 73 74 72 69 6e 67 20 69 73 20 73 68 72 69 6e 6b i-buffer..Given.string.is.shrink
1f00 65 6e 20 74 6f 20 73 69 6e 67 6c 65 20 6c 69 6e 65 2c 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65 en.to.single.line,.multiple.line
1f20 73 20 6a 75 73 74 0a 64 69 73 74 75 72 62 73 20 74 68 65 20 70 72 6f 67 72 61 6d 6d 65 72 2e 0a s.just.disturbs.the.programmer..
1f40 0a 28 66 6e 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f .(fn.STR)..(defalias.'haskell-mo
1f60 64 65 2d 6d 65 73 73 61 67 65 2d 6c 69 6e 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c de-message-line.#[257."\300\301\
1f80 33 30 32 03 5c 33 30 33 20 5c 22 5c 22 5c 32 30 37 22 20 5b 6d 65 73 73 61 67 65 20 22 25 73 22 302.\303.\"\"\207".[message."%s"
1fa0 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 6f 6e 65 2d 6c 69 6e 65 20 66 72 61 6d 65 2d 77 69 64 .haskell-mode-one-line.frame-wid
1fc0 74 68 5d 20 36 20 28 23 24 20 2e 20 37 38 38 39 29 5d 29 0a 23 40 31 30 30 20 54 72 79 20 74 6f th].6.(#$...7889)]).#@100.Try.to
1fe0 20 66 69 74 20 53 54 52 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f 73 73 69 62 6c 65 20 6f 6e 20 .fit.STR.as.much.as.possible.on.
2000 6f 6e 65 20 6c 69 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 67 69 76 65 6e 20 57 49 44 54 one.line.according.to.given.WIDT
2020 48 2e 0a 0a 28 66 6e 20 53 54 52 20 26 6f 70 74 69 6f 6e 61 6c 20 57 49 44 54 48 29 1f 0a 28 64 H...(fn.STR.&optional.WIDTH)..(d
2040 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 6f 6e 65 2d 6c 69 6e 65 20 23 efalias.'haskell-mode-one-line.#
2060 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 34 08 00 01 47 5c 32 36 32 01 5c 33 30 30 5c 33 30 31 5c [513."\211\204...G\262.\300\301\
2080 33 30 32 04 23 5c 33 30 30 5c 33 30 33 5c 33 30 32 5c 33 30 34 04 21 23 5c 33 30 35 01 04 5c 33 302.#\300\303\302\304.!#\305..\3
20a0 30 36 5c 32 31 31 5c 33 30 37 25 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 06\211\307%\207".[replace-regexp
20c0 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 22 20 22 20 22 20 2b 22 20 68 61 73 6b 65 6c 6c -in-string."\n".".".".+".haskell
20e0 2d 73 74 72 69 6e 67 2d 74 72 69 6d 20 74 72 75 6e 63 61 74 65 2d 73 74 72 69 6e 67 2d 74 6f 2d -string-trim.truncate-string-to-
2100 77 69 64 74 68 20 6e 69 6c 20 22 e2 80 a6 22 5d 20 31 30 20 28 23 24 20 2e 20 38 31 35 34 29 5d width.nil."..."].10.(#$...8154)]
2120 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 29 0a ).(provide.'haskell-string).