/*# @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) ); }