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

Fixed the code style in *.c files to two spaces indentation and add a linter named funstx to Fun. (0.39.0)

Browse source
This commit is contained in:
Johannes Findeisen 2026-03-18 20:52:00 +01:00
commit 03b2532474
237 changed files with 17550 additions and 13911 deletions
Download patch file Download diff file Expand all files Collapse all files

83
src/vm/os/date_format.c
View file

@ -1,5 +1,5 @@
/**
* This file is part of the Fun programming language.
* This file is part of the Fun programming language.
* https://fun-lang.xyz/
*
* Copyright 2025 Johannes Findeisen <you@hanez.org>
@ -21,52 +21,53 @@
* - If types are wrong, prints error and pushes empty string to keep stack safe.
*/
#include <time.h>
#include <string.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
case OP_DATE_FORMAT: {
Value fmt = pop_value(vm);
Value ms = pop_value(vm);
if (ms.type != VAL_INT || fmt.type != VAL_STRING) {
fprintf(stderr, "DATE_FORMAT expects (fmt:string, ms:int)\n");
if (ms.type != VAL_NIL) free_value(ms);
if (fmt.type != VAL_NIL) free_value(fmt);
push_value(vm, make_string(""));
break;
}
time_t secs = (time_t)(ms.i / 1000);
struct tm tmv;
Value fmt = pop_value(vm);
Value ms = pop_value(vm);
if (ms.type != VAL_INT || fmt.type != VAL_STRING) {
fprintf(stderr, "DATE_FORMAT expects (fmt:string, ms:int)\n");
if (ms.type != VAL_NIL) free_value(ms);
if (fmt.type != VAL_NIL) free_value(fmt);
push_value(vm, make_string(""));
break;
}
time_t secs = (time_t)(ms.i / 1000);
struct tm tmv;
#if defined(_POSIX_C_SOURCE) && _POSIX_C_SOURCE >= 1
localtime_r(&secs, &tmv);
localtime_r(&secs, &tmv);
#else
struct tm *ptm = localtime(&secs);
if (!ptm) {
free_value(ms); free_value(fmt);
push_value(vm, make_string(""));
break;
}
tmv = *ptm;
#endif
/* Determine buffer size by attempting once with a reasonable size and retrying if needed */
size_t cap = 128;
char *buf = (char*)malloc(cap);
size_t n = strftime(buf, cap, fmt.s, &tmv);
if (n == 0) {
/* try larger */
cap = 512;
buf = (char*)realloc(buf, cap);
n = strftime(buf, cap, fmt.s, &tmv);
}
Value out;
if (n == 0) {
out = make_string("");
} else {
out = make_string(buf);
}
free(buf);
struct tm *ptm = localtime(&secs);
if (!ptm) {
free_value(ms);
free_value(fmt);
push_value(vm, out);
push_value(vm, make_string(""));
break;
}
tmv = *ptm;
#endif
/* Determine buffer size by attempting once with a reasonable size and retrying if needed */
size_t cap = 128;
char *buf = (char *)malloc(cap);
size_t n = strftime(buf, cap, fmt.s, &tmv);
if (n == 0) {
/* try larger */
cap = 512;
buf = (char *)realloc(buf, cap);
n = strftime(buf, cap, fmt.s, &tmv);
}
Value out;
if (n == 0) {
out = make_string("");
} else {
out = make_string(buf);
}
free(buf);
free_value(ms);
free_value(fmt);
push_value(vm, out);
break;
}