I send you a attach of my modified refint.c that

works with a new policy  in cascade mode .

Please Read README.MAX .
I do not know if you are the author of refint.c ,
but if not please tell me who is .


Thank you ( excuse me for my bad english) .
Massimo Lambertini massimo.lambertini@everex.it

contrib/spi/preprocessor/example.sql

@@ -0,0 +1,37 @@
+--  Note the syntax is strict because i have no time to write better perl filter.
+--
+--  [blank] is 1 blank 
+--  at the end of an interesting line must be a [,]  or [--]
+--  [ending] must be a , or --  
+--  
+--  foreign[blank]key[blank]([blank]keyname,..,keyname[blank])[blank]references[blank]table[blank][ending] 
+--
+--  step1.e < example.sql | step2.pl > foreign_key_triggers.sql
+--   
+--  step1.e is a simple program that UPPERCASE ALL . I know that is simple implementing in Perl
+--  bu i haven't time
+
+
+CREATE TABLE 
+gruppo
+(
+codice_gruppo  		int4 			NOT NULL,
+descrizione         	varchar(32)    		NOT NULL
+primary key ( codice_gruppo ) 
+
+) ;
+
+--
+-- fa_parte : Appartenenza di una Azienda Conatto o Cliente ad un certo GRUPPO
+--
+
+CREATE TABLE 
+fa_parte 
+(
+codice_gruppo   		int4	NOT NULL,
+codice_contatto         	int4   	NOT NULL,
+
+primary key ( codice_gruppo,codice_contatto ) ,
+foreign key ( codice_gruppo ) references gruppo --
+);
+