- checklibs.out
when: on_failure
-changes:
- <<: *precheck_job
- except:
- - pipelines
- script:
- - sh util/tabify-changes < CHANGES > CHANGES.tmp
- - diff -urNap CHANGES CHANGES.tmp
- - perl util/check-changes CHANGES
- - sh util/check-line-length.sh CHANGES
- - rm CHANGES.tmp
- needs: []
-
black:
<<: *precheck_job
needs: []
+++ /dev/null
-#!/usr/bin/perl
-#
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-
-eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
- if $running_under_some_shell;
- # this emulates #! processing on NIH machines.
- # (remove #! line above if indigestible)
-
-$master = 1;
-
-eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
- # process any FOO=bar switches
-
-$, = ' '; # set output field separator
-$\ = "\n"; # set output record separator
-
-$change = 0;
-$status = 0;
-$wasblank = 1;
-
-line: while (<>) {
- ($Fld1,$Fld2,$Fld3,$Fld4) = split(' ', $_, 9999);
- $change = 0 if (!$master && /^\s+--- .* ---$/);
- if ($Fld1 =~ /^[1-9][0-9]*\.$/ && $Fld2 =~ /^\[.*\]$/) {
- if ($change != 0 && $Fld1 >= $change) {
- print 'bad change number', $Fld1;
- $status = 1;
- }
- if ($master && $change != 0 && $Fld1 + 1 != $change) {
- print 'bad change number', $Fld1;
- $status = 1;
- }
- $change = $Fld1;
- if (!$wasblank) {
- print 'missing blank line before change', $Fld1;
- $status = 1;
- }
- }
- if (/^\s+--- .* ---$/) {
- if (!$wasblank) {
- print 'missing blank line before release marker for', $Fld2;
- $status = 1;
- }
- }
- if ($Fld1 eq "") {
- $wasblank = 1;
- } else {
- $wasblank = 0;
- }
-}
-
-exit $status;
+++ /dev/null
-#!/bin/sh
-
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-
-expand "$1" \
- | awk -v file="$1" 'length > 80 {
- if (logged == 0) {
- print file ": Line Too Long"
- logged = 1
- }
- print
-}
-END {
- if (logged == 1) {
- exit(1)
- }
-}'
+++ /dev/null
-#!/usr/bin/perl
-
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-
-# Given two CHANGES files, list [bug] entries present in the
-# first one but not in the second one.
-#
-
-use FileHandle;
-
-# $/ = "";
-
-# Read the CHANGES file $fn and return a hash of change
-# texts and categories indexed by change number.
-
-sub readfile {
- my ($fn) = @_;
- my $fh = new FileHandle($fn, "r")
- or die "open: $fn: $!";
-
- my $changes = { };
-
- my ($changeid, $category);
-
- $changeid = "none";
- $category = "none";
-
- while (<$fh>) {
- if (m/^\s*(\d+)\.\s+\[(\w+)\]/) {
- $changeid = $1;
- $category = $2;
- # print "*** $1 $2\n";
- } elsif (m/---.* released ---/) {
- $changeid = "none";
- $category = "none";
- next;
- } elsif (m/^# /) {
- $changeid = "none";
- $category = "none";
- next;
- }
- if ($changeid eq "none") {
- next;
- }
- $changes->{$changeid}->{text} .= $_;
- $changes->{$changeid}->{category} = $category;
- }
-
- return $changes;
-}
-
-@ARGV == 2 || @ARGV == 3 or die "usage: $0 changes-file-1 changes-file-2\n";
-
-my $c1 = readfile($ARGV[0]);
-my $c2 = readfile($ARGV[1]);
-if (@ARGV == 3) {
- $c3 = readfile($ARGV[2]);
-} else {
- my $c3 = { };
-}
-
-my $msg = "";
-foreach my $c (sort {$a <=> $b} keys %$c1) {
- my $category = $c1->{$c}->{category};
- my $text = $c1->{$c}->{text};
- if ($category ne "func" && $category ne "placeholder" &&
- !exists($c2->{$c}) && !exists($c3->{$c})) {
- if ($msg ne "MISSING\n") {
- $msg = "MISSING\n";
- print $msg;
- }
- print $c1->{$c}->{text};
- }
- if (exists($c2->{$c}) && $category ne "placeholder" &&
- $c2->{$c}->{text} ne $text && !exists($c3->{$c})) {
- if ($msg ne "TEXT\n") {
- $msg = "TEXT\n";
- print $msg;
- }
- print $c2->{$c}->{text};
- print $c1->{$c}->{text};
- }
-}
+++ /dev/null
-#!/usr/bin/perl
-#
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-#
-# Given two CHANGES files, list [bug] entries present in the
-# first one but not in the second one.
-#
-
-use FileHandle;
-
-# $/ = "";
-
-# Read the CHANGES file $fn and return a hash of change
-# texts and categories indexed by change number.
-
-sub readfile {
- my ($fn) = @_;
- my $fh = new FileHandle($fn, "r")
- or die "open: $fn: $!";
-
- my $changes = { };
-
- my ($changeid, $category);
-
- $changeid = "none";
- $category = "none";
-
- while (<$fh>) {
- if (m/^\s*(\d+)\.\s+\[(\w+)\]/) {
- $changeid = $1;
- $category = $2;
- # print "*** $1 $2\n";
- } elsif (m/---.* released ---/) {
- $changeid = "none";
- $category = "none";
- next;
- } elsif (m/^# /) {
- $changeid = "none";
- $category = "none";
- next;
- }
- if ($changeid eq "none") {
- next;
- }
- $changeid =~ s/\.$//;
- $changes->{$changeid}->{text} .= $_;
- $changes->{$changeid}->{category} = $category;
- }
-
- return $changes;
-}
-
-@ARGV == 2 || @ARGV == 3 or die "usage: $0 changes-file-1 changes-file-2\n";
-
-my $c1 = readfile($ARGV[0]);
-my $c2 = readfile($ARGV[1]);
-if (@ARGV == 3) {
- $c3 = readfile($ARGV[2]);
-} else {
- my $c3 = { };
-}
-
-foreach my $c (sort {$a <=> $b} keys %$c1) {
- my $category = $c1->{$c}->{category};
- my $text = $c1->{$c}->{text};
- if ($category eq "func" && !exists($c2->{$c}) && !exists($c3->{$c})) {
- print $c1->{$c}->{text};
- }
-}
+++ /dev/null
-#!/bin/sh
-#
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-
-expand ${1} \
- | sed \
- -e 's/^\([1-9][0-9][0-9][0-9][0-9][0-9]\.\) */\1 /' \
- -e 's/^\([1-9][0-9][0-9][0-9][0-9]\.\) */\1 /' \
- -e 's/^\([1-9][0-9][0-9][0-9]\.\) */\1 /' \
- -e 's/^\( [1-9][0-9][0-9]\.\) */\1 /' \
- -e 's/^\( [1-9][0-9]\.\) */\1 /' \
- -e 's/^\( [1-9]\.\) */\1 /' \
- -e 's/\( \[.\]\) */\1 /' \
- -e 's/\( \[..\]\) */\1 /' \
- -e 's/\( \[...\]\) */\1 /' \
- -e 's/\( \[....\]\) */\1 /' \
- -e 's/\( \[.....\]\) */\1 /' \
- -e 's/\( \[......\]\) */\1 /' \
- -e 's/\( \[.......\]\) */\1 /' \
- -e 's/\( \[........\]\) */\1 /' \
- -e 's/\( \[.........\]\) */\1 /' \
- -e 's/\( \[..........\]\) */\1 /' \
- -e 's/\( \[...........\]\) */\1 /' \
- -e 's/\( \[............\]\) */\1 /' \
- -e 's/[ ]*$//' \
- | unexpand
projects / thirdparty / bind9.git / commitdiff
