From owner-svn-ports-all@freebsd.org Thu Jun 2 14:13:59 2016 Return-Path: Delivered-To: svn-ports-all@mailman.ysv.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) by mailman.ysv.freebsd.org (Postfix) with ESMTP id 3446BB652CF; Thu, 2 Jun 2016 14:13:59 +0000 (UTC) (envelope-from mat@FreeBSD.org) Received: from repo.freebsd.org (repo.freebsd.org [IPv6:2610:1c1:1:6068::e6a:0]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (Client did not present a certificate) by mx1.freebsd.org (Postfix) with ESMTPS id 01D421DAB; Thu, 2 Jun 2016 14:13:58 +0000 (UTC) (envelope-from mat@FreeBSD.org) Received: from repo.freebsd.org ([127.0.1.37]) by repo.freebsd.org (8.15.2/8.15.2) with ESMTP id u52EDwXX012360; Thu, 2 Jun 2016 14:13:58 GMT (envelope-from mat@FreeBSD.org) Received: (from mat@localhost) by repo.freebsd.org (8.15.2/8.15.2/Submit) id u52EDwuw012359; Thu, 2 Jun 2016 14:13:58 GMT (envelope-from mat@FreeBSD.org) Message-Id: <201606021413.u52EDwuw012359@repo.freebsd.org> X-Authentication-Warning: repo.freebsd.org: mat set sender to mat@FreeBSD.org using -f From: Mathieu Arnold Date: Thu, 2 Jun 2016 14:13:58 +0000 (UTC) To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r416279 - head/Tools/scripts X-SVN-Group: ports-head MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-ports-all@freebsd.org X-Mailman-Version: 2.1.22 Precedence: list List-Id: SVN commit messages for the ports tree List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 02 Jun 2016 14:13:59 -0000 Author: mat Date: Thu Jun 2 14:13:57 2016 New Revision: 416279 URL: https://svnweb.freebsd.org/changeset/ports/416279 Log: Add a script to indent make(1)'s .if/.for blocks. Sponsored by: Absolight Added: head/Tools/scripts/indent_make_if.pl (contents, props changed) Added: head/Tools/scripts/indent_make_if.pl ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/Tools/scripts/indent_make_if.pl Thu Jun 2 14:13:57 2016 (r416279) @@ -0,0 +1,42 @@ +#!/usr/bin/env perl +# $FreeBSD$ +# perltidy -bext=/ -i=8 -et=8 -l=132 -pt=2 -ce -cti=1 + +use strict; +use utf8; +use warnings; + +my $extension = '.orig'; +my $oldargv = q{}; +my $indent; +my $argvout; +LINE: while (<>) { + + # For each file, save a .orig backup. + if ($ARGV ne $oldargv) { + my $backup; + if ($extension !~ /[*]/) { + $backup = $ARGV . $extension; + } else { + ($backup = $extension) =~ s/[*]/$ARGV/g; + } + rename $ARGV, $backup; + open $argvout, '>', $ARGV; + $oldargv = $ARGV; + $indent = 0; + } + + if (/^[.]\s*(?:if|for)/o) { # if/for -> indent and increase indent + s/^[.]\s*/"." . " " x $indent/oe; + $indent++; + } elsif (/^[.]\s*end(?:if|for)/o) { # endif/endfor -> decrease indent and indent + $indent--; + s/^[.]\s*/"." . " " x $indent/oe; + } elsif (/^[.]\s*(?:else|elif)/o) { # else/elif -> indent one level down + s/^[.]\s*/"." . " " x ($indent - 1)/oe; + } +} continue { + + # Print the line. + print {$argvout} $_; +}