amxmodx/compiler/compile/compile.dpr

67 lines
1.4 KiB
ObjectPascal
Raw Normal View History

2014-08-04 13:31:39 +04:00
// vim: set sts=2 ts=8 sw=2 tw=99 et:
//
// AMX Mod X, based on AMX Mod by Aleksander Naszko ("OLO").
// Copyright (C) The AMX Mod X Development Team.
//
// This software is licensed under the GNU General Public License, version 3 or higher.
// Additional exceptions apply. For full license details, see LICENSE.txt or visit:
// https://alliedmods.net/amxmodx-license
2004-07-24 15:33:02 +04:00
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
2005-07-26 22:45:37 +04:00
WriteLn('//AMXXPC compile.exe');
2004-08-13 19:34:50 +04:00
WriteLn('// by the AMX Mod X Dev Team');
2004-07-24 15:41:22 +04:00
WriteLn;
2005-07-26 22:45:37 +04:00
if not FileExists(ExtractFilePath(ParamStr(0))+COMPILER_EXE) then
2004-07-24 15:33:02 +04:00
begin
2005-07-26 22:45:37 +04:00
WriteLn('// Could not find '+COMPILER_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.