+ external postprocessing by Pavel Ozerski

compiler/utils/postwin32.pp

@@ -0,0 +1,186 @@
+{
+    $Id$
+    Copyright (c) 1998-2000 by Pavel Ozerski and Pierre Muller
+
+    This program implements support post processing
+    for the (i386) Win32 target
+
+    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., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+
+program post_process_win32_executable;
+
+
+uses
+  globtype,globals,t_win32,strings;
+
+const
+  execinfo_f_cant_open_executable='Cannot open file ';
+  execinfo_x_codesize='Code size: ';
+  execinfo_x_initdatasize='Size of Initialized Data: ';
+  execinfo_x_uninitdatasize='Size of Uninitialized Data: ';
+  execinfo_f_cant_process_executable='Cannot process file ';
+  execinfo_x_stackreserve='Size of Stack Reserve: ';
+  execinfo_x_stackcommit='Size of Stack Commit: ';
+
+var
+  verbose:longbool;
+  ii,jj,p:longint;
+  x:single;
+  code:integer;
+
+procedure Message1(const info,fn:string);
+var
+  e:longbool;
+begin
+  e:=pos('Cannot',info)=1;
+  if verbose or e then
+   writeln(info,fn);
+  if e then
+   halt(1);
+end;
+
+var
+  l:tlinkerwin32;
+  fn,s:string;
+  isDll:boolean;
+
+function GetSwitchValue(const key,shortkey,default:string;const PossibleValues:array of pchar):string;
+var
+  i,j,k:longint;
+  x:double;
+  s1,s2:string;
+  code:integer;
+procedure Error;
+  begin
+   writeln('Error: unrecognized option ',paramstr(i),' ',s1);
+   halt(1);
+  end;
+begin
+  for i:=1 to paramcount do
+   if(paramstr(i)=key)or(paramstr(i)=shortkey)then
+    begin
+     s1:=paramstr(succ(i));
+     for j:=0 to high(PossibleValues)do
+      begin
+       s2:=strpas(PossibleValues[j]);
+       if(length(s2)>1)and(s2[1]='*')then
+        case s2[2]of
+         'i':
+          begin
+           val(s1,k,code);
+           if code<>0 then
+            error;
+           GetSwitchValue:=s1;
+           exit;
+          end;
+         'r':
+          begin
+           val(s1,x,code);
+           if code<>0 then
+            error;
+           GetSwitchValue:=s1;
+           exit;
+          end;
+         's':
+          begin
+           GetSwitchValue:=s1;
+           exit;
+          end;
+        end
+       else if s1=s2 then
+        begin
+         GetSwitchValue:=s1;
+         exit;
+        end;
+      end;
+     error;
+    end;
+  GetSwitchValue:=default;
+end;
+procedure help_info;
+begin
+  fn:=paramstr(0);
+  for jj:=length(fn)downto 1 do
+   if fn[jj] in [':','\','/']then
+    begin
+     fn:=copy(fn,succ(jj),255);
+     break;
+    end;
+  writeln('Usage: ',fn,' [options]');
+  writeln('Options:');
+  writeln('-i | --input <file>              - set input file;');
+  writeln('-m | --subsystem <console | gui> - set Win32 subsystem;');
+  writeln('-s | --stack <size>              - set stack size;');
+  writeln('-t | --type <exe | dll>          - define binary type;');
+  writeln('-V | --version <n.n>             - set image version;');
+  writeln('-v | --verbose                   - show info while processing;');
+  writeln('-h | --help | -?                 - show this screen');
+  halt;
+end;
+
+begin
+aktglobalswitches:=[];
+verbose:=false;
+if paramcount=0 then
+  help_info;
+for ii:=1 to paramcount do
+  if(paramstr(ii)='-h')or(paramstr(ii)='--help')or(paramstr(ii)='-?')then
+   help_info
+  else if(paramstr(ii)='-v')or(paramstr(ii)='--verbose')then
+   begin
+    verbose:=true;
+    break;
+   end;
+fn:=GetSwitchValue('--input','-i','',['*s']);
+val(GetSwitchValue('--stack','-s','33554432',['*i']),stacksize,code);
+                                                 {value from
+                                                 systems.pas
+                                                 for Win32 target}
+
+s:=GetSwitchValue('--subsystem','-m','console',['gui','console']);
+if s='gui' then
+  apptype:=at_GUI
+else
+  apptype:=at_cui;
+
+dllversion:=GetSwitchValue('--version','-V','1.0',['*r']);
+{ val(dllversion,x,code);
+dllmajor:=trunc(x);
+dllminor:=trunc(frac(x)*10);
+ This does not work for 1.12 !! PM }
+p:=pos('.',dllversion);
+if p=0 then
+  begin
+    dllminor:=0;
+    val(dllversion,ddlmajor,code);
+  end
+else
+  begin
+    val(copy(dllversion,1,p-1),ddlmajor,code);
+    val(copy(dllversion,p+1,255),ddlminor,code);
+  end;
+
+isDll:=GetSwitchValue('--type','-t','exe',['exe','dll'])='dll';
+{ if isDLL then
+  aktglobalswitches:=[cs_link_extern];
+  no because otherwise you don't change anything to a dll !!
+  by the way why not simply use the suffix ?? PM }
+l.init;
+l.PostProcessExecutable(fn,isdll);
+
+end.