mirror of
git://projects.qi-hardware.com/nn-usb-fpga.git
synced 2025-04-21 12:27:27 +03:00
Adding file-system
This commit is contained in:
12
sie_fs/root/scripts/lua/test/readonly.lua
Normal file
12
sie_fs/root/scripts/lua/test/readonly.lua
Normal file
@@ -0,0 +1,12 @@
|
||||
-- make global variables readonly
|
||||
|
||||
local f=function (t,i) error("cannot redefine global variable `"..i.."'",2) end
|
||||
local g={}
|
||||
local G=getfenv()
|
||||
setmetatable(g,{__index=G,__newindex=f})
|
||||
setfenv(1,g)
|
||||
|
||||
-- an example
|
||||
rawset(g,"x",3)
|
||||
x=2
|
||||
y=1 -- cannot redefine `y'
|
||||
Reference in New Issue
Block a user