summary.c

Go to the documentation of this file.

/******************************************************************************/
/* summary.c © Copyright 2004 by Raosoft Inc. All Rights Reserved.            */
/*                                                                            */
/* You may use and modify this file for your own use, but may not distribute  */
/* it or derivative works without the prior written consent of Raosoft, Inc.  */
/*                                                                            */
/* If you choose to share your modifications with Raosoft, Inc. the company   */
/* will attempt to incorporate them into future versions of this file.        */
/*                                                                            */
/* This software is provided "as is," and Raosoft makes no warranty, express  */
/* or implied, of fitness for a particular application. Every measure has been*/
/* taken to anticipate risks inherent to computer networks, but we cannot     */
/* guarantee safety or reliability of this program in every situation.        */
/*                                                                            */
/******************************************************************************/

/* build instructions:
  gcc -o summary summary.c cgi_console.c cgi_util.c cgi_data.c -lm

*/

#include "cgi.h"

#include "math.h"

typedef struct {int count; double sum, sum2; char* field; char* query;} counter;

void UpdateCounts(CGINameValue* record,counter* counts,int length)
{
 size_t j;
 for(j=0; j< length; j++)
    {
        if (counts[j].query == 0 || EvaluateLogic(counts[j].query,record,0))
        {
            counts[j].count ++;
            if (counts[j].field)
            {
                double d = strtod(GetFieldValue(record,counts[j].field),0);
                if (d < 10E16 && d > -10E16)
                {
                    counts[j].sum += d;
                    counts[j].sum2 += d * d;
                }
            }
        }
    }
}

counter* SetupList(CGINameValue*x,int field, int* length)
{
    int i = 0;
   counter* list;
    while (x[i].name) i++;
    if (!i) return 0;
    list = malloc(i * sizeof(counter));
    for (i=0; x[i].name; i++)
    {
        if (field)
        {
            char* c = strchr(x[i].value,',');
            if (c) *c++ = 0;
            list[i].query = c;
            list[i].field = x[i].value;
        }
        else
        {
            list[i].field = 0;
            list[i].query = x[i].value;
        }
        list[i].sum = list[i].sum2 = 0;
        list[i].count = 0;
    }
    if (length) *length = i;
    return list;
}

CGINameValue* GetTotal(CGINameValue* count,CGINameValue* sum,
    counter* countList,
    counter* sumList,
    int countLength,
    int sumLength)
{
    CGINameValue* result = NewNVP(countLength + (sumLength * 6));
    int i;
    int j=0;
    char temp[32];

    if (count && countList)
    for (i=0; count[i].name; i++)
    {
        result[j].name = strdup(count[i].name);
        sprintf(temp,"%d",countList[i].count);
        result[j++].value = strdup(temp);
    }

    if (sum && sumList)
    for (i=0; sum[i].name; i++)
    {
        double Average = 0;
        double StdDev = 0;
        double StdError = 0;

        result[j].name = strdup(sum[i].name);
        sprintf(temp,"%d",sumList[i].sum);
        result[j++].value = strdup(temp);

        result[j].name = strdup3(sum[i].name,".sum","");
        sprintf(temp,"%f",sumList[i].sum);
        result[j++].value = strdup(temp);

        result[j].name = strdup3(sum[i].name,".sum2","");
        sprintf(temp,"%f",sumList[i].sum2);
        result[j++].value = strdup(temp);

        if (sumList[i].count > 0)
        {
            Average = sumList[i].sum/sumList[i].count;
            StdDev = sqrt((sumList[i].sum2 - Average * sumList[i].sum)/sumList[i].count);
            StdError = StdDev/sqrt(sumList[i].count);
        }
        result[j].name = strdup3(sum[i].name,".average","");
        sprintf(temp,"%f",Average);
        result[j++].value = strdup(temp);
        result[j].name = strdup3(sum[i].name,".stddev","");
        sprintf(temp,"%f",StdDev);
        result[j++].value = strdup(temp);
        result[j].name = strdup3(sum[i].name,".stderr","");
        sprintf(temp,"%f",StdError);
        result[j++].value = strdup(temp);
    }
    return result;
}

int CGImain(char * argv0,CGINameValue* Params,STREAM htmlout)
{
    CGINameValue* count = 0;
    CGINameValue* sum = 0;
    counter* countList=0;
    counter* sumList= 0;
    char FileName[MAXPATH];
    int i, countLength=0, sumLength=0, printSummary = 1;

    if (Params == 0)
    {
      HTMLWrite(htmlout,"Usage: summary setup_file data_file1 data_file2 ...\n");
      HTMLWrite(htmlout,"Usage: summary setup_file load=calc_file report=report_file...\n");
      return 1;
    }

    ExpandLocalPath(argv0,FileName,Params[0].name,0);
    count = ReadINIFileSection(FileName,"COUNT",0);
    sum = ReadINIFileSection(FileName,"SUM",0);

    if (count) countList = SetupList(count,0,&countLength);

    if (sum) sumList = SetupList(sum,1,&sumLength);

    for (i=1; Params[i].name; i++)
    {
        CGINameValue* data;
        FILE * db;
        int skip = 0;
        if (!stricmp(Params[i].name,"load") && *Params[i].value)
        {
            int j;
            FILE* report;
            ExpandLocalPath(argv0,FileName,Params[i].value,0);
            report = fopen(FileName,"rt");
            if (report)
            {
                char str[32768];
                str[fread(str,1,32767,report)]=0;
                data = ReadPairedString(str,'\n',0);

                if (data && count) for (j=0; count[j].name; j++)
                {
                    countList[j].count += atoi(GetFieldValue(data,count[j].name));
                }
                if (data && sum) for (j=0; sum[j].name; j++)
                {
               char * name = strdup3(sum[j].name,".sum","");
                    sumList[j].count += atoi(GetFieldValue(data,count[j].name));
                    sumList[j].sum += strtod(GetFieldValue(data,name),0);
                    free(name);
                    name = strdup3(sum[j].name,".sum2","");
                    sumList[j].sum2 += strtod(GetFieldValue(data,name),0);
                    free(name);
                }
                DeleteNVP(data);
            }
        }
        if (!stricmp(Params[i].name,"report") && *Params[i].value)
        {
            CGINameValue* total = GetTotal(count,sum,countList,sumList,countLength,sumLength);
            FILE* report;
            ExpandLocalPath(argv0,FileName,Params[i].value,0);
            report = fopen(FileName,"rt");
            if (report)
            {
                printSummary = 0;
                RunReport(argv0,htmlout,report,total,total,0,0,0);
                fclose(report);
            }

            DeleteNVP(total);
        }
        else
        {
            ExpandLocalPath(argv0,FileName,Params[i].name,0);
            if (!DatabaseOpen(FileName,&db,&data,0))
               continue;

            while (DatabaseReadRecord(db, data,&skip))
            {
                if (skip) continue;
             if (countList)
                UpdateCounts(data,countList,countLength);
             if (sumList)
                UpdateCounts(data,sumList,sumLength);
            }

            DatabaseClose(db,data);
        }
    }

    if (printSummary)
    {
        CGINameValue* total = GetTotal(count,sum,countList,sumList,countLength,sumLength);
        for (i=0; total[i].name; i++)
        {
            HTMLWrite(htmlout,total[i].name);
            HTMLWrite(htmlout,"=");
            HTMLWrite(htmlout,total[i].value);
            HTMLWrite(htmlout,"\n");
        }
    }
    return 0;
}

Raosoft EZReport, EZSurvey, InterForm, RapidReport, Raosoft, and SurveyWin are registered trademarks of Raosoft, Inc. Page contents © 1996-2007 by Raosoft, Inc. You may use and modify this file for your own use, but may not distribute it or derivative works without the prior written consent of Raosoft, Inc. This software is provided "as is," and Raosoft makes no warranty, express or implied, of fitness for a particular application. Every measure has been taken to anticipate risks inherent to computer networks, but we cannot guarantee safety or reliability of this program in every situation.

Tel: 206-525-4025 (US) Email: raosoft@raosoft.com
http://www.raosoft.com/