EVERYTHING FROM THE OTHER REPO

2026-07-29 03:36:26 +03:00
parent 6777ea96db
commit 92a6ae42f5
4426 changed files with 1696506 additions and 2 deletions
@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+# This file was preprocessed, do not edit!
+
+
+package Debconf::FrontEnd;
+use warnings;
+use strict;
+use Debconf::Gettext;
+use Debconf::Priority;
+use Debconf::Log ':all';
+use base qw(Debconf::Base);
+
+
+sub init {
+	my $this=shift;
+
+	$this->elements([]);
+	$this->interactive('');
+	$this->capb('');
+	$this->title('');
+	$this->requested_title('');
+	$this->info(undef);
+	$this->need_tty(1);
+}
+
+
+sub elementtype {
+	my $this=shift;
+
+	my $ret;
+	if (ref $this) {
+		($ret) = ref($this) =~ m/Debconf::FrontEnd::(.*)/;
+	}
+	else {
+		($ret) = $this =~ m/Debconf::FrontEnd::(.*)/;
+	}
+	return $ret;
+}
+
+my %nouse;
+
+sub _loadelementclass {
+	my $this=shift;
+	my $type=shift;
+	my $nodebug=shift;
+
+	if (! UNIVERSAL::can("Debconf::Element::$type", 'new')) {
+		return if $nouse{$type};
+		eval qq{use Debconf::Element::$type};
+		if ($@ || ! UNIVERSAL::can("Debconf::Element::$type", 'new')) {
+			warn sprintf(gettext("Unable to load Debconf::Element::%s. Failed because: %s"), $type, $@) if ! $nodebug;
+			$nouse{$type}=1;
+			return;
+		}
+	}
+}
+
+
+sub makeelement {
+	my $this=shift;
+	my $question=shift;
+	my $nodebug=shift;
+
+	my $type=$this->elementtype.'::'.ucfirst($question->type);
+	$type=~s/::$//; # in case the question has no type..
+
+	$this->_loadelementclass($type, $nodebug);
+
+	my $element="Debconf::Element::$type"->new(question => $question);
+	return if ! ref $element;
+	return $element;
+}
+
+
+sub add {
+	my $this=shift;
+	my $element=shift;
+
+	foreach (@{$this->elements}) {
+		return if $element->question == $_->question;
+	}
+
+	$element->frontend($this);
+	push @{$this->elements}, $element;
+}
+
+
+sub go {
+	my $this=shift;
+	$this->backup('');
+	foreach my $element (@{$this->elements}) {
+		$element->show;
+		return if $this->backup && $this->capb_backup;
+	}
+	return 1;
+}
+
+
+sub progress_start {
+	my $this=shift;
+	my $min=shift;
+	my $max=shift;
+	my $question=shift;
+
+	my $type = $this->elementtype.'::Progress';
+	$this->_loadelementclass($type);
+
+	my $element="Debconf::Element::$type"->new(question => $question);
+	unless (ref $element) {
+		return;
+	}
+	$element->frontend($this);
+	$element->progress_min($min);
+	$element->progress_max($max);
+	$element->progress_cur($min);
+
+	$element->start;
+
+	$this->progress_bar($element);
+}
+
+
+sub progress_set {
+	my $this=shift;
+	my $value=shift;
+
+	return $this->progress_bar->set($value);
+}
+
+
+sub progress_step {
+	my $this=shift;
+	my $inc=shift;
+
+	return $this->progress_set($this->progress_bar->progress_cur + $inc);
+}
+
+
+sub progress_info {
+	my $this=shift;
+	my $question=shift;
+
+	return $this->progress_bar->info($question);
+}
+
+
+sub progress_stop {
+	my $this=shift;
+
+	$this->progress_bar->stop;
+	$this->progress_bar(undef);
+}
+
+
+sub clear {
+	my $this=shift;
+
+	$this->elements([]);
+}
+
+
+sub default_title {
+	my $this=shift;
+
+	$this->title(sprintf(gettext("Configuring %s"), shift));
+	$this->requested_title($this->title);
+}
+
+
+sub shutdown {}
+
+
+1