From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mout-p-101.mailbox.org (mout-p-101.mailbox.org [80.241.56.151]) by sourceware.org (Postfix) with ESMTPS id 474FA385842B; Tue, 20 Dec 2022 10:49:46 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 474FA385842B Authentication-Results: sourceware.org; dmarc=pass (p=reject dis=none) header.from=aarsen.me Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=aarsen.me Received: from smtp2.mailbox.org (smtp2.mailbox.org [10.196.197.2]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange ECDHE (P-384) server-signature RSA-PSS (4096 bits) server-digest SHA256) (No client certificate requested) by mout-p-101.mailbox.org (Postfix) with ESMTPS id 4Nbtcf6jZBz9sSq; Tue, 20 Dec 2022 11:49:38 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=aarsen.me; s=MBO0001; t=1671533378; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=l3OFkTcPWW9HfLgPKTDKIs8AadW+Gbv1KHLr5ttyMLk=; b=NWJACS9ZcNZnU6Je48wXXWSOzpgle59IAcyuD5dlaAQ1mBel7Kw1mnoJqqJMoq22cUA5LI IijHoQj+otpoxezOTuQHejLQYCCVR005dLIF9iYpOVBAIn5mrfoArdphQNCetZpHquB+qf 9AVnXL4kFkRawBUrFHDF3Ri0ryLzD0YNLz7HWCM844qRgWwOmoNYQAfJeWnQAcPgLOUabx plJeUlzR4JjF+ZkFuDvR6ieDbA0U2xiAj3weZOaEcwQdHLuchUePB6qGiRpSAZm2BZRnGT zYv0LzWezoJ6HyW0T17SC2yEzcwlwaJm65YjU4GiW+ZodXoB9g+6ulzn7unyaQ== From: =?UTF-8?q?Arsen=20Arsenovi=C4=87?= To: Jason Merrill Cc: gcc-patches@gcc.gnu.org, jwakely@redhat.com, libstdc++@gcc.gnu.org, =?UTF-8?q?Arsen=20Arsenovi=C4=87?= Subject: [PATCH 3/3] contrib: Add dg-out-generator.pl Date: Tue, 20 Dec 2022 11:49:16 +0100 Message-Id: <20221220104916.3000540-3-arsen@aarsen.me> In-Reply-To: <20221220104916.3000540-1-arsen@aarsen.me> References: <86ilictvdt.fsf@aarsen.me> <20221220104916.3000540-1-arsen@aarsen.me> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-11.0 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,GIT_PATCH_0,KAM_INFOUSMEBIZ,RCVD_IN_DNSWL_LOW,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: This script is a helper used to generate dg-output lines from an existing program output conveniently. It takes care of escaping Tcl and ARE stuff. contrib/ChangeLog: * dg-out-generator.pl: New file. --- contrib/dg-out-generator.pl | 79 +++++++++++++++++++++++++++++++++++++ 1 file changed, 79 insertions(+) create mode 100755 contrib/dg-out-generator.pl diff --git a/contrib/dg-out-generator.pl b/contrib/dg-out-generator.pl new file mode 100755 index 00000000000..663b00fa496 --- /dev/null +++ b/contrib/dg-out-generator.pl @@ -0,0 +1,79 @@ +#!/usr/bin/env perl +# +# Copyright (C) 2022 GCC Contributors. +# Contributed by Arsen Arsenović. +# +# This script is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3, or (at your option) +# any later version. + +# This script reads program output on STDIN, and out of it produces a block of +# dg-output lines that can be yanked at the end of a file. It will escape +# special ARE and Tcl constructs automatically. +# +# Each argument passed on the standard input is treated as a string to be +# replaced by ``.*'' in the final result. This is intended to mask out build +# paths, filenames, etc. +# +# Usage example: + +# $ g++-13 -fcontracts -o test \ +# 'g++.dg/contracts/contracts-access1.C' && \ +# ./test |& dg-out-generator.pl 'g++.dg/contracts/contracts-access1.C' +# // { dg-output {contract violation in function Base::b at .*:11: pub > 0(\n|\r\n|\r)*} } +# // { dg-output {\[level:default, role:default, continuation mode:never\](\n|\r\n|\r)*} } +# // { dg-output {terminate called without an active exception(\n|\r\n|\r)*} } + +# You can now freely dump the above into your testcase. + +use strict; +use warnings; +use POSIX 'floor'; + +my $escapees = '(' . join ('|', map { quotemeta } @ARGV) . ')'; + +sub gboundary($) +{ + my $str = shift; + my $sz = 10.0; + for (;;) + { + my $bnd = join '', (map chr 64 + rand 27, 1 .. floor $sz); + return $bnd unless index ($str, $bnd) >= 0; + $sz += 0.1; + } +} + +while () + { + # Escape our escapees. + my $boundary; + if (@ARGV) { + # Checking this is necessary to avoid a spurious .* between all + # characters if no arguments are passed. + $boundary = gboundary $_; + s/$escapees/$boundary/g; + } + + # Quote stuff special in Tcl ARE. This step also effectively nulls any + # concern about escaping. As long as all curly braces are escaped, the + # string will, when passing through the braces rule of Tcl, be identical to + # the input. + s/([[\]*+?{}()\\])/\\$1/g; + + # Newlines should be more tolerant. + s/\n$/(\\n|\\r\\n|\\r)*/; + + # Then split out the boundary, replacing it with .*. + s/$boundary/.*/g if defined $boundary; + + # Then, let's print it in a dg-output block. If you'd prefer /* keep in + # mind that if your string contains */ it could terminate the comment + # early. Maybe add an extra s!\*/!*()/!g or something. + print "// { dg-output {$_} }\n"; + } + +# File Local Vars: +# indent-tabs-mode: nil +# End: -- 2.39.0