#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
int main(void) {
    FILE *fin = fopen("convertor.in", "r");
    FILE *fout = fopen("convertor.out", "w");
    //Buffer
    int capLinie = 1024;
    char *linie = (char*)calloc(capLinie, sizeof(char));
    //Header
    char **header;
    int contHeader, capHeader = 128, semHead = 0;
    header = (char**)malloc(capHeader * sizeof(char*));
    //Elemente
    char **elements;
    int capElem = 128, contElem;
    elements = (char**)malloc(capHeader * sizeof(char*));
    //Auxiliare
    char aux;
    char *cuv;
    char *sep = ":";
    int i, lungime;
    int counting = 0;
    //Citire;
    aux = fgetc(fin);
    while(fread(&aux, sizeof(char), 1, fin)){
//    	printf("%c = %d\n", aux, aux);
    	//Incep sa retin o linie de JSON, care incepe cu '{' si se termina cu '}';
        if(aux == '{'){
            lungime = 0;
            counting = 1;
        }
        //Se adauga doar daca este informatie dintr-o linie JSON, si caracterul nu este newline;
        if(aux != '\n' && counting == 1 ){
        	if(lungime == capLinie){
        		capLinie <<= 1;
        		linie = (char*)realloc(linie, capLinie * sizeof(char));
        	}
            if(isspace(aux) || aux < 32){
            	//Eleminam orice spatiu dintre ':' si valoarea cheii;
                if(lungime > 0 && linie[lungime - 1] != ':' && linie[lungime - 1] != ' '){ //&& linie[lungime - 1] != ',' && linie[lungime - 1] != '"' ){
                    linie[lungime++] = aux;
                }

            }
            else{
            	if(linie[lungime - 1] == ' ' && aux == ',')
            		lungime--;
            	//Formatam linia dupa modelul {:key:value:key:value:};
            	switch(aux){
            	case ',':
            		// ',' -> ':', daca nu avem deja;
					if(linie [ lungime - 1] != ':')
							linie[lungime++] = ':';
            		break;
            	case '"':
            		//'"' -> ':', daca nu avem deja;
            		if(linie[lungime - 1] != ':')
            			linie[lungime++] = ':';
            		break;
            	case '}':
            		if(linie[lungime - 1] != ':')
            			linie[lungime++] = ':';
            	default:
            		if(aux != ':')
            			linie[lungime++] = aux;
            	}
            }
        }
        //Terminam de inregistrat linia, o prelucram;
        if(aux == '}' && counting == 1){
        	printf("%s\n", linie);
            int cont = 0;
            contElem = 0;
            contHeader = 0;
            //Prelucram dupa separatorul ':'
            cuv = strtok(linie, sep);
            //Valorile impare -> key
            //Valorile pare -> value
            while(cuv != NULL){
            	if(semHead == 0){
            		if(cont % 2 == 1){
            			if(contHeader == capHeader){
            				capHeader <<= 1;// = capHeader * 2;
            				header =(char**)realloc(header, capHeader * sizeof(char*));
            			}
            			header[contHeader] = (char*)malloc(strlen(cuv) + 1);
            			strcpy(header[contHeader], cuv);
            			contHeader++;
            		}
            	}
            	if(cont % 2 == 0){
            		if(contElem == capElem){
            			capElem <<= 1;// capElem * 2;
            			elements = (char**)realloc(elements, capElem * sizeof(char*));
            		}
            		elements[contElem] = (char*)malloc(strlen(cuv) + 1);
            		strcpy(elements[contElem], cuv);
            		contElem++;
            	}
                cont++;
                cuv = strtok(0, sep);
            }
            //Afisare header;
            if(semHead == 0){
                for(i = 0; i < contHeader - 1; i++){
                    fprintf(fout, "%s,", header[i]);
//                    free(header[i]);
                }
//                free(header);
                semHead = 1;
                fprintf(fout, "\n");
            }
            //Afisare valori;
            for(i = 1; i < contElem; i++)
                fprintf(fout, "%s,", elements[i]);
            fprintf(fout, "\n");
            //Am prelucrat linia, cautam alta linie JSON;
            lungime = 0;
            counting = 0;
            memset(linie, 0, capLinie);
        }
    }
    fclose(fin);
    fclose(fout);
    return 0;
}