From 8b879eb638cbb842c723b64f53b04d30d931a4f0 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 14 Nov 2022 20:09:29 +0700 Subject: Moving DoCommand to TerminalAPI, etc. --- ShiftOS-TheRevival/API/TerminalAPI.vb | 277 ++++++++++++++++++++++++++++++++++ 1 file changed, 277 insertions(+) (limited to 'ShiftOS-TheRevival/API/TerminalAPI.vb') diff --git a/ShiftOS-TheRevival/API/TerminalAPI.vb b/ShiftOS-TheRevival/API/TerminalAPI.vb index 715e075..a401576 100644 --- a/ShiftOS-TheRevival/API/TerminalAPI.vb +++ b/ShiftOS-TheRevival/API/TerminalAPI.vb @@ -3,6 +3,16 @@ Public AdvancedCommand As Boolean Public RawCommand As String + Public Sub Terminal_ExecuteInput() + Terminal_ReadCommand() + If Strings.AvailableFeature(18) = 1 Then + ShOSKey_InputCommand(command) + End If + Console.DoCommand() + Terminal_PrintPrompt() + TextRebind() + End Sub + Public Sub Terminal_ReadCommand() command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1) If Console.DefaultPrompt = Nothing Then @@ -67,4 +77,271 @@ End If End If End Sub + + Public Sub Terminal_DoCommand() + AdvancedCommand = True + Console.BadCommand = True + Select Case command + Case "" + AdvancedCommand = False + Console.BadCommand = False + Case "05tray" + _05tray() + NewLine("you cheater!") + Case "bc" + If Strings.AvailableFeature(9) = "1" Then + Console.ChangeInterpreter = True + AppHost("bc", False) + AdvancedCommand = False + Console.BadCommand = False + End If + Case "clear" + If Strings.AvailableFeature(1) = "1" Then + Console.TextBox1.Text = Nothing + AdvancedCommand = False + Console.BadCommand = False + End If + Case "codepoint" + Codepoint() + AdvancedCommand = False + Console.BadCommand = False + Case "colors" + DisplayColors() + AdvancedCommand = False + Console.BadCommand = False + Case "date" + Terminal_Date() + Case "dir" + If Strings.AvailableFeature(16) = "1" Then + TerminalDirectories(Console.CurrentDirectory) + AdvancedCommand = False + Console.BadCommand = False + End If + Case "exit su" + If Strings.OnceInfo(0) = "No" Then + + Else + AdvancedCommand = False + Console.BadCommand = False + NewLine("Exitting root mode...") + Strings.OnceInfo(0) = "No" + Terminal_AssignPrompt() + End If + Case "guess" + Console.ChangeInterpreter = True + AppHost("guess", False) + AdvancedCommand = False + Console.BadCommand = False + 'Undeveloped() + Case "help" + Help() + AdvancedCommand = False + Console.BadCommand = False + Case "infobar" + If Strings.AvailableFeature(4) = 1 Then + NewLine(My.Resources.man_infobar) + End If + Case "pwd" + If Strings.AvailableFeature(16) = 1 Then + Pwd() + AdvancedCommand = False + Console.BadCommand = False + End If + Case "reboot" + Console.TextBox1.Text = Nothing + AdvancedCommand = False + Console.BadCommand = False + SaveGame() + Console.InitializeTerminal() + Case "shiftorium" + NewLine(My.Resources.man_shiftorium) + AdvancedCommand = False + Console.BadCommand = False + Case "shiftfetch" + If Strings.AvailableFeature(8) = "1" Then + Shiftfetch() + AdvancedCommand = False + Console.BadCommand = False + End If + Case "shiftoriumfx" + 'ChangeInterpreter = True + 'AppHost("shiftoriumfx") + AdvancedCommand = False + Console.BadCommand = False + Undeveloped() + Case "shutdown", "shut down" + NewLine("Saving game...") + If Strings.OnceInfo(6) = "story" Then + SaveGame() + End If + Cursor.Show() + ShiftOSMenu.Show() + Console.Close() + Case "textpad" + If Strings.AvailableFeature(17) = "1" Then + TextPad_WarnFile() + AdvancedCommand = False + Console.BadCommand = False + End If + Case "time" + Terminal_Time() + AdvancedCommand = False + Console.BadCommand = False + Case "su" + Terminal_Su() + AdvancedCommand = False + Console.BadCommand = False + Case "ver" + Terminal_Version() + AdvancedCommand = False + Console.BadCommand = False + End Select + + If AdvancedCommand = True Then + If command Like "cat *" Then + If Strings.AvailableFeature(16) = 1 Then + CatFile(command.Substring(4)) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "cd *" Then + If Strings.AvailableFeature(16) = 1 Then + NavigateDir(command.Replace("cd ", "")) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "color *" Then + GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1)) + Console.BadCommand = False + End If + If command Like "cowsay *" Then + If Strings.AvailableFeature(22) = 1 Then + Cowsay_Say(RawCommand.Substring(7)) + Console.BadCommand = False + End If + End If + If command Like "del *" Then + If Strings.AvailableFeature(16) = 1 Then + DeleteFile(RawCommand.Substring(4)) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "hostname *" Then + If Strings.AvailableFeature(20) = 1 Then + Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) + Terminal_AssignPrompt() + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "infobar *" Then + If Strings.AvailableFeature(4) = "1" Then + 'Infobar panel-ish and some sort + Dim infobarcommand As String = command.Replace("infobar ", "") + Dim advancedtool As Boolean = True + Select Case infobarcommand + Case "on" + Strings.OnceInfo(2) = "True" + Console.CheckFeature() + Console.BadCommand = False + advancedtool = False + Case "off" + Strings.OnceInfo(2) = "False" + Console.CheckFeature() + Console.BadCommand = False + advancedtool = False + End Select + If advancedtool = True Then + If infobarcommand Like "color *" Then + GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1)) + Console.BadCommand = False + End If + End If + End If + End If + If command Like "man *" Then + If Strings.AvailableFeature(0) = "1" Then + Manual(command) + End If + End If + If command Like "mkdir *" Then + If Strings.AvailableFeature(16) Then + CreateDir(command.Replace("mkdir ", "")) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "print *" Then + If Strings.AvailableFeature(2) = "1" Then + NewLine(RawCommand.Substring(6)) + Console.BadCommand = False + AdvancedCommand = False + End If + End If + If command Like "rev *" Then + If Strings.AvailableFeature(21) = 1 Then + NewLine(StrReverse(RawCommand.Substring(4))) + Console.BadCommand = False + AdvancedCommand = False + End If + End If + If command Like "rmdir *" Then + If Strings.AvailableFeature(16) = 1 Then + RemoveDir(command.Replace("rmdir ", "")) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "run *" Then + If Strings.AvailableFeature(30) = 1 Then + Terminal_RunTerminalFile(command.Substring(4)) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "shiftorium *" Then + Dim prompt As String = command.Replace("shiftorium ", "") + NewLine("Shiftorium ShiftOS Center") + If prompt Like "info *" Then + Shiftoriums.prompt = command.Replace("shiftorium info ", "") + Shiftorium_InformationFeatures() + End If + If prompt Like "install *" Then + Shiftoriums.prompt = command.Replace("shiftorium install ", "") + Shiftorium_DetectInstallFeatures() + End If + If prompt = "list" Then + Shiftorium_ListFeatures() + Console.BadCommand = False + End If + End If + If command Like "textpad *" Then + If Strings.AvailableFeature(17) = 1 Then + Console.ChangeInterpreter = True + command = RawCommand.Replace("textpad ", "") + AppHost("textpad", True) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + If command Like "username *" Then + If Strings.AvailableFeature(19) = 1 Then + If command.Substring(9) = "root" Then + NewLine("This username is already taken!") + Else + Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) + Terminal_AssignPrompt() + End If + AdvancedCommand = False + Console.BadCommand = False + End If + End If + End If + If Console.BadCommand = True Then + NewLine("Bad command or wrong file name") + End If + End Sub End Module -- cgit v1.2.3