Deco

local ffi = require"ffi"
jit.on()

ffi.cdef[[
    typedef int (*getval_func)();
    
    /* imagine these are C functions */
    typedef void (*sum_push_func)(int* total, getval_func getval);
    typedef void (*sum_pull_func)(int* total, int val);
]]

Deco

--[[ deepcopy.lua
    
    Deep-copy function for Lua - v0.2
    ==============================
      - Does not overflow the stack.
      - Maintains cyclic-references
      - Copies metatables
      - Maintains common upvalues between copied functions (for Lua 5.2 only)
    
    TODO

Deco

--[[ socketlanes.lua
    
    Multi-threaded LuaSocket with Lua Lanes example
    ===============================================
    
    Depends on the following LuaSocket 2.0.2 patch:
    http://www.net-core.org/dl/luasocket-2.0.2-acceptfd.patch
    (via http://www.net-core.org/39/lua/patching-luasocket-to-make-it-compatible)
    (provided at end of file)
    

Deco

pcall(require,"socket")

local coroutine_scheduler = {
    _NAME = "coroutine_scheduler.lua"
    _VERSION = "1.0.0",
}

local Scheduler
do Scheduler = setmetatable({}, {
        __call = function(class)

Deco

local OO = require"oo"

local _M = {}

do _M.Shape = OO.class({
        
    })
    function _M.Shape:__init()
        error("attempt to instantiate abstract shape")
    end

Deco

        #[allow(unused_imports)]
        use std::sync::Arc;
        #[allow(unused_imports)]
        use std::vec::IntoIter as VecIntoIter;

        #[allow(unused_imports)]
        use vulkano::device::Device;
        #[allow(unused_imports)]
        use vulkano::descriptor::descriptor::DescriptorDesc;

Deco

extern crate time;


#[derive(Debug, Clone)]
struct Vertex { position: [f32; 2], velocity: [f32; 2] }


fn main() {
    let mut arr = vec![ Vertex { position: [0.0, 0.0], velocity: [0.0, 0.0] }; 200000 ];

Deco

--[[  ]]

function SetLocal(func, name, value)
    local index = 1
    local foundIndex = nil
    while true do
        local n, v = debug.getupvalue(func, index)
        if not n then
            break
        end

Deco

local function contourPlot(func, lf, x, y, w, h, interval, offset, mindepth, maxdepth, dbg, depth, fvbr, fvbl, fvtl, fvtr)
    local wh, hh = w/2, h/2
    local v_c  =         func(x+wh, y+hh)+offset
    local v_br = fvbr or func(x+w , y+h )+offset
    local v_bl = fvbl or func(x   , y+h )+offset
    local v_tl = fvtl or func(x   , y   )+offset
    local v_tr = fvtr or func(x+w , y   )+offset
    
    local linelist, linecount, v = {}, 1

Deco

function debug.getparams(f)
    local co = coroutine.create(f)
    local params = {}
    debug.sethook(co, function(event, line)
        local i, k, v = 1, debug.getlocal(co, 2, 1)
        while k do
            if k ~= "(*temporary)" then
                table.insert(params, k)
            end
            i = i+1