@fable-org/fable-library-ts 2.0.0-rc.3 → 2.0.0-rc.5

package/CHANGELOG.md

@@ -7,6 +7,19 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## Unreleased
 
+## 2.0.0-rc.5 - 2026-03-31
+
+### Fixed
+
+* [JS/TS] Improve `Regex.Escape` and `Regex.Unescape` handling (by @MangelMaxime)
+* [JS/TS] Fixed quotation for union string cases (by @MangelMaxime)
+
+## 2.0.0-rc.4 - 2026-03-19
+
+### Fixed
+
+* [JS/TS] Fix `Unchecked.defaultof<char>` being emitted as `null` instead of `'\0'` (by @MangelMaxime)
+
 ## 2.0.0-rc.3 - 2026-03-10
 
 ### Fixed

package/Map.ts

@@ -881,6 +881,9 @@ export function MapTreeModule_ofSeq<Key, Value>(comparer: IComparer<Key>, c: Ite
     }
 }
 
+/**
+ * Imperative left-to-right iterators.
+ */
 export class MapTreeModule_MapIterator$2<Key, Value> extends Record {
     stack: FSharpList<Option<MapTreeLeaf$2<Key, Value>>>;
     started: boolean;

package/MutableMap.ts

@@ -3,7 +3,7 @@ import { IEqualityComparer, IDisposable, disposeSafe, defaultOf, IMap, MutableAr
 import { iterate, map, delay, toArray, iterateIndexed, concat } from "./Seq.ts";
 import { value as value_1, Option } from "./Option.ts";
 import { int32 } from "./Int32.ts";
-import { setItem } from "./Array.ts";
+import { item as item_1, setItem } from "./Array.ts";
 import { FSharpRef } from "./Types.ts";
 import { class_type, TypeInfo } from "./Reflection.ts";
 import { getItemFromDict, tryGetValue } from "./MapUtil.ts";
@@ -241,7 +241,7 @@ export function Dictionary__TryFind_2B595<Key, Value>(this$: Dictionary<Key, Val
     }
     switch (matchResult) {
         case 0:
-            return getItemFromDict(this$.hashMap, matchValue[1])[matchValue[2]];
+            return item_1(matchValue[2], getItemFromDict(this$.hashMap, matchValue[1]));
         default:
             return undefined;
     }
@@ -284,7 +284,7 @@ export function Dictionary__set_Item_5BDDA1<Key, Value>(this$: Dictionary<Key, V
     const matchValue: [boolean, int32, int32] = Dictionary__TryFindIndex_2B595<Key, Value>(this$, k);
     if (matchValue[0]) {
         if (matchValue[2] > -1) {
-            getItemFromDict(this$.hashMap, matchValue[1])[matchValue[2]] = ([k, v] as [Key, Value]);
+            setItem(getItemFromDict(this$.hashMap, matchValue[1]), matchValue[2], [k, v] as [Key, Value]);
         }
         else {
             const value: any = void (getItemFromDict(this$.hashMap, matchValue[1]).push([k, v] as [Key, Value]));

package/MutableSet.ts

@@ -1,7 +1,7 @@
 
 import { IMap, IEqualityComparer, IDisposable, disposeSafe, defaultOf, ISet, MutableArray, toIterator, IEnumerator, getEnumerator } from "./Util.ts";
 import { iterate, map, iterateIndexed, concat } from "./Seq.ts";
-import { setItem } from "./Array.ts";
+import { item as item_1, setItem } from "./Array.ts";
 import { int32 } from "./Int32.ts";
 import { some, Option } from "./Option.ts";
 import { FSharpRef } from "./Types.ts";
@@ -156,7 +156,7 @@ function HashSet__TryFind_2B595<T>(this$: HashSet<T>, k: T): Option<T> {
     }
     switch (matchResult) {
         case 0:
-            return some(getItemFromDict(this$.hashMap, matchValue[1])[matchValue[2]]);
+            return some(item_1(matchValue[2], getItemFromDict(this$.hashMap, matchValue[1])));
         default:
             return undefined;
     }

package/Reflection.ts

@@ -536,8 +536,7 @@ export function createInstance(t: TypeInfo, consArgs?: any[]): any {
       case decimal_type.fullname:
         return new Decimal(0);
       case char_type.fullname:
-        // Even though char is a value type, it's erased to string, and Unchecked.defaultof<char> is null
-        return null;
+        return "\0";
       default:
         throw new Exception(`Cannot access constructor of ${t.fullname}`);
     }

package/RegExp.ts

@@ -22,11 +22,20 @@ export function create(pattern: string, options = 0) {
 // From http://stackoverflow.com/questions/3446170/escape-string-for-use-in-javascript-regex
 
 export function escape(str: string) {
-  return str.replace(/[\-\[\]\/\{\}\(\)\*\+\?\.\\\^\$\|]/g, "\\$&");
+  // Matches the characters escaped by .NET's Regex.Escape.
+  // Note:
+  //
+  //  .NET also escapes space and # (relevant for IgnorePatternWhitespace mode),
+  //  but JS unicode-mode regex rejects \  and \# as invalid escapes, and we don't
+  //  support IgnorePatternWhitespace, so we omit them.
+  //
+  //  .NET does not escape ] and } but JS unicode-mode regex rejects bare ] and }
+  //  as invalid, so we escape them too for compatibility.
+  return str.replace(/[$()*+.?[\\\^{|}\]]/g, "\\$&");
 }
 
 export function unescape(str: string) {
-  return str.replace(/\\([\-\[\]\/\{\}\(\)\*\+\?\.\\\^\$\|])/g, "$1");
+  return str.replace(/\\([$()*+.?[\\\^{|}\]])/g, "$1");
 }
 
 export function isMatch(reg: RegExp, input: string, startAt = 0) {

package/Seq.ts

@@ -6,7 +6,7 @@ import { class_type, TypeInfo } from "./Reflection.ts";
 import { some, value as value_1, Option } from "./Option.ts";
 import { KeyNotFoundException_$ctor_Z721C83C5 } from "./System.Collections.Generic.ts";
 import { Operators_Lock, Operators_NullArgCheck } from "./FSharp.Core.ts";
-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.ts";
+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, item as item_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.ts";
 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.ts";
 import { int32 } from "./Int32.ts";
 import { SR_indexOutOfBounds } from "./Global.ts";
@@ -1054,7 +1054,7 @@ export function cache<T>(source: Iterable<T>): Iterable<T> {
         });
     }, unfold<int32, T>((i_1: int32): Option<[T, int32]> => Operators_Lock<T[], Option<[T, int32]>>(prefix, (): Option<[T, int32]> => {
         if (i_1 < prefix.length) {
-            return [prefix[i_1], i_1 + 1] as [T, int32];
+            return [item_1(i_1, prefix), i_1 + 1] as [T, int32];
         }
         else {
             if (i_1 >= prefix.length) {
@@ -1081,7 +1081,7 @@ export function cache<T>(source: Iterable<T>): Iterable<T> {
                 }
             }
             if (i_1 < prefix.length) {
-                return [prefix[i_1], i_1 + 1] as [T, int32];
+                return [item_1(i_1, prefix), i_1 + 1] as [T, int32];
             }
             else {
                 return undefined;

package/String.ts

@@ -344,7 +344,11 @@ export function format(str: string | object, ...args: any[]) {
           precision = precision == null ? 2 : precision;
           rep = toFixed(rep, precision);
           parts = splitIntAndDecimalPart(rep);
-          rep = "¤" + thousandSeparate(parts.integral) + "." + padRight(parts.decimal, precision, "0");
+          if (precision > 0) {
+            rep = "¤" + thousandSeparate(parts.integral) + "." + padRight(parts.decimal, precision, "0");
+          } else {
+            rep = "¤" + thousandSeparate(parts.integral);
+          }
           if (isNegative) {
             rep = "(" + rep + ")";
           }
@@ -382,13 +386,21 @@ export function format(str: string | object, ...args: any[]) {
           precision = precision != null ? precision : 2;
           rep = toFixed(rep, precision);
           parts = splitIntAndDecimalPart(rep);
-          rep = thousandSeparate(parts.integral) + "." + padRight(parts.decimal, precision, "0");
+          if (precision > 0) {
+            rep = thousandSeparate(parts.integral) + "." + padRight(parts.decimal, precision, "0");
+          } else {
+            rep = thousandSeparate(parts.integral);
+          }
           break;
         case "p": case "P":
           precision = precision != null ? precision : 2;
           rep = toFixed(multiply(rep, 100), precision)
           parts = splitIntAndDecimalPart(rep);
-          rep = thousandSeparate(parts.integral) + "." + padRight(parts.decimal, precision, "0") + " %";
+          if (precision > 0) {
+            rep = thousandSeparate(parts.integral) + "." + padRight(parts.decimal, precision, "0") + " %";
+          } else {
+            rep = thousandSeparate(parts.integral) + " %";
+          }
           break;
         case "r": case "R":
           throw new Exception("The round-trip format is not supported by Fable");

package/System.Text.ts

@@ -4,6 +4,7 @@ import { float64, int32 } from "./Int32.ts";
 import { class_type, TypeInfo } from "./Reflection.ts";
 import { toString } from "./Types.ts";
 import { Exception, clear, MutableArray, int32ToString } from "./Util.ts";
+import { setItem, item } from "./Array.ts";
 
 export class StringBuilder {
     readonly buf: string[];
@@ -149,8 +150,8 @@ export function StringBuilder__Clear(x: StringBuilder): StringBuilder {
 export function StringBuilder__get_Chars_Z524259A4(x: StringBuilder, index: int32): string {
     let len = 0;
     let i = 0;
-    while ((i < x.buf.length) && ((len + x.buf[i].length) <= index)) {
-        len = ((len + x.buf[i].length) | 0);
+    while ((i < x.buf.length) && ((len + item(i, x.buf).length) <= index)) {
+        len = ((len + item(i, x.buf).length) | 0);
         i = ((i + 1) | 0);
     }
     if ((index < 0) ? true : (i >= x.buf.length)) {
@@ -158,15 +159,15 @@ export function StringBuilder__get_Chars_Z524259A4(x: StringBuilder, index: int3
     }
     else {
         const pos: int32 = (index - len) | 0;
-        return x.buf[i][pos];
+        return item(i, x.buf)[pos];
     }
 }
 
 export function StringBuilder__set_Chars_413E0D0A(x: StringBuilder, index: int32, value: string): void {
     let len = 0;
     let i = 0;
-    while ((i < x.buf.length) && ((len + x.buf[i].length) <= index)) {
-        len = ((len + x.buf[i].length) | 0);
+    while ((i < x.buf.length) && ((len + item(i, x.buf).length) <= index)) {
+        len = ((len + item(i, x.buf).length) | 0);
         i = ((i + 1) | 0);
     }
     if ((index < 0) ? true : (i >= x.buf.length)) {
@@ -174,13 +175,13 @@ export function StringBuilder__set_Chars_413E0D0A(x: StringBuilder, index: int32
     }
     else {
         const pos: int32 = (index - len) | 0;
-        x.buf[i] = ((x.buf[i].slice(0, (pos - 1) + 1) + value) + x.buf[i].slice(pos + 1, x.buf[i].length));
+        setItem(x.buf, i, (item(i, x.buf).slice(0, (pos - 1) + 1) + value) + item(i, x.buf).slice(pos + 1, item(i, x.buf).length));
     }
 }
 
 export function StringBuilder__Replace_Z766F94C0(x: StringBuilder, oldValue: string, newValue: string): StringBuilder {
     for (let i: int32 = x.buf.length - 1; i >= 0; i--) {
-        x.buf[i] = replace(x.buf[i], oldValue, newValue);
+        setItem(x.buf, i, replace(item(i, x.buf), oldValue, newValue));
     }
     return x;
 }
@@ -193,7 +194,7 @@ export function StringBuilder__Replace_Z384F8060(x: StringBuilder, oldValue: str
 export function StringBuilder__get_Length(x: StringBuilder): int32 {
     let len = 0;
     for (let i: int32 = x.buf.length - 1; i >= 0; i--) {
-        len = ((len + x.buf[i].length) | 0);
+        len = ((len + item(i, x.buf).length) | 0);
     }
     return len | 0;
 }

package/Types.ts

@@ -39,16 +39,23 @@ export function toString(x: any, callStack = 0): string {
 }
 
 export function unionToString(name: string, fields: any[]) {
+  function unionFieldToString(x: any): string {
+    if (typeof x === "string") {
+      return '"' + x + '"';
+    }
+    return toString(x);
+  }
+
   if (fields.length === 0) {
     return name;
   } else {
     let fieldStr;
     let withParens = true;
     if (fields.length === 1) {
-      fieldStr = toString(fields[0]);
+      fieldStr = unionFieldToString(fields[0]);
       withParens = fieldStr.indexOf(" ") >= 0;
     } else {
-      fieldStr = fields.map((x: any) => toString(x)).join(", ");
+      fieldStr = fields.map((x: any) => unionFieldToString(x)).join(", ");
     }
     return name + (withParens ? " (" : " ") + fieldStr + (withParens ? ")" : "");
   }

package/package.json

@@ -3,7 +3,7 @@
     "private": false,
     "type": "module",
     "name": "@fable-org/fable-library-ts",
-    "version": "2.0.0-rc.3",
+    "version": "2.0.0-rc.5",
     "description": "Core library used by F# projects compiled with fable.io",
     "author": "Fable Contributors",
     "license": "MIT",