/*#
@method getDictionary ConfParser
@brief Retreives keys and values given under a certain category.
@optparam section If given, the section from which to extract the dictionary.
@return A dictionary containing a pair of key-values in the given section.
This method retrieves all the pairs of key and values in the main section, or if
a non-nil section parameter is provided, from the given section. If the
requested section cannot be found, or if it doesn't contain any entry, an empty
dictionary is returned. If a key has multiple values, its element is set to an
array containing all the values.
*/
FALCON_FUNC ConfParser_getDictionary( ::Falcon::VMachine *vm )
{
CoreObject *self = vm->self().asObject();
ConfigFile *cfile = (ConfigFile *) self->getUserData();
Item *i_section = vm->param( 0 );
if ( i_section != 0 && ! i_section->isString() )
{
throw new ParamError( ErrorParam( e_inv_params, __LINE__ ) );
}
String key;
LinearDict *ret = new LinearDict();
LinearDict *current = ret;
bool next;
if ( i_section != 0 ) {
next = cfile->getFirstKey( *i_section->asString(), "", key );
}
else {
next = cfile->getFirstKey( "", key );
}
while( next )
{
String value;
// seeking a value won't alter key iterators.
if( i_section != 0 )
cfile->getValue( *i_section->asString(), key, value );
else
cfile->getValue( key, value );
// we have at least one value. but do we have more?
String value1;
if ( cfile->getNextValue( value1 ) )
{
CoreArray *array = new CoreArray( 5 );
array->append( new CoreString( value ) );
array->append( new CoreString( value1 ) );
while( cfile->getNextValue( value1 ) )
array->append( new CoreString( value1 ) );
current->put( new CoreString( key ), array );
}
else {
current->put( new CoreString( key ), new CoreString( value ) );
}
next = cfile->getNextKey( key );
}
vm->retval( new CoreDict(ret) );
}
/*#
@method get ConfParser
@brief Retreives the value associated with a key.
@param key The key of which the value is to be read.
@optparam section If provided, the section where the key is found.
@return The value (or values) of associated to the key, or nil if not found.
The method retrieves the value associated with a given key. If section parameter
is not provided, or if it's nil, the key is searched in the main section, else
it is searched in the given section.
If the section does not exist, or if the key is not present in the given
section, the method returns nil. If the key exist but has no value associated
with it, an empty string is returned. If there is only one instance of the key,
a single string containing the value is returned. If multiple entries for the
given key are found, all the values are returned as strings in an array.
The caller should verify the if the returned value is a string or an array using
typeOf() function. Alternatively, it is possible to use @a ConfParser.getOne to be sure to
retrieve only strings.
Categorized keys can be retrieved with this method by providing their full name.
*/
FALCON_FUNC ConfParser_get( ::Falcon::VMachine *vm )
{
CoreObject *self = vm->self().asObject();
ConfigFile *cfile = (ConfigFile *) self->getUserData();
Item *i_key = vm->param(0);
Item *i_section = vm->param(1);
if ( i_key == 0 || ! i_key->isString() ||
( i_section != 0 && ! i_section->isString() && ! i_section->isNil() )
)
{
throw new ParamError( ErrorParam( e_inv_params, __LINE__ ) );
}
String value;
if ( i_section != 0 && ! i_section->isNil() )
{
if ( ! cfile->getValue( *i_section->asString(), *i_key->asString(), value ) )
{
vm->retnil();
return;
}
}
else {
if ( ! cfile->getValue( *i_key->asString(), value ) )
{
vm->retnil();
return;
}
}
// we have at least one value. but do we have more?
String value1;
if ( cfile->getNextValue( value1 ) )
{
CoreArray *array = new CoreArray( 5 );
array->append( new CoreString( value ) );
array->append( new CoreString( value1 ) );
while( cfile->getNextValue( value1 ) )
array->append( new CoreString( value1 ) );
vm->retval( array );
}
else {
vm->retval( value );
}
}
/*#
@method getCategory ConfParser
@brief Retreives keys and values given under a certain category.
@param category The category of which the values are required
@optparam section If provided, the section where the category is defined.
@return A dictionary containing a pair of key-values in the given category.
This method returns a dictionary of key-value pairs containing all the keys
and values in a certain category.
See the "Categorized keys" section in @a ConfParser.
*/
FALCON_FUNC ConfParser_getCategory( ::Falcon::VMachine *vm )
{
CoreObject *self = vm->self().asObject();
ConfigFile *cfile = (ConfigFile *) self->getUserData();
Item *i_keyMask = vm->param( 0 );
Item *i_section = vm->param( 1 );
if ( i_keyMask == 0 || ! i_keyMask->isString() ||
( i_section != 0 && ! i_section->isString() && ! i_section->isNil() )
)
{
throw new ParamError( ErrorParam( e_inv_params, __LINE__ ) );
}
if ( i_section != 0 && i_section->isNil() )
i_section = 0;
String key, keymask;
LinearDict *ret = new LinearDict();
LinearDict *current = ret;
bool next;
bool stripNames;
keymask = *i_keyMask->asString();
if ( keymask.length() > 0 && keymask.getCharAt(keymask.length() - 1) == '*' )
{
stripNames = true;
keymask.size( keymask.size() - keymask.manipulator()->charSize() );
}
else
stripNames = false;
if ( keymask.length() > 0 && keymask.getCharAt(keymask.length() - 1) == '.' )
keymask.size( keymask.size() - keymask.manipulator()->charSize() );
if ( i_section != 0 ) {
next = cfile->getFirstKey( *i_section->asString(), keymask, key );
}
else {
next = cfile->getFirstKey( keymask, key );
}
while( next )
{
String value;
// seeking a value won't alter key iterators.
if( i_section != 0 )
cfile->getValue( *i_section->asString(), key, value );
else
cfile->getValue( key, value );
// we have at least one value. but do we have more?
String value1;
if ( cfile->getNextValue( value1 ) )
{
CoreArray *array = new CoreArray( 5 );
array->append( new CoreString( value ) );
array->append( new CoreString( value1 ) );
while( cfile->getNextValue( value1 ) )
array->append( new CoreString( value1 ) );
// we have used KEY; now what we want to save is just the non-category
if ( stripNames )
current->put( new CoreString( key, keymask.length() + 1 ), array );
else
current->put( new CoreString( key), array );
}
else {
if ( stripNames )
current->put( new CoreString( key, keymask.length() + 1 ), new CoreString( value ) );
else
current->put( new CoreString( key) , new CoreString( value ) );
}
next = cfile->getNextKey( key );
}
vm->retval( new CoreDict(ret) );
}