Remove contrib/spi/preprocessor, which has been uninteresting ever

since we supported standard FOREIGN KEY constraint syntax.  It was
harmless enough just sitting there, but the prospect of having to
document it is surely more work than it's worth.

1 files changed, 0 insertions, 123 deletions

diff --git a/contrib/spi/preprocessor/step2.pl b/contrib/spi/preprocessor/step2.pl
deleted file mode 100755
index 76ce7944cc2..00000000000
--- a/contrib/spi/preprocessor/step2.pl
+++ /dev/null
@@ -1,123 +0,0 @@
-#!/usr/bin/perl
-
-##
-##  MAIN
-##
-$table_name="";
-$old_name="";
-$references_table="";
-$references_column="";
-$is_create=0;
-
-
-
-while ( <> ) 
-{
-	chop;
-	$str=$_ ;
-
-	if ($is_create == 1) {
-		$table_name=$str;
-	  	$is_create=2;
-	}
-	if ( $str =~ /^CREATE TABLE/ ){
-		$is_create=1;
-	}
-	if ($is_create == 2) {
-	if ($str =~ /^FOREIGN KEY/){
-		($d1,$d2,$d3,$columns,$d4,$d5,$references_table,$d6) = split (/ /,$str,8);
-		#printf "Table $table_name $columns $references_table\n";
-
-		if ($table_name ne $old_name ){	
-			printf "--\n-- Trigger for $table_name\n--\n\n";
-		}
-
-		foreach $i ( split(/,/ , $columns ) ){
-			print "CREATE INDEX I_$table_name";
-			print "_$i ON $table_name ( $i ) ;\n";
-		}
-
-		printf "\nCREATE TRIGGER T_P_$table_name";
-		printf "_$references_table BEFORE INSERT OR UPDATE ON $table_name FOR EACH ROW\n" ;
-		printf "EXECUTE PROCEDURE\n";
-		printf "check_primary_key(";
-		$val=0;
-		foreach $i ( split(/,/ , $columns ) ){
-			print "'$i',";
-			$val=$val+1 ;
-		}
-		print "'$references_table',";
-		
-		$t=1;
-		foreach $i ( split(/,/,$columns ) ){
-			print "'$i'";
-			if ( $t < $val ) {
-				printf ",";
-			}	
-			$t=$t+1;
-		}
-		print " );\n\n";
-
-		printf "CREATE TRIGGER T_F_D_$references_table";
-		printf "_$table_name BEFORE DELETE ON $references_table FOR EACH ROW\n" ;
-		printf "EXECUTE PROCEDURE\n";
-		printf "check_foreign_key(1,'cascade',";
-		$val=0;
-		foreach $i ( split(/,/ , $columns ) ){
-			print "'$i',";
-			$val=$val+1 ;
-		}
-		print "'$table_name',";
-		
-		$t=1;
-		foreach $i ( split(/,/,$columns ) ){
-			print "'$i'";
-			if ( $t < $val ) {
-				printf ",";
-			}	
-			$t=$t+1;
-		}
-		print " );\n\n";
-
-		printf "CREATE TRIGGER T_F_U_$references_table";
-		printf "_$table_name AFTER UPDATE ON $references_table FOR EACH ROW\n" ;
-		printf "EXECUTE PROCEDURE\n";
-		printf "check_foreign_key(1,'cascade',";
-		$val=0;
-		foreach $i ( split(/,/ , $columns ) ){
-			print "'$i',";
-			$val=$val+1 ;
-		}
-		print "'$table_name',";
-		
-		$t=1;
-		foreach $i ( split(/,/,$columns ) ){
-			print "'$i'";
-			if ( $t < $val ) {
-				printf ",";
-			}	
-			$t=$t+1;
-		}
-		print " );\n\n";
-
-		if ($table_name ne $old_name ){	
-			printf "-- ********************************\n\n\n";
-		}
-		$old_name=$table_name ;
-
-
-
-
-	 }
-	 }
-	 if ($str =~  /^\)\;/ ) {
-	    $is_create = 0 ;
-	 }
-
-}
-
-
-
-
-
-