WIP

Author: Serhii Khoma

generate-v2.js

@@ -0,0 +1,102 @@
+// import fg from 'fast-glob';
+// import { pascalCase } from 'change-case';
+// import { promises as fs } from 'fs';
+// import path from 'path';
+
+var { default: fg } = await import("fast-glob");
+var { pascalCase } = await import("change-case");
+var { promises: fs } = await import("fs");
+var { default: path } = await import("path");
+
+var inputDir = '/home/srghma/projects/faker/src/locales';
+var outputDir = '/home/srghma/projects/purescript-fakerjs/src/Fakerjs2/Locales';
+
+// Find all .ts files except index.ts and metadata.ts
+var entries = await fg('**/*.ts', {
+  cwd: inputDir,
+  ignore: ['**/index.ts', '**/metadata.ts'],
+});
+
+// Step 1: Build a naive tree (pure objects with `true`)
+const tree = {};
+for (const filepath of entries) {
+  const parts = filepath.split(path.sep);
+  const filename = path.basename(parts.pop(), '.ts');
+  const pathParts = parts;
+  setDeep(tree, [...pathParts, filename], true);
+}
+
+function setDeep(obj, parts, value) {
+  const last = parts.pop();
+  let curr = obj;
+  for (const part of parts) {
+    curr[part] = curr[part] || {};
+    curr = curr[part];
+  }
+  curr[last] = value;
+}
+
+// Step 2: Postprocess tree into "smart" format (arrays for leaves)
+function postprocess(node) {
+  if (typeof node !== 'object' || node === null) {
+    return node;
+  }
+
+  const entries = Object.entries(node);
+  const onlyFiles = entries.every(([, value]) => value === true);
+
+  if (onlyFiles) {
+    return entries.map(([name]) => name); // convert into array
+  }
+
+  const result = {};
+  for (const [key, value] of entries) {
+    result[key] = postprocess(value);
+  }
+  return result;
+}
+
+const smartTree = postprocess(tree);
+
+// Done! Now smartTree looks like you want:
+// folders -> { folders or arrays of files }
+
+console.dir(smartTree, { depth: null });
+
+await walkAndGenerate(tree, []);
+
+await Promise.all(
+  Object.entries(filesByDir).map(async ([dir, files]) => {
+    var moduleName = dir.split(path.sep).map(pascalCase).join('.');
+    var targetDir = path.join(outputDir, dir);
+    var baseName = pascalCase(path.basename(dir));
+
+    var pursFilePath = path.join(outputDir, `${dir}.purs`);
+    var jsFilePath = path.join(outputDir, `${dir}.js`);
+
+    // Prepare contents
+    var pursLines = [
+      `module Fakerjs2.Locales.${moduleName} where`,
+      '',
+      '-- This file was generated by a script',
+      'import Prelude',
+      'import Fakerjs2.Types',
+      '',
+      ...files.map(file => `foreign import ${file} :: ${pascalCase(file.replace(/_/g, ' ')).replace(/\s+/g, '')}`),
+    ];
+
+    var jsLines = files.map(file =>
+      `export { default as ${file} } from '...'`
+    );
+
+    // Ensure directory exists
+    await fs.mkdir(path.dirname(pursFilePath), { recursive: true });
+    await fs.mkdir(path.dirname(jsFilePath), { recursive: true });
+
+    // Write files
+    await Promise.all([
+      fs.writeFile(pursFilePath, pursLines.join('\n') + '\n'),
+      fs.writeFile(jsFilePath, jsLines.join('\n') + '\n'),
+    ]);
+  })
+);

package.json

@@ -6,6 +6,8 @@
   "author": "Serhii Khoma <[email protected]>",
   "license": "MIT",
   "dependencies": {
-    "@faker-js/faker": "^9.7.0"
+    "@faker-js/faker": "^9.7.0",
+    "change-case": "^5.4.4",
+    "fast-glob": "^3.3.3"
   }
 }

spago.yaml

@@ -15,6 +15,9 @@ package:
     - nullable: ">=6.0.0 <7.0.0"
     - prelude: ">=6.0.2 <7.0.0"
     - unsafe-coerce: ">=6.0.0 <7.0.0"
+    - node-glob
+    - node-path
+    - node-fs
     # - undefinable
   test:
     main: Test.Main
@@ -25,7 +28,9 @@ workspace:
   packageSet:
     registry: 64.4.0
   extraPackages:
-    {}
+    node-fs:
+      git: https://github.com/srghma/purescript-node-fs
+      ref: master
     # undefinable:
     #   git: https://github.com/srghma/purescript-undefinable/
     #   ref: master

src/Fakerjs2Generate.purs

@@ -0,0 +1,63 @@
+module Fakerjs2Generate where
+
+import Prelude
+
+import Control.Monad.Aff (Aff)
+import Data.Array (catMaybes, filter, head, mapMaybe, snoc)
+import Data.Either (Either(..))
+import Data.Maybe (Maybe(..))
+import Effect (Effect)
+import Effect.Class (liftEffect)
+import Effect.Console (logShow)
+import Node.FS.Aff as FS
+import Node.Glob (glob)
+import Node.Path as Path
+import Node.Path as NP
+import Data.String (Pattern(..), split)
+
+type Tree = TreeNode (Array (Either String Tree))
+
+inputDir :: String
+inputDir = "/home/srghma/projects/faker/src/locales"
+
+outputDir :: String
+outputDir = "/home/srghma/projects/purescript-fakerjs/src/Fakerjs2/Locales"
+
+-- Build a tree where leaves are arrays of filenames
+buildTree :: Array String -> Tree
+buildTree files =
+  let
+    go :: Array (Array String) -> Tree
+    go paths =
+      let
+        grouped = groupByHead paths
+      in
+        TreeNode
+          ( map
+              ( \(Tuple headPart subPaths) ->
+                  case map tail subPaths of
+                    [ [] ] -> Left headPart
+                    more -> Right (go more)
+              )
+              grouped
+          )
+
+    -- Group list of path parts by their head
+    groupByHead :: Array (Array String) -> Array (Tuple String (Array (Array String)))
+    groupByHead paths =
+      let
+        heads = mapMaybe head paths
+        uniqueHeads = nub heads
+      in
+        map (\h -> Tuple h (filter (\arr -> head arr == Just h) paths)) uniqueHeads
+
+  in
+    go (map (split (Pattern Path.sep)) files)
+
+main :: Effect Unit
+main = do
+  files <- glob "**/*.ts" { cwd: inputDir }
+  let filteredFiles = filter (\file -> not (file == "index.ts" || file == "metadata.ts")) files
+  liftEffect $ logShow filteredFiles
+  let tree = buildTree filteredFiles
+  logShow tree