start work on time builtin

Author: LytixDev

examples/take-screenshot.slash

@@ -4,7 +4,8 @@ mkdir -p $dir
 var file_name = $dir + "/" + (date +%Y-%m-%d-%H%M%S) + ".png"
 
 if $1 == "-a" {
-    gnome-screenshot -a -f $file_name
+    notify-send -t 2000 "Taking screenshot ..." 
+    gnome-screenshot -a -f $file_name && echo "done"
 } else {
     scrot -F $file_name
 }

include/builtin/builtin.h

@@ -52,6 +52,7 @@ int builtin_vars(Interpreter *interpreter, size_t argc, SlashValue *argv);
 int builtin_exit(Interpreter *interpreter, size_t argc, SlashValue *argv);
 int builtin_read(Interpreter *interpreter, size_t argc, SlashValue *argv);
 int builtin_dot(Interpreter *interpreter, size_t argc, SlashValue *argv);
+int builtin_time(Interpreter *interpreter, size_t argc, SlashValue *argv);
 
 
 #endif /* BUILTIN_H */

include/interpreter/scope.h

@@ -63,5 +63,4 @@ ScopeAndValue var_get(Scope *scope, StrView *key);
 ScopeAndValue var_get_or_runtime_error(Scope *scope, StrView *key);
 
 
-
 #endif /* SCOPE_H */

include/interpreter/value/slash_list.h

@@ -30,7 +30,7 @@
  */
 
 #define SLASH_LIST_STARTING_CAP 8
-#define SLASH_LIST_GROW_CAPACITY(capacity) ((capacity) < 8 ? 8 : (capacity)*2)
+#define SLASH_LIST_GROW_CAPACITY(capacity) ((capacity) < 8 ? 8 : (capacity) * 2)
 
 typedef struct slash_list_impl_t {
     SlashObj obj;

src/builtin/time.c

@@ -0,0 +1,60 @@
+/*
+ *  Copyright (C) 2024 Nicolai Brand (https://lytix.dev)
+ *
+ *  This program is free software: you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation, either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program.  If not, see <https://www.gnu.org/licenses/>.
+ */
+
+#include <stdio.h>
+#include <sys/resource.h>
+#include <time.h>
+
+#include "interpreter/exec.h"
+#include "interpreter/interpreter.h"
+#include "interpreter/value/slash_str.h"
+#include "interpreter/value/slash_value.h"
+
+
+int builtin_time(Interpreter *interpreter, size_t argc, SlashValue *argv)
+{
+    struct rusage start_usage;
+    getrusage(RUSAGE_SELF, &start_usage);
+    clock_t start_time = clock();
+
+    char *exec_argv[argc + 1]; // + 1 because last element is NULL
+    exec_argv[argc] = NULL;
+    gc_barrier_start(&interpreter->gc);
+
+    for (size_t i = 0; i < argc; i++) {
+	SlashValue arg = argv[i];
+	VERIFY_TRAIT_IMPL(to_str, arg, "Could not take 'to_str' of type '%s'", arg.T->name);
+	SlashValue value_str_repr = arg.T->to_str(interpreter, arg);
+	exec_argv[i] = AS_STR(value_str_repr)->str;
+    }
+
+    gc_barrier_end(&interpreter->gc);
+    int exit_code = exec_program(&interpreter->stream_ctx, exec_argv);
+
+    struct rusage end_usage;
+    getrusage(RUSAGE_CHILDREN, &end_usage);
+    clock_t end_time = clock();
+
+    double real_time = (double)(end_time - start_time) / CLOCKS_PER_SEC;
+    double user_time = (double)(end_usage.ru_utime.tv_sec + end_usage.ru_utime.tv_usec / 1000000.0);
+    double sys_time = (double)(end_usage.ru_stime.tv_sec + end_usage.ru_stime.tv_usec / 1000000.0);
+    printf("real\t%.3f\n", real_time);
+    printf("user\t%.3f\n", user_time);
+    printf("sys\t%.3f\n", sys_time);
+
+    return exit_code;
+}

src/builtin/which.c

@@ -28,7 +28,8 @@
 Builtin builtins[] = {
     { .name = "cd", .func = builtin_cd },	{ .name = "vars", .func = builtin_vars },
     { .name = "which", .func = builtin_which }, { .name = "exit", .func = builtin_exit },
-    { .name = "read", .func = builtin_read },	{ .name = ".", .func = builtin_dot }
+    { .name = "read", .func = builtin_read },	{ .name = ".", .func = builtin_dot },
+    { .name = "time", .func = builtin_time }
 };
 
 
@@ -87,7 +88,8 @@ int builtin_which(Interpreter *interpreter, size_t argc, SlashValue *argv)
 	return 1;
     }
     SlashStr *param_str = AS_STR(to_str(interpreter, param));
-    ScopeAndValue path = var_get_or_runtime_error(interpreter->scope, &(StrView){ .view = "PATH", .size = 4 });
+    ScopeAndValue path =
+	var_get_or_runtime_error(interpreter->scope, &(StrView){ .view = "PATH", .size = 4 });
     if (!IS_STR(*path.value)) {
 	fprintf(stderr, "which: PATH variable should be type '%s' not '%s'", str_type_info.name,
 		path.value->T->name);

src/interpreter/interpreter.c

@@ -580,7 +580,8 @@ static void exec_seq_var(Interpreter *interpreter, SeqVarStmt *stmt)
 
 static void exec_cmd(Interpreter *interpreter, CmdStmt *stmt)
 {
-    ScopeAndValue path = var_get_or_runtime_error(interpreter->scope, &(StrView){ .view = "PATH", .size = 4 });
+    ScopeAndValue path =
+	var_get_or_runtime_error(interpreter->scope, &(StrView){ .view = "PATH", .size = 4 });
     if (!IS_STR(*path.value))
 	REPORT_RUNTIME_ERROR("PATH variable should be type '%s' not '%s'", str_type_info.name,
 			     path.value->T->name);
@@ -600,6 +601,7 @@ static void exec_cmd(Interpreter *interpreter, CmdStmt *stmt)
 	    return;
 	}
 
+	gc_barrier_start(&interpreter->gc);
 	size_t argc = stmt->arg_exprs->size;
 	SlashValue argv[argc];
 	LLItem *item = stmt->arg_exprs->head;
@@ -609,6 +611,7 @@ static void exec_cmd(Interpreter *interpreter, CmdStmt *stmt)
 	    item = item->next;
 	}
 	which_result.builtin(interpreter, argc, argv);
+	gc_barrier_end(&interpreter->gc);
     }
 }
 
@@ -846,7 +849,8 @@ static void exec_iter_loop_map(Interpreter *interpreter, IterLoopStmt *stmt, Sla
 
 static void exec_iter_loop_str(Interpreter *interpreter, IterLoopStmt *stmt, SlashStr *iterable)
 {
-    ScopeAndValue ifs_res = var_get_or_runtime_error(interpreter->scope, &(StrView){ .view = "IFS", .size = 3 });
+    ScopeAndValue ifs_res =
+	var_get_or_runtime_error(interpreter->scope, &(StrView){ .view = "IFS", .size = 3 });
     if (!IS_STR(*ifs_res.value))
 	REPORT_RUNTIME_ERROR("$IFS has to be of type 'str', but got '%s'", ifs_res.value->T->name);
 

src/interpreter/scope.c

@@ -147,8 +147,8 @@ ScopeAndValue var_get_or_runtime_error(Scope *scope, StrView *key)
 {
     ScopeAndValue sv = var_get(scope, key);
     if (sv.value == NULL) {
-        str_view_to_buf_cstr(*key);
-        REPORT_RUNTIME_ERROR("Variable '%s' is not defined", buf);
+	str_view_to_buf_cstr(*key);
+	REPORT_RUNTIME_ERROR("Variable '%s' is not defined", buf);
     }
     return sv;
 }