From b6ad60f56854bdf720c1e7177f011329048516db Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 17 Nov 2022 11:03:57 +0700 Subject: CodepointSystem module, ColorSystem module, Completing TerminalInternalApps migrating to modules --- .../External/TerminalExternalApps.vb | 10 -- .../TerminalApplications/Internal/Com_Color.vb | 3 + .../TerminalApplications/Internal/Com_Colors.vb | 48 ++++++ .../TerminalApplications/Internal/Com_Manual.vb | 160 ++++++++++++++++++++ .../Internal/TerminalInternalApps.vb | 168 --------------------- 5 files changed, 211 insertions(+), 178 deletions(-) create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb delete mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb (limited to 'ShiftOS-TheRevival/TerminalApplications') diff --git a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb index 24a6435..3f91782 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb @@ -19,16 +19,6 @@ Module TerminalExternalApps Public TextPad_FileName As String Public TextPad_TempText As New Timer - Public Sub ChangeCP(Addition As Boolean, NeededCP As Integer) - Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2)) - If Addition = True Then - TempCP = TempCP + NeededCP - Else - TempCP = TempCP - NeededCP - End If - Strings.ComputerInfo(2) = Convert.ToString(TempCP) - End Sub - Public Sub AppHost(App As Object, UseToolBar As Boolean) Select Case App Case "bc" diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb new file mode 100644 index 0000000..ac9d52e --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb @@ -0,0 +1,3 @@ +Module Com_Color + +End Module diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb new file mode 100644 index 0000000..867bdcc --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb @@ -0,0 +1,48 @@ +Module Com_Colors + Public Sub Colors() + NewLine("TERMINAL SUPPORTED COLORS") + NewLine(Nothing) + NewLine(Nothing) + If Strings.AvailableFeature(10) = "1" Then + NewLine("0 = Black 8 = Gray") + Else + NewLine("0 = Black 8 = ???") + End If + If Strings.AvailableFeature(14) = "1" Then + NewLine("1 = Blue 9 = Light Blue") + NewLine("2 = Green A = Light Green") + Else + If Strings.AvailableFeature(13) = "1" Then + NewLine("1 = ??? 9 = Light Blue") + NewLine("2 = Green A = ???") + Else + NewLine("1 = ??? 9 = ???") + NewLine("2 = ??? A = ???") + End If + End If + If Strings.AvailableFeature(15) = "1" Then + NewLine("3 = Aqua B = Light Aqua") + Else + NewLine("3 = ??? B = ???") + End If + If Strings.AvailableFeature(14) = "1" Then + NewLine("4 = Red C = Light Red") + ElseIf Strings.AvailableFeature(13) = "1" Then + NewLine("4 = ??? C = Light Red") + Else + NewLine("4 = ??? C = ???") + End If + If Strings.AvailableFeature(15) = "1" Then + NewLine("5 = Purple D = Light Purple") + NewLine("6 = Yellow E = Yellow") + Else + NewLine("5 = ??? D = ???") + NewLine("6 = ??? E = ???") + End If + If Strings.AvailableFeature(10) = "1" Then + NewLine("7 = Dark Gray F = White") + Else + NewLine("7 = ??? F = White") + End If + End Sub +End Module diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb new file mode 100644 index 0000000..a3c7de9 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb @@ -0,0 +1,160 @@ +Module Com_Manual + Public Sub Manual(Command As String) + 'MAN command starts with this kinda format + 'ShiftOS Help Manual + ' + ''command' Usage: [switch/value if needed] + ' + 'Summary of the command's action + ' + 'Example usage : command + NewLine("ShiftOS Help Manual") + NewLine(Nothing) + 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4) + Dim mancommand As String = Command.Replace("man ", "") + Dim TempUsage As String = "'" & mancommand & "' Usage: " + Select Case mancommand + 'In process to convert every command from printing from code to printing from text file + Case "bc" + If Strings.AvailableFeature(9) = "1" Then + TempUsage = TempUsage & "bc" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine + Console.BadCommand = False + End If + Case "cd" + If Strings.AvailableFeature(16) = "1" Then + TempUsage = TempUsage & "cd [DIRECTORY]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine + Console.BadCommand = False + End If + Case "clear" + If Strings.AvailableFeature(1) = "1" Then + TempUsage = TempUsage & "clear" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine + Console.BadCommand = False + End If + Case "color" + TempUsage = TempUsage & "color [bg][fg]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine + Console.BadCommand = False + Case "colors" + TempUsage = TempUsage & "colors" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine + Console.BadCommand = False + Case "cowsay" + If Strings.AvailableFeature(22) = 1 Then + TempUsage = TempUsage & "cowsay [STRING]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine + Console.BadCommand = False + End If + Case "codepoint" + TempUsage = TempUsage & "codepoint" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine + Console.BadCommand = False + Case "del" + If Strings.AvailableFeature(16) = 1 Then + TempUsage = TempUsage & "del [FILENAME.TXT]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine + Console.BadCommand = False + End If + Case "dir" + If Strings.AvailableFeature(16) = "1" Then + TempUsage = TempUsage & "dir" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine + Console.BadCommand = False + End If + Case "guess" + TempUsage = TempUsage & "guess" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine + Console.BadCommand = False + Case "help" + TempUsage = TempUsage & "help" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine + Console.BadCommand = False + Case "hostname" + If Strings.AvailableFeature(20) = 1 Then + TempUsage = TempUsage & "hostname [HOSTNAME]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine + Console.BadCommand = False + End If + Case "infobar" + If Strings.AvailableFeature(4) = 1 Then + TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine + Console.BadCommand = False + End If + Case "man" + If Strings.AvailableFeature(0) = "1" Then + TempUsage = TempUsage & "man [command]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine + Console.BadCommand = False + End If + Case "mkdir" + If Strings.AvailableFeature(16) = "1" Then + TempUsage = TempUsage & "mkdir [DIRECTORY]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine + Console.BadCommand = False + End If + Case "print" + If Strings.AvailableFeature(2) = "1" Then + TempUsage = TempUsage & "print [text]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine + Console.BadCommand = False + End If + Case "pwd" + If Strings.AvailableFeature(16) = "1" Then + TempUsage = TempUsage & "pwd" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine + Console.BadCommand = False + End If + Case "reboot" + TempUsage = TempUsage & "reboot" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine + Console.BadCommand = False + Case "rmdir" + If Strings.AvailableFeature(16) = "1" Then + TempUsage = TempUsage & "rmdir [DIRECTORY]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine + Console.BadCommand = False + End If + Case "shiftfetch" + If Strings.AvailableFeature(8) = "1" Then + TempUsage = TempUsage & "shiftfetch" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine + Console.BadCommand = False + End If + Case "shiftorium" + TempUsage = TempUsage & "shiftorium [option] [featureName]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine + Console.BadCommand = False + Case "shutdown" + TempUsage = TempUsage & "shutdown" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine + Console.BadCommand = False + Case "textpad" + If Strings.AvailableFeature(17) = "1" Then + TempUsage = TempUsage & "textpad [FILENAME.TXT]" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine + Console.BadCommand = False + End If + Case "time" + If Strings.AvailableFeature(17) = "1" Then + TempUsage = TempUsage & "time" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine + Console.BadCommand = False + End If + Case "username" + If Strings.AvailableFeature(19) = "1" Then + TempUsage = TempUsage & "username" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine + Console.BadCommand = False + End If + Case "ver" + TempUsage = TempUsage & "ver" + Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine + Console.BadCommand = False + Case Else + NewLine("MAN : Invalid command") + End Select + End Sub +End Module diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb deleted file mode 100644 index f4bba89..0000000 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb +++ /dev/null @@ -1,168 +0,0 @@ -Module TerminalInternalApps - Public Sub Cowsay_Say(Say As String) - - End Sub - - Public Sub DateTerm() - - End Sub - - Public Sub Manual(Command As String) - 'MAN command starts with this kinda format - 'ShiftOS Help Manual - ' - ''command' Usage: [switch/value if needed] - ' - 'Summary of the command's action - ' - 'Example usage : command - NewLine("ShiftOS Help Manual") - NewLine(Nothing) - 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4) - Dim mancommand As String = Command.Replace("man ", "") - Dim TempUsage As String = "'" & mancommand & "' Usage: " - Select Case mancommand - 'In process to convert every command from printing from code to printing from text file - Case "bc" - If Strings.AvailableFeature(9) = "1" Then - TempUsage = TempUsage & "bc" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine - Console.BadCommand = False - End If - Case "cd" - If Strings.AvailableFeature(16) = "1" Then - TempUsage = TempUsage & "cd [DIRECTORY]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine - Console.BadCommand = False - End If - Case "clear" - If Strings.AvailableFeature(1) = "1" Then - TempUsage = TempUsage & "clear" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine - Console.BadCommand = False - End If - Case "color" - TempUsage = TempUsage & "color [bg][fg]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine - Console.BadCommand = False - Case "colors" - TempUsage = TempUsage & "colors" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine - Console.BadCommand = False - Case "cowsay" - If Strings.AvailableFeature(22) = 1 Then - TempUsage = TempUsage & "cowsay [STRING]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine - Console.BadCommand = False - End If - Case "codepoint" - TempUsage = TempUsage & "codepoint" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine - Console.BadCommand = False - Case "del" - If Strings.AvailableFeature(16) = 1 Then - TempUsage = TempUsage & "del [FILENAME.TXT]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine - Console.BadCommand = False - End If - Case "dir" - If Strings.AvailableFeature(16) = "1" Then - TempUsage = TempUsage & "dir" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine - Console.BadCommand = False - End If - Case "guess" - TempUsage = TempUsage & "guess" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine - Console.BadCommand = False - Case "help" - TempUsage = TempUsage & "help" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine - Console.BadCommand = False - Case "hostname" - If Strings.AvailableFeature(20) = 1 Then - TempUsage = TempUsage & "hostname [HOSTNAME]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine - Console.BadCommand = False - End If - Case "infobar" - If Strings.AvailableFeature(4) = 1 Then - TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine - Console.BadCommand = False - End If - Case "man" - If Strings.AvailableFeature(0) = "1" Then - TempUsage = TempUsage & "man [command]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine - Console.BadCommand = False - End If - Case "mkdir" - If Strings.AvailableFeature(16) = "1" Then - TempUsage = TempUsage & "mkdir [DIRECTORY]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine - Console.BadCommand = False - End If - Case "print" - If Strings.AvailableFeature(2) = "1" Then - TempUsage = TempUsage & "print [text]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine - Console.BadCommand = False - End If - Case "pwd" - If Strings.AvailableFeature(16) = "1" Then - TempUsage = TempUsage & "pwd" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine - Console.BadCommand = False - End If - Case "reboot" - TempUsage = TempUsage & "reboot" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine - Console.BadCommand = False - Case "rmdir" - If Strings.AvailableFeature(16) = "1" Then - TempUsage = TempUsage & "rmdir [DIRECTORY]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine - Console.BadCommand = False - End If - Case "shiftfetch" - If Strings.AvailableFeature(8) = "1" Then - TempUsage = TempUsage & "shiftfetch" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine - Console.BadCommand = False - End If - Case "shiftorium" - TempUsage = TempUsage & "shiftorium [option] [featureName]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine - Console.BadCommand = False - Case "shutdown" - TempUsage = TempUsage & "shutdown" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine - Console.BadCommand = False - Case "textpad" - If Strings.AvailableFeature(17) = "1" Then - TempUsage = TempUsage & "textpad [FILENAME.TXT]" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine - Console.BadCommand = False - End If - Case "time" - If Strings.AvailableFeature(17) = "1" Then - TempUsage = TempUsage & "time" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine - Console.BadCommand = False - End If - Case "username" - If Strings.AvailableFeature(19) = "1" Then - TempUsage = TempUsage & "username" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine - Console.BadCommand = False - End If - Case "ver" - TempUsage = TempUsage & "ver" - Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine - Console.BadCommand = False - Case Else - NewLine("MAN : Invalid command") - End Select - End Sub -End Module -- cgit v1.2.3