GE Lua Documentation

local function reg(conn)
   local mt = getmetatable(conn.sock).__index
   for name, method in pairs(mt) do

      conn.sock = try(socket.tcp())
      local st = getmetatable(conn.sock).__index.settimeout
      function conn:settimeout(...)

         try(self.sock:dohandshake())
         reg(self, getmetatable(self.sock))
         return 1

  prof_ud = newproxy(true)
  getmetatable(prof_ud).__gc = prof_finish
end

--		U.dump(v, '?? if_v:')
--		print(inspect(getmetatable(v)))
--		lo('?? if_v:'..v:getClassName())

      end
      countTableAppearances(getmetatable(t), tableAppearances)
    else

    local mt  = processRecursive(process, getmetatable(processed), makePath(path, inspect.METATABLE), visited)
    if type(mt) ~= 'table' then mt = nil end -- ignore not nil/table __metatable field

    local nonSequentialKeys, nonSequentialKeysLength, sequenceLength = getNonSequentialKeys(t)
    local mt                = getmetatable(t)

  prof_ud = newproxy(true)
  getmetatable(prof_ud).__gc = prof_finish
end

--			print('?? to_SER:'..serialize(m.obj))
			print(inspect(getmetatable(m.obj)))
--			print('??'..tostring(m.obj:getFields()))

  if not view then return view end
  return getmetatable(view) == Context and view or Context:new(view)
end

    self._value = default or nil
    local mt = getmetatable(self)
    mt.__index = function(tbl, key)

              -- Gather methods from the metatable, if any
              local mt = getmetatable(global_value)
              if mt then

          -- Check the metatable of global_value for class information
          local mt = getmetatable(global_value)
          if mt then

function setmode(t,mode)
    local mt = getmetatable(t) or {}
    if mt.__mode then

    function isbyteset (s)
        return getmetatable(s) == byteset_mt
    end

function isset (s)
    return (getmetatable(s) == set_mt)
end

local mm = m
local mt = getmetatable(mm.P(0))
local version = _VERSION

    local baseproxy = newproxy(true)
    pattmt = getmetatable(baseproxy)
    Builder.proxymt = pattmt

local
function LL_ispattern(pt) return getmetatable(pt) == pattmt end
LL.ispattern = LL_ispattern

        local prox2 = newproxy(prox)
        assert (type(getmetatable(prox)) == "table" 
                and (getmetatable(prox)) == (getmetatable(prox2)))

        assert (type(getmetatable(prox)) == "table" 
                and (getmetatable(prox)) == (getmetatable(prox2)))
    end),

        assert (type(getmetatable(prox)) == "table" 
                and (getmetatable(prox)) == (getmetatable(prox2)))
    end),

  prof_ud = newproxy(true)
  getmetatable(prof_ud).__gc = prof_finish
end

packers['userdata'] = function(udata) -- string.buffer
  if getmetatable(udata) == 'buffer' then
    packers['string'](udata)

    walkTable(hookLists, m, m)
    walkTable(hookLists, getmetatable(m), m)
  end

--getmetatable(_G).__index = MT.__index

    -- implement some LuaIntF types
    local ctype = getmetatable(data).___type
    ctype = string.match(ctype, "class<([^>]*)>")

  -- 1. deal with methods on the actual lua object: like get/set below
  if getmetatable(class_table)[memberName] then
    return getmetatable(class_table)[memberName]

  if getmetatable(class_table)[memberName] then
    return getmetatable(class_table)[memberName]
  end

  if memberName == 'findClassObjects' then
    return getmetatable(class_table).findClassObjects(memberName)
  end

  -- TODO: cache the object!
  return getmetatable(class_table).findObject(memberName)
end

  -- print('Creation object of class ' .. tostring(className) .. ' resulted in type ' .. tostring(getmetatable(obj).___type))

    if type(...) == "userdata" then
      local metatable = getmetatable(...)
      if metatable then

  end
  return setmetatable(new_table, getmetatable(object))
end

  end
  local mt = getmetatable(tbl)
  if mt then

      print("ForestBrushGroup")
      dump(getmetatable(var.forestBrushGroup))
    end

function __luaBindIndex(t, k)
  local mt = getmetatable(t)
  -- log('E', '', '  __index invoked on ' .. tostring(mt.___type))

function __luaBindIndexStatic(t, k)
  local mt = getmetatable(t)
  -- log('E', '', '  __index invoked on ' .. tostring(mt.___type))

function __luaBindNewindex(t, k, v)
  local mt = getmetatable(t)
  --log('E', '', '__newindex invoked on ' .. tostring(mt.___type))

    if not mt then
      --log('E', '', string.format("property '%s.%s' is not found or not writable: %s", getmetatable(t).___type, k, debug.traceback()))
      return

function __luaBindNewindexStatic(t, k, v)
  local mt = getmetatable(t)
  local origsetters = rawget(mt, 2) -- 2 = setters

    if not mt then
      --log('E', '', string.format("property '%s.%s' is not found or not writable: %s", getmetatable(t).___type, k, debug.traceback()))
      return

local function __simObjectIndex(obj, k)
  local mt = getmetatable(obj)

local function __simObjectNewIndex(obj, k, v)
  local mt = getmetatable(obj)
  local setFunc = rawget(rawget(mt, 2), k) -- 2 = setters