chinnurtb

% copied from Mochiweb's mochiweb_uitl.erl
-module(url_encoder).
-export([encode/1]).

-define(PERCENT, 37).  % $\%
-define(FULLSTOP, 46). % $\.
-define(IS_HEX(C), ((C >= $0 andalso C =< $9) orelse
                    (C >= $a andalso C =< $f) orelse
                    (C >= $A andalso C =< $F))).
-define(QS_SAFE(C), ((C >= $a andalso C =< $z) orelse

chinnurtb

-module(google_scrapper).

-compile(export_all).

-define(GOOGLE_URL, "http://www.google.co.uk/search?hl=en&btnG=Search&meta=&q=").

start() -> inets:start().

fetch_google_results(Q) ->
  % In case of redirect lets erlang take care of this for us

chinnurtb

#!/usr/bin/escript
%% -*- mode: erlang -*-

main(Files) ->

    NumWorkers = 3,

    Parent = self(),
    Workers = [spawn_link(fun() -> worker(Parent) end) || _ <- lists:seq(1, NumWorkers)],

chinnurtb

% connection supervisor
-module (connection_sup).
-behaviour (supervisor).
-export ([start_link/1, start_connection/0, init/1]).

start_link({Ip, Port, Options}) ->
  supervisor:start_link({local, ?MODULE}, ?MODULE, [Ip, Port, Options]).

start_connection () ->
  supervisor:start_child (?MODULE, []).

chinnurtb

-module(httpheaders_resource).
-export([init/1, to_html/2]).
-include_lib("webmachine/include/webmachine.hrl").

init([]) -> {ok, undefined}.

to_html(ReqData, Context) ->
     Headers = mochiweb_headers:to_list(wrq:req_headers(ReqData)),
     StringConvert = [{X,list_to_binary(Y)} || {X,Y} <- Headers],
     Output = mochijson2:encode({struct, StringConvert}),

chinnurtb

$ mkdir p1
$ cd p1/
$ rebar create-app appid=hotdo
$ ls
$ mkdir deps
$ touch rebar.config
$ # feeling rebar config file
$ wget -O rebar.config https://gist.github.com/kachayev/5657307/raw/fb9b0cd0d62e053efe54774bf2033e6e651c6622/hotdo.rebar.config
$ rebar get-deps
$ tree -L 2

chinnurtb

# Copyright 2012 Erlware, LLC. All Rights Reserved.
#
# This file is provided to you under the Apache License,
# Version 2.0 (the "License"); you may not use this file
# except in compliance with the License.  You may obtain
# a copy of the License at
#
#   http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing,

chinnurtb

-module(channels).
-compile(export_all).

make() ->
    Ref = make_ref(),
    Pid = spawn(?MODULE, channel, [Ref]),
    {channel, Pid, Ref}.

channel(Ref) ->
    receive

chinnurtb

search(Ch, Kind, Query) ->
    timer:sleep(random:uniform(100) + 10),
    enqueue(Ch, {Kind, Query}).

fake(Kind) ->
    Ch = make(),
    fun(Query) ->
        spawn(?MODULE, search, [Ch, Kind, Query]), Ch
    end.

chinnurtb

%% Pairing Heap implementation 
%% more information on wiki:
%% http://en.wikipedia.org/wiki/Pairing_heap

%% pq :: {pq, heap(), int()}
%% heap :: nil | {Item, [heap()]}

%% =============================
%% API
%% =============================