Erlang行为模式实现模块的首部

%%%-------------------------------------------------------------------

%%% @author Martin & Eric <erlware-dev@googlegroups.com>    %作者信息和邮箱地址

%%%  [http://www.erlware.org]

%%% @copyright 2008-2010 Erlware                                                       %日期和版权归属

%%% @doc RPC over TCP server. This module defines a server process that

%%%      listens for incoming TCP connections and allows the user to

%%%      execute RPC commands via that TCP stream.                     %常规文档文本，概要描述

%%% @end    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​         %标志着标签的完结

%%%-------------------------------------------------------------------

-module(tr_server).

-behaviour(gen_server).

-include_lib("eunit/include/eunit.hrl").

%% API

-export([

         start_link/1,

         start_link/0,

         get_count/0,

         stop/0

         ]).

%% gen_server callbacks

-export([init/1, handle_call/3, handle_cast/2, handle_info/2,

         terminate/2, code_change/3]).

-define(SERVER, ?MODULE).    ​    ​    ​    ​    ​    ​    ​    ​    ​    ​ %将SERVER设置为模块名

-define(DEFAULT_PORT, 1055).    ​    ​    ​    ​    ​    ​    ​    ​     %定义默认端口

-record(state, {port, lsock, request_count = 0}).    ​    %​用于保存进程状态