@magnusopera/fscript 0.80.0 → 0.81.0

package/dist/FScript.Language/BuiltinFunctions.js

@@ -12,6 +12,7 @@ import { append, tryHead, tryFindIndex, tryFind as tryFind_1, filter, collect, c
 import { ExternalFunction, Value as Value_1, MapKey } from "./Value.js";
 import { compare as compare_1, op_Addition, toInt32_unchecked, fromInt32, toInt64_unchecked, equals } from "../fable_modules/fable-library-js.5.13.0/BigInt.js";
 import { ofSeq } from "../fable_modules/fable-library-js.5.13.0/Set.js";
+import { $007CRecordFields$007C_$007C } from "./HostInterop.js";
 import { tryParse as tryParse_2 } from "../fable_modules/fable-library-js.5.13.0/Boolean.js";
 import { some } from "../fable_modules/fable-library-js.5.13.0/Option.js";
 
@@ -290,14 +291,28 @@ function valueEquals(a_mut, b_mut) {
     valueEquals:
     while (true) {
         const a = a_mut, b = b_mut;
-        let matchResult, x, y, x_1, y_1, x_2, y_2, x_3, y_3, xs, ys, xs_1, ys_1, xf, yf, xf_1, yf_1, x_8, y_8, cx, cy, px, py, tx, ty, tx_1, ty_1;
+        let matchResult, x, y, x_1, y_1, x_2, y_2, x_3, y_3, xs, ys, xs_1, ys_1, xf, yf;
         switch (a.tag) {
             case 0: {
                 if (b.tag === 0) {
                     matchResult = 0;
                 }
                 else {
-                    matchResult = 13;
+                    const activePatternResult = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult != null) {
+                        const activePatternResult_1 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_1 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult;
+                            yf = activePatternResult_1;
+                        }
+                        else {
+                            matchResult = 8;
+                        }
+                    }
+                    else {
+                        matchResult = 8;
+                    }
                 }
                 break;
             }
@@ -308,7 +323,21 @@ function valueEquals(a_mut, b_mut) {
                     y = b.fields[0];
                 }
                 else {
-                    matchResult = 13;
+                    const activePatternResult_2 = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult_2 != null) {
+                        const activePatternResult_3 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_3 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult_2;
+                            yf = activePatternResult_3;
+                        }
+                        else {
+                            matchResult = 8;
+                        }
+                    }
+                    else {
+                        matchResult = 8;
+                    }
                 }
                 break;
             }
@@ -319,7 +348,21 @@ function valueEquals(a_mut, b_mut) {
                     y_1 = b.fields[0];
                 }
                 else {
-                    matchResult = 13;
+                    const activePatternResult_4 = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult_4 != null) {
+                        const activePatternResult_5 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_5 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult_4;
+                            yf = activePatternResult_5;
+                        }
+                        else {
+                            matchResult = 8;
+                        }
+                    }
+                    else {
+                        matchResult = 8;
+                    }
                 }
                 break;
             }
@@ -330,7 +373,21 @@ function valueEquals(a_mut, b_mut) {
                     y_2 = b.fields[0];
                 }
                 else {
-                    matchResult = 13;
+                    const activePatternResult_6 = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult_6 != null) {
+                        const activePatternResult_7 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_7 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult_6;
+                            yf = activePatternResult_7;
+                        }
+                        else {
+                            matchResult = 8;
+                        }
+                    }
+                    else {
+                        matchResult = 8;
+                    }
                 }
                 break;
             }
@@ -341,7 +398,21 @@ function valueEquals(a_mut, b_mut) {
                     y_3 = b.fields[0];
                 }
                 else {
-                    matchResult = 13;
+                    const activePatternResult_8 = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult_8 != null) {
+                        const activePatternResult_9 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_9 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult_8;
+                            yf = activePatternResult_9;
+                        }
+                        else {
+                            matchResult = 8;
+                        }
+                    }
+                    else {
+                        matchResult = 8;
+                    }
                 }
                 break;
             }
@@ -352,7 +423,21 @@ function valueEquals(a_mut, b_mut) {
                     ys = b.fields[0];
                 }
                 else {
-                    matchResult = 13;
+                    const activePatternResult_10 = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult_10 != null) {
+                        const activePatternResult_11 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_11 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult_10;
+                            yf = activePatternResult_11;
+                        }
+                        else {
+                            matchResult = 8;
+                        }
+                    }
+                    else {
+                        matchResult = 8;
+                    }
                 }
                 break;
             }
@@ -363,89 +448,41 @@ function valueEquals(a_mut, b_mut) {
                     ys_1 = b.fields[0];
                 }
                 else {
-                    matchResult = 13;
-                }
-                break;
-            }
-            case 7: {
-                if (b.tag === 7) {
-                    matchResult = 7;
-                    xf = a.fields[0];
-                    yf = b.fields[0];
-                }
-                else {
-                    matchResult = 13;
-                }
-                break;
-            }
-            case 8: {
-                if (b.tag === 8) {
-                    matchResult = 8;
-                    xf_1 = a.fields[0];
-                    yf_1 = b.fields[0];
-                }
-                else {
-                    matchResult = 13;
-                }
-                break;
-            }
-            case 9: {
-                if (a.fields[0] != null) {
-                    if (b.tag === 9) {
-                        if (b.fields[0] != null) {
-                            matchResult = 10;
-                            x_8 = a.fields[0];
-                            y_8 = b.fields[0];
+                    const activePatternResult_12 = $007CRecordFields$007C_$007C(a);
+                    if (activePatternResult_12 != null) {
+                        const activePatternResult_13 = $007CRecordFields$007C_$007C(b);
+                        if (activePatternResult_13 != null) {
+                            matchResult = 7;
+                            xf = activePatternResult_12;
+                            yf = activePatternResult_13;
                         }
                         else {
-                            matchResult = 13;
+                            matchResult = 8;
                         }
                     }
                     else {
-                        matchResult = 13;
+                        matchResult = 8;
                     }
                 }
-                else if (b.tag === 9) {
-                    if (b.fields[0] == null) {
-                        matchResult = 9;
+                break;
+            }
+            default: {
+                const activePatternResult_14 = $007CRecordFields$007C_$007C(a);
+                if (activePatternResult_14 != null) {
+                    const activePatternResult_15 = $007CRecordFields$007C_$007C(b);
+                    if (activePatternResult_15 != null) {
+                        matchResult = 7;
+                        xf = activePatternResult_14;
+                        yf = activePatternResult_15;
                     }
                     else {
-                        matchResult = 13;
+                        matchResult = 8;
                     }
                 }
                 else {
-                    matchResult = 13;
-                }
-                break;
-            }
-            case 10: {
-                if (b.tag === 10) {
-                    matchResult = 11;
-                    cx = a.fields[1];
-                    cy = b.fields[1];
-                    px = a.fields[2];
-                    py = b.fields[2];
-                    tx = a.fields[0];
-                    ty = b.fields[0];
-                }
-                else {
-                    matchResult = 13;
-                }
-                break;
-            }
-            case 12: {
-                if (b.tag === 12) {
-                    matchResult = 12;
-                    tx_1 = a.fields[0];
-                    ty_1 = b.fields[0];
-                }
-                else {
-                    matchResult = 13;
+                    matchResult = 8;
                 }
-                break;
             }
-            default:
-                matchResult = 13;
         }
         switch (matchResult) {
             case 0:
@@ -483,62 +520,137 @@ function valueEquals(a_mut, b_mut) {
                 else {
                     return false;
                 }
-            case 8:
-                if ((FSharpMap__get_Count(xf_1) === FSharpMap__get_Count(yf_1)) && ofSeq(FSharpMap__get_Keys(xf_1), {
-                    Compare: (x_6, y_6) => (compare(x_6, y_6) | 0),
-                }).Equals(ofSeq(FSharpMap__get_Keys(yf_1), {
-                    Compare: (x_7, y_7) => (compare(x_7, y_7) | 0),
-                }))) {
-                    return forAll((k_1, xv_1) => valueEquals(xv_1, FSharpMap__get_Item(yf_1, k_1)), xf_1);
-                }
-                else {
-                    return false;
-                }
-            case 9:
-                return true;
-            case 10: {
-                a_mut = x_8;
-                b_mut = y_8;
-                continue valueEquals;
-            }
-            case 11:
-                if ((tx === ty) && (cx === cy)) {
-                    let matchResult_1, xv_2, yv;
-                    if (px != null) {
-                        if (py != null) {
-                            matchResult_1 = 1;
-                            xv_2 = px;
-                            yv = py;
+            default: {
+                let matchResult_1, xf_1, yf_1, x_8, y_8, cx, cy, px, py, tx, ty, tx_1, ty_1;
+                switch (a.tag) {
+                    case 8: {
+                        if (b.tag === 8) {
+                            matchResult_1 = 0;
+                            xf_1 = a.fields[0];
+                            yf_1 = b.fields[0];
                         }
                         else {
-                            matchResult_1 = 2;
+                            matchResult_1 = 5;
                         }
+                        break;
                     }
-                    else if (py == null) {
-                        matchResult_1 = 0;
+                    case 9: {
+                        if (a.fields[0] != null) {
+                            if (b.tag === 9) {
+                                if (b.fields[0] != null) {
+                                    matchResult_1 = 2;
+                                    x_8 = a.fields[0];
+                                    y_8 = b.fields[0];
+                                }
+                                else {
+                                    matchResult_1 = 5;
+                                }
+                            }
+                            else {
+                                matchResult_1 = 5;
+                            }
+                        }
+                        else if (b.tag === 9) {
+                            if (b.fields[0] == null) {
+                                matchResult_1 = 1;
+                            }
+                            else {
+                                matchResult_1 = 5;
+                            }
+                        }
+                        else {
+                            matchResult_1 = 5;
+                        }
+                        break;
                     }
-                    else {
-                        matchResult_1 = 2;
+                    case 10: {
+                        if (b.tag === 10) {
+                            matchResult_1 = 3;
+                            cx = a.fields[1];
+                            cy = b.fields[1];
+                            px = a.fields[2];
+                            py = b.fields[2];
+                            tx = a.fields[0];
+                            ty = b.fields[0];
+                        }
+                        else {
+                            matchResult_1 = 5;
+                        }
+                        break;
                     }
-                    switch (matchResult_1) {
-                        case 0:
-                            return true;
-                        case 1: {
-                            a_mut = xv_2;
-                            b_mut = yv;
-                            continue valueEquals;
+                    case 12: {
+                        if (b.tag === 12) {
+                            matchResult_1 = 4;
+                            tx_1 = a.fields[0];
+                            ty_1 = b.fields[0];
                         }
-                        default:
-                            return false;
+                        else {
+                            matchResult_1 = 5;
+                        }
+                        break;
                     }
+                    default:
+                        matchResult_1 = 5;
                 }
-                else {
-                    return false;
+                switch (matchResult_1) {
+                    case 0:
+                        if ((FSharpMap__get_Count(xf_1) === FSharpMap__get_Count(yf_1)) && ofSeq(FSharpMap__get_Keys(xf_1), {
+                            Compare: (x_6, y_6) => (compare(x_6, y_6) | 0),
+                        }).Equals(ofSeq(FSharpMap__get_Keys(yf_1), {
+                            Compare: (x_7, y_7) => (compare(x_7, y_7) | 0),
+                        }))) {
+                            return forAll((k_1, xv_1) => valueEquals(xv_1, FSharpMap__get_Item(yf_1, k_1)), xf_1);
+                        }
+                        else {
+                            return false;
+                        }
+                    case 1:
+                        return true;
+                    case 2: {
+                        a_mut = x_8;
+                        b_mut = y_8;
+                        continue valueEquals;
+                    }
+                    case 3:
+                        if ((tx === ty) && (cx === cy)) {
+                            let matchResult_2, xv_2, yv;
+                            if (px != null) {
+                                if (py != null) {
+                                    matchResult_2 = 1;
+                                    xv_2 = px;
+                                    yv = py;
+                                }
+                                else {
+                                    matchResult_2 = 2;
+                                }
+                            }
+                            else if (py == null) {
+                                matchResult_2 = 0;
+                            }
+                            else {
+                                matchResult_2 = 2;
+                            }
+                            switch (matchResult_2) {
+                                case 0:
+                                    return true;
+                                case 1: {
+                                    a_mut = xv_2;
+                                    b_mut = yv;
+                                    continue valueEquals;
+                                }
+                                default:
+                                    return false;
+                            }
+                        }
+                        else {
+                            return false;
+                        }
+                    case 4:
+                        return equals_1(tx_1, ty_1);
+                    default:
+                        return false;
                 }
-            case 12:
-                return equals_1(tx_1, ty_1);
-            default:
-                return false;
+            }
         }
         break;
     }