import future, os, posix, sequtils, strutils

let params = commandLineParams()
let destination = params[0]
let paramsStart = 1

proc splitCommands(index: int, res: seq[seq[string]]): seq[seq[string]] =
  if index < params.len:
    let count = params[index].parseInt
    let args = params[index + 1 .. index + count]
    splitCommands(index + count + 1, res & args)
  else:
    res

let commands = splitCommands(paramsStart, @[])
let targets = lc[x | (y <- commands[1 .. ^1], x <- y), string]

for file in targets:
  try:
    let index = file.rfind("/")
    let name = if index >= 0: file[index + 1 .. ^1] else: file
    copyFile(file, destination & "/" & name)
  except:
    discard

proc perror*(s: cstring): void {.importc, header: "<stdio.h>".}
template perror*: void = perror(getAppFilename())

proc runCommand(params: seq[string]): int =
  if params.len > 0:
    let pid = fork()
    if pid == 0:
      let cexec = allocCStringArray(params)
      let code = execvp(cexec[0], cexec)
      perror()
      deallocCStringArray(cexec)
      quit(code)
    else:
      var status: cint = 1
      discard waitpid(pid, status, 0)
      if WIFEXITED(status):
        WEXITSTATUS(status)
      else:
        discard kill(getpid(), status)
        1
  else:
    0

proc buildParams(index: int, asArg: string): seq[string] =
  if commands[index].len > 0: commands[0] & asArg & "--" & commands[index] else: @[]

let asdepsCode = runCommand(buildParams(1, "--asdeps"))
if asdepsCode == 0:
  programResult = runCommand(buildParams(2, "--asexplicit"))
else:
  programResult = asdepsCode