├── .github └── workflows │ └── haskell.yml ├── .gitignore ├── .travis.yml ├── CHANGELOG ├── LICENSE ├── README.md ├── Setup.hs ├── Text └── Show │ ├── Html.hs │ ├── Parser.y │ ├── Pretty.hs │ ├── PrettyVal.hs │ └── Value.hs ├── bin └── ppsh.hs ├── pretty-show.cabal ├── style ├── jquery.js ├── pretty-show.css └── pretty-show.js └── test ├── Makefile ├── Test.hs ├── example ├── infix └── Infix.hs └── test.html /.github/workflows/haskell.yml: -------------------------------------------------------------------------------- 1 | name: Haskell CI 2 | 3 | on: [push] 4 | 5 | jobs: 6 | build: 7 | 8 | runs-on: ubuntu-latest 9 | 10 | steps: 11 | - uses: actions/checkout@v2 12 | - uses: actions/setup-haskell@v1 13 | with: 14 | ghc-version: '8.6.5' 15 | cabal-version: '3.0' 16 | - name: Install dependencies 17 | run: | 18 | cabal update 19 | cabal install --only-dependencies 20 | - name: Build 21 | run: | 22 | cabal configure 23 | cabal build 24 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | dist 2 | dist-newstyle 3 | cabal-dev 4 | .cabal-sandbox 5 | cabal.sandbox.config 6 | .ghc.environment.* 7 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | # This Travis job script has been generated by a script via 2 | # 3 | # runghc make_travis_yml_2.hs 'pretty-show.cabal' 4 | # 5 | # For more information, see https://github.com/haskell-CI/haskell-ci 6 | # 7 | language: c 8 | sudo: false 9 | 10 | git: 11 | submodules: false # whether to recursively clone submodules 12 | 13 | cache: 14 | directories: 15 | - $HOME/.cabal/packages 16 | - $HOME/.cabal/store 17 | 18 | before_cache: 19 | - rm -fv $HOME/.cabal/packages/hackage.haskell.org/build-reports.log 20 | # remove files that are regenerated by 'cabal update' 21 | - rm -fv $HOME/.cabal/packages/hackage.haskell.org/00-index.* 22 | - rm -fv $HOME/.cabal/packages/hackage.haskell.org/*.json 23 | - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.cache 24 | - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.tar 25 | - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.tar.idx 26 | 27 | - rm -rfv $HOME/.cabal/packages/head.hackage 28 | 29 | matrix: 30 | include: 31 | - compiler: "ghc-8.6.5" 32 | # env: TEST=--disable-tests BENCH=--disable-benchmarks 33 | addons: {apt: {packages: [ghc-ppa-tools,cabal-install-2.4,ghc-8.6.5], sources: [hvr-ghc]}} 34 | - compiler: "ghc-8.4.4" 35 | # env: TEST=--disable-tests BENCH=--disable-benchmarks 36 | addons: {apt: {packages: [ghc-ppa-tools,cabal-install-2.4,ghc-8.4.4], sources: [hvr-ghc]}} 37 | - compiler: "ghc-8.2.2" 38 | # env: TEST=--disable-tests BENCH=--disable-benchmarks 39 | addons: {apt: {packages: [ghc-ppa-tools,cabal-install-2.4,ghc-8.2.2], sources: [hvr-ghc]}} 40 | - compiler: "ghc-8.0.2" 41 | # env: TEST=--disable-tests BENCH=--disable-benchmarks 42 | addons: {apt: {packages: [ghc-ppa-tools,cabal-install-2.4,ghc-8.0.2], sources: [hvr-ghc]}} 43 | - compiler: "ghc-7.10.3" 44 | # env: TEST=--disable-tests BENCH=--disable-benchmarks 45 | addons: {apt: {packages: [ghc-ppa-tools,cabal-install-2.4,ghc-7.10.3], sources: [hvr-ghc]}} 46 | 47 | before_install: 48 | - HC=${CC} 49 | - HCPKG=${HC/ghc/ghc-pkg} 50 | - unset CC 51 | - ROOTDIR=$(pwd) 52 | - mkdir -p $HOME/.local/bin 53 | - "PATH=/opt/ghc/bin:/opt/ghc-ppa-tools/bin:$HOME/local/bin:$PATH" 54 | - HCNUMVER=$(( $(${HC} --numeric-version|sed -E 's/([0-9]+)\.([0-9]+)\.([0-9]+).*/\1 * 10000 + \2 * 100 + \3/') )) 55 | - echo $HCNUMVER 56 | 57 | install: 58 | - cabal --version 59 | - echo "$(${HC} --version) [$(${HC} --print-project-git-commit-id 2> /dev/null || echo '?')]" 60 | - BENCH=${BENCH---enable-benchmarks} 61 | - TEST=${TEST---enable-tests} 62 | - HADDOCK=${HADDOCK-true} 63 | - UNCONSTRAINED=${UNCONSTRAINED-true} 64 | - NOINSTALLEDCONSTRAINTS=${NOINSTALLEDCONSTRAINTS-false} 65 | - GHCHEAD=${GHCHEAD-false} 66 | - travis_retry cabal update -v 67 | - "sed -i.bak 's/^jobs:/-- jobs:/' ${HOME}/.cabal/config" 68 | - rm -fv cabal.project cabal.project.local 69 | - grep -Ev -- '^\s*--' ${HOME}/.cabal/config | grep -Ev '^\s*$' 70 | - "printf 'packages: \".\"\\n' > cabal.project" 71 | - touch cabal.project.local 72 | - "if ! $NOINSTALLEDCONSTRAINTS; then for pkg in $($HCPKG list --simple-output); do echo $pkg | grep -vw -- pretty-show | sed 's/^/constraints: /' | sed 's/-[^-]*$/ installed/' >> cabal.project.local; done; fi" 73 | - cat cabal.project || true 74 | - cat cabal.project.local || true 75 | - if [ -f "./configure.ac" ]; then 76 | (cd "." && autoreconf -i); 77 | fi 78 | - rm -f cabal.project.freeze 79 | - cabal new-build -w ${HC} ${TEST} ${BENCH} --project-file="cabal.project" --dep -j2 all 80 | - cabal new-build -w ${HC} --disable-tests --disable-benchmarks --project-file="cabal.project" --dep -j2 all 81 | - rm -rf .ghc.environment.* "."/dist 82 | - DISTDIR=$(mktemp -d /tmp/dist-test.XXXX) 83 | 84 | # Here starts the actual work to be performed for the package under test; 85 | # any command which exits with a non-zero exit code causes the build to fail. 86 | script: 87 | # test that source-distributions can be generated 88 | - cabal new-sdist all 89 | - mv dist-newstyle/sdist/*.tar.gz ${DISTDIR}/ 90 | - cd ${DISTDIR} || false 91 | - find . -maxdepth 1 -name '*.tar.gz' -exec tar -xvf '{}' \; 92 | - "printf 'packages: pretty-show-*/*.cabal\\n' > cabal.project" 93 | - touch cabal.project.local 94 | - "if ! $NOINSTALLEDCONSTRAINTS; then for pkg in $($HCPKG list --simple-output); do echo $pkg | grep -vw -- pretty-show | sed 's/^/constraints: /' | sed 's/-[^-]*$/ installed/' >> cabal.project.local; done; fi" 95 | - cat cabal.project || true 96 | - cat cabal.project.local || true 97 | # this builds all libraries and executables (without tests/benchmarks) 98 | - cabal new-build -w ${HC} --disable-tests --disable-benchmarks all 99 | 100 | # build & run tests, build benchmarks 101 | - cabal new-build -w ${HC} ${TEST} ${BENCH} all 102 | 103 | # haddock 104 | - if $HADDOCK; then cabal new-haddock -w ${HC} ${TEST} ${BENCH} all; else echo "Skipping haddock generation";fi 105 | 106 | # Build without installed constraints for packages in global-db 107 | - if $UNCONSTRAINED; then rm -f cabal.project.local; echo cabal new-build -w ${HC} --disable-tests --disable-benchmarks all; else echo "Not building without installed constraints"; fi 108 | 109 | # REGENDATA ["pretty-show.cabal"] 110 | # EOF 111 | -------------------------------------------------------------------------------- /CHANGELOG: -------------------------------------------------------------------------------- 1 | Changes in 1.10 2 | * Add support for quasi-quotes, as the preferred way of dealing 3 | with non-properly showable things. 4 | 5 | Changes in 1.9.5 6 | * Add a `PrettyVal` instance for `Data.Fixed` 7 | 8 | Changes in 1.9.4 9 | * Fix issue #35 10 | 11 | Changes in 1.9.3 12 | * Fix issue #34 13 | 14 | Changes in 1.9.2 15 | * Allow VARSYM as infix constructors 16 | 17 | Changes in 1.9.1 18 | * Allow keywords as the name of constructors 19 | 20 | Changes in 1.9 21 | * Add support for pre-processing values before printing. 22 | In particular, we add a pre-processor which will hide some constructors 23 | from the output. 24 | 25 | Changes in 1.8.2 26 | * Switch to using version 3.3.1 of jquery (jquery 1 seems to be long gone) 27 | 28 | Changes in 1.8 29 | * Rejigger the rendering of unusal values, to improve the rendering of datres. 30 | - a sequence of values with negative numbers is turned into an infix con 31 | - change the association when sequences meet infix things 32 | 33 | Changes in 1.7 34 | * Add a dependency on package Text 35 | - Adds an instance for `PrettyVal Text` 36 | - Paves the road for using `Text` in the representation of values. 37 | 38 | Changes in 1.6.16 39 | * Fixes to accomodate GHC 8.4 40 | 41 | Changes in 1.6.13 42 | * Parse things like and as constructors 43 | 44 | Changes in 1.6.12 45 | * Treat reserved operators as infix constructors (best effort kind of thing) 46 | 47 | Changes in 1.6.11 48 | * Add `pPrint`, which is `putStrLn . ppShow` 49 | 50 | Changes in 1.6.10 51 | * Increase the precedence of unary minus 52 | 53 | Changes in 1.6.9 54 | * Relax parsing of atoms, so that we can support things like the show 55 | instance of StdGen (e.g., [ 123 45, 786 10 ]) 56 | 57 | Changes in 1.6.8.2: 58 | * Correct license in srouce files. 59 | 60 | Changes in 1.6.8.1: 61 | * Correct the 'License' field in the Cabal file to match the license (MIT) 62 | 63 | Changes in 1.6.8: 64 | * Move source-repository pragma to top-level. 65 | 66 | Changes in 1.6.5: 67 | * Rename CHANGES to CHANGELOG to work with hackage. 68 | 69 | Changes in 1.6.4: 70 | * Drop dependency on happy >= 1.19 71 | 72 | Changes in 1.6.3: 73 | * Add Safe Haskell annotations 74 | * Add CHANGES file 75 | * Add generated parser to package again. We do this, because otherwise 76 | the package fails to build on systems that do not have `happy`. 77 | This is a bit questionable, but hopefully it won't be too much of 78 | a problem. 79 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | Copyright (c) 2008 Iavor S. Diatchki 2 | 3 | Permission is hereby granted, free of charge, to any person obtaining a copy of 4 | this software and associated documentation files (the "Software"), to deal in 5 | the Software without restriction, including without limitation the rights to 6 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies 7 | of the Software, and to permit persons to whom the Software is furnished to do 8 | so, subject to the following conditions: 9 | 10 | The above copyright notice and this permission notice shall be included in all 11 | copies or substantial portions of the Software. 12 | 13 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 14 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 15 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 16 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 17 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 18 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 19 | SOFTWARE. 20 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | [![Build Status](https://travis-ci.org/yav/pretty-show.svg?branch=master)](https://travis-ci.org/yav/pretty-show) 2 | ![Haskell CI](https://github.com/yav/pretty-show/workflows/Haskell%20CI/badge.svg) 3 | -------------------------------------------------------------------------------- /Setup.hs: -------------------------------------------------------------------------------- 1 | module Main (main) where 2 | 3 | import Distribution.Simple (defaultMain) 4 | 5 | main :: IO () 6 | main = defaultMain 7 | -------------------------------------------------------------------------------- /Text/Show/Html.hs: -------------------------------------------------------------------------------- 1 | {-# LANGUAGE Safe #-} 2 | module Text.Show.Html 3 | ( HtmlOpts(..), defaultHtmlOpts 4 | , valToHtml, valToHtmlPage, htmlPage 5 | , Html(..) 6 | ) where 7 | 8 | import Text.Show.Value 9 | import Prelude hiding (span) 10 | 11 | -- | Make an Html page representing the given value. 12 | valToHtmlPage :: HtmlOpts -> Value -> String 13 | valToHtmlPage opts = htmlPage opts . valToHtml opts 14 | 15 | -- | Options on how to generate Html (more to come). 16 | data HtmlOpts = HtmlOpts 17 | { dataDir :: FilePath -- ^ Path for extra files. If empty, we look in 18 | -- directory `style`, relative to document. 19 | , wideListWidth :: Int -- ^ Max. number of columns in wide lists. 20 | } deriving Show 21 | 22 | -- | Default options. 23 | defaultHtmlOpts :: HtmlOpts 24 | defaultHtmlOpts = HtmlOpts 25 | { dataDir = "" 26 | , wideListWidth = 80 27 | } 28 | 29 | -- | Convert a value into an Html fragment. 30 | valToHtml :: HtmlOpts -> Value -> Html 31 | valToHtml opts = loop 32 | where 33 | loop val = 34 | case val of 35 | Con con [] -> span "con" (text con) 36 | Con con vs -> tallRecord con (map conLab vs) (map loop vs) 37 | Rec con fs -> tallRecord con (map fst fs) (map (loop . snd) fs) 38 | Tuple vs -> wideTuple (map loop vs) 39 | 40 | InfixCons v ms -> 41 | table "infix tallRecord" 42 | [ tr $ (th "label" 1 (text " ") :) 43 | $ map td $ loop v : [ h | (op,u) <- ms 44 | , h <- [ text op, loop u ] 45 | ] 46 | ] 47 | 48 | List [] -> span "list" (text "[]") 49 | List vs@(v : vs1) -> 50 | case v of 51 | 52 | Con c fs 53 | | all (isCon c) vs1 -> recordList c (map conLab fs) 54 | [ map loop xs | Con _ xs <- vs ] 55 | | otherwise -> tallList $ map (loop) vs 56 | 57 | Rec c fs 58 | | all (isRec c) vs1 -> recordList c (map fst fs) 59 | [ map (loop . snd) xs | Rec _ xs <- vs ] 60 | | otherwise -> tallList $ map (loop) vs 61 | 62 | Tuple fs -> tupleList (length fs) 63 | [ map (loop) xs | Tuple xs <- vs ] 64 | 65 | List {} -> tallList $ map loop vs 66 | 67 | Neg {} -> wideList (wideListWidth opts) $ map loop vs 68 | Ratio {} -> wideList (wideListWidth opts) $ map loop vs 69 | Integer {} -> wideList (wideListWidth opts) $ map loop vs 70 | Float {} -> wideList (wideListWidth opts) $ map loop vs 71 | Char {} -> wideList (wideListWidth opts) $ map loop vs 72 | Date {} -> wideList (wideListWidth opts) $ map loop vs 73 | Time {} -> wideList (wideListWidth opts) $ map loop vs 74 | Quote {} -> wideList (wideListWidth opts) $ map loop vs 75 | String {} -> tallList $ map loop vs 76 | InfixCons {} -> tallList $ map loop vs 77 | 78 | Neg v -> 79 | case v of 80 | Integer txt -> span "integer" $ text ('-' : txt) 81 | Float txt -> span "float" $ text ('-' : txt) 82 | _ -> neg (loop v) 83 | 84 | Ratio v1 v2 -> ratio (loop v1) (loop v2) 85 | Integer txt -> span "integer" (text txt) 86 | Float txt -> span "float" (text txt) 87 | Char txt -> span "char" (text txt) 88 | String txt -> span "string" (text txt) 89 | Date txt -> span "date" (text txt) 90 | Time txt -> span "time" (text txt) 91 | Quote txt -> span "quote" (text txt) 92 | 93 | conLab _ = " " 94 | 95 | isCon c (Con d _) = c == d 96 | isCon _ _ = False 97 | 98 | isRec c (Rec d _) = c == d 99 | isRec _ _ = False 100 | 101 | 102 | neg :: Html -> Html 103 | neg e = table "negate" [ tr [td (text "-"), td e] ] 104 | 105 | ratio :: Html -> Html -> Html 106 | ratio e1 e2 = table "ratio" [ tr [ td' "numerator" e1 ], tr [td e2] ] 107 | 108 | wideTuple :: [Html] -> Html 109 | wideTuple els = table "wideTuple" [ tr $ map td els ] 110 | 111 | tallTuple :: [Html] -> Html 112 | tallTuple els = table "tallTuple" $ map (tr . return . td) els 113 | 114 | tallRecord :: Name -> [Name] -> [Html] -> Html 115 | tallRecord con labs els = table "tallRecord" $ topHs : zipWith row labs els 116 | where 117 | topHs = tr [ th "con" 2 (text con) ] 118 | row l e = tr [ th "label" 1 (text l), td e ] 119 | 120 | recordList :: Name -> [Name] -> [[Html]] -> Html 121 | recordList con labs els = table "recordList" $ topHs : zipWith row [0..] els 122 | where 123 | topHs = tr $ th "con" 1 (text con) : map (th "label" 1 . text) labs 124 | row n es = tr $ th "ix" 1 (int n) : map td es 125 | 126 | tupleList :: Int -> [[Html]] -> Html 127 | tupleList n els = recordList " " (replicate n " ") els 128 | 129 | tallList :: [Html] -> Html 130 | tallList els = table "tallList" $ top : zipWith row [0..] els 131 | where 132 | top = tr [ th "con" 2 (text " ")] 133 | row n e = tr [ th "ix" 1 (int n), td e ] 134 | 135 | wideList :: Int -> [Html] -> Html 136 | wideList w els = table "wideList" $ topHs : zipWith row [0..] (chop els) 137 | where 138 | elNum = length els 139 | pad = elNum > w 140 | 141 | chop [] = [] 142 | chop xs = let (as,bs) = splitAt w xs 143 | in take w (as ++ if pad then repeat empty else []) : chop bs 144 | 145 | topHs = tr $ th "con" 1 (text " ") : map (th "label" 1 . int) 146 | [ 0 .. min elNum w - 1 ] 147 | row n es = tr $ (th "ix" 1 (int (n*w))) : map td es 148 | 149 | -------------------------------------------------------------------------------- 150 | newtype Html = Html { exportHtml :: String } 151 | 152 | table :: String -> [Html] -> Html 153 | table cl body = Html $ "" ++ 154 | concatMap exportHtml body ++ 155 | "
" 156 | 157 | tr :: [Html] -> Html 158 | tr body = Html $ "" ++ concatMap exportHtml body ++ "" 159 | 160 | th :: String -> Int -> Html -> Html 161 | th cl n body = Html $ "" ++ 163 | exportHtml body ++ 164 | "" 165 | 166 | td :: Html -> Html 167 | td body = Html $ "" ++ exportHtml body ++ "" 168 | 169 | td' :: String -> Html -> Html 170 | td' cl body = Html $ "" ++ 171 | exportHtml body ++ 172 | "" 173 | 174 | span :: String -> Html -> Html 175 | span cl body = Html $ "" ++ 176 | exportHtml body ++ 177 | "" 178 | 179 | empty :: Html 180 | empty = Html "" 181 | 182 | int :: Int -> Html 183 | int = Html . show 184 | 185 | text :: String -> Html 186 | text = Html . concatMap esc 187 | where 188 | esc '<' = "<" 189 | esc '>' = ">" 190 | esc '&' = "&" 191 | esc ' ' = " " 192 | esc c = [c] 193 | 194 | -- | Wrap an Html fragment to make an Html page. 195 | htmlPage :: HtmlOpts -> Html -> String 196 | htmlPage opts body = 197 | unlines 198 | [ "" 199 | , "" 200 | , "" 201 | , "" 202 | , "" 203 | , "" 204 | , exportHtml body 205 | , "" 206 | , "" 207 | ] 208 | where 209 | -- XXX: slashes on Windows? 210 | dir = case dataDir opts of 211 | "" -> "" 212 | d -> d ++ "/" 213 | jquery = dir ++ "style/jquery.js" 214 | pjs = dir ++ "style/pretty-show.js" 215 | pstyle = dir ++ "style/pretty-show.css" 216 | 217 | 218 | -------------------------------------------------------------------------------- /Text/Show/Parser.y: -------------------------------------------------------------------------------- 1 | { 2 | -- We use these options because Happy generates code with a lot of warnings. 3 | {-# LANGUAGE Trustworthy #-} 4 | module Text.Show.Parser (parseValue) where 5 | 6 | import Text.Show.Value 7 | import Language.Haskell.Lexer 8 | import Data.List(intercalate) 9 | } 10 | 11 | %token 12 | 13 | '=' { (Reservedop, (_,"=")) } 14 | '(' { (Special, (_,"(")) } 15 | ')' { (Special, (_,")")) } 16 | '{' { (Special, (_,"{")) } 17 | '}' { (Special, (_,"}")) } 18 | '[' { (Special, (_,"[")) } 19 | ']' { (Special, (_,"]")) } 20 | '<' { (Varsym, (_,"<")) } 21 | '>' { (Varsym, (_,">")) } 22 | ',' { (Special, (_,",")) } 23 | '-' { (Varsym, (_,"-")) } 24 | '%' { (Varsym, (_,"%")) } 25 | '`' { (Special, (_,"`")) } 26 | ':' { (Reservedop, (_,":")) } 27 | 28 | INT { (IntLit, (_,$$)) } 29 | FLOAT { (FloatLit, (_,$$)) } 30 | STRING { (StringLit, (_,$$)) } 31 | CHAR { (CharLit, (_,$$)) } 32 | 33 | VARID { (Varid, (_,$$)) } 34 | QVARID { (Qvarid, (_,$$)) } 35 | VARSYM { (Varsym, (_,$$)) } 36 | QVARSYM { (Qvarsym, (_,$$)) } 37 | CONID { (Conid, (_,$$)) } 38 | QCONID { (Qconid, (_,$$)) } 39 | CONSYM { (Consym, (_,$$)) } 40 | QCONSYM { (Qconsym, (_,$$)) } 41 | QQUOTE { (QQuote, (_,$$)) } 42 | RESOP { (Reservedop, (_,$$)) } 43 | RESID { (Reservedid, (_,$$)) } 44 | 45 | 46 | 47 | %monad { Maybe } { (>>=) } { return } 48 | %name parseValue value 49 | %tokentype { PosToken } 50 | 51 | 52 | %% 53 | 54 | value :: { Value } 55 | : value '%' app_value { Ratio $1 $3 } 56 | | app_value { $1 } 57 | | app_value list1(infixelem) { InfixCons $1 $2 } 58 | 59 | infixelem :: { (String,Value) } 60 | : infixcon app_value { ($1,$2) } 61 | 62 | app_value :: { Value } 63 | : list1(avalue) { mkValue $1 } 64 | | '-' avalue { Neg $2 } 65 | 66 | 67 | avalue :: { Value } 68 | : '(' value ')' { $2 } -- hmm, we loose some parens here 69 | | '[' sep(value,',') ']' { List $2 } 70 | | '(' tuple ')' { Tuple $2 } 71 | | con '{' sep(field,',') '}' { Rec $1 $3 } 72 | | con { Con $1 [] } 73 | | INT { Integer $1 } 74 | | FLOAT { Float $1 } 75 | | STRING { String $1 } 76 | | CHAR { Char $1 } 77 | | INT '-' INT '-' INT { mkDate $1 $3 $5 } 78 | | INT ':' INT ':' INT { mkTime $1 $3 $5 } 79 | | INT ':' INT ':' FLOAT { mkTime $1 $3 $5 } 80 | | QQUOTE { Quote $1 } 81 | 82 | 83 | con :: { String } 84 | : CONID { $1 } 85 | | QCONID { $1 } 86 | | prefix(CONSYM) { $1 } 87 | | prefix(QCONSYM) { $1 } 88 | -- to support things like "fromList x" 89 | | VARID { $1 } 90 | | QVARID { $1 } 91 | | prefix(VARSYM) { $1 } 92 | | prefix(QVARSYM) { $1 } 93 | | '<' VARID '>' { "<" ++ $2 ++ ">" } -- note: looses space 94 | | '<' CONID '>' { "<" ++ $2 ++ ">" } -- ditto 95 | | RESID { $1 } 96 | 97 | infixcon :: { String } 98 | : CONSYM { $1 } 99 | | QCONSYM { $1 } 100 | | VARSYM { $1 } 101 | | QVARSYM { $1 } 102 | | '`' CONID '`' { backtick $2 } 103 | | '`' QCONID '`' { backtick $2 } 104 | | RESOP { $1 } 105 | 106 | field :: { (Name,Value) } 107 | : VARID '=' value { ($1,$3) } 108 | 109 | tuple :: { [Value] } 110 | : { [] } 111 | | value ',' sep1(value,',') { $1 : $3 } 112 | 113 | -- Common Rule Patterns -------------------------------------------------------- 114 | prefix(p) : '(' p ')' { "(" ++ $2 ++ ")" } 115 | 116 | sep1(p,q) : p list(snd(q,p)) { $1 : $2 } 117 | sep(p,q) : sep1(p,q) { $1 } 118 | | { [] } 119 | 120 | snd(p,q) : p q { $2 } 121 | 122 | list1(p) : rev_list1(p) { reverse $1 } 123 | list(p) : list1(p) { $1 } 124 | | { [] } 125 | 126 | rev_list1(p) : p { [$1] } 127 | | rev_list1(p) p { $2 : $1 } 128 | 129 | 130 | 131 | { 132 | backtick :: String -> String 133 | backtick s = "`" ++ s ++ "`" 134 | 135 | happyError :: [PosToken] -> Maybe a 136 | happyError ((_,(p,_)) : _) = Nothing -- error ("Parser error at: " ++ show p) 137 | happyError [] = Nothing -- error ("Parser error at EOF") 138 | 139 | mkDate :: String -> String -> String -> Value 140 | mkDate a b c = Date (intercalate "-" [a,b,c]) 141 | 142 | mkTime :: String -> String -> String -> Value 143 | mkTime a b c = Time (intercalate ":" [a,b,c]) 144 | 145 | 146 | 147 | mkValue :: [Value] -> Value 148 | mkValue [v] = v 149 | mkValue (Con "" [] : vs) = mkValue vs 150 | mkValue (Con x as : vs) = Con x (as ++ vs) 151 | mkValue vs = mkFakeCon vs 152 | 153 | mkFakeCon :: [Value] -> Value 154 | mkFakeCon vs = Con "" (concatMap expand vs) 155 | where expand (Con "" vs) = vs 156 | expand v = [v] 157 | 158 | 159 | } 160 | -------------------------------------------------------------------------------- /Text/Show/Pretty.hs: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- 2 | -- | 3 | -- Module : Text.Show.Pretty 4 | -- Copyright : (c) Iavor S. Diatchki 2009 5 | -- License : MIT 6 | -- 7 | -- Maintainer : iavor.diatchki@gmail.com 8 | -- Stability : provisional 9 | -- Portability : Haskell 98 10 | -- 11 | -- Functions for human-readable derived 'Show' instances. 12 | -------------------------------------------------------------------------------- 13 | 14 | {-# LANGUAGE CPP #-} 15 | {-# LANGUAGE Safe #-} 16 | {-# LANGUAGE PatternGuards #-} 17 | module Text.Show.Pretty 18 | ( -- * Generic representation of values 19 | Value(..), Name 20 | , valToStr 21 | , valToDoc 22 | , valToHtmlPage 23 | 24 | -- * Values using the 'Show' class 25 | , parseValue, reify, ppDoc, ppShow, pPrint 26 | 27 | , -- * Working with listlike ("foldable") collections 28 | ppDocList, ppShowList, pPrintList 29 | 30 | -- * Values using the 'PrettyVal' class 31 | , dumpDoc, dumpStr, dumpIO, PrettyVal(..) 32 | 33 | -- * Rendering values to Html 34 | , valToHtml, HtmlOpts(..), defaultHtmlOpts, htmlPage, Html(..) 35 | 36 | -- * Get location of data files 37 | , getDataDir 38 | 39 | -- * PPShow newtype wrapper 40 | , PPShow(..) 41 | 42 | , -- * Preprocessing of values 43 | PreProc(..), ppHide, ppHideNested, hideCon 44 | 45 | -- * Deprecated 46 | , ppValue 47 | ) where 48 | 49 | import Data.Char(isHexDigit) 50 | import Text.PrettyPrint 51 | import qualified Text.Show.Parser as P 52 | import Text.Show.Value 53 | import Text.Show.PrettyVal 54 | import Text.Show.Html 55 | import Data.Foldable(Foldable,toList) 56 | import Language.Haskell.Lexer(rmSpace,lexerPass0,Token(..)) 57 | import Paths_pretty_show (getDataDir) 58 | 59 | #if MIN_VERSION_base(4,11,0) 60 | import Prelude hiding ( (<>) ) 61 | #else 62 | import Prelude 63 | #endif 64 | 65 | {-# DEPRECATED ppValue "Please use `valToDoc` instead." #-} 66 | ppValue :: Value -> Doc 67 | ppValue = valToDoc 68 | 69 | {- | This is just a wrapper, so that calling `show` on a value will 70 | use `ppShow` on it instead. Convenient for writing tests, so that 71 | you get a prettier message if the test fails -} 72 | newtype PPShow a = PPShow a 73 | deriving (Eq,Ord) 74 | 75 | instance Show a => Show (PPShow a) where 76 | show (PPShow a) = ppShow a 77 | 78 | 79 | 80 | reify :: Show a => a -> Maybe Value 81 | reify = parseValue . show 82 | 83 | parseValue :: String -> Maybe Value 84 | parseValue = P.parseValue . rmSpace . foldr joinTokens [] . lexerPass0 85 | where 86 | 87 | -- Sometimes we join tokens that are next to each other, with no spaces. 88 | -- This improves the printing of some malformed inputs: 89 | -- * Hex numbers with no 0x: "4ab" instead of "4 ab" 90 | joinTokens a@(t1,(p1,s1)) bs = 91 | case bs of 92 | (_t2,(_,s2)) : more 93 | | IntLit <- t1, all isHexDigit s2 -> jn IntLit 94 | where jn t = (t,(p1,s1++s2)) : more 95 | 96 | _ -> a : bs 97 | 98 | 99 | -- | Convert a generic value into a pretty 'String', if possible. 100 | ppShow :: Show a => a -> String 101 | ppShow = show . ppDoc 102 | 103 | -- | Pretty print something that may be converted to a list as a list. 104 | -- Each entry is on a separate line, which means that we don't do clever 105 | -- pretty printing, and so this works well for large strucutures. 106 | ppShowList :: (Foldable f, Show a) => f a -> String 107 | ppShowList = show . ppDocList 108 | 109 | -- | Try to show a value, prettily. If we do not understand the value, then we 110 | -- just use its standard 'Show' instance. 111 | ppDoc :: Show a => a -> Doc 112 | ppDoc a = case parseValue txt of 113 | Just v -> valToDoc v 114 | Nothing -> text txt 115 | where txt = show a 116 | 117 | -- | Pretty print something that may be converted to a list as a list. 118 | -- Each entry is on a separate line, which means that we don't do clever 119 | -- pretty printing, and so this works well for large strucutures. 120 | ppDocList :: (Foldable f, Show a) => f a -> Doc 121 | ppDocList = blockWith vcat '[' ']' . map ppDoc . toList 122 | 123 | -- | Pretty print a generic value to stdout. This is particularly useful in the 124 | -- GHCi interactive environment. 125 | pPrint :: Show a => a -> IO () 126 | pPrint = putStrLn . ppShow 127 | 128 | -- | Pretty print something that may be converted to a list as a list. 129 | -- Each entry is on a separate line, which means that we don't do clever 130 | -- pretty printing, and so this works well for large strucutures. 131 | pPrintList :: (Foldable f, Show a) => f a -> IO () 132 | pPrintList = putStrLn . ppShowList 133 | 134 | -- | Render a value in the 'PrettyVal' class to a 'Doc'. 135 | -- The benefit of this function is that 'PrettyVal' instances may 136 | -- be derived automatically using generics. 137 | dumpDoc :: PrettyVal a => a -> Doc 138 | dumpDoc = valToDoc . prettyVal 139 | 140 | -- | Render a value in the 'PrettyVal' class to a 'String'. 141 | -- The benefit of this function is that 'PrettyVal' instances may 142 | -- be derived automatically using generics. 143 | dumpStr :: PrettyVal a => a -> String 144 | dumpStr = show . dumpDoc 145 | 146 | -- | Render a value using the 'PrettyVal' class and show it to standard out. 147 | dumpIO :: PrettyVal a => a -> IO () 148 | dumpIO = putStrLn . dumpStr 149 | 150 | 151 | -- | Pretty print a generic value. Our intention is that the result is 152 | -- equivalent to the 'Show' instance for the original value, except possibly 153 | -- easier to understand by a human. 154 | valToStr :: Value -> String 155 | valToStr = show . valToDoc 156 | 157 | -- | Pretty print a generic value. Our intention is that the result is 158 | -- equivalent to the 'Show' instance for the original value, except possibly 159 | -- easier to understand by a human. 160 | valToDoc :: Value -> Doc 161 | valToDoc val = case val of 162 | Con c vs -> ppCon c vs 163 | InfixCons v1 cvs -> hang_sep (go v1 cvs) 164 | where 165 | go v [] = [ppInfixAtom v] 166 | go v ((n,v2):cvs') = (ppInfixAtom v <+> text n):go v2 cvs' 167 | 168 | hang_sep [] = empty 169 | hang_sep (x:xs) = hang x 2 (sep xs) 170 | -- hang (ppInfixAtom v1) 2 (sep [ text n <+> ppInfixAtom v | (n,v) <- cvs ]) 171 | Rec c fs -> hang (text c) 2 $ block '{' '}' (map ppField fs) 172 | where ppField (x,v) = hang (text x <+> char '=') 2 (valToDoc v) 173 | 174 | List vs -> block '[' ']' (map valToDoc vs) 175 | Tuple vs -> block '(' ')' (map valToDoc vs) 176 | Neg v -> char '-' <> ppAtom v 177 | Ratio x y -> hang (ppAtom x <+> text "%") 2 (ppAtom y) 178 | Integer x -> text x 179 | Float x -> text x 180 | Char x -> text x 181 | String x -> text x 182 | Date x -> text x 183 | Time x -> text x 184 | Quote x -> text x 185 | 186 | 187 | -- | This type is used to allow pre-processing of values before showing them. 188 | data PreProc a = PreProc (Value -> Value) a 189 | 190 | instance Show a => Show (PreProc a) where 191 | showsPrec p (PreProc f a) cs = 192 | case parseValue txt of 193 | Nothing -> txt ++ cs 194 | Just v -> wrap (valToStr (f v)) 195 | where 196 | txt = showsPrec p a "" 197 | wrap t = case (t,txt) of 198 | (h:_,'(':_) | h /= '(' -> '(' : (t ++ ')' : cs) 199 | _ -> t ++ cs 200 | 201 | -- | Hide the given constructors when showing a value. 202 | ppHide :: (Name -> Bool) -> a -> PreProc a 203 | ppHide p = PreProc (hideCon False p) 204 | 205 | -- | Hide the given constructors when showing a value. 206 | -- In addition, hide values if all of their children were hidden. 207 | ppHideNested :: (Name -> Bool) -> a -> PreProc a 208 | ppHideNested p = PreProc (hideCon True p) 209 | 210 | 211 | 212 | -- Private --------------------------------------------------------------------- 213 | 214 | ppAtom :: Value -> Doc 215 | ppAtom v 216 | | isAtom v = valToDoc v 217 | | otherwise = parens (valToDoc v) 218 | 219 | ppInfixAtom :: Value -> Doc 220 | ppInfixAtom v 221 | | isInfixAtom v = valToDoc v 222 | | otherwise = parens (valToDoc v) 223 | 224 | ppCon :: Name -> [Value] -> Doc 225 | ppCon "" vs = sep (map ppAtom vs) 226 | ppCon c vs = hang (text c) 2 (sep (map ppAtom vs)) 227 | 228 | isAtom :: Value -> Bool 229 | isAtom (Con _ (_:_)) = False 230 | isAtom (InfixCons {}) = False 231 | isAtom (Ratio {}) = False 232 | isAtom (Neg {}) = False 233 | isAtom _ = True 234 | 235 | -- Don't put parenthesis around constructors in infix chains 236 | isInfixAtom :: Value -> Bool 237 | isInfixAtom (InfixCons {}) = False 238 | isInfixAtom (Ratio {}) = False 239 | isInfixAtom (Neg {}) = False 240 | isInfixAtom _ = True 241 | 242 | block :: Char -> Char -> [Doc] -> Doc 243 | block = blockWith sep 244 | 245 | blockWith :: ([Doc] -> Doc) -> Char -> Char -> [Doc] -> Doc 246 | blockWith _ a b [] = char a <> char b 247 | blockWith f a b (d:ds) = f $ 248 | (char a <+> d) : [ char ',' <+> x | x <- ds ] ++ [ char b ] 249 | 250 | 251 | 252 | -------------------------------------------------------------------------------- /Text/Show/PrettyVal.hs: -------------------------------------------------------------------------------- 1 | {-# LANGUAGE CPP #-} 2 | {-# LANGUAGE Safe #-} 3 | #ifndef NO_GENERICS 4 | {-# LANGUAGE TypeOperators #-} 5 | {-# LANGUAGE FlexibleInstances, FlexibleContexts #-} 6 | {-# LANGUAGE DefaultSignatures #-} 7 | #endif 8 | module Text.Show.PrettyVal ( PrettyVal(prettyVal) ) where 9 | 10 | import Text.Show.Value 11 | import Data.Text(Text) 12 | import qualified Data.Text as Text 13 | import Data.Fixed (Fixed, HasResolution) 14 | 15 | #ifndef NO_GENERICS 16 | import Data.Ratio 17 | import Data.Word 18 | import Data.Int 19 | import GHC.Generics 20 | #endif 21 | 22 | -- | A class for types that may be reified into a value. 23 | -- Instances of this class may be derived automatically, 24 | -- for datatypes that support `Generics`. 25 | class PrettyVal a where 26 | prettyVal :: a -> Value 27 | listValue :: [a] -> Value 28 | 29 | #ifndef NO_GENERICS 30 | 31 | default prettyVal :: (GDump (Rep a), Generic a) => a -> Value 32 | prettyVal = oneVal . gdump . from 33 | 34 | default listValue :: [a] -> Value 35 | listValue = List . map prettyVal 36 | 37 | 38 | class GDump f where 39 | gdump :: f a -> [(Name,Value)] 40 | 41 | instance GDump U1 where 42 | gdump U1 = [] 43 | 44 | instance (GDump f, GDump g) => GDump (f :*: g) where 45 | gdump (xs :*: ys) = gdump xs ++ gdump ys 46 | 47 | instance (GDump f, GDump g) => GDump (f :+: g) where 48 | gdump (L1 x) = gdump x 49 | gdump (R1 x) = gdump x 50 | 51 | instance PrettyVal a => GDump (K1 t a) where 52 | gdump (K1 x) = [ ("", prettyVal x) ] 53 | 54 | instance (GDump f, Datatype d) => GDump (M1 D d f) where 55 | gdump (M1 x) = gdump x 56 | 57 | instance (GDump f, Constructor c) => GDump (M1 C c f) where 58 | gdump c@(M1 x) 59 | | conIsRecord c = [ ("", Rec name (gdump x)) ] 60 | | isTuple name = [ ("", Tuple (map snd (gdump x))) ] 61 | | otherwise = [ ("", Con name (map snd (gdump x))) ] 62 | 63 | where 64 | name = conName c 65 | 66 | isTuple ('(' : cs) = case span (== ',') cs of 67 | (_,")") -> True 68 | _ -> False 69 | isTuple _ = False 70 | 71 | instance (GDump f, Selector s) => GDump (M1 S s f) where 72 | gdump it@(M1 x) = repeat (selName it) `zip` map snd (gdump x) 73 | #endif 74 | 75 | oneVal :: [(Name,Value)] -> Value 76 | oneVal x = 77 | case x of 78 | [ ("",v) ] -> v 79 | fs | all (null . fst) fs -> Con "?" (map snd fs) 80 | | otherwise -> Rec "?" fs 81 | 82 | 83 | mkNum :: (Ord a, Num a, Show a) => (String -> Value) -> a -> Value 84 | mkNum c x 85 | | x >= 0 = c (show x) 86 | | otherwise = Neg (c (show (negate x))) 87 | 88 | instance PrettyVal Int where prettyVal = mkNum Integer 89 | instance PrettyVal Integer where prettyVal = mkNum Integer 90 | instance PrettyVal Float where prettyVal x = Float (show x) 91 | instance PrettyVal Double where prettyVal x = Float (show x) 92 | 93 | instance PrettyVal Word8 where prettyVal x = Integer (show x) 94 | instance PrettyVal Word16 where prettyVal x = Integer (show x) 95 | instance PrettyVal Word32 where prettyVal x = Integer (show x) 96 | instance PrettyVal Word64 where prettyVal x = Integer (show x) 97 | 98 | instance PrettyVal Int8 where prettyVal = mkNum Integer 99 | instance PrettyVal Int16 where prettyVal = mkNum Integer 100 | instance PrettyVal Int32 where prettyVal = mkNum Integer 101 | instance PrettyVal Int64 where prettyVal = mkNum Integer 102 | 103 | instance PrettyVal Char where 104 | prettyVal x = Char (show x) 105 | listValue xs = String xs 106 | 107 | instance PrettyVal a => PrettyVal [a] where 108 | prettyVal xs = listValue xs 109 | 110 | instance (PrettyVal a, Integral a) => PrettyVal (Ratio a) where 111 | prettyVal r = Ratio (prettyVal (numerator r)) (prettyVal (denominator r)) 112 | 113 | instance HasResolution p => PrettyVal (Fixed p) where prettyVal x = Float (show x) 114 | 115 | instance (PrettyVal a1, PrettyVal a2) => PrettyVal (a1,a2) 116 | instance (PrettyVal a1, PrettyVal a2, PrettyVal a3) => PrettyVal (a1,a2,a3) 117 | instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, PrettyVal a4) => 118 | PrettyVal (a1,a2,a3,a4) 119 | 120 | instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, 121 | PrettyVal a4, PrettyVal a5) => PrettyVal (a1,a2,a3,a4,a5) 122 | 123 | instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, 124 | PrettyVal a4, PrettyVal a5, PrettyVal a6) => 125 | PrettyVal (a1,a2,a3,a4,a5,a6) 126 | 127 | instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, 128 | PrettyVal a4, PrettyVal a5, PrettyVal a6, PrettyVal a7) => 129 | PrettyVal (a1,a2,a3,a4,a5,a6,a7) 130 | 131 | instance PrettyVal Bool 132 | instance PrettyVal Ordering 133 | instance PrettyVal a => PrettyVal (Maybe a) 134 | instance (PrettyVal a, PrettyVal b) => PrettyVal (Either a b) 135 | 136 | instance PrettyVal Text where 137 | prettyVal = String . Text.unpack 138 | 139 | 140 | -------------------------------------------------------------------------------- /Text/Show/Value.hs: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- 2 | -- | 3 | -- Module : Text.Show.Value 4 | -- Copyright : (c) Iavor S. Diatchki 2009 5 | -- License : MIT 6 | -- 7 | -- Maintainer : iavor.diatchki@gmail.com 8 | -- Stability : provisional 9 | -- Portability : Haskell 98 10 | -- 11 | -- Generic representation of Showable values. 12 | -------------------------------------------------------------------------------- 13 | 14 | {-# LANGUAGE Safe #-} 15 | module Text.Show.Value ( Name, Value(..), hideCon ) where 16 | 17 | import Data.Maybe(fromMaybe,isNothing) 18 | 19 | -- | A name. 20 | type Name = String 21 | 22 | -- | Generic Haskell values. 23 | -- 'NaN' and 'Infinity' are represented as constructors. 24 | -- The 'String' in the literals is the text for the literals \"as is\". 25 | -- 26 | -- A chain of infix constructors means that they appeared in the input string 27 | -- without parentheses, i.e 28 | -- 29 | -- @1 :+: 2 :*: 3@ is represented with @InfixCons 1 [(":+:",2),(":*:",3)]@, whereas 30 | -- 31 | -- @1 :+: (2 :*: 3)@ is represented with @InfixCons 1 [(":+:",InfixCons 2 [(":*:",3)])]@. 32 | data Value = Con Name [Value] -- ^ Data constructor 33 | | InfixCons Value [(Name,Value)] -- ^ Infix data constructor chain 34 | | Rec Name [ (Name,Value) ] -- ^ Record value 35 | | Tuple [Value] -- ^ Tuple 36 | | List [Value] -- ^ List 37 | | Neg Value -- ^ Negated value 38 | | Ratio Value Value -- ^ Rational 39 | | Integer String -- ^ Non-negative integer 40 | | Float String -- ^ Non-negative floating num. 41 | | Char String -- ^ Character 42 | | String String -- ^ String 43 | | Date String -- ^ 01-02-2003 44 | | Time String -- ^ 08:30:21 45 | | Quote String -- ^ \[time|2003-02-01T08:30:21Z|] 46 | deriving (Eq,Show) 47 | 48 | {- | Hide constrcutros matching the given predicate. 49 | If the hidden value is in a record, we also hide 50 | the corresponding record field. 51 | 52 | If the boolean flag is true, then we also hide 53 | constructors all of whose fields were hidden. -} 54 | hideCon :: Bool -> (Name -> Bool) -> Value -> Value 55 | hideCon collapse hidden = toVal . delMaybe 56 | where 57 | hiddenV = Con "_" [] 58 | 59 | toVal = fromMaybe hiddenV 60 | 61 | delMany vals 62 | | collapse && all isNothing newVals = Nothing 63 | | otherwise = Just (map toVal newVals) 64 | where 65 | newVals = map delMaybe vals 66 | 67 | delMaybe val = 68 | case val of 69 | Con x vs 70 | | hidden x -> Nothing 71 | | null vs -> Just val 72 | | otherwise -> Con x `fmap` delMany vs 73 | 74 | Rec x fs 75 | | hidden x -> Nothing 76 | | null fs -> Just val 77 | | collapse && all isNothing mbs -> Nothing 78 | | otherwise -> Just (Rec x [ (f,v) | (f,Just v) <- zip ls mbs ]) 79 | where (ls,vs) = unzip fs 80 | mbs = map delMaybe vs 81 | 82 | InfixCons v ys 83 | | any hidden cs -> Nothing 84 | | otherwise -> do ~(v1:vs1) <- delMany (v:vs) 85 | Just (InfixCons v1 (zip cs vs1)) 86 | where (cs,vs) = unzip ys 87 | 88 | Tuple vs | null vs -> Just val 89 | | otherwise -> Tuple `fmap` delMany vs 90 | List vs | null vs -> Just val 91 | | otherwise -> List `fmap` delMany vs 92 | Neg v -> Neg `fmap` delMaybe v 93 | Ratio v1 v2 -> do ~[a,b] <- delMany [v1,v2] 94 | Just (Ratio a b) 95 | Integer {} -> Just val 96 | Float {} -> Just val 97 | Char {} -> Just val 98 | String {} -> Just val 99 | Date {} -> Just val 100 | Time {} -> Just val 101 | Quote {} -> Just val 102 | 103 | 104 | -------------------------------------------------------------------------------- /bin/ppsh.hs: -------------------------------------------------------------------------------- 1 | import Text.Show.Pretty 2 | import Data.Either(partitionEithers) 3 | import Data.List(isPrefixOf) 4 | import Data.Char(isSpace) 5 | import System.Environment(getArgs) 6 | import System.IO(hPutStrLn,stderr) 7 | 8 | main :: IO () 9 | main = 10 | do as <- getArgs 11 | let (opts,hiding) = partitionEithers (map isHiding as) 12 | preproc v = case hiding of 13 | [] -> v 14 | _ -> hideCon False (`elem` hiding) v 15 | case opts of 16 | ["--test"] -> interactLn (show . selftest1) 17 | 18 | ["--html"] -> 19 | do txt <- getContents 20 | case parseValue txt of 21 | Just v -> 22 | do dir <- getDataDir 23 | let optis = defaultHtmlOpts { dataDir = dir } 24 | -- XXX: perhaps for HTML the "hidden" values should 25 | -- just start off collapsed, rahter than being deleted? 26 | putStrLn (valToHtmlPage optis (preproc v)) 27 | Nothing -> hPutStrLn stderr "Failed to parse value." 28 | 29 | [] -> interactLn $ \s -> case parseValue s of 30 | Just v -> show (valToDoc (preproc v)) 31 | Nothing -> s 32 | _ -> hPutStrLn stderr $ unlines 33 | [ "usage: ppsh < showed_value > pretty_value" 34 | , " --hide=CON Hide this constructor." 35 | , " --html Generate HTML." 36 | , " --test Self test: True means we passed." 37 | ] 38 | where 39 | isHiding a 40 | | pref `isPrefixOf` a = Right $ dropWhile isSpace 41 | $ drop (length pref) a 42 | | otherwise = Left a 43 | where pref = "--hide=" 44 | 45 | 46 | interactLn :: (String -> String) -> IO () 47 | interactLn f = interact f >> putStrLn "" 48 | 49 | selftest :: Value -> Bool 50 | selftest v = case parseValue $ show $ valToDoc v of 51 | Just v1 -> v1 == v 52 | Nothing -> False 53 | 54 | selftest1 :: String -> Bool 55 | selftest1 txt = case parseValue txt of 56 | Just v -> selftest v 57 | Nothing -> True 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /pretty-show.cabal: -------------------------------------------------------------------------------- 1 | name: pretty-show 2 | version: 1.11 3 | category: Text 4 | 5 | synopsis: Tools for working with derived `Show` instances and generic 6 | inspection of values. 7 | description: 8 | We provide a library and an executable for working with derived 'Show' 9 | instances. By using the library, we can parse derived 'Show' instances into a 10 | generic data structure. The @ppsh@ tool uses the library to produce 11 | human-readable versions of 'Show' instances, which can be quite handy for 12 | debugging Haskell programs. We can also render complex generic values into 13 | an interactive Html page, for easier examination. 14 | 15 | license: MIT 16 | license-file: LICENSE 17 | author: Iavor S. Diatchki 18 | maintainer: iavor.diatchki@gmail.com 19 | 20 | homepage: https://github.com/yav/pretty-show 21 | 22 | cabal-version: >= 1.8 23 | build-type: Simple 24 | 25 | tested-with: GHC == 7.10.3 26 | GHC == 8.0.2 27 | GHC == 8.2.2 28 | GHC == 8.4.4 29 | GHC == 8.6.1 30 | 31 | data-files: 32 | style/jquery.js 33 | style/pretty-show.js 34 | style/pretty-show.css 35 | 36 | extra-source-files: 37 | CHANGELOG 38 | 39 | library 40 | exposed-modules: 41 | Text.Show.Pretty 42 | other-modules: 43 | Text.Show.Html 44 | Text.Show.Parser 45 | Text.Show.Value 46 | Text.Show.PrettyVal 47 | Paths_pretty_show 48 | build-depends: 49 | array >= 0.2 && < 2, 50 | base >= 4.5 && < 5, 51 | haskell-lexer >= 1.1 && < 2, 52 | pretty >= 1 && < 2, 53 | text, 54 | filepath, 55 | unordered-containers, 56 | hashable, 57 | ghc-prim 58 | ghc-options: -Wall -O2 59 | if impl(ghc < 7.4) 60 | cpp-options: -DNO_GENERICS 61 | build-tool-depends: happy:happy 62 | build-tools: happy 63 | 64 | executable ppsh 65 | main-is: ppsh.hs 66 | other-modules: Paths_pretty_show 67 | 68 | hs-source-dirs: bin 69 | build-depends: 70 | base >= 4.5 && < 5, 71 | pretty-show 72 | ghc-options: -Wall 73 | 74 | source-repository head 75 | type: git 76 | location: https://github.com/yav/pretty-show.git 77 | 78 | 79 | -------------------------------------------------------------------------------- /style/jquery.js: -------------------------------------------------------------------------------- 1 | /*! jQuery v3.3.1 | (c) JS Foundation and other contributors | jquery.org/license */ 2 | !function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof window?window:this,function(e,t){"use strict";var n=[],r=e.document,i=Object.getPrototypeOf,o=n.slice,a=n.concat,s=n.push,u=n.indexOf,l={},c=l.toString,f=l.hasOwnProperty,p=f.toString,d=p.call(Object),h={},g=function e(t){return"function"==typeof t&&"number"!=typeof t.nodeType},y=function e(t){return null!=t&&t===t.window},v={type:!0,src:!0,noModule:!0};function m(e,t,n){var i,o=(t=t||r).createElement("script");if(o.text=e,n)for(i in v)n[i]&&(o[i]=n[i]);t.head.appendChild(o).parentNode.removeChild(o)}function x(e){return null==e?e+"":"object"==typeof e||"function"==typeof e?l[c.call(e)]||"object":typeof e}var b="3.3.1",w=function(e,t){return new w.fn.init(e,t)},T=/^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g;w.fn=w.prototype={jquery:"3.3.1",constructor:w,length:0,toArray:function(){return o.call(this)},get:function(e){return null==e?o.call(this):e<0?this[e+this.length]:this[e]},pushStack:function(e){var t=w.merge(this.constructor(),e);return t.prevObject=this,t},each:function(e){return w.each(this,e)},map:function(e){return this.pushStack(w.map(this,function(t,n){return e.call(t,n,t)}))},slice:function(){return this.pushStack(o.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},eq:function(e){var t=this.length,n=+e+(e<0?t:0);return this.pushStack(n>=0&&n0&&t-1 in e)}var E=function(e){var t,n,r,i,o,a,s,u,l,c,f,p,d,h,g,y,v,m,x,b="sizzle"+1*new Date,w=e.document,T=0,C=0,E=ae(),k=ae(),S=ae(),D=function(e,t){return e===t&&(f=!0),0},N={}.hasOwnProperty,A=[],j=A.pop,q=A.push,L=A.push,H=A.slice,O=function(e,t){for(var n=0,r=e.length;n+~]|"+M+")"+M+"*"),z=new RegExp("="+M+"*([^\\]'\"]*?)"+M+"*\\]","g"),X=new RegExp(W),U=new RegExp("^"+R+"$"),V={ID:new RegExp("^#("+R+")"),CLASS:new RegExp("^\\.("+R+")"),TAG:new RegExp("^("+R+"|[*])"),ATTR:new RegExp("^"+I),PSEUDO:new RegExp("^"+W),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+P+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},G=/^(?:input|select|textarea|button)$/i,Y=/^h\d$/i,Q=/^[^{]+\{\s*\[native \w/,J=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,K=/[+~]/,Z=new RegExp("\\\\([\\da-f]{1,6}"+M+"?|("+M+")|.)","ig"),ee=function(e,t,n){var r="0x"+t-65536;return r!==r||n?t:r<0?String.fromCharCode(r+65536):String.fromCharCode(r>>10|55296,1023&r|56320)},te=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ne=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},re=function(){p()},ie=me(function(e){return!0===e.disabled&&("form"in e||"label"in e)},{dir:"parentNode",next:"legend"});try{L.apply(A=H.call(w.childNodes),w.childNodes),A[w.childNodes.length].nodeType}catch(e){L={apply:A.length?function(e,t){q.apply(e,H.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function oe(e,t,r,i){var o,s,l,c,f,h,v,m=t&&t.ownerDocument,T=t?t.nodeType:9;if(r=r||[],"string"!=typeof e||!e||1!==T&&9!==T&&11!==T)return r;if(!i&&((t?t.ownerDocument||t:w)!==d&&p(t),t=t||d,g)){if(11!==T&&(f=J.exec(e)))if(o=f[1]){if(9===T){if(!(l=t.getElementById(o)))return r;if(l.id===o)return r.push(l),r}else if(m&&(l=m.getElementById(o))&&x(t,l)&&l.id===o)return r.push(l),r}else{if(f[2])return L.apply(r,t.getElementsByTagName(e)),r;if((o=f[3])&&n.getElementsByClassName&&t.getElementsByClassName)return L.apply(r,t.getElementsByClassName(o)),r}if(n.qsa&&!S[e+" "]&&(!y||!y.test(e))){if(1!==T)m=t,v=e;else if("object"!==t.nodeName.toLowerCase()){(c=t.getAttribute("id"))?c=c.replace(te,ne):t.setAttribute("id",c=b),s=(h=a(e)).length;while(s--)h[s]="#"+c+" "+ve(h[s]);v=h.join(","),m=K.test(e)&&ge(t.parentNode)||t}if(v)try{return L.apply(r,m.querySelectorAll(v)),r}catch(e){}finally{c===b&&t.removeAttribute("id")}}}return u(e.replace(B,"$1"),t,r,i)}function ae(){var e=[];function t(n,i){return e.push(n+" ")>r.cacheLength&&delete t[e.shift()],t[n+" "]=i}return t}function se(e){return e[b]=!0,e}function ue(e){var t=d.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function le(e,t){var n=e.split("|"),i=n.length;while(i--)r.attrHandle[n[i]]=t}function ce(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function fe(e){return function(t){return"input"===t.nodeName.toLowerCase()&&t.type===e}}function pe(e){return function(t){var n=t.nodeName.toLowerCase();return("input"===n||"button"===n)&&t.type===e}}function de(e){return function(t){return"form"in t?t.parentNode&&!1===t.disabled?"label"in t?"label"in t.parentNode?t.parentNode.disabled===e:t.disabled===e:t.isDisabled===e||t.isDisabled!==!e&&ie(t)===e:t.disabled===e:"label"in t&&t.disabled===e}}function he(e){return se(function(t){return t=+t,se(function(n,r){var i,o=e([],n.length,t),a=o.length;while(a--)n[i=o[a]]&&(n[i]=!(r[i]=n[i]))})})}function ge(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}n=oe.support={},o=oe.isXML=function(e){var t=e&&(e.ownerDocument||e).documentElement;return!!t&&"HTML"!==t.nodeName},p=oe.setDocument=function(e){var t,i,a=e?e.ownerDocument||e:w;return a!==d&&9===a.nodeType&&a.documentElement?(d=a,h=d.documentElement,g=!o(d),w!==d&&(i=d.defaultView)&&i.top!==i&&(i.addEventListener?i.addEventListener("unload",re,!1):i.attachEvent&&i.attachEvent("onunload",re)),n.attributes=ue(function(e){return e.className="i",!e.getAttribute("className")}),n.getElementsByTagName=ue(function(e){return e.appendChild(d.createComment("")),!e.getElementsByTagName("*").length}),n.getElementsByClassName=Q.test(d.getElementsByClassName),n.getById=ue(function(e){return h.appendChild(e).id=b,!d.getElementsByName||!d.getElementsByName(b).length}),n.getById?(r.filter.ID=function(e){var t=e.replace(Z,ee);return function(e){return e.getAttribute("id")===t}},r.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&g){var n=t.getElementById(e);return n?[n]:[]}}):(r.filter.ID=function(e){var t=e.replace(Z,ee);return function(e){var n="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return n&&n.value===t}},r.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&g){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),r.find.TAG=n.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):n.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},r.find.CLASS=n.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&g)return t.getElementsByClassName(e)},v=[],y=[],(n.qsa=Q.test(d.querySelectorAll))&&(ue(function(e){h.appendChild(e).innerHTML="",e.querySelectorAll("[msallowcapture^='']").length&&y.push("[*^$]="+M+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||y.push("\\["+M+"*(?:value|"+P+")"),e.querySelectorAll("[id~="+b+"-]").length||y.push("~="),e.querySelectorAll(":checked").length||y.push(":checked"),e.querySelectorAll("a#"+b+"+*").length||y.push(".#.+[+~]")}),ue(function(e){e.innerHTML="";var t=d.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&y.push("name"+M+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&y.push(":enabled",":disabled"),h.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&y.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),y.push(",.*:")})),(n.matchesSelector=Q.test(m=h.matches||h.webkitMatchesSelector||h.mozMatchesSelector||h.oMatchesSelector||h.msMatchesSelector))&&ue(function(e){n.disconnectedMatch=m.call(e,"*"),m.call(e,"[s!='']:x"),v.push("!=",W)}),y=y.length&&new RegExp(y.join("|")),v=v.length&&new RegExp(v.join("|")),t=Q.test(h.compareDocumentPosition),x=t||Q.test(h.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,r=t&&t.parentNode;return e===r||!(!r||1!==r.nodeType||!(n.contains?n.contains(r):e.compareDocumentPosition&&16&e.compareDocumentPosition(r)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},D=t?function(e,t){if(e===t)return f=!0,0;var r=!e.compareDocumentPosition-!t.compareDocumentPosition;return r||(1&(r=(e.ownerDocument||e)===(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!n.sortDetached&&t.compareDocumentPosition(e)===r?e===d||e.ownerDocument===w&&x(w,e)?-1:t===d||t.ownerDocument===w&&x(w,t)?1:c?O(c,e)-O(c,t):0:4&r?-1:1)}:function(e,t){if(e===t)return f=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e===d?-1:t===d?1:i?-1:o?1:c?O(c,e)-O(c,t):0;if(i===o)return ce(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?ce(a[r],s[r]):a[r]===w?-1:s[r]===w?1:0},d):d},oe.matches=function(e,t){return oe(e,null,null,t)},oe.matchesSelector=function(e,t){if((e.ownerDocument||e)!==d&&p(e),t=t.replace(z,"='$1']"),n.matchesSelector&&g&&!S[t+" "]&&(!v||!v.test(t))&&(!y||!y.test(t)))try{var r=m.call(e,t);if(r||n.disconnectedMatch||e.document&&11!==e.document.nodeType)return r}catch(e){}return oe(t,d,null,[e]).length>0},oe.contains=function(e,t){return(e.ownerDocument||e)!==d&&p(e),x(e,t)},oe.attr=function(e,t){(e.ownerDocument||e)!==d&&p(e);var i=r.attrHandle[t.toLowerCase()],o=i&&N.call(r.attrHandle,t.toLowerCase())?i(e,t,!g):void 0;return void 0!==o?o:n.attributes||!g?e.getAttribute(t):(o=e.getAttributeNode(t))&&o.specified?o.value:null},oe.escape=function(e){return(e+"").replace(te,ne)},oe.error=function(e){throw new Error("Syntax error, unrecognized expression: "+e)},oe.uniqueSort=function(e){var t,r=[],i=0,o=0;if(f=!n.detectDuplicates,c=!n.sortStable&&e.slice(0),e.sort(D),f){while(t=e[o++])t===e[o]&&(i=r.push(o));while(i--)e.splice(r[i],1)}return c=null,e},i=oe.getText=function(e){var t,n="",r=0,o=e.nodeType;if(o){if(1===o||9===o||11===o){if("string"==typeof e.textContent)return e.textContent;for(e=e.firstChild;e;e=e.nextSibling)n+=i(e)}else if(3===o||4===o)return e.nodeValue}else while(t=e[r++])n+=i(t);return n},(r=oe.selectors={cacheLength:50,createPseudo:se,match:V,attrHandle:{},find:{},relative:{">":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(Z,ee),e[3]=(e[3]||e[4]||e[5]||"").replace(Z,ee),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||oe.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&oe.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return V.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=a(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(Z,ee).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=E[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&E(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(e,t,n){return function(r){var i=oe.attr(r,e);return null==i?"!="===t:!t||(i+="","="===t?i===n:"!="===t?i!==n:"^="===t?n&&0===i.indexOf(n):"*="===t?n&&i.indexOf(n)>-1:"$="===t?n&&i.slice(-n.length)===n:"~="===t?(" "+i.replace($," ")+" ").indexOf(n)>-1:"|="===t&&(i===n||i.slice(0,n.length+1)===n+"-"))}},CHILD:function(e,t,n,r,i){var o="nth"!==e.slice(0,3),a="last"!==e.slice(-4),s="of-type"===t;return 1===r&&0===i?function(e){return!!e.parentNode}:function(t,n,u){var l,c,f,p,d,h,g=o!==a?"nextSibling":"previousSibling",y=t.parentNode,v=s&&t.nodeName.toLowerCase(),m=!u&&!s,x=!1;if(y){if(o){while(g){p=t;while(p=p[g])if(s?p.nodeName.toLowerCase()===v:1===p.nodeType)return!1;h=g="only"===e&&!h&&"nextSibling"}return!0}if(h=[a?y.firstChild:y.lastChild],a&&m){x=(d=(l=(c=(f=(p=y)[b]||(p[b]={}))[p.uniqueID]||(f[p.uniqueID]={}))[e]||[])[0]===T&&l[1])&&l[2],p=d&&y.childNodes[d];while(p=++d&&p&&p[g]||(x=d=0)||h.pop())if(1===p.nodeType&&++x&&p===t){c[e]=[T,d,x];break}}else if(m&&(x=d=(l=(c=(f=(p=t)[b]||(p[b]={}))[p.uniqueID]||(f[p.uniqueID]={}))[e]||[])[0]===T&&l[1]),!1===x)while(p=++d&&p&&p[g]||(x=d=0)||h.pop())if((s?p.nodeName.toLowerCase()===v:1===p.nodeType)&&++x&&(m&&((c=(f=p[b]||(p[b]={}))[p.uniqueID]||(f[p.uniqueID]={}))[e]=[T,x]),p===t))break;return(x-=i)===r||x%r==0&&x/r>=0}}},PSEUDO:function(e,t){var n,i=r.pseudos[e]||r.setFilters[e.toLowerCase()]||oe.error("unsupported pseudo: "+e);return i[b]?i(t):i.length>1?(n=[e,e,"",t],r.setFilters.hasOwnProperty(e.toLowerCase())?se(function(e,n){var r,o=i(e,t),a=o.length;while(a--)e[r=O(e,o[a])]=!(n[r]=o[a])}):function(e){return i(e,0,n)}):i}},pseudos:{not:se(function(e){var t=[],n=[],r=s(e.replace(B,"$1"));return r[b]?se(function(e,t,n,i){var o,a=r(e,null,i,[]),s=e.length;while(s--)(o=a[s])&&(e[s]=!(t[s]=o))}):function(e,i,o){return t[0]=e,r(t,null,o,n),t[0]=null,!n.pop()}}),has:se(function(e){return function(t){return oe(e,t).length>0}}),contains:se(function(e){return e=e.replace(Z,ee),function(t){return(t.textContent||t.innerText||i(t)).indexOf(e)>-1}}),lang:se(function(e){return U.test(e||"")||oe.error("unsupported lang: "+e),e=e.replace(Z,ee).toLowerCase(),function(t){var n;do{if(n=g?t.lang:t.getAttribute("xml:lang")||t.getAttribute("lang"))return(n=n.toLowerCase())===e||0===n.indexOf(e+"-")}while((t=t.parentNode)&&1===t.nodeType);return!1}}),target:function(t){var n=e.location&&e.location.hash;return n&&n.slice(1)===t.id},root:function(e){return e===h},focus:function(e){return e===d.activeElement&&(!d.hasFocus||d.hasFocus())&&!!(e.type||e.href||~e.tabIndex)},enabled:de(!1),disabled:de(!0),checked:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&!!e.checked||"option"===t&&!!e.selected},selected:function(e){return e.parentNode&&e.parentNode.selectedIndex,!0===e.selected},empty:function(e){for(e=e.firstChild;e;e=e.nextSibling)if(e.nodeType<6)return!1;return!0},parent:function(e){return!r.pseudos.empty(e)},header:function(e){return Y.test(e.nodeName)},input:function(e){return G.test(e.nodeName)},button:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&"button"===e.type||"button"===t},text:function(e){var t;return"input"===e.nodeName.toLowerCase()&&"text"===e.type&&(null==(t=e.getAttribute("type"))||"text"===t.toLowerCase())},first:he(function(){return[0]}),last:he(function(e,t){return[t-1]}),eq:he(function(e,t,n){return[n<0?n+t:n]}),even:he(function(e,t){for(var n=0;n=0;)e.push(r);return e}),gt:he(function(e,t,n){for(var r=n<0?n+t:n;++r1?function(t,n,r){var i=e.length;while(i--)if(!e[i](t,n,r))return!1;return!0}:e[0]}function be(e,t,n){for(var r=0,i=t.length;r-1&&(o[l]=!(a[l]=f))}}else v=we(v===a?v.splice(h,v.length):v),i?i(null,a,v,u):L.apply(a,v)})}function Ce(e){for(var t,n,i,o=e.length,a=r.relative[e[0].type],s=a||r.relative[" "],u=a?1:0,c=me(function(e){return e===t},s,!0),f=me(function(e){return O(t,e)>-1},s,!0),p=[function(e,n,r){var i=!a&&(r||n!==l)||((t=n).nodeType?c(e,n,r):f(e,n,r));return t=null,i}];u1&&xe(p),u>1&&ve(e.slice(0,u-1).concat({value:" "===e[u-2].type?"*":""})).replace(B,"$1"),n,u0,i=e.length>0,o=function(o,a,s,u,c){var f,h,y,v=0,m="0",x=o&&[],b=[],w=l,C=o||i&&r.find.TAG("*",c),E=T+=null==w?1:Math.random()||.1,k=C.length;for(c&&(l=a===d||a||c);m!==k&&null!=(f=C[m]);m++){if(i&&f){h=0,a||f.ownerDocument===d||(p(f),s=!g);while(y=e[h++])if(y(f,a||d,s)){u.push(f);break}c&&(T=E)}n&&((f=!y&&f)&&v--,o&&x.push(f))}if(v+=m,n&&m!==v){h=0;while(y=t[h++])y(x,b,a,s);if(o){if(v>0)while(m--)x[m]||b[m]||(b[m]=j.call(u));b=we(b)}L.apply(u,b),c&&!o&&b.length>0&&v+t.length>1&&oe.uniqueSort(u)}return c&&(T=E,l=w),x};return n?se(o):o}return s=oe.compile=function(e,t){var n,r=[],i=[],o=S[e+" "];if(!o){t||(t=a(e)),n=t.length;while(n--)(o=Ce(t[n]))[b]?r.push(o):i.push(o);(o=S(e,Ee(i,r))).selector=e}return o},u=oe.select=function(e,t,n,i){var o,u,l,c,f,p="function"==typeof e&&e,d=!i&&a(e=p.selector||e);if(n=n||[],1===d.length){if((u=d[0]=d[0].slice(0)).length>2&&"ID"===(l=u[0]).type&&9===t.nodeType&&g&&r.relative[u[1].type]){if(!(t=(r.find.ID(l.matches[0].replace(Z,ee),t)||[])[0]))return n;p&&(t=t.parentNode),e=e.slice(u.shift().value.length)}o=V.needsContext.test(e)?0:u.length;while(o--){if(l=u[o],r.relative[c=l.type])break;if((f=r.find[c])&&(i=f(l.matches[0].replace(Z,ee),K.test(u[0].type)&&ge(t.parentNode)||t))){if(u.splice(o,1),!(e=i.length&&ve(u)))return L.apply(n,i),n;break}}}return(p||s(e,d))(i,t,!g,n,!t||K.test(e)&&ge(t.parentNode)||t),n},n.sortStable=b.split("").sort(D).join("")===b,n.detectDuplicates=!!f,p(),n.sortDetached=ue(function(e){return 1&e.compareDocumentPosition(d.createElement("fieldset"))}),ue(function(e){return e.innerHTML="","#"===e.firstChild.getAttribute("href")})||le("type|href|height|width",function(e,t,n){if(!n)return e.getAttribute(t,"type"===t.toLowerCase()?1:2)}),n.attributes&&ue(function(e){return e.innerHTML="",e.firstChild.setAttribute("value",""),""===e.firstChild.getAttribute("value")})||le("value",function(e,t,n){if(!n&&"input"===e.nodeName.toLowerCase())return e.defaultValue}),ue(function(e){return null==e.getAttribute("disabled")})||le(P,function(e,t,n){var r;if(!n)return!0===e[t]?t.toLowerCase():(r=e.getAttributeNode(t))&&r.specified?r.value:null}),oe}(e);w.find=E,w.expr=E.selectors,w.expr[":"]=w.expr.pseudos,w.uniqueSort=w.unique=E.uniqueSort,w.text=E.getText,w.isXMLDoc=E.isXML,w.contains=E.contains,w.escapeSelector=E.escape;var k=function(e,t,n){var r=[],i=void 0!==n;while((e=e[t])&&9!==e.nodeType)if(1===e.nodeType){if(i&&w(e).is(n))break;r.push(e)}return r},S=function(e,t){for(var n=[];e;e=e.nextSibling)1===e.nodeType&&e!==t&&n.push(e);return n},D=w.expr.match.needsContext;function N(e,t){return e.nodeName&&e.nodeName.toLowerCase()===t.toLowerCase()}var A=/^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,t,n){return g(t)?w.grep(e,function(e,r){return!!t.call(e,r,e)!==n}):t.nodeType?w.grep(e,function(e){return e===t!==n}):"string"!=typeof t?w.grep(e,function(e){return u.call(t,e)>-1!==n}):w.filter(t,e,n)}w.filter=function(e,t,n){var r=t[0];return n&&(e=":not("+e+")"),1===t.length&&1===r.nodeType?w.find.matchesSelector(r,e)?[r]:[]:w.find.matches(e,w.grep(t,function(e){return 1===e.nodeType}))},w.fn.extend({find:function(e){var t,n,r=this.length,i=this;if("string"!=typeof e)return this.pushStack(w(e).filter(function(){for(t=0;t1?w.uniqueSort(n):n},filter:function(e){return this.pushStack(j(this,e||[],!1))},not:function(e){return this.pushStack(j(this,e||[],!0))},is:function(e){return!!j(this,"string"==typeof e&&D.test(e)?w(e):e||[],!1).length}});var q,L=/^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/;(w.fn.init=function(e,t,n){var i,o;if(!e)return this;if(n=n||q,"string"==typeof e){if(!(i="<"===e[0]&&">"===e[e.length-1]&&e.length>=3?[null,e,null]:L.exec(e))||!i[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(i[1]){if(t=t instanceof w?t[0]:t,w.merge(this,w.parseHTML(i[1],t&&t.nodeType?t.ownerDocument||t:r,!0)),A.test(i[1])&&w.isPlainObject(t))for(i in t)g(this[i])?this[i](t[i]):this.attr(i,t[i]);return this}return(o=r.getElementById(i[2]))&&(this[0]=o,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):g(e)?void 0!==n.ready?n.ready(e):e(w):w.makeArray(e,this)}).prototype=w.fn,q=w(r);var H=/^(?:parents|prev(?:Until|All))/,O={children:!0,contents:!0,next:!0,prev:!0};w.fn.extend({has:function(e){var t=w(e,this),n=t.length;return this.filter(function(){for(var e=0;e-1:1===n.nodeType&&w.find.matchesSelector(n,e))){o.push(n);break}return this.pushStack(o.length>1?w.uniqueSort(o):o)},index:function(e){return e?"string"==typeof e?u.call(w(e),this[0]):u.call(this,e.jquery?e[0]:e):this[0]&&this[0].parentNode?this.first().prevAll().length:-1},add:function(e,t){return this.pushStack(w.uniqueSort(w.merge(this.get(),w(e,t))))},addBack:function(e){return this.add(null==e?this.prevObject:this.prevObject.filter(e))}});function P(e,t){while((e=e[t])&&1!==e.nodeType);return e}w.each({parent:function(e){var t=e.parentNode;return t&&11!==t.nodeType?t:null},parents:function(e){return k(e,"parentNode")},parentsUntil:function(e,t,n){return k(e,"parentNode",n)},next:function(e){return P(e,"nextSibling")},prev:function(e){return P(e,"previousSibling")},nextAll:function(e){return k(e,"nextSibling")},prevAll:function(e){return k(e,"previousSibling")},nextUntil:function(e,t,n){return k(e,"nextSibling",n)},prevUntil:function(e,t,n){return k(e,"previousSibling",n)},siblings:function(e){return S((e.parentNode||{}).firstChild,e)},children:function(e){return S(e.firstChild)},contents:function(e){return N(e,"iframe")?e.contentDocument:(N(e,"template")&&(e=e.content||e),w.merge([],e.childNodes))}},function(e,t){w.fn[e]=function(n,r){var i=w.map(this,t,n);return"Until"!==e.slice(-5)&&(r=n),r&&"string"==typeof r&&(i=w.filter(r,i)),this.length>1&&(O[e]||w.uniqueSort(i),H.test(e)&&i.reverse()),this.pushStack(i)}});var M=/[^\x20\t\r\n\f]+/g;function R(e){var t={};return w.each(e.match(M)||[],function(e,n){t[n]=!0}),t}w.Callbacks=function(e){e="string"==typeof e?R(e):w.extend({},e);var t,n,r,i,o=[],a=[],s=-1,u=function(){for(i=i||e.once,r=t=!0;a.length;s=-1){n=a.shift();while(++s-1)o.splice(n,1),n<=s&&s--}),this},has:function(e){return e?w.inArray(e,o)>-1:o.length>0},empty:function(){return o&&(o=[]),this},disable:function(){return i=a=[],o=n="",this},disabled:function(){return!o},lock:function(){return i=a=[],n||t||(o=n=""),this},locked:function(){return!!i},fireWith:function(e,n){return i||(n=[e,(n=n||[]).slice?n.slice():n],a.push(n),t||u()),this},fire:function(){return l.fireWith(this,arguments),this},fired:function(){return!!r}};return l};function I(e){return e}function W(e){throw e}function $(e,t,n,r){var i;try{e&&g(i=e.promise)?i.call(e).done(t).fail(n):e&&g(i=e.then)?i.call(e,t,n):t.apply(void 0,[e].slice(r))}catch(e){n.apply(void 0,[e])}}w.extend({Deferred:function(t){var n=[["notify","progress",w.Callbacks("memory"),w.Callbacks("memory"),2],["resolve","done",w.Callbacks("once memory"),w.Callbacks("once memory"),0,"resolved"],["reject","fail",w.Callbacks("once memory"),w.Callbacks("once memory"),1,"rejected"]],r="pending",i={state:function(){return r},always:function(){return o.done(arguments).fail(arguments),this},"catch":function(e){return i.then(null,e)},pipe:function(){var e=arguments;return w.Deferred(function(t){w.each(n,function(n,r){var i=g(e[r[4]])&&e[r[4]];o[r[1]](function(){var e=i&&i.apply(this,arguments);e&&g(e.promise)?e.promise().progress(t.notify).done(t.resolve).fail(t.reject):t[r[0]+"With"](this,i?[e]:arguments)})}),e=null}).promise()},then:function(t,r,i){var o=0;function a(t,n,r,i){return function(){var s=this,u=arguments,l=function(){var e,l;if(!(t=o&&(r!==W&&(s=void 0,u=[e]),n.rejectWith(s,u))}};t?c():(w.Deferred.getStackHook&&(c.stackTrace=w.Deferred.getStackHook()),e.setTimeout(c))}}return w.Deferred(function(e){n[0][3].add(a(0,e,g(i)?i:I,e.notifyWith)),n[1][3].add(a(0,e,g(t)?t:I)),n[2][3].add(a(0,e,g(r)?r:W))}).promise()},promise:function(e){return null!=e?w.extend(e,i):i}},o={};return w.each(n,function(e,t){var a=t[2],s=t[5];i[t[1]]=a.add,s&&a.add(function(){r=s},n[3-e][2].disable,n[3-e][3].disable,n[0][2].lock,n[0][3].lock),a.add(t[3].fire),o[t[0]]=function(){return o[t[0]+"With"](this===o?void 0:this,arguments),this},o[t[0]+"With"]=a.fireWith}),i.promise(o),t&&t.call(o,o),o},when:function(e){var t=arguments.length,n=t,r=Array(n),i=o.call(arguments),a=w.Deferred(),s=function(e){return function(n){r[e]=this,i[e]=arguments.length>1?o.call(arguments):n,--t||a.resolveWith(r,i)}};if(t<=1&&($(e,a.done(s(n)).resolve,a.reject,!t),"pending"===a.state()||g(i[n]&&i[n].then)))return a.then();while(n--)$(i[n],s(n),a.reject);return a.promise()}});var B=/^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/;w.Deferred.exceptionHook=function(t,n){e.console&&e.console.warn&&t&&B.test(t.name)&&e.console.warn("jQuery.Deferred exception: "+t.message,t.stack,n)},w.readyException=function(t){e.setTimeout(function(){throw t})};var F=w.Deferred();w.fn.ready=function(e){return F.then(e)["catch"](function(e){w.readyException(e)}),this},w.extend({isReady:!1,readyWait:1,ready:function(e){(!0===e?--w.readyWait:w.isReady)||(w.isReady=!0,!0!==e&&--w.readyWait>0||F.resolveWith(r,[w]))}}),w.ready.then=F.then;function _(){r.removeEventListener("DOMContentLoaded",_),e.removeEventListener("load",_),w.ready()}"complete"===r.readyState||"loading"!==r.readyState&&!r.documentElement.doScroll?e.setTimeout(w.ready):(r.addEventListener("DOMContentLoaded",_),e.addEventListener("load",_));var z=function(e,t,n,r,i,o,a){var s=0,u=e.length,l=null==n;if("object"===x(n)){i=!0;for(s in n)z(e,t,s,n[s],!0,o,a)}else if(void 0!==r&&(i=!0,g(r)||(a=!0),l&&(a?(t.call(e,r),t=null):(l=t,t=function(e,t,n){return l.call(w(e),n)})),t))for(;s1,null,!0)},removeData:function(e){return this.each(function(){K.remove(this,e)})}}),w.extend({queue:function(e,t,n){var r;if(e)return t=(t||"fx")+"queue",r=J.get(e,t),n&&(!r||Array.isArray(n)?r=J.access(e,t,w.makeArray(n)):r.push(n)),r||[]},dequeue:function(e,t){t=t||"fx";var n=w.queue(e,t),r=n.length,i=n.shift(),o=w._queueHooks(e,t),a=function(){w.dequeue(e,t)};"inprogress"===i&&(i=n.shift(),r--),i&&("fx"===t&&n.unshift("inprogress"),delete o.stop,i.call(e,a,o)),!r&&o&&o.empty.fire()},_queueHooks:function(e,t){var n=t+"queueHooks";return J.get(e,n)||J.access(e,n,{empty:w.Callbacks("once memory").add(function(){J.remove(e,[t+"queue",n])})})}}),w.fn.extend({queue:function(e,t){var n=2;return"string"!=typeof e&&(t=e,e="fx",n--),arguments.length\x20\t\r\n\f]+)/i,he=/^$|^module$|\/(?:java|ecma)script/i,ge={option:[1,""],thead:[1,"","
"],col:[2,"","
"],tr:[2,"","
"],td:[3,"","
"],_default:[0,"",""]};ge.optgroup=ge.option,ge.tbody=ge.tfoot=ge.colgroup=ge.caption=ge.thead,ge.th=ge.td;function ye(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&N(e,t)?w.merge([e],n):n}function ve(e,t){for(var n=0,r=e.length;n-1)i&&i.push(o);else if(l=w.contains(o.ownerDocument,o),a=ye(f.appendChild(o),"script"),l&&ve(a),n){c=0;while(o=a[c++])he.test(o.type||"")&&n.push(o)}return f}!function(){var e=r.createDocumentFragment().appendChild(r.createElement("div")),t=r.createElement("input");t.setAttribute("type","radio"),t.setAttribute("checked","checked"),t.setAttribute("name","t"),e.appendChild(t),h.checkClone=e.cloneNode(!0).cloneNode(!0).lastChild.checked,e.innerHTML="",h.noCloneChecked=!!e.cloneNode(!0).lastChild.defaultValue}();var be=r.documentElement,we=/^key/,Te=/^(?:mouse|pointer|contextmenu|drag|drop)|click/,Ce=/^([^.]*)(?:\.(.+)|)/;function Ee(){return!0}function ke(){return!1}function Se(){try{return r.activeElement}catch(e){}}function De(e,t,n,r,i,o){var a,s;if("object"==typeof t){"string"!=typeof n&&(r=r||n,n=void 0);for(s in t)De(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=ke;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return w().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=w.guid++)),e.each(function(){w.event.add(this,t,i,r,n)})}w.event={global:{},add:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,y=J.get(e);if(y){n.handler&&(n=(o=n).handler,i=o.selector),i&&w.find.matchesSelector(be,i),n.guid||(n.guid=w.guid++),(u=y.events)||(u=y.events={}),(a=y.handle)||(a=y.handle=function(t){return"undefined"!=typeof w&&w.event.triggered!==t.type?w.event.dispatch.apply(e,arguments):void 0}),l=(t=(t||"").match(M)||[""]).length;while(l--)d=g=(s=Ce.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d&&(f=w.event.special[d]||{},d=(i?f.delegateType:f.bindType)||d,f=w.event.special[d]||{},c=w.extend({type:d,origType:g,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&w.expr.match.needsContext.test(i),namespace:h.join(".")},o),(p=u[d])||((p=u[d]=[]).delegateCount=0,f.setup&&!1!==f.setup.call(e,r,h,a)||e.addEventListener&&e.addEventListener(d,a)),f.add&&(f.add.call(e,c),c.handler.guid||(c.handler.guid=n.guid)),i?p.splice(p.delegateCount++,0,c):p.push(c),w.event.global[d]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,y=J.hasData(e)&&J.get(e);if(y&&(u=y.events)){l=(t=(t||"").match(M)||[""]).length;while(l--)if(s=Ce.exec(t[l])||[],d=g=s[1],h=(s[2]||"").split(".").sort(),d){f=w.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,y.handle)||w.removeEvent(e,d,y.handle),delete u[d])}else for(d in u)w.event.remove(e,d+t[l],n,r,!0);w.isEmptyObject(u)&&J.remove(e,"handle events")}},dispatch:function(e){var t=w.event.fix(e),n,r,i,o,a,s,u=new Array(arguments.length),l=(J.get(this,"events")||{})[t.type]||[],c=w.event.special[t.type]||{};for(u[0]=t,n=1;n=1))for(;l!==this;l=l.parentNode||this)if(1===l.nodeType&&("click"!==e.type||!0!==l.disabled)){for(o=[],a={},n=0;n-1:w.find(i,this,null,[l]).length),a[i]&&o.push(r);o.length&&s.push({elem:l,handlers:o})}return l=this,u\x20\t\r\n\f]*)[^>]*)\/>/gi,Ae=/\s*$/g;function Le(e,t){return N(e,"table")&&N(11!==t.nodeType?t:t.firstChild,"tr")?w(e).children("tbody")[0]||e:e}function He(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Oe(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Pe(e,t){var n,r,i,o,a,s,u,l;if(1===t.nodeType){if(J.hasData(e)&&(o=J.access(e),a=J.set(t,o),l=o.events)){delete a.handle,a.events={};for(i in l)for(n=0,r=l[i].length;n1&&"string"==typeof y&&!h.checkClone&&je.test(y))return e.each(function(i){var o=e.eq(i);v&&(t[0]=y.call(this,i,o.html())),Re(o,t,n,r)});if(p&&(i=xe(t,e[0].ownerDocument,!1,e,r),o=i.firstChild,1===i.childNodes.length&&(i=o),o||r)){for(u=(s=w.map(ye(i,"script"),He)).length;f")},clone:function(e,t,n){var r,i,o,a,s=e.cloneNode(!0),u=w.contains(e.ownerDocument,e);if(!(h.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||w.isXMLDoc(e)))for(a=ye(s),r=0,i=(o=ye(e)).length;r0&&ve(a,!u&&ye(e,"script")),s},cleanData:function(e){for(var t,n,r,i=w.event.special,o=0;void 0!==(n=e[o]);o++)if(Y(n)){if(t=n[J.expando]){if(t.events)for(r in t.events)i[r]?w.event.remove(n,r):w.removeEvent(n,r,t.handle);n[J.expando]=void 0}n[K.expando]&&(n[K.expando]=void 0)}}}),w.fn.extend({detach:function(e){return Ie(this,e,!0)},remove:function(e){return Ie(this,e)},text:function(e){return z(this,function(e){return void 0===e?w.text(this):this.empty().each(function(){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||(this.textContent=e)})},null,e,arguments.length)},append:function(){return Re(this,arguments,function(e){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||Le(this,e).appendChild(e)})},prepend:function(){return Re(this,arguments,function(e){if(1===this.nodeType||11===this.nodeType||9===this.nodeType){var t=Le(this,e);t.insertBefore(e,t.firstChild)}})},before:function(){return Re(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this)})},after:function(){return Re(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this.nextSibling)})},empty:function(){for(var e,t=0;null!=(e=this[t]);t++)1===e.nodeType&&(w.cleanData(ye(e,!1)),e.textContent="");return this},clone:function(e,t){return e=null!=e&&e,t=null==t?e:t,this.map(function(){return w.clone(this,e,t)})},html:function(e){return z(this,function(e){var t=this[0]||{},n=0,r=this.length;if(void 0===e&&1===t.nodeType)return t.innerHTML;if("string"==typeof e&&!Ae.test(e)&&!ge[(de.exec(e)||["",""])[1].toLowerCase()]){e=w.htmlPrefilter(e);try{for(;n=0&&(u+=Math.max(0,Math.ceil(e["offset"+t[0].toUpperCase()+t.slice(1)]-o-u-s-.5))),u}function et(e,t,n){var r=$e(e),i=Fe(e,t,r),o="border-box"===w.css(e,"boxSizing",!1,r),a=o;if(We.test(i)){if(!n)return i;i="auto"}return a=a&&(h.boxSizingReliable()||i===e.style[t]),("auto"===i||!parseFloat(i)&&"inline"===w.css(e,"display",!1,r))&&(i=e["offset"+t[0].toUpperCase()+t.slice(1)],a=!0),(i=parseFloat(i)||0)+Ze(e,t,n||(o?"border":"content"),a,r,i)+"px"}w.extend({cssHooks:{opacity:{get:function(e,t){if(t){var n=Fe(e,"opacity");return""===n?"1":n}}}},cssNumber:{animationIterationCount:!0,columnCount:!0,fillOpacity:!0,flexGrow:!0,flexShrink:!0,fontWeight:!0,lineHeight:!0,opacity:!0,order:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{},style:function(e,t,n,r){if(e&&3!==e.nodeType&&8!==e.nodeType&&e.style){var i,o,a,s=G(t),u=Xe.test(t),l=e.style;if(u||(t=Je(s)),a=w.cssHooks[t]||w.cssHooks[s],void 0===n)return a&&"get"in a&&void 0!==(i=a.get(e,!1,r))?i:l[t];"string"==(o=typeof n)&&(i=ie.exec(n))&&i[1]&&(n=ue(e,t,i),o="number"),null!=n&&n===n&&("number"===o&&(n+=i&&i[3]||(w.cssNumber[s]?"":"px")),h.clearCloneStyle||""!==n||0!==t.indexOf("background")||(l[t]="inherit"),a&&"set"in a&&void 0===(n=a.set(e,n,r))||(u?l.setProperty(t,n):l[t]=n))}},css:function(e,t,n,r){var i,o,a,s=G(t);return Xe.test(t)||(t=Je(s)),(a=w.cssHooks[t]||w.cssHooks[s])&&"get"in a&&(i=a.get(e,!0,n)),void 0===i&&(i=Fe(e,t,r)),"normal"===i&&t in Ve&&(i=Ve[t]),""===n||n?(o=parseFloat(i),!0===n||isFinite(o)?o||0:i):i}}),w.each(["height","width"],function(e,t){w.cssHooks[t]={get:function(e,n,r){if(n)return!ze.test(w.css(e,"display"))||e.getClientRects().length&&e.getBoundingClientRect().width?et(e,t,r):se(e,Ue,function(){return et(e,t,r)})},set:function(e,n,r){var i,o=$e(e),a="border-box"===w.css(e,"boxSizing",!1,o),s=r&&Ze(e,t,r,a,o);return a&&h.scrollboxSize()===o.position&&(s-=Math.ceil(e["offset"+t[0].toUpperCase()+t.slice(1)]-parseFloat(o[t])-Ze(e,t,"border",!1,o)-.5)),s&&(i=ie.exec(n))&&"px"!==(i[3]||"px")&&(e.style[t]=n,n=w.css(e,t)),Ke(e,n,s)}}}),w.cssHooks.marginLeft=_e(h.reliableMarginLeft,function(e,t){if(t)return(parseFloat(Fe(e,"marginLeft"))||e.getBoundingClientRect().left-se(e,{marginLeft:0},function(){return e.getBoundingClientRect().left}))+"px"}),w.each({margin:"",padding:"",border:"Width"},function(e,t){w.cssHooks[e+t]={expand:function(n){for(var r=0,i={},o="string"==typeof n?n.split(" "):[n];r<4;r++)i[e+oe[r]+t]=o[r]||o[r-2]||o[0];return i}},"margin"!==e&&(w.cssHooks[e+t].set=Ke)}),w.fn.extend({css:function(e,t){return z(this,function(e,t,n){var r,i,o={},a=0;if(Array.isArray(t)){for(r=$e(e),i=t.length;a1)}});function tt(e,t,n,r,i){return new tt.prototype.init(e,t,n,r,i)}w.Tween=tt,tt.prototype={constructor:tt,init:function(e,t,n,r,i,o){this.elem=e,this.prop=n,this.easing=i||w.easing._default,this.options=t,this.start=this.now=this.cur(),this.end=r,this.unit=o||(w.cssNumber[n]?"":"px")},cur:function(){var e=tt.propHooks[this.prop];return e&&e.get?e.get(this):tt.propHooks._default.get(this)},run:function(e){var t,n=tt.propHooks[this.prop];return this.options.duration?this.pos=t=w.easing[this.easing](e,this.options.duration*e,0,1,this.options.duration):this.pos=t=e,this.now=(this.end-this.start)*t+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),n&&n.set?n.set(this):tt.propHooks._default.set(this),this}},tt.prototype.init.prototype=tt.prototype,tt.propHooks={_default:{get:function(e){var t;return 1!==e.elem.nodeType||null!=e.elem[e.prop]&&null==e.elem.style[e.prop]?e.elem[e.prop]:(t=w.css(e.elem,e.prop,""))&&"auto"!==t?t:0},set:function(e){w.fx.step[e.prop]?w.fx.step[e.prop](e):1!==e.elem.nodeType||null==e.elem.style[w.cssProps[e.prop]]&&!w.cssHooks[e.prop]?e.elem[e.prop]=e.now:w.style(e.elem,e.prop,e.now+e.unit)}}},tt.propHooks.scrollTop=tt.propHooks.scrollLeft={set:function(e){e.elem.nodeType&&e.elem.parentNode&&(e.elem[e.prop]=e.now)}},w.easing={linear:function(e){return e},swing:function(e){return.5-Math.cos(e*Math.PI)/2},_default:"swing"},w.fx=tt.prototype.init,w.fx.step={};var nt,rt,it=/^(?:toggle|show|hide)$/,ot=/queueHooks$/;function at(){rt&&(!1===r.hidden&&e.requestAnimationFrame?e.requestAnimationFrame(at):e.setTimeout(at,w.fx.interval),w.fx.tick())}function st(){return e.setTimeout(function(){nt=void 0}),nt=Date.now()}function ut(e,t){var n,r=0,i={height:e};for(t=t?1:0;r<4;r+=2-t)i["margin"+(n=oe[r])]=i["padding"+n]=e;return t&&(i.opacity=i.width=e),i}function lt(e,t,n){for(var r,i=(pt.tweeners[t]||[]).concat(pt.tweeners["*"]),o=0,a=i.length;o1)},removeAttr:function(e){return this.each(function(){w.removeAttr(this,e)})}}),w.extend({attr:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return"undefined"==typeof e.getAttribute?w.prop(e,t,n):(1===o&&w.isXMLDoc(e)||(i=w.attrHooks[t.toLowerCase()]||(w.expr.match.bool.test(t)?dt:void 0)),void 0!==n?null===n?void w.removeAttr(e,t):i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:(e.setAttribute(t,n+""),n):i&&"get"in i&&null!==(r=i.get(e,t))?r:null==(r=w.find.attr(e,t))?void 0:r)},attrHooks:{type:{set:function(e,t){if(!h.radioValue&&"radio"===t&&N(e,"input")){var n=e.value;return e.setAttribute("type",t),n&&(e.value=n),t}}}},removeAttr:function(e,t){var n,r=0,i=t&&t.match(M);if(i&&1===e.nodeType)while(n=i[r++])e.removeAttribute(n)}}),dt={set:function(e,t,n){return!1===t?w.removeAttr(e,n):e.setAttribute(n,n),n}},w.each(w.expr.match.bool.source.match(/\w+/g),function(e,t){var n=ht[t]||w.find.attr;ht[t]=function(e,t,r){var i,o,a=t.toLowerCase();return r||(o=ht[a],ht[a]=i,i=null!=n(e,t,r)?a:null,ht[a]=o),i}});var gt=/^(?:input|select|textarea|button)$/i,yt=/^(?:a|area)$/i;w.fn.extend({prop:function(e,t){return z(this,w.prop,e,t,arguments.length>1)},removeProp:function(e){return this.each(function(){delete this[w.propFix[e]||e]})}}),w.extend({prop:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return 1===o&&w.isXMLDoc(e)||(t=w.propFix[t]||t,i=w.propHooks[t]),void 0!==n?i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:e[t]=n:i&&"get"in i&&null!==(r=i.get(e,t))?r:e[t]},propHooks:{tabIndex:{get:function(e){var t=w.find.attr(e,"tabindex");return t?parseInt(t,10):gt.test(e.nodeName)||yt.test(e.nodeName)&&e.href?0:-1}}},propFix:{"for":"htmlFor","class":"className"}}),h.optSelected||(w.propHooks.selected={get:function(e){var t=e.parentNode;return t&&t.parentNode&&t.parentNode.selectedIndex,null},set:function(e){var t=e.parentNode;t&&(t.selectedIndex,t.parentNode&&t.parentNode.selectedIndex)}}),w.each(["tabIndex","readOnly","maxLength","cellSpacing","cellPadding","rowSpan","colSpan","useMap","frameBorder","contentEditable"],function(){w.propFix[this.toLowerCase()]=this});function vt(e){return(e.match(M)||[]).join(" ")}function mt(e){return e.getAttribute&&e.getAttribute("class")||""}function xt(e){return Array.isArray(e)?e:"string"==typeof e?e.match(M)||[]:[]}w.fn.extend({addClass:function(e){var t,n,r,i,o,a,s,u=0;if(g(e))return this.each(function(t){w(this).addClass(e.call(this,t,mt(this)))});if((t=xt(e)).length)while(n=this[u++])if(i=mt(n),r=1===n.nodeType&&" "+vt(i)+" "){a=0;while(o=t[a++])r.indexOf(" "+o+" ")<0&&(r+=o+" ");i!==(s=vt(r))&&n.setAttribute("class",s)}return this},removeClass:function(e){var t,n,r,i,o,a,s,u=0;if(g(e))return this.each(function(t){w(this).removeClass(e.call(this,t,mt(this)))});if(!arguments.length)return this.attr("class","");if((t=xt(e)).length)while(n=this[u++])if(i=mt(n),r=1===n.nodeType&&" "+vt(i)+" "){a=0;while(o=t[a++])while(r.indexOf(" "+o+" ")>-1)r=r.replace(" "+o+" "," ");i!==(s=vt(r))&&n.setAttribute("class",s)}return this},toggleClass:function(e,t){var n=typeof e,r="string"===n||Array.isArray(e);return"boolean"==typeof t&&r?t?this.addClass(e):this.removeClass(e):g(e)?this.each(function(n){w(this).toggleClass(e.call(this,n,mt(this),t),t)}):this.each(function(){var t,i,o,a;if(r){i=0,o=w(this),a=xt(e);while(t=a[i++])o.hasClass(t)?o.removeClass(t):o.addClass(t)}else void 0!==e&&"boolean"!==n||((t=mt(this))&&J.set(this,"__className__",t),this.setAttribute&&this.setAttribute("class",t||!1===e?"":J.get(this,"__className__")||""))})},hasClass:function(e){var t,n,r=0;t=" "+e+" ";while(n=this[r++])if(1===n.nodeType&&(" "+vt(mt(n))+" ").indexOf(t)>-1)return!0;return!1}});var bt=/\r/g;w.fn.extend({val:function(e){var t,n,r,i=this[0];{if(arguments.length)return r=g(e),this.each(function(n){var i;1===this.nodeType&&(null==(i=r?e.call(this,n,w(this).val()):e)?i="":"number"==typeof i?i+="":Array.isArray(i)&&(i=w.map(i,function(e){return null==e?"":e+""})),(t=w.valHooks[this.type]||w.valHooks[this.nodeName.toLowerCase()])&&"set"in t&&void 0!==t.set(this,i,"value")||(this.value=i))});if(i)return(t=w.valHooks[i.type]||w.valHooks[i.nodeName.toLowerCase()])&&"get"in t&&void 0!==(n=t.get(i,"value"))?n:"string"==typeof(n=i.value)?n.replace(bt,""):null==n?"":n}}}),w.extend({valHooks:{option:{get:function(e){var t=w.find.attr(e,"value");return null!=t?t:vt(w.text(e))}},select:{get:function(e){var t,n,r,i=e.options,o=e.selectedIndex,a="select-one"===e.type,s=a?null:[],u=a?o+1:i.length;for(r=o<0?u:a?o:0;r-1)&&(n=!0);return n||(e.selectedIndex=-1),o}}}}),w.each(["radio","checkbox"],function(){w.valHooks[this]={set:function(e,t){if(Array.isArray(t))return e.checked=w.inArray(w(e).val(),t)>-1}},h.checkOn||(w.valHooks[this].get=function(e){return null===e.getAttribute("value")?"on":e.value})}),h.focusin="onfocusin"in e;var wt=/^(?:focusinfocus|focusoutblur)$/,Tt=function(e){e.stopPropagation()};w.extend(w.event,{trigger:function(t,n,i,o){var a,s,u,l,c,p,d,h,v=[i||r],m=f.call(t,"type")?t.type:t,x=f.call(t,"namespace")?t.namespace.split("."):[];if(s=h=u=i=i||r,3!==i.nodeType&&8!==i.nodeType&&!wt.test(m+w.event.triggered)&&(m.indexOf(".")>-1&&(m=(x=m.split(".")).shift(),x.sort()),c=m.indexOf(":")<0&&"on"+m,t=t[w.expando]?t:new w.Event(m,"object"==typeof t&&t),t.isTrigger=o?2:3,t.namespace=x.join("."),t.rnamespace=t.namespace?new RegExp("(^|\\.)"+x.join("\\.(?:.*\\.|)")+"(\\.|$)"):null,t.result=void 0,t.target||(t.target=i),n=null==n?[t]:w.makeArray(n,[t]),d=w.event.special[m]||{},o||!d.trigger||!1!==d.trigger.apply(i,n))){if(!o&&!d.noBubble&&!y(i)){for(l=d.delegateType||m,wt.test(l+m)||(s=s.parentNode);s;s=s.parentNode)v.push(s),u=s;u===(i.ownerDocument||r)&&v.push(u.defaultView||u.parentWindow||e)}a=0;while((s=v[a++])&&!t.isPropagationStopped())h=s,t.type=a>1?l:d.bindType||m,(p=(J.get(s,"events")||{})[t.type]&&J.get(s,"handle"))&&p.apply(s,n),(p=c&&s[c])&&p.apply&&Y(s)&&(t.result=p.apply(s,n),!1===t.result&&t.preventDefault());return t.type=m,o||t.isDefaultPrevented()||d._default&&!1!==d._default.apply(v.pop(),n)||!Y(i)||c&&g(i[m])&&!y(i)&&((u=i[c])&&(i[c]=null),w.event.triggered=m,t.isPropagationStopped()&&h.addEventListener(m,Tt),i[m](),t.isPropagationStopped()&&h.removeEventListener(m,Tt),w.event.triggered=void 0,u&&(i[c]=u)),t.result}},simulate:function(e,t,n){var r=w.extend(new w.Event,n,{type:e,isSimulated:!0});w.event.trigger(r,null,t)}}),w.fn.extend({trigger:function(e,t){return this.each(function(){w.event.trigger(e,t,this)})},triggerHandler:function(e,t){var n=this[0];if(n)return w.event.trigger(e,t,n,!0)}}),h.focusin||w.each({focus:"focusin",blur:"focusout"},function(e,t){var n=function(e){w.event.simulate(t,e.target,w.event.fix(e))};w.event.special[t]={setup:function(){var r=this.ownerDocument||this,i=J.access(r,t);i||r.addEventListener(e,n,!0),J.access(r,t,(i||0)+1)},teardown:function(){var r=this.ownerDocument||this,i=J.access(r,t)-1;i?J.access(r,t,i):(r.removeEventListener(e,n,!0),J.remove(r,t))}}});var Ct=e.location,Et=Date.now(),kt=/\?/;w.parseXML=function(t){var n;if(!t||"string"!=typeof t)return null;try{n=(new e.DOMParser).parseFromString(t,"text/xml")}catch(e){n=void 0}return n&&!n.getElementsByTagName("parsererror").length||w.error("Invalid XML: "+t),n};var St=/\[\]$/,Dt=/\r?\n/g,Nt=/^(?:submit|button|image|reset|file)$/i,At=/^(?:input|select|textarea|keygen)/i;function jt(e,t,n,r){var i;if(Array.isArray(t))w.each(t,function(t,i){n||St.test(e)?r(e,i):jt(e+"["+("object"==typeof i&&null!=i?t:"")+"]",i,n,r)});else if(n||"object"!==x(t))r(e,t);else for(i in t)jt(e+"["+i+"]",t[i],n,r)}w.param=function(e,t){var n,r=[],i=function(e,t){var n=g(t)?t():t;r[r.length]=encodeURIComponent(e)+"="+encodeURIComponent(null==n?"":n)};if(Array.isArray(e)||e.jquery&&!w.isPlainObject(e))w.each(e,function(){i(this.name,this.value)});else for(n in e)jt(n,e[n],t,i);return r.join("&")},w.fn.extend({serialize:function(){return w.param(this.serializeArray())},serializeArray:function(){return this.map(function(){var e=w.prop(this,"elements");return e?w.makeArray(e):this}).filter(function(){var e=this.type;return this.name&&!w(this).is(":disabled")&&At.test(this.nodeName)&&!Nt.test(e)&&(this.checked||!pe.test(e))}).map(function(e,t){var n=w(this).val();return null==n?null:Array.isArray(n)?w.map(n,function(e){return{name:t.name,value:e.replace(Dt,"\r\n")}}):{name:t.name,value:n.replace(Dt,"\r\n")}}).get()}});var qt=/%20/g,Lt=/#.*$/,Ht=/([?&])_=[^&]*/,Ot=/^(.*?):[ \t]*([^\r\n]*)$/gm,Pt=/^(?:about|app|app-storage|.+-extension|file|res|widget):$/,Mt=/^(?:GET|HEAD)$/,Rt=/^\/\//,It={},Wt={},$t="*/".concat("*"),Bt=r.createElement("a");Bt.href=Ct.href;function Ft(e){return function(t,n){"string"!=typeof t&&(n=t,t="*");var r,i=0,o=t.toLowerCase().match(M)||[];if(g(n))while(r=o[i++])"+"===r[0]?(r=r.slice(1)||"*",(e[r]=e[r]||[]).unshift(n)):(e[r]=e[r]||[]).push(n)}}function _t(e,t,n,r){var i={},o=e===Wt;function a(s){var u;return i[s]=!0,w.each(e[s]||[],function(e,s){var l=s(t,n,r);return"string"!=typeof l||o||i[l]?o?!(u=l):void 0:(t.dataTypes.unshift(l),a(l),!1)}),u}return a(t.dataTypes[0])||!i["*"]&&a("*")}function zt(e,t){var n,r,i=w.ajaxSettings.flatOptions||{};for(n in t)void 0!==t[n]&&((i[n]?e:r||(r={}))[n]=t[n]);return r&&w.extend(!0,e,r),e}function Xt(e,t,n){var r,i,o,a,s=e.contents,u=e.dataTypes;while("*"===u[0])u.shift(),void 0===r&&(r=e.mimeType||t.getResponseHeader("Content-Type"));if(r)for(i in s)if(s[i]&&s[i].test(r)){u.unshift(i);break}if(u[0]in n)o=u[0];else{for(i in n){if(!u[0]||e.converters[i+" "+u[0]]){o=i;break}a||(a=i)}o=o||a}if(o)return o!==u[0]&&u.unshift(o),n[o]}function Ut(e,t,n,r){var i,o,a,s,u,l={},c=e.dataTypes.slice();if(c[1])for(a in e.converters)l[a.toLowerCase()]=e.converters[a];o=c.shift();while(o)if(e.responseFields[o]&&(n[e.responseFields[o]]=t),!u&&r&&e.dataFilter&&(t=e.dataFilter(t,e.dataType)),u=o,o=c.shift())if("*"===o)o=u;else if("*"!==u&&u!==o){if(!(a=l[u+" "+o]||l["* "+o]))for(i in l)if((s=i.split(" "))[1]===o&&(a=l[u+" "+s[0]]||l["* "+s[0]])){!0===a?a=l[i]:!0!==l[i]&&(o=s[0],c.unshift(s[1]));break}if(!0!==a)if(a&&e["throws"])t=a(t);else try{t=a(t)}catch(e){return{state:"parsererror",error:a?e:"No conversion from "+u+" to "+o}}}return{state:"success",data:t}}w.extend({active:0,lastModified:{},etag:{},ajaxSettings:{url:Ct.href,type:"GET",isLocal:Pt.test(Ct.protocol),global:!0,processData:!0,async:!0,contentType:"application/x-www-form-urlencoded; charset=UTF-8",accepts:{"*":$t,text:"text/plain",html:"text/html",xml:"application/xml, text/xml",json:"application/json, text/javascript"},contents:{xml:/\bxml\b/,html:/\bhtml/,json:/\bjson\b/},responseFields:{xml:"responseXML",text:"responseText",json:"responseJSON"},converters:{"* text":String,"text html":!0,"text json":JSON.parse,"text xml":w.parseXML},flatOptions:{url:!0,context:!0}},ajaxSetup:function(e,t){return t?zt(zt(e,w.ajaxSettings),t):zt(w.ajaxSettings,e)},ajaxPrefilter:Ft(It),ajaxTransport:Ft(Wt),ajax:function(t,n){"object"==typeof t&&(n=t,t=void 0),n=n||{};var i,o,a,s,u,l,c,f,p,d,h=w.ajaxSetup({},n),g=h.context||h,y=h.context&&(g.nodeType||g.jquery)?w(g):w.event,v=w.Deferred(),m=w.Callbacks("once memory"),x=h.statusCode||{},b={},T={},C="canceled",E={readyState:0,getResponseHeader:function(e){var t;if(c){if(!s){s={};while(t=Ot.exec(a))s[t[1].toLowerCase()]=t[2]}t=s[e.toLowerCase()]}return null==t?null:t},getAllResponseHeaders:function(){return c?a:null},setRequestHeader:function(e,t){return null==c&&(e=T[e.toLowerCase()]=T[e.toLowerCase()]||e,b[e]=t),this},overrideMimeType:function(e){return null==c&&(h.mimeType=e),this},statusCode:function(e){var t;if(e)if(c)E.always(e[E.status]);else for(t in e)x[t]=[x[t],e[t]];return this},abort:function(e){var t=e||C;return i&&i.abort(t),k(0,t),this}};if(v.promise(E),h.url=((t||h.url||Ct.href)+"").replace(Rt,Ct.protocol+"//"),h.type=n.method||n.type||h.method||h.type,h.dataTypes=(h.dataType||"*").toLowerCase().match(M)||[""],null==h.crossDomain){l=r.createElement("a");try{l.href=h.url,l.href=l.href,h.crossDomain=Bt.protocol+"//"+Bt.host!=l.protocol+"//"+l.host}catch(e){h.crossDomain=!0}}if(h.data&&h.processData&&"string"!=typeof h.data&&(h.data=w.param(h.data,h.traditional)),_t(It,h,n,E),c)return E;(f=w.event&&h.global)&&0==w.active++&&w.event.trigger("ajaxStart"),h.type=h.type.toUpperCase(),h.hasContent=!Mt.test(h.type),o=h.url.replace(Lt,""),h.hasContent?h.data&&h.processData&&0===(h.contentType||"").indexOf("application/x-www-form-urlencoded")&&(h.data=h.data.replace(qt,"+")):(d=h.url.slice(o.length),h.data&&(h.processData||"string"==typeof h.data)&&(o+=(kt.test(o)?"&":"?")+h.data,delete h.data),!1===h.cache&&(o=o.replace(Ht,"$1"),d=(kt.test(o)?"&":"?")+"_="+Et+++d),h.url=o+d),h.ifModified&&(w.lastModified[o]&&E.setRequestHeader("If-Modified-Since",w.lastModified[o]),w.etag[o]&&E.setRequestHeader("If-None-Match",w.etag[o])),(h.data&&h.hasContent&&!1!==h.contentType||n.contentType)&&E.setRequestHeader("Content-Type",h.contentType),E.setRequestHeader("Accept",h.dataTypes[0]&&h.accepts[h.dataTypes[0]]?h.accepts[h.dataTypes[0]]+("*"!==h.dataTypes[0]?", "+$t+"; q=0.01":""):h.accepts["*"]);for(p in h.headers)E.setRequestHeader(p,h.headers[p]);if(h.beforeSend&&(!1===h.beforeSend.call(g,E,h)||c))return E.abort();if(C="abort",m.add(h.complete),E.done(h.success),E.fail(h.error),i=_t(Wt,h,n,E)){if(E.readyState=1,f&&y.trigger("ajaxSend",[E,h]),c)return E;h.async&&h.timeout>0&&(u=e.setTimeout(function(){E.abort("timeout")},h.timeout));try{c=!1,i.send(b,k)}catch(e){if(c)throw e;k(-1,e)}}else k(-1,"No Transport");function k(t,n,r,s){var l,p,d,b,T,C=n;c||(c=!0,u&&e.clearTimeout(u),i=void 0,a=s||"",E.readyState=t>0?4:0,l=t>=200&&t<300||304===t,r&&(b=Xt(h,E,r)),b=Ut(h,b,E,l),l?(h.ifModified&&((T=E.getResponseHeader("Last-Modified"))&&(w.lastModified[o]=T),(T=E.getResponseHeader("etag"))&&(w.etag[o]=T)),204===t||"HEAD"===h.type?C="nocontent":304===t?C="notmodified":(C=b.state,p=b.data,l=!(d=b.error))):(d=C,!t&&C||(C="error",t<0&&(t=0))),E.status=t,E.statusText=(n||C)+"",l?v.resolveWith(g,[p,C,E]):v.rejectWith(g,[E,C,d]),E.statusCode(x),x=void 0,f&&y.trigger(l?"ajaxSuccess":"ajaxError",[E,h,l?p:d]),m.fireWith(g,[E,C]),f&&(y.trigger("ajaxComplete",[E,h]),--w.active||w.event.trigger("ajaxStop")))}return E},getJSON:function(e,t,n){return w.get(e,t,n,"json")},getScript:function(e,t){return w.get(e,void 0,t,"script")}}),w.each(["get","post"],function(e,t){w[t]=function(e,n,r,i){return g(n)&&(i=i||r,r=n,n=void 0),w.ajax(w.extend({url:e,type:t,dataType:i,data:n,success:r},w.isPlainObject(e)&&e))}}),w._evalUrl=function(e){return w.ajax({url:e,type:"GET",dataType:"script",cache:!0,async:!1,global:!1,"throws":!0})},w.fn.extend({wrapAll:function(e){var t;return this[0]&&(g(e)&&(e=e.call(this[0])),t=w(e,this[0].ownerDocument).eq(0).clone(!0),this[0].parentNode&&t.insertBefore(this[0]),t.map(function(){var e=this;while(e.firstElementChild)e=e.firstElementChild;return e}).append(this)),this},wrapInner:function(e){return g(e)?this.each(function(t){w(this).wrapInner(e.call(this,t))}):this.each(function(){var t=w(this),n=t.contents();n.length?n.wrapAll(e):t.append(e)})},wrap:function(e){var t=g(e);return this.each(function(n){w(this).wrapAll(t?e.call(this,n):e)})},unwrap:function(e){return this.parent(e).not("body").each(function(){w(this).replaceWith(this.childNodes)}),this}}),w.expr.pseudos.hidden=function(e){return!w.expr.pseudos.visible(e)},w.expr.pseudos.visible=function(e){return!!(e.offsetWidth||e.offsetHeight||e.getClientRects().length)},w.ajaxSettings.xhr=function(){try{return new e.XMLHttpRequest}catch(e){}};var Vt={0:200,1223:204},Gt=w.ajaxSettings.xhr();h.cors=!!Gt&&"withCredentials"in Gt,h.ajax=Gt=!!Gt,w.ajaxTransport(function(t){var n,r;if(h.cors||Gt&&!t.crossDomain)return{send:function(i,o){var a,s=t.xhr();if(s.open(t.type,t.url,t.async,t.username,t.password),t.xhrFields)for(a in t.xhrFields)s[a]=t.xhrFields[a];t.mimeType&&s.overrideMimeType&&s.overrideMimeType(t.mimeType),t.crossDomain||i["X-Requested-With"]||(i["X-Requested-With"]="XMLHttpRequest");for(a in i)s.setRequestHeader(a,i[a]);n=function(e){return function(){n&&(n=r=s.onload=s.onerror=s.onabort=s.ontimeout=s.onreadystatechange=null,"abort"===e?s.abort():"error"===e?"number"!=typeof s.status?o(0,"error"):o(s.status,s.statusText):o(Vt[s.status]||s.status,s.statusText,"text"!==(s.responseType||"text")||"string"!=typeof s.responseText?{binary:s.response}:{text:s.responseText},s.getAllResponseHeaders()))}},s.onload=n(),r=s.onerror=s.ontimeout=n("error"),void 0!==s.onabort?s.onabort=r:s.onreadystatechange=function(){4===s.readyState&&e.setTimeout(function(){n&&r()})},n=n("abort");try{s.send(t.hasContent&&t.data||null)}catch(e){if(n)throw e}},abort:function(){n&&n()}}}),w.ajaxPrefilter(function(e){e.crossDomain&&(e.contents.script=!1)}),w.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/\b(?:java|ecma)script\b/},converters:{"text script":function(e){return w.globalEval(e),e}}}),w.ajaxPrefilter("script",function(e){void 0===e.cache&&(e.cache=!1),e.crossDomain&&(e.type="GET")}),w.ajaxTransport("script",function(e){if(e.crossDomain){var t,n;return{send:function(i,o){t=w("