From 54355f9686a5a07f27de5cd3444b87509df2fd2f Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 13 Nov 2022 15:15:05 +0700 Subject: Changed from Environment.NewLine to dedicated NewLine module thoroughly, Fixing a bug on always asks for update, Slowly migrating from full Terminal-dependant to Console-based --- ShiftOS-TheRevival/MainForms/TerminalAPI.vb | 49 +++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 ShiftOS-TheRevival/MainForms/TerminalAPI.vb (limited to 'ShiftOS-TheRevival/MainForms/TerminalAPI.vb') diff --git a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb b/ShiftOS-TheRevival/MainForms/TerminalAPI.vb new file mode 100644 index 0000000..667d2ef --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/TerminalAPI.vb @@ -0,0 +1,49 @@ +Module TerminalAPI + Public command As String + Public AdvancedCommand As Boolean + Public RawCommand As String + + Public Sub Terminal_ReadCommand() + command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1) + If Console.DefaultPrompt = Nothing Then + Else + command = command.Replace(Console.DefaultPrompt, "") + End If + RawCommand = command + command = command.ToLower() + End Sub + + Public Sub Terminal_PrintPrompt() + If Console.TextBox1.Text = Nothing Then + If Console.ChangeInterpreter = True Then + NewLine(Console.DefaultPrompt) + Else + If Strings.OnceInfo(0) = "Yes" Then + ResetLine("root@" & Strings.ComputerInfo(0) & " #> ") + Else + ResetLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ") + End If + End If + Else + If Console.ChangeInterpreter = True Then + NewLine(Console.DefaultPrompt) + Else + If Strings.OnceInfo(0) = "Yes" Then + NewLine("root@" & Strings.ComputerInfo(0) & " #> ") + Else + NewLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ") + End If + End If + End If + End Sub + + Public Sub Terminal_AssignPrompt() + If Console.ChangeInterpreter = False Then + If Strings.OnceInfo(0) = "Yes" Then + Console.DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> " + Else + Console.DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> " + End If + End If + End Sub +End Module -- cgit v1.2.3