// File: /workspace/github_c_makefile_star2_O1/CBaquero[P]random/Random.cc
// Function: RandomLExp_RedisCommand(RedisModuleCtx*, RedisModuleString**, int)
int RandomLExp_RedisCommand(RedisModuleCtx *ctx, RedisModuleString **argv, int argc) {
  double lambda;
  if (argc < 3 || argc > 4) return RedisModule_WrongArity(ctx);
  if (argc == 4)
  {
    if (RedisModule_StringToDouble(argv[3],&lambda) != REDISMODULE_OK)
      return RedisModule_ReplyWithError(ctx,"ERR invalid lambda");
  }
  else // If no parameter, use default lambda of 1
    lambda=1.0;

  /* Open key */
  RedisModuleKey *key = (RedisModuleKey *) RedisModule_OpenKey(ctx, argv[1], REDISMODULE_READ | REDISMODULE_WRITE);
 /* Key must be empty or list */
  if ((RedisModule_KeyType(key) != REDISMODULE_KEYTYPE_LIST &&
       RedisModule_KeyType(key) != REDISMODULE_KEYTYPE_EMPTY)) 
  {
     RedisModule_CloseKey(key);
     return RedisModule_ReplyWithError(ctx,REDISMODULE_ERRORMSG_WRONGTYPE);
  }

  /* Get count */
  long long count;
  if ((RedisModule_StringToLongLong(argv[2],&count) != REDISMODULE_OK) ||
        (count < 0)) 
  {
     RedisModule_CloseKey(key);
     return RedisModule_ReplyWithError(ctx,"ERR invalid count");
  }

  /* Push count randoms */
  std::exponential_distribution<double> rexp(lambda);
  while (count-- > 0)
  {
    RedisModuleString *ele;
    /* Make string with the same 19 digita precision of ReplyWithDouble */
    ele=RedisModule_CreateStringPrintf(ctx,"%.19f",rexp(gen));
    RedisModule_ListPush(key,REDISMODULE_LIST_HEAD,ele);
    RedisModule_FreeString(ctx,ele);
  }
 
  size_t len = RedisModule_ValueLength(key);
  RedisModule_CloseKey(key);
  RedisModule_ReplyWithLongLong(ctx, len);
  return REDISMODULE_OK;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %rbx
leal -0x5(%rdx), %eax
cmpl $-0x3, %eax
ja 0x4a5b
movq 0x54f8(%rip), %rax      # 0x9f40
movq %rbx, %rdi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmpq *(%rax)
movq %rsi, %r15
cmpl $0x4, %edx
jne 0x4a8b
movq 0x5476(%rip), %rax      # 0x9ee0
movq 0x18(%r15), %rdi
leaq -0x38(%rbp), %rsi
callq *(%rax)
testl %eax, %eax
je 0x4a99
movq 0x52f1(%rip), %rax      # 0x9d70
leaq 0x26a4(%rip), %rsi      # 0x712a
jmp 0x4bf3
movabsq $0x3ff0000000000000, %rax # imm = 0x3FF0000000000000
movq %rax, -0x38(%rbp)
movq 0x5368(%rip), %rax      # 0x9e08
movq 0x8(%r15), %rsi
movq %rbx, %rdi
movl $0x3, %edx
callq *(%rax)
movq %rax, %r14
movq 0x5378(%rip), %r12      # 0x9e30
movq %rax, %rdi
callq *(%r12)
cmpl $0x2, %eax
je 0x4aee
movq %r14, %rdi
callq *(%r12)
testl %eax, %eax
je 0x4aee
movq 0x5512(%rip), %rax      # 0x9fe8
movq %r14, %rdi
callq *(%rax)
movq 0x528e(%rip), %rax      # 0x9d70
leaq 0x25e7(%rip), %rsi      # 0x70d0
jmp 0x4bf3
movq 0x542b(%rip), %rax      # 0x9f20
movq 0x10(%r15), %rdi
leaq -0x30(%rbp), %rsi
callq *(%rax)
testl %eax, %eax
jne 0x4bd9
cmpq $0x0, -0x30(%rbp)
js 0x4bd9
movsd -0x38(%rbp), %xmm0
movsd %xmm0, -0x40(%rbp)
movq -0x30(%rbp), %rax
leaq -0x1(%rax), %rcx
movq %rcx, -0x30(%rbp)
testq %rax, %rax
jle 0x4bab
movq 0x53fc(%rip), %r15      # 0x9f30
movq 0x5135(%rip), %r12      # 0x9c70
movq 0x52de(%rip), %rax      # 0x9e20
movq (%rax), %r13
movq 0x544c(%rip), %rdi      # 0x9f98
callq 0x4180
movsd 0x24a7(%rip), %xmm1     # 0x7000
subsd %xmm0, %xmm1
movapd %xmm1, %xmm0
callq 0x40e0
xorpd 0x24c2(%rip), %xmm0     # 0x7030
divsd -0x40(%rbp), %xmm0
movq %rbx, %rdi
leaq 0x25a7(%rip), %rsi      # 0x7124
movb $0x1, %al
callq *%r13
movq %rax, %r13
movq %r14, %rdi
xorl %esi, %esi
movq %rax, %rdx
callq *(%r15)
movq %rbx, %rdi
movq %r13, %rsi
callq *(%r12)
movq -0x30(%rbp), %rax
leaq -0x1(%rax), %rcx
movq %rcx, -0x30(%rbp)
testq %rax, %rax
jg 0x4b3b
movq 0x5066(%rip), %rax      # 0x9c18
movq %r14, %rdi
callq *(%rax)
movq %rax, %r15
movq 0x5427(%rip), %rax      # 0x9fe8
movq %r14, %rdi
callq *(%rax)
movq 0x53a3(%rip), %rax      # 0x9f70
movq %rbx, %rdi
movq %r15, %rsi
callq *(%rax)
xorl %eax, %eax
jmp 0x4bf8
movq 0x5408(%rip), %rax      # 0x9fe8
movq %r14, %rdi
callq *(%rax)
movq 0x5184(%rip), %rax      # 0x9d70
leaq 0x251f(%rip), %rsi      # 0x7112
movq %rbx, %rdi
callq *(%rax)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq