INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Catalog of table indexes"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: dale
class INDEXES
inherit

DB_CATALOG [INDEX]
rename
parent as table
redefine
table
end
creation

make
creation {DB_TABLE}

from_table
feature -- Attribute

table: DB_TABLE
feature -- Commands

make (db: DATABASE)
-- creation procedure
require
valid_database: db /= void implies db.is_connected

print_it
-- Print all indexes.
feature {DB_TABLE}

from_table (t: DB_TABLE)
-- creation procedure; makes updatable catalog of table's indexes
require
valid_table: t /= void and then t.primary_database /= void and then t.primary_database.is_connected
end -- class INDEXES

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES