usr/klibc/socketcalls.pl

#!/usr/bin/perl

$v = $ENV{'KBUILD_VERBOSE'};
$quiet = defined($v) ? !$v : 0;

@args = ();
for $arg ( @ARGV ) {
    if ( $arg =~ /^-/ ) {
	if ( $arg eq '-q' ) {
	    $quiet = 1;
	} else {
	    die "$0: Unknown option: $arg\n";
	}
    } else {
	push(@args, $arg);
    }
}
($file, $arch, $outputdir) = @args;

if (!open(FILE, "< $file")) {
    die "$file: $!\n";
}

print "socketcall-objs := ";
while ( defined($line = <FILE>) ) {
    chomp $line;
    $line =~ s/\s*(|\#.*|\/\/.*)$//;	# Strip comments and trailing blanks
    next unless $line;

    if ( $line =~ /^\s*\<\?\>\s*(.*)\s+([_a-zA-Z][_a-zA-Z0-9]+)\s*\((.*)\)\s*\;$/ ) {
	$type = $1;
	$name = $2;
	$argv = $3;

	@args = split(/\s*\,\s*/, $argv);
	@cargs = ();

	$i = 0;
	for $arg ( @args ) {
	    push(@cargs, "$arg a".$i++);
	}
	$nargs = $i;
	print " \\\n\t${name}.o";

	if ( $arch eq 'i386' ) {
	    open(OUT, "> ${outputdir}/${name}.S")
		or die "$0: Cannot open ${outputdir}/${name}.S\n";

	    print OUT "#include <sys/socketcalls.h>\n";
	    print OUT "\n";
	    print OUT "\t.text\n";
	    print OUT "\t.align	4\n";
	    print OUT "\t.globl	${name}\n";
	    print OUT "\t.type	${name},\@function\n";
	    print OUT "${name}:\n";
	    print OUT "\tpushl	\$SYS_\U${name}\n";
	    print OUT "\tjmp	__socketcall_common\n";
	    print OUT "\t.size ${name},.-${name}\n";
	    close(OUT);
	} else {
	    open(OUT, "> ${outputdir}/${name}.c")
		or die "$0: Cannot open ${outputdir}/${name}.c\n";

	    print OUT "#include \"socketcommon.h\"\n";
	    print OUT "\n";
	    print OUT "#if _KLIBC_SYS_SOCKETCALL || !defined(__NR_${name})\n\n";

	    print OUT "extern long __socketcall(int, const unsigned long *);\n\n";

	    print OUT "$type $name (", join(', ', @cargs), ")\n";
	    print OUT "{\n";
	    print OUT "    unsigned long args[$nargs];\n";
	    for ( $i = 0 ; $i < $nargs ; $i++ ) {
		print OUT "    args[$i] = (unsigned long)a$i;\n";
	    }
	    print OUT "    return ($type) __socketcall(SYS_\U${name}\E, args);\n";
	    print OUT "}\n\n";

	    print OUT "#endif\n";

	    close(OUT);
	}
    } else {
	die "$file:$.: Could not parse input\n";
    }
}

print "\n";
1	#!/usr/bin/perl
2
3	$v = $ENV{'KBUILD_VERBOSE'};
4	$quiet = defined($v) ? !$v : 0;
5
6	@args = ();
7	for $arg ( @ARGV ) {
8	if ( $arg =~ /^-/ ) {
9	if ( $arg eq '-q' ) {
10	$quiet = 1;
11	} else {
12	die "$0: Unknown option: $arg\n";
13	}
14	} else {
15	push(@args, $arg);
16	}
17	}
18	($file, $arch, $outputdir) = @args;
19
20	if (!open(FILE, "< $file")) {
21	die "$file: $!\n";
22	}
23
24	print "socketcall-objs := ";
25	while ( defined($line = <FILE>) ) {
26	chomp $line;
27	$line =~ s/\s(\|\#.\|\/\/.*)$//; # Strip comments and trailing blanks
28	next unless $line;
29
30	if ( $line =~ /^\s\<\?\>\s(.)\s+([_a-zA-Z][_a-zA-Z0-9]+)\s\((.)\)\s\;$/ ) {
31	$type = $1;
32	$name = $2;
33	$argv = $3;
34
35	@args = split(/\s\,\s/, $argv);
36	@cargs = ();
37
38	$i = 0;
39	for $arg ( @args ) {
40	push(@cargs, "$arg a".$i++);
41	}
42	$nargs = $i;
43	print " \\\n\t${name}.o";
44
45	if ( $arch eq 'i386' ) {
46	open(OUT, "> ${outputdir}/${name}.S")
47	or die "$0: Cannot open ${outputdir}/${name}.S\n";
48
49	print OUT "#include <sys/socketcalls.h>\n";
50	print OUT "\n";
51	print OUT "\t.text\n";
52	print OUT "\t.align 4\n";
53	print OUT "\t.globl ${name}\n";
54	print OUT "\t.type ${name},\@function\n";
55	print OUT "${name}:\n";
56	print OUT "\tpushl \$SYS_\U${name}\n";
57	print OUT "\tjmp __socketcall_common\n";
58	print OUT "\t.size ${name},.-${name}\n";
59	close(OUT);
60	} else {
61	open(OUT, "> ${outputdir}/${name}.c")
62	or die "$0: Cannot open ${outputdir}/${name}.c\n";
63
64	print OUT "#include \"socketcommon.h\"\n";
65	print OUT "\n";
66	print OUT "#if _KLIBC_SYS_SOCKETCALL \|\| !defined(__NR_${name})\n\n";
67
68	print OUT "extern long __socketcall(int, const unsigned long *);\n\n";
69
70	print OUT "$type $name (", join(', ', @cargs), ")\n";
71	print OUT "{\n";
72	print OUT " unsigned long args[$nargs];\n";
73	for ( $i = 0 ; $i < $nargs ; $i++ ) {
74	print OUT " args[$i] = (unsigned long)a$i;\n";
75	}
76	print OUT " return ($type) __socketcall(SYS_\U${name}\E, args);\n";
77	print OUT "}\n\n";
78
79	print OUT "#endif\n";
80
81	close(OUT);
82	}
83	} else {
84	die "$file:$.: Could not parse input\n";
85	}
86	}
87
88	print "\n";