]>
git.proxmox.com Git - pve-common.git/blob - src/PVE/CpuSet.pm
a16f7ee0854f0f416d33ccfb7094f342d7b4fa6b
9 my ($class, $members) = @_;
12 my $self = bless { members
=> $members }, $class;
17 # Create a new set with the contents of a cgroup-v1 subdirectory.
19 my ($class, $cgroup, $effective) = @_;
21 return $class->new_from_path("/sys/fs/cgroup/cpuset/$cgroup", $effective);
24 # Create a new set from the contents of a complete path to a cgroup directory.
26 my ($class, $path, $effective) = @_;
30 $filename = "$path/cpuset.effective_cpus";
33 $filename = "$path/cpuset.cpus.effective";
36 $filename = "$path/cpuset.cpus";
39 my $set_text = PVE
::Tools
::file_read_firstline
($filename) // '';
41 my ($count, $members) = parse_cpuset
($set_text);
43 return $class->new($members);
52 foreach my $part (split(/,/, $set_text)) {
53 if ($part =~ /^\s*(\d+)(?:-(\d+))?\s*$/) {
54 my ($from, $to) = ($1, $2);
56 die "invalid range: $part ($to < $from)\n" if $to < $from;
57 for (my $i = $from; $i <= $to; $i++) {
62 die "invalid range: $part\n";
66 return ($count, $members);
70 my ($self, $cgroup) = @_;
72 my $filename = "/sys/fs/cgroup/cpuset/$cgroup/cpuset.cpus";
75 my @members = $self->members();
76 foreach my $cpuid (@members) {
77 $value .= ',' if length($value);
81 open(my $fh, '>', $filename) || die "failed to open '$filename' - $!\n";
82 PVE
::Tools
::safe_print
($filename, $fh, "$value\n");
83 close($fh) || die "failed to close '$filename' - $!\n";
87 my ($self, @members) = @_;
91 foreach my $cpu (@members) {
92 next if $self->{members
}->{$cpu};
93 $self->{members
}->{$cpu} = 1;
101 my ($self, @members) = @_;
105 foreach my $cpu (@members) {
106 next if !$self->{members
}->{$cpu};
107 delete $self->{members
}->{$cpu};
115 my ($self, $cpuid) = @_;
117 return $self->{members
}->{$cpuid};
120 # members: this list is always sorted!
124 return sort { $a <=> $b } keys %{$self->{members
}};
130 return scalar(keys %{$self->{members
}});
134 my ($self, $set2) = @_;
136 my $members1 = $self->{members
};
137 my $members2 = $set2->{members
};
139 foreach my $id (keys %$members1) {
140 return 0 if !$members2->{$id};
142 foreach my $id (keys %$members2) {
143 return 0 if !$members1->{$id};
152 my @members = $self->members();
156 foreach my $cpu (@members) {
157 if (!defined($last)) {
158 $last = $next = $cpu;
159 } elsif (($next + 1) == $cpu) {
162 $res .= ',' if length($res);
163 if ($last != $next) {
164 $res .= "$last-$next";
168 $last = $next = $cpu;
172 if (defined($last)) {
173 $res .= ',' if length($res);
174 if ($last != $next) {
175 $res .= "$last-$next";