neue Datei: gitupdateunit.pas

1 files changed, 67 insertions, 0 deletions

diff --git a/gitupdateunit.pas b/gitupdateunit.pas
new file mode 100644
index 0000000..37d3409
--- /dev/null
+++ b/gitupdateunit.pas
@@ -0,0 +1,67 @@
+unit gitupdateunit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+implementation
+
+uses
+  baseunix, process, systemunit, lowlevelunit;
+
+var
+  updated:          boolean;
+  myDir,baseDir,
+    output,tmpFile: string;
+  args:             array of string;
+
+initialization
+  updated:=false;
+
+  myDir:=extractFilePath(paramstr(0));
+  baseDir:=extractFilePath(leftStr(myDir,length(myDir)-1));
+
+  tmpFile:='';
+
+  output:='';
+  setlength(args,1);
+  args[0]:='pull';
+  if runCommandInDir(myDir,'/usr/bin/git',args,output) then begin
+    updated:=updated or (output<>'Already up-to-date.'#10);
+    if runCommandInDir(baseDir+'units','/usr/bin/git',args,output) then begin
+      updated:=updated or (output<>'Already up-to-date.'#10);
+      if updated then begin
+        setlength(args,4);
+        args[0]:='-Fu../units';
+        args[1]:='-Mobjpas';
+        tmpFile:=myDir+extractFileName(paramstr(0));
+        if fileexists(tmpFile+'.lpr') then
+          args[2]:=tmpFile+'.lpr'
+        else
+          args[2]:=tmpFile+'.pas';
+        tmpFile:=mkTemp('/tmp/fpc.XXXXXX');
+        args[3]:='-o'+tmpFile;
+        if runCommandInDir(myDir,'/usr/bin/fpc',args,output) then begin
+          setlength(args,2);
+          args[0]:=tmpFile;
+          args[1]:=paramstr(0);
+          if runCommand('/usr/bin/sha512sum',args,output) then begin
+            baseDir:=erstesArgument(output,#10);
+            if erstesArgument(baseDir)<>erstesArgument(output) then begin
+              deletefile(paramstr(0));
+              if runCommand('/usr/bin/mv',args,output) then
+                fpExecVe(paramstr(0),argv,envp);
+            end;
+          end;
+        end;
+      end;
+    end;
+  end;
+  if (tmpFile<>'') and fileexists(tmpFile) then
+    deletefile(tmpFile);
+  setlength(args,0);
+end.
+