1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
unit gitupdateunit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
implementation
uses
baseunix, process, systemunit, lowlevelunit;
var
updated: boolean;
myDir,baseDir,
output,tmpDir: string;
args: array of string;
initialization
updated:=false;
myDir:=extractFilePath(paramstr(0));
baseDir:=extractFilePath(leftStr(myDir,length(myDir)-1));
tmpDir:='';
output:='';
setlength(args,2);
args[0]:='pull';
args[1]:='--all';
if runCommandInDir(myDir,'git',args,output) then begin
updated:=updated or (output<>'Already up-to-date.'#10);
if runCommandInDir(baseDir+'units','git',args,output) then begin
updated:=updated or (output<>'Already up-to-date.'#10);
if updated then begin
tmpDir:=mkTemp('-d /tmp/fpc.XXXXXX');
mkdir(tmpDir+'/lib');
setlength(args,15);
args[0]:='-MObjFPC';
args[1]:='-Scghi';
args[2]:='-Cg';
args[3]:='-CirotR';
args[4]:='-O1';
args[5]:='-g';
args[6]:='-gl';
args[7]:='-l';
args[8]:='-vewnhibq';
args[9]:='-Fi'+tmpDir+'/lib';
args[10]:='-Fu../units';
args[11]:='-Fu.';
args[12]:='-FU'+tmpDir+'/lib';
args[13]:=myDir+extractFileName(paramstr(0));
if fileexists(args[13]+'.lpr') then
args[13]:=args[13]+'.lpr'
else
args[13]:=args[13]+'.pas';
args[14]:='-o'+tmpDir+'/output';
if runCommandInDir(myDir,'fpc',args,output) then begin
setlength(args,2);
args[0]:=tmpDir+'/output';
args[1]:=paramstr(0);
if runCommand('sha512sum',args,output) then begin
baseDir:=erstesArgument(output,#10);
if erstesArgument(baseDir)<>erstesArgument(output) then begin
deletefile(paramstr(0));
if runCommand('mv',args,output) then begin
setlength(args,2);
args[0]:='-rf';
args[1]:=tmpDir;
if runCommand('rm',args,output) then begin
fpExecVe(paramstr(0),argv,envp);
raise exception.create('Fehler beim Ersetzen der Executable!');
end;
end;
end;
end;
end;
end;
end;
end;
if (tmpDir<>'') and directoryexists(tmpDir) then begin
setlength(args,2);
args[0]:='-rf';
args[1]:=tmpDir;
runCommand('rm',args,output);
end;
setlength(args,0);
end.
|
