Merge pull request rstudio#20 from rstudio/string-replace

Add safe string replace function

lua/src/lib/library.lua

@@ -1,9 +1,6 @@
 local M = { }
 local escape_pattern
-do
- local _obj_0 = require("lapis.util")
- escape_pattern = _obj_0.escape_pattern
-end
+escape_pattern = require("lapis.util").escape_pattern
 M.log = function(msg)
  return ngx.log(ngx.NOTICE, inspect(msg))
 end
@@ -20,6 +17,11 @@ M.split = function(str, delim)
  end
  return _accum_0
 end
+M.replace = function(str, what, sub)
+ what = string.gsub(what, "[%(%)%.%+%-%*%?%[%]%^%$%%]", "%%%1")
+ sub = string.gsub(sub, "[%%]", "%%%%")
+ return string.gsub(str, what, sub)
+end
 M.set = function(list)
  local set = { }
  for _, l in ipairs(list) do

src/lib/library.moon

@@ -12,6 +12,11 @@ M.split = (str, delim using nil) ->
  str ..= delim
  [part for part in str\gmatch "(.-)" .. escape_pattern delim]
 
+M.replace = (str, what, sub) ->
+ what = string.gsub(what, "[%(%)%.%+%-%*%?%[%]%^%$%%]", "%%%1") -- escape pattern
+ sub = string.gsub(sub, "[%%]", "%%%%") -- escape replacement
+ return string.gsub(str, what, sub)
+
 M.set = (list) ->
  set = {}
  for _, l in ipairs(list) do