aboutsummaryrefslogtreecommitdiff
path: root/examples/log/log.tm
diff options
context:
space:
mode:
authorBruce Hill <bruce@bruce-hill.com>2025-09-01 17:37:24 -0400
committerBruce Hill <bruce@bruce-hill.com>2025-09-01 17:37:24 -0400
commit12345a85d9c7d7a56ddf323247a4bdf347021b73 (patch)
tree93bafb42c1ec2c22cc2858936034901c39cbca82 /examples/log/log.tm
parentc778c8822f1c8acf981e26f7b860a384c94cff6f (diff)
parentadc2d81b5683e611c5f3289be6157d4519a60632 (diff)
Merge branch 'main' into optional-list-indexing
Diffstat (limited to 'examples/log/log.tm')
-rw-r--r--examples/log/log.tm50
1 files changed, 0 insertions, 50 deletions
diff --git a/examples/log/log.tm b/examples/log/log.tm
deleted file mode 100644
index 4b7893fd..00000000
--- a/examples/log/log.tm
+++ /dev/null
@@ -1,50 +0,0 @@
-use <time.h>
-use <stdio.h>
-
-timestamp_format := CString("%F %T")
-
-logfiles : @|Path|
-
-func _timestamp(->Text)
- c_str := C_code:CString(
- char *str = GC_MALLOC_ATOMIC(20);
- time_t t; time(&t);
- struct tm *tm_info = localtime(&t);
- strftime(str, 20, "%F %T", tm_info);
- str
- )
- return c_str.as_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")
-