From 44d3d5ece0a53d5316a2ccc9898b79992d81fef7 Mon Sep 17 00:00:00 2001 From: Richard Date: Sat, 22 Jan 2022 22:27:01 +0000 Subject: update --- BID-rework/txt_tools.udo | 82 ------------------------------------------------ 1 file changed, 82 deletions(-) delete mode 100644 BID-rework/txt_tools.udo (limited to 'BID-rework/txt_tools.udo') diff --git a/BID-rework/txt_tools.udo b/BID-rework/txt_tools.udo deleted file mode 100644 index a6c4511..0000000 --- a/BID-rework/txt_tools.udo +++ /dev/null @@ -1,82 +0,0 @@ -#ifndef UDO_TXTTOOLS -#define UDO_TXTTOOLS ## -/* - Debugger - Unfixed Bugs : BUG #5 - - Text tools -*/ - - -/* - 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 - - -/* - 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