File Manager

003 File Manager

Current Path: /usr/src/contrib/ntp/ntpdc

📁 ..
📄 Makefile.am(4.68 KB)
📄 Makefile.in(43.64 KB)
📄 README(321 B)
📄 invoke-ntpdc.menu(50 B)
📄 invoke-ntpdc.texi(11.3 KB)
📄 layout.std(9.86 KB)
📄 nl.pl(1 KB)
📄 nl.pl.in(1018 B)
📄 nl_in.c(64 B)
📄 ntpdc-layout.c(327 B)
📄 ntpdc-opts.c(42.35 KB)
📄 ntpdc-opts.def(22.19 KB)
📄 ntpdc-opts.h(9.93 KB)
📄 ntpdc.1ntpdcman(27.72 KB)
📄 ntpdc.1ntpdcmdoc(24.05 KB)
📄 ntpdc.c(41.82 KB)
📄 ntpdc.h(1.51 KB)
📄 ntpdc.html(24.97 KB)
📄 ntpdc.man.in(27.72 KB)
📄 ntpdc.mdoc.in(24.05 KB)
📄 ntpdc.texi(2.41 KB)
📄 ntpdc_ops.c(74.55 KB)

Editing: nl.pl.in

#! @PATH_PERL@ -w

$found = 0;
$last = 0;
$debug = 0;

while (<>) {
    next if /^#/;
    next if /^\s*$/;
    if (/^typedef union req_data_u_tag/) {
	$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 (/^typedef (union\s*\w*)\s*{\s*$/) {
	    $type = $1;
	    print STDERR "union = '$type'\n" if $debug;
	    printf "  printf(\"sizeof($type) = %%d\\n\", \n\t (int) sizeof($type));\n";
	    next;
	}
	if (/\s*\w+\s+(\w*)\s*(\[.*\])?\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 (/^}\s*\w*\s*;\s*$/) {
	    printf "  printf(\"\\n\");\n\n";
	    $found = 0 if $last;
	    next;
	}
	print STDERR "Unmatched line: $_";
	exit 1;
    }
}

003 File Manager

Editing: nl.pl.in

Upload File

Create Folder