diff options
Diffstat (limited to 'contrib/ntp/ntpdc/nl.pl.in')
-rw-r--r-- | contrib/ntp/ntpdc/nl.pl.in | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/contrib/ntp/ntpdc/nl.pl.in b/contrib/ntp/ntpdc/nl.pl.in deleted file mode 100644 index dfa79c2..0000000 --- a/contrib/ntp/ntpdc/nl.pl.in +++ /dev/null @@ -1,37 +0,0 @@ -#! @PATH_PERL@ -w - -$found = 0; -$last = 0; -$debug = 0; - -while (<>) { - next if /^#/; - next if /^\s*$/; - if (/^struct req_pkt/) { - $found = 1; - } - if (/^struct info_dns_assoc/) { - $last = 1; - } - if ($found) { - if (/^(struct\s*\w*)\s*{\s*$/) { - $type = $1; - print STDERR "type = '$type'\n" if $debug; - printf " printf(\"sizeof($type) = %%d\\n\", \n\t (int) sizeof($type));\n"; - next; - } - if (/\s*\w+\s*(\w*)(\[.*\])?\s*;\s*$/) { - $field = $1; - print STDERR "\tfield = '$field'\n" if $debug; - printf " printf(\"offsetof($field) = %%d\\n\", \n\t (int) offsetof($type, $field));\n"; - next; - } - if (/^};$/) { - printf " printf(\"\\n\");\n\n"; - $found = 0 if $last; - next; - } - print STDERR "Unmatched line: $_"; - exit 1; - } -} |