stategraph/code/src/lua_pattern_sed/lua_pattern_sed.ml at main · stategraph/stategraph · GitHub

19 lines (16 loc) · 501 Bytes

let print line = function

| Some sline -> print_endline sline

| None -> print_endline line

let rl () = try Some (read_line ()) with End_of_file -> None

let rec exec_subst pat rep =

match rl () with

| Some line ->

print line (Lua_pattern.substitute ~s:line ~r:rep pat);

exec_subst pat rep

| None -> ()

let () =

let pat = Lua_pattern.of_string Sys.argv.(1) in

let rep = Lua_pattern.rep_str Sys.argv.(2) in

match pat with

| Some pat -> exec_subst pat rep

| _ -> exit 1

Expand file tree