Return to nl.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / ntpdc

Annotation of embedaddon/ntp/ntpdc/nl.pl, revision 1.1.1.1

1.1       misho       1: #! /usr/local/perl-5.8.8/bin/perl -w
                      2: 
                      3: $found = 0;
                      4: $last = 0;
                      5: $debug = 0;
                      6: 
                      7: while (<>) {
                      8:     next if /^#/;
                      9:     next if /^\s*$/;
                     10:     if (/^struct req_pkt/) {
                     11:        $found = 1;
                     12:     }
                     13:     if (/^struct info_dns_assoc/) {
                     14:        $last = 1;
                     15:     }
                     16:     if ($found) {
                     17:        if (/^(struct\s*\w*)\s*{\s*$/) {
                     18:            $type = $1;
                     19:            print STDERR "type = '$type'\n" if $debug;
                     20:            printf "  printf(\"sizeof($type) = %%d\\n\", \n\t (int) sizeof($type));\n";
                     21:            next;
                     22:        }
                     23:        if (/\s*\w+\s+(\w*)\s*(\[.*\])?\s*;\s*$/) {
                     24:            $field = $1;
                     25:            print STDERR "\tfield = '$field'\n" if $debug;
                     26:            printf "  printf(\"offsetof($field) = %%d\\n\", \n\t (int) offsetof($type, $field));\n";
                     27:            next;
                     28:        }
                     29:        if (/^}\s*;\s*$/) {
                     30:            printf "  printf(\"\\n\");\n\n";
                     31:            $found = 0 if $last;
                     32:            next;
                     33:        }
                     34:        print STDERR "Unmatched line: $_";
                     35:        exit 1;
                     36:     }
                     37: }