feat(strings): add hstr() (hollerith)

NoFishLikeIan · Apr 13, 2019 · 619e9ef · 619e9ef
1 parent 64623b1
commit 619e9ef
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/packages/strings/src/hollerith.ts b/packages/strings/src/hollerith.ts
@@ -0,0 +1,18 @@
+import { Stringer } from "./api";
+
+/**
+ * Formats given value `x` as Fortran style Hollerith string.
+ *
+ * ```
+ * hstr("abc")  // "3Habc"
+ * hstr(123.45) // "6H123.45"
+ * hstr("")     // "0H"
+ * hstr(null)   // ""
+ * ```
+ *
+ * https://en.wikipedia.org/wiki/Hollerith_constant
+ *
+ * @param x
+ */
+export const hstr: Stringer<any> = (x) =>
+    x != null ? ((x = x.toString()), `${x.length}H${x}`) : "";
diff --git a/packages/strings/src/index.ts b/packages/strings/src/index.ts
@@ -3,6 +3,7 @@ export * from "./case";
 export * from "./center";
 export * from "./float";
 export * from "./format";
+export * from "./hollerith";
 export * from "./pad-left";
 export * from "./pad-right";
 export * from "./parse";