Modul:Str

-- Unit Tests unter ]

  local Str = {} 

    function Str.len(frame)
      return mw.ustring.len(frame.args)
    end

    function Str.left(frame)
      local idx = tonumber(frame.args)
      if (not idx) or idx < 1 then
        return ""
      end
      return mw.ustring.sub(frame.args,1,idx)
    end

    function Str.right(frame)
      local laenge = tonumber(frame.args)
      if (not laenge) or laenge < 1 then
        return ""
      else
      laenge = - laenge
      end
      return mw.ustring.sub(frame.args,laenge,-1)
    end

    function Str.index(frame)
      local idx = tonumber(frame.args)
      if (not idx) or idx < 1 then
        return ""
      end
      return mw.ustring.sub(frame.args,idx,idx)
    end
    
    function Str.reverse(frame)
      local s = ""
      for i = mw.ustring.len( frame.args ), 1, -1 do
        s = s .. mw.ustring.char(mw.ustring.codepoint(frame.args,i))
      end
      return s
    end


-- Fügt vor jedem Buchstaben des als Parameter übergebenen Strings
-- ein Leerzeichen ein. Zweck: Diagnose
-- Die magischen Wörter PAGENAME, PAGENAMEE, #titleparts:{{PAGENAME}}
-- bilden einige Zeichen unterschiedlich kodiert ab. Beispiel: Bei PAGENAME
-- ein & wird zu &#38;
-- ein ' wird zu &#39;
-- ein " wird zu &#34;
-- siehe: https://www.mediawiki.orghttps://dictious.com/de/Manual:PAGENAMEE_encoding

    function Str.showChars(frame)
      local s = ""
      for i = 1, mw.ustring.len( frame.args ), 1 do
        s = s .. " " .. mw.ustring.char(mw.ustring.codepoint(frame.args,i))
      end
      return s
    end


    function Str.sub(frame)
      local von = tonumber(frame.args)
      local laenge = tonumber(frame.args)
      if (not von) or (not laenge) then
        return ""
      end
      if (von < 1) then
        von = 1
      end      
      local bis = von + laenge - 1
      if (bis < von) then
        return ""
      end
      return mw.ustring.sub(frame.args,von,bis)
    end

    function Str.subrev(frame)
      local zlang = mw.ustring.len(frame.args)
      if (not zlang) then
        return ""
      end
      local von = tonumber(frame.args)
      if (not von) or von < 1 then
        von = 1
      end
      if von > zlang then
        return ""
      else
        von = zlang - von + 1
      end
      local laenge = tonumber(frame.args)
      if (not laenge) or laenge < 1 then
        laenge = 1
      end
      local bis = von + laenge - 1
      if (bis > zlang) then
        return ""
      end
      return mw.ustring.sub(frame.args,von,bis)
    end

    function Str.crop(frame)
      local s = frame.args
      local cut = tonumber(frame.args)
      local laenge =  mw.ustring.len(s)
      if (not cut) or (cut < 1) then
        return s
      end
      return mw.ustring.sub(s,1,laenge - cut)
    end

    function Str.cropleft(frame)
      local s = frame.args
      local cut = tonumber(frame.args)
      local laenge =  mw.ustring.len(s)
      if (not cut) or (cut < 1) then
        return s
      end
      return mw.ustring.sub(s,cut+1,-1)
    end

    function Str.find(frame)
      if not frame.args or frame.args == "" then
        return 1
      end
      local  idx = mw.ustring.find(frame.args, frame.args,1, true)
      if idx then
          return idx
      else
          return -1
      end
    end
-- Dezimalzahl als Hexadezimalzahl ausgeben
	function Str.dez2hex(frame)
		local s = frame.args
		if (mw.ustring.find(s, "%D")) then
			return "NaN"
		else
			return mw.ustring.format("%X", s)
		end
	end
-- Hexadezimalzahl als Dezimalzahl ausgeben
    function Str.hex2dez(frame)
      a = tonumber(frame.args,16)
      if a then
        return a
      else
        return 0
      end
    end
    
    function Str.match(frame)
        local text = frame.args or ""
        local pattern = frame.args or ""
        local index = tonumber(frame.args) or 0
        if (text == "" or pattern == "") then return "" end
 
        -- return all captures (denoted by brackets in the pattern) if index is zero, otherwise return only the index-th capture
        if index <= 0 then
            return mw.ustring.match(text, pattern)
        else
            return ({mw.ustring.match(text, pattern)})
        end
    end

    function Str.split(frame)
      local str = frame.args
      local sep = frame.args or '%s'
      if mw.ustring.len( sep ) < 1 then
        sep = '%s'
      end
      local idx = frame.args
      local t = {}

      for k,s in string.gmatch(str, "(*)("..sep.."?)") do
        table.insert(t,k)
      end

      return t
    end

-- Text in Klammern ermitteln
	function Str.Klammertext(frame)
		local ts = frame.args
		local suchstr = "("
		local suchstr2 = ")"
		local retp = "" -- returnstring
		local klpos = 0
		local klend = 0
		if (ts) then
			klpos = mw.ustring.find(ts, suchstr, 1, true)
			if (klpos) then
				klend = mw.ustring.find(ts, suchstr2, klpos, true)
				if (klend) then
					if (klend > klpos + 1) then
						retp = mw.ustring.sub(ts, klpos + 1, klend - 1)
					end
				end
			end
		end
		return retp
	end

 return Str