getSchema( ) example

The following class subclasses the Database class to provide support for RapidFile tables. The code shown here implements the getSchema( ) method:

class RapidFileDatabase of Database

this.path = "" 

function getSchema( cArg ) 

local cItem 

cItem = upper( cArg ) 

do case 

case cItem == "DATABASES" 

return super::getSchema( "DATABASES" ) 

case cItem == "TABLES" 

local aRet, nFiles 

aRet = new Array( ) 

nFiles = aRet.dir( this.path + "*.RPD" ) // Get all RapidFile files 

if nFiles > 0 

aRet.resize( nFiles, 1, 1 ) // Filenames only in 2-D array 

aRet.resize( nFiles, 0 ) // Convert to 1-D array 

endif 

return aRet 

case cItem == "PROCEDURES" or cItem == "VIEWS" 

return new Array( ) 

otherwise 

return super::getSchema( cItem ) 

endcase 

endclass