Home
last modified time | relevance | path

Searched full:my (Results 1 – 25 of 1513) sorted by relevance

12345678910>>...61

/freebsd/crypto/openssl/crypto/perlasm/
H A Driscv.pm43 my $have_stacktrace = 0;
48 my @regs = map("x$_",(0..31));
50 my @regaliases = ('zero','ra','sp','gp','tp','t0','t1','t2','s0','s1',
56 my %reglookup;
63 my $reg = lc shift;
65 my $trace = "";
71 my $regstr = $reglookup{$reg};
73 my $trace = "";
84 my $sew_setting = shift;
95 my $trace = "";
[all …]
H A Dppc-xlate.pl9 my $flavour = shift;
10 my $output = shift;
13 my %GLOBALS;
14 my %TYPES;
15 my $dotinlocallabels=($flavour=~/linux/)?1:0;
20 my $type = sub {
21 my ($dir,$name,$type) = @_;
31 my $globl = sub {
32 my $junk = shift;
33 my $name = shift;
[all …]
/freebsd/contrib/sendmail/contrib/
H A Dqtool.pl60 my %opts;
61 my %sources;
62 my $dst_name;
63 my $destination;
64 my $source_name;
65 my $source;
66 my $result;
67 my $action;
68 my $new_condition;
69 my $qprefix;
[all …]
/freebsd/crypto/openssl/test/ssl-tests/
H A Dprotocol_version.pm23 my @tls_protocols = ("SSLv3", "TLSv1", "TLSv1.1", "TLSv1.2", "TLSv1.3");
24 my @tls_protocols_fips = ("TLSv1.2", "TLSv1.3");
26 my @min_tls_protocols = (undef, "SSLv3", "TLSv1", "TLSv1.1", "TLSv1.2", "TLSv1.3");
27 my @min_tls_protocols_fips = (undef, "TLSv1.2", "TLSv1.3");
28 my @max_tls_protocols = ("SSLv3", "TLSv1", "TLSv1.1", "TLSv1.2", "TLSv1.3", undef);
29 my @max_tls_protocols_fips = ("TLSv1.2", "TLSv1.3", undef);
31 my @is_tls_disabled = anydisabled("ssl3", "tls1", "tls1_1", "tls1_2", "tls1_3");
32 my @is_tls_disabled_fips = anydisabled("tls1_2", "tls1_3");
34 my $min_tls_enabled; my $max_tls_enabled;
35 my $min_tls_enabled_fips; my $max_tls_enabled_fips;
[all …]
/freebsd/tools/tools/drm/
H A Dgen-drm_pciids9 my $progname = basename($0);
13 my ($header) = @_;
15 open(my $fh, '<', $header) or die "Can't open Linux header: $!\n";
17 my $in_list = 0;
19 my %pciids = ();
21 my $current_vendor_define;
23 while (my $line = <$fh>) {
28 my $vendor_id = uc($1);
29 my $device_id = uc($2);
30 my $flags = $3;
[all …]
/freebsd/contrib/jemalloc/bin/
H A Djeprof.in76 my $JEPROF_VERSION = "@jemalloc_version@";
77 my $PPROF_VERSION = "2.0";
82 my %obj_tool_map = (
93 my @DOT = ("dot"); # leave non-absolute, since it may be in /usr/local
94 my @GV = ("gv");
95 my @EVINCE = ("evince"); # could also be xpdf or perhaps acroread
96 my @KCACHEGRIND = ("kcachegrind");
97 my @PS2PDF = ("ps2pdf");
99 my @URL_FETCHER = ("curl", "-s", "--fail");
102 my $HEAP_PAGE = "/pprof/heap";
[all …]
/freebsd/crypto/openssl/test/
H A Dbntests.pl14 my $EXPECTED_FAILURES = 0;
15 my $failures = 0;
19 my $x = shift;
20 my ($sign, $hex) = ($x =~ /^([+\-]?)(.*)$/);
28 my $lineno = shift;
29 my %s = @_;
33 my $sum = bn($s{'Sum'});
34 my $a = bn($s{'A'});
35 my $b = bn($s{'B'});
39 my $lshift1 = bn($s{'LShift1'});
[all …]
/freebsd/crypto/openssl/util/perl/TLSProxy/
H A DRecord.pm14 my $server_encrypting = 0;
15 my $client_encrypting = 0;
16 my $etm = 0;
30 my %record_type = (
64 my $class = shift;
65 my $server = shift;
66 my $flight = shift;
67 my $packet = shift;
68 my $isdtls = shift;
69 my $partial = "";
[all …]
H A DProxy.pm29 my $have_IPv6;
30 my $useINET6;
31 my $IP_factory;
42 my $s = IO::Socket::INET6->new(
57 my $s = IO::Socket::IP->new(
77 my $is_tls13 = 0;
78 my $ciphersuite = undef;
81 my $class = shift;
82 my ($filter,
90 my $class = shift;
[all …]
H A DMessage.pm55 my %message_type = (
149 my $payload = "";
150 my $messlen = -1;
151 my $mt;
152 my $startoffset = -1;
153 my $server = 0;
154 my $success = 0;
155 my $end = 0;
156 my @message_rec_list = ();
157 my @message_frag_lens = ();
[all …]
H A DCertificate.pm17 my $class = shift;
18 my ($isdtls,
28 my $self = $class->SUPER::new(
49 my $self = shift;
52 my $context_len = unpack('C', $self->data);
53 my $context = substr($self->data, 1, $context_len);
55 my $remdata = substr($self->data, 1 + $context_len);
57 my ($hicertlistlen, $certlistlen) = unpack('Cn', $remdata);
65 my ($hicertlen, $certlen) = unpack('Cn', $remdata);
72 my $certdata = substr($remdata, 0, $certlen);
[all …]
H A DClientHello.pm19 my $class = shift;
20 my ($isdtls,
30 my $self = $class->SUPER::new(
61 my $self = shift;
62 my $ptr = 2;
63 my ($client_version) = unpack('n', $self->data);
64 my $random = substr($self->data, $ptr, 32);
66 my $session_id_len = unpack('C', substr($self->data, $ptr));
68 my $session = substr($self->data, $ptr, $session_id_len);
70 my $legacy_cookie_len = 0;
[all …]
/freebsd/contrib/dialog/
H A Ddemo.pl40 my $name = shift;
41 my $default = shift;
42 my $value = `tput "$name"`;
49 my $msecs = shift;
54 my $title = shift;
55 my $width = shift;
66 my $status = 1;
67 my $RHS_CLEAR = "clear";
68 my $RHS_TEXTBOX = "textbox";
69 my $RHS_MSGBOX = "msgbox";
[all …]
/freebsd/crypto/openssl/util/
H A Dwithlibctx.pl7 my $topdir = shift;
13 my $dir = shift;
14 my @files = glob "$dir/*.c $dir/*.h $dir/*.h.in $dir/*.pod *dir/*.pod.in";
16 open (my $STDOUT_ORIG, '>&', STDOUT);
18 foreach my $file (@files) {
19 my ($tmpfh, $tmpfile) = tempfile();
33 opendir my $dh, $dir or die "Cannot open directory";
35 while (defined(my $subdir = readdir $dh)) {
44 my $fh = shift;
45 my $multiline = 0;
[all …]
H A Dmk-fipsmodule-cnf.pl13 my $conditional_errors = 1;
14 my $security_checks = 1;
15 my $ems_check = 1;
16 my $no_short_mac = 1;
17 my $drgb_no_trunc_dgst = 1;
18 my $digest_check = 1;
19 my $dsa_sign_disabled = 1;
20 my $tdes_encrypt_disabled = 1;
21 my $pkcs15_pad_disable = 1;
22 my $rsa_pss_saltlen_check = 1;
[all …]
H A Dmkdef.pl28 my $name = undef; # internal library/module name
29 my $ordinals_file = undef; # the ordinals file to use
30 my $version = undef; # the version to use for the library
31 my $OS = undef; # the operating system family
32 my $type = 'lib'; # either lib or dso
33 my $verbose = 0;
34 my $ctest = 0;
35 my $debug = 0;
38 my $case_insensitive = 0;
106 (my $SO_VARIANT = uc($target{"shlib_variant"} // '')) =~ s/\W/_/g;
[all …]
/freebsd/tools/tools/locale/tools/
H A Dcharmaps.pm34 my %data = ();
35 my %d = ();
36 my $index = -1;
39 my $etcdir = shift;
42 my @xml = <FIN>;
46 my $xml = new XML::Parser(Handlers => {
56 my $expat = shift;
57 my $element = shift;
58 my @attrs = @_;
59 my %attrs = ();
[all …]
/freebsd/crypto/openssl/providers/common/der/
H A Doids_to_c.pm18 my $OID_name_re = qr/([a-z](?:[-_A-Za-z0-9]*[A-Za-z0-9])?)/;
19 my $OID_value_re = qr/(\{.*?\})/s;
20 my $OID_def_re = qr/
27 my ($name, $comment) = @{ shift() };
28 my @oid_nums = @_;
29 my $oid_size = scalar @oid_nums;
31 (my $C_comment = $comment) =~ s|^| * |msg;
33 (my $C_name = $name) =~ s|-|_|g;
34 my $C_bytes_size = 2 + scalar @_;
35 my $C_bytes = join(', ', map { sprintf("0x%02X", $_) } @oid_nums );
[all …]
/freebsd/crypto/heimdal/tools/
H A Dkdc-log-analyze.pl50 my $notlocal = 'not SU';
51 my @local_realms = ( "SU.SE" );
52 my @local_networks_re =
60 my $as_req = 0;
61 my %as_req_addr;
62 my %as_req_addr_nonlocal;
63 my %as_req_client;
64 my %as_req_server;
65 my %addr_uses_des;
66 my %princ_uses_des;
[all …]
/freebsd/crypto/openssl/test/recipes/
H A D80-test_cmp_http.t44 my $str = shift;
49 my $proxy = chop_dblquot($ENV{http_proxy} // $ENV{HTTP_PROXY} // "");
52 my $no_proxy = $ENV{no_proxy} // $ENV{NO_PROXY};
54 my @app = qw(openssl cmp);
57 my $ca_dn; # The CA's Distinguished Name
58 my $server_dn; # The server's Distinguished Name
59 my $server_host;# The server's hostname or IP address
60 my $server_port;# The server's port
61 my $server_tls; # The server's TLS port, if any, or 0
62 my $server_path;# The server's CMP alias
[all …]
/freebsd/contrib/ncurses/misc/
H A Dncu2openbsd54 my $current = getcwd;
55 my $working = $current;
117 my $text = shift;
122 my $name = shift;
123 open( my $fp, $name ) || &failed("cannot open $name");
124 my (@input) = <$fp>;
131 my $path = shift;
132 my @result;
133 if ( opendir( my $dh, $path ) ) {
134 my @data = sort readdir($dh);
[all …]
/freebsd/tools/tools/vt/keymaps/
H A Dconvert-keymaps.pl10 my $dir_convtool = $1 || ".";
12 my $dir_keymaps_syscons = "/usr/src/share/syscons/keymaps";
13 my $dir_keymaps_config = "$dir_convtool";
15 my $dir_keymaps_vt = "/usr/src/share/vt/keymaps";
16 my $dir_keymaps_output = "$dir_keymaps_vt/OUTPUT";
18 my $keymap_index = "$dir_keymaps_syscons/INDEX.keymaps";
20 my $language_map = "$dir_keymaps_config/LANG.map";
21 my $keymapfile_map = "$dir_keymaps_config/KBDFILES.map";
24 my %LANG_NEW; # index: lang_old
25 my %ENCODING; # index: lang_old, file_old
[all …]
/freebsd/crypto/openssl/crypto/bn/asm/
H A Dppc64-mont-fixed.pl42 my ($flavour, $output, $dir, $xlate);
61 my $SIZE_T= 8;
66 my $ze = "r0";
67 my $sp = "r1";
68 my $toc = "r2";
69 my $rp = "r3";
70 my $ap = "r4";
71 my $bp = "r5";
72 my $np = "r6";
73 my $n0 = "r7";
[all …]
/freebsd/contrib/less/
H A Dmkutable4 my $USAGE = <<__EOF__;
13 my $type_field = 2;
17 my %force_space = (
27 my @force_omit = (
37 my @force_compose = (
46 my $args = join ' ', @ARGV;
50 my %types;
51 my $arg;
56 my %out = ( 'types' => \%types );
58 my %force_compose;
[all …]
/freebsd/secure/caroot/
H A Dca-extract.pl45 my $generated = '@' . 'generated';
46 my $inputfh = *STDIN;
47 my $debug = 0;
48 my $infile;
49 my $trustdir = "trusted";
50 my $untrustdir = "untrusted";
51 my %labels;
52 my %certs;
53 my %trusts;
54 my %expires;
[all …]

12345678910>>...61