fix RCS Id strings

[moira.git] / gdb / tst.c

/*
 *	$Source$
 *	$Header$
 */

#ifndef lint
static char *rcsid_tst_c = "$Header$";
#endif	lint

/************************************************************************/
/*	
/*				tst.c
/*	
/*	A test program for the client library interface.
/*	
/*	Author: Noah Mendelsohn
/*	
/*	Copyright: 1986 MIT Project Athena
/*	
/************************************************************************/

#include <stdio.h>
#include "gdb.h"

char *field_names[] = {"desc",	
		       "code",
		       "man",
		       "cost",
		       "count"};
FIELD_TYPE field_types[] = {STRING_T,	    /* desc */
			    INTEGER_T,      /* code */
			    STRING_T,	    /* man */
			    REAL_T,	    /* cost */
			    INTEGER_T};	    /* count */

FILE *coded_file;

int
main(argc, argv)
int	argc;
char	*argv[];
{

\f	/************************************************************
	 *	            DECLARATIONS			    *
	 ************************************************************/

	/*
	 * Declare the names of fields to be retrieved and their types
	 */

	int  field_count = 5;
	int i;
	/*
	 * The following defines are for convenience in addressing
	 * the fields.
	 */

#define DESC  0
#define CODE  1
#define MAN   2
#define COST  3
#define COUNT 4

	/*
	 * Declare the relation and related data structures for
	 * storing the retrieved data.
	 */

	TUPLE_DESCRIPTOR tuple_desc;
	RELATION retrieved_data, decoded_rel;

	/*
	 * Declarations for misc. variables
	 */
	
	TUPLE   t;			/* next tuple to print */
	int coded_len;
	char *coded_dat;

	int	rc;			/* A return code */	

\f	/************************************************************
	 *	       EXECUTION BEGINS HERE 			    *
	 ************************************************************/

	/*
	 * Build the descriptor describing the layout of the tuples
	 * to be retrieved, and create an empty relation into which
	 * the retrieval will be done.
	 */

	gdb_init();				/* initialize the global */
						/* database facility */

	printf("tst.c: attempting to create tuple descriptor\n");	

	tuple_desc = create_tuple_descriptor(field_count, field_names,
					     field_types);

	printf("tst.c: tuple desc created.. attempting to create relation\n");
	retrieved_data = create_relation(tuple_desc);

	printf("tst.c: relation created, formatting descriptor\n");


	print_tuple_descriptor("Test Tuple Descriptor", tuple_desc);

	printf("tst.c: descriptor formatted, formatting relation\n");

	print_relation("Test Relation", retrieved_data);

	printf("Creating tuples\n");

	for (i=0; i<3; i++) {
		t = create_tuple(tuple_desc);
		
		initialize_tuple(t);

		fprintf(stderr, "Following tuple should contain null fields:\n\n");

		print_tuple("A NULL TUPLE", t);

		*(int *)FIELD_FROM_TUPLE(t, CODE) = i+1;

		*(double *)FIELD_FROM_TUPLE(t, COST) = 12.34 * (i+1);
		string_alloc((STRING *)FIELD_FROM_TUPLE(t,MAN), 20);
		strcpy(STRING_DATA(*((STRING *)FIELD_FROM_TUPLE(t,MAN))),
		       "Manager field data");
		ADD_TUPLE_TO_RELATION(retrieved_data, t);		
	}


	printf("tst.c: relation initialized, formatting relation\n");

	print_relation("Test Relation", retrieved_data);


/*
 *  Try to encode the entire relation!!
 */

	printf("Attempting to encode the relation\n");

	coded_len = FCN_PROPERTY(RELATION_T, CODED_LENGTH_PROPERTY)
	      (&retrieved_data, NULL);

	coded_dat = (char *)malloc(coded_len);

	FCN_PROPERTY(RELATION_T, ENCODE_PROPERTY)
	  (&retrieved_data, NULL, coded_dat);

	printf("Relation encoding complete, writing file \n\n");

	coded_file = fopen("coded.dat", "w");

	fwrite(coded_dat, 1, coded_len, coded_file);

	fclose(coded_file);

	printf("File written\n");

	printf("Decoding relation\n\n");

	FCN_PROPERTY(RELATION_T, DECODE_PROPERTY)
	  (&decoded_rel, NULL, coded_dat);

	printf("Relation decoded!!  Printing it\n\n");

	print_relation("Decoded Relation", decoded_rel);


	printf("tst.c: exit\n");

	return 0;
}