Openpocker源码分析

转载：http://blog.csdn.net/chenyinggang/article/details/5566311

1。什么是Openpoer

2。现有的关于Openpoker的资料

如何运行和测试

http://blog.csdn.net/stephenxu111/archive和/2008/06/20/2570070.aspx

3。今天开始我们一起分析源码

获得源码

4。从哪里入手

test.erl

 

%%% Copyright (C) 2005 Wager Labs, SA 
%%% 
%%% This file is part of OpenPoker. 
%%% 
%%% OpenPoker is free software; you can redistribute it and/or 
%%% modify it under the terms of the GNU General Public 
%%% License as published by the Free Software Foundation; either 
%%% version 2 of the License, or (at your option) any later version. 
%%% 
%%% This program is distributed in the hope that it will be useful, 
%%% but WITHOUT ANY WARRANTY; without even the implied warranty of 
%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
%%% General Public License for more details. 
%%% 
%%% You should have received a copy of the GNU General Public 
%%% License along with this library; if not, write to the Free Software 
%%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
%%% 
%%% Please visit  or contact Joel Reymont 
%%% at [e-mail] for more information.

-module(test).

-compile([export_all]).

-export([all/0, make_players/1, make_test_game/3, 
    make_player/1, install_trigger/3, kill_players/1]).

-include("proto.hrl"). 
-include("texas.hrl"). 
-include("common.hrl"). 
-include("schema.hrl"). 
-include("test.hrl").

-record(test, { 
      button_seat = none, 
      call = 0, 
      winners = none 
     }).

all() –>                     %%系统启动入口  
    mnesia:start(),            %%数据库启动 
    ok = mnesia:wait_for_tables([game_config], 10000), 
    %% make sure the basics work 
    db:test(),                 %%数据库管理模块 
    proto:test(),              %%协议编码解码模块 
    hand:test(),               %%牌面模块 
    pot:test(),                %%台面模块 
    player:test(),             %%用户模块 
    game:test(),               %%游戏模块 
    cardgame:test(),           %%纸牌游戏模块 
    deal_cards:test(),         %%处理纸牌模块 
    deck:test(),               %%牌桌模块 
    fixed_limit:test(),        %%固定限制模块 
    delayed_start:test(),      %%延迟启动模块 
    blinds:test(),             %% 
    betting:test(), 
    showdown:test(),           %%关闭模块 
    login:test(),              %%登陆模块 
    %% run tests 
    test10(), 
    test20(), 
    test30(), 
    test40(), 
    test50(), 
    test60(), 
    test70(), 
    test80(), 
    test90(), 
    test100(), 
    test110(), 
    test120(), 
    test130(), 
    test135(), 
    test140(), 
    test150(), 
    test160(), 
    test170(), 
    test180(), 
    ok.

%%% Create player

test10() -> 
    db:delete(player),            %删除原有用户   
    counter:reset(player),        %计数器重置 
    Nick = "P",                    
    %% player does not exist 
    ?match({error, {atomic, []}}, player:start("blah")), 
    {atomic, ID} = player:create(Nick, "foo", "", 100),      %创建新用户  
    ?match(1, ID), 
    {ok, Pid} = player:start(Nick),                          %启动新用户 
    ?match({atomic, Pid}, db:get(player, ID, pid)), 
    player:stop(Pid),                                        %停止新用户 
    timer:sleep(100), 
    ?match({atomic, none}, db:get(player, ID, pid)), 
    ok. 
%%% Create game

test20() -> 
    db:delete(game_xref),         %删除原有游戏 
    counter:reset(game),          %计数器重置 
    GameType = ?GT_IRC_TEXAS,     %游戏类型 
    LimitType = {?LT_FIXED_LIMIT, 10, 20}, 
    {ok, Game} = cardgame:start(GameType,           %启动新游戏 
                2, 
                LimitType), 
    ?match(1, cardgame:call(Game, 'ID')), 
    ?match(0, cardgame:call(Game, 'JOINED')), 
    ?match({atomic, Game}, db:get(game_xref, 1, pid)), 
    cardgame:stop(Game),                            %停止游戏 
    timer:sleep(100), 
    ?match({atomic, []}, db:find(game_xref, 1)), 
    ok.

%%% Basic seat query

test30() -> 
    db:delete(game_xref), 
    db:delete(player), 
    Players = [{Player, 1}] = make_players(1), 
    Game = make_game(2, Players), 
    X = cardgame:call(Game, 'SEAT QUERY'), 
    ?match([{1, ?SS_TAKEN, Player}, 
        {2, ?SS_EMPTY, none}], X), 
    Z = cardgame:call(Game, 'JOINED'), 
    ?match(1, Z), 
    cardgame:stop(Game), 
    kill_players(Players), 
    ok.