blob: 876a5c3b605ea3b0f27528df7e804d924b9d724f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG
# This is an automatically generated prolog.
#
# $Source: src/usr/diag/prdf/common/mnfgtools/prdfMfgThresholds.pl $
#
# IBM CONFIDENTIAL
#
# COPYRIGHT International Business Machines Corp. 2009,2013
#
# p1
#
# Object Code Only (OCO) source materials
# Licensed Internal Code Source Materials
# IBM HostBoot Licensed Internal Code
#
# The source code for this program is not published or otherwise
# divested of its trade secrets, irrespective of what has been
# deposited with the U.S. Copyright Office.
#
# Origin: 30
#
# IBM_PROLOG_END_TAG
use strict;
sub adler32_sum
{
my $a = 1;
my $b = 0;
foreach (split //, shift)
{
$a = $a + ord($_);
$b = $a + $b;
$a = $a % 65521;
$b = $b % 65521;
}
return (($b << 16) | $a) & 0x7FFFFFFF;
}
if (0 != $#ARGV)
{
print "prdfMfgThresholds.pl <threshold list>\n";
exit;
}
if (not -e $ARGV[0])
{
die "Couldn't find ".$ARGV[0];
}
print "#ifndef __PRDF_PRDFMFGTHRESHOLDS_H\n";
print "#define __PRDF_PRDFMFGTHRESHOLDS_H\n";
print "#ifndef PRDF_MFGTHRESHOLD_ENTRY\n";
print "#define PRDF_MFGTHRESHOLD_TABLE_BEGIN \\\n";
print "\tenum PrdfMfgThresholds {\n";
print "#define PRDF_MFGTHRESHOLD_TABLE_END \\\n";
print "\t};\n";
print "#define PRDF_MFGTHRESHOLD_ENTRY(a,b,c) \\\n";
print "\tPRDF_##a = b,\n";
print "#endif\n";
print "\n";
print "PRDF_MFGTHRESHOLD_TABLE_BEGIN\n";
open(THRESHOLDS, $ARGV[0]);
while (my $line = <THRESHOLDS>)
{
chomp $line;
$line =~ s/#.*//;
if ("" eq $line)
{
next;
}
my ($name, $value) = split ' ',$line;
$value =~ s/unlimited/0/i;
my $hash_value = adler32_sum($name);
print "\tPRDF_MFGTHRESHOLD_ENTRY($name, $hash_value, $value)\n";
}
close(THRESHOLDS);
print "PRDF_MFGTHRESHOLD_TABLE_END\n";
print "\n";
print "#endif\n";
|
