API Unpack/Writing

--"random" api
for k, v in pairs(fs.list("rom/apis")) do
 setFenv(k, function() print(k) end)
end
--end api
--start program "useless"
os.loadAPI("random")
random.math()
--end program

>random --*enter*
math
>_

local f = {}
for k, v in pairs( fs.list( "rom/apis" ) ) do
 f[k] = function() print(k) end
end
setmetatable(f, {__index = _G}
setfenv(f)

local apis = {}
for k, v in pairs( fs.list( "rom/apis" ) )
 apis[v] = print( v )
end

MKlegoman357, on 13 May 2014 - 10:12 PM said:

So you want your API to have all native-CC pure-Lua APIs inside your API? And if so, why?

local function createWireless( api )
	local wireless = { }
	for k, v in pairs( api ) do
		wireless[ k ] = function( self, ... )
			modem.transmit( self.ca, self.cb, { type = tostring( api ), method = k, args = { ... } } )
			local event
			repeat
				event = { os.pullEvent() }
			until event[ 5 ].type == tostring( api )
			return unpack( event )
		end
	end
	return wireless
end

local apis = { }
local tApis = fs.list( "rom/apis" )

for n,sFile in ipairs( tApis ) do
    if string.sub( sFile, 1, 1 ) ~= "." then
        local sPath = fs.combine( "rom/apis", sFile )
        if not fs.isDir( sPath ) then
            apis[ sPath ] = sPath
        end
    end
end

if not turtle then
	apis[ "turtle" ] = {
	craft = "craft",
	forward = "forward",
	back = "back",
	up = "up",
	down = "down",
	turnLeft = "turnLeft",
	turnRight = "turnRight",
	select = "select",
	getSelectedSlot = "getSelectedSlot",
	getItemSpace = "getItemSpace",
	equipLeft = "equipLeft",
	equipRight = "equipRight",
	attack = "attack",
	attackUp = "attackUp",
	dig = "dig",
	digUp = "digUp",
	digDown = "digDown",
	place = "place",
	placeUp = "placeUp",
	placeDown = "placeDown",
	detect = "detect",
	detectUp = "detectUp",
	detectDown = "detectDown",
	compare = "compare",
	compareUp = "compareUp",
	compareDown = "compareDown",
	compareTo = "compareTo",
	drop = "drop",
	dropUp = "dropUp",
	dropDown = "dropDown",
	suck = "suckdown",
	refuel = "refuel",
	getFuelLevel = "getFuelLevel",
	getFuelLimit = "getFuelLimit",
	transferTo = "transferTo",
	}
end
apis.peripheral = nil

for k, v in pairs( apis ) do
	if type( k ) == "string" and type( v ) == "table" then
		function k ( ca, cb )
			local per = createWireless( v )
			local tbl = {
			ca = ca,
			cb = cb,
			}
			setmetatable( tbl, { __index = per } )
			return tbl
		end
	end
end

function wrap()
	return apis
end

--[[  Example of usage:

wc = wc.wrap()
turtle = wc.turtle( 204, 204 )
turtle.forward()

]]

local API = _G[APIname]

for k,v in pairs(_G) do
  if type(v) == "table" then
    --k is an API name
  end
end

KingofGamesYami, on 13 May 2014 - 10:48 PM said:

MKlegoman357, on 13 May 2014 - 10:12 PM said:

So you want your API to have all native-CC pure-Lua APIs inside your API? And if so, why?

Yeah, exactly. I am updating wireless peripherals to control anything you want. Obviously stuff like colors and colours will never be used, but I want to reduce file size as much as possible. Also it's just an interesting concept, an api that builds itself…

Spoiler

local function createWireless( api )
	local wireless = { }
	for k, v in pairs( api ) do
		wireless[ k ] = function( self, ... )
			modem.transmit( self.ca, self.cb, { type = tostring( api ), method = k, args = { ... } } )
			local event
			repeat
				event = { os.pullEvent() }
			until event[ 5 ].type == tostring( api )
			return unpack( event )
		end
	end
	return wireless
end

local apis = { }
local tApis = fs.list( "rom/apis" )

for n,sFile in ipairs( tApis ) do
    if string.sub( sFile, 1, 1 ) ~= "." then
        local sPath = fs.combine( "rom/apis", sFile )
        if not fs.isDir( sPath ) then
            apis[ sPath ] = sPath
        end
    end
end

if not turtle then
	apis[ "turtle" ] = {
	craft = "craft",
	forward = "forward",
	back = "back",
	up = "up",
	down = "down",
	turnLeft = "turnLeft",
	turnRight = "turnRight",
	select = "select",
	getSelectedSlot = "getSelectedSlot",
	getItemSpace = "getItemSpace",
	equipLeft = "equipLeft",
	equipRight = "equipRight",
	attack = "attack",
	attackUp = "attackUp",
	dig = "dig",
	digUp = "digUp",
	digDown = "digDown",
	place = "place",
	placeUp = "placeUp",
	placeDown = "placeDown",
	detect = "detect",
	detectUp = "detectUp",
	detectDown = "detectDown",
	compare = "compare",
	compareUp = "compareUp",
	compareDown = "compareDown",
	compareTo = "compareTo",
	drop = "drop",
	dropUp = "dropUp",
	dropDown = "dropDown",
	suck = "suckdown",
	refuel = "refuel",
	getFuelLevel = "getFuelLevel",
	getFuelLimit = "getFuelLimit",
	transferTo = "transferTo",
	}
end
apis.peripheral = nil

for k, v in pairs( apis ) do
	if type( k ) == "string" and type( v ) == "table" then
		function k ( ca, cb )
			local per = createWireless( v )
			local tbl = {
			ca = ca,
			cb = cb,
			}
			setmetatable( tbl, { __index = per } )
			return tbl
		end
	end
end

function wrap()
	return apis
end

--[[  Example of usage:

wc = wc.wrap()
turtle = wc.turtle( 204, 204 )
turtle.forward()

]]

CometWolf, on 14 May 2014 - 12:21 AM said:

gotta get creative.

for k,v in pairs(_G) do
  if type(v) == "table" then
    --k is an API name
  end
end

local oldLoad = os.loadAPI
function os.loadAPI(apiname)
  oldLoad(apiname)
  NAME_OF_API = apiname -- make a global var with the name of the api
end

-- Just have the user do this at the top of their code
function os.loadAPI(apiname) oldLoad(apiname) NAME_OF_API = apiname end

awsmazinggenius, on 14 May 2014 - 03:47 AM said:

Why not hook into os.loadAPI()?

local oldLoad = os.loadAPI
function os.loadAPI(apiname)
  oldLoad(apiname)
  NAME_OF_API = apiname -- make a global var with the name of the api
end

-- Just have the user do this at the top of their code
function os.loadAPI(apiname) oldLoad(apiname) NAME_OF_API = apiname end

return function() oldLoad(NAME_OF_API) end

-- API file
function init()
  dostring("code that makes a table containing your api code. you now know what the table for your API is called"
end
-- Program
os.loadAPI("someobscurefile")
someobscurefile.init()
Good_API_Name.someFunction()

CometWolf, on 13 May 2014 - 11:04 PM said:

just passing your function the name of the API is enough.

local API = _G[APIname]

CometWolf, on 14 May 2014 - 05:54 AM said:

Why do you need to know the name though?

CometWolf, on 14 May 2014 - 02:27 PM said:

Why would you need to access your own API, from within itself?

for k, v in pairs( table_of_apis ) do
 function v(...) --rest of stuff
 end
end

for k, v in pairs( table_of_apis ) do
 v = function(...) --rest of stuff
 end
end

CometWolf, on 14 May 2014 - 12:21 AM said:

gotta get creative.

for k,v in pairs(_G) do
  if type(v) == "table" then
	--k is an API name
  end
end

local env = getfenv() --api environment
for k,v in pairs(_G) do
  if type(v) == "table" then --keep in mind that _G has more than just APIs
    env[k] = function(...)
	  --function
    end
  end
end

CometWolf, on 14 May 2014 - 10:36 PM said:

Note that i said "k is an API name" meaning you'd have to use that.

CometWolf, on 14 May 2014 - 12:21 AM said:

gotta get creative.

for k,v in pairs(_G) do
  if type(v) == "table" then
	--k is an API name
  end
end

local env = getfenv() --api environment
for k,v in pairs(_G) do
  if type(v) == "table" then --keep in mind that _G has more than just APIs
    env[k] = function(...)
	  --function
    end
  end
end

You still didn't answer why you needed the filename of your own API though.

local API = _G[APIname]

apis = fs.list( "rom/apis" )
if not fs.isDir( apis[k] ) and k:sub(1, 1) ~= "." then
 --it's an api
end

KingofGamesYami, on 14 May 2014 - 10:43 PM said:

I was stating code I had previously tried, before posting this topic. I need the name of my api to put in

local API = _G[APIname]

unless I misunderstand what exactly this is doing.

local API = getfenv()

KingofGamesYami, on 14 May 2014 - 10:43 PM said:

Also, to get apis, since I only need the default ones… I use this:

apis = fs.list( "rom/apis" )
if not fs.isDir( apis[k] ) and k:sub(1, 1) ~= "." then
--it's an api
end

which I pulled from the actual computercraft files.

CometWolf, on 14 May 2014 - 10:56 PM said:

-snip-

local id,message = rednet.receive()
rednet.send(id,loadstring(message)())