diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalAPI.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalAPI.vb | 49 |
1 files changed, 49 insertions, 0 deletions
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 |