Improved performance

.gitattributes

@@ -0,0 +1,3 @@
+*.lua -crlf
+*.h -crlf
+*.c -crlf

Makefile

@@ -1,5 +1,9 @@
+# TARGET=arm-none-eabi
+
+#CC=$(TARGET)-gcc
 CC=gcc
-CFLAGS=-g -std=gnu99 -Isrc/lib/lua -Iinclude
+
+CFLAGS=-O2 -std=gnu99 -Isrc/lib/lua -Iinclude
 
 BUILD = bin/
 SOURCE = src/c/
@@ -22,14 +26,9 @@ OBJECTS :=	$(patsubst $(SOURCE)%.c, $(BUILD)%.c.o, $(CFILES))
 $(BUILDDIRECTORIES):
 	mkdir -p $@
 
-#Clean
-
 #Build
 all: smallclean $(BUILDDIRECTORIES) luaresources $(BUILD)lupi
 
-smallclean:
-	find . -name '*~' -type f -exec rm {} \;
-
 build: clean all
 
 $(BUILD)lupi: $(OBJECTS)
@@ -51,3 +50,10 @@ cleanresourcues:
 
 clean: cleanresourcues
 	-rm -rf $(BUILD)
+
+smallclean:
+	find . -name '*~' -type f -exec rm {} \;
+
+# Other
+
+.PHONY: clean cleanresourcues luaresources build smallclean all

src/lua/core/computer.lua

@@ -157,4 +157,8 @@ function api.totalMemory()
   return native.totalMemory()
 end
 
+function api.shutdown()
+  os.exit(0)
+end
+
 return computer

src/lua/core/textgpu.lua

@@ -17,6 +17,7 @@ io.write = function(...)
   io.flush()
   native.sleep(20000)
 end]]--
+
 local write = io.write
 local flush = io.flush
 

src/lua/core/utf8/utf8.lua

@@ -55,6 +55,7 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 --
 
 local strbyte, strlen, strsub, type = string.byte, string.len, string.sub, type
+local lutf8 = utf8
 local utf8 = {}
 
 -- returns the number of bytes used by the UTF-8 character at byte i in s
@@ -230,7 +231,27 @@ local function utf8sub(s, i, j)
 	return strsub(s, startByte, endByte)
 end
 
-utf8.sub = utf8sub
+function utf8.sub(s,i,j)
+  i = i or 1
+  j = j or math.maxinteger
+  if i<1 or j<1 then
+  	local n = lutf8.len(s)
+  	if not n then return nil end
+  	if i<0 then i = n+1+i end
+  	if j<0 then j = n+1+j end
+  	if i<0 then i = 1 elseif i>n then i = n end
+  	if j<0 then j = 1 elseif j>n then j = n end
+  end
+  if j<i then return "" end
+  i = lutf8.offset(s,i) or math.maxinteger
+  j = lutf8.offset(s,j+1) or math.maxinteger
+  if i and j then return s:sub(i,j-1)
+  	elseif i then return s:sub(i)
+  	else return ""
+  end
+end
+
+--utf8.sub = utf8sub
 
 -- replace UTF-8 characters based on a mapping table
 local function utf8replace(s, mapping)