Cider Isn't Darwin Emulation, Really
Something went wrong. Try again.
15 kB · 438 lines
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439#!/usr/bin/perl## Copyright (c) 2006-2014 Apple Inc. All rights reserved.## @APPLE_OSREFERENCE_LICENSE_HEADER_START@# # This file contains Original Code and/or Modifications of Original Code# as defined in and that are subject to the Apple Public Source License# Version 2.0 (the 'License'). You may not use this file except in# compliance with the License. Please obtain a copy of the License at# http://www.opensource.apple.com/apsl/ and read it before using this# file.# # The Original Code and all software distributed under the License are# distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER# EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,# INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,# FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.# Please see the License for the specific language governing rights and# limitations under the License.# # @APPLE_OSREFERENCE_LICENSE_HEADER_END@############################################################################# % create-syscalls.pl syscalls.master custom-directory platforms-directory platform-name out-directory## This script fills the the out-directory with a Makefile.inc and *.s# files to create the double-underbar syscall stubs. It reads the# syscall.master file to get the symbol names and number of arguments,# and whether Libsystem should automatically create the (non-double-underbar)# stubs if Libc doesn't provide a wrapper. Which system calls will get# the automatic treatment is writen to the libsyscall.list file, also# written to the out-directory.## The custom-directory contains:# 1. SYS.h - used by the automatically created *.s and custom files# 2. custom.s - contains architecture specific additional system calls and# auxilliary routines (like cerror)# 3. special case double-underbar stub files - which are copied into# the out-directory###########################################################################
use strict;use File::Basename ();use File::Copy ();use File::Spec;use IO::File;
my $MyName = File::Basename::basename($0);
my @CustomSrc = qw(custom.s);
my @Architectures = split /\s/, $ENV{"ARCHS"};my @Copy = (qw(SYS.h), @CustomSrc);my $CustomDir;my $PlatformsDir;my $PlatformName;my $OutDir;# size in bytes of known types (only used for i386)my %TypeBytes = ( 'au_asid_t' => 4, 'sae_associd_t' => 4, 'caddr_t' => 4, 'sae_connid_t' => 4, 'gid_t' => 4, 'id_t' => 4, 'idtype_t' => 4, 'int' => 4, 'int32_t' => 4, 'int64_t' => 8, 'key_t' => 4, 'long' => 4, 'mach_port_name_t' => 4, 'mode_t' => 4, 'off_t' => 8, 'pid_t' => 4, 'semun_t' => 4, 'sigset_t' => 4, 'size_t' => 4, 'socklen_t' => 4, 'ssize_t' => 4, 'u_int' => 4, 'u_long' => 4, 'uid_t' => 4, 'uint32_t' => 4, 'uint64_t' => 8, 'user_addr_t' => 4, 'user_long_t' => 4, 'user_size_t' => 4, 'user_ssize_t' => 4, 'user_ulong_t' => 4, 'uuid_t' => 4,);
# Moving towards storing all data in this hash, then we always know# if data is aliased or not, or promoted or not.my %Symbols = ( "quota" => { c_sym => "quota", syscall => "quota", asm_sym => "_quota", is_private => undef, is_custom => undef, nargs => 4, bytes => 0, aliases => {}, }, "setquota" => { c_sym => "setquota", syscall => "setquota", asm_sym => "_setquota", is_private => undef, is_custom => undef, nargs => 2, bytes => 0, aliases => {}, }, "syscall" => { c_sym => "syscall", syscall => "syscall", asm_sym => "_syscall", is_private => undef, is_custom => undef, nargs => 0, bytes => 0, aliases => {}, },);
# An explicit list of cancelable syscalls. For creating stubs that call the# cancellable version of cerror.my @Cancelable = qw/ accept access aio_suspend close connect connectx disconnectx faccessat fcntl fdatasync fpathconf fstat fstatat fsync getlogin ioctl link linkat lseek lstat msgrcv msgsnd msync open openat pathconf peeloff poll posix_spawn pread pwrite read readv recvfrom recvmsg rename renameat rename_ext __semwait_signal __sigwait select sem_wait semop sendmsg sendto sigsuspend stat symlink symlinkat sync unlink unlinkat wait4 waitid write writev/;
sub usage { die "Usage: $MyName syscalls.master custom-directory platforms-directory platform-name out-directory\n";}
########################################################################### Read the syscall.master file and collect the system call names and number# of arguments. It looks for the NO_SYSCALL_STUB quailifier following the# prototype to determine if no automatic stub should be created by Libsystem.# System call name that are already prefixed with double-underbar are set as# if the NO_SYSCALL_STUB qualifier were specified (whether it is or not).## For the #if lines in syscall.master, all macros are assumed to be defined,# except COMPAT_GETFSSTAT (assumed undefined).##########################################################################sub readMaster { my $file = shift; local $_; my $f = IO::File->new($file, 'r'); die "$MyName: $file: $!\n" unless defined($f); my $line = 0; my $skip = 0; while(<$f>) { $line++; if(/^#\s*endif/) { $skip = 0; next; } if(/^#\s*else/) { $skip = -$skip; next; } chomp; if(/^#\s*if\s+(\S+)$/) { $skip = ($1 eq 'COMPAT_GETFSSTAT') ? -1 : 1; next; } next if $skip < 0; next unless /^\d/; s/^[^{]*{\s*//; s/\s*}.*$//; # } die "$MyName: no function prototype on line $line\n" unless length($_) > 0 && /;$/; my $no_syscall_stub = /\)\s*NO_SYSCALL_STUB\s*;/; my($name, $args) = /\s(\S+)\s*\(([^)]*)\)/; next if $name =~ /e?nosys/; $args =~ s/^\s+//; $args =~ s/\s+$//; my $argbytes = 0; my $nargs = 0; if($args ne '' && $args ne 'void') { my @a = split(',', $args); $nargs = scalar(@a); # Calculate the size of all the arguments (only used for i386) for my $type (@a) { $type =~ s/\s*\w+$//; # remove the argument name if($type =~ /\*$/) { $argbytes += 4; # a pointer type } else { $type =~ s/^.*\s//; # remove any type qualifier, like unsigned my $b = $TypeBytes{$type}; die "$MyName: $name: unknown type '$type'\n" unless defined($b); $argbytes += $b; } } } $Symbols{$name} = { c_sym => $name, syscall => $name, asm_sym => $no_syscall_stub ? "___$name" : "_$name", is_private => $no_syscall_stub, is_custom => undef, nargs => $nargs, bytes => $argbytes, aliases => {}, except => [], }; }}
sub checkForCustomStubs { my ($dir) = @_; my ($c_sym_name, $sym); while (($c_sym_name, $sym) = each %Symbols) { my $source = "__".$$sym{c_sym}.".s"; my $custom = File::Spec->join($dir, $source); next unless -f $custom;
$$sym{is_custom} = $source; if (!$$sym{is_private}) { foreach my $subarch (@Architectures) { (my $arch = $subarch) =~ s/arm(v.*)/arm/; $arch =~ s/x86_64(.*)/x86_64/; $$sym{aliases}{$arch} = [] unless $$sym{aliases}{$arch}; push(@{$$sym{aliases}{$arch}}, $$sym{asm_sym}); } $$sym{asm_sym} = "__".$$sym{asm_sym}; $$sym{is_private} = 1; } } }
sub readAliases { my ($platformDir, $platformName) = @_; my $genericMap = File::Spec->join($platformDir, "syscall.map"); my %sym_to_c; foreach my $k (keys %Symbols) { $sym_to_c{$Symbols{$k}{asm_sym}} = $k; } my @a = (); for my $arch (@Architectures) { (my $new_arch = $arch) =~ s/arm(v.*)/arm/g; $new_arch =~ s/x86_64(.*)/x86_64/g; push(@a, $new_arch) unless grep { $_ eq $new_arch } @a; } foreach my $arch (@a) { my $syscallFile = File::Spec->join($platformDir, $platformName, $arch, "syscall.map"); my @files = (); push(@files, IO::File->new($syscallFile, 'r')); die "$MyName: $syscallFile: $!\n" unless defined($files[$#files]); push(@files, IO::File->new($genericMap, 'r')); die "$MyName: $genericMap: $!\n" unless defined($files[$#files]); foreach my $f (@files) { while (<$f>) { next if /^#/; chomp; my ($alias, $target_symbol) = split; if (defined($target_symbol)) { foreach my $sym (values %Symbols) { # I've eliminated most of the ugly from this script except # the need to try stripping underbars here. if ($$sym{is_private}) { next unless $$sym{asm_sym} eq $target_symbol; } else { (my $target = $target_symbol) =~ s/^__//; next unless ($$sym{asm_sym} eq $target || $$sym{asm_sym} eq $target_symbol); } $$sym{aliases}{$arch} = [] unless $$sym{aliases}{$arch}; die "$MyName: $arch $$sym{asm_sym} -> $alias: Duplicate alias.\n" if grep { $_ eq $alias } @{$$sym{aliases}{$arch}}; push(@{$$sym{aliases}{$arch}}, $alias); # last thing to do, if we aliased over a first class symbol, we need # to mark it my $c = $sym_to_c{$alias}; if ($Symbols{$c}) { push(@{$Symbols{$c}{except}}, $arch); } } } } } }}
########################################################################### Make a __xxx.s file: if it exists in the $CustomDir, just copy it, otherwise# create one. We define the macro __SYSCALL_32BIT_ARG_BYTES so that SYS.h could# use that to define __SYSCALL dependent on the arguments' total size.##########################################################################sub writeStubForSymbol { my ($f, $symbol) = @_; my @conditions; for my $subarch (@Architectures) { (my $arch = $subarch) =~ s/arm(v.*)/arm/; $arch =~ s/x86_64(.*)/x86_64/; push(@conditions, "defined(__${arch}__)") unless grep { $_ eq $arch } @{$$symbol{except}}; }
my %is_cancel; for (@Cancelable) { $is_cancel{$_} = 1 }; print $f "#define __SYSCALL_32BIT_ARG_BYTES $$symbol{bytes}\n"; print $f "#include \"SYS.h\"\n\n"; if (scalar(@conditions)) { printf $f "#ifndef SYS_%s\n", $$symbol{syscall}; printf $f "#error \"SYS_%s not defined. The header files libsyscall is building against do not match syscalls.master.\"\n", $$symbol{syscall}; printf $f "#endif\n\n"; my $nc = ($is_cancel{$$symbol{syscall}} ? "cerror" : "cerror_nocancel"); printf $f "#if " . join(" || ", @conditions) . "\n"; printf $f "__SYSCALL2(%s, %s, %d, %s)\n", $$symbol{asm_sym}, $$symbol{syscall}, $$symbol{nargs}, $nc; if (!$$symbol{is_private} && (scalar(@conditions) < scalar(@Architectures))) { printf $f "#else\n"; printf $f "__SYSCALL2(%s, %s, %d, %s)\n", "__".$$symbol{asm_sym}, $$symbol{syscall}, $$symbol{nargs}, $nc; } printf $f "#endif\n\n"; } else { # actually this isnt an inconsistency. kernel can expose what it wants but if all our arches # override it we need to honour that. }}
sub writeAliasesForSymbol { my ($f, $symbol) = @_; foreach my $subarch (@Architectures) { (my $arch = $subarch) =~ s/arm(v.*)/arm/; $arch =~ s/x86_64(.*)/x86_64/; next unless scalar($$symbol{aliases}{$arch}); printf $f "#if defined(__${arch}__)\n"; foreach my $alias_sym (@{$$symbol{aliases}{$arch}}) { my $sym = (grep { $_ eq $arch } @{$$symbol{except}}) ? "__".$$symbol{asm_sym} : $$symbol{asm_sym}; printf $f "\t.globl\t$alias_sym\n"; printf $f "\t.set\t$alias_sym, $sym\n"; } printf $f "#endif\n\n"; }}
usage() unless scalar(@ARGV) == 5;$CustomDir = $ARGV[1];die "$MyName: $CustomDir: No such directory\n" unless -d $CustomDir;$PlatformsDir = $ARGV[2];die "$MyName: $PlatformsDir: No such directory\n" unless -d $PlatformsDir;$PlatformName = $ARGV[3];die "$MyName: $PlatformsDir/$PlatformName: No such directory\n" unless -d "$PlatformsDir/$PlatformName";$OutDir = $ARGV[4];die "$MyName: $OutDir: No such directory\n" unless -d $OutDir;
readMaster($ARGV[0]);checkForCustomStubs($CustomDir);readAliases($PlatformsDir, $PlatformName);
########################################################################### copy the files specified in @Copy from the $CustomDir to $OutDir##########################################################################for(@Copy) { my $custom = File::Spec->join($CustomDir, $_); my $path = File::Spec->join($OutDir, $_); print "Copy $custom -> $path\n"; File::Copy::copy($custom, $path) || die "$MyName: copy($custom, $path): $!\n";}
########################################################################### make all the *.s files##########################################################################my @src;my($k, $sym);while (($k, $sym) = each %Symbols){ my $srcname = $$sym{asm_sym} . ".s"; my $outpath = File::Spec->join($OutDir, $srcname);
if ($$sym{is_custom}) { my $custom = File::Spec->join($CustomDir, $$sym{is_custom}); File::Copy::copy($custom, $outpath); print "Copied $outpath\n"; print "Writing aliases for $srcname\n"; my $f = IO::File->new($outpath, 'a'); die "$MyName: $outpath: $!\n" unless defined($f); writeAliasesForSymbol($f, $sym); undef $f; } else { my $f = IO::File->new($outpath, 'w'); die "$MyName: $outpath: $!\n" unless defined($f); printf "Creating $outpath\n"; writeStubForSymbol($f, $sym); writeAliasesForSymbol($f, $sym); undef $f; } push(@src, $srcname);}
########################################################################### create the Makefile.inc file from the list for files in @src and @CustomSrc##########################################################################my $path = File::Spec->join($OutDir, 'stubs.list');my $f = IO::File->new($path, 'w');my @sources = sort(@src, @CustomSrc);for my $s (@sources) { printf $f File::Spec->join($OutDir, $s) . "\n";}undef $f;undef $path;