#ifndef _XGBOOST_CONFIG_H_
#define _XGBOOST_CONFIG_H_
/*!
 * \file xgboost_config.h
 * \brief helper class to load in configures from file
 * \author Tianqi Chen: tianqi.tchen@gmail.com
 */
#define _CRT_SECURE_NO_WARNINGS
#include <cstdio>
#include <cstring>
#include <string>
#include "xgboost_utils.h"

namespace xgboost{
    namespace utils{
        /*! 
         * \brief an iterator that iterates over a configure file and gets the configures
         */
        class ConfigIterator{
        public:
            /*! 
             * \brief constructor 
             * \param fname name of configure file
             */
            ConfigIterator( const char *fname ){
                fi = FopenCheck( fname, "r");
                ch_buf = fgetc( fi );
            }
            /*! \brief destructor */
            ~ConfigIterator(){
                fclose( fi );
            }
            /*! 
             * \brief get current name, called after Next returns true
             * \return current parameter name 
             */
            inline const char *name( void )const{
                return s_name;
            }
            /*! 
             * \brief get current value, called after Next returns true
             * \return current parameter value 
             */
            inline const char *val( void ) const{
                return s_val;
            }
            /*! 
             * \brief move iterator to next position
             * \return true if there is value in next position
             */
            inline bool Next( void ){
                while( !feof( fi ) ){
                    GetNextToken( s_name );
                    if( s_name[0] == '=')  return false;               
                    if( GetNextToken( s_buf ) || s_buf[0] != '=' ) return false;
                    if( GetNextToken( s_val ) || s_val[0] == '=' ) return false;
                    return true;
                }
                return false;
            }
        private:
            FILE *fi;        
            char ch_buf;
            char s_name[256],s_val[256],s_buf[246];
            
            inline void SkipLine(){           
                do{
                    ch_buf = fgetc( fi );
                }while( ch_buf != EOF && ch_buf != '\n' && ch_buf != '\r' );
            }
            
            inline void ParseStr( char tok[] ){
                int i = 0; 
                while( (ch_buf = fgetc(fi)) != EOF ){
                    switch( ch_buf ){
                    case '\\': tok[i++] = fgetc( fi ); break;
                    case '\"': tok[i++] = '\0'; 
						return;                        
                    case '\r':
                    case '\n': Error("unterminated string"); break;
                    default: tok[i++] = ch_buf;
                    }
                }
                Error("unterminated string"); 
            }
            // return newline 
            inline bool GetNextToken( char tok[] ){
                int i = 0;
                bool new_line = false; 
                while( ch_buf != EOF ){
                    switch( ch_buf ){
                    case '#' : SkipLine(); new_line = true; break;
                    case '\"':
                        if( i == 0 ){
                            ParseStr( tok );ch_buf = fgetc(fi); return new_line;
                        }else{
                            Error("token followed directly by string"); 
                        }
                    case '=':
                        if( i == 0 ) {
                            ch_buf = fgetc( fi );     
                            tok[0] = '='; 
                            tok[1] = '\0'; 
                        }else{
                            tok[i] = '\0'; 
                        }
                        return new_line;
                case '\r':
                    case '\n':
					if( i == 0 ) new_line = true;
                    case '\t':
                    case ' ' :
                        ch_buf = fgetc( fi );
                        if( i > 0 ){
                            tok[i] = '\0'; 
                            return new_line;
                        }               
                        break;
                    default: 
                        tok[i++] = ch_buf;
                        ch_buf = fgetc( fi );
                        break;                    
                    }
                }
                return true;
            }
        };
    };
    
    namespace utils{
        /*! 
         * \brief a class that save parameter configurations 
         *        temporally and allows to get them out later 
         *        there are two kinds of priority in ConfigSaver
         */
        class ConfigSaver{
        public:
            /*! \brief constructor */
            ConfigSaver( void ){ idx = 0; }
            /*! \brief clear all saves */
            inline void Clear( void ){
                idx = 0;
                names.clear(); values.clear();
                names_high.clear(); values_high.clear();
            }
            /*! 
             * \brief push back a parameter setting 
             * \param name name of parameter
             * \param val  value of parameter
             * \param priority whether the setting has higher priority: high priority occurs 
             *        latter when read from ConfigSaver, and can overwrite existing settings
             */
            inline void PushBack( const char *name, const char *val, int priority = 0 ){
                if( priority == 0 ){
                    names.push_back( std::string( name ) );
                    values.push_back( std::string( val ) );
                }else{
                    names_high.push_back( std::string( name ) );
                    values_high.push_back( std::string( val ) );
                }
            }
            /*! \brief set pointer to beginning of the ConfigSaver */
            inline void BeforeFirst( void ){
                idx = 0;
            }
            /*! 
             * \brief move iterator to next position
             * \return true if there is value in next position
             */
            inline bool Next( void ){
                if( idx >= names.size() + names_high.size() ){
                    return false;
                }
                idx ++;
                return true;
            }
            /*! 
             * \brief get current name, called after Next returns true
             * \return current parameter name 
             */            
            inline const char *name( void ) const{
                Assert( idx > 0, "can't call name before first");
                size_t i = idx - 1;
                if( i >= names.size() ){
                    return names_high[ i - names.size() ].c_str();
                }else{
                    return names[ i ].c_str();
                }
            }
            /*! 
             * \brief get current value, called after Next returns true
             * \return current parameter value 
             */
            inline const char *val( void ) const{
                Assert( idx > 0, "can't call name before first");
                size_t i = idx - 1;
                if( i >= values.size() ){
                    return values_high[ i - values.size() ].c_str();
                }else{
                    return values[ i ].c_str();
                }
            }
        private:
            std::vector<std::string> names;
            std::vector<std::string> values;
            std::vector<std::string> names_high;
            std::vector<std::string> values_high;        
            size_t idx;
        };
    };
};
#endif