pkgcommands.pp 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298
  1. unit pkgcommands;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. Classes, SysUtils,pkghandler;
  6. implementation
  7. uses
  8. zipper,
  9. pkgmessages,
  10. pkgglobals,
  11. pkgoptions,
  12. pkgdownload,
  13. pkgrepos,
  14. fprepos;
  15. type
  16. { TCommandAddConfig }
  17. TCommandAddConfig = Class(TPackagehandler)
  18. Public
  19. Function Execute(const Args:TActionArgs):boolean;override;
  20. end;
  21. { TCommandUpdate }
  22. TCommandUpdate = Class(TPackagehandler)
  23. Public
  24. Function Execute(const Args:TActionArgs):boolean;override;
  25. end;
  26. { TCommandShowAll }
  27. TCommandShowAll = Class(TPackagehandler)
  28. Public
  29. Function Execute(const Args:TActionArgs):boolean;override;
  30. end;
  31. { TCommandShowAvail }
  32. TCommandShowAvail = Class(TPackagehandler)
  33. Public
  34. Function Execute(const Args:TActionArgs):boolean;override;
  35. end;
  36. { TCommandScanPackages }
  37. TCommandScanPackages = Class(TPackagehandler)
  38. Public
  39. Function Execute(const Args:TActionArgs):boolean;override;
  40. end;
  41. { TCommandDownload }
  42. TCommandDownload = Class(TPackagehandler)
  43. Public
  44. Function Execute(const Args:TActionArgs):boolean;override;
  45. end;
  46. { TCommandUnzip }
  47. TCommandUnzip = Class(TPackagehandler)
  48. Public
  49. Function Execute(const Args:TActionArgs):boolean;override;
  50. end;
  51. { TCommandCompile }
  52. TCommandCompile = Class(TPackagehandler)
  53. Public
  54. Function Execute(const Args:TActionArgs):boolean;override;
  55. end;
  56. { TCommandBuild }
  57. TCommandBuild = Class(TPackagehandler)
  58. Public
  59. Function Execute(const Args:TActionArgs):boolean;override;
  60. end;
  61. { TCommandInstall }
  62. TCommandInstall = Class(TPackagehandler)
  63. Public
  64. Function Execute(const Args:TActionArgs):boolean;override;
  65. end;
  66. { TCommandArchive }
  67. TCommandArchive = Class(TPackagehandler)
  68. Public
  69. Function Execute(const Args:TActionArgs):boolean;override;
  70. end;
  71. { TCommandInstallDependencies }
  72. TCommandInstallDependencies = Class(TPackagehandler)
  73. Public
  74. Function Execute(const Args:TActionArgs):boolean;override;
  75. end;
  76. function TCommandAddConfig.Execute(const Args:TActionArgs):boolean;
  77. begin
  78. {
  79. Log(vlInfo,SLogGeneratingCompilerConfig,[S]);
  80. Options.InitCompilerDefaults(Args[2]);
  81. Options.SaveCompilerToFile(S);
  82. }
  83. Result:=true;
  84. end;
  85. function TCommandUpdate.Execute(const Args:TActionArgs):boolean;
  86. var
  87. PackagesURL : String;
  88. begin
  89. // Download mirrors.xml
  90. Log(vlCommands,SLogDownloading,[GlobalOptions.RemoteMirrorsURL,GlobalOptions.LocalMirrorsFile]);
  91. DownloadFile(GlobalOptions.RemoteMirrorsURL,GlobalOptions.LocalMirrorsFile);
  92. LoadLocalMirrors;
  93. // Download packages.xml
  94. PackagesURL:=GetRemoteRepositoryURL(PackagesFileName);
  95. Log(vlCommands,SLogDownloading,[PackagesURL,GlobalOptions.LocalPackagesFile]);
  96. DownloadFile(PackagesURL,GlobalOptions.LocalPackagesFile);
  97. // Read the repository again
  98. LoadLocalRepository;
  99. FindInstalledPackages(CompilerOptions);
  100. Result:=true;
  101. end;
  102. function TCommandShowAll.Execute(const Args:TActionArgs):boolean;
  103. begin
  104. ListLocalRepository(true);
  105. Result:=true;
  106. end;
  107. function TCommandShowAvail.Execute(const Args:TActionArgs):boolean;
  108. begin
  109. ListLocalRepository(false);
  110. Result:=true;
  111. end;
  112. function TCommandScanPackages.Execute(const Args:TActionArgs):boolean;
  113. begin
  114. RebuildRemoteRepository;
  115. ListRemoteRepository;
  116. SaveRemoteRepository;
  117. Result:=true;
  118. end;
  119. function TCommandDownload.Execute(const Args:TActionArgs):boolean;
  120. begin
  121. if not assigned(CurrentPackage) then
  122. Error(SErrNoPackageSpecified);
  123. if not FileExists(PackageLocalArchive) then
  124. ExecuteAction(CurrentPackage,'downloadpackage',Args);
  125. Result:=true;
  126. end;
  127. function TCommandUnzip.Execute(const Args:TActionArgs):boolean;
  128. Var
  129. BuildDir : string;
  130. ArchiveFile : String;
  131. begin
  132. BuildDir:=PackageBuildPath;
  133. ArchiveFile:=PackageLocalArchive;
  134. if not assigned(CurrentPackage) then
  135. Error(SErrNoPackageSpecified);
  136. if not FileExists(ArchiveFile) then
  137. ExecuteAction(CurrentPackage,'downloadpackage');
  138. { Create builddir, remove it first if needed }
  139. if DirectoryExists(BuildDir) then
  140. DeleteDir(BuildDir);
  141. ForceDirectories(BuildDir);
  142. SetCurrentDir(BuildDir);
  143. { Unzip Archive }
  144. With TUnZipper.Create do
  145. try
  146. Log(vlCommands,SLogUnzippping,[ArchiveFile]);
  147. OutputPath:=PackageBuildPath;
  148. UnZipAllFiles(ArchiveFile);
  149. Finally
  150. Free;
  151. end;
  152. Result:=true;
  153. end;
  154. function TCommandCompile.Execute(const Args:TActionArgs):boolean;
  155. begin
  156. if assigned(CurrentPackage) then
  157. begin
  158. ExecuteAction(CurrentPackage,'installdependencies',Args);
  159. ExecuteAction(CurrentPackage,'unzip',Args);
  160. end;
  161. ExecuteAction(CurrentPackage,'fpmakecompile',Args);
  162. Result:=true;
  163. end;
  164. function TCommandBuild.Execute(const Args:TActionArgs):boolean;
  165. begin
  166. if assigned(CurrentPackage) then
  167. begin
  168. ExecuteAction(CurrentPackage,'installdependencies',Args);
  169. ExecuteAction(CurrentPackage,'unzip',Args);
  170. end;
  171. ExecuteAction(CurrentPackage,'fpmakebuild',Args);
  172. Result:=true;
  173. end;
  174. function TCommandInstall.Execute(const Args:TActionArgs):boolean;
  175. begin
  176. if assigned(CurrentPackage) then
  177. ExecuteAction(CurrentPackage,'build',Args);
  178. ExecuteAction(CurrentPackage,'fpmakeinstall',Args);
  179. // Update local status file
  180. if assigned(CurrentPackage) then
  181. CurrentPackage.InstalledVersion.Assign(CurrentPackage.Version);
  182. Result:=true;
  183. end;
  184. function TCommandArchive.Execute(const Args:TActionArgs):boolean;
  185. begin
  186. ExecuteAction(CurrentPackage,'fpmakearchive',Args);
  187. Result:=true;
  188. end;
  189. function TCommandInstallDependencies.Execute(const Args:TActionArgs):boolean;
  190. var
  191. i : Integer;
  192. D : TFPDependency;
  193. DepPackage : TFPPackage;
  194. L : TStringList;
  195. status : string;
  196. begin
  197. if not assigned(CurrentPackage) then
  198. Error(SErrNoPackageSpecified);
  199. // List dependencies
  200. L:=TStringList.Create;
  201. for i:=0 to CurrentPackage.Dependencies.Count-1 do
  202. begin
  203. D:=CurrentPackage.Dependencies[i];
  204. DepPackage:=CurrentRepository.PackageByName(D.PackageName);
  205. // Need installation?
  206. if (DepPackage.InstalledVersion.Empty) or
  207. (DepPackage.InstalledVersion.CompareVersion(D.MinVersion)<0) then
  208. begin
  209. if DepPackage.Version.CompareVersion(D.MinVersion)<0 then
  210. status:='Not Available!'
  211. else
  212. status:='Updating';
  213. L.Add(DepPackage.Name);
  214. end
  215. else
  216. status:='OK';
  217. Log(vlDebug,SDbgPackageDependency,
  218. [D.PackageName,D.MinVersion.AsString,DepPackage.InstalledVersion.AsString,DepPackage.Version.AsString,status]);
  219. end;
  220. // Install needed updates
  221. for i:=0 to L.Count-1 do
  222. begin
  223. DepPackage:=CurrentRepository.PackageByName(L[i]);
  224. if DepPackage.Version.CompareVersion(D.MinVersion)<0 then
  225. Error(SErrNoPackageAvailable,[D.PackageName,D.MinVersion.AsString]);
  226. ExecuteAction(DepPackage,'install');
  227. end;
  228. FreeAndNil(L);
  229. Result:=true;
  230. end;
  231. initialization
  232. RegisterPkgHandler('update',TCommandUpdate);
  233. RegisterPkgHandler('showall',TCommandShowAll);
  234. RegisterPkgHandler('showavail',TCommandShowAvail);
  235. RegisterPkgHandler('scan',TCommandScanPackages);
  236. RegisterPkgHandler('download',TCommandDownload);
  237. RegisterPkgHandler('unzip',TCommandUnzip);
  238. RegisterPkgHandler('compile',TCommandCompile);
  239. RegisterPkgHandler('build',TCommandBuild);
  240. RegisterPkgHandler('install',TCommandInstall);
  241. RegisterPkgHandler('archive',TCommandArchive);
  242. RegisterPkgHandler('installdependencies',TCommandInstallDependencies);
  243. end.