Skip to content

Instantly share code, notes, and snippets.

View wilbowma's full-sized avatar

William J. Bowman wilbowma

View GitHub Profile
@wilbowma
wilbowma / PKGBUILD.txt
Created August 17, 2012 01:31 — forked from ThePixelDeveloper/PKGBUILD.txt
AUR - chromedriver
# Maintainer: grimsock <lord.grimsock at gmail dot com>
pkgname=chromedriver
pkgver=21.0.1180.4
pkgrel=1
pkgdesc="ChromeDriver is a standalone server which implements WebDriver's wire protocol"
arch=('i686' 'x86_64')
url="http://code.google.com/p/selenium/wiki/ChromeDriver"
license=('Apache')
depends=('chromium>=12.0.712.0' 'libpng12')
@wilbowma
wilbowma / jail.pl
Last active August 1, 2022 11:16
A perl script to create nginx chroot in arch linux.
#a/usr/bin/perl
# This script was hastily cobbled together for my own use. It can
# probably break your system. Use at your own risk.
$JAIL = "/srv/http";
$USER = "http";
$GROUP = "http";
$WWW_DIR = "www";
sub run{
@wilbowma
wilbowma / lmerge
Last active December 14, 2015 07:59 — forked from jrslepak/gist:5054161
A demonstration of a merging nonterminals in define-union-language
#lang racket
(provide LMerge)
(require redex/reduction-semantics
(only-in redex/private/matcher compiled-lang-lang))
(define-language LBase
(e (+ e e)
number))
@wilbowma
wilbowma / lcs.rkt
Last active December 14, 2015 08:48
A hierarchy of languages
#lang racket
(require redex/reduction-semantics)
(define-language lc/syntax
(x variable-not-otherwise-mentioned)
(v (lambda (x) e))
(e v x (e e)))
#lang racket/base
(current-library-collection-paths '("/usr/lib/racket/collects/"))
(require (file "/usr/lib/racket/collects/2htdp/image.rkt"))
(provide (except-out (all-from-out (file "/usr/lib/racket/collects/2htdp/image.rkt")) image?))
@wilbowma
wilbowma / pipe.py
Created March 7, 2014 18:06
minimal patch
# This allows us to launch Python and pygments once, and pipe to it
# continuously. Input format is:
#
# <lexer-name>
# <code>
# ...
# __END__
#
# OR
#
@wilbowma
wilbowma / hyperlink.scrbl
Created March 7, 2014 18:17
A minimal example of some bugs
@wilbowma
wilbowma / handin.service
Created March 19, 2014 14:13
CS2500 handin units
[Unit]
Description=CS2500 Handin server
Requires=network.target xvfb.service
After=network.target
[Service]
Type=simple
Environment="DISPLAY=:99"
WorkingDirectory=/home/bluephoenix47/cs2500-server/cs2500-server
User=bluephoenix47
#lang racket
(module+ test
(require racket/trace
rackunit)
(let ([x (current-output-port)])·
(current-trace-notify (lambda (s)
(display s x)
(newline x))))
(trace-define (verbose-fact x)
(define-syntax (trace-define stx)
(syntax-case stx ()
[(_ e ...)
(with-syntax ([name (syntax-local-infer-name stx)])
#'(begin (define e ...) (trace name)))]))