#89 Req: assemble - add mask for mo files

[TomaszB]

I've quite huge project; 4 modules - dlls which store
mo files in the same localtion.

I'll be usefull if user can define a MASK for files
which shoud be merged with custom module.

Now all MOs acording to mask *.mo are linked. As a
result all modules have over 800kB superfluous datas!

I've prepares simple modification which is enough for me:

(It's first delphi code which I've ever written so read
this with pink glasses;)

file consoleapp.pas:

procedure TConsoleApp.AnalyzeCommandline;
var
i:integer;
param,uparam:string;
begin
i:=1;
engine.FileMask:='*.mo';
while i<=paramcount do begin
param:=paramstr(i);
uparam:=uppercase(param);
if uparam='--DXGETTEXT' then begin
engine.SetGnuGettextPatchCode;
end
else if uparam='--MASK' then begin
inc(i);
if i<=paramcount then begin
param:=paramstr(i);
uparam:=uppercase(param);
engine.FileMask:=param;
end
end else
if engine.exefilename<>'' then
raise Exception.Create (_('Already specified an
.exe file.'))
else
engine.exefilename:=ExpandFileName(param);
inc (i);
end;
end;