| /mirbsd/src/gnu/usr.bin/perl/win32/ |
| D | config_sh.PL | 37 my %opt; 41 $opt{$1}=$2; 46 FindExt::set_static_extensions(split ' ', $opt{'static_ext'}); 50 if (!$opt{'use5005threads'} || $opt{'use5005threads'} eq 'undef') 55 $opt{'nonxs_ext'} = join(' ',FindExt::nonxs_ext()) || ' '; 56 $opt{'static_ext'} = join(' ',FindExt::static_ext()) || ' '; 57 $opt{'dynamic_ext'} = join(' ',@dynamic_ext) || ' '; 58 $opt{'extensions'} = join(' ',@extensions) || ' '; 59 $opt{'known_extensions'} = join(' ',FindExt::known_extensions()) || ' '; 67 $opt{$1} = $2; [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/wince/ |
| D | config_sh.PL | 39 my %opt; 43 $opt{$1}=$2; 49 my @known = sort(@dynamic,split(/\s+/,$opt{'staticext'}),@noxs); 50 $opt{'known_extensions'} = join(' ',@known); 52 if (!$opt{'use5005threads'} || $opt{'use5005threads'} eq 'undef') 58 $opt{'dynamic_ext'} = join(' ',@dynamic); 59 $opt{'nonxs_ext'} = join(' ',@noxs); 61 $opt{'extensions'} = join(' ',@known); 69 $opt{$1} = $2; 77 $opt{VERSION} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}"; [all …]
|
| D | config_h.PL | 13 my %opt; 16 $opt{$1}=$2; 20 $opt{CONFIG_H} ||= 'config.h'; 21 $opt{CORE_DIR} ||= '../lib/CORE'; 23 warn "Writing $opt{CONFIG_H}\n"; 25 my $patchlevel = $opt{INST_VER}; 38 $file =~ s/^\$(\w+)$/$opt{$1}/g; 80 chmod(0666,"$opt{CORE_DIR}/$opt{CONFIG_H}"); 81 copy("$file.new","$opt{CORE_DIR}/$opt{CONFIG_H}") || die "Cannot copy:$!"; 82 chmod(0444,"$opt{CORE_DIR}/$opt{CONFIG_H}");
|
| /mirbsd/src/usr.bin/telnet/ |
| D | defs.h | 117 #define my_state_is_do(opt) (options[opt]&MY_STATE_DO) argument 118 #define my_state_is_will(opt) (options[opt]&MY_STATE_WILL) argument 119 #define my_want_state_is_do(opt) (options[opt]&MY_WANT_STATE_DO) argument 120 #define my_want_state_is_will(opt) (options[opt]&MY_WANT_STATE_WILL) argument 122 #define my_state_is_dont(opt) (!my_state_is_do(opt)) argument 123 #define my_state_is_wont(opt) (!my_state_is_will(opt)) argument 124 #define my_want_state_is_dont(opt) (!my_want_state_is_do(opt)) argument 125 #define my_want_state_is_wont(opt) (!my_want_state_is_will(opt)) argument 127 #define set_my_state_do(opt) (options[opt] |= MY_STATE_DO) argument 128 #define set_my_state_will(opt) (options[opt] |= MY_STATE_WILL) argument [all …]
|
| D | externs.h | 124 #define my_state_is_do(opt) (options[opt]&MY_STATE_DO) argument 125 #define my_state_is_will(opt) (options[opt]&MY_STATE_WILL) argument 126 #define my_want_state_is_do(opt) (options[opt]&MY_WANT_STATE_DO) argument 127 #define my_want_state_is_will(opt) (options[opt]&MY_WANT_STATE_WILL) argument 129 #define my_state_is_dont(opt) (!my_state_is_do(opt)) argument 130 #define my_state_is_wont(opt) (!my_state_is_will(opt)) argument 131 #define my_want_state_is_dont(opt) (!my_want_state_is_do(opt)) argument 132 #define my_want_state_is_wont(opt) (!my_want_state_is_will(opt)) argument 134 #define set_my_state_do(opt) {options[opt] |= MY_STATE_DO;} argument 135 #define set_my_state_will(opt) {options[opt] |= MY_STATE_WILL;} argument [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Getopt/ |
| D | Long.pm | 260 my $opt; # current option 316 my $opt = shift (@optionlist); 318 unless ( defined($opt) ) { 324 $opt = $+ if $opt =~ /^$prefix+(.*)$/s; 326 if ( $opt eq '<>' ) { 329 && (exists $userlinkage->{$opt}) 330 && ref($userlinkage->{$opt}) ) { 331 unshift (@optionlist, $userlinkage->{$opt}); 346 my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); 401 $error .= "Invalid option linkage for \"$opt\"\n"; [all …]
|
| D | Std.t | 12 our ($warning, $opt_f, $opt_i, $opt_o, $opt_x, $opt_y, %opt); 23 getopt 'il', \%opt; 26 ok( $opt{h} && $opt{i} eq 'j', 'option -h and -i correctly set' ); 27 ok( !defined $opt{l}, 'option -l not set' ); 39 %opt = (); $opt_i = undef; 42 ok( getopts('hi:kl', \%opt), 'getopts succeeded (2)' ); 44 ok( $opt{h} && $opt{k}, 'options -h and -k set' ); 45 is( $opt{i}, 'j', q/option -i is 'j'/ );
|
| /mirbsd/src/gnu/usr.bin/perl/NetWare/ |
| D | config_sh.PL | 36 my %opt; 39 $opt{$1}=$2; 49 $opt{$1} = $2; 57 $opt{VERSION} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}"; 58 $opt{INST_VER} =~ s|~VERSION~|$opt{VERSION}|g; 60 $opt{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'}; 61 $opt{'cf_email'} = $opt{'cf_by'} . '@' . (gethostbyname('localhost'))[0] 62 unless $opt{'cf_email'}; 63 $opt{'usemymalloc'} = 'y' if $opt{'d_mymalloc'} eq 'define'; 65 $opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth}; [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/utils/ |
| D | perlivp.PL | 60 use vars qw(%opt); # allow testing with older versions (do not use our) 62 @opt{ qw/? H h P p V v/ } = qw(0 0 0 0 0 0 0); 71 warn "$0: `$flag' flag already set\n" if $opt{$flag}++; 76 $opt{p}++ if $opt{P}; 77 $opt{v}++ if $opt{V}; 103 print "## Checking Perl binary via variable `\$perlpath' = $perlpath.\n" if $opt{'p'}; 106 print "## Perl binary `$perlpath' appears executable.\n" if $opt{'v'}; 118 print "## Checking Perl version via variable `\$]'.\n" if $opt{'p'}; 128 print "## Perl version `$]' appears installed as expected.\n" if $opt{'v'}; 140 print "## Checking roots of the Perl library directory tree via variable `\@INC'.\n" if $opt{'p'}; [all …]
|
| /mirbsd/src/usr.sbin/ppp/ppp/ |
| D | lcp.c | 672 struct fsm_opt *opt, nak; in LcpDecodeConfig() local 676 while (end - cp >= sizeof(opt->hdr)) { in LcpDecodeConfig() 677 if ((opt = fsm_readopt(&cp)) == NULL) in LcpDecodeConfig() 680 snprintf(request, sizeof request, " %s[%d]", protoname(opt->hdr.id), in LcpDecodeConfig() 681 opt->hdr.len); in LcpDecodeConfig() 683 switch (opt->hdr.id) { in LcpDecodeConfig() 686 ua_ntohs(opt->data, &mru); in LcpDecodeConfig() 694 lcp->his_reject &= ~(1 << opt->hdr.id); in LcpDecodeConfig() 712 fsm_ack(dec, opt); in LcpDecodeConfig() 716 fsm_rej(dec, opt); in LcpDecodeConfig() [all …]
|
| D | ccp.c | 181 (*algorithm[ccp->in.algorithm]->Disp)(&ccp->in.opt)); in ccp_ReportStatus() 184 o = &ccp->out.opt; in ccp_ReportStatus() 279 ccp->in.opt.hdr.id = -1; in ccp_Setup() 280 ccp->out.opt = NULL; in ccp_Setup() 353 o = &ccp->out.opt; in CcpSendConfigReq() 354 alloc = ccp->his_reject == 0 && ccp->out.opt == NULL; in CcpSendConfigReq() 363 for (o = &ccp->out.opt; *o != NULL; o = &(*o)->next) in CcpSendConfigReq() 461 while (ccp->out.opt) { in CcpLayerDown() 462 next = ccp->out.opt->next; in CcpLayerDown() 463 free(ccp->out.opt); in CcpLayerDown() [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/Porting/ |
| D | valgrindpp.pl | 11 my %opt = ( 19 GetOptions(\%opt, qw( 31 if (exists $opt{dir}) { 32 $opt{dir} = File::Spec->canonpath($opt{dir}); 36 $opt{dir} = cwd =~ /\/t$/ ? '..' : '.'; 39 -d "$opt{dir}/$_" or die "$0: must be run from the perl source directory" 46 my $hidden = do { local $"='|'; $opt{hide} ? qr/^(?:@{$opt{hide}})$/o : '' }; 51 if (exists $opt{'output-file'}) { 52 $fh = new IO::File ">$opt{'output-file'}" 53 or die "$0: cannot open $opt{'output-file'} ($!)\n"; [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/devel/ |
| D | mktodo.pl | 29 my %opt = ( 36 GetOptions(\%opt, qw( 40 my $fullperl = `which $opt{perl}`; 52 my %all = %{load_todo($opt{todo}, $opt{version})}; 100 printf "[$opt{version}] new symbol: %-30s # %s\n", @$_; 103 write_todo($opt{todo}, $opt{version}, \%all); 108 printf "[$opt{version}] chk symbol: %-30s # %s\n", $sym, $cur; 109 write_todo($opt{todo}, $opt{version}, \%all); 114 printf "[$opt{version}] del symbol: %-30s # %s\n", $sym, $cur; 121 write_todo($opt{todo}, $opt{version}, \%all); [all …]
|
| D | buildperl.pl | 32 my %opt = ( 99 GetOptions(\%opt, qw( 107 if (exists $opt{config}) { 108 for my $cfg (@{$opt{config}}) { 113 $opt{config} = [sort keys %config]; 119 }, $opt{source}); 121 if (exists $opt{perl}) { 122 for my $perl (@{$opt{perl}}) { 138 for my $cfg (@{$opt{config}}) { 148 if (-d expand($opt{prefix}) and !$opt{force}) { [all …]
|
| /mirbsd/src/sbin/mount/ |
| D | getmntopts.c | 69 char *opt, *value, *endp; in getmntopt() local 77 opt = strsep(optionp, ","); in getmntopt() 78 } while (opt == NULL || *opt == '\0'); in getmntopt() 81 if (opt[0] == 'n' && opt[1] == 'o') { in getmntopt() 83 opt += 2; in getmntopt() 88 if ((value = strchr(opt, '=')) != NULL) in getmntopt() 93 if (strcasecmp(opt, m->m_option) == 0) in getmntopt() 100 errx(1, "-o %s: option %s a value", opt, in getmntopt() 112 errx(1, "-o %s: option not supported", opt); in getmntopt() 121 opt, value); in getmntopt()
|
| /mirbsd/src/gnu/usr.bin/perl/ext/B/B/ |
| D | Lint.pm | 338 my ($option, $opt, $arg); 340 for $opt (@default_checks) { 341 $check{$opt} = 1; 346 $opt = $1; 352 if ($opt eq "-" && $arg eq "-") { 355 } elsif ($opt eq "D") { 364 } elsif ($opt eq "u") { 369 foreach $opt (@default_checks, @options) { 370 $opt =~ tr/-/_/; 371 if ($opt eq "all") { [all …]
|
| /mirbsd/src/gnu/usr.sbin/sendmail/libsm/ |
| D | t-cf.c | 25 SM_CF_OPT_T opt; variable 33 opt.opt_name = argv[2]; 34 opt.opt_val = NULL; 35 err = sm_cf_getopt(argv[1], 1, &opt); 41 if (opt.opt_val == NULL) 42 printf("Error: option \"%s\" not found\n", opt.opt_name); 44 printf("%s=%s\n", opt.opt_name, opt.opt_val);
|
| /mirbsd/src/sys/netinet6/ |
| D | dest6.c | 64 u_int8_t *opt; local 77 opt = (u_int8_t *)dstopts + sizeof(struct ip6_dest); 80 for (optlen = 0; dstoptlen > 0; dstoptlen -= optlen, opt += optlen) { 81 if (*opt != IP6OPT_PAD1 && 82 (dstoptlen < IP6OPT_MINLEN || *(opt + 1) + 2 > dstoptlen)) { 87 switch (*opt) { 92 optlen = *(opt + 1) + 2; 95 optlen = ip6_unknown_opt(opt, m, 96 opt - mtod(m, u_int8_t *));
|
| D | ip6_output.c | 142 ip6_output(m0, opt, ro, flags, im6o, ifpp) in ip6_output() argument 144 struct ip6_pktopts *opt; 194 if (opt) { 196 MAKE_EXTHDR(opt->ip6po_hbh, &exthdrs.ip6e_hbh); 198 MAKE_EXTHDR(opt->ip6po_dest1, &exthdrs.ip6e_dest1); 200 MAKE_EXTHDR(opt->ip6po_rthdr, &exthdrs.ip6e_rthdr); 202 MAKE_EXTHDR(opt->ip6po_dest2, &exthdrs.ip6e_dest2); 451 if (opt && opt->ip6po_rthdr) 452 ro = &opt->ip6po_route; 481 if (opt && opt->ip6po_hlim != -1) [all …]
|
| /mirbsd/src/usr.sbin/httpd/src/helpers/ |
| D | slo.sh | 22 for opt 26 opt="${optprev}${opt}"; 30 if [ "x$opt" = "x-L" -o "x$opt" = "x-l" ]; then 31 optprev="$opt" 35 arg="`echo $opt | cut -c3-`" 36 opt="`echo $opt | cut -c1-2`" 38 case $opt in 41 *) ARGV="$ARGV $opt" ;;
|
| /mirbsd/src/lib/libc/gen/ |
| D | auth_subr.c | 82 char *opt; member 232 struct authopts *opt; in auth_close() local 261 while ((opt = as->optlist) != NULL) { in auth_close() 262 as->optlist = opt->next; in auth_close() 263 free(opt); in auth_close() 520 struct authopts *opt; in auth_setoption() local 523 if ((opt = malloc(sizeof(*opt) + i)) == NULL) in auth_setoption() 526 opt->opt = (char *)(opt + 1); in auth_setoption() 528 snprintf(opt->opt, i, "%s=%s", n, v); in auth_setoption() 529 opt->next = as->optlist; in auth_setoption() [all …]
|
| /mirbsd/src/usr.sbin/pppd/ |
| D | lcp.c | 521 #define ADDCIVOID(opt, neg) \ argument 523 PUTCHAR(opt, ucp); \ 526 #define ADDCISHORT(opt, neg, val) \ argument 528 PUTCHAR(opt, ucp); \ 532 #define ADDCICHAP(opt, neg, val, digest) \ argument 534 PUTCHAR(opt, ucp); \ 539 #define ADDCILONG(opt, neg, val) \ argument 541 PUTCHAR(opt, ucp); \ 545 #define ADDCILQR(opt, neg, val) \ argument 547 PUTCHAR(opt, ucp); \ [all …]
|
| /mirbsd/src/gnu/usr.bin/binutils/binutils/ |
| D | sysdump.c | 49 static int opt (int); 506 opt (int x) in opt() function 536 while (opt (IT_dsy_CODE)) in dump_symbol_info() 538 if (opt (IT_dty_CODE)) in dump_symbol_info() 556 if (opt (IT_dpp_CODE)) in derived_type() 561 else if (opt (IT_dfp_CODE)) in derived_type() 566 else if (opt (IT_den_CODE)) in derived_type() 571 else if (opt (IT_den_CODE)) in derived_type() 576 else if (opt (IT_dds_CODE)) in derived_type() 581 else if (opt (IT_dar_CODE)) in derived_type() [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Net/ |
| D | SMTP.pm | 224 my %opt = @_; 231 if(defined($v = delete $opt{Size})) 243 if(defined($v = delete $opt{Return})) 255 if(defined($v = delete $opt{Bits})) 290 if(defined($v = delete $opt{Transaction})) 302 if(defined($v = delete $opt{Envelope})) 315 if(defined($v = delete $opt{XVERP})) 328 . join(" ", keys %opt) 330 if scalar keys %opt; 364 my %opt = %{pop(@_)}; [all …]
|
| /mirbsd/src/gnu/usr.bin/binutils/gdb/doc/ |
| D | refcard.tex | 227 \def\opt#1{{\brm[{\rm #1}]}} 247 gdb {\it program} \opt{{\it core}}&debug {\it program} \opt{using 249 b \opt{\it file\tt:}{\it function}&set breakpoint at {\it function} \opt{in \it file}\cr 250 run \opt{{\it arglist}}&start your program \opt{with {\it arglist}}\cr 305 \line{\smrm \opt{ } surround optional arguments \hfill $\ldots$ show 311 break \opt{\it file\tt:}{\it line}\par 312 b \opt{\it file\tt:}{\it line}&set breakpoint at {\it line} number \opt{in \it file}\par 314 break \opt{\it file\tt:}{\it func}&set breakpoint at {\it 315 func} \opt{in \it file}\cr 321 cond {\it n} \opt{\it expr}&new conditional expression on breakpoint [all …]
|