#pragma hdrstop
#include <condefs.h>
#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <stdlib.h>

#define MAX_CARS 1000
#define MAX_CHASSIS 200
#define MAX_ENGINES 100
#define MAX_TRANNIES 100
#define MAX_TURBOS 50
#define MAX_SOURCES 50
#define PI 3.14159
// Version Notes:
//  2011.12.08 - switched to data input via csv files (tabbed delimited).

// Create a generic structure to hold the car database
struct car
{
	char name[20];
    char family[30];
	char year[20];
    char engine[20];
    char turbo[20];
	char chassis[3][20];
	char tranny[3][20];
    float diff_ratio[3];
    char notes[1000];
    float rpm;
} volvo[MAX_CARS];

// Create a generic structure to hold chassis database
struct chassis
{
	char name[40];
    char family[40];
    int num_doors; //2=coupe, 3=2dr hatch, 4=sedan, 5=wagon/4dr hatch
    float wheelbase; //inches
	float length;
    float width;
    float height;
    float curb_wt; //lb
    float turn_radius; //ft
    char front_suspension[80];
    char rear_suspension[80];
    float diff_ratio;
    char notes[1000];
} vchassis[MAX_CHASSIS];

// Create a generic structure to hold transmission database
struct tranny
{
	char name[40];
	char type[40];
    char maker[40];
	int num_gears;
    float ratios[7];
    char notes[1000];
} vtranny[MAX_TRANNIES];

// Create a generic structure to hold engine database
struct engine
{
	char name[40];
	int num_cylinders;
    int num_valves; //valves per cylinder
    float displacement; //litres
    float compression;
    char fuel_type[40]; //gas, diesel, propane ....
    char fuel_delivery[200]; //SU carb, LHxxx electronic ...
    char turbo[40]; // not available, brand name, or yes
    char notes[1000];
} vengine[MAX_ENGINES];

// Create a generic structure to hold turbo database
struct turbo
{
	char name[40];
    char notes[1000];
} vturbo[MAX_TURBOS];

// Create a generic structure to hold info source database
struct source
{
	char id[40];
    char notes[1000];
} vsource[MAX_SOURCES];

int read_chassis_csv();
int read_engine_csv();
int read_source_csv();
int read_tranny_csv();
int read_turbo_csv();
int read_car_csv();
void getfields(int num_fields);

void check_chassis (int i, int num_chassis);
void check_engine (int i, int num_engines);
void check_turbo (int i, int num_turbos);
void check_tranny (int i, int num_tranny);
void check_source (char *notes, int num_sources);
int insert_hyperlink (char *notes);

/* Not yet used
float calc_rpm (float final_tranny_ratio, float final_diff_ratio,
    float rim_dia, float aspect_ratio, float tire_width);
*/

int create_carpage (int num_cars, char *output_filename, char *family);
int create_chassispage (int num_chassis, int num_cars);
int create_trannypage (int num_tranny, int num_cars);
int create_enginepage (int num_engines, int num_cars);
int create_turbopage (int num_turbos, int num_cars);
int create_sourcepage (int num_sources, int num_cars, int num_chassis,
                        int num_engines, int num_turbos, int num_tranny);

int fprint_footer (FILE *fp);
int fprint_header (FILE *fp, char *title);
void error_msg(char *msg);

char buf[1000], field[20][1000];

#pragma argsused
int main(int argc, char* argv[])
{
	int num_chassis, num_tranny, num_cars, num_engines, num_turbos, num_sources;
    // Note that in the following, data stored in location i, starting from 0.
    // The object counter is incremented to record  the # of object stored.
    // Note that because of the 0 index start, the number of objects is one more
    // than the index.

//Build the source info
    num_sources = read_source_csv();

// Build the chassis
    num_chassis = read_chassis_csv();
    
// Build the transmissions
    num_tranny = read_tranny_csv();

// Build the engines
    num_engines = read_engine_csv();
// Build the turbos
    num_turbos = read_turbo_csv();

//Build the cars
    num_cars = read_car_csv();
    
// Create the web pages
	create_chassispage(num_chassis, num_cars);
	create_enginepage(num_engines, num_cars);
	create_trannypage(num_tranny, num_cars);
    create_turbopage (num_turbos, num_cars);
    create_sourcepage (num_sources, num_cars, num_chassis,
                        num_engines, num_turbos, num_tranny);
	create_carpage(num_cars, "cars.htm", "Volvo");
	create_carpage(num_cars, "Earlycars.htm", "Early series");
	create_carpage(num_cars, "PVcars.htm", "PV series");
	create_carpage(num_cars, "P1800cars.htm", "P1800 series");
	create_carpage(num_cars, "120cars.htm", "120 series");
	create_carpage(num_cars, "140cars.htm", "140/160 series");
	create_carpage(num_cars, "240cars.htm", "240/260 series");
	create_carpage(num_cars, "300cars.htm", "300 series");
	create_carpage(num_cars, "400cars.htm", "400 series");
	create_carpage(num_cars, "700cars.htm", "700/900 series");
	create_carpage(num_cars, "850cars.htm", "850/S70/V70 series");
	create_carpage(num_cars, "S40cars.htm", "S40/V40 series");
	create_carpage(num_cars, "S80cars.htm", "S80 series");
	create_carpage(num_cars, "SUVcars.htm", "SUV series");

    getch();
	return 0;
}

void check_chassis (int i, int num_chassis)
{
    int j, match;
    match=0;
    for (j=0; j<num_chassis; j++)
    {
        if (!strcmp(volvo[i].chassis[0], vchassis[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown chassis.");
    match=0;
    for (j=0; j<num_chassis; j++)
    {
        if (!strcmp(volvo[i].chassis[1], vchassis[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown chassis.");
    match=0;
    for (j=0; j<num_chassis; j++)
    {
        if (!strcmp(volvo[i].chassis[2], vchassis[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown chassis.");
    return;
}

void check_engine (int i, int num_engines)
{
    int j, match;
    match=0;
    for (j=0; j<num_engines; j++)
    {
        if (!strcmp(volvo[i].engine, vengine[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown engine.");
    return;
}

void check_turbo (int i, int num_turbos)
{
    int j, match;
    match=0;
    for (j=0; j<num_turbos; j++)
    {
        if (!strcmp(volvo[i].turbo, vturbo[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown turbo.");
    return;
}

void check_source (char *notes, int num_sources)
{
//Checks to see if the source mentioned in the notes actually exists.
    int j, match;
    match=0;
    if (strstr(notes, "["))
    {
      //Source found in the notes.  Check to ensure the source exists.
      for (j=0; j<num_sources; j++)
      {
        if (strlen(vsource[j].id)>0 && strstr(notes, vsource[j].id)) match = 1;
      }
      if (match ==0) error_msg("Reference to unknown source.");
    }
    return;
}
int insert_hyperlink (char *notes)
{
    char buf[2000], ref[50];
    int len_ref, len_buf, len_notes, i, k=0, r=0; // , r_left, r_right
    //ensure that the buffer is terminated. Had some trouble with strcat not adding final \0
    for (i=0;i<1000;i++)buf[i]='\0';
    len_notes=strlen(notes);
    for (i=0; i<len_notes; i++)
    {
        if (notes[i]!='[')
        {
            buf[k]=notes[i]; //regular text found so copy it.
            k++;  //increment buffer index
        }
        else  //Left indicator of a source found.  Have to added hypertext here.
        {
            //Get the reference source since need to insert it in link.
            //r_left = i;  //mark the start of the reference
            r=0;
            //save the reference text
            while ((notes[i+r]!=']') && (notes[i+r]!='\0'))
            {
                ref[r] = notes[i+r];
                r++;
            }
            ref[r] = notes[i+r];
            ref[r+1] = '\0';
            len_ref = strlen(ref);
            //r_right = r_left + len_ref - 1;  //set the right marker

            //Now add the first part of the hyperlink
            strcat (buf, "<font size=\"-1\"><a href=\"sources.htm#");
            //Then add the ref for the link name
            strcat (buf, ref);
            //Now add the next bit of the anchor phrase
            strcat(buf, "\">");
            //Then the link text (the reference itself)
            strcat (buf, ref);
            //Finally, close off the anchor
            strcat(buf, "</a></font>");
            len_buf=strlen(buf);
            k=len_buf;  //put the indices just beyond the end of the added text
            i=i+len_ref-1; //skip over the ref text since it has been added in already
            //Now ready to continue
        }
    }
    //All done building the new text.  Copy over old text if not too long.
    len_buf=strlen(buf);
    if (strlen(buf)>=1000) error_msg ("Length of note exceeds limit");
    strcpy (notes, buf);
    len_buf=strlen(buf);  //don't really need this but what the heck.
    return (len_buf);
}

void check_tranny (int i, int num_tranny)
{
    int j, match;
    match=0;
    for (j=0; j<num_tranny; j++)
    {
        if (!strcmp(volvo[i].tranny[0], vtranny[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown tranny.");
    match=0;
    for (j=0; j<num_tranny; j++)
    {
        if (!strcmp(volvo[i].tranny[1], vtranny[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown tranny.");
    match=0;
    for (j=0; j<num_tranny; j++)
    {
        if (!strcmp(volvo[i].tranny[2], vtranny[j].name)) match = 1;
    }
    if (match ==0) error_msg("Car using unknown tranny.");
    return;
}

int read_car_csv()
{
    int num_cars, i;
	FILE *fp;
	char input_filename[13]="cars.csv";

 	if (( fp = fopen(input_filename,"r")) == NULL)
 	{
   	printf("Could not open %s", input_filename);
   	return(0);
 	}
// read title line and ignore
    fgets (buf, 80, fp);
// read number of records to be read
    fscanf(fp, "%d", &num_cars);
    if (num_cars >=MAX_CARS) error_msg ("Can't build car - number limit reached");
    fgets (buf, 80, fp);  //read rest of line and ignore
// read header line and ignore
    fgets (buf, 1000, fp);
// read the records
    for (i=0;i<num_cars;i++)
    {
        fgets (buf, 1000, fp);
        getfields(14); //parse buf and store 14 fields in keyword array
	strcpy(volvo[i].name, field[0]);
	strcpy(volvo[i].year, field[1]);
    printf("car = %s %s \n", volvo[i].year, volvo[i].name);
	strcpy(volvo[i].chassis[0], field[2]);
	strcpy(volvo[i].chassis[1], field[3]);
	strcpy(volvo[i].chassis[2], field[4]);
        check_chassis(i, MAX_CHASSIS);
	strcpy(volvo[i].engine, field[5]);
        check_engine(i, MAX_ENGINES);
	strcpy(volvo[i].turbo, field[6]);
        check_turbo(i, MAX_TURBOS);
	strcpy(volvo[i].tranny[0], field[7]);
	strcpy(volvo[i].tranny[1], field[9]);
	strcpy(volvo[i].tranny[2], field[11]);
        check_tranny(i, MAX_TRANNIES);
    volvo[i].diff_ratio[0] = atof(field[8]);
    volvo[i].diff_ratio[1] = atof(field[10]);
    volvo[i].diff_ratio[2] = atof(field[12]);
	strcpy(volvo[i].notes, field[13]);

    check_source(volvo[i].notes, MAX_SOURCES);
    //If you got to here, the source must exist.  Now make it a hyperlink.
    insert_hyperlink(volvo[i].notes);

    //sample rmp calc.  Need to add tire data before I can use it and add logic
    // to use tranny ratio, diff ratio:
    // For car i, lookup tire data
    // then for car i, for each tranny and chassis, lookup final tranny ratio and diff ratio
    // volvo[i].rpm = calc_rpm (.79, 3.54, 15.0, 0.65, 185.0);
    }
	fclose (fp);
	return num_cars;
}

/* not yet used
float calc_rpm (float final_tranny_ratio, float final_diff_ratio, float rim_dia, float aspect_ratio, float tire_width)
{
    float radius, circum , tire_rpm, rev_per_mile;
    //calc revs per mile (same as rpm at 60 mph)
    radius = rim_dia/2.0 + aspect_ratio*tire_width/25.4; //tire radius (inches)
    circum = 2.0 * PI * radius/12.0; //tire circumference (feet)
    tire_rpm = 5280.0/circum; //tire revs per mile = tire revs per minute at 60 mph
    rev_per_mile = tire_rpm * final_tranny_ratio * final_diff_ratio;
    return rev_per_mile;
}
*/

int read_chassis_csv()
{
    int num_chassis, i;
	FILE *fp;
	char input_filename[13]="chassis.csv";

 	if (( fp = fopen(input_filename,"r")) == NULL)
 	{
   	printf("Could not open %s", input_filename);
   	return(0);
 	}
// read title line and ignore
    fgets (buf, 80, fp);
// read number of records to be read
    fscanf(fp, "%d", &num_chassis);
    if (num_chassis >=MAX_CHASSIS) error_msg ("Can't build chassis - number limit reached");
    fgets (buf, 80, fp);  //read rest of line and ignore
// read header line and ignore
    fgets (buf, 1000, fp);
// read the records
    for (i=0;i<num_chassis;i++)
    {
        fgets (buf, 1000, fp);
        getfields(12); //parse buf and store 12 fields in keyword array
	strcpy(vchassis[i].name, field[0]);
	strcpy(vchassis[i].family, field[1]);
    vchassis[i].num_doors = atoi(field[2]);
	vchassis[i].wheelbase = atof(field[3]);
	vchassis[i].length = atof(field[4]);
	vchassis[i].width = atof(field[5]);
	vchassis[i].height = atof(field[6]);
	vchassis[i].curb_wt = atof(field[7]);
	vchassis[i].turn_radius = atof(field[8]);
    strcpy(vchassis[i].front_suspension, field[9]);
    strcpy(vchassis[i].rear_suspension, field[10]);
	//vchassis[i].diff_ratio = diff_ratio;  //moved to tranny data
	strcpy(vchassis[i].notes, field[11]);
    check_source(vchassis[i].notes, MAX_SOURCES);
    //If you got to here, the source must exist.  Now make it a hyperlink.
    insert_hyperlink(vchassis[i].notes);

 	printf("chassis = %s\n", vchassis[i].name);
    }
	fclose (fp);
	return num_chassis;
}

int read_tranny_csv()
{
    int num_tranny, i;
	FILE *fp;
	char input_filename[13]="tranny.csv";

 	if (( fp = fopen(input_filename,"r")) == NULL)
 	{
   	printf("Could not open %s", input_filename);
   	return(0);
 	}
// read title line and ignore
    fgets (buf, 80, fp);
// read number of records to be read
    fscanf(fp, "%d", &num_tranny);
    if (num_tranny >=MAX_TRANNIES) error_msg ("Can't build tranny - number limit reached");
    fgets (buf, 80, fp);  //read rest of line and ignore
// read header line and ignore
    fgets (buf, 1000, fp);
// read the records
    for (i=0;i<num_tranny;i++)
    {
        fgets (buf, 1000, fp);
        getfields(12); //parse buf and store 12 fields in keyword array
	    strcpy(vtranny[i].name, field[0]);
	    strcpy(vtranny[i].type, field[1]);
	    strcpy(vtranny[i].maker, field[2]);
	    vtranny[i].num_gears = atoi(field[3]);
	    vtranny[i].ratios[0] = atof(field[4]);
	    vtranny[i].ratios[1] = atof(field[5]);
	    vtranny[i].ratios[2] = atof(field[6]);
	    vtranny[i].ratios[3] = atof(field[7]);
	    vtranny[i].ratios[4] = atof(field[8]);
	    vtranny[i].ratios[5] = atof(field[9]);
	    vtranny[i].ratios[6] = atof(field[10]);
	    strcpy(vtranny[i].notes, field[11]);
        check_source(vtranny[i].notes, MAX_SOURCES);
        //If you got to here, the source must exist.  Now make it a hyperlink.
        insert_hyperlink(vtranny[i].notes);

        printf("transmission = %s, type = %s\n", vtranny[i].name, vtranny[i].type);
    }
	fclose (fp);
	return num_tranny;
}

int read_engine_csv()
{
    int num_engines, i;
	FILE *fp;
	char input_filename[13]="engines.csv";

 	if (( fp = fopen(input_filename,"r")) == NULL)
 	{
   	printf("Could not open %s", input_filename);
   	return(0);
 	}
// read title line and ignore
    fgets (buf, 80, fp);
// read number of records to be read
    fscanf(fp, "%d", &num_engines);
    if (num_engines >=MAX_ENGINES) error_msg ("Can't build engine - number limit reached");
    fgets (buf, 80, fp);  //read rest of line and ignore
// read header line and ignore
    fgets (buf, 1000, fp);
// read the records
    for (i=0;i<num_engines;i++)
    {
        fgets (buf, 1000, fp);
        getfields(9); //parse buf and store 9 fields in keyword array
	    strcpy(vengine[i].name, field[0]);
	    strcpy(vengine[i].fuel_type, field[5]);
	    strcpy(vengine[i].fuel_delivery, field[6]);
	    strcpy(vengine[i].turbo, field[7]);
	    strcpy(vengine[i].notes, field[8]);
        check_source(vengine[i].notes, MAX_SOURCES);
        //If you got to here, the source must exist.  Now make it a hyperlink.
        insert_hyperlink(vengine[i].notes);
        vengine[i].num_cylinders = atoi(field[1]);
        vengine[i].num_valves = atoi(field[2]);
        vengine[i].displacement = atof(field[3]);
        vengine[i].compression = atof(field[4]);
        printf("engine = %s\n", vengine[i].name);
    }
	fclose (fp);
	return num_engines;
}

int read_turbo_csv()
{
    int num_turbos, i;
	FILE *fp;
	char input_filename[13]="turbos.csv";

 	if (( fp = fopen(input_filename,"r")) == NULL)
 	{
   	printf("Could not open %s", input_filename);
   	return(0);
 	}
// read title line and ignore
    fgets (buf, 80, fp);
// read number of records to be read
    fscanf(fp, "%d", &num_turbos);
    if (num_turbos >=MAX_TURBOS) error_msg ("Can't build turbo - number limit reached");
    fgets (buf, 80, fp);  //read rest of line and ignore
// read header line and ignore
    fgets (buf, 1000, fp);
// read the records
    for (i=0;i<num_turbos;i++)
    {
        fgets (buf, 1000, fp);
        getfields(2); //parse buf and store 2 fields in keyword array
	strcpy(vturbo[i].name, field[0]);
	strcpy(vturbo[i].notes, field[1]);
    check_source(vturbo[i].notes, MAX_SOURCES);
    //If you got to here, the source must exist.  Now make it a hyperlink.
    insert_hyperlink(vturbo[i].notes);
        printf("engine = %s\n", vturbo[i].name);
    }
	fclose (fp);
	return num_turbos;
}

int read_source_csv()
{
    int num_sources, i;
	FILE *fp;
	char input_filename[13]="sources.csv";

 	if (( fp = fopen(input_filename,"r")) == NULL)
 	{
   	printf("Could not open %s", input_filename);
   	return(0);
 	}
// read title line and ignore
    fgets (buf, 80, fp);
// read number of records to be read
    fscanf(fp, "%d", &num_sources);
    if (num_sources >=MAX_SOURCES) error_msg ("Can't build sources - number limit reached");
    fgets (buf, 80, fp);  //read rest of line and ignore
// read header line and ignore
    fgets (buf, 1000, fp);
// read the records
    for (i=0;i<num_sources;i++)
    {
        fgets (buf, 1000, fp);
        getfields(2); //parse buf and store 2 fields in keyword array
	strcpy(vsource[i].id, field[0]);
	strcpy(vsource[i].notes, field[1]);
        printf("source = %s\n", vsource[i].id);
    }
	fclose (fp);
	return num_sources;
}

int create_carpage (int num_cars, char *output_filename, char *family)
{
	int i, go[MAX_CARS], last, tally; //go is a print flag to allow subset printing
    char title[80];
	FILE *fp;

 	if (( fp = fopen(output_filename,"w")) == NULL)
 	{
   	printf("Could not open %s",output_filename);
   	return(0);
 	}
    strcpy (title, family);
    strcat (title, " Model Page - year by year");
    fprint_header(fp, title);
    // Print hyperlinks to the various years as a table of contents
 	fprintf(fp, "<b>Table of Contents</b><br>\n");
    last = 0; tally = 0;
 	for (i=0;i<num_cars;i++)
 	{
        go[i] = 0;
        //select cars to be printed
        if (!strcmp(volvo[i].family, family) || !strcmp(family, "Volvo"))
        {
            go[i] = 1;
            tally++;
        }
         //print summary of years covered, ensuring the very first year is not missed
         if (go[i]>0 && (strcmp(volvo[i].year, volvo[last].year) || i==0))
         {//****careful, the above logic doesn't reliably print the first year in the TOC*****
          //****Should change char year to into year before fixing.
            fprintf(fp, "<a href=\"#%s\">%s</a> ", volvo[i].year, volvo[i].year);
            last = i;
         }
    }
    fprintf(fp, "\n<br><b>This page contains %d cars</b><ul>\n", tally);
    //reset the 'last printed' marker for first car to be printed
    for (i=num_cars-1;i>=0;i--) if (go[i]>0)last = i;
    for (i=0;i<num_cars;i++)
 	{
      if (go[i]>0)
      {
        if (i>0 && strcmp(volvo[i].year, volvo[last].year))
        {
            fprintf(fp, "<a name=\"%s\"><hr>\n", volvo[i].year);
            last = i;
        }
        fprintf(fp, "<a name=\"%s %s\">", volvo[i].year, volvo[i].name);
        fprintf(fp, "<li>%s <b>%s</b>\n",
            volvo[i].year, volvo[i].name);
	 	fprintf(fp, "<ul>\n");
        fprintf(fp, "<li>Chassis: <a href=\"chassis.htm#%s\">%s</a>",
            volvo[i].chassis[0], volvo[i].chassis[0]);
        fprintf(fp, "  <a href=\"chassis.htm#%s\">%s</a>",
            volvo[i].chassis[1], volvo[i].chassis[1]);
        fprintf(fp, "  <a href=\"chassis.htm#%s\">%s</a>, ",
            volvo[i].chassis[2], volvo[i].chassis[2]);
        fprintf(fp, "Engine: <a href=\"engines.htm#%s\">%s</a> ",
            volvo[i].engine, volvo[i].engine);
        fprintf(fp, "<a href=\"turbos.htm#%s\">%s</a>\n",
            volvo[i].turbo, volvo[i].turbo);
        fprintf(fp, "<li>Transmission / final drive ratio: ");
        if (strcmp(volvo[i].tranny[0], "")) fprintf(fp, "<a href=\"tranny.htm#%s\">%s</a> / %4.2f:1",
            volvo[i].tranny[0], volvo[i].tranny[0], volvo[i].diff_ratio[0]);
        if (strcmp(volvo[i].tranny[1], "")) fprintf(fp, " <a href=\"tranny.htm#%s\">%s</a> / %4.2f:1",
            volvo[i].tranny[1], volvo[i].tranny[1], volvo[i].diff_ratio[1]);
        if (strcmp(volvo[i].tranny[2], "")) fprintf(fp, " <a href=\"tranny.htm#%s\">%s</a> / %4.2f:1\n",
            volvo[i].tranny[2], volvo[i].tranny[2], volvo[i].diff_ratio[2]);
        fprintf(fp, "<li>Notes: %s\n", volvo[i].notes);
	 	fprintf(fp, "</ul>\n");
      }
	}
    fprint_footer(fp);
	fclose (fp);
	return 0;
}

int create_trannypage (int num_tranny, int num_cars)
{
	int i, j, assigned[MAX_CARS];
	FILE *fp;
	char output_filename[13]="tranny.htm";

 	if (( fp = fopen(output_filename,"w")) == NULL)
 	{
   	printf("Could not open %s",output_filename);
   	return(0);
 	}
    fprint_header(fp, "Volvo Transmission Page");
    // Print hyperlinks to the various trannies as a table of contents
 	fprintf(fp, "<b>Table of Contents</b><br>\n");
 	for (i=0;i<num_tranny;i++)
 	{
        fprintf(fp, "<a href=\"#%s\">%s</a> ", vtranny[i].name, vtranny[i].name);
    }
 	fprintf(fp, "\n<br><b>Current database contains %d transmissions</b><ul>\n", num_tranny);

    //initialize flag
    for (j=0;j<num_cars;j++) assigned[j]=0;

 	for (i=0;i<num_tranny;i++)
 	{
	 	fprintf(fp, "<a name=\"%s\">", vtranny[i].name);
	 	fprintf(fp, "<li>Transmission name: <b>%s</b>\n", vtranny[i].name);
	 	fprintf(fp, "<ul>\n");
	 		fprintf(fp, "<li>Type:  %d speed %s\n", vtranny[i].num_gears, vtranny[i].type);
        fprintf(fp, "<li>Manufacturer: %s\n", vtranny[i].maker);
        fprintf(fp, "<li>Gear ratios: ");
        for (j=0; j<vtranny[i].num_gears; j++)
            fprintf(fp, "<b>(%d)</b>%5.2f:1 ", j+1, vtranny[i].ratios[j]);
        fprintf(fp, "\n<li>Notes: %s\n", vtranny[i].notes);
        fprintf(fp, "<li>Cars that use this transmission:");
        for (j=0;j<num_cars;j++)
        {
            if (!strcmp (volvo[j].tranny[0], vtranny[i].name)
                || !strcmp (volvo[j].tranny[1], vtranny[i].name)
                || !strcmp (volvo[j].tranny[2], vtranny[i].name))
            {
                fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                    volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
                assigned[j]=1;
            }
        }
	 	fprintf(fp, "</ul>\n");
	}
 	fprintf(fp, "<li>Cars with no transmission assigned:\n");
    for (j=0;j<num_cars;j++)
    {
        if (assigned[j]==0)
            fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
    }
    fprint_footer(fp);
	fclose (fp);
	return 0;
}

int create_chassispage (int num_chassis, int num_cars)
{
	int i, j, assigned[MAX_CARS];
	FILE *fp;
	char output_filename[13]="chassis.htm";

 	if (( fp = fopen(output_filename,"w")) == NULL)
 	{
   	printf("Could not open %s",output_filename);
   	return(0);
 	}
    fprint_header(fp, "Volvo Chassis Page");
    // Print hyperlinks to the various chassis as a table of contents
 	fprintf(fp, "<b>Table of Contents</b><br>\n");
    fprintf(fp, "<ul>\n<li><b>%s:</b> ", vchassis[0].family);
    fprintf(fp, "<a href=\"#%s\">%s</a> ", vchassis[0].name, vchassis[0].name);
 	for (i=1;i<num_chassis;i++)
 	{
        if (strcmp(vchassis[i].family, vchassis[i-1].family))
        {
            fprintf(fp, "\n<li><b>%s:</b> ", vchassis[i].family);
        }
        fprintf(fp, "<a href=\"#%s\">%s</a> ", vchassis[i].name, vchassis[i].name);
    }
 	fprintf(fp, "\n</ul>\n<b>Current database contains %d chassis</b><ul>\n", num_chassis);

    //initialize flag
    for (j=0;j<num_cars;j++) assigned[j]=0;

 	for (i=0;i<num_chassis;i++)
 	{
	 	fprintf(fp, "<a name=\"%s\">", vchassis[i].name);
	 	fprintf(fp, "<li>Chassis name: <b>%s</b>, %d door.  Member of the <b>%s</b>.\n", vchassis[i].name,
            vchassis[i].num_doors, vchassis[i].family);
	 	fprintf(fp, "<ul>\n");
	 	fprintf(fp, "<li>Front suspension: %s, Rear suspension: %s\n",
            vchassis[i].front_suspension, vchassis[i].rear_suspension);
 		fprintf(fp, "<li>Wheelbase = %5.1f inches = %5.1f cm.\n",
            vchassis[i].wheelbase, vchassis[i].wheelbase*2.54);
 		fprintf(fp, "<li>Length = %5.1f inches = %5.1f cm.\n",
            vchassis[i].length, vchassis[i].length*2.54);
 		fprintf(fp, "<li>Width = %5.1f inches = %5.1f cm.\n",
            vchassis[i].width, vchassis[i].width*2.54);
 		fprintf(fp, "<li>Height = %5.1f inches = %5.1f cm.\n",
            vchassis[i].height, vchassis[i].height*2.54);
 		fprintf(fp, "<li>Curb Weight = %5.1f lbs. = %5.1f kg.\n",
            vchassis[i].curb_wt, vchassis[i].curb_wt/2.204622622);
 		fprintf(fp, "<li>Turning radius = %5.1f ft. = %5.1f m.\n",
            vchassis[i].turn_radius, vchassis[i].turn_radius*0.3048);
// 		fprintf(fp, "<li>Final drive ratio = %5.2f:1\n",
//            vchassis[i].diff_ratio);
        fprintf(fp, "<li>Notes: %s\n", vchassis[i].notes);
        fprintf(fp, "<li>Cars that use this chassis:");
        for (j=0;j<num_cars;j++)
        {
            if (!strcmp (volvo[j].chassis[0], vchassis[i].name)
                || !strcmp (volvo[j].chassis[1], vchassis[i].name)
                || !strcmp (volvo[j].chassis[2], vchassis[i].name))
            {
                fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                    volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
                strcpy(volvo[j].family, vchassis[i].family);//associate car with a family for later use
                assigned[j]=1;
            }
        }
	 	fprintf(fp, "</ul>\n");
	}
 	fprintf(fp, "<li>Cars with no chassis assigned:\n");
    for (j=0;j<num_cars;j++)
    {
        if (assigned[j]==0)
            fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
    }
    fprint_footer(fp);
	fclose (fp);
	return 0;
}

int create_enginepage (int num_engines, int num_cars)
{
	int i, j, assigned[MAX_CARS];
	FILE *fp;
	char output_filename[13]="engines.htm";

 	if (( fp = fopen(output_filename,"w")) == NULL)
 	{
   	printf("Could not open %s",output_filename);
   	return(0);
 	}
    fprint_header(fp, "Volvo Engine Page");
    // Print hyperlinks to the various engines as a table of contents
 	fprintf(fp, "<b>Table of Contents</b><br>\n");
 	for (i=0;i<num_engines;i++)
 	{
        fprintf(fp, "<a href=\"#%s\">%s</a> ", vengine[i].name, vengine[i].name);
    }
 	fprintf(fp, "\n<br><b>Current database contains %d engines</b><ul>\n", num_engines);

    //initialize flag
    for (j=0;j<num_cars;j++) assigned[j]=0;

 	for (i=0;i<num_engines;i++)
 	{
	 	fprintf(fp, "<a name=\"%s\">", vengine[i].name);
	 	fprintf(fp, "<li>Engine name: <b>%s</b>\n", vengine[i].name);
	 	fprintf(fp, "<ul>\n");
	 		fprintf(fp, "<li>%d cylinders, ", vengine[i].num_cylinders);
	 		fprintf(fp, "%d valves / cylinder\n", vengine[i].num_valves);
	 		fprintf(fp, "<li>Turbo: %s\n", vengine[i].turbo);
	 		fprintf(fp, "<li>Fuel type: %s, Fuel delivery: %s\n",
                vengine[i].fuel_type, vengine[i].fuel_delivery);
	 		fprintf(fp, "<li>Displacement: %5.3f litres = %5.1f cu. in.\n", vengine[i].displacement,
                vengine[i].displacement*61.0237440947);
	 		fprintf(fp, "<li>Compression ratio: %4.1f : 1\n", vengine[i].compression);
        fprintf(fp, "<li>Notes: %s\n", vengine[i].notes);
        fprintf(fp, "<li>Cars that use this engine:");
        for (j=0;j<num_cars;j++)
        {
            if (!strcmp (volvo[j].engine, vengine[i].name) )
            {
                fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                    volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
                assigned[j]=1;
            }
        }
        fprintf(fp, "\n");
	 	fprintf(fp, "</ul>\n");
	}
 	fprintf(fp, "<li>Cars with no engine assigned:\n");
    for (j=0;j<num_cars;j++)
    {
        if (assigned[j]==0)
            fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
    }
    fprint_footer(fp);
	fclose (fp);
	return 0;
}

int create_turbopage (int num_turbos, int num_cars)
{
	int i, j;
	FILE *fp;
	char output_filename[13]="turbos.htm";

 	if (( fp = fopen(output_filename,"w")) == NULL)
 	{
   	printf("Could not open %s",output_filename);
   	return(0);
 	}
    fprint_header(fp, "Volvo Turbo Page");
    // Print hyperlinks to the various trannies as a table of contents
 	fprintf(fp, "<b>Table of Contents</b><br>\n");
 	for (i=0;i<num_turbos;i++)
 	{
        fprintf(fp, "<a href=\"#%s\">%s</a> ", vturbo[i].name, vturbo[i].name);
    }
	fprintf(fp, "\n<br><b>Current database contains %d turbos</b><ul>\n", num_turbos);
 	for (i=0;i<num_turbos;i++)
 	{
	 	fprintf(fp, "<a name=\"%s\">", vturbo[i].name);
	 	fprintf(fp, "<li>Turbo name: <b>%s</b>\n", vturbo[i].name);
	 	fprintf(fp, "<ul>\n");
        fprintf(fp, "<li>Notes: %s\n", vturbo[i].notes);
        fprintf(fp, "<li>Cars that use this turbo:");
        for (j=0;j<num_cars;j++)
        {
            if (!strcmp (volvo[j].turbo, vturbo[i].name) )
            fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
        }
	 	fprintf(fp, "</ul>\n");
	}
    fprint_footer(fp);
	fclose (fp);
	return 0;
}

int create_sourcepage (int num_sources, int num_cars, int num_chassis,
                        int num_engines, int num_turbos, int num_tranny)
{
	int i, j;
	FILE *fp;
	char output_filename[13]="sources.htm";

 	if (( fp = fopen(output_filename,"w")) == NULL)
 	{
   	printf("Could not open %s",output_filename);
   	return(0);
 	}
    fprint_header(fp, "Volvo Source Page");
    // Print hyperlinks to the various sources as a table of contents
 	fprintf(fp, "<b>Table of Contents</b><br>\n");
 	for (i=0;i<num_sources;i++)
 	{
        fprintf(fp, "<a href=\"#%s\">%s</a> ", vsource[i].id, vsource[i].id);
    }
	fprintf(fp, "\n<br><b>Current database contains %d sources</b><ul>\n", num_sources);
 	for (i=0;i<num_sources;i++)
 	{
	 	fprintf(fp, "<a name=\"%s\">", vsource[i].id);
	 	fprintf(fp, "<li><b>%s</b> %s\n", vsource[i].id, vsource[i].notes);
        fprintf(fp, "<ul>\n");
        fprintf(fp, "<li>Car datasets that use this source:");
        for (j=0;j<num_cars;j++)
        {
            if ( strstr(volvo[j].notes, vsource[i].id))
            fprintf(fp, " (<a href=\"cars.htm#%s %s\">%s %s</a>)",
                volvo[j].year, volvo[j].name, volvo[j].year, volvo[j].name);
        }
        fprintf(fp, "<li>Chassis datasets that use this source:");
        for (j=0;j<num_chassis;j++)
        {
            if ( strstr(vchassis[j].notes, vsource[i].id))
            fprintf(fp, " (<a href=\"chassis.htm#%s\">%s</a>)",
                vchassis[j].name, vchassis[j].name);
        }
        fprintf(fp, "<li>Engine datasets that use this source:");
        for (j=0;j<num_engines;j++)
        {
            if ( strstr(vengine[j].notes, vsource[i].id))
            fprintf(fp, " (<a href=\"engines.htm#%s\">%s</a>)",
                vengine[j].name, vengine[j].name);
        }
        fprintf(fp, "<li>Turbo datasets that use this source:");
        for (j=0;j<num_turbos;j++)
        {
            if ( strstr(vturbo[j].notes, vsource[i].id))
            fprintf(fp, " (<a href=\"turbos.htm#%s\">%s</a>)",
                vturbo[j].name, vturbo[j].name);
        }
        fprintf(fp, "<li>Transmission datasets that use this source:");
        for (j=0;j<num_tranny;j++)
        {
            if ( strstr(vtranny[j].notes, vsource[i].id))
            fprintf(fp, " (<a href=\"tranny.htm#%s\">%s</a>)",
                vtranny[j].name, vtranny[j].name);
        }
	 	fprintf(fp, "</ul>\n");
	}
    fprint_footer(fp);
	fclose (fp);
	return 0;
}

int fprint_header (FILE *fp, char *title)
{
 	fprintf(fp, "<HTML>\n");
 	fprintf(fp, "<HEAD>\n");
 	fprintf(fp, "<TITLE>%s</TITLE>\n", title);
 	fprintf(fp, "</HEAD>\n");
 	fprintf(fp, "<BODY>\n");
 	fprintf(fp,
"<table>\n"
"<tr>\n"
"    <td valign=\"top\" bgcolor=\"#33CCCC\" rowspan=\"2\" width=\"100\">\n"
"	  <SCRIPT language=JavaScript src=\"../../js/menu.js\"></SCRIPT>\n"
"          </td>\n"
"    <td valign=\"top\" width=\"700\">\n"
"      <div align=\"center\"><font size=\"+2\"><strong>Volvo\n"
"        Information </strong></font><!-- #EndEditable --><br>\n"
"        <font size=\"-2\">\n"
"        <script language=\"JavaScript\">document.write(\"This page updated on \" + document.lastModified)</script>\n"
"        , <a href=\"../../index.htm\">HOME</a> (url: www.nuceng.ca/bill/)</font><br>\n"
"      </div>\n"
"      <hr>\n"
"  </tr>\n"
"  <tr>\n"
"    <td valign=\"top\" width=\"700\">\n");
    fprintf(fp,
"<b>Components:</b> <a href=\"chassis.htm\">Chassis</a> "
"<a href=\"engines.htm\">Engines</a> "
"<a href=\"turbos.htm\">Turbos</a> "
"<a href=\"tranny.htm\">Transmissions</a><br>\n");
    fprintf(fp,
"<b>Models:</b> <a href=\"cars.htm\">All models</a> "
"<a href=\"Earlycars.htm\">Early series</a> "
"<a href=\"PVcars.htm\">PV series</a> "
"<a href=\"120cars.htm\">120 series</a> "
"<a href=\"P1800cars.htm\">P1800 series</a> "
"<a href=\"140cars.htm\">140/160 series</a> "
"<a href=\"240cars.htm\">240/260 series</a> "
"<a href=\"300cars.htm\">300 series</a> "
"<a href=\"400cars.htm\">400 series</a> "
"<a href=\"700cars.htm\">700/900 series</a> "
"<a href=\"850cars.htm\">850/S70/V70 series</a> "
"<a href=\"S40cars.htm\">S40/V40 series</a> "
"<a href=\"S80cars.htm\">S80 series</a> "
"<a href=\"SUVcars.htm\">SUV series</a><br>\n");
    fprintf(fp,
"<b>Information:</b> <a href=\"sources.htm\">Sources</a><br>\n");
 	fprintf(fp, "<h2>%s</h2>\n", title);
 	return 0;
}

int fprint_footer (FILE *fp)
{

 	fprintf(fp, "</ul>\n");
    fprintf(fp,"This page auto-generated by <a href=\"code.htm\">cars.cpp</a><hr>");
 	fprintf(fp, "      </tr>\n");
 	fprintf(fp, "</table>\n");
 	fprintf(fp, "</BODY>\n");
 	fprintf(fp, "</BODY>\n");
 	fprintf(fp, "</HTML>\n");
	return 0;
}

void error_msg(char *msg)
{
    printf("ERROR: %s.  Program stopped", msg);
    getch();
    exit(1);
}

void getfields(int num_fields)
{
//globals assumed: char buf, field[k][r]
    int i, r, k;
    i=0;

    r=0;
        for (k=0; k < num_fields; k++)   //loop on fields
        {
                //Proceed unless a tab field separator or eol or new line found
                //copy the keyword characters

                while ((buf[r]!='\t') && (buf[r]!='\0') && (buf[r]!='\n'))
                {
                        field[k][r-i] = buf[r];
                        r++;
                }
                field[k][r-i] = '\0';
                r++;
                i=r;
        }
    //}
    return;
}