amxmodx/compiler/compile/compile.dpr

89 lines
2.4 KiB
ObjectPascal
Raw Normal View History

2004-07-24 15:33:02 +04:00
(* AMX Mod X
* compile.exe
*
* by the AMX Mod X Development Team
*
*
* 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; 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 program; if not, write to the Free Software Foundation,
* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* In addition, as a special exception, the author gives permission to
* link the code of this program with the Half-Life Game Engine ("HL
* Engine") and Modified Game Libraries ("MODs") developed by Valve,
* L.L.C ("Valve"). You must obey the GNU General Public License in all
* respects for all of the code used other than the HL Engine and MODs
* from Valve. If you modify this file, you may extend this exception
* to your version of the file, but you are not obligated to do so. If
* you do not wish to do so, delete this exception statement from your
* version.
*)
program compile;
{$APPTYPE CONSOLE}
2004-08-13 19:59:09 +04:00
{$R version.res}
2004-07-30 00:40:41 +04:00
{$R icon.res}
2004-07-24 15:33:02 +04:00
uses
SysUtils, Classes,
uFunc in 'uFunc.pas';
var
sr: TSearchRec;
i: Word;
begin
2004-08-13 19:34:50 +04:00
WriteLn('//AMXXSC compile.exe');
WriteLn('// by the AMX Mod X Dev Team');
2004-07-24 15:41:22 +04:00
WriteLn;
2004-07-24 15:33:02 +04:00
if not FileExists(ExtractFilePath(ParamStr(0))+'amxxsc.exe') then
begin
2004-08-13 19:34:50 +04:00
WriteLn('// Could not find amxxsc.exe');
2004-07-24 15:33:02 +04:00
AppExit;
end;
if not DirectoryExists(ExtractFilePath(ParamStr(0))+'compiled') then
CreateDir(ExtractFilePath(ParamStr(0))+'compiled');
if ( ParamCount > 0 ) then
begin
for i := 1 to ParamCount do
begin
if FileExists(ParamStr(i)) then
CompilePlugin(ParamStr(i))
else
begin
WriteLn;
2004-08-13 19:34:50 +04:00
WriteLn('// File not found.');
2004-07-24 15:33:02 +04:00
end;
end;
end
else
begin
if ( FindFirst('*.sma',faAnyFile,sr) = 0 ) then
begin
repeat
CompilePlugin(sr.Name);
until ( FindNext(sr) <> 0 );
end
else
begin
2004-08-13 19:34:50 +04:00
WriteLn('// No file found.');
2004-07-24 15:33:02 +04:00
end;
FindClose(sr);
end;
AppExit;
end.