@ -12,7 +12,6 @@
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
# include "postgres.h"
# include "access/heapam.h"
@ -29,8 +28,16 @@
# include "utils/builtins.h"
# include "utils/syscache.h"
static void does_not_exist_skipping ( ObjectType objtype ,
List * objname , List * objargs ) ;
static bool owningrel_does_not_exist_skipping ( List * objname ,
const char * * msg , char * * name ) ;
static bool schema_does_not_exist_skipping ( List * objname ,
const char * * msg , char * * name ) ;
static bool type_in_list_does_not_exist_skipping ( List * typenames ,
const char * * msg , char * * name ) ;
/*
* Drop one or more objects .
@ -73,9 +80,14 @@ RemoveObjects(DropStmt *stmt)
AccessExclusiveLock ,
stmt - > missing_ok ) ;
/* Issue NOTICE if supplied object was not found. */
/*
* Issue NOTICE if supplied object was not found . Note this is only
* relevant in the missing_ok case , because otherwise
* get_object_address would have thrown an error .
*/
if ( ! OidIsValid ( address . objectId ) )
{
Assert ( stmt - > missing_ok ) ;
does_not_exist_skipping ( stmt - > removeType , objname , objargs ) ;
continue ;
}
@ -125,9 +137,121 @@ RemoveObjects(DropStmt *stmt)
}
/*
* owningrel_does_not_exist_skipping
* Subroutine for RemoveObjects
*
* After determining that a specification for a rule or trigger returns that
* the specified object does not exist , test whether its owning relation , and
* its schema , exist or not ; if they do , return false - - - the trigger or rule
* itself is missing instead . If the owning relation or its schema do not
* exist , fill the error message format string and name , and return true .
*/
static bool
owningrel_does_not_exist_skipping ( List * objname , const char * * msg , char * * name )
{
List * parent_objname ;
RangeVar * parent_rel ;
parent_objname = list_truncate ( list_copy ( objname ) ,
list_length ( objname ) - 1 ) ;
if ( schema_does_not_exist_skipping ( parent_objname , msg , name ) )
return true ;
parent_rel = makeRangeVarFromNameList ( parent_objname ) ;
if ( ! OidIsValid ( RangeVarGetRelid ( parent_rel , NoLock , true ) ) )
{
* msg = gettext_noop ( " relation \" %s \" does not exist, skipping " ) ;
* name = NameListToString ( parent_objname ) ;
return true ;
}
return false ;
}
/*
* schema_does_not_exist_skipping
* Subroutine for RemoveObjects
*
* After determining that a specification for a schema - qualifiable object
* refers to an object that does not exist , test whether the specified schema
* exists or not . If no schema was specified , or if the schema does exist ,
* return false - - the object itself is missing instead . If the specified
* schema does not exist , fill the error message format string and the
* specified schema name , and return true .
*/
static bool
schema_does_not_exist_skipping ( List * objname , const char * * msg , char * * name )
{
RangeVar * rel ;
rel = makeRangeVarFromNameList ( objname ) ;
if ( rel - > schemaname ! = NULL & &
! OidIsValid ( LookupNamespaceNoError ( rel - > schemaname ) ) )
{
* msg = gettext_noop ( " schema \" %s \" does not exist, skipping " ) ;
* name = rel - > schemaname ;
return true ;
}
return false ;
}
/*
* type_in_list_does_not_exist_skipping
* Subroutine for RemoveObjects
*
* After determining that a specification for a function , cast , aggregate or
* operator returns that the specified object does not exist , test whether the
* involved datatypes , and their schemas , exist or not ; if they do , return
* false - - - the original object itself is missing instead . If the datatypes
* or schemas do not exist , fill the error message format string and the
* missing name , and return true .
*
* First parameter is a list of TypeNames .
*/
static bool
type_in_list_does_not_exist_skipping ( List * typenames , const char * * msg ,
char * * name )
{
ListCell * l ;
foreach ( l , typenames )
{
TypeName * typeName = ( TypeName * ) lfirst ( l ) ;
if ( typeName ! = NULL )
{
Assert ( IsA ( typeName , TypeName ) ) ;
if ( ! OidIsValid ( LookupTypeNameOid ( NULL , typeName , true ) ) )
{
/* type doesn't exist, try to find why */
if ( schema_does_not_exist_skipping ( typeName - > names , msg , name ) )
return true ;
* msg = gettext_noop ( " type \" %s \" does not exist, skipping " ) ;
* name = TypeNameToString ( typeName ) ;
return true ;
}
}
}
return false ;
}
/*
* does_not_exist_skipping
* Subroutine for RemoveObjects
*
* Generate a NOTICE stating that the named object was not found , and is
* being skipped . This is only relevant when " IF EXISTS " is used ; otherwise ,
* get_object_address ( ) will throw an ERROR .
* get_object_address ( ) in RemoveObjects would have thrown an ERROR .
*/
static void
does_not_exist_skipping ( ObjectType objtype , List * objname , List * objargs )
@ -140,81 +264,125 @@ does_not_exist_skipping(ObjectType objtype, List *objname, List *objargs)
{
case OBJECT_TYPE :
case OBJECT_DOMAIN :
msg = gettext_noop ( " type \" %s \" does not exist, skipping " ) ;
name = TypeNameToString ( makeTypeNameFromNameList ( objname ) ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " type \" %s \" does not exist, skipping " ) ;
name = TypeNameToString ( makeTypeNameFromNameList ( objname ) ) ;
}
break ;
case OBJECT_COLLATION :
msg = gettext_noop ( " collation \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " collation \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_CONVERSION :
msg = gettext_noop ( " conversion \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " conversion \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_SCHEMA :
msg = gettext_noop ( " schema \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
break ;
case OBJECT_TSPARSER :
msg = gettext_noop ( " text search parser \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " text search parser \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_TSDICTIONARY :
msg = gettext_noop ( " text search dictionary \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " text search dictionary \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_TSTEMPLATE :
msg = gettext_noop ( " text search template \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " text search template \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_TSCONFIGURATION :
msg = gettext_noop ( " text search configuration \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " text search configuration \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_EXTENSION :
msg = gettext_noop ( " extension \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
break ;
case OBJECT_FUNCTION :
msg = gettext_noop ( " function %s(%s) does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
args = TypeNameListToString ( objargs ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) & &
! type_in_list_does_not_exist_skipping ( objargs , & msg , & name ) )
{
msg = gettext_noop ( " function %s(%s) does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
args = TypeNameListToString ( objargs ) ;
}
break ;
case OBJECT_AGGREGATE :
msg = gettext_noop ( " aggregate %s(%s) does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
args = TypeNameListToString ( objargs ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) & &
! type_in_list_does_not_exist_skipping ( objargs , & msg , & name ) )
{
msg = gettext_noop ( " aggregate %s(%s) does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
args = TypeNameListToString ( objargs ) ;
}
break ;
case OBJECT_OPERATOR :
msg = gettext_noop ( " operator %s does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) & &
! type_in_list_does_not_exist_skipping ( objargs , & msg , & name ) )
{
msg = gettext_noop ( " operator %s does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
}
break ;
case OBJECT_LANGUAGE :
msg = gettext_noop ( " language \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
break ;
case OBJECT_CAST :
msg = gettext_noop ( " cast from type %s to type %s does not exist, skipping " ) ;
name = format_type_be ( typenameTypeId ( NULL ,
( TypeName * ) linitial ( objname ) ) ) ;
args = format_type_be ( typenameTypeId ( NULL ,
( TypeName * ) linitial ( objargs ) ) ) ;
{
if ( ! type_in_list_does_not_exist_skipping ( objname , & msg , & name ) & &
! type_in_list_does_not_exist_skipping ( objargs , & msg , & name ) )
{
/* XXX quote or no quote? */
msg = gettext_noop ( " cast from type %s to type %s does not exist, skipping " ) ;
name = TypeNameToString ( ( TypeName * ) linitial ( objname ) ) ;
args = TypeNameToString ( ( TypeName * ) linitial ( objargs ) ) ;
}
}
break ;
case OBJECT_TRIGGER :
msg = gettext_noop ( " trigger \" %s \" for table \" %s \" does not exist, skipping " ) ;
name = strVal ( llast ( objname ) ) ;
args = NameListToString ( list_truncate ( list_copy ( objname ) ,
if ( ! owningrel_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " trigger \" %s \" for relation \" %s \" does not exist, skipping " ) ;
name = strVal ( llast ( objname ) ) ;
args = NameListToString ( list_truncate ( list_copy ( objname ) ,
list_length ( objname ) - 1 ) ) ;
}
break ;
case OBJECT_EVENT_TRIGGER :
msg = gettext_noop ( " event trigger \" %s \" does not exist, skipping " ) ;
name = NameListToString ( objname ) ;
break ;
case OBJECT_RULE :
msg = gettext_noop ( " rule \" %s \" for relation \" %s \" does not exist, skipping " ) ;
name = strVal ( llast ( objname ) ) ;
args = NameListToString ( list_truncate ( list_copy ( objname ) ,
if ( ! owningrel_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " rule \" %s \" for relation \" %s \" does not exist, skipping " ) ;
name = strVal ( llast ( objname ) ) ;
args = NameListToString ( list_truncate ( list_copy ( objname ) ,
list_length ( objname ) - 1 ) ) ;
}
break ;
case OBJECT_FDW :
msg = gettext_noop ( " foreign-data wrapper \" %s \" does not exist, skipping " ) ;
@ -225,14 +393,20 @@ does_not_exist_skipping(ObjectType objtype, List *objname, List *objargs)
name = NameListToString ( objname ) ;
break ;
case OBJECT_OPCLASS :
msg = gettext_noop ( " operator class \" %s \" does not exist for access method \" %s \" , skipping " ) ;
name = NameListToString ( objname ) ;
args = strVal ( linitial ( objargs ) ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " operator class \" %s \" does not exist for access method \" %s \" , skipping " ) ;
name = NameListToString ( objname ) ;
args = strVal ( linitial ( objargs ) ) ;
}
break ;
case OBJECT_OPFAMILY :
msg = gettext_noop ( " operator family \" %s \" does not exist for access method \" %s \" , skipping " ) ;
name = NameListToString ( objname ) ;
args = strVal ( linitial ( objargs ) ) ;
if ( ! schema_does_not_exist_skipping ( objname , & msg , & name ) )
{
msg = gettext_noop ( " operator family \" %s \" does not exist for access method \" %s \" , skipping " ) ;
name = NameListToString ( objname ) ;
args = strVal ( linitial ( objargs ) ) ;
}
break ;
default :
elog ( ERROR , " unexpected object type (%d) " , ( int ) objtype ) ;
Alvaro Herrera
12 years ago