liquidsoap-prettier 1.4.7 → 1.4.9

package/package.json

@@ -1,17 +1,12 @@
 {
   "name": "liquidsoap-prettier",
-  "version": "1.4.7",
+  "version": "1.4.9",
   "description": "Liquidsoap language prettier CLI and plugin",
   "type": "module",
   "main": "src/index.js",
   "bin": {
     "liquidsoap-prettier": "src/cli.js"
   },
-  "scripts": {
-    "build:web": "webpack --config webpack.web.cjs",
-    "release": "dune build && npm run build:web && npm publish",
-    "liquidsoap-prettier": "node ./src/cli.js"
-  },
   "prettier": {
     "plugins": [
       "./src/index.js"
@@ -28,5 +23,10 @@
   "devDependencies": {
     "webpack": "^5.89.0",
     "webpack-cli": "^5.1.4"
+  },
+  "scripts": {
+    "build:web": "webpack --config webpack.web.cjs",
+    "release": "dune build && npm run build:web && npm publish",
+    "liquidsoap-prettier": "node ./src/cli.js"
   }
-}
+}

package/src/dune

@@ -2,7 +2,7 @@
  (name liquidsoap_js)
  (optional)
  (modes js)
- (modules regexp_js liquidsoap_js)
+ (modules liquidsoap_js)
  (preprocess
   (pps js_of_ocaml-ppx))
  (js_of_ocaml

package/src/index.js

@@ -666,10 +666,10 @@ const print = (path, options, print) => {
         return [print("left"), "-", print("right")];
       case "time":
         return [
-          ...(node.week ? ["" + node.week, "w"] : []),
-          ...(node.hours ? ["" + node.hours, "h"] : []),
-          ...(node.minutes ? ["" + node.minutes, "m"] : []),
-          ...(node.second ? ["" + node.seconds, "s"] : []),
+          ...(typeof node.week === "number" ? ["" + node.week, "w"] : []),
+          ...(typeof node.hours === "number" ? ["" + node.hours, "h"] : []),
+          ...(typeof node.minutes === "number" ? ["" + node.minutes, "m"] : []),
+          ...(typeof node.second === "number" ? ["" + node.seconds, "s"] : []),
         ];
       case "encoder":
         return [

package/src/liquidsoap_js.ml

@@ -1,7 +1,4 @@
 open Js_of_ocaml
-open Liquidsoap_lang
-
-let () = Hooks.regexp := Regexp_js.make
 
 let parse content =
   let content = Js.to_string content in

package/src/regexp_js.ml

@@ -1,57 +0,0 @@
-open Js_of_ocaml
-
-type sub = Liquidsoap_lang.Regexp.sub = {
-  matches : string option list;
-  groups : (string * string) list;
-}
-
-class type match_result =
-  object
-    inherit Js.match_result
-    method groups : Js.Unsafe.any Js.optdef Js.readonly_prop
-  end
-
-let string_of_flag = function `i -> "i" | `g -> "g" | `s -> "s" | `m -> "m"
-
-let flags_of_flags flags =
-  Js.string (String.concat "" (List.map string_of_flag flags))
-
-let make ?(flags = []) s =
-  let rex = new%js Js.regExp_withFlags (Js.string s) (flags_of_flags flags) in
-  object
-    method split s =
-      let split = (Js.string s)##split_regExp rex in
-      let split = Js.str_array split in
-      Array.to_list (Array.map Js.to_string (Js.to_array split))
-
-    method exec s =
-      let s = Js.string s in
-      let ret =
-        Js.Opt.case (rex##exec s) (fun () -> raise Not_found) (fun x -> x)
-      in
-      let sub : match_result Js.t = Js.Unsafe.coerce (Js.match_result ret) in
-      let matches =
-        List.init sub##.length (fun pos ->
-            Option.map Js.to_string (Js.Optdef.to_option (Js.array_get sub pos)))
-      in
-      let groups =
-        Js.Optdef.case sub##.groups
-          (fun () -> [])
-          (fun groups ->
-            let names = Js.to_array (Js.object_keys groups) in
-            Array.fold_left
-              (fun cur key ->
-                Js.Optdef.case (Js.Unsafe.get groups key)
-                  (fun () -> cur)
-                  (fun value -> (Js.to_string key, Js.to_string value) :: cur))
-              [] names)
-      in
-      { matches; groups }
-
-    method test s = Js.to_bool (rex##test (Js.string s))
-
-    method substitute ~subst s =
-      let subst a = Js.string (subst (Js.to_string a)) in
-      let subst = Js.wrap_callback subst in
-      Js.to_string ((Js.Unsafe.coerce (Js.string s))##replace rex subst)
-  end

package/src/regexp_js.mli

@@ -1,4 +0,0 @@
-val make :
-  ?flags:Liquidsoap_lang.Regexp.flag list ->
-  string ->
-  Liquidsoap_lang.Regexp.regexp