blob: 9a9c82c140aea08b38f3895b2842d84abba1d541 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
%%%-------------------------------------------------------------------
%%% File: node.erl
%%% @author Cliff Moon <> []
%%% @copyright 2009 Cliff Moon
%%% @doc
%%%
%%% @end
%%%
%%% @since 2009-05-11 by Cliff Moon
%%%-------------------------------------------------------------------
-module(node).
-author('cliff@powerset.com').
%% API
-export([name/1, attributes/1]).
-include("../include/common.hrl").
%% -ifdef(TEST).
%% -include("../etest/node_test.erl").
%% -endif.
%%====================================================================
%% API
%%====================================================================
name(Name) when is_atom(Name) ->
Name;
name(Node) when is_tuple(Node) ->
element(1, Node);
name(Node) ->
Node.
attributes(Name) when is_atom(Name) ->
[];
attributes(Node) when is_tuple(Node) ->
element(2, Node);
attributes(_) ->
[].
|
