Return to reproto.sh CVS log

Up to [Apple XNU] / XNU / bsd / miscfs / devfs

Annotation of XNU/bsd/miscfs/devfs/reproto.sh, revision 1.1.1.1

1.1       root        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 "/* THIS FILE HAS BEEN PRODUCED AUTOMATICALLY */\n";
                     11: 
                     12: while (\$file = <*.c>) {
                     13:     if(open(F, \$file) == 0) {
                     14:        warn "Cannot open \$file.\n";
                     15:        next;
                     16:     }
                     17: 
                     18:     while(<F>) {
                     19:        chop;
                     20:        if (m|/\*proto\*/|) {
                     21:            \$collecting = 1;
                     22:            \$idx = 0;
                     23:        } elsif (\$collecting) {
                     24:            if (/^{/) {
                     25:                \$text[\$idx - 1] .= ';';
                     26:                for (\$i = 0; \$i < \$idx; \$i++) {
                     27:                    print PROTO "\$text[\$i]";
                     28:                    print PROTO \$i == 0? "\t": "\n";
                     29:                }
                     30:                \$collecting = 0;
                     31:                next;
                     32:            }
                     33:            \$text[\$idx++] = \$_;
                     34:        }
                     35:     }
                     36:     close F;
                     37: }
                     38: 
                     39: print PROTO  "/* THIS FILE PRODUCED AUTOMATICALLY */\n" .
                     40:     "/* DO NOT EDIT (see reproto.sh) */\n";
                     41: 
                     42: *EOF*

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.