Home
last modified time | relevance | path

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

12345678910>>...55

/freebsd/crypto/openssl/crypto/perlasm/
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 …]
H A Darm-xlate.pl11 my $flavour = shift;
12 my $output = shift;
17 my %GLOBALS;
18 my $dotinlocallabels=($flavour=~/linux/)?1:0;
23 my $arch = sub {
27 my $fpu = sub {
31 my $rodata = sub {
38 my $hidden = sub {
42 my $comm = sub {
43 my @args = split(/,\s*/,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/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/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 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 …]
H A Dfind-doc-nits29 my $debug = 0;
79 my $temp = '/tmp/docnits.txt';
80 my $OUT;
81 my $status = 0;
86 my @sections = ( split /[, ]/, $opt_m );
88 my %mandatory_sections = (
98 my $ignored = qr/(?| ^i2d_
112 my $C_symbol = qr/\b[[:alpha:]][_[:alnum:]]*\b/;
118 my %files = ();
120 my %collected_tags = ();
[all …]
/freebsd/crypto/openssl/util/perl/TLSProxy/
H A DRecord.pm14 my $server_encrypting = 0;
15 my $client_encrypting = 0;
16 my $etm = 0;
29 my %record_type = (
47 my %tls_version = (
59 my $class = shift;
60 my $server = shift;
61 my $flight = shift;
62 my $packet = shift;
63 my $partial = "";
[all …]
H A DClientHello.pm17 my $class = shift;
18 my ($server,
24 my $self = $class->SUPER::new(
48 my $self = shift;
49 my $ptr = 2;
50 my ($client_version) = unpack('n', $self->data);
51 my $random = substr($self->data, $ptr, 32);
53 my $session_id_len = unpack('C', substr($self->data, $ptr));
55 my $session = substr($self->data, $ptr, $session_id_len);
57 my $ciphersuite_len = unpack('n', substr($self->data, $ptr));
[all …]
H A DCertificate.pm17 my $class = shift;
18 my ($server,
24 my $self = $class->SUPER::new(
41 my $self = shift;
44 my $context_len = unpack('C', $self->data);
45 my $context = substr($self->data, 1, $context_len);
47 my $remdata = substr($self->data, 1 + $context_len);
49 my ($hicertlistlen, $certlistlen) = unpack('Cn', $remdata);
57 my ($hicertlen, $certlen) = unpack('Cn', $remdata);
64 my $certdata = substr($remdata, 0, $certlen);
[all …]
H A DProxy.pm28 my $have_IPv6;
29 my $IP_factory;
40 my $s = IO::Socket::INET6->new(
54 my $s = IO::Socket::IP->new(
72 my $is_tls13 = 0;
73 my $ciphersuite = undef;
77 my $class = shift;
78 my ($filter,
83 my $self = {
113 my $proxaddr = $self->{proxy_addr};
[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 …]
H A Dcldr2def.pl46 my $DEFENCODING = "UTF-8";
48 my $UNIDIR = undef;
49 my $ETCDIR = undef;
50 my $TYPE = undef;
52 my $CLDR_VERSION = undef;
54 my $result = GetOptions (
60 my %convertors = ();
62 my %ucd = ();
63 my %values = ();
64 my %hashtable = ();
[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/openssl/test/recipes/
H A D80-test_cmp_http.t40 my $str = shift;
45 my $proxy = chop_dblquot($ENV{http_proxy} // $ENV{HTTP_PROXY} // "");
48 my $no_proxy = $ENV{no_proxy} // $ENV{NO_PROXY};
50 my @app = qw(openssl cmp);
53 my $ca_dn; # The CA's Distinguished Name
54 my $server_dn; # The server's Distinguished Name
55 my $server_host;# The server's host name or IP address
56 my $server_port;# The server's port
57 my $server_tls; # The server's TLS port, if any, or 0
58 my $server_path;# The server's CMP alias
[all …]
H A Dtconversion.pl17 my %conversionforms = (
25 my %opts = @_;
29 my $testtype = $opts{-type};
30 my $t = $opts{-in};
31 my $prefix = $opts{-prefix} // $testtype;
32 my @conversionforms =
36 my @openssl_args;
43 my $n = scalar @conversionforms;
44 my $totaltests =
54 my @cmd = ("openssl", @openssl_args);
[all …]
H A D25-test_x509.t27 my @certs = qw(test certs);
28 my $pem = srctop_file(@certs, "cyrillic.pem");
29 my $out_msb = "out-cyrillic.msb";
30 my $out_utf8 = "out-cyrillic.utf8";
31 my $der = "cyrillic.der";
32 my $der2 = "cyrillic.der";
33 my $msb = srctop_file(@certs, "cyrillic.msb");
34 my $utf = srctop_file(@certs, "cyrillic.utf8");
49 my $p12 = srctop_file("test", "shibboleth.pfx");
50 my $p12pass = "σύνθημα γνώρισμα";
[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/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/Configurations/
H A Dgentemplate.pm15 my %opts = @_;
17 my $generator = OpenSSL::GenTemplate->new(%opts);
39 my $class = shift;
40 my %opts = @_;
42 my $data = {
53 my $self = shift;
54 my $name = shift;
55 my %opts = @_;
56 my $fh = $self->{output};
63 my $debug_resolvedepends = $ENV{BUILDFILE_DEBUG_DEPENDS};
[all …]
/freebsd/tools/tools/iso/
H A Dcheck-iso3166.pl16 my %old = ();
19 my @lines = <FIN>;
23 foreach my $l (@lines) {
29 my $two = $1;
30 my $three = $2;
31 my $number = $3;
32 my $name = $4;
41 my %new1 = ();
44 my @lines = <FIN>;
48 my $noticed = 0;
[all …]

12345678910>>...55