More organized

1 files changed, 70 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/API/TerminalAPI.vb b/ShiftOS-TheRevival/API/TerminalAPI.vb
new file mode 100644
index 0000000..715e075
--- /dev/null
+++ b/ShiftOS-TheRevival/API/TerminalAPI.vb
@@ -0,0 +1,70 @@
+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
+
+    Public Sub Terminal_RunTerminalFile(filename As String)
+        Dim sr As System.IO.StreamReader
+        If My.Computer.FileSystem.FileExists(Console.CurrentDirectory & "\" & filename) Then
+            Dim fileext As New IO.FileInfo(Console.CurrentDirectory & "\" & filename)
+            If fileext.Extension = ".scr" Then
+                sr = My.Computer.FileSystem.OpenTextFileReader(Console.CurrentDirectory & "\" & filename)
+                Dim linenum As Integer = IO.File.ReadAllLines(Console.CurrentDirectory & "\" & filename).Length
+                Dim i As Integer = 1
+                While i <= linenum
+                    command = sr.ReadLine()
+                    Console.DoCommand()
+                    NewLine(Nothing)
+                    i = i + 1
+                End While
+                sr.Close()
+            Else
+
+            End If
+        End If
+    End Sub
+End Module