From 580cd62f0a4fac5dba37a8a152afaecd99e8c767 Mon Sep 17 00:00:00 2001
From: Cash Costello <cash.costello@gmail.com>
Date: Thu, 15 Dec 2011 20:07:48 -0500
Subject: removed old libraries - depends on openid_api now

---
 .../openid-php-openid-782224d/admin/brace_style.pl | 81 ----------------------
 1 file changed, 81 deletions(-)
 delete mode 100644 models/openid-php-openid-782224d/admin/brace_style.pl

(limited to 'models/openid-php-openid-782224d/admin/brace_style.pl')

diff --git a/models/openid-php-openid-782224d/admin/brace_style.pl b/models/openid-php-openid-782224d/admin/brace_style.pl
deleted file mode 100644
index ed8332f31..000000000
--- a/models/openid-php-openid-782224d/admin/brace_style.pl
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/env perl -w
-
-use strict;
-
-my $filename = $ARGV[0];
-
-if (!$filename) {
-    print "Usage: modified_otb.pl <filename>\n";
-    exit(1);
-}
-
-my @results = ();
-my $line_num = 0;
-my ($NONE, $BRACE, $PAREN) = (0, 1, 2);
-my $looking_for = $NONE;
-my $last_func_name = "";
-
-open(HANDLE, "<", $filename) or die "Cannot open $filename\n";
-
-# Read the file and track the lines with length > $max_length.
-while (<HANDLE>) {
-    $line_num++;
-    # Subtract one because the newline doesn't count toward the
-    # length.
-    chomp;
-
-    if (!$looking_for &&
-        ($_ =~ /^\s*function/) &&
-        ($_ =~ /\{/)) {
-        # Done (bad): we found a function whose opening line ends with
-        # a brace, which goes against the PEAR coding guidelines.
-
-        ($last_func_name) = $_ =~ /function\s*(.*)\(/;
-
-        push @results, "'$last_func_name' prototype ends with opening ".
-            "brace, line $line_num";
-    } elsif (!$looking_for &&
-               ($_ =~ /^\s*function/) &&
-               ($_ !~ /\)/)) {
-        ($last_func_name) = $_ =~ /function\s*(.*)\(/;
-        $looking_for = $PAREN;
-    } elsif (($looking_for == $PAREN) &&
-               ($_ =~ /\)/) &&
-               ($_ =~ /\{/)) {
-        # Done (bad): function prototype and brace are on the same
-        # line.
-        push @results, "'$last_func_name' prototype ends with with ".
-            "opening brace, line $line_num";
-        $looking_for = $NONE;
-    } elsif (($looking_for == $PAREN) &&
-               ($_ =~ /\)/) &&
-               ($_ !~ /\{/)) {
-        $looking_for = $BRACE;
-    } elsif (!$looking_for &&
-               ($_ =~ /^\s*function/) &&
-               ($_ =~ /\)/) &&
-               ($_ !~ /\{/)) {
-        ($last_func_name) = $_ =~ /function\s*(.*)\(/;
-        $looking_for = $BRACE;
-    } elsif (($looking_for == $BRACE) &&
-               ($_ eq "{")) {
-        $looking_for = $NONE;
-        # Done (good): the brace was found on the line after the
-        # function prototype.
-    } else {
-        # We got here because we got a line that we're not interested
-        # in.
-        $looking_for = $NONE;
-    }
-}
-
-# If any long lines were found, notify and exit(1); otherwise,
-# exit(0).
-if (@results) {
-    foreach my $result (@results) {
-        print "$filename: $result\n";
-    }
-    exit(1);
-} else {
-    exit(0);
-}
-- 
cgit v1.2.3