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.