Add more escape sequences

For Details see https://www.lua.org/pil/2.4.html
dan200 · Sep 21, 2017 · 19635ba · 19635ba
1 parent 1c8480a
commit 19635ba
Showing 1 changed file with 35 additions and 1 deletion.
diff --git a/src/main/resources/assets/computercraft/lua/bios.lua b/src/main/resources/assets/computercraft/lua/bios.lua
@@ -242,7 +242,41 @@ function write( sText )
             sText = string.sub( sText, 2 )
         end
 
-        local text = string.match( sText, "^[^ \t\n]+" )
+        local verticaltab = string.match( sText, "^\v" ) or string.match( sText, "^\f" )
+        if verticaltab then
+            -- Print Vertical Tab or Formfeed
+            local oldx = term.getCursorPos()
+            newLine()
+            term.setCursorPos( oldx, y )
+            sText = string.sub( sText, 2 )
+            x,y = term.getCursorPos()
+        end
+
+        local backspace = string.match( sText, "^\b" )
+        if backspace then
+            -- Print Backspace
+            if x ~= 1 then
+                term.setCursorPos( x-1, y )
+                x,y = term.getCursorPos()
+            end
+            sText = string.sub( sText, 2 )
+        end
+
+        local carriagereturn = string.match( sText, "^\r" )
+        if carriagereturn then
+            -- Print Carriage return
+            term.setCursorPos( 1, y )
+            x = 1
+            sText = string.sub( sText, 2 )
+        end
+
+        local bell = string.match( sText, "^\a" )
+        if bell then
+            --\a is in the list of escape but do nothing
+            sText = string.sub( sText, 2 )
+        end
+
+        local text = string.match( sText, "^[^ \t\n\v\f\b\r\a]+" )
         if text then
             sText = string.sub( sText, string.len(text) + 1 )
             if string.len(text) > w then