alecchen

#!/usr/bin/env perl

use strict;
use warnings;

my $input = $ARGV[0];
my $index = 0;

open INPUT, "<$input"
    or die "can't open $input for reading: $!\n";

alecchen

diff --git a/dlls/kernel32/sync.c b/dlls/kernel32/sync.c
index 5b7f810..c8a46c8 100644
--- a/dlls/kernel32/sync.c
+++ b/dlls/kernel32/sync.c
@@ -456,7 +456,7 @@ HANDLE WINAPI DECLSPEC_HOTPATCH CreateEventExA( SECURITY_ATTRIBUTES *sa, LPCSTR
 /***********************************************************************
  *           CreateEventExW    (KERNEL32.@)
  */
-HANDLE WINAPI DECLSPEC_HOTPATCH CreateEventExW( SECURITY_ATTRIBUTES *sa, LPCWSTR name, DWORD flags, DWORD access )
+HANDLE WINAPI __attribute__((optimize("-O0"))) DECLSPEC_HOTPATCH CreateEventExW( SECURITY_ATTRIBUTES *sa, LPCWSTR name, DWORD flags, DWORD access )

alecchen

DIR=/System/Library/CoreServices/Dock.app/Contents/Resources
PICS=trash*.png
PICS_BAK=bak

install:
	mkdir -p $(PICS_BAK)
	cp -f $(DIR)/$(PICS) $(PICS_BAK)
	sudo cp $(PICS) $(DIR)
	sudo killall Dock
    

alecchen

all:
	$(CXX) test.cc
clean:
	rm -f a.out *.o

alecchen

/* @pjs font="led.ttf"; */
/* @pjs preload="bg_img.jpg"; */
/* @pjs preload="title.png"; */
/* @pjs preload="blood.png"; */
/* @pjs preload="twitter.png"; */
/* @pjs preload="facebook.png"; */

Minim maxim;
AudioPlayer attack_titan;
AudioPlayer attack_user;

alecchen

1. Twitter Web Intents
2. Facebook Share Dialog
3. HTML URL Encoding Reference
4. Add a link in processing
5. Icons
   • http://www.iconarchive.com/show/web-2-icons-by-fasticon/Twitter-icon.html
   • http://www.iconarchive.com/show/web-2-icons-by-fasticon/FaceBook-icon.html
6. YouTube Player API Reference for iframe Embeds
7. Maxim library
8. processingjs.org (/* @pjs font */ directive)

alecchen

Books

• http://www.amazon.com/books/dp/1590597664 (my favorite one)
• http://www.amazon.com/Ruby-Programming-Language-David-Flanagan/dp/0596516177/ref=pd_sim_b_3
• http://www.amazon.com/books/dp/1934356085

Online Courses

• http://tryruby.org
• http://www.codecademy.com/tracks/ruby

alecchen

use Test::More qw(no_plan);
use Test::Differences::Color;

eq_or_diff('same text', 'same text', 'test description');

my @array1 = qw(
    foo
    bar
);

alecchen

#!/usr/bin/env perl

package Geometry::Primitive::Triangle;

use Moose;
use Geometry::Primitive::Point;
extends 'Geometry::Primitive::Polygon';

has 'origin' => (
    is => 'rw',

alecchen

foo('bar', 100)

sub foo {
    # $first = 'bar'
    my $first = shift;
    my $first = shift @_;
    my $first = $_[0];
    my ($first) = @_;

    # $first = 'bar', $second = 100;