1# ex:ts=8 sw=4: 2# $OpenBSD: AddCreateDelete.pm,v 1.50 2021/01/30 11:16:58 espie Exp $ 3# 4# Copyright (c) 2007-2014 Marc Espie <espie@openbsd.org> 5# 6# Permission to use, copy, modify, and distribute this software for any 7# purpose with or without fee is hereby granted, provided that the above 8# copyright notice and this permission notice appear in all copies. 9# 10# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 11# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 12# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 13# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 14# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 15# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 16# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 17# 18 19use strict; 20use warnings; 21 22# common framework, let's place most everything in there 23 24package OpenBSD::AddCreateDelete::State; 25our @ISA = qw(OpenBSD::State); 26 27use OpenBSD::State; 28use OpenBSD::ProgressMeter; 29 30sub init 31{ 32 my $self = shift; 33 34 $self->{progressmeter} = OpenBSD::ProgressMeter->new; 35 $self->{bad} = 0; 36 $self->SUPER::init(@_); 37 $self->{export_level}++; 38} 39 40sub progress 41{ 42 my $self = shift; 43 return $self->{progressmeter}; 44} 45 46sub not 47{ 48 my $self = shift; 49 return $self->{not}; 50} 51 52sub sync_display 53{ 54 my $self = shift; 55 $self->progress->clear; 56} 57 58sub add_interactive_options 59{ 60 my $self = shift; 61 $self->{has_interactive_options} = 1; 62 return $self; 63} 64 65sub handle_options 66{ 67 my ($state, $opt_string, @usage) = @_; 68 69 my $i; 70 71 if ($state->{has_interactive_options}) { 72 $opt_string .= 'iI'; 73 $state->{opt}{i} = sub { 74 $i++; 75 }; 76 }; 77 78 $state->SUPER::handle_options($opt_string.'L:mnx', @usage); 79 80 $state->progress->setup($state->opt('x'), $state->opt('m'), $state); 81 $state->{not} = $state->opt('n'); 82 if ($state->{has_interactive_options}) { 83 if ($state->opt('I')) { 84 $i = 0; 85 } elsif (!defined $i) { 86 $i = -t STDIN; 87 } 88 } 89 if ($i) { 90 require OpenBSD::Interactive; 91 $state->{interactive} = OpenBSD::Interactive->new($state, $i); 92 } 93 $state->{interactive} //= OpenBSD::InteractiveStub->new($state); 94} 95 96 97sub is_interactive 98{ 99 return shift->{interactive}->is_interactive; 100} 101 102sub find_window_size 103{ 104 my $state = shift; 105 $state->SUPER::find_window_size; 106 $state->{progressmeter}->compute_playfield; 107} 108 109sub handle_continue 110{ 111 my $state = shift; 112 $state->SUPER::handle_continue; 113 $state->{progressmeter}->handle_continue; 114} 115 116sub confirm_defaults_to_no 117{ 118 my $self = shift; 119 return $self->{interactive}->confirm($self->f(@_), 0); 120} 121 122sub confirm_defaults_to_yes 123{ 124 my $self = shift; 125 return $self->{interactive}->confirm($self->f(@_), 1); 126} 127 128sub ask_list 129{ 130 my $self = shift; 131 return $self->{interactive}->ask_list(@_); 132} 133 134sub vsystem 135{ 136 my $self = shift; 137 if ($self->verbose < 2) { 138 $self->system(@_); 139 } else { 140 $self->verbose_system(@_); 141 } 142} 143 144sub system 145{ 146 my $self = shift; 147 $self->SUPER::system(@_); 148} 149 150sub run_makewhatis 151{ 152 my ($state, $opts, $l) = @_; 153 my $braindead = sub { chdir('/'); }; 154 while (@$l > 1000) { 155 my @b = splice(@$l, 0, 1000); 156 $state->vsystem($braindead, 157 OpenBSD::Paths->makewhatis, @$opts, '--', @b); 158 } 159 $state->vsystem($braindead, 160 OpenBSD::Paths->makewhatis, @$opts, '--', @$l); 161} 162 163sub ntogo 164{ 165 my ($self, $offset) = @_; 166 167 return $self->{wantntogo} ? 168 $self->progress->ntogo($self, $offset) : 169 $self->f("ok"); 170} 171 172sub ntogo_string 173{ 174 my ($self, $offset) = @_; 175 176 return $self->{wantntogo} ? 177 $self->f(" (#1)", $self->ntodo($offset // 0)) : 178 $self->f(""); 179} 180 181sub solve_dependency 182{ 183 my ($self, $solver, $dep, $package) = @_; 184 # full dependency solving with everything 185 return $solver->really_solve_dependency($self, $dep, $package); 186} 187 188package OpenBSD::AddCreateDelete; 189use OpenBSD::Error; 190 191sub handle_options 192{ 193 my ($self, $opt_string, $state, @usage) = @_; 194 $state->handle_options($opt_string, $self, @usage); 195} 196 197sub try_and_run_command 198{ 199 my ($self, $state) = @_; 200 if ($state->defines('pkg-debug')) { 201 $self->run_command($state); 202 } else { 203 try { 204 $self->run_command($state); 205 } catch { 206 $state->errsay("#1: #2", $state->{cmd}, $_); 207 OpenBSD::Handler->reset; 208 if ($_ =~ m/^Caught SIG(\w+)/o) { 209 kill $1, $$; 210 } 211 $state->{bad}++; 212 }; 213 } 214} 215 216package OpenBSD::InteractiveStub; 217sub new 218{ 219 my $class = shift; 220 bless {}, $class; 221} 222 223sub ask_list 224{ 225 my ($self, $prompt, @values) = @_; 226 return $values[0]; 227} 228 229sub confirm 230{ 231 my ($self, $prompt, $yesno) = @_; 232 return $yesno; 233} 234 235sub is_interactive 236{ 237 return 0; 238} 2391; 240