source: release/1.6/source/library/ppc-linux-syscalls.lisp @ 14493

Last change on this file since 14493 was 13067, checked in by rme, 10 years ago

Update copyright notices.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 18.9 KB
Line 
1;;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 2001-2009 Clozure Associates
4;;;   This file is part of Clozure CL. 
5;;;
6;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with Clozure CL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
11;;;
12;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
13;;;
14;;;   The LLGPL is also available online at
15;;;   http://opensource.franz.com/preamble.html
16
17(in-package "CCL")
18
19(eval-when (:compile-toplevel :load-toplevel :execute)
20  (require "SYSCALL"))
21
22
23
24
25
26
27
28(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::exit 1 (:signed-fullword) :void)
29(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fork 2 () :signed-fullword)
30(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::read 3 (:unsigned-fullword :address :unsigned-fullword)
31                :signed-fullword)
32(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::write 4 (:unsigned-fullword :address :unsigned-fullword)
33                :signed-fullword)
34(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::open 5 (:address :unsigned-fullword :unsigned-fullword) :signed-fullword :min-args 2)
35(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::close 6 (:unsigned-fullword) :signed-fullword )
36(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::waitpid 7 (:unsigned-fullword :address :signed-fullword)
37                :signed-fullword)
38(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::creat 8 (:address :unsigned-fullword) :signed-fullword )
39(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::link 9 (:address :address) :signed-fullword)
40(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::unlink 10 (:address) :signed-fullword )
41(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::execve 11 (:address :address :address) :signed-fullword )
42(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::chdir 12 (:address) :signed-fullword )
43(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::time 13 (:address) :unsigned-fullword )
44(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mknod 14 (:address :unsigned-fullword :unsigned-fullword)
45                :signed-fullword)
46(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::chmod 15 (:address :unsigned-fullword) :signed-fullword)
47(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::lchown 16 (:address :unsigned-fullword :unsigned-fullword)
48                :signed-fullword)
49;(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::oldstat 18 () )
50(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::lseek 19 (:unsigned-fullword :signed-fullword :unsigned-fullword) :signed-fullword )
51(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getpid 20 () :unsigned-fullword)
52(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mount 21 (:address
53                                 :address
54                                 :address
55                                 :unsigned-fullword
56                                 :address) :signed-fullword )
57(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::umount 22 (:address) :signed-fullword )
58
59(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setuid 23 (:unsigned-fullword) :signed-fullword )
60(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getuid 24 () :unsigned-fullword )
61(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::stime 25 (:address) :signed-fullword )
62(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ptrace 26 (:unsigned-fullword
63                                  :unsigned-fullword
64                                  :address
65                                  :address)
66                :signed-fullword)
67(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::alarm 27 (:unsigned-fullword) :unsigned-fullword )
68
69(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::pause 29 () :signed-fullword)
70(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::utime 30 (:address :address) :signed-fullword )
71(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::access 33 (:address :unsigned-fullword) :signed-fullword)
72(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::nice 34 (:signed-fullword) :signed-fullword )
73(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sync 36 () :unsigned-fullword )
74(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::kill 37 (:signed-fullword :unsigned-fullword) :signed-fullword )
75(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rename 38 (:address :address) :signed-fullword )
76(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mkdir 39 (:address :unsigned-fullword) :signed-fullword )
77(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rmdir 40 (:address) :signed-fullword )
78(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::dup 41 (:unsigned-fullword) :signed-fullword )
79(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::pipe 42 (:address) :signed-fullword )
80(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::times 43 (:address) :unsigned-fullword )
81
82(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::brk 45 (:address) :signed-fullword )
83(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setgid 46 (:unsigned-fullword) :signed-fullword)
84(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getgid 47 () :unsigned-fullword )
85(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::signal 48 (:unsigned-fullword :address) :address )
86(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::geteuid 49 () :unsigned-fullword )
87(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getegid 50 () :unsigned-fullword)
88(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::acct 51 (:address) :signed-fullword )
89(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::umount2 52 (:address) :signed-fullword )
90(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ioctl 54 (:unsigned-fullword :signed-fullword :address) :signed-fullword :min-args 2 )
91(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fcntl 55 (:unsigned-fullword :signed-fullword :signed-fullword) :signed-fullword :min-args 2 )
92(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setpgid 57 (:signed-fullword :signed-fullword) :signed-fullword )
93(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::umask 60 (:unsigned-fullword) :unsigned-fullword )
94(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::chroot 61 (:address) :signed-fullword )
95(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ustat 62 (:unsigned-fullword :address) :signed-fullword )
96(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::dup2 63 (:unsigned-fullword :unsigned-fullword) :signed-fullword )
97(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getppid 64 () :unsigned-fullword)
98(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getpgrp 65 () :unsigned-fullword)
99(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setsid 66 () :signed-fullword)
100(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sigaction 67 (:unsigned-fullword :address :address) :signed-fullword )
101(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getrusage 77 (:signed-fullword :address) :signed-fullword)
102(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::gettimeofday 78 (:address :address) :void)
103(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ftruncate 93 (:unsigned-fullword :unsigned-fullword)
104                :signed-fullword)
105(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fchmod 94 (:unsigned-fullword :unsigned-fullword)
106                :signed-fullword )
107(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::socketcall 102 (:unsigned-fullword :address) :signed-fullword )
108(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::stat 106 (:address :address) :signed-fullword)
109(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::lstat 107 (:address :address) :signed-fullword)
110(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fstat 108 (:unsigned-fullword :address) :signed-fullword )
111
112(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fsync 118 (:unsigned-fullword) :signed-fullword )
113(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::uname 122  (:address) :signed-fullword)
114(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fchdir 133 (:unsigned-fullword) :signed-fullword )
115(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::_llseek 140 (:unsigned-fullword :unsigned-fullword :unsigned-fullword :address :unsigned-fullword) :signed-fullword )
116(define-syscall (logior platform-cpu-ppc platform-os-linux)     syscalls::select 142 (:unsigned-fullword :address :address
117                                                  :address :address)
118                :signed-fullword)
119(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getcwd 182 (:address :unsigned-fullword) :signed-fullword )
120
121(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::poll 167 ((:* (:struct :pollfd)) :int :int) :int)
122
123#+notdefinedyet
124(progn
125(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sgetmask 68 () )
126(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ssetmask 69 () )
127(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setreuid 70 () )
128(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setregid 71 () )
129(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sigsuspend 72 () )
130(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sigpending 73 () )
131(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sethostname 74 () )
132(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setrlimit 75 () )
133(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getrlimit 76 () )
134(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::settimeofday 79 () )
135(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getgroups 80 () )
136(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setgroups 81 () )
137(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::symlink 83 () )
138(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::oldlstat 84 () )
139(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::readlink 85 () )
140(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::uselib 86 () )
141(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::swapon 87 () )
142(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::reboot 88 () )
143(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::readdir 89 () )
144(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mmap 90 () )
145(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::munmap 91 () )
146(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::truncate 92 () )
147
148(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fchown 95 () )
149(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getpriority 96 () )
150(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setpriority 97 () )
151(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::statfs 99 () )
152(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fstatfs 100 () )
153(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ioperm 101 () )
154(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::syslog 103 () )
155(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setitimer 104 () )
156(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getitimer 105 () )
157(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::olduname 109 () )
158(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::iopl 110 () )
159(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::vhangup 111 () )
160(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::idle 112 () )
161(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::vm86 113 () )
162(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::wait4 114 () )
163(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::swapoff 115 () )
164(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sysinfo 116 () )
165(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::ipc 117 () )
166(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sigreturn 119 () )
167(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::clone 120 () )
168(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setdomainname 121 () )
169(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::modify_ldt 123 () )
170(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::adjtimex 124 () )
171(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mprotect 125 () )
172(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sigprocmask 126 () )
173(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::create_module    127 () )
174(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::init_module      128 () )
175(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::delete_module    129 () )
176(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::get_kernel_syms  130 () )
177(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::quotactl 131 () )
178(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getpgid 132 () )
179(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::bdflush 134 () )
180(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sysfs 135 () )
181(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::personality 136 () )
182(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setfsuid 138 () )
183(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setfsgid 139 () )
184(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getdents 141 () )
185(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::_newselect 142 () )
186(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::flock 143 () )
187(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::msync 144 () )
188(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::readv 145 () )
189(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::writev 146 () )
190(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getsid 147 () )
191(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::fdatasync 148 () )
192(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::_sysctl 149 () )
193(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mlock 150 () )
194(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::munlock 151 () )
195(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mlockall 152 () )
196(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::munlockall 153 () )
197(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_setparam 154 () )
198(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_getparam 155 () )
199(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_setscheduler 156 () )
200(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_getscheduler 157 () )
201(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_yield 158 () )
202(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_get_priority_max 159 () )
203(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_get_priority_min 160 () )
204(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sched_rr_get_interval 161 () )
205(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::nanosleep 162 () )
206(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::mremap 163 () )
207(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setresuid 164 () )
208(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getresuid 165 () )
209(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::query_module     166 () )
210(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::poll 167 () )
211(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::nfsservctl 168 () )
212(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::setresgid 169 () )
213(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getresgid 170 () )
214(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::prctl 171 () )
215(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigreturn 172 () )
216(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigaction 173 () )
217(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigprocmask 174 () )
218(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigpending 175 () )
219(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigtimedwait 176 () )
220(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigqueueinfo 177 () )
221(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::rt_sigsuspend 178 () )
222(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::pread 179 () )
223(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::pwrite 180 () )
224(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::chown 181 (:address) )
225
226(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::capget 183 () )
227(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::capset 184 () )
228(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sigaltstack 185 () )
229(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::sendfile 186 () )
230(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::getpmsg 187       () )
231(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::putpmsg 188       () )
232(define-syscall (logior platform-cpu-ppc platform-os-linux)  syscalls::vfork 189 () )
233
234)
Note: See TracBrowser for help on using the repository browser.