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

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