#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 = 0, semGH = 0;
    int counting = 0;
    //Citire;
    while(fread(&aux, sizeof(char), 1, fin)){   // !feof ( fin ) ) {
//      fread(&aux, sizeof(char), 1, fin); = fgetc(fin); sau //fgetcscanf(fin, "%c", &aux) != EOF;
        //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 ){
            //Formatam astfel incat toate cheile sa fie intre " "(valorile numerice nu sunt);
            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] = aux;
                    lungime++;
                }
            }
            else{
                //Daca dupa ':' nu avem ", adaugam;
                if(lungime > 0 && linie[lungime - 1] == ':' && aux != '"' ){
                    linie[lungime] = '"';
                    lungime++;
                    semGH = 1;
                }
                //Daca inainte de ',' nu avem ", adaugam;
                if(lungime > 0 && semGH == 1 && aux == ',' && linie[lungime - 1] != '"'){
                    linie[lungime] = '"';
                    lungime++;
                    semGH = 0;
                }
                //Daca inainte de '}' nu avem ", adaugam;
                if(lungime > 0 && semGH == 1 && aux == '}' && linie[lungime - 1] != '"' ){
                    linie[lungime] = '"';
                    lungime++;
                    semGH = 0;
                }
                linie[lungime] = aux;
                lungime++;
            }
        }
        //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);
            /* Afisam o singura data elementele din header;
             * Dupa formatarea precedenta a textului, elementele header se afla pe pozitiile 1, 5, 9, ...
             * Valorile se afla pe pozitiile 3, 7, 11, ...
             */
            while(cuv != NULL){
                if(semHead == 0){
                    if((cont - 1) % 4 == 0){
                        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 + 1) % 4 == 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; i++){
                    fprintf(fout, "%s,", header[i]);
//                    free(header[i]);
                }
//                free(header);
                semHead = 1;
                fprintf(fout, "\n");
            }
            //Afisare valori;
            for(i = 0; 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;
}