// The contents of this file are subject to the Mozilla Public License
// Version 1.0 (the "License"); you may not use this file except in
// compliance with the License. You may obtain a copy of the License at
// http://www.mozilla.org/MPL/ 
// 
// Software distributed under the License is distributed on an "AS IS"
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
// License for the specific language governing rights and limitations
// under the License. 
// 
// The Original Code is the Berkeley Open Infrastructure for Network Computing. 
// 
// The Initial Developer of the Original Code is the SETI@home project.
// Portions created by the SETI@home project are Copyright (C) 2002
// University of California at Berkeley. All Rights Reserved. 
// 
// Contributor(s):
//

// A very crude interface for parsing XML files;
// assumes all elements are either single-line or
// have start and end tags on separate lines.
// This is meant to be used ONLY for parsing XML files produced
// by the BOINC scheduling server or client.
// Could replace this with a more general parser.

#ifdef _WIN32
#include "windows.h"
#endif

#include <string.h>
#include <stdlib.h>

#include "parse.h"
#include "error_numbers.h"

bool match_tag(char* buf, char* tag) {
    if(buf==NULL) {
        fprintf(stderr, "error: match_tag: unexpected NULL pointer buf\n");
        return false;
    }
    if(tag==NULL) {
        fprintf(stderr, "error: match_tag: unexpected NULL pointer tag\n");
        return false;
    }
    if (strstr(buf, tag)) return true;
    return false;
}

bool parse_int(char* buf, char* tag, int& x) {
    if(buf==NULL) {
        fprintf(stderr, "error: parse_int: unexpected NULL pointer buf\n");
        return false;
    }
    if(tag==NULL) {
        fprintf(stderr, "error: parse_int: unexpected NULL pointer tag\n");
        return false;
    }
    char* p = strstr(buf, tag);
    if (!p) return false;
    x = atoi(p+strlen(tag));
    return true;
}

bool parse_double(char* buf, char* tag, double& x) {
    if(buf==NULL) {
        fprintf(stderr, "error: parse_double: unexpected NULL pointer buf\n");
        return false;
    }
    if(tag==NULL) {
        fprintf(stderr, "error: parse_double: unexpected NULL pointer tag\n");
        return false;
    }
    char* p = strstr(buf, tag);
    if (!p) return false;
    x = atof(p+strlen(tag));
    return true;
}

bool parse_str(char* buf, char* tag, char* x) {
    if(buf==NULL) {
        fprintf(stderr, "error: parse_str: unexpected NULL pointer buf\n");
        return false;
    }
    if(tag==NULL) {
        fprintf(stderr, "error: parse_str: unexpected NULL pointer tag\n");
        return false;
    }
    if(x==NULL) {
        fprintf(stderr, "error: parse_str: unexpected NULL pointer x\n");
        return false;
    }
    char* p = strstr(buf, tag);
    if (!p) return false;
    p = strchr(p, '>');
    char* q = strchr(p+1, '<');
    *q = 0;
    strcpy(x, p+1);
    return true;
}

void parse_attr(char* buf, char* name, char* out) {
    char* p, *q;
    if(buf==NULL) {
        fprintf(stderr, "error: parse_attr: unexpected NULL pointer buf\n");
    }
    if(name==NULL) {
        fprintf(stderr, "error: parse_attr: unexpected NULL pointer name\n");
    }
    if(out==NULL) {
        fprintf(stderr, "error: parse_attr: unexpected NULL pointer out\n");
    }
    strcpy(out, "");
    p = strstr(buf, name);
    if (!p) return;
    p = strchr(p, '"');
    if (!p) return;
    q = strchr(p+1, '"');
    if (!q) return;
    *q = 0;
    strcpy(out, p+1);
}

void copy_stream(FILE* in, FILE* out) {
    char buf[1024];
    int n, m;
    if(in==NULL) {
        fprintf(stderr, "error: copy_stream: unexpected NULL pointer in\n");
    }
    if(out==NULL) {
        fprintf(stderr, "error: copy_stream: unexpected NULL pointer out\n");
    }
    while (1) {
        n = fread(buf, 1, 1024, in);
        m = fwrite(buf, 1, n, out);
        if (n < 1024) break;
    }
}

void strcatdup(char*& p, char* buf) {
    if(buf==NULL) {
        fprintf(stderr, "error: strcatdup: unexpected NULL pointer buf\n");
    }
    p = (char*)realloc(p, strlen(p) + strlen(buf)+1);
    if (!p) {
        fprintf(stderr, "strcatdup: realloc failed\n");
        exit(1);
    }
    strcat(p, buf);
}

int dup_element_contents(FILE* in, char* end_tag, char** pp) {
    char buf[256];
    if(in==NULL) {
        fprintf(stderr, "error: dup_element_contents: unexpected NULL pointer in\n");
        return ERR_NULL;
    }
    if(end_tag==NULL) {
        fprintf(stderr, "error: dup_element_contents: unexpected NULL pointer end_tag\n");
        return ERR_NULL;
    }
    if(pp==NULL) {
        fprintf(stderr, "error: dup_element_contents: unexpected NULL pointer pp\n");
        return ERR_NULL;
    }
    char* p = strdup("");
    while (fgets(buf, 256, in)) {
        if (strstr(buf, end_tag)) {
            *pp = p;
            return 0;
        }
        strcatdup(p, buf);
    }
    fprintf(stderr, "dup_element_contents(): no end tag\n");
    return 1;
}

int read_file_malloc(char* pathname, char*& str) {
    char buf[256];
    FILE* f;

    f = fopen(pathname, "r");
    if (!f) return -1;
    str = strdup("");
    while (fgets(buf, 256, f)) {
        strcatdup(str, buf);
    }
    fclose(f);
    return 0;
}