X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=klibc%2Fklibc%2Fsocketcalls.pl;h=68f0fa164b6963d52db0de5a193fde50c4e14338;hb=1fcc2a36fd0de4c268963ae9dc9402c73f3320bd;hp=fd82b2b49f2a7de3ff3ba376043dc32b4b7e2822;hpb=a0622777688ad84ef3d789e0171cfb0ca3dc21d2;p=elogind.git diff --git a/klibc/klibc/socketcalls.pl b/klibc/klibc/socketcalls.pl index fd82b2b49..68f0fa164 100644 --- a/klibc/klibc/socketcalls.pl +++ b/klibc/klibc/socketcalls.pl @@ -15,12 +15,13 @@ for $arg ( @ARGV ) { push(@args, $arg); } } -($file, $arch) = @args; +($file, $arch, $outputdir) = @args; if (!open(FILE, "< $file")) { die "$file: $!\n"; } +print "socketcall-objs := "; while ( defined($line = ) ) { chomp $line; $line =~ s/\s*[\#\;].*$//; # Strip comments and trailing blanks @@ -39,10 +40,11 @@ while ( defined($line = ) ) { push(@cargs, "$arg a".$i++); } $nargs = $i; + print " \\\n\t${name}.o"; if ( $arch eq 'i386' ) { - open(OUT, '>', "socketcalls/${name}.S") - or die "$0: Cannot open socketcalls/${name}.S\n"; + open(OUT, '>', "${outputdir}/${name}.S") + or die "$0: Cannot open ${outputdir}/${name}.S\n"; print OUT "#include \n"; print OUT "\n"; @@ -56,8 +58,8 @@ while ( defined($line = ) ) { print OUT "\t.size ${name},.-${name}\n"; close(OUT); } else { - open(OUT, '>', "socketcalls/${name}.c") - or die "$0: Cannot open socketcalls/${name}.c\n"; + open(OUT, '>', "${outputdir}/${name}.c") + or die "$0: Cannot open ${outputdir}/${name}.c\n"; print OUT "#include \"../socketcommon.h\"\n"; print OUT "\n"; @@ -82,3 +84,5 @@ while ( defined($line = ) ) { die "$file:$.: Could not parse input\n"; } } + +print "\n";