@fable-org/fable-library-js 2.0.0-beta.3 → 2.0.0-beta.5

package/Reflection.js

@@ -1,5 +1,5 @@
 import { Record, Union } from "./Types.js";
-import { combineHashCodes, equalArraysWith, stringHash } from "./Util.js";
+import { Exception, combineHashCodes, equalArraysWith, stringHash } from "./Util.js";
 import Decimal from "./Decimal.js";
 export class CaseInfo {
     constructor(declaringType, tag, name, fields) {
@@ -135,7 +135,7 @@ export function name(info) {
         }
         else {
             const i = info.fullname.lastIndexOf(".");
-            return i === -1 ? info.fullname : info.fullname.substr(i + 1);
+            return i === -1 ? info.fullname : info.fullname.slice(i + 1);
         }
     }
     else {
@@ -161,7 +161,7 @@ export function namespace(t) {
     }
     else {
         const i = t.fullname.lastIndexOf(".");
-        return i === -1 ? "" : t.fullname.substr(0, i);
+        return i === -1 ? "" : t.fullname.slice(0, i);
     }
 }
 export function isArray(t) {
@@ -239,7 +239,7 @@ export function getEnumValues(t) {
         return t.enumCases.map((kv) => kv[1]);
     }
     else {
-        throw new Error(`${t.fullname} is not an enum type`);
+        throw new Exception(`${t.fullname} is not an enum type`);
     }
 }
 export function getEnumNames(t) {
@@ -247,7 +247,7 @@ export function getEnumNames(t) {
         return t.enumCases.map((kv) => kv[0]);
     }
     else {
-        throw new Error(`${t.fullname} is not an enum type`);
+        throw new Exception(`${t.fullname} is not an enum type`);
     }
 }
 function getEnumCase(t, v) {
@@ -258,7 +258,7 @@ function getEnumCase(t, v) {
                     return kv;
                 }
             }
-            throw new Error(`'${v}' was not found in ${t.fullname}`);
+            throw new Exception(`'${v}' was not found in ${t.fullname}`);
         }
         else {
             for (const kv of t.enumCases) {
@@ -271,7 +271,7 @@ function getEnumCase(t, v) {
         }
     }
     else {
-        throw new Error(`${t.fullname} is not an enum type`);
+        throw new Exception(`${t.fullname} is not an enum type`);
     }
 }
 export function parseEnum(t, str) {
@@ -307,7 +307,7 @@ export function getUnionCases(t) {
         return t.cases();
     }
     else {
-        throw new Error(`${t.fullname} is not an F# union type`);
+        throw new Exception(`${t.fullname} is not an F# union type`);
     }
 }
 export function getRecordElements(t) {
@@ -315,7 +315,7 @@ export function getRecordElements(t) {
         return t.fields();
     }
     else {
-        throw new Error(`${t.fullname} is not an F# record type`);
+        throw new Exception(`${t.fullname} is not an F# record type`);
     }
 }
 export function getTupleElements(t) {
@@ -323,7 +323,7 @@ export function getTupleElements(t) {
         return t.generics;
     }
     else {
-        throw new Error(`${t.fullname} is not a tuple type`);
+        throw new Exception(`${t.fullname} is not a tuple type`);
     }
 }
 export function getFunctionElements(t) {
@@ -332,7 +332,7 @@ export function getFunctionElements(t) {
         return [gen[0], gen[1]];
     }
     else {
-        throw new Error(`${t.fullname} is not an F# function type`);
+        throw new Exception(`${t.fullname} is not an F# function type`);
     }
 }
 export function isUnion(t) {
@@ -353,7 +353,7 @@ export function getUnionFields(v, t) {
     const cases = getUnionCases(t);
     const case_ = cases[v.tag];
     if (case_ == null) {
-        throw new Error(`Cannot find case ${v.name} in union type`);
+        throw new Exception(`Cannot find case ${v.name} in union type`);
     }
     return [case_, v.fields];
 }
@@ -378,7 +378,7 @@ export function getTupleField(v, i) {
 export function makeUnion(uci, values) {
     const expectedLength = (uci.fields || []).length;
     if (values.length !== expectedLength) {
-        throw new Error(`Expected an array of length ${expectedLength} but got ${values.length}`);
+        throw new Exception(`Expected an array of length ${expectedLength} but got ${values.length}`);
     }
     const construct = uci.declaringType.construct;
     if (construct == null) {
@@ -395,7 +395,7 @@ export function makeUnion(uci, values) {
 export function makeRecord(t, values) {
     const fields = getRecordElements(t);
     if (fields.length !== values.length) {
-        throw new Error(`Expected an array of length ${fields.length} but got ${values.length}`);
+        throw new Exception(`Expected an array of length ${fields.length} but got ${values.length}`);
     }
     return t.construct != null
         ? new t.construct(...values)
@@ -434,7 +434,7 @@ export function createInstance(t, consArgs) {
                 // Even though char is a value type, it's erased to string, and Unchecked.defaultof<char> is null
                 return null;
             default:
-                throw new Error(`Cannot access constructor of ${t.fullname}`);
+                throw new Exception(`Cannot access constructor of ${t.fullname}`);
         }
     }
 }
@@ -444,7 +444,7 @@ export function getValue(propertyInfo, v) {
 // Fable.Core.Reflection
 function assertUnion(x) {
     if (!(x instanceof Union)) {
-        throw new Error(`Value is not an F# union type`);
+        throw new Exception(`Value is not an F# union type`);
     }
 }
 export function getCaseTag(x) {

package/RegExp.js

@@ -1,3 +1,4 @@
+import { Exception } from "./Util.js";
 export function create(pattern, options = 0) {
     // Supported RegexOptions
     // * IgnoreCase:  0x0001
@@ -6,7 +7,7 @@ export function create(pattern, options = 0) {
     // * Singleline:  0x0010
     // * ECMAScript:  0x0100 (ignored)
     if ((options & ~(1 ^ 2 ^ 8 ^ 16 ^ 256)) !== 0) {
-        throw new Error("RegexOptions only supports: IgnoreCase, Multiline, Compiled, Singleline and ECMAScript");
+        throw new Exception("RegexOptions only supports: IgnoreCase, Multiline, Compiled, Singleline and ECMAScript");
     }
     // Set always global and unicode flags for compatibility with dotnet, see #2925
     let flags = "gu";
@@ -32,10 +33,10 @@ export function match(reg, input, startAt = 0) {
 }
 export function matches(reg, input, startAt = 0) {
     if (input == null) {
-        throw new Error("Input cannot ve null");
+        throw new Exception("Input cannot ve null");
     }
     if (!reg.global) {
-        throw new Error("Non-global RegExp"); // Prevent infinite loop
+        throw new Exception("Non-global RegExp"); // Prevent infinite loop
     }
     reg.lastIndex = startAt;
     const matches = [];

package/Seq.js

@@ -1,8 +1,10 @@
-import { clear, defaultOf, equals, isDisposable, isArrayLike, toIterator, disposeSafe, getEnumerator } from "./Util.js";
+import { InvalidOperationException_$ctor_Z721C83C5, NotSupportedException_$ctor_Z721C83C5 } from "./System.js";
+import { clear, Exception, isDisposable, isArrayLike, toIterator, disposeSafe, getEnumerator } from "./Util.js";
 import { toString } from "./Types.js";
 import { class_type } from "./Reflection.js";
 import { some, value as value_1 } from "./Option.js";
-import { Operators_Lock, Operators_NullArg, Operators_IsNull } from "./FSharp.Core.js";
+import { KeyNotFoundException_$ctor_Z721C83C5 } from "./System.Collections.Generic.js";
+import { Operators_Lock, Operators_NullArgCheck } from "./FSharp.Core.js";
 import { chunkBySize as chunkBySize_1, permute as permute_1, transpose as transpose_1, map as map_1, windowed as windowed_1, splitInto as splitInto_1, pairwise as pairwise_1, scanBack as scanBack_1, reverse as reverse_1, mapFoldBack as mapFoldBack_1, mapFold as mapFold_1, tryItem as tryItem_1, tryHead as tryHead_1, foldBack2 as foldBack2_1, foldBack as foldBack_1, tryFindIndexBack as tryFindIndexBack_1, tryFindBack as tryFindBack_1, singleton as singleton_1 } from "./Array.js";
 import { length as length_1, tryItem as tryItem_2, isEmpty as isEmpty_1, tryHead as tryHead_2, ofSeq as ofSeq_1, ofArray as ofArray_1, toArray as toArray_1, FSharpList } from "./List.js";
 import { SR_indexOutOfBounds } from "./Global.js";
@@ -14,13 +16,13 @@ export const SR_keyNotFoundAlt = "An index satisfying the predicate was not foun
 export const SR_notEnoughElements = "The input sequence has an insufficient number of elements.";
 export const SR_resetNotSupported = "Reset is not supported on this enumerator.";
 export function Enumerator_noReset() {
-    throw new Error(SR_resetNotSupported);
+    throw NotSupportedException_$ctor_Z721C83C5(SR_resetNotSupported);
 }
 export function Enumerator_notStarted() {
-    throw new Error(SR_enumerationNotStarted);
+    throw InvalidOperationException_$ctor_Z721C83C5(SR_enumerationNotStarted);
 }
 export function Enumerator_alreadyFinished() {
-    throw new Error(SR_enumerationAlreadyFinished);
+    throw InvalidOperationException_$ctor_Z721C83C5(SR_enumerationAlreadyFinished);
 }
 export class Enumerator_Seq {
     constructor(f) {
@@ -153,7 +155,7 @@ export function Enumerator_concat(sources) {
         else {
             let res = undefined;
             while (res == null) {
-                let copyOfStruct;
+                let copyOfStruct = undefined;
                 const outerOpt_1 = outerOpt;
                 const innerOpt_1 = innerOpt;
                 if (outerOpt_1 != null) {
@@ -294,19 +296,13 @@ export function Enumerator_unfold(f, state) {
     });
 }
 export function indexNotFound() {
-    throw new Error(SR_keyNotFoundAlt);
-}
-export function checkNonNull(argName, arg) {
-    if (Operators_IsNull(arg)) {
-        Operators_NullArg(argName);
-    }
+    throw KeyNotFoundException_$ctor_Z721C83C5(SR_keyNotFoundAlt);
 }
 export function mkSeq(f) {
     return Enumerator_Seq_$ctor_673A07F2(f);
 }
 export function ofSeq(xs) {
-    checkNonNull("source", xs);
-    return getEnumerator(xs);
+    return getEnumerator(Operators_NullArgCheck("source", xs));
 }
 export function delay(generator) {
     return mkSeq(() => getEnumerator(generator()));
@@ -365,10 +361,7 @@ export function append(xs, ys) {
     return concat([xs, ys]);
 }
 export function cast(xs) {
-    return mkSeq(() => {
-        checkNonNull("source", xs);
-        return Enumerator_cast(getEnumerator(xs));
-    });
+    return mkSeq(() => Enumerator_cast(getEnumerator(Operators_NullArgCheck("source", xs))));
 }
 export function choose(chooser, xs) {
     return generate(() => ofSeq(xs), (e) => {
@@ -442,7 +435,7 @@ export function enumerateThenFinally(source, compensation) {
 }
 export function enumerateUsing(resource, source) {
     const compensation = () => {
-        if (equals(resource, defaultOf())) {
+        if (resource == null) {
         }
         else {
             let copyOfStruct = resource;
@@ -510,14 +503,14 @@ export function exactlyOne(xs) {
         if (e["System.Collections.IEnumerator.MoveNext"]()) {
             const v = e["System.Collections.Generic.IEnumerator`1.get_Current"]();
             if (e["System.Collections.IEnumerator.MoveNext"]()) {
-                throw new Error((SR_inputSequenceTooLong + "\\nParameter name: ") + "source");
+                throw new Exception((SR_inputSequenceTooLong + "\\nParameter name: ") + "source");
             }
             else {
                 return v;
             }
         }
         else {
-            throw new Error((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
+            throw new Exception((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
         }
     }
     finally {
@@ -690,7 +683,7 @@ export function tryHead(xs) {
 export function head(xs) {
     const matchValue = tryHead(xs);
     if (matchValue == null) {
-        throw new Error((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
+        throw new Exception((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
     }
     else {
         return value_1(matchValue);
@@ -756,7 +749,7 @@ export function tryItem(index, xs) {
 export function item(index, xs) {
     const matchValue = tryItem(index, xs);
     if (matchValue == null) {
-        throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "index");
+        throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "index");
     }
     else {
         return value_1(matchValue);
@@ -809,7 +802,7 @@ export function tryLast(xs) {
 export function last(xs) {
     const matchValue = tryLast(xs);
     if (matchValue == null) {
-        throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "source");
+        throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "source");
     }
     else {
         return value_1(matchValue);
@@ -899,8 +892,7 @@ export function map3(mapping, xs, ys, zs) {
     });
 }
 export function readOnly(xs) {
-    checkNonNull("source", xs);
-    return map((x) => x, xs);
+    return map((x) => x, Operators_NullArgCheck("source", xs));
 }
 export class CachedSeq$1 {
     constructor(cleanup, res) {
@@ -933,13 +925,13 @@ export function CachedSeq$1__Clear(_) {
     _.cleanup();
 }
 export function cache(source) {
-    checkNonNull("source", source);
+    const source_1 = Operators_NullArgCheck("source", source);
     const prefix = [];
     let enumeratorR = undefined;
     return CachedSeq$1_$ctor_Z7A8347D4(() => {
         Operators_Lock(prefix, () => {
             clear(prefix);
-            let matchResult, e;
+            let matchResult = undefined, e = undefined;
             if (enumeratorR != null) {
                 if (value_1(enumeratorR) != null) {
                     matchResult = 0;
@@ -971,7 +963,7 @@ export function cache(source) {
                     optEnumerator_2 = value_1(enumeratorR);
                 }
                 else {
-                    const optEnumerator = getEnumerator(source);
+                    const optEnumerator = getEnumerator(source_1);
                     enumeratorR = some(optEnumerator);
                     optEnumerator_2 = optEnumerator;
                 }
@@ -1051,7 +1043,7 @@ export function reduce(folder, xs) {
             return loop(e["System.Collections.Generic.IEnumerator`1.get_Current"]());
         }
         else {
-            throw new Error(SR_inputSequenceEmpty);
+            throw new Exception(SR_inputSequenceEmpty);
         }
     }
     finally {
@@ -1064,7 +1056,7 @@ export function reduceBack(folder, xs) {
         return arr.reduceRight(folder);
     }
     else {
-        throw new Error(SR_inputSequenceEmpty);
+        throw new Exception(SR_inputSequenceEmpty);
     }
 }
 export function replicate(n, x) {
@@ -1091,7 +1083,7 @@ export function skip(count, source) {
         try {
             for (let _ = 1; _ <= count; _++) {
                 if (!e["System.Collections.IEnumerator.MoveNext"]()) {
-                    throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "source");
+                    throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "source");
                 }
             }
             return Enumerator_enumerateThenFinally(() => {
@@ -1124,7 +1116,7 @@ export function take(count, xs) {
                 return some(e["System.Collections.Generic.IEnumerator`1.get_Current"]());
             }
             else {
-                throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "source");
+                throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "source");
             }
         }
         else {
@@ -1212,7 +1204,7 @@ export function average(xs, averager) {
         return averager.Add(acc, x);
     }, averager.GetZero(), xs);
     if (count === 0) {
-        throw new Error((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
+        throw new Exception((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
     }
     else {
         return averager.DivideByInt(total, count);
@@ -1225,7 +1217,7 @@ export function averageBy(f, xs, averager) {
         return averager.Add(acc, f(x));
     }, averager.GetZero(), xs);
     if (count === 0) {
-        throw new Error((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
+        throw new Exception((SR_inputSequenceEmpty + "\\nParameter name: ") + "source");
     }
     else {
         return averager.DivideByInt(total, count);
@@ -1240,7 +1232,7 @@ export function chunkBySize(chunkSize, xs) {
 export function insertAt(index, y, xs) {
     let isDone = false;
     if (index < 0) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if ((isDone ? true : (i < index)) && e["System.Collections.IEnumerator.MoveNext"]()) {
@@ -1252,7 +1244,7 @@ export function insertAt(index, y, xs) {
         }
         else {
             if (!isDone) {
-                throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+                throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
             }
             return undefined;
         }
@@ -1263,7 +1255,7 @@ export function insertAt(index, y, xs) {
 export function insertManyAt(index, ys, xs) {
     let status = -1;
     if (index < 0) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return generateIndexed(() => [ofSeq(xs), ofSeq(ys)], (i, tupledArg) => {
         const e1 = tupledArg[0];
@@ -1290,7 +1282,7 @@ export function insertManyAt(index, ys, xs) {
             }
             else {
                 if (status < 1) {
-                    throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+                    throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
                 }
                 return undefined;
             }
@@ -1306,7 +1298,7 @@ export function insertManyAt(index, ys, xs) {
 export function removeAt(index, xs) {
     let isDone = false;
     if (index < 0) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if ((isDone ? true : (i < index)) && e["System.Collections.IEnumerator.MoveNext"]()) {
@@ -1318,7 +1310,7 @@ export function removeAt(index, xs) {
         }
         else {
             if (!isDone) {
-                throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+                throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
             }
             return undefined;
         }
@@ -1328,7 +1320,7 @@ export function removeAt(index, xs) {
 }
 export function removeManyAt(index, count, xs) {
     if (index < 0) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if (i < index) {
@@ -1336,14 +1328,14 @@ export function removeManyAt(index, count, xs) {
                 return some(e["System.Collections.Generic.IEnumerator`1.get_Current"]());
             }
             else {
-                throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+                throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
             }
         }
         else {
             if (i === index) {
                 for (let _ = 1; _ <= count; _++) {
                     if (!e["System.Collections.IEnumerator.MoveNext"]()) {
-                        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "count");
+                        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "count");
                     }
                 }
             }
@@ -1356,7 +1348,7 @@ export function removeManyAt(index, count, xs) {
 export function updateAt(index, y, xs) {
     let isDone = false;
     if (index < 0) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if ((isDone ? true : (i < index)) && e["System.Collections.IEnumerator.MoveNext"]()) {
@@ -1368,7 +1360,7 @@ export function updateAt(index, y, xs) {
         }
         else {
             if (!isDone) {
-                throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+                throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
             }
             return undefined;
         }