sir-pinecone

(ns x.ratelimit
  (:require
   [taoensso.carmine :as car :refer [wcar]]
   [ring.util.response :as response]
   [ring.mock.request :as mock])
  (:import
   [java.util Calendar]))

;; Util ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

sir-pinecone

(defn lazy-file-lines [file]
  (try
    (letfn [(helper [rdr]
              (lazy-seq
                (if-let [line (.readLine rdr)]
                  (cons line (helper rdr))
                  (do (.close rdr) nil))))]
      (helper (clojure.java.io/reader file)))
    (catch Exception e nil)))

sir-pinecone

LIBRARY user32
EXPORTS
	UserGetPrecisionTouchPadConfiguration @2548
	UserSetPrecisionTouchPadConfiguration @2549

sir-pinecone

;; ======================================================================================
;; # Uses the Berkeley simple stk package for the `bf` and `se`.
;; ======================================================================================

(define (reduce-berk f start coll)
  (define (iter rest ret)
    (if (empty? rest)
      ret
      (iter (bf rest) (f ret (first rest)))))
  (iter coll start))

sir-pinecone

; Uses Berkeley's (sentence) helper - slow after 1-5k, but supports larger range than `range-se-recur`
(define (range-se-iter start end)
  (define (iter c ret)
    (if (= c end)
      ret
      (iter (+ c 1) (se ret c))))
  (iter start '()))

; Uses Berkeley's (sentence) helper - quite slow after 1-5k, seg faults around 1-15k
(define (range-se-recur start end)

sir-pinecone

;; outlet code for implementing traditional macro expansion

;; macros

(define (expand form)
  (cond
   ((variable? form) form)
   ((literal? form) form)
   ((macro? (car form))
    (expand ((macro-function (car form)) form)))

sir-pinecone

#ifndef AUGMENTED_C_GUARD
#define AUGMENTED_C_GUARD

#include <stddef.h>

typedef ptrdiff_t isize;

#define offset_of(Type, element)      ((isize)&(((Type *)0)->element))
#define JOIN2_IND(a, b)               a##b
#define JOIN2(a, b)                   JOIN2_IND(a, b)

sir-pinecone

#define BINKGL_LIST \
    /*  ret, name, params */ \
    GLE(void,      LinkProgram,             GLuint program) \
    GLE(void,      GetProgramiv,            GLuint program, GLenum pname, GLint *params) \
    GLE(GLuint,    CreateShader,            GLenum type) \
    GLE(void,      ShaderSource,            GLuint shader, GLsizei count, const GLchar* const *string, const GLint *length) \
    GLE(void,      CompileShader,           GLuint shader) \
    GLE(void,      GetShaderiv,             GLuint shader, GLenum pname, GLint *params) \
    GLE(void,      GetShaderInfoLog,        GLuint shader, GLsizei bufSize, GLsizei *length, GLchar *infoLog) \
    GLE(void,      DeleteShader,            GLuint shader) \

sir-pinecone

GPU Optimization for GameDev

By person

• Emil Persson @Humus
  • Blog
  • <2013> Low-Level Thinking in High-Level Shading Languages
  • <2014> Low-Level Shader Optimization for Next-Gen and DX11
  • <2018> Rule of optimization
• Matt Pettineo @mynameismjp

sir-pinecone

#!/usr/bin/env bash

# Stops the commit if the changes include the word `nocheckin`.

if which tput >/dev/null 2>&1; then
    ncolors=$(tput colors)
fi
if [ -t 1 ] && [ -n "$ncolors" ] && [ "$ncolors" -ge 8 ]; then
    RED="$(tput setaf 1)"
    GREEN="$(tput setaf 2)"