Skip to content

Instantly share code, notes, and snippets.

View ghisguth's full-sized avatar

Alexander Fedora ghisguth

  • Microsoft
  • Issaquah, WA
View GitHub Profile
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file has been truncated, but you can view the full file.
{"floorplan":{"bmp":"","bnds":{"x":"0","y":"-47.69","w":"2951.107","h":"1660.531"},"lyrs":[{"n":"RM","r":"0","g":"255","b":"255"},{"n":"RM$","r":"0","g":"0","b":"255"},{"n":"GROS$","r":"255","g":"0","b":"0"},{"n":"P-FIXT-EXST","r":"102","g":"153","b":"204"},{"n":"A-CASE-EXST","r":"153","g":"102","b":"204"},{"n":"S-COLS-EXST","r":"255","g":"255","b":"127"},{"n":"A-GLAZ-SHEL-EXST","r":"0","g":"127","b":"255"},{"n":"A-GLAZ-SHEL-SILL-EXST","r":"102","g":"153","b":"204"},{"n":"A-WALL-CORE-EXST","r":"255","g":"255","b":"255"},{"n":"A-DOOR-CORE-EXST","r":"0","g":"0","b":"255"},{"n":"A-FLOR-CORE-STRS-EXST","r":"173","g":"173","b":"173"},{"n":"A-FLOR-CORE-EVTR-EXST","r":"173","g":"173","b":"173"},{"n":"A-WALL-CORE-HEAD-EXST","r":"102","g":"153","b":"204"},{"n":"A-WALL-EXST","r":"255","g":"255","b":"255"},{"n":"A-WALL-HEAD-EXST","r":"102","g":"153","b":"204"},{"n":"A-DOOR-EXST","r":"0","g":"0","b":"255"},{"n":"A-GLAZ-EXST","r":"0","g":"127","b":"255"},{"n":"A-EQPM-EXST","r":"204","g":"102","b":"153"},{"n":"A-WALL-PRHT-
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
(defun encode(input)
(defun enc(out cur cnt inp)
(defun flush() (cons cnt (cons cur out)))
(cond
((null inp) (if (null cur) out (flush)))
((null cur) (enc out (car inp) 1 (cdr inp)))
((eq cur (car inp)) (enc out cur (+ cnt 1) (cdr inp)))
(t (enc (flush) (car inp) 1 (cdr inp)))))
(nreverse (enc '() '() '() input)))
#include <string>
#include <cstdio>
#include <cstdlib>
#include <iostream>
#include <vector>
#include <sys/mman.h>
#include <unistd.h>
int main(int argc, char** argv)
-- NOTE: Optimized to be fast at simple value indexing.
-- Slower on initialization and on table value fetching.
-- WARNING: This does not protect userdata.
treadonly = nil
do
local newindex = function()
error("attempted to change read-only table")
end
treadonly = function(value, with_tostring, callbacks, disable_nil)
#!/usr/bin/env sh
GG_ROOT=$PWD/info
GGDEB_ROOT=$PWD/deb
GGDEB_DEBIAN=$GGDEB_ROOT/DEBIAN
GGDEB_CONTROL=$GGDEB_DEBIAN/control
GGDEB_SERVER=$GGDEB_ROOT/opt/infoportal
GGDEB_ETC=$GGDEB_ROOT/etc/seduction
if [ -e $GGDEB_OUT ]; then
#!/usr/bin/env sh
GG_ROOT=$PWD
GGDEB_ROOT=$PWD/build/deb
GGDEB_DEBIAN=$GGDEB_ROOT/DEBIAN
GGDEB_CONTROL=$GGDEB_DEBIAN/control
GGDEB_CONFFILES=$GGDEB_DEBIAN/conffiles
GGDEB_SERVER=$GGDEB_ROOT/opt/server
GGDEB_ETC=$GGDEB_ROOT/etc/seduction