From 790bbab30374f6317ebbc1e6be6a94236e11e370 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Thu, 12 Sep 2024 02:25:17 -0400 Subject: Added logging utility --- examples/log.tm | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 examples/log.tm (limited to 'examples/log.tm') diff --git a/examples/log.tm b/examples/log.tm new file mode 100644 index 00000000..765fc61f --- /dev/null +++ b/examples/log.tm @@ -0,0 +1,53 @@ +use +use + +timestamp_format := CString("%F %T") + +logfiles := {:Path} + +func _timestamp()->Text: + return inline C ( + ({ + char *str = GC_MALLOC_ATOMIC(20); + time_t t; + time(&t); + struct tm *tm_info; + tm_info = localtime(&t); + strftime(str, 20, "%F %T", tm_info); + Text$format("%s", str); + }) + ) : Text + +func info(text:Text, newline=yes): + say("$\[2]⚫ $text$\[]", newline) + for file in logfiles: + file:append("$(_timestamp()) [info] $text$\n") + +func debug(text:Text, newline=yes): + say("$\[32]🟢 $text$\[]", newline) + for file in logfiles: + file:append("$(_timestamp()) [debug] $text$\n") + +func warn(text:Text, newline=yes): + say("$\[33;1]🟡 $text$\[]", newline) + for file in logfiles: + file:append("$(_timestamp()) [warn] $text$\n") + +func error(text:Text, newline=yes): + say("$\[31;1]🔴 $text$\[]", newline) + for file in logfiles: + file:append("$(_timestamp()) [error] $text$\n") + +func add_logfile(file:Path): + logfiles:add(file) + +func remove_logfile(file:Path): + logfiles:remove(file) + +func main(): + add_logfile((./log.txt)) + >> info("Hello") + >> debug("Hello") + >> warn("Hello") + >> error("Hello") + -- cgit v1.2.3