/openbmc/linux/scripts/ |
H A D | get_maintainer.pl | 16 my $P = $0; 17 my $V = '0.26'; 24 my $cur_path = fastgetcwd() . '/'; 25 my $lk_path = "./"; 26 my $email = 1; 27 my $email_usename = 1; 28 my $email_maintainer = 1; 29 my $email_reviewer = 1; 30 my $email_fixes = 1; 31 my $email_list = 1; [all …]
|
H A D | get_dvb_firmware | 50 my $sourcefile = "tt_Premium_217g.zip"; 51 my $url = "http://www.softwarepatch.pl/9999ccd06a4813cb827dbb0005071c71/$sourcefile"; 52 my $hash = "53970ec17a538945a6d8cb608a7b3899"; 53 my $outfile = "dvb-fe-sp8870.fw"; 54 my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 67 my $sourcefile = "Dvbt1.3.57.6.zip"; 68 my $url = "http://www.avermedia.com/software/$sourcefile"; 69 my $cabfile = "DVBT Net Ver1.3.57.6/disk1/data1.cab"; 70 my $hash = "237938d53a7f834c05c42b894ca68ac3"; 71 my $outfile = "dvb-fe-sp887x.fw"; [all …]
|
H A D | get_abi.pl | 17 my $help = 0; 18 my $hint = 0; 19 my $man = 0; 20 my $debug = 0; 21 my $enable_lineno = 0; 22 my $show_warnings = 1; 23 my $prefix="Documentation/ABI"; 24 my $sysfs_prefix="/sys"; 25 my $search_string; 28 my $dbg_what_parsing = 1; [all …]
|
H A D | leaking_addresses.pl | 33 my $P = $0; 36 my @DIRS = ('/proc', '/sys'); 39 my $TIMEOUT = 10; 43 my @SUPPORTED_ARCHITECTURES = ('x86_64', 'ppc64', 'x86'); 46 my $help = 0; 47 my $debug = 0; 48 my $raw = 0; 49 my $output_raw = ""; # Write raw results to file. 50 my $input_raw = ""; # Read raw results from file instead of scanning. 51 my $suppress_dmesg = 0; # Don't show dmesg in output. [all …]
|
H A D | extract-sys-certs.pl | 13 my $sysmap = ""; 20 my $vmlinux = $ARGV[0]; 21 my $keyring = $ARGV[1]; 27 my @lines = <FD>; 30 my @sections = (); 32 foreach my $line (@lines) { 36 my $seg = $1; 37 my $name = $2; 38 my $len = Math::BigInt->new("0x" . $3); 39 my $vma = Math::BigInt->new("0x" . $4); [all …]
|
H A D | headerdep.pl | 13 my $opt_all; 14 my @opt_include; 15 my $opt_graph; 28 my %deps = (); 29 my %linenos = (); 31 my @headers = grep { strip($_) } @ARGV; 63 my $filename = shift; 65 for my $i (@opt_include) { 66 my $stripped = $filename; 77 my $filename = shift; [all …]
|
H A D | get_feat.pl | 11 my $help; 12 my $man; 13 my $debug; 14 my $arch; 15 my $feat; 16 my $enable_fname; 18 my $basename = abs_path($0); 21 my $prefix=$basename . "../Documentation/features"; 25 my $status_size = 1; 26 my $description_size = 1; [all …]
|
H A D | kernel-doc | 58 my $errors = 0; 59 my $warnings = 0; 60 my $anon_struct_union = 0; 63 my $type_constant = '\b``([^\`]+)``\b'; 64 my $type_constant2 = '\%([-_\w]+)'; 65 my $type_func = '(\w+)\(\)'; 66 my $type_param = '\@(\w*((\.\w+)|(->\w+))*(\.\.\.)?)'; 67 my $type_param_ref = '([\!~]?)\@(\w*((\.\w+)|(->\w+))*(\.\.\.)?)'; 68 my $type_fp_param = '\@(\w+)\(\)'; # Special RST handling for func ptr params 69 my $type_fp_param2 = '\@(\w+->\S+)\(\)'; # Special RST handling for structs with func ptr params [all …]
|
/openbmc/u-boot/scripts/ |
H A D | get_maintainer.pl | 16 my $P = $0; 17 my $V = '0.26'; 23 my $cur_path = fastgetcwd() . '/'; 24 my $lk_path = "./"; 25 my $email = 1; 26 my $email_usename = 1; 27 my $email_maintainer = 1; 28 my $email_reviewer = 1; 29 my $email_list = 1; 30 my $email_subscriber_list = 0; [all …]
|
/openbmc/qemu/scripts/ |
H A D | get_maintainer.pl | 16 my $P = $0; 17 my $V = '0.26'; 21 my $lk_path = "./"; 22 my $email = 1; 23 my $email_usename = 1; 24 my $email_maintainer = 1; 25 my $email_reviewer = 1; 26 my $email_list = 1; 27 my $email_subscriber_list = 0; 28 my $email_git = 0; [all …]
|
/openbmc/phosphor-mrw-tools/ |
H A D | inventory.pl | 15 my $serverwizFile; 16 my $outputFile, my $target; 17 my $fruName, my $type; 18 my @items, my %item, my %inventory; 21 my %skipFRUTypes = (OCC => 1); 24 my %includedTypes = ("CORE" => 1); 27 my %includedTargetTypes = ("chip-sp-bmc" => 1, 31 my %notFRUTypes = ("CORE" => 1); 41 my $targetObj = Targets->new; 57 my $targetType = $targetObj->getTargetType($target); [all …]
|
H A D | gen_ipmi_sensor.pl | 12 my $serverwizFile = ""; 13 my $debug = 0; 14 my $outputFile = ""; 15 my $metaDataFile = ""; 16 my $skipBrokenMrw = 0; 33 my $targetObj = Targets->new; 41 open(my $fh, '>', $outputFile) or die "Could not open file '$outputFile' $!"; 42 my $sensorTypeConfig = LoadFile($metaDataFile); 44 my @interestedTypes = keys %{$sensorTypeConfig}; 45 my %types; [all …]
|
H A D | gen_led_groups.pl | 13 my $force = 0; 14 my $serverwizFile = ""; 15 my $debug = 0; 16 my $outputFile = ""; 17 my $verbose = 0; 35 my %hashGroup; 38 my %invHash; 42 my %encFaults; 46 my @defaultGroup = ("BmcBooted", "PowerOn"); 49 my $lampTest = "LampTest"; [all …]
|
H A D | gen_path_callouts.pl | 56 my $class = shift; 57 my $self = { 69 my $self = shift; 75 my $self = shift; 81 my $self = shift; 87 my $self = shift; 96 my ($class) = @_; 98 my $self = $class->SUPER::new("I2C", $_[1], $_[2], $_[3]); 106 my $self = shift; 112 my $self = shift; [all …]
|
H A D | gen_callouts.pl | 13 my $mrwFile = ""; 14 my $outFile = ""; 31 my $targets = Targets->new; 36 my @inventory = Inventory::getInventory($targets); 40 my $i2cPath = "/sys/devices/platform/ahb/ahb:apb/ahb:apb:bus\@1e78a000/1e78a100.i2c-bus/i2c-<port>/… 41 my $fsiMasterPath = "/sys/devices/platform/gpio-fsi/fsi0/slave\@00:00/raw"; 42 my $fsiSlavePath = "/sys/devices/platform/gpio-fsi/fsi0/slave\@00:00/00:00:00:0a/fsi1/slave\@<link>… 45 open(my $fh, '>', $outFile) or die "Could not open file '$outFile' $!"; 55 my $bmc = Util::getBMCTarget($targets); 56 my $connections = $targets->findConnections($bmc, "I2C"); [all …]
|
H A D | gen_ipmi_fru.pl | 12 my $serverwizFile = ""; 13 my $debug = 0; 14 my $outputFile = ""; 15 my $metaDataFile = ""; 16 my $skipBrokenMrw = 0; 33 my $targetObj = Targets->new; 41 open(my $fh, '>', $outputFile) or die "Could not open file '$outputFile' $!"; 42 my $fruTypeConfig = LoadFile($metaDataFile); 44 my @interestedTypes = keys %{$fruTypeConfig}; 45 my %types; [all …]
|
H A D | Inventory.pm | 7 my %TYPES = (SYS => 1, NODE => 1, PROC => 1, 12 my %RU_TYPES = (FRU => 1, CRU => 1); 15 my %MODULE_TYPES = (PROC => 1, GPU => 1); 24 my $targetObj = shift; 25 my @inventory; 47 my ($targetObj, $inventory) = @_; 49 for my $target (sort keys %{$targetObj->getAllTargets()}) { 50 my $type = ""; 51 my $ruType = ""; 62 my %item; [all …]
|
/openbmc/linux/tools/testing/ktest/ |
H A D | ktest.pl | 16 my $VERSION = "0.2"; 20 my %opt; 21 my %repeat_tests; 22 my %repeats; 23 my %evals; 26 my %default = ( 85 my $test_log_start = 0; 87 my $ktest_config = "ktest.conf"; 88 my $version; 89 my $have_version = 0; [all …]
|
H A D | config-bisect.pl | 60 my $start = 0; 61 my $val = ""; 63 my $pwd = `pwd`; 65 my $tree = $pwd; 66 my $build; 68 my $output_config; 69 my $reset_bisect; 102 my ($file) = @_; 111 my ($cancel, $prompt) = @_; 113 my $ans; [all …]
|
/openbmc/linux/drivers/crypto/vmx/ |
H A D | ppc-xlate.pl | 6 my $flavour = shift; 7 my $output = shift; 10 my %GLOBALS; 11 my $dotinlocallabels=($flavour=~/linux/)?1:0; 12 my $elfv2abi=(($flavour =~ /linux-ppc64le/) or ($flavour =~ /linux-ppc64-elfv2/))?1:0; 13 my $dotfunctions=($elfv2abi=~1)?0:1; 18 my $globl = sub { 19 my $junk = shift; 20 my $name = shift; 21 my $global = \$GLOBALS{$name}; [all …]
|
/openbmc/linux/arch/powerpc/crypto/ |
H A D | ppc-xlate.pl | 6 my $flavour = shift; 7 my $output = shift; 10 my %GLOBALS; 11 my $dotinlocallabels=($flavour=~/linux/)?1:0; 16 my $globl = sub { 17 my $junk = shift; 18 my $name = shift; 19 my $global = \$GLOBALS{$name}; 20 my $ret; 41 my $text = sub { [all …]
|
/openbmc/u-boot/scripts/kconfig/ |
H A D | streamline_config.pl | 36 # Here's what I did with my Debian distribution. 51 my $debugprint = 0; 59 my $config = ".config"; 61 my $uname = `uname -r`; 64 my @searchconfigs = ( 105 foreach my $conf (@searchconfigs) { 106 my $file = $conf->{"file"}; 115 my $exec = $conf->{"exec"}; 119 open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file"; 120 my @x = <$infile>; [all …]
|
/openbmc/linux/Documentation/driver-api/media/drivers/ccs/ |
H A D | mk-ccs-regs | 8 my $ccsregs = "ccs-regs.asc"; 9 my $header; 10 my $regarray; 11 my $limitc; 12 my $limith; 13 my $kernel; 14 my $help; 43 my $lh_hdr = ! defined $kernel 46 my $uint32_t = ! defined $kernel ? 'uint32_t' : 'u32'; 47 my $uint16_t = ! defined $kernel ? 'uint16_t' : 'u16'; [all …]
|
/openbmc/linux/Documentation/trace/postprocess/ |
H A D | trace-vmscan-postprocess.pl | 55 my %perprocesspid; 56 my %perprocess; 57 my %last_procmap; 58 my $opt_ignorepid; 59 my $opt_read_procstat; 61 my $total_wakeup_kswapd; 62 my ($total_direct_reclaim, $total_direct_nr_scanned); 63 my ($total_direct_nr_file_scanned, $total_direct_nr_anon_scanned); 64 my ($total_direct_latency, $total_kswapd_latency); 65 my ($total_direct_nr_reclaimed); [all …]
|
/openbmc/linux/scripts/kconfig/ |
H A D | streamline_config.pl | 36 # Here's what I did with my Debian distribution. 51 my $debugprint = 0; 59 my $uname = `uname -r`; 62 my @searchconfigs = ( 103 foreach my $conf (@searchconfigs) { 104 my $file = $conf->{"file"}; 113 my $exec = $conf->{"exec"}; 117 open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file"; 118 my @x = <$infile>; 125 my @config_file = read_config; [all …]
|