From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Sun, 13 Apr 2025 18:48:02 +0100
Subject: initial

---
 site/udo/txt_tools.udo | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 98 insertions(+)
 create mode 100755 site/udo/txt_tools.udo

(limited to 'site/udo/txt_tools.udo')

diff --git a/site/udo/txt_tools.udo b/site/udo/txt_tools.udo
new file mode 100755
index 0000000..e260635
--- /dev/null
+++ b/site/udo/txt_tools.udo
@@ -0,0 +1,98 @@
+#ifndef UDO_TXTTOOLS
+#define UDO_TXTTOOLS ##
+/*
+	Text tools
+
+	This file is part of the SONICS UDO collection by Richard Knight 2024
+		License: GPL-2.0-or-later
+		http://1bpm.net
+*/
+
+
+/*
+	Print a notification prepended with a line of asterisks
+	
+	tt_notify Stext
+
+	Stext	text to print
+*/
+opcode tt_notify, 0, S
+	Stext xin
+	Snew = "\n"
+	iwidth = 60
+	index = 0
+	while (index < iwidth) do
+		Snew = strcat(Snew, "*");
+		index += 1
+	od
+	prints strcat(strcat(Snew, "\n"), strcat(Stext, "\n\n"))
+endop
+
+
+
+/*
+	Print a notification prepended with a line of asterisks and exit
+	
+	tt_notify Stext
+
+	Stext	text to print
+*/
+opcode tt_notify_fatal, 0, S
+	Stext xin
+	tt_notify(Stext)
+	exitnow
+endop
+
+
+/*
+	Return a number of seconds as HH:MM:SS format
+	
+	Stime tt_parsetime iseconds
+
+	iseconds	seconds to parse
+	
+	Stime		formatted time
+
+*/
+opcode tt_parsetime, S, i
+	input xin
+	ihours = floor(input / 3600)
+	iminutes = floor((input - (ihours * 3600)) / 60)
+	iseconds = input - (ihours * 3600) - (iminutes * 60)
+	xout sprintf("%02d:%02d:%05.2f", ihours, iminutes, iseconds)
+endop
+
+
+/*
+	Print a timestamped notification prepended with a line of asterisks and exit
+	
+	tt_notifytime Stext
+
+	Stext	text to print
+*/
+opcode tt_notifytime, 0, S
+	Stext xin
+	Stime tt_parsetime times()
+	tt_notify sprintf("%s | %s", Stime, Stext)
+endop
+
+
+/*
+	Strip newline from end of line: built-in opcode has some problems
+
+	Soutput tt_stripnewline Sinput
+
+	Soutput		processed without newline at end if existent
+	
+	Sinput		line to process
+*/
+opcode tt_stripnewline, S, S
+	Sline xin
+	index = strindex(Sline, "\n")
+	if (index != -1) then
+		Sline = strsub(Sline, 0, index)
+	endif
+	xout Sline
+endop
+
+#end
-- 
cgit v1.2.3