james woodyatt avatar james woodyatt committed 66fa83d

Added the phr and phrz functions to Cf_llscan.

Comments (0)

Files changed (2)

         | None -> altz tl s
         | Some _ as r -> r
 
+let phr =
+    let ( >>= ) = bind in
+    let rec loop f a ps =
+        match ps with
+        | [] ->
+            ret a
+        | hd :: tl ->
+            hd >>= fun r ->
+            loop f (f a r) tl
+    in
+    loop
+
+let phrz =
+    let ( >>= ) = bind in
+    let rec loop f a pz =
+        match Lazy.force pz with
+        | Cf_seq.Z ->
+            ret a
+        | Cf_seq.P (hd, tl) ->
+            hd >>= fun r ->
+            loop f (f a r) tl
+    in
+    loop
+
 exception Error
 
 let err =
 *)
 val altz: ('s, 'r) t Cf_seq.t -> ('s, 'r) t
 
+(** Use [phr f a ps] to compose the list of scanners [ps] into a phrase scanner
+    that recognizes each pattern in sequence and folds the application of [f]
+    to an accumulated state initialized by [a] to return the result.
+*)
+val phr: ('a -> 'r -> 'a) -> 'a -> ('s, 'r) t list -> ('s, 'a) t
+
+(** Use [phrz f a ps] to compose the lazy sequence of scanners [ps] into a
+    phrase scanner that recognizes each pattern in sequence and folds the
+    application of [f] to an accumulated state initialized by [a] to return the
+    result.
+*)
+val phrz: ('a -> 'r -> 'a) -> 'a -> ('s, 'r) t Cf_seq.t -> ('s, 'a) t
+
 (** Generic parser error with no parameters. *)
 exception Error
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.