Allow pairs, ipairs, and next to work with read-only tables

Author: CogentRedTester

file-browser.lua

@@ -378,7 +378,7 @@ API.coroutine = {}
 local ABORT_ERROR = {
     msg = "browser is no longer waiting for list - aborting parse"
 }
-local newindex = function(t, k, v) error(("attempted to assign `%s` to key `%s` in read-only %s"):format(v, k, t), 2) end
+local readonly_newindex = function(t, k, v) error(("attempted to assign `%s` to key `%s` in read-only %s"):format(v, k, t), 2) end
 
 --implements table.pack if on lua 5.1
 if not table.pack then
@@ -730,7 +730,7 @@ do
         if references[t] then return references[t] end
 
         local ro = setmetatable({}, {
-            __newindex = newindex,
+            __newindex = readonly_newindex,
             mutable = t,
             __index = function(_, k)
                 return API.read_only( t[k] )
@@ -743,6 +743,19 @@ do
     end
 end
 
+--returns read-only references to all given values
+function API.read_only_values(...)
+    local vals = table.pack(...)
+    for i, v in ipairs(vals) do vals[i] = API.read_only(v) end
+    return table.unpack(vals)
+end
+
+--returns true if the given tale is read-only
+function API.is_read_only(t)
+    local mt = getmetatable(t)
+    return mt and mt.__newindex == readonly_newindex
+end
+
 
 
 --------------------------------------------------------------------------------------------------------
@@ -1042,7 +1055,7 @@ end
 --select all items in the list
 local function select_all()
     local selection = {}
-    for i,_ in ipairs(state.list) do
+    for i in ipairs(state.list) do
         selection[i] = true
     end