~rdoering/ubuntu/karmic/erlang/fix-535090

« back to all changes in this revision

Viewing changes to lib/sasl/doc/src/rel/portc.2.erl

• browse files at revision 17
• compare with another revision
• download diff
• download tarball
• view history from revision 17

Show diffs side-by-side

added

removed

lib/sasl/doc/src/rel/portc.2.erl

 

1

-module(portc).

 

2

-vsn(2).

 

3

-behaviour(gen_server).

 

4

 

 

5

-export([get_data/0]).

 

6

-export([init/1, handle_call/3, handle_info/2, code_change/3]).

 

7

 

 

8

-record(state, {port, data}).

 

9

 

 

10

get_data() -> gen_server:call(portc, get_data).

 

11

 

 

12

init([]) ->

 

13

    PortProg = code:priv_dir(foo) ++ "/bin/portc",

 

14

    Port = open_port({spawn, PortProg}, [binary, {packet, 2}]),

 

15

    {ok, #state{port = Port}}.

 

16

 

 

17

handle_call(get_data, _From, State) ->

 

18

    {reply, {ok, State#state.data}, State}.

 

19

 

 

20

handle_info({Port, Cmd}, State) ->

 

21

    NewState = do_cmd(Cmd, State),

 

22

    {noreply, NewState}.

 

23

 

 

24

code_change(_, State, change_port_only) ->

 

25

    State#state.port ! close,

 

26

    receive

 

27

        {Port, closed} -> true

 

28

    end,

 

29

    NPortProg = code:priv_dir(foo) ++ "/bin/portc",   % get new version

 

30

    NPort = open_port({spawn, NPortProg}, [binary, {packet, 2}]),

 

31

    {ok, State#state{port = NPort}};

 

32

code_change(1, State, change_erl_only) ->

 

33

    NState = transform_state(State),

 

34

    {ok, NState}.

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1