*** empty log message ***

2004-07-24 11:33:02 +00:00
parent 132c4dd9e4
commit 3910dfce12
4 changed files with 448 additions and 0 deletions
--- a/compiler/compile/compile.dpr
+++ b/compiler/compile/compile.dpr
@ -0,0 +1,82 @@
+(* 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
+  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.