|
@@ -1,12 +1,19 @@
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
|
unit gitlabclient;
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
{$modeswitch advancedrecords}
|
|
|
|
|
|
interface
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
+uses
|
|
|
+ System.Classes, System.SysUtils, System.IniFiles, FpJson.Data, FpWeb.Client, FpWeb.Client.Http, FpWeb.Http.Protocol;
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
|
uses
|
|
|
Classes, SysUtils, inifiles, fpjson, fpwebclient, fphttpwebclient, httpprotocol;
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
Const
|
|
|
LongThrottleSleep = 60 * 1000; // One minute
|