Copy built packages to package cache directory

5 files changed, 47 insertions, 46 deletions

diff --git a/src/config.nim b/src/config.nim
index ad57550..19dc0d6 100644
--- a/src/config.nim
+++ b/src/config.nim
@@ -21,12 +21,14 @@ type
   PacmanConfig* = object of CommonConfig
     rootOption*: Option[string]
     dbOption*: Option[string]
+    cacheOption*: Option[string]
     gpgOption*: Option[string]
     colorMode*: ColorMode
 
   Config* = object of CommonConfig
     root*: string
     db*: string
+    cache*: string
     tmpRootInitial*: string
     tmpRootCurrent*: string
     color*: bool
@@ -105,12 +107,16 @@ proc db*(config: PacmanConfig): string =
     let workRoot = if root == "/": "" else: root
     workRoot & localStateDir & "/lib/pacman/"
 
+proc cache*(config: PacmanConfig): string =
+  config.cacheOption.get(localStateDir & "/cache/pacman/pkg")
+
 proc obtainConfig*(config: PacmanConfig): Config =
   let (configTable, _) = readConfigFile(sysConfDir & "/pakku.conf")
   let options = configTable.opt("options").map(t => t[]).get(initTable[string, string]())
 
   let root = config.root
   let db = config.db
+  let cache = config.cache
   let color = config.colorMode.get
 
   proc obtainTmpDir(user: User): string =
@@ -127,7 +133,7 @@ proc obtainConfig*(config: PacmanConfig): Config =
   let viewNoDefault = options.hasKey("ViewNoDefault")
   let preBuildCommand = options.opt("PreBuildCommand")
 
-  Config(root: root, db: db,
+  Config(root: root, db: db, cache: cache,
     tmpRootInitial: tmpRootInitial, tmpRootCurrent: tmpRootCurrent, color: color,
     dbs: config.dbs, arch: config.arch, debug: config.debug, progressBar: config.progressBar,
     verbosePkgList: config.verbosePkgList, pgpKeyserver: config.pgpKeyserver,
diff --git a/src/feature/syncinstall.nim b/src/feature/syncinstall.nim
index 2677570..1ee40c4 100644
--- a/src/feature/syncinstall.nim
+++ b/src/feature/syncinstall.nim
@@ -534,33 +534,23 @@ proc installGroupFromSources(config: Config, commonArgs: seq[Argument],
       handleTmpRoot(false)
       (newSeq[(string, string)](), 1)
     else:
+      let pacmanParams = pacmanCmd & pacmanParams(config.color,
+        commonArgs & ("U", none(string), ArgumentType.short))
       let asdeps = install.filter(p => not (p.name in explicits)).map(p => p.file)
       let asexplicit = install.filter(p => p.name in explicits).map(p => p.file)
 
-      proc doInstall(files: seq[string], addArgs: seq[Argument]): int =
-        if files.len > 0:
-          pacmanRun(true, config.color, commonArgs &
-            ("U", none(string), ArgumentType.short) & addArgs &
-            files.map(f => (f, none(string), ArgumentType.target)))
-        else:
-          0
+      let installParams = sudoPrefix & (pkgLibDir & "/install") & config.cache &
+        $pacmanParams.len & pacmanParams & $asdeps.len & asdeps & $asexplicit.len & asexplicit
 
-      let asdepsCode = doInstall(asdeps,
-        @[("asdeps", none(string), ArgumentType.long)])
-      if asdepsCode != 0:
+      let code = forkWait(() => execResult(installParams))
+      if code != 0:
         handleTmpRoot(false)
-        (newSeq[(string, string)](), asdepsCode)
+        (newSeq[(string, string)](), code)
       else:
-        let asexplicitCode = doInstall(asexplicit,
-          @[("asexplicit", none(string), ArgumentType.long)])
-        if asexplicitCode != 0:
-          handleTmpRoot(false)
-          (newSeq[(string, string)](), asexplicitCode)
-        else:
-          handleTmpRoot(true)
-          let installedAs = lc[(r.name.unsafeGet, r.pkgInfo.name) | (br <- buildResults,
-            r <- br.replacePkgInfos, r.name.isSome), (string, string)]
-          (installedAs, 0)
+        handleTmpRoot(true)
+        let installedAs = lc[(r.name.unsafeGet, r.pkgInfo.name) | (br <- buildResults,
+          r <- br.replacePkgInfos, r.name.isSome), (string, string)]
+        (installedAs, 0)
 
 proc deduplicatePkgInfos(pkgInfos: seq[PackageInfo],
   config: Config, printWarning: bool): seq[PackageInfo] =
diff --git a/src/main.nim b/src/main.nim
index 52f1cb8..10829b8 100644
--- a/src/main.nim
+++ b/src/main.nim
@@ -90,7 +90,7 @@ proc handleSync(args: seq[Argument], config: Config): int =
     let printMode = args.check(%%%"print") or args.check(%%%"print-format")
 
     if currentUser.uid != 0 and config.sudoExec and not printMode:
-      let collectedArgs = @[sudoCmd, getAppFilename()] &
+      let collectedArgs = sudoPrefix & getAppFilename() &
         lc[x | (y <- args, x <- y.collectArg), string]
       execResult(collectedArgs)
     else:
diff --git a/src/pacman.nim b/src/pacman.nim
index 8415de8..8b85590 100644
--- a/src/pacman.nim
+++ b/src/pacman.nim
@@ -277,29 +277,20 @@ proc checkConflicts*(args: seq[Argument],
   lc[(c.left, w) | (c <- conflicts, args.check(c.left.full),
     w <- c.right, args.check(w.full)), (string, string)].optFirst
 
-proc checkExec(file: string): bool =
-  var statv: Stat
-  stat(file, statv) == 0 and (statv.st_mode and S_IXUSR) == S_IXUSR
-
-proc pacmanExec(root: bool, args: varargs[string]): int =
-  let exec = if root and checkExec(sudoCmd):
-      @[sudoCmd, pacmanCmd] & @args
-    elif root and checkExec(suCmd):
-      @[suCmd, "root", "-c", "exec \"$@\"", "--", "sh", pacmanCmd] & @args
-    else:
-      @[pacmanCmd] & @args
+proc pacmanParams*(color: bool, args: varargs[Argument]): seq[string] =
+  let colorStr = if color: "always" else: "never"
+  let argsSeq = ("color", some(colorStr), ArgumentType.long) &
+    @args.filter(arg => not arg.matchOption(%%%"color"))
+  lc[x | (y <- argsSeq, x <- y.collectArg), string]
 
+proc pacmanExecInternal(root: bool, params: varargs[string]): int =
+  let exec = if root: sudoPrefix & pacmanCmd & @params else: pacmanCmd & @params
   execResult(exec)
 
 proc pacmanExec*(root: bool, color: bool, args: varargs[Argument]): int =
   let useRoot = root and getuid() != 0
-  let colorStr = if color: "always" else: "never"
-
-  let argsSeq = ("color", some(colorStr), ArgumentType.long) &
-    @args.filter(arg => not arg.matchOption(%%%"color"))
-  let collectedArgs = lc[x | (y <- argsSeq, x <- y.collectArg), string]
-
-  pacmanExec(useRoot, collectedArgs)
+  let params = pacmanParams(color, args)
+  pacmanExecInternal(useRoot, params)
 
 proc pacmanRun*(root: bool, color: bool, args: varargs[Argument]): int =
   let argsSeq = @args
@@ -308,7 +299,7 @@ proc pacmanRun*(root: bool, color: bool, args: varargs[Argument]): int =
 proc pacmanValidateAndThrow(args: varargs[Argument]): void =
   let argsSeq = @args
   let collectedArgs = lc[x | (y <- argsSeq, x <- y.collectArg), string]
-  let code = forkWait(() => pacmanExec(false, "-T" & collectedArgs))
+  let code = forkWait(() => pacmanExecInternal(false, "-T" & collectedArgs))
   if code != 0:
     raise haltError(code)
 
@@ -320,6 +311,7 @@ proc getMachineName: Option[string] =
 proc createConfigFromTable(table: Table[string, string], dbs: seq[string]): PacmanConfig =
   let root = table.opt("RootDir")
   let db = table.opt("DBPath")
+  let cache = table.opt("CacheDir")
   let gpg = table.opt("GPGDir")
   let color = if table.hasKey("Color"): ColorMode.colorAuto else: ColorMode.colorNever
   let verbosePkgList = table.hasKey("VerbosePkgLists")
@@ -332,9 +324,10 @@ proc createConfigFromTable(table: Table[string, string], dbs: seq[string]): Pacm
     raise commandError(tr"can not get the architecture",
       colorNeeded = some(color.get))
 
-  PacmanConfig(rootOption: root, dbOption: db, gpgOption: gpg, dbs: dbs, arch: archFinal,
-    colorMode: color, debug: false, progressBar: true, verbosePkgList: verbosePkgList,
-    pgpKeyserver: none(string), ignorePkgs: ignorePkgs, ignoreGroups: ignoreGroups)
+  PacmanConfig(rootOption: root, dbOption: db, cacheOption: cache, gpgOption: gpg,
+    dbs: dbs, arch: archFinal, colorMode: color, debug: false, progressBar: true,
+    verbosePkgList: verbosePkgList, pgpKeyserver: none(string),
+    ignorePkgs: ignorePkgs, ignoreGroups: ignoreGroups)
 
 proc obtainPacmanConfig*(args: seq[Argument]): PacmanConfig =
   proc getAll(pair: OptionPair): seq[string] =
@@ -356,6 +349,7 @@ proc obtainPacmanConfig*(args: seq[Argument]): PacmanConfig =
 
   let root = getAll(%%%"root").optLast.orElse(defaultConfig.rootOption)
   let db = getAll(%%%"dbpath").optLast.orElse(defaultConfig.dbOption)
+  let cache = getAll(%%%"cachedir").optLast.orElse(defaultConfig.cacheOption)
   let gpg = getAll(%%%"gpgdir").optLast.orElse(defaultConfig.gpgOption)
   let arch = getAll(%%%"arch").optLast.get(defaultConfig.arch)
   let colorStr = getAll(%%%"color").optLast.get($defaultConfig.colorMode)
@@ -398,7 +392,7 @@ proc obtainPacmanConfig*(args: seq[Argument]): PacmanConfig =
             file.close()
         pgpKeyserver)
 
-  let config = PacmanConfig(rootOption: root, dbOption: db, gpgOption: gpg,
+  let config = PacmanConfig(rootOption: root, dbOption: db, cacheOption: cache, gpgOption: gpg,
     dbs: defaultConfig.dbs, arch: arch, colorMode: color, debug: debug,
     progressBar: progressBar, verbosePkgList: defaultConfig.verbosePkgList,
     pgpKeyserver: pgpKeyserver, ignorePkgs: ignorePkgs + defaultConfig.ignorePkgs,
diff --git a/src/utils.nim b/src/utils.nim
index b480ce9..7dcf620 100644
--- a/src/utils.nim
+++ b/src/utils.nim
@@ -285,6 +285,17 @@ proc dropPrivileges*(): bool =
   else:
     return true
 
+proc checkExec(file: string): bool =
+  var statv: Stat
+  stat(file, statv) == 0 and (statv.st_mode and S_IXUSR) == S_IXUSR
+
+let sudoPrefix*: seq[string] = if checkExec(sudoCmd):
+    @[sudoCmd]
+  elif checkExec(suCmd):
+    @[suCmd, "root", "-c", "exec \"$@\"", "--", "sh"]
+  else:
+    @[]
+
 var intSigact: SigAction
 intSigact.sa_handler = SIG_DFL
 discard sigaction(SIGINT, intSigact)