87 lines
2.3 KiB
ObjectPascal
Executable File
87 lines
2.3 KiB
ObjectPascal
Executable File
(* 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}
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
uFunc in 'uFunc.pas';
|
|
|
|
var
|
|
sr: TSearchRec;
|
|
i: Word;
|
|
begin
|
|
WriteLn('AMXXSC compile.exe');
|
|
WriteLn(' by the AMX Mod X Dev Team');
|
|
WriteLn;
|
|
|
|
if not FileExists(ExtractFilePath(ParamStr(0))+'amxxsc.exe') then
|
|
begin
|
|
WriteLn('Could not find amxxsc.exe');
|
|
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;
|
|
WriteLn('File not found.');
|
|
end;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if ( FindFirst('*.sma',faAnyFile,sr) = 0 ) then
|
|
begin
|
|
repeat
|
|
CompilePlugin(sr.Name);
|
|
until ( FindNext(sr) <> 0 );
|
|
end
|
|
else
|
|
begin
|
|
WriteLn('No file found.');
|
|
end;
|
|
FindClose(sr);
|
|
end;
|
|
|
|
AppExit;
|
|
end.
|