DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T m

⟦6722b3417⟧ TextFile

    Length: 2359 (0x937)
    Types: TextFile
    Names: »main.c++«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/image/correlate/main.c++« 

TextFile

/*
    This is the main routine for the correlation program
    Syntax is:
    correlation template.var [input.var [output.var]]
*/

#include <stream.h>
#include <stdio.h>
#include <double_image.h++>
#include <vartools.h++>

int
main ( int argc , char *argv[] )
    {
    switch(argc)
	{
	// if only 1 argument act as a pipe
    case 2:
	{
	FILE *template_file;
	// open the template file
	if ( NULL == (template_file = fopen(argv[1],"r")))
	    {
	    perror(form("Problem with opening %s mode r:",argv[1]));
	    return 2;
	    }
	// do the correlation
	correlate(template_file,stdin,stdout,"");
	}
    break;
	// if two arguments use the second for input file
    case 3:
	{
	FILE *template_file;
	// open the template file
	if ( NULL == (template_file = fopen(argv[1],"r")))
	    {
	    perror(form("Problem with opening %s mode r:",argv[1]));
	    return 2;
	    }
	FILE *input_file;
	// open the input file
	if ( NULL == (input_file = fopen(argv[2],"r")))
	    {
	    perror(form("correlate: Problem with opening %s mode r:",argv[2]));
	    return 3;
	    }
	// do the correlation
	correlate(template_file,input_file,stdout,"");
	}
    break;
	// if 3 arguments use the second for input and the 3rd for output
    case 4:
	{
	FILE *template_file;
	// open the template file
	if ( NULL == (template_file = fopen(argv[1],"r")))
	    {
	    perror(form("correlate: Problem with opening %s mode r:",argv[1]));
	    return 2;
	    }
	FILE *input_file;
	// open the input file
	if ( NULL == (input_file = fopen(argv[2],"r")))
	    {
	    perror(form("correlate: Problem with opening %s mode r:",argv[2]));
	    return 3;
	    }
	FILE *output_file;
	// open the output file
	if ( NULL == (output_file = fopen(argv[3],"w")))
	    {
	    perror(form("correlate: Problem with opening %s mode w:",argv[3]));
	    return 4;
	    }
	// do the correlation
	correlate(template_file,input_file,output_file,"");
	}
    break;
	// if wrong number of arguments print error message and exit
    default:
	cerr << "Syntax is: correlation template.var [input.var [output.var]]\n";
	return 1;
    break;
	}
    return 0;
    }
/*
Copyright (C) 1986, David Sher in the University of Rochester
Permission is granted to any individual or institution to use, copy, or
redistribute this software so long as it is not sold for profit, provided
this copyright notice is retained.
*/