(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program 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; version 2 of the License

 *

 * 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 program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 *)

{$INCLUDE "options.inc"}

unit uCommands;

interface

var isDeveloperMode: boolean;

type TVariableType = (vtCommand, vtLongInt, vtBoolean);

procedure initModule;

procedure freeModule;

procedure RegisterVariable(Name: shortstring; VType: TVariableType; p: pointer; Trusted: boolean);

procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);

procedure StopMessages(Message: Longword);

implementation

uses Types, uConsts, uVariables, uConsole, uUtils, uDebug;

type  PVariable = ^TVariable;

var

procedure RegisterVariable(Name: shortstring; VType: TVariableType; p: pointer; Trusted: boolean);

begin

New(value);

TryDo(value <> nil, 'RegisterVariable: value = nil', true);

FillChar(value^, sizeof(TVariable), 0);

value^.Name:= Name;

value^.VType:= VType;

value^.Handler:= p;

value^.Trusted:= Trusted;

end;

procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);

var ii: LongInt;

    s: shortstring;

    t: PVariable;

    c: char;

begin

//WriteLnToConsole(CmdStr);

c:= CmdStr[1];

s:= '';

SplitBySpace(CmdStr, s);

AddFileLog('[Cmd] ' + c + CmdStr + ' (' + inttostr(length(s)) + ')');

t:= Variables;

while t <> nil do

            case t^.VType of

case c of

end;

procedure StopMessages(Message: Longword);

begin

end;

procedure initModule;

begin

    Variables:= nil;

    isDeveloperMode:= true;

end;

procedure freeModule;

var t, tt: PVariable;

begin

    tt:= Variables;

    Variables:= nil;

    while tt <> nil do

    begin

        t:= tt;

        tt:= tt^.Next;

        Dispose(t)

    end;

end;

end.