robertoaloi

#{deps =>
      [#{name => <<"getopt">>,
         src_dirs => ["src"],
         out_mappings =>
             [#{path =>
                    "/Users/robertoaloi/git/github/erlang-ls/erlang_ls/_build/default/lib/getopt/ebin",
                extension => ".beam"}],
         include_dirs =>
             ["/Users/robertoaloi/git/github/erlang-ls/erlang_ls/_build/default/lib/getopt/include",
              "/Users/robertoaloi/git/github/erlang-ls/erlang_ls/_build/default/lib/getopt/src",

robertoaloi

#!/usr/bin/env bash

# Kill an Erlang process by node name
#
# e.g.: kill-erlang-node kred

# Check usage
if [ -z "$1" ]; then
  echo "Usage: `basename $0` NODE_NAME"
  exit 1

robertoaloi

(defun erlang-after-arrow ()
  "Return true if point is immediately after a function arrow (`->').
Make a special case when in a spec line."
  (and
   (save-excursion
     (beginning-of-line)
     (not (save-match-data (looking-at "-\\(spec\\|type\\)"))))
   (and (>= (point) 2)
        (and
         (save-excursion

robertoaloi

-module(atom_table).

-export([count/0]).

count() ->
  Info      = erlang:system_info(info),
  Chunks    = binary:split(Info, <<"=">>, [global]),
  [TabInfo] = [X || <<"index_table:atom_tab", X/binary>> <- Chunks],
  Lines     = binary:split(TabInfo, <<"\n">>, [global]),
  Chunks2   = [binary:split(L, <<": ">>) || L <- Lines, L =/= <<>>],

robertoaloi

#!/bin/sh

# Kill an Erlang process by node name
#
# e.g.: ekill my_node

# Check usage
if [ -z "$1" ]; then
  echo "Usage: `basename $0` NODE_NAME"
  exit 1

robertoaloi

Start an instance of the Erlang run-time system

$ erl

Show information about processes

> i().

Spawn a new process which sleeps for 10 seconds

robertoaloi

#!/bin/sh

tail -n +2 $1 > $1.tmp
unzip -d $1.unescriptized $1.tmp
rm $1.tmp

robertoaloi

-module(this_is_fun).

-export([have_fun/0]).
-export([loop/0]).

have_fun() ->
    table = ets:new(table, [named_table]),
    F = fun(X) -> X + 1 end,
    ets:insert(table, {function, F}),
    register(funny, spawn(?MODULE, loop, [])).

robertoaloi

````
(<0.80.0>) call ct_logs:tc_print(info,50,"...")
(<0.80.0>) call ct_util:get_testdata({verbosity,info})
(<0.80.0>) call ct_util:call({get_testdata,{verbosity,info}})
(<0.80.0>) call ct_util:call({get_testdata,{verbosity,info}},infinity)
(<0.80.0>) call erlang:whereis(ct_util_server)
HANGS
````

robertoaloi

$ erl
Erlang R15B01 (erts-5.9.1) [source] [64-bit] [smp:8:8] [async-threads:0] [kernel-poll:false]

Eshell V5.9.1  (abort with ^G)
1> test:do().

Common Test starting (cwd is /.../ct-bug)

----------------------------------------------------
2013-06-28 13:43:17.525