summaryrefslogtreecommitdiffstats
path: root/contrib/ntp/ntpdc/nl.pl.in
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/ntp/ntpdc/nl.pl.in')
-rw-r--r--contrib/ntp/ntpdc/nl.pl.in37
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;
- }
-}
OpenPOWER on IntegriCloud