diff options
-rwxr-xr-x | Utilities/Scripts/pragma-once.pl | 73 | ||||
-rwxr-xr-x | Utilities/Scripts/pragma-once.sh | 21 |
2 files changed, 0 insertions, 94 deletions
diff --git a/Utilities/Scripts/pragma-once.pl b/Utilities/Scripts/pragma-once.pl deleted file mode 100755 index 41162ec..0000000 --- a/Utilities/Scripts/pragma-once.pl +++ /dev/null @@ -1,73 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use constant { - START => 0, - HAVE_IFNDEF => 1, - HAVE_DEFINE => 2, - HAVE_ENDIF => 3, - HAVE_PRAGMA_ONCE => 4, -}; -my $state = START; -my $blank_count = 0; -my $endif = ''; -while (<>) { - if ($state == START) { - if (/^#ifndef [a-zA-Z_][a-zA-Z0-9_]*$/) { - $state = HAVE_IFNDEF; - print "#pragma once\n"; - } else { - if (/^#pragma once$/) { - $state = HAVE_PRAGMA_ONCE; - } - print; - } - } elsif ($state == HAVE_IFNDEF) { - if (/^#define [a-zA-Z_][a-zA-Z0-9_]*$/) { - $blank_count = 0; - $state = HAVE_DEFINE; - } else { - print; - } - } elsif ($state == HAVE_DEFINE) { - if (/^#endif/) { - $endif = $_; - $state = HAVE_ENDIF; - } elsif (/^$/) { - $blank_count++; - } else { - for (my $i = 0; $i < $blank_count; $i++) { - print "\n"; - } - $blank_count = 0; - print; - } - } elsif ($state == HAVE_ENDIF) { - for (my $i = 0; $i < $blank_count; $i++) { - print "\n"; - } - $blank_count = 0; - print $endif; - $state = HAVE_DEFINE; - if (/^#endif/) { - $endif = $_; - $state = HAVE_ENDIF; - } elsif (/^$/) { - $blank_count++; - } else { - print; - } - } elsif ($state == HAVE_PRAGMA_ONCE) { - print; - } - if (eof) { - if ($state != HAVE_ENDIF && $state != HAVE_PRAGMA_ONCE) { - print STDERR "Malformed header file: $ARGV\n"; - exit 1; - } - $state = START; - $blank_count = 0; - } -} diff --git a/Utilities/Scripts/pragma-once.sh b/Utilities/Scripts/pragma-once.sh deleted file mode 100755 index bb6e1a0..0000000 --- a/Utilities/Scripts/pragma-once.sh +++ /dev/null @@ -1,21 +0,0 @@ -#!/bin/sh - -files=$(git ls-files \ - 'Source/*.h' \ - 'Source/*.h.in' \ - 'Source/*.hxx' \ - 'Utilities/cm3p/*.h' \ - 'Utilities/cmThirdParty.h.in' \ - 'Utilities/std/cm' \ - 'Utilities/std/cmext' \ - 'Utilities/std/cmSTL.hxx.in' \ - | grep -v '^Source/CPack/cmCPackConfigure\.h\.in$' \ - | grep -v '^Source/cmCPluginAPI\.h$' \ - | grep -v '^Source/cmVersionConfig\.h\.in$' \ - | grep -v '^Source/CursesDialog/form/' \ - | grep -v '^Source/LexerParser/' \ - | grep -v '^Source/kwsys/' \ - | grep -v '\.cxx$' \ -) - -perl -i Utilities/Scripts/pragma-once.pl $files |