src/os/ffi-functions-unix.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- lfp_spawn(3) and its minions
   4 ;;;
   5
   6 (in-package :iolib.os)
   7
   8 (defsyscall (lfp-spawn "lfp_spawn")
   9     (:int :restart t)
  10   (pid          :pointer)
  11   (path         :string)
  12   (arguments    :pointer)
  13   (environment  :pointer)
  14   (file-actions :pointer)
  15   (attributes   :pointer))
  16
  17 (defsyscall (lfp-spawnp "lfp_spawnp")
  18     (:int :restart t)
  19   (pid          :pointer)
  20   (file         :string)
  21   (arguments    :pointer)
  22   (environment  :pointer)
  23   (file-actions :pointer)
  24   (attributes   :pointer))
  25
  26 (defsyscall (lfp-spawnattr-init
  27              "lfp_spawnattr_init")
  28     :int
  29   (attributes :pointer))
  30
  31 (defsyscall (lfp-spawnattr-destroy
  32              "lfp_spawnattr_destroy")
  33     :int
  34   (attributes :pointer))
  35
  36 (defsyscall (lfp-spawnattr-setflags
  37              "lfp_spawnattr_setflags")
  38     :int
  39   (attributes :pointer)
  40   (flags      :uint32))
  41
  42 (defsyscall (lfp-spawnattr-setsigmask
  43              "lfp_spawnattr_setsigmask")
  44     :int
  45   (attributes :pointer)
  46   (sigmask    :pointer))
  47
  48 (defsyscall (lfp-spawnattr-setsigdefault
  49              "lfp_spawnattr_setsigdefault")
  50     :int
  51   (attributes :pointer)
  52   (sigdefault :pointer))
  53
  54 (defsyscall (lfp-spawnattr-setpgroup
  55              "lfp_spawnattr_setpgroup")
  56     :int
  57   (attributes :pointer)
  58   (pgroup     pid-t))
  59
  60 (defsyscall (lfp-spawnattr-setsid
  61              "lfp_spawnattr_setsid")
  62     :int
  63   (attributes :pointer))
  64
  65 (defsyscall (lfp-spawnattr-setctty
  66              "lfp_spawnattr_setctty")
  67     :int
  68   (attributes :pointer)
  69   (ptmfd      pid-t))
  70
  71 (defsyscall (lfp-spawnattr-setcwd
  72              "lfp_spawnattr_setcwd")
  73     :int
  74   (attributes :pointer)
  75   (path       sstring))
  76
  77 (defsyscall (lfp-spawnattr-setuid
  78              "lfp_spawnattr_setuid")
  79     :int
  80   (attributes :pointer)
  81   (uid        uid-t))
  82
  83 (defsyscall (lfp-spawnattr-setgid
  84              "lfp_spawnattr_setgid")
  85     :int
  86   (attributes :pointer)
  87   (gid        gid-t))
  88
  89 ;; (defsyscall (lfp-spawnattr-getschedpolicy
  90 ;;              "lfp_spawnattr_getschedpolicy")
  91 ;;     :int
  92 ;;   (attributes  :pointer)
  93 ;;   (schedpolicy :pointer))
  94
  95 ;; (defsyscall (lfp-spawnattr-setschedpolicy
  96 ;;              "lfp_spawnattr_setschedpolicy")
  97 ;;     :int
  98 ;;   (attributes  :pointer)
  99 ;;   (schedpolicy :pointer))
 100
 101 ;; (defsyscall (lfp-spawnattr-getschedparam
 102 ;;              "lfp_spawnattr_getschedparam")
 103 ;;     :int
 104 ;;   (attributes :pointer)
 105 ;;   (schedparam :pointer))
 106
 107 ;; (defsyscall (lfp-spawnattr-setschedparam
 108 ;;              "lfp_spawnattr_setschedparam")
 109 ;;     :int
 110 ;;   (attributes :pointer)
 111 ;;   (schedparam :pointer))
 112
 113 (defsyscall (lfp-spawn-file-actions-init
 114              "lfp_spawn_file_actions_init")
 115     :int
 116   (file-actions :pointer))
 117
 118 (defsyscall (lfp-spawn-file-actions-destroy
 119              "lfp_spawn_file_actions_destroy")
 120     :int
 121   (file-actions :pointer))
 122
 123 (defsyscall (lfp-spawn-file-actions-addopen
 124              "lfp_spawn_file_actions_addopen")
 125     :int
 126   (file-actions :pointer)
 127   (fd           :int)
 128   (path         :string)
 129   (flags        :int)
 130   (mode         mode-t))
 131
 132 (defsyscall (lfp-spawn-file-actions-addclose
 133              "lfp_spawn_file_actions_addclose")
 134     :int
 135   (file-actions :pointer)
 136   (fd           :int))
 137
 138 (defsyscall (lfp-spawn-file-actions-adddup2
 139              "lfp_spawn_file_actions_adddup2")
 140     :int
 141   (file-actions :pointer)
 142   (fd           :int)
 143   (newfd        :int))