Skip to content

Instantly share code, notes, and snippets.

View kevsmith's full-sized avatar

Kevin Smith kevsmith

178 followers · 7 following
View GitHub Profile
@kevsmith
kevsmith / gist:20194
Created October 27, 2008 21:22
-module(bulletin_board_webapp).
-behaviour(merl_webapp).
-include_lib("merl/include/merl.hrl").
-export([get_mode/1, build_app_definition/0]).
get_mode(_) ->
development.
@kevsmith
kevsmith / test.erl
Created November 5, 2008 18:28
-module(test).
-export([add/2]).
-compile([native]).
add(X, Y) when is_number(X), is_number(Y) ->
X + Y.
@kevsmith
kevsmith / example1.erl
Created November 20, 2008 12:35
-module(example1).
-export([init/0, find_by_field/2, undefined_function/2]).
-author("kevin@hypotheticalabs.com").
init() ->
code:ensure_loaded(function_missing),
process_flag(error_handler, function_missing),
ok.
@kevsmith
kevsmith / gist:28189
Created November 23, 2008 20:14
This template:
%html
%body[{class, "normal"}]
#message
Hello, world!
renders this output:
<html>
<body class="normal">
<div id="message">
@kevsmith
kevsmith / gist:35339
Created December 12, 2008 23:36
#main
%span#message
%table
%tr
%td
Hello, world
%td
This is a test.
@kevsmith
kevsmith / gist:55274
Created January 30, 2009 21:41
-module(node_mgr).
-behaviour(gen_server).
%% API
-export([start_link/0, register/1, next_worker/0]).
-define(SERVER, ?MODULE).
%% gen_server callbacks
@kevsmith
kevsmith / gist:61214
Created February 10, 2009 03:33
handle_call({insert, Value}, _From, State) ->
NextNodePid = node_manager:next_node(?METHOD),
NextDbPid = db_node:next_db(NextNodePid, ?METHOD),
db:insert(Value).
@kevsmith
kevsmith / gist:61221
Created February 10, 2009 03:43 — forked from boorad/gist:61216
handle_call({insert, Value}, _From, State) ->
NextNode = node_manager:next_node(?METHOD),
NextDb = db_manager:next_db_node(NextNode),
db_node:insert_value(Value),
------
On the db_manager module:
next_db_node(DbManagerPid) ->
gen_server:call(DbManagerPid, {next_db, ?METHOD}).
@kevsmith
kevsmith / gist:84265
Created March 24, 2009 18:00
=ERROR REPORT==== 24-Mar-2009::13:55:19 ===
** Generic server kw2000_agent terminating
** Last message in was {space,write,
{vci_channel,
sessionCD2C8AD4FAB6BBCF90FD8CF6BA031986D5DC36DD,
0,6}}
** When Server state == {state,1,undefined,[]}
** Reason for termination ==
** {{aborted,{no_exists,[ecu_to_bus,{ecu_to_bus,4,'_','_','_','_'}]}},
{gen_server,call,
@kevsmith
kevsmith / iconv_t_001.erl
Created May 26, 2009 19:37
-module(iconv_t_001).
-export([start/0]).
start() ->
etap:plan(1),
etap:ok(application:start(baberl), "Start baberl app"),
etap:ok(application:stop(baberl), "Stop baberl app"),
etap:end_tests().