Skip to content

Instantly share code, notes, and snippets.

View joelreymont's full-sized avatar

Joel Reymont joelreymont

View GitHub Profile
%%%% Copyright (C) 2005-2008 Wager Labs, SA
%%%%
%%%% THE WORK (AS DEFINED BELOW) IS PROVIDED UNDER THE TERMS OF THIS
%%%% CREATIVE COMMONS PUBLIC LICENSE ("CCPL" OR "LICENSE"). THE WORK IS
%%%% PROTECTED BY COPYRIGHT AND/OR OTHER APPLICABLE LAW. ANY USE OF
%%%% THE WORK OTHER THAN AS AUTHORIZED UNDER THIS LICENSE OR COPYRIGHT
%%%% LAW IS PROHIBITED.
%%%%
%%%% BY EXERCISING ANY RIGHTS TO THE WORK PROVIDED HERE, YOU ACCEPT
%%%% AND AGREE TO BE BOUND BY THE TERMS OF THIS LICENSE. TO THE EXTENT
@joelreymont
joelreymont / 0001-fast-track-the-case-where-executable-name-matches-ma.patch
Created May 27, 2011 07:09
Avoid copying and invoke ocamlbuild once for all targets where executable name matches MainIs
From 618b4efb183fcd49256b43e04ef9e07fa67dcce6 Mon Sep 17 00:00:00 2001
From: Joel Reymont <[email protected]>
Date: Fri, 27 May 2011 09:07:29 +0200
Subject: [PATCH] fast-track the case where executable name matches main, avoid copying
---
src/base/BaseBuilt.ml | 9 ++++++++-
src/plugins/ocamlbuild/OCamlbuildPlugin.ml | 2 +-
2 files changed, 9 insertions(+), 2 deletions(-)
module Socket :
sig
type 'a t
type 'a kind
val pair : [>`Pair] kind
val pub : [>`Pub] kind
val sub : [>`Sub] kind
val req : [>`Req] kind
val rep : [>`Rep] kind
@joelreymont
joelreymont / blackberry pluses and minuses.md
Created April 5, 2011 20:30
My critique of the BlackBerry Bold 9780

On the plus side:

Warm plastic, comfortable to hold, no sharp edges.

MicroUSB connector. A single cable to share with the Kindle, etc.

Awesome ringtones!

LED and BlackberryBuzz that allows you to configure the LED color and sequence for various app and system events.

[INFO] (tests/bstr_tests.c:3585) . bassigncstr (b = 0x1001000a0[p]:"xxxxx", "")
[INFO] (tests/bstr_tests.c:3585) . bassigncstr (b = 0x1001000a0[p]:"xxxxx", "bogus")
[INFO] (tests/bstr_tests.c:3585) . bassigncstr (b = 0x1001000a0[p]:"xxxxx", "This is a bogus but reasonably long string. Just long enough to cause some mallocing.")
[INFO] (src/server.c:166) Starting 0MQ with 1 threads.
[INFO] (src/request.c:56) MAX limits.header_count=1280
[INFO] (src/connection.c:684) MAX limits.content_length=20480, limits.buffer_size=4096, limits.connection_stack_size=32768, limits.client_read_retries=5
[INFO] (src/connection.c:690) MAX limits.proxy_read_retries=100, limits.proxy_read_retry_warn=10
[INFO] (src/handler.c:314) MAX limits.handler_stack=102400
[INFO] (src/config/config.c:92) Loaded handler 1 with send_spec=tcp://127.0.0.1:9999 send_ident=54c6755b-9628-40a4-9a2d-cc82a816345e recv_spec=tcp://127.0.0.1:9998 recv_ident=
[INFO] (src/config/config.c:92) Loaded handler 2 with send_spec=tcp://127.0.0.1:9997 send_ident=54
We couldn’t find that file to show.
struct Foo
{
1: string foo
}
struct Bar
{
1: i32 bar
}
@joelreymont
joelreymont / 0001-update-for-ocaml-3.12.patch
Created January 5, 2011 11:59
This patch updates the OCaml portion of the SWIG trunk (2.0.2) to work with OCaml 3.12
From b44f800bb40aa94b1c013f32b629ba989dc52e4a Mon Sep 17 00:00:00 2001
From: wagerlabs <[email protected]>
Date: Tue, 4 Jan 2011 17:57:36 +0000
Subject: [PATCH] update for ocaml 3.12
---
trunk/Examples/Makefile.in | 14 +-
trunk/Examples/ocaml/argout_ref/example.i | 4 +
trunk/Examples/ocaml/std_string/README | 6 +
trunk/Examples/ocaml/strings_test/example.h | 18 ++-
#include <tr1/memory>
#include <iostream>
#include <vector>
#include <Block.h>
#include <dispatch/dispatch.h>
class Data
{
public:
-module(pickle).
-export([pickle/2, unpickle/2, test/0]).
-export([bool/0, byte/0, short/0, sshort/0,
int/0, sint/0, long/0, slong/0]).
-export([list/2, enum/2, choice/2, optional/1,
wrap/2, wrap_enum/1, tuple/1, record/2,
binary/1, wstring/0]).
-compile([export_all]).