#include <iostream>
#include <fstream>
#include <string>
#include <list>
using namespace std;

list<string> get_keys(string input_string){
  list<string> keys;
  	std::size_t found_final = 0;
  	std::size_t found_start = 0;
    std::size_t found_despartitor = 0;
    std::size_t  found_virgula = 0;
  	string doua_puncte = ":";
    string ghilimele = "\"";
    string virgula = ",";
    while ( found_despartitor < input_string.size() ){
      found_despartitor = input_string.find(doua_puncte); 
      string object = input_string.substr(0,found_despartitor);
      found_virgula = object.find(virgula);
      object = object.substr(found_virgula+1);
      input_string =  input_string.erase(0,found_despartitor+1);
      found_start = object.find(ghilimele);
      found_final = object.find(ghilimele,found_start+1);
      object = object.substr(found_start+1,found_final - found_start -1);
      keys.push_back(object);
    }  
  	return keys;
}


list<string> from_string_to_objects(string input_string){
	list<string> objects;
  std::size_t found_start = 0;
  std::size_t found_final = 0;
  string acolada_deschisa = "{";
  string acolada_inchisa = "}";
  	while(found_final < input_string.size() )
  	{
      //cout<<endl;
      //cout<<input_string<<endl;
      if( found_final != found_start){
        input_string = input_string.erase(0,found_final+1);
      }
      found_start = input_string.find(acolada_deschisa);
  		found_final = input_string.find(acolada_inchisa);
  		string object = input_string.substr(found_start+1,found_final-found_start-1);
      //cout<<object<<endl;
      if(found_final < input_string.size()){
    	 objects.push_back(object);
      }
    	//cout<<found_start<<" "<<found_final<<endl;
      //}
    		
  	}
    //cout<<"aici"<<endl;
  	return objects;
}
bool test_cifra(char c){
  switch(c){
    case '0':
      return true;
      break;
    case '1':
      return true;
      break;
    case '2':
      return true;
      break;
    case '3':
      return true;
      break;
    case '4':
      return true;
      break;
    case '5':
      return true;
      break;
    case '6':
      return true;
      break;
    case '7':
      return true;
      break;
    case '8':
      return true;
      break;
    case '9':
      return true;
    default: return false;
  }
}

list<string> get_values(string str, list<string> keys){
	list<string> values;
  std::size_t found_key1 = 0;
  cout<<str<<endl;
  int key1_length = 0;
  for (std::list<string>::iterator it=keys.begin(); it != keys.end(); ++it){
    string key = *it;
    cout<<key<<endl;
    std::size_t found_key2 = str.find(key);   
    string value = str.substr(found_key1 + key1_length,found_key2 - found_key1 - key1_length);
    std::size_t found1 = value.find("\"");   
    std::size_t found2 = value.find("\"",found1+1);   
    if( found2 < value.size() ){
      values.push_back(value);
    }
    found_key1 = found_key2;
    key1_length = key.size();
  }
  string value = str.substr(found_key1 + key1_length, str.size());
  values.push_back(value);
  
  for (std::list<string>::iterator it=values.begin(); it != values.end(); ++it){
    std::size_t found = (*it).find(":");
    (*it).erase(0,found+1);
  }
  
  for (std::list<string>::iterator it=values.begin(); it != values.end(); ++it){
    cout<<*it<<endl;
  }
  
  for (std::list<string>::iterator it=values.begin(); it != values.end(); ++it){
    std::size_t found_first = (*it).find("\"");
    std::size_t found_second = (*it).find("\"",found_first + 1);
    
    if ( found_second <= (*it).size() ){
      *it = (*it).substr(found_first+1,found_second-found_first-1);
    }
    else{
      string aux = *it;
      string cifra;
      for ( std::string::iterator it_string=aux.begin(); it_string!=aux.end(); ++it_string){
        if(test_cifra(*it_string) ){
          cifra += *it_string;
        }
      }
      *it = cifra;
      
    }
    
  }
  
  return values;
}

list<list<string> > get_list_of_values(list<string> objects,list<string> keys){
	list<list<string> > list_values;
	while (!objects.empty())
  	{
    	list<string> values = get_values(objects.front(),keys);
    	objects.pop_front();

    	list_values.push_back(values);
  	}
  return list_values;
}

void cvs_write(list<string> keys,list<list<string> > list_values){
  ofstream output_file("convertor.out");

  while (!keys.empty()){
    output_file<<keys.front()<<",";
    keys.pop_front();
  }
  output_file<<"\n";
  int n = list_values.size();
  int i = 1;
  while (!list_values.empty()){
    list<string> values = list_values.front();
    while (!values.empty()){
      output_file<<values.front()<<",";
      values.pop_front();
    }
    if(i<n){
      output_file<<"\n";
     
    }
    i++;
    list_values.pop_front();
  }
  output_file.close();
}

string json_read(){
  string line,input_string;
  ifstream input_file("convertor.in");
  while ( getline (input_file,line) ){
      input_string += line;
  }

  input_file.close();
  return input_string;
}

int main () {

	string input_string = json_read();
	list<string> objects = from_string_to_objects(input_string);
  cout<<"objects"<<endl;
  for (std::list<string>::iterator it=objects.begin(); it != objects.end(); ++it){
    cout<<*it<<endl;
  }
  list<string> keys = get_keys(objects.front());
  list<list<string> > list_values = get_list_of_values(objects,keys);
  for (std::list<string>::iterator it=keys.begin(); it != keys.end(); ++it){
    cout<<*it<<endl;
  }


  cvs_write(keys,list_values);
  
  return 0;
}