Last active
January 1, 2017 17:34
-
-
Save epsilonhalbe/4472d2462c3df7019beb881cec322b0d to your computer and use it in GitHub Desktop.
materialize frp
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<link href="http://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet"> | |
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/materialize/0.97.8/css/materialize.min.css"> | |
<script type="text/javascript" src="https://code.jquery.com/jquery-2.1.1.min.js "></script> | |
<script src="https://cdnjs.cloudflare.com/ajax/libs/materialize/0.97.8/js/materialize.min.js"></script> | |
<meta name="viewport" content="width=device-width, initial-scale=1.0"> | |
<script language="javascript" src="https://gist.githubusercontent.com/epsilonhalbe/4472d2462c3df7019beb881cec322b0d/raw/3c741f3dc676a8b9a9833bfbc89af4eca44be35f/rts.js"></script> | |
<script language="javascript" src="https://gist.githubusercontent.com/epsilonhalbe/4472d2462c3df7019beb881cec322b0d/raw/3c741f3dc676a8b9a9833bfbc89af4eca44be35f/lib.js"></script> | |
<script language="javascript" src="https://gist.githubusercontent.com/epsilonhalbe/4472d2462c3df7019beb881cec322b0d/raw/3c741f3dc676a8b9a9833bfbc89af4eca44be35f/out.js"></script>u | |
</head> | |
<body> | |
<script language="javascript" src="https://gist.githubusercontent.com/epsilonhalbe/4472d2462c3df7019beb881cec322b0d/raw/3c741f3dc676a8b9a9833bfbc89af4eca44be35f/runmain.js" defer></script> | |
</body> | |
</html> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<link href="http://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet"> | |
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/materialize/0.97.8/css/materialize.min.css"> | |
<meta name="viewport" content="width=device-width, initial-scale=1.0"> | |
<script type="text/javascript" src="https://code.jquery.com/jquery-2.1.1.min.js "></script> | |
<script src="https://cdnjs.cloudflare.com/ajax/libs/materialize/0.97.8/js/materialize.min.js"></script> | |
</head> | |
<body> | |
<script>$(document).ready(function(){$('select').material_select(); });</script> | |
<div class="row"> | |
<input style="border-color: green" type="number"> | |
</div> | |
<div class="input-field col s12"> | |
<select> | |
<option selected="selected" value="0">*</option> | |
<option value="1">+</option> | |
<option value="2">-</option> | |
<option value="3">/</option> | |
</select> | |
<label>Operation</label> | |
</div> | |
<div class="row"> | |
<input style="border-color: green" type="number"> | |
</div> = Just 0.0 | |
</body> | |
</html> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
/* | |
GHCJS bignum library for integer-gmp package | |
uses JavaScript arrays for big numbers | |
some algorithms and code based on JSBN by Tom Wu | |
Copyright Luite Stegeman 2016 | |
*/ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
// #define GHCJSBN_TRACE_INTEGER 1 | |
// bits per limb | |
// BI_FP = 52 | |
// BI_FP - GHCJSBN_BITS | |
// 2*GHCJSBN_BITS - BI_FP | |
// 2 ^ BI_FP | |
// values for the Haskell Ordering enum | |
var h$ghcjsbn_zero_i = (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (0)));; | |
var h$ghcjsbn_one_i = (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (1)));; | |
var h$ghcjsbn_negOne_i = (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-1)));; | |
var h$ghcjsbn_null_b = [-1]; | |
var h$ghcjsbn_zero_b = [0]; | |
var h$ghcjsbn_one_b = [1, 1]; | |
var h$ghcjsbn_two31_b = [2, 0, 8]; | |
var h$ghcjsbn_czero_b = [2, 268435455, 15]; | |
var h$ghcjsbn_two31_i = (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, (h$ghcjsbn_two31_b)));; | |
var h$ghcjsbn_negTwo31_i = (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-2147483648)));; | |
/****************************************************************************** | |
Types used here: | |
- b BigNat: array of limbs (each a number of GHCJSBN_BITS bits) | |
- s Int: small integer in range -2^31 .. 2^31-1 | |
- w Word: small integer in range 0 .. 2^32-1, | |
values greater than 2^31-1 are stored as negative numbers | |
- i Integer: Haskell Integer heap object, see invariants | |
Integer invariants: | |
- BigNat arrays do not have leading zeroes | |
- Jp > S > Jn | |
- S range: -2^31 .. 2^31-1 (-2147483648 .. 2147483647) | |
******************************************************************************/ | |
// checks that the S,Jn,Jp constructor invariants hold | |
function h$ghcjsbn_assertValid_i(b, msg) { | |
var sd, d, neg, i, n; | |
// check global constants for unwanted mutations | |
if(h$ghcjsbn_zero_b.length !== 1 || h$ghcjsbn_zero_b[0] !== 0) { | |
throw new Error("zero_b mutated"); | |
} | |
if(h$ghcjsbn_one_b.length !== 2 || h$ghcjsbn_one_b[0] !== 1 || h$ghcjsbn_one_b[1] !== 1) { | |
throw new Error("one_b mutated"); | |
} | |
if(((b).f === h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e)) { | |
sd = ((b).d1); | |
if(typeof sd !== 'number') | |
throw new Error("invalid small integer: not a number"); | |
if((sd|0) !== sd) | |
throw new Error("invalid small integer: not a small int"); | |
} else { | |
if(((b).f === h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e)) { | |
neg = false; | |
} else if(((b).f === h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e)) { | |
neg = true; | |
} else { | |
throw new Error("invalid integer: unexpected constructor"); | |
} | |
d = ((b).d1); | |
h$ghcjsbn_assertValid_b(d, "assertValid_i"); | |
if(d[0] < 2) | |
throw new Error("invalid big integer: array too short"); | |
if(d[0] === 2) { | |
if((d[2] >> (31-28)) === 0 || | |
(neg && d[2] === 0x20 && d[1] === 0)) | |
throw new Error("invalid big integer: in smallint range"); | |
} | |
// everything ok | |
} | |
} | |
// checks invariant for big number | |
function h$ghcjsbn_assertValid_b(d, msg) { | |
var i, n; | |
if(!Array.isArray(d)) | |
throw new Error("invalid big integer: not an array"); | |
if(typeof d[0] !== 'number' || d[0] > (d.length-1)) | |
throw new Error("invalid big integer: incorrect number of limbs"); | |
if(d[0] > 0 && d[d[0]] === 0) | |
throw new Error("invalid big integer: leading zero"); | |
for(i = 1; i <= d[0]; i++) { | |
n = d[i]; | |
if(typeof n !== 'number') | |
throw new Error("invalid big integer: limb is not a number"); | |
if((n & 0xfffffff) !== n) | |
throw new Error("invalid big integer: limb out of range"); | |
} | |
} | |
function h$ghcjsbn_assertValid_s(s, msg) { | |
if(typeof s !== 'number') | |
throw new Error("invalid int: not a number"); | |
if((s|0) !== s) | |
throw new Error("invalid int: not in smallint range"); | |
} | |
function h$ghcjsbn_assertValid_w(w, msg) { | |
if(typeof w !== 'number') | |
throw new Error("invalid word: not a number"); | |
if((w|0) !== w) | |
throw new Error("invalid word: not in smallint range"); | |
} | |
function h$ghcjsbn_assertValid_d(d, msg) { | |
if(typeof d !== 'number') | |
throw new Error("invalid double: not a number"); | |
} | |
/******************************************************************************/ | |
/////////////////////////////////////////////////////////////////////////////// | |
// the ghcjsbn_r functions operate on the raw array data directly | |
/////////////////////////////////////////////////////////////////////////////// | |
var h$ghcjsbn_smallPrimes = | |
[ 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47 | |
, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113 | |
, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197 | |
, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281 | |
, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379 | |
, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463 | |
, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571 | |
, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659 | |
, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761 | |
, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863 | |
, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977 | |
, 983, 991, 997 | |
]; | |
var h$ghcjsbn_smallPrimesM = null; | |
function h$ghcjsbn_getSmallPrimesM() { | |
var a, i; | |
if(h$ghcjsbn_smallPrimesM === null) { | |
a = []; | |
for(i = 0; i < 1008; i++) { | |
a[i] = false; | |
} | |
for(i = h$ghcjsbn_smallPrimes.length - 1; i >= 0; i--) { | |
a[h$ghcjsbn_smallPrimes[i]] = true; | |
} | |
h$ghcjsbn_smallPrimesM = a; | |
} | |
return h$ghcjsbn_smallPrimesM; | |
} | |
// Int -> Int -> Bool | |
// fixme: seed | |
function h$ghcjsbn_isPrime_s(s, rounds) { | |
if(s < 2 || (s > 2 && ((s&1) === 1))) return false; | |
if(s <= 1008) { | |
return h$ghcjsbn_getSmallPrimesM()[s]; | |
} | |
throw new Error("isPrime_s"); | |
} | |
// BigNat -> Int -> Bool | |
// fixme: seed | |
function h$ghcjsbn_isPrime_b(b, rounds) { | |
h$ghcjsbn_assertValid_b(b, "isPrime"); | |
throw new Error("isPrime_b"); | |
} | |
// BigNat -> BigNat -> Bool | |
/* | |
function h$ghcjsbn_eq_bb(b1, b2) { | |
ASSERTVALID_B(b1, "eq_bb b1"); | |
ASSERTVALID_B(b2, "eq_bb b2"); | |
var l1 = b1.length, l2 = b2.length; | |
if(l1 !== l2) return false; | |
while(--l1 >= 0) { | |
if(b1[l1] !== b2[l1]) return false; | |
} | |
return true; | |
} | |
*/ | |
// BigNat -> BigNat -> Int (Ordering: LT,EQ,GT) | |
function h$ghcjsbn_cmp_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "cmp_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "cmp_bb b2"); | |
var l1 = b1[0], l2 = b2[0], d1, d2; | |
if(l1 === l2) { | |
while(--l1 >= 0) { | |
d1 = b1[l1+1]; | |
d2 = b2[l1+1]; | |
if(d1 !== d2) return d1 < d2 ? 0 : 2; | |
} | |
return 1; | |
} else { | |
return l1 > l2 ? 2 : 0; | |
} | |
} | |
// fixed size tmp, these should not grow | |
var h$ghcjsbn_tmp_2a = [0, 0, 0]; | |
var h$ghcjsbn_tmp_2b = [0, 0, 0]; | |
// this is variable size scratch space | |
var h$ghcjsbn_tmp_a = [0, 0, 0, 0, 0, 0, 0, 0]; | |
var h$ghcjsbn_tmp_b = [0, 0, 0, 0, 0, 0, 0, 0]; | |
// b - w :: BigNat -> Word -> BigNat | |
function h$ghcjsbn_sub_bw(b, w) { | |
var a = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_w(a, w); | |
return h$ghcjsbn_sub_bb(b, a); | |
} | |
// b - s :: BigNat -> Int -> BigNat | |
// returns new BigNat, nullBigNat in case of underflow | |
// returns size of t | |
function h$ghcjsbn_sub_bs(b, s) { | |
h$ghcjsbn_assertValid_b(b, "sub_bs"); | |
h$ghcjsbn_assertValid_s(s, "sub_bs"); | |
var a, ms, r; | |
if(s < 0) { | |
if(s === -2147483648) { | |
r = h$ghcjsbn_add_bb(b, h$ghcjsbn_two31_b); | |
} else { | |
a = h$ghcjsn_tmp_2a; | |
h$ghcjsbn_toBigNat_s(a, -s); | |
r = h$ghcjsbn_add_bb(b, a); | |
} | |
} else { | |
a = h$ghcjsn_tmp_2a; | |
h$ghcjsbn_toBigNat_s(a, s); | |
r = h$ghcjsbn_sub_bb(b, a); | |
} | |
h$ghcjsbn_assertValid_b(r, "sub_bs result"); | |
return r; | |
} | |
// t = b + w :: BigNat -> BigNat -> Word -> Int | |
// returns size of t | |
function h$ghcjsbn_add_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "add_bw"); | |
h$ghcjsbn_assertValid_w(w, "add_bw"); | |
var a = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_w(a, w); | |
return h$ghcjsbn_add_bb(b, a); | |
} | |
// t = b + s :: BigNat -> BigNat -> Int -> Int | |
// returns size of t, nullBigNat in case of underflow | |
function h$ghcjsbn_add_bs(b, s) { | |
h$ghcjsbn_assertValid_b(b, "add_bs"); | |
h$ghcjsbn_assertValid_s(s, "add_bs"); | |
var a, ms, r; | |
if(s < 0) { | |
if(s === -2147483648) { | |
r = h$ghcjsbn_sub_bb(b, h$ghcjsbn_two31_r); | |
} else { | |
ms = -s; | |
a = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_s(a, ms); | |
r = h$ghcjsbn_sub(b, a); | |
} | |
} else { | |
a = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_s(a, s); | |
r = h$ghcjsbn_add_bb(b, a); | |
} | |
h$ghcjsbn_assertValid_b(r, "add_bs result"); | |
return r; | |
} | |
// t = b1 + b2 :: BigNat -> BigNat -> BigNat -> Int | |
// returns size of t | |
function h$ghcjsbn_add_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "add_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "add_bb b2"); | |
var i, c = 0, l1 = b1[0], l2 = b2[0], t = [0]; | |
var bl, lmin, lmax; | |
if(l1 <= l2) { | |
lmin = l1; | |
lmax = l2; | |
bl = b2; | |
} else { | |
lmin = l2; | |
lmax = l1; | |
bl = b1; | |
} | |
for(i=1;i<=lmin;i++) { | |
c += b1[i] + b2[i]; | |
t[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
for(i=lmin+1;i<=lmax;i++) { | |
c += bl[i]; | |
t[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
if(c !== 0) t[++lmax] = c; | |
t[0] = lmax; | |
h$ghcjsbn_assertValid_b(t, "add_bb result"); | |
return t; | |
} | |
// b1 += b2 :: BigNat -> BigNat -> Int | |
// returns new size of b1 | |
function h$ghcjsbn_addTo_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "addTo_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "addTo_bb b2"); | |
var i, c = 0, l1 = b1[0], l2 = b2[0]; | |
if(l2 > l1) { | |
for(i = l1 + 1; i <= l2; i++) { | |
b1[i] = 0; | |
} | |
l1 = l2; | |
} | |
for(i = 1; i <= l2; i++) { | |
c += b1[i] + b2[i]; | |
b1[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
// propagate carry as long as needed | |
for(i = l2 + 1; c !== 0 && i <= l1; i++) { | |
c += b1[i]; | |
b1[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
if(c !== 0) { | |
b1[l1] = c; | |
b1[0] = l1+1; | |
} else { | |
b1[0] = l1; | |
} | |
h$ghcjsbn_assertValid_b(b1, "addTo_bb result"); | |
} | |
// b1 - b2 :: BigNat -> BigNat -> BigNat | |
// returns a new BigNat, nullBigNat in case of underflow | |
function h$ghcjsbn_sub_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "sub_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "sub_bb b2"); | |
if(h$ghcjsbn_cmp_bb(b1,b2) === 0) { | |
return []; | |
} else { | |
var i, c = 0, l1 = b1[0], l2 = b2[0], t = [0]; | |
for(i = 1; i <= l2; i++) { | |
c += b1[i] - b2[i]; | |
t[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
for(i = l2 + 1; i <= l1; i++) { | |
c += b1[i]; | |
t[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
while(l1 > 0 && t[l1] === 0) l1--; | |
t[0] = l1; | |
h$ghcjsbn_assertValid_b(t, "sub_bb result"); | |
return t; | |
} | |
} | |
// b1 -= b2 :: BigNat -> BigNat -> Int | |
// returns size of t, b1 must be >= b2 | |
function h$ghcjsbn_subTo_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "subTo_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "subTo_bb b2"); | |
if(h$ghcjsbn_cmp_bb(b1, b2) === 0) { | |
throw new Error("h$ghcjsbn_subTo_bb assertion failed: b1 >= b2"); | |
} | |
var i, c = 0, l1 = b1[0], l2 = b2[0]; | |
for(i = 1; i <= l2; i++) { | |
c += b1[i] - b2[i]; | |
b1[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
for(i = l2 + 1; c !== 0 && i <= l1; i++) { | |
c += b1[i]; | |
b1[i] = c & 0xfffffff; | |
c >>= 28; | |
} | |
while(l1 > 0 && b1[l1] === 0) l1--; | |
b1[0] = l1; | |
h$ghcjsbn_assertValid_b(b1, "subTo_bb result"); | |
} | |
// t = b1 / b2, BigNat -> BigNat -> BigNat -> Int (returns size of t) | |
/* function h$ghcjsbn_div_bb(t, b1, b2) { | |
} | |
// t = b1 % b2, BigNat -> BigNat -> BigNat -> Int (returns size of t) | |
function h$ghcjsbn_mod_bb(t, b1, b2) { | |
} | |
// b % s, BigNat -> Int -> Int | |
function h$ghcjsbn_mod_bs(b, s) { | |
} | |
*/ | |
// BigNat -> Integer (nonnegative, known length) | |
/* | |
function h$ghcjsbn_wrap_pl(b, l) { | |
var lb; | |
if(l === 0) { | |
return MK_INTEGER_S(0); | |
} else if(l === 1) { | |
return MK_INTEGER_S(b[0]); | |
} else if(l === 2 && (b[1] >> (31 - GHCJSBN_BITS)) === 0) { | |
return MK_INTEGER_S((b[1] << GHCJSBN_BITS)|b[0]); | |
} else { | |
lb = b.length - l; | |
while(lb-- > 0) b.pop(); | |
return MK_INTEGER_Jp(b); | |
} | |
} | |
*/ | |
// BigNat -> Integer (nonnegative) | |
function h$ghcjsbn_wrap_p(b) { | |
var l = b[0]; | |
if(l === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (0)));; | |
} else if(l === 1) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (b[1])));; | |
} else if(l === 2 && (b[2] >> (31 - 28)) === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, ((b[2] << 28)|b[1])));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, (b)));; | |
} | |
} | |
/* | |
function h$ghcjsbn_wrap_nl(b, l) { | |
var lb; | |
if(l === 0) { | |
return MK_INTEGER_S(0); | |
} else if(l === 1) { | |
return MK_INTEGER_S(-b[0]); | |
} else if(l === 2 && | |
((b[1] >> (31 - GHCJSN_BITS)) === 0 || | |
(b[1] === (1 << (31 - GHCJSBN_BITS)) && b[0] === 0))) { | |
return MK_INTEGER_S((-b[1]-b[0])|0); | |
} else { | |
lb = b.length - l; | |
while(lb-- > 0) b.pop(); | |
return MK_INTEGER_Jn(b); | |
} | |
} | |
*/ | |
// BigNat -> Integer (nonnegative) | |
function h$ghcjsbn_wrap_n(b) { | |
var l = b[0]; | |
if(l === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (0)));; | |
} else if(l === 1) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-b[1])));; | |
} else if(l === 2 && | |
((b[2] >> (31 - GHCJSN_BITS)) === 0 || | |
(b[2] === (1 << (31 - 28)) && b[1] === 0))) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, ((-b[2]-b[1])|0)));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (b)));; | |
} | |
} | |
// b1 *= b2 :: BigNat -> BigNat -> IO () | |
function h$ghcjsbn_mulTo_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "mulTo_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "mulTo_bb b2"); | |
var t = h$ghcjsbn_mul_bb(b1, b2); | |
h$ghcjsbn_copy(b1, t); | |
h$ghcjsbn_assertValid_b(b1, "mulTo_bb result"); | |
} | |
// b1 * b2 :: BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_mul_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "mul_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "mul_bb b2"); | |
var l1 = b1[0], l2 = b2[0]; | |
/* if(l1 > 50 && l2 > 50) { | |
return h$ghcjsbn_mul_karatsuba_bb(b1, b2); | |
} fixme update this */ | |
var n = l1 + l2, i, t = [0]; | |
for(i = 1; i <= n; i++) t[i] = 0; | |
if(l1 > l2) { | |
for(i = 0; i < l2; i++) { | |
t[i + l1 + 1] = h$ghcjsbn_mul_limb(0, b1, b2[i+1], t, i, 0, l1); | |
} | |
} else { | |
for(i = 0; i < l1; i++) { | |
t[i + l2 + 1] = h$ghcjsbn_mul_limb(0, b2, b1[i+1], t, i, 0, l2); | |
} | |
} | |
for(i = l1 + l2; i > 0 && t[i] === 0; i--); | |
t[0] = i; | |
h$ghcjsbn_assertValid_b(t, "mul_bb result"); | |
return t; | |
} | |
function h$ghcjsbn_mul_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "mul_bw"); | |
h$ghcjsbn_assertValid_w(w, "mul_bw"); | |
var a = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_w(a, w); | |
var t = h$ghcjsbn_mul_bb(b, a); | |
h$ghcjsbn_assertValid_b(t, "mul_bw result"); | |
return t; | |
} | |
// karatzuba multiplication for long numbers | |
function h$ghcjsbn_mul_karatsuba_bb(t, b1, b2) { | |
throw new Error("not yet updated"); | |
var l1 = b1.length, l2 = b2.length; | |
var i, b = (l1 < l2 ? l1 : l2) >> 1; | |
var x0 = [b], x1 = [l1-b], y0 = [b], y1 = [l2-b]; | |
for(i = 1; i <= b; i++) { | |
x0[i] = b1[i]; | |
y0[i] = b2[i]; | |
} | |
for(i = b + 1; i <= l1; i++) x1[i - b] = b1[i]; | |
for(i = b + 1; i <= l2; i++) y1[i - b] = b2[i]; | |
var z0 = h$ghcjsbn_mul_bb(x0, y0), z1, z2 = h$ghcjsbn_mul_bb(x1, y1); | |
// compute z1 = (x1 + x0)(y1 + y0) - z2 - z0 | |
// (reusing x0 and y0 for (x1 + x0) and (y1 + y0)) | |
h$ghcjsbn_addTo_bb(x0, x1); | |
h$ghcjsbn_addTo_bb(y0, x1); | |
z1 = h$ghcjsbn_mul_bb(x0, y0); | |
h$ghcjsbn_subTo_bb(z1, z2); | |
h$ghcjsbn_subTo_bb(z1, z0); | |
// store shifted z2 in t | |
// fixme this looks wrong | |
for(i = 0; i < 2*b; i++) t[i] = 0; | |
l2 = z2.length; | |
for(i = 0; i < l2; i++) t[i+2*b] = z2[i]; | |
// compute shifted z1s = z1 * B | |
var z1s = []; | |
l1 = z1.length; | |
for(i = 0; i < b; i++) z1s[i] = 0; | |
for(i = 0; i < l1; i++) z1s[i+b] = z1[i]; | |
// add the results so that t = z2 * (2*B) + z1 * B + z0 | |
h$ghcjsbn_addTo_bb(t, z1s); | |
h$ghcjsbn_addTo_bb(t, z0); | |
return t; | |
} | |
// from JSBN am3 | |
// w_j += (x*b_i) ? | |
/* c = carry? | |
n = iterations? | |
*/ | |
function h$ghcjsbn_mul_limb(i,b,x,w,j,c,n) { | |
// ASSERTVALID_B(b, "mul_limb b"); | |
// ASSERTVALID_B(w, "mul_limb w"); | |
var xl = x & 0x3fff, xh = x >> 14; | |
while(--n >= 0) { | |
var l = b[++i] & 0x3fff; | |
var h = b[i] >> 14; | |
var m = xh * l + h * xl; | |
l = xl *l + ((m & 0x3fff) << 14) + w[++j] + c; | |
c = (l >> 28) + (m >> 14) + xh * h; | |
// h$log("mul_limb: c: " + c + " l: " + l + " xh: " + xh + " h: " + h); | |
w[j] = l & 0xfffffff; | |
} | |
return c; | |
} | |
// q = b1 / b2, r = b1 % b2 :: BigNat -> BigNat -> BigNat -> BigNat -> Int | |
// b2 must be > 0 | |
// returns length of r | |
// d is normalized before return | |
/* | |
algorithm: | |
y = 0? | |
nsh = number of leading zeroes in most significant word | |
pm = positive modulus | |
pt = positive divident | |
y = tmp, shifted modulus | |
r = shifted divident | |
ys = length of y | |
y0 = biggest limb of y | |
yt = new estimated length of y? | |
*/ | |
function h$ghcjsbn_quotRem_bb(q, r, b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "quotRem_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "quotRem_bb b2"); | |
if(h$ghcjsbn_cmp_bw(b2, 0) !== 2) { | |
throw new Error("h$ghcjsbn_quotRem_bb: operand not positive"); | |
} | |
if(q === null) q = h$ghcjsbn_tmp_a; | |
if(r === null) r = h$ghcjsbn_tmp_b; | |
var l1 = b1[0], l2 = b2[0], nsh, y = []; | |
if(l1 === 0) { | |
q[0] = 0; | |
r[0] = 0; | |
return; | |
} | |
if(h$ghcjsbn_cmp_bb(b1,b2) === 0) { | |
q[0] = 0; | |
h$ghcjsbn_copy(r, b1); | |
return; | |
} | |
nsh = 28 -h$ghcjsbn_nbits_s(b2[l2]); | |
h$ghcjsbn_assertValid_s(nsh, "quotRem_bb nsh"); | |
if(nsh !== 0) { | |
h$ghcjsbn_shlTo_b(y, b2, nsh); | |
h$ghcjsbn_shlTo_b(r, b1, nsh); | |
} else { | |
h$ghcjsbn_copy(y, b2); | |
h$ghcjsbn_copy(r, b1); | |
} | |
h$ghcjsbn_assertValid_b(y, "quotRem_bb y_0"); | |
h$ghcjsbn_assertValid_b(r, "quotRem_bb r_0"); | |
var ys = y[0], y0 = y[ys]; | |
var yt = y0*(1<<24)+((ys>1)?y[ys-1]>>4:0); | |
var d1 = 4503599627370496/yt, d2 = (1<<24)/yt, e = 1 << 4; | |
var i = r[0], j = i-ys, t = q; | |
h$ghcjsbn_shlTo_limbs_b(t,y,j); | |
// h$log("rt1: " + i); | |
// h$log("[" + r.join(",") + "] [" + t.join(",") + "]"); | |
if(h$ghcjsbn_cmp_bb(r, t) !== 0) { | |
r[r[0]+1] = 1; | |
r[0] += 1; | |
// h$log("rt1a: " + r[0]); | |
h$ghcjsbn_subTo_bb(r, t); | |
} | |
// h$log("rt2: " + r[0]); | |
// h$log("y0: " + y0 + " yt: " + yt + " d1: " + d1 + " d2: " + d2 + " e: " + e); | |
h$ghcjsbn_shlTo_limbs_b(t, h$ghcjsbn_one_b, ys); | |
y = h$ghcjsbn_sub_bb(t, y); | |
while(y.length <= ys) y[y.length] = 0; // fixme? no looks ok | |
while(--j >= 0) { | |
// Estimate quotient digit | |
var qd = (r[(--i)+1]===y0)?0xfffffff:Math.floor(r[i+1]*d1+(r[i]+e)*d2); | |
// h$log("i: " + i + " j: " + j + " qd: " + qd + " rdi: " + r[i+1] + " ys: " + ys); | |
// h$log("yd: [" + y.join(',') + "] rd: [" + r.join(',') + "]"); | |
var am = h$ghcjsbn_mul_limb(0, y, qd, r, j, 0, ys); | |
// h$log("am: " + am); | |
if((r[i+1] += am) < qd) { | |
// if((r[i+1] += h$ghcjsbn_mul_limb(0, y, qd, r, j, 0, ys)) < qd) { | |
h$ghcjsbn_shlTo_limbs_b(t, y, j); | |
h$ghcjsbn_subTo_bb(r, t); | |
// h$log("0. rdi: " + r[i+1] + " qd: " + qd); | |
while(r[i+1] < --qd) { | |
// h$log("1. rdi: " + r[i+1] + " qd: " + qd); | |
h$ghcjsbn_subTo_bb(r, t); | |
} | |
} | |
} | |
h$ghcjsbn_assertValid_b(r, "intermediate r"); | |
h$ghcjsbn_shrTo_limbs_b(q, r, ys); | |
r[0] = ys; | |
while(r[r[0]] === 0 && r[0] > 0 && r[0]--); | |
if(nsh !== 0) { | |
var r0 = []; | |
h$ghcjsbn_copy(r0, r); | |
h$ghcjsbn_shrTo_b(r, r0, nsh); | |
} | |
h$ghcjsbn_assertValid_b(q, "quotRem_bb result q"); | |
h$ghcjsbn_assertValid_b(r, "quotRem_bb result r"); | |
} | |
// b % w , q = b / w :: BigNat -> BigNat -> Word -> Word | |
function h$ghcjsbn_quotRem_bw(q, b, w) { | |
h$ghcjsbn_assertValid_b(b, "quotRem_bw"); | |
h$ghcjsbn_assertValid_w(w, "quotRem_bw"); | |
var a = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_w(a, w); | |
/* if(w === 0) { | |
a[0] = 0; | |
} else if(w > 0 && w <= GHCJSBN_MASK) { | |
a[0] = 1; | |
a[1] = w; | |
} else { | |
a[0] = 2; | |
a[1] = w & GHCJSBN_MASK; | |
a[2] = w >>> GHCJSBN_BITS; | |
} */ | |
var r = []; | |
h$ghcjsbn_quotRem_bb(q, r, b, a); | |
return h$ghcjsbn_toWord_b(r); | |
} | |
// BigNat -> JSBN | |
// assumes same number of bits | |
function h$ghcjsbn_tmp_toJSBN(b) { | |
var j = new BigInteger(), bl = b[0], i; | |
for(i = 0; i < bl; i++) j.data[i] = b[i+1]; | |
j.s = 0; | |
j.t = bl; | |
return j; | |
/* ASSERTVALID_B(b, "toJSBN"); | |
var j0 = new BigInteger(); | |
var j1 = new BigInteger(); | |
var j2 = new BigInteger(); | |
for(var i = b[0]; i > 0; i--) { | |
h$log("i: " + b[i]); | |
j2.fromString('' + b[i]); | |
j0.lShiftTo(28, j1); | |
j1.addTo(j2, j0); | |
} | |
return j0; */ | |
} | |
// b = fromJSBN(j) :: BigNat -> JSBN -> Int | |
// returns length | |
function h$ghcjsbn_tmp_fromJSBN(b, j) { | |
var bl = j.t, i; | |
for(i = 0; i < bl; i++) { | |
b[i] = j.data[i]; | |
} | |
return bl; | |
} | |
// function h$ghcjsbn_divMod_bs(d | |
// t = b1 % b2 :: BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_rem_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "rem_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "rem_bb b2"); | |
var t1 = [], t2 = []; | |
h$ghcjsbn_quotRem_bb(t1, t2, b1, b2); | |
h$ghcjsbn_assertValid_b(t2, "rem_bb result"); | |
return t2; | |
} | |
// b1 % s :: BigNat -> Word -> Word | |
function h$ghcjsbn_rem_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "rem_bw"); | |
h$ghcjsbn_assertValid_w(w, "rem_bw"); | |
// var t1 = []; | |
var r = h$ghcjsbn_quotRem_bw([] /* t1 */, b, w); | |
h$ghcjsbn_assertValid_w(r, "rem_bw result"); | |
return r; | |
// var a = h$ghcjsbn_tmp_2a; | |
// h$ghcjsbn_toBigNat_w(a, w); | |
// a[1] = w & GHCJSBN_MASK; | |
// a[2] = w >>> GHCJSBN_BITS; | |
// var t1 = []; // , t2 = h$ghcjsbn_tmp_2b; | |
// return h$ghcjsbn_quotRem_bw(t1, /* t2 , */ b, a); | |
// return t[1] | (t[2] << GHCJSBN_BITS); | |
} | |
// b1 / b2 :: BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_quot_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "quot_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "quot_bb b2"); | |
var t1 = [], t2 = []; | |
h$ghcjsbn_quotRem_bb(t1, t2, b1, b2); | |
h$ghcjsbn_assertValid_b(t1, "quot_bb result"); | |
return t1; | |
} | |
/* | |
// b / s :: BigNat -> Int -> BigNat | |
function h$ghcjsbn_div_bs(b, w) { | |
ASSERTVALID_B(b, "div_bs"); | |
ASSERTVALID_S(s, "div_bs"); | |
#ifdef GHCJS_ASSERT_INTEGER | |
if(s <= 0) { | |
throw new Error("h$ghcjsbn_div_bs: divisor must be positive"); | |
} | |
#endif | |
var a = h$ghcjsbn_tmp_2a; | |
a[0] = s & GHCJSBN_MASK; | |
a[1] = s >> GHCJSBN_BITS; | |
return h$ghcjsbn_div_bb(t, b, a); | |
} | |
*/ | |
// t = b % w :: BigNat -> BigNat -> Word -> Int | |
// returns length of t | |
/* | |
function h$ghcjsbn_div_bw(t, b, w) { | |
ASSERTVALID_B(b, "div_bw"); | |
ASSWRTVALID_W(w, "div_bw"); | |
var a = h$ghcjsbn_tmp_2a; | |
a[0] = w & GHCJSBN_MASK; | |
a[1] = w >>> GHCJSBN_BITS; | |
return h$ghcjsbn_div_bb(t, b, a); | |
} | |
*/ | |
// b ^ 2 :: BigNat -> BigNat | |
function h$ghcjsbn_sqr_b(b) { | |
h$ghcjsbn_assertValid_b(b, "sqr_b"); | |
var l = b[0], n = 2 * l, i, c, t = [0]; | |
for(i = 1; i <= n; i++) t[i] = 0; | |
for(i = 0; i < l - 1; i++) { | |
c = h$ghcjsbn_mul_limb(i, b, b[i+1],t,2*i,0,1); | |
if((t[i + l + 1] += h$ghcjsbn_mul_limb(i+1, b, 2*b[i+1], t, 2*i+1, c, l - i - 1)) >= 0x10000000) { | |
t[i + l + 1] -= 0x10000000; | |
t[i + l + 2] = 1; | |
} | |
} | |
if(n > 0) t[n] += h$ghcjsbn_mul_limb(i, b, b[i+1], t, 2*i, 0, 1); | |
if(t[n] === 0) n--; | |
t[0] = n; | |
h$ghcjsbn_assertValid_b(t, "sqr_b result"); | |
return t; | |
} | |
// b1 ^ b2 :: BigNat -> BigNat -> BigNat | |
// returns size of t | |
function h$ghcjsbn_pow_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "pow_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "pow_bb b2"); | |
var i, sq = b1, t = [1,1]; | |
var bits = h$ghcjsbn_nbits_b(b2); | |
for(i = 0; i < bits; i++) { | |
if(h$ghcjsbn_testBit_b(b2, i)) { | |
h$ghcjsbn_mulTo_bb(t, sq); | |
} | |
sq = h$ghcjsbn_sqr_b(sq); | |
} | |
return t; | |
} | |
// t = b ^ s :: BigNat -> Word -> BigNat | |
function h$ghcjsbn_pow_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "pow_bw"); | |
h$ghcjsbn_assertValid_w(w, "pow_bw"); | |
var i, sq = b, t = [1,1]; | |
while(w) { | |
if(w&1) h$ghcjsbn_mulTo_bb(t, sq); | |
w >>>= 1; | |
if(w) { | |
sq = h$ghcjsbn_sqr_b(sq); | |
} | |
} | |
h$ghcjsbn_assertValid_b(t, "pow_bw result"); | |
return t; | |
} | |
// w1 ^ w2 :: Word -> Word -> BigNat | |
function h$ghcjsbn_pow_ww(w1, w2) { | |
h$ghcjsbn_assertValid_s(w1, "pow_ww w1"); | |
h$ghcjsbn_assertValid_s(w2, "pow_ww w2"); | |
var b = h$ghcjsbn_tmp_2a; | |
h$ghcjsbn_toBigNat_w(b, w1); | |
var t = h$ghcjsbn_pow_bw(b, w2); | |
h$ghcjsbn_assertValid_b(t, "pow_ww result"); | |
return t; | |
} | |
// (b ^ s1) % s2 :: BigNat -> BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_modPow_bbb(b, s1, s2) { | |
throw new Error("modPow_bbb"); | |
} | |
// (b ^ s1) % s2 :: BigNat -> Int -> Int -> Int | |
function h$ghcjsbn_modPow_bss(b, s1, s2) { | |
throw new Error("modPow_bss"); | |
} | |
// (s1 ^ s2) % s3 :: Int -> Int -> Int -> Int | |
function h$ghcjsbn_modPow_sss(s1, s2, s3) { | |
throw new Error("modPow_sss"); | |
} | |
// r = gcd(b1,b2) BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_gcd_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "gcd_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "gcd_bb b2"); | |
var r; | |
if(h$ghcjsbn_cmp_bb(b1, b2) === 2) { | |
r = b1; | |
b1 = b2; | |
b2 = r; | |
} | |
while(b1[0] > 0) { | |
r = h$ghcjsbn_rem_bb(b2, b1); | |
b2 = b1; | |
b1 = r; | |
} | |
h$ghcjsbn_assertValid_b(b2, "gcd_bb result"); | |
return b2; | |
} | |
// gcd(b,s) :: BigNat -> Int -> Int | |
function h$ghcjsbn_gcd_bs(b, s) { | |
throw new Error("h$ghcjsbn_gcd_bs not implemented"); | |
} | |
// gcd(s1,s2) :: Int -> Int -> Int | |
function h$ghcjsbn_gcd_ss(s1, s2) { | |
h$ghcjsbn_assertValid_s(s1, "gcd_ss s1"); | |
h$ghcjsbn_assertValid_s(s2, "gcd_ss s2"); | |
var a, b, r; | |
a = s1 < 0 ? -s1 : s1; | |
b = s2 < 0 ? -s2 : s2; | |
if(b < a) { | |
r = a; | |
a = b; | |
b = r; | |
} | |
while(a !== 0) { | |
r = b % a; | |
b = a; | |
a = r; | |
} | |
h$ghcjsbn_assertValid_s(b, "gcd_ss result"); | |
return b; | |
} | |
// gcd(w1,w2) :: Word -> Word -> Word | |
// fixme negatives are probably wrong here | |
function h$ghcjsbn_gcd_ww(w1, w2) { | |
h$ghcjsbn_assertValid_w(w1, "gcd_ww w1"); | |
h$ghcjsbn_assertValid_w(w2, "gcd_ww w2"); | |
var a, b, r; | |
a = w1 < 0 ? (w1 + 4294967296) : w1; | |
b = w2 < 0 ? (w2 + 4294967296) : w2; | |
if(b < a) { | |
r = a; | |
a = b; | |
b = r; | |
} | |
while(a !== 0) { | |
r = b % a; | |
b = a; | |
a = r; | |
} | |
b = b|0; | |
h$ghcjsbn_assertValid_w(b, "gcd_ww result"); | |
return b; | |
} | |
function h$ghcjsbn_gcd_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "gcd_bw"); | |
h$ghcjsbn_assertValid_w(w, "gcd_bw"); | |
var q = [], r = h$ghcjsbn_quotRem_bw(q, b, w); | |
h$ghcjsbn_assertValid_w(r, "gcd_bw r"); | |
if(r === 0) { | |
return b[0] === 0 ? 0 : w; | |
} else { | |
return h$ghcjsbn_gcd_ww(r, w); | |
} | |
} | |
// b >> s :: BigNat -> Int -> BigNat | |
function h$ghcjsbn_shr_b(b, s) { | |
h$ghcjsbn_assertValid_b(b, "shr_b"); | |
h$ghcjsbn_assertValid_s(s, "shr_b"); | |
if(s < 0) throw new Error("h$ghcjsbn_shr_b: negative operand"); | |
var i, v1, v2, l = b[0], sl = (s / 28)|0, t = [0]; | |
l -= sl; | |
if(l <= 0) { | |
t[0] = 0; | |
} else { | |
var sb1 = s % 28, sb2 = 28 - sb1, m = (1<<sb1)-1; | |
var c = b[sl + 1] >> sb1, v; | |
for(i = 1; i < l; i++) { | |
v = b[i + sl + 1]; | |
t[i] = ((v&m) << sb2)|c; | |
c = v >> sb1; | |
} | |
if(c !== 0) { | |
t[l] = c; | |
t[0] = l; | |
} else { | |
t[0] = l - 1; | |
} | |
} | |
h$ghcjsbn_assertValid_b(t, "shr_b result"); | |
return t; | |
} | |
// t = b >> s :: BigNat -> BigNat -> Int -> IO () | |
function h$ghcjsbn_shrTo_b(t, b, s) { | |
h$ghcjsbn_assertValid_b(b, "shrTo_b"); | |
h$ghcjsbn_assertValid_s(s, "shrTo_b"); | |
if(s < 0) throw new Error("h$ghcjsbn_shrTo_b: negative operand"); | |
var i, v1, v2, l = b[0], sl = (s / 28)|0; | |
t[0] = 0; | |
l -= sl; | |
if(l <= 0) { | |
t[0] = 0; | |
} else { | |
var sb1 = s % 28, sb2 = 28 - sb1, m = (1<<sb1)-1; | |
var c = b[sl + 1] >> sb1, v; | |
for(i = 1; i < l; i++) { | |
v = b[i + sl + 1]; | |
t[i] = ((v&m) << sb2)|c; | |
c = v >> sb1; | |
} | |
if(c !== 0) { | |
t[l] = c; | |
t[0] = l; | |
} else { | |
t[0] = l - 1; | |
} | |
} | |
h$ghcjsbn_assertValid_b(t, "shrTo_b result"); | |
} | |
function h$ghcjsbn_shr_neg_b(b, s) { | |
throw new Error ("shr_neg_b not implemented"); | |
} | |
// b << s :: BigNat -> Int -> BigNat | |
function h$ghcjsbn_shl_b(b, s) { | |
h$ghcjsbn_assertValid_b(b, "shl_b"); | |
h$ghcjsbn_assertValid_s(s, "shl_b"); | |
if(s < 0) throw new Error("h$ghcjsbn_shl_b: negative operand"); | |
var sl = (s / 28)|0; | |
var sb1 = s % 28, sb2 = 28 - sb1; | |
// mask wrong | |
var l = b[0]; | |
if(l === 0) return h$ghcjsbn_zero_b; | |
var c = 0, i, v, m = (1 <<sb1) - 1, t = [0]; | |
for(i = 1; i <= sl; i++) { | |
t[i] = 0; | |
} | |
for(i = 1; i <= l; i++) { | |
v = b[i]; | |
t[i + sl] = ((v << sb1) & 0xfffffff) | c; | |
c = v >> sb2; | |
} | |
if(c !== 0) { | |
t[l+sl+1] = c; | |
t[0] = l + sl + 1; | |
} else { | |
t[0] = l + sl; | |
} | |
h$ghcjsbn_assertValid_b(t, "shl_b result"); | |
return t; | |
} | |
// t = b << s :: BigNat -> BigNat -> Int -> IO () | |
function h$ghcjsbn_shlTo_b(t, b, s) { | |
h$ghcjsbn_assertValid_b(b, "shlTo_b"); | |
h$ghcjsbn_assertValid_s(s, "shlTo_b"); | |
if(s < 0) throw new Error("h$ghcjsbn_shlTo_b: negative operand"); | |
var sl = (s / 28)|0; | |
var sb1 = s % 28, sb2 = 28 - sb1; | |
// mask wrong | |
var l = b[0], c = 0, i, v, m = (1 <<sb1) - 1; | |
t[0] = 0; | |
for(i = 1; i <= sl; i++) { | |
t[i] = 0; | |
} | |
for(i = 1; i <= l; i++) { | |
v = b[i]; | |
t[i + sl] = ((v << sb1) & 0xfffffff) | c; | |
c = v >> sb2; | |
} | |
if(c !== 0) { | |
t[l+sl+1] = c; | |
t[0] = l + sl + 1; | |
} else { | |
t[0] = l + sl; | |
} | |
h$ghcjsbn_assertValid_b(t, "shlTo_b result"); | |
} | |
// t = b >> (GHCJSBN_BITS * s) :: BigNat -> BigNat -> Int | |
function h$ghcjsbn_shrTo_limbs_b(t, b, s) { | |
h$ghcjsbn_assertValid_b(b, "shrTo_limbs_b"); | |
h$ghcjsbn_assertValid_s(s, "shrTo_limbs_b"); | |
if(s < 0) throw new Error("h$ghcjsbn_shrTo_limbs_b: negative operand"); | |
var l = b[0], l1 = l - s, i; | |
if(l1 < 1) { | |
t[0] = 0; | |
} else { | |
t[0] = l1; | |
for(i = 1; i <= l1; i++) t[i] = b[i+s]; | |
} | |
h$ghcjsbn_assertValid_b(t, "shrTo_limbs_b result"); | |
} | |
// t = b << (GHCJSBN_BITS * s) :: BigNat -> BigNat -> Int | |
function h$ghcjsbn_shlTo_limbs_b(t, b, s) { | |
h$ghcjsbn_assertValid_b(b, "shlTo_limbs_b"); | |
h$ghcjsbn_assertValid_s(s, "shlTo_limbs_b"); | |
if(s < 0) throw new Error("h$ghcjsbn_shlTo_limbs_b: negative operand"); | |
var l = b[0], l1 = l + s, i; | |
if(l === 0) { | |
t[0] = 0; | |
} else { | |
t[0] = l1; | |
for(i = 1; i <= s; i++) t[i] = 0; | |
for(i = s+1; i <= l1; i++) t[i] = b[i-s]; | |
} | |
h$ghcjsbn_assertValid_b(t, "shlTo_limbs_b result"); | |
} | |
function h$ghcjsbn_nbits_b(b) { | |
h$ghcjsbn_assertValid_b(b, "nbits_b"); | |
var l = b[0], c = 0, s, t; | |
if(l === 0) { | |
return 0; | |
} else { | |
var r = ((l-1)*28) + h$ghcjsbn_nbits_s(b[l]); | |
h$ghcjsbn_assertValid_s(r, "nbits_b result"); | |
return r; | |
} | |
} | |
function h$ghcjsbn_nbits_s(s) { | |
h$ghcjsbn_assertValid_s(s, "nbits_s"); | |
var c = 1, t; | |
if((t = s >>> 16) != 0) { s = t; c += 16; } | |
if((t = s >> 8) != 0) { s = t; c += 8; } | |
if((t = s >> 4) != 0) { s = t; c += 4; } | |
if((t = s >> 2) != 0) { s = t; c += 2; } | |
if((t = s >> 1) != 0) { s = t; c += 1; } | |
h$ghcjsbn_assertValid_s(c, "nbits_s result"); | |
return c; | |
} | |
// BigNat -> Word -> String | |
function h$ghcjsbn_showBase(b, base) { | |
h$ghcjsbn_assertValid_b(b, "showBase"); | |
h$ghcjsbn_assertValid_s(base, "showBase"); | |
if(h$ghcjsbn_cmp_bb(b, h$ghcjsbn_zero_b) === 1) { | |
return "0"; | |
} else { | |
return h$ghcjsbn_showBase_rec(b, base, Math.log(base), 0); | |
} | |
} | |
function h$ghcjsbn_showBase_rec(b, base, logBase, pad) { | |
var bits = h$ghcjsbn_nbits_b(b), r; | |
// h$log("[" + b.join(",") + "] bits: " + bits); | |
if(h$ghcjsbn_cmp_bb(b, h$ghcjsbn_two31_b) === 0) { | |
// convert short numbers to int and show in base | |
var ti = h$ghcjsbn_toInt_b(b); | |
// h$log("############# got base limb: " + ti); | |
r = ti === 0 ? "" : ti.toString(base); | |
} else { | |
// divide and conquer for long numbers | |
var digits = Math.floor(bits * 0.6931471805599453 / logBase); | |
var d2 = Math.round(digits/2), p, q = [], r = []; | |
p = h$ghcjsbn_pow_ww(base, d2); | |
h$ghcjsbn_quotRem_bb(q, r, b, p); | |
r = h$ghcjsbn_showBase_rec(q, base, logBase, 0) + | |
h$ghcjsbn_showBase_rec(r, base, logBase, d2); | |
} | |
var rl = r.length; | |
if(rl < pad) { | |
while(rl <= pad-8) { r = "00000000" + r; rl += 8; } | |
switch(pad-rl) { | |
case 1: r = "0" + r; break; | |
case 2: r = "00" + r; break; | |
case 3: r = "000" + r; break; | |
case 4: r = "0000" + r; break; | |
case 5: r = "00000" + r; break; | |
case 6: r = "000000" + r; break; | |
case 7: r = "0000000" + r; break; | |
} | |
} | |
return r; | |
} | |
// BigNat -> String (decimal) | |
function h$ghcjsbn_show(b) { | |
throw new Error("show not implemented"); | |
// digits = | |
} | |
// BigNat -> String | |
function h$ghcjsbn_showHex(b) { | |
throw new Error("showHex not implemented"); | |
} | |
// s = b[l - 1]; | |
// normalize a number to length l by stripping unused leading digits | |
/* | |
function h$ghcjsbn_normalize(b, l) { | |
var d = b.length - l; | |
while(d--) b.pop(); | |
} | |
// normalize a number by stripping leading zeroes | |
function h$ghcjsbn_normalize0(b) { | |
var l = b.length; | |
while(b[--l] === 0) b.pop(); | |
} | |
*/ | |
// t = b :: BigNat -> BigNat -> Int, returns length of t | |
function h$ghcjsbn_copy(t, b) { | |
h$ghcjsbn_assertValid_b(b, "copy"); | |
var l = b[0]; | |
for(var i = 0; i <= l; i++) { | |
t[i] = b[i]; | |
} | |
return l; | |
} | |
// BigNat -> Int -> Bool | |
// test if bit n is set in b (least significant bit is 0) | |
function h$ghcjsbn_testBit_b(b, n) { | |
h$ghcjsbn_assertValid_b(b, "testBit_b"); | |
h$ghcjsbn_assertValid_s(n, "testBit_b"); | |
var limb = (n / 28)|0; | |
if(limb >= b[0]) { | |
return false; | |
} else { | |
var d = b[limb]; | |
var bit = n - (28 * limb); | |
return (b[limb] & (1 << bit)) !== 0; | |
} | |
} | |
function h$ghcjsbn_popCount_b(b) { | |
h$ghcjsbn_assertValid_b(b, "popCount_b"); | |
var c = 0, l = b[0]; | |
while(l > 0) { | |
c += h$popCnt32(b[l--]); | |
} | |
return c; | |
} | |
// t = b1 ^ b2 :: BigNat -> BigNat -> BigNat -> Int | |
// returns length of t | |
function h$ghcjsbn_xor_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "xor_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "xor_bb b2"); | |
var i, lmin, lmax, blmax, l1 = b1[0], l2 = b2[0], t = [0]; | |
if(l1 <= l2) { | |
lmin = l1; | |
lmax = l2; | |
blmax = b2; | |
} else { | |
lmin = l2; | |
lmax = l1; | |
blmax = b1; | |
} | |
for(i = 1; i <= lmin; i++) { | |
t[i] = b1[i] ^ b2[i]; | |
} | |
for(i = lmin + 1; i <= lmax; i++) { | |
t[i] = blmax[i]; | |
} | |
while(lmax > 0 && t[lmax] === 0) lmax--; | |
t[0] = lmax; | |
h$ghcjsbn_assertValid_b(t, "xor_bb result"); | |
return t; | |
} | |
// b1 | b2 :: BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_or_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "or_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "or_bb b2"); | |
var i, lmin, lmax, blmax, l1 = b1[0], l2 = b2[0], t = [0]; | |
if(l1 <= l2) { | |
lmin = l1; | |
lmax = l2; | |
blmax = b2; | |
} else { | |
lmin = l2; | |
lmax = l1; | |
blmax = b1; | |
} | |
for(i = 1; i <= lmin; i++) { | |
t[i] = b1[i] | b2[i]; | |
} | |
for(i = lmin + 1; i <= lmax; i++) { | |
t[i] = blmax[i]; | |
} | |
t[0] = lmax; | |
h$ghcjsbn_assertValid_b(t, "or_bb result"); | |
return t; | |
} | |
// b1 & b2 :: BigNat -> BigNat -> BigNat | |
function h$ghcjsbn_and_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "and_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "and_bb b2"); | |
var i, lmin, l1 = b1[0], l2 = b2[0], t = [0]; | |
lmin = l1 <= l2 ? l1 : l2; | |
for(i = 1; i <= lmin; i++) { | |
t[i] = b1[i] & b2[i]; | |
} | |
while(lmin > 0 && t[lmin] === 0) lmin--; | |
t[0] = lmin; | |
h$ghcjsbn_assertValid_b(t, "and_bb result"); | |
return t; | |
} | |
// b1 & (~b2) :: BigNat -> BigNat -> BigNat | |
// fixme is this one correct? | |
function h$ghcjsbn_andn_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "andn_bb b1"); | |
h$ghcjsbn_assertValid_b(b2, "andn_bb b2"); | |
var i, lmin, l1 = b1[0], l2 = b2[0], t = [0]; | |
if(l1 <= l2) { | |
for(i = 0; i <= l1; i++) t[i] = b1[i] & (~b2[i]); | |
} else { | |
for(i = 0; i <= l2; i++) t[i] = b1[i] & (~b2[i]); | |
for(i = l2+1; i <= l1; i++) t[i] = b1[i]; | |
} | |
while(l1 > 0 && t[l1] === 0) l1--; | |
t[0] = l1; | |
h$ghcjsbn_assertValid_b(t, "andn_bb result"); | |
return t; | |
} | |
function h$ghcjsbn_toInt_b(b) { | |
h$ghcjsbn_assertValid_b(b, "toInt_b"); | |
var bl = b[0], r; | |
if(bl >= 2) { | |
r = (b[2] << 28) | b[1]; | |
} else if(bl === 1) { | |
r = b[1]; | |
} else { | |
r = 0; | |
} | |
h$ghcjsbn_assertValid_s(r, "toInt_b result"); | |
return r; | |
} | |
function h$ghcjsbn_toWord_b(b) { | |
h$ghcjsbn_assertValid_b(b, "toWord_b"); | |
var bl = b[0], w; | |
if(bl >= 2) { | |
w = (b[2] << 28) | b[1]; | |
} else if(bl === 1) { | |
w = b[1]; | |
} else { | |
w = 0; | |
} | |
h$ghcjsbn_assertValid_w(w, "toWord_b result"); | |
return w; | |
} | |
var h$integer_bigNatToWord64 = h$ghcjsbn_toWord64_b; | |
var h$integer_word64ToBigNat = h$ghcjsbn_mkBigNat_ww; // fixme? | |
function h$ghcjsbn_toWord64_b(b) { | |
h$ghcjsbn_assertValid_b(b, "toWord64_b"); | |
var len = b[0], w1, w2; | |
if(len < 2) { | |
w2 = 0; | |
w1 = (len === 1) ? b[1] : 0; | |
} else { | |
w1 = b[1] | (b[2] << 28); | |
if(len === 2) { | |
w2 = b[2] >>> 4; | |
} else { | |
w2 = (b[2] >>> 4) | (b[3] << 24); | |
} | |
} | |
h$ghcjsbn_assertValid_w(w2, "toWord64_b result w2"); | |
h$ghcjsbn_assertValid_w(w1, "toWord64_b result w1"); | |
{ h$ret1 = (w1); return (w2); }; | |
} | |
// BigNat -> Int -> IO () | |
function h$ghcjsbn_toBigNat_s(b, s) { | |
h$ghcjsbn_assertValid_s(s, "toBigNat_s"); | |
if(s < 0) { | |
throw new Error("h$ghcjsbn_toBigNat_s: negative operand"); | |
} | |
if(s === 0) { | |
b[0] = 0; | |
} else if(s <= 0xfffffff) { | |
b[0] = 1; | |
b[1] = s; | |
} else { | |
b[0] = 2; | |
b[1] = s & 0xfffffff; | |
b[2] = s >> 0xfffffff; | |
} | |
h$ghcjsbn_assertValid_b(b, "toBigNat_s result"); | |
} | |
// BigNat -> Word -> IO () | |
function h$ghcjsbn_toBigNat_w(b, w) { | |
h$ghcjsbn_assertValid_w(w, "toBigNat_w"); | |
if(w === 0) { | |
b[0] = 0; | |
} else if(w > 0 && w <= 0xfffffff) { | |
b[0] = 1; | |
b[1] = w; | |
} else { | |
b[0] = 2; | |
b[1] = w & 0xfffffff; | |
b[2] = w >>> 28; | |
} | |
h$ghcjsbn_assertValid_b(b, "toBigNat_w result"); | |
} | |
function h$ghcjsbn_mkBigNat_w(w) { | |
h$ghcjsbn_assertValid_w(w, "mkBigNat_w"); | |
var r; | |
if(w === 0) r = h$ghcjsbn_zero_b; | |
else if(w === 1) r = h$ghcjsbn_one_b; | |
else if(w > 0 && w <= 0xfffffff) r = [1,w]; | |
else r = [2, w & 0xfffffff, w >>> 28]; | |
h$ghcjsbn_assertValid_b(r, "mkBigNat_w result"); | |
// ASSERTVALID_B(h$ghcjsbn_zero_b, "mkBigNat_w zero"); | |
return r; | |
} | |
function h$ghcjsbn_mkBigNat_ww(hw, lw) { | |
h$ghcjsbn_assertValid_w(hw, "mkBigNat_ww hw"); | |
h$ghcjsbn_assertValid_w(lw, "mkBigNat_ww lw"); | |
var r; | |
if(hw === 0) r = h$ghcjsbn_mkBigNat_w(lw); | |
else { | |
var w1 = lw & 0xfffffff; | |
var w2 = (lw >>> 28) | ((hw << 4) & 0xfffffff); | |
var w3 = hw >>> 24; | |
if(w3 === 0) { | |
r = [2, w1, w2]; | |
} else { | |
r = [3, w1, w2, w3]; | |
} | |
} | |
h$ghcjsbn_assertValid_b(r, "mkBigNat_ww result"); | |
return r; | |
} | |
// fixme remove after reboot | |
var h$ghcjsbn_toBigNat_ww = h$ghcjsbn_mkBigNat_ww; | |
/* fixme re-enable after reboot | |
function h$ghcjsbn_toBigNat_ww(b, hw, lw) { | |
ASSERTVALID_W(hw, "toBigNat_ww hw"); | |
ASSERTVALID_W(lw, "toBigNat_ww lw"); | |
if(hw === 0) h$ghcjsbn_toBigNat_w(b, lw); | |
else { | |
var w1 = lw & GHCJSBN_MASK; | |
var w2 = (lw >>> GHCJSBN_BITS) | ((hw << 4) & GHCJSBN_MASK); | |
var w3 = hw >>> 24; | |
if(w3 === 0) { | |
r[0] = 2; | |
r[1] = w1; | |
r[2] = w2; | |
} else { | |
r[0] = 3; | |
r[1] = w1; | |
r[2] = w2; | |
r[3] = w3; | |
} | |
} | |
} | |
*/ | |
// fixme remove later | |
var h$integer_mkInteger = h$ghcjsbn_mkInteger; | |
function h$ghcjsbn_mkInteger(nonNeg, xs) { | |
// fixme write proper optimized version | |
var r = [0], s = 0, t; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
t = h$ghcjsbn_shl_b(h$ghcjsbn_mkBigNat_w(((typeof(((xs).d1)) === 'number')?(((xs).d1)):(((xs).d1)).d1)), s); | |
h$ghcjsbn_addTo_bb(r, t); | |
s += 31; | |
xs = ((xs).d2); | |
} | |
if(nonNeg) { | |
if(h$ghcjsbn_cmp_bb(r, h$ghcjsbn_two31_b) === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (h$ghcjsbn_toInt_b(r))));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, (r)));; | |
} | |
} else { | |
var c = h$ghcjsbn_cmp_bb(r, h$ghcjsbn_two31_b); | |
if(c === 2) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (r)));; | |
} else if(c === 1) { | |
return h$ghcjsbn_negTwo31_i; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-h$ghcjsbn_toInt_b(r))));; | |
} | |
} | |
/* var r = h$ghcjsbn_mkBigNat_w(0), l = 0, s = 0, y, t; | |
while(IS_CONS(xs)) { | |
l++; | |
y = UNWRAP_NUMBER(CONS_HEAD(xs)); | |
r[++l] = (y << s | c) & GHCJSBN_MASK; | |
c = y >>> s; | |
xs = CONS_TAIL(xs); | |
s += 3; | |
l++; | |
if(s > GHCJSBN_BITS) { | |
s -= GHCJSBN_BITS; | |
r[++l] = c & GHCJSBN_MASK; | |
c >>= GHCJSBN_BITS; | |
} | |
} | |
if(c !== 0) r[++l] = | |
while( | |
if(l === 0) { | |
return MK_INTEGER_S(0); | |
} else if(l === 1) { | |
} else if(l === 2) { | |
} */ | |
} | |
// BigNat -> Int -> Int | |
function h$ghcjsbn_indexBigNat(b, i) { | |
h$ghcjsbn_assertValid_b(b, "indexBigNat"); | |
h$ghcjsbn_assertValid_s(i, "indexBigNat"); | |
var bl = b[0]; | |
return i >= bl ? 0 : b[i+1]; | |
} | |
// BigNat -> Word -> Int (Ordering) | |
function h$ghcjsbn_cmp_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "cmp_bw"); | |
h$ghcjsbn_assertValid_w(w, "cmp_bw"); | |
var w1 = w & 0xfffffff, w2 = w >>> 28, bl = b[0]; | |
if(w2 === 0) { | |
if(bl === 0) { | |
return w1 > 0 ? 0 : 1; | |
} else if(bl === 1) { | |
var bw = b[1]; | |
return bw > w1 ? 2 : (bw === w1 ? 1 : 0); | |
} else { | |
return 2; | |
} | |
} else { | |
if(bl < 2) { | |
return 0; | |
} else if(bl > 2) { | |
return 2; | |
} else { | |
var bw1 = b[1], bw2 = b[2]; | |
return (bw2 > w2) ? 2 | |
: (bw2 < w2 ? 0 | |
: (bw1 > w1 ? 2 | |
: (bw1 < w1 ? 0 | |
: 1))); | |
} | |
} | |
} | |
/* | |
function h$ghcjsbn_gt_bw(b, w) { | |
var r = h$ghcjsbn_gt_bw0(b,w); | |
h$log("gt_bw result: " + r); | |
return r; | |
} | |
*/ | |
function h$ghcjsbn_gt_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "gt_bw"); | |
h$ghcjsbn_assertValid_w(w, "gt_bw"); | |
var bl = b[0]; | |
if(bl > 2) return true; | |
else if(bl === 0) return false; | |
else if(bl === 1) return w >= 0 && b[1] > w; | |
else { // bl === 2 | |
var wh = w >>> 28, wl = w & 0xfffffff, b2 = b[2]; | |
// var r = (wh > b2 || ((wh === b2) && wl > b[1])); | |
// h$log("r: " + r + " " + wh + " " + wl + " " ); | |
return (b2 > wh || ((wh === b2) && b[1] > wl)); | |
} | |
} | |
// BigNat -> BigNat -> Bool | |
function h$ghcjsbn_eq_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "eq_bb"); | |
h$ghcjsbn_assertValid_b(b2, "eq_bb"); | |
var bl1 = b1[0], bl2 = b2[0]; | |
if(bl1 !== bl2) { | |
return false; | |
} else { | |
for(var i = bl1; i >= 1; i--) { | |
var bw1 = b1[i], bw2 = b2[i]; | |
if(bw1 !== bw2) return false; | |
} | |
} | |
return true; // GHCJSBN_EQ; | |
} | |
// BigNat -> BigNat -> Bool | |
function h$ghcjsbn_neq_bb(b1, b2) { | |
h$ghcjsbn_assertValid_b(b1, "neq_bb"); | |
h$ghcjsbn_assertValid_b(b2, "neq_bb"); | |
var bl1 = b1[0], bl2 = b2[0]; | |
if(bl1 !== bl2) { | |
return true; | |
} else { | |
for(var i = bl1; i >= 1; i--) { | |
var bw1 = b1[i], bw2 = b2[i]; | |
if(bw1 !== bw2) return true; | |
} | |
} | |
return false; | |
} | |
// BigNat -> BigNat -> Bool | |
/* | |
function h$ghcjsbn_eq_bw(b, w) { | |
var r = h$ghcjsbn_eq_bw0(b, w); | |
return r; | |
} | |
*/ | |
function h$ghcjsbn_eq_bw(b, w) { | |
h$ghcjsbn_assertValid_b(b, "eq_bw"); | |
h$ghcjsbn_assertValid_w(w, "eq_bw"); | |
var w1 = w & 0xfffffff, w2 = w >>> 28, bl = b[0]; | |
if(w2 === 0) { | |
if(w1 === 0) { | |
return bl === 0; | |
} else { | |
return bl === 1 && b[1] === w; | |
} | |
} else { | |
return bl === 2 && b[1] === w1 && b[2] === w2; | |
} | |
} | |
// BigNat -> Bool | |
function h$ghcjsbn_isZero_b(b) { | |
h$ghcjsbn_assertValid_b(b, "isZero_b"); | |
return b[0] === 0; | |
} | |
// BigNat -> Int | |
function h$ghcjsbn_isNull_b(b) { | |
return b[0] === -1; | |
} | |
// 1 << n | |
function h$ghcjsbn_bitBigNat(n) { | |
if(n < 0) { | |
throw new Error("bitBigNat: argument must be positive"); | |
} | |
if(n === 0) { | |
r = h$ghcjsbn_one_b; | |
} else if(n < 28) { | |
r = [1, 1 << n]; | |
} else { | |
var l = (n / 28)|0; | |
var r = [l+1]; | |
for(var i = 1; i<= l; i++) r[i] = 0; | |
r[l+1] = 1 << (n - (28 * l)); | |
} | |
h$ghcjsbn_assertValid_b(r, "bitBigNat result"); | |
return r; | |
} | |
// Integer -> Int | |
// assumes argument is strictly positive | |
function h$ghcjsbn_integerLog2(i) { | |
h$ghcjsbn_assertValid_i(i, "integerLog2"); | |
/* if(h$ghcjsbn_cmp_ii(i, h$ghcjsbn_zero_i) !== GHCJSBN_GT) { | |
throw new Error("integerLog2: argument must be positive"); | |
} */ | |
if(((i).f === h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e)) { | |
return h$ghcjsbn_nbits_s(((i).d1)); | |
} else { | |
return h$ghcjsbn_nbits_b(((i).d1)); | |
} | |
} | |
// Integer -> Int | |
// returns negation of result if integer is exactly a power of two | |
function h$ghcjsbn_integerLog2IsPowerOf2(i) { | |
h$ghcjsbn_assertValid_i(i, "integerLog2IsPowerOf2"); | |
/* if(h$ghcjbn_cmp_ii(i, h$ghcjsbn_zero_i) !== GHCJSBN_GT) { | |
throw new Error("integerLog2IsPowerOf2: argument must be positive"); | |
} */ | |
var nb; | |
if(((i).f === h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e)) { | |
var sd = ((i).d1); | |
h$ghcjsbn_assertValid_s(sd, "integerLog2IsPowerOf2 sd"); | |
nb = h$ghcjsbn_nbits_s(sd); | |
return ((sd === 1 << nb) ? -nb : nb); | |
} else { | |
var bd = ((i).d1); | |
h$ghcjsbn_assertValid_b(bd, "integerLog2IsPowerOf2 bd"); | |
nb = h$ghcjsbn_nbits_b(bd); | |
var i, bl = (nb / 28) | 0, lb = nb - 28 * bl, l = bd[bl+1]; | |
if(l !== (1 << lb)) return nb; | |
for(i = bl; i >= 1; i--) { | |
if(bd[i] !== 0) return nb; | |
} | |
return -nb; | |
} | |
} | |
// BigNat? -> Int | |
function h$ghcjsbn_isValid_b(b) { | |
if(!Array.isArray(b)) return 0; | |
if(b.length < 1) return 0; | |
var bl = b[0], w; | |
if(b.length < (bl+1)) return 0; | |
for(var i = 0; i <= bl; i++) { | |
w = b[i]; | |
if(typeof w !== 'number' || (w & 0xfffffff) !== w) return 0; | |
} | |
return 1; | |
} | |
// BigNat -> Integer | |
function h$ghcjsbn_toInteger_b(b) { | |
h$ghcjsbn_assertValid_b(b, "toInteger_b"); | |
if(h$ghcjsbn_cmp_bb(b, h$ghcjsbn_two31_b) === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (h$ghcjsbn_toInt_b(b))));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, (b)));; | |
} | |
} | |
// BigNat -> Integer | |
function h$ghcjsbn_toNegInteger_b(b) { | |
h$ghcjsbn_assertValid_b(b, "toNegInteger_b"); | |
var c = h$ghcjsbn_cmp_bb(b, h$ghcjsbn_two31_b); | |
if(c === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-h$ghcjsbn_toInt_b(b))));; | |
} else if(c === 1) { | |
return h$ghcjsbn_negTwo31_i; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (b)));; | |
} | |
} | |
// BigNat? -> Int | |
// (can be called with invalid bignat) | |
function h$ghcjsbn_sizeof_b(b) { | |
if(b.length < 1) return 0; | |
var bl = b[0]; | |
return Math.ceil((bl * 28) / 32); | |
} | |
// extract a word from a BigNat | |
function h$ghcjsbn_index_b(b, w) { | |
throw new Error("index_b"); | |
h$ghcjsbn_assertValid_b(b, "index_b"); | |
h$ghcjsbn_assertValid_w(w, "index_b"); | |
var wbit = 32*w, len = b[0], limb = (wbit / 28) | 0, lb = wbit - (limb * 28); | |
var r = b[limb+1] >>> lb; | |
/* if() { | |
} */ | |
h$ghcjsbn_assertValid_w(r, "index_b result"); | |
} | |
// Bool -> BigNat -> Double | |
function h$ghcjsbn_toDouble_b(nonNeg, b) { | |
throw new Error("toDouble_b"); | |
} | |
function h$ghcjsbn_byteArrayToBigNat(ba, len) { | |
throw new Error("h$ghcjsbn_byteArrayToBigNat not yet implemented"); | |
} | |
function h$ghcjsbn_importBigNatFromAddr(a_d, a_o, len, msbf) { | |
throw new Error("h$ghcjsbn_importBigNatFromAddr not yet implemented"); | |
} | |
function h$ghcjsbn_importBigNatFromByteArray(ba, ofs, len, msbf) { | |
throw new Error("h$ghcjsbn_importBigNatFromByteArray not yet implemented"); | |
} | |
////////////////////////////////////////////////////////////////////////////// | |
// fixme move to primop places later | |
var h$integer_int64ToInteger = h$ghcjsbn_toInteger_s64; | |
function h$ghcjsbn_toInteger_s64(s_a, s_b) { | |
h$ghcjsbn_assertValid_s(s_a, "toInteger_s64 s_a"); | |
h$ghcjsbn_assertValid_s(s_b, "toInteger_s64 s_b"); | |
if(s_a === 0) { | |
if(s_b >= 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (s_b)));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, (h$ghcjsbn_mkBigNat_w(s_b))));; | |
} | |
} else if(s_a === -1) { | |
if(s_b < 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (s_b)));; | |
} else if(s_b === 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (h$ghcjsbn_mkBigNat_ww(1,0))));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (h$ghcjsbn_mkBigNat_w(((~s_b)+1)|0))));; | |
} | |
} else if(s_a > 0) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, (h$ghcjsbn_mkBigNat_ww(s_a, s_b))));; | |
} else { | |
if(s_b === 0) { // zero should be correct! | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (h$ghcjsbn_mkBigNat_ww(((~s_a)+1)|0, 0))));; | |
} else { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, (h$ghcjsbn_mkBigNat_ww((~s_a)|0, ((~s_b)+1)|0))));; | |
} | |
/* | |
if(s_b === 0) { // zero should be correct! | |
return MK_INTEGER_Jn(h$ghcjsbn_mkBigNat_ww(((~s_a)+1)|0, 0)); | |
} else { | |
return MK_INTEGER_Jn(h$ghcjsbn_mkBigNat_ww(~s_a, ((~s_b)+1)|0)); | |
} */ | |
} | |
} | |
function h$decodeDoubleInt64(d) { | |
h$ghcjsbn_assertValid_d(d, "DoubleDecode_Int64"); | |
if(isNaN(d)) { | |
// RETURN_UBX_TUP4(null, -1572864, 0, 972); | |
{ h$ret1 = (-1572864); h$ret2 = (0); return (972); }; | |
} | |
h$convertDouble[0] = d; | |
var i0 = h$convertInt[0], i1 = h$convertInt[1]; | |
var exp = (i1&2146435072)>>>20; | |
var ret1, ret2 = i0, ret3; | |
if(exp === 0) { // denormal or zero | |
if((i1&2147483647) === 0 && ret2 === 0) { | |
ret1 = 0; | |
ret3 = 0; | |
} else { | |
h$convertDouble[0] = d*9007199254740992; | |
i1 = h$convertInt[1]; | |
ret1 = (i1&1048575)|1048576; | |
ret2 = h$convertInt[0]; | |
ret3 = ((i1&2146435072)>>>20)-1128; | |
} | |
} else { | |
ret3 = exp-1075; | |
ret1 = (i1&1048575)|1048576; | |
} | |
// negate mantissa for negative input | |
if(d < 0) { | |
if(ret2 === 0) { | |
ret1 = ((~ret1) + 1) | 0; | |
// ret2 = 0; | |
} else { | |
ret1 = ~ret1; | |
ret2 = ((~ret2) + 1) | 0; | |
} | |
} | |
// prim ubx tup returns don't return the first value! | |
{ h$ret1 = (ret1); h$ret2 = (ret2); return (ret3); }; | |
} | |
// fixme remove this once rebooted | |
function h$primop_DoubleDecode_Int64Op(d) { | |
h$ghcjsbn_assertValid_d(d, "DoubleDecode_Int64"); | |
if(isNaN(d)) { | |
// RETURN_UBX_TUP4(null, -1572864, 0, 972); | |
{ h$ret1 = (-1572864); h$ret2 = (0); h$ret3 = (972); return (null); }; | |
} | |
h$convertDouble[0] = d; | |
var i0 = h$convertInt[0], i1 = h$convertInt[1]; | |
var exp = (i1&2146435072)>>>20; | |
var ret1, ret2 = i0, ret3; | |
if(exp === 0) { // denormal or zero | |
if((i1&2147483647) === 0 && ret2 === 0) { | |
ret1 = 0; | |
ret3 = 0; | |
} else { | |
h$convertDouble[0] = d*9007199254740992; | |
i1 = h$convertInt[1]; | |
ret1 = (i1&1048575)|1048576; | |
ret2 = h$convertInt[0]; | |
ret3 = ((i1&2146435072)>>>20)-1128; | |
} | |
} else { | |
ret3 = exp-1075; | |
ret1 = (i1&1048575)|1048576; | |
} | |
// negate mantissa for negative input | |
if(d < 0) { | |
if(ret2 === 0) { | |
ret1 = ((~ret1) + 1) | 0; | |
// ret2 = 0; | |
} else { | |
ret1 = ~ret1; | |
ret2 = ((~ret2) + 1) | 0; | |
} | |
} | |
// prim ubx tup returns don't return the first value! | |
{ h$ret1 = (ret1); h$ret2 = (ret2); h$ret3 = (ret3); return (null); }; | |
} | |
function h$ghcjsbn_encodeDouble_b(pos, b, e) { | |
h$ghcjsbn_assertValid_b(b, "encodeDouble_b"); | |
h$ghcjsbn_assertValid_s(e, "encodeDouble_b"); | |
if(e >= 972) { | |
return pos ? Infinity : -Infinity; | |
} | |
var ls = 1, bl = b[0], i, r = b[bl], mul = 1 << 28, rmul = 1/mul, s = 1; | |
for(i = bl-1; i >= 1; i--) { | |
/* if(e > GHCJSBN_BITS) { | |
e -= GHCJSBN_BITS; | |
s *= rmul; | |
r = r + s * b[i]; | |
} else { */ | |
r = r * mul + s * b[i]; | |
// } | |
} | |
// h$log("remaning exp: " + e); | |
if(e > 600) { | |
r = r * Math.pow(2, e-600) * Math.pow(2,600); | |
} else if(e < -600) { | |
r = r * Math.pow(2, e+600) * Math.pow(2,-600); | |
} else { | |
r = r * Math.pow(2, e); | |
} | |
h$ghcjsbn_assertValid_d(r, "encodeDouble_b result"); | |
return pos ? r : -r; | |
} | |
function h$ghcjsbn_toDouble_b(nonNeg, b) { | |
return h$ghcjsbn_encodeDouble_b(nonNeg, b, 0); | |
} | |
// fixme | |
var h$ghcjsbn_encodeDouble_i = h$ghcjsbn_encodeDouble_s; | |
function h$ghcjsbn_encodeDouble_s(m, e) { | |
h$ghcjsbn_assertValid_s(m, "encodeDouble_s m"); | |
h$ghcjsbn_assertValid_s(e, "encodeDouble_s e"); | |
var r = m * Math.pow(2, e); | |
h$ghcjsbn_assertValid_d(r, "encodeDouble_s result"); | |
return r; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$dom$sendXHR(xhr, d, cont) { | |
var clear; | |
var error = function () { | |
clear(); cont(2); | |
}; | |
var abort = function () { | |
clear(); cont(1); | |
}; | |
var load = function () { | |
clear(); cont(0); | |
}; | |
clear = function () { | |
xhr.removeEventListener('error', error); | |
xhr.removeEventListener('abort', abort); | |
xhr.removeEventListener('load', load); | |
} | |
xhr.addEventListener('error', error); | |
xhr.addEventListener('abort', abort); | |
xhr.addEventListener('load', load); | |
if(d) { | |
xhr.send(d); | |
} else { | |
xhr.send(); | |
} | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
function h$createWebSocket(url, protocols) { | |
return new WebSocket(url, protocols); | |
} | |
/* | |
this must be called before the websocket has connected, | |
typically synchronously after creating the socket | |
*/ | |
function h$openWebSocket(ws, mcb, ccb, c) { | |
if(ws.readyState !== 0) { | |
throw new Error("h$openWebSocket: unexpected readyState, socket must be CONNECTING"); | |
} | |
ws.lastError = null; | |
ws.onopen = function() { | |
if(mcb) { | |
ws.onmessage = mcb; | |
} | |
if(ccb || mcb) { | |
ws.onclose = function(ce) { | |
if(ws.onmessage) { | |
h$release(ws.onmessage); | |
ws.onmessage = null; | |
} | |
if(ccb) { | |
h$release(ccb); | |
ccb(ce); | |
} | |
}; | |
}; | |
ws.onerror = function(err) { | |
ws.lastError = err; | |
if(ws.onmessage) { | |
h$release(ws.onmessage); | |
ws.onmessage = null; | |
} | |
ws.close(); | |
}; | |
c(null); | |
}; | |
ws.onerror = function(err) { | |
if(ccb) h$release(ccb); | |
if(mcb) h$release(mcb); | |
ws.onmessage = null; | |
ws.close(); | |
c(err); | |
}; | |
} | |
function h$closeWebSocket(status, reason, ws) { | |
ws.onerror = null; | |
if(ws.onmessage) { | |
h$release(ws.onmessage); | |
ws.onmessage = null; | |
} | |
ws.close(status, reason); | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
/* | |
convert an array to a Haskell list, wrapping each element in a | |
JSVal constructor | |
*/ | |
function h$fromArray(a) { | |
var r = h$ghczmprimZCGHCziTypesziZMZN; | |
for(var i=a.length-1;i>=0;i--) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (a[i])))), (r))); | |
return a; | |
} | |
/* | |
convert an array to a Haskell list. No additional wrapping of the | |
elements is performed. Only use this when the elements are directly | |
usable as Haskell heap objects (numbers, boolean) or when the | |
array elements have already been appropriately wrapped | |
*/ | |
function h$fromArrayNoWrap(a) { | |
var r = h$ghczmprimZCGHCziTypesziZMZN; | |
for(var i=a.length-1;i>=0;i--) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, (a[i]), (r))); | |
return a; | |
} | |
/* | |
convert a list of JSVal to an array. the list must have been fully forced, | |
not just the spine. | |
*/ | |
function h$listToArray(xs) { | |
var a = [], i = 0; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
a[i++] = ((((xs).d1)).d1); | |
xs = ((xs).d2); | |
} | |
return a; | |
} | |
function h$listToArrayWrap(xs) { | |
return (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (h$listToArray(xs)))); | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$animationFrameCancel(h) { | |
if(h.handle) window.cancelAnimationFrame(h.handle); | |
if(h.callback) { | |
h$release(h.callback) | |
h.callback = null; | |
} | |
} | |
function h$animationFrameRequest(h) { | |
h.handle = window.requestAnimationFrame(function(ts) { | |
var cb = h.callback; | |
if(cb) { | |
h$release(cb); | |
h.callback = null; | |
cb(ts); | |
} | |
}); | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$exportValue(fp1a,fp1b,fp2a,fp2b,o) { | |
var e = { fp1a: fp1a | |
, fp1b: fp1b | |
, fp2a: fp2a | |
, fp2b: fp2b | |
, released: false | |
, root: o | |
, _key: -1 | |
}; | |
h$retain(e); | |
return e; | |
} | |
function h$derefExport(fp1a,fp1b,fp2a,fp2b,e) { | |
if(!e || typeof e !== 'object') return null; | |
if(e.released) return null; | |
if(fp1a !== e.fp1a || fp1b !== e.fp1b || | |
fp2a !== e.fp2a || fp2b !== e.fp2b) return null; | |
return e.root; | |
} | |
function h$releaseExport(e) { | |
h$release(e); | |
e.released = true; | |
e.root = null; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
/* | |
* Support code for the Data.JSString module. This code presents a JSString | |
* as a sequence of code points and hides the underlying encoding ugliness of | |
* the JavaScript strings. | |
* | |
* Use Data.JSString.Raw for direct access to the JSThis makes the operations more expen | |
*/ | |
/* | |
* Some workarounds here for JS engines that do not support proper | |
* code point access | |
*/ | |
var h$jsstringEmpty = (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (''))); | |
var h$jsstringHead, h$jsstringTail, h$jsstringCons, | |
h$jsstringSingleton, h$jsstringSnoc, h$jsstringUncons, | |
h$jsstringIndex, h$jsstringUncheckedIndex, | |
h$jsstringTake, h$jsstringDrop, h$jsstringTakeEnd, h$jsstringDropEnd; | |
if(String.prototype.codePointAt) { | |
h$jsstringSingleton = function(ch) { | |
; | |
return String.fromCodePoint(ch); | |
} | |
h$jsstringHead = function(str) { | |
; | |
var cp = str.codePointAt(0); | |
return (cp === undefined) ? -1 : (cp|0); | |
} | |
h$jsstringTail = function(str) { | |
; | |
var l = str.length; | |
if(l===0) return null; | |
var ch = str.codePointAt(0); | |
if(ch === undefined) return null; | |
// string length is at least two if ch comes from a surrogate pair | |
return str.substr(((ch)>=0x10000)?2:1); | |
} | |
h$jsstringCons = function(ch, str) { | |
; | |
return String.fromCodePoint(ch)+str; | |
} | |
h$jsstringSnoc = function(str, ch) { | |
; | |
return str+String.fromCodePoint(ch); | |
} | |
h$jsstringUncons = function(str) { | |
; | |
var l = str.length; | |
if(l===0) return -1; | |
var ch = str.codePointAt(0); | |
if(ch === undefined) { | |
{ h$ret1 = (null); return (-1); }; | |
} | |
{ h$ret1 = (str.substr(((ch)>=0x10000)?2:1)); return (ch); }; | |
} | |
// index is the first part of the character | |
h$jsstringIndex = function(i, str) { | |
; | |
var ch = str.codePointAt(i); | |
if(ch === undefined) return -1; | |
return ch; | |
} | |
h$jsstringUncheckedIndex = function(i, str) { | |
; | |
return str.codePointAt(i); | |
} | |
} else { | |
h$jsstringSingleton = function(ch) { | |
; | |
return (((ch)>=0x10000)) ? String.fromCharCode(((((ch)-0x10000)>>>10)+0xDC00), (((ch)&0x3FF)+0xD800)) | |
: String.fromCharCode(ch); | |
} | |
h$jsstringHead = function(str) { | |
; | |
var l = str.length; | |
if(l===0) return -1; | |
var ch = str.charCodeAt(0); | |
if(((ch|1023)===0xDBFF)) { | |
return (l>1) ? ((((ch)-0xD800)<<10)+(str.charCodeAt(1))-9216) : -1; | |
} else { | |
return ch; | |
} | |
} | |
h$jsstringTail = function(str) { | |
; | |
var l = str.length; | |
if(l===0) return null; | |
var ch = str.charCodeAt(0); | |
if(((ch|1023)===0xDBFF)) { | |
return (l>1)?str.substr(2):null; | |
} else return str.substr(1); | |
} | |
h$jsstringCons = function(ch, str) { | |
; | |
return ((((ch)>=0x10000)) ? String.fromCharCode(((((ch)-0x10000)>>>10)+0xDC00), (((ch)&0x3FF)+0xD800)) | |
: String.fromCharCode(ch)) | |
+ str; | |
} | |
h$jsstringSnoc = function(str, ch) { | |
; | |
return str + ((((ch)>=0x10000)) ? String.fromCharCode(((((ch)-0x10000)>>>10)+0xDC00), (((ch)&0x3FF)+0xD800)) | |
: String.fromCharCode(ch)); | |
} | |
h$jsstringUncons = function(str) { | |
; | |
var l = str.length; | |
if(l===0) return -1; | |
var ch = str.charCodeAt(0); | |
if(((ch|1023)===0xDBFF)) { | |
if(l > 1) { | |
{ h$ret1 = (str.substr(2)); return (((((ch)-0xD800)<<10)+(str.charCodeAt(1))-9216)); }; | |
} else { | |
{ h$ret1 = (null); return (-1); }; | |
} | |
} else { | |
{ h$ret1 = (str.substr(1)); return (ch); }; | |
} | |
} | |
// index is the first part of the character | |
h$jsstringIndex = function(i, str) { | |
// TRACE_JSSTRING("(no codePointAt) index: " + i + " '" + str + "'"); | |
var ch = str.charCodeAt(i); | |
if(ch != ch) return -1; // NaN test | |
return (((ch|1023)===0xDBFF)) ? ((((ch)-0xD800)<<10)+(str.charCodeAt(i+1))-9216) : ch; | |
} | |
h$jsstringUncheckedIndex = function(i, str) { | |
; | |
var ch = str.charCodeAt(i); | |
return (((ch|1023)===0xDBFF)) ? ((((ch)-0xD800)<<10)+(str.charCodeAt(i+1))-9216) : ch; | |
} | |
} | |
function h$jsstringPack(xs) { | |
var r = '', i = 0, a = [], c; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
c = ((xs).d1); | |
a[i++] = ((typeof(c) === 'number')?(c):(c).d1); | |
if(i >= 60000) { | |
r += String.fromCharCode.apply(null, a); | |
a = []; | |
i = 0; | |
} | |
xs = ((xs).d2); | |
} | |
if(i > 0) r += String.fromCharCode.apply(null, a); | |
; | |
return r; | |
} | |
function h$jsstringPackReverse(xs) { | |
var a = [], i = 0, c; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
c = ((xs).d1); | |
a[i++] = ((typeof(c) === 'number')?(c):(c).d1); | |
xs = ((xs).d2); | |
} | |
if(i===0) return ''; | |
var r = h$jsstringConvertArray(a.reverse()); | |
; | |
return r; | |
} | |
function h$jsstringPackArray(arr) { | |
; | |
return h$jsstringConvertArray(arr); | |
} | |
function h$jsstringPackArrayReverse(arr) { | |
; | |
return h$jsstringConvertArray(arr.reverse()); | |
} | |
function h$jsstringConvertArray(arr) { | |
if(arr.length < 60000) { | |
return String.fromCharCode.apply(null, arr); | |
} else { | |
var r = ''; | |
for(var i=0; i<arr.length; i+=60000) { | |
r += String.fromCharCode.apply(null, arr.slice(i, i+60000)); | |
} | |
return r; | |
} | |
} | |
function h$jsstringInit(str) { | |
; | |
var l = str.length; | |
if(l===0) return null; | |
var ch = str.charCodeAt(l-1); | |
var o = ((ch|1023)===0xDFFF)?2:1; | |
var r = str.substr(0, l-o); | |
return r; | |
} | |
function h$jsstringLast(str) { | |
; | |
var l = str.length; | |
if(l===0) return -1; | |
var ch = str.charCodeAt(l-1); | |
if(((ch|1023)===0xDFFF)) { | |
return (l>1) ? ((((str.charCodeAt(l-2))-0xD800)<<10)+(ch)-9216) : -1; | |
} else return ch; | |
} | |
// index is the last part of the character | |
function h$jsstringIndexR(i, str) { | |
; | |
if(i < 0 || i > str.length) return -1; | |
var ch = str.charCodeAt(i); | |
return (((ch|1023)===0xDFFF)) ? ((((str.charCodeAt(i-1))-0xD800)<<10)+(ch)-9216) : ch; | |
} | |
function h$jsstringNextIndex(i, str) { | |
; | |
return i + (((str.charCodeAt(i)|1023)===0xDBFF)?2:1); | |
} | |
function h$jsstringTake(n, str) { | |
; | |
if(n <= 0) return ''; | |
var i = 0, l = str.length, ch; | |
if(n >= l) return str; | |
while(n--) { | |
ch = str.charCodeAt(i++); | |
if(((ch|1023)===0xDBFF)) i++; | |
if(i >= l) return str; | |
} | |
return str.substr(0,i); | |
} | |
function h$jsstringDrop(n, str) { | |
; | |
if(n <= 0) return str; | |
var i = 0, l = str.length, ch; | |
if(n >= l) return ''; | |
while(n--) { | |
ch = str.charCodeAt(i++); | |
if(((ch|1023)===0xDBFF)) i++; | |
if(i >= l) return str; | |
} | |
return str.substr(i); | |
} | |
function h$jsstringSplitAt(n, str) { | |
; | |
if(n <= 0) { | |
{ h$ret1 = (str); return (""); }; | |
} else if(n >= str.length) { | |
{ h$ret1 = (""); return (str); }; | |
} | |
var i = 0, l = str.length, ch; | |
while(n--) { | |
ch = str.charCodeAt(i++); | |
if(((ch|1023)===0xDBFF)) i++; | |
if(i >= l) { | |
{ h$ret1 = (""); return (str); }; | |
} | |
} | |
{ h$ret1 = (str.substr(i)); return (str.substr(0,i)); }; | |
} | |
function h$jsstringTakeEnd(n, str) { | |
; | |
if(n <= 0) return ''; | |
var l = str.length, i = l-1, ch; | |
if(n >= l) return str; | |
while(n-- && i > 0) { | |
ch = str.charCodeAt(i--); | |
if(((ch|1023)===0xDFFF)) i--; | |
} | |
return (i<0) ? str : str.substr(i+1); | |
} | |
function h$jsstringDropEnd(n, str) { | |
; | |
if(n <= 0) return str; | |
var l = str.length, i = l-1, ch; | |
if(n >= l) return ''; | |
while(n-- && i > 0) { | |
ch = str.charCodeAt(i--); | |
if(((ch|1023)===0xDFFF)) i--; | |
} | |
return (i<0) ? '' : str.substr(0,i+1); | |
} | |
function h$jsstringIntercalate(x, ys) { | |
; | |
var a = [], i = 0; | |
while(((ys).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
if(i) a[i++] = x; | |
a[i++] = ((((ys).d1)).d1); | |
ys = ((ys).d2); | |
} | |
return a.join(''); | |
} | |
function h$jsstringIntersperse(ch, ys) { | |
; | |
var i = 0, l = ys.length, j = 0, a = [], ych; | |
if(((ch)>=0x10000)) { | |
var ch1 = ((((ch)-0x10000)>>>10)+0xDC00), ch2 = (((ch)&0x3FF)+0xD800); | |
while(j < l) { | |
if(i) { | |
a[i++] = ch1; | |
a[i++] = ch2; | |
} | |
ych = ys.charCodeAt(j++); | |
a[i++] = ych; | |
if(((ych|1023)===0xDBFF)) a[i++] = ys.charCodeAt(j++); | |
} | |
} else { | |
while(j < l) { | |
if(i) a[i++] = ch; | |
ych = ys.charCodeAt(j++); | |
a[i++] = ych; | |
if(((ych|1023)===0xDBFF)) a[i++] = ys.charCodeAt(j++); | |
} | |
} | |
return h$jsstringConvertArray(a); | |
} | |
function h$jsstringConcat(xs) { | |
; | |
var a = [], i = 0; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
a[i++] = ((((xs).d1)).d1); | |
xs = ((xs).d2); | |
} | |
return a.join(''); | |
} | |
var h$jsstringStripPrefix, h$jsstringStripSuffix, | |
h$jsstringIsPrefixOf, h$jsstringIsSuffixOf, | |
h$jsstringIsInfixOf; | |
if(String.prototype.startsWith) { | |
h$jsstringStripPrefix = function(p, x) { | |
; | |
if(x.startsWith(p)) { | |
return (h$c1(h$baseZCGHCziBaseziJust_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(p.length))))))); | |
} else { | |
return h$baseZCGHCziBaseziNothing; | |
} | |
} | |
h$jsstringIsPrefixOf = function(p, x) { | |
; | |
return x.startsWith(p); | |
} | |
} else { | |
h$jsstringStripPrefix = function(p, x) { | |
; | |
if(x.indexOf(p) === 0) { // this has worse complexity than it should | |
return (h$c1(h$baseZCGHCziBaseziJust_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(p.length))))))); | |
} else { | |
return h$baseZCGHCziBaseziNothing; | |
} | |
} | |
h$jsstringIsPrefixOf = function(p, x) { | |
; | |
return x.indexOf(p) === 0; // this has worse complexity than it should | |
} | |
} | |
if(String.prototype.endsWith) { | |
h$jsstringStripSuffix = function(s, x) { | |
; | |
if(x.endsWith(s)) { | |
return (h$c1(h$baseZCGHCziBaseziJust_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(0,x.length-s.length))))))); | |
} else { | |
return h$baseZCGHCziBaseziNothing; | |
} | |
} | |
h$jsstringIsSuffixOf = function(s, x) { | |
; | |
return x.endsWith(s); | |
} | |
} else { | |
h$jsstringStripSuffix = function(s, x) { | |
; | |
var i = x.lastIndexOf(s); // this has worse complexity than it should | |
var l = x.length - s.length; | |
if(i !== -1 && i === l) { | |
return (h$c1(h$baseZCGHCziBaseziJust_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(0,l))))))); | |
} else { | |
return h$baseZCGHCziBaseziNothing; | |
} | |
} | |
h$jsstringIsSuffixOf = function(s, x) { | |
; | |
var i = x.lastIndexOf(s); // this has worse complexity than it should | |
return i !== -1 && i === x.length - s.length; | |
} | |
} | |
if(String.prototype.includes) { | |
h$jsstringIsInfixOf = function(i, x) { | |
; | |
return x.includes(i); | |
} | |
} else { | |
h$jsstringIsInfixOf = function(i, x) { | |
; | |
return x.indexOf(i) !== -1; // this has worse complexity than it should | |
} | |
} | |
function h$jsstringCommonPrefixes(x, y) { | |
; | |
var lx = x.length, ly = y.length, i = 0, cx; | |
var l = lx <= ly ? lx : ly; | |
if(lx === 0 || ly === 0 || x.charCodeAt(0) !== y.charCodeAt(0)) { | |
return h$baseZCGHCziBaseziNothing; | |
} | |
while(++i<l) { | |
cx = x.charCodeAt(i); | |
if(cx !== y.charCodeAt(i)) { | |
if(((cx|1023)===0xDFFF)) i--; | |
break; | |
} | |
} | |
if(i===0) return h$baseZCGHCziBaseziNothing; | |
return (h$c1(h$baseZCGHCziBaseziJust_con_e, ((h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e,((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, ((i===lx)?x:((i===ly)?y:x.substr(0,i)))))),((i===lx) ? h$jsstringEmpty : (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(i))))),((i===ly) ? h$jsstringEmpty : (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (y.substr(i)))))))))); | |
} | |
function h$jsstringBreakOn(b, x) { | |
; | |
var i = x.indexOf(b); | |
if(i===-1) { | |
{ h$ret1 = (""); return (x); }; | |
} | |
if(i===0) { | |
{ h$ret1 = (x); return (""); }; | |
} | |
{ h$ret1 = (x.substr(i)); return (x.substr(0,i)); }; | |
} | |
function h$jsstringBreakOnEnd(b, x) { | |
; | |
var i = x.lastIndexOf(b); | |
if(i===-1) { | |
{ h$ret1 = (x); return (""); }; | |
} | |
i += b.length; | |
{ h$ret1 = (x.substr(i)); return (x.substr(0,i)); }; | |
} | |
function h$jsstringBreakOnAll1(n, b, x) { | |
; | |
var i = x.indexOf(b, n); | |
if(i===0) { | |
{ h$ret1 = (""); h$ret2 = (x); return (b.length); }; | |
} | |
if(i===-1) { | |
{ h$ret1 = (null); h$ret2 = (null); return (-1); }; | |
} | |
{ h$ret1 = (x.substr(0,i)); h$ret2 = (x.substr(i)); return (i+b.length); }; | |
} | |
function h$jsstringBreakOnAll(pat, src) { | |
; | |
var a = [], i = 0, n = 0, r = h$ghczmprimZCGHCziTypesziZMZN, pl = pat.length; | |
while(true) { | |
var x = src.indexOf(pat, n); | |
if(x === -1) break; | |
a[i++] = (h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e,((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (src.substr(0,x))))),((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (src.substr(x))))))); | |
n = x + pl; | |
} | |
while(--i >= 0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, (a[i]), (r))); | |
return r; | |
} | |
function h$jsstringSplitOn1(n, p, x) { | |
; | |
var i = x.indexOf(p, n); | |
if(i === -1) { | |
{ h$ret1 = (null); return (-1); }; | |
} | |
var r1 = (i==n) ? "" : x.substr(n, i-n); | |
{ h$ret1 = (r1); return (i + p.length); }; | |
} | |
function h$jsstringSplitOn(p, x) { | |
; | |
var a = x.split(p); | |
var r = h$ghczmprimZCGHCziTypesziZMZN, i = a.length; | |
while(--i>=0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (a[i])))), (r))); | |
return r; | |
} | |
// returns -1 for end of input, start of next token otherwise | |
// word in h$ret1 | |
// this function assumes that there are no whitespace characters >= 0x10000 | |
function h$jsstringWords1(n, x) { | |
; | |
var m = n, s = n, l = x.length; | |
if(m >= l) return -1; | |
// skip leading spaces | |
do { | |
if(m >= l) return -1; | |
} while(h$isSpace(x.charCodeAt(m++))); | |
// found start of word | |
s = m - 1; | |
while(m < l) { | |
if(h$isSpace(x.charCodeAt(m++))) { | |
// found end of word | |
var r1 = (m-s<=1) ? "" : x.substr(s,m-s-1); | |
{ h$ret1 = (r1); return (m); }; | |
} | |
} | |
// end of string | |
if(s < l) { | |
var r1 = s === 0 ? x : x.substr(s); | |
{ h$ret1 = (r1); return (m); }; | |
} | |
{ h$ret1 = (null); return (-1); }; | |
} | |
function h$jsstringWords(x) { | |
; | |
var a = null, i = 0, n, s = -1, m = 0, w, l = x.length, r = h$ghczmprimZCGHCziTypesziZMZN; | |
outer: | |
while(m < l) { | |
// skip leading spaces | |
do { | |
if(m >= l) { s = m; break outer; } | |
} while(h$isSpace(x.charCodeAt(m++))); | |
// found start of word | |
s = m - 1; | |
while(m < l) { | |
if(h$isSpace(x.charCodeAt(m++))) { | |
// found end of word | |
w = (m-s<=1) ? h$jsstringEmpty | |
: (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(s,m-s-1)))); | |
if(i) a[i++] = w; else { a = [w]; i = 1; } | |
s = m; | |
break; | |
} | |
} | |
} | |
// end of string | |
if(s !== -1 && s < l) { | |
w = (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (s === 0 ? x : x.substr(s)))); | |
if(i) a[i++] = w; else { a = [w]; i = 1; } | |
} | |
// build resulting list | |
while(--i>=0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, (a[i]), (r))); | |
return r; | |
} | |
// returns -1 for end of input, start of next token otherwise | |
// line in h$ret1 | |
function h$jsstringLines1(n, x) { | |
; | |
var m = n, l = x.length; | |
if(n >= l) return -1; | |
while(m < l) { | |
if(x.charCodeAt(m++) === 10) { | |
// found newline | |
if(n > 0 && n === l-1) return -1; // it was the last character | |
var r1 = (m-n<=1) ? "" : x.substr(n,m-n-1); | |
{ h$ret1 = (r1); return (m); }; | |
} | |
} | |
// end of string | |
{ h$ret1 = (x.substr(n)); return (m); }; | |
} | |
function h$jsstringLines(x) { | |
; | |
var a = null, m = 0, i = 0, l = x.length, s = 0, r = h$ghczmprimZCGHCziTypesziZMZN, w; | |
if(l === 0) return h$ghczmprimZCGHCziTypesziZMZN; | |
outer: | |
while(true) { | |
s = m; | |
do { | |
if(m >= l) break outer; | |
} while(x.charCodeAt(m++) !== 10); | |
w = (m-s<=1) ? h$jsstringEmpty : (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(s,m-s-1)))); | |
if(i) a[i++] = w; else { a = [w]; i = 1; } | |
} | |
if(s < l) { | |
w = (h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(s)))); | |
if(i) a[i++] = w; else { a = [w]; i = 1; } | |
} | |
while(--i>=0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, (a[i]), (r))); | |
return r; | |
} | |
function h$jsstringGroup(x) { | |
; | |
var xl = x.length; | |
if(xl === 0) return h$ghczmprimZCGHCziTypesziZMZN; | |
var i = xl-1, si, ch, s=xl, r=h$ghczmprimZCGHCziTypesziZMZN; | |
var tch = x.charCodeAt(i--); | |
if(((tch|1023)===0xDFFF)) tch = ((((x.charCodeAt(i--))-0xD800)<<10)+(tch)-9216); | |
while(i >= 0) { | |
si = i; | |
ch = x.charCodeAt(i--); | |
if(((ch|1023)===0xDFFF)) { | |
ch = ((((x.charCodeAt(i--))-0xD800)<<10)+(ch)-9216); | |
} | |
if(ch != tch) { | |
tch = ch; | |
r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(si+1,s-si))))), (r))); | |
s = si; | |
} | |
} | |
return (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(0,s+1))))), (r))); | |
} | |
function h$jsstringChunksOf1(n, s, x) { | |
; | |
var m = s, c = 0, l = x.length, ch; | |
if(n <= 0 || l === 0 || s >= l) return -1 | |
while(++m < l && ++c < n) { | |
ch = x.charCodeAt(m); | |
if(((ch|1023)===0xDBFF)) ++m; | |
} | |
var r1 = (m >= l && s === c) ? x : x.substr(s,m-s); | |
{ h$ret1 = (r1); return (m); }; | |
} | |
function h$jsstringChunksOf(n, x) { | |
; | |
var l = x.length; | |
if(l===0 || n <= 0) return h$ghczmprimZCGHCziTypesziZMZN; | |
if(l <= n) return (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x)))), (h$ghczmprimZCGHCziTypesziZMZN))); | |
var a = [], i = 0, s = 0, ch, m = 0, c, r = h$ghczmprimZCGHCziTypesziZMZN; | |
while(m < l) { | |
s = m; | |
c = 0; | |
while(m < l && ++c <= n) { | |
ch = x.charCodeAt(m++); | |
if(((ch|1023)===0xDBFF)) ++m; | |
} | |
if(c) a[i++] = x.substr(s, m-s); | |
} | |
while(--i>=0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (a[i])))), (r))); | |
return r; | |
} | |
function h$jsstringCount(pat, src) { | |
; | |
var i = 0, n = 0, pl = pat.length, sl = src.length; | |
while(i<sl) { | |
i = src.indexOf(pat, i); | |
if(i===-1) break; | |
n++; | |
i += pl; | |
} | |
return n; | |
} | |
function h$jsstringReplicate(n, str) { | |
; | |
if(n === 0 || str == '') return ''; | |
if(n === 1) return str; | |
var r = ''; | |
do { | |
if(n&1) r+=str; | |
str+=str; | |
n >>= 1; | |
} while(n > 1); | |
return r+str; | |
} | |
// this does not deal with combining diacritics, Data.Text does not either | |
var h$jsstringReverse; | |
if(Array.from) { | |
h$jsstringReverse = function(str) { | |
; | |
return Array.from(str).reverse().join(''); | |
} | |
} else { | |
h$jsstringReverse = function(str) { | |
; | |
var l = str.length, a = [], o = 0, i = 0, c, c1, s = ''; | |
while(i < l) { | |
c = str.charCodeAt(i); | |
if(((c|1023)===0xDBFF)) { | |
a[i] = str.charCodeAt(i+1); | |
a[i+1] = c; | |
i += 2; | |
} else a[i++] = c; | |
if(i-o > 60000) { | |
s = String.fromCharCode.apply(null, a.reverse()) + s; | |
o = -i; | |
a = []; | |
} | |
} | |
return (i===0) ? s : String.fromCharCode.apply(null,a.reverse()) + s; | |
} | |
} | |
function h$jsstringUnpack(str) { | |
; | |
var r = h$ghczmprimZCGHCziTypesziZMZN, i = str.length-1, c; | |
while(i >= 0) { | |
c = str.charCodeAt(i--); | |
if(((c|1023)===0xDFFF)) c = ((((str.charCodeAt(i--))-0xD800)<<10)+(c)-9216) | |
r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, (c), (r))); | |
} | |
return r; | |
} | |
function h$jsstringDecI64(hi,lo) { | |
; | |
var lo0 = (lo < 0) ? lo+4294967296:lo; | |
if(hi < 0) { | |
if(hi === -1) return ''+(lo0-4294967296); | |
lo0 = 4294967296 - lo0; | |
var hi0 = -1 - hi; | |
var x0 = hi0 * 967296; | |
var x1 = (lo0 + x0) % 1000000; | |
var x2 = hi0*4294+Math.floor((x0+lo0-x1)/1000000); | |
return '-' + x2 + h$jsstringDecIPadded6(x1); | |
} else { | |
if(hi === 0) return ''+lo0; | |
var x0 = hi * 967296; | |
var x1 = (lo0 + x0) % 1000000; | |
var x2 = hi*4294+Math.floor((x0+lo0-x1)/1000000); | |
return '' + x2 + h$jsstringDecIPadded6(x1); | |
} | |
} | |
function h$jsstringDecW64(hi,lo) { | |
; | |
var lo0 = (lo < 0) ? lo+4294967296 : lo; | |
if(hi === 0) return ''+lo0; | |
var hi0 = (hi < 0) ? hi+4294967296 : hi; | |
var x0 = hi0 * 967296; | |
var x1 = (lo0 + x0) % 1000000; | |
var x2 = hi0*4294+Math.floor((x0+lo0-x1)/1000000); | |
return '' + x2 + h$jsstringDecIPadded6(x1); | |
} | |
function h$jsstringHexI64(hi,lo) { | |
var lo0 = lo<0 ? lo+4294967296 : lo; | |
if(hi === 0) return lo0.toString(16); | |
return ((hi<0)?hi+4294967296:hi).toString(16) + h$jsstringHexIPadded8(lo0); | |
} | |
function h$jsstringHexW64(hi,lo) { | |
var lo0 = lo<0 ? lo+4294967296 : lo; | |
if(hi === 0) return lo0.toString(16); | |
return ((hi<0)?hi+4294967296:hi).toString(16) + h$jsstringHexIPadded8(lo0); | |
} | |
// n in [0, 1000000000) | |
function h$jsstringDecIPadded9(n) { | |
; | |
if(n === 0) return '000000000'; | |
var pad = (n>=100000000)?'': | |
(n>=10000000)?'0': | |
(n>=1000000)?'00': | |
(n>=100000)?'000': | |
(n>=10000)?'0000': | |
(n>=1000)?'00000': | |
(n>=100)?'000000': | |
(n>=10)?'0000000': | |
'00000000'; | |
return pad+n; | |
} | |
// n in [0, 1000000) | |
function h$jsstringDecIPadded6(n) { | |
; | |
if(n === 0) return '000000'; | |
var pad = (n>=100000)?'': | |
(n>=10000)?'0': | |
(n>=1000)?'00': | |
(n>=100)?'000': | |
(n>=10)?'0000': | |
'00000'; | |
return pad+n; | |
} | |
// n in [0, 2147483648) | |
function h$jsstringHexIPadded8(n) { | |
; | |
if(n === 0) return '00000000'; | |
var pad = (n>=0x10000000)?'': | |
(n>=0x1000000)?'0': | |
(n>=0x100000)?'00': | |
(n>=0x10000)?'000': | |
(n>=0x1000)?'0000': | |
(n>=0x100)?'00000': | |
(n>=0x10)?'000000': | |
'0000000'; | |
return pad+n.toString(16); | |
} | |
function h$jsstringZeroes(n) { | |
var r; | |
switch(n&7) { | |
case 0: r = ''; break; | |
case 1: r = '0'; break; | |
case 2: r = '00'; break; | |
case 3: r = '000'; break; | |
case 4: r = '0000'; break; | |
case 5: r = '00000'; break; | |
case 6: r = '000000'; break; | |
case 7: r = '0000000'; | |
} | |
for(var i=n>>3;i>0;i--) r = r + '00000000'; | |
return r; | |
} | |
function h$jsstringDoubleToFixed(decs, d) { | |
if(decs >= 0) { | |
if(Math.abs(d) < 1e21) { | |
var r = d.toFixed(Math.min(20,decs)); | |
if(decs > 20) r = r + h$jsstringZeroes(decs-20); | |
return r; | |
} else { | |
var r = d.toExponential(); | |
var ei = r.indexOf('e'); | |
var di = r.indexOf('.'); | |
var e = parseInt(r.substr(ei+1)); | |
return r.substring(0,di) + r.substring(di,ei) + h$jsstringZeroes(di-ei+e) + | |
((decs > 0) ? ('.' + h$jsstringZeroes(decs)) : ''); | |
} | |
} | |
var r = Math.abs(d).toExponential(); | |
var ei = r.indexOf('e'); | |
var e = parseInt(r.substr(ei+1)); | |
var m = d < 0 ? '-' : ''; | |
r = r.substr(0,1) + r.substring(2,ei); | |
if(e >= 0) { | |
return (e > r.length) ? m + r + h$jsstringZeroes(r.length-e-1) + '.0' | |
: m + r.substr(0,e+1) + '.' + r.substr(e+1); | |
} else { | |
return m + '0.' + h$jsstringZeroes(-e-1) + r; | |
} | |
} | |
function h$jsstringDoubleToExponent(decs, d) { | |
var r; | |
if(decs ===-1) { | |
r = d.toExponential().replace('+',''); | |
} else { | |
r = d.toExponential(Math.max(1, Math.min(20,decs))).replace('+',''); | |
} | |
if(r.indexOf('.') === -1) { | |
r = r.replace('e', '.0e'); | |
} | |
if(decs > 20) r = r.replace('e', h$jsstringZeroes(decs-20)+'e'); | |
return r; | |
} | |
function h$jsstringDoubleGeneric(decs, d) { | |
var r; | |
if(decs === -1) { | |
r = d.toString(10).replace('+',''); | |
} else { | |
r = d.toPrecision(Math.max(decs+1,1)).replace('+',''); | |
} | |
if(decs !== 0 && r.indexOf('.') === -1) { | |
if(r.indexOf('e') !== -1) { | |
r = r.replace('e', '.0e'); | |
} else { | |
r = r + '.0'; | |
} | |
} | |
return r; | |
} | |
function h$jsstringAppend(x, y) { | |
; | |
return x+y; | |
} | |
function h$jsstringCompare(x, y) { | |
; | |
return (x<y)?-1:((x>y)?1:0); | |
} | |
function h$jsstringUnlines(xs) { | |
var r = ''; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
r = r + ((((xs).d1)).d1) + '\n'; | |
xs = ((xs).d2); | |
} | |
return r; | |
} | |
function h$jsstringUnwords(xs) { | |
if(((xs).f === h$ghczmprimZCGHCziTypesziZMZN_con_e)) return ''; | |
var r = ((((xs).d1)).d1); | |
xs = ((xs).d2); | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
r = r + ' ' + ((((xs).d1)).d1); | |
xs = ((xs).d2); | |
} | |
return r; | |
} | |
function h$jsstringReplace(pat, rep, src) { | |
; | |
var r = src.replace(pat, rep, 'g'); | |
// the 'g' flag is not supported everywhere, check and fall back if necessary | |
if(r.indexOf(pat) !== -1) { | |
r = src.split(pat).join(rep); | |
} | |
return r; | |
} | |
function h$jsstringReplicateChar(n, ch) { | |
; | |
return h$jsstringReplicate(n, h$jsstringSingleton(ch)); | |
} | |
function h$jsstringIsInteger(str) { | |
return /^-?\d+$/.test(str); | |
} | |
function h$jsstringIsNatural(str) { | |
return /^\d+$/.test(str); | |
} | |
function h$jsstringReadInt(str) { | |
if(!/^-?\d+/.test(str)) return null; | |
var x = parseInt(str, 10); | |
var x0 = x|0; | |
return (x===x0) ? x0 : null; | |
} | |
function h$jsstringLenientReadInt(str) { | |
var x = parseInt(str, 10); | |
var x0 = x|0; | |
return (x===x0) ? x0 : null; | |
} | |
function h$jsstringReadWord(str) { | |
if(!/^\d+/.test(str)) return null; | |
var x = parseInt(str, 10); | |
var x0 = x|0; | |
if(x0<0) return (x===x0+2147483648) ? x0 : null; | |
else return (x===x0) ? x0 : null; | |
} | |
function h$jsstringReadDouble(str) { | |
return parseFloat(str, 10); | |
} | |
function h$jsstringLenientReadDouble(str) { | |
return parseFloat(str, 10); | |
} | |
function h$jsstringReadInteger(str) { | |
; | |
if(!/^(-)?\d+$/.test(str)) { | |
return null; | |
} else if(str.length <= 9) { | |
return (h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (parseInt(str, 10))));; | |
} else { | |
return MK_INTEGER_J(new BigInteger(str, 10)); | |
} | |
} | |
function h$jsstringReadInt64(str) { | |
if(!/^(-)?\d+$/.test(str)) { | |
{ h$ret1 = (0); h$ret2 = (0); return (0); }; | |
} | |
if(str.charCodeAt(0) === 45) { // '-' | |
return h$jsstringReadValue64(str, 1, true); | |
} else { | |
return h$jsstringReadValue64(str, 0, false); | |
} | |
} | |
function h$jsstringReadWord64(str) { | |
if(!/^\d+$/.test(str)) { | |
{ h$ret1 = (0); h$ret2 = (0); return (0); }; | |
} | |
return h$jsstringReadValue64(str, 0, false); | |
} | |
var h$jsstringLongs = null; | |
function h$jsstringReadValue64(str, start, negate) { | |
var l = str.length, i = start; | |
while(i < l) { | |
if(str.charCodeAt(i) !== 48) break; | |
i++; | |
} | |
if(i >= l) { h$ret1 = (0); h$ret2 = (0); return (1); }; // only zeroes | |
if(h$jsstringLongs === null) { | |
h$jsstringLongs = []; | |
for(var t=10; t<=1000000000; t*=10) { | |
h$jsstringLongs.push(goog.math.Long.fromInt(t)); | |
} | |
} | |
var li = l-i; | |
if(li < 10 && !negate) { | |
{ h$ret1 = (0); h$ret2 = (parseInt(str.substr(i), 10)); return (1); }; | |
} | |
var r = goog.math.Long.fromInt(parseInt(str.substr(li,9),10)); | |
li += 9; | |
while(li < l) { | |
r = r.multiply(h$jsstringLongs[Math.min(l-li-1,8)]) | |
.add(goog.math.Long.fromInt(parseInt(str.substr(li,9), 10))); | |
li += 9; | |
} | |
if(negate) { | |
r = r.negate(); | |
} | |
{ h$ret1 = (r.getHighBits()); h$ret2 = (r.getLowBits()); return (1); }; | |
} | |
function h$jsstringExecRE(i, str, re) { | |
re.lastIndex = i; | |
var m = re.exec(str); | |
if(m === null) return -1; | |
var a = [], x, j = 1, r = h$ghczmprimZCGHCziTypesziZMZN; | |
while(true) { | |
x = m[j]; | |
if(typeof x === 'undefined') break; | |
a[j-1] = x; | |
j++; | |
} | |
j-=1; | |
while(--j>=0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (a[j])))), (r))); | |
{ h$ret1 = (m[0]); h$ret2 = (r); return (m.index); }; | |
} | |
function h$jsstringReplaceRE(pat, replacement, str) { | |
return str.replace(pat, replacement); | |
} | |
function h$jsstringSplitRE(limit, re, str) { | |
re.lastIndex = i; | |
var s = (limit < 0) ? str.split(re) : str.split(re, limit); | |
var i = s.length, r = h$ghczmprimZCGHCziTypesziZMZN; | |
while(--i>=0) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (a[i])))), (r))); | |
return r; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
/* | |
* Functions that directly access JavaScript strings, ignoring character | |
* widths and surrogate pairs. | |
*/ | |
function h$jsstringRawChunksOf(k, x) { | |
var l = x.length; | |
if(l === 0) return h$ghczmprimZCGHCziTypesziZMZN; | |
if(l <= k) return (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x)))), (h$ghczmprimZCGHCziTypesziZMZN))); | |
var r=h$ghczmprimZCGHCziTypesziZMZN; | |
for(var i=ls-k;i>=0;i-=k) r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(i,i+k))))), (r))); | |
return r; | |
} | |
function h$jsstringRawSplitAt(k, x) { | |
if(k === 0) return (h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e,(h$jsstringEmpty),((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x)))))); | |
if(k >= x.length) return (h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e,((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x)))),(h$jsstringEmpty))); | |
return (h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e,((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(0,k))))),((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (x.substr(k))))))); | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$foreignListProps(o) { | |
var r = HS_NIL; | |
if(typeof o === 'undefined' || o === null) return null; | |
throw "h$foreignListProps"; | |
/* for(var p in o) { | |
} */ | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// conversion between JavaScript string and Data.Text | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
/* | |
convert a Data.Text buffer with offset/length to a JavaScript string | |
*/ | |
function h$textToString(arr, off, len) { | |
var a = []; | |
var end = off+len; | |
var k = 0; | |
var u1 = arr.u1; | |
var s = ''; | |
for(var i=off;i<end;i++) { | |
var cc = u1[i]; | |
a[k++] = cc; | |
if(k === 60000) { | |
s += String.fromCharCode.apply(this, a); | |
k = 0; | |
a = []; | |
} | |
} | |
return s + String.fromCharCode.apply(this, a); | |
} | |
/* | |
convert a JavaScript string to a Data.Text buffer, second return | |
value is length | |
*/ | |
function h$textFromString(s) { | |
var l = s.length; | |
var b = h$newByteArray(l * 2); | |
var u1 = b.u1; | |
for(var i=l-1;i>=0;i--) u1[i] = s.charCodeAt(i); | |
{ h$ret1 = (l); return (b); }; | |
} | |
function h$lazyTextToString(txt) { | |
var s = ''; | |
while(((txt).f.a === 2)) { | |
var head = ((txt)); | |
s += h$textToString(((head).d1), ((head).d2.d1), ((head).d2.d2)); | |
txt = ((txt).d2.d3); | |
} | |
return s; | |
} | |
function h$safeTextFromString(x) { | |
if(typeof x !== 'string') { | |
{ h$ret1 = (0); return (null); }; | |
} | |
return h$textFromString(x); | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
function h$allProps(o) { | |
var a = [], i = 0; | |
for(var p in o) a[i++] = p; | |
return a; | |
} | |
function h$listAllProps(o) { | |
var r = h$ghczmprimZCGHCziTypesziZMZN; | |
for(var p in o) { r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (p)))), (r))); } | |
return r; | |
} | |
function h$listAssocs(o) { | |
var r = h$ghczmprimZCGHCziTypesziZMZN; | |
for(var p in o) { r = (h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e,((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (p)))),((h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, (o[p]))))))), (r))); } | |
return r; | |
} | |
function h$isNumber(o) { | |
return typeof(o) === 'number'; | |
} | |
// returns true for null, but not for functions and host objects | |
function h$isObject(o) { | |
return typeof(o) === 'object'; | |
} | |
function h$isString(o) { | |
return typeof(o) === 'string'; | |
} | |
function h$isSymbol(o) { | |
return typeof(o) === 'symbol'; | |
} | |
function h$isBoolean(o) { | |
return typeof(o) === 'boolean'; | |
} | |
function h$isFunction(o) { | |
return typeof(o) === 'function'; | |
} | |
function h$jsTypeOf(o) { | |
var t = typeof(o); | |
if(t === 'undefined') return 0; | |
if(t === 'object') return 1; | |
if(t === 'boolean') return 2; | |
if(t === 'number') return 3; | |
if(t === 'string') return 4; | |
if(t === 'symbol') return 5; | |
if(t === 'function') return 6; | |
return 7; // other, host object etc | |
} | |
/* | |
-- 0 - null, 1 - integer, | |
-- 2 - float, 3 - bool, | |
-- 4 - string, 5 - array | |
-- 6 - object | |
*/ | |
function h$jsonTypeOf(o) { | |
if (!(o instanceof Object)) { | |
if (o == null) { | |
return 0; | |
} else if (typeof o == 'number') { | |
if (h$isInteger(o)) { | |
return 1; | |
} else { | |
return 2; | |
} | |
} else if (typeof o == 'boolean') { | |
return 3; | |
} else { | |
return 4; | |
} | |
} else { | |
if (Object.prototype.toString.call(o) == '[object Array]') { | |
// it's an array | |
return 5; | |
} else if (!o) { | |
// null | |
return 0; | |
} else { | |
// it's an object | |
return 6; | |
} | |
} | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$sendXHR(xhr, d, cont) { | |
xhr.addEventListener('error', function () { | |
cont(2); | |
}); | |
xhr.addEventListener('abort', function() { | |
cont(1); | |
}); | |
xhr.addEventListener('load', function() { | |
cont(0); | |
}); | |
if(d) { | |
xhr.send(d); | |
} else { | |
xhr.send(); | |
} | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$hsprimitive_memcpy(dst_d, dst_o, doff, src_d, src_o, soff, len) { | |
return h$primitive_memmove(dst_d, dst_o, doff, src_d, src_o, len); | |
} | |
function h$hsprimitive_memmove(dst_d, dst_o, doff, src_d, src_o, soff, len) { | |
if(len === 0) return; | |
var du8 = dst_d.u8, su8 = src_d.u8; | |
for(var i=len-1;i>=0;i--) { | |
du8[dst_o+i] = su8[src_o+i]; | |
} | |
} | |
function h$hsprimitive_memsetba_Word8 (p_d, off, n, x) { if(n > 0) { if(p_d.u8.fill) p_d.u8.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.u8[i] = x; } } | |
function h$hsprimitive_memsetba_Word16 (p_d, off, n, x) { if(n > 0) { if(p_d.u1.fill) p_d.u1.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.u1[i] = x; } } | |
function h$hsprimitive_memsetba_Word32 (p_d, off, n, x) { if(n > 0) { if(p_d.i3.fill) p_d.i3.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.i3[i] = x; } } | |
function h$hsprimitive_memsetba_Word (p_d, off, n, x) { if(n > 0) { if(p_d.i3.fill) p_d.i3.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.i3[i] = x; } } | |
function h$hsprimitive_memsetba_Float (p_d, off, n, x) { if(n > 0) { if(p_d.f3.fill) p_d.f3.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.f3[i] = x; } } | |
function h$hsprimitive_memsetba_Double (p_d, off, n, x) { if(n > 0) { if(p_d.f6.fill) p_d.f6.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.f6[i] = x; } } | |
function h$hsprimitive_memsetba_Char (p_d, off, n, x) { if(n > 0) { if(p_d.i3.fill) p_d.i3.fill(x, off, off + n); else for(var i=off; i<off+n; i++) p_d.i3[i] = x; } } | |
function h$hsprimitive_memset_Word8 (p_d, p_o, off, n, x) { var start = (p_o >> 0) + off; if(n > 0) { if(p_d.u8.fill) p_d.u8.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.u8[i] = x; } } | |
function h$hsprimitive_memset_Word16 (p_d, p_o, off, n, x) { var start = (p_o >> 1) + off; if(n > 0) { if(p_d.u1.fill) p_d.u1.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.u1[i] = x; } } | |
function h$hsprimitive_memset_Word32 (p_d, p_o, off, n, x) { var start = (p_o >> 2) + off; if(n > 0) { if(p_d.i3.fill) p_d.i3.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.i3[i] = x; } } | |
function h$hsprimitive_memset_Word (p_d, p_o, off, n, x) { var start = (p_o >> 2) + off; if(n > 0) { if(p_d.i3.fill) p_d.i3.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.i3[i] = x; } } | |
function h$hsprimitive_memset_Float (p_d, p_o, off, n, x) { var start = (p_o >> 2) + off; if(n > 0) { if(p_d.f3.fill) p_d.f3.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.f3[i] = x; } } | |
function h$hsprimitive_memset_Double (p_d, p_o, off, n, x) { var start = (p_o >> 3) + off; if(n > 0) { if(p_d.f6.fill) p_d.f6.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.f6[i] = x; } } | |
function h$hsprimitive_memset_Char (p_d, p_o, off, n, x) { var start = (p_o >> 2) + off; if(n > 0) { if(p_d.i3.fill) p_d.i3.fill(x, start, start + n); else for(var i=start; i<start+n; i++) p_d.i3[i] = x; } } | |
function h$hsprimitive_memsetba_Word64(p_d, off, n, x_1, x_2) { | |
h$hsprimitive_memset_Word64(p_d, 0, off, n, x_1, x_2); | |
} | |
function h$hsprimitive_memset_Word64(p_d, p_o, off, n, x_1, x_2) { | |
var start = (p_o >> 3) + off; | |
if(n > 0) { | |
var pi3 = p_d.i3; | |
for(var i = 0; i < n; i++) { | |
var o = (start + i) << 1; | |
pi3[o] = x_1; | |
pi3[o+1] = x_2; | |
} | |
} | |
} | |
function h$hsprimitive_memset_Ptr(p_d, p_o, off, n, x_1, x_2) { | |
if(n > 0) { | |
if(!p_d.arr) p_d.arr = []; | |
var a = p_d.arr; | |
for(var i = 0; i < n; i++) { | |
a[p_o + ((off + i) << 2)] = [x_1, x_2]; | |
} | |
} | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// Copyright 2011 The Closure Library Authors. All Rights Reserved. | |
// | |
// Licensed under the Apache License, Version 2.0 (the "License"); | |
// you may not use this file except in compliance with the License. | |
// You may obtain a copy of the License at | |
// | |
// http://www.apache.org/licenses/LICENSE-2.0 | |
// | |
// Unless required by applicable law or agreed to in writing, software | |
// distributed under the License is distributed on an "AS-IS" BASIS, | |
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |
// See the License for the specific language governing permissions and | |
// limitations under the License. | |
/** | |
* @fileoverview Abstract cryptographic hash interface. | |
* | |
* See goog.crypt.Sha1 and goog.crypt.Md5 for sample implementations. | |
* | |
*/ | |
goog.provide('goog.crypt.Hash'); | |
/** | |
* Create a cryptographic hash instance. | |
* | |
* @constructor | |
* @struct | |
*/ | |
goog.crypt.Hash = function() { | |
/** | |
* The block size for the hasher. | |
* @type {number} | |
*/ | |
this.blockSize = -1; | |
}; | |
/** | |
* Resets the internal accumulator. | |
*/ | |
goog.crypt.Hash.prototype.reset = goog.abstractMethod; | |
/** | |
* Adds a byte array (array with values in [0-255] range) or a string (might | |
* only contain 8-bit, i.e., Latin1 characters) to the internal accumulator. | |
* | |
* Many hash functions operate on blocks of data and implement optimizations | |
* when a full chunk of data is readily available. Hence it is often preferable | |
* to provide large chunks of data (a kilobyte or more) than to repeatedly | |
* call the update method with few tens of bytes. If this is not possible, or | |
* not feasible, it might be good to provide data in multiplies of hash block | |
* size (often 64 bytes). Please see the implementation and performance tests | |
* of your favourite hash. | |
* | |
* @param {Array<number>|Uint8Array|string} bytes Data used for the update. | |
* @param {number=} opt_length Number of bytes to use. | |
*/ | |
goog.crypt.Hash.prototype.update = goog.abstractMethod; | |
/** | |
* @return {!Array<number>} The finalized hash computed | |
* from the internal accumulator. | |
*/ | |
goog.crypt.Hash.prototype.digest = goog.abstractMethod; | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// Copyright 2011 The Closure Library Authors. All Rights Reserved. | |
// | |
// Licensed under the Apache License, Version 2.0 (the "License"); | |
// you may not use this file except in compliance with the License. | |
// You may obtain a copy of the License at | |
// | |
// http://www.apache.org/licenses/LICENSE-2.0 | |
// | |
// Unless required by applicable law or agreed to in writing, software | |
// distributed under the License is distributed on an "AS-IS" BASIS, | |
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |
// See the License for the specific language governing permissions and | |
// limitations under the License. | |
/** | |
* @fileoverview MD5 cryptographic hash. | |
* Implementation of http://tools.ietf.org/html/rfc1321 with common | |
* optimizations and tweaks (see http://en.wikipedia.org/wiki/MD5). | |
* | |
* Usage: | |
* var md5 = new goog.crypt.Md5(); | |
* md5.update(bytes); | |
* var hash = md5.digest(); | |
* | |
* Performance: | |
* Chrome 23 ~680 Mbit/s | |
* Chrome 13 (in a VM) ~250 Mbit/s | |
* Firefox 6.0 (in a VM) ~100 Mbit/s | |
* IE9 (in a VM) ~27 Mbit/s | |
* Firefox 3.6 ~15 Mbit/s | |
* IE8 (in a VM) ~13 Mbit/s | |
* | |
*/ | |
goog.provide('goog.crypt.Md5'); | |
goog.require('goog.crypt.Hash'); | |
/** | |
* MD5 cryptographic hash constructor. | |
* @constructor | |
* @extends {goog.crypt.Hash} | |
* @final | |
* @struct | |
*/ | |
goog.crypt.Md5 = function() { | |
goog.crypt.Md5.base(this, 'constructor'); | |
this.blockSize = 512 / 8; | |
/** | |
* Holds the current values of accumulated A-D variables (MD buffer). | |
* @type {!Array<number>} | |
* @private | |
*/ | |
this.chain_ = new Array(4); | |
/** | |
* A buffer holding the data until the whole block can be processed. | |
* @type {!Array<number>} | |
* @private | |
*/ | |
this.block_ = new Array(this.blockSize); | |
/** | |
* The length of yet-unprocessed data as collected in the block. | |
* @type {number} | |
* @private | |
*/ | |
this.blockLength_ = 0; | |
/** | |
* The total length of the message so far. | |
* @type {number} | |
* @private | |
*/ | |
this.totalLength_ = 0; | |
this.reset(); | |
}; | |
goog.inherits(goog.crypt.Md5, goog.crypt.Hash); | |
/** | |
* Integer rotation constants used by the abbreviated implementation. | |
* They are hardcoded in the unrolled implementation, so it is left | |
* here commented out. | |
* @type {Array<number>} | |
* @private | |
* | |
goog.crypt.Md5.S_ = [ | |
7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22, | |
5, 9, 14, 20, 5, 9, 14, 20, 5, 9, 14, 20, 5, 9, 14, 20, | |
4, 11, 16, 23, 4, 11, 16, 23, 4, 11, 16, 23, 4, 11, 16, 23, | |
6, 10, 15, 21, 6, 10, 15, 21, 6, 10, 15, 21, 6, 10, 15, 21 | |
]; | |
*/ | |
/** | |
* Sine function constants used by the abbreviated implementation. | |
* They are hardcoded in the unrolled implementation, so it is left | |
* here commented out. | |
* @type {Array<number>} | |
* @private | |
* | |
goog.crypt.Md5.T_ = [ | |
0xd76aa478, 0xe8c7b756, 0x242070db, 0xc1bdceee, | |
0xf57c0faf, 0x4787c62a, 0xa8304613, 0xfd469501, | |
0x698098d8, 0x8b44f7af, 0xffff5bb1, 0x895cd7be, | |
0x6b901122, 0xfd987193, 0xa679438e, 0x49b40821, | |
0xf61e2562, 0xc040b340, 0x265e5a51, 0xe9b6c7aa, | |
0xd62f105d, 0x02441453, 0xd8a1e681, 0xe7d3fbc8, | |
0x21e1cde6, 0xc33707d6, 0xf4d50d87, 0x455a14ed, | |
0xa9e3e905, 0xfcefa3f8, 0x676f02d9, 0x8d2a4c8a, | |
0xfffa3942, 0x8771f681, 0x6d9d6122, 0xfde5380c, | |
0xa4beea44, 0x4bdecfa9, 0xf6bb4b60, 0xbebfbc70, | |
0x289b7ec6, 0xeaa127fa, 0xd4ef3085, 0x04881d05, | |
0xd9d4d039, 0xe6db99e5, 0x1fa27cf8, 0xc4ac5665, | |
0xf4292244, 0x432aff97, 0xab9423a7, 0xfc93a039, | |
0x655b59c3, 0x8f0ccc92, 0xffeff47d, 0x85845dd1, | |
0x6fa87e4f, 0xfe2ce6e0, 0xa3014314, 0x4e0811a1, | |
0xf7537e82, 0xbd3af235, 0x2ad7d2bb, 0xeb86d391 | |
]; | |
*/ | |
/** @override */ | |
goog.crypt.Md5.prototype.reset = function() { | |
this.chain_[0] = 0x67452301; | |
this.chain_[1] = 0xefcdab89; | |
this.chain_[2] = 0x98badcfe; | |
this.chain_[3] = 0x10325476; | |
this.blockLength_ = 0; | |
this.totalLength_ = 0; | |
}; | |
/** | |
* Internal compress helper function. It takes a block of data (64 bytes) | |
* and updates the accumulator. | |
* @param {Array<number>|Uint8Array|string} buf The block to compress. | |
* @param {number=} opt_offset Offset of the block in the buffer. | |
* @private | |
*/ | |
goog.crypt.Md5.prototype.compress_ = function(buf, opt_offset) { | |
if (!opt_offset) { | |
opt_offset = 0; | |
} | |
// We allocate the array every time, but it's cheap in practice. | |
var X = new Array(16); | |
// Get 16 little endian words. It is not worth unrolling this for Chrome 11. | |
if (goog.isString(buf)) { | |
for (var i = 0; i < 16; ++i) { | |
X[i] = (buf.charCodeAt(opt_offset++)) | | |
(buf.charCodeAt(opt_offset++) << 8) | | |
(buf.charCodeAt(opt_offset++) << 16) | | |
(buf.charCodeAt(opt_offset++) << 24); | |
} | |
} else { | |
for (var i = 0; i < 16; ++i) { | |
X[i] = (buf[opt_offset++]) | | |
(buf[opt_offset++] << 8) | | |
(buf[opt_offset++] << 16) | | |
(buf[opt_offset++] << 24); | |
} | |
} | |
var A = this.chain_[0]; | |
var B = this.chain_[1]; | |
var C = this.chain_[2]; | |
var D = this.chain_[3]; | |
var sum = 0; | |
/* | |
* This is an abbreviated implementation, it is left here commented out for | |
* reference purposes. See below for an unrolled version in use. | |
* | |
var f, n, tmp; | |
for (var i = 0; i < 64; ++i) { | |
if (i < 16) { | |
f = (D ^ (B & (C ^ D))); | |
n = i; | |
} else if (i < 32) { | |
f = (C ^ (D & (B ^ C))); | |
n = (5 * i + 1) % 16; | |
} else if (i < 48) { | |
f = (B ^ C ^ D); | |
n = (3 * i + 5) % 16; | |
} else { | |
f = (C ^ (B | (~D))); | |
n = (7 * i) % 16; | |
} | |
tmp = D; | |
D = C; | |
C = B; | |
sum = (A + f + goog.crypt.Md5.T_[i] + X[n]) & 0xffffffff; | |
B += ((sum << goog.crypt.Md5.S_[i]) & 0xffffffff) | | |
(sum >>> (32 - goog.crypt.Md5.S_[i])); | |
A = tmp; | |
} | |
*/ | |
/* | |
* This is an unrolled MD5 implementation, which gives ~30% speedup compared | |
* to the abbreviated implementation above, as measured on Chrome 11. It is | |
* important to keep 32-bit croppings to minimum and inline the integer | |
* rotation. | |
*/ | |
sum = (A + (D ^ (B & (C ^ D))) + X[0] + 0xd76aa478) & 0xffffffff; | |
A = B + (((sum << 7) & 0xffffffff) | (sum >>> 25)); | |
sum = (D + (C ^ (A & (B ^ C))) + X[1] + 0xe8c7b756) & 0xffffffff; | |
D = A + (((sum << 12) & 0xffffffff) | (sum >>> 20)); | |
sum = (C + (B ^ (D & (A ^ B))) + X[2] + 0x242070db) & 0xffffffff; | |
C = D + (((sum << 17) & 0xffffffff) | (sum >>> 15)); | |
sum = (B + (A ^ (C & (D ^ A))) + X[3] + 0xc1bdceee) & 0xffffffff; | |
B = C + (((sum << 22) & 0xffffffff) | (sum >>> 10)); | |
sum = (A + (D ^ (B & (C ^ D))) + X[4] + 0xf57c0faf) & 0xffffffff; | |
A = B + (((sum << 7) & 0xffffffff) | (sum >>> 25)); | |
sum = (D + (C ^ (A & (B ^ C))) + X[5] + 0x4787c62a) & 0xffffffff; | |
D = A + (((sum << 12) & 0xffffffff) | (sum >>> 20)); | |
sum = (C + (B ^ (D & (A ^ B))) + X[6] + 0xa8304613) & 0xffffffff; | |
C = D + (((sum << 17) & 0xffffffff) | (sum >>> 15)); | |
sum = (B + (A ^ (C & (D ^ A))) + X[7] + 0xfd469501) & 0xffffffff; | |
B = C + (((sum << 22) & 0xffffffff) | (sum >>> 10)); | |
sum = (A + (D ^ (B & (C ^ D))) + X[8] + 0x698098d8) & 0xffffffff; | |
A = B + (((sum << 7) & 0xffffffff) | (sum >>> 25)); | |
sum = (D + (C ^ (A & (B ^ C))) + X[9] + 0x8b44f7af) & 0xffffffff; | |
D = A + (((sum << 12) & 0xffffffff) | (sum >>> 20)); | |
sum = (C + (B ^ (D & (A ^ B))) + X[10] + 0xffff5bb1) & 0xffffffff; | |
C = D + (((sum << 17) & 0xffffffff) | (sum >>> 15)); | |
sum = (B + (A ^ (C & (D ^ A))) + X[11] + 0x895cd7be) & 0xffffffff; | |
B = C + (((sum << 22) & 0xffffffff) | (sum >>> 10)); | |
sum = (A + (D ^ (B & (C ^ D))) + X[12] + 0x6b901122) & 0xffffffff; | |
A = B + (((sum << 7) & 0xffffffff) | (sum >>> 25)); | |
sum = (D + (C ^ (A & (B ^ C))) + X[13] + 0xfd987193) & 0xffffffff; | |
D = A + (((sum << 12) & 0xffffffff) | (sum >>> 20)); | |
sum = (C + (B ^ (D & (A ^ B))) + X[14] + 0xa679438e) & 0xffffffff; | |
C = D + (((sum << 17) & 0xffffffff) | (sum >>> 15)); | |
sum = (B + (A ^ (C & (D ^ A))) + X[15] + 0x49b40821) & 0xffffffff; | |
B = C + (((sum << 22) & 0xffffffff) | (sum >>> 10)); | |
sum = (A + (C ^ (D & (B ^ C))) + X[1] + 0xf61e2562) & 0xffffffff; | |
A = B + (((sum << 5) & 0xffffffff) | (sum >>> 27)); | |
sum = (D + (B ^ (C & (A ^ B))) + X[6] + 0xc040b340) & 0xffffffff; | |
D = A + (((sum << 9) & 0xffffffff) | (sum >>> 23)); | |
sum = (C + (A ^ (B & (D ^ A))) + X[11] + 0x265e5a51) & 0xffffffff; | |
C = D + (((sum << 14) & 0xffffffff) | (sum >>> 18)); | |
sum = (B + (D ^ (A & (C ^ D))) + X[0] + 0xe9b6c7aa) & 0xffffffff; | |
B = C + (((sum << 20) & 0xffffffff) | (sum >>> 12)); | |
sum = (A + (C ^ (D & (B ^ C))) + X[5] + 0xd62f105d) & 0xffffffff; | |
A = B + (((sum << 5) & 0xffffffff) | (sum >>> 27)); | |
sum = (D + (B ^ (C & (A ^ B))) + X[10] + 0x02441453) & 0xffffffff; | |
D = A + (((sum << 9) & 0xffffffff) | (sum >>> 23)); | |
sum = (C + (A ^ (B & (D ^ A))) + X[15] + 0xd8a1e681) & 0xffffffff; | |
C = D + (((sum << 14) & 0xffffffff) | (sum >>> 18)); | |
sum = (B + (D ^ (A & (C ^ D))) + X[4] + 0xe7d3fbc8) & 0xffffffff; | |
B = C + (((sum << 20) & 0xffffffff) | (sum >>> 12)); | |
sum = (A + (C ^ (D & (B ^ C))) + X[9] + 0x21e1cde6) & 0xffffffff; | |
A = B + (((sum << 5) & 0xffffffff) | (sum >>> 27)); | |
sum = (D + (B ^ (C & (A ^ B))) + X[14] + 0xc33707d6) & 0xffffffff; | |
D = A + (((sum << 9) & 0xffffffff) | (sum >>> 23)); | |
sum = (C + (A ^ (B & (D ^ A))) + X[3] + 0xf4d50d87) & 0xffffffff; | |
C = D + (((sum << 14) & 0xffffffff) | (sum >>> 18)); | |
sum = (B + (D ^ (A & (C ^ D))) + X[8] + 0x455a14ed) & 0xffffffff; | |
B = C + (((sum << 20) & 0xffffffff) | (sum >>> 12)); | |
sum = (A + (C ^ (D & (B ^ C))) + X[13] + 0xa9e3e905) & 0xffffffff; | |
A = B + (((sum << 5) & 0xffffffff) | (sum >>> 27)); | |
sum = (D + (B ^ (C & (A ^ B))) + X[2] + 0xfcefa3f8) & 0xffffffff; | |
D = A + (((sum << 9) & 0xffffffff) | (sum >>> 23)); | |
sum = (C + (A ^ (B & (D ^ A))) + X[7] + 0x676f02d9) & 0xffffffff; | |
C = D + (((sum << 14) & 0xffffffff) | (sum >>> 18)); | |
sum = (B + (D ^ (A & (C ^ D))) + X[12] + 0x8d2a4c8a) & 0xffffffff; | |
B = C + (((sum << 20) & 0xffffffff) | (sum >>> 12)); | |
sum = (A + (B ^ C ^ D) + X[5] + 0xfffa3942) & 0xffffffff; | |
A = B + (((sum << 4) & 0xffffffff) | (sum >>> 28)); | |
sum = (D + (A ^ B ^ C) + X[8] + 0x8771f681) & 0xffffffff; | |
D = A + (((sum << 11) & 0xffffffff) | (sum >>> 21)); | |
sum = (C + (D ^ A ^ B) + X[11] + 0x6d9d6122) & 0xffffffff; | |
C = D + (((sum << 16) & 0xffffffff) | (sum >>> 16)); | |
sum = (B + (C ^ D ^ A) + X[14] + 0xfde5380c) & 0xffffffff; | |
B = C + (((sum << 23) & 0xffffffff) | (sum >>> 9)); | |
sum = (A + (B ^ C ^ D) + X[1] + 0xa4beea44) & 0xffffffff; | |
A = B + (((sum << 4) & 0xffffffff) | (sum >>> 28)); | |
sum = (D + (A ^ B ^ C) + X[4] + 0x4bdecfa9) & 0xffffffff; | |
D = A + (((sum << 11) & 0xffffffff) | (sum >>> 21)); | |
sum = (C + (D ^ A ^ B) + X[7] + 0xf6bb4b60) & 0xffffffff; | |
C = D + (((sum << 16) & 0xffffffff) | (sum >>> 16)); | |
sum = (B + (C ^ D ^ A) + X[10] + 0xbebfbc70) & 0xffffffff; | |
B = C + (((sum << 23) & 0xffffffff) | (sum >>> 9)); | |
sum = (A + (B ^ C ^ D) + X[13] + 0x289b7ec6) & 0xffffffff; | |
A = B + (((sum << 4) & 0xffffffff) | (sum >>> 28)); | |
sum = (D + (A ^ B ^ C) + X[0] + 0xeaa127fa) & 0xffffffff; | |
D = A + (((sum << 11) & 0xffffffff) | (sum >>> 21)); | |
sum = (C + (D ^ A ^ B) + X[3] + 0xd4ef3085) & 0xffffffff; | |
C = D + (((sum << 16) & 0xffffffff) | (sum >>> 16)); | |
sum = (B + (C ^ D ^ A) + X[6] + 0x04881d05) & 0xffffffff; | |
B = C + (((sum << 23) & 0xffffffff) | (sum >>> 9)); | |
sum = (A + (B ^ C ^ D) + X[9] + 0xd9d4d039) & 0xffffffff; | |
A = B + (((sum << 4) & 0xffffffff) | (sum >>> 28)); | |
sum = (D + (A ^ B ^ C) + X[12] + 0xe6db99e5) & 0xffffffff; | |
D = A + (((sum << 11) & 0xffffffff) | (sum >>> 21)); | |
sum = (C + (D ^ A ^ B) + X[15] + 0x1fa27cf8) & 0xffffffff; | |
C = D + (((sum << 16) & 0xffffffff) | (sum >>> 16)); | |
sum = (B + (C ^ D ^ A) + X[2] + 0xc4ac5665) & 0xffffffff; | |
B = C + (((sum << 23) & 0xffffffff) | (sum >>> 9)); | |
sum = (A + (C ^ (B | (~D))) + X[0] + 0xf4292244) & 0xffffffff; | |
A = B + (((sum << 6) & 0xffffffff) | (sum >>> 26)); | |
sum = (D + (B ^ (A | (~C))) + X[7] + 0x432aff97) & 0xffffffff; | |
D = A + (((sum << 10) & 0xffffffff) | (sum >>> 22)); | |
sum = (C + (A ^ (D | (~B))) + X[14] + 0xab9423a7) & 0xffffffff; | |
C = D + (((sum << 15) & 0xffffffff) | (sum >>> 17)); | |
sum = (B + (D ^ (C | (~A))) + X[5] + 0xfc93a039) & 0xffffffff; | |
B = C + (((sum << 21) & 0xffffffff) | (sum >>> 11)); | |
sum = (A + (C ^ (B | (~D))) + X[12] + 0x655b59c3) & 0xffffffff; | |
A = B + (((sum << 6) & 0xffffffff) | (sum >>> 26)); | |
sum = (D + (B ^ (A | (~C))) + X[3] + 0x8f0ccc92) & 0xffffffff; | |
D = A + (((sum << 10) & 0xffffffff) | (sum >>> 22)); | |
sum = (C + (A ^ (D | (~B))) + X[10] + 0xffeff47d) & 0xffffffff; | |
C = D + (((sum << 15) & 0xffffffff) | (sum >>> 17)); | |
sum = (B + (D ^ (C | (~A))) + X[1] + 0x85845dd1) & 0xffffffff; | |
B = C + (((sum << 21) & 0xffffffff) | (sum >>> 11)); | |
sum = (A + (C ^ (B | (~D))) + X[8] + 0x6fa87e4f) & 0xffffffff; | |
A = B + (((sum << 6) & 0xffffffff) | (sum >>> 26)); | |
sum = (D + (B ^ (A | (~C))) + X[15] + 0xfe2ce6e0) & 0xffffffff; | |
D = A + (((sum << 10) & 0xffffffff) | (sum >>> 22)); | |
sum = (C + (A ^ (D | (~B))) + X[6] + 0xa3014314) & 0xffffffff; | |
C = D + (((sum << 15) & 0xffffffff) | (sum >>> 17)); | |
sum = (B + (D ^ (C | (~A))) + X[13] + 0x4e0811a1) & 0xffffffff; | |
B = C + (((sum << 21) & 0xffffffff) | (sum >>> 11)); | |
sum = (A + (C ^ (B | (~D))) + X[4] + 0xf7537e82) & 0xffffffff; | |
A = B + (((sum << 6) & 0xffffffff) | (sum >>> 26)); | |
sum = (D + (B ^ (A | (~C))) + X[11] + 0xbd3af235) & 0xffffffff; | |
D = A + (((sum << 10) & 0xffffffff) | (sum >>> 22)); | |
sum = (C + (A ^ (D | (~B))) + X[2] + 0x2ad7d2bb) & 0xffffffff; | |
C = D + (((sum << 15) & 0xffffffff) | (sum >>> 17)); | |
sum = (B + (D ^ (C | (~A))) + X[9] + 0xeb86d391) & 0xffffffff; | |
B = C + (((sum << 21) & 0xffffffff) | (sum >>> 11)); | |
this.chain_[0] = (this.chain_[0] + A) & 0xffffffff; | |
this.chain_[1] = (this.chain_[1] + B) & 0xffffffff; | |
this.chain_[2] = (this.chain_[2] + C) & 0xffffffff; | |
this.chain_[3] = (this.chain_[3] + D) & 0xffffffff; | |
}; | |
/** @override */ | |
goog.crypt.Md5.prototype.update = function(bytes, opt_length) { | |
if (!goog.isDef(opt_length)) { | |
opt_length = bytes.length; | |
} | |
var lengthMinusBlock = opt_length - this.blockSize; | |
// Copy some object properties to local variables in order to save on access | |
// time from inside the loop (~10% speedup was observed on Chrome 11). | |
var block = this.block_; | |
var blockLength = this.blockLength_; | |
var i = 0; | |
// The outer while loop should execute at most twice. | |
while (i < opt_length) { | |
// When we have no data in the block to top up, we can directly process the | |
// input buffer (assuming it contains sufficient data). This gives ~30% | |
// speedup on Chrome 14 and ~70% speedup on Firefox 6.0, but requires that | |
// the data is provided in large chunks (or in multiples of 64 bytes). | |
if (blockLength == 0) { | |
while (i <= lengthMinusBlock) { | |
this.compress_(bytes, i); | |
i += this.blockSize; | |
} | |
} | |
if (goog.isString(bytes)) { | |
while (i < opt_length) { | |
block[blockLength++] = bytes.charCodeAt(i++); | |
if (blockLength == this.blockSize) { | |
this.compress_(block); | |
blockLength = 0; | |
// Jump to the outer loop so we use the full-block optimization. | |
break; | |
} | |
} | |
} else { | |
while (i < opt_length) { | |
block[blockLength++] = bytes[i++]; | |
if (blockLength == this.blockSize) { | |
this.compress_(block); | |
blockLength = 0; | |
// Jump to the outer loop so we use the full-block optimization. | |
break; | |
} | |
} | |
} | |
} | |
this.blockLength_ = blockLength; | |
this.totalLength_ += opt_length; | |
}; | |
/** @override */ | |
goog.crypt.Md5.prototype.digest = function() { | |
// This must accommodate at least 1 padding byte (0x80), 8 bytes of | |
// total bitlength, and must end at a 64-byte boundary. | |
var pad = new Array((this.blockLength_ < 56 ? | |
this.blockSize : | |
this.blockSize * 2) - this.blockLength_); | |
// Add padding: 0x80 0x00* | |
pad[0] = 0x80; | |
for (var i = 1; i < pad.length - 8; ++i) { | |
pad[i] = 0; | |
} | |
// Add the total number of bits, little endian 64-bit integer. | |
var totalBits = this.totalLength_ * 8; | |
for (var i = pad.length - 8; i < pad.length; ++i) { | |
pad[i] = totalBits & 0xff; | |
totalBits /= 0x100; // Don't use bit-shifting here! | |
} | |
this.update(pad); | |
var digest = new Array(16); | |
var n = 0; | |
for (var i = 0; i < 4; ++i) { | |
for (var j = 0; j < 32; j += 8) { | |
digest[n++] = (this.chain_[i] >>> j) & 0xff; | |
} | |
} | |
return digest; | |
}; | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
/* include/HsBaseConfig.h. Generated from HsBaseConfig.h.in by configure. */ | |
/* include/HsBaseConfig.h.in. Generated from configure.ac by autoheader. */ | |
/* The value of E2BIG. */ | |
/* The value of EACCES. */ | |
/* The value of EADDRINUSE. */ | |
/* The value of EADDRNOTAVAIL. */ | |
/* The value of EADV. */ | |
/* The value of EAFNOSUPPORT. */ | |
/* The value of EAGAIN. */ | |
/* The value of EALREADY. */ | |
/* The value of EBADF. */ | |
/* The value of EBADMSG. */ | |
/* The value of EBADRPC. */ | |
/* The value of EBUSY. */ | |
/* The value of ECHILD. */ | |
/* The value of ECOMM. */ | |
/* The value of ECONNABORTED. */ | |
/* The value of ECONNREFUSED. */ | |
/* The value of ECONNRESET. */ | |
/* The value of EDEADLK. */ | |
/* The value of EDESTADDRREQ. */ | |
/* The value of EDIRTY. */ | |
/* The value of EDOM. */ | |
/* The value of EDQUOT. */ | |
/* The value of EEXIST. */ | |
/* The value of EFAULT. */ | |
/* The value of EFBIG. */ | |
/* The value of EFTYPE. */ | |
/* The value of EHOSTDOWN. */ | |
/* The value of EHOSTUNREACH. */ | |
/* The value of EIDRM. */ | |
/* The value of EILSEQ. */ | |
/* The value of EINPROGRESS. */ | |
/* The value of EINTR. */ | |
/* The value of EINVAL. */ | |
/* The value of EIO. */ | |
/* The value of EISCONN. */ | |
/* The value of EISDIR. */ | |
/* The value of ELOOP. */ | |
/* The value of EMFILE. */ | |
/* The value of EMLINK. */ | |
/* The value of EMSGSIZE. */ | |
/* The value of EMULTIHOP. */ | |
/* The value of ENAMETOOLONG. */ | |
/* The value of ENETDOWN. */ | |
/* The value of ENETRESET. */ | |
/* The value of ENETUNREACH. */ | |
/* The value of ENFILE. */ | |
/* The value of ENOBUFS. */ | |
/* The value of ENOCIGAR. */ | |
/* The value of ENODATA. */ | |
/* The value of ENODEV. */ | |
/* The value of ENOENT. */ | |
/* The value of ENOEXEC. */ | |
/* The value of ENOLCK. */ | |
/* The value of ENOLINK. */ | |
/* The value of ENOMEM. */ | |
/* The value of ENOMSG. */ | |
/* The value of ENONET. */ | |
/* The value of ENOPROTOOPT. */ | |
/* The value of ENOSPC. */ | |
/* The value of ENOSR. */ | |
/* The value of ENOSTR. */ | |
/* The value of ENOSYS. */ | |
/* The value of ENOTBLK. */ | |
/* The value of ENOTCONN. */ | |
/* The value of ENOTDIR. */ | |
/* The value of ENOTEMPTY. */ | |
/* The value of ENOTSOCK. */ | |
/* The value of ENOTSUP. */ | |
/* The value of ENOTTY. */ | |
/* The value of ENXIO. */ | |
/* The value of EOPNOTSUPP. */ | |
/* The value of EPERM. */ | |
/* The value of EPFNOSUPPORT. */ | |
/* The value of EPIPE. */ | |
/* The value of EPROCLIM. */ | |
/* The value of EPROCUNAVAIL. */ | |
/* The value of EPROGMISMATCH. */ | |
/* The value of EPROGUNAVAIL. */ | |
/* The value of EPROTO. */ | |
/* The value of EPROTONOSUPPORT. */ | |
/* The value of EPROTOTYPE. */ | |
/* The value of ERANGE. */ | |
/* The value of EREMCHG. */ | |
/* The value of EREMOTE. */ | |
/* The value of EROFS. */ | |
/* The value of ERPCMISMATCH. */ | |
/* The value of ERREMOTE. */ | |
/* The value of ESHUTDOWN. */ | |
/* The value of ESOCKTNOSUPPORT. */ | |
/* The value of ESPIPE. */ | |
/* The value of ESRCH. */ | |
/* The value of ESRMNT. */ | |
/* The value of ESTALE. */ | |
/* The value of ETIME. */ | |
/* The value of ETIMEDOUT. */ | |
/* The value of ETOOMANYREFS. */ | |
/* The value of ETXTBSY. */ | |
/* The value of EUSERS. */ | |
/* The value of EWOULDBLOCK. */ | |
/* The value of EXDEV. */ | |
/* The value of O_BINARY. */ | |
/* The value of SIGINT. */ | |
/* Define to 1 if you have the `clock_gettime' function. */ | |
/* #undef HAVE_CLOCK_GETTIME */ | |
/* Define to 1 if you have the <ctype.h> header file. */ | |
/* Define if you have epoll support. */ | |
/* #undef HAVE_EPOLL */ | |
/* Define to 1 if you have the `epoll_ctl' function. */ | |
/* #undef HAVE_EPOLL_CTL */ | |
/* Define to 1 if you have the <errno.h> header file. */ | |
/* Define to 1 if you have the `eventfd' function. */ | |
/* #undef HAVE_EVENTFD */ | |
/* Define to 1 if you have the <fcntl.h> header file. */ | |
/* Define to 1 if you have the `ftruncate' function. */ | |
/* Define to 1 if you have the `getclock' function. */ | |
/* #undef HAVE_GETCLOCK */ | |
/* Define to 1 if you have the `getrusage' function. */ | |
/* Define to 1 if you have the <inttypes.h> header file. */ | |
/* Define to 1 if you have the `iswspace' function. */ | |
/* Define to 1 if you have the `kevent' function. */ | |
/* Define to 1 if you have the `kevent64' function. */ | |
/* Define if you have kqueue support. */ | |
/* Define to 1 if you have the <langinfo.h> header file. */ | |
/* Define to 1 if you have libcharset. */ | |
/* Define to 1 if you have the `rt' library (-lrt). */ | |
/* #undef HAVE_LIBRT */ | |
/* Define to 1 if you have the <limits.h> header file. */ | |
/* Define to 1 if the system has the type `long long'. */ | |
/* Define to 1 if you have the `lstat' function. */ | |
/* Define to 1 if you have the <memory.h> header file. */ | |
/* Define if you have poll support. */ | |
/* Define to 1 if you have the <poll.h> header file. */ | |
/* Define to 1 if you have the <signal.h> header file. */ | |
/* Define to 1 if you have the <stdint.h> header file. */ | |
/* Define to 1 if you have the <stdlib.h> header file. */ | |
/* Define to 1 if you have the <strings.h> header file. */ | |
/* Define to 1 if you have the <string.h> header file. */ | |
/* Define to 1 if you have the <sys/epoll.h> header file. */ | |
/* #undef HAVE_SYS_EPOLL_H */ | |
/* Define to 1 if you have the <sys/eventfd.h> header file. */ | |
/* #undef HAVE_SYS_EVENTFD_H */ | |
/* Define to 1 if you have the <sys/event.h> header file. */ | |
/* Define to 1 if you have the <sys/resource.h> header file. */ | |
/* Define to 1 if you have the <sys/select.h> header file. */ | |
/* Define to 1 if you have the <sys/stat.h> header file. */ | |
/* Define to 1 if you have the <sys/syscall.h> header file. */ | |
/* Define to 1 if you have the <sys/timeb.h> header file. */ | |
/* Define to 1 if you have the <sys/timers.h> header file. */ | |
/* #undef HAVE_SYS_TIMERS_H */ | |
/* Define to 1 if you have the <sys/times.h> header file. */ | |
/* Define to 1 if you have the <sys/time.h> header file. */ | |
/* Define to 1 if you have the <sys/types.h> header file. */ | |
/* Define to 1 if you have the <sys/utsname.h> header file. */ | |
/* Define to 1 if you have the <sys/wait.h> header file. */ | |
/* Define to 1 if you have the <termios.h> header file. */ | |
/* Define to 1 if you have the `times' function. */ | |
/* Define to 1 if you have the <time.h> header file. */ | |
/* Define to 1 if you have the <unistd.h> header file. */ | |
/* Define to 1 if you have the <utime.h> header file. */ | |
/* Define to 1 if you have the <wctype.h> header file. */ | |
/* Define to 1 if you have the <windows.h> header file. */ | |
/* #undef HAVE_WINDOWS_H */ | |
/* Define to 1 if you have the <winsock.h> header file. */ | |
/* #undef HAVE_WINSOCK_H */ | |
/* Define to 1 if you have the `_chsize' function. */ | |
/* #undef HAVE__CHSIZE */ | |
/* Define to Haskell type for cc_t */ | |
/* Define to Haskell type for char */ | |
/* Define to Haskell type for clock_t */ | |
/* Define to Haskell type for dev_t */ | |
/* Define to Haskell type for double */ | |
/* Define to Haskell type for float */ | |
/* Define to Haskell type for gid_t */ | |
/* Define to Haskell type for ino_t */ | |
/* Define to Haskell type for int */ | |
/* Define to Haskell type for intmax_t */ | |
/* Define to Haskell type for intptr_t */ | |
/* Define to Haskell type for long */ | |
/* Define to Haskell type for long long */ | |
/* Define to Haskell type for mode_t */ | |
/* Define to Haskell type for nlink_t */ | |
/* Define to Haskell type for off_t */ | |
/* Define to Haskell type for pid_t */ | |
/* Define to Haskell type for ptrdiff_t */ | |
/* Define to Haskell type for rlim_t */ | |
/* Define to Haskell type for short */ | |
/* Define to Haskell type for signed char */ | |
/* Define to Haskell type for sig_atomic_t */ | |
/* Define to Haskell type for size_t */ | |
/* Define to Haskell type for speed_t */ | |
/* Define to Haskell type for ssize_t */ | |
/* Define to Haskell type for suseconds_t */ | |
/* Define to Haskell type for tcflag_t */ | |
/* Define to Haskell type for time_t */ | |
/* Define to Haskell type for uid_t */ | |
/* Define to Haskell type for uintmax_t */ | |
/* Define to Haskell type for uintptr_t */ | |
/* Define to Haskell type for unsigned char */ | |
/* Define to Haskell type for unsigned int */ | |
/* Define to Haskell type for unsigned long */ | |
/* Define to Haskell type for unsigned long long */ | |
/* Define to Haskell type for unsigned short */ | |
/* Define to Haskell type for useconds_t */ | |
/* Define to Haskell type for wchar_t */ | |
/* Define to the address where bug reports for this package should be sent. */ | |
/* Define to the full name of this package. */ | |
/* Define to the full name and version of this package. */ | |
/* Define to the one symbol short name of this package. */ | |
/* Define to the home page for this package. */ | |
/* Define to the version of this package. */ | |
/* The size of `kev.filter', as computed by sizeof. */ | |
/* The size of `kev.flags', as computed by sizeof. */ | |
/* The size of `struct MD5Context', as computed by sizeof. */ | |
/* Define to 1 if you have the ANSI C header files. */ | |
/* Number of bits in a file offset, on hosts where this is settable. */ | |
/* #undef _FILE_OFFSET_BITS */ | |
/* Define for large files, on AIX-style hosts. */ | |
/* #undef _LARGE_FILES */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
// #define GHCJS_TRACE_IO 1 | |
function h$base_access(file, file_off, mode, c) { | |
; | |
if(h$isNode) { | |
h$fs.stat(fd, function(err, fs) { | |
if(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
} else { | |
c(mode & fs.mode); // fixme is this ok? | |
} | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_chmod(file, file_off, mode, c) { | |
; | |
if(h$isNode) { | |
h$fs.chmod(h$decodeUtf8z(file, file_off), mode, function(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_close(fd, c) { | |
; | |
var fdo = h$base_fds[fd]; | |
if(fdo && fdo.close) { | |
fdo.close(fd, fdo, c); | |
} else { | |
h$errno = 22; | |
c(-1); | |
} | |
} | |
function h$base_dup(fd, something, c) { | |
throw "h$base_dup"; | |
} | |
function h$base_dup2(fd, c) { | |
throw "h$base_dup2"; | |
} | |
function h$base_fstat(fd, stat, stat_off, c) { | |
; | |
if(h$isNode) { | |
h$fs.fstat(fd, function(err, fs) { | |
if(err) { | |
h$handlErrnoC(err, -1, 0, c); | |
} else { | |
h$base_fillStat(fs, stat, stat_off); | |
c(0); | |
} | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_isatty(fd) { | |
; | |
if(h$isNode) { | |
if(fd === 0) return process.stdin.isTTY?1:0; | |
if(fd === 1) return process.stdout.isTTY?1:0; | |
if(fd === 2) return process.stderr.isTTY?1:0; | |
} | |
if(fd === 1 || fd === 2) return 1; | |
return 0; | |
} | |
function h$base_lseek(fd, pos_1, pos_2, whence, c) { | |
; | |
if(h$isNode) { | |
var p = goog.math.Long.fromBits(pos_2, pos_1), p1; | |
var o = h$base_fds[fd]; | |
if(!o) { | |
h$errno = CONST_BADF; | |
c(-1,-1); | |
} else { | |
switch(whence) { | |
case 0: /* SET */ | |
o.pos = p.toNumber(); | |
c(p.getHighBits(), p.getLowBits()); | |
break; | |
case 1: /* CUR */ | |
o.pos += p.toNumber(); | |
p1 = goog.math.Long.fromNumber(o.pos); | |
c(p1.getHighBits(), p1.getLowBits()); | |
break; | |
case 2: /* END */ | |
h$fs.fstat(fd, function(err, fs) { | |
if(err) { | |
h$setErrno(err); | |
c(-1,-1); | |
} else { | |
o.pos = fs.size + p.toNumber(); | |
p1 = goog.math.Long.fromNumber(o.pos); | |
c(p1.getHighBits(), p1.getLowBits()); | |
} | |
}); | |
break; | |
default: | |
h$errno = 22; | |
c(-1,-1); | |
} | |
} | |
} else { | |
h$unsupported(); | |
c(-1, -1); | |
} | |
} | |
function h$base_lstat(file, file_off, stat, stat_off, c) { | |
; | |
if(h$isNode) { | |
h$fs.lstat(h$decodeUtf8z(file, file_off), function(err, fs) { | |
if(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
} else { | |
h$base_fillStat(fs, stat, stat_off); | |
c(0); | |
} | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_open(file, file_off, how, mode, c) { | |
if(h$isNode) { | |
var flags, off; | |
var fp = h$decodeUtf8z(file, file_off); | |
var acc = how & h$base_o_accmode; | |
// passing a number lets node.js use it directly as the flags (undocumented) | |
if(acc === h$base_o_rdonly) { | |
flags = h$processConstants['fs']['O_RDONLY']; | |
} else if(acc === h$base_o_wronly) { | |
flags = h$processConstants['fs']['O_WRONLY']; | |
} else { // r+w | |
flags = h$processConstants['fs']['O_RDWR']; | |
} | |
off = (how & h$base_o_append) ? -1 : 0; | |
flags = flags | ((how & h$base_o_trunc) ? h$processConstants['fs']['O_TRUNC'] : 0) | |
| ((how & h$base_o_creat) ? h$processConstants['fs']['O_CREAT'] : 0) | |
| ((how & h$base_o_excl) ? h$processConstants['fs']['O_EXCL'] : 0) | |
| ((how & h$base_o_append) ? h$processConstants['fs']['O_APPEND'] : 0); | |
h$fs.open(fp, flags, mode, function(err, fd) { | |
if(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
} else { | |
var f = function(p) { | |
h$base_fds[fd] = { read: h$base_readFile | |
, write: h$base_writeFile | |
, close: h$base_closeFile | |
, pos: p | |
}; | |
c(fd); | |
} | |
if(off === -1) { | |
h$fs.stat(fp, function(err, fs) { | |
if(err) h$handleErrnoC(err, -1, 0, c); else f(fs.size); | |
}); | |
} else { | |
f(0); | |
} | |
} | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_read(fd, buf, buf_off, n, c) { | |
; | |
var fdo = h$base_fds[fd]; | |
if(fdo && fdo.read) { | |
fdo.read(fd, fdo, buf, buf_off, n, c); | |
} else { | |
h$errno = 22; | |
c(-1); | |
} | |
} | |
function h$base_stat(file, file_off, stat, stat_off, c) { | |
; | |
if(h$isNode) { | |
h$fs.stat(h$decodeUtf8z(file, file_off), function(err, fs) { | |
if(err) { | |
h$handlErrnoC(err, -1, 0, c); | |
} else { | |
h$base_fillStat(fs, stat, stat_off); | |
c(0); | |
} | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_umask(mode) { | |
; | |
if(h$isNode) return process.umask(mode); | |
return 0; | |
} | |
function h$base_write(fd, buf, buf_off, n, c) { | |
; | |
var fdo = h$base_fds[fd]; | |
if(fdo && fdo.write) { | |
fdo.write(fd, fdo, buf, buf_off, n, c); | |
} else { | |
h$errno = 22; | |
c(-1); | |
} | |
} | |
function h$base_ftruncate(fd, pos_1, pos_2, c) { | |
; | |
if(h$isNode) { | |
h$fs.ftruncate(fd, goog.math.Long.fromBits(pos_2, pos_1).toNumber(), function(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_unlink(file, file_off, c) { | |
; | |
if(h$isNode) { | |
h$fs.unlink(h$decodeUtf8z(file, file_off), function(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_getpid() { | |
; | |
if(h$isNode) return process.pid; | |
return 0; | |
} | |
function h$base_link(file1, file1_off, file2, file2_off, c) { | |
; | |
if(h$isNode) { | |
h$fs.link(h$decodeUtf8z(file1, file1_off), h$decodeUtf8z(file2, file2_off), function(err) { | |
h$handleErrnoC(err, -1, 0, c); | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_mkfifo(file, file_off, mode, c) { | |
throw "h$base_mkfifo"; | |
} | |
function h$base_sigemptyset(sigset, sigset_off) { | |
return 0; | |
// throw "h$base_sigemptyset"; | |
} | |
function h$base_sigaddset(sigset, sigset_off, sig) { | |
return 0; | |
// throw "h$base_sigaddset"; | |
} | |
function h$base_sigprocmask(sig, sigset1, sigset1_off, sigset2, sigset2_off) { | |
return 0; | |
// throw "h$base_sigprocmask"; | |
} | |
function h$base_tcgetattr(attr, termios, termios_off) { | |
return 0; | |
} | |
function h$base_tcsetattr(attr, val, termios, termios_off) { | |
return 0; | |
} | |
function h$base_utime(file, file_off, timbuf, timbuf_off, c) { | |
; | |
if(h$isNode) { | |
h$fs.fstat(h$decodeUtf8z(file, file_off), function(err, fs) { | |
if(err) { | |
h$handleErrnoC(err, 0, -1, c); // fixme | |
} else { | |
var atime = goog.math.Long.fromNumber(fs.atime.getTime()); | |
var mtime = goog.math.Long.fromNumber(fs.mtime.getTime()); | |
var ctime = goog.math.Long.fromNumber(fs.ctime.getTime()); | |
timbuf.i3[0] = atime.getHighBits(); | |
timbuf.i3[1] = atime.getLowBits(); | |
timbuf.i3[2] = mtime.getHighBits(); | |
timbuf.i3[3] = mtime.getLowBits(); | |
timbuf.i3[4] = ctime.getHighBits(); | |
timbuf.i3[5] = ctime.getLowBits(); | |
c(0); | |
} | |
}); | |
} else | |
h$unsupported(-1, c); | |
} | |
function h$base_waitpid(pid, stat, stat_off, options, c) { | |
throw "h$base_waitpid"; | |
} | |
/** @const */ var h$base_o_rdonly = 0x00000; | |
/** @const */ var h$base_o_wronly = 0x00001; | |
/** @const */ var h$base_o_rdwr = 0x00002; | |
/** @const */ var h$base_o_accmode = 0x00003; | |
/** @const */ var h$base_o_append = 0x00008; | |
/** @const */ var h$base_o_creat = 0x00200; | |
/** @const */ var h$base_o_trunc = 0x00400; | |
/** @const */ var h$base_o_excl = 0x00800; | |
/** @const */ var h$base_o_noctty = 0x20000; | |
/** @const */ var h$base_o_nonblock = 0x00004; | |
/** @const */ var h$base_o_binary = 0x00000; | |
function h$base_c_s_isreg(mode) { | |
return 1; | |
} | |
function h$base_c_s_ischr(mode) { | |
return 0; | |
} | |
function h$base_c_s_isblk(mode) { | |
return 0; | |
} | |
function h$base_c_s_isdir(mode) { | |
return 0; // fixme | |
} | |
function h$base_c_s_isfifo(mode) { | |
return 0; | |
} | |
function h$base_fillStat(fs, b, off) { | |
if(off%4) throw "h$base_fillStat: not aligned"; | |
var o = off>>2; | |
b.i3[o+0] = fs.mode; | |
var s = goog.math.Long.fromNumber(fs.size); | |
b.i3[o+1] = s.getHighBits(); | |
b.i3[o+2] = s.getLowBits(); | |
b.i3[o+3] = 0; // fixme | |
b.i3[o+4] = 0; // fixme | |
b.i3[o+5] = fs.dev; | |
var i = goog.math.Long.fromNumber(fs.ino); | |
b.i3[o+6] = i.getHighBits(); | |
b.i3[o+7] = i.getLowBits(); | |
b.i3[o+8] = fs.uid; | |
b.i3[o+9] = fs.gid; | |
} | |
// [mode,size1,size2,mtime1,mtime2,dev,ino1,ino2,uid,gid] all 32 bit | |
/** @const */ var h$base_sizeof_stat = 40; | |
function h$base_st_mtime(stat, stat_off) { | |
{ h$ret1 = (stat.i3[(stat_off>>2)+4]); return (stat.i3[(stat_off>>2)+3]); }; | |
} | |
function h$base_st_size(stat, stat_off) { | |
{ h$ret1 = (stat.i3[(stat_off>>2)+2]); return (stat.i3[(stat_off>>2)+1]); }; | |
} | |
function h$base_st_mode(stat, stat_off) { | |
return stat.i3[stat_off>>2]; | |
} | |
function h$base_st_dev(stat, stat_off) { | |
return stat.i3[(stat_off>>2)+5]; | |
} | |
function h$base_st_ino(stat, stat_off) { | |
{ h$ret1 = (stat.i3[(stat_off>>2)+7]); return (stat.i3[(stat_off>>2)+6]); }; | |
} | |
/** @const */ var h$base_echo = 1; | |
/** @const */ var h$base_tcsanow = 2; | |
/** @const */ var h$base_icanon = 4; | |
/** @const */ var h$base_vmin = 8; | |
/** @const */ var h$base_vtime = 16; | |
/** @const */ var h$base_sigttou = 0; | |
/** @const */ var h$base_sig_block = 0; | |
/** @const */ var h$base_sig_setmask = 0; | |
/** @const */ var h$base_f_getfl = 0; | |
/** @const */ var h$base_f_setfl = 0; | |
/** @const */ var h$base_f_setfd = 0; | |
/** @const */ var h$base_fd_cloexec = 0; | |
/** @const */ var h$base_sizeof_termios = 4; | |
/** @const */ var h$base_sizeof_sigset_t = 4; | |
function h$base_lflag(termios, termios_off) { | |
return 0; | |
} | |
function h$base_poke_lflag(termios, termios_off, flag) { | |
return 0; | |
} | |
function h$base_ptr_c_cc(termios, termios_off) { | |
{ h$ret1 = (0); return (h$newByteArray(8)); }; | |
} | |
/** @const */ var h$base_default_buffer_size = 32768; | |
function h$base_c_s_issock(mode) { | |
return 0; // fixme | |
} | |
/** @const */ var h$base_SEEK_SET = 0; | |
/** @const */ var h$base_SEEK_CUR = 1; | |
/** @const */ var h$base_SEEK_END = 2; | |
function h$base_set_saved_termios(a, b, c) { | |
{ h$ret1 = (0); return (null); }; | |
} | |
function h$base_get_saved_termios(r) { | |
{ h$ret1 = (0); return (null); }; | |
} | |
// fixme | |
function h$lockFile(fd, dev, ino, for_writing) { | |
; | |
return 0; | |
} | |
function h$unlockFile(fd) { | |
; | |
return 0; | |
} | |
// engine-dependent setup | |
var h$base_readStdin , h$base_writeStderr, h$base_writeStdout; | |
var h$base_closeStdin = null, h$base_closeStderr = null, h$base_closeStdout = null; | |
var h$base_readFile, h$base_writeFile, h$base_closeFile; | |
var h$base_stdin_waiting = new h$Queue(); | |
var h$base_stdin_chunk = { buf: null | |
, pos: 0 | |
, processing: false | |
}; | |
var h$base_stdin_eof = false; | |
var h$base_process_stdin = function() { | |
var c = h$base_stdin_chunk; | |
var q = h$base_stdin_waiting; | |
if(!q.length() || c.processing) return; | |
c.processing = true; | |
if(!c.buf) { c.pos = 0; c.buf = process.stdin.read(); } | |
while(c.buf && q.length()) { | |
var x = q.dequeue(); | |
var n = Math.min(c.buf.length - c.pos, x.n); | |
for(var i=0;i<n;i++) { | |
x.buf.u8[i+x.off] = c.buf[c.pos+i]; | |
} | |
c.pos += n; | |
x.c(n); | |
if(c.pos >= c.buf.length) c.buf = null; | |
if(!c.buf && q.length()) { c.pos = 0; c.buf = process.stdin.read(); } | |
} | |
while(h$base_stdin_eof && q.length()) q.dequeue().c(0); | |
c.processing = false; | |
} | |
if(h$isNode) { | |
h$base_closeFile = function(fd, fdo, c) { | |
h$fs.close(fd, function(err) { | |
delete h$base_fds[fd]; | |
h$handleErrnoC(err, -1, 0, c); | |
}); | |
} | |
h$base_readFile = function(fd, fdo, buf, buf_offset, n, c) { | |
var pos = typeof fdo.pos === 'number' ? fdo.pos : null; | |
; | |
h$fs.read(fd, new Buffer(n), 0, n, pos, function(err, bytesRead, nbuf) { | |
if(err) { | |
h$setErrno(err); | |
c(-1); | |
} else { | |
for(var i=bytesRead-1;i>=0;i--) buf.u8[buf_offset+i] = nbuf[i]; | |
if(typeof fdo.pos === 'number') fdo.pos += bytesRead; | |
c(bytesRead); | |
} | |
}); | |
} | |
h$base_readStdin = function(fd, fdo, buf, buf_offset, n, c) { | |
; | |
h$base_stdin_waiting.enqueue({buf: buf, off: buf_offset, n: n, c: c}); | |
h$base_process_stdin(); | |
} | |
h$base_closeStdin = function(fd, fdo, c) { | |
; | |
// process.stdin.close(); fixme | |
c(0); | |
} | |
h$base_writeFile = function(fd, fdo, buf, buf_offset, n, c) { | |
var pos = typeof fdo.pos === 'number' ? fdo.pos : null; | |
; | |
var nbuf = new Buffer(n); | |
for(var i=0;i<n;i++) nbuf[i] = buf.u8[i+buf_offset]; | |
if(typeof fdo.pos === 'number') fdo.pos += n; | |
h$fs.write(fd, nbuf, 0, n, pos, function(err, bytesWritten) { | |
; | |
if(err) { | |
h$setErrno(err); | |
if(typeof fdo.pos === 'number') fdo.pos -= n; | |
if(h$errno === 35) | |
setTimeout(function() { h$base_writeFile(fd, fdo, buf, buf_offset, n, c); }, 20); | |
else c(-1); | |
} else { | |
if(typeof fdo.pos === 'number') fdo.pos += bytesWritten - n; | |
c(bytesWritten); | |
} | |
}); | |
} | |
h$base_writeStdout = function(fd, fdo, buf, buf_offset, n, c) { | |
; | |
h$base_writeFile(1, fdo, buf, buf_offset, n, c); | |
} | |
h$base_closeStdout = function(fd, fdo, c) { | |
; | |
// not actually closed, fixme? | |
c(0); | |
} | |
h$base_writeStderr = function(fd, fdo, buf, buf_offset, n, c) { | |
; | |
h$base_writeFile(2, fdo, buf, buf_offset, n, c); | |
} | |
h$base_closeStderr = function(fd, fdo, c) { | |
; | |
// not actually closed, fixme? | |
c(0); | |
} | |
process.stdin.on('readable', h$base_process_stdin); | |
process.stdin.on('end', function() { h$base_stdin_eof = true; h$base_process_stdin(); }); | |
} else if (h$isJsShell) { | |
h$base_readStdin = function(fd, fdo, buf, buf_offset, n, c) { | |
c(0); | |
} | |
h$base_writeStdout = function(fd, fdo, buf, buf_offset, n, c) { | |
putstr(h$decodeUtf8(buf, n, buf_offset)); | |
c(n); | |
} | |
h$base_writeStderr = function(fd, fdo, buf, buf_offset, n, c) { | |
printErr(h$decodeUtf8(buf, n, buf_offset)); | |
c(n); | |
} | |
} else if(h$isJsCore) { | |
h$base_readStdin = function(fd, fdo, buf, buf_offset, n, c) { | |
c(0); | |
} | |
var h$base_stdoutLeftover = { f: print, val: null }; | |
var h$base_stderrLeftover = { f: debug, val: null }; | |
var h$base_writeWithLeftover = function(buf, n, buf_offset, c, lo) { | |
var lines = h$decodeUtf8(buf, n, buf_offset).split(/\r?\n/); | |
if(lines.length === 1) { | |
if(lines[0].length) { | |
if(lo.val !== null) lo.val += lines[0]; | |
else lo.val = lines[0]; | |
} | |
} else { | |
lo.f(((lo.val !== null) ? lo.val : '') + lines[0]); | |
for(var i=1;i<lines.length-1;i++) lo.f(lines[i]); | |
if(lines[lines.length-1].length) lo.val = lines[lines.length-1]; | |
else lo.val = null; | |
} | |
c(n); | |
} | |
h$base_writeStdout = function(fd, fdo, buf, buf_offset, n, c) { | |
h$base_writeWithLeftover(buf, n, buf_offset, c, h$base_stdoutLeftover); | |
} | |
h$base_writeStderr = function(fd, fdo, buf, buf_offset, n, c) { | |
// writing to stderr not supported, write to stdout | |
h$base_writeWithLeftover(buf, n, buf_offset, c, h$base_stderrLeftover); | |
} | |
} else { // browser / fallback | |
h$base_readStdin = function(fd, fdo, buf, buf_offset, n, c) { | |
c(0); | |
} | |
h$base_writeStdout = function(fd, fdo, buf, buf_offset, n, c) { | |
console.log(h$decodeUtf8(buf, n, buf_offset)); | |
c(n); | |
} | |
h$base_writeStderr = function(fd, fdo, buf, buf_offset, n, c) { | |
console.log(h$decodeUtf8(buf, n, buf_offset)); | |
c(n); | |
} | |
} | |
var h$base_stdin_fd = { read: h$base_readStdin, close: h$base_closeStdin }; | |
var h$base_stdout_fd = { write: h$base_writeStdout, close: h$base_closeStdout }; | |
var h$base_stderr_fd = { write: h$base_writeStderr, close: h$base_closeStderr }; | |
var h$base_fdN = -1; // negative file descriptors are 'virtual' | |
var h$base_fds = [h$base_stdin_fd, h$base_stdout_fd, h$base_stderr_fd]; | |
function h$shutdownHaskellAndExit(code, fast) { | |
h$exitProcess(code); | |
} | |
// RAND_MAX = 32767 | |
function h$rand() { | |
return (32768 * Math.random()) & 32767; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
function h$get_current_timezone_seconds(t, pdst_v, pdst_o, pname_v, pname_o) { | |
var d = new Date(t * 1000); | |
var now = new Date(); | |
var jan = new Date(now.getFullYear(),0,1); | |
var jul = new Date(now.getFullYear(),6,1); | |
var stdOff = Math.max(jan.getTimezoneOffset(), jul.getTimezoneOffset()); | |
var isDst = d.getTimezoneOffset() < stdOff; | |
var tzo = d.getTimezoneOffset(); | |
pdst_v.dv.setInt32(pdst_o, isDst ? 1 : 0, true); | |
if(!pname_v.arr) pname_v.arr = []; | |
var offstr = tzo < 0 ? ('+' + (tzo/-60)) : ('' + (tzo/-60)); | |
pname_v.arr[pname_o] = [h$encodeUtf8("UTC" + offstr), 0]; | |
return (-60*tzo)|0; | |
} | |
function h$clock_gettime(when, p_d, p_o) { | |
/* h$log("clock_gettime"); | |
h$log(when); | |
h$log(p_d); | |
h$log(p_o); */ | |
var o = p_o >> 2, | |
t = Date.now ? Date.now() : new Date().getTime(), | |
tf = Math.floor(t / 1000), | |
tn = 1000000 * (t - (1000 * tf)); | |
p_d.i3[o] = tf|0; | |
p_d.i3[o+1] = tn|0; | |
return 0; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// generated by generate_threefish_block.hs | |
var h$Threefish_256_Process_Block; | |
h$Threefish_256_Process_Block=function(p,q,y,r){var m;m=p.i3;var a;a=q.i3;y=y.i3;var b,g,l,c,d,h,k,e,f,t,u,v,n,w,x;q=m[0];p=m[1];r=m[2];t=m[3];u=m[4];v=m[5];n=m[6];m=m[7];w=q^r^u^n^2851871266;x=p^t^v^m^466688986;b=a[0];g=a[1];c=a[2];d=a[3];h=a[4];k=a[5];e=a[6];f=a[7];a=(b&16777215)+(q&16777215);b=(a>>>24)+(b>>>24)+(q>>>24)+((g&65535)<<8)+((p&65535)<<8);l=((b>>>24)+(g>>>16)+(p>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(r&16777215)+0;b=(a>>>24)+(c>>>24)+(r>>>24)+0+((d&65535)<<8)+((t& | |
65535)<<8)+0;d=((b>>>24)+(d>>>16)+(t>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(u&16777215)+0;b=(a>>>24)+(h>>>24)+(u>>>24)+0+((k&65535)<<8)+((v&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(v>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(n&16777215);b=(a>>>24)+(e>>>24)+(n>>>24)+((f&65535)<<8)+((m&65535)<<8);f=((b>>>24)+(f>>>16)+(m>>>16)<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>> | |
16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c& | |
16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535); | |
h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(r&16777215);b=(a>>>24)+(g>>>24)+(r>>>24)+ | |
((l&65535)<<8)+((t&65535)<<8);l=((b>>>24)+(l>>>16)+(t>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(u&16777215)+0;b=(a>>>24)+(c>>>24)+(u>>>24)+0+((d&65535)<<8)+((v&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(v>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(n&16777215)+0;b=(a>>>24)+(h>>>24)+(n>>>24)+0+((k&65535)<<8)+((m&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(m>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(w&16777215)+1;b=(a>>>24)+(e>>>24)+(w>>>24)+0+((f&65535)<<8)+((x& | |
65535)<<8)+0;f=((b>>>24)+(f>>>16)+(x>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>> | |
24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a& | |
16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8); | |
k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(u&16777215);b=(a>>>24)+(g>>>24)+(u>>>24)+((l&65535)<<8)+((v&65535)<<8);l=((b>>>24)+(l>>>16)+(v>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(n&16777215)+0;b=(a>>>24)+(c>>>24)+(n>>>24)+0+((d&65535)<<8)+((m&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(m>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(w&16777215)+0;b=(a>>>24)+(h>>>24)+(w>>>24)+0+((k&65535)<<8)+((x&65535)<<8)+0;k=((b>>>24)+ | |
(k>>>16)+(x>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(q&16777215)+2;b=(a>>>24)+(e>>>24)+(q>>>24)+0+((f&65535)<<8)+((p&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(p>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8); | |
k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a= | |
(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<< | |
16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(n&16777215);b=(a>>>24)+(g>>>24)+(n>>>24)+((l&65535)<<8)+((m&65535)<<8);l=((b>>>24)+(l>>>16)+(m>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(w&16777215)+0;b=(a>>>24)+(c>>>24)+(w>>>24)+0+((d&65535)<<8)+((x& | |
65535)<<8)+0;d=((b>>>24)+(d>>>16)+(x>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(q&16777215)+0;b=(a>>>24)+(h>>>24)+(q>>>24)+0+((k&65535)<<8)+((p&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(p>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(r&16777215)+3;b=(a>>>24)+(e>>>24)+(r>>>24)+0+((f&65535)<<8)+((t&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(t>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>> | |
24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+ | |
(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>> | |
8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(w&16777215);b=(a>>>24)+(g>>>24)+(w>>>24)+((l&65535)<<8)+((x&65535)<<8);l=((b>>> | |
24)+(l>>>16)+(x>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(q&16777215)+0;b=(a>>>24)+(c>>>24)+(q>>>24)+0+((d&65535)<<8)+((p&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(p>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(r&16777215)+0;b=(a>>>24)+(h>>>24)+(r>>>24)+0+((k&65535)<<8)+((t&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(t>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(u&16777215)+4;b=(a>>>24)+(e>>>24)+(u>>>24)+0+((f&65535)<<8)+((v&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(v>>> | |
16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<< | |
8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<< | |
23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>> | |
16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(q&16777215);b=(a>>>24)+(g>>>24)+(q>>>24)+((l&65535)<<8)+((p&65535)<<8);l=((b>>>24)+(l>>>16)+(p>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(r&16777215)+0;b=(a>>>24)+(c>>>24)+(r>>>24)+0+((d&65535)<<8)+((t&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(t>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(u&16777215)+0;b=(a>>>24)+(h>>>24)+(u>>>24)+0+((k&65535)<<8)+((v&65535)<<8)+0;k= | |
((b>>>24)+(k>>>16)+(v>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(n&16777215)+5;b=(a>>>24)+(e>>>24)+(n>>>24)+0+((f&65535)<<8)+((m&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(m>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<< | |
8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h; | |
a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>> | |
16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(r&16777215);b=(a>>>24)+(g>>>24)+(r>>>24)+((l&65535)<<8)+((t&65535)<<8);l=((b>>>24)+(l>>>16)+(t>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(u&16777215)+0;b=(a>>>24)+(c>>>24)+(u>>>24)+0+((d&65535)<<8)+((v&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(v>>>16)+ | |
0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(n&16777215)+0;b=(a>>>24)+(h>>>24)+(n>>>24)+0+((k&65535)<<8)+((m&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(m>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(w&16777215)+6;b=(a>>>24)+(e>>>24)+(w>>>24)+0+((f&65535)<<8)+((x&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(x>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<< | |
24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>> | |
24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8| | |
f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(u&16777215);b=(a>>>24)+(g>>>24)+(u>>>24)+((l&65535)<<8)+((v&65535)<<8); | |
l=((b>>>24)+(l>>>16)+(v>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(n&16777215)+0;b=(a>>>24)+(c>>>24)+(n>>>24)+0+((d&65535)<<8)+((m&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(m>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(w&16777215)+0;b=(a>>>24)+(h>>>24)+(w>>>24)+0+((k&65535)<<8)+((x&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(x>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(q&16777215)+7;b=(a>>>24)+(e>>>24)+(q>>>24)+0+((f&65535)<<8)+((p&65535)<<8)+0;f=((b>>>24)+(f>>> | |
16)+(p>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l& | |
65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>> | |
6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>> | |
16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(n&16777215);b=(a>>>24)+(g>>>24)+(n>>>24)+((l&65535)<<8)+((m&65535)<<8);l=((b>>>24)+(l>>>16)+(m>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(w&16777215)+0;b=(a>>>24)+(c>>>24)+(w>>>24)+0+((d&65535)<<8)+((x&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(x>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(q&16777215)+0;b=(a>>>24)+(h>>>24)+(q>>>24)+0+((k&65535)<<8)+((p&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(p>>>16)+0<<16)+ | |
(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(r&16777215)+8;b=(a>>>24)+(e>>>24)+(r>>>24)+0+((f&65535)<<8)+((t&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(t>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>> | |
16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215); | |
b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24| | |
a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(w&16777215);b=(a>>>24)+(g>>>24)+(w>>>24)+((l&65535)<<8)+((x&65535)<<8);l=((b>>>24)+(l>>>16)+(x>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(q&16777215)+0;b=(a>>>24)+(c>>>24)+(q>>>24)+0+((d&65535)<<8)+((p&65535)<<8)+0;d=((b>>>24)+ | |
(d>>>16)+(p>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(r&16777215)+0;b=(a>>>24)+(h>>>24)+(r>>>24)+0+((k&65535)<<8)+((t&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(t>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(u&16777215)+9;b=(a>>>24)+(e>>>24)+(u>>>24)+0+((f&65535)<<8)+((v&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(v>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+ | |
(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+ | |
(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215; | |
a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(q&16777215);b=(a>>>24)+(g>>>24)+(q>>>24)+((l&65535)<<8)+((p&65535)<<8);l=((b>>>24)+(l>>>16)+(p>>>16)<<16)+ | |
(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(r&16777215)+0;b=(a>>>24)+(c>>>24)+(r>>>24)+0+((d&65535)<<8)+((t&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(t>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(u&16777215)+0;b=(a>>>24)+(h>>>24)+(u>>>24)+0+((k&65535)<<8)+((v&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(v>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(n&16777215)+10;b=(a>>>24)+(e>>>24)+(n>>>24)+0+((f&65535)<<8)+((m&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(m>>>16)+0<<16)+(b>>8&65535);e= | |
b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>> | |
24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+ | |
(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8& | |
65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(r&16777215);b=(a>>>24)+(g>>>24)+(r>>>24)+((l&65535)<<8)+((t&65535)<<8);l=((b>>>24)+(l>>>16)+(t>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(u&16777215)+0;b=(a>>>24)+(c>>>24)+(u>>>24)+0+((d&65535)<<8)+((v&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(v>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(n&16777215)+0;b=(a>>>24)+(h>>>24)+(n>>>24)+0+((k&65535)<<8)+((m&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(m>>> | |
16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(w&16777215)+11;b=(a>>>24)+(e>>>24)+(w>>>24)+0+((f&65535)<<8)+((x&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(x>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>> | |
16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215); | |
b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<< | |
24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(u&16777215);b=(a>>>24)+(g>>>24)+(u>>>24)+((l&65535)<<8)+((v&65535)<<8);l=((b>>>24)+(l>>>16)+(v>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(n&16777215)+0;b=(a>>>24)+(c>>>24)+(n>>>24)+0+((d&65535)<<8)+((m&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(m>>>16)+0<<16)+(b>>8&65535);c=b<< | |
24|a&16777215;a=(h&16777215)+(w&16777215)+0;b=(a>>>24)+(h>>>24)+(w>>>24)+0+((k&65535)<<8)+((x&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(x>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(q&16777215)+12;b=(a>>>24)+(e>>>24)+(q>>>24)+0+((f&65535)<<8)+((p&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(p>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<< | |
14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<< | |
8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g& | |
16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(n&16777215);b=(a>>>24)+(g>>>24)+(n>>>24)+((l&65535)<<8)+((m&65535)<<8);l=((b>>>24)+(l>>>16)+(m>>>16)<< | |
16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(w&16777215)+0;b=(a>>>24)+(c>>>24)+(w>>>24)+0+((d&65535)<<8)+((x&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(x>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(q&16777215)+0;b=(a>>>24)+(h>>>24)+(q>>>24)+0+((k&65535)<<8)+((p&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(p>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(r&16777215)+13;b=(a>>>24)+(e>>>24)+(r>>>24)+0+((f&65535)<<8)+((t&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(t>>>16)+0<<16)+(b>>8&65535); | |
e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>> | |
24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+ | |
(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215; | |
a=d;d=c^k;c=a^h;a=(g&16777215)+(w&16777215);b=(a>>>24)+(g>>>24)+(w>>>24)+((l&65535)<<8)+((x&65535)<<8);l=((b>>>24)+(l>>>16)+(x>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(q&16777215)+0;b=(a>>>24)+(c>>>24)+(q>>>24)+0+((d&65535)<<8)+((p&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(p>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(r&16777215)+0;b=(a>>>24)+(h>>>24)+(r>>>24)+0+((k&65535)<<8)+((t&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(t>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+ | |
(u&16777215)+14;b=(a>>>24)+(e>>>24)+(u>>>24)+0+((f&65535)<<8)+((v&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(v>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f; | |
f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d& | |
65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^ | |
g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>>27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(q&16777215);b=(a>>>24)+(g>>>24)+(q>>>24)+((l&65535)<<8)+((p&65535)<<8);l=((b>>>24)+(l>>>16)+(p>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(r&16777215)+0;b=(a>>>24)+(c>>>24)+(r>>>24)+0+((d&65535)<<8)+((t&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(t>>>16)+0<<16)+(b>>8&65535);c=b<<24| | |
a&16777215;a=(h&16777215)+(u&16777215)+0;b=(a>>>24)+(h>>>24)+(u>>>24)+0+((k&65535)<<8)+((v&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(v>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(n&16777215)+15;b=(a>>>24)+(e>>>24)+(n>>>24)+0+((f&65535)<<8)+((m&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(m>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25| | |
c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<< | |
8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h; | |
a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(r&16777215);b=(a>>>24)+(g>>>24)+(r>>>24)+((l&65535)<<8)+((t&65535)<<8);l=((b>>>24)+(l>>>16)+(t>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+ | |
(u&16777215)+0;b=(a>>>24)+(c>>>24)+(u>>>24)+0+((d&65535)<<8)+((v&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(v>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(n&16777215)+0;b=(a>>>24)+(h>>>24)+(n>>>24)+0+((k&65535)<<8)+((m&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(m>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(w&16777215)+16;b=(a>>>24)+(e>>>24)+(w>>>24)+0+((f&65535)<<8)+((x&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(x>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b= | |
(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<14|c>>>18)^l;c=(c<<14|a>>>18)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<16|e>>>16)^k;e=(e<<16|a>>>16)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<< | |
24|a&16777215;a=f;f=(e<<20|f>>>12)^l;e=(a<<20|e>>>12)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<25|d>>>7)^k;c=(a<<25|c>>>7)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<23|c>>>9)^l;c=(c<<23|a>>>9)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+ | |
((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(e<<8|f>>>24)^k;e=(a<<8|e>>>24)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(f<<5|e>>>27)^l;e=(e<<5|a>>>27)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(c<<5|d>>> | |
27)^k;c=(a<<5|c>>>27)^h;a=(g&16777215)+(u&16777215);b=(a>>>24)+(g>>>24)+(u>>>24)+((l&65535)<<8)+((v&65535)<<8);l=((b>>>24)+(l>>>16)+(v>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(n&16777215)+0;b=(a>>>24)+(c>>>24)+(n>>>24)+0+((d&65535)<<8)+((m&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(m>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(w&16777215)+0;b=(a>>>24)+(h>>>24)+(w>>>24)+0+((k&65535)<<8)+((x&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(x>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215; | |
a=(e&16777215)+(q&16777215)+17;b=(a>>>24)+(e>>>24)+(q>>>24)+0+((f&65535)<<8)+((p&65535)<<8)+0;f=((b>>>24)+(f>>>16)+(p>>>16)+0<<16)+(b>>8&65535);e=b<<24|a&16777215;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l&65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(d<<25|c>>>7)^l;c=(c<<25|a>>>7)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a& | |
16777215;a=f;f=(e<<1|f>>>31)^k;e=(a<<1|e>>>31)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=(e<<14|f>>>18)^l;e=(a<<14|e>>>18)^g;a=(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=(d<<12|c>>>20)^k;c=(c<<12|a>>>20)^h;a=(g&16777215)+(c&16777215);b=(a>>>24)+(g>>>24)+(c>>>24)+((l& | |
65535)<<8)+((d&65535)<<8);l=((b>>>24)+(l>>>16)+(d>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=d;d=(c<<26|d>>>6)^l;c=(a<<26|c>>>6)^g;a=(h&16777215)+(e&16777215);b=(a>>>24)+(h>>>24)+(e>>>24)+((k&65535)<<8)+((f&65535)<<8);k=((b>>>24)+(k>>>16)+(f>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=f;f=(f<<22|e>>>10)^k;e=(e<<22|a>>>10)^h;a=(g&16777215)+(e&16777215);b=(a>>>24)+(g>>>24)+(e>>>24)+((l&65535)<<8)+((f&65535)<<8);l=((b>>>24)+(l>>>16)+(f>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=f;f=e^l;e=a^g;a= | |
(h&16777215)+(c&16777215);b=(a>>>24)+(h>>>24)+(c>>>24)+((k&65535)<<8)+((d&65535)<<8);k=((b>>>24)+(k>>>16)+(d>>>16)<<16)+(b>>8&65535);h=b<<24|a&16777215;a=d;d=c^k;c=a^h;a=(g&16777215)+(n&16777215);b=(a>>>24)+(g>>>24)+(n>>>24)+((l&65535)<<8)+((m&65535)<<8);l=((b>>>24)+(l>>>16)+(m>>>16)<<16)+(b>>8&65535);g=b<<24|a&16777215;a=(c&16777215)+(w&16777215)+0;b=(a>>>24)+(c>>>24)+(w>>>24)+0+((d&65535)<<8)+((x&65535)<<8)+0;d=((b>>>24)+(d>>>16)+(x>>>16)+0<<16)+(b>>8&65535);c=b<<24|a&16777215;a=(h&16777215)+(q& | |
16777215)+0;b=(a>>>24)+(h>>>24)+(q>>>24)+0+((k&65535)<<8)+((p&65535)<<8)+0;k=((b>>>24)+(k>>>16)+(p>>>16)+0<<16)+(b>>8&65535);h=b<<24|a&16777215;a=(e&16777215)+(r&16777215)+18;b=(a>>>24)+(e>>>24)+(r>>>24)+0+((f&65535)<<8)+((t&65535)<<8)+0;y[0]=g;y[1]=l;y[2]=c;y[3]=d;y[4]=h;y[5]=k;y[6]=b<<24|a&16777215;y[7]=((b>>>24)+(f>>>16)+(t>>>16)+0<<16)+(b>>8&65535)};"undefined"!==typeof exports&&(exports.h$Threefish_256_Process_Block=h$Threefish_256_Process_Block); | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
function h$_hs_text_memcpy(dst_v,dst_o2,src_v,src_o2,n) { | |
return h$memcpy(dst_v,2*dst_o2,src_v,2*src_o2,2*n); | |
} | |
function h$_hs_text_memcmp(a_v,a_o2,b_v,b_o2,n) { | |
return h$memcmp(a_v,2*a_o2,b_v,2*b_o2,2*n); | |
} | |
// decoder below adapted from cbits/cbits.c in the text package | |
var h$_text_utf8d = | |
[ | |
/* | |
* The first part of the table maps bytes to character classes that | |
* to reduce the size of the transition table and create bitmasks. | |
*/ | |
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, | |
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, | |
8,8,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, | |
10,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3, 11,6,6,6,5,8,8,8,8,8,8,8,8,8,8,8, | |
/* | |
* The second part is a transition table that maps a combination of | |
* a state of the automaton and a character class to a state. | |
*/ | |
0,12,24,36,60,96,84,12,12,12,48,72, 12,12,12,12,12,12,12,12,12,12,12,12, | |
12, 0,12,12,12,12,12, 0,12, 0,12,12, 12,24,12,12,12,12,12,24,12,24,12,12, | |
12,12,12,12,12,12,12,24,12,12,12,12, 12,24,12,12,12,12,12,12,12,24,12,12, | |
12,12,12,12,12,12,12,36,12,36,12,12, 12,36,12,12,12,12,12,36,12,36,12,12, | |
12,36,12,12,12,12,12,12,12,12,12,12]; | |
/* | |
* A best-effort decoder. Runs until it hits either end of input or | |
* the start of an invalid byte sequence. | |
* | |
* At exit, updates *destoff with the next offset to write to, and | |
* returns the next source offset to read from. | |
*/ | |
function h$_hs_text_decode_utf8_internal ( dest_v | |
, destoff_v, destoff_o | |
, src_v, src_o | |
, src_end_v, src_end_o | |
, s | |
) { | |
if(src_v === null || src_end_v === null) { | |
{ h$ret1 = (src_end_o); return (null); }; | |
} | |
var dsto = destoff_v.dv.getUint32(destoff_o,true) << 1; | |
var srco = src_o; | |
var state = s.state; | |
var codepoint = s.codepoint; | |
var ddv = dest_v.dv; | |
var sdv = src_v.dv; | |
function decode(b) { | |
var type = h$_text_utf8d[b]; | |
codepoint = (state !== 0) ? | |
(b & 0x3f) | (codepoint << 6) : | |
(0xff >>> type) & b; | |
state = h$_text_utf8d[256 + state + type]; | |
return state; | |
} | |
while (srco < src_end_o) { | |
if(decode(sdv.getUint8(srco++)) !== 0) { | |
if(state !== 12) { | |
continue; | |
} else { | |
break; | |
} | |
} | |
if (codepoint <= 0xffff) { | |
ddv.setUint16(dsto,codepoint,true); | |
dsto += 2; | |
} else { | |
ddv.setUint16(dsto,(0xD7C0 + (codepoint >>> 10)),true); | |
ddv.setUint16(dsto+2,(0xDC00 + (codepoint & 0x3FF)),true); | |
dsto += 4; | |
} | |
s.last = srco; | |
} | |
s.state = state; | |
s.codepoint = codepoint; | |
destoff_v.dv.setUint32(destoff_o,dsto>>1,true); | |
{ h$ret1 = (srco); return (src_v); }; | |
} | |
function h$_hs_text_decode_utf8_state( dest_v | |
, destoff_v, destoff_o | |
, src_v, src_o | |
, srcend_v, srcend_o | |
, codepoint0_v, codepoint0_o | |
, state0_v, state0_o | |
) { | |
var s = { state: state0_v.dv.getUint32(state0_o, true) | |
, codepoint: codepoint0_v.dv.getUint32(codepoint0_o, true) | |
, last: src_o | |
}; | |
var ret, ret1; | |
{ (ret) = (h$_hs_text_decode_utf8_internal ( dest_v , destoff_v, destoff_o , src_v.arr[src_o][0], src_v.arr[src_o][1] , srcend_v, srcend_o , s )); (ret1) = h$ret1; }; | |
src_v.arr[src_o][1] = s.last; | |
state0_v.dv.setUint32(state0_o, s.state, true); | |
codepoint0_v.dv.setUint32(codepoint0_o, s.codepoint, true); | |
if(s.state === 12) ret1--; | |
{ h$ret1 = (ret1); return (ret); }; | |
} | |
function h$_hs_text_decode_utf8( dest_v | |
, destoff_v, destoff_o | |
, src_v, src_o | |
, srcend_v, srcend_o | |
) { | |
/* Back up if we have an incomplete or invalid encoding */ | |
var s = { state: 0 | |
, codepoint: 0 | |
, last: src_o | |
}; | |
var ret, ret1; | |
{ (ret) = (h$_hs_text_decode_utf8_internal ( dest_v , destoff_v, destoff_o , src_v, src_o , srcend_v, srcend_o , s )); (ret1) = h$ret1; }; | |
if (s.state !== 0) ret1--; | |
{ h$ret1 = (ret1); return (ret); }; | |
} | |
/* | |
* The ISO 8859-1 (aka latin-1) code points correspond exactly to the first 256 unicode | |
* code-points, therefore we can trivially convert from a latin-1 encoded bytestring to | |
* an UTF16 array | |
*/ | |
function h$_hs_text_decode_latin1(dest_d, src_d, src_o, srcend_d, srcend_o) { | |
var p = src_o; | |
var d = 0; | |
var su8 = src_d.u8; | |
var su3 = src_d.u3; | |
var du1 = dest_d.u1; | |
// consume unaligned prefix | |
while(p != srcend_o && p & 3) { | |
du1[d++] = su8[p++]; | |
} | |
// iterate over 32-bit aligned loads | |
if(su3) { | |
while (p < srcend_o - 3) { | |
var w = su3[p>>2]; | |
du1[d++] = w & 0xff; | |
du1[d++] = (w >>> 8) & 0xff; | |
du1[d++] = (w >>> 16) & 0xff; | |
du1[d++] = (w >>> 32) & 0xff; | |
p += 4; | |
} | |
} | |
// handle unaligned suffix | |
while (p != srcend_o) | |
du1[d++] = su8[p++]; | |
} | |
function h$_hs_text_encode_utf8(destp_v, destp_o, src_v, srcoff, srclen) { | |
var dest_v = destp_v.arr[destp_o][0]; | |
var dest_o = destp_v.arr[destp_o][1]; | |
var src = srcoff; | |
var dest = dest_o; | |
var srcend = src + srclen; | |
var srcu1 = src_v.u1; | |
if(!srcu1) throw "h$_hs_text_encode_utf8: invalid alignment for source"; | |
var srcu3 = src_v.u3; | |
var destu8 = dest_v.u8; | |
while(src < srcend) { | |
// run of (aligned) ascii characters | |
while(srcu3 && !(src & 1) && srcend - src >= 2) { | |
var w = srcu3[src>>1]; | |
if(w & 0xFF80FF80) break; | |
destu8[dest++] = w & 0xFFFF; | |
destu8[dest++] = w >>> 16; | |
src += 2; | |
} | |
while(src < srcend) { | |
var w = srcu1[src++]; | |
if(w <= 0x7F) { | |
destu8[dest++] = w; | |
break; // go back to a stream of ASCII | |
} else if(w <= 0x7FF) { | |
destu8[dest++] = (w >> 6) | 0xC0; | |
destu8[dest++] = (w & 0x3f) | 0x80; | |
} else if(w < 0xD800 || w > 0xDBFF) { | |
destu8[dest++] = (w >>> 12) | 0xE0; | |
destu8[dest++] = ((w >> 6) & 0x3F) | 0x80; | |
destu8[dest++] = (w & 0x3F) | 0x80; | |
} else { | |
var c = ((w - 0xD800) << 10) + (srcu1[src++] - 0xDC00) + 0x10000; | |
destu8[dest++] = (c >>> 18) | 0xF0; | |
destu8[dest++] = ((c >> 12) & 0x3F) | 0x80; | |
destu8[dest++] = ((c >> 6) & 0x3F) | 0x80; | |
destu8[dest++] = (c & 0x3F) | 0x80; | |
} | |
} | |
} | |
destp_v.arr[destp_o][1] = dest; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
/* FNV-1 hash | |
* | |
* The FNV-1 hash description: http://isthe.com/chongo/tech/comp/fnv/ | |
* The FNV-1 hash is public domain: http://isthe.com/chongo/tech/comp/fnv/#public_domain | |
*/ | |
function h$hashable_fnv_hash_offset(str_a, o, len, hash) { | |
return h$hashable_fnv_hash(str_a, o, len, hash); | |
} | |
function h$hashable_fnv_hash(str_d, str_o, len, hash) { | |
if(len > 0) { | |
var d = str_d.u8; | |
for(var i=0;i<len;i++) { | |
hash = h$mulInt32(hash, 16777619) ^ d[str_o+i]; | |
} | |
} | |
return hash; | |
} | |
// int hashable_getRandomBytes(unsigned char *dest, int nbytes) | |
function h$hashable_getRandomBytes(dest_d, dest_o, len) { | |
if(len > 0) { | |
var d = dest_d.u8; | |
for(var i=0;i<len;i++) { | |
d[dest_o+i] = Math.floor(Math.random() * 256); | |
} | |
} | |
return len; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
// JS Objects stuff | |
function h$isFloat (n) { | |
return n===+n && n!==(n|0); | |
} | |
function h$isInteger (n) { | |
return n===+n && n===(n|0); | |
} | |
/* | |
-- 0 - null, 1 - integer, | |
-- 2 - float, 3 - bool, | |
-- 4 - string, 5 - array | |
-- 6 - object | |
*/ | |
function h$typeOf(o) { | |
if (!(o instanceof Object)) { | |
if (o == null) { | |
return 0; | |
} else if (typeof o == 'number') { | |
if (h$isInteger(o)) { | |
return 1; | |
} else { | |
return 2; | |
} | |
} else if (typeof o == 'boolean') { | |
return 3; | |
} else { | |
return 4; | |
} | |
} else { | |
if (Object.prototype.toString.call(o) == '[object Array]') { | |
// it's an array | |
return 5; | |
} else if (!o) { | |
// null | |
return 0; | |
} else { | |
// it's an object | |
return 6; | |
} | |
} | |
} | |
function h$listProps(o) { | |
if (!(o instanceof Object)) { | |
return []; | |
} | |
var l = [], i = 0; | |
for (var prop in o) { | |
l[i++] = prop; | |
} | |
return l; | |
} | |
function h$flattenObj(o) { | |
var l = [], i = 0; | |
for (var prop in o) { | |
l[i++] = [prop, o[prop]]; | |
} | |
return l; | |
} | |
/* | |
build an object from key/value pairs: | |
var obj = h$buildObject(key1, val1, key2, val2, ...); | |
note: magic name: | |
invocations of this function are replaced by object literals wherever | |
possible | |
*/ | |
function h$buildObject() { | |
var r = {}, l = arguments.length; | |
for(var i = 0; i < l; i += 2) { | |
var k = arguments[i], v = arguments[i+1]; | |
r[k] = v; | |
} | |
return r; | |
} | |
// same as above, but from a list: [k1,v1,k2,v2,...] | |
function h$buildObjectFromList(xs) { | |
var r = {}, k, v, t; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
xs = ((xs).d2); | |
t = ((xs).d2); | |
if(((t).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
k = ((xs).d1); | |
v = ((t).d1); | |
xs = ((t).d2); | |
r[k] = v; | |
} else { | |
return r; | |
} | |
} | |
return r; | |
} | |
// same as above, but from a list of tuples [(k1,v1),(k2,v2),...] | |
function h$buildObjectFromTupList(xs) { | |
var r = {}; | |
while(((xs).f === h$ghczmprimZCGHCziTypesziZC_con_e)) { | |
var h = ((xs).d1); | |
xs = ((xs).d2); | |
r[((((h).d1)).d1)] = ((((h).d2)).d1); | |
} | |
return r; | |
} | |
/* Copyright (C) 1991-2016 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, see | |
<http://www.gnu.org/licenses/>. */ | |
/* This header is separate from features.h so that the compiler can | |
include it implicitly at the start of every compilation. It must | |
not itself include <features.h> or any other header that includes | |
<features.h> because the implicit include comes before any feature | |
test macros that may be defined in a source file before it first | |
explicitly includes a system header. GCC knows the name of this | |
header in order to preinclude it. */ | |
/* glibc's intent is to support the IEC 559 math functionality, real | |
and complex. If the GCC (4.9 and later) predefined macros | |
specifying compiler intent are available, use them to determine | |
whether the overall intent is to support these features; otherwise, | |
presume an older compiler has intent to support these features and | |
define these macros by default. */ | |
/* wchar_t uses Unicode 8.0.0. Version 8.0 of the Unicode Standard is | |
synchronized with ISO/IEC 10646:2014, plus Amendment 1 (published | |
2015-05-15). */ | |
/* We do not support C11 <threads.h>. */ | |
// values defined in Gen2.ClosureInfo | |
// thread status | |
/* | |
* low-level heap object manipulation macros | |
*/ | |
// GHCJS.Prim.JSVal | |
// GHCJS.Prim.JSException | |
// Exception dictionary for JSException | |
// SomeException | |
// GHC.Ptr.Ptr | |
// GHC.Integer.GMP.Internals | |
// Data.Maybe.Maybe | |
// #define HS_NOTHING h$nothing | |
// Data.List | |
// Data.Text | |
// Data.Text.Lazy | |
// black holes | |
// can we skip the indirection for black holes? | |
// resumable thunks | |
// general deconstruction | |
// retrieve a numeric value that's possibly stored as an indirection | |
// generic lazy values | |
// generic data constructors and selectors | |
// unboxed tuple returns | |
// #define RETURN_UBX_TUP1(x) return x; | |
// translated from bytestring cbits/fpstring.c | |
function h$fps_reverse(a_v, a_o, b_v, b_o, n) { | |
if(n > 0) { | |
var au8 = a_v.u8, bu8 = b_v.u8; | |
for(var i=0;i<n;i++) { | |
au8[a_o+n-i-1] = bu8[b_o+i]; | |
} | |
} | |
} | |
function h$fps_intersperse(a_v,a_o,b_v,b_o,n,c) { | |
if(n > 0) { | |
var au8 = a_v.u8, bu8 = b_v.u8, dst_o = a_o; | |
for(var i=0;i<n-1;i++) { | |
au8[dst_o] = bu8[b_o+i]; | |
au8[dst_o+1] = c; | |
dst_o += 2; | |
} | |
au8[dst_o] = bu8[b_o+n-1]; | |
} | |
} | |
function h$fps_maximum(a_v,a_o,n) { | |
if(n > 0) { | |
var au8 = a_v.u8, max = au8[a_o]; | |
for(var i=1;i<n;i++) { | |
var c = au8[a_o+i]; | |
if(c > max) { max = c; } | |
} | |
return max; | |
} | |
return 0; | |
} | |
function h$fps_minimum(a_v,a_o,n) { | |
if(n > 0) { | |
var au8 = a_v.u8, min = a_v.u8[a_o]; | |
for(var i=1;i<n;i++) { | |
var c = au8[a_o+i]; | |
if(c < min) { min = c; } | |
} | |
return min; | |
} | |
return 255; | |
} | |
function h$fps_count(a_v,a_o,n,c) { | |
if(n > 0) { | |
var au8 = a_v.u8, count = 0; | |
for(var i=0;i<n;i++) { | |
if(au8[a_o+i] === c) { count++; } | |
} | |
return count|0; | |
} | |
return 0; | |
} | |
function h$fps_memcpy_offsets(dst_d, dst_o, dst_off | |
, src_d, src_o, src_off, n) { | |
return memcpy(dst_d, dst_o + dst_off, src_d, src_o + src_off, n); | |
} | |
// translated from bytestring cbits/itoa.c | |
var h$_hs_bytestring_digits = [48,49,50,51,52,53,54,55,56,57,97,98,99,100,101,102]; // 0123456789abcdef | |
var h$_hs_bytestring_l10 = goog.math.Long.fromBits(10, 0); | |
// signed integers | |
function h$_hs_bytestring_int_dec(x, buf_d, buf_o) { | |
var c, ptr = buf_o, next_free, x_tmp; | |
var bu8 = buf_d.u8; | |
// we cannot negate directly as 0 - (minBound :: Int) = minBound | |
if(x < 0) { | |
bu8[ptr++] = 45; // '-' | |
buf_o++; | |
x_tmp = x; | |
x = (x / 10) | 0; | |
bu8[ptr++] = h$_hs_bytestring_digits[x * 10 - x_tmp]; | |
if(x === 0) { | |
{ h$ret1 = (ptr); return (buf_d); }; | |
} else { | |
x = -x; | |
} | |
} | |
// encode positive number as little-endian decimal | |
do { | |
x_tmp = x; | |
x = (x / 10) | 0; | |
bu8[ptr++] = h$_hs_bytestring_digits[x_tmp - x * 10]; | |
} while (x); | |
next_free = ptr--; | |
while(buf_o < ptr) { | |
c = bu8[ptr]; | |
bu8[ptr--] = bu8[buf_o]; | |
bu8[buf_o++] = c; | |
} | |
{ h$ret1 = (next_free); return (buf_d); }; | |
} | |
// signed long long ints (64 bit integers) | |
function h$_hs_bytestring_long_long_int_dec(x_a, x_b, buf_d, buf_o) { | |
var l10 = h$_hs_bytestring_l10; | |
var x = goog.math.Long.fromBits(x_b, x_a); | |
var c, ptr = buf_o, next_free; | |
var bu8 = buf_d.u8; | |
// we cannot negate directly as 0 - (minBound :: Int) = minBound | |
if(x.isNegative()) { | |
bu8[ptr++] = 45; // '-'; | |
buf_o++; | |
x_tmp = x; | |
x = x.div(l10); | |
bu8[ptr++] = h$_hs_bytestring_digits[x.multiply(l10).subtract(x_tmp).getLowBits()]; | |
if(x.isZero()) { | |
{ h$ret1 = (ptr); return (buf_d); }; | |
} else { | |
x = x.negate(); | |
} | |
} | |
// encode positive number as little-endian decimal | |
do { | |
x_tmp = x; | |
x = x.div(l10); | |
bu8[ptr++] = h$_hs_bytestring_digits[x_tmp.subtract(x.multiply(l10))]; | |
} while (!x.isZero()); | |
// reverse written digits | |
next_free = ptr--; | |
while(buf_o < ptr) { | |
c = bu8[ptr]; | |
bu8[ptr--] = bu8[buf_o]; | |
bu8[buf_o++] = c; | |
} | |
{ h$ret1 = (next_free); return (buf_d); }; | |
} | |
// unsigned integers | |
function h$_hs_bytestring_uint_dec(x, buf_d, buf_o) { | |
var c, ptr = buf_o, next_free; | |
var bu8 = buf_d.u8; | |
var x_tmp; | |
if(x < 0) x += 4294967296; | |
do { | |
x_tmp = x; | |
x = (x / 10) | 0; | |
bu8[ptr++] = h$_hs_bytestring_digits[x_tmp - x * 10]; | |
} while(x); | |
next_free = ptr--; | |
while(buf_o < ptr) { | |
c = bu8[ptr]; | |
bu8[ptr--] = bu8[buf_o]; | |
bu8[buf_o++] = c; | |
} | |
{ h$ret1 = (next_free); return (buf_d); }; | |
} | |
function h$_hs_bytestring_long_long_uint_dec(x_a, x_b, buf_d, buf_o) { | |
var c, ptr = buf_o, next_free; | |
var bu8 = buf_d.u8; | |
var x = h$ghcjsbn_mkBigNat_ww(x_a, x_b), q = [], r = []; | |
// encode positive number as little-endian decimal | |
do { | |
h$ghcjsbn_quotRem_bw(q, r, x, 10); | |
x = q; | |
bu8[ptr++] = h$_hs_bytestring_digits[h$ghcjsbn_toInt_b(r)]; | |
} while(!h$ghcjsbn_isZero_b(x)); | |
// reverse written digits; | |
next_free = ptr--; | |
while(buf_o < ptr) { | |
c = bu8[ptr]; | |
bu8[ptr--] = bu8[buf_o]; | |
bu8[buf_o++] = c; | |
} | |
{ h$ret1 = (next_free); return (buf_d); }; | |
} | |
// Padded, decimal, positive integers for the decimal output of bignums | |
/////////////////////////////////////////////////////////////////////// | |
// Padded (9 digits), decimal, positive int: | |
// We will use it with numbers that fit in 31 bits; i.e., numbers smaller than | |
// 10^9, as "31 * log 2 / log 10 = 9.33" | |
function h$_hs_bytestring_int_dec_padded9(x, buf_d, buf_o) { | |
var max_width_int32_dec = 9; | |
var ptr = buf_o + max_width_int32_dec; | |
var bu8 = buf_d.u8; | |
var x_tmp; | |
// encode positive number as little-endian decimal | |
do { | |
x_tmp = x; | |
x = (x / 10) | 0; | |
bu8[--ptr] = h$_hs_bytestring_digits[x_tmp - x * 10]; | |
} while(x); | |
// pad beginning | |
while (buf_o < ptr) { bu8[--ptr] = 48; } | |
} | |
// Padded (19 digits), decimal, positive long long int: | |
// We will use it with numbers that fit in 63 bits; i.e., numbers smaller than | |
// 10^18, as "63 * log 2 / log 10 = 18.96" | |
function h$_hs_bytestring_long_long_int_dec_padded18(x_a, x_b, buf_d, buf_o) { | |
var l10 = h$_hs_bytestring_l10; | |
var max_width_int64_dec = 18; | |
var ptr = buf_o + max_width_int64_dec; | |
var bu8 = buf_d.u8; | |
var x = goog.math.Long.fromBits(x_b, x_a); | |
// encode positive number as little-endian decimal | |
do { | |
x_tmp = x; | |
x = x.div(l10); | |
bu8[--ptr] = h$_hs_bytestring_digits[x_tmp.subtract(x.multiply(l10))]; | |
} while (!x.isZero()); | |
// pad beginning | |
while (buf_o < ptr) { bu8[--ptr] = 48; } | |
} | |
/////////////////////// | |
// Hexadecimal encoding | |
/////////////////////// | |
// unsigned ints (32 bit words) | |
function h$_hs_bytestring_uint_hex(x, buf_d, buf_o) { | |
var c, ptr = buf_o, next_free; | |
var bu8 = buf_d.u8; | |
// write hex representation in reverse order | |
do { | |
bu8[ptr++] = h$_hs_bytestring_digits[x & 0xf]; | |
x >>>= 4; | |
} while(x); | |
// invert written digits | |
next_free = ptr--; | |
while(buf_o < ptr) { | |
c = bu8[ptr]; | |
bu8[ptr--] = bu8[buf_o]; | |
bu8[buf_o++] = c; | |
} | |
{ h$ret1 = (next_free); return (buf_d); }; | |
} | |
// unsigned long ints (64 bit words) | |
function h$_hs_bytestring_long_long_uint_hex(x_a, x_b, buf_d, buf_o) { | |
// write hex representation in reverse order | |
var c, ptr = buf_o, next_free; | |
var bu8 = buf_d.u8; | |
if(x_a === 0 && x_b === 0) { | |
bu8[ptr++] = 48; // '0' | |
} else { | |
while(x_b !== 0) { | |
bu8[ptr++] = h$_hs_bytestring_digits[x_b & 0xf]; | |
x_b >>>= 4; | |
} | |
while(x_a !== 0) { | |
bu8[ptr++] = h$_hs_bytestring_digits[x_a & 0xf]; | |
x_a >>>= 4; | |
} | |
} | |
// invert written digits | |
next_free = ptr--; | |
while(buf_o < ptr) { | |
c = bu8[ptr]; | |
bu8[ptr--] = bu8[buf_o]; | |
bu8[buf_o++] = c; | |
} | |
{ h$ret1 = (next_free); return (buf_d); }; | |
} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE OverloadedStrings #-} | |
{-# LANGUAGE RecursiveDo #-} | |
import Reflex | |
import Reflex.Dom | |
import Data.Monoid ((<>)) | |
import qualified Data.Map as Map | |
import Safe (readMay) | |
import Data.Text (pack, unpack, Text) | |
import Control.Applicative ((<*>), (<$>)) | |
main = mainWidget $ do | |
el "script" $ text "$(document).ready(function(){$('select').material_select(); });" | |
nx <- divClass "row" $ numberInput | |
d <- divClass "input-field col s12" $ do | |
d <- dropdown "*" (constDyn ops) def | |
el "label" $ text "Operation" | |
return d | |
ny <- divClass "row" $ numberInput | |
let values = zipDynWith (,) nx ny | |
result = zipDynWith (\o (x,y) -> textToOp o <$> x <*> y) (_dropdown_value d) values | |
resultText = fmap (pack . show) result | |
text " = " | |
dynText resultText | |
numberInput :: (MonadWidget t m) => m (Dynamic t (Maybe Double)) | |
numberInput = do | |
let errorState = "style" =: "border-color: red" | |
validState = "style" =: "border-color: green" | |
rec n <- textInput $ def & textInputConfig_inputType .~ "number" | |
& textInputConfig_initialValue .~ "0" | |
& textInputConfig_attributes .~ attrs | |
let result = fmap (readMay . unpack) $ _textInput_value n | |
attrs = fmap (maybe errorState (const validState)) result | |
return result | |
ops = Map.fromList [("+", "+"), ("-", "-"), ("*", "*"), ("/", "/")] | |
textToOp :: (Fractional a) => Text -> a -> a -> a | |
textToOp s = case s of | |
"-" -> (-) | |
"*" -> (*) | |
"/" -> (/) | |
_ -> (+) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file has been truncated, but you can view the full file.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function h$ghczmprimZCGHCziTypesziTyCon_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziTyCon_e() | |
{ | |
h$r1 = h$c6(h$ghczmprimZCGHCziTypesziTyCon_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziModule_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziModule_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziModule_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziTrNameS_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziTrNameS_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziTrNameS_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziGT_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziEQ_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziLT_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziMkCoercible_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziMkCoercible_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziEqzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziEqzh_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziWzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziWzh_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziTrue_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziZMZN_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziIzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziIzh_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziFalse_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziDzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziDzh_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziZC_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziZC_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziCzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziCzh_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$$a() | |
{ | |
--h$sp; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziCoerciblezusc_e() | |
{ | |
h$p1(h$$a); | |
return h$e(h$r2); | |
}; | |
function h$$b() | |
{ | |
--h$sp; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTypesziHEqzusc_e() | |
{ | |
h$p1(h$$b); | |
return h$e(h$r2); | |
}; | |
function h$ghczmprimZCGHCziTupleziUnit_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziUnit_e() | |
{ | |
h$r1 = h$c1(h$ghczmprimZCGHCziTupleziUnit_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c10(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, | |
h$r7, h$r8, h$r9, h$r10, h$r11); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c9(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, | |
h$r8, h$r9, h$r10); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c8(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, | |
h$r9); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c7(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c6(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c5(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5, h$r6); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c4(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e, h$r2, h$r3, h$r4, h$r5); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_e() | |
{ | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLz2cUZR_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziTupleziZLZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziIntWord64zinegateInt64zh_e() | |
{ | |
var a = h$hs_negateInt64(h$r2, h$r3); | |
h$r1 = a; | |
h$r2 = h$ret1; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziIntWord64ziword64ToInt64zh_e() | |
{ | |
var a = h$hs_word64ToInt64(h$r2, h$r3); | |
h$r1 = a; | |
h$r2 = h$ret1; | |
return h$rs(); | |
}; | |
function h$$g() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$f() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
if((b === e)) | |
{ | |
h$l3(d, c, h$ghczmprimZCGHCziClasseszizdfEqZMZNzuzdszdczeze1); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$e() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$f); | |
return h$e(b); | |
}; | |
function h$$d() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$e); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$c() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$g); | |
return h$e(b); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$p3(c, a.d2, h$$d); | |
return h$e(b); | |
}; | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfEqZMZNzuzdszdczeze1_e() | |
{ | |
h$p2(h$r3, h$$c); | |
return h$e(h$r2); | |
}; | |
function h$$i() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((c <= d)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$h() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p3(a, a, h$$i); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdIntzuzdcmax_e() | |
{ | |
h$p2(h$r3, h$$h); | |
return h$e(h$r2); | |
}; | |
function h$$k() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((c <= d)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$j() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p3(a, a, h$$k); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdIntzuzdcmin_e() | |
{ | |
h$p2(h$r3, h$$j); | |
return h$e(h$r2); | |
}; | |
function h$$m() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$ghczmprimZCGHCziClasseszizdp1Ord); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$ghczmprimZCGHCziClasseszizdp1Ord); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdcp1Ord_e() | |
{ | |
h$l3(h$c1(h$$m, h$r3), h$c1(h$$l, h$r2), h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$n() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = h$ghczmprimZCGHCziTypesziLT; | |
break; | |
case (2): | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszicompare); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = h$ghczmprimZCGHCziTypesziGT; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdccompare_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$n); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$p() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdccompare); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$o() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$p); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdccompare_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$o); | |
return h$e(h$r4); | |
}; | |
function h$$q() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = true; | |
break; | |
case (2): | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizl); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdczl_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$q); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$s() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdczl); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$r() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$s); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczl_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$r); | |
return h$e(h$r4); | |
}; | |
function h$$t() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = true; | |
break; | |
case (2): | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizlze); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdczlze_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$t); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$v() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdczlze); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$u() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$v); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczlze_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$u); | |
return h$e(h$r4); | |
}; | |
function h$$w() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = false; | |
break; | |
case (2): | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizg); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdczg_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$w); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$y() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdczg); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$x() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$y); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczg_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$x); | |
return h$e(h$r4); | |
}; | |
function h$$z() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = false; | |
break; | |
case (2): | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizgze); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdczgze_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$z); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$B() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdczgze); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$A() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$B); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczgze_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$A); | |
return h$e(h$r4); | |
}; | |
function h$$F() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$E() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = b; | |
break; | |
case (2): | |
h$pp6(d, h$$F); | |
h$l4(e, f, c, h$ghczmprimZCGHCziClasseszizlze); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = d; | |
}; | |
return h$rs(); | |
}; | |
function h$$D() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 6; | |
var d = a.d1; | |
h$pp41(a, a.d2, h$$E); | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszicompare); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$C() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp60(a, c, a.d2, h$$D); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdcmax_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$C); | |
return h$e(h$r4); | |
}; | |
function h$$J() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$I() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = d; | |
break; | |
case (2): | |
h$pp6(d, h$$J); | |
h$l4(e, f, c, h$ghczmprimZCGHCziClasseszizlze); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$H() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 6; | |
var d = a.d1; | |
h$pp41(a, a.d2, h$$I); | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszicompare); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$G() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp60(a, c, a.d2, h$$H); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdcmin_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$G); | |
return h$e(h$r4); | |
}; | |
function h$$K() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfEqZMZNzuzdszdczsze1_e() | |
{ | |
h$p1(h$$K); | |
h$r1 = h$r1.d1; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$M() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$$L() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$p1(h$$M); | |
return h$e(b); | |
}; | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfEqBoolzuzdczeze_e() | |
{ | |
h$p2(h$r3, h$$L); | |
return h$e(h$r2); | |
}; | |
function h$$N() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizeze); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdczeze_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$N); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$P() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdczeze); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$O() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$P); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfEqZLz2cUZRzuzdczeze_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$O); | |
return h$e(h$r4); | |
}; | |
function h$$R() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$$Q() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$p1(h$$R); | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizeze); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdwzdczsze_e() | |
{ | |
var a = h$r4; | |
h$p4(h$r3, h$r5, h$r7, h$$Q); | |
h$r4 = h$r6; | |
h$r3 = a; | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$T() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d1; | |
h$l7(a.d2, f, e, d, c, b, h$ghczmprimZCGHCziClasseszizdwzdczsze); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$S() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = a.d1; | |
h$pp28(c, a.d2, h$$T); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfEqZLz2cUZRzuzdczsze_e() | |
{ | |
h$p4(h$r2, h$r3, h$r5, h$$S); | |
return h$e(h$r4); | |
}; | |
function h$$V() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfEqZLz2cUZRzuzdczsze); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$U() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfEqZLz2cUZRzuzdczeze); | |
return h$ap_4_4_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfEqZLz2cUZR_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziClassesziCZCEq_con_e, h$c2(h$$U, h$r2, h$r3), h$c2(h$$V, h$r2, h$r3)); | |
return h$rs(); | |
}; | |
function h$$ad() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdcmin); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$ac() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdcmax); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$ab() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczgze); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$aa() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczg); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$Z() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczlze); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$Y() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdczl); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$X() | |
{ | |
var a = h$r1.d1; | |
h$l5(h$r3, h$r2, h$r1.d2, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdccompare); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$W() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZRzuzdcp1Ord); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdfOrdZLz2cUZR_e() | |
{ | |
h$r1 = h$c8(h$ghczmprimZCGHCziClassesziCZCOrd_con_e, h$c2(h$$W, h$r2, h$r3), h$c2(h$$X, h$r2, h$r3), h$c2(h$$Y, h$r2, | |
h$r3), h$c2(h$$Z, h$r2, h$r3), h$c2(h$$aa, h$r2, h$r3), h$c2(h$$ab, h$r2, h$r3), h$c2(h$$ac, h$r2, h$r3), h$c2(h$$ad, | |
h$r2, h$r3)); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$r1 = h$c17(h$ghczmprimZCGHCziClassesziCZCZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_con_e, | |
h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9, h$r10, h$r11, h$r12, h$r13, h$r14, h$r15, h$r16, h$r17, h$r18); | |
return h$rs(); | |
}; | |
function h$$ae() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d16; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp17ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ae); | |
return h$e(h$r2); | |
}; | |
function h$$af() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d14; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp15ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$af); | |
return h$e(h$r2); | |
}; | |
function h$$ag() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d6; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp7ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ag); | |
return h$e(h$r2); | |
}; | |
function h$$ah() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp3ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ah); | |
return h$e(h$r2); | |
}; | |
function h$$ai() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp2ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ai); | |
return h$e(h$r2); | |
}; | |
function h$$aj() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp1ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$aj); | |
return h$e(h$r2); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$r1 = h$c10(h$ghczmprimZCGHCziClassesziCZCZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_con_e, h$r2, h$r3, h$r4, h$r5, | |
h$r6, h$r7, h$r8, h$r9, h$r10, h$r11); | |
return h$rs(); | |
}; | |
function h$$ak() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d9; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp10ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ak); | |
return h$e(h$r2); | |
}; | |
function h$$al() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d8; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp9ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$al); | |
return h$e(h$r2); | |
}; | |
function h$$am() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d7; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp8ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$am); | |
return h$e(h$r2); | |
}; | |
function h$$an() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d6; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp7ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$an); | |
return h$e(h$r2); | |
}; | |
function h$$ao() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d5; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp6ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ao); | |
return h$e(h$r2); | |
}; | |
function h$$ap() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp4ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ap); | |
return h$e(h$r2); | |
}; | |
function h$$aq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp3ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$aq); | |
return h$e(h$r2); | |
}; | |
function h$$ar() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp2ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$ar); | |
return h$e(h$r2); | |
}; | |
function h$$as() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp1ZLzvz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUz2cUzvZR_e() | |
{ | |
h$p1(h$$as); | |
return h$e(h$r2); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCOrd_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCOrd_e() | |
{ | |
h$r1 = h$c8(h$ghczmprimZCGHCziClassesziCZCOrd_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9); | |
return h$rs(); | |
}; | |
function h$$at() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$ghczmprimZCGHCziClasseszizdp1Ord_e() | |
{ | |
h$p1(h$$at); | |
return h$e(h$r2); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCEq_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClassesziCZCEq_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziClassesziCZCEq_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszidivIntzh_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
if((a > 0)) | |
{ | |
if((b < 0)) | |
{ | |
var c = ((a - 1) | 0); | |
var d = ((c / b) | 0); | |
h$r1 = ((d - 1) | 0); | |
} | |
else | |
{ | |
if((a < 0)) | |
{ | |
if((b > 0)) | |
{ | |
var e = ((a + 1) | 0); | |
var f = ((e / b) | 0); | |
h$r1 = ((f - 1) | 0); | |
} | |
else | |
{ | |
h$r1 = ((a / b) | 0); | |
}; | |
} | |
else | |
{ | |
h$r1 = ((a / b) | 0); | |
}; | |
}; | |
} | |
else | |
{ | |
if((a < 0)) | |
{ | |
if((b > 0)) | |
{ | |
var g = ((a + 1) | 0); | |
var h = ((g / b) | 0); | |
h$r1 = ((h - 1) | 0); | |
} | |
else | |
{ | |
h$r1 = ((a / b) | 0); | |
}; | |
} | |
else | |
{ | |
h$r1 = ((a / b) | 0); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$au() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizbzb_e() | |
{ | |
h$p2(h$r3, h$$au); | |
return h$e(h$r2); | |
}; | |
function h$ghczmprimZCGHCziClasseszicompareIntzh_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = h$r3; | |
if((e < f)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
if((e === f)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$r1 = d; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$aw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a, b, h$ghczmprimZCGHCziClasseszicompareIntzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$av() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aw); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszicompareInt_e() | |
{ | |
h$p2(h$r3, h$$av); | |
return h$e(h$r2); | |
}; | |
function h$$ay() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b <= c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$ax() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$ay); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszileInt_e() | |
{ | |
h$p2(h$r3, h$$ax); | |
return h$e(h$r2); | |
}; | |
function h$$aA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b < c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$az() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aA); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClassesziltInt_e() | |
{ | |
h$p2(h$r3, h$$az); | |
return h$e(h$r2); | |
}; | |
function h$$aC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b >= c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$aB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aC); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszigeInt_e() | |
{ | |
h$p2(h$r3, h$$aB); | |
return h$e(h$r2); | |
}; | |
function h$$aE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b > c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$aD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aE); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszigtInt_e() | |
{ | |
h$p2(h$r3, h$$aD); | |
return h$e(h$r2); | |
}; | |
function h$$aG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b !== c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$aF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aG); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszineInt_e() | |
{ | |
h$p2(h$r3, h$$aF); | |
return h$e(h$r2); | |
}; | |
function h$$aI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b === c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$aH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aI); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszieqInt_e() | |
{ | |
h$p2(h$r3, h$$aH); | |
return h$e(h$r2); | |
}; | |
function h$$aK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b !== c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$aJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aK); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszineChar_e() | |
{ | |
h$p2(h$r3, h$$aJ); | |
return h$e(h$r2); | |
}; | |
function h$$aM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b === c) ? 1 : 0); | |
h$r1 = (d ? true : false); | |
return h$rs(); | |
}; | |
function h$$aL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$aM); | |
return h$e(b); | |
}; | |
function h$ghczmprimZCGHCziClasseszieqChar_e() | |
{ | |
h$p2(h$r3, h$$aL); | |
return h$e(h$r2); | |
}; | |
function h$$aN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d4; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizg_e() | |
{ | |
h$p1(h$$aN); | |
return h$e(h$r2); | |
}; | |
function h$$aO() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizlze_e() | |
{ | |
h$p1(h$$aO); | |
return h$e(h$r2); | |
}; | |
function h$$aP() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizl_e() | |
{ | |
h$p1(h$$aP); | |
return h$e(h$r2); | |
}; | |
function h$$aQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszicompare_e() | |
{ | |
h$p1(h$$aQ); | |
return h$e(h$r2); | |
}; | |
function h$$aR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d5; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizgze_e() | |
{ | |
h$p1(h$$aR); | |
return h$e(h$r2); | |
}; | |
function h$$aS() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$ghczmprimZCGHCziClasseszizeze_e() | |
{ | |
h$p1(h$$aS); | |
return h$e(h$r2); | |
}; | |
function h$$aU() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 1) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$aT() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = h$r2; | |
var g = a.u8[(c + f)]; | |
if((g === 0)) | |
{ | |
return h$e(d); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, g, h$c2(h$$aU, e, f)); | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziCStringziunpackAppendCStringzh_e() | |
{ | |
var a = h$r3; | |
var b = h$r4; | |
var c = h$c(h$$aT); | |
c.d1 = h$r2; | |
c.d2 = h$d3(a, b, c); | |
h$l2(0, c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$aW() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 1) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$aV() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = a.u8[(c + e)]; | |
if((f === 0)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, f, h$c2(h$$aW, d, e)); | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziCStringziunpackCStringzh_e() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$aV); | |
b.d1 = h$r2; | |
b.d2 = h$d2(a, b); | |
h$l2(0, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$aY() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 1) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$aX() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = h$r2; | |
var h = a.u8[(c + g)]; | |
if((h === 0)) | |
{ | |
h$r1 = e; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$l3(h$c2(h$$aY, f, g), h, d); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$ghczmprimZCGHCziCStringziunpackFoldrCStringzh_e() | |
{ | |
var a = h$r3; | |
var b = h$r4; | |
var c = h$r5; | |
var d = h$c(h$$aX); | |
d.d1 = h$r2; | |
d.d2 = h$d4(a, b, c, d); | |
h$l2(0, d); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$a3() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 4) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$a2() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 3) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$a1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 2) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$a0() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b + 1) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$aZ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = a.u8[(c + e)]; | |
if((f === 0)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
if((f <= 127)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, f, h$c2(h$$a0, d, e)); | |
} | |
else | |
{ | |
if((f <= 223)) | |
{ | |
var g = h$c2(h$$a1, d, e); | |
var h = ((e + 1) | 0); | |
var i = a.u8[(c + h)]; | |
var j = ((i - 128) | 0); | |
var k = f; | |
var l = ((k - 192) | 0); | |
var m = (l << 6); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((m + j) | 0), g); | |
} | |
else | |
{ | |
if((f <= 239)) | |
{ | |
var n = h$c2(h$$a2, d, e); | |
var o = ((e + 2) | 0); | |
var p = a.u8[(c + o)]; | |
var q = ((e + 1) | 0); | |
var r = a.u8[(c + q)]; | |
var s = p; | |
var t = ((s - 128) | 0); | |
var u = r; | |
var v = ((u - 128) | 0); | |
var w = (v << 6); | |
var x = f; | |
var y = ((x - 224) | 0); | |
var z = (y << 12); | |
var A = ((z + w) | 0); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((A + t) | 0), n); | |
} | |
else | |
{ | |
var B = h$c2(h$$a3, d, e); | |
var C = ((e + 3) | 0); | |
var D = a.u8[(c + C)]; | |
var E = ((e + 2) | 0); | |
var F = a.u8[(c + E)]; | |
var G = ((e + 1) | 0); | |
var H = a.u8[(c + G)]; | |
var I = D; | |
var J = ((I - 128) | 0); | |
var K = F; | |
var L = ((K - 128) | 0); | |
var M = (L << 6); | |
var N = H; | |
var O = ((N - 128) | 0); | |
var P = (O << 12); | |
var Q = f; | |
var R = ((Q - 240) | 0); | |
var S = (R << 18); | |
var T = ((S + P) | 0); | |
var U = ((T + M) | 0); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((U + J) | 0), B); | |
}; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$ghczmprimZCGHCziCStringziunpackCStringUtf8zh_e() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$aZ); | |
b.d1 = h$r2; | |
b.d2 = h$d2(a, b); | |
h$l2(0, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$a5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$setCurrentThreadResultValue(a.d1); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$a4() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$a5); | |
return h$e(a); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalzisetCurrentThreadResultValue1_e() | |
{ | |
h$p1(h$$a4); | |
h$r1 = h$r2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$bh() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var b = h$fromHsString(a); | |
h$setCurrentThreadResultHaskellException(b); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$bg() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p2(a, h$$bh); | |
h$l2(a, h$ghcjszmprimZCGHCJSziPrimzigetProp1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p1(h$$bg); | |
h$l5(h$ghczmprimZCGHCziTypesziZMZN, b, h$baseZCGHCziShowzishows21, a, h$baseZCGHCziShowzishowsPrec); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$be() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$bf); | |
h$l2(a, h$baseZCGHCziExceptionzizdp2Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bd() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$setCurrentThreadResultJSException(a.d1); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$bc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$bd); | |
return h$e(a.d1); | |
}; | |
function h$$bb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(c, d, g, i)) | |
{ | |
if(h$hs_eqWord64(e, f, j, h.d3)) | |
{ | |
h$p1(h$$bc); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$be; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$be; | |
}; | |
}; | |
function h$$ba() | |
{ | |
h$sp -= 7; | |
h$pp64(h$$bb); | |
return h$e(h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException3); | |
}; | |
function h$$a9() | |
{ | |
--h$sp; | |
h$setCurrentThreadResultWouldBlock(); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$a8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(c, d, g, i)) | |
{ | |
if(h$hs_eqWord64(e, f, j, h.d3)) | |
{ | |
h$p1(h$$a9); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$sp += 6; | |
++h$sp; | |
return h$$ba; | |
}; | |
} | |
else | |
{ | |
h$sp += 6; | |
++h$sp; | |
return h$$ba; | |
}; | |
}; | |
function h$$a7() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$pp124(b, d, e, c.d3, h$$a8); | |
return h$e(h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockException3); | |
}; | |
function h$$a6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p3(b, a.d2, h$$a7); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalzisetCurrentThreadResultException1_e() | |
{ | |
h$p1(h$$a6); | |
return h$e(h$r2); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalziignoreException2_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalziignoreException1_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_0_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalzisetCurrentThreadResultValue_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalzisetCurrentThreadResultException_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalziignoreException_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalziblockedIndefinitelyOnSTM_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalziblockedIndefinitelyOnMVar_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziInternalziwouldBlock_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSExceptionzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockExceptionzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
function h$$bj() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(a, h$ghcjszmprimZCGHCJSziPrimzigetProp1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bi() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p2(a.d2, h$$bj); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzigetProp1_e() | |
{ | |
h$p1(h$$bi); | |
return h$e(h$r2); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdszddmshowList2_e() | |
{ | |
h$l2(h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfShowWouldBlockExceptionzuzdcshowsPrec_e() | |
{ | |
h$l3(h$r4, h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfShowWouldBlockExceptionzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bl() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, | |
h$ghcjszmprimZCGHCJSziPrimzizdtcWouldBlockException, h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$bk() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$bl); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockException4, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockException3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$bk); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockException2_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$bn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockException2, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bm() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$bn); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockExceptionzuzdcfromException_e() | |
{ | |
h$p1(h$$bm); | |
return h$e(h$r2); | |
}; | |
var h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockException1 = h$strta("thread would block"); | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionWouldBlockExceptionzuzdcshow_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$bp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bo() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(h$c2(h$$bp, b, a.d2), h$ghczmprimZCGHCziTypesziZC, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfShowJSExceptionzuzdcshowsPrec_e() | |
{ | |
h$p2(h$r4, h$$bo); | |
return h$e(h$r3); | |
}; | |
function h$$br() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bq() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(h$c2(h$$br, b, a.d2), h$ghczmprimZCGHCziTypesziZC, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfShowJSException1_e() | |
{ | |
h$p2(h$r3, h$$bq); | |
return h$e(h$r2); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfShowJSExceptionzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bt() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, h$ghcjszmprimZCGHCJSziPrimzizdtcJSException, | |
h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$bs() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$bt); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException4, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$bs); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException2_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$bv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException2, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bu() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$bv); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSExceptionzuzdcfromException_e() | |
{ | |
h$p1(h$$bu); | |
return h$e(h$r2); | |
}; | |
var h$$ghcjszmprimzm0zi1zi0zi0zmIFhsWclGfLr1HfhUvIVylAZCGHCJSziPrim_K = h$str("JavaScript exception: "); | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException1_e() | |
{ | |
var a = h$r1.d1; | |
h$r5 = h$r3; | |
h$r4 = h$r2; | |
h$r3 = 0; | |
h$r2 = h$$ghcjszmprimzm0zi1zi0zi0zmIFhsWclGfLr1HfhUvIVylAZCGHCJSziPrim_K(); | |
h$r1 = a; | |
return h$ap_3_4_fast(); | |
}; | |
function h$$bw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(a.d2, h$ghczmprimZCGHCziTypesziZC, h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSException1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimzizdfExceptionJSExceptionzuzdcshow_e() | |
{ | |
h$p1(h$$bw); | |
return h$e(h$r2); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziWouldBlockException_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziJSException_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziJSException_e() | |
{ | |
h$r1 = h$c2(h$ghcjszmprimZCGHCJSziPrimziJSException_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$ghcjszmprimZCGHCJSziPrimziJSVal_e() | |
{ | |
h$r1 = h$c1(h$ghcjszmprimZCGHCJSziPrimziJSVal_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$primitivezm0zi6zi1zi0zmPBvNfnj6B81wEvI5CBk0HZCControlziMonadziPrimitiveziCZCPrimMonad_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$primitivezm0zi6zi1zi0zmPBvNfnj6B81wEvI5CBk0HZCControlziMonadziPrimitiveziCZCPrimMonad_e() | |
{ | |
h$r1 = h$c2(h$primitivezm0zi6zi1zi0zmPBvNfnj6B81wEvI5CBk0HZCControlziMonadziPrimitiveziCZCPrimMonad_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$bx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$primitivezm0zi6zi1zi0zmPBvNfnj6B81wEvI5CBk0HZCControlziMonadziPrimitivezizdp1PrimMonad_e() | |
{ | |
h$p1(h$$bx); | |
return h$e(h$r2); | |
}; | |
function h$$by() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$primitivezm0zi6zi1zi0zmPBvNfnj6B81wEvI5CBk0HZCControlziMonadziPrimitiveziprimitive_e() | |
{ | |
h$p1(h$$by); | |
return h$e(h$r2); | |
}; | |
function h$$bz() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$baseZCGHCziBasezibreakpoint, a.d2); | |
return h$rs(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziStateziStrictzizdfApplicativeStateT4_e() | |
{ | |
h$p1(h$$bz); | |
return h$e(h$r2); | |
}; | |
function h$$bB() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$bA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c1(h$$bB, b), a.d2); | |
return h$rs(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziStateziStrictzizdfApplicativeStateT2_e() | |
{ | |
h$p1(h$$bA); | |
return h$e(h$r2); | |
}; | |
function h$$bI() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$bH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, b, a, h$baseZCGHCziBasezizgzgze); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bG() | |
{ | |
h$l3(h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdcfail); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bF() | |
{ | |
h$l3(h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdcreturn); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bE() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdczgzg); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bD() | |
{ | |
h$l5(h$r4, h$r3, h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdczgzgze); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$bC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdcp1Monad); | |
return h$ap_1_1_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdczgzg_e() | |
{ | |
h$p3(h$r3, h$c1(h$$bI, h$r4), h$$bH); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderT_e() | |
{ | |
h$r1 = h$c5(h$baseZCGHCziBaseziCZCMonad_con_e, h$c1(h$$bC, h$r2), h$c1(h$$bD, h$r2), h$c1(h$$bE, h$r2), h$c1(h$$bF, | |
h$r2), h$c1(h$$bG, h$r2)); | |
return h$rs(); | |
}; | |
function h$$bK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bJ() | |
{ | |
var a = h$r2; | |
h$l2(h$c2(h$$bK, h$r3, h$r4), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bN() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bM() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bL() | |
{ | |
h$r4 = h$c2(h$$bN, h$r4, h$r5); | |
h$r3 = h$c2(h$$bM, h$r3, h$r5); | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bQ() | |
{ | |
var a = h$r1.d1; | |
h$r3 = h$r1.d2; | |
h$r1 = a; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bP() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bO() | |
{ | |
h$r4 = h$c2(h$$bQ, h$r4, h$r5); | |
h$r3 = h$c2(h$$bP, h$r3, h$r5); | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bS() | |
{ | |
var a = h$r1.d1; | |
h$r3 = h$r1.d2; | |
h$r1 = a; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bR() | |
{ | |
h$r3 = h$c2(h$$bS, h$r3, h$r4); | |
h$r1 = h$r1.d1; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bU() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCControlziMonadziIOziClassziliftIO); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bT() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadIOReaderTzuzdcliftIO_e() | |
{ | |
h$r1 = h$c1(h$$bT, h$c2(h$$bU, h$r2, h$r3)); | |
return h$rs(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadFixReaderTzuzdcmfix_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$bV() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziBasezizdp1Monad); | |
return h$ap_1_1_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdcp1Monad_e() | |
{ | |
h$l2(h$c1(h$$bV, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdczgzgze_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_4_4_fast(); | |
}; | |
function h$$bY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziBasezipure); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bX() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b, h$$bY); | |
h$l2(a, h$baseZCGHCziBasezizdp1Monad); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$bW() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdcreturn_e() | |
{ | |
h$r1 = h$c1(h$$bW, h$c2(h$$bX, h$r2, h$r3)); | |
return h$rs(); | |
}; | |
function h$$b0() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezifail); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$bZ() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfMonadReaderTzuzdcfail_e() | |
{ | |
h$r1 = h$c1(h$$bZ, h$c2(h$$b0, h$r2, h$r3)); | |
return h$rs(); | |
}; | |
function h$$b1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezifmap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfFunctorReaderTzuzdcfmap_e() | |
{ | |
h$l2(h$c2(h$$b1, h$r2, h$r3), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$b3() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$b2() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c1(h$$b3, b), a, h$baseZCGHCziBasezifmap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfFunctorReaderTzuzdczlzd_e() | |
{ | |
h$l2(h$c2(h$$b2, h$r2, h$r3), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$b4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziBasezizdp1Applicative); | |
return h$ap_1_1_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdcp1Applicative_e() | |
{ | |
h$l2(h$c1(h$$b4, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$b6() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezipure); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$b5() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdcpure_e() | |
{ | |
h$r1 = h$c1(h$$b5, h$c2(h$$b6, h$r2, h$r3)); | |
return h$rs(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdczlztzg_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_4_4_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderT1_e() | |
{ | |
h$r1 = h$r3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$cc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderT1, a, | |
h$baseZCGHCziBasezifmap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$cb() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$cc); | |
h$l2(a, h$baseZCGHCziBasezizdp1Applicative); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ca() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$b9() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$b8() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c2(h$$b9, a, b.d2), c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$b7() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$l4(h$c2(h$$ca, b.d2, h$r2), h$c3(h$$b8, c, b.d3, h$r2), a, h$baseZCGHCziBasezizlztzg); | |
return h$ap_3_3_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdcztzg_e() | |
{ | |
h$r1 = h$c4(h$$b7, h$r2, h$r3, h$r4, h$c1(h$$cb, h$r2)); | |
return h$rs(); | |
}; | |
function h$$ci() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziBaseziconst, a, h$baseZCGHCziBasezifmap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ch() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$ci); | |
h$l2(a, h$baseZCGHCziBasezizdp1Applicative); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$cg() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$cf() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ce() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c2(h$$cf, a, b.d2), c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$cd() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$l4(h$c2(h$$cg, b.d2, h$r2), h$c3(h$$ce, c, b.d3, h$r2), a, h$baseZCGHCziBasezizlztzg); | |
return h$ap_3_3_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdczlzt_e() | |
{ | |
h$r1 = h$c4(h$$cd, h$r2, h$r3, h$r4, h$c1(h$$ch, h$r2)); | |
return h$rs(); | |
}; | |
function h$$ck() | |
{ | |
h$l3(h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfFunctorReaderTzuzdczlzd); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$cj() | |
{ | |
h$l3(h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfFunctorReaderTzuzdcfmap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfFunctorReaderT_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziBaseziCZCFunctor_con_e, h$c1(h$$cj, h$r2), h$c1(h$$ck, h$r2)); | |
return h$rs(); | |
}; | |
function h$$cp() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdczlzt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$co() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdcztzg); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$cn() | |
{ | |
h$l5(h$r4, h$r3, h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdczlztzg); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$cm() | |
{ | |
h$l3(h$r2, h$r1.d1, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdcpure); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$cl() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, | |
h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderTzuzdcp1Applicative); | |
return h$ap_1_1_fast(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzizdfApplicativeReaderT_e() | |
{ | |
h$r1 = h$c5(h$baseZCGHCziBaseziCZCApplicative_con_e, h$c1(h$$cl, h$r2), h$c1(h$$cm, h$r2), h$c1(h$$cn, h$r2), | |
h$c1(h$$co, h$r2), h$c1(h$$cp, h$r2)); | |
return h$rs(); | |
}; | |
function h$transformerszm0zi5zi2zi0zmLvs3wlJMkpyLRFNHJ8pmeBZCControlziMonadziTransziReaderzimapReaderT_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$cw() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(a, h$$fl); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$cv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p2(a.d2, h$$cw); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$cu() | |
{ | |
h$p1(h$$cv); | |
return h$e(h$r2); | |
}; | |
function h$$cC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
var d = a.d1; | |
var e; | |
var f = (c + d); | |
e = (f | 0); | |
var g = e; | |
var h = ((e != f) ? 1 : 0); | |
if((h === 0)) | |
{ | |
h$l2(g, h$integerzmgmpZCGHCziIntegerziTypezizdWSzh); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var i = g; | |
if((i === 0)) | |
{ | |
return h$e(h$$fs); | |
} | |
else | |
{ | |
if((i > 0)) | |
{ | |
var j = h$ghcjsbn_mkBigNat_w((-i | 0)); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, j); | |
} | |
else | |
{ | |
var k = h$ghcjsbn_mkBigNat_w(i); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, k); | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$cB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a.f.a) | |
{ | |
case (1): | |
var d = a.d1; | |
if((d >= 0)) | |
{ | |
var e = d; | |
if((e === 0)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var f = h$ghcjsbn_add_bw(c, e); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, f); | |
}; | |
} | |
else | |
{ | |
var g = (-d | 0); | |
if((g === 0)) | |
{ | |
h$l2(c, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var h = h$ghcjsbn_sub_bw(c, g); | |
h$l2(h, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
break; | |
case (2): | |
var i = h$ghcjsbn_add_bb(c, a.d1); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, i); | |
break; | |
default: | |
var j = a.d1; | |
var k = h$ghcjsbn_cmp_bb(c, j); | |
switch (k) | |
{ | |
case (0): | |
var l = h$ghcjsbn_sub_bb(j, c); | |
h$l2(l, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
case (1): | |
return h$e(h$$ft); | |
default: | |
var m = h$ghcjsbn_sub_bb(c, j); | |
h$l2(m, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$cA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a.f.a) | |
{ | |
case (1): | |
var d = a.d1; | |
if((d >= 0)) | |
{ | |
var e = d; | |
if((e === 0)) | |
{ | |
h$l2(c, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var f = h$ghcjsbn_sub_bw(c, e); | |
h$l2(f, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
var g = (-d | 0); | |
if((g === 0)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var h = h$ghcjsbn_add_bw(c, g); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, h); | |
}; | |
}; | |
break; | |
case (2): | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
default: | |
var i = h$ghcjsbn_add_bb(c, a.d1); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, i); | |
}; | |
return h$rs(); | |
}; | |
function h$$cz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c === 0)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$p3(a, c, h$$cC); | |
return h$e(b); | |
}; | |
case (2): | |
h$p3(a, a.d1, h$$cB); | |
return h$e(b); | |
default: | |
h$p3(a, a.d1, h$$cA); | |
return h$e(b); | |
}; | |
}; | |
function h$$cy() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$cz); | |
return h$e(a); | |
}; | |
function h$$cx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
if((c === 0)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cy; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cy; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziplusInteger_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$cx); | |
return h$e(h$r3); | |
}; | |
function h$$cS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
var d = a.d1; | |
var e; | |
var f = (c * d); | |
e = ((f === (f | 0)) ? 0 : 1); | |
if((e === 0)) | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, h$mulInt32(c, d)); | |
} | |
else | |
{ | |
h$l3(d, c, h$integerzmgmpZCGHCziIntegerziTypezitimesInt2Integer); | |
return h$ap_2_2_fast(); | |
}; | |
} | |
else | |
{ | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$cR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$$cQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$$cP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c >= 0)) | |
{ | |
var d = h$ghcjsbn_mul_bw(b, c); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, d); | |
} | |
else | |
{ | |
var e = h$ghcjsbn_mul_bw(b, (-c | 0)); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, e); | |
}; | |
break; | |
case (2): | |
h$p1(h$$cR); | |
h$l3(h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, a.d1), b, h$integerzmgmpZCGHCziIntegerziTypezizdwtimesBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$cQ); | |
h$l3(h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, a.d1), b, h$integerzmgmpZCGHCziIntegerziTypezizdwtimesBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$cO() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$$cN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$$cM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c >= 0)) | |
{ | |
var d = h$ghcjsbn_mul_bw(b, c); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, d); | |
} | |
else | |
{ | |
var e = h$ghcjsbn_mul_bw(b, (-c | 0)); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, e); | |
}; | |
break; | |
case (2): | |
h$p1(h$$cO); | |
h$l3(h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, a.d1), b, h$integerzmgmpZCGHCziIntegerziTypezizdwtimesBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$cN); | |
h$l3(h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, a.d1), b, h$integerzmgmpZCGHCziIntegerziTypezizdwtimesBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$cL() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
switch (c.f.a) | |
{ | |
case (1): | |
var d = c.d1; | |
if((d === (-1))) | |
{ | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$p3(c, d, h$$cS); | |
return h$e(a); | |
}; | |
case (2): | |
h$p2(c.d1, h$$cP); | |
return h$e(a); | |
default: | |
h$p2(c.d1, h$$cM); | |
return h$e(a); | |
}; | |
}; | |
function h$$cK() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
if((c === (-1))) | |
{ | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cL; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cL; | |
}; | |
}; | |
function h$$cJ() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$cK); | |
return h$e(a); | |
}; | |
function h$$cI() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
if((c.f.a === 1)) | |
{ | |
var d = c.d1; | |
if((d === 1)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cJ; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cJ; | |
}; | |
}; | |
function h$$cH() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
if((c === 1)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cI; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cI; | |
}; | |
return h$rs(); | |
}; | |
function h$$cG() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$cH); | |
return h$e(a); | |
}; | |
function h$$cF() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var b = a; | |
if((b.f.a === 1)) | |
{ | |
var c = b.d1; | |
if((c === 0)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cG; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cG; | |
}; | |
}; | |
function h$$cE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
if((b === 0)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cF; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cF; | |
}; | |
}; | |
function h$$cD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$pp2(a); | |
h$p1(h$$cE); | |
return h$e(b); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezitimesInteger_e() | |
{ | |
h$p2(h$r3, h$$cD); | |
return h$e(h$r2); | |
}; | |
function h$$c5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
var d = a.d1; | |
var e = (d >> 31); | |
var f = (c >> 31); | |
var g = (d ^ e); | |
var h = ((g - e) | 0); | |
var i = (c ^ f); | |
var j = h$ghcjsbn_gcd_ww(((i - f) | 0), h); | |
h$l2(j, h$integerzmgmpZCGHCziIntegerziTypeziwordToInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezigcdInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$c4() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$ghcjsbn_toInteger_b(a); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$c3() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$ghcjsbn_toInteger_b(a); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$c2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
var d = (c >> 31); | |
var e = (c ^ d); | |
var f = h$ghcjsbn_gcd_bw(b, ((e - d) | 0)); | |
h$l2(f, h$integerzmgmpZCGHCziIntegerziTypeziwordToInteger); | |
return h$ap_1_1_fast(); | |
case (2): | |
h$p1(h$$c4); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwgcdBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$c3); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwgcdBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$c1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p3(a, a.d1, h$$c5); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$c2); | |
return h$e(b); | |
default: | |
h$l3(b, h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1), h$integerzmgmpZCGHCziIntegerziTypezigcdInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$c0() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$c1); | |
return h$e(a); | |
}; | |
function h$$cZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
switch (a.d1) | |
{ | |
case ((-1)): | |
return h$e(h$$fx); | |
case (1): | |
return h$e(h$$fx); | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$c0; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$c0; | |
}; | |
}; | |
function h$$cY() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$cZ); | |
return h$e(a); | |
}; | |
function h$$cX() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
switch (a.d1) | |
{ | |
case ((-1)): | |
return h$e(h$$fx); | |
case (1): | |
return h$e(h$$fx); | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$cY; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cY; | |
}; | |
}; | |
function h$$cW() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$cX); | |
return h$e(a); | |
}; | |
function h$$cV() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
if((c === 0)) | |
{ | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypeziabsInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cW; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cW; | |
}; | |
}; | |
function h$$cU() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$cV); | |
return h$e(a); | |
}; | |
function h$$cT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
if((c === 0)) | |
{ | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypeziabsInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cU; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$cU; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezigcdInteger_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$cT); | |
return h$e(h$r2); | |
}; | |
function h$$c7() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$ghcjsbn_toNegInteger_b(a.d1); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$c6() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$c7); | |
return h$e(a); | |
}; | |
function h$$c9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$ghcjsbn_toNegInteger_b(a.d1); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$c8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$c9); | |
return h$e(a); | |
}; | |
function h$$db() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$ghcjsbn_toInteger_b(a.d1); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$da() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$db); | |
return h$e(a); | |
}; | |
function h$$de() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
var b = a; | |
if((b >= 0)) | |
{ | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezizdWSzh); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var c = h$ghcjsbn_mkBigNat_w(a); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, c); | |
}; | |
return h$rs(); | |
}; | |
function h$$dd() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezibigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dc() | |
{ | |
h$r1 = h$c1(h$$dd, h$r2); | |
h$r2 = h$c1(h$$de, h$r3); | |
return h$rs(); | |
}; | |
function h$$dh() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
var b = a; | |
if((b >= 0)) | |
{ | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezizdWSzh); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var c = h$ghcjsbn_mkBigNat_w(a); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, c); | |
}; | |
return h$rs(); | |
}; | |
function h$$dg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezibigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$df() | |
{ | |
h$r1 = h$c1(h$$dg, h$r2); | |
h$r2 = h$c1(h$$dh, h$r3); | |
return h$rs(); | |
}; | |
function h$$di() | |
{ | |
h$bh(); | |
var a = h$ghcjsbn_mkBigNat_ww(1, 0); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, a); | |
return h$rs(); | |
}; | |
function h$$dj() | |
{ | |
h$bh(); | |
var a = h$ghcjsbn_mkBigNat_w((-2147483648)); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a); | |
return h$rs(); | |
}; | |
function h$$dk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = h$ghcjsbn_isZero_b(c); | |
var e = d; | |
if(!(!e)) | |
{ | |
return h$e(h$integerzmgmpZCGHCziIntegerziTypezizzeroBigNat); | |
} | |
else | |
{ | |
var f = h$ghcjsbn_mul_bb(b, c); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, f); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdwtimesBigNat_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = h$ghcjsbn_isZero_b(h$r2); | |
var e = d; | |
if(!(!e)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
h$p2(b, h$$dk); | |
return h$e(c); | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdwremBigNat_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
var e = h$ghcjsbn_isZero_b(h$r3); | |
var f = e; | |
if(!(!f)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
var g = h$ghcjsbn_eq_bw(d, 1); | |
var h = g; | |
if(!(!h)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var i = h$ghcjsbn_cmp_bb(c, d); | |
var j = i; | |
if((j === 0)) | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, c); | |
} | |
else | |
{ | |
var k = h$ghcjsbn_rem_bb(c, d); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, k); | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdwquotBigNat_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
var e = h$ghcjsbn_isZero_b(h$r3); | |
var f = e; | |
if(!(!f)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
var g = h$ghcjsbn_eq_bw(d, 1); | |
var h = g; | |
if(!(!h)) | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, c); | |
} | |
else | |
{ | |
var i = h$ghcjsbn_cmp_bb(c, d); | |
var j = i; | |
if((j === 0)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var k = h$ghcjsbn_quot_bb(c, d); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, k); | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$dl() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$ghcjsbn_toInteger_b(a.d1); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziimportIntegerFromAddr2_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$dl); | |
return h$e(a); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdwgcdBigNat_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$ghcjsbn_isZero_b(h$r2); | |
var d = c; | |
if(!(!d)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var e = h$ghcjsbn_isZero_b(b); | |
var f = e; | |
if(!(!f)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
var g = h$ghcjsbn_gcd_bb(a, b); | |
h$r1 = g; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziJnzh_e() | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$dm() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdWJnzh_e() | |
{ | |
h$p1(h$$dm); | |
return h$e(h$r2); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziJpzh_e() | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$dn() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdWJpzh_e() | |
{ | |
h$p1(h$$dn); | |
return h$e(h$r2); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziSzh_e() | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizdWSzh_e() | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziBNzh_e() | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezinullBigNat_e() | |
{ | |
h$bh(); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, h$ghcjsbn_null_b); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezioneBigNat_e() | |
{ | |
h$bh(); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, h$ghcjsbn_one_b); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezizzeroBigNat_e() | |
{ | |
h$bh(); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, h$ghcjsbn_zero_b); | |
return h$rs(); | |
}; | |
function h$$dp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezibigNatToNegInteger_e() | |
{ | |
h$p1(h$$dp); | |
return h$e(h$r2); | |
}; | |
function h$$dq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezibigNatToInteger_e() | |
{ | |
h$p1(h$$dq); | |
return h$e(h$r2); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezitimesInt2Integer_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
if((c >= 0)) | |
{ | |
if((d >= 0)) | |
{ | |
var e = h$mul2Word32(c, d); | |
var f = h$ret1; | |
var g = e; | |
if((g === 0)) | |
{ | |
var h = f; | |
if((h >= 0)) | |
{ | |
h$l2(h, a); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var i = h$ghcjsbn_mkBigNat_w(f); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, i); | |
}; | |
} | |
else | |
{ | |
var j = h$ghcjsbn_mkBigNat_ww(g, f); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, j); | |
}; | |
} | |
else | |
{ | |
var k = h$mul2Word32(c, (-d | 0)); | |
var l = h$ret1; | |
var m = k; | |
if((m === 0)) | |
{ | |
h$l2(l, b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var n = h$ghcjsbn_mkBigNat_ww(m, l); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, n); | |
}; | |
}; | |
} | |
else | |
{ | |
if((d >= 0)) | |
{ | |
var o = d; | |
var p = h$mul2Word32((-c | 0), o); | |
var q = h$ret1; | |
var r = p; | |
if((r === 0)) | |
{ | |
h$l2(q, b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var s = h$ghcjsbn_mkBigNat_ww(r, q); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, s); | |
}; | |
} | |
else | |
{ | |
var t = (-d | 0); | |
var u = h$mul2Word32((-c | 0), t); | |
var v = h$ret1; | |
var w = u; | |
if((w === 0)) | |
{ | |
var x = v; | |
if((x >= 0)) | |
{ | |
h$l2(x, a); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var y = h$ghcjsbn_mkBigNat_w(v); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, y); | |
}; | |
} | |
else | |
{ | |
var z = h$ghcjsbn_mkBigNat_ww(w, v); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, z); | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziwordToNegInteger_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r2; | |
var d = (-c | 0); | |
if((d <= 0)) | |
{ | |
h$l2(d, a); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var e = h$ghcjsbn_mkBigNat_w(b); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, e); | |
}; | |
return h$rs(); | |
}; | |
function h$$ds() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = h$ghcjsbn_mkInteger(b, a); | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$dr() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$ds); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezijszumkInteger_e() | |
{ | |
h$p2(h$r3, h$$dr); | |
return h$e(h$r2); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezijszuint64ToInteger_e() | |
{ | |
var a = h$integer_int64ToInteger(h$r2, h$r3); | |
h$r1 = a; | |
return h$ap_0_0_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger_e() | |
{ | |
var a = h$ghcjsbn_toInteger_b(h$r2); | |
h$r1 = a; | |
return h$ap_0_0_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger_e() | |
{ | |
var a = h$ghcjsbn_toNegInteger_b(h$r2); | |
h$r1 = a; | |
return h$ap_0_0_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToWord_e() | |
{ | |
var a = h$ghcjsbn_toWord_b(h$r2); | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInt_e() | |
{ | |
var a = h$ghcjsbn_toInt_b(h$r2); | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$du() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$$dt() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezibitInteger_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
if((c < 31)) | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (1 << c)); | |
} | |
else | |
{ | |
if((c < 0)) | |
{ | |
h$p1(h$$dt); | |
return h$e(a); | |
} | |
else | |
{ | |
var d = c; | |
if((d === 0)) | |
{ | |
h$p1(h$$du); | |
return h$e(b); | |
} | |
else | |
{ | |
var e = h$ghcjsbn_bitBigNat(d); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, e); | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$dv() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziint64ToInteger); | |
return h$ap_1_2_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezidecodeDoubleInteger_e() | |
{ | |
var a = h$decodeDoubleInt64(h$r2); | |
h$r1 = h$c2(h$$dv, h$ret1, h$ret2); | |
h$r2 = a; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziint64ToInteger_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_2_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziwordToInteger_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r2; | |
if((c >= 0)) | |
{ | |
h$l2(c, a); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var d = h$ghcjsbn_mkBigNat_w(b); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, d); | |
}; | |
return h$rs(); | |
}; | |
function h$$dx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
if((b === 0)) | |
{ | |
return h$e(h$$fw); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$dw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((b >= 32)) | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, h$mulInt32(((c < 0) ? 1 : 0), (-1))); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (c >> b)); | |
}; | |
break; | |
case (2): | |
var d = h$ghcjsbn_shr_b(a.d1, b); | |
h$l2(d, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
default: | |
var e = h$ghcjsbn_shr_neg_b(a.d1, b); | |
var f = h$ghcjsbn_toNegInteger_b(e); | |
h$p1(h$$dx); | |
h$r1 = f; | |
return h$ap_0_0_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezishiftRInteger_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
if((b === 0)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
h$p2(b, h$$dw); | |
return h$e(a); | |
}; | |
}; | |
function h$$dy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
switch (c) | |
{ | |
case (0): | |
return h$e(h$$ft); | |
case (1): | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezibitInteger); | |
return h$ap_1_1_fast(); | |
default: | |
if((c >= 0)) | |
{ | |
var d = h$ghcjsbn_mkBigNat_w(c); | |
var e = h$ghcjsbn_shl_b(d, b); | |
h$l2(e, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var f = h$ghcjsbn_mkBigNat_w((-c | 0)); | |
var g = h$ghcjsbn_shl_b(f, b); | |
h$l2(g, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
case (2): | |
var h = h$ghcjsbn_shl_b(a.d1, b); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, h); | |
break; | |
default: | |
var i = h$ghcjsbn_shl_b(a.d1, b); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, i); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
if((b === 0)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
h$p2(b, h$$dy); | |
return h$e(a); | |
}; | |
}; | |
function h$$dz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
var d = b; | |
if((d === 0)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
var e = h$ghcjsbn_encodeDouble_s(c, d); | |
h$r1 = e; | |
}; | |
break; | |
case (2): | |
var f = h$ghcjsbn_encodeDouble_b(h$ghczmprimZCGHCziTypesziTrue, a.d1, b); | |
h$r1 = f; | |
break; | |
default: | |
var g = h$ghcjsbn_encodeDouble_b(h$ghczmprimZCGHCziTypesziFalse, a.d1, b); | |
h$r1 = g; | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger_e() | |
{ | |
h$p2(h$r3, h$$dz); | |
return h$e(h$r2); | |
}; | |
function h$$dA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = a.d1; | |
break; | |
case (2): | |
var b = h$ghcjsbn_toDouble_b(h$ghczmprimZCGHCziTypesziTrue, a.d1); | |
h$r1 = b; | |
break; | |
default: | |
var c = h$ghcjsbn_toDouble_b(h$ghczmprimZCGHCziTypesziFalse, a.d1); | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezidoubleFromInteger_e() | |
{ | |
h$p1(h$$dA); | |
return h$e(h$r2); | |
}; | |
function h$$d7() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezizdWSzh); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$d6() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezizdWSzh); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$d5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a.f.a) | |
{ | |
case (1): | |
var d = a.d1; | |
var e = ((c / d) | 0); | |
h$r1 = h$c1(h$$d6, e); | |
h$r2 = h$c1(h$$d7, (c - (d * e))); | |
break; | |
case (2): | |
var f = a.d1; | |
if((c > 0)) | |
{ | |
h$r1 = h$$ft; | |
h$r2 = b; | |
} | |
else | |
{ | |
var g = h$ghcjsbn_gt_bw(f, (-c | 0)); | |
var h = g; | |
if(!(!h)) | |
{ | |
h$r1 = h$$ft; | |
h$r2 = b; | |
} | |
else | |
{ | |
h$r1 = h$$fw; | |
h$r2 = h$$ft; | |
}; | |
}; | |
break; | |
default: | |
h$r1 = h$$ft; | |
h$r2 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$d4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$d3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$d2() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$d1() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$d0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dZ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dY() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dX() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c >= 0)) | |
{ | |
switch (c) | |
{ | |
case (0): | |
h$l3(0, h$integerzmgmpZCGHCziIntegerziTypezinullBigNat, h$$fq); | |
return h$ap_2_2_fast(); | |
case (1): | |
h$l3(0, h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, b), h$$fq); | |
return h$ap_2_2_fast(); | |
default: | |
var d; | |
var e; | |
d = []; | |
e = h$ghcjsbn_quotRem_bw(d, b, c); | |
h$l3(e, h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, d), h$$fq); | |
return h$ap_2_2_fast(); | |
}; | |
} | |
else | |
{ | |
var f = (-c | 0); | |
switch (f) | |
{ | |
case (0): | |
h$l3(0, h$integerzmgmpZCGHCziIntegerziTypezinullBigNat, h$$fr); | |
return h$ap_2_2_fast(); | |
case (1): | |
h$l3(0, h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, b), h$$fr); | |
return h$ap_2_2_fast(); | |
default: | |
var g; | |
var h; | |
g = []; | |
h = h$ghcjsbn_quotRem_bw(g, b, f); | |
h$l3(h, h$c1(h$integerzmgmpZCGHCziIntegerziTypeziBNzh_con_e, g), h$$fr); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
case (2): | |
var i = a.d1; | |
var j = h$ghcjsbn_isZero_b(i); | |
var k = j; | |
if(!(!k)) | |
{ | |
h$r1 = h$$fp; | |
h$r2 = h$$fp; | |
} | |
else | |
{ | |
var l = h$ghcjsbn_eq_bw(i, 1); | |
var m = l; | |
if(!(!m)) | |
{ | |
h$r1 = h$c1(h$$d1, b); | |
h$r2 = h$integerzmgmpZCGHCziIntegerziTypeziimportIntegerFromAddr2; | |
} | |
else | |
{ | |
var n = h$ghcjsbn_cmp_bb(b, i); | |
var o = n; | |
if((o === 0)) | |
{ | |
h$r1 = h$integerzmgmpZCGHCziIntegerziTypeziimportIntegerFromAddr2; | |
h$r2 = h$c1(h$$d2, b); | |
} | |
else | |
{ | |
var p; | |
var q; | |
p = []; | |
q = []; | |
h$ghcjsbn_quotRem_bb(p, q, b, i); | |
h$r1 = h$c1(h$$d3, p); | |
h$r2 = h$c1(h$$d4, q); | |
}; | |
}; | |
}; | |
break; | |
default: | |
var r = a.d1; | |
var s = h$ghcjsbn_isZero_b(r); | |
var t = s; | |
if(!(!t)) | |
{ | |
h$r1 = h$$fn; | |
h$r2 = h$$fp; | |
} | |
else | |
{ | |
var u = h$ghcjsbn_eq_bw(r, 1); | |
var v = u; | |
if(!(!v)) | |
{ | |
h$r1 = h$c1(h$$dX, b); | |
h$r2 = h$integerzmgmpZCGHCziIntegerziTypeziimportIntegerFromAddr2; | |
} | |
else | |
{ | |
var w = h$ghcjsbn_cmp_bb(b, r); | |
var x = w; | |
if((x === 0)) | |
{ | |
h$r1 = h$$fo; | |
h$r2 = h$c1(h$$dY, b); | |
} | |
else | |
{ | |
var y; | |
var z; | |
y = []; | |
z = []; | |
h$ghcjsbn_quotRem_bb(y, z, b, r); | |
h$r1 = h$c1(h$$dZ, y); | |
h$r2 = h$c1(h$$d0, z); | |
}; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$dV() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziwordToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dU() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dT() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziwordToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dR() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dQ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dP() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dN() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dM() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dL() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dK() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dJ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dI() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$dH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c >= 0)) | |
{ | |
switch (c) | |
{ | |
case (0): | |
h$r1 = h$$fn; | |
h$r2 = h$$fm; | |
break; | |
case (1): | |
h$r1 = h$c1(h$$dQ, b); | |
h$r2 = h$$fm; | |
break; | |
default: | |
var d; | |
var e; | |
d = []; | |
e = h$ghcjsbn_quotRem_bw(d, b, c); | |
h$r1 = h$c1(h$$dR, d); | |
h$r2 = h$c1(h$$dS, e); | |
}; | |
} | |
else | |
{ | |
var f = (-c | 0); | |
switch (f) | |
{ | |
case (0): | |
h$r1 = h$$fp; | |
h$r2 = h$$fm; | |
break; | |
case (1): | |
h$r1 = h$c1(h$$dT, b); | |
h$r2 = h$$fm; | |
break; | |
default: | |
var g; | |
var h; | |
g = []; | |
h = h$ghcjsbn_quotRem_bw(g, b, f); | |
h$r1 = h$c1(h$$dU, g); | |
h$r2 = h$c1(h$$dV, h); | |
}; | |
}; | |
break; | |
case (2): | |
var i = a.d1; | |
var j = h$ghcjsbn_isZero_b(i); | |
var k = j; | |
if(!(!k)) | |
{ | |
h$r1 = h$$fn; | |
h$r2 = h$$fn; | |
} | |
else | |
{ | |
var l = h$ghcjsbn_eq_bw(i, 1); | |
var m = l; | |
if(!(!m)) | |
{ | |
h$r1 = h$c1(h$$dM, b); | |
h$r2 = h$$fo; | |
} | |
else | |
{ | |
var n = h$ghcjsbn_cmp_bb(b, i); | |
var o = n; | |
if((o === 0)) | |
{ | |
h$r1 = h$$fo; | |
h$r2 = h$c1(h$$dN, b); | |
} | |
else | |
{ | |
var p; | |
var q; | |
p = []; | |
q = []; | |
h$ghcjsbn_quotRem_bb(p, q, b, i); | |
h$r1 = h$c1(h$$dO, p); | |
h$r2 = h$c1(h$$dP, q); | |
}; | |
}; | |
}; | |
break; | |
default: | |
var r = a.d1; | |
var s = h$ghcjsbn_isZero_b(r); | |
var t = s; | |
if(!(!t)) | |
{ | |
h$r1 = h$$fp; | |
h$r2 = h$$fn; | |
} | |
else | |
{ | |
var u = h$ghcjsbn_eq_bw(r, 1); | |
var v = u; | |
if(!(!v)) | |
{ | |
h$r1 = h$c1(h$$dI, b); | |
h$r2 = h$$fo; | |
} | |
else | |
{ | |
var w = h$ghcjsbn_cmp_bb(b, r); | |
var x = w; | |
if((x === 0)) | |
{ | |
h$r1 = h$integerzmgmpZCGHCziIntegerziTypeziimportIntegerFromAddr2; | |
h$r2 = h$c1(h$$dJ, b); | |
} | |
else | |
{ | |
var y; | |
var z; | |
y = []; | |
z = []; | |
h$ghcjsbn_quotRem_bb(y, z, b, r); | |
h$r1 = h$c1(h$$dK, y); | |
h$r2 = h$c1(h$$dL, z); | |
}; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$dG() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
switch (c.f.a) | |
{ | |
case (1): | |
var d = c.d1; | |
if((d === 0)) | |
{ | |
h$r1 = h$$ft; | |
h$r2 = h$$ft; | |
} | |
else | |
{ | |
h$p3(c, d, h$$d5); | |
return h$e(a); | |
}; | |
break; | |
case (2): | |
h$p2(c.d1, h$$dW); | |
return h$e(a); | |
default: | |
h$p2(c.d1, h$$dH); | |
return h$e(a); | |
}; | |
return h$rs(); | |
}; | |
function h$$dF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
if((b === 0)) | |
{ | |
h$r1 = h$$ft; | |
h$r2 = h$$ft; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$dG; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$dG; | |
}; | |
return h$rs(); | |
}; | |
function h$$dE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$pp2(a); | |
h$p1(h$$dF); | |
return h$e(b); | |
}; | |
function h$$dD() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$dE); | |
return h$e(a); | |
}; | |
function h$$dC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
h$r2 = h$$ft; | |
return h$rs(); | |
}; | |
function h$$dB() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
switch (a.d1) | |
{ | |
case ((-1)): | |
h$p1(h$$dC); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
case (1): | |
h$r1 = b; | |
h$r2 = h$$ft; | |
break; | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$dD; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$dD; | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziquotRemInteger_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$dB); | |
return h$e(h$r3); | |
}; | |
function h$$ej() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a.f.a) | |
{ | |
case (1): | |
var d = a.d1; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (c % d)); | |
break; | |
case (2): | |
var e = a.d1; | |
if((c > 0)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var f = h$ghcjsbn_gt_bw(e, (-c | 0)); | |
var g = f; | |
if(!(!g)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
return h$e(h$$ft); | |
}; | |
}; | |
break; | |
default: | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$ei() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$eh() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$eg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
var d = (c >> 31); | |
var e = (c ^ d); | |
var f = h$ghcjsbn_rem_bw(b, ((e - d) | 0)); | |
h$l2(f, h$integerzmgmpZCGHCziIntegerziTypeziwordToInteger); | |
return h$ap_1_1_fast(); | |
case (2): | |
h$p1(h$$ei); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwremBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$eh); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwremBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$ef() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ee() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ed() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
var d = (c >> 31); | |
var e = (c ^ d); | |
var f = h$ghcjsbn_rem_bw(b, ((e - d) | 0)); | |
h$l2(f, h$integerzmgmpZCGHCziIntegerziTypeziwordToNegInteger); | |
return h$ap_1_1_fast(); | |
case (2): | |
h$p1(h$$ef); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwremBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$ee); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwremBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$ec() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
switch (c.f.a) | |
{ | |
case (1): | |
var d = c.d1; | |
if((d === 0)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
h$p3(c, d, h$$ej); | |
return h$e(a); | |
}; | |
case (2): | |
h$p2(c.d1, h$$eg); | |
return h$e(a); | |
default: | |
h$p2(c.d1, h$$ed); | |
return h$e(a); | |
}; | |
}; | |
function h$$eb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
switch (a.d1) | |
{ | |
case ((-1)): | |
return h$e(h$$ft); | |
case (0): | |
return h$e(h$$ft); | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$ec; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$ec; | |
}; | |
}; | |
function h$$ea() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$eb); | |
return h$e(a); | |
}; | |
function h$$d9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
if((b === 1)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$ea; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$ea; | |
}; | |
}; | |
function h$$d8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$pp2(a); | |
h$p1(h$$d9); | |
return h$e(b); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziremInteger_e() | |
{ | |
h$p2(h$r3, h$$d8); | |
return h$e(h$r2); | |
}; | |
function h$$ez() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, ((b / c) | 0)); | |
break; | |
case (2): | |
var d = a.d1; | |
if((b > 0)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
var e = h$ghcjsbn_gt_bw(d, (-b | 0)); | |
var f = e; | |
if(!(!f)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
return h$e(h$$fw); | |
}; | |
}; | |
default: | |
return h$e(h$$ft); | |
}; | |
return h$rs(); | |
}; | |
function h$$ey() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ex() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ew() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ev() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$eu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c >= 0)) | |
{ | |
switch (c) | |
{ | |
case (0): | |
h$p1(h$$ex); | |
return h$e(h$integerzmgmpZCGHCziIntegerziTypezinullBigNat); | |
case (1): | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
default: | |
var d; | |
var e; | |
d = []; | |
e = h$ghcjsbn_quotRem_bw(d, b, c); | |
h$l2(d, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
var f = (-c | 0); | |
switch (f) | |
{ | |
case (0): | |
h$p1(h$$ey); | |
return h$e(h$integerzmgmpZCGHCziIntegerziTypezinullBigNat); | |
case (1): | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
default: | |
var g; | |
var h; | |
g = []; | |
h = h$ghcjsbn_quotRem_bw(g, b, f); | |
h$l2(g, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
case (2): | |
h$p1(h$$ew); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwquotBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$ev); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwquotBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$et() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$es() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$er() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$eq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ep() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c >= 0)) | |
{ | |
switch (c) | |
{ | |
case (0): | |
h$p1(h$$es); | |
return h$e(h$integerzmgmpZCGHCziIntegerziTypezinullBigNat); | |
case (1): | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
default: | |
var d; | |
var e; | |
d = []; | |
e = h$ghcjsbn_quotRem_bw(d, b, c); | |
h$l2(d, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
var f = (-c | 0); | |
switch (f) | |
{ | |
case (0): | |
h$p1(h$$et); | |
return h$e(h$integerzmgmpZCGHCziIntegerziTypezinullBigNat); | |
case (1): | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
default: | |
var g; | |
var h; | |
g = []; | |
h = h$ghcjsbn_quotRem_bw(g, b, f); | |
h$l2(g, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
case (2): | |
h$p1(h$$er); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwquotBigNat); | |
return h$ap_2_2_fast(); | |
default: | |
h$p1(h$$eq); | |
h$l3(a.d1, b, h$integerzmgmpZCGHCziIntegerziTypezizdwquotBigNat); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$eo() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
switch (c.f.a) | |
{ | |
case (1): | |
var d = c.d1; | |
if((d === 0)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
h$p2(d, h$$ez); | |
return h$e(a); | |
}; | |
case (2): | |
h$p2(c.d1, h$$eu); | |
return h$e(a); | |
default: | |
h$p2(c.d1, h$$ep); | |
return h$e(a); | |
}; | |
}; | |
function h$$en() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
if((b === 0)) | |
{ | |
return h$e(h$$ft); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eo; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eo; | |
}; | |
}; | |
function h$$em() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$pp2(a); | |
h$p1(h$$en); | |
return h$e(b); | |
}; | |
function h$$el() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$em); | |
return h$e(a); | |
}; | |
function h$$ek() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
switch (a.d1) | |
{ | |
case ((-1)): | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
case (1): | |
return h$e(b); | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$el; | |
}; | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$el; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziquotInteger_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$ek); | |
return h$e(h$r3); | |
}; | |
function h$$eD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((b < c)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziLT; | |
} | |
else | |
{ | |
if((b === c)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziEQ; | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziGT; | |
}; | |
}; | |
break; | |
case (2): | |
h$r1 = h$ghczmprimZCGHCziTypesziLT; | |
break; | |
default: | |
h$r1 = h$ghczmprimZCGHCziTypesziGT; | |
}; | |
return h$rs(); | |
}; | |
function h$$eC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 2)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(b, a.d1); | |
switch (c) | |
{ | |
case (0): | |
h$r1 = h$ghczmprimZCGHCziTypesziLT; | |
break; | |
case (1): | |
h$r1 = h$ghczmprimZCGHCziTypesziEQ; | |
break; | |
default: | |
h$r1 = h$ghczmprimZCGHCziTypesziGT; | |
}; | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziGT; | |
}; | |
return h$rs(); | |
}; | |
function h$$eB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(a.d1, b); | |
switch (c) | |
{ | |
case (0): | |
h$r1 = h$ghczmprimZCGHCziTypesziLT; | |
break; | |
case (1): | |
h$r1 = h$ghczmprimZCGHCziTypesziEQ; | |
break; | |
default: | |
h$r1 = h$ghczmprimZCGHCziTypesziGT; | |
}; | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziLT; | |
}; | |
return h$rs(); | |
}; | |
function h$$eA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$eD); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$eC); | |
return h$e(b); | |
default: | |
h$p2(a.d1, h$$eB); | |
return h$e(b); | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezicompareInteger_e() | |
{ | |
h$p2(h$r3, h$$eA); | |
return h$e(h$r2); | |
}; | |
function h$$eK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((b < c)) | |
{ | |
h$r1 = 0; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
break; | |
case (2): | |
h$r1 = 0; | |
break; | |
default: | |
h$r1 = 1; | |
}; | |
return h$rs(); | |
}; | |
function h$$eJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 2)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(b, a.d1); | |
var d = c; | |
if((d === 0)) | |
{ | |
h$r1 = 0; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
return h$rs(); | |
}; | |
function h$$eI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(a.d1, b); | |
var d = c; | |
if((d === 0)) | |
{ | |
h$r1 = 0; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$eH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$eK); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$eJ); | |
return h$e(b); | |
default: | |
h$p2(a.d1, h$$eI); | |
return h$e(b); | |
}; | |
}; | |
function h$$eG() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$eH); | |
return h$e(a); | |
}; | |
function h$$eF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$r1 = ((b >= c) ? 1 : 0); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eG; | |
}; | |
return h$rs(); | |
}; | |
function h$$eE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$sp += 2; | |
h$p2(c, h$$eF); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eG; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezigeIntegerzh_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$eE); | |
return h$e(h$r2); | |
}; | |
function h$$eR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((b < c)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
break; | |
case (2): | |
h$r1 = 1; | |
break; | |
default: | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$eQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 2)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(b, a.d1); | |
var d = c; | |
if((d === 0)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$eP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(a.d1, b); | |
var d = c; | |
if((d === 0)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
return h$rs(); | |
}; | |
function h$$eO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$eR); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$eQ); | |
return h$e(b); | |
default: | |
h$p2(a.d1, h$$eP); | |
return h$e(b); | |
}; | |
}; | |
function h$$eN() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$eO); | |
return h$e(a); | |
}; | |
function h$$eM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$r1 = ((b < c) ? 1 : 0); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eN; | |
}; | |
return h$rs(); | |
}; | |
function h$$eL() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$sp += 2; | |
h$p2(c, h$$eM); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eN; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$eL); | |
return h$e(h$r2); | |
}; | |
function h$$eY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((b < c)) | |
{ | |
h$r1 = 0; | |
} | |
else | |
{ | |
if((b === c)) | |
{ | |
h$r1 = 0; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
}; | |
break; | |
case (2): | |
h$r1 = 0; | |
break; | |
default: | |
h$r1 = 1; | |
}; | |
return h$rs(); | |
}; | |
function h$$eX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 2)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(b, a.d1); | |
switch (c) | |
{ | |
case (0): | |
h$r1 = 0; | |
break; | |
case (1): | |
h$r1 = 0; | |
break; | |
default: | |
h$r1 = 1; | |
}; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
return h$rs(); | |
}; | |
function h$$eW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(a.d1, b); | |
switch (c) | |
{ | |
case (0): | |
h$r1 = 0; | |
break; | |
case (1): | |
h$r1 = 0; | |
break; | |
default: | |
h$r1 = 1; | |
}; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$eV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$eY); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$eX); | |
return h$e(b); | |
default: | |
h$p2(a.d1, h$$eW); | |
return h$e(b); | |
}; | |
}; | |
function h$$eU() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$eV); | |
return h$e(a); | |
}; | |
function h$$eT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$r1 = ((b > c) ? 1 : 0); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eU; | |
}; | |
return h$rs(); | |
}; | |
function h$$eS() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$sp += 2; | |
h$p2(c, h$$eT); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$eU; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezigtIntegerzh_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$eS); | |
return h$e(h$r2); | |
}; | |
function h$$e5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((b < c)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
if((b === c)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
}; | |
break; | |
case (2): | |
h$r1 = 1; | |
break; | |
default: | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$e4() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 2)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(b, a.d1); | |
switch (c) | |
{ | |
case (0): | |
h$r1 = 1; | |
break; | |
case (1): | |
h$r1 = 1; | |
break; | |
default: | |
h$r1 = 0; | |
}; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$e3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
var c = h$ghcjsbn_cmp_bb(a.d1, b); | |
switch (c) | |
{ | |
case (0): | |
h$r1 = 1; | |
break; | |
case (1): | |
h$r1 = 1; | |
break; | |
default: | |
h$r1 = 0; | |
}; | |
} | |
else | |
{ | |
h$r1 = 1; | |
}; | |
return h$rs(); | |
}; | |
function h$$e2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$e5); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$e4); | |
return h$e(b); | |
default: | |
h$p2(a.d1, h$$e3); | |
return h$e(b); | |
}; | |
}; | |
function h$$e1() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$e2); | |
return h$e(a); | |
}; | |
function h$$e0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$r1 = ((b <= c) ? 1 : 0); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$e1; | |
}; | |
return h$rs(); | |
}; | |
function h$$eZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$sp += 2; | |
h$p2(c, h$$e0); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$e1; | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezileIntegerzh_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$eZ); | |
return h$e(h$r2); | |
}; | |
function h$$e6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
var b = a.d1; | |
var c = ((b < 0) ? 1 : 0); | |
var d = ((b > 0) ? 1 : 0); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, ((d - c) | 0)); | |
break; | |
case (2): | |
return h$e(h$$fx); | |
default: | |
return h$e(h$$fw); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezisignumInteger_e() | |
{ | |
h$p1(h$$e6); | |
return h$e(h$r2); | |
}; | |
function h$$e7() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
var b = a.d1; | |
if((b === (-2147483648))) | |
{ | |
return h$e(h$$fv); | |
} | |
else | |
{ | |
if((b < 0)) | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-b | 0)); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
}; | |
break; | |
case (2): | |
h$r1 = a; | |
break; | |
default: | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziabsInteger_e() | |
{ | |
h$p1(h$$e7); | |
return h$e(h$r2); | |
}; | |
function h$$fb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
var c = a.d1; | |
h$r1 = ((b === c) ? 1 : 0); | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$fa() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 2)) | |
{ | |
var c = h$ghcjsbn_eq_bb(b, a.d1); | |
var d = c; | |
if(!(!d)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$e9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
var c = h$ghcjsbn_eq_bb(b, a.d1); | |
var d = c; | |
if(!(!d)) | |
{ | |
h$r1 = 1; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
} | |
else | |
{ | |
h$r1 = 0; | |
}; | |
return h$rs(); | |
}; | |
function h$$e8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$fb); | |
return h$e(b); | |
case (2): | |
h$p2(a.d1, h$$fa); | |
return h$e(b); | |
default: | |
h$p2(a.d1, h$$e9); | |
return h$e(b); | |
}; | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh_e() | |
{ | |
h$p2(h$r3, h$$e8); | |
return h$e(h$r2); | |
}; | |
function h$$fc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
var b = a.d1; | |
if((b === (-2147483648))) | |
{ | |
return h$e(h$$fv); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-b | 0)); | |
}; | |
break; | |
case (2): | |
var c = a.d1; | |
var d = h$ghcjsbn_eq_bw(c, (-2147483648)); | |
var e = d; | |
if(!(!e)) | |
{ | |
return h$e(h$$fu); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, c); | |
}; | |
break; | |
default: | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezinegateInteger_e() | |
{ | |
h$p1(h$$fc); | |
return h$e(h$r2); | |
}; | |
function h$$fg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
if((c === 0)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var d = b; | |
if((d.f.a === 1)) | |
{ | |
var e = d.d1; | |
var f; | |
var g = (c + e); | |
f = (g | 0); | |
var h = f; | |
var i = ((f != g) ? 1 : 0); | |
if((i === 0)) | |
{ | |
h$l2(h, h$integerzmgmpZCGHCziIntegerziTypezizdWSzh); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var j = h; | |
if((j === 0)) | |
{ | |
return h$e(h$$fs); | |
} | |
else | |
{ | |
if((j > 0)) | |
{ | |
var k = h$ghcjsbn_mkBigNat_w((-j | 0)); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, k); | |
} | |
else | |
{ | |
var l = h$ghcjsbn_mkBigNat_w(j); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, l); | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
h$l3(a, d, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
break; | |
case (2): | |
var m = a.d1; | |
var n = b; | |
switch (n.f.a) | |
{ | |
case (1): | |
var o = n.d1; | |
if((o >= 0)) | |
{ | |
var p = o; | |
if((p === 0)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
var q = h$ghcjsbn_add_bw(m, p); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, q); | |
}; | |
} | |
else | |
{ | |
var r = (-o | 0); | |
if((r === 0)) | |
{ | |
h$l2(m, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var s = h$ghcjsbn_sub_bw(m, r); | |
h$l2(s, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
break; | |
case (2): | |
var t = h$ghcjsbn_add_bb(m, n.d1); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, t); | |
break; | |
default: | |
var u = n.d1; | |
var v = h$ghcjsbn_cmp_bb(m, u); | |
switch (v) | |
{ | |
case (0): | |
var w = h$ghcjsbn_sub_bb(u, m); | |
h$l2(w, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
case (1): | |
return h$e(h$$ft); | |
default: | |
var x = h$ghcjsbn_sub_bb(m, u); | |
h$l2(x, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
break; | |
default: | |
var y = a.d1; | |
var z = b; | |
switch (z.f.a) | |
{ | |
case (1): | |
var A = z.d1; | |
if((A >= 0)) | |
{ | |
var B = A; | |
if((B === 0)) | |
{ | |
h$l2(y, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var C = h$ghcjsbn_sub_bw(y, B); | |
h$l2(C, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToNegInteger); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
var D = (-A | 0); | |
if((D === 0)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
var E = h$ghcjsbn_add_bw(y, D); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, E); | |
}; | |
}; | |
break; | |
case (2): | |
h$l3(a, z, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
default: | |
var F = h$ghcjsbn_add_bb(y, z.d1); | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, F); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$ff() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(b, h$$fg); | |
return h$e(a); | |
}; | |
function h$$fe() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c.f.a === 1)) | |
{ | |
var d = c.d1; | |
if((d === 0)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp2(a); | |
++h$sp; | |
return h$$ff; | |
}; | |
} | |
else | |
{ | |
h$pp2(a); | |
++h$sp; | |
return h$$ff; | |
}; | |
}; | |
function h$$fd() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var b = a.d1; | |
if((b === (-2147483648))) | |
{ | |
return h$e(h$$fv); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziSzh_con_e, (-b | 0)); | |
}; | |
break; | |
case (2): | |
var c = a.d1; | |
var d = h$ghcjsbn_eq_bw(c, (-2147483648)); | |
var e = d; | |
if(!(!e)) | |
{ | |
return h$e(h$$fu); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJnzh_con_e, c); | |
}; | |
break; | |
default: | |
h$r1 = h$c1(h$integerzmgmpZCGHCziIntegerziTypeziJpzh_con_e, a.d1); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziminusInteger_e() | |
{ | |
h$p2(h$r2, h$$fe); | |
h$p2(h$r2, h$$fd); | |
return h$e(h$r3); | |
}; | |
function h$$fh() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
var b = h$hs_intToInt64(a.d1); | |
h$r1 = b; | |
h$r2 = h$ret1; | |
break; | |
case (2): | |
var c = h$ghcjsbn_toWord64_b(a.d1); | |
h$l3(h$ret1, c, h$ghczmprimZCGHCziIntWord64ziword64ToInt64zh); | |
return h$ap_1_2_fast(); | |
default: | |
var d = h$ghcjsbn_toWord64_b(a.d1); | |
var e = h$hs_word64ToInt64(d, h$ret1); | |
h$l3(h$ret1, e, h$ghczmprimZCGHCziIntWord64zinegateInt64zh); | |
return h$ap_1_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt64_e() | |
{ | |
h$p1(h$$fh); | |
return h$e(h$r2); | |
}; | |
function h$$fi() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = a.d1; | |
break; | |
case (2): | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToInt); | |
return h$ap_1_1_fast(); | |
default: | |
var b = h$ghcjsbn_toInt_b(a.d1); | |
var c = b; | |
h$r1 = (-c | 0); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt_e() | |
{ | |
h$p1(h$$fi); | |
return h$e(h$r2); | |
}; | |
function h$$fj() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = a.d1; | |
break; | |
case (2): | |
h$l2(a.d1, h$integerzmgmpZCGHCziIntegerziTypezijszubigNatToWord); | |
return h$ap_1_1_fast(); | |
default: | |
var b = h$ghcjsbn_toInt_b(a.d1); | |
var c = b; | |
h$r1 = (-c | 0); | |
}; | |
return h$rs(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypeziintegerToWord_e() | |
{ | |
h$p1(h$$fj); | |
return h$e(h$r2); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezismallInteger_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$fk() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezijszumkInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$integerzmgmpZCGHCziIntegerziTypezimkInteger_e() | |
{ | |
h$p3(h$r2, h$r3, h$$fk); | |
h$l2(h$r3, h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCUnsafeziCoerceziunsafeCoerce1_e() | |
{ | |
h$r1 = h$r2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$fD() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$$na); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, h$c2(h$$fD, b, c)); | |
return h$rs(); | |
}; | |
function h$$fB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(c, h$$fC); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$pM); | |
} | |
else | |
{ | |
var d = a.d1; | |
h$pp14(d, a.d2, h$$fB); | |
h$l3(b, c, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$fz() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
h$pp6(a.d1, h$$fA); | |
return h$e(a.d2); | |
}; | |
return h$rs(); | |
}; | |
function h$$fy() | |
{ | |
h$p2(h$r2, h$$fz); | |
return h$e(h$r3); | |
}; | |
function h$$fN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
--h$sp; | |
h$l2(b, a); | |
++h$sp; | |
++h$sp; | |
return h$$fK; | |
}; | |
function h$$fM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
--h$sp; | |
++h$sp; | |
h$p2(c, h$$fN); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = h$stack[h$sp]; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var d = a.d1; | |
var e = a.d2; | |
++h$sp; | |
h$p3(d, e, h$$fM); | |
h$l3(c, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$fK() | |
{ | |
h$sp -= 2; | |
var a = h$r1; | |
var b = h$r2; | |
++h$sp; | |
h$p2(a, h$$fL); | |
return h$e(b); | |
}; | |
function h$$fJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = ((b + 1) | 0); | |
h$l4(a, ((d / 2) | 0), c, h$baseZCTextziReadziLexzinumberToFixedzugo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$fI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = ((b + 1) | 0); | |
h$l4(a, ((d / 2) | 0), c, h$baseZCTextziReadziLexzinumberToFixedzugo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$fH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = (d % 2); | |
if((e === 0)) | |
{ | |
h$p3(d, a, h$$fI); | |
h$l3(c, b, h$$na); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p3(d, a, h$$fJ); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCTextziReadziLexzinumberToFixed3, c), b, h$$na); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$fG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d > 40)) | |
{ | |
h$pp12(d, h$$fH); | |
h$l3(b, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l2(c, h$baseZCTextziReadziLexzinumberToFixed3); | |
++h$sp; | |
++h$sp; | |
return h$$fK; | |
}; | |
}; | |
function h$$fF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if((a.f.a === 1)) | |
{ | |
return h$e(d); | |
} | |
else | |
{ | |
h$pp6(c, h$$fG); | |
return h$e(b); | |
}; | |
}; | |
function h$$fE() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$baseZCTextziReadziLexzinumberToFixed3); | |
} | |
else | |
{ | |
h$pp28(a, a.d1, h$$fF); | |
return h$e(a.d2); | |
}; | |
}; | |
function h$baseZCTextziReadziLexzinumberToFixedzugo_e() | |
{ | |
h$p3(h$r2, h$r3, h$$fE); | |
return h$e(h$r4); | |
}; | |
function h$$f2() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
h$r2 = h$baseZCGHCziRealzizdfEnumRatio1; | |
return h$rs(); | |
}; | |
function h$$f1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p1(h$$f2); | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$f0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziRealzizdwzdsreduce); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(c, h$$f0); | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a, h$$fZ); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezisignumInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$fX() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a, h$$fY); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziabsInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$fW() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$fX); | |
h$l3(a, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCGHCziRealzizczuzdszc); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$p2(c, h$$fW); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$p2(c, h$$f1); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCGHCziRealzizczuzdszc); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$fU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, a, b, h$$nb); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$fT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(c, h$$fU); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$fT); | |
h$l3(h$baseZCTextziReadziLexzinumberToFixed1, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$fR() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
h$pp8(h$$fS); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezismallInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$fQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$fR); | |
return h$e(b); | |
}; | |
function h$$fP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$pp4(h$$fV); | |
h$l3(h$baseZCTextziReadziLexzinumberToFixed3, b, h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$fQ); | |
h$l3(h$$pL, b, h$integerzmgmpZCGHCziIntegerziTypeziminusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$fO() | |
{ | |
h$p3(h$r2, h$r3, h$$fP); | |
return h$e(h$r4); | |
}; | |
function h$$gg() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, a); | |
return h$rs(); | |
}; | |
function h$$ge() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$$nk); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gc() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p2(h$c1(h$$ge, a), h$$gd); | |
h$l2(a, h$$nd); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 92)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$ga() | |
{ | |
h$p2(h$r1.d1, h$$gb); | |
return h$e(h$r2); | |
}; | |
function h$$f9() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$$f8() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$f7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d === 38)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var e = d; | |
if((((e >>> 1) < 443) || (((e >>> 1) == 443) && ((e & 1) <= 1)))) | |
{ | |
var f = e; | |
if((f === 32)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
var g = ((f - 9) | 0); | |
if((((g >>> 1) < 2) || (((g >>> 1) == 2) && ((g & 1) <= 0)))) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
var h = f; | |
if((h === 160)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
var i = h$u_iswspace(d); | |
var j = i; | |
if((j === 0)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$f6() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$f7); | |
return h$e(h$r2); | |
}; | |
function h$$f5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 92)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$f4() | |
{ | |
h$p2(h$r1.d1, h$$f5); | |
return h$e(h$r2); | |
}; | |
function h$$gf() | |
{ | |
h$p1(h$$gg); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$f3() | |
{ | |
var a = h$c1(h$$gc, h$r2); | |
var b = h$c1(h$$ga, a); | |
h$r1 = h$c1(h$$f4, h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c2(h$$f6, a, | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$f8, h$c1(h$$f9, | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, b))))))); | |
return h$rs(); | |
}; | |
function h$$gz() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gy() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c1(h$baseZCTextziReadziLexziString_con_e, h$c1(h$$gz, a)), b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gx() | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$no, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gw() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, h$c1(h$$gx, a), h$$ne); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gv() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, b), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
return h$e(c); | |
} | |
else | |
{ | |
return h$e(b); | |
}; | |
}; | |
function h$$gt() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = h$r3; | |
var g = h$r2; | |
if((g === 34)) | |
{ | |
h$p3(d, e, h$$gu); | |
return h$e(f); | |
} | |
else | |
{ | |
h$l3(c, h$c2(h$$gv, a, g), h$$ne); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$gs() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l3(c, a, b); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gr() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
var b = a.d1; | |
h$pp6(a.d2, h$$gs); | |
return h$e(b); | |
}; | |
function h$$gq() | |
{ | |
h$p2(h$r1.d1, h$$gr); | |
return h$e(h$r2); | |
}; | |
function h$$gp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, b), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$go() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
if((e === 34)) | |
{ | |
return h$e(d); | |
} | |
else | |
{ | |
h$l3(c, h$c2(h$$gp, b, e), h$$ne); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$gn() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(a, c, b.d2, h$$go); | |
return h$e(h$r2); | |
}; | |
function h$$gm() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c3(h$$gn, a, c, b.d2), h$baseZCTextziReadziLexzilexChar2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gl() | |
{ | |
var a = h$r1.d1; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, h$r2), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
switch (a) | |
{ | |
case (34): | |
return h$e(d); | |
case (92): | |
return h$e(e); | |
default: | |
h$l3(c, h$c2(h$$gl, b, a), h$$ne); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$gj() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$p5(a, c, d, b.d3, h$$gk); | |
return h$e(h$r2); | |
}; | |
function h$$gi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$l3(h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c4(h$$gj, b, c, d, h$c3(h$$gm, b, c, e))), | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, a), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gh() | |
{ | |
var a = h$c2(h$$gy, h$r2, h$r3); | |
var b = h$c2(h$$gw, h$r2, h$r3); | |
h$p5(h$r2, h$r3, a, b, h$$gi); | |
h$l2(h$c1(h$$gq, h$c4(h$$gt, h$r2, h$r3, a, b)), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gB() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$gA() | |
{ | |
h$p1(h$$gB); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gH() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$l2(h$c1(h$baseZCTextziReadziLexziNumber_con_e, h$c3(h$baseZCTextziReadziLexziMkDecimal_con_e, c, b.d2, h$r2)), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$gF() | |
{ | |
var a = h$r1.d1; | |
h$p1(h$$gG); | |
h$l4(h$c3(h$$gH, a, h$r1.d2, h$r2), h$$nh, h$$nj, h$baseZCTextziParserCombinatorsziReadPzizdwzlzpzp); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$gE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$gD() | |
{ | |
h$p1(h$$gE); | |
h$l4(h$c2(h$$gF, h$r1.d1, h$r2), h$$ni, h$$pE, h$baseZCTextziParserCombinatorsziReadPzizdwzlzpzp); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$gC() | |
{ | |
h$l3(h$c1(h$$gD, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gI() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gJ() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$g5() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$g4() | |
{ | |
h$l2(h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$g5, h$r2)), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$g3() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$g2() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$g3); | |
h$l3(h$c1(h$$g4, a), h$$pG, h$$pJ); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$g1() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$g0() | |
{ | |
h$l2(h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$g1, h$r2)), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$gY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 43)) | |
{ | |
h$p1(h$$gZ); | |
h$l3(h$c1(h$$g0, b), h$$pG, h$$pJ); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$gX() | |
{ | |
h$p2(h$r1.d1, h$$gY); | |
return h$e(h$r2); | |
}; | |
function h$$gW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gV() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$gW); | |
h$l3(a, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gU() | |
{ | |
h$l2(h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$gV, h$r2)), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$gT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$gS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 45)) | |
{ | |
h$p1(h$$gT); | |
h$l3(h$c1(h$$gU, b), h$$pG, h$$pJ); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$gR() | |
{ | |
h$p2(h$r1.d1, h$$gS); | |
return h$e(h$r2); | |
}; | |
function h$$gQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gP() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p2(h$c1(h$$g2, a), h$$gQ); | |
h$l3(h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$gX, a)), | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$gR, a)), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$gO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 69)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$gN() | |
{ | |
h$p2(h$r1.d1, h$$gO); | |
return h$e(h$r2); | |
}; | |
function h$$gM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 101)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$gL() | |
{ | |
h$p2(h$r1.d1, h$$gM); | |
return h$e(h$r2); | |
}; | |
function h$$gK() | |
{ | |
var a = h$c1(h$$gP, h$r2); | |
h$l3(h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$gN, a)), | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$gL, a)), h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$g7() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, a); | |
return h$rs(); | |
}; | |
function h$$g6() | |
{ | |
h$p1(h$$g7); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hc() | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$r2, true), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hb() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$c1(h$$hc, a), h$baseZCTextziReadziLexzilexChar2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ha() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d === 92)) | |
{ | |
return h$e(c); | |
} | |
else | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a, false), b); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$g9() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$ha); | |
return h$e(h$r2); | |
}; | |
function h$$g8() | |
{ | |
h$r1 = h$c2(h$$g9, h$r2, h$c1(h$$hb, h$r2)); | |
return h$rs(); | |
}; | |
function h$$hd() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$he() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hi() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nv, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hh() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hg() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hf() | |
{ | |
h$p1(h$$hg); | |
h$l3(h$c1(h$$hh, h$c1(h$$hi, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nu = h$strta("DEL"); | |
function h$$hm() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nz, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hl() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hk() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hj() | |
{ | |
h$p1(h$$hk); | |
h$l3(h$c1(h$$hl, h$c1(h$$hm, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$ny = h$strta("SP"); | |
function h$$hq() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nD, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hp() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ho() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hn() | |
{ | |
h$p1(h$$ho); | |
h$l3(h$c1(h$$hp, h$c1(h$$hq, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nC = h$strta("US"); | |
function h$$hu() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nH, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ht() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hs() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hr() | |
{ | |
h$p1(h$$hs); | |
h$l3(h$c1(h$$ht, h$c1(h$$hu, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nG = h$strta("RS"); | |
function h$$hy() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nL, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hx() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hv() | |
{ | |
h$p1(h$$hw); | |
h$l3(h$c1(h$$hx, h$c1(h$$hy, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nK = h$strta("GS"); | |
function h$$hC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nP, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hB() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hz() | |
{ | |
h$p1(h$$hA); | |
h$l3(h$c1(h$$hB, h$c1(h$$hC, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nO = h$strta("FS"); | |
function h$$hG() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nT, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hF() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hD() | |
{ | |
h$p1(h$$hE); | |
h$l3(h$c1(h$$hF, h$c1(h$$hG, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nS = h$strta("ESC"); | |
function h$$hK() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nX, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hJ() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hI() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hH() | |
{ | |
h$p1(h$$hI); | |
h$l3(h$c1(h$$hJ, h$c1(h$$hK, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$nW = h$strta("SUB"); | |
function h$$hO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$n1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hN() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hM() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hL() | |
{ | |
h$p1(h$$hM); | |
h$l3(h$c1(h$$hN, h$c1(h$$hO, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$n0 = h$strta("EM"); | |
function h$$hS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$n5, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hR() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hP() | |
{ | |
h$p1(h$$hQ); | |
h$l3(h$c1(h$$hR, h$c1(h$$hS, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$n4 = h$strta("CAN"); | |
function h$$hW() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$n9, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hV() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hU() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hT() | |
{ | |
h$p1(h$$hU); | |
h$l3(h$c1(h$$hV, h$c1(h$$hW, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$n8 = h$strta("ETB"); | |
function h$$h0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$od, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$hZ() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$hY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$hX() | |
{ | |
h$p1(h$$hY); | |
h$l3(h$c1(h$$hZ, h$c1(h$$h0, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oc = h$strta("SYN"); | |
function h$$h4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oh, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$h3() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$h2() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$h1() | |
{ | |
h$p1(h$$h2); | |
h$l3(h$c1(h$$h3, h$c1(h$$h4, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$og = h$strta("NAK"); | |
function h$$h8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$ol, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$h7() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$h6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$h5() | |
{ | |
h$p1(h$$h6); | |
h$l3(h$c1(h$$h7, h$c1(h$$h8, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$ok = h$strta("DC4"); | |
function h$$ic() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$op, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ib() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ia() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$h9() | |
{ | |
h$p1(h$$ia); | |
h$l3(h$c1(h$$ib, h$c1(h$$ic, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oo = h$strta("DC3"); | |
function h$$ih() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$ot, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ig() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ie() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$id() | |
{ | |
h$p1(h$$ie); | |
h$l3(h$c1(h$$ig, h$c1(h$$ih, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$os = h$strta("DC2"); | |
function h$$il() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$ox, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ik() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ij() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$ii() | |
{ | |
h$p1(h$$ij); | |
h$l3(h$c1(h$$ik, h$c1(h$$il, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$ow = h$strta("DC1"); | |
function h$$iq() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oB, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ip() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$io() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$im() | |
{ | |
h$p1(h$$io); | |
h$l3(h$c1(h$$ip, h$c1(h$$iq, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oA = h$strta("DLE"); | |
function h$$iu() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oF, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$it() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$is() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$ir() | |
{ | |
h$p1(h$$is); | |
h$l3(h$c1(h$$it, h$c1(h$$iu, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oE = h$strta("SI"); | |
function h$$iy() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oJ, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ix() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iv() | |
{ | |
h$p1(h$$iw); | |
h$l3(h$c1(h$$ix, h$c1(h$$iy, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oI = h$strta("CR"); | |
function h$$iC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iB() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iz() | |
{ | |
h$p1(h$$iA); | |
h$l3(h$c1(h$$iB, h$c1(h$$iC, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oM = h$strta("FF"); | |
function h$$iG() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oR, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iF() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iD() | |
{ | |
h$p1(h$$iE); | |
h$l3(h$c1(h$$iF, h$c1(h$$iG, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oQ = h$strta("VT"); | |
function h$$iK() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oV, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iJ() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iI() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iH() | |
{ | |
h$p1(h$$iI); | |
h$l3(h$c1(h$$iJ, h$c1(h$$iK, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oU = h$strta("LF"); | |
function h$$iO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oZ, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iN() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iM() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iL() | |
{ | |
h$p1(h$$iM); | |
h$l3(h$c1(h$$iN, h$c1(h$$iO, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$oY = h$strta("HT"); | |
function h$$iS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$o3, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iR() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iP() | |
{ | |
h$p1(h$$iQ); | |
h$l3(h$c1(h$$iR, h$c1(h$$iS, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$o2 = h$strta("BS"); | |
function h$$iW() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$o7, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iV() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iU() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iT() | |
{ | |
h$p1(h$$iU); | |
h$l3(h$c1(h$$iV, h$c1(h$$iW, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$o6 = h$strta("BEL"); | |
function h$$i0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pb, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$iZ() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$iY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$iX() | |
{ | |
h$p1(h$$iY); | |
h$l3(h$c1(h$$iZ, h$c1(h$$i0, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pa = h$strta("ACK"); | |
function h$$i4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pf, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$i3() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$i2() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$i1() | |
{ | |
h$p1(h$$i2); | |
h$l3(h$c1(h$$i3, h$c1(h$$i4, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pe = h$strta("ENQ"); | |
function h$$i8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pj, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$i7() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$i6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$i5() | |
{ | |
h$p1(h$$i6); | |
h$l3(h$c1(h$$i7, h$c1(h$$i8, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pi = h$strta("EOT"); | |
function h$$jc() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pn, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jb() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ja() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$i9() | |
{ | |
h$p1(h$$ja); | |
h$l3(h$c1(h$$jb, h$c1(h$$jc, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pm = h$strta("ETX"); | |
function h$$jg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pr, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jf() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$je() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jd() | |
{ | |
h$p1(h$$je); | |
h$l3(h$c1(h$$jf, h$c1(h$$jg, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pq = h$strta("STX"); | |
function h$$jk() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pv, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jj() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ji() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jh() | |
{ | |
h$p1(h$$ji); | |
h$l3(h$c1(h$$jj, h$c1(h$$jk, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pu = h$strta("NUL"); | |
function h$$jm() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jl() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p1(h$$jm); | |
h$l4(h$r2, a, b.d1, b.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$jq() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pA, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jp() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$jo() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jn() | |
{ | |
h$p1(h$$jo); | |
h$l3(h$c1(h$$jp, h$c1(h$$jq, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pz = h$strta("SOH"); | |
function h$$ju() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pD, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jt() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$js() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jr() | |
{ | |
h$p1(h$$js); | |
h$l3(h$c1(h$$jt, h$c1(h$$ju, h$r2)), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pC = h$strta("SO"); | |
function h$$jw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jv() | |
{ | |
h$p1(h$$jw); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jB() | |
{ | |
h$l2(h$c1(h$baseZCGHCziBaseziJust_con_e, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 46)) | |
{ | |
h$p1(h$$jA); | |
h$l3(b, h$$pG, h$$pJ); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$jy() | |
{ | |
h$p2(h$r1.d1, h$$jz); | |
return h$e(h$r2); | |
}; | |
function h$$jx() | |
{ | |
h$r1 = h$c1(h$$jy, h$c1(h$$jB, h$r2)); | |
return h$rs(); | |
}; | |
function h$$jD() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jC() | |
{ | |
h$p1(h$$jD); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jO() | |
{ | |
h$l2(h$c1(h$baseZCTextziReadziLexziNumber_con_e, h$c2(h$baseZCTextziReadziLexziMkNumber_con_e, h$$qe, h$r2)), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jN() | |
{ | |
h$l2(h$c1(h$baseZCTextziReadziLexziNumber_con_e, h$c2(h$baseZCTextziReadziLexziMkNumber_con_e, h$$qd, h$r2)), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jM() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jL() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jK() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jJ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$jI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a) | |
{ | |
case (79): | |
h$p1(h$$jM); | |
h$l3(b, h$$qe, h$$pJ); | |
return h$ap_2_2_fast(); | |
case (88): | |
h$p1(h$$jL); | |
h$l3(c, h$$qd, h$$pJ); | |
return h$ap_2_2_fast(); | |
case (111): | |
h$p1(h$$jK); | |
h$l3(b, h$$qe, h$$pJ); | |
return h$ap_2_2_fast(); | |
case (120): | |
h$p1(h$$jJ); | |
h$l3(c, h$$qd, h$$pJ); | |
return h$ap_2_2_fast(); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$jH() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$jI); | |
return h$e(h$r2); | |
}; | |
function h$$jG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 48)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$jF() | |
{ | |
h$p2(h$r1.d1, h$$jG); | |
return h$e(h$r2); | |
}; | |
function h$$jE() | |
{ | |
h$r1 = h$c1(h$$jF, h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c2(h$$jH, h$c1(h$$jO, h$r2), h$c1(h$$jN, | |
h$r2)))); | |
return h$rs(); | |
}; | |
function h$$ks() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kr() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kq() | |
{ | |
var a = h$r1.d1; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, h$r2), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l3(h$c2(h$$kq, c, b.d3), d, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ko() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kn() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$km() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$kn, h$c2(h$$ko, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$kl() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$r1 = h$c1(h$$km, h$c4(h$$kp, b, c, a, h$r1)); | |
return h$rs(); | |
}; | |
function h$$kk() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kj() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ki() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kh() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kf() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ke() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kd() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kc() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kb() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ka() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j9() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j7() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j6() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j5() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j3() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j2() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j1() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$j0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jZ() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jY() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jX() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$jW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var e = a; | |
switch (b) | |
{ | |
case (8): | |
if((48 <= e)) | |
{ | |
if((e <= 55)) | |
{ | |
var f = e; | |
h$r1 = ((f - 48) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$kh, h$c1(h$$ki, c)); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$kj, h$c1(h$$kk, c)); | |
}; | |
break; | |
case (10): | |
if((48 <= e)) | |
{ | |
if((e <= 57)) | |
{ | |
var g = e; | |
h$r1 = ((g - 48) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$kd, h$c1(h$$ke, c)); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$kf, h$c1(h$$kg, c)); | |
}; | |
break; | |
case (16): | |
if((48 <= e)) | |
{ | |
if((e <= 57)) | |
{ | |
var h = e; | |
h$r1 = ((h - 48) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
if((97 <= e)) | |
{ | |
if((e <= 102)) | |
{ | |
var i = e; | |
var j = ((i - 97) | 0); | |
h$r1 = ((j + 10) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
if((65 <= e)) | |
{ | |
if((e <= 70)) | |
{ | |
var k = e; | |
var l = ((k - 65) | 0); | |
h$r1 = ((l + 10) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$jX, h$c1(h$$jY, c)); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$jZ, h$c1(h$$j0, c)); | |
}; | |
}; | |
} | |
else | |
{ | |
if((65 <= e)) | |
{ | |
if((e <= 70)) | |
{ | |
var m = e; | |
var n = ((m - 65) | 0); | |
h$r1 = ((n + 10) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$j1, h$c1(h$$j2, c)); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$j3, h$c1(h$$j4, c)); | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
if((97 <= e)) | |
{ | |
if((e <= 102)) | |
{ | |
var o = e; | |
var p = ((o - 97) | 0); | |
h$r1 = ((p + 10) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
if((65 <= e)) | |
{ | |
if((e <= 70)) | |
{ | |
var q = e; | |
var r = ((q - 65) | 0); | |
h$r1 = ((r + 10) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$j5, h$c1(h$$j6, c)); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$j7, h$c1(h$$j8, c)); | |
}; | |
}; | |
} | |
else | |
{ | |
if((65 <= e)) | |
{ | |
if((e <= 70)) | |
{ | |
var s = e; | |
var t = ((s - 65) | 0); | |
h$r1 = ((t + 10) | 0); | |
h$sp += 3; | |
h$stack[(h$sp - 2)] = d; | |
++h$sp; | |
return h$$kl; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$j9, h$c1(h$$ka, c)); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$kb, h$c1(h$$kc, c)); | |
}; | |
}; | |
}; | |
break; | |
default: | |
return h$e(h$baseZCTextziReadziLexzireadDecP2); | |
}; | |
return h$rs(); | |
}; | |
function h$$jV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 5; | |
h$pp17(a, h$$jW); | |
return h$e(b); | |
}; | |
function h$$jU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$$kr, h$c1(h$$ks, c)); | |
} | |
else | |
{ | |
var d = a.d1; | |
h$pp25(d, a.d2, h$$jV); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$jT() | |
{ | |
var a = h$r1.d1; | |
h$p4(a, h$r1.d2, h$r3, h$$jU); | |
return h$e(h$r2); | |
}; | |
function h$$jS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
} | |
else | |
{ | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$jR() | |
{ | |
h$p2(h$r1.d1, h$$jS); | |
return h$e(h$r2); | |
}; | |
function h$$jQ() | |
{ | |
var a = h$r1.d1; | |
h$r4 = h$r1.d2; | |
h$r3 = h$baseZCGHCziBaseziid; | |
h$r1 = a; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$jP() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$jT); | |
b.d1 = h$r2; | |
b.d2 = b; | |
h$r1 = h$c2(h$$jQ, b, h$c1(h$$jR, a)); | |
return h$rs(); | |
}; | |
var h$$pK = h$strta("valDig: Bad base"); | |
function h$$kt() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$pN = h$strta("this should not happen"); | |
var h$$pO = h$strta("=>"); | |
var h$$pQ = h$strta("~"); | |
var h$$pS = h$strta("@"); | |
var h$$pU = h$strta("->"); | |
var h$$pW = h$strta("<-"); | |
var h$$pY = h$strta("|"); | |
var h$$p0 = h$strta("\\"); | |
var h$$p2 = h$strta("="); | |
var h$$p4 = h$strta("::"); | |
var h$$p6 = h$strta(".."); | |
function h$$kv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$$p9); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ku() | |
{ | |
h$p1(h$$kv); | |
return h$e(h$r2); | |
}; | |
function h$$kw() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = h$u_iswalnum(h$r2); | |
var g = f; | |
if((g === 0)) | |
{ | |
h$l4(a, e, c, d); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
var h$$qa = h$strta("_'"); | |
function h$$ky() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, a); | |
return h$rs(); | |
}; | |
function h$$kx() | |
{ | |
h$p1(h$$ky); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kD() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$qe, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$qd, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a) | |
{ | |
case (79): | |
return h$e(b); | |
case (88): | |
return h$e(c); | |
case (111): | |
return h$e(b); | |
case (120): | |
return h$e(c); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$kA() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$kB); | |
return h$e(h$r2); | |
}; | |
function h$$kz() | |
{ | |
h$r1 = h$c2(h$$kA, h$c1(h$$kD, h$r2), h$c1(h$$kC, h$r2)); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexzireadDecP2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$k3() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$k2() | |
{ | |
h$p1(h$$k3); | |
h$l3(0, h$r1.d1, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$k1() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezismallInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$k0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$k1); | |
return h$e(a); | |
}; | |
function h$$kZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$$pL, a, h$baseZCGHCziRealzizdwzdsreduce); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$kZ); | |
h$l3(h$$pL, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p1(h$$kY); | |
h$l4(a, h$c1(h$$k2, c), h$c1(h$$k0, b), h$baseZCTextziReadziLexzinumberToFixedzugo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$kW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$$pL, a, h$baseZCGHCziRealzizdwzdsreduce); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kV() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$kW); | |
h$l3(h$$pL, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziRealzizdwzdsreduce); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(c, h$$kU); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$pp5(a, h$$kT); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a, h$$kS); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezisignumInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kQ() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a, h$$kR); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziabsInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$kP() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$kQ); | |
h$l3(a, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCGHCziRealzizczuzdszc); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kO() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$$pL, a, h$baseZCGHCziRealzizdwzdsreduce); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$kO); | |
h$l3(h$$pL, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p1(h$$kN); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$kM); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$kK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$pp2(h$$kL); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCGHCziRealzizczuzdszc); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp2(h$$kP); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$kJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$kV); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp6(c, h$$kK); | |
h$l3(h$baseZCTextziReadziLexzinumberToFixed3, c, h$integerzmgmpZCGHCziIntegerziTypezigeIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$kI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, a, h$baseZCTextziReadziLexzinumberToFixed3, h$$nb); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$kH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, a, b, h$$nb); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$kG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$p2(c, h$$kI); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp5(a.d1, h$$kH); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$kF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$pp2(h$$kJ); | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp6(a.d1, h$$kG); | |
return h$e(b); | |
}; | |
}; | |
function h$$kE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
var c = a.d2; | |
h$p3(b, c, h$$kX); | |
h$l3(c, h$baseZCTextziReadziLexzinumberToFixed2, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var d = a.d1; | |
var e = a.d2; | |
var f = e.d1; | |
h$p3(d, e.d2, h$$kF); | |
return h$e(f); | |
}; | |
}; | |
function h$baseZCTextziReadziLexzizdwnumberToRational_e() | |
{ | |
h$p1(h$$kE); | |
return h$e(h$r2); | |
}; | |
function h$baseZCTextziReadziLexzinumberToRangedRational1_e() | |
{ | |
h$l3(h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ln() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziRealziZCzv_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$lm() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$ln); | |
h$l2(a, h$baseZCTextziReadziLexzizdwnumberToRational); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ll() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziRealziZCzv_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$lk() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$ll); | |
h$l2(a, h$baseZCTextziReadziLexzizdwnumberToRational); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lj() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziRealziZCzv_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$li() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$lj); | |
h$l2(a, h$baseZCTextziReadziLexzizdwnumberToRational); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e = ((d - 3) | 0); | |
if((c < e)) | |
{ | |
return h$e(h$baseZCTextziReadziLexzinumberToRangedRational2); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$li, b)); | |
}; | |
return h$rs(); | |
}; | |
function h$$lg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = ((c + a) | 0); | |
var g = ((e + 3) | 0); | |
if((f > g)) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$p3(d, f, h$$lh); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$lf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$pp24(a, h$$lg); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$le() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
h$sp -= 5; | |
h$pp18(h$r1, h$$lf); | |
return h$e(a); | |
}; | |
function h$$ld() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
h$r1 = (-a | 0); | |
h$sp += 4; | |
++h$sp; | |
return h$$le; | |
}; | |
function h$$lc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$baseZCTextziReadziLexzinumberToRangedRational2); | |
} | |
else | |
{ | |
h$sp += 4; | |
h$p1(h$$ld); | |
h$l3(0, b, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$lb() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$sp -= 4; | |
var c = a; | |
var d = b; | |
h$sp += 4; | |
h$p2(c, h$$lc); | |
return h$e(d); | |
}; | |
function h$$la() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$baseZCTextziReadziLexzinumberToRangedRational2); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$sp += 4; | |
h$p1(h$$lb); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToRangedRational1, h$baseZCGHCziListzizdwspan); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$k9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
h$r1 = a; | |
h$sp += 4; | |
++h$sp; | |
return h$$le; | |
}; | |
function h$$k8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$sp += 4; | |
h$p1(h$$la); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 4; | |
h$p1(h$$k9); | |
h$l3(0, a, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$k7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$pp8(c); | |
h$pp2(h$$k8); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToRangedRational1, h$baseZCGHCziListzidropWhile); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$k6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$pp64(h$$k7); | |
h$l3(h$baseZCTextziReadziLexzinumberToRangedRational4, b, h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$k5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$lk, b)); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp96(c, h$$k6); | |
h$l3(h$baseZCTextziReadziLexzinumberToRangedRational5, c, h$integerzmgmpZCGHCziIntegerziTypezigtIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$k4() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$lm, a)); | |
} | |
else | |
{ | |
var b = a.d1; | |
var c = a.d2; | |
h$pp60(a, b, c.d1, h$$k5); | |
return h$e(c.d2); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexzizdwnumberToRangedRational_e() | |
{ | |
h$p3(h$r2, h$r3, h$$k4); | |
return h$e(h$r4); | |
}; | |
function h$$lo() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezismallInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCTextziReadziLexzinumberToFixed2_e() | |
{ | |
h$p1(h$$lo); | |
return h$e(h$r2); | |
}; | |
function h$$mg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$o7, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mf() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$o3, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$me() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oZ, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$md() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oV, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mc() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oR, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mb() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ma() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oJ, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l9() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nm, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nn, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l7() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$no, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezismallInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l5() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$l6); | |
return h$e(a); | |
}; | |
function h$$l4() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((((b >>> 1) < 557055) || (((b >>> 1) == 557055) && ((b & 1) <= 1)))) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
h$l2(a, h$baseZCGHCziCharzichr2); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$l3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$l4); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$l2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$l2(h$c1(h$$l3, c), b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$l1() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a, h$$l2); | |
h$l3(h$$np, a, h$integerzmgmpZCGHCziIntegerziTypezileIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$l0() | |
{ | |
h$p2(h$r1.d1, h$$l1); | |
h$l3(h$r2, h$r1.d2, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$lZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$lY() | |
{ | |
h$p1(h$$lZ); | |
h$r3 = h$c2(h$$l0, h$r1.d1, h$c1(h$$l5, h$r2)); | |
h$r1 = h$$pJ; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$lX() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nD, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lW() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nH, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lV() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nL, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lU() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nP, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lT() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nT, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$nX, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lR() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$n1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lQ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$n5, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lP() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$n9, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$od, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lN() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oh, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lM() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$ol, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lL() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$op, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lK() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$ot, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lJ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$ox, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lI() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oB, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lH() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$oF, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lG() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pD, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lF() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pb, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lE() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pf, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lD() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pj, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pn, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lB() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pr, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lA() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pA, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lz() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$$pv, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ly() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 32)]; | |
var c = h$stack[(h$sp - 31)]; | |
var d = h$stack[(h$sp - 30)]; | |
var e = h$stack[(h$sp - 29)]; | |
var f = h$stack[(h$sp - 28)]; | |
var g = h$stack[(h$sp - 27)]; | |
var h = h$stack[(h$sp - 26)]; | |
var i = h$stack[(h$sp - 25)]; | |
var j = h$stack[(h$sp - 24)]; | |
var k = h$stack[(h$sp - 23)]; | |
var l = h$stack[(h$sp - 22)]; | |
var m = h$stack[(h$sp - 21)]; | |
var n = h$stack[(h$sp - 20)]; | |
var o = h$stack[(h$sp - 19)]; | |
var p = h$stack[(h$sp - 18)]; | |
var q = h$stack[(h$sp - 17)]; | |
var r = h$stack[(h$sp - 16)]; | |
var s = h$stack[(h$sp - 15)]; | |
var t = h$stack[(h$sp - 14)]; | |
var u = h$stack[(h$sp - 13)]; | |
var v = h$stack[(h$sp - 12)]; | |
var w = h$stack[(h$sp - 11)]; | |
var x = h$stack[(h$sp - 10)]; | |
var y = h$stack[(h$sp - 9)]; | |
var z = h$stack[(h$sp - 8)]; | |
var A = h$stack[(h$sp - 7)]; | |
var B = h$stack[(h$sp - 6)]; | |
var C = h$stack[(h$sp - 5)]; | |
var D = h$stack[(h$sp - 4)]; | |
var E = h$stack[(h$sp - 3)]; | |
var F = h$stack[(h$sp - 2)]; | |
var G = h$stack[(h$sp - 1)]; | |
h$sp -= 33; | |
switch (a) | |
{ | |
case (64): | |
return h$e(G); | |
case (65): | |
return h$e(F); | |
case (66): | |
return h$e(E); | |
case (67): | |
return h$e(D); | |
case (68): | |
return h$e(C); | |
case (69): | |
return h$e(B); | |
case (70): | |
return h$e(A); | |
case (71): | |
return h$e(b); | |
case (72): | |
return h$e(c); | |
case (73): | |
return h$e(d); | |
case (74): | |
return h$e(e); | |
case (75): | |
return h$e(f); | |
case (76): | |
return h$e(g); | |
case (77): | |
return h$e(h); | |
case (78): | |
return h$e(z); | |
case (79): | |
return h$e(y); | |
case (80): | |
return h$e(x); | |
case (81): | |
return h$e(w); | |
case (82): | |
return h$e(v); | |
case (83): | |
return h$e(u); | |
case (84): | |
return h$e(t); | |
case (85): | |
return h$e(s); | |
case (86): | |
return h$e(r); | |
case (87): | |
return h$e(q); | |
case (88): | |
return h$e(p); | |
case (89): | |
return h$e(o); | |
case (90): | |
return h$e(n); | |
case (91): | |
return h$e(m); | |
case (92): | |
return h$e(l); | |
case (93): | |
return h$e(k); | |
case (94): | |
return h$e(j); | |
case (95): | |
return h$e(i); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$lx() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h = b.d6; | |
var i = b.d7; | |
var j = b.d8; | |
var k = b.d9; | |
var l = b.d10; | |
var m = b.d11; | |
var n = b.d12; | |
var o = b.d13; | |
var p = b.d14; | |
var q = b.d15; | |
var r = b.d16; | |
var s = b.d17; | |
var t = b.d18; | |
var u = b.d19; | |
var v = b.d20; | |
var w = b.d21; | |
var x = b.d22; | |
var y = b.d23; | |
var z = b.d24; | |
var A = b.d25; | |
var B = b.d26; | |
var C = b.d27; | |
var D = b.d28; | |
var E = b.d29; | |
var F = b.d30; | |
var G = b.d31; | |
var H = h$r2; | |
h$sp += 33; | |
h$stack[(h$sp - 32)] = a; | |
h$stack[(h$sp - 31)] = c; | |
h$stack[(h$sp - 30)] = d; | |
h$stack[(h$sp - 29)] = e; | |
h$stack[(h$sp - 28)] = f; | |
h$stack[(h$sp - 27)] = g; | |
h$stack[(h$sp - 26)] = h; | |
h$stack[(h$sp - 25)] = i; | |
h$stack[(h$sp - 24)] = j; | |
h$stack[(h$sp - 23)] = k; | |
h$stack[(h$sp - 22)] = l; | |
h$stack[(h$sp - 21)] = m; | |
h$stack[(h$sp - 20)] = n; | |
h$stack[(h$sp - 19)] = o; | |
h$stack[(h$sp - 18)] = p; | |
h$stack[(h$sp - 17)] = q; | |
h$stack[(h$sp - 16)] = r; | |
h$stack[(h$sp - 15)] = s; | |
h$stack[(h$sp - 14)] = t; | |
h$stack[(h$sp - 13)] = u; | |
h$stack[(h$sp - 12)] = v; | |
h$stack[(h$sp - 11)] = w; | |
h$stack[(h$sp - 10)] = x; | |
h$stack[(h$sp - 9)] = y; | |
h$stack[(h$sp - 8)] = z; | |
h$stack[(h$sp - 7)] = A; | |
h$stack[(h$sp - 6)] = B; | |
h$stack[(h$sp - 5)] = C; | |
h$stack[(h$sp - 4)] = D; | |
h$stack[(h$sp - 3)] = E; | |
h$stack[(h$sp - 2)] = F; | |
h$stack[(h$sp - 1)] = G; | |
h$stack[h$sp] = h$$ly; | |
return h$e(H); | |
}; | |
function h$$lw() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$$nr); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$lv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 94)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$lu() | |
{ | |
h$p2(h$r1.d1, h$$lv); | |
return h$e(h$r2); | |
}; | |
function h$$lt() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h = b.d6; | |
h$bh(); | |
h$l3(h$c1(h$$lw, a), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$lu, | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, { d1: c, d2: { d1: d, d10: h$c1(h$$lU, a), d11: h$c1(h$$lT, a), | |
d12: h$c1(h$$lS, a), d13: h$c1(h$$lR, a), d14: h$c1(h$$lQ, a), | |
d15: h$c1(h$$lP, a), d16: h$c1(h$$lO, a), d17: h$c1(h$$lN, a), | |
d18: h$c1(h$$lM, a), d19: h$c1(h$$lL, a), d2: e, d20: h$c1(h$$lK, a), | |
d21: h$c1(h$$lJ, a), d22: h$c1(h$$lI, a), d23: h$c1(h$$lH, a), | |
d24: h$c1(h$$lG, a), d25: h$c1(h$$lF, a), d26: h$c1(h$$lE, a), | |
d27: h$c1(h$$lD, a), d28: h$c1(h$$lC, a), d29: h$c1(h$$lB, a), d3: f, | |
d30: h$c1(h$$lA, a), d31: h$c1(h$$lz, a), d4: g, d5: h, d6: b.d7, | |
d7: h$c1(h$$lX, a), d8: h$c1(h$$lW, a), d9: h$c1(h$$lV, a) | |
}, f: h$$lx, m: 0 | |
}))), h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ls() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 8)]; | |
var c = h$stack[(h$sp - 7)]; | |
var d = h$stack[(h$sp - 6)]; | |
var e = h$stack[(h$sp - 5)]; | |
var f = h$stack[(h$sp - 4)]; | |
var g = h$stack[(h$sp - 3)]; | |
var h = h$stack[(h$sp - 2)]; | |
var i = h$stack[(h$sp - 1)]; | |
h$sp -= 9; | |
h$l3(h$c8(h$$lt, b, c, d, e, f, g, h, i), h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$lr() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h = b.d6; | |
h$bh(); | |
h$p9(a, c, d, e, f, g, h, b.d7, h$$ls); | |
h$l4(h$c1(h$$lY, a), h$$nq, h$$qb, h$baseZCTextziParserCombinatorsziReadPzizdwzlzpzp); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$lq() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 10)]; | |
var c = h$stack[(h$sp - 9)]; | |
var d = h$stack[(h$sp - 8)]; | |
var e = h$stack[(h$sp - 7)]; | |
var f = h$stack[(h$sp - 6)]; | |
var g = h$stack[(h$sp - 5)]; | |
var h = h$stack[(h$sp - 4)]; | |
var i = h$stack[(h$sp - 3)]; | |
var j = h$stack[(h$sp - 2)]; | |
var k = h$stack[(h$sp - 1)]; | |
h$sp -= 11; | |
switch (a) | |
{ | |
case (34): | |
return h$e(k); | |
case (39): | |
return h$e(j); | |
case (92): | |
return h$e(i); | |
case (97): | |
return h$e(b); | |
case (98): | |
return h$e(c); | |
case (102): | |
return h$e(g); | |
case (110): | |
return h$e(e); | |
case (114): | |
return h$e(h); | |
case (116): | |
return h$e(d); | |
case (118): | |
return h$e(f); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$lp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h = b.d6; | |
var i = b.d7; | |
var j = b.d8; | |
h$p11(a, c, d, e, f, g, h, i, j, b.d9, h$$lq); | |
return h$e(h$r2); | |
}; | |
function h$baseZCTextziReadziLexzilexChar2_e() | |
{ | |
var a = h$c1(h$$mg, h$r2); | |
var b = h$c1(h$$mf, h$r2); | |
var c = h$c1(h$$me, h$r2); | |
var d = h$c1(h$$md, h$r2); | |
var e = h$c1(h$$mc, h$r2); | |
var f = h$c1(h$$mb, h$r2); | |
var g = h$c1(h$$ma, h$r2); | |
h$l3(h$c8(h$$lr, h$r2, a, b, c, d, e, f, g), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c10(h$$lp, a, b, | |
c, d, e, f, g, h$c1(h$$l9, h$r2), h$c1(h$$l8, h$r2), h$c1(h$$l7, h$r2))), h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
var h$baseZCTextziReadziLexziisSymbolChar2 = h$strta(",;()[]{}`"); | |
var h$baseZCTextziReadziLexziisSymbolChar1 = h$strta("'\""); | |
function h$$mS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$baseZCTextziReadziLexziEOF, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c1(h$baseZCTextziReadziLexziChar_con_e, b), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 39)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mP() | |
{ | |
h$p2(h$r1.d1, h$$mQ); | |
return h$e(h$r2); | |
}; | |
function h$$mO() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mP, h$c2(h$$mR, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$mN() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$c1(h$$mO, a), h$baseZCTextziReadziLexzilexChar2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mM() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c1(h$baseZCTextziReadziLexziChar_con_e, b), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 39)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mK() | |
{ | |
h$p2(h$r1.d1, h$$mL); | |
return h$e(h$r2); | |
}; | |
function h$$mJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a) | |
{ | |
case (39): | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
break; | |
case (92): | |
return h$e(c); | |
default: | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mK, h$c2(h$$mM, b, a))); | |
}; | |
return h$rs(); | |
}; | |
function h$$mI() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$mJ); | |
return h$e(h$r2); | |
}; | |
function h$$mH() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCGHCziBaseziid, h$$ne); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$mF() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$mG); | |
h$l4(a, h$$nf, h$$pH, h$baseZCTextziParserCombinatorsziReadPzizdwzlzpzp); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$mE() | |
{ | |
var a = h$r1.d1; | |
h$l2(h$c1(h$baseZCTextziReadziLexziIdent_con_e, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, h$r2)), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mD() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$mC() | |
{ | |
var a = h$r1.d1; | |
h$l2(h$c1(h$baseZCTextziReadziLexziIdent_con_e, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, h$r2)), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mB() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$mA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = h$u_iswalpha(a); | |
var e = d; | |
if((e === 0)) | |
{ | |
var f = c; | |
if((f === 95)) | |
{ | |
h$p1(h$$mB); | |
h$l3(h$c2(h$$mC, b, a), h$$p8, h$baseZCTextziParserCombinatorsziReadPzizdwmunch); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
} | |
else | |
{ | |
h$p1(h$$mD); | |
h$l3(h$c2(h$$mE, b, a), h$$p8, h$baseZCTextziParserCombinatorsziReadPzizdwmunch); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$mz() | |
{ | |
h$p2(h$r1.d1, h$$mA); | |
return h$e(h$r2); | |
}; | |
function h$$my() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$mF, a), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mz, a)), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$l2(h$c1(h$baseZCTextziReadziLexziPunc_con_e, c), b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$l2(h$c1(h$baseZCTextziReadziLexziSymbol_con_e, c), b); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$mw() | |
{ | |
var a = h$r1.d1; | |
var b = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, h$r2); | |
h$p3(a, b, h$$mx); | |
h$l4(h$$p7, b, h$ghczmprimZCGHCziClasseszizdfEqZMZNzuzdszdfEqZMZN1, h$baseZCGHCziListzielem); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$mv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$mu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$p1(h$$mv); | |
h$l3(h$c2(h$$mw, b, c), h$baseZCTextziReadziLexziisSymbolChar, h$baseZCTextziParserCombinatorsziReadPzizdwmunch); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mt() | |
{ | |
h$p3(h$r1.d1, h$r2, h$$mu); | |
h$r1 = h$baseZCTextziReadziLexziisSymbolChar; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ms() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$my, a), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mt, a)), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mr() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$l2(h$c1(h$baseZCTextziReadziLexziPunc_con_e, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, | |
h$ghczmprimZCGHCziTypesziZMZN)), b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mq() | |
{ | |
h$p3(h$r1.d1, h$r2, h$$mr); | |
h$l4(h$baseZCTextziReadziLexziisSymbolChar2, h$r2, h$ghczmprimZCGHCziClasseszizdfEqChar, h$baseZCGHCziListzielem); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$mp() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$ms, a), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mq, a)), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mo() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 34)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mn() | |
{ | |
h$p2(h$r1.d1, h$$mo); | |
return h$e(h$r2); | |
}; | |
function h$$mm() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$mp, a), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mn, h$c1(h$$mH, a))), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ml() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === 39)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mk() | |
{ | |
h$p2(h$r1.d1, h$$ml); | |
return h$e(h$r2); | |
}; | |
function h$$mj() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$mm, a), h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$mk, | |
h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c2(h$$mI, a, h$c1(h$$mN, a))))), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$mh() | |
{ | |
h$p2(h$r1.d1, h$$mi); | |
return h$e(h$r2); | |
}; | |
function h$baseZCTextziReadziLexziexpect2_e() | |
{ | |
h$l3(h$c1(h$$mj, h$r2), h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$mh, h$c1(h$$mS, h$r2))), h$r1. | |
d1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCTextziReadziLexziEOF_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziNumber_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziNumber_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziReadziLexziNumber_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziSymbol_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziSymbol_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziReadziLexziSymbol_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziIdent_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziIdent_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziReadziLexziIdent_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziPunc_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziPunc_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziReadziLexziPunc_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziString_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziString_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziReadziLexziString_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziChar_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziChar_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziReadziLexziChar_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziMkDecimal_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziMkDecimal_e() | |
{ | |
h$r1 = h$c3(h$baseZCTextziReadziLexziMkDecimal_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziMkNumber_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziMkNumber_e() | |
{ | |
h$r1 = h$c2(h$baseZCTextziReadziLexziMkNumber_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$mV() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$mU() | |
{ | |
h$p1(h$$mV); | |
h$l3(0, h$r1.d1, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(a, h$c1(h$$mU, c), b, h$baseZCTextziReadziLexzinumberToFixedzugo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCTextziReadziLexzivalInteger_e() | |
{ | |
h$p3(h$r2, h$r3, h$$mT); | |
h$l2(h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$mZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$$mY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a.f.a) | |
{ | |
case (12): | |
var d = c; | |
if((d === 95)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
break; | |
case (13): | |
h$r1 = true; | |
break; | |
case (18): | |
h$p1(h$$mZ); | |
h$l4(h$baseZCTextziReadziLexziisSymbolChar1, b, h$ghczmprimZCGHCziClasseszizdfEqChar, h$baseZCGHCziListzielem); | |
return h$ap_3_3_fast(); | |
case (19): | |
h$r1 = true; | |
break; | |
case (20): | |
h$r1 = true; | |
break; | |
case (21): | |
h$r1 = true; | |
break; | |
case (22): | |
h$r1 = true; | |
break; | |
default: | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$mX() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p3(a, a, h$$mY); | |
h$l2(a, h$baseZCGHCziUnicodezizdwgeneralCategory); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$mW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$p1(h$$mX); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexziisSymbolChar_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p2(h$r2, h$$mW); | |
h$l4(a, h$r2, b.d1, b.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$m9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$m8() | |
{ | |
h$p1(h$$m9); | |
h$l3(0, h$r1.d1, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$m7() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezismallInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$m6() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$m7); | |
return h$e(a); | |
}; | |
function h$$m5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(a, h$c1(h$$m8, c), h$c1(h$$m6, b), h$baseZCTextziReadziLexzinumberToFixedzugo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$m4() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p3(a, b, h$$m5); | |
h$l3(b, h$baseZCTextziReadziLexzinumberToFixed2, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$m3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCTextziReadziLexzinumberToFixed1, h$baseZCTextziReadziLexzivalInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$m2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, h$c1(h$$m3, b)); | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
}; | |
return h$rs(); | |
}; | |
function h$$m1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$pp2(h$$m2); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
}; | |
return h$rs(); | |
}; | |
function h$$m0() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
var b = a.d1; | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, h$c2(h$$m4, b, a.d2)); | |
} | |
else | |
{ | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
h$p3(c, d.d2, h$$m1); | |
return h$e(e); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadziLexzinumberToInteger_e() | |
{ | |
h$p1(h$$m0); | |
return h$e(h$r2); | |
}; | |
function h$$qi() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadzireadEither6); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c1(h$$qi, b)); | |
} | |
else | |
{ | |
h$l2(b, h$baseZCTextziReadzireadEither6); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$qg() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a.d1, h$$qh); | |
return h$e(a.d2); | |
}; | |
function h$$qf() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p2(a.d2, h$$qg); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziReadzireadEither6_e() | |
{ | |
h$p1(h$$qf); | |
return h$e(h$r2); | |
}; | |
function h$$qk() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$$qj() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCTextziReadzireadEither5_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$qj, h$c1(h$$qk, | |
h$c2(h$baseZCTextziParserCombinatorsziReadPziResult_con_e, h$r2, h$r1.d1)))); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPreczipfail1_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$$qp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qo() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$p2(a.d2, h$$qp); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$qn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qm() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ql() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p2(a.d1, h$$qo); | |
return h$e(b); | |
case (2): | |
h$pp2(h$$qn); | |
h$l2(b, a.d1); | |
return h$ap_1_1_fast(); | |
case (3): | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
break; | |
case (4): | |
var c = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, c, b), h$c2(h$$qm, b, a. | |
d2)); | |
break; | |
default: | |
return h$e(a.d1); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzirun_e() | |
{ | |
h$p2(h$r3, h$$ql); | |
return h$e(h$r2); | |
}; | |
function h$$qW() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qV() | |
{ | |
var a = h$r1.d1; | |
h$l3(h$c2(h$$qW, h$r1.d2, h$r2), a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qT() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$r1.d2, h$$qU); | |
h$r1 = a; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qS() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qQ() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$c2(h$$qS, h$r1.d2, h$r2), h$$qR); | |
h$r1 = a; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qO() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b.d1, h$$qP); | |
h$l3(b.d2, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qN() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, h$c3(h$$qO, a, h$r1.d2, h$r2)); | |
return h$rs(); | |
}; | |
function h$$qM() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
if((c.f.a === 5)) | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qN, a, c.d1)); | |
} | |
else | |
{ | |
var d = a; | |
if((d.f.a === 2)) | |
{ | |
var e = d.d1; | |
var f = c; | |
if((f.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qT, e, f)); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qQ, e, f.d1)); | |
}; | |
} | |
else | |
{ | |
var g = c; | |
if((g.f.a === 1)) | |
{ | |
return h$e(h$$sd); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qV, d, g.d1)); | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$qL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp2(h$$qL); | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qJ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$p3(c, d, h$$qK); | |
h$l2(d, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qI() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, h$c3(h$$qJ, a, h$r1.d2, h$r2)); | |
return h$rs(); | |
}; | |
function h$$qH() | |
{ | |
var a = h$r1.d1; | |
h$l3(h$r1.d2, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qG() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l3(h$c2(h$$qH, c, b.d2), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qF() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, h$c3(h$$qG, a, h$r1.d2, h$r2)); | |
return h$rs(); | |
}; | |
function h$$qE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qD() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p2(b, h$$qE); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qC() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l3(h$c2(h$$qD, c, b.d2), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qB() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, h$c3(h$$qC, a, h$r1.d2, h$r2)); | |
return h$rs(); | |
}; | |
function h$$qA() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var c = b; | |
if((c.f.a === 3)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
var d = a; | |
switch (d.f.a) | |
{ | |
case (2): | |
var e = d.d1; | |
var f = c; | |
if((f.f.a === 5)) | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qI, e, f.d1)); | |
} | |
else | |
{ | |
h$p2(a, c); | |
++h$sp; | |
return h$$qM; | |
}; | |
break; | |
case (5): | |
var g = d.d1; | |
var h = c; | |
switch (h.f.a) | |
{ | |
case (1): | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qF, g, h)); | |
break; | |
case (2): | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$qB, g, h.d1)); | |
break; | |
default: | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, h$c2(h$$qA, g, h.d1)); | |
}; | |
break; | |
default: | |
h$p2(a, c); | |
++h$sp; | |
return h$$qM; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$qy() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 4)) | |
{ | |
var c = a.d1; | |
h$r1 = h$c2(h$baseZCTextziParserCombinatorsziReadPziResult_con_e, c, h$c2(h$$qy, b, a.d2)); | |
} | |
else | |
{ | |
h$p2(a, h$$qz); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$qw() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp2(h$$qx); | |
return h$e(a); | |
}; | |
function h$$qv() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qt() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$c2(h$$qv, h$r1.d2, h$r2), h$$qu); | |
h$r1 = a; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$qs() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c2(h$$qt, b, a.d1)); | |
} | |
else | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$qw; | |
}; | |
return h$rs(); | |
}; | |
function h$$qr() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$qq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
var c = a.d1; | |
h$sp += 2; | |
h$p2(c, h$$qs); | |
return h$e(b); | |
case (4): | |
var d = a.d1; | |
h$r1 = h$c2(h$baseZCTextziParserCombinatorsziReadPziResult_con_e, d, h$c2(h$$qr, b, a.d2)); | |
break; | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$qw; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg_e() | |
{ | |
h$p2(h$r2, h$r3); | |
h$p1(h$$qq); | |
return h$e(h$r2); | |
}; | |
function h$$ra() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczgzgze); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$q9() | |
{ | |
h$p2(h$r1.d1, h$$ra); | |
h$r1 = h$r1.d2; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$q8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczgzgze); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$q7() | |
{ | |
h$p2(h$r1.d1, h$$q8); | |
h$r1 = h$r1.d2; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$q6() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczgzgze); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$q5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$q4() | |
{ | |
var a = h$r1.d1; | |
h$l2(h$r1.d2, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$q3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$q2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(c, h$$q3); | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzirun); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$q1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d1; | |
h$p3(a.d2, h$c2(h$$q4, c, d), h$$q2); | |
h$l2(e, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$q0() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$pp12(a.d2, h$$q1); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$qZ() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$q0); | |
return h$e(h$r2); | |
}; | |
function h$$qY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
} | |
else | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, a); | |
}; | |
return h$rs(); | |
}; | |
function h$$qX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c2(h$$q9, b, a.d1)); | |
break; | |
case (2): | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$q7, b, a.d1)); | |
break; | |
case (3): | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
break; | |
case (4): | |
var c = a.d1; | |
h$p2(h$c2(h$$q6, b, a.d2), h$$q5); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
default: | |
var d = a.d1; | |
var e = h$c(h$$qZ); | |
e.d1 = b; | |
e.d2 = e; | |
h$p1(h$$qY); | |
h$l2(d, e); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczgzgze_e() | |
{ | |
h$p2(h$r3, h$$qX); | |
return h$e(h$r2); | |
}; | |
function h$$rg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziParserCombinatorsziReadPzichoice); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rf() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$re() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$rd() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$c2(h$$rf, h$r1.d2, h$r2), h$$re); | |
h$r1 = a; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$$rd, b, h$c1(h$$rg, a)); | |
}; | |
return h$rs(); | |
}; | |
function h$$rb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPzipfail1; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$p2(a.d1, h$$rc); | |
return h$e(a.d2); | |
}; | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzichoice_e() | |
{ | |
h$p1(h$$rb); | |
return h$e(h$r2); | |
}; | |
function h$$rp() | |
{ | |
var a = h$r1.d1; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d2, h$r2), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ro() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l3(a, h$c2(h$$rp, b, c), h$baseZCTextziParserCombinatorsziReadPzigatherzugath); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$rn() | |
{ | |
h$p3(h$r1.d1, h$r2, h$$ro); | |
h$r1 = h$r1.d2; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a, b, h$baseZCTextziParserCombinatorsziReadPzigatherzugath); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$rl() | |
{ | |
h$p2(h$r1.d1, h$$rm); | |
h$r1 = h$r1.d2; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rk() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzigatherzugath); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$rj() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ri() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$rh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c2(h$$rn, b, a.d1)); | |
break; | |
case (2): | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c2(h$$rl, b, a.d1)); | |
break; | |
case (3): | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
break; | |
case (4): | |
var c = a.d1; | |
h$p2(h$c2(h$$rk, b, a.d2), h$$ri); | |
h$l2(h$c1(h$$rj, b), c); | |
return h$ap_1_1_fast(); | |
default: | |
return h$e(h$$sb); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzigatherzugath_e() | |
{ | |
h$p2(h$r2, h$$rh); | |
return h$e(h$r3); | |
}; | |
function h$$rr() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, ((b - 1) | 0), h$baseZCTextziParserCombinatorsziReadPzizlzpzp2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$rq() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizlzpzp2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r3; | |
var c = h$r2; | |
if((c === 0)) | |
{ | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$rq, h$c2(h$$rr, b, c))); | |
}; | |
return h$rs(); | |
}; | |
function h$$rG() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rF() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rE() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$rD() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$rE, h$c2(h$$rF, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$rC() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rB() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$rA() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$rB, h$c2(h$$rC, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$rz() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ry() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$rx() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$ry, h$c2(h$$rz, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$rw() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rv() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$ru() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$rv, h$c2(h$$rw, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$rt() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = a; | |
var e = h$c1(h$$rG, b); | |
if((((d >>> 1) < 443) || (((d >>> 1) == 443) && ((d & 1) <= 1)))) | |
{ | |
var f = d; | |
if((f === 32)) | |
{ | |
h$r1 = h$c1(h$$ru, e); | |
} | |
else | |
{ | |
var g = ((f - 9) | 0); | |
if((((g >>> 1) < 2) || (((g >>> 1) == 2) && ((g & 1) <= 0)))) | |
{ | |
h$r1 = h$c1(h$$rx, e); | |
} | |
else | |
{ | |
var h = f; | |
if((h === 160)) | |
{ | |
h$r1 = h$c1(h$$rA, e); | |
} | |
else | |
{ | |
h$r1 = h$$sa; | |
return h$ap_0_0_fast(); | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
var i = h$u_iswspace(c); | |
var j = i; | |
if((j === 0)) | |
{ | |
h$r1 = h$$sa; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$rD, e); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$rs() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$$sa; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p2(a.d2, h$$rt); | |
return h$e(b); | |
}; | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip_e() | |
{ | |
h$p1(h$$rs); | |
return h$e(h$r2); | |
}; | |
function h$$rH() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$sc = h$strta("do not use readS_to_P in gather!"); | |
var h$$baseZCTextziParserCombinatorsziReadP_bg = h$str("Text\/ParserCombinators\/ReadP.hs:(131,3)-(154,52)|function <|>"); | |
function h$$rJ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r3 = 0; | |
h$r2 = h$$baseZCTextziParserCombinatorsziReadP_bg(); | |
h$r1 = a; | |
return h$ap_1_2_fast(); | |
}; | |
function h$$rR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l4(c, b.d3, d, a); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$rQ() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$rP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a; | |
if((b === g)) | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$rQ, h$c4(h$$rR, c, e, d, f))); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$rO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
h$sp -= 6; | |
h$pp33(a, h$$rP); | |
return h$e(b); | |
}; | |
function h$$rN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 5; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp49(c, a.d2, h$$rO); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$rM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if((a.f.a === 1)) | |
{ | |
h$l2(b, d); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var e = a.d1; | |
h$pp21(e, a.d2, h$$rN); | |
return h$e(c); | |
}; | |
}; | |
function h$$rL() | |
{ | |
var a = h$r1.d1; | |
h$p5(a, h$r1.d2, h$r3, h$r4, h$$rM); | |
return h$e(h$r2); | |
}; | |
function h$$rK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l4(b.d1, h$r2, a, b.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizdwstring_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$c(h$$rL); | |
c.d1 = h$r2; | |
c.d2 = c; | |
h$r1 = h$c3(h$$rK, a, b, c); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzimunch3_e() | |
{ | |
var a = h$r2; | |
h$l2(h$r1.d1, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$r0() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rZ() | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d1, h$r2), h$r1.d2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rY() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c2(h$$rZ, a, b.d2), c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$rX() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$rW() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$c1(h$$rX, h$c3(h$$rY, a, h$r1.d2, h$r2))); | |
return h$rs(); | |
}; | |
function h$$rV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$r1 = h$c2(h$$rW, b, h$c2(h$$r0, c, d)); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPzimunch3; | |
return h$ap_0_0_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$rU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPzimunch3; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$rV); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$rT() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$rU); | |
return h$e(h$r2); | |
}; | |
function h$$rS() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizdwmunch_e() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$rT); | |
b.d1 = h$r2; | |
b.d2 = b; | |
h$r1 = h$c2(h$$rS, a, b); | |
return h$rs(); | |
}; | |
function h$$r9() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$baseZCTextziParserCombinatorsziReadPzizdfApplicativePzuzdcpure, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$r8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$l5(b, e, d, a, c); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$r7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$l2(e, b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var f = a.d1; | |
var g = a.d2; | |
h$pp29(e, g, ((d + 1) | 0), h$$r8); | |
h$l2(f, c); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$r6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$l5(b, e, d, a, c); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$r5() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczgzgze); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$r4() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$r3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$pp36(a.d1, h$$r7); | |
return h$e(c); | |
case (2): | |
h$pp17(e, h$$r6); | |
h$l2(c, a.d1); | |
return h$ap_1_1_fast(); | |
case (3): | |
h$l2(e, b); | |
return h$ap_1_1_fast(); | |
case (4): | |
h$l3(h$c1(h$$r4, h$c2(h$$r5, e, a)), d, h$baseZCTextziParserCombinatorsziReadPzizlzpzp2); | |
return h$ap_2_2_fast(); | |
default: | |
h$l3(e, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczgzgze); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$r2() | |
{ | |
var a = h$r1.d1; | |
h$p6(a, h$r1.d2, h$r3, h$r4, h$r5, h$$r3); | |
return h$e(h$r2); | |
}; | |
function h$$r1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l5(a, 0, h$r2, b.d1, b.d2); | |
return h$ap_4_4_fast(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizdwzlzpzp_e() | |
{ | |
var a = h$r4; | |
var b = h$c1(h$$r9, h$r2); | |
var c = h$c(h$$r2); | |
c.d1 = h$r3; | |
c.d2 = c; | |
h$r1 = h$c3(h$$r1, a, b, c); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzipfail1_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPzizdfApplicativePzuzdcpure_e() | |
{ | |
h$r1 = h$c2(h$baseZCTextziParserCombinatorsziReadPziResult_con_e, h$r2, h$r1.d1); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziFinal_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziFinal_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziFinal_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziResult_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziResult_e() | |
{ | |
h$r1 = h$c2(h$baseZCTextziParserCombinatorsziReadPziResult_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziFail_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziLook_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziLook_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziGet_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCTextziParserCombinatorsziReadPziGet_e() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziGet_con_e, h$r2); | |
return h$rs(); | |
}; | |
var h$$sX = h$strta("sigprocmask"); | |
var h$$sY = h$strta("sigaddset"); | |
var h$$sZ = h$strta("sigemptyset"); | |
var h$$s0 = h$strta("tcSetAttr"); | |
function h$baseZCSystemziPosixziInternalszisetEcho2_e() | |
{ | |
h$bh(); | |
var a = h$base_echo; | |
h$r1 = (a ^ (-1)); | |
return h$rs(); | |
}; | |
function h$$si() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
h$base_poke_lflag(b, c, (d & e)); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$sh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
h$base_poke_lflag(b, c, (d | e)); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$sg() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$pp8(h$$sh); | |
return h$e(h$baseZCSystemziPosixziInternalszigetEcho3); | |
} | |
else | |
{ | |
h$pp8(h$$si); | |
return h$e(h$baseZCSystemziPosixziInternalszisetEcho2); | |
}; | |
}; | |
function h$$sf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = h$base_lflag(c, d); | |
h$p4(c, d, e, h$$sg); | |
return h$e(b); | |
}; | |
function h$$se() | |
{ | |
h$p2(h$r1.d1, h$$sf); | |
return h$e(h$r2); | |
}; | |
function h$baseZCSystemziPosixziInternalszisetEcho1_e() | |
{ | |
h$r3 = h$c1(h$$se, h$r3); | |
h$r1 = h$r1.d1; | |
return h$ap_3_2_fast(); | |
}; | |
function h$baseZCSystemziPosixziInternalszisetCooked5_e() | |
{ | |
h$bh(); | |
var a = h$base_icanon; | |
h$r1 = (a ^ (-1)); | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszisetCooked4_e() | |
{ | |
h$bh(); | |
h$r1 = h$base_vmin; | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszisetCooked3_e() | |
{ | |
h$bh(); | |
h$r1 = h$base_vtime; | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszisetCooked2_e() | |
{ | |
h$bh(); | |
h$r1 = h$base_icanon; | |
return h$rs(); | |
}; | |
function h$$sp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e; | |
var f; | |
e = b; | |
f = (c + d); | |
e.u8[(f + 0)] = 0; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$so() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e; | |
var f; | |
e = b; | |
f = (c + d); | |
e.u8[(f + 0)] = 1; | |
h$pp4(h$$sp); | |
return h$e(h$baseZCSystemziPosixziInternalszisetCooked3); | |
}; | |
function h$$sn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
h$base_poke_lflag(b, c, (d & e)); | |
var f = h$base_ptr_c_cc(b, c); | |
h$p3(f, h$ret_1, h$$so); | |
return h$e(h$baseZCSystemziPosixziInternalszisetCooked4); | |
}; | |
function h$$sm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
h$base_poke_lflag(b, c, (d | e)); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$sl() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$pp8(h$$sm); | |
return h$e(h$baseZCSystemziPosixziInternalszisetCooked2); | |
} | |
else | |
{ | |
h$pp8(h$$sn); | |
return h$e(h$baseZCSystemziPosixziInternalszisetCooked5); | |
}; | |
}; | |
function h$$sk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = h$base_lflag(c, d); | |
h$p4(c, d, e, h$$sl); | |
return h$e(b); | |
}; | |
function h$$sj() | |
{ | |
h$p2(h$r1.d1, h$$sk); | |
return h$e(h$r2); | |
}; | |
function h$baseZCSystemziPosixziInternalszisetCooked1_e() | |
{ | |
h$r3 = h$c1(h$$sj, h$r3); | |
h$r1 = h$r1.d1; | |
return h$ap_3_2_fast(); | |
}; | |
function h$$sJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$base_tcgetattr(a, b, c); | |
h$r1 = d; | |
return h$rs(); | |
}; | |
function h$$sI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p3(c, b.d2, h$$sJ); | |
return h$e(a); | |
}; | |
function h$$sH() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = h$base_tcsetattr(b.d2, h$base_tcsanow, a, c); | |
h$r1 = d; | |
return h$rs(); | |
}; | |
function h$$sG() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$sF() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var d = h$base_sigprocmask(h$base_sig_setmask, a, b, null, 0); | |
var e = d; | |
if((e === (-1))) | |
{ | |
h$p2(c, h$$sG); | |
h$l2(h$$sX, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$sE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$pp14(e, a, h$$sF); | |
h$l4(h$c3(h$$sH, b, c, d), h$$s0, h$baseZCSystemziPosixziInternalszifdFileSizzezupred, | |
h$baseZCForeignziCziErrorzithrowErrnoIfMinus1Retry2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$sD() | |
{ | |
var a = h$stack[(h$sp - 9)]; | |
var b = h$stack[(h$sp - 8)]; | |
var c = h$stack[(h$sp - 7)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 10; | |
h$pp49(d, e, h$$sE); | |
h$l2(h$c2(h$baseZCGHCziPtrziPtr_con_e, b, c), a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$sC() | |
{ | |
--h$sp; | |
h$sp -= 9; | |
h$sp += 9; | |
++h$sp; | |
return h$$sD; | |
}; | |
function h$$sB() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var d; | |
var e; | |
d = a; | |
e = 0; | |
var f = h$base_sigprocmask(h$base_sig_block, b, c, a, 0); | |
var g = f; | |
if((g === (-1))) | |
{ | |
h$sp += 9; | |
h$stack[(h$sp - 1)] = d; | |
h$stack[h$sp] = e; | |
h$p1(h$$sC); | |
h$l2(h$$sX, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$sp += 9; | |
h$stack[(h$sp - 1)] = d; | |
h$stack[h$sp] = e; | |
++h$sp; | |
return h$$sD; | |
}; | |
}; | |
function h$$sA() | |
{ | |
--h$sp; | |
h$sp -= 7; | |
h$sp += 7; | |
++h$sp; | |
return h$$sB; | |
}; | |
function h$$sz() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h = b.d6; | |
var i = h$base_sigaddset(g, h, h$base_sigttou); | |
var j = i; | |
if((j === (-1))) | |
{ | |
h$p7(a, c, d, e, f, g, h); | |
h$p1(h$$sA); | |
h$l2(h$$sY, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$p7(a, c, d, e, f, g, h); | |
++h$sp; | |
return h$$sB; | |
}; | |
}; | |
function h$$sy() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$sx() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$sw() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp4(h$$sx); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$sv() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = h$newByteArray(h$base_sizeof_sigset_t); | |
var g = h$newByteArray(h$base_sizeof_sigset_t); | |
var h; | |
var i; | |
h = f; | |
i = 0; | |
var j = h$base_sigemptyset(f, 0); | |
var k = h$c7(h$$sz, a, c, d, e, g, h, i); | |
var l = j; | |
if((l === (-1))) | |
{ | |
h$p4(f, g, k, h$$sw); | |
h$l2(h$$sZ, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$p3(f, g, h$$sy); | |
h$r1 = k; | |
return h$ap_1_0_fast(); | |
}; | |
}; | |
function h$$su() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$st() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$ss() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$sr() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a; | |
var h = h$c4(h$$sv, c, f, b, a); | |
if((g <= 2)) | |
{ | |
var i = h$__hscore_get_saved_termios(g); | |
var j = i; | |
var k = h$ret1; | |
if(((j === null) && (k === 0))) | |
{ | |
var l = h$malloc(d); | |
var m = l; | |
var n = h$ret1; | |
if(((m === null) && (n === 0))) | |
{ | |
return h$throw(h$baseZCForeignziMarshalziAlloczimallocBytes2, false); | |
} | |
else | |
{ | |
var o = h$memcpy(m, n, f, b, d); | |
h$__hscore_set_saved_termios(g, m, n); | |
h$p2(e, h$$ss); | |
h$r1 = h; | |
return h$ap_1_0_fast(); | |
}; | |
} | |
else | |
{ | |
h$p2(e, h$$st); | |
h$r1 = h; | |
return h$ap_1_0_fast(); | |
}; | |
} | |
else | |
{ | |
h$p2(e, h$$su); | |
h$r1 = h; | |
return h$ap_1_0_fast(); | |
}; | |
}; | |
function h$$sq() | |
{ | |
var a = h$stack[(h$sp - 6)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
h$pp33(b, h$$sr); | |
return h$e(a); | |
}; | |
function h$baseZCSystemziPosixziInternalszigetEcho4_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$newByteArray(h$base_sizeof_termios); | |
h$p7(h$r2, h$r3, h$base_sizeof_termios, c, c, 0, h$$sq); | |
h$l4(h$c3(h$$sI, h$r2, c, 0), a, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCSystemziPosixziInternalszigetEcho3_e() | |
{ | |
h$bh(); | |
h$r1 = h$base_echo; | |
return h$rs(); | |
}; | |
function h$$sM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = (b & c); | |
if((d === 0)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$$sL() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p2(a, h$$sM); | |
return h$e(h$baseZCSystemziPosixziInternalszigetEcho3); | |
}; | |
function h$$sK() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = h$base_lflag(b, a.d2); | |
h$r1 = h$c1(h$$sL, c); | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszigetEcho2_e() | |
{ | |
h$p1(h$$sK); | |
return h$e(h$r2); | |
}; | |
var h$baseZCSystemziPosixziInternalsziioezuunknownfiletype2 = h$strta("fdType"); | |
var h$baseZCSystemziPosixziInternalsziioezuunknownfiletype1 = h$strta("unknown file type"); | |
function h$baseZCSystemziPosixziInternalszifileType2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$sQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$sP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
h$p1(h$$sQ); | |
try | |
{ | |
var e; | |
var f = { mv: null | |
}; | |
e = h$mkForeignCallback(f); | |
h$base_fstat(d, b, c, e); | |
if((f.mv === null)) | |
{ | |
f.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(f.mv); | |
} | |
else | |
{ | |
var g = f.mv; | |
h$r1 = g[0]; | |
}; | |
} | |
catch(h$SystemziPosixziInternals_id_109_0) | |
{ | |
return h$throwJSException(h$SystemziPosixziInternals_id_109_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$sO() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p3(c, b.d2, h$$sP); | |
return h$e(a); | |
}; | |
function h$$sN() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = h$base_st_mode(a, b); | |
var d = c; | |
var e = (d & 65535); | |
var f = h$base_c_s_isdir(e); | |
var g = f; | |
if((g === 0)) | |
{ | |
var h = h$base_c_s_isfifo(e); | |
var i = h; | |
if((i === 0)) | |
{ | |
var j = h$base_c_s_issock(e); | |
var k = j; | |
if((k === 0)) | |
{ | |
var l = h$base_c_s_ischr(e); | |
var m = l; | |
if((m === 0)) | |
{ | |
var n = h$base_c_s_isreg(e); | |
var o = n; | |
if((o === 0)) | |
{ | |
var p = h$base_c_s_isblk(e); | |
var q = p; | |
if((q === 0)) | |
{ | |
return h$throw(h$baseZCSystemziPosixziInternalszifileType2, false); | |
} | |
else | |
{ | |
var r = h$base_st_dev(a, b); | |
var s = r; | |
var t = h$base_st_ino(a, b); | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziDeviceziRawDevice, s, | |
h$c2(h$baseZCGHCziWordziW64zh_con_e, t, h$ret1)); | |
}; | |
} | |
else | |
{ | |
var u = h$base_st_dev(a, b); | |
var v = u; | |
var w = h$base_st_ino(a, b); | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziDeviceziRegularFile, v, | |
h$c2(h$baseZCGHCziWordziW64zh_con_e, w, h$ret1)); | |
}; | |
} | |
else | |
{ | |
var x = h$base_st_dev(a, b); | |
var y = x; | |
var z = h$base_st_ino(a, b); | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziDeviceziStream, y, | |
h$c2(h$baseZCGHCziWordziW64zh_con_e, z, h$ret1)); | |
}; | |
} | |
else | |
{ | |
var A = h$base_st_dev(a, b); | |
var B = A; | |
var C = h$base_st_ino(a, b); | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziDeviceziStream, B, | |
h$c2(h$baseZCGHCziWordziW64zh_con_e, C, h$ret1)); | |
}; | |
} | |
else | |
{ | |
var D = h$base_st_dev(a, b); | |
var E = D; | |
var F = h$base_st_ino(a, b); | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziDeviceziStream, E, | |
h$c2(h$baseZCGHCziWordziW64zh_con_e, F, h$ret1)); | |
}; | |
} | |
else | |
{ | |
var G = h$base_st_dev(a, b); | |
var H = G; | |
var I = h$base_st_ino(a, b); | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziDeviceziDirectory, H, | |
h$c2(h$baseZCGHCziWordziW64zh_con_e, I, h$ret1)); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszifdStat1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$newByteArray(h$base_sizeof_stat); | |
h$p4(c, c, 0, h$$sN); | |
h$l4(h$c3(h$$sO, h$r2, c, 0), a, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$sR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszifdFileSizzezupred_e() | |
{ | |
h$p1(h$$sR); | |
return h$e(h$r2); | |
}; | |
var h$baseZCSystemziPosixziInternalszifdFileSizzezuloc = h$strta("fileSize"); | |
function h$$sW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$sV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
h$p1(h$$sW); | |
try | |
{ | |
var e; | |
var f = { mv: null | |
}; | |
e = h$mkForeignCallback(f); | |
h$base_fstat(d, b, c, e); | |
if((f.mv === null)) | |
{ | |
f.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(f.mv); | |
} | |
else | |
{ | |
var g = f.mv; | |
h$r1 = g[0]; | |
}; | |
} | |
catch(h$SystemziPosixziInternals_id_116_0) | |
{ | |
return h$throwJSException(h$SystemziPosixziInternals_id_116_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$sU() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p3(c, b.d2, h$$sV); | |
return h$e(a); | |
}; | |
function h$$sT() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziint64ToInteger); | |
return h$ap_1_2_fast(); | |
}; | |
function h$$sS() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var c = h$base_st_mode(a, b); | |
var d = c; | |
var e = h$base_c_s_isreg((d & 65535)); | |
var f = e; | |
if((f === 0)) | |
{ | |
h$r1 = h$baseZCSystemziPosixziInternalszifdFileSizze2; | |
} | |
else | |
{ | |
var g = h$base_st_size(a, b); | |
h$r1 = h$c2(h$$sT, g, h$ret1); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCSystemziPosixziInternalszifdFileSizze1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$newByteArray(h$base_sizeof_stat); | |
h$p4(c, c, 0, h$$sS); | |
h$l4(h$c3(h$$sU, h$r2, c, 0), a, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$s4() | |
{ | |
return h$takeMVar(h$r1.d1); | |
}; | |
function h$$s3() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$s2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$s3); | |
return h$putMVar(b, a); | |
}; | |
function h$$s1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(c, h$$s2); | |
h$l2(a, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCSystemziIOzifixIO1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = new h$MVar(); | |
h$p3(b, c, h$$s1); | |
h$l2(h$c1(h$$s4, c), a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziWordzizdwzdcshiftL_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
if((c >= 64)) | |
{ | |
var d = h$hs_wordToWord64(0); | |
h$r1 = d; | |
h$r2 = h$ret1; | |
} | |
else | |
{ | |
var e = h$hs_uncheckedShiftL64(a, b, c); | |
h$r1 = e; | |
h$r2 = h$ret1; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWordzizdwzdcshiftR_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
if((c >= 64)) | |
{ | |
var d = h$hs_wordToWord64(0); | |
h$r1 = d; | |
h$r2 = h$ret1; | |
} | |
else | |
{ | |
var e = h$hs_uncheckedShiftRL64(a, b, c); | |
h$r1 = e; | |
h$r2 = h$ret1; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWordziW64zh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWordziW64zh_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziWordziW64zh_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWordziW32zh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWordziW32zh_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWeakziWeak_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziWeakziWeak_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziWeakziWeak_con_e, h$r2); | |
return h$rs(); | |
}; | |
var h$$baseZCGHCziUnicode_f = h$str(") is outside of enumeration's range (0,"); | |
function h$$s5() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$r4 = a; | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziUnicode_f(); | |
h$r1 = b; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$s7() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$s6() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$s7); | |
h$l4(a, 29, 0, b); | |
return h$ap_3_3_fast(); | |
}; | |
var h$$td = h$strta(")"); | |
var h$$te = h$strta("error"); | |
var h$$tf = h$strta("base"); | |
var h$$tg = h$strta("GHC.Unicode"); | |
var h$$th = h$strta(".\/GHC\/Unicode.hs"); | |
function h$baseZCGHCziUnicodezizdwgeneralCategory_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$u_gencat(h$r2); | |
var c = b; | |
if((c >= 0)) | |
{ | |
if((c <= 29)) | |
{ | |
h$r1 = h$tagToEnum(c); | |
} | |
else | |
{ | |
h$l2(c, a); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
h$l2(c, a); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$ta() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$s9() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$ta); | |
h$l4(h$$tb, a, 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
var h$$baseZCGHCziUnicode_cZ = h$str("toEnum{GeneralCategory}: tag ("); | |
function h$$s8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r4 = h$c1(h$$s9, a); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziUnicode_cZ(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$baseZCGHCziUnicodezizdfEnumGeneralCategory1_e() | |
{ | |
h$l3(h$c1(h$$s8, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$tn() | |
{ | |
h$l3(h$r1.d1, h$$uw, h$$uq); | |
return h$ap_3_2_fast(); | |
}; | |
function h$baseZCGHCziTopHandlerzirunIO2_e() | |
{ | |
var a = h$r2; | |
return h$catch(h$c1(h$$tn, a), h$r1.d1); | |
}; | |
function h$$ug() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d1; | |
h$errorBelch2(c, d, e, a.d2); | |
h$l2(h$$uv, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$uf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp14(c, a.d2, h$$ug); | |
return h$e(b); | |
}; | |
function h$$ue() | |
{ | |
h$p3(h$r1.d1, h$r2, h$$uf); | |
return h$e(h$r1.d2); | |
}; | |
function h$$ud() | |
{ | |
h$l3(h$c2(h$$ue, h$r1.d1, h$r2), h$$ut, h$baseZCForeignziCziStringziwithCAString1); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$uc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var h = a.d1; | |
var i = a.d2; | |
var j = i.d1; | |
var k = i.d2; | |
if(h$hs_eqWord64(d, e, h, j)) | |
{ | |
if(h$hs_eqWord64(f, g, k, i.d3)) | |
{ | |
h$l3(h$c1(h$$ud, b), h$$us, h$baseZCForeignziCziStringziwithCAString1); | |
return h$ap_3_2_fast(); | |
} | |
else | |
{ | |
return h$throw(c, false); | |
}; | |
} | |
else | |
{ | |
return h$throw(c, false); | |
}; | |
}; | |
function h$$ub() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$pp124(b, d, e, c.d3, h$$uc); | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionIOException4); | |
}; | |
function h$$ua() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a, h$$ub); | |
h$l2(a.d1, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t9() | |
{ | |
h$p2(h$r1.d1, h$$ua); | |
return h$e(h$r2); | |
}; | |
function h$$t8() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$t8); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t6() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$t7); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
function h$$t5() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t4() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$t5); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t3() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$t4); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
function h$$t2() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$t2); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$t0() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$t0); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tY() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tY); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tW() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tW); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tU() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tU); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tS() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tS); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tQ() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tQ); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
var d = a.d2; | |
if((c === d)) | |
{ | |
h$l2(h$$uu, b); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$pp4(h$$tR); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
} | |
else | |
{ | |
h$pp4(h$$tP); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
}; | |
function h$$tN() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tN); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tL() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(h$$uv, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp2(h$$tL); | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$pp4(h$$tM); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
} | |
else | |
{ | |
var d = a.d2; | |
var e = d.d1; | |
if((c === e)) | |
{ | |
h$l2(h$$uu, b); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$pp4(h$$tK); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
}; | |
}; | |
function h$$tI() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$pp12(a.d2, h$$tO); | |
return h$e(h$baseZCGHCziIOziHandleziFDzistdout); | |
} | |
else | |
{ | |
var b = a.d2; | |
h$pp12(b.d1, h$$tJ); | |
return h$e(h$baseZCGHCziIOziHandleziFDzistdout); | |
}; | |
}; | |
function h$$tH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a) | |
{ | |
case ((-1)): | |
h$pp4(h$$tT); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
case (32): | |
h$pp4(h$$tI); | |
return h$e(b); | |
default: | |
h$pp4(h$$tV); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
}; | |
function h$$tG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$pp4(h$$tX); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
} | |
else | |
{ | |
h$pp12(a.d1, h$$tH); | |
return h$e(b); | |
}; | |
}; | |
function h$$tF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$pp4(h$$tZ); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
} | |
else | |
{ | |
h$pp12(a.d1, h$$tG); | |
return h$e(b); | |
}; | |
}; | |
function h$$tE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if((a.f.a === 18)) | |
{ | |
h$pp8(h$$tF); | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp4(h$$t1); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
}; | |
function h$$tD() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
h$pp28(b, c.d4, h$$tE); | |
return h$e(d); | |
}; | |
function h$$tC() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p3(a, b.d1, h$$tD); | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$tB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a.d1; | |
var j = a.d2; | |
var k = j.d1; | |
var l = j.d2; | |
if(h$hs_eqWord64(e, f, i, k)) | |
{ | |
if(h$hs_eqWord64(g, h, l, j.d3)) | |
{ | |
h$r1 = h$c3(h$$tC, b, c, d); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$$t3, b, c); | |
}; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$$t6, b, c); | |
}; | |
return h$rs(); | |
}; | |
function h$$tA() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
h$bh(); | |
h$p8(a, c, d, e, f, g, b.d6, h$$tB); | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionIOException4); | |
}; | |
function h$$tz() | |
{ | |
var a = h$stack[(h$sp - 7)]; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
return h$catch(h$c7(h$$tA, a, b, c, d, e, f, g), h$c1(h$$t9, a)); | |
}; | |
function h$$ty() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$l2(h$$uu, b); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$l2(a.d1, b); | |
return h$ap_2_1_fast(); | |
}; | |
}; | |
function h$$tx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(c, d, g, i)) | |
{ | |
if(h$hs_eqWord64(e, f, j, h.d3)) | |
{ | |
h$pp2(h$$ty); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$sp += 7; | |
++h$sp; | |
return h$$tz; | |
}; | |
} | |
else | |
{ | |
h$sp += 7; | |
++h$sp; | |
return h$$tz; | |
}; | |
}; | |
function h$$tw() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$pp248(b, d, e, c.d3, h$$tx); | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionExitCode4); | |
}; | |
function h$$tv() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
var b = a.d1; | |
h$pp14(a, a.d2, h$$tw); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$tu() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp2(h$$tv); | |
return h$e(a); | |
}; | |
function h$$tt() | |
{ | |
--h$sp; | |
h$r1 = h$$uy; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$ts() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$stackOverflow(h$currentThread); | |
h$l2(h$$ur, b); | |
return h$ap_2_1_fast(); | |
case (4): | |
h$p1(h$$tt); | |
h$shutdownHaskellAndExit(252, 0); | |
break; | |
default: | |
h$sp += 2; | |
++h$sp; | |
return h$$tu; | |
}; | |
return h$rs(); | |
}; | |
function h$$tr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$sp += 2; | |
++h$sp; | |
return h$$tu; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$sp += 2; | |
h$p1(h$$ts); | |
return h$e(b); | |
}; | |
}; | |
function h$$tq() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$sp += 2; | |
h$p1(h$$tr); | |
h$l2(a, h$baseZCGHCziIOziExceptionzizdfExceptionAsyncExceptionzuzdcfromException); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$tp() | |
{ | |
h$sp -= 3; | |
h$pp4(h$$tq); | |
return h$catch(h$baseZCGHCziTopHandlerziflushStdHandles2, h$$ux); | |
}; | |
function h$$to() | |
{ | |
var a = h$r1.d1; | |
h$p3(h$r2, h$r3, h$$tp); | |
return h$catch(a, h$r1.d2); | |
}; | |
var h$$us = h$strta("%s"); | |
var h$$ut = h$strta("encountered an exception while trying to report an exception.One possible reason for this is that we failed while trying to encode an error message. Check that your locale is configured properly."); | |
function h$$uj() | |
{ | |
--h$sp; | |
h$r1 = h$$uy; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$ui() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$uj); | |
h$shutdownHaskellAndExit(a, 0); | |
return h$rs(); | |
}; | |
function h$$uh() | |
{ | |
h$p1(h$$ui); | |
return h$e(h$r2); | |
}; | |
function h$$ul() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$uk() | |
{ | |
h$p1(h$$ul); | |
return h$e(h$r2); | |
}; | |
function h$$um() | |
{ | |
return h$throw(h$r1.d1, false); | |
}; | |
function h$$un() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$uo() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$uB = h$strta("If you can read this, shutdownHaskellAndExit did not exit."); | |
function h$$up() | |
{ | |
var a = h$r1.d1; | |
var b = h$makeWeakNoFinalizer(h$currentThread, h$c1(h$baseZCGHCziConcziSyncziThreadId_con_e, h$currentThread)); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziTopHandlerzirunMainIO1_e() | |
{ | |
var a = h$r2; | |
return h$catch(h$c1(h$$up, a), h$r1.d1); | |
}; | |
function h$baseZCGHCziTopHandlerziflushStdHandles3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l4(a, b.d1, b.d2, b.d3); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCGHCziTopHandlerziflushStdHandles2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l4(a, b.d1, b.d2, b.d3); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCGHCziTopHandlerzitopHandler_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziTopHandlerzirunMainIO_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$$uE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
b.dv.setUint32((d + (c << 2)), e, true); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$uD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$uE); | |
return h$e(b); | |
}; | |
function h$$uC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$uD); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziStorableziwriteWideCharOffPtr1_e() | |
{ | |
h$p3(h$r3, h$r4, h$$uC); | |
return h$e(h$r2); | |
}; | |
function h$$uG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e = b.dv.getUint32((c + (d << 2)), true); | |
h$r1 = e; | |
return h$rs(); | |
}; | |
function h$$uF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$uG); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziStorablezireadWideCharOffPtr1_e() | |
{ | |
h$p2(h$r3, h$$uF); | |
return h$e(h$r2); | |
}; | |
function h$$uI() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziStackziTypeszigetCallStack); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$uH() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
break; | |
case (2): | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, d), h$c1(h$$uI, c.d2)); | |
break; | |
default: | |
h$l2(a.d1, h$baseZCGHCziStackziTypeszigetCallStack); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypeszigetCallStack_e() | |
{ | |
h$p1(h$$uH); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziStackziTypesziFreezzeCallStack_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypesziFreezzeCallStack_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziStackziTypesziFreezzeCallStack_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypesziPushCallStack_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypesziPushCallStack_e() | |
{ | |
h$r1 = h$c3(h$baseZCGHCziStackziTypesziPushCallStack_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypesziEmptyCallStack_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypesziSrcLoc_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziStackziTypesziSrcLoc_e() | |
{ | |
h$r1 = h$c7(h$baseZCGHCziStackziTypesziSrcLoc_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8); | |
return h$rs(); | |
}; | |
function h$$uR() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$$uS, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$uQ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$uU, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$uV, h$c1(h$$uR, b))), a, | |
h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$uP() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$uT, h$c2(h$$uQ, a, b.d2)), c, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$uO() | |
{ | |
var a = h$stack[(h$sp - 6)]; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
h$l4(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c3(h$$uP, d, e, a), c), f, b, h$baseZCGHCziStackziCCSzizdwgo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$uN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 6; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$sp += 6; | |
++h$sp; | |
return h$$uO; | |
}; | |
return h$rs(); | |
}; | |
function h$$uM() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 6; | |
if(a) | |
{ | |
h$sp += 6; | |
h$p1(h$$uN); | |
h$l3(h$$uW, b, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$sp += 6; | |
++h$sp; | |
return h$$uO; | |
}; | |
}; | |
function h$$uL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var e = a; | |
var f; | |
var g; | |
f = b; | |
g = (c + 8); | |
var h; | |
var i; | |
var j = 0; | |
if((f.arr && f.arr[(g + j)])) | |
{ | |
h = f.arr[(g + j)][0]; | |
i = f.arr[(g + j)][1]; | |
} | |
else | |
{ | |
h = null; | |
i = 0; | |
}; | |
h$pp35(e, h, i); | |
h$p1(h$$uM); | |
h$l3(h$$uW, d, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$uK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var e = a; | |
var f; | |
var g; | |
f = b; | |
g = (c + 12); | |
var h; | |
var i; | |
var j = 0; | |
if((f.arr && f.arr[(g + j)])) | |
{ | |
h = f.arr[(g + j)][0]; | |
i = f.arr[(g + j)][1]; | |
} | |
else | |
{ | |
h = null; | |
i = 0; | |
}; | |
h$pp56(d, e, h$$uL); | |
h$l4(i, h, h$baseZCGHCziIOziEncodingziUTF8ziutf8, h$baseZCGHCziForeignzizdwpeekCString); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$uJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var d = a; | |
var e; | |
var f; | |
e = b; | |
f = (c + 8); | |
var g; | |
var h; | |
var i = 0; | |
if((e.arr && e.arr[(f + i)])) | |
{ | |
g = e.arr[(f + i)][0]; | |
h = e.arr[(f + i)][1]; | |
} | |
else | |
{ | |
g = null; | |
h = 0; | |
}; | |
h$pp96(d, h$$uK); | |
h$l4(h, g, h$baseZCGHCziIOziEncodingziUTF8ziutf8, h$baseZCGHCziForeignzizdwpeekCString); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCGHCziStackziCCSzizdwgo_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
var e = h$r4; | |
if(((c === null) && (d === 0))) | |
{ | |
h$r1 = e; | |
} | |
else | |
{ | |
var f; | |
var g; | |
f = c; | |
g = (d + 4); | |
var h; | |
var i; | |
var j = 0; | |
if((f.arr && f.arr[(g + j)])) | |
{ | |
h = f.arr[(g + j)][0]; | |
i = f.arr[(g + j)][1]; | |
} | |
else | |
{ | |
h = null; | |
i = 0; | |
}; | |
var k = h; | |
var l = i; | |
var m; | |
var n; | |
m = h; | |
n = (l + 4); | |
var o; | |
var p; | |
var q = 0; | |
if((m.arr && m.arr[(n + q)])) | |
{ | |
o = m.arr[(n + q)][0]; | |
p = m.arr[(n + q)][1]; | |
} | |
else | |
{ | |
o = null; | |
p = 0; | |
}; | |
h$p6(c, d, e, k, l, h$$uJ); | |
h$l4(p, o, a, b); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
var h$$uS = h$strta(")"); | |
var h$$uW = h$strta("MAIN"); | |
function h$baseZCGHCziStackziCCSzicurrentCallStack1_e() | |
{ | |
h$l4(h$r1.d1, 0, null, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCGHCziStackziCCSzicurrentCallStack_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziShowzizdwshowWord_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
if((((b >>> 1) < 5) || (((b >>> 1) == 5) && ((b & 1) < 0)))) | |
{ | |
var d = b; | |
h$r1 = ((48 + d) | 0); | |
h$r2 = c; | |
} | |
else | |
{ | |
var e = h$remWord32(b, 10); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((48 + e) | 0), c), h$quotWord32(b, 10), a); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziShowzizdwitoszq_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
if((b < 10)) | |
{ | |
h$r1 = ((48 + b) | 0); | |
h$r2 = c; | |
} | |
else | |
{ | |
var d = ((b / 10) | 0); | |
var e = d; | |
var f = (b - (10 * d)); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, ((48 + f) | 0), c), e, a); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$uZ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCGHCziShowzizdfShowZLz2cUZRzugo); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$uY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$l2(b, c); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishowListzuzu1, h$c2(h$$uZ, b, a)), c); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$uX() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$$vz; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$pp6(a.d1, h$$uY); | |
return h$e(a.d2); | |
}; | |
}; | |
function h$baseZCGHCziShowzizdfShowZLz2cUZRzugo_e() | |
{ | |
h$p2(h$r3, h$$uX); | |
return h$e(h$r2); | |
}; | |
function h$$u0() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$vA = h$strta("foldr1"); | |
function h$$u3() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$u2() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$u3); | |
h$l3(h$ghczmprimZCGHCziTypesziZMZN, a, h$baseZCGHCziShowzizdwitos); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$baseZCGHCziShow_bE = h$str("Char.intToDigit: not a digit "); | |
function h$$u1() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r4 = h$c1(h$$u2, a); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziShow_bE(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$baseZCGHCziShowziintToDigit1_e() | |
{ | |
h$l3(h$c1(h$$u1, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$u4() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a >= 10)) | |
{ | |
if((a <= 15)) | |
{ | |
var b = ((97 + a) | 0); | |
h$r1 = ((b - 10) | 0); | |
} | |
else | |
{ | |
h$l2(a, h$baseZCGHCziShowziintToDigit1); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
h$l2(a, h$baseZCGHCziShowziintToDigit1); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziShowzizdwintToDigit_e() | |
{ | |
var a = h$r2; | |
if((a >= 0)) | |
{ | |
if((a <= 9)) | |
{ | |
h$r1 = ((48 + a) | 0); | |
} | |
else | |
{ | |
h$p1(a); | |
++h$sp; | |
return h$$u4; | |
}; | |
} | |
else | |
{ | |
h$p1(a); | |
++h$sp; | |
return h$$u4; | |
}; | |
return h$rs(); | |
}; | |
function h$$u5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziShowzishowWord); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziShowzizdfShowWordzuzdcshowsPrec_e() | |
{ | |
h$p2(h$r4, h$$u5); | |
return h$e(h$r3); | |
}; | |
function h$$u7() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$u6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$u7); | |
h$l3(h$ghczmprimZCGHCziTypesziZMZN, a, h$baseZCGHCziShowzizdwshowWord); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziShowzizdfShowWordzuzdcshow_e() | |
{ | |
h$p1(h$$u6); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziShowzizdfShowWordzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
var h$baseZCGHCziShowzizdfShowMaybe3 = h$strta("Nothing"); | |
var h$baseZCGHCziShowzizdfShowMaybe1 = h$strta("Just "); | |
function h$$u9() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$u8() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$u9); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, a, 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCGHCziShowzizdfShowIntzuzdcshow_e() | |
{ | |
h$p1(h$$u8); | |
return h$e(h$r2); | |
}; | |
function h$$vf() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$ve() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$vf); | |
h$l3(a, (-b | 0), h$baseZCGHCziShowzizdwitoszq); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vd() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$vc() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$vd); | |
h$l3(a, (-b | 0), h$baseZCGHCziShowzizdwitoszq); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vb() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$va() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
var b = (((-2147483648) / 10) | 0); | |
var c = b; | |
h$p1(h$$vb); | |
h$l3(h$c2(h$$vc, a, ((-2147483648) - (10 * b))), (-c | 0), h$baseZCGHCziShowzizdwitoszq); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziShowzizdwitos_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
if((c < 0)) | |
{ | |
var e = c; | |
if((e === (-2147483648))) | |
{ | |
h$r1 = b; | |
h$r2 = h$c1(h$$va, d); | |
} | |
else | |
{ | |
h$r1 = b; | |
h$r2 = h$c2(h$$ve, d, e); | |
}; | |
} | |
else | |
{ | |
h$l3(d, c, a); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$vh() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$vg() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$vh); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishows6, b), a, h$baseZCGHCziShowzizdwitos); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziShowzizdwshowSignedInt_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
var e = h$r4; | |
if((d < 0)) | |
{ | |
if((c > 6)) | |
{ | |
h$r1 = a; | |
h$r2 = h$c2(h$$vg, d, e); | |
} | |
else | |
{ | |
h$l3(e, d, b); | |
return h$ap_2_2_fast(); | |
}; | |
} | |
else | |
{ | |
h$l3(e, d, b); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$vj() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$vi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p1(h$$vj); | |
h$l4(b, a, 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCGHCziShowzishowszuzdsshows11_e() | |
{ | |
h$p2(h$r3, h$$vi); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziShowzishowszuzdcshowList1_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziShowzishowWord); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziShowzishowszuzdsshows6_e() | |
{ | |
h$p2(h$r3, h$$vk); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziShowziCZCShow_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziShowziCZCShow_e() | |
{ | |
h$r1 = h$c3(h$baseZCGHCziShowziCZCShow_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$$vn() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$vm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p1(h$$vn); | |
h$l4(c, a, b, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$pp5(a, h$$vm); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziShowzishowSignedInt_e() | |
{ | |
h$p3(h$r3, h$r4, h$$vl); | |
return h$e(h$r2); | |
}; | |
function h$$vp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$vo() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$vp); | |
h$l2(a, h$baseZCGHCziShowzizdwintToDigit); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziShowziintToDigit_e() | |
{ | |
h$p1(h$$vo); | |
return h$e(h$r2); | |
}; | |
function h$$vq() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziShowzishowWord_e() | |
{ | |
h$p1(h$$vq); | |
h$r1 = h$r1.d1; | |
return h$ap_2_2_fast(); | |
}; | |
var h$$baseZCGHCziShow_hc = h$str("[]"); | |
function h$$vx() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$vw() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l3(h$c2(h$$vx, c, b.d3), d, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
var e = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishowListzuzu1, h$c4(h$$vw, b, d, e, a.d2)); | |
}; | |
return h$rs(); | |
}; | |
function h$$vu() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(a, c, b.d2, h$$vv); | |
return h$e(h$r2); | |
}; | |
function h$$vt() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
var e = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishowListzuzu2, c); | |
var f = h$c(h$$vu); | |
f.d1 = a; | |
f.d2 = h$d2(e, f); | |
h$l2(d, f); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$vs() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l3(h$c3(h$$vt, a, c, b.d3), d, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vr() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r4 = c; | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziShow_hc(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
} | |
else | |
{ | |
var d = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishowListzuzu3, h$c4(h$$vs, b, c, d, a.d2)); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziShowzishowListzuzu_e() | |
{ | |
h$p3(h$r2, h$r4, h$$vr); | |
return h$e(h$r3); | |
}; | |
function h$$vy() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziShowzishowsPrec_e() | |
{ | |
h$p1(h$$vy); | |
return h$e(h$r2); | |
}; | |
function h$$vB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
c.val = b; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziSTRefziwriteSTRef1_e() | |
{ | |
h$p2(h$r3, h$$vB); | |
return h$e(h$r2); | |
}; | |
function h$$vC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$r1 = b.val; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziSTRefzireadSTRef1_e() | |
{ | |
h$p1(h$$vC); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziSTRefziSTRef_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziSTRefziSTRef_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziSTRefziSTRef_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$vM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, b, a, h$$wn); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$pp5(a, h$$vM); | |
h$l3(b, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vK() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp4(h$$vL); | |
h$l3(h$baseZCGHCziRealzieven2, a, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a, h$$vK); | |
h$l3(h$baseZCGHCziRealzizdfEnumRatio1, b, h$integerzmgmpZCGHCziIntegerziTypeziminusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$l3(c, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp4(h$$vJ); | |
h$l3(c, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$vH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, b, a, h$$wn); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
h$pp5(a, h$$vH); | |
h$l3(b, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$pp6(c, h$$vG); | |
h$l3(h$baseZCGHCziRealzieven2, b, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp8(h$$vI); | |
h$l3(h$baseZCGHCziRealzizdfEnumRatio1, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$vE() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
h$pp8(h$$vF); | |
h$l3(h$baseZCGHCziRealzieven1, a, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vD() | |
{ | |
var a = h$r3; | |
h$p4(h$r2, h$r3, h$r4, h$$vE); | |
h$l3(h$r1.d1, a, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(b, c, a, h$$wn); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$pp6(a, h$$vU); | |
h$l3(b, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vS() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$vT); | |
h$l3(h$baseZCGHCziRealzieven2, a, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp2(h$$vS); | |
h$l3(h$baseZCGHCziRealzizdfEnumRatio1, c, h$integerzmgmpZCGHCziIntegerziTypeziminusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$vQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziRealzizczuf); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$vQ); | |
h$l3(b, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$pp2(h$$vP); | |
h$l3(h$baseZCGHCziRealzieven2, b, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp4(h$$vR); | |
h$l3(h$baseZCGHCziRealzizdfEnumRatio1, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$vN() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp4(h$$vO); | |
h$l3(h$baseZCGHCziRealzieven1, a, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziRealzizczuf_e() | |
{ | |
var a = h$r3; | |
h$p3(h$r2, h$r3, h$$vN); | |
h$l3(h$r1.d1, a, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, b, a, h$$wo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = ((c - 1) | 0); | |
h$p3(((d / 2) | 0), a, h$$vY); | |
h$l3(b, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$vW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(b, c, a, h$$wo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vV() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = h$r4; | |
var e = (c % 2); | |
if((e === 0)) | |
{ | |
h$p3(d, ((c / 2) | 0), h$$vW); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var f = c; | |
if((f === 1)) | |
{ | |
h$l3(d, b, a); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p3(b, f, h$$vX); | |
h$l3(d, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
function h$$v0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(b, c, a, h$$wo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$vZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCGHCziRealzizdwf); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziRealzizdwf_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = (c % 2); | |
if((d === 0)) | |
{ | |
h$p2(((c / 2) | 0), h$$vZ); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var e = c; | |
if((e === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var f = ((e - 1) | 0); | |
h$p3(b, ((f / 2) | 0), h$$v0); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
var h$$wp = h$strta("Negative exponent"); | |
function h$baseZCGHCziRealzizc1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$v2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
return h$e(h$baseZCGHCziRealzizdfEnumRatio1); | |
} | |
else | |
{ | |
h$l3(c, b, h$baseZCGHCziRealzizczuf); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$v1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
return h$e(h$baseZCGHCziRealzizc1); | |
} | |
else | |
{ | |
h$pp4(h$$v2); | |
h$l3(h$baseZCGHCziRealzieven1, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziRealzizczuzdszc_e() | |
{ | |
var a = h$r3; | |
h$p3(h$r2, h$r3, h$$v1); | |
h$l3(h$r1.d1, a, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$v7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = b; | |
h$r2 = a; | |
return h$rs(); | |
}; | |
function h$$v6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(a, h$$v7); | |
h$l3(b, c, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$v5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziRealzidivZZeroError; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$pp5(c, h$$v6); | |
h$l3(c, b, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$v4() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp12(a, h$$v5); | |
h$l3(h$baseZCGHCziRealzieven1, a, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$v3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziRealziratioZZeroDenominatorError; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$pp4(h$$v4); | |
h$l3(c, b, h$integerzmgmpZCGHCziIntegerziTypezigcdInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziRealzizdwzdsreduce_e() | |
{ | |
var a = h$r3; | |
h$p3(h$r2, h$r3, h$$v3); | |
h$l3(h$r1.d1, a, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$v8() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
return h$e(b.d1); | |
}; | |
function h$baseZCGHCziRealzizdp2Integral_e() | |
{ | |
h$p1(h$$v8); | |
return h$e(h$r2); | |
}; | |
function h$$v9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$baseZCGHCziRealzizdp1Integral_e() | |
{ | |
h$p1(h$$v9); | |
return h$e(h$r2); | |
}; | |
function h$$wa() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
return h$e(b.d1); | |
}; | |
function h$baseZCGHCziRealzizdp2Real_e() | |
{ | |
h$p1(h$$wa); | |
return h$e(h$r2); | |
}; | |
function h$$wb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$baseZCGHCziRealzizdp1Real_e() | |
{ | |
h$p1(h$$wb); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziRealziZCzv_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziRealziZCzv_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziRealziZCzv_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$wd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$baseZCGHCziRealziZCzv_con_e, b, a); | |
return h$rs(); | |
}; | |
function h$$wc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$wd); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziRealzizdWZCzv_e() | |
{ | |
h$p2(h$r3, h$$wc); | |
h$r1 = h$r2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$wk() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziRealzizdp1Real); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wj() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziRealzieven1, a, h$baseZCGHCziNumzifromInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wi() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziRealzieven2, a, h$baseZCGHCziNumzifromInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wh() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l4(h$c1(h$$wi, b.d2), c, a, h$baseZCGHCziRealzirem); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$wg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, b, a, h$ghczmprimZCGHCziClasseszizeze); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$wf() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp4(h$$wg); | |
h$l2(a, h$ghczmprimZCGHCziClasseszizdp1Ord); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$we() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$c1(h$$wk, a); | |
h$p3(h$c3(h$$wh, b, c, d), h$c1(h$$wj, d), h$$wf); | |
h$l2(a, h$baseZCGHCziRealzizdp2Real); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziRealzieven_e() | |
{ | |
h$p3(h$r2, h$r3, h$$we); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziRealziratioZZeroDenominatorError_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
return h$throw(a, false); | |
}; | |
function h$baseZCGHCziRealzidivZZeroError_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
return h$throw(a, false); | |
}; | |
function h$$wl() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziRealzirem_e() | |
{ | |
h$p1(h$$wl); | |
return h$e(h$r2); | |
}; | |
function h$$wm() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziRealziquot_e() | |
{ | |
h$p1(h$$wm); | |
return h$e(h$r2); | |
}; | |
var h$$x6 = h$strta("["); | |
function h$baseZCGHCziReadzilex4_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$baseZCGHCziReadzilex3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziReadzilexzulvl81_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziReadzilexzuk_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$baseZCGHCziReadzilex2_e() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
h$r1 = (-b | 0); | |
return h$rs(); | |
}; | |
function h$$wE() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$wF); | |
return h$e(a); | |
}; | |
function h$$wD() | |
{ | |
h$l2(h$c1(h$$wE, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wC() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$r4 = b.d2; | |
h$r3 = c; | |
h$r1 = a; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$wB() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wA() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$wz() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = e; | |
} | |
else | |
{ | |
h$l4(d, c, f, b); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$wx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var g = a; | |
if((g === 45)) | |
{ | |
h$pp32(h$$wy); | |
return h$e(f); | |
} | |
else | |
{ | |
h$l4(d, c, e, b); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$ww() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$l4(d, c, e, b); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
var f = a.d1; | |
h$pp96(a.d2, h$$wx); | |
return h$e(f); | |
}; | |
}; | |
function h$$wv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
h$sp -= 5; | |
if((a.f.a === 5)) | |
{ | |
h$pp48(a, h$$ww); | |
return h$e(a.d1); | |
} | |
else | |
{ | |
h$l4(d, c, a, b); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$wu() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$p5(a, c, d, b.d3, h$$wv); | |
return h$e(h$r2); | |
}; | |
function h$$wt() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ws() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$wr() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wq() | |
{ | |
var a = h$r1.d1; | |
var b = h$c1(h$$wB, h$c3(h$$wC, a, h$r2, h$c1(h$$wD, h$r3))); | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$wr, h$c1(h$$ws, h$c1(h$$wt, h$c4(h$$wu, a, h$r2, | |
h$r3, h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$wz, h$c1(h$$wA, b)))))))); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziReadzizdfReadInt3_e() | |
{ | |
h$l2(h$c1(h$$wq, h$r2), h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wK() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$wJ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$wK); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wI() | |
{ | |
h$l2(h$r1.d1, h$r3); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wH() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPreczipfail1; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$wI, h$c1(h$$wJ, a.d1)); | |
}; | |
return h$rs(); | |
}; | |
function h$$wG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 6)) | |
{ | |
h$p1(h$$wH); | |
h$l2(a.d1, h$baseZCTextziReadziLexzinumberToInteger); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPreczipfail1; | |
return h$ap_0_0_fast(); | |
}; | |
}; | |
function h$baseZCGHCziReadzizdfReadIntzuzdsconvertInt_e() | |
{ | |
h$p1(h$$wG); | |
return h$e(h$r2); | |
}; | |
function h$$wL() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l4(h$baseZCTextziParserCombinatorsziReadPzizdfApplicativePzuzdcpure, a, | |
h$baseZCGHCziReadzizdfReadDoublezuzdsconvertFrac, h$baseZCGHCziReadzizdfReadDouble9); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDoublezuzdcreadsPrec_e() | |
{ | |
h$l2(h$c1(h$$wL, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble11_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDoublezuzdcreadList_e() | |
{ | |
h$l3(h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$wP() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$wQ); | |
h$l3(b, a, h$baseZCGHCziReadzizdwparen); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wN() | |
{ | |
h$p2(h$c2(h$$wP, h$r1.d1, h$r2), h$$wO); | |
h$r1 = h$r1.d2; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wM() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c2(h$$wN, h$r1.d2, h$c2(h$$wR, a, h$r2)); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble10_e() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$wM); | |
b.d1 = h$r2; | |
b.d2 = b; | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$w7() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = -a; | |
return h$rs(); | |
}; | |
function h$$w6() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$w7); | |
return h$e(a); | |
}; | |
function h$$w5() | |
{ | |
h$l2(h$c1(h$$w6, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$w4() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$r4 = b.d2; | |
h$r3 = c; | |
h$r1 = a; | |
return h$ap_3_3_fast(); | |
}; | |
function h$$w3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$w2() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$w1() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$w0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = e; | |
} | |
else | |
{ | |
h$l4(d, c, f, b); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$wZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var g = a; | |
if((g === 45)) | |
{ | |
h$pp32(h$$w0); | |
return h$e(f); | |
} | |
else | |
{ | |
h$l4(d, c, e, b); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$wY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$l4(d, c, e, b); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
var f = a.d1; | |
h$pp96(a.d2, h$$wZ); | |
return h$e(f); | |
}; | |
}; | |
function h$$wX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
h$sp -= 5; | |
if((a.f.a === 5)) | |
{ | |
h$pp48(a, h$$wY); | |
return h$e(a.d1); | |
} | |
else | |
{ | |
h$l4(d, c, a, b); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$wW() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$p5(a, c, d, b.d3, h$$wX); | |
return h$e(h$r2); | |
}; | |
function h$$wV() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$wU() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$wT() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$wS() | |
{ | |
var a = h$r1.d1; | |
var b = h$c1(h$$w3, h$c3(h$$w4, a, h$r2, h$c1(h$$w5, h$r3))); | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$wT, h$c1(h$$wU, h$c1(h$$wV, h$c4(h$$wW, a, h$r2, | |
h$r3, h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$w1, h$c1(h$$w2, b)))))))); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble9_e() | |
{ | |
h$l2(h$c1(h$$wS, h$r2), h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
var h$baseZCGHCziReadzizdfReadDouble8 = h$strta("Infinity"); | |
var h$baseZCGHCziReadzizdfReadDouble7 = h$strta("NaN"); | |
function h$baseZCGHCziReadzizdfReadDouble6_e() | |
{ | |
h$bh(); | |
h$r1 = NaN; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble5_e() | |
{ | |
h$l2(h$r1.d1, h$r3); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble4_e() | |
{ | |
h$bh(); | |
h$r1 = Infinity; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble3_e() | |
{ | |
h$l2(h$r1.d1, h$r3); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xe() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziReadzizdfReadDouble5; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPreczipfail1; | |
return h$ap_0_0_fast(); | |
}; | |
}; | |
function h$$xd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziReadzizdfReadDouble3; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$p1(h$$xe); | |
h$l3(h$baseZCGHCziReadzizdfReadDouble7, b, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$xc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$l3(a.d2, b, h$baseZCGHCziFloatzirationalToDouble); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xb() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$xc); | |
return h$e(a); | |
}; | |
function h$$xa() | |
{ | |
h$l2(h$r1.d1, h$r3); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$w9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCGHCziReadzizdfReadDouble3; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$xa, h$c1(h$$xb, a.d1)); | |
}; | |
return h$rs(); | |
}; | |
function h$$w8() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (4): | |
var b = a.d1; | |
h$p2(b, h$$xd); | |
h$l3(h$baseZCGHCziReadzizdfReadDouble8, b, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
case (6): | |
h$p1(h$$w9); | |
h$l4(a.d1, h$baseZCGHCziFloatzizdfRealFloatDouble2, h$baseZCGHCziFloatzizdfRealFloatDouble3, | |
h$baseZCTextziReadziLexzizdwnumberToRangedRational); | |
return h$ap_3_3_fast(); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPreczipfail1; | |
return h$ap_0_0_fast(); | |
}; | |
}; | |
function h$baseZCGHCziReadzizdfReadDoublezuzdsconvertFrac_e() | |
{ | |
h$p1(h$$w8); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble2_e() | |
{ | |
h$l3(h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziReadzizdfReadDouble1_e() | |
{ | |
h$l2(h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$baseZCGHCziReadzizdfReadZLz2cUZR4 = h$strta(")"); | |
var h$baseZCGHCziReadzizdfReadZLz2cUZR3 = h$strta("("); | |
function h$$xt() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xs() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xr() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
h$pp2(h$$xs); | |
h$l3(h$baseZCGHCziReadzizdfReadZLz2cUZR4, a.d1, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xq() | |
{ | |
h$p2(h$r1.d1, h$$xr); | |
return h$e(h$r2); | |
}; | |
function h$$xp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c1(h$$xq, h$c2(h$$xt, a, b)), h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xo() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$xn() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xm() | |
{ | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$xn, h$c1(h$$xo, h$c2(h$$xp, h$r1.d1, h$r2)))); | |
return h$rs(); | |
}; | |
function h$$xl() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c1(h$$xm, b), h$baseZCTextziParserCombinatorsziReadPrecziminPrec, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xj() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
h$pp2(h$$xk); | |
h$l3(h$baseZCGHCziReadzizdfReadZLz2cUZR3, a.d1, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xi() | |
{ | |
h$p2(h$r1.d1, h$$xj); | |
return h$e(h$r2); | |
}; | |
function h$$xh() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c1(h$$xi, h$c2(h$$xl, a, b)), h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xg() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$xf() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziReadzizdwparen_e() | |
{ | |
h$r1 = h$c1(h$$xf, h$c1(h$$xg, h$c2(h$$xh, h$r2, h$r3))); | |
return h$rs(); | |
}; | |
function h$$x4() | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r1.d1, h$r2), h$r1.d2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$x3() | |
{ | |
var a = h$r1.d1; | |
h$r3 = h$r1.d2; | |
h$r1 = a; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$x2() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l3(h$c2(h$$x3, c, h$c2(h$$x4, d, b.d3)), h$baseZCTextziParserCombinatorsziReadPrecziminPrec, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$x1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, h$ghczmprimZCGHCziTypesziZMZN), b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$x0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a) | |
{ | |
case (44): | |
h$pp2(h$$x0); | |
return h$e(c); | |
case (93): | |
h$p2(b, h$$xZ); | |
return h$e(c); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xX() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$pp12(a.d2, h$$xY); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$xW() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
if((a.f.a === 3)) | |
{ | |
h$pp4(h$$xX); | |
return h$e(a.d1); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xV() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$xW); | |
return h$e(h$r2); | |
}; | |
function h$$xU() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xT() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$xS() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$xS, h$c1(h$$xT, h$c1(h$$xU, h$c2(h$$xV, | |
h$c4(h$$x2, a, b, c, d), h$c2(h$$x1, c, d)))))); | |
return h$rs(); | |
}; | |
function h$$xQ() | |
{ | |
h$l2(h$r3, h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xP() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xO() | |
{ | |
--h$sp; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
return h$rs(); | |
}; | |
function h$$xN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a) | |
{ | |
case (44): | |
h$p1(h$$xO); | |
return h$e(b); | |
case (93): | |
h$pp2(h$$xN); | |
return h$e(b); | |
default: | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xL() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$pp6(a.d2, h$$xM); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$xK() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
h$pp2(h$$xL); | |
return h$e(a.d1); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xJ() | |
{ | |
h$p2(h$r1.d1, h$$xK); | |
return h$e(h$r2); | |
}; | |
function h$$xI() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xH() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$xG() | |
{ | |
var a = h$r1.d1; | |
h$r3 = h$r1.d2; | |
h$r1 = a; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xF() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l3(h$c2(h$$xG, c, b.d2), h$baseZCTextziParserCombinatorsziReadPrecziminPrec, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xE() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xD() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l3(h$c3(h$$xF, a, c, d), h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$xE, h$c1(h$$xH, h$c1(h$$xI, | |
h$c1(h$$xJ, h$c1(h$$xP, d)))))), h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xB() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 3)) | |
{ | |
h$pp2(h$$xC); | |
h$l3(h$$x6, a.d1, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziFail; | |
}; | |
return h$rs(); | |
}; | |
function h$$xA() | |
{ | |
h$p2(h$r1.d1, h$$xB); | |
return h$e(h$r2); | |
}; | |
function h$$xz() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c1(h$$xA, h$c3(h$$xD, a, c, b.d2)), h$baseZCTextziReadziLexziexpect2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$xy() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$xx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, a); | |
return h$rs(); | |
}; | |
function h$$xw() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$xx); | |
h$l3(b, a, h$baseZCGHCziReadzizdwparen); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xv() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$baseZCTextziParserCombinatorsziReadPziskipSpaceszuskip; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$xu() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$c3(h$$xz, a, b.d1, h$r2); | |
h$l3(h$c2(h$$xw, b.d2, h$r2), h$c1(h$baseZCTextziParserCombinatorsziReadPziLook_con_e, h$c1(h$$xv, h$c1(h$$xy, c))), | |
h$baseZCTextziParserCombinatorsziReadPzizdfAlternativePzuzdczlzbzg); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziReadzizdwlist_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$c(h$$xR); | |
c.d1 = h$r2; | |
c.d2 = c; | |
var d = h$c(h$$xQ); | |
var e = h$c(h$$xu); | |
d.d1 = e; | |
e.d1 = a; | |
e.d2 = h$d2(c, d); | |
h$l2(b, e); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziReadziCZCRead_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziReadziCZCRead_e() | |
{ | |
h$r1 = h$c4(h$baseZCGHCziReadziCZCRead_con_e, h$r2, h$r3, h$r4, h$r5); | |
return h$rs(); | |
}; | |
function h$$x5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziReadzireadsPrec_e() | |
{ | |
h$p1(h$$x5); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziPtrziPtr_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziPtrziPtr_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$x8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e = b; | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, e, (c + d)); | |
return h$rs(); | |
}; | |
function h$$x7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$x8); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziPtrziplusPtr_e() | |
{ | |
h$p2(h$r3, h$$x7); | |
return h$e(h$r2); | |
}; | |
function h$$x9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziNumzizdfNumIntzuzdcfromInteger_e() | |
{ | |
h$p1(h$$x9); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$ya() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziNumzizt_e() | |
{ | |
h$p1(h$$ya); | |
return h$e(h$r2); | |
}; | |
function h$$yb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziNumzizp_e() | |
{ | |
h$p1(h$$yb); | |
return h$e(h$r2); | |
}; | |
function h$$yc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d6; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziNumzifromInteger_e() | |
{ | |
h$p1(h$$yc); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziMVarziMVar_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziMVarziMVar_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziMVarziMVar_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$yd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
var c = a.d2; | |
h$l3(((b + 1) | 0), c, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListzizdwlenAcc_e() | |
{ | |
h$p2(h$r3, h$$yd); | |
return h$e(h$r2); | |
}; | |
function h$$yh() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziListzifilter); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$yg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c2(h$$yh, b, d)); | |
} | |
else | |
{ | |
h$l3(d, b, h$baseZCGHCziListzifilter); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$yf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp14(c, a.d2, h$$yg); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$ye() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$l3(d, c, b); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = d; | |
return h$ap_0_0_fast(); | |
}; | |
}; | |
function h$baseZCGHCziListzifilter_e() | |
{ | |
h$p2(h$r2, h$$yf); | |
return h$e(h$r3); | |
}; | |
function h$baseZCGHCziListzifilterFB_e() | |
{ | |
h$p4(h$r2, h$r4, h$r5, h$$ye); | |
h$l2(h$r4, h$r3); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$yj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$l3(d, b, h$baseZCGHCziListzidropWhile); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$yi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp14(a, a.d2, h$$yj); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListzidropWhile_e() | |
{ | |
h$p2(h$r2, h$$yi); | |
return h$e(h$r3); | |
}; | |
function h$$yl() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, ((b - 1) | 0), h$baseZCGHCziListzizdwunsafeTake); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$yk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
var d = a.d2; | |
var e = b; | |
if((e === 1)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$ghczmprimZCGHCziTypesziZMZN); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c2(h$$yl, d, e)); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListzizdwunsafeTake_e() | |
{ | |
h$p2(h$r2, h$$yk); | |
return h$e(h$r3); | |
}; | |
function h$$yt() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$ys() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$yt); | |
h$l3(b, a, h$baseZCGHCziListzizdwspan); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$yr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d2); | |
}; | |
function h$$yq() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$yr); | |
return h$e(a); | |
}; | |
function h$$yp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$yo() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$yp); | |
return h$e(a); | |
}; | |
function h$$yn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if(a) | |
{ | |
var f = h$c2(h$$ys, b, e); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, d, h$c1(h$$yo, f)); | |
h$r2 = h$c1(h$$yq, f); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
h$r2 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$ym() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
h$r2 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp30(a, c, a.d2, h$$yn); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListzizdwspan_e() | |
{ | |
h$p2(h$r2, h$$ym); | |
return h$e(h$r3); | |
}; | |
function h$$yu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a.d1, b), a.d2, h$baseZCGHCziListzireverse1); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziListzireverse1_e() | |
{ | |
h$p2(h$r3, h$$yu); | |
return h$e(h$r2); | |
}; | |
function h$$yw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$l3(c, b, h$baseZCGHCziListziall); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$yv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp6(a.d2, h$$yw); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListziall_e() | |
{ | |
h$p2(h$r2, h$$yv); | |
return h$e(h$r3); | |
}; | |
function h$$yy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$l4(d, c, b, h$baseZCGHCziListzielem); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$yx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
var d = a.d1; | |
h$pp12(a.d2, h$$yy); | |
h$l4(d, c, b, h$ghczmprimZCGHCziClasseszizeze); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListzielem_e() | |
{ | |
h$p3(h$r2, h$r3, h$$yx); | |
return h$e(h$r4); | |
}; | |
function h$$yA() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziListziinit1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$yz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$c2(h$$yA, c, a.d2)); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListziinit1_e() | |
{ | |
h$p2(h$r2, h$$yz); | |
return h$e(h$r3); | |
}; | |
function h$$yI() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$yH() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$yI); | |
h$l3(a, ((b - 1) | 0), h$baseZCGHCziListzizdwsplitAtzq); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$yG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d2); | |
}; | |
function h$$yF() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$yG); | |
return h$e(a); | |
}; | |
function h$$yE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$yD() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$yE); | |
return h$e(a); | |
}; | |
function h$$yC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d === 1)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$ghczmprimZCGHCziTypesziZMZN); | |
h$r2 = c; | |
} | |
else | |
{ | |
var e = h$c2(h$$yH, c, d); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$c1(h$$yD, e)); | |
h$r2 = h$c1(h$$yF, e); | |
}; | |
return h$rs(); | |
}; | |
function h$$yB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
h$r2 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$p3(c, a.d2, h$$yC); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziListzizdwsplitAtzq_e() | |
{ | |
h$p2(h$r2, h$$yB); | |
return h$e(h$r3); | |
}; | |
var h$$yL = h$strta("init"); | |
var h$$yM = h$strta("foldl1"); | |
var h$$yN = h$strta(": empty list"); | |
function h$baseZCGHCziListziinit2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziListzifoldl2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$yO = h$strta("Prelude."); | |
function h$$yK() | |
{ | |
h$l3(h$$yN, h$r1.d1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$yJ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$yK, a), h$$yO, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziListzierrorEmptyList_e() | |
{ | |
h$l3(h$c1(h$$yJ, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIntziI64zh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIntziI64zh_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIntziI64zh_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIntziI32zh_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIntziI32zh_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$$yQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d1; | |
var e = h$hs_eqInt64(b, c, d, a.d2); | |
h$r1 = (e ? true : false); | |
return h$rs(); | |
}; | |
function h$$yP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$yQ); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIntzieqInt64_e() | |
{ | |
h$p2(h$r3, h$$yP); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIORefzinewIORef1_e() | |
{ | |
var a = h$r2; | |
var b = new h$MutVar(a); | |
h$r1 = h$c1(h$baseZCGHCziSTRefziSTRef_con_e, b); | |
return h$rs(); | |
}; | |
function h$$yT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$yS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$yT); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$yR() | |
{ | |
h$r1 = h$c1(h$$yS, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziUnsafeziunsafeDupableInterleaveIO_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
var h$baseZCGHCziIOziHandleziTypeszishowHandle2 = h$strta("{handle: "); | |
var h$baseZCGHCziIOziHandleziTypeszishowHandle1 = h$strta("}"); | |
function h$baseZCGHCziIOziHandleziTypesziNewlineMode_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziNewlineMode_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIOziHandleziTypesziNewlineMode_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziFileHandle_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziFileHandle_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIOziHandleziTypesziFileHandle_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$yV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$baseZCGHCziIOziHandleziTypesziFileHandle_con_e, b, a.d1); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypeszizdWFileHandle_e() | |
{ | |
h$p2(h$r2, h$$yV); | |
return h$e(h$r3); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziHandlezuzu_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziHandlezuzu_e() | |
{ | |
h$r1 = h$c16(h$baseZCGHCziIOziHandleziTypesziHandlezuzu_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9, h$r10, | |
h$r11, h$r12, h$r13, h$r14, h$r15, h$r16, h$r17); | |
return h$rs(); | |
}; | |
function h$$y0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 15)]; | |
var c = h$stack[(h$sp - 14)]; | |
var d = h$stack[(h$sp - 13)]; | |
var e = h$stack[(h$sp - 12)]; | |
var f = h$stack[(h$sp - 11)]; | |
var g = h$stack[(h$sp - 10)]; | |
var h = h$stack[(h$sp - 9)]; | |
var i = h$stack[(h$sp - 8)]; | |
var j = h$stack[(h$sp - 7)]; | |
var k = h$stack[(h$sp - 6)]; | |
var l = h$stack[(h$sp - 5)]; | |
var m = h$stack[(h$sp - 4)]; | |
var n = h$stack[(h$sp - 3)]; | |
var o = h$stack[(h$sp - 2)]; | |
var p = h$stack[(h$sp - 1)]; | |
h$sp -= 16; | |
h$r1 = h$c16(h$baseZCGHCziIOziHandleziTypesziHandlezuzu_con_e, b, c, d, f, e, h, g, i, j, a.d1, k, l, m, n, o, p); | |
return h$rs(); | |
}; | |
function h$$yZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
h$sp -= 16; | |
var c = a.d1; | |
h$sp += 16; | |
h$stack[(h$sp - 7)] = c; | |
h$stack[h$sp] = h$$y0; | |
return h$e(b); | |
}; | |
function h$$yY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 8)]; | |
h$sp -= 16; | |
var c = a.d1; | |
h$sp += 16; | |
h$stack[(h$sp - 8)] = c; | |
h$stack[h$sp] = h$$yZ; | |
return h$e(b); | |
}; | |
function h$$yX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 9)]; | |
h$sp -= 16; | |
var c = a.d1; | |
h$sp += 16; | |
h$stack[(h$sp - 9)] = c; | |
h$stack[h$sp] = h$$yY; | |
return h$e(b); | |
}; | |
function h$$yW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 11)]; | |
h$sp -= 16; | |
h$sp += 16; | |
h$stack[(h$sp - 11)] = a; | |
h$stack[h$sp] = h$$yX; | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziHandleziTypeszizdWHandlezuzu_e() | |
{ | |
h$p16(h$r2, h$r3, h$r4, h$r6, h$r7, h$r8, h$r9, h$r10, h$r11, h$r12, h$r13, h$r14, h$r15, h$r16, h$r17, h$$yW); | |
h$r1 = h$r5; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziLF_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziBlockBuffering_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziBlockBuffering_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziIOziHandleziTypesziBlockBuffering_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziLineBuffering_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziNoBuffering_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziWriteHandle_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziTypesziBufferListNil_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$zc() | |
{ | |
var a = h$stack[(h$sp - 4)]; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$l5(d, c, b, a, h$baseZCGHCziIOziHandleziInternalszizdwdozuoperation); | |
return h$ap_gen_fast(1029); | |
}; | |
function h$$zb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 10; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(d, e, g, i)) | |
{ | |
if(h$hs_eqWord64(f, c, j, h.d3)) | |
{ | |
h$pp16(h$$zc); | |
return h$killThread(h$currentThread, b); | |
} | |
else | |
{ | |
return h$throw(b, false); | |
}; | |
} | |
else | |
{ | |
return h$throw(b, false); | |
}; | |
}; | |
function h$$za() | |
{ | |
h$sp -= 10; | |
h$sp += 10; | |
h$stack[h$sp] = h$$zb; | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionAllocationLimitExceeded5); | |
}; | |
function h$$y9() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l4(b.d1, a, b.d2, h$baseZCGHCziIOziHandleziInternalsziaugmentIOError); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$y8() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c3(h$$y9, a, c, b.d2), h$baseZCGHCziIOziExceptionzizdfExceptionIOExceptionzuzdctoException); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$y7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 10)]; | |
var c = h$stack[(h$sp - 9)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 11; | |
var i = a.d1; | |
var j = a.d2; | |
var k = j.d1; | |
var l = j.d2; | |
if(h$hs_eqWord64(e, f, i, k)) | |
{ | |
if(h$hs_eqWord64(g, h, l, j.d3)) | |
{ | |
return h$throw(h$c3(h$$y8, b, c, d), false); | |
} | |
else | |
{ | |
h$sp += 9; | |
h$stack[(h$sp - 3)] = h; | |
++h$sp; | |
return h$$za; | |
}; | |
} | |
else | |
{ | |
h$sp += 9; | |
h$stack[(h$sp - 3)] = h; | |
++h$sp; | |
return h$$za; | |
}; | |
}; | |
function h$$y6() | |
{ | |
var a = h$r1; | |
h$sp -= 7; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d3; | |
h$sp += 11; | |
h$stack[(h$sp - 4)] = b; | |
h$stack[(h$sp - 3)] = d; | |
h$stack[(h$sp - 2)] = e; | |
h$stack[(h$sp - 1)] = f; | |
h$stack[h$sp] = h$$y7; | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionIOException4); | |
}; | |
function h$$y5() | |
{ | |
var a = h$r1; | |
h$sp -= 5; | |
var b = a.d1; | |
h$pp112(a, a.d2, h$$y6); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$y4() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$pp16(h$$y5); | |
return h$e(a); | |
}; | |
function h$$y3() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$p6(a, c, d, e, h$r2, h$$y4); | |
return h$putMVar(e, b.d4); | |
}; | |
function h$$y2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
return h$catch(a, b); | |
}; | |
function h$$y1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$p2(h$c5(h$$y3, b, c, d, e, a), h$$y2); | |
h$l2(a, d); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalszizdwdozuoperation_e() | |
{ | |
h$p5(h$r2, h$r3, h$r4, h$r5, h$$y1); | |
return h$takeMVar(h$r5); | |
}; | |
var h$$AE = h$strta("codec_state"); | |
var h$$AF = h$strta("handle is finalized"); | |
function h$$zd() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$AH = h$strta("handle is not open for writing"); | |
function h$$ze() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$AK = h$strta("handle is semi-closed"); | |
function h$$zf() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$AN = h$strta("handle is closed"); | |
function h$$zj() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$zi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p2(a.d2, h$$zj); | |
return h$putMVar(b, c); | |
}; | |
function h$$zh() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$zi); | |
return h$e(a); | |
}; | |
function h$$zg() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$p2(d, h$$zh); | |
h$l5(d, b.d3, c, a, h$baseZCGHCziIOziHandleziInternalszizdwdozuoperation); | |
return h$ap_gen_fast(1029); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalszizdwwithHandlezq_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$r5; | |
var e = h$maskStatus(); | |
var f = h$c4(h$$zg, a, b, c, d); | |
var g = e; | |
if((g === 0)) | |
{ | |
return h$maskAsync(f); | |
} | |
else | |
{ | |
h$r1 = f; | |
return h$ap_1_0_fast(); | |
}; | |
}; | |
function h$$zO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a); | |
return h$rs(); | |
}; | |
function h$$zN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d4; | |
var g = c.d5; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, d, e, h$baseZCGHCziIOziBufferziWriteBuffer, f, g, c.d6); | |
return h$rs(); | |
}; | |
function h$$zM() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$zN); | |
return h$e(a); | |
}; | |
function h$$zL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a); | |
return h$rs(); | |
}; | |
function h$$zK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
d.val = a; | |
h$p2(c, h$$zL); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$zJ() | |
{ | |
var a = h$stack[(h$sp - 4)]; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
a.val = h$c1(h$$zM, a.val); | |
h$pp12(d, h$$zK); | |
h$l4(d.val, c, b, h$baseZCGHCziIOziBufferedIOziemptyWriteBuffer); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$zI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
var c = ((b - a) | 0); | |
h$l2((-c | 0), h$integerzmgmpZCGHCziIntegerziTypezismallInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$zH() | |
{ | |
var a = h$stack[(h$sp - 5)]; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var f = h$stack[h$sp]; | |
h$sp -= 6; | |
f.val = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, a, 0, 0); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
h$sp += 6; | |
++h$sp; | |
return h$$zJ; | |
}; | |
function h$$zG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 8)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 9; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if(a) | |
{ | |
var g = h$c2(h$$zI, d, e); | |
h$sp += 6; | |
h$pp33(c, h$$zH); | |
h$l5(g, h$baseZCGHCziIOziDeviceziRelativeSeek, f, b, h$baseZCGHCziIOziDeviceziseek); | |
return h$ap_gen_fast(1029); | |
} | |
else | |
{ | |
return h$throw(h$baseZCGHCziIOziHandleziInternalsziflushBuffer3, false); | |
}; | |
}; | |
function h$$zF() | |
{ | |
var a = h$r1; | |
h$sp -= 9; | |
h$sp -= 6; | |
var b = a; | |
h$sp += 6; | |
h$sp += 9; | |
h$stack[h$sp] = h$$zG; | |
return h$e(b); | |
}; | |
function h$$zE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var e = a.d1; | |
var f = a.d2; | |
var g = f.d1; | |
var h = f.d2; | |
var i = f.d3; | |
var j = f.d4; | |
var k = f.d5; | |
var l = f.d6; | |
if((k === l)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
h$sp += 6; | |
h$stack[(h$sp - 3)] = d; | |
++h$sp; | |
return h$$zJ; | |
} | |
else | |
{ | |
h$sp += 6; | |
h$stack[(h$sp - 3)] = d; | |
h$p9(b, e, g, h, i, j, k, l, h$$zF); | |
h$l3(c, b, h$baseZCGHCziIOziDeviceziisSeekable); | |
return h$ap_3_2_fast(); | |
}; | |
}; | |
function h$$zD() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
h$sp -= 8; | |
h$pp128(h$$zE); | |
return h$e(a.val); | |
}; | |
function h$$zC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d3; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, d, e, f, c.d4, 0, 0); | |
return h$rs(); | |
}; | |
function h$$zB() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$zC); | |
return h$e(a); | |
}; | |
function h$$zA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
var j = d.d6; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, c, e, f, g, h, ((i + b) | 0), j); | |
return h$rs(); | |
}; | |
function h$$zz() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b, h$$zA); | |
return h$e(a); | |
}; | |
function h$$zy() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
b.val = a.d1; | |
h$sp += 7; | |
++h$sp; | |
return h$$zD; | |
}; | |
function h$$zx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 7; | |
var b = a; | |
h$sp += 7; | |
h$p1(h$$zy); | |
return h$e(b); | |
}; | |
function h$$zw() | |
{ | |
var a = h$stack[(h$sp - 8)]; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 9; | |
h$sp -= 7; | |
var i = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, d, e, f, g, 0, 0); | |
h$sp += 7; | |
h$p1(h$$zx); | |
h$l5(i, c, h, b, h$baseZCGHCziIOziHandleziInternalszizdwstreamEncode); | |
return h$ap_gen_fast(1029); | |
}; | |
function h$$zv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
h$sp -= 8; | |
h$sp -= 7; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d4; | |
h$sp += 7; | |
h$sp += 9; | |
h$stack[(h$sp - 7)] = c; | |
h$stack[(h$sp - 1)] = e; | |
h$stack[h$sp] = h$$zw; | |
h$l2(b, f); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$zu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
if((a.f.a === 1)) | |
{ | |
d.val = h$c2(h$$zz, b, c); | |
h$sp += 7; | |
++h$sp; | |
return h$$zD; | |
} | |
else | |
{ | |
var e = a.d1; | |
h$sp += 7; | |
h$pp128(h$$zv); | |
return h$e(e); | |
}; | |
}; | |
function h$$zt() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var e = a.d1; | |
var f = a.d2; | |
var g = f.d1; | |
var h = f.d2; | |
var i = f.d3; | |
var j = f.d5; | |
if((j === 0)) | |
{ | |
d.val = c; | |
h$sp += 7; | |
++h$sp; | |
return h$$zD; | |
} | |
else | |
{ | |
h$sp += 7; | |
h$pp249(e, g, h, i, j, h$$zu); | |
return h$e(b); | |
}; | |
}; | |
function h$$zs() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
var b = h$stack[h$sp]; | |
h$sp -= 7; | |
var c = a.d1; | |
var d = a.d2; | |
var e = b.val; | |
b.val = h$c1(h$$zB, e); | |
h$sp += 7; | |
h$pp14(c, d, h$$zt); | |
return h$e(e); | |
}; | |
function h$$zr() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$sp -= 7; | |
if((a.f.a === 1)) | |
{ | |
if((d === e)) | |
{ | |
h$sp += 7; | |
++h$sp; | |
return h$$zD; | |
} | |
else | |
{ | |
var f = b.val; | |
h$sp += 7; | |
h$p2(c, h$$zs); | |
return h$e(f); | |
}; | |
} | |
else | |
{ | |
h$sp += 7; | |
++h$sp; | |
return h$$zD; | |
}; | |
}; | |
function h$$zq() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 10; | |
var d = a.d2; | |
var e = d.d3; | |
var f = d.d5; | |
h$pp64(c); | |
h$pp29(b, f, d.d6, h$$zr); | |
return h$e(e); | |
}; | |
function h$$zp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a); | |
return h$rs(); | |
}; | |
function h$$zo() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 9)]; | |
var c = h$stack[(h$sp - 8)]; | |
var d = h$stack[(h$sp - 2)]; | |
h$sp -= 10; | |
if((a.f.a === 1)) | |
{ | |
var e = d.val; | |
h$sp += 10; | |
h$stack[h$sp] = h$$zq; | |
return h$e(e); | |
} | |
else | |
{ | |
h$p2(c, h$$zp); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
}; | |
function h$$zn() | |
{ | |
var a = h$r1; | |
h$sp -= 10; | |
var b = a.d2; | |
var c = b.d3; | |
h$sp += 10; | |
h$stack[h$sp] = h$$zo; | |
return h$e(c); | |
}; | |
function h$$zm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 9)]; | |
var c = h$stack[(h$sp - 8)]; | |
var d = h$stack[(h$sp - 2)]; | |
h$sp -= 10; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$r1 = h$baseZCGHCziIOziHandleziInternalsziioezuclosedHandle1; | |
return h$ap_1_0_fast(); | |
case (2): | |
h$r1 = h$baseZCGHCziIOziHandleziInternalsziioezusemiclosedHandle1; | |
return h$ap_1_0_fast(); | |
case (3): | |
h$r1 = h$baseZCGHCziIOziHandleziInternalsziioezunotWritable1; | |
return h$ap_1_0_fast(); | |
case (6): | |
var e = d.val; | |
h$sp += 10; | |
h$stack[h$sp] = h$$zn; | |
return h$e(e); | |
default: | |
h$p2(c, h$$zO); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
}; | |
function h$$zl() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d3; | |
var f = c.d4; | |
var g = c.d5; | |
var h = c.d7; | |
var i = c.d8; | |
var j = c.d11; | |
h$sp += 10; | |
h$stack[(h$sp - 8)] = a; | |
h$stack[(h$sp - 7)] = b; | |
h$stack[(h$sp - 6)] = d; | |
h$stack[(h$sp - 5)] = e; | |
h$stack[(h$sp - 4)] = g; | |
h$stack[(h$sp - 3)] = h; | |
h$stack[(h$sp - 2)] = i; | |
h$stack[(h$sp - 1)] = j; | |
h$stack[h$sp] = h$$zm; | |
return h$e(f); | |
}; | |
function h$$zk() | |
{ | |
h$p2(h$r1.d1, h$$zl); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalszizdwwantWritableHandlezq_e() | |
{ | |
h$r5 = h$c1(h$$zk, h$r5); | |
h$r1 = h$r1.d1; | |
return h$ap_gen_fast(1029); | |
}; | |
function h$$zP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$l5(c, a.d2, a, b, h$baseZCGHCziIOziHandleziInternalszizdwwantWritableHandlezq); | |
return h$ap_gen_fast(1029); | |
} | |
else | |
{ | |
var d = a.d2; | |
h$l5(c, d.d2, a, b, h$baseZCGHCziIOziHandleziInternalszizdwwantWritableHandlezq); | |
return h$ap_gen_fast(1029); | |
}; | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziwantWritableHandle1_e() | |
{ | |
h$p3(h$r2, h$r4, h$$zP); | |
return h$e(h$r3); | |
}; | |
function h$$Ai() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 3)) | |
{ | |
h$r1 = h$baseZCGHCziIOziBufferziReadBuffer; | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziIOziBufferziWriteBuffer; | |
}; | |
return h$rs(); | |
}; | |
function h$$Ah() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Ai); | |
return h$e(a); | |
}; | |
function h$$Ag() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d2); | |
}; | |
function h$$Af() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Ag); | |
return h$e(a); | |
}; | |
function h$$Ae() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$Ad() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Ae); | |
return h$e(a); | |
}; | |
function h$$Ac() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 14)]; | |
var c = h$stack[(h$sp - 13)]; | |
var d = h$stack[(h$sp - 12)]; | |
var e = h$stack[(h$sp - 11)]; | |
var f = h$stack[(h$sp - 10)]; | |
var g = h$stack[(h$sp - 9)]; | |
var h = h$stack[(h$sp - 8)]; | |
var i = h$stack[(h$sp - 7)]; | |
var j = h$stack[(h$sp - 6)]; | |
var k = h$stack[(h$sp - 5)]; | |
var l = h$stack[(h$sp - 4)]; | |
var m = h$stack[(h$sp - 3)]; | |
var n = h$stack[(h$sp - 2)]; | |
var o = h$stack[(h$sp - 1)]; | |
h$sp -= 15; | |
h$r1 = h$c16(h$baseZCGHCziIOziHandleziTypesziHandlezuzu_con_e, b, c, d, m, e, k, n, l, a.d1, o, i, j, f, h$c1(h$$Ad, g), | |
h$c1(h$$Af, g), h); | |
return h$rs(); | |
}; | |
function h$$Ab() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 15; | |
h$sp += 15; | |
h$stack[(h$sp - 3)] = a; | |
h$stack[h$sp] = h$$Ac; | |
return h$e(b); | |
}; | |
function h$$Aa() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h = b.d6; | |
var i = b.d7; | |
var j = b.d8; | |
var k = b.d9; | |
var l = b.d10; | |
var m = b.d11; | |
var n = b.d12; | |
var o = b.d13; | |
h$bh(); | |
h$p15(a, c, d, f, g, h, i, j, k, l, m, n, o, b.d14, h$$Ab); | |
h$r1 = e; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$z9() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c1(h$baseZCGHCziMVarziMVar_con_e, b.d1), a, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$z8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIOziHandleziTypesziFileHandle_con_e, b, c); | |
} | |
else | |
{ | |
var d = h$makeWeak(c, h$ghczmprimZCGHCziTupleziZLZR, h$c3(h$$z9, b, c, a.d1)); | |
h$r1 = h$c2(h$baseZCGHCziIOziHandleziTypesziFileHandle_con_e, b, c); | |
}; | |
return h$rs(); | |
}; | |
function h$$z7() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(b, h$$z8); | |
return h$e(a); | |
}; | |
function h$$z6() | |
{ | |
var a = h$stack[(h$sp - 14)]; | |
var b = h$stack[(h$sp - 13)]; | |
var c = h$stack[(h$sp - 12)]; | |
var d = h$stack[(h$sp - 11)]; | |
var e = h$stack[(h$sp - 10)]; | |
var f = h$stack[(h$sp - 9)]; | |
var g = h$stack[(h$sp - 8)]; | |
var h = h$stack[(h$sp - 7)]; | |
var i = h$stack[(h$sp - 6)]; | |
var j = h$stack[(h$sp - 5)]; | |
var k = h$stack[(h$sp - 4)]; | |
var l = h$stack[(h$sp - 3)]; | |
var m = h$stack[(h$sp - 2)]; | |
var n = h$stack[(h$sp - 1)]; | |
h$sp -= 15; | |
var o = h$r1; | |
var p = h$r2; | |
var q = new h$MutVar(h$baseZCGHCziIOziHandleziTypesziBufferListNil); | |
var r = q; | |
var s = new h$MVar(); | |
h$p4(e, j, s, h$$z7); | |
return h$putMVar(s, h$c15(h$$Aa, a, b, c, d, f, h, i, k, l, m, g, n, o, p, r)); | |
}; | |
function h$$z5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziIOziHandleziTypesziLineBuffering; | |
} | |
else | |
{ | |
return h$e(h$$AD); | |
}; | |
return h$rs(); | |
}; | |
function h$$z4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$z5); | |
return h$e(a); | |
}; | |
function h$$z3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 14; | |
h$l2(h$c1(h$$z4, a), h$c1(h$baseZCGHCziSTRefziSTRef_con_e, b)); | |
h$sp += 14; | |
++h$sp; | |
return h$$z6; | |
}; | |
function h$$z2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = h$stack[(h$sp - 13)]; | |
var d = h$stack[(h$sp - 10)]; | |
h$sp -= 14; | |
if(a) | |
{ | |
var e = new h$MutVar(h$baseZCGHCziForeignPtrziNoFinalizzers); | |
var f = h$newByteArray(8192); | |
var g = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, f, 0, h$c2(h$baseZCGHCziForeignPtrziMallocPtr_con_e, f, e), b, 2048, | |
0, 0); | |
var h = new h$MutVar(g); | |
var i = h; | |
h$sp += 14; | |
h$p2(i, h$$z3); | |
h$l3(d, c, h$baseZCGHCziIOziDeviceziisTerminal); | |
return h$ap_3_2_fast(); | |
} | |
else | |
{ | |
var j = new h$MutVar(h$baseZCGHCziForeignPtrziNoFinalizzers); | |
var k = h$newByteArray(8192); | |
var l = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, k, 0, h$c2(h$baseZCGHCziForeignPtrziMallocPtr_con_e, k, j), b, 2048, | |
0, 0); | |
var m = new h$MutVar(l); | |
h$l2(h$baseZCGHCziIOziHandleziTypesziNoBuffering, h$c1(h$baseZCGHCziSTRefziSTRef_con_e, m)); | |
h$sp += 14; | |
++h$sp; | |
return h$$z6; | |
}; | |
}; | |
function h$$z1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 8)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 15; | |
var d = a; | |
var e = new h$MutVar(d); | |
var f = e; | |
var g = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$baseZCGHCziIOziHandleziInternalszidecodeByteBuf2, d); | |
var h = new h$MutVar(g); | |
var i = h; | |
h$sp += 14; | |
h$stack[(h$sp - 7)] = f; | |
h$stack[h$sp] = i; | |
h$p2(c, h$$z2); | |
return h$e(b); | |
}; | |
function h$$z0() | |
{ | |
var a = h$stack[(h$sp - 10)]; | |
var b = h$stack[(h$sp - 8)]; | |
var c = h$stack[(h$sp - 6)]; | |
h$sp -= 12; | |
var d = h$r1; | |
var e = h$r2; | |
var f = h$c1(h$$Ah, c); | |
h$sp += 15; | |
h$stack[(h$sp - 3)] = d; | |
h$stack[(h$sp - 2)] = e; | |
h$stack[(h$sp - 1)] = f; | |
h$stack[h$sp] = h$$z1; | |
h$l4(f, b, a, h$baseZCGHCziIOziBufferedIOzinewBuffer); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$zZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 11; | |
h$l2(b, h$c1(h$baseZCGHCziBaseziJust_con_e, a)); | |
h$sp += 11; | |
++h$sp; | |
return h$$z0; | |
}; | |
function h$$zY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 11; | |
h$l2(b, h$c1(h$baseZCGHCziBaseziJust_con_e, a)); | |
h$sp += 11; | |
++h$sp; | |
return h$$z0; | |
}; | |
function h$$zX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 11; | |
h$l2(b, h$c1(h$baseZCGHCziBaseziJust_con_e, a)); | |
h$sp += 11; | |
++h$sp; | |
return h$$z0; | |
}; | |
function h$$zW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$sp -= 11; | |
switch (a.f.a) | |
{ | |
case (4): | |
h$sp += 11; | |
h$p2(c, h$$zZ); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
case (5): | |
h$sp += 11; | |
h$p2(c, h$$zY); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
case (6): | |
h$sp += 11; | |
h$p2(c, h$$zX); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
default: | |
h$l2(c, h$baseZCGHCziBaseziNothing); | |
h$sp += 11; | |
++h$sp; | |
return h$$z0; | |
}; | |
}; | |
function h$$zV() | |
{ | |
var a = h$stack[(h$sp - 7)]; | |
h$sp -= 13; | |
var b = h$r1; | |
h$sp += 11; | |
h$pp6(b, h$$zW); | |
return h$e(a); | |
}; | |
function h$$zU() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 12; | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, a); | |
h$sp += 12; | |
++h$sp; | |
return h$$zV; | |
}; | |
function h$$zT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 12; | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, a); | |
h$sp += 12; | |
++h$sp; | |
return h$$zV; | |
}; | |
function h$$zS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 12; | |
switch (a.f.a) | |
{ | |
case (3): | |
h$sp += 12; | |
h$p1(h$$zU); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
case (6): | |
h$sp += 12; | |
h$p1(h$$zT); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
default: | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
h$sp += 12; | |
++h$sp; | |
return h$$zV; | |
}; | |
}; | |
function h$$zR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[(h$sp - 5)]; | |
h$sp -= 11; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$sp += 12; | |
h$stack[h$sp] = e; | |
h$p2(d, h$$zS); | |
return h$e(b); | |
}; | |
function h$$zQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 11; | |
if((a.f.a === 1)) | |
{ | |
h$l2(h$baseZCGHCziBaseziNothing, h$baseZCGHCziBaseziNothing); | |
h$sp += 11; | |
++h$sp; | |
return h$$z0; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$sp += 11; | |
h$p1(h$$zR); | |
return h$e(b); | |
}; | |
}; | |
function h$baseZCGHCziIOziHandleziInternalszimkDuplexHandle7_e() | |
{ | |
h$p11(h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9, h$r10, h$r11, h$r12); | |
h$p1(h$$zQ); | |
return h$e(h$r9); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziioezusemiclosedHandle1_e() | |
{ | |
return h$throw(h$r1.d1, false); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziioezunotWritable1_e() | |
{ | |
return h$throw(h$r1.d1, false); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziioezuclosedHandle1_e() | |
{ | |
return h$throw(h$r1.d1, false); | |
}; | |
function h$$An() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
b.val = a; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Am() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d2; | |
var f = e.d5; | |
var g = e.d6; | |
if((f === g)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
h$p2(d, h$$An); | |
h$l4(a, c, b, h$baseZCGHCziIOziBufferedIOziflushWriteBuffer); | |
return h$ap_4_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Al() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
h$pp8(h$$Am); | |
return h$e(b.val); | |
}; | |
return h$rs(); | |
}; | |
function h$$Ak() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
var b = a.d2; | |
h$pp8(h$$Al); | |
return h$e(b.d3); | |
}; | |
function h$$Aj() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
var c = b.d1; | |
var d = b.d3; | |
var e = b.d5; | |
h$p4(c, d, e, h$$Ak); | |
return h$e(e.val); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziflushWriteBuffer1_e() | |
{ | |
h$p1(h$$Aj); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziHandleziInternalsziflushBuffer5 = h$strta("cannot flush the read buffer: underlying device is not seekable"); | |
function h$baseZCGHCziIOziHandleziInternalsziflushBuffer3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalszidecodeByteBuf2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ay() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$l3(a.d2, c, b); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$Ax() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$Ay); | |
return h$e(a); | |
}; | |
function h$$Aw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a.d2; | |
var g = f.d5; | |
if((d === g)) | |
{ | |
h$p2(c, h$$Ax); | |
h$l3(e, a, b); | |
return h$ap_3_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, a, e); | |
}; | |
return h$rs(); | |
}; | |
function h$$Av() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 5; | |
var c = a.d2; | |
h$pp20(c.d5, h$$Aw); | |
return h$e(b); | |
}; | |
function h$$Au() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
if((a.f.a === 3)) | |
{ | |
h$pp28(d, e, h$$Av); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$At() | |
{ | |
var a = h$r1; | |
h$sp -= 5; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
h$pp112(d, c.d2, h$$Au); | |
return h$e(b); | |
}; | |
function h$$As() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
h$pp24(a, h$$At); | |
return h$e(a); | |
}; | |
function h$$Ar() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(c, b.d2, h$r2, h$$As); | |
h$r1 = a; | |
return h$ap_3_2_fast(); | |
}; | |
function h$$Aq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
var c = b.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, c, b.d2); | |
return h$rs(); | |
}; | |
function h$$Ap() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Aq); | |
return h$e(a); | |
}; | |
function h$$Ao() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$$Ap, a); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalszizdwstreamEncode_e() | |
{ | |
var a = h$r3; | |
var b = h$r4; | |
var c = h$r5; | |
var d = h$c(h$$Ar); | |
d.d1 = h$r2; | |
d.d2 = h$d2(a, d); | |
h$p1(h$$Ao); | |
h$l3(c, b, d); | |
return h$ap_3_2_fast(); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziioezufinalizzedHandle_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
h$l3(h$c6(h$baseZCGHCziIOziExceptionziIOError_con_e, g, a, c, d, g, h$c1(h$baseZCGHCziBaseziJust_con_e, h$r2)), e, f); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$AC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, a.d1); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, a.d1); | |
}; | |
return h$rs(); | |
}; | |
function h$$AB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$AC); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$AA() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$AB); | |
return h$e(b); | |
}; | |
function h$$Az() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d3; | |
var g = d.d4; | |
h$r1 = h$c6(h$baseZCGHCziIOziExceptionziIOError_con_e, h$c1(h$baseZCGHCziBaseziJust_con_e, c), e, b, f, g, h$c2(h$$AA, | |
c, d.d5)); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziHandleziInternalsziaugmentIOError_e() | |
{ | |
h$p3(h$r3, h$r4, h$$Az); | |
return h$e(h$r2); | |
}; | |
function h$$AR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l12(h$baseZCGHCziBaseziNothing, h$$By, h$baseZCGHCziIOziHandleziTypeszinativeNewlineMode, | |
h$c1(h$baseZCGHCziBaseziJust_con_e, a), true, h$baseZCGHCziIOziHandleziTypesziWriteHandle, h$$Bu, | |
h$baseZCGHCziIOziFDzistdout, h$baseZCGHCziIOziHandleziFDzifdToHandle8, h$baseZCGHCziIOziFDzizdfBufferedIOFD, | |
h$baseZCGHCziIOziFDzizdfIODeviceFD, h$baseZCGHCziIOziHandleziInternalszimkDuplexHandle7); | |
return h$ap_gen_fast(2828); | |
}; | |
function h$$AQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$AR); | |
h$r1 = a.d1; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$AP() | |
{ | |
h$p1(h$$AQ); | |
return h$e(h$r1.d1); | |
}; | |
var h$$Bu = h$strta("<stdout>"); | |
function h$$AU() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l12(h$baseZCGHCziBaseziNothing, h$$By, h$baseZCGHCziIOziHandleziTypeszinativeNewlineMode, | |
h$c1(h$baseZCGHCziBaseziJust_con_e, a), false, h$baseZCGHCziIOziHandleziTypesziWriteHandle, h$$Bw, | |
h$baseZCGHCziIOziFDzistderr, h$baseZCGHCziIOziHandleziFDzifdToHandle8, h$baseZCGHCziIOziFDzizdfBufferedIOFD, | |
h$baseZCGHCziIOziFDzizdfIODeviceFD, h$baseZCGHCziIOziHandleziInternalszimkDuplexHandle7); | |
return h$ap_gen_fast(2828); | |
}; | |
function h$$AT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$AU); | |
h$r1 = a.d1; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$AS() | |
{ | |
h$p1(h$$AT); | |
return h$e(h$r1.d1); | |
}; | |
var h$$Bw = h$strta("<stderr>"); | |
function h$$AW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a.d1, b, h$$Bz); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$AV() | |
{ | |
h$p2(h$r2, h$$AW); | |
return h$e(h$r3); | |
}; | |
function h$$Bo() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziIOziHandleziInternalsziioezufinalizzedHandle); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Bn() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Bm() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziIOziHandleziInternalsziioezufinalizzedHandle); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Bl() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Bk() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p1(h$$Bl); | |
return h$putMVar(b, h$c1(h$$Bm, a)); | |
}; | |
function h$$Bj() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d2; | |
h$pp4(h$$Bk); | |
h$r1 = b.d2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Bi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$Bn); | |
return h$putMVar(c, h$c1(h$$Bo, b)); | |
} | |
else | |
{ | |
h$pp4(h$$Bj); | |
return h$e(a.d1); | |
}; | |
}; | |
function h$$Bh() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziIOziHandleziInternalsziioezufinalizzedHandle); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Bg() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Bf() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziIOziHandleziInternalsziioezufinalizzedHandle); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Be() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Bd() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p1(h$$Be); | |
return h$putMVar(b, h$c1(h$$Bf, a)); | |
}; | |
function h$$Bc() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d2; | |
h$pp4(h$$Bd); | |
h$r1 = b.d2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Bb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$Bg); | |
return h$putMVar(c, h$c1(h$$Bh, b)); | |
} | |
else | |
{ | |
h$pp4(h$$Bc); | |
return h$e(a.d1); | |
}; | |
}; | |
function h$$Ba() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp4(h$$Bb); | |
return h$e(a); | |
}; | |
function h$$A9() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
var b = a.d2; | |
h$pp8(h$$Ba); | |
h$r1 = b.d2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$A8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$pp4(h$$Bi); | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp8(h$$A9); | |
return h$e(a.d1); | |
}; | |
}; | |
function h$$A7() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziIOziHandleziInternalsziioezufinalizzedHandle); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$A6() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$A5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$A6); | |
return h$putMVar(c, h$c1(h$$A7, b)); | |
} | |
else | |
{ | |
h$pp8(h$$A8); | |
return h$e(d); | |
}; | |
}; | |
function h$$A4() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$pp16(h$$A5); | |
return h$e(a); | |
}; | |
function h$$A3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 5; | |
b.val = a; | |
h$sp += 5; | |
++h$sp; | |
return h$$A4; | |
}; | |
function h$$A2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$sp -= 5; | |
var d = a.d2; | |
var e = d.d5; | |
var f = d.d6; | |
if((e === f)) | |
{ | |
h$sp += 5; | |
++h$sp; | |
return h$$A4; | |
} | |
else | |
{ | |
h$sp += 5; | |
h$pp2(h$$A3); | |
h$l4(a, c, b, h$baseZCGHCziIOziBufferedIOziflushWriteBuffer); | |
return h$ap_4_3_fast(); | |
}; | |
}; | |
function h$$A1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$sp -= 5; | |
if((a.f.a === 1)) | |
{ | |
h$sp += 5; | |
++h$sp; | |
return h$$A4; | |
} | |
else | |
{ | |
var c = b.val; | |
h$sp += 5; | |
h$pp8(h$$A2); | |
return h$e(c); | |
}; | |
}; | |
function h$$A0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 9; | |
var f = a.d2; | |
var g = f.d3; | |
h$sp += 5; | |
h$stack[(h$sp - 2)] = d; | |
h$stack[(h$sp - 1)] = e; | |
h$pp14(b, c, h$$A1); | |
return h$e(g); | |
}; | |
function h$$AZ() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d2; | |
var c = b.d1; | |
var d = b.d3; | |
var e = b.d4; | |
var f = b.d5; | |
var g = b.d10; | |
var h = b.d11; | |
var i = f.val; | |
h$sp += 9; | |
h$stack[(h$sp - 6)] = c; | |
h$stack[(h$sp - 5)] = d; | |
h$stack[(h$sp - 4)] = e; | |
h$stack[(h$sp - 3)] = f; | |
h$stack[(h$sp - 2)] = g; | |
h$stack[(h$sp - 1)] = h; | |
h$stack[h$sp] = h$$A0; | |
return h$e(i); | |
}; | |
function h$$AY() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp4(h$$AZ); | |
return h$e(a); | |
}; | |
function h$$AX() | |
{ | |
h$p3(h$r2, h$r3, h$$AY); | |
return h$takeMVar(h$r3); | |
}; | |
function h$$Bq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, h$baseZCGHCziIOziFDzizdtcFD, | |
h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$Bp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Bq); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziHandleziFDzifdToHandle10, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziHandleziFDzifdToHandle9_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Bp); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziHandleziFDzifdToHandle8_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$Br() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziHandleziFDzistderr_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Br); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Bs() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziHandleziFDzistdout_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Bs); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
var h$baseZCGHCziIOziHandlezihFlush2 = h$strta("hFlush"); | |
function h$baseZCGHCziIOziHandlezihFlush1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l4(a, h$r2, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCGHCziIOziHandlezihFlush_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$$BG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$l2(h$$Dq, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$BF() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$p1(h$$BG); | |
try | |
{ | |
var f; | |
var g = { mv: null | |
}; | |
f = h$mkForeignCallback(g); | |
h$base_write(a, c, d, e, f); | |
if((g.mv === null)) | |
{ | |
g.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(g.mv); | |
} | |
else | |
{ | |
var h = g.mv; | |
h$r1 = h[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_2_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_2_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$BE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a; | |
if((f < e)) | |
{ | |
var g = c; | |
h$l5(((e - f) | 0), (d + f), g, b, h$baseZCGHCziIOziFDzizdwfdWrite); | |
return h$ap_4_4_fast(); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
}; | |
return h$rs(); | |
}; | |
function h$$BD() | |
{ | |
var a = h$r1; | |
h$sp -= 5; | |
h$pp16(h$$BE); | |
return h$e(a); | |
}; | |
function h$$BC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a; | |
if((f < e)) | |
{ | |
var g = c; | |
h$l5(((e - f) | 0), (d + f), g, b, h$baseZCGHCziIOziFDzizdwfdWrite); | |
return h$ap_4_4_fast(); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
}; | |
return h$rs(); | |
}; | |
function h$$BB() | |
{ | |
var a = h$r1; | |
h$sp -= 5; | |
h$pp16(h$$BC); | |
return h$e(a); | |
}; | |
function h$$BA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = a; | |
if((f === (-1))) | |
{ | |
h$pp16(h$$BB); | |
h$l2(h$$Dq, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
if((f < e)) | |
{ | |
var g = c; | |
h$l5(((e - f) | 0), (d + f), g, b, h$baseZCGHCziIOziFDzizdwfdWrite); | |
return h$ap_4_4_fast(); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwfdWrite_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$r5; | |
var e = h$maskStatus(); | |
var f = e; | |
if((f === 1)) | |
{ | |
var g = d; | |
h$p5(a, b, c, d, h$$BA); | |
try | |
{ | |
var h; | |
var i = { mv: null | |
}; | |
h = h$mkForeignCallback(i); | |
h$base_write(a, b, c, g, h); | |
if((i.mv === null)) | |
{ | |
i.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(i.mv); | |
} | |
else | |
{ | |
var j = i.mv; | |
h$r1 = j[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_2_3) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_2_3); | |
}; | |
} | |
else | |
{ | |
h$p5(a, b, c, d, h$$BD); | |
return h$maskUnintAsync(h$c4(h$$BF, a, b, c, d)); | |
}; | |
return h$rs(); | |
}; | |
var h$$Dq = h$strta("GHC.IO.FD.fdWrite"); | |
var h$baseZCGHCziIOziFDzizdfIODeviceFD19 = h$strta("GHC.IO.FD.ready"); | |
function h$$BN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$BM() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$BL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$p1(h$$BM); | |
h$r1 = h$fdReady(b, 1, c, 0); | |
} | |
else | |
{ | |
h$p1(h$$BN); | |
h$r1 = h$fdReady(b, 0, c, 0); | |
}; | |
return h$rs(); | |
}; | |
function h$$BK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p3(a, b.d2, h$$BL); | |
return h$e(c); | |
}; | |
function h$$BJ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a) | |
{ | |
case (0): | |
h$r1 = false; | |
break; | |
case (1): | |
h$r1 = true; | |
break; | |
default: | |
return h$e(h$baseZCGHCziEnumzizdfEnumBool1); | |
}; | |
return h$rs(); | |
}; | |
function h$$BI() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$BJ); | |
return h$e(a); | |
}; | |
function h$$BH() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$$BI, a); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcready_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p1(h$$BH); | |
h$l4(h$c3(h$$BK, h$r2, h$r3, h$r4), a, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$BP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(a, b, c, h$baseZCGHCziIOziFDzizdwzdcready); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$BO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a.d1, h$$BP); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD18_e() | |
{ | |
h$p3(h$r3, h$r4, h$$BO); | |
return h$e(h$r2); | |
}; | |
function h$$BQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD17_e() | |
{ | |
h$p1(h$$BQ); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziFDzizdfIODeviceFD16 = h$strta("GHC.IO.FD.close"); | |
function h$$BT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$BS() | |
{ | |
var a = h$r1.d1; | |
h$p1(h$$BT); | |
try | |
{ | |
var b; | |
var c = { mv: null | |
}; | |
b = h$mkForeignCallback(c); | |
h$base_close(a, b); | |
if((c.mv === null)) | |
{ | |
c.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(c.mv); | |
} | |
else | |
{ | |
var d = c.mv; | |
h$r1 = d[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_43_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_43_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$BR() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcclose_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = h$unlockFile(h$r2); | |
h$p1(h$$BR); | |
h$l4(h$c1(h$$BS, e), a, c, d); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$BU() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$baseZCGHCziIOziFDzizdwzdcclose); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD15_e() | |
{ | |
h$p1(h$$BU); | |
return h$e(h$r2); | |
}; | |
function h$$BV() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$base_isatty(a.d1); | |
var c; | |
var d = b; | |
if((d === 0)) | |
{ | |
c = false; | |
} | |
else | |
{ | |
c = true; | |
}; | |
h$r1 = c; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD14_e() | |
{ | |
h$p1(h$$BV); | |
return h$e(h$r2); | |
}; | |
function h$$B1() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$B0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$B1); | |
return h$e(a); | |
}; | |
function h$$BZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a.f.a) | |
{ | |
case (3): | |
h$r1 = true; | |
break; | |
case (4): | |
h$r1 = true; | |
break; | |
default: | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$BY() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$BZ); | |
return h$e(a); | |
}; | |
function h$$BX() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$$BY, a.d1); | |
return h$rs(); | |
}; | |
function h$$BW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$BX); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD13_e() | |
{ | |
h$p1(h$$BW); | |
h$l2(h$c1(h$$B0, h$r2), h$r1.d1); | |
return h$ap_2_1_fast(); | |
}; | |
var h$baseZCGHCziIOziFDzizdfIODeviceFDzuloc2 = h$strta("seek"); | |
function h$$B8() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziIntziI64zh_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$B7() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziIntziI64zh_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$B6() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziIntziI64zh_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$B5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (a.f.a) | |
{ | |
case (1): | |
var e = h$base_SEEK_SET; | |
h$p1(h$$B8); | |
try | |
{ | |
var f; | |
var g = { mv: null | |
}; | |
f = h$mkForeignCallback(g); | |
h$base_lseek(b, c, d, e, f); | |
if((g.mv === null)) | |
{ | |
g.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(g.mv); | |
} | |
else | |
{ | |
var h = g.mv; | |
h$r1 = h[0]; | |
h$r2 = h[1]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_51_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_51_0); | |
}; | |
break; | |
case (2): | |
var i = h$base_SEEK_CUR; | |
h$p1(h$$B7); | |
try | |
{ | |
var j; | |
var k = { mv: null | |
}; | |
j = h$mkForeignCallback(k); | |
h$base_lseek(b, c, d, i, j); | |
if((k.mv === null)) | |
{ | |
k.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(k.mv); | |
} | |
else | |
{ | |
var l = k.mv; | |
h$r1 = l[0]; | |
h$r2 = l[1]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_51_3) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_51_3); | |
}; | |
break; | |
default: | |
var m = h$base_SEEK_END; | |
h$p1(h$$B6); | |
try | |
{ | |
var n; | |
var o = { mv: null | |
}; | |
n = h$mkForeignCallback(o); | |
h$base_lseek(b, c, d, m, n); | |
if((o.mv === null)) | |
{ | |
o.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(o.mv); | |
} | |
else | |
{ | |
var p = o.mv; | |
h$r1 = p[0]; | |
h$r2 = p[1]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_51_6) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_51_6); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$B4() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp14(a, b, h$$B5); | |
return h$e(c); | |
}; | |
function h$$B3() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p3(a, b.d1, h$$B4); | |
h$l2(b.d2, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt64); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$B2() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcseek_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p1(h$$B2); | |
h$l4(h$c3(h$$B3, h$r2, h$r3, h$r4), a, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$B9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(c, b, a.d1, h$baseZCGHCziIOziFDzizdwzdcseek); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD12_e() | |
{ | |
h$p3(h$r3, h$r4, h$$B9); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFDzuds_e() | |
{ | |
h$bh(); | |
var a = h$hs_negateInt64(0, 1); | |
h$r1 = h$c2(h$baseZCGHCziIntziI64zh_con_e, a, h$ret1); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFDzupred_e() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
var h$baseZCGHCziIOziFDzizdfIODeviceFD11 = h$strta("hGetPosn"); | |
function h$$Ce() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziIntziI64zh_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$Cd() | |
{ | |
var a = h$r1.d1; | |
var b = h$base_SEEK_CUR; | |
h$p1(h$$Ce); | |
try | |
{ | |
var c; | |
var d = { mv: null | |
}; | |
c = h$mkForeignCallback(d); | |
h$base_lseek(a, 0, 0, b, c); | |
if((d.mv === null)) | |
{ | |
d.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(d.mv); | |
} | |
else | |
{ | |
var e = d.mv; | |
h$r1 = e[0]; | |
h$r2 = e[1]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_57_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_57_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$Cc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$l3(a.d2, b, h$integerzmgmpZCGHCziIntegerziTypeziint64ToInteger); | |
return h$ap_1_2_fast(); | |
}; | |
function h$$Cb() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Cc); | |
return h$e(a); | |
}; | |
function h$$Ca() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$$Cb, a); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdctell_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$p1(h$$Ca); | |
h$l4(h$c1(h$$Cd, h$r2), a, b.d1, b.d2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$Cf() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a.d1, h$baseZCGHCziIOziFDzizdwzdctell); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD10_e() | |
{ | |
h$p1(h$$Cf); | |
return h$e(h$r2); | |
}; | |
function h$$Ch() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$Cg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Ch); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD9_e() | |
{ | |
h$l2(h$c1(h$$Cg, h$r2), h$r1.d1); | |
return h$ap_2_1_fast(); | |
}; | |
var h$baseZCGHCziIOziFDzizdfIODeviceFD8 = h$strta("GHC.IO.FD.setSize"); | |
function h$$Ck() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Cj() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === 0)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
h$p1(h$$Ck); | |
h$l2(h$baseZCGHCziIOziFDzizdfIODeviceFD8, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Ci() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p1(h$$Cj); | |
try | |
{ | |
var d; | |
var e = { mv: null | |
}; | |
d = h$mkForeignCallback(e); | |
h$base_ftruncate(c, a, b, d); | |
if((e.mv === null)) | |
{ | |
e.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(e.mv); | |
} | |
else | |
{ | |
var f = e.mv; | |
h$r1 = f[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_63_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_63_0); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwsetSizze_e() | |
{ | |
h$p2(h$r2, h$$Ci); | |
h$l2(h$r3, h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Cl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a.d1, h$baseZCGHCziIOziFDzizdwsetSizze); | |
return h$ap_3_2_fast(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD7_e() | |
{ | |
h$p2(h$r3, h$$Cl); | |
return h$e(h$r2); | |
}; | |
function h$$Cn() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$Cm() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Cn); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD6_e() | |
{ | |
h$l2(h$c1(h$$Cm, h$r2), h$r1.d1); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$Cp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$Co() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Cp); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD5_e() | |
{ | |
h$l3(h$r1.d1, h$c1(h$$Co, h$r2), h$r1.d2); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$Ct() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$$Cs() | |
{ | |
h$p1(h$$Ct); | |
return h$e(h$r1.d1); | |
}; | |
function h$$Cr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$Cq() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Cr); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD4_e() | |
{ | |
h$l3(h$c1(h$$Cs, h$r3), h$c1(h$$Cq, h$r2), h$r1.d1); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$Cx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$Cw() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Cx); | |
return h$e(a); | |
}; | |
function h$$Cv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$rs(); | |
}; | |
function h$$Cu() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Cv); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD3_e() | |
{ | |
h$p1(h$$Cu); | |
h$l2(h$c1(h$$Cw, h$r2), h$r1.d1); | |
return h$ap_2_1_fast(); | |
}; | |
var h$baseZCGHCziIOziFDzizdfIODeviceFDzuloc1 = h$strta("GHC.IO.FD.dup"); | |
function h$$CB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$baseZCGHCziIOziFDziFD_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$CA() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$CB); | |
return h$e(b); | |
}; | |
function h$$Cz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$$CA, b, a); | |
return h$rs(); | |
}; | |
function h$$Cy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c === (-1))) | |
{ | |
h$pp2(h$$Cz); | |
h$l2(h$baseZCGHCziIOziFDzizdfIODeviceFDzuloc1, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIOziFDziFD_con_e, c, b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcdup_e() | |
{ | |
var a = h$r2; | |
h$p2(h$r3, h$$Cy); | |
try | |
{ | |
var b; | |
var c = { mv: null | |
}; | |
b = h$mkForeignCallback(c); | |
h$base_dup(a, b); | |
if((c.mv === null)) | |
{ | |
c.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(c.mv); | |
} | |
else | |
{ | |
var d = c.mv; | |
h$r1 = d[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_73_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_73_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$CC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$l3(a.d2, b, h$baseZCGHCziIOziFDzizdwzdcdup); | |
return h$ap_3_2_fast(); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD2_e() | |
{ | |
h$p1(h$$CC); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziFDzizdfIODeviceFDzuloc = h$strta("GHC.IO.FD.dup2"); | |
function h$$CE() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$r1 = h$c2(h$baseZCGHCziIOziFDziFD_con_e, b, a); | |
return h$rs(); | |
}; | |
function h$$CD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d === (-1))) | |
{ | |
h$pp4(h$$CE); | |
h$l2(h$baseZCGHCziIOziFDzizdfIODeviceFDzuloc, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIOziFDziFD_con_e, c, b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcdup2_e() | |
{ | |
var a = h$r2; | |
var b = h$r4; | |
h$p3(h$r3, h$r4, h$$CD); | |
try | |
{ | |
var c; | |
var d = { mv: null | |
}; | |
c = h$mkForeignCallback(d); | |
h$base_dup2(a, b, c); | |
if((d.mv === null)) | |
{ | |
d.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(d.mv); | |
} | |
else | |
{ | |
var e = d.mv; | |
h$r1 = e[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_77_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_77_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$CG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(a.d1, c, b, h$baseZCGHCziIOziFDzizdwzdcdup2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$CF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$CG); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdfIODeviceFD1_e() | |
{ | |
h$p2(h$r3, h$$CF); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziFDzizdfBufferedIOFD13_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r3; | |
var c = new h$MutVar(a); | |
var d = h$newByteArray(8096); | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, d, 0, h$c2(h$baseZCGHCziForeignPtrziMallocPtr_con_e, d, c), b, 8096, | |
0, 0); | |
return h$rs(); | |
}; | |
var h$baseZCGHCziIOziFDzizdfBufferedIOFD12 = h$strta("GHC.IO.FD.fdRead"); | |
function h$$CT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$l2(h$baseZCGHCziIOziFDzizdfBufferedIOFD12, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$CS() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = ((e - f) | 0); | |
var h; | |
var i; | |
h = c; | |
i = (d + f); | |
h$p1(h$$CT); | |
try | |
{ | |
var j; | |
var k = { mv: null | |
}; | |
j = h$mkForeignCallback(k); | |
h$base_read(a, h, i, g, j); | |
if((k.mv === null)) | |
{ | |
k.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(k.mv); | |
} | |
else | |
{ | |
var l = k.mv; | |
h$r1 = l[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_83_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_83_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$CR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$CQ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$CR); | |
return h$e(a); | |
}; | |
function h$$CP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, g, ((h + i) | 0)); | |
return h$rs(); | |
}; | |
function h$$CO() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
h$bh(); | |
h$p8(a, c, d, e, f, g, b.d6, h$$CP); | |
return h$e(b.d7); | |
}; | |
function h$$CN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = h$c1(h$$CQ, a); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, i, h$c8(h$$CO, b, c, d, e, f, g, h, i)); | |
return h$rs(); | |
}; | |
function h$$CM() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$CL() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$CM); | |
return h$e(a); | |
}; | |
function h$$CK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, g, ((h + i) | 0)); | |
return h$rs(); | |
}; | |
function h$$CJ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
h$bh(); | |
h$p8(a, c, d, e, f, g, b.d6, h$$CK); | |
return h$e(b.d7); | |
}; | |
function h$$CI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = h$c1(h$$CL, a); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, i, h$c8(h$$CJ, b, c, d, e, f, g, h, i)); | |
return h$rs(); | |
}; | |
function h$$CH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a; | |
if((i === (-1))) | |
{ | |
h$pp128(h$$CI); | |
h$l2(h$baseZCGHCziIOziFDzizdfBufferedIOFD12, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, i, h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, g, | |
((h + i) | 0))); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcfillReadBuffer_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$r5; | |
var e = h$r6; | |
var f = h$r7; | |
var g = h$r8; | |
var h = h$r9; | |
var i = h$maskStatus(); | |
var j = i; | |
if((j === 1)) | |
{ | |
var k = ((f - h) | 0); | |
var l; | |
var m; | |
l = b; | |
m = (c + h); | |
h$p8(b, c, d, e, f, g, h, h$$CH); | |
try | |
{ | |
var n; | |
var o = { mv: null | |
}; | |
n = h$mkForeignCallback(o); | |
h$base_read(a, l, m, k, n); | |
if((o.mv === null)) | |
{ | |
o.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(o.mv); | |
} | |
else | |
{ | |
var p = o.mv; | |
h$r1 = p[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_83_3) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_83_3); | |
}; | |
} | |
else | |
{ | |
h$p8(b, c, d, e, f, g, h, h$$CN); | |
return h$maskUnintAsync(h$c5(h$$CS, a, b, c, f, h)); | |
}; | |
return h$rs(); | |
}; | |
function h$$CV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
h$l9(d.d6, i, h, g, f, e, c, b, h$baseZCGHCziIOziFDzizdwzdcfillReadBuffer); | |
return h$ap_gen_fast(2056); | |
}; | |
function h$$CU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a.d1, h$$CV); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdfBufferedIOFD11_e() | |
{ | |
h$p2(h$r3, h$$CU); | |
return h$e(h$r2); | |
}; | |
function h$$CZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
switch (a) | |
{ | |
case ((-1)): | |
h$r1 = h$baseZCGHCziIOziFDzizdfBufferedIOFD2; | |
break; | |
case (0): | |
h$r1 = h$baseZCGHCziIOziFDzizdfBufferedIOFD10; | |
break; | |
default: | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$CY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$CZ); | |
return h$e(a); | |
}; | |
function h$$CX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a) | |
{ | |
case ((-1)): | |
h$p1(h$$CY); | |
h$l2(b, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
case (0): | |
h$r1 = h$baseZCGHCziIOziFDzizdfBufferedIOFD10; | |
break; | |
default: | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$CW() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
var h; | |
var i; | |
h = d; | |
i = (e + f); | |
h$p2(a, h$$CX); | |
try | |
{ | |
var j; | |
var k = { mv: null | |
}; | |
j = h$mkForeignCallback(k); | |
h$base_read(c, h, i, g, j); | |
if((k.mv === null)) | |
{ | |
k.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(k.mv); | |
} | |
else | |
{ | |
var l = k.mv; | |
h$r1 = l[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_87_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_87_0); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwreadRawBufferPtrNoBlock_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$r5; | |
var e = h$r6; | |
var f = h$r7; | |
var g = h$maskStatus(); | |
var h = h$c6(h$$CW, a, b, c, d, e, f); | |
var i = g; | |
if((i === 1)) | |
{ | |
h$r1 = h; | |
return h$ap_1_0_fast(); | |
} | |
else | |
{ | |
return h$maskUnintAsync(h); | |
}; | |
}; | |
var h$baseZCGHCziIOziFDzizdfBufferedIOFD9 = h$strta("GHC.IO.FD.fdReadNonBlocking"); | |
function h$$C1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a; | |
if((i === (-1))) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$baseZCGHCziBaseziNothing, | |
h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, g, h)); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c1(h$baseZCGHCziBaseziJust_con_e, a), | |
h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, g, ((h + i) | 0))); | |
}; | |
return h$rs(); | |
}; | |
function h$$C0() | |
{ | |
var a = h$r1; | |
h$sp -= 8; | |
h$pp128(h$$C1); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcfillReadBuffer0_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r4; | |
var e = h$r7; | |
var f = h$r9; | |
var g = h$r3; | |
h$p8(h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9, h$$C0); | |
h$l7(((e - f) | 0), 0, (d + f), g, c, a, b); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$$C3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
h$l9(d.d6, i, h, g, f, e, c, b, h$baseZCGHCziIOziFDzizdwzdcfillReadBuffer0); | |
return h$ap_gen_fast(2056); | |
}; | |
function h$$C2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a.d1, h$$C3); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdfBufferedIOFD8_e() | |
{ | |
h$p2(h$r3, h$$C2); | |
return h$e(h$r2); | |
}; | |
function h$$C5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, d, e, h$baseZCGHCziIOziBufferziWriteBuffer, c.d4, 0, 0); | |
return h$rs(); | |
}; | |
function h$$C4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$C5); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziFDzizdfBufferedIOFD7_e() | |
{ | |
h$r1 = h$c1(h$$C4, h$r3); | |
return h$rs(); | |
}; | |
function h$$C8() | |
{ | |
var a = h$stack[(h$sp - 5)]; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, 0, 0); | |
return h$rs(); | |
}; | |
function h$$C7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var f = a.d1; | |
var g = b; | |
h$pp32(h$$C8); | |
h$l5(((e - d) | 0), (c + d), g, f, h$baseZCGHCziIOziFDzizdwfdWrite); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$C6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
h$p8(c, e, f, g, h, i, d.d6, h$$C7); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdfBufferedIOFD5_e() | |
{ | |
h$p2(h$r2, h$$C6); | |
return h$e(h$r3); | |
}; | |
var h$baseZCGHCziIOziFDzizdfBufferedIOFD4 = h$strta("GHC.IO.FD.fdWriteNonBlocking"); | |
function h$$Di() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$r1 = h$baseZCGHCziIOziFDzizdfBufferedIOFD3; | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$Dh() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Di); | |
return h$e(a); | |
}; | |
function h$$Dg() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$p1(h$$Dh); | |
h$l2(h$baseZCGHCziIOziFDzizdfBufferedIOFD4, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$Df() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$p1(h$$Dg); | |
try | |
{ | |
var f; | |
var g = { mv: null | |
}; | |
f = h$mkForeignCallback(g); | |
h$base_write(a, c, d, e, f); | |
if((g.mv === null)) | |
{ | |
g.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(g.mv); | |
} | |
else | |
{ | |
var h = g.mv; | |
h$r1 = h[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_100_0) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_100_0); | |
}; | |
return h$rs(); | |
}; | |
function h$$De() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Dd() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$De); | |
return h$e(a); | |
}; | |
function h$$Dc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$$Dd, a); | |
return h$rs(); | |
}; | |
function h$$Db() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$r1 = h$baseZCGHCziIOziFDzizdfBufferedIOFD2; | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$$Da() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Db); | |
return h$e(a); | |
}; | |
function h$$C9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
h$p1(h$$Da); | |
h$l2(h$baseZCGHCziIOziFDzizdfBufferedIOFD4, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = b; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcwriteNonBlocking_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$r5; | |
var e = h$maskStatus(); | |
var f = e; | |
if((f === 1)) | |
{ | |
var g = d; | |
h$p1(h$$C9); | |
try | |
{ | |
var h; | |
var i = { mv: null | |
}; | |
h = h$mkForeignCallback(i); | |
h$base_write(a, b, c, g, h); | |
if((i.mv === null)) | |
{ | |
i.mv = new h$MVar(); | |
++h$sp; | |
h$stack[h$sp] = h$unboxFFIResult; | |
return h$takeMVar(i.mv); | |
} | |
else | |
{ | |
var j = i.mv; | |
h$r1 = j[0]; | |
}; | |
} | |
catch(h$GHCziIOziFD_id_100_3) | |
{ | |
return h$throwJSException(h$GHCziIOziFD_id_100_3); | |
}; | |
} | |
else | |
{ | |
h$p1(h$$Dc); | |
return h$maskUnintAsync(h$c4(h$$Df, a, b, c, d)); | |
}; | |
return h$rs(); | |
}; | |
function h$$Dl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a; | |
var j = ((g + i) | 0); | |
if((j === h)) | |
{ | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, 0, 0); | |
} | |
else | |
{ | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, d, e, f, j, h); | |
}; | |
return h$rs(); | |
}; | |
function h$$Dk() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
h$bh(); | |
h$p8(a, c, d, e, f, g, b.d6, h$$Dl); | |
return h$e(b.d7); | |
}; | |
function h$$Dj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a, h$c8(h$$Dk, b, c, d, e, f, g, h, a)); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDzizdwzdcflushWriteBuffer0_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r4; | |
var d = h$r8; | |
var e = h$r9; | |
var f = h$r3; | |
h$p8(h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9, h$$Dj); | |
h$l5(((e - d) | 0), (c + d), f, b, a); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$Dn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
h$l9(d.d6, i, h, g, f, e, c, b, h$baseZCGHCziIOziFDzizdwzdcflushWriteBuffer0); | |
return h$ap_gen_fast(2056); | |
}; | |
function h$$Dm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a.d1, h$$Dn); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdfBufferedIOFD1_e() | |
{ | |
h$p2(h$r3, h$$Dm); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziFDziFD_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziFDziFD_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziIOziFDziFD_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$Dp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$baseZCGHCziIOziFDziFD_con_e, b, a); | |
return h$rs(); | |
}; | |
function h$$Do() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Dp); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziFDzizdWFD_e() | |
{ | |
h$p2(h$r3, h$$Do); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVarzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTMzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionIOExceptionzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
var h$$Ep = h$strta("already exists"); | |
var h$$Eq = h$strta("does not exist"); | |
var h$$Er = h$strta("resource busy"); | |
var h$$Es = h$strta("resource exhausted"); | |
var h$$Et = h$strta("end of file"); | |
var h$$Eu = h$strta("illegal operation"); | |
var h$$Ev = h$strta("permission denied"); | |
var h$$Ew = h$strta("user error"); | |
var h$$Ex = h$strta("unsatisfied constraints"); | |
var h$$Ey = h$strta("system error"); | |
var h$$Ez = h$strta("protocol error"); | |
var h$$EA = h$strta("failed"); | |
var h$$EB = h$strta("invalid argument"); | |
var h$$EC = h$strta("inappropriate type"); | |
var h$$ED = h$strta("hardware fault"); | |
var h$$EE = h$strta("unsupported operation"); | |
var h$$EF = h$strta("timeout"); | |
var h$$EG = h$strta("resource vanished"); | |
var h$$EH = h$strta("interrupted"); | |
function h$$Dr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === 124)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
h$r1 = true; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziuntangle2_e() | |
{ | |
h$p1(h$$Dr); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziExceptionziassertError1 = h$strta("\n"); | |
function h$$Ds() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
h$l7(b, d.d5, g, f, e, c, h$baseZCGHCziIOziExceptionzizdwzdcshowsPrec2); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdszddmshow9_e() | |
{ | |
h$p2(h$r3, h$$Ds); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowIOExceptionzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Du() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, h$baseZCGHCziIOziExceptionzizdtcIOException, | |
h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$Dt() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Du); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionzizdfExceptionIOException5, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionIOException4_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Dt); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionIOException3_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$Dw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$baseZCGHCziIOziExceptionzizdfExceptionIOException3, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Dv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$Dw); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionIOExceptionzuzdcfromException_e() | |
{ | |
h$p1(h$$Dv); | |
return h$e(h$r2); | |
}; | |
function h$$Dx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$l3(b, h$$Ep, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (2): | |
h$l3(b, h$$Eq, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (3): | |
h$l3(b, h$$Er, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (4): | |
h$l3(b, h$$Es, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (5): | |
h$l3(b, h$$Et, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (6): | |
h$l3(b, h$$Eu, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (7): | |
h$l3(b, h$$Ev, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (8): | |
h$l3(b, h$$Ew, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (9): | |
h$l3(b, h$$Ex, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (10): | |
h$l3(b, h$$Ey, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (11): | |
h$l3(b, h$$Ez, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (12): | |
h$l3(b, h$$EA, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (13): | |
h$l3(b, h$$EB, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (14): | |
h$l3(b, h$$EC, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (15): | |
h$l3(b, h$$ED, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (16): | |
h$l3(b, h$$EE, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (17): | |
h$l3(b, h$$EF, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (18): | |
h$l3(b, h$$EG, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
default: | |
h$l3(b, h$$EH, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziIOziExceptionzizdwzdcshowsPrec3_e() | |
{ | |
h$p2(h$r3, h$$Dx); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziExceptionzizdfExceptionIOException2 = h$strta(" ("); | |
var h$baseZCGHCziIOziExceptionzizdfExceptionIOException1 = h$strta(")"); | |
function h$$DP() | |
{ | |
h$l3(h$r1.d1, h$baseZCGHCziIOziExceptionzizdfExceptionIOException1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DO() | |
{ | |
h$l3(h$c1(h$$DP, h$r1.d1), h$r1.d2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$l3(h$c2(h$$DO, b, a), h$baseZCGHCziIOziExceptionzizdfExceptionIOException2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$DM() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$r1.d2, h$$DN); | |
return h$e(a); | |
}; | |
function h$$DL() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l3(h$c2(h$$DM, c, b.d2), a, h$baseZCGHCziIOziExceptionzizdwzdcshowsPrec3); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DK() | |
{ | |
h$l3(h$r1.d1, h$baseZCGHCziIOziExceptionzizdfExceptionArrayException2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$l3(h$c1(h$$DK, b), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$DI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$p2(h$c3(h$$DL, a, d, b.d3), h$$DJ); | |
return h$e(c); | |
}; | |
function h$$DH() | |
{ | |
h$l3(h$r1.d1, h$baseZCGHCziIOziExceptionzizdfExceptionArrayException2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DG() | |
{ | |
h$l3(h$c1(h$$DH, h$r1.d1), h$baseZCGHCziIOziHandleziTypeszishowHandle1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DF() | |
{ | |
h$l3(h$c1(h$$DG, h$r1.d1), h$r1.d2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DE() | |
{ | |
h$l3(h$r1.d1, h$baseZCGHCziIOziExceptionzizdfExceptionArrayException2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DD() | |
{ | |
h$l3(h$c1(h$$DE, h$r1.d1), h$baseZCGHCziIOziHandleziTypeszishowHandle1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DC() | |
{ | |
h$l3(h$c1(h$$DD, h$r1.d1), h$r1.d2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$l3(h$c2(h$$DF, b, a.d1), h$baseZCGHCziIOziHandleziTypeszishowHandle2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3(h$c2(h$$DC, b, a.d1), h$baseZCGHCziIOziHandleziTypeszishowHandle2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$DA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp2(h$$DB); | |
return h$e(a.d1); | |
}; | |
}; | |
function h$$Dz() | |
{ | |
h$l3(h$r1.d1, h$baseZCGHCziIOziExceptionzizdfExceptionArrayException2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Dy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$p2(c, h$$DA); | |
return h$e(b); | |
} | |
else | |
{ | |
h$l3(h$c1(h$$Dz, c), a.d1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziIOziExceptionzizdwzdcshowsPrec2_e() | |
{ | |
h$p3(h$r2, h$c4(h$$DI, h$r3, h$r4, h$r5, h$r7), h$$Dy); | |
return h$e(h$r6); | |
}; | |
function h$$DQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
h$l7(b, d.d5, g, f, e, c, h$baseZCGHCziIOziExceptionzizdwzdcshowsPrec2); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionIOExceptionzuzdcshowsPrec_e() | |
{ | |
h$p2(h$r4, h$$DQ); | |
return h$e(h$r3); | |
}; | |
function h$$DR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d3; | |
h$l7(h$ghczmprimZCGHCziTypesziZMZN, c.d5, f, e, d, b, h$baseZCGHCziIOziExceptionzizdwzdcshowsPrec2); | |
return h$ap_gen_fast(1542); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionIOExceptionzuzdcshow_e() | |
{ | |
h$p1(h$$DR); | |
return h$e(h$r2); | |
}; | |
function h$$DT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, h$baseZCGHCziIOziExceptionzizdtcExitCode, | |
h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$DS() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$DT); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionzizdfExceptionExitCode5, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionExitCode4_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$DS); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$DU() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowBlockedIndefinitelyOnSTMzuzdcshowsPrec_e() | |
{ | |
h$p2(h$r4, h$$DU); | |
return h$e(h$r3); | |
}; | |
function h$$DV() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowBlockedIndefinitelyOnSTM1_e() | |
{ | |
h$p2(h$r3, h$$DV); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowBlockedIndefinitelyOnSTMzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$DX() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, | |
h$baseZCGHCziIOziExceptionzizdtcBlockedIndefinitelyOnSTM, h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$DW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$DX); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM4, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$DW); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM2_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$DZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM2, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$DY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$DZ); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTMzuzdcfromException_e() | |
{ | |
h$p1(h$$DY); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM1 = h$strta("thread blocked indefinitely in an STM transaction"); | |
function h$$D0() | |
{ | |
--h$sp; | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM1); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTMzuzdcshow_e() | |
{ | |
h$p1(h$$D0); | |
return h$e(h$r2); | |
}; | |
function h$$D1() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowBlockedIndefinitelyOnMVarzuzdcshowsPrec_e() | |
{ | |
h$p2(h$r4, h$$D1); | |
return h$e(h$r3); | |
}; | |
function h$$D2() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(a, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowBlockedIndefinitelyOnMVar1_e() | |
{ | |
h$p2(h$r3, h$$D2); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfShowBlockedIndefinitelyOnMVarzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$D4() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, | |
h$baseZCGHCziIOziExceptionzizdtcBlockedIndefinitelyOnMVar, h$ghczmprimZCGHCziTypesziZMZN, | |
h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$D3() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$D4); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar4, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$D3); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar2_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$D6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar2, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$D5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$D6); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVarzuzdcfromException_e() | |
{ | |
h$p1(h$$D5); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar1 = h$strta("thread blocked indefinitely in an MVar operation"); | |
function h$$D7() | |
{ | |
--h$sp; | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar1); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVarzuzdcshow_e() | |
{ | |
h$p1(h$$D7); | |
return h$e(h$r2); | |
}; | |
function h$$D9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, | |
h$baseZCGHCziIOziExceptionzizdtcAsyncException, h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$D8() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$D9); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionzizdfExceptionAsyncException7, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionAsyncException6_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$D8); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionAsyncException5_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$Ee() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$baseZCGHCziIOziExceptionzizdfExceptionAsyncException5, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Ed() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$Ee); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Ec() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(c, d, g, i)) | |
{ | |
if(h$hs_eqWord64(e, f, j, h.d3)) | |
{ | |
h$p1(h$$Ed); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
}; | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
}; | |
return h$rs(); | |
}; | |
function h$$Eb() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$pp62(b, d, e, c.d3, h$$Ec); | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionAllocationLimitExceeded5); | |
}; | |
function h$$Ea() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$Eb); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionAsyncExceptionzuzdcfromException_e() | |
{ | |
h$p1(h$$Ea); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziIOziExceptionzizdfExceptionArrayException2 = h$strta(": "); | |
function h$$Eg() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, | |
h$baseZCGHCziIOziExceptionzizdtcSomeAsyncException, h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$Ef() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Eg); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionzizdfExceptionAllocationLimitExceeded6, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfExceptionAllocationLimitExceeded5_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Ef); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionziIOError_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziIOError_e() | |
{ | |
h$r1 = h$c6(h$baseZCGHCziIOziExceptionziIOError_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziInterrupted_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziResourceVanished_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziTimeExpired_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziUnsupportedOperation_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziHardwareFault_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziInappropriateType_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziInvalidArgument_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziOtherError_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziProtocolError_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziUnsatisfiedConstraints_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziUserError_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziPermissionDenied_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziIllegalOperation_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziResourceExhausted_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziResourceBusy_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziNoSuchThing_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziAlreadyExists_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziBlockedIndefinitelyOnSTM_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziExceptionziBlockedIndefinitelyOnMVar_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Eo() | |
{ | |
h$l3(h$baseZCGHCziIOziExceptionziassertError1, h$r1.d1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$En() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c1(h$$Eo, b), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$baseZCGHCziIOziException_eu = h$str(": "); | |
function h$$Em() | |
{ | |
var a = h$r1.d1; | |
h$r4 = h$c2(h$$En, a, h$r1.d2); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziIOziException_eu(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$El() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(h$c2(h$$Em, a, h$r2), h$r1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ek() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
--h$sp; | |
var d = a; | |
if((d === 124)) | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziIOziExceptionziuntangle1, c), b); | |
++h$sp; | |
++h$sp; | |
return h$$El; | |
} | |
else | |
{ | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, b); | |
++h$sp; | |
++h$sp; | |
return h$$El; | |
}; | |
}; | |
function h$$Ej() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$l2(h$ghczmprimZCGHCziTypesziZMZN, b); | |
++h$sp; | |
++h$sp; | |
return h$$El; | |
} | |
else | |
{ | |
var c = a.d1; | |
var d = a.d2; | |
++h$sp; | |
h$pp6(d, h$$Ek); | |
return h$e(c); | |
}; | |
}; | |
function h$$Ei() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
h$sp -= 2; | |
var c = a; | |
var d = b; | |
++h$sp; | |
h$p2(c, h$$Ej); | |
return h$e(d); | |
}; | |
function h$$Eh() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$Ei); | |
h$l3(a, h$baseZCGHCziIOziExceptionziuntangle2, h$baseZCGHCziListzizdwspan); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionziuntangle_e() | |
{ | |
h$p2(h$r4, h$$Eh); | |
h$r1 = h$r1.d1; | |
return h$ap_1_2_fast(); | |
}; | |
function h$baseZCGHCziIOziExceptionzizdfxExceptionIOException_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziExceptionziuserError_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$r1 = h$c6(h$baseZCGHCziIOziExceptionziIOError_con_e, d, a, c, h$r2, d, d); | |
return h$rs(); | |
}; | |
function h$$EJ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d5; | |
var f = b.dv.getUint32((d + (e << 2)), true); | |
h$r1 = h$baseZCGHCziIOziEncodingziFailurezizdwfail; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$EI() | |
{ | |
h$p1(h$$EJ); | |
return h$e(h$r2); | |
}; | |
function h$$EK() | |
{ | |
return h$throw(h$r1.d1, false); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8ziutf2_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8ziutf1_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
var h$baseZCGHCziIOziEncodingziUTF8zimkUTF5 = h$strta("UTF-8"); | |
function h$$E0() | |
{ | |
var a = h$stack[(h$sp - 19)]; | |
var b = h$stack[(h$sp - 18)]; | |
var c = h$stack[(h$sp - 17)]; | |
var d = h$stack[(h$sp - 16)]; | |
var e = h$stack[(h$sp - 15)]; | |
var f = h$stack[(h$sp - 14)]; | |
var g = h$stack[(h$sp - 13)]; | |
var h = h$stack[(h$sp - 12)]; | |
var i = h$stack[(h$sp - 11)]; | |
var j = h$stack[(h$sp - 10)]; | |
var k = h$stack[(h$sp - 9)]; | |
var l = h$stack[(h$sp - 8)]; | |
var m = h$stack[(h$sp - 7)]; | |
var n = h$stack[(h$sp - 6)]; | |
var o = h$stack[(h$sp - 5)]; | |
var p = h$stack[(h$sp - 4)]; | |
var q = h$stack[(h$sp - 3)]; | |
var r = h$stack[(h$sp - 2)]; | |
var s = h$stack[(h$sp - 1)]; | |
h$sp -= 20; | |
var t = p; | |
if((t === 244)) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 71) || (((q >>> 1) == 71) && ((q & 1) <= 1)))) | |
{ | |
if((((r >>> 1) > 64) || (((r >>> 1) == 64) && ((r & 1) >= 0)))) | |
{ | |
if((((r >>> 1) < 95) || (((r >>> 1) == 95) && ((r & 1) <= 1)))) | |
{ | |
if((((s >>> 1) > 64) || (((s >>> 1) == 64) && ((s & 1) >= 0)))) | |
{ | |
if((((s >>> 1) < 95) || (((s >>> 1) == 95) && ((s & 1) <= 1)))) | |
{ | |
var u = s; | |
var v = ((u - 128) | 0); | |
var w = r; | |
var x = ((w - 128) | 0); | |
var y = (x << 6); | |
var z = q; | |
var A = ((z - 128) | 0); | |
var B = (A << 12); | |
var C = ((1048576 + B) | 0); | |
var D = ((C + y) | 0); | |
var E = ((D + v) | 0); | |
g.dv.setUint32((h + (o << 2)), E, true); | |
h$l2(((o + 1) | 0), ((n + 4) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
var F = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var G; | |
if((n === f)) | |
{ | |
G = m; | |
} | |
else | |
{ | |
G = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, G, F); | |
}; | |
} | |
else | |
{ | |
var H = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var I; | |
if((n === f)) | |
{ | |
I = m; | |
} | |
else | |
{ | |
I = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, I, H); | |
}; | |
} | |
else | |
{ | |
var J = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var K; | |
if((n === f)) | |
{ | |
K = m; | |
} | |
else | |
{ | |
K = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, K, J); | |
}; | |
} | |
else | |
{ | |
var L = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var M; | |
if((n === f)) | |
{ | |
M = m; | |
} | |
else | |
{ | |
M = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, M, L); | |
}; | |
} | |
else | |
{ | |
var N = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var O; | |
if((n === f)) | |
{ | |
O = m; | |
} | |
else | |
{ | |
O = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, O, N); | |
}; | |
} | |
else | |
{ | |
var P = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var Q; | |
if((n === f)) | |
{ | |
Q = m; | |
} | |
else | |
{ | |
Q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, Q, P); | |
}; | |
} | |
else | |
{ | |
var R = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var S; | |
if((n === f)) | |
{ | |
S = m; | |
} | |
else | |
{ | |
S = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, S, R); | |
}; | |
return h$rs(); | |
}; | |
function h$$EZ() | |
{ | |
var a = h$stack[(h$sp - 13)]; | |
var b = h$stack[(h$sp - 12)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 20; | |
if((((e >>> 1) > 120) || (((e >>> 1) == 120) && ((e & 1) >= 1)))) | |
{ | |
if((((e >>> 1) < 121) || (((e >>> 1) == 121) && ((e & 1) <= 1)))) | |
{ | |
if((((f >>> 1) > 64) || (((f >>> 1) == 64) && ((f & 1) >= 0)))) | |
{ | |
if((((f >>> 1) < 95) || (((f >>> 1) == 95) && ((f & 1) <= 1)))) | |
{ | |
if((((g >>> 1) > 64) || (((g >>> 1) == 64) && ((g & 1) >= 0)))) | |
{ | |
if((((g >>> 1) < 95) || (((g >>> 1) == 95) && ((g & 1) <= 1)))) | |
{ | |
if((((h >>> 1) > 64) || (((h >>> 1) == 64) && ((h & 1) >= 0)))) | |
{ | |
if((((h >>> 1) < 95) || (((h >>> 1) == 95) && ((h & 1) <= 1)))) | |
{ | |
var i = h; | |
var j = ((i - 128) | 0); | |
var k = g; | |
var l = ((k - 128) | 0); | |
var m = (l << 6); | |
var n = f; | |
var o = ((n - 128) | 0); | |
var p = (o << 12); | |
var q = e; | |
var r = ((q - 240) | 0); | |
var s = (r << 18); | |
var t = ((s + p) | 0); | |
var u = ((t + m) | 0); | |
var v = ((u + j) | 0); | |
a.dv.setUint32((b + (d << 2)), v, true); | |
h$l2(((d + 1) | 0), ((c + 4) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
++h$sp; | |
return h$$E0; | |
}; | |
}; | |
function h$$EY() | |
{ | |
var a = h$stack[(h$sp - 17)]; | |
var b = h$stack[(h$sp - 16)]; | |
var c = h$stack[(h$sp - 15)]; | |
var d = h$stack[(h$sp - 14)]; | |
var e = h$stack[(h$sp - 13)]; | |
var f = h$stack[(h$sp - 12)]; | |
var g = h$stack[(h$sp - 11)]; | |
var h = h$stack[(h$sp - 10)]; | |
var i = h$stack[(h$sp - 9)]; | |
var j = h$stack[(h$sp - 8)]; | |
var k = h$stack[(h$sp - 7)]; | |
var l = h$stack[(h$sp - 6)]; | |
var m = h$stack[(h$sp - 5)]; | |
var n = h$stack[(h$sp - 4)]; | |
var o = h$stack[(h$sp - 3)]; | |
var p = h$stack[(h$sp - 2)]; | |
var q = h$stack[(h$sp - 1)]; | |
h$sp -= 18; | |
var r = p; | |
if((r === 244)) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 71) || (((q >>> 1) == 71) && ((q & 1) <= 1)))) | |
{ | |
var s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var t; | |
if((n === f)) | |
{ | |
t = m; | |
} | |
else | |
{ | |
t = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, t, s); | |
} | |
else | |
{ | |
var u = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var v; | |
if((n === f)) | |
{ | |
v = m; | |
} | |
else | |
{ | |
v = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, v, u); | |
}; | |
} | |
else | |
{ | |
var w = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var x; | |
if((n === f)) | |
{ | |
x = m; | |
} | |
else | |
{ | |
x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, x, w); | |
}; | |
} | |
else | |
{ | |
var y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var z; | |
if((n === f)) | |
{ | |
z = m; | |
} | |
else | |
{ | |
z = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, z, y); | |
}; | |
return h$rs(); | |
}; | |
function h$$EX() | |
{ | |
var a = h$stack[(h$sp - 17)]; | |
var b = h$stack[(h$sp - 16)]; | |
var c = h$stack[(h$sp - 15)]; | |
var d = h$stack[(h$sp - 14)]; | |
var e = h$stack[(h$sp - 13)]; | |
var f = h$stack[(h$sp - 12)]; | |
var g = h$stack[(h$sp - 11)]; | |
var h = h$stack[(h$sp - 10)]; | |
var i = h$stack[(h$sp - 9)]; | |
var j = h$stack[(h$sp - 8)]; | |
var k = h$stack[(h$sp - 7)]; | |
var l = h$stack[(h$sp - 6)]; | |
var m = h$stack[(h$sp - 5)]; | |
var n = h$stack[(h$sp - 4)]; | |
var o = h$stack[(h$sp - 3)]; | |
var p = h$stack[(h$sp - 2)]; | |
var q = h$stack[(h$sp - 1)]; | |
h$sp -= 18; | |
if((((p >>> 1) > 120) || (((p >>> 1) == 120) && ((p & 1) >= 1)))) | |
{ | |
if((((p >>> 1) < 121) || (((p >>> 1) == 121) && ((p & 1) <= 1)))) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 95) || (((q >>> 1) == 95) && ((q & 1) <= 1)))) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, s, r); | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EY; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EY; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EY; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EY; | |
}; | |
return h$rs(); | |
}; | |
function h$$EW() | |
{ | |
var a = h$stack[(h$sp - 18)]; | |
var b = h$stack[(h$sp - 17)]; | |
var c = h$stack[(h$sp - 16)]; | |
var d = h$stack[(h$sp - 15)]; | |
var e = h$stack[(h$sp - 14)]; | |
var f = h$stack[(h$sp - 13)]; | |
var g = h$stack[(h$sp - 12)]; | |
var h = h$stack[(h$sp - 11)]; | |
var i = h$stack[(h$sp - 10)]; | |
var j = h$stack[(h$sp - 9)]; | |
var k = h$stack[(h$sp - 8)]; | |
var l = h$stack[(h$sp - 7)]; | |
var m = h$stack[(h$sp - 6)]; | |
var n = h$stack[(h$sp - 5)]; | |
var o = h$stack[(h$sp - 4)]; | |
var p = h$stack[(h$sp - 3)]; | |
var q = h$stack[(h$sp - 2)]; | |
var r = h$stack[(h$sp - 1)]; | |
h$sp -= 19; | |
var s = p; | |
if((s === 244)) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 71) || (((q >>> 1) == 71) && ((q & 1) <= 1)))) | |
{ | |
if((((r >>> 1) > 64) || (((r >>> 1) == 64) && ((r & 1) >= 0)))) | |
{ | |
if((((r >>> 1) < 95) || (((r >>> 1) == 95) && ((r & 1) <= 1)))) | |
{ | |
var t = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var u; | |
if((n === f)) | |
{ | |
u = m; | |
} | |
else | |
{ | |
u = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, u, t); | |
} | |
else | |
{ | |
var v = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var w; | |
if((n === f)) | |
{ | |
w = m; | |
} | |
else | |
{ | |
w = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, w, v); | |
}; | |
} | |
else | |
{ | |
var x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var y; | |
if((n === f)) | |
{ | |
y = m; | |
} | |
else | |
{ | |
y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, y, x); | |
}; | |
} | |
else | |
{ | |
var z = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var A; | |
if((n === f)) | |
{ | |
A = m; | |
} | |
else | |
{ | |
A = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, A, z); | |
}; | |
} | |
else | |
{ | |
var B = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var C; | |
if((n === f)) | |
{ | |
C = m; | |
} | |
else | |
{ | |
C = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, C, B); | |
}; | |
} | |
else | |
{ | |
var D = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var E; | |
if((n === f)) | |
{ | |
E = m; | |
} | |
else | |
{ | |
E = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, E, D); | |
}; | |
return h$rs(); | |
}; | |
function h$$EV() | |
{ | |
var a = h$stack[(h$sp - 18)]; | |
var b = h$stack[(h$sp - 17)]; | |
var c = h$stack[(h$sp - 16)]; | |
var d = h$stack[(h$sp - 15)]; | |
var e = h$stack[(h$sp - 14)]; | |
var f = h$stack[(h$sp - 13)]; | |
var g = h$stack[(h$sp - 12)]; | |
var h = h$stack[(h$sp - 11)]; | |
var i = h$stack[(h$sp - 10)]; | |
var j = h$stack[(h$sp - 9)]; | |
var k = h$stack[(h$sp - 8)]; | |
var l = h$stack[(h$sp - 7)]; | |
var m = h$stack[(h$sp - 6)]; | |
var n = h$stack[(h$sp - 5)]; | |
var o = h$stack[(h$sp - 4)]; | |
var p = h$stack[(h$sp - 3)]; | |
var q = h$stack[(h$sp - 2)]; | |
var r = h$stack[(h$sp - 1)]; | |
h$sp -= 19; | |
if((((p >>> 1) > 120) || (((p >>> 1) == 120) && ((p & 1) >= 1)))) | |
{ | |
if((((p >>> 1) < 121) || (((p >>> 1) == 121) && ((p & 1) <= 1)))) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 95) || (((q >>> 1) == 95) && ((q & 1) <= 1)))) | |
{ | |
if((((r >>> 1) > 64) || (((r >>> 1) == 64) && ((r & 1) >= 0)))) | |
{ | |
if((((r >>> 1) < 95) || (((r >>> 1) == 95) && ((r & 1) <= 1)))) | |
{ | |
var s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var t; | |
if((n === f)) | |
{ | |
t = m; | |
} | |
else | |
{ | |
t = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, t, s); | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$EW; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$EW; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$EW; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$EW; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$EW; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$EW; | |
}; | |
return h$rs(); | |
}; | |
function h$$EU() | |
{ | |
var a = h$stack[(h$sp - 16)]; | |
var b = h$stack[(h$sp - 15)]; | |
var c = h$stack[(h$sp - 14)]; | |
var d = h$stack[(h$sp - 13)]; | |
var e = h$stack[(h$sp - 12)]; | |
var f = h$stack[(h$sp - 11)]; | |
var g = h$stack[(h$sp - 10)]; | |
var h = h$stack[(h$sp - 9)]; | |
var i = h$stack[(h$sp - 8)]; | |
var j = h$stack[(h$sp - 7)]; | |
var k = h$stack[(h$sp - 6)]; | |
var l = h$stack[(h$sp - 5)]; | |
var m = h$stack[(h$sp - 4)]; | |
var n = h$stack[(h$sp - 3)]; | |
var o = h$stack[(h$sp - 2)]; | |
var p = h$stack[(h$sp - 1)]; | |
h$sp -= 17; | |
if((((p >>> 1) > 120) || (((p >>> 1) == 120) && ((p & 1) >= 0)))) | |
{ | |
switch (((f - n) | 0)) | |
{ | |
case (1): | |
var q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var r; | |
if((n === f)) | |
{ | |
r = m; | |
} | |
else | |
{ | |
r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, r, q); | |
break; | |
case (2): | |
var s = ((n + 1) | 0); | |
var t; | |
var u; | |
t = a; | |
u = (b + s); | |
var v = t.u8[(u + 0)]; | |
var w = p; | |
if((w === 240)) | |
{ | |
if((((v >>> 1) > 72) || (((v >>> 1) == 72) && ((v & 1) >= 0)))) | |
{ | |
if((((v >>> 1) < 95) || (((v >>> 1) == 95) && ((v & 1) <= 1)))) | |
{ | |
var x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var y; | |
if((n === f)) | |
{ | |
y = m; | |
} | |
else | |
{ | |
y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, y, x); | |
} | |
else | |
{ | |
h$sp += 17; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EX; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EX; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EX; | |
}; | |
break; | |
case (3): | |
var z = ((n + 1) | 0); | |
var A; | |
var B; | |
A = a; | |
B = (b + z); | |
var C = A.u8[(B + 0)]; | |
var D = ((n + 2) | 0); | |
var E; | |
var F; | |
E = a; | |
F = (b + D); | |
var G = E.u8[(F + 0)]; | |
var H = p; | |
if((H === 240)) | |
{ | |
if((((C >>> 1) > 72) || (((C >>> 1) == 72) && ((C & 1) >= 0)))) | |
{ | |
if((((C >>> 1) < 95) || (((C >>> 1) == 95) && ((C & 1) <= 1)))) | |
{ | |
if((((G >>> 1) > 64) || (((G >>> 1) == 64) && ((G & 1) >= 0)))) | |
{ | |
if((((G >>> 1) < 95) || (((G >>> 1) == 95) && ((G & 1) <= 1)))) | |
{ | |
var I = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var J; | |
if((n === f)) | |
{ | |
J = m; | |
} | |
else | |
{ | |
J = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, J, I); | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$EV; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$EV; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$EV; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$EV; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$EV; | |
}; | |
break; | |
default: | |
var K = ((n + 1) | 0); | |
var L; | |
var M; | |
L = a; | |
M = (b + K); | |
var N = L.u8[(M + 0)]; | |
var O = ((n + 2) | 0); | |
var P; | |
var Q; | |
P = a; | |
Q = (b + O); | |
var R = P.u8[(Q + 0)]; | |
var S = ((n + 3) | 0); | |
var T; | |
var U; | |
T = a; | |
U = (b + S); | |
var V = T.u8[(U + 0)]; | |
var W = p; | |
if((W === 240)) | |
{ | |
if((((N >>> 1) > 72) || (((N >>> 1) == 72) && ((N & 1) >= 0)))) | |
{ | |
if((((N >>> 1) < 95) || (((N >>> 1) == 95) && ((N & 1) <= 1)))) | |
{ | |
if((((R >>> 1) > 64) || (((R >>> 1) == 64) && ((R & 1) >= 0)))) | |
{ | |
if((((R >>> 1) < 95) || (((R >>> 1) == 95) && ((R & 1) <= 1)))) | |
{ | |
if((((V >>> 1) > 64) || (((V >>> 1) == 64) && ((V & 1) >= 0)))) | |
{ | |
if((((V >>> 1) < 95) || (((V >>> 1) == 95) && ((V & 1) <= 1)))) | |
{ | |
var X = V; | |
var Y = ((X - 128) | 0); | |
var Z = R; | |
var aa = ((Z - 128) | 0); | |
var ab = (aa << 6); | |
var ac = N; | |
var ad = ((ac - 128) | 0); | |
var ae = (ad << 12); | |
var af = ((ae + ab) | 0); | |
var ag = ((af + Y) | 0); | |
g.dv.setUint32((h + (o << 2)), ag, true); | |
h$l2(((o + 1) | 0), ((n + 4) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
} | |
else | |
{ | |
h$sp += 19; | |
h$stack[(h$sp - 2)] = N; | |
h$stack[(h$sp - 1)] = R; | |
h$stack[h$sp] = V; | |
++h$sp; | |
return h$$EZ; | |
}; | |
}; | |
} | |
else | |
{ | |
var ah = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var ai; | |
if((n === f)) | |
{ | |
ai = m; | |
} | |
else | |
{ | |
ai = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, ai, ah); | |
}; | |
return h$rs(); | |
}; | |
function h$$ET() | |
{ | |
var a = h$stack[(h$sp - 18)]; | |
var b = h$stack[(h$sp - 17)]; | |
var c = h$stack[(h$sp - 16)]; | |
var d = h$stack[(h$sp - 15)]; | |
var e = h$stack[(h$sp - 14)]; | |
var f = h$stack[(h$sp - 13)]; | |
var g = h$stack[(h$sp - 12)]; | |
var h = h$stack[(h$sp - 11)]; | |
var i = h$stack[(h$sp - 10)]; | |
var j = h$stack[(h$sp - 9)]; | |
var k = h$stack[(h$sp - 8)]; | |
var l = h$stack[(h$sp - 7)]; | |
var m = h$stack[(h$sp - 6)]; | |
var n = h$stack[(h$sp - 5)]; | |
var o = h$stack[(h$sp - 4)]; | |
var p = h$stack[(h$sp - 3)]; | |
var q = h$stack[(h$sp - 2)]; | |
var r = h$stack[(h$sp - 1)]; | |
h$sp -= 19; | |
if((((p >>> 1) > 119) || (((p >>> 1) == 119) && ((p & 1) >= 0)))) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 95) || (((q >>> 1) == 95) && ((q & 1) <= 1)))) | |
{ | |
if((((r >>> 1) > 64) || (((r >>> 1) == 64) && ((r & 1) >= 0)))) | |
{ | |
if((((r >>> 1) < 95) || (((r >>> 1) == 95) && ((r & 1) <= 1)))) | |
{ | |
var s = r; | |
var t = ((s - 128) | 0); | |
var u = q; | |
var v = ((u - 128) | 0); | |
var w = (v << 6); | |
var x = p; | |
var y = ((x - 224) | 0); | |
var z = (y << 12); | |
var A = ((z + w) | 0); | |
var B = ((A + t) | 0); | |
g.dv.setUint32((h + (o << 2)), B, true); | |
h$l2(((o + 1) | 0), ((n + 3) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
var C = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var D; | |
if((n === f)) | |
{ | |
D = m; | |
} | |
else | |
{ | |
D = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, D, C); | |
}; | |
} | |
else | |
{ | |
var E = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var F; | |
if((n === f)) | |
{ | |
F = m; | |
} | |
else | |
{ | |
F = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, F, E); | |
}; | |
} | |
else | |
{ | |
var G = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var H; | |
if((n === f)) | |
{ | |
H = m; | |
} | |
else | |
{ | |
H = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, H, G); | |
}; | |
} | |
else | |
{ | |
var I = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var J; | |
if((n === f)) | |
{ | |
J = m; | |
} | |
else | |
{ | |
J = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, J, I); | |
}; | |
} | |
else | |
{ | |
var K = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var L; | |
if((n === f)) | |
{ | |
L = m; | |
} | |
else | |
{ | |
L = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, L, K); | |
}; | |
return h$rs(); | |
}; | |
function h$$ES() | |
{ | |
var a = h$stack[(h$sp - 12)]; | |
var b = h$stack[(h$sp - 11)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 19; | |
var h = e; | |
if((h === 237)) | |
{ | |
if((((f >>> 1) > 64) || (((f >>> 1) == 64) && ((f & 1) >= 0)))) | |
{ | |
if((((f >>> 1) < 79) || (((f >>> 1) == 79) && ((f & 1) <= 1)))) | |
{ | |
if((((g >>> 1) > 64) || (((g >>> 1) == 64) && ((g & 1) >= 0)))) | |
{ | |
if((((g >>> 1) < 95) || (((g >>> 1) == 95) && ((g & 1) <= 1)))) | |
{ | |
var i = g; | |
var j = ((i - 128) | 0); | |
var k = f; | |
var l = ((k - 128) | 0); | |
var m = (l << 6); | |
var n = ((53248 + m) | 0); | |
var o = ((n + j) | 0); | |
a.dv.setUint32((b + (d << 2)), o, true); | |
h$l2(((d + 1) | 0), ((c + 3) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ET; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ET; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ET; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ET; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ET; | |
}; | |
}; | |
function h$$ER() | |
{ | |
var a = h$stack[(h$sp - 12)]; | |
var b = h$stack[(h$sp - 11)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 19; | |
if((((e >>> 1) > 112) || (((e >>> 1) == 112) && ((e & 1) >= 1)))) | |
{ | |
if((((e >>> 1) < 118) || (((e >>> 1) == 118) && ((e & 1) <= 0)))) | |
{ | |
if((((f >>> 1) > 64) || (((f >>> 1) == 64) && ((f & 1) >= 0)))) | |
{ | |
if((((f >>> 1) < 95) || (((f >>> 1) == 95) && ((f & 1) <= 1)))) | |
{ | |
if((((g >>> 1) > 64) || (((g >>> 1) == 64) && ((g & 1) >= 0)))) | |
{ | |
if((((g >>> 1) < 95) || (((g >>> 1) == 95) && ((g & 1) <= 1)))) | |
{ | |
var h = g; | |
var i = ((h - 128) | 0); | |
var j = f; | |
var k = ((j - 128) | 0); | |
var l = (k << 6); | |
var m = e; | |
var n = ((m - 224) | 0); | |
var o = (n << 12); | |
var p = ((o + l) | 0); | |
var q = ((p + i) | 0); | |
a.dv.setUint32((b + (d << 2)), q, true); | |
h$l2(((d + 1) | 0), ((c + 3) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ES; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ES; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ES; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ES; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ES; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
++h$sp; | |
return h$$ES; | |
}; | |
}; | |
function h$$EQ() | |
{ | |
var a = h$stack[(h$sp - 17)]; | |
var b = h$stack[(h$sp - 16)]; | |
var c = h$stack[(h$sp - 15)]; | |
var d = h$stack[(h$sp - 14)]; | |
var e = h$stack[(h$sp - 13)]; | |
var f = h$stack[(h$sp - 12)]; | |
var g = h$stack[(h$sp - 11)]; | |
var h = h$stack[(h$sp - 10)]; | |
var i = h$stack[(h$sp - 9)]; | |
var j = h$stack[(h$sp - 8)]; | |
var k = h$stack[(h$sp - 7)]; | |
var l = h$stack[(h$sp - 6)]; | |
var m = h$stack[(h$sp - 5)]; | |
var n = h$stack[(h$sp - 4)]; | |
var o = h$stack[(h$sp - 3)]; | |
var p = h$stack[(h$sp - 2)]; | |
var q = h$stack[(h$sp - 1)]; | |
h$sp -= 18; | |
if((((p >>> 1) > 119) || (((p >>> 1) == 119) && ((p & 1) >= 0)))) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 95) || (((q >>> 1) == 95) && ((q & 1) <= 1)))) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, s, r); | |
} | |
else | |
{ | |
var t = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var u; | |
if((n === f)) | |
{ | |
u = m; | |
} | |
else | |
{ | |
u = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, u, t); | |
}; | |
} | |
else | |
{ | |
var v = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var w; | |
if((n === f)) | |
{ | |
w = m; | |
} | |
else | |
{ | |
w = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, w, v); | |
}; | |
} | |
else | |
{ | |
var x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var y; | |
if((n === f)) | |
{ | |
y = m; | |
} | |
else | |
{ | |
y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, y, x); | |
}; | |
return h$rs(); | |
}; | |
function h$$EP() | |
{ | |
var a = h$stack[(h$sp - 17)]; | |
var b = h$stack[(h$sp - 16)]; | |
var c = h$stack[(h$sp - 15)]; | |
var d = h$stack[(h$sp - 14)]; | |
var e = h$stack[(h$sp - 13)]; | |
var f = h$stack[(h$sp - 12)]; | |
var g = h$stack[(h$sp - 11)]; | |
var h = h$stack[(h$sp - 10)]; | |
var i = h$stack[(h$sp - 9)]; | |
var j = h$stack[(h$sp - 8)]; | |
var k = h$stack[(h$sp - 7)]; | |
var l = h$stack[(h$sp - 6)]; | |
var m = h$stack[(h$sp - 5)]; | |
var n = h$stack[(h$sp - 4)]; | |
var o = h$stack[(h$sp - 3)]; | |
var p = h$stack[(h$sp - 2)]; | |
var q = h$stack[(h$sp - 1)]; | |
h$sp -= 18; | |
var r = p; | |
if((r === 237)) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 79) || (((q >>> 1) == 79) && ((q & 1) <= 1)))) | |
{ | |
var s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var t; | |
if((n === f)) | |
{ | |
t = m; | |
} | |
else | |
{ | |
t = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, t, s); | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EQ; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EQ; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EQ; | |
}; | |
return h$rs(); | |
}; | |
function h$$EO() | |
{ | |
var a = h$stack[(h$sp - 17)]; | |
var b = h$stack[(h$sp - 16)]; | |
var c = h$stack[(h$sp - 15)]; | |
var d = h$stack[(h$sp - 14)]; | |
var e = h$stack[(h$sp - 13)]; | |
var f = h$stack[(h$sp - 12)]; | |
var g = h$stack[(h$sp - 11)]; | |
var h = h$stack[(h$sp - 10)]; | |
var i = h$stack[(h$sp - 9)]; | |
var j = h$stack[(h$sp - 8)]; | |
var k = h$stack[(h$sp - 7)]; | |
var l = h$stack[(h$sp - 6)]; | |
var m = h$stack[(h$sp - 5)]; | |
var n = h$stack[(h$sp - 4)]; | |
var o = h$stack[(h$sp - 3)]; | |
var p = h$stack[(h$sp - 2)]; | |
var q = h$stack[(h$sp - 1)]; | |
h$sp -= 18; | |
if((((p >>> 1) > 112) || (((p >>> 1) == 112) && ((p & 1) >= 1)))) | |
{ | |
if((((p >>> 1) < 118) || (((p >>> 1) == 118) && ((p & 1) <= 0)))) | |
{ | |
if((((q >>> 1) > 64) || (((q >>> 1) == 64) && ((q & 1) >= 0)))) | |
{ | |
if((((q >>> 1) < 95) || (((q >>> 1) == 95) && ((q & 1) <= 1)))) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, s, r); | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EP; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EP; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EP; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
++h$sp; | |
return h$$EP; | |
}; | |
return h$rs(); | |
}; | |
function h$$EN() | |
{ | |
var a = h$stack[(h$sp - 16)]; | |
var b = h$stack[(h$sp - 15)]; | |
var c = h$stack[(h$sp - 14)]; | |
var d = h$stack[(h$sp - 13)]; | |
var e = h$stack[(h$sp - 12)]; | |
var f = h$stack[(h$sp - 11)]; | |
var g = h$stack[(h$sp - 10)]; | |
var h = h$stack[(h$sp - 9)]; | |
var i = h$stack[(h$sp - 8)]; | |
var j = h$stack[(h$sp - 7)]; | |
var k = h$stack[(h$sp - 6)]; | |
var l = h$stack[(h$sp - 5)]; | |
var m = h$stack[(h$sp - 4)]; | |
var n = h$stack[(h$sp - 3)]; | |
var o = h$stack[(h$sp - 2)]; | |
var p = h$stack[(h$sp - 1)]; | |
h$sp -= 17; | |
if((((p >>> 1) > 112) || (((p >>> 1) == 112) && ((p & 1) >= 0)))) | |
{ | |
if((((p >>> 1) < 119) || (((p >>> 1) == 119) && ((p & 1) <= 1)))) | |
{ | |
switch (((f - n) | 0)) | |
{ | |
case (1): | |
var q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var r; | |
if((n === f)) | |
{ | |
r = m; | |
} | |
else | |
{ | |
r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, r, q); | |
break; | |
case (2): | |
var s = ((n + 1) | 0); | |
var t; | |
var u; | |
t = a; | |
u = (b + s); | |
var v = t.u8[(u + 0)]; | |
var w = p; | |
if((w === 224)) | |
{ | |
if((((v >>> 1) > 80) || (((v >>> 1) == 80) && ((v & 1) >= 0)))) | |
{ | |
if((((v >>> 1) < 95) || (((v >>> 1) == 95) && ((v & 1) <= 1)))) | |
{ | |
var x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var y; | |
if((n === f)) | |
{ | |
y = m; | |
} | |
else | |
{ | |
y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, y, x); | |
} | |
else | |
{ | |
h$sp += 17; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EO; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EO; | |
}; | |
} | |
else | |
{ | |
h$sp += 17; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EO; | |
}; | |
break; | |
default: | |
var z = ((n + 1) | 0); | |
var A; | |
var B; | |
A = a; | |
B = (b + z); | |
var C = A.u8[(B + 0)]; | |
var D = ((n + 2) | 0); | |
var E; | |
var F; | |
E = a; | |
F = (b + D); | |
var G = E.u8[(F + 0)]; | |
var H = p; | |
if((H === 224)) | |
{ | |
if((((C >>> 1) > 80) || (((C >>> 1) == 80) && ((C & 1) >= 0)))) | |
{ | |
if((((C >>> 1) < 95) || (((C >>> 1) == 95) && ((C & 1) <= 1)))) | |
{ | |
if((((G >>> 1) > 64) || (((G >>> 1) == 64) && ((G & 1) >= 0)))) | |
{ | |
if((((G >>> 1) < 95) || (((G >>> 1) == 95) && ((G & 1) <= 1)))) | |
{ | |
var I = G; | |
var J = ((I - 128) | 0); | |
var K = C; | |
var L = ((K - 128) | 0); | |
var M = (L << 6); | |
var N = ((M + J) | 0); | |
g.dv.setUint32((h + (o << 2)), N, true); | |
h$l2(((o + 1) | 0), ((n + 3) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$ER; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$ER; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$ER; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$ER; | |
}; | |
} | |
else | |
{ | |
h$sp += 18; | |
h$stack[(h$sp - 1)] = C; | |
h$stack[h$sp] = G; | |
++h$sp; | |
return h$$ER; | |
}; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
++h$sp; | |
return h$$EU; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
++h$sp; | |
return h$$EU; | |
}; | |
return h$rs(); | |
}; | |
function h$$EM() | |
{ | |
var a = h$stack[(h$sp - 16)]; | |
var b = h$stack[(h$sp - 15)]; | |
var c = h$stack[(h$sp - 14)]; | |
var d = h$stack[(h$sp - 13)]; | |
var e = h$stack[(h$sp - 12)]; | |
var f = h$stack[(h$sp - 11)]; | |
var g = h$stack[(h$sp - 10)]; | |
var h = h$stack[(h$sp - 9)]; | |
var i = h$stack[(h$sp - 8)]; | |
var j = h$stack[(h$sp - 7)]; | |
var k = h$stack[(h$sp - 6)]; | |
var l = h$stack[(h$sp - 5)]; | |
var m = h$stack[(h$sp - 4)]; | |
var n = h$stack[(h$sp - 3)]; | |
var o = h$stack[(h$sp - 2)]; | |
var p = h$stack[(h$sp - 1)]; | |
h$sp -= 17; | |
if((((p >>> 1) > 97) || (((p >>> 1) == 97) && ((p & 1) >= 0)))) | |
{ | |
if((((p >>> 1) < 111) || (((p >>> 1) == 111) && ((p & 1) <= 1)))) | |
{ | |
var q = ((f - n) | 0); | |
if((q < 2)) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, s, r); | |
} | |
else | |
{ | |
var t = ((n + 1) | 0); | |
var u; | |
var v; | |
u = a; | |
v = (b + t); | |
var w = u.u8[(v + 0)]; | |
if((((w >>> 1) < 64) || (((w >>> 1) == 64) && ((w & 1) < 0)))) | |
{ | |
var x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var y; | |
if((n === f)) | |
{ | |
y = m; | |
} | |
else | |
{ | |
y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, y, x); | |
} | |
else | |
{ | |
if((((w >>> 1) > 96) || (((w >>> 1) == 96) && ((w & 1) >= 0)))) | |
{ | |
var z = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var A; | |
if((n === f)) | |
{ | |
A = m; | |
} | |
else | |
{ | |
A = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, A, z); | |
} | |
else | |
{ | |
var B = w; | |
var C = ((B - 128) | 0); | |
var D = p; | |
var E = ((D - 192) | 0); | |
var F = (E << 6); | |
var G = ((F + C) | 0); | |
g.dv.setUint32((h + (o << 2)), G, true); | |
h$l2(((o + 1) | 0), ((n + 2) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
++h$sp; | |
return h$$EN; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
++h$sp; | |
return h$$EN; | |
}; | |
return h$rs(); | |
}; | |
function h$$EL() | |
{ | |
var a = h$stack[(h$sp - 13)]; | |
var b = h$stack[(h$sp - 12)]; | |
var c = h$stack[(h$sp - 11)]; | |
var d = h$stack[(h$sp - 10)]; | |
var e = h$stack[(h$sp - 9)]; | |
var f = h$stack[(h$sp - 8)]; | |
var g = h$stack[(h$sp - 7)]; | |
var h = h$stack[(h$sp - 6)]; | |
var i = h$stack[(h$sp - 5)]; | |
var j = h$stack[(h$sp - 4)]; | |
var k = h$stack[(h$sp - 3)]; | |
var l = h$stack[(h$sp - 2)]; | |
var m = h$stack[(h$sp - 1)]; | |
h$sp -= 14; | |
var n = h$r1; | |
var o = h$r2; | |
if((o >= k)) | |
{ | |
var p = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var q; | |
if((n === f)) | |
{ | |
q = m; | |
} | |
else | |
{ | |
q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziOutputUnderflow, q, p); | |
} | |
else | |
{ | |
if((n >= f)) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, s, r); | |
} | |
else | |
{ | |
var t; | |
var u; | |
t = a; | |
u = (b + n); | |
var v = t.u8[(u + 0)]; | |
if((((v >>> 1) < 63) || (((v >>> 1) == 63) && ((v & 1) <= 1)))) | |
{ | |
var w = v; | |
g.dv.setUint32((h + (o << 2)), w, true); | |
h$l2(((o + 1) | 0), ((n + 1) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$EL; | |
} | |
else | |
{ | |
if((((v >>> 1) > 96) || (((v >>> 1) == 96) && ((v & 1) >= 0)))) | |
{ | |
if((((v >>> 1) < 96) || (((v >>> 1) == 96) && ((v & 1) <= 1)))) | |
{ | |
var x = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var y; | |
if((n === f)) | |
{ | |
y = m; | |
} | |
else | |
{ | |
y = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, y, x); | |
} | |
else | |
{ | |
h$sp += 16; | |
h$stack[(h$sp - 2)] = n; | |
h$stack[(h$sp - 1)] = o; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EM; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
h$stack[(h$sp - 2)] = n; | |
h$stack[(h$sp - 1)] = o; | |
h$stack[h$sp] = v; | |
++h$sp; | |
return h$$EM; | |
}; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8zizdwutf8zudecode_e() | |
{ | |
var a = h$r2; | |
h$l2(h$r15, h$r7); | |
h$p13(a, h$r3, h$r4, h$r5, h$r6, h$r8, h$r9, h$r10, h$r11, h$r12, h$r13, h$r14, | |
h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, h$r3, h$r4, h$r5, h$r6, 0, 0)); | |
++h$sp; | |
return h$$EL; | |
}; | |
function h$$E2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a.d1; | |
var j = a.d2; | |
var k = j.d1; | |
var l = j.d2; | |
var m = j.d3; | |
var n = j.d4; | |
var o = j.d5; | |
h$l15(j.d6, o, n, m, l, k, i, h, g, f, e, d, c, b, h$baseZCGHCziIOziEncodingziUTF8zizdwutf8zudecode); | |
return h$ap_gen_fast(3597); | |
}; | |
function h$$E1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
h$p8(c, e, f, g, h, i, d.d6, h$$E2); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8zimkUTF4_e() | |
{ | |
h$p2(h$r3, h$$E1); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8zimkUTF3_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8zimkUTF2_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$E5() | |
{ | |
var a = h$stack[(h$sp - 16)]; | |
var b = h$stack[(h$sp - 15)]; | |
var c = h$stack[(h$sp - 14)]; | |
var d = h$stack[(h$sp - 13)]; | |
var e = h$stack[(h$sp - 12)]; | |
var f = h$stack[(h$sp - 11)]; | |
var g = h$stack[(h$sp - 10)]; | |
var h = h$stack[(h$sp - 9)]; | |
var i = h$stack[(h$sp - 8)]; | |
var j = h$stack[(h$sp - 7)]; | |
var k = h$stack[(h$sp - 6)]; | |
var l = h$stack[(h$sp - 5)]; | |
var m = h$stack[(h$sp - 4)]; | |
var n = h$stack[(h$sp - 3)]; | |
var o = h$stack[(h$sp - 2)]; | |
var p = h$stack[(h$sp - 1)]; | |
h$sp -= 17; | |
var q = ((k - o) | 0); | |
if((q < 3)) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziOutputUnderflow, s, r); | |
} | |
else | |
{ | |
var t = (p >> 12); | |
var u = ((t + 224) | 0); | |
var v = (u & 255); | |
var w; | |
var x; | |
w = g; | |
x = (h + o); | |
w.u8[(x + 0)] = v; | |
var y = (p >> 6); | |
var z = (y & 63); | |
var A = ((z + 128) | 0); | |
var B = (A & 255); | |
var C = ((o + 1) | 0); | |
var D; | |
var E; | |
D = g; | |
E = (h + C); | |
D.u8[(E + 0)] = B; | |
var F = (p & 63); | |
var G = ((F + 128) | 0); | |
var H = (G & 255); | |
var I = ((o + 2) | 0); | |
var J; | |
var K; | |
J = g; | |
K = (h + I); | |
J.u8[(K + 0)] = H; | |
h$l2(((o + 3) | 0), ((n + 1) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$E3; | |
}; | |
return h$rs(); | |
}; | |
function h$$E4() | |
{ | |
var a = h$stack[(h$sp - 16)]; | |
var b = h$stack[(h$sp - 15)]; | |
var c = h$stack[(h$sp - 14)]; | |
var d = h$stack[(h$sp - 13)]; | |
var e = h$stack[(h$sp - 12)]; | |
var f = h$stack[(h$sp - 11)]; | |
var g = h$stack[(h$sp - 10)]; | |
var h = h$stack[(h$sp - 9)]; | |
var i = h$stack[(h$sp - 8)]; | |
var j = h$stack[(h$sp - 7)]; | |
var k = h$stack[(h$sp - 6)]; | |
var l = h$stack[(h$sp - 5)]; | |
var m = h$stack[(h$sp - 4)]; | |
var n = h$stack[(h$sp - 3)]; | |
var o = h$stack[(h$sp - 2)]; | |
var p = h$stack[(h$sp - 1)]; | |
h$sp -= 17; | |
if((56320 <= p)) | |
{ | |
if((p <= 57343)) | |
{ | |
var q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var r; | |
if((n === f)) | |
{ | |
r = m; | |
} | |
else | |
{ | |
r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, r, q); | |
} | |
else | |
{ | |
h$sp += 16; | |
++h$sp; | |
return h$$E5; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
++h$sp; | |
return h$$E5; | |
}; | |
return h$rs(); | |
}; | |
function h$$E3() | |
{ | |
var a = h$stack[(h$sp - 13)]; | |
var b = h$stack[(h$sp - 12)]; | |
var c = h$stack[(h$sp - 11)]; | |
var d = h$stack[(h$sp - 10)]; | |
var e = h$stack[(h$sp - 9)]; | |
var f = h$stack[(h$sp - 8)]; | |
var g = h$stack[(h$sp - 7)]; | |
var h = h$stack[(h$sp - 6)]; | |
var i = h$stack[(h$sp - 5)]; | |
var j = h$stack[(h$sp - 4)]; | |
var k = h$stack[(h$sp - 3)]; | |
var l = h$stack[(h$sp - 2)]; | |
var m = h$stack[(h$sp - 1)]; | |
h$sp -= 14; | |
var n = h$r1; | |
var o = h$r2; | |
if((o >= k)) | |
{ | |
var p = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var q; | |
if((n === f)) | |
{ | |
q = m; | |
} | |
else | |
{ | |
q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziOutputUnderflow, q, p); | |
} | |
else | |
{ | |
if((n >= f)) | |
{ | |
var r = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var s; | |
if((n === f)) | |
{ | |
s = m; | |
} | |
else | |
{ | |
s = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInputUnderflow, s, r); | |
} | |
else | |
{ | |
var t = a.dv.getUint32((b + (n << 2)), true); | |
var u = t; | |
if((u <= 127)) | |
{ | |
var v = u; | |
var w = (v & 255); | |
var x; | |
var y; | |
x = g; | |
y = (h + o); | |
x.u8[(y + 0)] = w; | |
h$l2(((o + 1) | 0), ((n + 1) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$E3; | |
} | |
else | |
{ | |
if((u <= 2047)) | |
{ | |
var z = ((k - o) | 0); | |
if((z < 2)) | |
{ | |
var A = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var B; | |
if((n === f)) | |
{ | |
B = m; | |
} | |
else | |
{ | |
B = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziOutputUnderflow, B, A); | |
} | |
else | |
{ | |
var C = (u >> 6); | |
var D = ((C + 192) | 0); | |
var E = (D & 255); | |
var F; | |
var G; | |
F = g; | |
G = (h + o); | |
F.u8[(G + 0)] = E; | |
var H = (u & 63); | |
var I = ((H + 128) | 0); | |
var J = (I & 255); | |
var K = ((o + 1) | 0); | |
var L; | |
var M; | |
L = g; | |
M = (h + K); | |
L.u8[(M + 0)] = J; | |
h$l2(((o + 2) | 0), ((n + 1) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$E3; | |
}; | |
} | |
else | |
{ | |
if((u <= 65535)) | |
{ | |
if((55296 <= u)) | |
{ | |
if((u <= 56319)) | |
{ | |
var N = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var O; | |
if((n === f)) | |
{ | |
O = m; | |
} | |
else | |
{ | |
O = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziInvalidSequence, O, N); | |
} | |
else | |
{ | |
h$sp += 16; | |
h$stack[(h$sp - 2)] = n; | |
h$stack[(h$sp - 1)] = o; | |
h$stack[h$sp] = u; | |
++h$sp; | |
return h$$E4; | |
}; | |
} | |
else | |
{ | |
h$sp += 16; | |
h$stack[(h$sp - 2)] = n; | |
h$stack[(h$sp - 1)] = o; | |
h$stack[h$sp] = u; | |
++h$sp; | |
return h$$E4; | |
}; | |
} | |
else | |
{ | |
var P = ((k - o) | 0); | |
if((P < 4)) | |
{ | |
var Q = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, g, h, i, j, k, l, o); | |
var R; | |
if((n === f)) | |
{ | |
R = m; | |
} | |
else | |
{ | |
R = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, c, d, e, n, f); | |
}; | |
h$r1 = h$c3(h$ghczmprimZCGHCziTupleziZLz2cUz2cUZR_con_e, h$baseZCGHCziIOziEncodingziTypesziOutputUnderflow, R, Q); | |
} | |
else | |
{ | |
var S = (u >> 18); | |
var T = ((S + 240) | 0); | |
var U = (T & 255); | |
var V; | |
var W; | |
V = g; | |
W = (h + o); | |
V.u8[(W + 0)] = U; | |
var X = (u >> 12); | |
var Y = (X & 63); | |
var Z = ((Y + 128) | 0); | |
var aa = (Z & 255); | |
var ab = ((o + 1) | 0); | |
var ac; | |
var ad; | |
ac = g; | |
ad = (h + ab); | |
ac.u8[(ad + 0)] = aa; | |
var ae = (u >> 6); | |
var af = (ae & 63); | |
var ag = ((af + 128) | 0); | |
var ah = (ag & 255); | |
var ai = ((o + 2) | 0); | |
var aj; | |
var ak; | |
aj = g; | |
ak = (h + ai); | |
aj.u8[(ak + 0)] = ah; | |
var al = (u & 63); | |
var am = ((al + 128) | 0); | |
var an = (am & 255); | |
var ao = ((o + 3) | 0); | |
var ap; | |
var aq; | |
ap = g; | |
aq = (h + ao); | |
ap.u8[(aq + 0)] = an; | |
h$l2(((o + 4) | 0), ((n + 1) | 0)); | |
h$sp += 13; | |
++h$sp; | |
return h$$E3; | |
}; | |
}; | |
}; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8zizdwutf8zuencode_e() | |
{ | |
var a = h$r2; | |
h$l2(h$r15, h$r7); | |
h$p13(a, h$r3, h$r4, h$r5, h$r6, h$r8, h$r9, h$r10, h$r11, h$r12, h$r13, h$r14, | |
h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, h$r3, h$r4, h$r5, h$r6, 0, 0)); | |
++h$sp; | |
return h$$E3; | |
}; | |
function h$$E7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
var i = a.d1; | |
var j = a.d2; | |
var k = j.d1; | |
var l = j.d2; | |
var m = j.d3; | |
var n = j.d4; | |
var o = j.d5; | |
h$l15(j.d6, o, n, m, l, k, i, h, g, f, e, d, c, b, h$baseZCGHCziIOziEncodingziUTF8zizdwutf8zuencode); | |
return h$ap_gen_fast(3597); | |
}; | |
function h$$E6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d3; | |
var h = d.d4; | |
var i = d.d5; | |
h$p8(c, e, f, g, h, i, d.d6, h$$E7); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziEncodingziUTF8zimkUTF1_e() | |
{ | |
h$p2(h$r3, h$$E6); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziTextEncoding_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziTextEncoding_e() | |
{ | |
h$r1 = h$c3(h$baseZCGHCziIOziEncodingziTypesziTextEncoding_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziBufferCodec_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziBufferCodec_e() | |
{ | |
h$r1 = h$c5(h$baseZCGHCziIOziEncodingziTypesziBufferCodec_con_e, h$r2, h$r3, h$r4, h$r5, h$r6); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziInvalidSequence_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziOutputUnderflow_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziInputUnderflow_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Fc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziEncodingziTypesziclose_e() | |
{ | |
h$p1(h$$Fc); | |
return h$e(h$r2); | |
}; | |
function h$$Fd() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$$Ff = h$strta("invalid character"); | |
var h$$Fg = h$strta("recoverEncode"); | |
function h$baseZCGHCziIOziEncodingziFailurezizdwfail_e() | |
{ | |
return h$throw(h$r1.d1, false); | |
}; | |
var h$baseZCGHCziIOziEncodingziFailurezirecoverDecode5 = h$strta("recoverDecode"); | |
var h$baseZCGHCziIOziEncodingziFailurezirecoverDecode4 = h$strta("invalid byte sequence"); | |
function h$baseZCGHCziIOziEncodingziFailurezirecoverDecode2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Fj() | |
{ | |
var a = h$r1.d1; | |
a.val = h$r2; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Fi() | |
{ | |
var a = h$r1.d1; | |
h$r1 = a.val; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziEncodingzigetLocaleEncoding2_e() | |
{ | |
var a = h$r1.d1; | |
var b = new h$MutVar(a); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c1(h$$Fi, b), h$c1(h$$Fj, b)); | |
return h$rs(); | |
}; | |
function h$$Fk() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziEncodingzigetLocaleEncoding1_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Fk); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziIOziEncodingzigetForeignEncoding_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r1 = a; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$Fl() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziEncodingzigetLocaleEncoding_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Fl); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziIOziDeviceziCZCIODevice_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziDeviceziCZCIODevice_e() | |
{ | |
h$r1 = h$c14(h$baseZCGHCziIOziDeviceziCZCIODevice_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9, h$r10, h$r11, | |
h$r12, h$r13, h$r14, h$r15); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziDeviceziRelativeSeek_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziDeviceziRawDevice_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziDeviceziRegularFile_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziDeviceziStream_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziDeviceziDirectory_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Fm() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d4; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziDeviceziseek_e() | |
{ | |
h$p1(h$$Fm); | |
return h$e(h$r2); | |
}; | |
function h$$Fn() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziDeviceziisSeekable_e() | |
{ | |
h$p1(h$$Fn); | |
return h$e(h$r2); | |
}; | |
function h$$Fo() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziDeviceziisTerminal_e() | |
{ | |
h$p1(h$$Fo); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziBufferedIOziCZCBufferedIO_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziBufferedIOziCZCBufferedIO_e() | |
{ | |
h$r1 = h$c6(h$baseZCGHCziIOziBufferedIOziCZCBufferedIO_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7); | |
return h$rs(); | |
}; | |
function h$$Fp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d4; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziBufferedIOziflushWriteBuffer_e() | |
{ | |
h$p1(h$$Fp); | |
return h$e(h$r2); | |
}; | |
function h$$Fq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziBufferedIOziemptyWriteBuffer_e() | |
{ | |
h$p1(h$$Fq); | |
return h$e(h$r2); | |
}; | |
function h$$Fr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziIOziBufferedIOzinewBuffer_e() | |
{ | |
h$p1(h$$Fr); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziBufferziBuffer_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziBufferziBuffer_e() | |
{ | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8); | |
return h$rs(); | |
}; | |
function h$$Fv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, c, f, g, b, d, e, a); | |
return h$rs(); | |
}; | |
function h$$Fu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 7; | |
h$pp72(a, h$$Fv); | |
return h$e(b); | |
}; | |
function h$$Ft() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 7; | |
h$pp68(a, h$$Fu); | |
return h$e(b); | |
}; | |
function h$$Fs() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 5; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
h$pp114(c, e, d.d2, h$$Ft); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziIOziBufferzizdWBuffer_e() | |
{ | |
h$p5(h$r3, h$r4, h$r5, h$r6, h$$Fs); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziIOziBufferziWriteBuffer_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziIOziBufferziReadBuffer_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Fx() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziIOziExceptionziuserError); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Fw() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$c1(h$$Fx, a), h$baseZCGHCziIOziExceptionzizdfxExceptionIOException, h$baseZCGHCziExceptionzitoException); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziIOzifailIO1_e() | |
{ | |
return h$throw(h$c1(h$$Fw, h$r2), false); | |
}; | |
function h$$FT() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
return h$throw(a, false); | |
}; | |
function h$$FS() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$r2, h$$FT); | |
h$l2(h$r1.d2, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$FR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$FQ() | |
{ | |
return h$maskAsync(h$r1.d1); | |
}; | |
function h$$FP() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$FO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(a, h$$FP); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$FN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a, h$$FO); | |
return h$catch(h$c1(h$$FQ, h$c2(h$$FR, c, a)), h$c2(h$$FS, b, a)); | |
}; | |
function h$$FM() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
return h$throw(a, false); | |
}; | |
function h$$FL() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$r2, h$$FM); | |
h$l2(h$r1.d2, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$FK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$FJ() | |
{ | |
return h$unmaskAsync(h$r1.d1); | |
}; | |
function h$$FI() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$FH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(a, h$$FI); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$FG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a, h$$FH); | |
return h$catch(h$c1(h$$FJ, h$c2(h$$FK, c, a)), h$c2(h$$FL, b, a)); | |
}; | |
function h$$FF() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p3(c, b.d2, h$$FG); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$FE() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
return h$throw(a, false); | |
}; | |
function h$$FD() | |
{ | |
var a = h$r1.d1; | |
h$p2(h$r2, h$$FE); | |
h$l2(h$r1.d2, a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$FC() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$FB() | |
{ | |
return h$maskUnintAsync(h$r1.d1); | |
}; | |
function h$$FA() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Fz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(a, h$$FA); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Fy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$pp6(a, h$$Fz); | |
return h$catch(h$c1(h$$FB, h$c2(h$$FC, c, a)), h$c2(h$$FD, b, a)); | |
}; | |
function h$baseZCGHCziIOzibracket1_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$maskStatus(); | |
switch (d) | |
{ | |
case (0): | |
return h$maskAsync(h$c3(h$$FF, a, b, c)); | |
case (1): | |
h$p3(b, c, h$$Fy); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
default: | |
h$p3(b, c, h$$FN); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
}; | |
function h$baseZCGHCziIOzifailIO_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
var h$$FW = h$strta("mallocForeignPtrBytes: size must be >= 0"); | |
function h$baseZCGHCziForeignPtrzimallocForeignPtrBytes2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziForeignPtrziMallocPtr_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziForeignPtrziMallocPtr_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziForeignPtrziMallocPtr_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$FU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$baseZCGHCziForeignPtrziMallocPtr_con_e, b, a.d1); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziForeignPtrzizdWMallocPtr_e() | |
{ | |
h$p2(h$r2, h$$FU); | |
return h$e(h$r3); | |
}; | |
function h$baseZCGHCziForeignPtrziPlainForeignPtr_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziForeignPtrziPlainForeignPtr_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziForeignPtrziPlainForeignPtr_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$FV() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = h$c1(h$baseZCGHCziForeignPtrziPlainForeignPtr_con_e, a.d1); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziForeignPtrzizdWPlainForeignPtr_e() | |
{ | |
h$p1(h$$FV); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziForeignPtrziNoFinalizzers_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Gc() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
var b = a.d1; | |
h$l2(a.d2, b); | |
h$sp += 4; | |
++h$sp; | |
return h$$FZ; | |
}; | |
function h$$Gb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
var b = a; | |
h$sp += 4; | |
h$p1(h$$Gc); | |
return h$e(b); | |
}; | |
function h$$Ga() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
if((a.f.a === 2)) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$sp += 4; | |
h$p1(h$$Gb); | |
h$l3(c, b, d); | |
return h$ap_3_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$F9() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, a); | |
return h$rs(); | |
}; | |
function h$$F8() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, a); | |
return h$rs(); | |
}; | |
function h$$F7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
if(a) | |
{ | |
b.u8[(d + g)] = 0; | |
h$p2(e, h$$F8); | |
h$l2(h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c2(h$baseZCGHCziPtrziPtr_con_e, b, d), ((g - f) | 0)), c); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$p2(e, h$$F9); | |
h$l2(h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c2(h$baseZCGHCziPtrziPtr_con_e, b, d), ((g - f) | 0)), c); | |
return h$ap_2_1_fast(); | |
}; | |
}; | |
function h$$F6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
var g = d.d5; | |
h$pp125(c, e, f, g, d.d6, h$$F7); | |
return h$e(b); | |
}; | |
function h$$F5() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$p3(a, b, h$$F6); | |
return h$e(c); | |
}; | |
function h$$F4() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 5; | |
var b = a.d2; | |
var c = b.d4; | |
var d = b.d6; | |
var e = ((c - d) | 0); | |
if((e === 0)) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$sp += 5; | |
++h$sp; | |
return h$$F5; | |
}; | |
return h$rs(); | |
}; | |
function h$$F3() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 5; | |
if(a) | |
{ | |
h$sp += 5; | |
h$p1(h$$F4); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 5; | |
++h$sp; | |
return h$$F5; | |
}; | |
}; | |
function h$$F2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d2; | |
var f = e.d5; | |
var g = e.d6; | |
if((f === g)) | |
{ | |
h$pp16(c); | |
h$p1(h$$F3); | |
return h$e(d); | |
} | |
else | |
{ | |
h$sp += 4; | |
h$pp5(a, h$$Ga); | |
return h$e(b); | |
}; | |
}; | |
function h$$F1() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$sp += 4; | |
h$p3(b, e, h$$F2); | |
return h$e(d); | |
}; | |
function h$$F0() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 4; | |
var b = a; | |
h$sp += 4; | |
h$p1(h$$F1); | |
return h$e(b); | |
}; | |
function h$$FZ() | |
{ | |
var a = h$stack[(h$sp - 4)]; | |
h$sp -= 5; | |
var b = h$r1; | |
var c = h$r2; | |
h$sp += 4; | |
h$p1(h$$F0); | |
h$l3(c, b, a); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$FY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$r1 = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, b, c, h$c1(h$baseZCGHCziForeignPtrziPlainForeignPtr_con_e, d), | |
h$baseZCGHCziIOziBufferziWriteBuffer, a, 0, 0); | |
return h$rs(); | |
}; | |
function h$$FX() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$p4(a, c, b.d3, h$$FY); | |
return h$e(d); | |
}; | |
function h$baseZCGHCziForeignzizdwtryFillBufferAndCall_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = h$r4; | |
var e = h$r5; | |
var f = h$r6; | |
var g = h$r7; | |
var h = h$r8; | |
var i = h$r9; | |
var j = new h$MutVar(a); | |
h$l2(h$c4(h$$FX, f, g, h, j), e); | |
h$p4(b, c, d, i); | |
++h$sp; | |
return h$$FZ; | |
}; | |
function h$$Go() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(a.d1, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Gn() | |
{ | |
h$p2(h$r1.d1, h$$Go); | |
return h$e(h$r2); | |
}; | |
function h$$Gm() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Gl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$p2(c, h$$Gm); | |
h$l2(h$mulInt32(b, 2), d); | |
return h$ap_2_1_fast(); | |
} | |
else | |
{ | |
h$r1 = a.d1; | |
}; | |
return h$rs(); | |
}; | |
function h$$Gk() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
h$pp8(h$$Gl); | |
return h$e(a); | |
}; | |
function h$$Gj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var f = a.d1; | |
var g = a.d2; | |
h$pp11(d, e, h$$Gk); | |
h$l9(b, d, 0, e, c, true, g.d1, f, h$baseZCGHCziForeignzizdwtryFillBufferAndCall); | |
return h$ap_gen_fast(2056); | |
}; | |
function h$$Gi() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
h$p6(a, d, b.d3, h$r2, h$newByteArray(e), h$$Gj); | |
return h$e(c); | |
}; | |
function h$$Gh() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Gg() | |
{ | |
var a = h$stack[(h$sp - 6)]; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var g = new h$MutVar(h$baseZCGHCziForeignPtrziNoFinalizzers); | |
var h = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, e, f, h$c1(h$baseZCGHCziForeignPtrziPlainForeignPtr_con_e, g), | |
h$baseZCGHCziIOziBufferziReadBuffer, a, 0, a); | |
var i = h$c(h$$Gi); | |
i.d1 = b; | |
i.d2 = h$d3(c, h, i); | |
h$p2(d, h$$Gh); | |
h$l2(((a + 1) | 0), i); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Gf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
var c = h$newByteArray(h$mulInt32(a, 4)); | |
h$pp121(a, c, c, 0, h$$Gg); | |
h$l4(b, h$c2(h$baseZCGHCziPtrziPtr_con_e, c, 0), h$baseZCForeignziStorablezizdfStorableChar, | |
h$baseZCForeignziMarshalziArrayzinewArray2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$Ge() | |
{ | |
var a = h$r1.d1; | |
h$p4(a, h$r1.d2, h$r2, h$$Gf); | |
h$l3(0, a, h$baseZCGHCziListzizdwlenAcc); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Gd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d2; | |
h$l4(h$c2(h$$Ge, b, h$c1(h$$Gn, c)), h$baseZCGHCziIOziEncodingziTypesziclose, d.d2, h$baseZCGHCziIOzibracket1); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCGHCziForeignzicharIsRepresentable3_e() | |
{ | |
h$p3(h$r3, h$r4, h$$Gd); | |
return h$e(h$r2); | |
}; | |
function h$$GM() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = a.dv.getInt8((c + e)); | |
var g = f; | |
if((g === 0)) | |
{ | |
h$r1 = e; | |
} | |
else | |
{ | |
h$l2(((e + 1) | 0), d); | |
return h$ap_2_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$GL() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$GK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$$GL, b, a); | |
return h$rs(); | |
}; | |
function h$$GJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$p2(a, h$$GK); | |
h$l2(c, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$GI() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d5; | |
var g = c.d6; | |
h$pp12(e, h$$GJ); | |
h$l4(h$c2(h$baseZCGHCziPtrziPtr_con_e, b, d), ((g - f) | 0), h$baseZCForeignziStorablezizdfStorableChar, | |
h$baseZCForeignziMarshalziArrayzizdwpeekArray); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$GH() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a.d1, h$$GI); | |
return h$e(a.d2); | |
}; | |
function h$$GG() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$GH); | |
return h$e(a); | |
}; | |
function h$$GF() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$GE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$$GF, b, a); | |
return h$rs(); | |
}; | |
function h$$GD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$p2(a, h$$GE); | |
h$l2(b, c); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$GC() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d5; | |
var g = c.d6; | |
h$pp12(e, h$$GD); | |
h$l4(h$c2(h$baseZCGHCziPtrziPtr_con_e, b, d), ((g - f) | 0), h$baseZCForeignziStorablezizdfStorableChar, | |
h$baseZCForeignziMarshalziArrayzizdwpeekArray); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$GB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if((a.f.a === 2)) | |
{ | |
h$pp5(d, h$$GC); | |
return h$e(e); | |
} | |
else | |
{ | |
h$p2(c, h$$GG); | |
h$l3(e, d, b); | |
return h$ap_3_2_fast(); | |
}; | |
}; | |
function h$$GA() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Gz() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d5; | |
var g = c.d6; | |
h$p2(e, h$$GA); | |
h$l4(h$c2(h$baseZCGHCziPtrziPtr_con_e, b, d), ((g - f) | 0), h$baseZCForeignziStorablezizdfStorableChar, | |
h$baseZCForeignziMarshalziArrayzizdwpeekArray); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$Gy() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var d = a.d2; | |
var e = d.d5; | |
var f = d.d6; | |
if((e === f)) | |
{ | |
h$p1(h$$Gz); | |
return h$e(c); | |
} | |
else | |
{ | |
h$pp20(a, h$$GB); | |
return h$e(b); | |
}; | |
}; | |
function h$$Gx() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
h$pp28(b, c.d2, h$$Gy); | |
return h$e(d); | |
}; | |
function h$$Gw() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp4(h$$Gx); | |
return h$e(a); | |
}; | |
function h$$Gv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var d = a.d1; | |
var e = a.d2; | |
h$pp5(e.d1, h$$Gw); | |
h$l3(b, c, d); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$Gu() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(c, b.d2, h$r2, h$$Gv); | |
return h$e(a); | |
}; | |
function h$$Gt() | |
{ | |
var a = h$stack[(h$sp - 5)]; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var f = h$r1; | |
var g = h$mulInt32(h$r1, 4); | |
if((g < 0)) | |
{ | |
h$r1 = h$baseZCGHCziForeignPtrzimallocForeignPtrBytes2; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var h = new h$MutVar(h$baseZCGHCziForeignPtrziNoFinalizzers); | |
var i = h$newByteArray(g); | |
var j = h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, i, 0, h$c2(h$baseZCGHCziForeignPtrziMallocPtr_con_e, i, h), | |
h$baseZCGHCziIOziBufferziWriteBuffer, f, 0, 0); | |
var k = h$c(h$$Gu); | |
k.d1 = c; | |
k.d2 = h$d2(j, k); | |
h$l2(h$c7(h$baseZCGHCziIOziBufferziBuffer_con_e, a, b, h$c1(h$baseZCGHCziForeignPtrziPlainForeignPtr_con_e, d), | |
h$baseZCGHCziIOziBufferziReadBuffer, e, 0, e), k); | |
return h$ap_2_1_fast(); | |
}; | |
}; | |
function h$$Gs() | |
{ | |
var a = h$r1; | |
h$sp -= 5; | |
var b = a; | |
if((b <= 1)) | |
{ | |
h$r1 = 1; | |
h$pp16(b); | |
++h$sp; | |
return h$$Gt; | |
} | |
else | |
{ | |
h$r1 = b; | |
h$pp16(b); | |
++h$sp; | |
return h$$Gt; | |
}; | |
}; | |
function h$$Gr() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = h$r2; | |
var f = new h$MutVar(h$baseZCGHCziForeignPtrziNoFinalizzers); | |
h$p5(a, c, e, f, h$$Gs); | |
return h$e(d); | |
}; | |
function h$$Gq() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d2; | |
h$l4(h$c3(h$$Gr, c, d, b), h$baseZCGHCziIOziEncodingziTypesziclose, e.d1, h$baseZCGHCziIOzibracket1); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$Gp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$Gq); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziForeignzizdwpeekCString_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$c(h$$GM); | |
d.d1 = h$r3; | |
d.d2 = h$d2(c, d); | |
h$p4(a, b, c, h$$Gp); | |
h$l2(0, d); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$GN() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(((a - 1) | 0), h$baseZCGHCziFloatzizdwxs); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziFloatzizdwxs_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
if((c === 1)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$c1(h$$GN, c)); | |
}; | |
return h$rs(); | |
}; | |
function h$$GU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LI, b), ((c - 1) | 0), h$$Lx); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
var d = a.d1; | |
h$l4(a.d2, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, d, b), ((c - 1) | 0), h$$Lx); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$GT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LH); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$GS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$GT); | |
return h$e(a); | |
}; | |
function h$$GR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LH); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$GQ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$GR); | |
return h$e(a); | |
}; | |
function h$$GP() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, h$c1(h$$GS, b)), h$$LH, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, h$c1(h$$GQ, b)), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$GO() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r3; | |
var d = h$r4; | |
var e = h$r2; | |
if((e === 0)) | |
{ | |
h$p2(d, h$$GP); | |
h$l3(a, c, b); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p3(c, e, h$$GU); | |
return h$e(d); | |
}; | |
}; | |
function h$$GW() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(((a - 1) | 0), h$$Ly); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$GV() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
if((c === 1)) | |
{ | |
return h$e(a); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$c1(h$$GW, c)); | |
}; | |
return h$rs(); | |
}; | |
function h$$G0() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LK); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a.d2); | |
}; | |
return h$rs(); | |
}; | |
function h$$GZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LK); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a.d2); | |
}; | |
return h$rs(); | |
}; | |
function h$$GY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c > 0)) | |
{ | |
h$p1(h$$GZ); | |
h$l3(b, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p1(h$$G0); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatziminExpt, b), h$baseZCGHCziShowziintToDigit, | |
h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$GX() | |
{ | |
h$p2(h$r3, h$$GY); | |
return h$e(h$r2); | |
}; | |
var h$$LA = h$strta("e0"); | |
function h$$G1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$LD = h$strta("formatRealFloat\/doFmt\/FFExponent: []"); | |
var h$$LE = h$strta("0.0e0"); | |
var h$$baseZCGHCziFloat_cd = h$str("GHC\/Float.hs:675:12-70|(d : ds')"); | |
function h$$G2() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziFloat_cd(); | |
h$r1 = a; | |
return h$ap_1_2_fast(); | |
}; | |
var h$$LH = h$strta("0"); | |
var h$$baseZCGHCziFloat_ce = h$str("GHC\/Float.hs:703:11-64|d : ds'"); | |
function h$$G3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziFloat_ce(); | |
h$r1 = a; | |
return h$ap_1_2_fast(); | |
}; | |
var h$$LN = h$strta("Infinity"); | |
var h$$LO = h$strta("-Infinity"); | |
var h$$LP = h$strta("NaN"); | |
function h$$G4() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(52, a, b); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Hc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Hb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = (a & 1); | |
if((d === 0)) | |
{ | |
h$l3(b, c, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp2(h$$Hc); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, c, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Ha() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$G9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$l3(b, c, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
case (2): | |
h$pp4(h$$Hb); | |
h$l2(c, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt); | |
return h$ap_1_1_fast(); | |
default: | |
h$pp2(h$$Ha); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, c, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$G8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(c, h$$G9); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezicompareInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$G7() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
h$sp -= 3; | |
h$pp12(a, h$$G8); | |
h$l3(1, b, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$G6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziRealzidivZZeroError; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$pp6(c, h$$G7); | |
h$l3(c, b, h$integerzmgmpZCGHCziIntegerziTypeziquotRemInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$G5() | |
{ | |
h$p4(h$r2, h$r3, h$r4, h$$G6); | |
h$l3(h$r1.d1, h$r4, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$LT = h$strta("roundTo: bad Value"); | |
var h$$LU = h$strta("Int"); | |
function h$$Hd() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === 0)) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziroundTo2_e() | |
{ | |
h$p1(h$$Hd); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziFloatziroundTo1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Hy() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
h$r1 = ((b / 2) | 0); | |
return h$rs(); | |
}; | |
function h$$Hx() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Hy); | |
return h$e(a); | |
}; | |
function h$$Hw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((0 < b)) | |
{ | |
h$l2(b, h$baseZCGHCziFloatzizdwxs); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$Hv() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Hw); | |
return h$e(a); | |
}; | |
function h$$Hu() | |
{ | |
h$l2(h$r1.d1, h$baseZCGHCziFloatzizdseven); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Ht() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
var f = ((c + b) | 0); | |
if((f === e)) | |
{ | |
h$r1 = h$baseZCGHCziFloatzizdfRealFracFloat2; | |
h$r2 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatziminExpt, d); | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziFloatziminExpt; | |
h$r2 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, f, d); | |
}; | |
return h$rs(); | |
}; | |
function h$$Hs() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$Ht); | |
return h$e(b); | |
}; | |
function h$$Hr() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$Hs); | |
return h$e(b); | |
}; | |
function h$$Hq() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
h$sp -= 3; | |
h$pp12(b, h$$Hr); | |
return h$e(a); | |
}; | |
function h$$Hp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
if((a >= b)) | |
{ | |
return h$e(h$baseZCGHCziFloatzizdfRealFracFloat2); | |
} | |
else | |
{ | |
return h$e(h$baseZCGHCziFloatziminExpt); | |
}; | |
}; | |
function h$$Ho() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
if((a >= b)) | |
{ | |
return h$e(h$baseZCGHCziFloatzizdfRealFracFloat2); | |
} | |
else | |
{ | |
return h$e(h$baseZCGHCziFloatziminExpt); | |
}; | |
}; | |
function h$$Hn() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
if((a >= b)) | |
{ | |
return h$e(h$baseZCGHCziFloatzizdfRealFracFloat2); | |
} | |
else | |
{ | |
return h$e(h$baseZCGHCziFloatziminExpt); | |
}; | |
}; | |
function h$$Hm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziFloatziminExpt; | |
h$r2 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$$Hn, c, b); | |
h$r2 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$Hl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
h$pp4(h$$Hm); | |
h$l3(d, h$baseZCGHCziFloatziroundTo2, h$baseZCGHCziListziall); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$$Ho, c, b); | |
h$r2 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$Hk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
var d = a; | |
if((c === d)) | |
{ | |
h$pp9(d, h$$Hl); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$$Hp, c, d); | |
h$r2 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$Hj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$Hk); | |
return h$e(b); | |
}; | |
function h$$Hi() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var f = a; | |
if((f === 0)) | |
{ | |
h$pp13(d, e, h$$Hj); | |
return h$e(c); | |
} | |
else | |
{ | |
h$pp6(c, h$$Hq); | |
h$l4(e, h$c1(h$$Hu, c), ((f - 1) | 0), b); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$Hh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCGHCziFloatziminExpt; | |
h$r2 = h$c1(h$$Hv, b); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp104(c, a.d2, h$$Hi); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$Hg() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p6(a, c, b.d2, h$r2, h$r3, h$$Hh); | |
return h$e(h$r4); | |
}; | |
function h$$Hf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
switch (a) | |
{ | |
case (0): | |
h$r1 = b; | |
h$r2 = c; | |
break; | |
case (1): | |
h$r1 = h$baseZCGHCziFloatzizdfRealFracFloat2; | |
h$r2 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatzizdfRealFracFloat2, c); | |
break; | |
default: | |
return h$e(h$baseZCGHCziFloatziroundTo1); | |
}; | |
return h$rs(); | |
}; | |
function h$$He() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$p3(a, b, h$$Hf); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziFloatzizdwroundTo_e() | |
{ | |
var a = h$r3; | |
var b = h$r4; | |
var c = h$c1(h$$Hx, h$r2); | |
var d = h$c(h$$Hg); | |
d.d1 = h$r2; | |
d.d2 = h$d2(c, d); | |
h$p1(h$$He); | |
h$l4(b, true, a, d); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$I1() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$I0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$I1); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezidecodeDoubleInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$IZ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d2); | |
}; | |
function h$$IY() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$IZ); | |
return h$e(a); | |
}; | |
function h$$IX() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$IW() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$IX); | |
return h$e(a); | |
}; | |
function h$$IV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a.d1, h$integerzmgmpZCGHCziIntegerziTypeziquotInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziRealzidivZZeroError; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$p2(c, h$$IV); | |
return h$e(b); | |
}; | |
}; | |
function h$$IT() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp6(a, h$$IU); | |
h$l3(h$baseZCGHCziFloatzirationalToDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IS() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$IT); | |
h$l3(b, h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = (((-1074) - c) | 0); | |
if((d > 0)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c2(h$$IS, b, d), ((c + d) | 0)); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$c1(h$$IW, b), a); | |
}; | |
return h$rs(); | |
}; | |
function h$$IQ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$IR); | |
return h$e(b); | |
}; | |
function h$$IP() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$IO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$IP); | |
return h$e(a); | |
}; | |
function h$$IN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d2); | |
}; | |
function h$$IM() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$IN); | |
return h$e(a); | |
}; | |
function h$$IL() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IK() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$IL); | |
h$l3((-a | 0), h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IJ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$II() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IH() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$II); | |
h$l3((-a | 0), h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IG() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IE() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
var b = (-a | 0); | |
h$p1(h$$IF); | |
h$l3(((b + 1) | 0), h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$ID() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$ID); | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$IB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = h$c4(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e, h$c1(h$$IC, b), h$c1(h$$IE, c), | |
h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziFloatzizdfRealDouble1); | |
} | |
else | |
{ | |
h$r1 = h$c4(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e, h$c1(h$$IG, b), h$c1(h$$IH, c), | |
h$baseZCGHCziFloatzizdfRealDouble1, h$baseZCGHCziFloatzizdfRealDouble1); | |
}; | |
return h$rs(); | |
}; | |
function h$$IA() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Iz() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Iy() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Iz); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ix() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Iw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Iv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Iw); | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Iu() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Iv); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$It() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$c1(h$$IA, c); | |
if(a) | |
{ | |
h$r1 = h$c4(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e, h$c2(h$$Iu, b, d), h$$LR, h$c1(h$$Ix, d), d); | |
} | |
else | |
{ | |
h$r1 = h$c4(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e, h$c2(h$$Iy, b, d), h$baseZCGHCziFloatzizdfRealFloatDouble5, | |
d, d); | |
}; | |
return h$rs(); | |
}; | |
function h$$Is() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c >= 0)) | |
{ | |
h$pp6(c, h$$It); | |
h$l3(h$$LQ, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
if((c > (-1074))) | |
{ | |
h$pp6(c, h$$IB); | |
h$l3(h$$LQ, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c4(h$ghczmprimZCGHCziTupleziZLz2cUz2cUz2cUZR_con_e, h$c1(h$$IJ, b), h$c1(h$$IK, c), | |
h$baseZCGHCziFloatzizdfRealDouble1, h$baseZCGHCziFloatzizdfRealDouble1); | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$Ir() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$Is); | |
return h$e(b); | |
}; | |
function h$$Iq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
return h$e(b.d1); | |
}; | |
function h$$Ip() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Iq); | |
return h$e(a); | |
}; | |
function h$$Io() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$In() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Io); | |
return h$e(a); | |
}; | |
function h$$Im() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
return h$e(b.d2); | |
}; | |
function h$$Il() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Im); | |
return h$e(a); | |
}; | |
function h$$Ik() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ij() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$l2(((c + 1) | 0), b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Ii() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp5(c, h$$Ij); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezileIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ih() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$pp10(c, h$$Ii); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ig() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$l2(((b + 1) | 0), c); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$If() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(c, h$$Ig); | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypezileIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ie() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$pp9(c, h$$If); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Id() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = h$r2; | |
if((f >= 0)) | |
{ | |
h$p5(c, d, e, f, h$$Ie); | |
h$l3(f, a, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p5(c, d, e, f, h$$Ih); | |
h$l3((-f | 0), a, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Ic() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Ib() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Ia() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = c; | |
var f = Math.log(e); | |
var g = Math.log(2.0); | |
var h = a; | |
var i = Math.log(h); | |
var j = b; | |
var k = (j * g); | |
var l = (f + k); | |
var m = (l / i); | |
var n = (m | 0); | |
var o = n; | |
if((o < m)) | |
{ | |
h$p1(h$$Ib); | |
h$l2(((n + 1) | 0), d); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$p1(h$$Ic); | |
h$l2(n, d); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$H9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$Ia); | |
h$l2(b, h$integerzmgmpZCGHCziIntegerziTypezidoubleFromInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$H8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$H9); | |
return h$e(b); | |
}; | |
function h$$H7() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
h$pp8(h$$H8); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezidoubleFromInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$H6() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$H5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$H4() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((52 + c) | 0); | |
if((d >= 0)) | |
{ | |
var e = h$mulInt32(d, 8651); | |
var f = ((e / 28738) | 0); | |
h$p1(h$$H5); | |
h$l2(((f + 1) | 0), b); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
var g = h$mulInt32(d, 8651); | |
h$p1(h$$H6); | |
h$l2(((g / 28738) | 0), b); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$H3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var h = h$c(h$$Id); | |
h.d1 = b; | |
h.d2 = h$d3(f, g, h); | |
if(a) | |
{ | |
h$p2(h, h$$H4); | |
return h$e(c); | |
} | |
else | |
{ | |
h$pp14(e, h, h$$H7); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, d, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$H2() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = b.d5; | |
h$bh(); | |
h$p7(a, c, d, e, f, h$c2(h$$Ik, g, b.d6), h$$H3); | |
h$l3(h$baseZCGHCziFloatziexpts4, a, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$H1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$H0() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 5)]; | |
var e = h$stack[(h$sp - 4)]; | |
var f = h$stack[(h$sp - 3)]; | |
var g = h$stack[(h$sp - 2)]; | |
var h = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
if(a) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$H0, e), d); | |
} | |
else | |
{ | |
h$l6(b, g, f, h, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, e, d), c); | |
return h$ap_gen_fast(1285); | |
}; | |
return h$rs(); | |
}; | |
function h$$HY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 8; | |
h$pp128(h$$HZ); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezigtIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HX() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, b); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$HX, c), b); | |
}; | |
return h$rs(); | |
}; | |
function h$$HV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp5(c, h$$HW); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if(a) | |
{ | |
h$pp10(d, h$$HV); | |
h$l3(h$baseZCGHCziFloatzizdfRealFloatDouble5, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, d, c); | |
}; | |
return h$rs(); | |
}; | |
function h$$HT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 5; | |
h$pp16(h$$HU); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezigtIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
if(c) | |
{ | |
h$pp19(b, d, h$$HT); | |
h$l3(a, d, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp160(a, h$$HY); | |
h$l3(a, d, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$HR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 8)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 9; | |
h$pp161(d, a, h$$HS); | |
h$l3(b, c, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
h$sp += 9; | |
h$stack[(h$sp - 1)] = a; | |
h$stack[h$sp] = h$$HR; | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HP() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 6)]; | |
var d = h$stack[(h$sp - 3)]; | |
h$sp -= 7; | |
h$pp200(a, b, h$$HQ); | |
h$l3(c, d, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 7)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 8; | |
if(a) | |
{ | |
h$r1 = h$baseZCGHCziRealzidivZZeroError; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$pp72(e, h$$HP); | |
h$l3(d, h$c2(h$$H1, b, c), h$integerzmgmpZCGHCziIntegerziTypeziquotRemInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$HN() | |
{ | |
var a = h$r1.d1; | |
h$p8(a, h$r1.d2, h$r2, h$r3, h$r4, h$r5, h$r6, h$$HO); | |
h$l3(h$baseZCGHCziFloatzirationalToDouble5, h$r4, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HM() | |
{ | |
var a = h$r1.d1; | |
h$l3(h$r1.d2, a, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HL() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(a, h$baseZCGHCziNumzizdfNumIntzuzdcfromInteger, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HK() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$HL); | |
h$l3(h$ghczmprimZCGHCziTypesziZMZN, a, h$baseZCGHCziListzireverse1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$p1(h$$HK); | |
h$l6(f, a, d, h$c2(h$$HM, e, c), h$ghczmprimZCGHCziTypesziZMZN, b); | |
return h$ap_gen_fast(1285); | |
}; | |
function h$$HI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$pp48(a, h$$HJ); | |
h$l3(b, c, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 6; | |
h$pp34(a, h$$HI); | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var e = a.d2; | |
h$pp35(d, e.d3, h$$HH); | |
h$l3((-c | 0), b, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(a, h$baseZCGHCziNumzizdfNumIntzuzdcfromInteger, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$HF); | |
h$l3(h$ghczmprimZCGHCziTypesziZMZN, a, h$baseZCGHCziListzireverse1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$p1(h$$HE); | |
h$l6(c, d, a, e, h$ghczmprimZCGHCziTypesziZMZN, b); | |
return h$ap_gen_fast(1285); | |
}; | |
function h$$HC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
h$pp20(c, h$$HD); | |
h$l3(a, b, h$integerzmgmpZCGHCziIntegerziTypezitimesInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var e = a.d2; | |
h$pp35(d, e.d3, h$$HC); | |
h$l3(c, b, h$baseZCGHCziFloatzizdwexpt); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$HA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
h$sp -= 6; | |
var d = a; | |
var e = h$c(h$$HN); | |
e.d1 = b; | |
e.d2 = e; | |
if((d >= 0)) | |
{ | |
h$pp98(d, e, h$$HB); | |
return h$e(c); | |
} | |
else | |
{ | |
h$pp98(d, e, h$$HG); | |
return h$e(c); | |
}; | |
}; | |
function h$$Hz() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$bh(); | |
h$p6(a, c, d, e, b.d4, h$$HA); | |
return h$e(b.d5); | |
}; | |
function h$baseZCGHCziFloatzizdwzdsfloatToDigits1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
var d = h$r3; | |
if((d === 0.0)) | |
{ | |
h$r1 = a; | |
h$r2 = b; | |
} | |
else | |
{ | |
var e = h$c1(h$$I0, d); | |
var f = h$c1(h$$IY, e); | |
var g = h$c2(h$$IQ, e, f); | |
var h = h$c1(h$$IO, g); | |
var i = h$c1(h$$IM, g); | |
var j = h$c2(h$$Ir, h, i); | |
var k = h$c1(h$$Ip, j); | |
var l = h$c1(h$$In, j); | |
var m = h$c1(h$$Il, j); | |
var n = h$c7(h$$H2, c, f, h, i, k, l, m); | |
h$r1 = h$c6(h$$Hz, c, j, k, l, m, n); | |
h$r2 = n; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziexpts5_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l5(a, h$r2, b.d1, b.d2, b.d3); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$I3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
if((a < 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizc1); | |
} | |
else | |
{ | |
var b = a; | |
if((b === 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizdfEnumRatio1); | |
} | |
else | |
{ | |
h$l3(b, h$baseZCGHCziFloatziexpts4, h$baseZCGHCziRealzizdwf); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
function h$$I2() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var b = h$r1; | |
if((0 <= b)) | |
{ | |
if((b <= 324)) | |
{ | |
a[b] = h$c1(h$$I3, b); | |
var c = b; | |
if((c === 324)) | |
{ | |
h$r1 = h$c4(h$baseZCGHCziArrziArray_con_e, h$baseZCGHCziFloatziminExpt, h$baseZCGHCziFloatzimaxExpt10, 325, a); | |
} | |
else | |
{ | |
h$r1 = ((c + 1) | 0); | |
++h$sp; | |
++h$sp; | |
return h$$I2; | |
}; | |
} | |
else | |
{ | |
h$l2(b, h$baseZCGHCziFloatziexpts5); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
h$l2(b, h$baseZCGHCziFloatziexpts5); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziexpts3_e() | |
{ | |
var a = h$r1.d1; | |
h$r1 = 0; | |
h$p1(h$newArray(325, a)); | |
++h$sp; | |
return h$$I2; | |
}; | |
function h$baseZCGHCziFloatziexpt1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$r5 = a; | |
h$l3(h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, h$r3, h$r2), b.d1, b.d2); | |
return h$ap_4_4_fast(); | |
}; | |
function h$baseZCGHCziFloatziexpts2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$l5(a, h$r2, b.d1, b.d2, b.d3); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$I5() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
if((a < 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizc1); | |
} | |
else | |
{ | |
var b = a; | |
if((b === 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizdfEnumRatio1); | |
} | |
else | |
{ | |
h$l3(b, h$baseZCGHCziFloatzizdfRealFloatDouble5, h$baseZCGHCziRealzizdwf); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
function h$$I4() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var b = h$r1; | |
if((0 <= b)) | |
{ | |
if((b <= 1100)) | |
{ | |
a[b] = h$c1(h$$I5, b); | |
var c = b; | |
if((c === 1100)) | |
{ | |
h$r1 = h$c4(h$baseZCGHCziArrziArray_con_e, h$baseZCGHCziFloatziminExpt, h$baseZCGHCziFloatzimaxExpt, 1101, a); | |
} | |
else | |
{ | |
h$r1 = ((c + 1) | 0); | |
++h$sp; | |
++h$sp; | |
return h$$I4; | |
}; | |
} | |
else | |
{ | |
h$l2(b, h$baseZCGHCziFloatziexpts2); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
h$l2(b, h$baseZCGHCziFloatziexpts2); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziexpts1_e() | |
{ | |
var a = h$r1.d1; | |
h$r1 = 0; | |
h$p1(h$newArray(1101, a)); | |
++h$sp; | |
return h$$I4; | |
}; | |
function h$$Je() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a; | |
if((f <= c)) | |
{ | |
if((c <= g)) | |
{ | |
var h = ((c - f) | 0); | |
return h$e(e[h]); | |
} | |
else | |
{ | |
h$l4(b, d, a, h$baseZCGHCziFloatziexpt1); | |
return h$ap_3_3_fast(); | |
}; | |
} | |
else | |
{ | |
h$l4(b, d, a, h$baseZCGHCziFloatziexpt1); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$Jd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 5; | |
h$pp52(a, a, h$$Je); | |
return h$e(b); | |
}; | |
function h$$Jc() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
h$pp28(d, c.d3, h$$Jd); | |
return h$e(b); | |
}; | |
function h$$Jb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if(a) | |
{ | |
if((c <= 324)) | |
{ | |
h$pp5(d, h$$Jc); | |
return h$e(h$baseZCGHCziFloatziexpts10); | |
} | |
else | |
{ | |
if((c < 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizc1); | |
} | |
else | |
{ | |
var e = c; | |
if((e === 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizdfEnumRatio1); | |
} | |
else | |
{ | |
h$l3(e, b, h$baseZCGHCziRealzizdwf); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
} | |
else | |
{ | |
if((c < 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizc1); | |
} | |
else | |
{ | |
var f = c; | |
if((f === 0)) | |
{ | |
return h$e(h$baseZCGHCziRealzizdfEnumRatio1); | |
} | |
else | |
{ | |
h$l3(f, b, h$baseZCGHCziRealzizdwf); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
}; | |
function h$$Ja() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp8(h$$Jb); | |
h$l3(h$baseZCGHCziFloatziexpts4, a, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$I9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a; | |
if((f <= c)) | |
{ | |
if((c <= g)) | |
{ | |
var h = ((c - f) | 0); | |
return h$e(e[h]); | |
} | |
else | |
{ | |
h$l4(b, d, a, h$baseZCGHCziFloatziexpt1); | |
return h$ap_3_3_fast(); | |
}; | |
} | |
else | |
{ | |
h$l4(b, d, a, h$baseZCGHCziFloatziexpt1); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$I8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 5; | |
h$pp52(a, a, h$$I9); | |
return h$e(b); | |
}; | |
function h$$I7() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
h$pp28(d, c.d3, h$$I8); | |
return h$e(b); | |
}; | |
function h$$I6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = b; | |
if(a) | |
{ | |
if((b >= 0)) | |
{ | |
if((b <= 1100)) | |
{ | |
h$pp5(c, h$$I7); | |
return h$e(h$baseZCGHCziFloatziexpts); | |
} | |
else | |
{ | |
h$pp4(c); | |
++h$sp; | |
return h$$Ja; | |
}; | |
} | |
else | |
{ | |
h$pp4(c); | |
++h$sp; | |
return h$$Ja; | |
}; | |
} | |
else | |
{ | |
h$pp4(b); | |
++h$sp; | |
return h$$Ja; | |
}; | |
}; | |
function h$baseZCGHCziFloatzizdwexpt_e() | |
{ | |
h$p3(h$r2, h$r3, h$$I6); | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Jf() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
var c = (b % 2); | |
if((c === 0)) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatzizdseven_e() | |
{ | |
h$p1(h$$Jf); | |
return h$e(h$r2); | |
}; | |
function h$$Jm() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(-b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Jl() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Jk() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatzizdfShowDouble3, h$c2(h$$Jl, h$r1.d1, h$r2)); | |
return h$rs(); | |
}; | |
function h$$Jj() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishows6, b), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Ji() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishows8, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, | |
h$baseZCGHCziFloatzizdfShowDouble3, h$c2(h$$Jj, h$r1.d1, h$r2))); | |
return h$rs(); | |
}; | |
function h$$Jh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e = h$c2(h$$Jm, b, c); | |
if((d > 6)) | |
{ | |
h$r1 = h$c1(h$$Ji, e); | |
} | |
else | |
{ | |
h$r1 = h$c1(h$$Jk, e); | |
}; | |
return h$rs(); | |
}; | |
function h$$Jg() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(b, h$$Jh); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziFloatzizdwzdsshowSignedFloat_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
if((c < 0.0)) | |
{ | |
h$p3(a, b, c); | |
++h$sp; | |
return h$$Jg; | |
} | |
else | |
{ | |
var d = h$isDoubleNegativeZero(c); | |
var e = d; | |
if((e === 0)) | |
{ | |
h$l2(c, a); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$p3(a, b, c); | |
++h$sp; | |
return h$$Jg; | |
}; | |
}; | |
}; | |
function h$$KQ() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$KP() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
h$p1(h$$KQ); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, ((b - 1) | 0), 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$KO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$KP); | |
return h$e(a); | |
}; | |
var h$$baseZCGHCziFloat_pb = h$str(".0e"); | |
function h$$KN() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r4 = h$c1(h$$KO, a); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziFloat_pb(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$KM() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$KL() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
h$p1(h$$KM); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, ((b - 1) | 0), 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$KK() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$KL); | |
return h$e(a); | |
}; | |
var h$$baseZCGHCziFloat_pf = h$str("e"); | |
function h$$KJ() | |
{ | |
h$r4 = h$c1(h$$KK, h$r1.d1); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziFloat_pf(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$KI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c1(h$$KJ, a), b, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$KH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c1(h$$KN, b)); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, h$c2(h$$KI, b, a))); | |
}; | |
return h$rs(); | |
}; | |
function h$$KG() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$pp6(b, h$$KH); | |
return h$e(a); | |
}; | |
function h$$KF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LE); | |
} | |
else | |
{ | |
h$sp += 3; | |
++h$sp; | |
return h$$KG; | |
}; | |
}; | |
function h$$KE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = a; | |
if((c === 48)) | |
{ | |
h$pp4(a); | |
h$p1(h$$KF); | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp4(a); | |
++h$sp; | |
return h$$KG; | |
}; | |
}; | |
function h$$KD() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LC); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$pp6(a.d2, h$$KE); | |
return h$e(b); | |
}; | |
}; | |
function h$$KC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b <= 1)) | |
{ | |
return h$e(h$baseZCGHCziFloatzizdfRealFracFloat2); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$KB() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$KC); | |
return h$e(a); | |
}; | |
function h$$KA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
h$r1 = ((b + 1) | 0); | |
return h$rs(); | |
}; | |
function h$$Kz() | |
{ | |
h$p1(h$$KA); | |
return h$e(h$r1.d1); | |
}; | |
function h$$Ky() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$Kx() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Ky); | |
h$l4(a, h$c1(h$$Kz, b), h$$LB, h$baseZCGHCziFloatzizdwroundTo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Kw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$Kv() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Kw); | |
return h$e(a); | |
}; | |
function h$$Ku() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LF); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a.d2); | |
}; | |
return h$rs(); | |
}; | |
function h$$Kt() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Ku); | |
h$l3(a.d2, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ks() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$$LF); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, b, a.d2); | |
}; | |
return h$rs(); | |
}; | |
function h$$Kr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Ks); | |
h$l3(a, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Kq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
return h$e(h$baseZCGHCziListziinit2); | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p1(h$$Kr); | |
h$l3(a.d2, b, h$baseZCGHCziListziinit1); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Kp() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Kq); | |
return h$e(a.d2); | |
}; | |
function h$$Ko() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c > 0)) | |
{ | |
h$p1(h$$Kp); | |
return h$e(b); | |
} | |
else | |
{ | |
h$p1(h$$Kt); | |
return h$e(b); | |
}; | |
}; | |
function h$$Kn() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$Ko); | |
return h$e(b); | |
}; | |
function h$$Km() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$Kl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
var d = ((b - 1) | 0); | |
h$p1(h$$Km); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, ((d + c) | 0), 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Kk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Kl); | |
return h$e(b); | |
}; | |
function h$$Kj() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b, h$$Kk); | |
return h$e(a); | |
}; | |
function h$$Ki() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LG, h$c2(h$$Kj, b, c)), a.d2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Kh() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p3(a, b.d1, h$$Ki); | |
return h$e(b.d2); | |
}; | |
function h$$Kg() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$Kf() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Kg); | |
return h$e(a); | |
}; | |
function h$$Ke() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var d = h$c2(h$$Kx, a, c); | |
var e = h$c1(h$$Kv, d); | |
var f = h$c2(h$$Kn, d, e); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$Kf, f), h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, | |
h$c3(h$$Kh, b, e, f))); | |
return h$rs(); | |
}; | |
function h$$Kd() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((0 < b)) | |
{ | |
h$l2(b, h$$Ly); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
return h$e(h$$LA); | |
}; | |
}; | |
function h$$Kc() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Kd); | |
return h$e(a); | |
}; | |
function h$$Kb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = h$stack[h$sp]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LI, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, h$c1(h$$Kc, b))); | |
} | |
else | |
{ | |
h$sp += 3; | |
++h$sp; | |
return h$$Ke; | |
}; | |
return h$rs(); | |
}; | |
function h$$Ka() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$sp -= 3; | |
var c = a; | |
if((c === 0)) | |
{ | |
h$sp += 3; | |
h$p1(h$$Kb); | |
return h$e(b); | |
} | |
else | |
{ | |
h$sp += 3; | |
++h$sp; | |
return h$$Ke; | |
}; | |
}; | |
function h$$J9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$sp += 3; | |
++h$sp; | |
return h$$Ke; | |
} | |
else | |
{ | |
var b = a.d1; | |
var c = a.d2; | |
h$sp += 3; | |
h$p2(c, h$$Ka); | |
return h$e(b); | |
}; | |
}; | |
function h$$J8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$p2(c, h$$KD); | |
h$l3(b, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp4(h$c1(h$$KB, a.d1)); | |
h$p1(h$$J9); | |
return h$e(b); | |
}; | |
}; | |
function h$$J7() | |
{ | |
h$l3(h$r1.d1, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$J6() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$J5() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b - 1) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$J4() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
if((c === 1)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LI, h$c2(h$$J5, b, c)); | |
}; | |
return h$rs(); | |
}; | |
function h$$J3() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
var c = (-b | 0); | |
if((0 < c)) | |
{ | |
var d = h$c(h$$J4); | |
d.d1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LI, h$c1(h$$J6, a)); | |
d.d2 = d; | |
h$l2(c, d); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$l3(a, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
var h$$baseZCGHCziFloat_pW = h$str("0."); | |
function h$$J2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
if((c <= 0)) | |
{ | |
h$r4 = h$c2(h$$J3, b, c); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziFloat_pW(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
} | |
else | |
{ | |
h$l4(h$c1(h$$J7, b), h$ghczmprimZCGHCziTypesziZMZN, c, h$$Lx); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$J1() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b <= 0)) | |
{ | |
return h$e(h$baseZCGHCziFloatziminExpt); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$J0() | |
{ | |
h$p1(h$$J1); | |
return h$e(h$r1.d1); | |
}; | |
function h$$JZ() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$l3(b, a, h$$Lz); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$JY() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(((b - 1) | 0), a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$JX() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = h$r2; | |
if((c === 1)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatziminExpt, h$c2(h$$JY, b, c)); | |
}; | |
return h$rs(); | |
}; | |
function h$$JW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b <= 0)) | |
{ | |
return h$e(h$baseZCGHCziFloatziminExpt); | |
} | |
else | |
{ | |
h$r1 = a; | |
}; | |
return h$rs(); | |
}; | |
function h$$JV() | |
{ | |
h$p1(h$$JW); | |
return h$e(h$r1.d1); | |
}; | |
function h$$JU() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$l3(b, a, h$$Lz); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$JT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p1(h$$JU); | |
h$l4(a, h$c1(h$$JV, b), h$$LB, h$baseZCGHCziFloatzizdwroundTo); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$JS() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
var e = (-d | 0); | |
if((0 < e)) | |
{ | |
var f = h$c(h$$JX); | |
f.d1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatziminExpt, a); | |
f.d2 = f; | |
h$p2(c, h$$JT); | |
h$l2(e, f); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$p1(h$$JZ); | |
h$l4(a, h$c1(h$$J0, c), h$$LB, h$baseZCGHCziFloatzizdwroundTo); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$JR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
return h$e(h$$LM); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$JQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$JR); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, a); | |
}; | |
return h$rs(); | |
}; | |
function h$$JP() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$pp2(h$$JQ); | |
return h$e(a.d2); | |
}; | |
function h$$JO() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(a, h$$JP); | |
return h$e(b); | |
}; | |
function h$$JN() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$$JM() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$JN); | |
return h$e(a); | |
}; | |
function h$$JL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d <= 0)) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = ((d + c) | 0); | |
}; | |
return h$rs(); | |
}; | |
function h$$JK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p3(c, b.d2, h$$JL); | |
return h$e(a); | |
}; | |
function h$$JJ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
return h$e(h$$LM); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$JI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$JJ); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, a); | |
}; | |
return h$rs(); | |
}; | |
function h$$JH() | |
{ | |
h$p2(h$r1.d1, h$$JI); | |
return h$e(h$r1.d2); | |
}; | |
function h$$JG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
return h$e(h$$LM); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$JF() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$JG); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, a); | |
}; | |
return h$rs(); | |
}; | |
function h$$JE() | |
{ | |
h$p2(h$r1.d1, h$$JF); | |
return h$e(h$r1.d2); | |
}; | |
function h$$JD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$l3(h$c2(h$$JH, b, c), h$$LH, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3(h$c2(h$$JE, b, c), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$JC() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
h$sp -= 2; | |
h$pp6(b, h$$JD); | |
return h$e(a); | |
}; | |
function h$$JB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$p2(c, h$$JC); | |
h$l3(a, b, h$baseZCGHCziListzizdwsplitAtzq); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$JA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
return h$e(h$$LM); | |
} | |
else | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
}; | |
return h$rs(); | |
}; | |
function h$$Jz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$JA); | |
return h$e(b); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$LL, a); | |
}; | |
return h$rs(); | |
}; | |
function h$$Jy() | |
{ | |
h$p2(h$r1.d1, h$$Jz); | |
h$l3(h$r1.d2, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Jx() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
var f = ((b + e) | 0); | |
if((f <= 0)) | |
{ | |
h$l3(h$c2(h$$Jy, c, d), h$$LH, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp5(f, h$$JB); | |
h$l3(d, h$baseZCGHCziShowziintToDigit, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Jw() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
h$sp -= 3; | |
h$pp12(b, h$$Jx); | |
return h$e(a); | |
}; | |
function h$$Jv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
if((e >= 0)) | |
{ | |
h$pp5(e, h$$Jw); | |
h$l4(b, h$c3(h$$JK, d, a, e), h$$LB, h$baseZCGHCziFloatzizdwroundTo); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
var f = h$c3(h$$JS, b, d, e); | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$JM, f), h$c2(h$$JO, c, f)); | |
}; | |
return h$rs(); | |
}; | |
function h$$Ju() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$pp2(h$$J2); | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp12(a.d1, h$$Jv); | |
return h$e(b); | |
}; | |
}; | |
function h$$Jt() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
if((d < 0)) | |
{ | |
h$l4(a, c, h$baseZCGHCziFloatziFFExponent, b); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
if((d > 7)) | |
{ | |
h$l4(a, c, h$baseZCGHCziFloatziFFExponent, b); | |
return h$ap_3_3_fast(); | |
} | |
else | |
{ | |
h$l4(a, c, h$baseZCGHCziFloatziFFFixed, b); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
}; | |
function h$$Js() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$p3(d, e, h$$J8); | |
return h$e(b); | |
case (2): | |
h$pp13(d, e, h$$Ju); | |
return h$e(b); | |
default: | |
h$p3(c, d, h$$Jt); | |
return h$e(e); | |
}; | |
}; | |
function h$$Jr() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p6(a, c, b.d2, h$r3, h$r4, h$$Js); | |
return h$e(h$r2); | |
}; | |
function h$$Jq() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(b, a, c, d); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Jp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$p3(a, b.d2, h$$Jq); | |
h$l3(-c, h$baseZCGHCziFloatziexpts4, h$baseZCGHCziFloatzizdwzdsfloatToDigits1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Jo() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziFloatzizdfShowDouble3, h$c3(h$$Jp, a, b, c)); | |
return h$rs(); | |
}; | |
function h$$Jn() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(b, a, c, d); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCGHCziFloatzizdwzdsformatRealFloatAlt_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
var g = h$r2; | |
var h = h$r3; | |
var i = h$r4; | |
var j = h$r5; | |
var k = h$isDoubleNaN(h$r5); | |
var l = k; | |
if((l === 0)) | |
{ | |
var m = h$isDoubleInfinite(j); | |
var n = m; | |
if((n === 0)) | |
{ | |
var o = h$c(h$$Jr); | |
o.d1 = h; | |
o.d2 = h$d2(i, o); | |
if((j < 0.0)) | |
{ | |
h$p3(g, j, o); | |
++h$sp; | |
return h$$Jo; | |
} | |
else | |
{ | |
var p = h$isDoubleNegativeZero(j); | |
var q = p; | |
if((q === 0)) | |
{ | |
h$p3(g, o, h$$Jn); | |
h$l3(j, a, c); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p3(g, j, o); | |
++h$sp; | |
return h$$Jo; | |
}; | |
}; | |
} | |
else | |
{ | |
if((j < 0.0)) | |
{ | |
return h$e(d); | |
} | |
else | |
{ | |
return h$e(e); | |
}; | |
}; | |
} | |
else | |
{ | |
return h$e(f); | |
}; | |
}; | |
function h$$KS() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l5(a, false, h$baseZCGHCziBaseziNothing, h$baseZCGHCziFloatziFFGeneric, h$baseZCGHCziFloatzizdwzdsformatRealFloatAlt); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$KR() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$KS); | |
return h$e(a); | |
}; | |
function h$baseZCGHCziFloatzizdfShowDoublezuzdsshowFloat_e() | |
{ | |
h$l2(h$c1(h$$KR, h$r2), h$r1.d1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Le() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = ((d - c) | 0); | |
h$l4(a, b, ((e + 1) | 0), h$$LS); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Ld() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if(a) | |
{ | |
h$pp12(e, h$$Le); | |
h$l3(1, d, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l4(d, b, ((e - c) | 0), h$$LS); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$Lc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 5; | |
h$pp16(h$$Ld); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezileIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Lb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = ((d - c) | 0); | |
h$l4(a, b, ((e + 1) | 0), h$$LS); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$La() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if(a) | |
{ | |
h$pp12(e, h$$Lb); | |
h$l3(1, d, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l4(d, b, ((e - c) | 0), h$$LS); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$K9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
h$sp -= 5; | |
h$pp16(h$$La); | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypezileIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$K8() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
h$sp -= 5; | |
var b = h$r1; | |
var c = h$r2; | |
if((a >= 0)) | |
{ | |
h$pp21(b, c, h$$K9); | |
h$l3(a, c, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp21(b, c, h$$Lc); | |
h$l3((-a | 0), c, h$integerzmgmpZCGHCziIntegerziTypezishiftRInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$K7() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
var e = ((d - a) | 0); | |
if((e >= 0)) | |
{ | |
h$l3(e, c, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3((-e | 0), c, h$integerzmgmpZCGHCziIntegerziTypezishiftRInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$K6() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
var e = ((a - d) | 0); | |
if((e >= 0)) | |
{ | |
h$l3(e, c, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3((-e | 0), c, h$integerzmgmpZCGHCziIntegerziTypezishiftRInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$K5() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var d = h$r1; | |
if((d < b)) | |
{ | |
h$l2(a, h$c3(h$$K6, b, c, d)); | |
h$pp8(d); | |
++h$sp; | |
return h$$K8; | |
} | |
else | |
{ | |
if((d === b)) | |
{ | |
h$l2(a, c); | |
h$pp8(d); | |
++h$sp; | |
return h$$K8; | |
} | |
else | |
{ | |
h$l2(h$c3(h$$K7, b, a, d), c); | |
h$pp8(d); | |
++h$sp; | |
return h$$K8; | |
}; | |
}; | |
}; | |
function h$$K4() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var e = h$ghcjsbn_integerLog2(a); | |
var f = e; | |
var g = ((f - c) | 0); | |
if((b <= g)) | |
{ | |
h$r1 = g; | |
h$pp5(d, a); | |
++h$sp; | |
return h$$K5; | |
} | |
else | |
{ | |
h$r1 = b; | |
h$pp5(d, a); | |
++h$sp; | |
return h$$K5; | |
}; | |
}; | |
function h$$K3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$K2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$K1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = (a & 1); | |
if((e === 0)) | |
{ | |
h$l3(((b - c) | 0), d, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$p2(((b - c) | 0), h$$K2); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, d, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$K0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
switch (d) | |
{ | |
case (0): | |
h$l3(((b - c) | 0), a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
case (1): | |
h$pp12(a, h$$K1); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt); | |
return h$ap_1_1_fast(); | |
default: | |
h$p2(((b - c) | 0), h$$K3); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$KZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$KY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f = (a & 1); | |
if((f === 0)) | |
{ | |
var g = ((b - d) | 0); | |
var h = ((g + 1) | 0); | |
h$l3(((h - c) | 0), e, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var i = ((b - d) | 0); | |
var j = ((i + 1) | 0); | |
h$p2(((j - c) | 0), h$$KZ); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, e, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$KX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l3(b, a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$KW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
switch (e) | |
{ | |
case (0): | |
var f = ((b - d) | 0); | |
var g = ((f + 1) | 0); | |
h$l3(((g - c) | 0), a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
case (2): | |
var h = ((b - d) | 0); | |
var i = ((h + 1) | 0); | |
h$p2(((i - c) | 0), h$$KX); | |
h$l3(h$baseZCGHCziFloatzizdfRealDouble1, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
default: | |
h$pp24(a, h$$KY); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypeziintegerToInt); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$KV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = h$ghcjsbn_integerLog2(a); | |
var f = e; | |
var g = ((d + b) | 0); | |
var h = ((g - 1) | 0); | |
if((f >= h)) | |
{ | |
if((f < c)) | |
{ | |
h$l3((-d | 0), a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var i = h$integer_roundingMode(a, ((f - c) | 0)); | |
var j = i; | |
var k = ((f + 1) | 0); | |
var l = ((k - c) | 0); | |
var m = (-l | 0); | |
h$pp25(f, j, h$$KW); | |
if((m >= 0)) | |
{ | |
h$l3(m, a, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3((-m | 0), a, h$integerzmgmpZCGHCziIntegerziTypezishiftRInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
} | |
else | |
{ | |
var n = ((b - c) | 0); | |
var o = ((d + n) | 0); | |
if((o <= 0)) | |
{ | |
var p = ((b - c) | 0); | |
h$l3(((p - o) | 0), a, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
if((o <= f)) | |
{ | |
var q = h$integer_roundingMode(a, ((o - 1) | 0)); | |
var r = q; | |
var s = (-o | 0); | |
h$pp12(r, h$$K0); | |
if((s >= 0)) | |
{ | |
h$l3(s, a, h$integerzmgmpZCGHCziIntegerziTypezishiftLInteger); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$l3((-s | 0), a, h$integerzmgmpZCGHCziIntegerziTypezishiftRInteger); | |
return h$ap_2_2_fast(); | |
}; | |
} | |
else | |
{ | |
var t = ((f + 1) | 0); | |
if((o > t)) | |
{ | |
h$r1 = 0.0; | |
} | |
else | |
{ | |
var u = h$ghcjsbn_integerLog2IsPowerOf2(a); | |
var v = u; | |
if((v < 0)) | |
{ | |
h$r1 = 0.0; | |
} | |
else | |
{ | |
h$l3(((b - c) | 0), h$baseZCGHCziFloatzizdfRealDouble1, h$integerzmgmpZCGHCziIntegerziTypeziencodeDoubleInteger); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
}; | |
}; | |
}; | |
return h$rs(); | |
}; | |
function h$$KU() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
h$sp -= 5; | |
var b = h$r1; | |
var c = h$r2; | |
if((c === 0)) | |
{ | |
h$pp12(b, h$$KV); | |
return h$e(a); | |
} | |
else | |
{ | |
h$pp20(b, h$$K4); | |
return h$e(a); | |
}; | |
}; | |
function h$$KT() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
var b = h$ghcjsbn_integerLog2IsPowerOf2(a); | |
var c = b; | |
if((c < 0)) | |
{ | |
h$l2(0, ((0 - c) | 0)); | |
h$pp8(a); | |
++h$sp; | |
return h$$KU; | |
} | |
else | |
{ | |
h$l2(1, c); | |
h$pp8(a); | |
++h$sp; | |
return h$$KU; | |
}; | |
}; | |
function h$baseZCGHCziFloatzizdwzdsfromRatzqzq_e() | |
{ | |
h$p4(h$r2, h$r3, h$r4, h$$KT); | |
return h$e(h$r5); | |
}; | |
function h$baseZCGHCziFloatzirationalToDouble3_e() | |
{ | |
h$bh(); | |
h$r1 = Infinity; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatzirationalToDouble2_e() | |
{ | |
h$bh(); | |
h$r1 = (-Infinity); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatzirationalToDouble1_e() | |
{ | |
h$bh(); | |
h$r1 = NaN; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziFFGeneric_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziFFFixed_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFloatziFFExponent_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Lg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
h$r1 = (b / c); | |
return h$rs(); | |
}; | |
function h$$Lf() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Lg); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziFloatzidivideDouble_e() | |
{ | |
h$p2(h$r3, h$$Lf); | |
return h$e(h$r2); | |
}; | |
function h$$Li() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
h$r1 = (b * c); | |
return h$rs(); | |
}; | |
function h$$Lh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Li); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziFloatzitimesDouble_e() | |
{ | |
h$p2(h$r3, h$$Lh); | |
return h$e(h$r2); | |
}; | |
function h$$Lk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
h$r1 = (b - c); | |
return h$rs(); | |
}; | |
function h$$Lj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Lk); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziFloatziminusDouble_e() | |
{ | |
h$p2(h$r3, h$$Lj); | |
return h$e(h$r2); | |
}; | |
function h$$Lm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a; | |
h$r1 = (b + c); | |
return h$rs(); | |
}; | |
function h$$Ll() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Lm); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziFloatziplusDouble_e() | |
{ | |
h$p2(h$r3, h$$Ll); | |
return h$e(h$r2); | |
}; | |
function h$$Ln() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$baseZCGHCziFloatziexpts10_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Ln); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Lo() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$baseZCGHCziFloatziexpts_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Lo); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Lw() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Lv() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$integerzmgmpZCGHCziIntegerziTypezinegateInteger); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Lu() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = -a; | |
return h$rs(); | |
}; | |
function h$$Lt() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$p1(h$$Lu); | |
h$l5(c, h$c1(h$$Lv, b), 53, (-1021), h$baseZCGHCziFloatzizdwzdsfromRatzqzq); | |
return h$ap_4_4_fast(); | |
} | |
else | |
{ | |
h$p1(h$$Lw); | |
h$l5(c, b, 53, (-1021), h$baseZCGHCziFloatzizdwzdsfromRatzqzq); | |
return h$ap_4_4_fast(); | |
}; | |
}; | |
function h$$Ls() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
return h$e(h$baseZCGHCziFloatzirationalToDouble4); | |
} | |
else | |
{ | |
h$pp4(h$$Lt); | |
h$l3(h$baseZCGHCziFloatzirationalToDouble5, b, h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Lr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if(a) | |
{ | |
return h$e(h$baseZCGHCziFloatzirationalToDouble2); | |
} | |
else | |
{ | |
return h$e(h$baseZCGHCziFloatzirationalToDouble3); | |
}; | |
}; | |
function h$$Lq() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
return h$e(h$baseZCGHCziFloatzirationalToDouble1); | |
} | |
else | |
{ | |
h$p1(h$$Lr); | |
h$l3(h$baseZCGHCziFloatzirationalToDouble5, b, h$integerzmgmpZCGHCziIntegerziTypeziltIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Lp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$pp2(h$$Lq); | |
h$l3(h$baseZCGHCziFloatzirationalToDouble5, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$pp4(h$$Ls); | |
h$l3(h$baseZCGHCziFloatzirationalToDouble5, b, h$integerzmgmpZCGHCziIntegerziTypezieqIntegerzh); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziFloatzirationalToDouble_e() | |
{ | |
var a = h$r3; | |
h$p3(h$r2, h$r3, h$$Lp); | |
h$l3(h$r1.d1, a, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziFingerprintziTypeziFingerprint_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFingerprintziTypeziFingerprint_e() | |
{ | |
h$r1 = h$c4(h$baseZCGHCziFingerprintziTypeziFingerprint_con_e, h$r2, h$r3, h$r4, h$r5); | |
return h$rs(); | |
}; | |
function h$$LZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d1; | |
h$r1 = h$c4(h$baseZCGHCziFingerprintziTypeziFingerprint_con_e, b, c, d, a.d2); | |
return h$rs(); | |
}; | |
function h$$LY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$LZ); | |
return h$e(b); | |
}; | |
function h$baseZCGHCziFingerprintziTypezizdWFingerprint_e() | |
{ | |
h$p2(h$r3, h$$LY); | |
return h$e(h$r2); | |
}; | |
function h$$L0() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziFingerprintzizdwfingerprintData_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = h$r4; | |
var e = h$newByteArray(88); | |
var f; | |
var g; | |
f = e; | |
g = 0; | |
h$__hsbase_MD5Init(e, 0); | |
h$__hsbase_MD5Update(f, g, b, c, d); | |
var h = h$newByteArray(16); | |
var i; | |
var j; | |
i = h; | |
j = 0; | |
h$__hsbase_MD5Final(h, 0, f, g); | |
h$p3(e, h, h$$L0); | |
h$l2(h$c2(h$baseZCGHCziPtrziPtr_con_e, i, j), a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$L4() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$$L3() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$L2() | |
{ | |
var a = h$stack[(h$sp - 4)]; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$p2(b, h$$L3); | |
h$l4(h$mulInt32(a, 16), d, c, h$baseZCGHCziFingerprintzizdwfingerprintData); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$L1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = h$newByteArray(h$mulInt32(a, 16)); | |
h$p5(a, c, c, 0, h$$L2); | |
h$l4(b, h$c2(h$baseZCGHCziPtrziPtr_con_e, c, 0), h$baseZCForeignziStorablezizdfStorableFingerprint, | |
h$baseZCForeignziMarshalziArrayzinewArray2); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCGHCziFingerprintzifingerprintFingerprints_e() | |
{ | |
h$p1(h$$L4); | |
h$p2(h$r2, h$$L1); | |
h$r3 = 0; | |
h$r1 = h$r1.d1; | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionErrorCallzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionArithExceptionzuzdctoException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r1.d1, h$r2); | |
return h$rs(); | |
}; | |
var h$baseZCGHCziExceptionzierrorCallWithCallStackException6 = h$strta("CallStack (from -prof):"); | |
function h$baseZCGHCziExceptionzierrorCallWithCallStackException5_e() | |
{ | |
h$l3(h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$baseZCGHCziExceptionzierrorCallWithCallStackException4 = h$strta("\n"); | |
var h$baseZCGHCziExceptionzierrorCallWithCallStackException3 = h$strta("CallStack (from HasCallStack):"); | |
var h$baseZCGHCziExceptionzierrorCallWithCallStackException2 = h$strta(" "); | |
var h$$baseZCGHCziException_k = h$str(":"); | |
function h$$Mf() | |
{ | |
h$r4 = h$r1.d1; | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziException_k(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$Me() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c1(h$$Mf, b), a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$baseZCGHCziException_l = h$str(" in "); | |
function h$$Md() | |
{ | |
var a = h$r1.d1; | |
h$r4 = h$c2(h$$Me, a, h$r1.d2); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziException_l(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$Mc() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l3(h$c2(h$$Md, c, d), h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b), h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Mb() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
h$pp4(h$$Mc); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, a, 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Ma() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p3(a, b.d1, h$$Mb); | |
return h$e(b.d2); | |
}; | |
var h$$baseZCGHCziException_m = h$str(":"); | |
function h$$L9() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$r4 = h$c3(h$$Ma, a, c, b.d2); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziException_m(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$L8() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$l3(h$c3(h$$L9, c, d, e), h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b), h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$L7() | |
{ | |
var a = h$r1; | |
h$sp -= 4; | |
h$pp8(h$$L8); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, a, 0, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$L6() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$p4(a, c, b.d3, h$$L7); | |
return h$e(d); | |
}; | |
var h$$baseZCGHCziException_n = h$str(":"); | |
function h$$L5() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$r4 = h$c4(h$$L6, a, c, d, b.d3); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziException_n(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdwprettySrcLoc_e() | |
{ | |
h$l3(h$c4(h$$L5, h$r2, h$r3, h$r5, h$r6), h$r4, h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Mk() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
var f = c.d3; | |
h$l6(c.d4, f, e, d, b, h$baseZCGHCziExceptionzizdwprettySrcLoc); | |
return h$ap_gen_fast(1285); | |
}; | |
function h$$Mj() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$Mk); | |
return h$e(a); | |
}; | |
var h$$baseZCGHCziException_q = h$str(", called at "); | |
function h$$Mi() | |
{ | |
h$r4 = h$c1(h$$Mj, h$r1.d1); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziException_q(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$Mh() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$l3(h$c1(h$$Mi, a.d2), b, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Mg() | |
{ | |
h$p1(h$$Mh); | |
return h$e(h$r1.d1); | |
}; | |
function h$baseZCGHCziExceptionzierrorCallWithCallStackException1_e() | |
{ | |
h$l3(h$c1(h$$Mg, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Mm() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzizdfExceptionErrorCall1, b), a, | |
h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ml() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$l2(b, h$baseZCGHCziBasezizpzp); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$l2(h$c2(h$$Mm, b, a), h$baseZCGHCziBasezizpzp); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$baseZCGHCziExceptionzizdwzdcshowsPrec1_e() | |
{ | |
h$p2(h$r2, h$$Ml); | |
return h$e(h$r3); | |
}; | |
function h$$Mn() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$l3(a.d2, b, h$baseZCGHCziExceptionzizdwzdcshowsPrec1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfShowErrorCallzuzdcshowsPrec_e() | |
{ | |
h$p1(h$$Mn); | |
return h$e(h$r3); | |
}; | |
function h$$Mq() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzizdfExceptionErrorCall1, b), a, | |
h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Mp() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$l2(b, h$baseZCGHCziBasezizpzp); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$l2(h$c2(h$$Mq, b, a), h$baseZCGHCziBasezizpzp); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$Mo() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p2(a.d1, h$$Mp); | |
return h$e(a.d2); | |
}; | |
function h$baseZCGHCziExceptionzizdfShowErrorCall1_e() | |
{ | |
h$p1(h$$Mo); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziExceptionzizdfShowErrorCallzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Ms() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, h$baseZCGHCziExceptionzizdtcErrorCall, | |
h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$Mr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$Ms); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzizdfExceptionErrorCall4, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionErrorCall3_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Mr); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionErrorCall2_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$Mu() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$baseZCGHCziExceptionzizdfExceptionErrorCall2, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Mt() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$Mu); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionErrorCallzuzdcfromException_e() | |
{ | |
h$p1(h$$Mt); | |
return h$e(h$r2); | |
}; | |
function h$$Mw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzizdfExceptionErrorCall1, a), b, | |
h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Mv() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p2(a.d1, h$$Mw); | |
return h$e(a.d2); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionErrorCallzuzdcshow_e() | |
{ | |
h$p1(h$$Mv); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziExceptionzizdfShowArithExceptionzuzdcshowList_e() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$r1.d2); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$My() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, b, d, e, c.d3, h$baseZCGHCziExceptionzizdtcArithException, | |
h$ghczmprimZCGHCziTypesziZMZN, h$ghczmprimZCGHCziTypesziZMZN); | |
return h$rs(); | |
}; | |
function h$$Mx() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$p1(h$$My); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzizdfExceptionArithException9, a), | |
h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionArithException8_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p1(h$$Mx); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionArithException7_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$MA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l4(b, h$baseZCGHCziExceptionzizdfExceptionArithException7, a, h$baseZCDataziTypeablezicast); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Mz() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p2(a.d2, h$$MA); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionArithExceptionzuzdcfromException_e() | |
{ | |
h$p1(h$$Mz); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziExceptionzizdfExceptionArithException6 = h$strta("arithmetic overflow"); | |
var h$baseZCGHCziExceptionzizdfExceptionArithException5 = h$strta("arithmetic underflow"); | |
var h$baseZCGHCziExceptionzizdfExceptionArithException4 = h$strta("loss of precision"); | |
var h$baseZCGHCziExceptionzizdfExceptionArithException3 = h$strta("divide by zero"); | |
var h$baseZCGHCziExceptionzizdfExceptionArithException2 = h$strta("denormal"); | |
var h$baseZCGHCziExceptionzizdfExceptionArithException1 = h$strta("Ratio has zero denominator"); | |
function h$$MB() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
switch (a.f.a) | |
{ | |
case (1): | |
h$l3(b, h$baseZCGHCziExceptionzizdfExceptionArithException6, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (2): | |
h$l3(b, h$baseZCGHCziExceptionzizdfExceptionArithException5, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (3): | |
h$l3(b, h$baseZCGHCziExceptionzizdfExceptionArithException4, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (4): | |
h$l3(b, h$baseZCGHCziExceptionzizdfExceptionArithException3, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
case (5): | |
h$l3(b, h$baseZCGHCziExceptionzizdfExceptionArithException2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
default: | |
h$l3(b, h$baseZCGHCziExceptionzizdfExceptionArithException1, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$baseZCGHCziExceptionzizdwzdcshowsPrec_e() | |
{ | |
h$p2(h$r3, h$$MB); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionArithExceptionzuzdcshowsPrec_e() | |
{ | |
var a = h$r3; | |
h$l3(h$r4, a, h$r1.d1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdfExceptionArithExceptionzuzdcshow_e() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionziRatioZZeroDenominator_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziDivideByZZero_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziErrorCallWithLocation_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziErrorCallWithLocation_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziErrorCallWithLocation_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziSomeException_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziSomeException_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziExceptionziSomeException_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziCZCException_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionziCZCException_e() | |
{ | |
h$r1 = h$c5(h$baseZCGHCziExceptionziCZCException_con_e, h$r2, h$r3, h$r4, h$r5, h$r6); | |
return h$rs(); | |
}; | |
function h$$MC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
return h$e(b.d1); | |
}; | |
function h$baseZCGHCziExceptionzizdp2Exception_e() | |
{ | |
h$p1(h$$MC); | |
return h$e(h$r2); | |
}; | |
function h$$MD() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziExceptionzizdp1Exception_e() | |
{ | |
h$p1(h$$MD); | |
return h$e(h$r2); | |
}; | |
function h$$ME() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziExceptionzitoException); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziExceptionzithrow_e() | |
{ | |
return h$throw(h$c2(h$$ME, h$r2, h$r3), false); | |
}; | |
function h$$MF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziExceptionzitoException_e() | |
{ | |
h$p1(h$$MF); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziExceptionziratioZZeroDenomException_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziExceptionzidivZZeroException_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$MW() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$$MV() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(a, h$baseZCGHCziExceptionzierrorCallWithCallStackException5, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$MU() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$MV); | |
h$l3(h$ghczmprimZCGHCziTypesziZMZN, a, h$baseZCGHCziListzireverse1); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$MT() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzierrorCallWithCallStackException6, h$c1(h$$MU, | |
a)); | |
}; | |
return h$rs(); | |
}; | |
function h$$MS() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$MT); | |
return h$e(a); | |
}; | |
function h$$MR() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(a, h$baseZCGHCziExceptionzierrorCallWithCallStackException4, h$baseZCDataziOldListziprependToAll); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$MQ() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$c1(h$$MR, a.d2)), h$baseZCDataziOldListziintercalate1); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$MP() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$MO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziExceptionzierrorCallWithCallStackException1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$MN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var d = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$MO, d), h$c2(h$$MP, c, a.d2)); | |
}; | |
return h$rs(); | |
}; | |
function h$$MM() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$MN); | |
return h$e(h$r2); | |
}; | |
function h$$ML() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l3(a, h$baseZCGHCziExceptionzierrorCallWithCallStackException4, h$baseZCDataziOldListziprependToAll); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$MK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
var c = h$c(h$$MM); | |
c.d1 = a; | |
c.d2 = c; | |
h$p1(h$$ML); | |
h$l2(b, c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$MJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$MQ); | |
return h$e(b); | |
} | |
else | |
{ | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziExceptionzierrorCallWithCallStackException3, h$c2(h$$MK, b, | |
a)), h$baseZCDataziOldListziintercalate1); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$MI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(h$c1(h$$MS, b), h$$MJ); | |
h$l2(a, h$baseZCGHCziStackziTypeszigetCallStack); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$MH() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l2(h$c2(h$baseZCGHCziExceptionziErrorCallWithLocation_con_e, a, h$c2(h$$MI, c, b.d2)), | |
h$baseZCGHCziExceptionzizdfExceptionErrorCallzuzdctoException); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$MG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$r1 = h$c3(h$$MH, b, c, a); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziExceptionzierrorCallWithCallStackException_e() | |
{ | |
h$p1(h$$MW); | |
h$p3(h$r2, h$r3, h$$MG); | |
h$r1 = h$r1.d1; | |
return h$ap_1_0_fast(); | |
}; | |
var h$baseZCGHCziErrziundefined9 = h$strta("error"); | |
var h$baseZCGHCziErrziundefined8 = h$strta("base"); | |
var h$baseZCGHCziErrziundefined7 = h$strta("GHC.Err"); | |
var h$baseZCGHCziErrziundefined6 = h$strta(".\/GHC\/Err.hs"); | |
var h$baseZCGHCziErrziundefined1 = h$strta("Prelude.undefined"); | |
function h$$MX() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCGHCziExceptionzierrorCallWithCallStackException); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziErrzierror_e() | |
{ | |
return h$throw(h$c2(h$$MX, h$r2, h$r3), false); | |
}; | |
function h$$M1() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
if((d === a)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
h$l2(((d + 1) | 0), c); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$M0() | |
{ | |
var a = h$r1.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$r2, h$c3(h$$M1, a, h$r1.d2, h$r2)); | |
return h$rs(); | |
}; | |
function h$$MZ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$bh(); | |
if((e === c)) | |
{ | |
h$r1 = a; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$l2(((e + 1) | 0), d); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$MY() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$r3 = h$c4(h$$MZ, c, d, b.d3, h$r2); | |
h$r1 = a; | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziEnumzieftInt_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
if((b > c)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
var d = h$c(h$$M0); | |
d.d1 = c; | |
d.d2 = d; | |
h$l2(b, d); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziEnumzieftIntFB_e() | |
{ | |
var a = h$r2; | |
var b = h$r3; | |
var c = h$r4; | |
var d = h$r5; | |
if((c > d)) | |
{ | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var e = h$c(h$$MY); | |
e.d1 = a; | |
e.d2 = h$d3(b, d, e); | |
h$l2(c, e); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$M5() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$l2(a, h$baseZCGHCziEnumzizdfEnumWordzugo); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$M4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$M5); | |
h$l3(h$baseZCGHCziEnumzizdfEnumInteger1, a, h$integerzmgmpZCGHCziIntegerziTypeziplusInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$M3() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziEnumziintegerToWordX); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$M2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$M3, b), h$c1(h$$M4, b)); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziEnumzizdfEnumWordzugo_e() | |
{ | |
h$p2(h$r2, h$$M2); | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$M8() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$$Ne, a, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$baseZCGHCziEnum_bT = h$str("Enum.succ{"); | |
function h$$M7() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r4 = h$c1(h$$M8, a); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziEnum_bT(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$$M6() | |
{ | |
h$l3(h$c1(h$$M7, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$Ne = h$strta("}: tried to take `succ' of maxBound"); | |
var h$$Nf = h$strta("Prelude.Enum.succ{Int}: tried to take `succ' of maxBound"); | |
var h$$Ng = h$strta("Prelude.Enum.pred{Int}: tried to take `pred' of minBound"); | |
var h$$Nh = h$strta("Prelude.Enum.Bool.toEnum: bad argument"); | |
function h$baseZCGHCziEnumzizdfEnumWord6_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$M9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a; | |
if((b === (-1))) | |
{ | |
return h$e(h$baseZCGHCziEnumzizdfEnumWord6); | |
} | |
else | |
{ | |
h$r1 = ((b + 1) | 0); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziEnumzizdfEnumWordzuzdcsucc_e() | |
{ | |
h$p1(h$$M9); | |
return h$e(h$r2); | |
}; | |
var h$baseZCGHCziEnumzizdfEnumWord3 = h$strta("Word"); | |
function h$baseZCGHCziEnumzizdfEnumWord2_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$$Nc, true, a); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziEnumzizdfEnumInt2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziEnumzizdfEnumInt1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziEnumzizdfEnumBool1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Na() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziEnumziintegerToWordX_e() | |
{ | |
h$p1(h$$Na); | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziEnumzisuccError_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Nb() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziEnumzipred_e() | |
{ | |
h$p1(h$$Nb); | |
return h$e(h$r2); | |
}; | |
function h$$Nw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Nv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Nu() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$stackOverflow(h$currentThread); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
h$pp2(h$$Nv); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
}; | |
return h$rs(); | |
}; | |
function h$$Nt() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$pp2(h$$Nw); | |
return h$e(h$baseZCGHCziConcziSyncziuncaughtExceptionHandler); | |
} | |
else | |
{ | |
h$pp2(h$$Nu); | |
return h$e(a.d1); | |
}; | |
}; | |
function h$$Ns() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$pp2(h$$Nt); | |
h$l2(a, h$baseZCGHCziIOziExceptionzizdfExceptionAsyncExceptionzuzdcfromException); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Nr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
--h$sp; | |
if((a.f.a === 3)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
++h$sp; | |
++h$sp; | |
return h$$Ns; | |
}; | |
return h$rs(); | |
}; | |
function h$$Nq() | |
{ | |
var a = h$r1; | |
--h$sp; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
++h$sp; | |
++h$sp; | |
return h$$Ns; | |
} | |
else | |
{ | |
var b = a.d1; | |
++h$sp; | |
h$p1(h$$Nr); | |
return h$e(b); | |
}; | |
}; | |
function h$$Np() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
++h$sp; | |
h$p1(h$$Nq); | |
h$l2(a, h$baseZCGHCziIOziExceptionzizdfExceptionAsyncExceptionzuzdcfromException); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$No() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Nn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(c, d, g, i)) | |
{ | |
if(h$hs_eqWord64(e, f, j, h.d3)) | |
{ | |
h$p1(h$$No); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
++h$sp; | |
++h$sp; | |
return h$$Np; | |
}; | |
} | |
else | |
{ | |
++h$sp; | |
++h$sp; | |
return h$$Np; | |
}; | |
}; | |
function h$$Nm() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
var f = b.d4; | |
h$p7(a, c, d, e, f, b.d5, h$$Nn); | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnSTM3); | |
}; | |
function h$$Nl() | |
{ | |
--h$sp; | |
return h$catch(h$baseZCGHCziConcziSynczialways2, h$$NV); | |
}; | |
function h$$Nk() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var h = a.d1; | |
var i = a.d2; | |
var j = i.d1; | |
var k = i.d2; | |
if(h$hs_eqWord64(d, e, h, j)) | |
{ | |
if(h$hs_eqWord64(f, g, k, i.d3)) | |
{ | |
h$p1(h$$Nl); | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
return h$catch(h$c6(h$$Nm, b, c, d, e, f, g), h$$NV); | |
}; | |
} | |
else | |
{ | |
return h$catch(h$c6(h$$Nm, b, c, d, e, f, g), h$$NV); | |
}; | |
}; | |
function h$$Nj() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$pp124(b, d, e, c.d3, h$$Nk); | |
return h$e(h$baseZCGHCziIOziExceptionzizdfExceptionBlockedIndefinitelyOnMVar3); | |
}; | |
function h$$Ni() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p3(a, a.d2, h$$Nj); | |
h$l2(b, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Nx() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziConcziSynczichildHandler1_e() | |
{ | |
h$p1(h$$Ni); | |
return h$e(h$r2); | |
}; | |
function h$$Ny() | |
{ | |
var a = h$r1.d1; | |
var b = new h$MutVar(a); | |
h$r1 = h$c1(h$baseZCGHCziSTRefziSTRef_con_e, b); | |
return h$rs(); | |
}; | |
function h$$NO() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l5(h$ghczmprimZCGHCziTypesziZMZN, b, h$baseZCGHCziConcziSynczizdfShowThreadStatus2, a, h$baseZCGHCziShowzishowsPrec); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$NN() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l5(h$ghczmprimZCGHCziTypesziZMZN, b, h$baseZCGHCziConcziSynczizdfShowThreadStatus2, a, h$baseZCGHCziShowzishowsPrec); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$NM() | |
{ | |
--h$sp; | |
return h$e(h$$N2); | |
}; | |
function h$$NL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 6)]; | |
var c = h$stack[(h$sp - 5)]; | |
var d = h$stack[(h$sp - 4)]; | |
var e = h$stack[(h$sp - 3)]; | |
var f = h$stack[(h$sp - 2)]; | |
var g = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
var h = a.d1; | |
var i = a.d2; | |
var j = i.d1; | |
var k = i.d2; | |
if(h$hs_eqWord64(d, e, h, j)) | |
{ | |
if(h$hs_eqWord64(f, g, k, i.d3)) | |
{ | |
h$p1(h$$NM); | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$p2(c, h$$NN); | |
h$l2(b, h$baseZCGHCziExceptionzizdp2Exception); | |
return h$ap_1_1_fast(); | |
}; | |
} | |
else | |
{ | |
h$p2(c, h$$NO); | |
h$l2(b, h$baseZCGHCziExceptionzizdp2Exception); | |
return h$ap_1_1_fast(); | |
}; | |
}; | |
function h$$NK() | |
{ | |
var a = h$r1; | |
h$sp -= 7; | |
h$pp64(h$$NL); | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$$N0, a), h$baseZCGHCziFingerprintzifingerprintFingerprints); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$NJ() | |
{ | |
var a = h$r1; | |
h$sp -= 3; | |
var b = a.d1; | |
var c = a.d2; | |
var d = c.d1; | |
var e = c.d2; | |
h$pp124(b, d, e, c.d3, h$$NK); | |
return h$e(h$$NZ); | |
}; | |
function h$$NI() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p3(a, b, h$$NJ); | |
h$l2(a, h$baseZCGHCziExceptionzizdp1Exception); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$NH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d1; | |
h$errorBelch2(b, c, d, a.d2); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$NG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$NH); | |
return h$e(b); | |
}; | |
function h$$NF() | |
{ | |
h$p2(h$r2, h$$NG); | |
return h$e(h$r1.d1); | |
}; | |
function h$$NE() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(h$c1(h$$NF, c), b, a, h$baseZCGHCziForeignzicharIsRepresentable3); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$ND() | |
{ | |
h$p3(h$r1.d1, h$r2, h$$NE); | |
h$r1 = h$baseZCGHCziIOziEncodingzigetForeignEncoding; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$NC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$l4(h$c1(h$$ND, h$c2(h$$NI, b, c)), h$$N1, a, h$baseZCGHCziForeignzicharIsRepresentable3); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$NB() | |
{ | |
h$sp -= 3; | |
h$pp4(h$$NC); | |
h$r1 = h$baseZCGHCziIOziEncodingzigetForeignEncoding; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$NA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$p3(b, a.d2, h$$NB); | |
return h$catch(h$$N3, h$$NY); | |
}; | |
function h$$Nz() | |
{ | |
h$p1(h$$NA); | |
return h$e(h$r2); | |
}; | |
function h$$NQ() | |
{ | |
--h$sp; | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$NP() | |
{ | |
h$p1(h$$NQ); | |
return h$e(h$r2); | |
}; | |
function h$$NR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, b, a); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$N1 = h$strta("%s"); | |
var h$$N2 = h$strta("no threads to run: infinite loop or deadlock?"); | |
function h$$NS() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$NT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$l2(b, c.val); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziConcziSynczireportError1_e() | |
{ | |
h$p2(h$r2, h$$NT); | |
return h$e(h$r1.d1); | |
}; | |
function h$baseZCGHCziConcziSynczialways2_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziConcziSyncziThreadId_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziConcziSyncziThreadId_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziConcziSyncziThreadId_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$NU() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$baseZCGHCziConcziSyncziuncaughtExceptionHandler_e() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$NU); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziConcziSynczireportError_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_2_1_fast(); | |
}; | |
function h$$N6() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$N5() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$N6); | |
h$l4(h$ghczmprimZCGHCziTypesziZMZN, a, 9, h$baseZCGHCziShowzizdwshowSignedInt); | |
return h$ap_3_3_fast(); | |
}; | |
var h$$baseZCGHCziChar_d = h$str("Prelude.chr: bad argument: "); | |
function h$$N4() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$r4 = h$c1(h$$N5, a); | |
h$r3 = 0; | |
h$r2 = h$$baseZCGHCziChar_d(); | |
h$r1 = h$ghczmprimZCGHCziCStringziunpackAppendCStringzh; | |
return h$ap_2_3_fast(); | |
}; | |
function h$baseZCGHCziCharzichr2_e() | |
{ | |
h$l3(h$c1(h$$N4, h$r2), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ob() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$Oa() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
if((b === e)) | |
{ | |
h$l3(d, c, h$baseZCGHCziBasezieqString); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = false; | |
}; | |
return h$rs(); | |
}; | |
function h$$N9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$Oa); | |
return h$e(b); | |
}; | |
function h$$N8() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$N9); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$$N7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$p1(h$$Ob); | |
return h$e(b); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$p3(c, a.d2, h$$N8); | |
return h$e(b); | |
}; | |
}; | |
function h$baseZCGHCziBasezieqString_e() | |
{ | |
h$p2(h$r3, h$$N7); | |
return h$e(h$r2); | |
}; | |
function h$$Oj() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziBasezimap); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Oi() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Oh() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c2(h$$Oi, b, c), h$c2(h$$Oj, b, a.d2)); | |
}; | |
return h$rs(); | |
}; | |
function h$$Og() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Of() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var e = a.d1; | |
h$l3(h$c2(h$$Og, d, a.d2), e, b); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Oe() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(a, c, b.d2, h$$Of); | |
return h$e(h$r2); | |
}; | |
function h$$Od() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Oc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c2(h$$Od, b, a.d2)); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBasezimap_e() | |
{ | |
h$p2(h$r2, h$$Oh); | |
return h$e(h$r3); | |
}; | |
function h$baseZCGHCziBasezifoldr_e() | |
{ | |
var a = h$r3; | |
var b = h$r4; | |
var c = h$c(h$$Oe); | |
c.d1 = h$r2; | |
c.d2 = h$d2(a, c); | |
h$l2(b, c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziBasezizpzp_e() | |
{ | |
h$p2(h$r3, h$$Oc); | |
return h$e(h$r2); | |
}; | |
function h$$Ok() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$l2(a, b); | |
return h$ap_2_1_fast(); | |
}; | |
function h$baseZCGHCziBasezibindIO1_e() | |
{ | |
h$p2(h$r3, h$$Ok); | |
h$r1 = h$r2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizdfMonadIOzuzdcfail_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Om() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Ol() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$$Om, b, a); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBasezizdfFunctorIO2_e() | |
{ | |
h$p2(h$r2, h$$Ol); | |
h$r1 = h$r3; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$On() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBasezizdfFunctorIO1_e() | |
{ | |
h$p2(h$r2, h$$On); | |
h$r1 = h$r3; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziBasezireturnIO1_e() | |
{ | |
h$r1 = h$r2; | |
return h$rs(); | |
}; | |
function h$$Oq() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Op() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$$Oq, b, a); | |
return h$rs(); | |
}; | |
function h$$Oo() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Op); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizdfApplicativeIO2_e() | |
{ | |
h$p2(h$r3, h$$Oo); | |
h$r1 = h$r2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Or() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziBasezithenIO1_e() | |
{ | |
h$p2(h$r3, h$$Or); | |
h$r1 = h$r2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$Ot() | |
{ | |
var a = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$Os() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Ot); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizdfApplicativeIO1_e() | |
{ | |
h$p2(h$r3, h$$Os); | |
h$r1 = h$r2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCGHCziBaseziCZCMonad_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziCZCMonad_e() | |
{ | |
h$r1 = h$c5(h$baseZCGHCziBaseziCZCMonad_con_e, h$r2, h$r3, h$r4, h$r5, h$r6); | |
return h$rs(); | |
}; | |
function h$$Ou() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$baseZCGHCziBasezizdp1Monad_e() | |
{ | |
h$p1(h$$Ou); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziBaseziCZCApplicative_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziCZCApplicative_e() | |
{ | |
h$r1 = h$c5(h$baseZCGHCziBaseziCZCApplicative_con_e, h$r2, h$r3, h$r4, h$r5, h$r6); | |
return h$rs(); | |
}; | |
function h$$Ov() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d1); | |
}; | |
function h$baseZCGHCziBasezizdp1Applicative_e() | |
{ | |
h$p1(h$$Ov); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziBaseziCZCFunctor_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziCZCFunctor_e() | |
{ | |
h$r1 = h$c2(h$baseZCGHCziBaseziCZCFunctor_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziCZCMonoid_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziCZCMonoid_e() | |
{ | |
h$r1 = h$c3(h$baseZCGHCziBaseziCZCMonoid_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziconst_e() | |
{ | |
h$r1 = h$r2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBaseziid_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Ow() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizlzd_e() | |
{ | |
h$p1(h$$Ow); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziBaseziJust_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziJust_e() | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$baseZCGHCziBaseziNothing_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$$Ox() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezipure_e() | |
{ | |
h$p1(h$$Ox); | |
return h$e(h$r2); | |
}; | |
function h$$Oy() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizlztzg_e() | |
{ | |
h$p1(h$$Oy); | |
return h$e(h$r2); | |
}; | |
function h$$Oz() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezimconcat_e() | |
{ | |
h$p1(h$$Oz); | |
return h$e(h$r2); | |
}; | |
function h$$OA() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezimappend_e() | |
{ | |
h$p1(h$$OA); | |
return h$e(h$r2); | |
}; | |
function h$$OB() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezimempty_e() | |
{ | |
h$p1(h$$OB); | |
return h$e(h$r2); | |
}; | |
function h$$OC() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezireturn_e() | |
{ | |
h$p1(h$$OC); | |
return h$e(h$r2); | |
}; | |
function h$$OD() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezifmap_e() | |
{ | |
h$p1(h$$OD); | |
return h$e(h$r2); | |
}; | |
function h$$OE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizgzg_e() | |
{ | |
h$p1(h$$OE); | |
return h$e(h$r2); | |
}; | |
function h$$OF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezizgzgze_e() | |
{ | |
h$p1(h$$OF); | |
return h$e(h$r2); | |
}; | |
function h$$OG() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d4; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziBasezifail_e() | |
{ | |
h$p1(h$$OG); | |
return h$e(h$r2); | |
}; | |
function h$baseZCGHCziBasezizd_e() | |
{ | |
var a = h$r2; | |
h$l2(h$r3, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCGHCziBasezibreakpoint_e() | |
{ | |
h$r1 = h$r2; | |
return h$ap_0_0_fast(); | |
}; | |
var h$$OW = h$strta("(Array.!): undefined array element"); | |
function h$$OI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d1; | |
h$l6(d, c, b, a.d2, e, h$$OY); | |
return h$ap_gen_fast(1285); | |
}; | |
function h$$OH() | |
{ | |
h$p4(h$r3, h$r4, h$r5, h$$OI); | |
return h$e(h$r2); | |
}; | |
function h$$OJ() | |
{ | |
var a = h$r3; | |
h$l3(h$r2, a, h$r1.d1); | |
return h$ap_gen_fast(1285); | |
}; | |
function h$$OS() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l4(a, h$baseZCGHCziShowzishows21, b, h$baseZCGHCziShowzishowsPrec); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$OR() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l4(a, h$baseZCGHCziShowzishows21, b, h$baseZCGHCziShowzishowsPrec); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$OQ() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l3(h$$O1, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c2(h$$OR, c, d), h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, | |
h$c2(h$$OS, a, d), h$ghczmprimZCGHCziTypesziZMZN)), h$baseZCGHCziShowzizdfShowZLz2cUZRzugo); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$OP() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishows8, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, | |
h$baseZCGHCziShowzishows8, h$c3(h$$OQ, a, c, b.d2))), h$$O4, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$OO() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$bh(); | |
h$l5(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishows6, h$c3(h$$OP, a, c, d)), b.d3, | |
h$baseZCGHCziArrzizdfIxChar1, d, h$baseZCGHCziShowzishowsPrec); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$ON() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$l3(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$baseZCGHCziShowzishows8, h$c4(h$$OO, a, c, d, b.d3)), h$$O3, | |
h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$OM() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
h$l3(h$c4(h$$ON, a, c, d, b.d3), b.d4, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$OL() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$bh(); | |
h$l3(h$c5(h$$OM, a, c, d, e, b.d4), h$$O2, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$OK() | |
{ | |
h$l3(h$c5(h$$OL, h$r2, h$r3, h$r4, h$r5, h$r6), h$r1.d1, h$r1.d2); | |
return h$ap_2_2_fast(); | |
}; | |
var h$$O2 = h$strta("Ix{"); | |
var h$$O3 = h$strta("}.index: Index "); | |
var h$$O4 = h$strta(" out of range "); | |
function h$baseZCGHCziArrziArray_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCGHCziArrziArray_e() | |
{ | |
h$r1 = h$c4(h$baseZCGHCziArrziArray_con_e, h$r2, h$r3, h$r4, h$r5); | |
return h$rs(); | |
}; | |
function h$$OV() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$r1 = h$c4(h$baseZCGHCziArrziArray_con_e, b, c, a, d); | |
return h$rs(); | |
}; | |
function h$$OU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$OV); | |
return h$e(b); | |
}; | |
function h$$OT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp9(a, h$$OU); | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziArrzizdWArray_e() | |
{ | |
h$p4(h$r3, h$r4, h$r5, h$$OT); | |
h$r1 = h$r2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCGHCziArrziarrEleBottom_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCGHCziArrziindexError_e() | |
{ | |
var a = h$r3; | |
h$l3(h$r2, a, h$r1.d1); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$O8() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
--h$sp; | |
h$r1 = h$c2(h$baseZCGHCziWordziW64zh_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$O7() | |
{ | |
var a = h$r1.d1; | |
h$p1(h$$O8); | |
h$l4(8, h$r1.d2, a, h$baseZCGHCziWordzizdwzdcshiftR); | |
return h$ap_2_3_fast(); | |
}; | |
function h$$O6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d1; | |
var f = a.d2; | |
var g = h$hs_word64ToWord(b, d); | |
var h = (g & 255); | |
var i = ((c - 1) | 0); | |
e.u8[(f + i)] = h; | |
h$l4(h$c2(h$$O7, b, d), ((c - 1) | 0), a, h$baseZCForeignziStorablezizdwpokeW64); | |
return h$ap_4_3_fast(); | |
}; | |
function h$$O5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$O6); | |
return h$e(b); | |
}; | |
function h$baseZCForeignziStorablezizdwpokeW64_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r4; | |
var d = h$r3; | |
if((d === 0)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
h$p3(b, d, h$$O5); | |
return h$e(c); | |
}; | |
return h$rs(); | |
}; | |
function h$$Pa() | |
{ | |
var a; | |
var b; | |
a = h$r1; | |
b = h$r2; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var g = h$hs_wordToWord64(f); | |
var h = h$hs_or64(a, b, g, h$ret1); | |
var i = h; | |
var j = h$ret1; | |
var k = c; | |
h$l5(j, i, ((e - 1) | 0), h$c2(h$baseZCGHCziPtrziPtr_con_e, k, (d + 1)), h$baseZCForeignziStorablezizdwpeekW64); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$O9() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
var d = a.d1; | |
var e = a.d2; | |
h$pp27(d, e, d.u8[(e + 0)], h$$Pa); | |
h$l4(8, c, b, h$baseZCGHCziWordzizdwzdcshiftL); | |
return h$ap_2_3_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdwpeekW64_e() | |
{ | |
var a = h$r2; | |
var b = h$r4; | |
var c = h$r5; | |
var d = h$r3; | |
if((d === 0)) | |
{ | |
h$r1 = h$c2(h$baseZCGHCziWordziW64zh_con_e, b, c); | |
} | |
else | |
{ | |
h$p4(b, c, d, h$$O9); | |
return h$e(a); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprintzuzdcsizzeOf_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprintzuzdcalignment_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$Pd() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$mulInt32(a, 16); | |
var e = b; | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, e, (c + d)); | |
return h$rs(); | |
}; | |
function h$$Pc() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$Pd); | |
return h$e(b); | |
}; | |
function h$$Pb() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b, h$$Pc); | |
return h$e(a); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprint6_e() | |
{ | |
h$l2(h$c2(h$$Pb, h$r2, h$r3), h$r1.d1); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Ph() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = h$mulInt32(a, 16); | |
var e = b; | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, e, (c + d)); | |
return h$rs(); | |
}; | |
function h$$Pg() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$Ph); | |
return h$e(b); | |
}; | |
function h$$Pf() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b, h$$Pg); | |
return h$e(a); | |
}; | |
function h$$Pe() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d1; | |
var e = a.d2; | |
var f = e.d1; | |
var g = e.d2; | |
h$l6(e.d3, g, f, d, h$c2(h$$Pf, b, c), h$baseZCForeignziStorablezizdwzdcpoke); | |
return h$ap_4_5_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprint5_e() | |
{ | |
h$p3(h$r2, h$r3, h$$Pe); | |
return h$e(h$r4); | |
}; | |
function h$$Pi() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziPtrziplusPtr); | |
return h$ap_2_2_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprint4_e() | |
{ | |
h$l2(h$c2(h$$Pi, h$r2, h$r3), h$r1.d1); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$Pm() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e = b; | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, e, (c + d)); | |
return h$rs(); | |
}; | |
function h$$Pl() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$Pm); | |
return h$e(b); | |
}; | |
function h$$Pk() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$p2(b, h$$Pl); | |
return h$e(a); | |
}; | |
function h$$Pj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d1; | |
var e = a.d2; | |
var f = e.d1; | |
var g = e.d2; | |
h$l6(e.d3, g, f, d, h$c2(h$$Pk, b, c), h$baseZCForeignziStorablezizdwzdcpoke); | |
return h$ap_4_5_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprint3_e() | |
{ | |
h$p3(h$r2, h$r3, h$$Pj); | |
return h$e(h$r4); | |
}; | |
function h$$Pr() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = b; | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, d, (c + 8)); | |
return h$rs(); | |
}; | |
function h$$Pq() | |
{ | |
h$p1(h$$Pr); | |
return h$e(h$r1.d1); | |
}; | |
function h$$Pp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCGHCziFingerprintziTypezizdWFingerprint); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Po() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$$Pp, b, a); | |
return h$rs(); | |
}; | |
function h$$Pn() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$p2(a, h$$Po); | |
h$l5(0, 0, 8, h$c1(h$$Pq, b), h$baseZCForeignziStorablezizdwpeekW64); | |
return h$ap_4_4_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprint2_e() | |
{ | |
h$p2(h$r2, h$$Pn); | |
h$r5 = 0; | |
h$r4 = 0; | |
h$r3 = 8; | |
h$r1 = h$r1.d1; | |
return h$ap_4_4_fast(); | |
}; | |
function h$$Pu() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = b; | |
h$r1 = h$c2(h$baseZCGHCziPtrziPtr_con_e, d, (c + 8)); | |
return h$rs(); | |
}; | |
function h$$Pt() | |
{ | |
h$p1(h$$Pu); | |
return h$e(h$r1.d1); | |
}; | |
function h$$Ps() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
h$l4(h$c2(h$baseZCGHCziWordziW64zh_con_e, b, c), 8, h$c1(h$$Pt, a), h$baseZCForeignziStorablezizdwpokeW64); | |
return h$ap_4_3_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdwzdcpoke_e() | |
{ | |
h$p4(h$r2, h$r5, h$r6, h$$Ps); | |
h$r4 = h$c2(h$baseZCGHCziWordziW64zh_con_e, h$r3, h$r4); | |
h$r3 = 8; | |
h$r1 = h$r1.d1; | |
return h$ap_4_3_fast(); | |
}; | |
function h$$Pv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
h$l6(d.d3, f, e, c, b, h$baseZCForeignziStorablezizdwzdcpoke); | |
return h$ap_4_5_fast(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableFingerprint1_e() | |
{ | |
h$p2(h$r2, h$$Pv); | |
return h$e(h$r3); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableCharzuzdcalignment_e() | |
{ | |
return h$e(h$r1.d1); | |
}; | |
function h$$Px() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
var e; | |
var f; | |
e = b; | |
f = (c + d); | |
var g = e.dv.getUint32((f + 0), true); | |
h$r1 = g; | |
return h$rs(); | |
}; | |
function h$$Pw() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$Px); | |
return h$e(b); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableChar4_e() | |
{ | |
h$p2(h$r3, h$$Pw); | |
return h$e(h$r2); | |
}; | |
function h$$PA() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a; | |
var f; | |
var g; | |
f = b; | |
g = (d + c); | |
f.dv.setUint32((g + 0), e, true); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$Pz() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 4; | |
h$pp10(a, h$$PA); | |
return h$e(b); | |
}; | |
function h$$Py() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
var c = a.d1; | |
h$pp13(c, a.d2, h$$Pz); | |
return h$e(b); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableChar3_e() | |
{ | |
h$p3(h$r3, h$r4, h$$Py); | |
return h$e(h$r2); | |
}; | |
function h$$PB() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
var c = a.d2; | |
var d = b.dv.getUint32((c + 0), true); | |
h$r1 = d; | |
return h$rs(); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableChar2_e() | |
{ | |
h$p1(h$$PB); | |
return h$e(h$r2); | |
}; | |
function h$$PD() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a; | |
b.dv.setUint32((c + 0), d, true); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
return h$rs(); | |
}; | |
function h$$PC() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = a.d1; | |
h$p3(c, a.d2, h$$PD); | |
return h$e(b); | |
}; | |
function h$baseZCForeignziStorablezizdfStorableChar1_e() | |
{ | |
h$p2(h$r3, h$$PC); | |
return h$e(h$r2); | |
}; | |
function h$baseZCForeignziStorableziCZCStorable_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCForeignziStorableziCZCStorable_e() | |
{ | |
h$r1 = h$c8(h$baseZCForeignziStorableziCZCStorable_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8, h$r9); | |
return h$rs(); | |
}; | |
function h$$PE() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d3; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCForeignziStorablezipokeElemOff_e() | |
{ | |
h$p1(h$$PE); | |
return h$e(h$r2); | |
}; | |
function h$$PF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCForeignziStorablezipeekElemOff_e() | |
{ | |
h$p1(h$$PF); | |
return h$e(h$r2); | |
}; | |
function h$$PI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$sp -= 2; | |
h$l2(h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b), ((c - 1) | 0)); | |
h$sp += 2; | |
++h$sp; | |
return h$$PG; | |
}; | |
function h$$PH() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a, b); | |
return h$rs(); | |
}; | |
function h$$PG() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var c = h$r2; | |
var d = h$r1; | |
if((d === 0)) | |
{ | |
h$p2(c, h$$PH); | |
h$l4(h$baseZCForeignziMarshalziArrayzilengthArray2, b, a, h$baseZCForeignziStorablezipeekElemOff); | |
return h$ap_4_3_fast(); | |
} | |
else | |
{ | |
var e = d; | |
h$sp += 2; | |
h$p3(c, d, h$$PI); | |
h$l4(e, b, a, h$baseZCForeignziStorablezipeekElemOff); | |
return h$ap_4_3_fast(); | |
}; | |
}; | |
function h$baseZCForeignziMarshalziArrayzizdwpeekArray_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = h$r4; | |
if((c <= 0)) | |
{ | |
h$r1 = a; | |
} | |
else | |
{ | |
h$l2(a, ((c - 1) | 0)); | |
h$p2(b, d); | |
++h$sp; | |
return h$$PG; | |
}; | |
return h$rs(); | |
}; | |
function h$$PL() | |
{ | |
var a = h$stack[(h$sp - 2)]; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
h$sp -= 2; | |
h$l2(((a + 1) | 0), b); | |
h$sp += 2; | |
++h$sp; | |
return h$$PJ; | |
}; | |
function h$$PK() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = h$stack[(h$sp - 1)]; | |
var d = h$stack[h$sp]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
var e = a.d1; | |
var f = a.d2; | |
var g = b; | |
h$sp += 2; | |
h$pp6(f, h$$PL); | |
h$l5(e, g, d, c, h$baseZCForeignziStorablezipokeElemOff); | |
return h$ap_gen_fast(1029); | |
}; | |
return h$rs(); | |
}; | |
function h$$PJ() | |
{ | |
h$sp -= 3; | |
var a = h$r1; | |
var b = h$r2; | |
h$sp += 2; | |
h$p2(b, h$$PK); | |
return h$e(a); | |
}; | |
function h$baseZCForeignziMarshalziArrayzinewArray2_e() | |
{ | |
var a = h$r2; | |
h$l2(0, h$r4); | |
h$p2(a, h$r3); | |
++h$sp; | |
return h$$PJ; | |
}; | |
var h$baseZCForeignziMarshalziAlloczimallocBytes4 = h$strta("malloc"); | |
function h$baseZCForeignziMarshalziAlloczimallocBytes2_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
var h$baseZCForeignziMarshalziAlloczicallocBytes4 = h$strta("out of memory"); | |
function h$$PR() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a; | |
var h = ((g & 127) - (g & 128)); | |
b.dv.setInt8((c + e), h); | |
h$l3(((e + 1) | 0), f, d); | |
return h$ap_3_2_fast(); | |
}; | |
function h$$PQ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if((a.f.a === 1)) | |
{ | |
b.dv.setInt8((c + d), 0); | |
h$r1 = h$ghczmprimZCGHCziTupleziZLZR; | |
} | |
else | |
{ | |
var e = a.d1; | |
h$pp48(a.d2, h$$PR); | |
return h$e(e); | |
}; | |
return h$rs(); | |
}; | |
function h$$PP() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p5(a, c, b.d2, h$r3, h$$PQ); | |
return h$e(h$r2); | |
}; | |
function h$$PO() | |
{ | |
var a = h$r1; | |
h$sp -= 2; | |
h$r1 = a; | |
return h$rs(); | |
}; | |
function h$$PN() | |
{ | |
var a = h$stack[(h$sp - 3)]; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
h$pp2(h$$PO); | |
h$l2(h$c2(h$baseZCGHCziPtrziPtr_con_e, b, c), a); | |
return h$ap_2_1_fast(); | |
}; | |
function h$$PM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
var c = h$newByteArray(((a + 1) | 0)); | |
var d; | |
var e; | |
d = c; | |
e = 0; | |
var f = h$c(h$$PP); | |
f.d1 = c; | |
f.d2 = h$d2(e, f); | |
h$pp29(c, d, e, h$$PN); | |
h$l3(0, b, f); | |
return h$ap_3_2_fast(); | |
}; | |
function h$baseZCForeignziCziStringziwithCAString1_e() | |
{ | |
h$p3(h$r2, h$r3, h$$PM); | |
h$r3 = 0; | |
h$r1 = h$r1.d1; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$PT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
if(a) | |
{ | |
var f = h$__hscore_get_errno(); | |
var g = f; | |
if((g === 4)) | |
{ | |
h$l4(d, c, b, h$baseZCForeignziCziErrorzithrowErrnoIfMinus1Retry2); | |
return h$ap_4_3_fast(); | |
} | |
else | |
{ | |
h$l2(c, h$baseZCForeignziCziErrorzithrowErrno1); | |
return h$ap_2_1_fast(); | |
}; | |
} | |
else | |
{ | |
h$r1 = e; | |
}; | |
return h$rs(); | |
}; | |
function h$$PS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
h$sp -= 4; | |
h$pp24(a, h$$PT); | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCForeignziCziErrorzithrowErrnoIfMinus1Retry2_e() | |
{ | |
h$p4(h$r2, h$r3, h$r4, h$$PS); | |
h$r1 = h$r4; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$PV() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l5(h$baseZCGHCziBaseziNothing, h$baseZCGHCziBaseziNothing, b, a, h$baseZCForeignziCziErrorzizdwerrnoToIOError); | |
return h$ap_4_4_fast(); | |
}; | |
function h$$PU() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(h$c2(h$$PV, a, b), h$baseZCGHCziIOziExceptionzizdfExceptionIOExceptionzuzdctoException); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCForeignziCziErrorzithrowErrno1_e() | |
{ | |
var a = h$r2; | |
var b = h$__hscore_get_errno(); | |
return h$throw(h$c2(h$$PU, a, b), false); | |
}; | |
function h$$PY() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a); | |
}; | |
function h$$PX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 4)]; | |
var c = h$stack[(h$sp - 3)]; | |
var d = h$stack[(h$sp - 2)]; | |
var e = h$stack[(h$sp - 1)]; | |
h$sp -= 5; | |
var f; | |
switch (c) | |
{ | |
case (1): | |
f = h$baseZCGHCziIOziExceptionziPermissionDenied; | |
break; | |
case (2): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (3): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (4): | |
f = h$baseZCGHCziIOziExceptionziInterrupted; | |
break; | |
case (5): | |
f = h$baseZCGHCziIOziExceptionziHardwareFault; | |
break; | |
case (6): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (7): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (8): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (9): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (10): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (11): | |
f = h$baseZCGHCziIOziExceptionziResourceBusy; | |
break; | |
case (12): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (13): | |
f = h$baseZCGHCziIOziExceptionziPermissionDenied; | |
break; | |
case (15): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (16): | |
f = h$baseZCGHCziIOziExceptionziResourceBusy; | |
break; | |
case (17): | |
f = h$baseZCGHCziIOziExceptionziAlreadyExists; | |
break; | |
case (18): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (19): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (20): | |
f = h$baseZCGHCziIOziExceptionziInappropriateType; | |
break; | |
case (21): | |
f = h$baseZCGHCziIOziExceptionziInappropriateType; | |
break; | |
case (22): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (23): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (24): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (25): | |
f = h$baseZCGHCziIOziExceptionziIllegalOperation; | |
break; | |
case (26): | |
f = h$baseZCGHCziIOziExceptionziResourceBusy; | |
break; | |
case (27): | |
f = h$baseZCGHCziIOziExceptionziPermissionDenied; | |
break; | |
case (28): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (29): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (30): | |
f = h$baseZCGHCziIOziExceptionziPermissionDenied; | |
break; | |
case (31): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (32): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (33): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (34): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (35): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (36): | |
f = h$baseZCGHCziIOziExceptionziAlreadyExists; | |
break; | |
case (37): | |
f = h$baseZCGHCziIOziExceptionziAlreadyExists; | |
break; | |
case (38): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (39): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (40): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (41): | |
f = h$baseZCGHCziIOziExceptionziProtocolError; | |
break; | |
case (42): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (43): | |
f = h$baseZCGHCziIOziExceptionziProtocolError; | |
break; | |
case (44): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (46): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (47): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (48): | |
f = h$baseZCGHCziIOziExceptionziResourceBusy; | |
break; | |
case (49): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (50): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (51): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (52): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (54): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (55): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (56): | |
f = h$baseZCGHCziIOziExceptionziAlreadyExists; | |
break; | |
case (57): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (58): | |
f = h$baseZCGHCziIOziExceptionziIllegalOperation; | |
break; | |
case (59): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (60): | |
f = h$baseZCGHCziIOziExceptionziTimeExpired; | |
break; | |
case (61): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (62): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (63): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (64): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (65): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (66): | |
f = h$baseZCGHCziIOziExceptionziUnsatisfiedConstraints; | |
break; | |
case (67): | |
f = h$baseZCGHCziIOziExceptionziPermissionDenied; | |
break; | |
case (68): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (69): | |
f = h$baseZCGHCziIOziExceptionziPermissionDenied; | |
break; | |
case (70): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (71): | |
f = h$baseZCGHCziIOziExceptionziIllegalOperation; | |
break; | |
case (73): | |
f = h$baseZCGHCziIOziExceptionziProtocolError; | |
break; | |
case (74): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (75): | |
f = h$baseZCGHCziIOziExceptionziProtocolError; | |
break; | |
case (76): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (77): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (78): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (79): | |
f = h$baseZCGHCziIOziExceptionziInappropriateType; | |
break; | |
case (90): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (91): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (92): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (94): | |
f = h$baseZCGHCziIOziExceptionziInappropriateType; | |
break; | |
case (95): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
case (96): | |
f = h$baseZCGHCziIOziExceptionziNoSuchThing; | |
break; | |
case (97): | |
f = h$baseZCGHCziIOziExceptionziResourceVanished; | |
break; | |
case (98): | |
f = h$baseZCGHCziIOziExceptionziResourceExhausted; | |
break; | |
case (99): | |
f = h$baseZCGHCziIOziExceptionziInvalidArgument; | |
break; | |
case (100): | |
f = h$baseZCGHCziIOziExceptionziProtocolError; | |
break; | |
case (101): | |
f = h$baseZCGHCziIOziExceptionziTimeExpired; | |
break; | |
case (102): | |
f = h$baseZCGHCziIOziExceptionziUnsupportedOperation; | |
break; | |
default: | |
f = h$baseZCGHCziIOziExceptionziOtherError; | |
}; | |
h$r1 = h$c6(h$baseZCGHCziIOziExceptionziIOError_con_e, d, f, b, a, h$c1(h$baseZCGHCziBaseziJust_con_e, c), e); | |
return h$rs(); | |
}; | |
function h$$PW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 7; | |
h$pp16(h$$PX); | |
h$l4(c, b, a, h$baseZCGHCziForeignzizdwpeekCString); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCForeignziCziErrorzizdwerrnoToIOError_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r2; | |
var c = h$r3; | |
var d = h$r4; | |
var e = h$r5; | |
h$p1(h$$PY); | |
var f = h$strerror(h$r3); | |
h$p7(b, c, d, e, f, h$ret1, h$$PW); | |
h$r1 = a; | |
return h$ap_1_0_fast(); | |
}; | |
function h$$P0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
var d = a.d1; | |
var e = a.d2; | |
var f = e.d1; | |
var g = e.d2; | |
h$l3(c, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c4(h$baseZCGHCziFingerprintziTypeziFingerprint_con_e, d, f, g, e.d3), | |
b), h$baseZCDataziTypeableziInternalzizdstypeRepzhzugo2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$PZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp6(a.d2, h$$P0); | |
return h$e(c); | |
}; | |
}; | |
function h$baseZCDataziTypeableziInternalzizdstypeRepzhzugo2_e() | |
{ | |
h$p2(h$r2, h$$PZ); | |
return h$e(h$r3); | |
}; | |
function h$baseZCDataziTypeableziInternalziTypeRep_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziTypeableziInternalziTypeRep_e() | |
{ | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, h$r2, h$r3, h$r4, h$r5, h$r6, h$r7, h$r8); | |
return h$rs(); | |
}; | |
function h$$P1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
var e = a.d1; | |
var f = a.d2; | |
var g = f.d1; | |
var h = f.d2; | |
h$r1 = h$c7(h$baseZCDataziTypeableziInternalziTypeRep_con_e, e, g, h, f.d3, b, c, d); | |
return h$rs(); | |
}; | |
function h$baseZCDataziTypeableziInternalzizdWTypeRep_e() | |
{ | |
h$p4(h$r3, h$r4, h$r5, h$$P1); | |
return h$e(h$r2); | |
}; | |
function h$$P4() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
--h$sp; | |
var d = a.d1; | |
var e = a.d2; | |
var f = e.d1; | |
var g = e.d2; | |
h$l2(c, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c4(h$baseZCGHCziFingerprintziTypeziFingerprint_con_e, d, f, g, e.d3), | |
b)); | |
++h$sp; | |
++h$sp; | |
return h$$P2; | |
}; | |
function h$$P3() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
var c = h$stack[h$sp]; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$l3(c, b, h$baseZCDataziTypeableziInternalzizdstypeRepzhzugo2); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
var d = a.d1; | |
var e = a.d2; | |
++h$sp; | |
h$pp6(e, h$$P4); | |
return h$e(d); | |
}; | |
}; | |
function h$$P2() | |
{ | |
h$sp -= 2; | |
var a = h$r1; | |
var b = h$r2; | |
++h$sp; | |
h$p2(a, h$$P3); | |
return h$e(b); | |
}; | |
function h$baseZCDataziTypeableziInternalzitypeRepFingerprints_e() | |
{ | |
h$r1 = h$r1.d1; | |
h$p1(h$r3); | |
++h$sp; | |
return h$$P2; | |
}; | |
function h$$P6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
var g = a.d1; | |
var h = a.d2; | |
var i = h.d1; | |
var j = h.d2; | |
if(h$hs_eqWord64(b, d, g, i)) | |
{ | |
if(h$hs_eqWord64(e, f, j, h.d3)) | |
{ | |
h$r1 = h$c1(h$baseZCGHCziBaseziJust_con_e, c); | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
}; | |
} | |
else | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
}; | |
return h$rs(); | |
}; | |
function h$$P5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
h$sp -= 3; | |
var c = a.d1; | |
var d = a.d2; | |
var e = d.d1; | |
var f = d.d2; | |
h$pp61(c, e, f, d.d3, h$$P6); | |
h$r1 = b; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCDataziTypeablezicast_e() | |
{ | |
h$p3(h$r3, h$r4, h$$P5); | |
h$r1 = h$r2; | |
return h$ap_1_0_fast(); | |
}; | |
function h$baseZCDataziTypeziEqualityziRefl_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziTypeziEqualityziRefl_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$rs(); | |
}; | |
function h$baseZCDataziTypeziEqualityzizdWRefl_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziTypeziCoercionziCoercion_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziTypeziCoercionziCoercion_e() | |
{ | |
h$r1 = h$c1(h$baseZCDataziTypeziCoercionziCoercion_con_e, h$r2); | |
return h$rs(); | |
}; | |
function h$$P7() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTupleziZLz2cUZR_con_e, a.d2, b); | |
return h$rs(); | |
}; | |
function h$baseZCDataziTupleziswap_e() | |
{ | |
h$p1(h$$P7); | |
return h$e(h$r2); | |
}; | |
function h$$P8() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d2; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCDataziTuplezisnd_e() | |
{ | |
h$p1(h$$P8); | |
return h$e(h$r2); | |
}; | |
function h$$P9() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCDataziTuplezifst_e() | |
{ | |
h$p1(h$$P9); | |
return h$e(h$r2); | |
}; | |
function h$$Qh() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziBasezizdp1Monad); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qg() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziBasezizdp1Applicative); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qf() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$ghczmprimZCGHCziTypesziZMZN, a, h$baseZCGHCziBasezipure); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Qe() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qd() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qc() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$bh(); | |
h$l4(h$c2(h$$Qd, a, b.d2), h$ghczmprimZCGHCziTypesziZC, c, h$baseZCGHCziBasezifmap); | |
return h$ap_3_3_fast(); | |
}; | |
function h$$Qb() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 5)]; | |
var c = h$stack[(h$sp - 4)]; | |
var d = h$stack[(h$sp - 3)]; | |
var e = h$stack[(h$sp - 2)]; | |
var f = h$stack[(h$sp - 1)]; | |
h$sp -= 6; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = e; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var g = a.d1; | |
h$l4(h$c2(h$$Qe, f, a.d2), h$c3(h$$Qc, b, d, g), c, h$baseZCGHCziBasezizlztzg); | |
return h$ap_3_3_fast(); | |
}; | |
}; | |
function h$$Qa() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
var d = b.d2; | |
var e = b.d3; | |
h$p6(a, c, d, e, b.d4, h$$Qb); | |
return h$e(h$r2); | |
}; | |
function h$baseZCDataziTraversablezizdfTraversableZMZNzuzdcmapM_e() | |
{ | |
var a = h$c1(h$$Qh, h$r2); | |
var b = h$c1(h$$Qg, a); | |
var c = h$c1(h$$Qf, a); | |
var d = h$c(h$$Qa); | |
d.d1 = h$r3; | |
d.d2 = h$d4(a, b, c, d); | |
h$r1 = d; | |
return h$rs(); | |
}; | |
function h$baseZCDataziSemigroupziCZCSemigroup_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziSemigroupziCZCSemigroup_e() | |
{ | |
h$r1 = h$c3(h$baseZCDataziSemigroupziCZCSemigroup_con_e, h$r2, h$r3, h$r4); | |
return h$rs(); | |
}; | |
function h$$Qi() | |
{ | |
var a = h$r1; | |
--h$sp; | |
var b = a.d2; | |
h$r1 = b.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$baseZCDataziSemigroupzisconcat_e() | |
{ | |
h$p1(h$$Qi); | |
return h$e(h$r2); | |
}; | |
function h$$Qk() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCDataziOldListziprependToAll); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Qj() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, b, h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, c, h$c2(h$$Qk, b, a.d2))); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCDataziOldListziprependToAll_e() | |
{ | |
h$p2(h$r2, h$$Qj); | |
return h$e(h$r3); | |
}; | |
function h$$Qm() | |
{ | |
h$l2(h$r1.d1, h$baseZCDataziOldListziintercalate1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Ql() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$l3(h$c1(h$$Qm, a.d2), b, h$baseZCGHCziBasezizpzp); | |
return h$ap_2_2_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCDataziOldListziintercalate1_e() | |
{ | |
h$p1(h$$Ql); | |
return h$e(h$r2); | |
}; | |
function h$$Qo() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if(a) | |
{ | |
h$r1 = true; | |
} | |
else | |
{ | |
h$l2(b, h$baseZCDataziMonoidzizdfMonoidAnyzugo); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Qn() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = false; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p2(a.d2, h$$Qo); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidAnyzugo_e() | |
{ | |
h$p1(h$$Qn); | |
return h$e(h$r2); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidSum2_e() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Qt() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziNumzizp); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qs() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCDataziMonoidzizdfMonoidSum1, a, h$baseZCGHCziNumzifromInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Qr() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qq() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var e = a.d1; | |
h$l3(h$c2(h$$Qr, d, a.d2), e, b); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Qp() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(a, c, b.d2, h$$Qq); | |
return h$e(h$r2); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidSumzuzdcmconcat_e() | |
{ | |
var a = h$r3; | |
var b = h$c1(h$$Qs, h$r2); | |
var c = h$c(h$$Qp); | |
c.d1 = h$c1(h$$Qt, h$r2); | |
c.d2 = h$d2(b, c); | |
h$l2(a, c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidProduct2_e() | |
{ | |
h$r3 = h$r1.d1; | |
h$r1 = h$r1.d2; | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Qy() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziNumzizt); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qx() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l3(h$baseZCDataziMonoidzizdfMonoidProduct1, a, h$baseZCGHCziNumzifromInteger); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Qw() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l2(b, a); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qv() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
var e = a.d1; | |
h$l3(h$c2(h$$Qw, d, a.d2), e, b); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$Qu() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
var c = b.d1; | |
h$p4(a, c, b.d2, h$$Qv); | |
return h$e(h$r2); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidProductzuzdcmconcat_e() | |
{ | |
var a = h$r3; | |
var b = h$c1(h$$Qx, h$r2); | |
var c = h$c(h$$Qu); | |
c.d1 = h$c1(h$$Qy, h$r2); | |
c.d2 = h$d2(b, c); | |
h$l2(a, c); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidAnyzuzdcmconcat_e() | |
{ | |
h$r1 = h$r1.d1; | |
return h$ap_1_1_fast(); | |
}; | |
function h$$QB() | |
{ | |
h$l3(h$r2, h$r1.d1, h$baseZCDataziMonoidzizdfMonoidSumzuzdcmconcat); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$QA() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziNumzizp); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Qz() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCDataziMonoidzizdfMonoidSum2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidSum_e() | |
{ | |
h$r1 = h$c3(h$baseZCGHCziBaseziCZCMonoid_con_e, h$c1(h$$Qz, h$r2), h$c1(h$$QA, h$r2), h$c1(h$$QB, h$r2)); | |
return h$rs(); | |
}; | |
function h$$QE() | |
{ | |
h$l3(h$r2, h$r1.d1, h$baseZCDataziMonoidzizdfMonoidProductzuzdcmconcat); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$QD() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCGHCziNumzizt); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$QC() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCDataziMonoidzizdfMonoidProduct2); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCDataziMonoidzizdfMonoidProduct_e() | |
{ | |
h$r1 = h$c3(h$baseZCGHCziBaseziCZCMonoid_con_e, h$c1(h$$QC, h$r2), h$c1(h$$QD, h$r2), h$c1(h$$QE, h$r2)); | |
return h$rs(); | |
}; | |
function h$$QH() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$l2(a, h$baseZCDataziMaybezicatMaybes1); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$QG() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$l2(b, h$baseZCDataziMaybezicatMaybes1); | |
return h$ap_1_1_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a.d1, h$c1(h$$QH, b)); | |
}; | |
return h$rs(); | |
}; | |
function h$$QF() | |
{ | |
var a = h$r1; | |
--h$sp; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var b = a.d1; | |
h$p2(a.d2, h$$QG); | |
return h$e(b); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCDataziMaybezicatMaybes1_e() | |
{ | |
h$p1(h$$QF); | |
return h$e(h$r2); | |
}; | |
function h$$QL() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$l3(c, a.d1, b); | |
return h$ap_2_2_fast(); | |
}; | |
}; | |
function h$$QK() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(b, a, h$baseZCDataziMaybezimapMaybe); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$QJ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$l3(c, b, h$baseZCDataziMaybezimapMaybe); | |
return h$ap_2_2_fast(); | |
} | |
else | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, a.d1, h$c2(h$$QK, b, c)); | |
}; | |
return h$rs(); | |
}; | |
function h$$QI() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$ghczmprimZCGHCziTypesziZMZN; | |
} | |
else | |
{ | |
var c = a.d1; | |
h$pp6(a.d2, h$$QJ); | |
h$l2(c, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$baseZCDataziMaybezimapMaybeFB_e() | |
{ | |
h$p3(h$r2, h$r5, h$$QL); | |
h$l2(h$r4, h$r3); | |
return h$ap_1_1_fast(); | |
}; | |
function h$baseZCDataziMaybezimapMaybe_e() | |
{ | |
h$p2(h$r2, h$$QI); | |
return h$e(h$r3); | |
}; | |
var h$$QN = h$strta("Maybe.fromJust: Nothing"); | |
function h$baseZCDataziMaybezifromJust1_e() | |
{ | |
var a = h$r1.d1; | |
var b = h$r1.d2; | |
h$bh(); | |
h$l3(a, b.d1, b.d2); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$QM() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 2; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = b; | |
return h$ap_0_0_fast(); | |
} | |
else | |
{ | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
}; | |
function h$baseZCDataziMaybezifromMaybe_e() | |
{ | |
h$p2(h$r2, h$$QM); | |
return h$e(h$r3); | |
}; | |
function h$baseZCDataziListziNonEmptyziZCzb_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziListziNonEmptyziZCzb_e() | |
{ | |
h$r1 = h$c2(h$baseZCDataziListziNonEmptyziZCzb_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$QR() | |
{ | |
var a = h$r1; | |
--h$sp; | |
return h$e(a.d2); | |
}; | |
function h$$QQ() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$QR); | |
return h$e(a); | |
}; | |
function h$$QP() | |
{ | |
var a = h$r1; | |
--h$sp; | |
h$r1 = a.d1; | |
return h$ap_0_0_fast(); | |
}; | |
function h$$QO() | |
{ | |
var a = h$r1.d1; | |
h$bh(); | |
h$p1(h$$QP); | |
return h$e(a); | |
}; | |
function h$baseZCDataziListziNonEmptyzitoList_e() | |
{ | |
h$r1 = h$c2(h$ghczmprimZCGHCziTypesziZC_con_e, h$c1(h$$QO, h$r2), h$c1(h$$QQ, h$r2)); | |
return h$rs(); | |
}; | |
function h$baseZCDataziFunctorziProductziPair_con_e() | |
{ | |
return h$rs(); | |
}; | |
function h$baseZCDataziFunctorziProductziPair_e() | |
{ | |
h$r1 = h$c2(h$baseZCDataziFunctorziProductziPair_con_e, h$r2, h$r3); | |
return h$rs(); | |
}; | |
function h$$QU() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$QT() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$pp5(a, h$$QU); | |
h$l4(d, a.d1, b, h$ghczmprimZCGHCziClasseszizlze); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$QS() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp14(a, a.d1, h$$QT); | |
return h$e(b); | |
}; | |
}; | |
function h$baseZCDataziFoldablezizdfMonoidMinzuzdcmappend_e() | |
{ | |
h$p3(h$r2, h$r3, h$$QS); | |
return h$e(h$r4); | |
}; | |
function h$$QZ() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$QY() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$pp5(a, h$$QZ); | |
h$l4(d, a.d1, b, h$ghczmprimZCGHCziClasseszizlze); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$QX() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp14(a, a.d1, h$$QY); | |
return h$e(b); | |
}; | |
}; | |
function h$$QW() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$pp6(a.d1, h$$QX); | |
h$l2(a.d2, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$QV() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$QW); | |
return h$e(h$r2); | |
}; | |
function h$baseZCDataziFoldablezizdfMonoidMinzuzdcmconcat_e() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$QV); | |
b.d1 = h$r2; | |
b.d2 = b; | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Q2() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$Q1() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$pp5(a, h$$Q2); | |
h$l4(d, a.d1, b, h$ghczmprimZCGHCziClasseszizgze); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Q0() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp14(a, a.d1, h$$Q1); | |
return h$e(b); | |
}; | |
}; | |
function h$baseZCDataziFoldablezizdfMonoidMaxzuzdcmappend_e() | |
{ | |
h$p3(h$r2, h$r3, h$$Q0); | |
return h$e(h$r4); | |
}; | |
function h$$Q7() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 2)]; | |
var c = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if(a) | |
{ | |
h$r1 = b; | |
} | |
else | |
{ | |
h$r1 = c; | |
}; | |
return h$rs(); | |
}; | |
function h$$Q6() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 3)]; | |
var c = h$stack[(h$sp - 2)]; | |
var d = h$stack[(h$sp - 1)]; | |
h$sp -= 4; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = c; | |
} | |
else | |
{ | |
h$pp5(a, h$$Q7); | |
h$l4(d, a.d1, b, h$ghczmprimZCGHCziClasseszizgze); | |
return h$ap_3_3_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Q5() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
return h$e(b); | |
} | |
else | |
{ | |
h$pp14(a, a.d1, h$$Q6); | |
return h$e(b); | |
}; | |
}; | |
function h$$Q4() | |
{ | |
var a = h$r1; | |
var b = h$stack[(h$sp - 1)]; | |
h$sp -= 3; | |
if((a.f.a === 1)) | |
{ | |
h$r1 = h$baseZCGHCziBaseziNothing; | |
} | |
else | |
{ | |
h$pp6(a.d1, h$$Q5); | |
h$l2(a.d2, b); | |
return h$ap_1_1_fast(); | |
}; | |
return h$rs(); | |
}; | |
function h$$Q3() | |
{ | |
var a = h$r1.d1; | |
h$p3(a, h$r1.d2, h$$Q4); | |
return h$e(h$r2); | |
}; | |
function h$baseZCDataziFoldablezizdfMonoidMaxzuzdcmconcat_e() | |
{ | |
var a = h$r3; | |
var b = h$c(h$$Q3); | |
b.d1 = h$r2; | |
b.d2 = b; | |
h$l2(a, b); | |
return h$ap_1_1_fast(); | |
}; | |
function h$$Q9() | |
{ | |
h$l3(h$r2, h$r1.d1, h$baseZCDataziFoldablezizdfMonoidMaxzuzdcmconcat); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Q8() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$baseZCDataziFoldablezizdfMonoidMaxzuzdcmappend); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCDataziFoldablezizdfMonoidMax_e() | |
{ | |
var a = h$r2; | |
h$r1 = h$c3(h$baseZCGHCziBaseziCZCMonoid_con_e, h$r1.d1, h$c1(h$$Q8, a), h$c1(h$$Q9, a)); | |
return h$rs(); | |
}; | |
function h$$Rb() | |
{ | |
h$l3(h$r2, h$r1.d1, h$baseZCDataziFoldablezizdfMonoidMinzuzdcmconcat); | |
return h$ap_2_2_fast(); | |
}; | |
function h$$Ra() | |
{ | |
h$l4(h$r3, h$r2, h$r1.d1, h$baseZCDataziFoldablezizdfMonoidMinzuzdcmappend); | |
return h$ap_3_3_fast(); | |
}; | |
function h$baseZCDataziFoldablezizdfMonoidMin_e() | |
{ | |
var a = h$r2; | |
h$r1 = h$c3(h$baseZCGHCziBaseziCZCMonoid |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment