diff --git a/CHANGELOG b/CHANGELOG --- a/CHANGELOG +++ b/CHANGELOG @@ -1,71 +1,74 @@ -Changes in 1.9.4 - * Fix issue #35 - -Changes in 1.9.3 - * Fix issue #34 - -Changes in 1.9.2 - * Allow VARSYM as infix constructors - -Changes in 1.9.1 - * Allow keywords as the name of constructors - -Changes in 1.9 - * Add support for pre-processing values before printing. - In particular, we add a pre-processor which will hide some constructors - from the output. - -Changes in 1.8.2 - * Switch to using version 3.3.1 of jquery (jquery 1 seems to be long gone) - -Changes in 1.8 - * Rejigger the rendering of unusal values, to improve the rendering of datres. - - a sequence of values with negative numbers is turned into an infix con - - change the association when sequences meet infix things - -Changes in 1.7 - * Add a dependency on package Text - - Adds an instance for `PrettyVal Text` - - Paves the road for using `Text` in the representation of values. - -Changes in 1.6.16 - * Fixes to accomodate GHC 8.4 - -Changes in 1.6.13 - * Parse things like and as constructors - -Changes in 1.6.12 - * Treat reserved operators as infix constructors (best effort kind of thing) - -Changes in 1.6.11 - * Add `pPrint`, which is `putStrLn . ppShow` - -Changes in 1.6.10 - * Increase the precedence of unary minus - -Changes in 1.6.9 - * Relax parsing of atoms, so that we can support things like the show - instance of StdGen (e.g., [ 123 45, 786 10 ]) - -Changes in 1.6.8.2: - * Correct license in srouce files. - -Changes in 1.6.8.1: - * Correct the 'License' field in the Cabal file to match the license (MIT) - -Changes in 1.6.8: - * Move source-repository pragma to top-level. - -Changes in 1.6.5: - * Rename CHANGES to CHANGELOG to work with hackage. - -Changes in 1.6.4: - * Drop dependency on happy >= 1.19 - -Changes in 1.6.3: - * Add Safe Haskell annotations - * Add CHANGES file - * Add generated parser to package again. We do this, because otherwise - the package fails to build on systems that do not have `happy`. - This is a bit questionable, but hopefully it won't be too much of - a problem. +Changes in 1.9.5 + * Add a `PrettyVal` instance for `Data.Fixed` + +Changes in 1.9.4 + * Fix issue #35 + +Changes in 1.9.3 + * Fix issue #34 + +Changes in 1.9.2 + * Allow VARSYM as infix constructors + +Changes in 1.9.1 + * Allow keywords as the name of constructors + +Changes in 1.9 + * Add support for pre-processing values before printing. + In particular, we add a pre-processor which will hide some constructors + from the output. + +Changes in 1.8.2 + * Switch to using version 3.3.1 of jquery (jquery 1 seems to be long gone) + +Changes in 1.8 + * Rejigger the rendering of unusal values, to improve the rendering of datres. + - a sequence of values with negative numbers is turned into an infix con + - change the association when sequences meet infix things + +Changes in 1.7 + * Add a dependency on package Text + - Adds an instance for `PrettyVal Text` + - Paves the road for using `Text` in the representation of values. + +Changes in 1.6.16 + * Fixes to accomodate GHC 8.4 + +Changes in 1.6.13 + * Parse things like and as constructors + +Changes in 1.6.12 + * Treat reserved operators as infix constructors (best effort kind of thing) + +Changes in 1.6.11 + * Add `pPrint`, which is `putStrLn . ppShow` + +Changes in 1.6.10 + * Increase the precedence of unary minus + +Changes in 1.6.9 + * Relax parsing of atoms, so that we can support things like the show + instance of StdGen (e.g., [ 123 45, 786 10 ]) + +Changes in 1.6.8.2: + * Correct license in srouce files. + +Changes in 1.6.8.1: + * Correct the 'License' field in the Cabal file to match the license (MIT) + +Changes in 1.6.8: + * Move source-repository pragma to top-level. + +Changes in 1.6.5: + * Rename CHANGES to CHANGELOG to work with hackage. + +Changes in 1.6.4: + * Drop dependency on happy >= 1.19 + +Changes in 1.6.3: + * Add Safe Haskell annotations + * Add CHANGES file + * Add generated parser to package again. We do this, because otherwise + the package fails to build on systems that do not have `happy`. + This is a bit questionable, but hopefully it won't be too much of + a problem. diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -1,19 +1,19 @@ -Copyright (c) 2008 Iavor S. Diatchki - -Permission is hereby granted, free of charge, to any person obtaining a copy of -this software and associated documentation files (the "Software"), to deal in -the Software without restriction, including without limitation the rights to -use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies -of the Software, and to permit persons to whom the Software is furnished to do -so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in all -copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE -SOFTWARE. +Copyright (c) 2008 Iavor S. Diatchki + +Permission is hereby granted, free of charge, to any person obtaining a copy of +this software and associated documentation files (the "Software"), to deal in +the Software without restriction, including without limitation the rights to +use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies +of the Software, and to permit persons to whom the Software is furnished to do +so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,6 +1,6 @@ -module Main (main) where - -import Distribution.Simple (defaultMain) - -main :: IO () -main = defaultMain +module Main (main) where + +import Distribution.Simple (defaultMain) + +main :: IO () +main = defaultMain diff --git a/Text/Show/Html.hs b/Text/Show/Html.hs --- a/Text/Show/Html.hs +++ b/Text/Show/Html.hs @@ -1,211 +1,211 @@ -{-# LANGUAGE Safe #-} -module Text.Show.Html - ( HtmlOpts(..), defaultHtmlOpts - , valToHtml, valToHtmlPage, htmlPage - , Html(..) - ) where - -import Text.Show.Value -import Prelude hiding (span) - --- | Make an Html page representing the given value. -valToHtmlPage :: HtmlOpts -> Value -> String -valToHtmlPage opts = htmlPage opts . valToHtml opts - --- | Options on how to generate Html (more to come). -data HtmlOpts = HtmlOpts - { dataDir :: FilePath -- ^ Path for extra files. If empty, we look in - -- directory `style`, relative to document. - , wideListWidth :: Int -- ^ Max. number of columns in wide lists. - } deriving Show - --- | Default options. -defaultHtmlOpts :: HtmlOpts -defaultHtmlOpts = HtmlOpts - { dataDir = "" - , wideListWidth = 80 - } - --- | Convert a value into an Html fragment. -valToHtml :: HtmlOpts -> Value -> Html -valToHtml opts = loop - where - loop val = - case val of - Con con [] -> span "con" (text con) - Con con vs -> tallRecord con (map conLab vs) (map loop vs) - Rec con fs -> tallRecord con (map fst fs) (map (loop . snd) fs) - Tuple vs -> wideTuple (map loop vs) - - InfixCons v ms -> - table "infix tallRecord" - [ tr $ (th "label" 1 (text " ") :) - $ map td $ loop v : [ h | (op,u) <- ms - , h <- [ text op, loop u ] - ] - ] - - List [] -> span "list" (text "[]") - List vs@(v : vs1) -> - case v of - - Con c fs - | all (isCon c) vs1 -> recordList c (map conLab fs) - [ map loop xs | Con _ xs <- vs ] - | otherwise -> tallList $ map (loop) vs - - Rec c fs - | all (isRec c) vs1 -> recordList c (map fst fs) - [ map (loop . snd) xs | Rec _ xs <- vs ] - | otherwise -> tallList $ map (loop) vs - - Tuple fs -> tupleList (length fs) - [ map (loop) xs | Tuple xs <- vs ] - - List {} -> tallList $ map loop vs - - Neg {} -> wideList (wideListWidth opts) $ map loop vs - Ratio {} -> wideList (wideListWidth opts) $ map loop vs - Integer {} -> wideList (wideListWidth opts) $ map loop vs - Float {} -> wideList (wideListWidth opts) $ map loop vs - Char {} -> wideList (wideListWidth opts) $ map loop vs - String {} -> tallList $ map loop vs - InfixCons {} -> tallList $ map loop vs - - Neg v -> - case v of - Integer txt -> span "integer" $ text ('-' : txt) - Float txt -> span "float" $ text ('-' : txt) - _ -> neg (loop v) - - Ratio v1 v2 -> ratio (loop v1) (loop v2) - Integer txt -> span "integer" (text txt) - Float txt -> span "float" (text txt) - Char txt -> span "char" (text txt) - String txt -> span "string" (text txt) - - conLab _ = " " - - isCon c (Con d _) = c == d - isCon _ _ = False - - isRec c (Rec d _) = c == d - isRec _ _ = False - - -neg :: Html -> Html -neg e = table "negate" [ tr [td (text "-"), td e] ] - -ratio :: Html -> Html -> Html -ratio e1 e2 = table "ratio" [ tr [ td' "numerator" e1 ], tr [td e2] ] - -wideTuple :: [Html] -> Html -wideTuple els = table "wideTuple" [ tr $ map td els ] - -tallTuple :: [Html] -> Html -tallTuple els = table "tallTuple" $ map (tr . return . td) els - -tallRecord :: Name -> [Name] -> [Html] -> Html -tallRecord con labs els = table "tallRecord" $ topHs : zipWith row labs els - where - topHs = tr [ th "con" 2 (text con) ] - row l e = tr [ th "label" 1 (text l), td e ] - -recordList :: Name -> [Name] -> [[Html]] -> Html -recordList con labs els = table "recordList" $ topHs : zipWith row [0..] els - where - topHs = tr $ th "con" 1 (text con) : map (th "label" 1 . text) labs - row n es = tr $ th "ix" 1 (int n) : map td es - -tupleList :: Int -> [[Html]] -> Html -tupleList n els = recordList " " (replicate n " ") els - -tallList :: [Html] -> Html -tallList els = table "tallList" $ top : zipWith row [0..] els - where - top = tr [ th "con" 2 (text " ")] - row n e = tr [ th "ix" 1 (int n), td e ] - -wideList :: Int -> [Html] -> Html -wideList w els = table "wideList" $ topHs : zipWith row [0..] (chop els) - where - elNum = length els - pad = elNum > w - - chop [] = [] - chop xs = let (as,bs) = splitAt w xs - in take w (as ++ if pad then repeat empty else []) : chop bs - - topHs = tr $ th "con" 1 (text " ") : map (th "label" 1 . int) - [ 0 .. min elNum w - 1 ] - row n es = tr $ (th "ix" 1 (int (n*w))) : map td es - --------------------------------------------------------------------------------- -newtype Html = Html { exportHtml :: String } - -table :: String -> [Html] -> Html -table cl body = Html $ "" ++ - concatMap exportHtml body ++ - "
" - -tr :: [Html] -> Html -tr body = Html $ "" ++ concatMap exportHtml body ++ "" - -th :: String -> Int -> Html -> Html -th cl n body = Html $ "" ++ - exportHtml body ++ - "" - -td :: Html -> Html -td body = Html $ "" ++ exportHtml body ++ "" - -td' :: String -> Html -> Html -td' cl body = Html $ "" ++ - exportHtml body ++ - "" - -span :: String -> Html -> Html -span cl body = Html $ "" ++ - exportHtml body ++ - "" - -empty :: Html -empty = Html "" - -int :: Int -> Html -int = Html . show - -text :: String -> Html -text = Html . concatMap esc - where - esc '<' = "<" - esc '>' = ">" - esc '&' = "&" - esc ' ' = " " - esc c = [c] - --- | Wrap an Html fragment to make an Html page. -htmlPage :: HtmlOpts -> Html -> String -htmlPage opts body = - unlines - [ "" - , "" - , "" - , "" - , "" - , "" - , exportHtml body - , "" - , "" - ] - where - -- XXX: slashes on Windows? - dir = case dataDir opts of - "" -> "" - d -> d ++ "/" - jquery = dir ++ "style/jquery.js" - pjs = dir ++ "style/pretty-show.js" - pstyle = dir ++ "style/pretty-show.css" - - +{-# LANGUAGE Safe #-} +module Text.Show.Html + ( HtmlOpts(..), defaultHtmlOpts + , valToHtml, valToHtmlPage, htmlPage + , Html(..) + ) where + +import Text.Show.Value +import Prelude hiding (span) + +-- | Make an Html page representing the given value. +valToHtmlPage :: HtmlOpts -> Value -> String +valToHtmlPage opts = htmlPage opts . valToHtml opts + +-- | Options on how to generate Html (more to come). +data HtmlOpts = HtmlOpts + { dataDir :: FilePath -- ^ Path for extra files. If empty, we look in + -- directory `style`, relative to document. + , wideListWidth :: Int -- ^ Max. number of columns in wide lists. + } deriving Show + +-- | Default options. +defaultHtmlOpts :: HtmlOpts +defaultHtmlOpts = HtmlOpts + { dataDir = "" + , wideListWidth = 80 + } + +-- | Convert a value into an Html fragment. +valToHtml :: HtmlOpts -> Value -> Html +valToHtml opts = loop + where + loop val = + case val of + Con con [] -> span "con" (text con) + Con con vs -> tallRecord con (map conLab vs) (map loop vs) + Rec con fs -> tallRecord con (map fst fs) (map (loop . snd) fs) + Tuple vs -> wideTuple (map loop vs) + + InfixCons v ms -> + table "infix tallRecord" + [ tr $ (th "label" 1 (text " ") :) + $ map td $ loop v : [ h | (op,u) <- ms + , h <- [ text op, loop u ] + ] + ] + + List [] -> span "list" (text "[]") + List vs@(v : vs1) -> + case v of + + Con c fs + | all (isCon c) vs1 -> recordList c (map conLab fs) + [ map loop xs | Con _ xs <- vs ] + | otherwise -> tallList $ map (loop) vs + + Rec c fs + | all (isRec c) vs1 -> recordList c (map fst fs) + [ map (loop . snd) xs | Rec _ xs <- vs ] + | otherwise -> tallList $ map (loop) vs + + Tuple fs -> tupleList (length fs) + [ map (loop) xs | Tuple xs <- vs ] + + List {} -> tallList $ map loop vs + + Neg {} -> wideList (wideListWidth opts) $ map loop vs + Ratio {} -> wideList (wideListWidth opts) $ map loop vs + Integer {} -> wideList (wideListWidth opts) $ map loop vs + Float {} -> wideList (wideListWidth opts) $ map loop vs + Char {} -> wideList (wideListWidth opts) $ map loop vs + String {} -> tallList $ map loop vs + InfixCons {} -> tallList $ map loop vs + + Neg v -> + case v of + Integer txt -> span "integer" $ text ('-' : txt) + Float txt -> span "float" $ text ('-' : txt) + _ -> neg (loop v) + + Ratio v1 v2 -> ratio (loop v1) (loop v2) + Integer txt -> span "integer" (text txt) + Float txt -> span "float" (text txt) + Char txt -> span "char" (text txt) + String txt -> span "string" (text txt) + + conLab _ = " " + + isCon c (Con d _) = c == d + isCon _ _ = False + + isRec c (Rec d _) = c == d + isRec _ _ = False + + +neg :: Html -> Html +neg e = table "negate" [ tr [td (text "-"), td e] ] + +ratio :: Html -> Html -> Html +ratio e1 e2 = table "ratio" [ tr [ td' "numerator" e1 ], tr [td e2] ] + +wideTuple :: [Html] -> Html +wideTuple els = table "wideTuple" [ tr $ map td els ] + +tallTuple :: [Html] -> Html +tallTuple els = table "tallTuple" $ map (tr . return . td) els + +tallRecord :: Name -> [Name] -> [Html] -> Html +tallRecord con labs els = table "tallRecord" $ topHs : zipWith row labs els + where + topHs = tr [ th "con" 2 (text con) ] + row l e = tr [ th "label" 1 (text l), td e ] + +recordList :: Name -> [Name] -> [[Html]] -> Html +recordList con labs els = table "recordList" $ topHs : zipWith row [0..] els + where + topHs = tr $ th "con" 1 (text con) : map (th "label" 1 . text) labs + row n es = tr $ th "ix" 1 (int n) : map td es + +tupleList :: Int -> [[Html]] -> Html +tupleList n els = recordList " " (replicate n " ") els + +tallList :: [Html] -> Html +tallList els = table "tallList" $ top : zipWith row [0..] els + where + top = tr [ th "con" 2 (text " ")] + row n e = tr [ th "ix" 1 (int n), td e ] + +wideList :: Int -> [Html] -> Html +wideList w els = table "wideList" $ topHs : zipWith row [0..] (chop els) + where + elNum = length els + pad = elNum > w + + chop [] = [] + chop xs = let (as,bs) = splitAt w xs + in take w (as ++ if pad then repeat empty else []) : chop bs + + topHs = tr $ th "con" 1 (text " ") : map (th "label" 1 . int) + [ 0 .. min elNum w - 1 ] + row n es = tr $ (th "ix" 1 (int (n*w))) : map td es + +-------------------------------------------------------------------------------- +newtype Html = Html { exportHtml :: String } + +table :: String -> [Html] -> Html +table cl body = Html $ "" ++ + concatMap exportHtml body ++ + "
" + +tr :: [Html] -> Html +tr body = Html $ "" ++ concatMap exportHtml body ++ "" + +th :: String -> Int -> Html -> Html +th cl n body = Html $ "" ++ + exportHtml body ++ + "" + +td :: Html -> Html +td body = Html $ "" ++ exportHtml body ++ "" + +td' :: String -> Html -> Html +td' cl body = Html $ "" ++ + exportHtml body ++ + "" + +span :: String -> Html -> Html +span cl body = Html $ "" ++ + exportHtml body ++ + "" + +empty :: Html +empty = Html "" + +int :: Int -> Html +int = Html . show + +text :: String -> Html +text = Html . concatMap esc + where + esc '<' = "<" + esc '>' = ">" + esc '&' = "&" + esc ' ' = " " + esc c = [c] + +-- | Wrap an Html fragment to make an Html page. +htmlPage :: HtmlOpts -> Html -> String +htmlPage opts body = + unlines + [ "" + , "" + , "" + , "" + , "" + , "" + , exportHtml body + , "" + , "" + ] + where + -- XXX: slashes on Windows? + dir = case dataDir opts of + "" -> "" + d -> d ++ "/" + jquery = dir ++ "style/jquery.js" + pjs = dir ++ "style/pretty-show.js" + pstyle = dir ++ "style/pretty-show.css" + + diff --git a/Text/Show/Parser.y b/Text/Show/Parser.y --- a/Text/Show/Parser.y +++ b/Text/Show/Parser.y @@ -1,176 +1,176 @@ -{ --- We use these options because Happy generates code with a lot of warnings. -{-# LANGUAGE Trustworthy #-} -module Text.Show.Parser (parseValue) where - -import Text.Show.Value -import Language.Haskell.Lexer -} - -%token - - '=' { (Reservedop, (_,"=")) } - '(' { (Special, (_,"(")) } - ')' { (Special, (_,")")) } - '{' { (Special, (_,"{")) } - '}' { (Special, (_,"}")) } - '[' { (Special, (_,"[")) } - ']' { (Special, (_,"]")) } - '<' { (Varsym, (_,"<")) } - '>' { (Varsym, (_,">")) } - ',' { (Special, (_,",")) } - '-' { (Varsym, (_,"-")) } - '%' { (Varsym, (_,"%")) } - '`' { (Special, (_,"`")) } - - INT { (IntLit, (_,$$)) } - FLOAT { (FloatLit, (_,$$)) } - STRING { (StringLit, (_,$$)) } - CHAR { (CharLit, (_,$$)) } - - VARID { (Varid, (_,$$)) } - QVARID { (Qvarid, (_,$$)) } - VARSYM { (Varsym, (_,$$)) } - QVARSYM { (Qvarsym, (_,$$)) } - CONID { (Conid, (_,$$)) } - QCONID { (Qconid, (_,$$)) } - CONSYM { (Consym, (_,$$)) } - QCONSYM { (Qconsym, (_,$$)) } - RESOP { (Reservedop, (_,$$)) } - RESID { (Reservedid, (_,$$)) } - - - -%monad { Maybe } { (>>=) } { return } -%name parseValue value -%tokentype { PosToken } - - -%% - -value :: { Value } - : value '%' app_value { Ratio $1 $3 } - | app_value { $1 } - | app_value list1(infixelem) { mkInfixCons $1 $2 } - -infixelem :: { (String,Value) } - : infixcon app_value { ($1,$2) } - -app_value :: { Value } - : list1(avalue) { mkValue $1 } - - -avalue :: { Value } - : '(' value ')' { $2 } - | '[' sep(value,',') ']' { List $2 } - | '(' tuple ')' { Tuple $2 } - | con '{' sep(field,',') '}' { Rec $1 $3 } - | con { Con $1 [] } - | INT { Integer $1 } - | FLOAT { Float $1 } - | STRING { String $1 } - | CHAR { Char $1 } - | '-' avalue { Neg $2 } - -con :: { String } - : CONID { $1 } - | QCONID { $1 } - | prefix(CONSYM) { $1 } - | prefix(QCONSYM) { $1 } - -- to support things like "fromList x" - | VARID { $1 } - | QVARID { $1 } - | prefix(VARSYM) { $1 } - | prefix(QVARSYM) { $1 } - | '<' VARID '>' { "<" ++ $2 ++ ">" } -- note: looses space - | '<' CONID '>' { "<" ++ $2 ++ ">" } -- ditto - | RESID { $1 } - -infixcon :: { String } - : CONSYM { $1 } - | QCONSYM { $1 } - | VARSYM { $1 } - | QVARSYM { $1 } - | '`' CONID '`' { backtick $2 } - | '`' QCONID '`' { backtick $2 } - | RESOP { $1 } - -field :: { (Name,Value) } - : VARID '=' value { ($1,$3) } - -tuple :: { [Value] } - : { [] } - | value ',' sep1(value,',') { $1 : $3 } - --- Common Rule Patterns -------------------------------------------------------- -prefix(p) : '(' p ')' { "(" ++ $2 ++ ")" } - -sep1(p,q) : p list(snd(q,p)) { $1 : $2 } -sep(p,q) : sep1(p,q) { $1 } - | { [] } - -snd(p,q) : p q { $2 } - -list1(p) : rev_list1(p) { reverse $1 } -list(p) : list1(p) { $1 } - | { [] } - -rev_list1(p) : p { [$1] } - | rev_list1(p) p { $2 : $1 } - - - -{ -backtick :: String -> String -backtick s = "`" ++ s ++ "`" - -happyError :: [PosToken] -> Maybe a -happyError ((_,(p,_)) : _) = Nothing -- error ("Parser error at: " ++ show p) -happyError [] = Nothing -- error ("Parser error at EOF") - -mkValue :: [Value] -> Value -mkValue [v] = v -mkValue (Con "" [] : vs) = mkValue vs -mkValue (Con x as : vs) = Con x (as ++ vs) -mkValue (InfixCons v xs : Neg x : more) - = mkValue (mkInfixCons v (xs ++ [("-",x)]) : more) -mkValue (v : Neg x : more) = mkValue (mkInfixCons v [("-",x)] : more) -mkValue vs = mkFakeCon vs - -{- When we see a sequence of thins: -1 2 3 + x + y -we parse it as: -1 2 (3 + x + y) - -we do this to make parsing of dates to look a little nicer: - -(2018-08-05) 09 : 31 - -ends up as - -(2018-08-05) (09:31) --} - -mkInfixCons :: Value -> [(Name,Value)] -> Value -mkInfixCons (Con "" as) bs | not (null as) = - mkFakeCon (init as ++ [mkInfixConsLast (last as) bs]) -mkInfixCons a bs = mkInfixConsLast a bs - -mkInfixConsLast :: Value -> [(Name,Value)] -> Value -mkInfixConsLast v [] = v -mkInfixConsLast v vs = mk [] vs - where - inf xs = InfixCons v (reverse xs) - - mk ps [(x,Con "" (a:as))] = mkFakeCon (inf ((x,a):ps) : as) - mk ps [x] = inf (x:ps) - mk ps (x : xs) = mk (x : ps) xs - mk _ [] = error "impossible" - -mkFakeCon :: [Value] -> Value -mkFakeCon vs = Con "" (concatMap expand vs) - where expand (Con "" vs) = vs - expand v = [v] - - -} +{ +-- We use these options because Happy generates code with a lot of warnings. +{-# LANGUAGE Trustworthy #-} +module Text.Show.Parser (parseValue) where + +import Text.Show.Value +import Language.Haskell.Lexer +} + +%token + + '=' { (Reservedop, (_,"=")) } + '(' { (Special, (_,"(")) } + ')' { (Special, (_,")")) } + '{' { (Special, (_,"{")) } + '}' { (Special, (_,"}")) } + '[' { (Special, (_,"[")) } + ']' { (Special, (_,"]")) } + '<' { (Varsym, (_,"<")) } + '>' { (Varsym, (_,">")) } + ',' { (Special, (_,",")) } + '-' { (Varsym, (_,"-")) } + '%' { (Varsym, (_,"%")) } + '`' { (Special, (_,"`")) } + + INT { (IntLit, (_,$$)) } + FLOAT { (FloatLit, (_,$$)) } + STRING { (StringLit, (_,$$)) } + CHAR { (CharLit, (_,$$)) } + + VARID { (Varid, (_,$$)) } + QVARID { (Qvarid, (_,$$)) } + VARSYM { (Varsym, (_,$$)) } + QVARSYM { (Qvarsym, (_,$$)) } + CONID { (Conid, (_,$$)) } + QCONID { (Qconid, (_,$$)) } + CONSYM { (Consym, (_,$$)) } + QCONSYM { (Qconsym, (_,$$)) } + RESOP { (Reservedop, (_,$$)) } + RESID { (Reservedid, (_,$$)) } + + + +%monad { Maybe } { (>>=) } { return } +%name parseValue value +%tokentype { PosToken } + + +%% + +value :: { Value } + : value '%' app_value { Ratio $1 $3 } + | app_value { $1 } + | app_value list1(infixelem) { mkInfixCons $1 $2 } + +infixelem :: { (String,Value) } + : infixcon app_value { ($1,$2) } + +app_value :: { Value } + : list1(avalue) { mkValue $1 } + + +avalue :: { Value } + : '(' value ')' { $2 } + | '[' sep(value,',') ']' { List $2 } + | '(' tuple ')' { Tuple $2 } + | con '{' sep(field,',') '}' { Rec $1 $3 } + | con { Con $1 [] } + | INT { Integer $1 } + | FLOAT { Float $1 } + | STRING { String $1 } + | CHAR { Char $1 } + | '-' avalue { Neg $2 } + +con :: { String } + : CONID { $1 } + | QCONID { $1 } + | prefix(CONSYM) { $1 } + | prefix(QCONSYM) { $1 } + -- to support things like "fromList x" + | VARID { $1 } + | QVARID { $1 } + | prefix(VARSYM) { $1 } + | prefix(QVARSYM) { $1 } + | '<' VARID '>' { "<" ++ $2 ++ ">" } -- note: looses space + | '<' CONID '>' { "<" ++ $2 ++ ">" } -- ditto + | RESID { $1 } + +infixcon :: { String } + : CONSYM { $1 } + | QCONSYM { $1 } + | VARSYM { $1 } + | QVARSYM { $1 } + | '`' CONID '`' { backtick $2 } + | '`' QCONID '`' { backtick $2 } + | RESOP { $1 } + +field :: { (Name,Value) } + : VARID '=' value { ($1,$3) } + +tuple :: { [Value] } + : { [] } + | value ',' sep1(value,',') { $1 : $3 } + +-- Common Rule Patterns -------------------------------------------------------- +prefix(p) : '(' p ')' { "(" ++ $2 ++ ")" } + +sep1(p,q) : p list(snd(q,p)) { $1 : $2 } +sep(p,q) : sep1(p,q) { $1 } + | { [] } + +snd(p,q) : p q { $2 } + +list1(p) : rev_list1(p) { reverse $1 } +list(p) : list1(p) { $1 } + | { [] } + +rev_list1(p) : p { [$1] } + | rev_list1(p) p { $2 : $1 } + + + +{ +backtick :: String -> String +backtick s = "`" ++ s ++ "`" + +happyError :: [PosToken] -> Maybe a +happyError ((_,(p,_)) : _) = Nothing -- error ("Parser error at: " ++ show p) +happyError [] = Nothing -- error ("Parser error at EOF") + +mkValue :: [Value] -> Value +mkValue [v] = v +mkValue (Con "" [] : vs) = mkValue vs +mkValue (Con x as : vs) = Con x (as ++ vs) +mkValue (InfixCons v xs : Neg x : more) + = mkValue (mkInfixCons v (xs ++ [("-",x)]) : more) +mkValue (v : Neg x : more) = mkValue (mkInfixCons v [("-",x)] : more) +mkValue vs = mkFakeCon vs + +{- When we see a sequence of thins: +1 2 3 + x + y +we parse it as: +1 2 (3 + x + y) + +we do this to make parsing of dates to look a little nicer: + +(2018-08-05) 09 : 31 + +ends up as + +(2018-08-05) (09:31) +-} + +mkInfixCons :: Value -> [(Name,Value)] -> Value +mkInfixCons (Con "" as) bs | not (null as) = + mkFakeCon (init as ++ [mkInfixConsLast (last as) bs]) +mkInfixCons a bs = mkInfixConsLast a bs + +mkInfixConsLast :: Value -> [(Name,Value)] -> Value +mkInfixConsLast v [] = v +mkInfixConsLast v vs = mk [] vs + where + inf xs = InfixCons v (reverse xs) + + mk ps [(x,Con "" (a:as))] = mkFakeCon (inf ((x,a):ps) : as) + mk ps [x] = inf (x:ps) + mk ps (x : xs) = mk (x : ps) xs + mk _ [] = error "impossible" + +mkFakeCon :: [Value] -> Value +mkFakeCon vs = Con "" (concatMap expand vs) + where expand (Con "" vs) = vs + expand v = [v] + + +} diff --git a/Text/Show/Pretty.hs b/Text/Show/Pretty.hs --- a/Text/Show/Pretty.hs +++ b/Text/Show/Pretty.hs @@ -1,234 +1,234 @@ --------------------------------------------------------------------------------- --- | --- Module : Text.Show.Pretty --- Copyright : (c) Iavor S. Diatchki 2009 --- License : MIT --- --- Maintainer : iavor.diatchki@gmail.com --- Stability : provisional --- Portability : Haskell 98 --- --- Functions for human-readable derived 'Show' instances. --------------------------------------------------------------------------------- - -{-# LANGUAGE CPP #-} -{-# LANGUAGE Safe #-} -{-# LANGUAGE PatternGuards #-} -module Text.Show.Pretty - ( -- * Generic representation of values - Value(..), Name - , valToStr - , valToDoc - , valToHtmlPage - - -- * Values using the 'Show' class - , parseValue, reify, ppDoc, ppShow, pPrint - - , -- * Working with listlike ("foldable") collections - ppDocList, ppShowList, pPrintList - - -- * Values using the 'PrettyVal' class - , dumpDoc, dumpStr, dumpIO, PrettyVal(..) - - -- * Rendering values to Html - , valToHtml, HtmlOpts(..), defaultHtmlOpts, htmlPage, Html(..) - - -- * Get location of data files - , getDataDir - - , -- * Preprocessing of values - PreProc(..), ppHide, ppHideNested, hideCon - - -- * Deprecated - , ppValue - ) where - -import Data.Char(isHexDigit) -import Text.PrettyPrint -import qualified Text.Show.Parser as P -import Text.Show.Value -import Text.Show.PrettyVal -import Text.Show.Html -import Data.Foldable(Foldable,toList) -import Language.Haskell.Lexer(rmSpace,lexerPass0,Token(..)) -import Paths_pretty_show (getDataDir) - -#if MIN_VERSION_base(4,11,0) -import Prelude hiding ( (<>) ) -#else -import Prelude -#endif - -{-# DEPRECATED ppValue "Please use `valToDoc` instead." #-} -ppValue :: Value -> Doc -ppValue = valToDoc - -reify :: Show a => a -> Maybe Value -reify = parseValue . show - -parseValue :: String -> Maybe Value -parseValue = P.parseValue . rmSpace . foldr joinTokens [] . lexerPass0 - where - - -- Sometimes we join tokens that are next to each other, with no spaces. - -- This improves the printing of some malformed inputs: - -- * Hex numbers with no 0x: "4ab" instead of "4 ab" - joinTokens a@(t1,(p1,s1)) bs = - case bs of - (_t2,(_,s2)) : more - | IntLit <- t1, all isHexDigit s2 -> jn IntLit - where jn t = (t,(p1,s1++s2)) : more - - _ -> a : bs - - --- | Convert a generic value into a pretty 'String', if possible. -ppShow :: Show a => a -> String -ppShow = show . ppDoc - --- | Pretty print something that may be converted to a list as a list. --- Each entry is on a separate line, which means that we don't do clever --- pretty printing, and so this works well for large strucutures. -ppShowList :: (Foldable f, Show a) => f a -> String -ppShowList = show . ppDocList - --- | Try to show a value, prettily. If we do not understand the value, then we --- just use its standard 'Show' instance. -ppDoc :: Show a => a -> Doc -ppDoc a = case parseValue txt of - Just v -> valToDoc v - Nothing -> text txt - where txt = show a - --- | Pretty print something that may be converted to a list as a list. --- Each entry is on a separate line, which means that we don't do clever --- pretty printing, and so this works well for large strucutures. -ppDocList :: (Foldable f, Show a) => f a -> Doc -ppDocList = blockWith vcat '[' ']' . map ppDoc . toList - --- | Pretty print a generic value to stdout. This is particularly useful in the --- GHCi interactive environment. -pPrint :: Show a => a -> IO () -pPrint = putStrLn . ppShow - --- | Pretty print something that may be converted to a list as a list. --- Each entry is on a separate line, which means that we don't do clever --- pretty printing, and so this works well for large strucutures. -pPrintList :: (Foldable f, Show a) => f a -> IO () -pPrintList = putStrLn . ppShowList - --- | Render a value in the 'PrettyVal' class to a 'Doc'. --- The benefit of this function is that 'PrettyVal' instances may --- be derived automatically using generics. -dumpDoc :: PrettyVal a => a -> Doc -dumpDoc = valToDoc . prettyVal - --- | Render a value in the 'PrettyVal' class to a 'String'. --- The benefit of this function is that 'PrettyVal' instances may --- be derived automatically using generics. -dumpStr :: PrettyVal a => a -> String -dumpStr = show . dumpDoc - --- | Render a value using the 'PrettyVal' class and show it to standard out. -dumpIO :: PrettyVal a => a -> IO () -dumpIO = putStrLn . dumpStr - - --- | Pretty print a generic value. Our intention is that the result is --- equivalent to the 'Show' instance for the original value, except possibly --- easier to understand by a human. -valToStr :: Value -> String -valToStr = show . valToDoc - --- | Pretty print a generic value. Our intention is that the result is --- equivalent to the 'Show' instance for the original value, except possibly --- easier to understand by a human. -valToDoc :: Value -> Doc -valToDoc val = case val of - Con c vs -> ppCon c vs - InfixCons v1 cvs -> hang_sep (go v1 cvs) - where - go v [] = [ppInfixAtom v] - go v ((n,v2):cvs') = (ppInfixAtom v <+> text n):go v2 cvs' - - hang_sep [] = empty - hang_sep (x:xs) = hang x 2 (sep xs) - -- hang (ppInfixAtom v1) 2 (sep [ text n <+> ppInfixAtom v | (n,v) <- cvs ]) - Rec c fs -> hang (text c) 2 $ block '{' '}' (map ppField fs) - where ppField (x,v) = hang (text x <+> char '=') 2 (valToDoc v) - - List vs -> block '[' ']' (map valToDoc vs) - Tuple vs -> block '(' ')' (map valToDoc vs) - Neg v -> char '-' <> ppAtom v - Ratio x y -> hang (ppAtom x <+> text "%") 2 (ppAtom y) - Integer x -> text x - Float x -> text x - Char x -> text x - String x -> text x - - --- | This type is used to allow pre-processing of values before showing them. -data PreProc a = PreProc (Value -> Value) a - -instance Show a => Show (PreProc a) where - showsPrec p (PreProc f a) cs = - case parseValue txt of - Nothing -> txt ++ cs - Just v -> wrap (valToStr (f v)) - where - txt = showsPrec p a "" - wrap t = case (t,txt) of - (h:_,'(':_) | h /= '(' -> '(' : (t ++ ')' : cs) - _ -> t ++ cs - --- | Hide the given constructors when showing a value. -ppHide :: (Name -> Bool) -> a -> PreProc a -ppHide p = PreProc (hideCon False p) - --- | Hide the given constructors when showing a value. --- In addition, hide values if all of their children were hidden. -ppHideNested :: (Name -> Bool) -> a -> PreProc a -ppHideNested p = PreProc (hideCon True p) - - - --- Private --------------------------------------------------------------------- - -ppAtom :: Value -> Doc -ppAtom v - | isAtom v = valToDoc v - | otherwise = parens (valToDoc v) - -ppInfixAtom :: Value -> Doc -ppInfixAtom v - | isInfixAtom v = valToDoc v - | otherwise = parens (valToDoc v) - -ppCon :: Name -> [Value] -> Doc -ppCon "" vs = sep (map ppAtom vs) -ppCon c vs = hang (text c) 2 (sep (map ppAtom vs)) - -isAtom :: Value -> Bool -isAtom (Con _ (_:_)) = False -isAtom (InfixCons {}) = False -isAtom (Ratio {}) = False -isAtom (Neg {}) = False -isAtom _ = True - --- Don't put parenthesis around constructors in infix chains -isInfixAtom :: Value -> Bool -isInfixAtom (InfixCons {}) = False -isInfixAtom (Ratio {}) = False -isInfixAtom (Neg {}) = False -isInfixAtom _ = True - -block :: Char -> Char -> [Doc] -> Doc -block = blockWith sep - -blockWith :: ([Doc] -> Doc) -> Char -> Char -> [Doc] -> Doc -blockWith _ a b [] = char a <> char b -blockWith f a b (d:ds) = f $ - (char a <+> d) : [ char ',' <+> x | x <- ds ] ++ [ char b ] - - - +-------------------------------------------------------------------------------- +-- | +-- Module : Text.Show.Pretty +-- Copyright : (c) Iavor S. Diatchki 2009 +-- License : MIT +-- +-- Maintainer : iavor.diatchki@gmail.com +-- Stability : provisional +-- Portability : Haskell 98 +-- +-- Functions for human-readable derived 'Show' instances. +-------------------------------------------------------------------------------- + +{-# LANGUAGE CPP #-} +{-# LANGUAGE Safe #-} +{-# LANGUAGE PatternGuards #-} +module Text.Show.Pretty + ( -- * Generic representation of values + Value(..), Name + , valToStr + , valToDoc + , valToHtmlPage + + -- * Values using the 'Show' class + , parseValue, reify, ppDoc, ppShow, pPrint + + , -- * Working with listlike ("foldable") collections + ppDocList, ppShowList, pPrintList + + -- * Values using the 'PrettyVal' class + , dumpDoc, dumpStr, dumpIO, PrettyVal(..) + + -- * Rendering values to Html + , valToHtml, HtmlOpts(..), defaultHtmlOpts, htmlPage, Html(..) + + -- * Get location of data files + , getDataDir + + , -- * Preprocessing of values + PreProc(..), ppHide, ppHideNested, hideCon + + -- * Deprecated + , ppValue + ) where + +import Data.Char(isHexDigit) +import Text.PrettyPrint +import qualified Text.Show.Parser as P +import Text.Show.Value +import Text.Show.PrettyVal +import Text.Show.Html +import Data.Foldable(Foldable,toList) +import Language.Haskell.Lexer(rmSpace,lexerPass0,Token(..)) +import Paths_pretty_show (getDataDir) + +#if MIN_VERSION_base(4,11,0) +import Prelude hiding ( (<>) ) +#else +import Prelude +#endif + +{-# DEPRECATED ppValue "Please use `valToDoc` instead." #-} +ppValue :: Value -> Doc +ppValue = valToDoc + +reify :: Show a => a -> Maybe Value +reify = parseValue . show + +parseValue :: String -> Maybe Value +parseValue = P.parseValue . rmSpace . foldr joinTokens [] . lexerPass0 + where + + -- Sometimes we join tokens that are next to each other, with no spaces. + -- This improves the printing of some malformed inputs: + -- * Hex numbers with no 0x: "4ab" instead of "4 ab" + joinTokens a@(t1,(p1,s1)) bs = + case bs of + (_t2,(_,s2)) : more + | IntLit <- t1, all isHexDigit s2 -> jn IntLit + where jn t = (t,(p1,s1++s2)) : more + + _ -> a : bs + + +-- | Convert a generic value into a pretty 'String', if possible. +ppShow :: Show a => a -> String +ppShow = show . ppDoc + +-- | Pretty print something that may be converted to a list as a list. +-- Each entry is on a separate line, which means that we don't do clever +-- pretty printing, and so this works well for large strucutures. +ppShowList :: (Foldable f, Show a) => f a -> String +ppShowList = show . ppDocList + +-- | Try to show a value, prettily. If we do not understand the value, then we +-- just use its standard 'Show' instance. +ppDoc :: Show a => a -> Doc +ppDoc a = case parseValue txt of + Just v -> valToDoc v + Nothing -> text txt + where txt = show a + +-- | Pretty print something that may be converted to a list as a list. +-- Each entry is on a separate line, which means that we don't do clever +-- pretty printing, and so this works well for large strucutures. +ppDocList :: (Foldable f, Show a) => f a -> Doc +ppDocList = blockWith vcat '[' ']' . map ppDoc . toList + +-- | Pretty print a generic value to stdout. This is particularly useful in the +-- GHCi interactive environment. +pPrint :: Show a => a -> IO () +pPrint = putStrLn . ppShow + +-- | Pretty print something that may be converted to a list as a list. +-- Each entry is on a separate line, which means that we don't do clever +-- pretty printing, and so this works well for large strucutures. +pPrintList :: (Foldable f, Show a) => f a -> IO () +pPrintList = putStrLn . ppShowList + +-- | Render a value in the 'PrettyVal' class to a 'Doc'. +-- The benefit of this function is that 'PrettyVal' instances may +-- be derived automatically using generics. +dumpDoc :: PrettyVal a => a -> Doc +dumpDoc = valToDoc . prettyVal + +-- | Render a value in the 'PrettyVal' class to a 'String'. +-- The benefit of this function is that 'PrettyVal' instances may +-- be derived automatically using generics. +dumpStr :: PrettyVal a => a -> String +dumpStr = show . dumpDoc + +-- | Render a value using the 'PrettyVal' class and show it to standard out. +dumpIO :: PrettyVal a => a -> IO () +dumpIO = putStrLn . dumpStr + + +-- | Pretty print a generic value. Our intention is that the result is +-- equivalent to the 'Show' instance for the original value, except possibly +-- easier to understand by a human. +valToStr :: Value -> String +valToStr = show . valToDoc + +-- | Pretty print a generic value. Our intention is that the result is +-- equivalent to the 'Show' instance for the original value, except possibly +-- easier to understand by a human. +valToDoc :: Value -> Doc +valToDoc val = case val of + Con c vs -> ppCon c vs + InfixCons v1 cvs -> hang_sep (go v1 cvs) + where + go v [] = [ppInfixAtom v] + go v ((n,v2):cvs') = (ppInfixAtom v <+> text n):go v2 cvs' + + hang_sep [] = empty + hang_sep (x:xs) = hang x 2 (sep xs) + -- hang (ppInfixAtom v1) 2 (sep [ text n <+> ppInfixAtom v | (n,v) <- cvs ]) + Rec c fs -> hang (text c) 2 $ block '{' '}' (map ppField fs) + where ppField (x,v) = hang (text x <+> char '=') 2 (valToDoc v) + + List vs -> block '[' ']' (map valToDoc vs) + Tuple vs -> block '(' ')' (map valToDoc vs) + Neg v -> char '-' <> ppAtom v + Ratio x y -> hang (ppAtom x <+> text "%") 2 (ppAtom y) + Integer x -> text x + Float x -> text x + Char x -> text x + String x -> text x + + +-- | This type is used to allow pre-processing of values before showing them. +data PreProc a = PreProc (Value -> Value) a + +instance Show a => Show (PreProc a) where + showsPrec p (PreProc f a) cs = + case parseValue txt of + Nothing -> txt ++ cs + Just v -> wrap (valToStr (f v)) + where + txt = showsPrec p a "" + wrap t = case (t,txt) of + (h:_,'(':_) | h /= '(' -> '(' : (t ++ ')' : cs) + _ -> t ++ cs + +-- | Hide the given constructors when showing a value. +ppHide :: (Name -> Bool) -> a -> PreProc a +ppHide p = PreProc (hideCon False p) + +-- | Hide the given constructors when showing a value. +-- In addition, hide values if all of their children were hidden. +ppHideNested :: (Name -> Bool) -> a -> PreProc a +ppHideNested p = PreProc (hideCon True p) + + + +-- Private --------------------------------------------------------------------- + +ppAtom :: Value -> Doc +ppAtom v + | isAtom v = valToDoc v + | otherwise = parens (valToDoc v) + +ppInfixAtom :: Value -> Doc +ppInfixAtom v + | isInfixAtom v = valToDoc v + | otherwise = parens (valToDoc v) + +ppCon :: Name -> [Value] -> Doc +ppCon "" vs = sep (map ppAtom vs) +ppCon c vs = hang (text c) 2 (sep (map ppAtom vs)) + +isAtom :: Value -> Bool +isAtom (Con _ (_:_)) = False +isAtom (InfixCons {}) = False +isAtom (Ratio {}) = False +isAtom (Neg {}) = False +isAtom _ = True + +-- Don't put parenthesis around constructors in infix chains +isInfixAtom :: Value -> Bool +isInfixAtom (InfixCons {}) = False +isInfixAtom (Ratio {}) = False +isInfixAtom (Neg {}) = False +isInfixAtom _ = True + +block :: Char -> Char -> [Doc] -> Doc +block = blockWith sep + +blockWith :: ([Doc] -> Doc) -> Char -> Char -> [Doc] -> Doc +blockWith _ a b [] = char a <> char b +blockWith f a b (d:ds) = f $ + (char a <+> d) : [ char ',' <+> x | x <- ds ] ++ [ char b ] + + + diff --git a/Text/Show/PrettyVal.hs b/Text/Show/PrettyVal.hs --- a/Text/Show/PrettyVal.hs +++ b/Text/Show/PrettyVal.hs @@ -1,136 +1,139 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE Safe #-} -#ifndef NO_GENERICS -{-# LANGUAGE TypeOperators #-} -{-# LANGUAGE FlexibleInstances, FlexibleContexts #-} -{-# LANGUAGE DefaultSignatures #-} -#endif -module Text.Show.PrettyVal ( PrettyVal(prettyVal) ) where - -import Text.Show.Value -import Data.Text(Text) -import qualified Data.Text as Text - -#ifndef NO_GENERICS -import Data.Ratio -import Data.Word -import Data.Int -import GHC.Generics -#endif - --- | A class for types that may be reified into a value. --- Instances of this class may be derived automatically, --- for datatypes that support `Generics`. -class PrettyVal a where - prettyVal :: a -> Value - listValue :: [a] -> Value - -#ifndef NO_GENERICS - - default prettyVal :: (GDump (Rep a), Generic a) => a -> Value - prettyVal = oneVal . gdump . from - - default listValue :: [a] -> Value - listValue = List . map prettyVal - - -class GDump f where - gdump :: f a -> [(Name,Value)] - -instance GDump U1 where - gdump U1 = [] - -instance (GDump f, GDump g) => GDump (f :*: g) where - gdump (xs :*: ys) = gdump xs ++ gdump ys - -instance (GDump f, GDump g) => GDump (f :+: g) where - gdump (L1 x) = gdump x - gdump (R1 x) = gdump x - -instance PrettyVal a => GDump (K1 t a) where - gdump (K1 x) = [ ("", prettyVal x) ] - -instance (GDump f, Datatype d) => GDump (M1 D d f) where - gdump (M1 x) = gdump x - -instance (GDump f, Constructor c) => GDump (M1 C c f) where - gdump c@(M1 x) - | conIsRecord c = [ ("", Rec name (gdump x)) ] - | isTuple name = [ ("", Tuple (map snd (gdump x))) ] - | otherwise = [ ("", Con name (map snd (gdump x))) ] - - where - name = conName c - - isTuple ('(' : cs) = case span (== ',') cs of - (_,")") -> True - _ -> False - isTuple _ = False - -instance (GDump f, Selector s) => GDump (M1 S s f) where - gdump it@(M1 x) = repeat (selName it) `zip` map snd (gdump x) -#endif - -oneVal :: [(Name,Value)] -> Value -oneVal x = - case x of - [ ("",v) ] -> v - fs | all (null . fst) fs -> Con "?" (map snd fs) - | otherwise -> Rec "?" fs - - -mkNum :: (Ord a, Num a, Show a) => (String -> Value) -> a -> Value -mkNum c x - | x >= 0 = c (show x) - | otherwise = Neg (c (show (negate x))) - -instance PrettyVal Int where prettyVal = mkNum Integer -instance PrettyVal Integer where prettyVal = mkNum Integer -instance PrettyVal Float where prettyVal x = Float (show x) -instance PrettyVal Double where prettyVal x = Float (show x) - -instance PrettyVal Word8 where prettyVal x = Integer (show x) -instance PrettyVal Word16 where prettyVal x = Integer (show x) -instance PrettyVal Word32 where prettyVal x = Integer (show x) -instance PrettyVal Word64 where prettyVal x = Integer (show x) - -instance PrettyVal Int8 where prettyVal = mkNum Integer -instance PrettyVal Int16 where prettyVal = mkNum Integer -instance PrettyVal Int32 where prettyVal = mkNum Integer -instance PrettyVal Int64 where prettyVal = mkNum Integer - -instance PrettyVal Char where - prettyVal x = Char (show x) - listValue xs = String xs - -instance PrettyVal a => PrettyVal [a] where - prettyVal xs = listValue xs - -instance (PrettyVal a, Integral a) => PrettyVal (Ratio a) where - prettyVal r = Ratio (prettyVal (numerator r)) (prettyVal (denominator r)) - -instance (PrettyVal a1, PrettyVal a2) => PrettyVal (a1,a2) -instance (PrettyVal a1, PrettyVal a2, PrettyVal a3) => PrettyVal (a1,a2,a3) -instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, PrettyVal a4) => - PrettyVal (a1,a2,a3,a4) - -instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, - PrettyVal a4, PrettyVal a5) => PrettyVal (a1,a2,a3,a4,a5) - -instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, - PrettyVal a4, PrettyVal a5, PrettyVal a6) => - PrettyVal (a1,a2,a3,a4,a5,a6) - -instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, - PrettyVal a4, PrettyVal a5, PrettyVal a6, PrettyVal a7) => - PrettyVal (a1,a2,a3,a4,a5,a6,a7) - -instance PrettyVal Bool -instance PrettyVal Ordering -instance PrettyVal a => PrettyVal (Maybe a) -instance (PrettyVal a, PrettyVal b) => PrettyVal (Either a b) - -instance PrettyVal Text where - prettyVal = String . Text.unpack - - +{-# LANGUAGE CPP #-} +{-# LANGUAGE Safe #-} +#ifndef NO_GENERICS +{-# LANGUAGE TypeOperators #-} +{-# LANGUAGE FlexibleInstances, FlexibleContexts #-} +{-# LANGUAGE DefaultSignatures #-} +#endif +module Text.Show.PrettyVal ( PrettyVal(prettyVal) ) where + +import Text.Show.Value +import Data.Text(Text) +import qualified Data.Text as Text +import Data.Fixed (Fixed, HasResolution) + +#ifndef NO_GENERICS +import Data.Ratio +import Data.Word +import Data.Int +import GHC.Generics +#endif + +-- | A class for types that may be reified into a value. +-- Instances of this class may be derived automatically, +-- for datatypes that support `Generics`. +class PrettyVal a where + prettyVal :: a -> Value + listValue :: [a] -> Value + +#ifndef NO_GENERICS + + default prettyVal :: (GDump (Rep a), Generic a) => a -> Value + prettyVal = oneVal . gdump . from + + default listValue :: [a] -> Value + listValue = List . map prettyVal + + +class GDump f where + gdump :: f a -> [(Name,Value)] + +instance GDump U1 where + gdump U1 = [] + +instance (GDump f, GDump g) => GDump (f :*: g) where + gdump (xs :*: ys) = gdump xs ++ gdump ys + +instance (GDump f, GDump g) => GDump (f :+: g) where + gdump (L1 x) = gdump x + gdump (R1 x) = gdump x + +instance PrettyVal a => GDump (K1 t a) where + gdump (K1 x) = [ ("", prettyVal x) ] + +instance (GDump f, Datatype d) => GDump (M1 D d f) where + gdump (M1 x) = gdump x + +instance (GDump f, Constructor c) => GDump (M1 C c f) where + gdump c@(M1 x) + | conIsRecord c = [ ("", Rec name (gdump x)) ] + | isTuple name = [ ("", Tuple (map snd (gdump x))) ] + | otherwise = [ ("", Con name (map snd (gdump x))) ] + + where + name = conName c + + isTuple ('(' : cs) = case span (== ',') cs of + (_,")") -> True + _ -> False + isTuple _ = False + +instance (GDump f, Selector s) => GDump (M1 S s f) where + gdump it@(M1 x) = repeat (selName it) `zip` map snd (gdump x) +#endif + +oneVal :: [(Name,Value)] -> Value +oneVal x = + case x of + [ ("",v) ] -> v + fs | all (null . fst) fs -> Con "?" (map snd fs) + | otherwise -> Rec "?" fs + + +mkNum :: (Ord a, Num a, Show a) => (String -> Value) -> a -> Value +mkNum c x + | x >= 0 = c (show x) + | otherwise = Neg (c (show (negate x))) + +instance PrettyVal Int where prettyVal = mkNum Integer +instance PrettyVal Integer where prettyVal = mkNum Integer +instance PrettyVal Float where prettyVal x = Float (show x) +instance PrettyVal Double where prettyVal x = Float (show x) + +instance PrettyVal Word8 where prettyVal x = Integer (show x) +instance PrettyVal Word16 where prettyVal x = Integer (show x) +instance PrettyVal Word32 where prettyVal x = Integer (show x) +instance PrettyVal Word64 where prettyVal x = Integer (show x) + +instance PrettyVal Int8 where prettyVal = mkNum Integer +instance PrettyVal Int16 where prettyVal = mkNum Integer +instance PrettyVal Int32 where prettyVal = mkNum Integer +instance PrettyVal Int64 where prettyVal = mkNum Integer + +instance PrettyVal Char where + prettyVal x = Char (show x) + listValue xs = String xs + +instance PrettyVal a => PrettyVal [a] where + prettyVal xs = listValue xs + +instance (PrettyVal a, Integral a) => PrettyVal (Ratio a) where + prettyVal r = Ratio (prettyVal (numerator r)) (prettyVal (denominator r)) + +instance HasResolution p => PrettyVal (Fixed p) where prettyVal x = Float (show x) + +instance (PrettyVal a1, PrettyVal a2) => PrettyVal (a1,a2) +instance (PrettyVal a1, PrettyVal a2, PrettyVal a3) => PrettyVal (a1,a2,a3) +instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, PrettyVal a4) => + PrettyVal (a1,a2,a3,a4) + +instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, + PrettyVal a4, PrettyVal a5) => PrettyVal (a1,a2,a3,a4,a5) + +instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, + PrettyVal a4, PrettyVal a5, PrettyVal a6) => + PrettyVal (a1,a2,a3,a4,a5,a6) + +instance (PrettyVal a1, PrettyVal a2, PrettyVal a3, + PrettyVal a4, PrettyVal a5, PrettyVal a6, PrettyVal a7) => + PrettyVal (a1,a2,a3,a4,a5,a6,a7) + +instance PrettyVal Bool +instance PrettyVal Ordering +instance PrettyVal a => PrettyVal (Maybe a) +instance (PrettyVal a, PrettyVal b) => PrettyVal (Either a b) + +instance PrettyVal Text where + prettyVal = String . Text.unpack + + diff --git a/Text/Show/Value.hs b/Text/Show/Value.hs --- a/Text/Show/Value.hs +++ b/Text/Show/Value.hs @@ -1,97 +1,97 @@ --------------------------------------------------------------------------------- --- | --- Module : Text.Show.Value --- Copyright : (c) Iavor S. Diatchki 2009 --- License : MIT --- --- Maintainer : iavor.diatchki@gmail.com --- Stability : provisional --- Portability : Haskell 98 --- --- Generic representation of Showable values. --------------------------------------------------------------------------------- - -{-# LANGUAGE Safe #-} -module Text.Show.Value ( Name, Value(..), hideCon ) where - -import Data.Maybe(fromMaybe,isNothing) - --- | A name. -type Name = String - --- | Generic Haskell values. --- 'NaN' and 'Infinity' are represented as constructors. --- The 'String' in the literals is the text for the literals \"as is\". --- --- A chain of infix constructors means that they appeared in the input string --- without parentheses, i.e --- --- @1 :+: 2 :*: 3@ is represented with @InfixCons 1 [(":+:",2),(":*:",3)]@, whereas --- --- @1 :+: (2 :*: 3)@ is represented with @InfixCons 1 [(":+:",InfixCons 2 [(":*:",3)])]@. -data Value = Con Name [Value] -- ^ Data constructor - | InfixCons Value [(Name,Value)] -- ^ Infix data constructor chain - | Rec Name [ (Name,Value) ] -- ^ Record value - | Tuple [Value] -- ^ Tuple - | List [Value] -- ^ List - | Neg Value -- ^ Negated value - | Ratio Value Value -- ^ Rational - | Integer String -- ^ Non-negative integer - | Float String -- ^ Non-negative floating num. - | Char String -- ^ Character - | String String -- ^ String - deriving (Eq,Show) - -{- | Hide constrcutros matching the given predicate. -If the hidden value is in a record, we also hide -the corresponding record field. - -If the boolean flag is true, then we also hide -constructors all of whose fields were hidden. -} -hideCon :: Bool -> (Name -> Bool) -> Value -> Value -hideCon collapse hidden = toVal . delMaybe - where - hiddenV = Con "_" [] - - toVal = fromMaybe hiddenV - - delMany vals - | collapse && all isNothing newVals = Nothing - | otherwise = Just (map toVal newVals) - where - newVals = map delMaybe vals - - delMaybe val = - case val of - Con x vs - | hidden x -> Nothing - | null vs -> Just val - | otherwise -> Con x `fmap` delMany vs - - Rec x fs - | hidden x -> Nothing - | null fs -> Just val - | collapse && all isNothing mbs -> Nothing - | otherwise -> Just (Rec x [ (f,v) | (f,Just v) <- zip ls mbs ]) - where (ls,vs) = unzip fs - mbs = map delMaybe vs - - InfixCons v ys - | any hidden cs -> Nothing - | otherwise -> do ~(v1:vs1) <- delMany (v:vs) - Just (InfixCons v1 (zip cs vs1)) - where (cs,vs) = unzip ys - - Tuple vs | null vs -> Just val - | otherwise -> Tuple `fmap` delMany vs - List vs | null vs -> Just val - | otherwise -> List `fmap` delMany vs - Neg v -> Neg `fmap` delMaybe v - Ratio v1 v2 -> do ~[a,b] <- delMany [v1,v2] - Just (Ratio a b) - Integer {} -> Just val - Float {} -> Just val - Char {} -> Just val - String {} -> Just val - - +-------------------------------------------------------------------------------- +-- | +-- Module : Text.Show.Value +-- Copyright : (c) Iavor S. Diatchki 2009 +-- License : MIT +-- +-- Maintainer : iavor.diatchki@gmail.com +-- Stability : provisional +-- Portability : Haskell 98 +-- +-- Generic representation of Showable values. +-------------------------------------------------------------------------------- + +{-# LANGUAGE Safe #-} +module Text.Show.Value ( Name, Value(..), hideCon ) where + +import Data.Maybe(fromMaybe,isNothing) + +-- | A name. +type Name = String + +-- | Generic Haskell values. +-- 'NaN' and 'Infinity' are represented as constructors. +-- The 'String' in the literals is the text for the literals \"as is\". +-- +-- A chain of infix constructors means that they appeared in the input string +-- without parentheses, i.e +-- +-- @1 :+: 2 :*: 3@ is represented with @InfixCons 1 [(":+:",2),(":*:",3)]@, whereas +-- +-- @1 :+: (2 :*: 3)@ is represented with @InfixCons 1 [(":+:",InfixCons 2 [(":*:",3)])]@. +data Value = Con Name [Value] -- ^ Data constructor + | InfixCons Value [(Name,Value)] -- ^ Infix data constructor chain + | Rec Name [ (Name,Value) ] -- ^ Record value + | Tuple [Value] -- ^ Tuple + | List [Value] -- ^ List + | Neg Value -- ^ Negated value + | Ratio Value Value -- ^ Rational + | Integer String -- ^ Non-negative integer + | Float String -- ^ Non-negative floating num. + | Char String -- ^ Character + | String String -- ^ String + deriving (Eq,Show) + +{- | Hide constrcutros matching the given predicate. +If the hidden value is in a record, we also hide +the corresponding record field. + +If the boolean flag is true, then we also hide +constructors all of whose fields were hidden. -} +hideCon :: Bool -> (Name -> Bool) -> Value -> Value +hideCon collapse hidden = toVal . delMaybe + where + hiddenV = Con "_" [] + + toVal = fromMaybe hiddenV + + delMany vals + | collapse && all isNothing newVals = Nothing + | otherwise = Just (map toVal newVals) + where + newVals = map delMaybe vals + + delMaybe val = + case val of + Con x vs + | hidden x -> Nothing + | null vs -> Just val + | otherwise -> Con x `fmap` delMany vs + + Rec x fs + | hidden x -> Nothing + | null fs -> Just val + | collapse && all isNothing mbs -> Nothing + | otherwise -> Just (Rec x [ (f,v) | (f,Just v) <- zip ls mbs ]) + where (ls,vs) = unzip fs + mbs = map delMaybe vs + + InfixCons v ys + | any hidden cs -> Nothing + | otherwise -> do ~(v1:vs1) <- delMany (v:vs) + Just (InfixCons v1 (zip cs vs1)) + where (cs,vs) = unzip ys + + Tuple vs | null vs -> Just val + | otherwise -> Tuple `fmap` delMany vs + List vs | null vs -> Just val + | otherwise -> List `fmap` delMany vs + Neg v -> Neg `fmap` delMaybe v + Ratio v1 v2 -> do ~[a,b] <- delMany [v1,v2] + Just (Ratio a b) + Integer {} -> Just val + Float {} -> Just val + Char {} -> Just val + String {} -> Just val + + diff --git a/bin/ppsh.hs b/bin/ppsh.hs --- a/bin/ppsh.hs +++ b/bin/ppsh.hs @@ -1,60 +1,60 @@ -import Text.Show.Pretty -import Data.Either(partitionEithers) -import Data.List(isPrefixOf) -import Data.Char(isSpace) -import System.Environment(getArgs) -import System.IO(hPutStrLn,stderr) - -main :: IO () -main = - do as <- getArgs - let (opts,hiding) = partitionEithers (map isHiding as) - preproc v = case hiding of - [] -> v - _ -> hideCon False (`elem` hiding) v - case opts of - ["--test"] -> interactLn (show . selftest1) - - ["--html"] -> - do txt <- getContents - case parseValue txt of - Just v -> - do dir <- getDataDir - let optis = defaultHtmlOpts { dataDir = dir } - -- XXX: perhaps for HTML the "hidden" values should - -- just start off collapsed, rahter than being deleted? - putStrLn (valToHtmlPage optis (preproc v)) - Nothing -> hPutStrLn stderr "Failed to parse value." - - [] -> interactLn $ \s -> case parseValue s of - Just v -> show (valToDoc (preproc v)) - Nothing -> s - _ -> hPutStrLn stderr $ unlines - [ "usage: ppsh < showed_value > pretty_value" - , " --hide=CON Hide this constructor." - , " --html Generate HTML." - , " --test Self test: True means we passed." - ] - where - isHiding a - | pref `isPrefixOf` a = Right $ dropWhile isSpace - $ drop (length pref) a - | otherwise = Left a - where pref = "--hide=" - - -interactLn :: (String -> String) -> IO () -interactLn f = interact f >> putStrLn "" - -selftest :: Value -> Bool -selftest v = case parseValue $ show $ valToDoc v of - Just v1 -> v1 == v - Nothing -> False - -selftest1 :: String -> Bool -selftest1 txt = case parseValue txt of - Just v -> selftest v - Nothing -> True - - - +import Text.Show.Pretty +import Data.Either(partitionEithers) +import Data.List(isPrefixOf) +import Data.Char(isSpace) +import System.Environment(getArgs) +import System.IO(hPutStrLn,stderr) + +main :: IO () +main = + do as <- getArgs + let (opts,hiding) = partitionEithers (map isHiding as) + preproc v = case hiding of + [] -> v + _ -> hideCon False (`elem` hiding) v + case opts of + ["--test"] -> interactLn (show . selftest1) + + ["--html"] -> + do txt <- getContents + case parseValue txt of + Just v -> + do dir <- getDataDir + let optis = defaultHtmlOpts { dataDir = dir } + -- XXX: perhaps for HTML the "hidden" values should + -- just start off collapsed, rahter than being deleted? + putStrLn (valToHtmlPage optis (preproc v)) + Nothing -> hPutStrLn stderr "Failed to parse value." + + [] -> interactLn $ \s -> case parseValue s of + Just v -> show (valToDoc (preproc v)) + Nothing -> s + _ -> hPutStrLn stderr $ unlines + [ "usage: ppsh < showed_value > pretty_value" + , " --hide=CON Hide this constructor." + , " --html Generate HTML." + , " --test Self test: True means we passed." + ] + where + isHiding a + | pref `isPrefixOf` a = Right $ dropWhile isSpace + $ drop (length pref) a + | otherwise = Left a + where pref = "--hide=" + + +interactLn :: (String -> String) -> IO () +interactLn f = interact f >> putStrLn "" + +selftest :: Value -> Bool +selftest v = case parseValue $ show $ valToDoc v of + Just v1 -> v1 == v + Nothing -> False + +selftest1 :: String -> Bool +selftest1 txt = case parseValue txt of + Just v -> selftest v + Nothing -> True + + + diff --git a/pretty-show.cabal b/pretty-show.cabal --- a/pretty-show.cabal +++ b/pretty-show.cabal @@ -1,76 +1,76 @@ -name: pretty-show -version: 1.9.4 -category: Text - -synopsis: Tools for working with derived `Show` instances and generic - inspection of values. -description: - We provide a library and an executable for working with derived 'Show' - instances. By using the library, we can parse derived 'Show' instances into a - generic data structure. The @ppsh@ tool uses the library to produce - human-readable versions of 'Show' instances, which can be quite handy for - debugging Haskell programs. We can also render complex generic values into - an interactive Html page, for easier examination. - -license: MIT -license-file: LICENSE -author: Iavor S. Diatchki -maintainer: iavor.diatchki@gmail.com - -homepage: http://wiki.github.com/yav/pretty-show - -cabal-version: >= 1.8 -build-type: Simple - -tested-with: GHC == 7.10.3 - GHC == 8.0.2 - GHC == 8.2.2 - GHC == 8.4.4 - GHC == 8.6.1 - -data-files: - style/jquery.js - style/pretty-show.js - style/pretty-show.css - -extra-source-files: - CHANGELOG - -library - exposed-modules: - Text.Show.Pretty - other-modules: - Text.Show.Html - Text.Show.Parser - Text.Show.Value - Text.Show.PrettyVal - Paths_pretty_show - build-depends: - array >= 0.2 && < 2, - base >= 4.5 && < 5, - haskell-lexer >= 1 && < 2, - pretty >= 1 && < 2, - text, - filepath, - ghc-prim - ghc-options: -Wall -O2 - if impl(ghc < 7.4) - cpp-options: -DNO_GENERICS - build-tool-depends: happy:happy - build-tools: happy - -executable ppsh - main-is: ppsh.hs - other-modules: Paths_pretty_show - - hs-source-dirs: bin - build-depends: - base >= 4.5 && < 5, - pretty-show - ghc-options: -Wall - -source-repository head - type: git - location: https://github.com/yav/pretty-show.git - - +name: pretty-show +version: 1.9.5 +category: Text + +synopsis: Tools for working with derived `Show` instances and generic + inspection of values. +description: + We provide a library and an executable for working with derived 'Show' + instances. By using the library, we can parse derived 'Show' instances into a + generic data structure. The @ppsh@ tool uses the library to produce + human-readable versions of 'Show' instances, which can be quite handy for + debugging Haskell programs. We can also render complex generic values into + an interactive Html page, for easier examination. + +license: MIT +license-file: LICENSE +author: Iavor S. Diatchki +maintainer: iavor.diatchki@gmail.com + +homepage: http://wiki.github.com/yav/pretty-show + +cabal-version: >= 1.8 +build-type: Simple + +tested-with: GHC == 7.10.3 + GHC == 8.0.2 + GHC == 8.2.2 + GHC == 8.4.4 + GHC == 8.6.1 + +data-files: + style/jquery.js + style/pretty-show.js + style/pretty-show.css + +extra-source-files: + CHANGELOG + +library + exposed-modules: + Text.Show.Pretty + other-modules: + Text.Show.Html + Text.Show.Parser + Text.Show.Value + Text.Show.PrettyVal + Paths_pretty_show + build-depends: + array >= 0.2 && < 2, + base >= 4.5 && < 5, + haskell-lexer >= 1 && < 2, + pretty >= 1 && < 2, + text, + filepath, + ghc-prim + ghc-options: -Wall -O2 + if impl(ghc < 7.4) + cpp-options: -DNO_GENERICS + build-tool-depends: happy:happy + build-tools: happy + +executable ppsh + main-is: ppsh.hs + other-modules: Paths_pretty_show + + hs-source-dirs: bin + build-depends: + base >= 4.5 && < 5, + pretty-show + ghc-options: -Wall + +source-repository head + type: git + location: https://github.com/yav/pretty-show.git + + diff --git a/style/jquery.js b/style/jquery.js --- a/style/jquery.js +++ b/style/jquery.js @@ -1,2 +1,2 @@ -/*! jQuery v3.3.1 | (c) JS Foundation and other contributors | jquery.org/license */ -!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("