jcmoyer

Problem: You're using a msys2 / mingw gcc / gnat distribution and you're trying to debug Ada code, but you can't catch exceptions:

(gdb) catch exception
Your Ada runtime appears to be missing some debugging information.
Cannot insert Ada exception catchpoint in this configuration.

This is because the distribution installed via pacman is stripped by default.

jcmoyer

;
;  AngelScript CallX64 ported to nasm for use with clang on Windows
;
;  Based on the original implementation by Andreas Jonsson:
;
;  File:    sdk/angelscript/source/as_callfunc_x64_msvc_asm.asm
;
;  To use this file, compile with nasm and link it into AS or your program.
;  With cmake, use something like:
;

jcmoyer

#ifndef STASHING_REVERSE_ITERATOR_HPP
#define STASHING_REVERSE_ITERATOR_HPP

#include <iterator>

// This is an implementation of `std::reverse_iterator` that uses an auxiliary
// member to store the iterator obtained by calling `operator*`. The standard
// specifies that `reverse_iterator::operator*` has a const qualifier;
// therefore it must return a reference to a local copy of a decremented
// current iterator. If this reference points to data inside that local copy,

jcmoyer

-- taken from http://lua-users.org/wiki/StringTrim
local function trim(s)
  return s:match "^%s*(.-)%s*$"
end

-- creates a function from a lambda string
local function fun(text)
  -- divide the text into arg list and return body
  local a, r = text:match("(.-)->(.*)")

jcmoyer

--
-- dog
--
local dog = {}

function dog.new()
  return setmetatable({ name = 'dog' }, { __index = dog })
end
function dog:run()
  print("* " .. self.name .. " is running *")

jcmoyer

-- taken from http://lua-users.org/wiki/StringTrim
function trim(s)
  return s:match "^%s*(.-)%s*$"
end

-- creates a function from a lambda string
function fun(text)
  -- divide the text into arg list and return body
  local a, r = text:match("(.-)->(.*)")

jcmoyer

-- implements an option type as a tagged union

local option = {}
local mt = { __index = option }

local function isoption(t)
  return getmetatable(t) == mt
end

function option.some(a)

jcmoyer

-- shallowly clones an array table
function clone(t)
  local r = {}
  for i = 1, #t do
    r[#r + 1] = t[i]
  end
  return r
end

-- for any function 'f', the following is true: