expose print_deps in moc.js (#4231)

so that we can collect usage about base library in playground.

.github/workflows/test.yml

@@ -27,23 +27,23 @@ jobs:
         name: ic-hs-test
         authToken: '${{ secrets.CACHIX_AUTH_TOKEN }}'
 
-      # Free up disk space on Ubuntu
-    - name: Free Disk Space (Ubuntu)
-      uses: insightsengineering/disk-space-reclaimer@v1
-      if: startsWith(matrix.os, 'ubuntu-')
-      with:
-        # this might remove tools that are actually needed,
-        # if set to "true" but frees about 6 GB
-        tool-cache: false
+    #   # Free up disk space on Ubuntu
+    # - name: Free Disk Space (Ubuntu)
+    #   uses: insightsengineering/disk-space-reclaimer@v1
+    #   if: startsWith(matrix.os, 'ubuntu-')
+    #   with:
+    #     # this might remove tools that are actually needed,
+    #     # if set to "true" but frees about 6 GB
+    #     tool-cache: false
 
-        # all of these default to true, but feel free to set to
-        # "false" if necessary for your workflow
-        android: true
-        dotnet: true
-        haskell: true
-        large-packages: true
-        docker-images: true
-        swap-storage: true
+    #     # all of these default to true, but feel free to set to
+    #     # "false" if necessary for your workflow
+    #     android: true
+    #     dotnet: true
+    #     haskell: true
+    #     large-packages: true
+    #     docker-images: true
+    #     swap-storage: true
 
     # until https://github.com/cachix/cachix-action/issues/86 is fixed:
     - run: cachix watch-store ic-hs-test &

src/js/common.ml

@@ -200,6 +200,12 @@ let wrap_output f =
     val result = result
   end
 
+let print_deps file =
+  let _ = Pipeline.print_deps file in
+  let stdout_result = Buffer.contents stdout_buffer in
+  Buffer.clear stdout_buffer;
+  Js.bytestring stdout_result
+
 let add_package package dir =
   let libs = Flags.package_urls in
   libs := Flags.M.add (Js.to_string package) (Js.to_string dir) !libs

src/js/moc_js.ml

@@ -35,4 +35,5 @@ let () =
       method parseCandid s = js_parse_candid s
       method parseMotoko s = js_parse_motoko s
       method parseMotokoTyped paths = js_parse_motoko_typed paths
+      method printDeps file = print_deps file
      end);