| | 1 | #!/bin/sh |
| | 2 | # |
| | 3 | # This used to be a shell script, but had to become more sophisticated |
| | 4 | # to allow for KNF function definitions. So rewrote in perl, but wrapped |
| | 5 | # as a shell script. |
| | 6 | # |
| | 7 | exec /usr/bin/perl << *EOF* |
| | 8 | open(PROTO, ">devfs_proto.h") || die "Cannot open devfs_proto.h\n"; |
| | 9 | |
| | 10 | print PROTO "" . |
| | 11 | "/*\n" . |
| | 12 | " * Copyright (c) 2000-2002 Apple Computer, Inc. All rights reserved.\n" . |
| | 13 | " *\n" . |
| | 14 | " * \@APPLE_LICENSE_HEADER_START\@\n" . |
| | 15 | " *\n" . |
| | 16 | " * The contents of this file constitute Original Code as defined in and\n" . |
| | 17 | " * are subject to the Apple Public Source License Version 1.1 (the\n" . |
| | 18 | " * \"License\"). You may not use this file except in compliance with the\n" . |
| | 19 | " * License. Please obtain a copy of the License at\n" . |
| | 20 | " * http://www.apple.com/publicsource and read it before using this file.\n" . |
| | 21 | " *\n" . |
| | 22 | " * This Original Code and all software distributed under the License are\n" . |
| | 23 | " * distributed on an \"AS IS\" basis, WITHOUT WARRANTY OF ANY KIND, EITHER\n" . |
| | 24 | " * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,\n" . |
| | 25 | " * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,\n" . |
| | 26 | " * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the\n" . |
| | 27 | " * License for the specific language governing rights and limitations\n" . |
| | 28 | " * under the License.\n" . |
| | 29 | " *\n" . |
| | 30 | " * \@APPLE_LICENSE_HEADER_END\@\n" . |
| | 31 | " */\n"; |
| | 32 | |
| | 33 | print PROTO "/* THIS FILE HAS BEEN PRODUCED AUTOMATICALLY */\n"; |
| | 34 | |
| | 35 | print PROTO "#ifndef __DEVFS_DEVFS_PROTO_H__\n"; |
| | 36 | print PROTO "#define __DEVFS_DEVFS_PROTO_H__\n"; |
| | 37 | print PROTO "\n#include <sys/appleapiopts.h>\n"; |
| | 38 | print PROTO "\n#ifdef __APPLE_API_PRIVATE\n"; |
| | 39 | |
| | 40 | while (\$file = <*.c>) { |
| | 41 | if(open(F, \$file) == 0) { |
| | 42 | warn "Cannot open \$file.\n"; |
| | 43 | next; |
| | 44 | } |
| | 45 | |
| | 46 | while(<F>) { |
| | 47 | chop; |
| | 48 | if (m|/\*proto\*/|) { |
| | 49 | \$collecting = 1; |
| | 50 | \$idx = 0; |
| | 51 | } elsif (\$collecting) { |
| | 52 | if (/^{/) { |
| | 53 | \$text[\$idx - 1] .= ';'; |
| | 54 | for (\$i = 0; \$i < \$idx; \$i++) { |
| | 55 | print PROTO "\$text[\$i]"; |
| | 56 | print PROTO \$i == 0? "\t": "\n"; |
| | 57 | } |
| | 58 | \$collecting = 0; |
| | 59 | next; |
| | 60 | } |
| | 61 | \$text[\$idx++] = \$_; |
| | 62 | } |
| | 63 | } |
| | 64 | close F; |
| | 65 | } |
| | 66 | |
| | 67 | print PROTO "\n#endif /* __APPLE_API_PRIVATE */\n"; |
| | 68 | print PROTO "#endif /* __DEVFS_DEVFS_PROTO_H__ */\n"; |
| | 69 | |
| | 70 | print PROTO "/* THIS FILE PRODUCED AUTOMATICALLY */\n" . |
| | 71 | "/* DO NOT EDIT (see reproto.sh) */\n"; |
| | 72 | |
| | 73 | *EOF* |
projects / apple / xnu.git / blame_incremental