bkerley

diff --git a/Bundles/Ragel.tmbundle/Syntaxes/Ruby Ragel.tmLanguage b/Bundles/Ragel.tmbundle/Syntaxes/Ruby Ragel.tmLanguage
new file mode 100644
index 0000000..b0ea381
--- /dev/null
+++ b/Bundles/Ragel.tmbundle/Syntaxes/Ruby Ragel.tmLanguage	
@@ -0,0 +1,564 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>

bkerley

 80480ac:       31 c0                   xor    %eax,%eax
 80480ae:       50                      push   %eax
 80480af:       68 2f 62 6d 6b          push   $0x6b6d622f
 80480b4:       68 2f 74 6d 70          push   $0x706d742f
 80480b9:       89 e0                   mov    %esp,%eax
 80480bb:       bb ff ff 09 02          mov    $0x209ffff,%ebx
 80480c0:       c1 eb 10                shr    $0x10,%ebx
 80480c3:       53                      push   %ebx
 80480c4:       50                      push   %eax
 80480c5:       50                      push   %eax

bkerley

dispatch "+"
{
	asm (
		"xor	%%rax, %%rax\n\t"
		"call	_stack_pop\n\t"
		"push	%%rax\n\t"
		"xor	%%rax, %%rax\n\t"
		"call	_stack_pop\n\t"
		"pop	%%rbx\n\t"
		"add	%%rax, %%rbx\n\t"

bkerley

proc stock symbol {
	set html [unescape_html_entities [wget http://finance.google.com/finance?q=$symbol]];
	set cn [html [strip_html [lindex  [regexp -all -inline {_companyName = '(.*?)'} $html] 1]]];
	set curr [html [strip_html [lindex [regexp -all -inline {<span class="pr".*?>(.*?)<} $html] 1]]];
	set chr [regexp -all -inline {<span class="ch[rg]".*?>(.*?)<} $html];
	if {[lindex $chr 1] < 0} {set col red} else {set col green};
	. "[bold]$curr[bold][color $col on white][html [strip_html [lindex $chr 1]]] [html [strip_html [lindex $chr 3]]][color] [color blue on white]$cn[color]"}

bkerley

-DOINK DOINK- BRISCOE
motive is "Hello world!"               #motive = "Hello World"
evidence is 100                        #evidence = 100
give motive, evidence                  #return [motive, evidence]

-DOINK DOINK- CRAGEN
desk work                              #nop
BRISCOE give me motive, evidence       #[motive, evidence] = briscoe()
case is motive, evidence               #case = [motive, evidence]
MCCOY here is case                     #mccoy(case)

bkerley

draw {0000001110000000000000000000000000000000111111110000011111111 0000000111100000000000000000000000000000111111110000011111111 0000000011111000000000000000000000000000111111110000011111111 0000000001111100000000000000000000000000111111110000011111111 0000000000111111000000000000000000000000111111110000011111111 1110000000011111111100000000000000000000111111110000011111111 0111100000001111111100000000000000000000111111110000011111111 0011110000000111111000000000000000000000111111110000011111111 0111111111111111111111111111111000000000111111110000011111111 1111111111111111111111111111111110000000111111110000011111111 0111111111111111111111111111111000000000111111110000011111111 0011110000000111111000000000000000000000111111110000011111111 0111100000001111111100000000000000000000111111110000011111111 1110000000011111111100000000000000000000111111110000011111111 0000000000111111000000000000000000000000111111110000011111111 0000000001111100000000000000000000000000111111110000011111111 00000000111110000000000000

bkerley

#!/usr/bin/env ruby
file = File.read(ARGV[0])

file.gsub!(' ','0')
mangled = file.split.join(' ')

coded = "draw {#{mangled}}"
puts coded

bkerley

draw {0000001110000000000000000000000000 0000000111100000000000000000000000 0000000011111000000000000000000000 0000000001111100000000000000000000 0000000000111111000000000000000000 1110000000011111111100000000000000 0111100000001111111100000000000000 0011110000000111111000000000000000 0111111111111111111111111111111000 1111111111111111111111111111111110 0111111111111111111111111111111000 0011110000000111111000000000000000 0111100000001111111100000000000000 1110000000011111111100000000000000 0000000000111111000000000000000000 0000000001111100000000000000000000 0000000011111000000000000000000000 0000000111100000000000000000000000 0000001110000000000000000000000000 0000000000000000000000000000000000}

bkerley

proc gc_distance {pos1 pos2} {
	set pi 3.1415926535
	set lat1 [deg2rad [lindex $pos1 0]]
	set lon1 [deg2rad [lindex $pos1 1]]
	set lat2 [deg2rad [lindex $pos2 0]]
	set lon2 [deg2rad [lindex $pos2 1]]
	set theta [expr $lon2 - $lon1]
	set dist [expr acos((sin($lat1) * sin($lat2)) + (cos($lat1) * cos($lat2) * cos($theta)))]
	if {$dist < 0} {
		set dist [expr $dist + $pi]

bkerley

proc lasttrack {{who {}}} {
	if {![cache exists last_track [nname $who]]} {
		return [track urmom 420]
	}
	apply track [cache get last_track [nname $who]]
}