Merge pull request #344 from Wilma456/othercheck

Add Checks to disk,gps,help and keys

src/main/resources/assets/computercraft/lua/rom/apis/disk.lua

@@ -1,5 +1,8 @@
 
 local function isDrive( name )
+    if type( name ) ~= "string" then
+        error( "bad argument #1 (expected string, got " .. type( name ) .. ")", 3 ) 
+    end
 	return peripheral.getType( name ) == "drive"
 end
 

src/main/resources/assets/computercraft/lua/rom/apis/gps.lua

@@ -56,6 +56,12 @@ local function narrow( p1, p2, fix )
 end
 
 function locate( _nTimeout, _bDebug )
+    if _nTimeout ~= nil and type( _nTimeout ) ~= "number" then
+        error( "bad argument #1 (expected number, got " .. type( _nTimeout ) .. ")", 2 ) 
+    end
+    if _bDebug ~= nil and type( _bDebug ) ~= "boolean" then
+        error( "bad argument #2 (expected boolean, got " .. type( _bDebug) .. ")", 2 ) 
+    end
     -- Let command computers use their magic fourth-wall-breaking special abilities
     if commands then
         return commands.getBlockPosition()

src/main/resources/assets/computercraft/lua/rom/apis/help.lua

@@ -6,10 +6,16 @@ function path()
 end
 
 function setPath( _sPath )
+    if type( _sPath ) ~= "string" then
+        error( "bad argument #1 (expected string, got " .. type( _sPath ) .. ")", 2 ) 
+    end
 	sPath = _sPath
 end
 
 function lookup( _sTopic )
+    if type( _sTopic ) ~= "string" then
+        error( "bad argument #1 (expected string, got " .. type( _sTopic ) .. ")", 2 ) 
+    end
  	-- Look on the path variable
     for sPath in string.gmatch(sPath, "[^:]+") do
     	sPath = fs.combine( sPath, _sTopic )
@@ -57,6 +63,9 @@ function topics()
 end
 
 function completeTopic( sText )
+    if type( sText ) ~= "string" then
+        error( "bad argument #1 (expected string, got " .. type( sText ) .. ")", 2 ) 
+    end
     local tTopics = topics()
     local tResults = {}
     for n=1,#tTopics do

src/main/resources/assets/computercraft/lua/rom/apis/keys.lua

@@ -55,5 +55,8 @@ end
 keys["return"] = keys.enter
 
 function getName( _nKey )
+    if type( _nKey ) ~= "number" then
+        error( "bad argument #1 (expected number, got " .. type( _nKey ) .. ")", 2 ) 
+    end
 	return tKeys[ _nKey ]
 end