1#!/bin/bash 2# 3# Copyright (c) 2006 The Regents of the University of California. 4# 5# Produced at Lawrence Livermore National Laboratory. 6# Written by Ira Weiny <weiny2@llnl.gov>. 7# 8# This software is available to you under a choice of one of two 9# licenses. You may choose to be licensed under the terms of the GNU 10# General Public License (GPL) Version 2, available from the file 11# COPYING in the main directory of this source tree, or the 12# OpenIB.org BSD license below: 13# 14# Redistribution and use in source and binary forms, with or 15# without modification, are permitted provided that the following 16# conditions are met: 17# 18# - Redistributions of source code must retain the above 19# copyright notice, this list of conditions and the following 20# disclaimer. 21# 22# - Redistributions in binary form must reproduce the above 23# copyright notice, this list of conditions and the following 24# disclaimer in the documentation and/or other materials 25# provided with the distribution. 26# 27# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 28# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 29# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 30# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS 31# BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN 32# ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN 33# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 34# SOFTWARE. 35# 36 37tidy_cmd="perltidy -pt=2 -sbt=2 -bt=2 -nsfs -b -t -nola -ce -sbl -nbbc" 38 39argv0=`basename $0` 40scripts_dir=`dirname $0`/scripts 41 42if [ "$1" == "-h" ]; then 43 echo "$argv0 [-h]" 44 echo " Run perltidy on all perl scripts and modules in the scripts directory" 45 exit 1 46fi 47 48cd $scripts_dir 49 50for file in *.pl ; do 51 echo "tidy : $scripts_dir/$file" 52 $tidy_cmd $file 53done 54 55for file in *.pm ; do 56 echo "tidy : $scripts_dir/$file" 57 $tidy_cmd $file 58done 59 60exit 0 61