hanez/fun
1
0
Fork 0
forked from fun/fun
Code Pull requests Activity

Added a Redis/Valkey extension named redis. (0.42.0)

Browse source
This commit is contained in:
Johannes Findeisen 2026-06-03 21:48:45 +02:00
commit cbb81c0b93
28 changed files with 798 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

58
src/vm/redis/cmd.c Normal file
View file

@ -0,0 +1,58 @@
/*
* This file is part of the Fun programming language.
* https://fun-lang.xyz/
*
* Copyright 2025 Johannes Findeisen <you@hanez.org>
* Licensed under the terms of the Apache-2.0 license.
* https://opensource.org/license/apache-2-0
*/
/**
* @file cmd.c
* @brief Implements the OP_REDIS_CMD opcode (conditional build).
*
* Executes a Redis command using the synchronous hiredis API on a previously
* opened handle and converts the reply to a Fun Value.
*
* Stack effect
* ------------
* OP_REDIS_CMD: (handle:int, cmd:string) -> reply:Value
*
* Behavior
* --------
* - The command string uses Redis inline protocol formatting (e.g.,
* "PING", "SET key val", "LRANGE list 0 -1").
* - When FUN_WITH_REDIS is enabled, the opcode looks up the connection by
* handle id, issues redisCommand(), and converts the resulting reply to a
* Fun Value:
* - status/string -> string
* - integer -> int
* - nil -> nil
* - array -> array of converted elements
* On errors or lookup failures, pushes Nil.
* - When FUN_WITH_REDIS is disabled, pops arguments and pushes Nil.
*/
case OP_REDIS_CMD: {
#ifdef FUN_WITH_REDIS
Value vcmd = pop_value(vm);
Value vh = pop_value(vm);
int hid = (int)vh.i;
char *cmd = value_to_string_alloc(&vcmd);
free_value(vh);
free_value(vcmd);
RedisHandle *h = redis_reg_get(hid);
if (!h || !h->ctx || !cmd) { if (cmd) free(cmd); push_value(vm, make_nil()); break; }
redisReply *r = (redisReply *)redisCommand(h->ctx, cmd);
free(cmd);
if (!r) { push_value(vm, make_nil()); break; }
Value out = hiredis_reply_to_value(r);
freeReplyObject(r);
push_value(vm, out);
#else
Value v1 = pop_value(vm); free_value(v1);
Value v2 = pop_value(vm); free_value(v2);
push_value(vm, make_nil());
#endif
break;
}