module Redis::Commands::Strings

def append(key, value)
  send_command([:append, key, value])
end

def decr(key)
  send_command([:decr, key])
end

def decrby(key, decrement)
  send_command([:decrby, key, decrement])
end

def get(key)
  send_command([:get, key])
end

def getdel(key)
  send_command([:getdel, key])
end

def getex(key, ex: nil, px: nil, exat: nil, pxat: nil, persist: false)
  args = [:getex, key]
  args << "EX" << ex if ex
  args << "PX" << px if px
  args << "EXAT" << exat if exat
  args << "PXAT" << pxat if pxat
  args << "PERSIST" if persist
  send_command(args)
end

def getrange(key, start, stop)
  send_command([:getrange, key, start, stop])
end

def getset(key, value)
  send_command([:getset, key, value.to_s])
end

def incr(key)
  send_command([:incr, key])
end

def incrby(key, increment)
  send_command([:incrby, key, increment])
end

def incrbyfloat(key, increment)
  send_command([:incrbyfloat, key, increment], &Floatify)
end

def mapped_mget(*keys)
  mget(*keys) do |reply|
    if reply.is_a?(Array)
      Hash[keys.zip(reply)]
    else
      reply
    end
  end
end

def mapped_mset(hash)
  mset(hash.to_a.flatten)
end

def mapped_msetnx(hash)
  msetnx(hash.to_a.flatten)
end

def mget(*keys, &blk)
  send_command([:mget, *keys], &blk)
end

def mset(*args)
  send_command([:mset] + args)
end

def msetnx(*args)
  send_command([:msetnx, *args], &Boolify)
end

def psetex(key, ttl, value)
  send_command([:psetex, key, ttl, value.to_s])
end

def set(key, value, ex: nil, px: nil, exat: nil, pxat: nil, nx: nil, xx: nil, keepttl: nil, get: nil)
  args = [:set, key, value.to_s]
  args << "EX" << ex if ex
  args << "PX" << px if px
  args << "EXAT" << exat if exat
  args << "PXAT" << pxat if pxat
  args << "NX" if nx
  args << "XX" if xx
  args << "KEEPTTL" if keepttl
  args << "GET" if get
  if nx || xx
    send_command(args, &BoolifySet)
  else
    send_command(args)
  end
end

def setex(key, ttl, value)
  send_command([:setex, key, ttl, value.to_s])
end

def setnx(key, value)
  send_command([:setnx, key, value.to_s], &Boolify)
end

def setrange(key, offset, value)
  send_command([:setrange, key, offset, value.to_s])
end

def strlen(key)
  send_command([:strlen, key])
end