Lines Matching refs:s
14 my $s = {
41 bless $s;
42 return $s;
46 my ($s,$file,$rx) = @_;
51 $s->{"VERSION"} = $1;
57 if (!defined $s->{"VERSION"}) { die "Failed to auto-detect version"; }
58 return $s->{"VERSION"};
62 my ($s,$file,$rx) = @_;
67 if (!defined $s->{"VERSION"}) {
68 $s->{"VERSION"} = $1;
70 } elsif ($s->{"VERSION"} eq $1) {
73 $s->{"OLDVERSION"} = $1;
80 if (!defined $s->{"VERSION"}) { die "Failed to auto-detect version"; }
81 return $s->{"VERSION"};
85 my ($s,$dd) = @_;
86 $s->{"DISTDIR"} = $dd;
93 my ($s,$v) = @_;
94 if (defined $s->{$v}) {
95 return $s->{$v};
102 my ($s,$f,$dir,$action) = @_;
118 s/@([0-9A-Za-z_]+)@/$s->ExpandVar($1)/ge;
123 if (defined ${$s->{"conditions"}}{$1}) {
124 push @ifs, ${$s->{"conditions"}}{$1};
129 if (defined ${$s->{"conditions"}}{$1}) {
130 push @ifs, -${$s->{"conditions"}}{$1};
164 my ($s) = @_;
165 $s->{"PKG"} = $s->{"PACKAGE"} . "-" . $s->{"VERSION"};
166 my $dd = $s->{"DISTDIR"};
167 my $pkg = $s->{"PKG"};
175 my @rules = @{$s->{"rules"}};
186 $s->CopyFile($f, $dir, $action);
189 foreach my $d (@{$s->{"directories"}}) {
201 push @{$s->{"distfiles"}}, "$dd/$pkg.tar.gz";
203 if ($s->{'do_sign'}) {
208 push @{$s->{"distfiles"}}, "$dd/$pkg.tar.gz.sign";
211 my $adir = $s->{"archivedir"};
221 my ($s,$f) = @_;
222 my $sf = $s->{"DISTDIR"} . "/" . $s->{"PKG"} . "/$f";
223 my $df = $s->{"DISTDIR"} . "/$f";
226 push @{$s->{"distfiles"}}, $df;
230 my ($s) = @_;
233 "test!" => \$s->{"do_test"},
234 "patch!" => \$s->{"do_patch"},
235 "diff-against=s" => \$s->{"diff_against"},
236 "upload!" => \$s->{"do_upload"},
237 "sign!" => \$s->{"do_sign"},
242 my ($s) = @_;
243 my $dd = $s->{"DISTDIR"};
244 my $pkg = $s->{"PKG"};
256 my ($s) = @_;
257 my $dd = $s->{"DISTDIR"};
258 my $pkg1 = $s->{"PKG"};
260 if ($s->{"diff_against"} ne "") {
261 $oldver = $s->{"diff_against"};
262 } elsif (defined $s->{"OLDVERSION"}) {
263 $oldver = $s->{"OLDVERSION"};
268 my $pkg0 = $s->{"PACKAGE"} . "-" . $oldver;
270 my $oldarch = $s->{"archivedir"} . "/" . $pkg0 . ".tar.gz";
275 my $diff = $s->{"PACKAGE"} . "-" . $oldver . "-" . $s->{"VERSION"} . ".diff.gz";
278 push @{$s->{"distfiles"}}, "$dd/$diff";
282 my ($s) = @_;
283 foreach my $u (@{$s->{"uploads"}}) {
288 foreach my $f (@{$s->{"distfiles"}}) {
322 my ($s) = @_;
323 $s->Test if $s->{"do_test"};
324 $s->MakePatch if $s->{"do_patch"};
325 $s->Upload if $s->{"do_upload"};