diff options
| -rw-r--r-- | defs.mk | 2 | ||||
| -rw-r--r-- | hurd/ports/notify.lisp | 2 | ||||
| -rw-r--r-- | libs/common.c | 1 | ||||
| -rw-r--r-- | libs/fs-wrapper.c | 64 | ||||
| -rw-r--r-- | libs/fsys-wrapper.c | 20 | ||||
| -rw-r--r-- | libs/io-wrapper.c | 62 | ||||
| -rw-r--r-- | libs/notify-wrapper.c | 12 | ||||
| -rw-r--r-- | mach/port-right.lisp | 2 | ||||
| -rw-r--r-- | mach/port-type.lisp | 1 | ||||
| -rw-r--r-- | translator/fs-wrapper.lisp | 2 | ||||
| -rw-r--r-- | translator/fsys-wrapper.lisp | 2 | ||||
| -rw-r--r-- | translator/io-wrapper.lisp | 2 |
12 files changed, 87 insertions, 85 deletions
@@ -4,6 +4,6 @@ LDFLAGS = -lmachuser -lc -lhurduser HURD_DIRECTORY = /usr/include/hurd MACH_DIRECTORY = /usr/include/mach -MIG_SERVER = mig -prefix lisp_ -user /dev/null -header /dev/null -server +MIG_SERVER = mig -prefix lisp_S_ -user /dev/null -header /dev/null -server MIG_USER = mig -server /dev/null -header /dev/null -user diff --git a/hurd/ports/notify.lisp b/hurd/ports/notify.lisp index c7fd4d6f4..9c9d511da 100644 --- a/hurd/ports/notify.lisp +++ b/hurd/ports/notify.lisp @@ -24,7 +24,7 @@ ;; For debugging purposes (defcfun ("get_notify_info" %get-notify-info) :void) -(defcfun ("lisp_notify_server" %lisp-notify-server) :boolean +(defcfun ("lisp_S_notify_server" %lisp-notify-server) :boolean (in :pointer) (out :pointer)) diff --git a/libs/common.c b/libs/common.c index 1b2984d3a..b9f2f2d77 100644 --- a/libs/common.c +++ b/libs/common.c @@ -39,3 +39,4 @@ _get_module_info (void) void set_ ## module ## _routine(const unsigned what, void *fun) { \ _set_routine(what, fun); \ } + diff --git a/libs/fs-wrapper.c b/libs/fs-wrapper.c index 08b65fcf4..006bd9325 100644 --- a/libs/fs-wrapper.c +++ b/libs/fs-wrapper.c @@ -45,7 +45,7 @@ typedef kern_return_t (*file_exec_type) (file_t, mach_msg_type_number_t); kern_return_t -lisp_file_exec (file_t exec_file, +lisp_S_file_exec (file_t exec_file, mach_port_t exec_task, int flags, data_t argv, @@ -85,7 +85,7 @@ typedef kern_return_t (*file_chown_type) (file_t chown_file, uid_t new_owner, gid_t new_group); kern_return_t -lisp_file_chown (file_t chown_file, uid_t new_owner, gid_t new_group) +lisp_S_file_chown (file_t chown_file, uid_t new_owner, gid_t new_group) { if (routines[FILE_CHOWN] == NULL) { @@ -102,7 +102,7 @@ lisp_file_chown (file_t chown_file, uid_t new_owner, gid_t new_group) typedef kern_return_t (*file_chauthor_type) (file_t, uid_t); kern_return_t -lisp_file_chauthor (file_t chauth_file, uid_t new_author) +lisp_S_file_chauthor (file_t chauth_file, uid_t new_author) { if (routines[FILE_CHAUTHOR] == NULL) { @@ -119,7 +119,7 @@ lisp_file_chauthor (file_t chauth_file, uid_t new_author) typedef kern_return_t (*file_chmod_type) (file_t, mode_t); kern_return_t -lisp_file_chmod (file_t chmod_file, mode_t new_mode) +lisp_S_file_chmod (file_t chmod_file, mode_t new_mode) { if (routines[FILE_CHMOD] == NULL) { @@ -136,7 +136,7 @@ lisp_file_chmod (file_t chmod_file, mode_t new_mode) typedef kern_return_t (*file_chflags_type) (file_t, int); kern_return_t -lisp_file_chflags (file_t chflags_file, int new_flags) +lisp_S_file_chflags (file_t chflags_file, int new_flags) { if (routines[FILE_CHFLAGS] == NULL) { @@ -154,7 +154,7 @@ typedef kern_return_t (*file_utimes_type) (file_t, time_value_t *, time_value_t *); kern_return_t -lisp_file_utimes (file_t utimes_file, +lisp_S_file_utimes (file_t utimes_file, time_value_t new_atime, time_value_t new_mtime) { if (routines[FILE_UTIMES] == NULL) @@ -172,7 +172,7 @@ lisp_file_utimes (file_t utimes_file, typedef kern_return_t (*file_set_size_type) (file_t, off_t); kern_return_t -lisp_file_set_size (file_t trunc_file, loff_t new_size) +lisp_S_file_set_size (file_t trunc_file, loff_t new_size) { if (routines[FILE_SET_SIZE] == NULL) { @@ -189,7 +189,7 @@ lisp_file_set_size (file_t trunc_file, loff_t new_size) typedef kern_return_t (*file_lock_type) (file_t, int); kern_return_t -lisp_file_lock (file_t lock_file, int flags) +lisp_S_file_lock (file_t lock_file, int flags) { if (routines[FILE_LOCK] == NULL) { @@ -206,7 +206,7 @@ lisp_file_lock (file_t lock_file, int flags) typedef kern_return_t (*file_lock_stat_type) (file_t, int *, int *); kern_return_t -lisp_file_lock_stat (file_t lock_file, int *mystatus, int *otherstatus) +lisp_S_file_lock_stat (file_t lock_file, int *mystatus, int *otherstatus) { if (routines[FILE_LOCK_STAT] == NULL) { @@ -223,7 +223,7 @@ lisp_file_lock_stat (file_t lock_file, int *mystatus, int *otherstatus) typedef kern_return_t (*file_check_access_type) (file_t, int *); kern_return_t -lisp_file_check_access (file_t file, int *allowed) +lisp_S_file_check_access (file_t file, int *allowed) { if (routines[FILE_CHECK_ACCESS] == NULL) { @@ -240,7 +240,7 @@ lisp_file_check_access (file_t file, int *allowed) typedef kern_return_t (*file_notice_changes_type) (file_t, mach_port_t); kern_return_t -lisp_file_notice_changes (file_t file, mach_port_t port) +lisp_S_file_notice_changes (file_t file, mach_port_t port) { if (routines[FILE_NOTICE_CHANGES] == NULL) { @@ -260,7 +260,7 @@ typedef kern_return_t (*file_getcontrol_type) (file_t, mach_msg_type_name_t *); kern_return_t -lisp_file_getcontrol (file_t file, +lisp_S_file_getcontrol (file_t file, mach_port_t * control, mach_msg_type_name_t * controlPoly) { @@ -279,7 +279,7 @@ lisp_file_getcontrol (file_t file, typedef kern_return_t (*file_statfs_type) (file_t, fsys_statfsbuf_t *); kern_return_t -lisp_file_statfs (file_t file, fsys_statfsbuf_t * info) +lisp_S_file_statfs (file_t file, fsys_statfsbuf_t * info) { printf ("STATING\n"); if (routines[FILE_STATFS] == NULL) @@ -297,7 +297,7 @@ lisp_file_statfs (file_t file, fsys_statfsbuf_t * info) typedef kern_return_t (*file_sync_type) (file_t, int, int); kern_return_t -lisp_file_sync (file_t file, int wait, int omit_metadata) +lisp_S_file_sync (file_t file, int wait, int omit_metadata) { if (routines[FILE_SYNC] == NULL) { @@ -314,7 +314,7 @@ lisp_file_sync (file_t file, int wait, int omit_metadata) typedef kern_return_t (*file_syncfs_type) (file_t, int, int); kern_return_t -lisp_file_syncfs (file_t file, int wait, int do_children) +lisp_S_file_syncfs (file_t file, int wait, int do_children) { if (routines[FILE_SYNCFS] == NULL) { @@ -341,7 +341,7 @@ typedef kern_return_t (*file_get_storage_info_type) (file_t, *); kern_return_t -lisp_file_get_storage_info (file_t file, +lisp_S_file_get_storage_info (file_t file, portarray_t * ports, mach_msg_type_name_t * portsPoly, mach_msg_type_number_t * portsCnt, @@ -371,7 +371,7 @@ typedef kern_return_t (*file_getlinknode_type) (file_t, mach_msg_type_name_t *); kern_return_t -lisp_file_getlinknode (file_t file, +lisp_S_file_getlinknode (file_t file, mach_port_t * linknode, mach_msg_type_name_t * linknodePoly) { @@ -391,7 +391,7 @@ typedef kern_return_t (*file_getfh_type) (file_t, data_t *, mach_msg_type_number_t *); kern_return_t -lisp_file_getfh (file_t file, +lisp_S_file_getfh (file_t file, data_t * filehandle, mach_msg_type_number_t * filehandleCnt) { if (routines[FILE_GETFH] == NULL) @@ -413,7 +413,7 @@ typedef kern_return_t (*dir_lookup_type) (file_t, mach_msg_type_name_t *); kern_return_t -lisp_dir_lookup (file_t startdir, +lisp_S_dir_lookup (file_t startdir, string_t filename, int flags, mode_t mode, @@ -442,7 +442,7 @@ typedef kern_return_t (*dir_readdir_type) (file_t, int, vm_size_t, int *); kern_return_t -lisp_dir_readdir (file_t dir, +lisp_S_dir_readdir (file_t dir, data_t * data, mach_msg_type_number_t * dataCnt, boolean_t * dataDealloc, @@ -464,7 +464,7 @@ lisp_dir_readdir (file_t dir, typedef kern_return_t (*dir_mkdir_type) (file_t, string_t, mode_t); kern_return_t -lisp_dir_mkdir (file_t directory, string_t name, mode_t mode) +lisp_S_dir_mkdir (file_t directory, string_t name, mode_t mode) { if (routines[DIR_MKDIR] == NULL) { @@ -481,7 +481,7 @@ lisp_dir_mkdir (file_t directory, string_t name, mode_t mode) typedef kern_return_t (*dir_rmdir_type) (file_t, string_t); kern_return_t -lisp_dir_rmdir (file_t directory, string_t name) +lisp_S_dir_rmdir (file_t directory, string_t name) { if (routines[DIR_RMDIR] == NULL) { @@ -498,7 +498,7 @@ lisp_dir_rmdir (file_t directory, string_t name) typedef kern_return_t (*dir_unlink_type) (file_t, string_t); kern_return_t -lisp_dir_unlink (file_t directory, string_t name) +lisp_S_dir_unlink (file_t directory, string_t name) { if (routines[DIR_UNLINK] == NULL) { @@ -515,7 +515,7 @@ lisp_dir_unlink (file_t directory, string_t name) typedef kern_return_t (*dir_link_type) (file_t, file_t, string_t, int); kern_return_t -lisp_dir_link (file_t dir, file_t file, string_t name, int excl) +lisp_S_dir_link (file_t dir, file_t file, string_t name, int excl) { if (routines[DIR_LINK] == NULL) { @@ -533,7 +533,7 @@ typedef kern_return_t (*dir_rename_type) (file_t, string_t, file_t, string_t, int); kern_return_t -lisp_dir_rename (file_t olddirectory, +lisp_S_dir_rename (file_t olddirectory, string_t oldname, file_t newdirectory, string_t newname, int excl) { @@ -554,7 +554,7 @@ typedef kern_return_t (*dir_mkfile_type) (file_t, mach_msg_type_name_t *); kern_return_t -lisp_dir_mkfile (file_t directory, +lisp_S_dir_mkfile (file_t directory, int flags, mode_t mode, mach_port_t * newnode, mach_msg_type_name_t * newnodePoly) @@ -574,7 +574,7 @@ lisp_dir_mkfile (file_t directory, typedef kern_return_t (*dir_notice_changes_type) (file_t, mach_port_t); kern_return_t -lisp_dir_notice_changes (file_t directory, mach_port_t port) +lisp_S_dir_notice_changes (file_t directory, mach_port_t port) { if (routines[DIR_NOTICE_CHANGES] == NULL) { @@ -596,7 +596,7 @@ typedef kern_return_t (*file_set_translator_type) (file_t, mach_port_t); kern_return_t -lisp_file_set_translator (file_t file, +lisp_S_file_set_translator (file_t file, int passive_flags, int active_flags, int oldtrans_flags, @@ -624,7 +624,7 @@ typedef kern_return_t (*file_get_translator_type) (file_t, mach_msg_type_number_t *); kern_return_t -lisp_file_get_translator (file_t file, +lisp_S_file_get_translator (file_t file, data_t * translator, mach_msg_type_number_t * translatorCnt) { @@ -647,7 +647,7 @@ typedef kern_return_t (*file_get_translator_cntl_type) (file_t, *); kern_return_t -lisp_file_get_translator_cntl (file_t file, +lisp_S_file_get_translator_cntl (file_t file, mach_port_t * translator_cntl, mach_msg_type_name_t * translator_cntlPoly) { @@ -670,7 +670,7 @@ typedef kern_return_t (*file_get_fs_options_type) (file_t, mach_msg_type_number_t *); kern_return_t -lisp_file_get_fs_options (file_t file, +lisp_S_file_get_fs_options (file_t file, data_t * options, mach_msg_type_number_t * optionsCnt) { @@ -692,7 +692,7 @@ typedef kern_return_t (*file_reparent_type) (file_t, mach_msg_type_name_t *); kern_return_t -lisp_file_reparent (file_t file, +lisp_S_file_reparent (file_t file, mach_port_t parent, mach_port_t * newfile, mach_msg_type_name_t * new_filePoly) diff --git a/libs/fsys-wrapper.c b/libs/fsys-wrapper.c index 0cc6e213e..01f6b4312 100644 --- a/libs/fsys-wrapper.c +++ b/libs/fsys-wrapper.c @@ -39,7 +39,7 @@ typedef kern_return_t (*fsys_startup_type) (mach_port_t, mach_msg_type_name_t *); kern_return_t -lisp_fsys_startup (mach_port_t bootstrap, +lisp_S_fsys_startup (mach_port_t bootstrap, mach_port_t reply, mach_msg_type_name_t replyPoly, int openflags, @@ -64,7 +64,7 @@ typedef kern_return_t (*fsys_goaway_type) (fsys_t, mach_port_t, mach_msg_type_name_t, int); kern_return_t -lisp_fsys_goaway (fsys_t fsys, mach_port_t reply, +lisp_S_fsys_goaway (fsys_t fsys, mach_port_t reply, mach_msg_type_name_t replyPoly, int flags) { if (routines[FSYS_GOAWAY] == NULL) @@ -93,7 +93,7 @@ typedef kern_return_t (*fsys_getroot_type) (fsys_t, mach_msg_type_name_t *); kern_return_t -lisp_fsys_getroot (fsys_t fsys, +lisp_S_fsys_getroot (fsys_t fsys, mach_port_t reply, mach_msg_type_name_t replyPoly, mach_port_t dotdot_node, @@ -137,7 +137,7 @@ typedef kern_return_t (*fsys_getfile_type) (fsys_t, mach_msg_type_name_t *); kern_return_t -lisp_fsys_getfile (fsys_t fsys, +lisp_S_fsys_getfile (fsys_t fsys, mach_port_t reply, mach_msg_type_name_t replyPoly, idarray_t gen_uids, @@ -168,7 +168,7 @@ typedef kern_return_t (*fsys_syncfs_type) (fsys_t, int, int); kern_return_t -lisp_fsys_syncfs (fsys_t fsys, +lisp_S_fsys_syncfs (fsys_t fsys, mach_port_t reply, mach_msg_type_name_t replyPoly, int wait, int do_children) { @@ -190,7 +190,7 @@ typedef kern_return_t (*fsys_set_options_type) (fsys_t, mach_msg_type_number_t, int); kern_return_t -lisp_fsys_set_options (fsys_t fsys, +lisp_S_fsys_set_options (fsys_t fsys, mach_port_t reply, mach_msg_type_name_t replyPoly, data_t options, @@ -220,7 +220,7 @@ typedef kern_return_t (*fsys_getpriv_type) (fsys_t, mach_msg_type_name_t *); kern_return_t -lisp_fsys_getpriv (fsys_t fsys, +lisp_S_fsys_getpriv (fsys_t fsys, mach_port_t reply, mach_msg_type_name_t replyPoly, mach_port_t * host_priv, @@ -249,7 +249,7 @@ typedef kern_return_t (*fsys_init_type) (fsys_t, mach_port_t, auth_t); kern_return_t -lisp_fsys_init (fsys_t fsys, +lisp_S_fsys_init (fsys_t fsys, mach_port_t reply_port, mach_msg_type_name_t reply_portPoly, mach_port_t proc_server, auth_t auth_handle) @@ -273,7 +273,7 @@ typedef kern_return_t (*fsys_forward_type) (mach_port_t, mach_msg_type_number_t); kern_return_t -lisp_fsys_forward (mach_port_t server, +lisp_S_fsys_forward (mach_port_t server, mach_port_t reply, mach_msg_type_name_t replyPoly, mach_port_t requestor, @@ -298,7 +298,7 @@ typedef kern_return_t (*fsys_get_options_type) (fsys_t, mach_msg_type_number_t *); kern_return_t -lisp_fsys_get_options (fsys_t server, +lisp_S_fsys_get_options (fsys_t server, mach_port_t reply, mach_msg_type_name_t replyPoly, data_t * options, mach_msg_type_number_t * optionsCnt) diff --git a/libs/io-wrapper.c b/libs/io-wrapper.c index 9ac4ec3bd..28a57aa80 100644 --- a/libs/io-wrapper.c +++ b/libs/io-wrapper.c @@ -37,7 +37,7 @@ typedef kern_return_t (*io_write_type) (io_t, off_t, vm_size_t *); kern_return_t -lisp_io_write (io_t io_object, +lisp_S_io_write (io_t io_object, data_t data, mach_msg_type_number_t dataCnt, loff_t offset, vm_size_t * amount) @@ -59,7 +59,7 @@ typedef kern_return_t (*io_read_type) (io_t, off_t, vm_size_t); kern_return_t -lisp_io_read (io_t io_object, +lisp_S_io_read (io_t io_object, data_t * data, mach_msg_type_number_t * dataCnt, loff_t offset, vm_size_t amount) @@ -79,7 +79,7 @@ lisp_io_read (io_t io_object, typedef kern_return_t (*io_seek_type) (io_t, off_t, int, off_t *); kern_return_t -lisp_io_seek (io_t io_object, loff_t offset, int whence, loff_t * newp) +lisp_S_io_seek (io_t io_object, loff_t offset, int whence, loff_t * newp) { if (routines[IO_SEEK] == NULL) { @@ -96,7 +96,7 @@ lisp_io_seek (io_t io_object, loff_t offset, int whence, loff_t * newp) typedef kern_return_t (*io_readable_type) (io_t, vm_size_t *); kern_return_t -lisp_io_readable (io_t io_object, vm_size_t * amount) +lisp_S_io_readable (io_t io_object, vm_size_t * amount) { if (routines[IO_READABLE] == NULL) { @@ -113,7 +113,7 @@ lisp_io_readable (io_t io_object, vm_size_t * amount) typedef kern_return_t (*io_set_all_openmodes_type) (io_t, int); kern_return_t -lisp_io_set_all_openmodes (io_t io_object, int newbits) +lisp_S_io_set_all_openmodes (io_t io_object, int newbits) { if (routines[IO_SET_ALL_OPENMODES] == NULL) { @@ -131,7 +131,7 @@ lisp_io_set_all_openmodes (io_t io_object, int newbits) typedef kern_return_t (*io_get_openmodes_type) (io_t, int *); kern_return_t -lisp_io_get_openmodes (io_t io_object, int *bits) +lisp_S_io_get_openmodes (io_t io_object, int *bits) { if (routines[IO_GET_OPENMODES] == NULL) { @@ -148,7 +148,7 @@ lisp_io_get_openmodes (io_t io_object, int *bits) typedef kern_return_t (*io_set_some_openmodes_type) (io_t, int); kern_return_t -lisp_io_set_some_openmodes (io_t io_object, int bits_to_set) +lisp_S_io_set_some_openmodes (io_t io_object, int bits_to_set) { if (routines[IO_SET_SOME_OPENMODES] == NULL) { @@ -166,7 +166,7 @@ lisp_io_set_some_openmodes (io_t io_object, int bits_to_set) typedef kern_return_t (*io_clear_some_openmodes_type) (io_t, int); kern_return_t -lisp_io_clear_some_openmodes (io_t io_object, int bits_to_clear) +lisp_S_io_clear_some_openmodes (io_t io_object, int bits_to_clear) { if (routines[IO_CLEAR_SOME_OPENMODES] == NULL) { @@ -186,7 +186,7 @@ typedef kern_return_t (*io_async_type) (io_t, mach_port_t, mach_msg_type_name_t *); kern_return_t -lisp_io_async (io_t io_object, +lisp_S_io_async (io_t io_object, mach_port_t notify_port, mach_port_t * async_id_port, mach_msg_type_name_t * async_id_portPoly) @@ -207,7 +207,7 @@ lisp_io_async (io_t io_object, typedef kern_return_t (*io_mod_owner_type) (io_t, pid_t); kern_return_t -lisp_io_mod_owner (io_t io_object, pid_t owner) +lisp_S_io_mod_owner (io_t io_object, pid_t owner) { if (routines[IO_MOD_OWNER] == NULL) { @@ -224,7 +224,7 @@ lisp_io_mod_owner (io_t io_object, pid_t owner) typedef kern_return_t (*io_get_owner_type) (io_t, pid_t *); kern_return_t -lisp_io_get_owner (io_t io_object, pid_t * owner) +lisp_S_io_get_owner (io_t io_object, pid_t * owner) { if (routines[IO_GET_OWNER] == NULL) { @@ -243,7 +243,7 @@ typedef kern_return_t (*io_get_icky_async_id) (io_t, mach_msg_type_name_t *); kern_return_t -lisp_io_get_icky_async_id (io_t io_object, +lisp_S_io_get_icky_async_id (io_t io_object, mach_port_t * icky_async_id_port, mach_msg_type_name_t * icky_async_id_portPoly) { @@ -265,7 +265,7 @@ lisp_io_get_icky_async_id (io_t io_object, typedef kern_return_t (*io_select_type) (io_t, int *); kern_return_t -lisp_io_select (io_t io_object, int *select_type) +lisp_S_io_select (io_t io_object, int *select_type) { if (routines[IO_SELECT] == NULL) { @@ -282,7 +282,7 @@ lisp_io_select (io_t io_object, int *select_type) typedef kern_return_t (*io_stat_type) (io_t, io_statbuf_t *); kern_return_t -lisp_io_stat (io_t stat_object, io_statbuf_t * stat_info) +lisp_S_io_stat (io_t stat_object, io_statbuf_t * stat_info) { if (routines[IO_STAT] == NULL) { @@ -299,7 +299,7 @@ lisp_io_stat (io_t stat_object, io_statbuf_t * stat_info) typedef kern_return_t (*io_reauthenticate_type) (io_t, mach_port_t); kern_return_t -lisp_io_reauthenticate (io_t auth_object, mach_port_t rendezvous2) +lisp_S_io_reauthenticate (io_t auth_object, mach_port_t rendezvous2) { if (routines[IO_REAUTHENTICATE] == NULL) { @@ -322,7 +322,7 @@ typedef kern_return_t (*io_restrict_auth_type) (io_t, mach_msg_type_number_t); kern_return_t -lisp_io_restrict_auth (io_t io_object, +lisp_S_io_restrict_auth (io_t io_object, mach_port_t * new_object, mach_msg_type_name_t * new_objectPoly, idarray_t uids, @@ -348,7 +348,7 @@ typedef kern_return_t (*io_duplicate_type) (io_t, mach_msg_type_name_t *); kern_return_t -lisp_io_duplicate (io_t io_object, +lisp_S_io_duplicate (io_t io_object, mach_port_t * newport, mach_msg_type_name_t * newportPoly) { if (routines[IO_DUPLICATE] == NULL) @@ -368,7 +368,7 @@ typedef kern_return_t (*io_server_version_type) (io_t, int *); kern_return_t -lisp_io_server_version (io_t vers_object, +lisp_S_io_server_version (io_t vers_object, string_t server_name, int *server_major_version, int *server_minor_version, int *server_edit_level) @@ -393,7 +393,7 @@ typedef kern_return_t (*io_map_type) (io_t, mach_port_t *, mach_msg_type_name_t *); kern_return_t -lisp_io_map (io_t io_object, +lisp_S_io_map (io_t io_object, mach_port_t * memobjrd, mach_msg_type_name_t * memobjrdPoly, mach_port_t * memobjwt, mach_msg_type_name_t * memobjwtPoly) @@ -416,7 +416,7 @@ typedef kern_return_t (*io_map_cntl_type) (io_t, mach_msg_type_name_t *); kern_return_t -lisp_io_map_cntl (io_t io_object, +lisp_S_io_map_cntl (io_t io_object, mach_port_t * memobj, mach_msg_type_name_t * memobjPoly) { if (routines[IO_MAP_CNTL] == NULL) @@ -434,7 +434,7 @@ lisp_io_map_cntl (io_t io_object, typedef kern_return_t (*io_get_conch_type) (io_t); kern_return_t -lisp_io_get_conch (io_t io_object) +lisp_S_io_get_conch (io_t io_object) { if (routines[IO_GET_CONCH] == NULL) { @@ -451,7 +451,7 @@ lisp_io_get_conch (io_t io_object) typedef kern_return_t (*io_release_conch_type) (io_t); kern_return_t -lisp_io_release_conch (io_t io_object) +lisp_S_io_release_conch (io_t io_object) { if (routines[IO_RELEASE_CONCH] == NULL) { @@ -468,7 +468,7 @@ lisp_io_release_conch (io_t io_object) typedef kern_return_t (*io_eofnotify_type) (io_t); kern_return_t -lisp_io_eofnotify (io_t io_object) +lisp_S_io_eofnotify (io_t io_object) { if (routines[IO_EOFNOTIFY] == NULL) { @@ -485,7 +485,7 @@ lisp_io_eofnotify (io_t io_object) typedef kern_return_t (*io_prenotify_type) (io_t, vm_offset_t, vm_offset_t); kern_return_t -lisp_io_prenotify (io_t io_object, +lisp_S_io_prenotify (io_t io_object, vm_offset_t write_start, vm_offset_t write_end) { if (routines[IO_PRENOTIFY] == NULL) @@ -503,7 +503,7 @@ lisp_io_prenotify (io_t io_object, typedef kern_return_t (*io_postnotify_type) (io_t, vm_offset_t, vm_offset_t); kern_return_t -lisp_io_postnotify (io_t io_object, +lisp_S_io_postnotify (io_t io_object, vm_offset_t write_start, vm_offset_t write_end) { if (routines[IO_POSTNOTIFY] == NULL) @@ -521,7 +521,7 @@ lisp_io_postnotify (io_t io_object, typedef kern_return_t (*io_readnotify_type) (io_t); kern_return_t -lisp_io_readnotify (io_t io_object) +lisp_S_io_readnotify (io_t io_object) { if (routines[IO_READNOTIFY] == NULL) { @@ -538,7 +538,7 @@ lisp_io_readnotify (io_t io_object) typedef kern_return_t (*io_readsleep_type) (io_t); kern_return_t -lisp_io_readsleep (io_t io_object) +lisp_S_io_readsleep (io_t io_object) { if (routines[IO_READSLEEP] == NULL) { @@ -555,7 +555,7 @@ lisp_io_readsleep (io_t io_object) typedef kern_return_t (*io_sigio_type) (io_t); kern_return_t -lisp_io_sigio (io_t io_object) +lisp_S_io_sigio (io_t io_object) { if (routines[IO_SIGIO] == NULL) { @@ -572,7 +572,7 @@ lisp_io_sigio (io_t io_object) typedef kern_return_t (*io_pathconf_type) (io_t, int, int *); kern_return_t -lisp_io_pathconf (io_t io_object, int name, int *value) +lisp_S_io_pathconf (io_t io_object, int name, int *value) { if (routines[IO_PATHCONF] == NULL) { @@ -593,7 +593,7 @@ typedef kern_return_t (*io_identity_type) (io_t, mach_msg_type_name_t *, ino64_t *); kern_return_t -lisp_io_identity (io_t io_object, +lisp_S_io_identity (io_t io_object, mach_port_t * idport, mach_msg_type_name_t * idportPoly, mach_port_t * fsidport, @@ -615,7 +615,7 @@ lisp_io_identity (io_t io_object, typedef kern_return_t (*io_revoke_type) (io_t); kern_return_t -lisp_io_revoke (io_t io_object) +lisp_S_io_revoke (io_t io_object) { if (routines[IO_REVOKE] == NULL) { diff --git a/libs/notify-wrapper.c b/libs/notify-wrapper.c index a19cf6786..d2cf7221d 100644 --- a/libs/notify-wrapper.c +++ b/libs/notify-wrapper.c @@ -36,7 +36,7 @@ typedef kern_return_t (*do_mach_notify_port_deleted_type)(mach_port_t, mach_port_t name); kern_return_t -lisp_do_mach_notify_port_deleted(mach_port_t notify, +lisp_S_do_mach_notify_port_deleted(mach_port_t notify, mach_port_t name) { //fprintf(stderr, "notify: port deleted\n"); @@ -56,7 +56,7 @@ typedef kern_return_t (*do_mach_notify_msg_accepted_type)(mach_port_t, mach_port_t); kern_return_t -lisp_do_mach_notify_msg_accepted(mach_port_t notify, +lisp_S_do_mach_notify_msg_accepted(mach_port_t notify, mach_port_t name) { //fprintf(stderr, "notify: msg accepted\n"); @@ -76,7 +76,7 @@ typedef kern_return_t (*do_mach_notify_port_destroyed_type)(mach_port_t, mach_port_t); kern_return_t -lisp_do_mach_notify_port_destroyed(mach_port_t notify, +lisp_S_do_mach_notify_port_destroyed(mach_port_t notify, mach_port_t rights) { //fprintf(stderr, "notify: port-destroyed\n"); @@ -98,7 +98,7 @@ typedef kern_return_t (*do_mach_notify_no_senders_type)(mach_port_t, mach_port_mscount_t); kern_return_t -lisp_do_mach_notify_no_senders(mach_port_t notify, +lisp_S_do_mach_notify_no_senders(mach_port_t notify, mach_port_mscount_t mscount) { //fprintf(stderr, "notify: no senders\n"); @@ -117,7 +117,7 @@ lisp_do_mach_notify_no_senders(mach_port_t notify, typedef kern_return_t (*do_mach_notify_send_once_type)(mach_port_t); kern_return_t -lisp_do_mach_notify_send_once(mach_port_t notify) +lisp_S_do_mach_notify_send_once(mach_port_t notify) { //fprintf(stderr, "notify: send once\n"); if(routines[DO_MACH_NOTIFY_SEND_ONCE] == NULL) { @@ -136,7 +136,7 @@ typedef kern_return_t (*do_mach_notify_dead_name_type)(mach_port_t, mach_port_t); kern_return_t -lisp_do_mach_notify_dead_name(mach_port_t notify, +lisp_S_do_mach_notify_dead_name(mach_port_t notify, mach_port_t name) { //fprintf(stderr, "notify: dead name\n"); diff --git a/mach/port-right.lisp b/mach/port-right.lisp index d8bc6f2ed..fb308252f 100644 --- a/mach/port-right.lisp +++ b/mach/port-right.lisp @@ -2,7 +2,7 @@ (in-package :mach) (defcenum port-right - :right-send + (:right-send 0) :right-receive :right-send-once :right-port-set diff --git a/mach/port-type.lisp b/mach/port-type.lisp index 993266cc2..84dce3bef 100644 --- a/mach/port-type.lisp +++ b/mach/port-type.lisp @@ -45,6 +45,7 @@ (:type-port-or-dead ,+type-port-or-dead+) (:type-all-rights ,+type-all-rights+) (:type-dnrequest ,+type-dnrequest+) + (:type-marequest ,+type-marequest+) (:type-compat ,+type-compat+))))) (%create-port-type-type) diff --git a/translator/fs-wrapper.lisp b/translator/fs-wrapper.lisp index f8167fbb1..095740e86 100644 --- a/translator/fs-wrapper.lisp +++ b/translator/fs-wrapper.lisp @@ -49,7 +49,7 @@ (defcfun ("get_fs_info" %get-fs-info) :void) -(defcfun ("lisp_fs_server" %lisp-fs-server) +(defcfun ("lisp_S_fs_server" %lisp-fs-server) :boolean (in :pointer) (out :pointer)) diff --git a/translator/fsys-wrapper.lisp b/translator/fsys-wrapper.lisp index 4b26301c9..2c1ab9b10 100644 --- a/translator/fsys-wrapper.lisp +++ b/translator/fsys-wrapper.lisp @@ -27,7 +27,7 @@ (defcfun ("get_fsys_info" %get-fsys-info) :void) -(defcfun ("lisp_fsys_server" %lisp-fsys-server) +(defcfun ("lisp_S_fsys_server" %lisp-fsys-server) :boolean (in :pointer) (out :pointer)) diff --git a/translator/io-wrapper.lisp b/translator/io-wrapper.lisp index 7856a00b2..3191defb5 100644 --- a/translator/io-wrapper.lisp +++ b/translator/io-wrapper.lisp @@ -48,7 +48,7 @@ (defcfun ("get_io_info" %get-io-info) :void) -(defcfun ("lisp_io_server" %lisp-io-server) :boolean +(defcfun ("lisp_S_io_server" %lisp-io-server) :boolean (in :pointer) (out :pointer)) |